github/amiga-clib2
1
0
Fork 0
mirror of https://github.com/adtools/clib2.git synced 2025-12-08 14:59:05 +00:00
Code Issues Releases Wiki Activity

- Small indentation changes for the stub code.

Browse Source 
git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@15184 87f5fb63-7c3d-0410-a384-fd976d0f7a62
This commit is contained in:
Olaf Barthel
2008-04-14 15:16:03 +00:00
parent 6148d06dca
commit ca20eeab97
1 changed files with 22 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
library/amiga_rexxvars.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: amiga_rexxvars.c,v 1.13 2008-04-14 15:07:37 obarthel Exp $ * $Id: amiga_rexxvars.c,v 1.14 2008-04-14 15:16:03 obarthel Exp $
* *
* :ts=4 * :ts=4
* *
@ -281,7 +281,7 @@ SetRexxVar(struct RexxMsg *message,STRPTR variable_name,STRPTR value,ULONG lengt
/****************************************************************************/ /****************************************************************************/
/* A selection of lovingly hand-crafted 68k stub functions which call /* A selection of lovingly hand-crafted 68k stub functions which call
into rexxsyslib.library LVOs which still used to be documented back into rexxsyslib.library LVOs that still used to be documented back
in 1987. */ in 1987. */
/****************************************************************************/ /****************************************************************************/
@ -309,10 +309,12 @@ __FreeSpace:
moveal sp@(4),a0 moveal sp@(4),a0
moveal sp@(8),a1 moveal sp@(8),a1
movel sp@(12),d0 movel sp@(12),d0
movel a6,sp@- movel a6,sp@-
moveal "A4(_RexxSysBase)",a6 moveal "A4(_RexxSysBase)",a6
jsr a6@(-120) jsr a6@(-120)
moveal sp@+,a6 moveal sp@+,a6
rts rts
"); ");
@ -331,10 +333,12 @@ __GetSpace:
moveal sp@(4),a0 moveal sp@(4),a0
movel sp@(8),d0 movel sp@(8),d0
movel a6,sp@- movel a6,sp@-
moveal "A4(_RexxSysBase)",a6 moveal "A4(_RexxSysBase)",a6
jsr a6@(-114) jsr a6@(-114)
moveal sp@+,a6 moveal sp@+,a6
rts rts
"); ");
@ -351,12 +355,15 @@ asm("
__IsSymbol: __IsSymbol:
moveal sp@(4),a0 moveal sp@(4),a0
movel a6,sp@- movel a6,sp@-
moveal "A4(_RexxSysBase)",a6 moveal "A4(_RexxSysBase)",a6
jsr a6@(-102) jsr a6@(-102)
moveal sp@+,a6 moveal sp@+,a6
moveal sp@(8),a1 moveal sp@(8),a1
movel d1,a1@ movel d1,a1@
rts rts
"); ");
@ -373,12 +380,15 @@ asm("
__CurrentEnv: __CurrentEnv:
moveal sp@(4),a0 moveal sp@(4),a0
movel a6,sp@- movel a6,sp@-
moveal "A4(_RexxSysBase)",a6 moveal "A4(_RexxSysBase)",a6
jsr a6@(-108) jsr a6@(-108)
moveal sp@+,a6 moveal sp@+,a6
moveal sp@(8),a1 moveal sp@(8),a1
movel a0,a1@ movel a0,a1@
rts rts
"); ");
@ -398,14 +408,17 @@ __FetchValue:
moveal sp@(8),a1 moveal sp@(8),a1
movel sp@(12),d0 movel sp@(12),d0
movel sp@(16),d1 movel sp@(16),d1
movel a6,sp@- movel a6,sp@-
moveal "A4(_RexxSysBase)",a6 moveal "A4(_RexxSysBase)",a6
jsr a6@(-72) jsr a6@(-72)
moveal sp@+,a6 moveal sp@+,a6
moveal sp@(20),a1 moveal sp@(20),a1
movel a0,a1@ movel a0,a1@
moveal sp@(24),a1 moveal sp@(24),a1
movel d1,a1@ movel d1,a1@
rts rts
"); ");
@ -424,10 +437,12 @@ __EnterSymbol:
moveal sp@(4),a0 moveal sp@(4),a0
moveal sp@(8),a1 moveal sp@(8),a1
movel sp@(12),d0 movel sp@(12),d0
movel a6,sp@- movel a6,sp@-
moveal "A4(_RexxSysBase)",a6 moveal "A4(_RexxSysBase)",a6
jsr a6@(-66) jsr a6@(-66)
moveal sp@+,a6 moveal sp@+,a6
rts rts
"); ");
@ -446,10 +461,12 @@ __SetValue:
moveal sp@(4),a0 moveal sp@(4),a0
moveal sp@(8),a1 moveal sp@(8),a1
movel sp@(12),d0 movel sp@(12),d0
movel a6,sp@- movel a6,sp@-
moveal "A4(_RexxSysBase)",a6 moveal "A4(_RexxSysBase)",a6
jsr a6@(-84) jsr a6@(-84)
moveal sp@+,a6 moveal sp@+,a6
rts rts
"); ");
@ -468,12 +485,15 @@ __StrcpyN:
moveal sp@(4),a0 moveal sp@(4),a0
moveal sp@(8),a1 moveal sp@(8),a1
movel sp@(12),d0 movel sp@(12),d0
movel a6,sp@- movel a6,sp@-
moveal "A4(_RexxSysBase)",a6 moveal "A4(_RexxSysBase)",a6
jsr a6@(-270) jsr a6@(-270)
moveal sp@+,a6 moveal sp@+,a6
moveal sp@(16),a1 moveal sp@(16),a1
movel d1,a1@ movel d1,a1@
rts rts
"); ");