home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-ki.lha / ffcall / trampoline / proto-hppa.s < prev    next >
Encoding:
Text File  |  1996-04-15  |  945 b   |  47 lines
  1.     .SPACE $PRIVATE$
  2.     .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
  3.     .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
  4.     .SPACE $TEXT$
  5.     .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
  6.     .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
  7.     .IMPORT $global$,DATA
  8.     .IMPORT $$dyncall,MILLICODE
  9. ; gcc_compiled.:
  10.     .SPACE $TEXT$
  11.     .SUBSPA $CODE$
  12.  
  13.     .align 4
  14.     .EXPORT tramp,ENTRY,PRIV_LEV=3,RTNVAL=GR
  15. tramp
  16.     .PROC
  17.     .CALLINFO FRAME=64,CALLS,SAVE_RP
  18.     .ENTRY
  19.     stw %r2,-20(0,%r30)
  20.     ldo 64(%r30),%r30
  21.     ldil L'305419896,%r19
  22.     ldil L'1934968593,%r20
  23.     ldo R'1934968593(%r20),%r20
  24.     ldil L'-1161904448,%r28
  25.     stw %r20,R'305419896(%r19)
  26.     ldo R'-1161904448(%r28),%r28
  27.     copy %r28,%r22
  28.     .CALL    ARGW0=GR
  29.     bl $$dyncall,%r31
  30.     copy %r31,%r2
  31.     ldw -84(0,%r30),%r2
  32.     bv 0(%r2)
  33.     ldo -64(%r30),%r30
  34.     .EXIT
  35.     .PROCEND
  36.     .align 4
  37.     .EXPORT jump,ENTRY,PRIV_LEV=3,RTNVAL=GR
  38. jump
  39.     .PROC
  40.     .CALLINFO FRAME=0,NO_CALLS
  41.     .ENTRY
  42.     ldil L'-1161904448,%r19
  43.     ldo R'-1161904448(%r19),%r19
  44.     bv,n 0(%r19)
  45.     .EXIT
  46.     .PROCEND
  47.