home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / src / spsparc.d < prev    next >
Encoding:
Text File  |  1992-12-09  |  546 b   |  18 lines
  1. # Kleine Routine, die den Wert des Maschinenstacks zurⁿckliefert.
  2.  
  3.   # (diese werden VOR der vorigen Instruktion ausgefⁿhrt):
  4.   #define _             # Instruktion, die stets ausgefⁿhrt wird
  5.   #define __            # Instruktion, die nur im Sprung-Fall ausgefⁿhrt wird
  6.   # Abkⁿrzungen fⁿr Anweisungen:
  7.   #define ret   jmp %i7+8    # return from subroutine
  8.   #define retl  jmp %o7+8    # return from leaf subroutine (no save/restore)
  9.  
  10.         .seg "text"
  11.  
  12.         .global _getSP
  13.  
  14. #    extern void* getSP (void);
  15. _getSP: retl
  16.        _ mov %sp,%o0
  17.  
  18.