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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
.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.:
.SPACE $TEXT$
.SUBSPA $LIT$
.align 8
L$P0000
.word 0x12345678
.word 0x0
.align 8
L$C0000
.word 0x3ff00000
.word 0x0
.SPACE $TEXT$
.SUBSPA $CODE$
.align 4
.EXPORT g,ENTRY,PRIV_LEV=3,RTNVAL=FR
g
.PROC
.CALLINFO FRAME=0,NO_CALLS
.ENTRY
stw %r19,-32(%r30)
ldw T'L$C0000(%r19),%r20
bv %r0(%r2)
fldds 0(%r20),%fr4
.EXIT
.PROCEND
.IMPORT abort,CODE
.IMPORT exit,CODE
.SPACE $TEXT$
.SUBSPA $LIT$
.align 8
L$C0001
.word 0x3ff00000
.word 0x0
.SPACE $TEXT$
.SUBSPA $CODE$
.align 4
.EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
main
.PROC
.CALLINFO FRAME=128,CALLS,SAVE_RP,ENTRY_GR=3
.ENTRY
stw %r2,-20(%r30)
ldo 128(%r30),%r30
stw %r19,-32(%r30)
stw %r4,-128(%r30)
copy %r19,%r4
.CALL
bl g,%r2
copy %r4,%r19
copy %r4,%r19
ldw T'L$C0001(%r19),%r20
fldds 0(%r20),%fr8
fcmp,dbl,= %fr4,%fr8
ftest
add,tr %r0,%r0,%r0
b,n L$0003
.CALL
bl abort,%r2
nop
L$0003
.CALL ARGW0=GR
bl exit,%r2
ldi 0,%r26
nop
.EXIT
.PROCEND
|
