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