]>
Commit | Line | Data |
---|---|---|
ea315e99 JL |
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 | .EXPORT blah,DATA | |
11 | .SPACE $PRIVATE$ | |
12 | .SUBSPA $DATA$ | |
13 | ||
14 | .align 8 | |
15 | blah | |
16 | ; .double 0e+00 | |
17 | .word 0 ; = 0x0 | |
18 | .word 0 ; = 0x0 | |
19 | .EXPORT foo,DATA | |
20 | .align 8 | |
21 | foo | |
22 | ; .double 0e+00 | |
23 | .word 0 ; = 0x0 | |
24 | .word 0 ; = 0x0 | |
25 | .EXPORT yabba,DATA | |
26 | .align 4 | |
27 | yabba | |
28 | .word 1 | |
29 | .SPACE $TEXT$ | |
30 | .SUBSPA $CODE$ | |
31 | ||
32 | .align 4 | |
33 | .EXPORT bar,CODE | |
34 | .EXPORT bar,ENTRY,PRIV_LEV=3,RTNVAL=GR | |
35 | bar | |
36 | .PROC | |
37 | .CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3 | |
38 | .ENTRY | |
39 | copy %r3,%r1 | |
40 | copy %r30,%r3 | |
41 | stwm %r1,64(0,%r30) | |
42 | addil L'yabba-$global$,%r27 | |
43 | ldo R'yabba-$global$(%r1),%r19 | |
44 | ldi 2,%r20 | |
45 | stw %r20,0(0,%r19) | |
46 | L$0001 | |
47 | ldo 64(%r3),%r30 | |
48 | ldwm -64(0,%r30),%r3 | |
49 | bv,n 0(%r2) | |
50 | .EXIT | |
51 | .PROCEND |