home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / gcc / libnixV0_8.lha / gnu / libnix-sources.lha / sources / amiga / misc / DoMethod.c < prev    next >
Encoding:
Text File  |  1994-12-12  |  312 b   |  24 lines

  1. asm("
  2.         .text
  3.  
  4.         .globl    _DoMethod
  5.         .globl    _DoMethodA
  6.  
  7.  
  8. _DoMethod:    lea    sp@(8:W),a1
  9.         jra    L_DoMethod
  10.  
  11. _DoMethodA:    movel    sp@(8:W),a1
  12. L_DoMethod:    movel    sp@(4:W),d0
  13.         beqs    L_Null
  14.         movel    a2,sp@-
  15.         movel    d0,a2
  16.         movel    a2@(-4:W),a0
  17.         jbsr    L_Invoke
  18.         movel    sp@+,a2
  19. L_Null:        rts
  20.  
  21. L_Invoke:    movel    a0@(8:W),sp@-
  22.         rts
  23. ");
  24.