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 / DoSuperMethod.c < prev    next >
Encoding:
Text File  |  1994-12-12  |  381 b   |  29 lines
  1. asm("
  2.         .text
  3.  
  4.         .globl    _DoSuperMethod
  5.         .globl    _DoSuperMethodA
  6.  
  7.  
  8. _DoSuperMethod:    lea    sp@(12:W),a1
  9.         jra    L_DoSuperMethod
  10.  
  11. _DoSuperMethodA:
  12.         movel    sp@(12:W),a1
  13.  
  14. L_DoSuperMethod:
  15.         movel    a2,sp@-
  16.         moveml    sp@(8:W),a0/a2
  17.         movel    a2,d0
  18.         beqs    L_Null
  19.         movel    a0,d0
  20.         beqs    L_Null
  21.         movel    a0@(24:W),a0
  22.         jbsr    L_Invoke
  23.         movel    sp@+,a2
  24. L_Null:        rts
  25.  
  26. L_Invoke:    movel    a0@(8:W),sp@-
  27.         rts
  28. ");
  29.