1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
.SPACE $PRIVATE$
.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
.SPACE $TEXT$
.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
.IMPORT $global$,DATA
.IMPORT $$dyncall,MILLICODE
; gcc_compiled.:
.EXPORT blah,DATA
.SPACE $PRIVATE$
.SUBSPA $DATA$
.align 8
blah
; .double 0e+00
.word 0 ; = 0x0
.word 0 ; = 0x0
.EXPORT foo,DATA
.align 8
foo
; .double 0e+00
.word 0 ; = 0x0
.word 0 ; = 0x0
.EXPORT yabba,DATA
.align 4
yabba
.word 1
.SPACE $TEXT$
.SUBSPA $CODE$
.align 4
.EXPORT bar,CODE
.EXPORT bar,ENTRY,PRIV_LEV=3,RTNVAL=GR
bar
.PROC
.CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
.ENTRY
copy %r3,%r1
copy %r30,%r3
stwm %r1,64(%r30)
addil L'yabba-$global$,%r27
ldo R'yabba-$global$(%r1),%r19
ldi 2,%r20
stw %r20,0(%r19)
L$0001
ldo 64(%r3),%r30
ldwm -64(%r30),%r3
bv,n %r0(%r2)
.EXIT
.PROCEND
|
