cq.sbk

lcc,一个可变目标c语言编译器的源码

.byte 87
.byte 88
.byte 89
.byte 90
.byte 0
.size .482,27
.type .483,#object
.align 1
.483:
.byte 97
.byte 98
.byte 99
.byte 100
.byte 101
.byte 102
.byte 103
.byte 104
.byte 105
.byte 106
.byte 107
.byte 108
.byte 109
.byte 110
.byte 111
.byte 112
.byte 113
.byte 114
.byte 115
.byte 116
.byte 117
.byte 118
.byte 119
.byte 120
.byte 121
.byte 122
.byte 0
.size .483,27
.type .484,#object
.align 1
.484:
.byte 48
.byte 49
.byte 50
.byte 51
.byte 52
.byte 53
.byte 54
.byte 55
.byte 56
.byte 57
.byte 0
.size .484,11
.type .485,#object
.align 1
.485:
.byte 126
.byte 33
.byte 34
.byte 35
.byte 37
.byte 38
.byte 40
.byte 41
.byte 95
.byte 61
.byte 45
.byte 94
.byte 124
.byte 123
.byte 125
.byte 91
.byte 93
.byte 43
.byte 59
.byte 42
.byte 58
.byte 60
.byte 62
.byte 44
.byte 46
.byte 63
.byte 47
.byte 0
.size .485,28
.type .486,#object
.align 1
.486:
.byte 10
.byte 9
.byte 8
.byte 13
.byte 12
.byte 92
.byte 39
.byte 0
.size .486,8
.type .487,#object
.align 1
.487:
.byte 32
.byte 0
.byte 0
.size .487,3
.global s61
.section ".text"
.align 4
s61:
save %sp,-120,%sp
set .481,%i3
add %i0,60,%i2
mov %g0,%l7
.L488:
.L489:
mov %i2,%l3
add %l3,1,%i2
mov %i3,%l2
add %l2,1,%i3
ldsb [%l2],%l2
stb %l2,[%l3]
sll %l2,8*(4-1),%l3; sra %l3,8*(4-1),%l3
cmp %l3,0; bne .L488; nop
set -19,%l4
sll %l4,8*(4-2),%l3; sra %l3,8*(4-2),%l3
st %l3,[%fp+-28]
ld [%fp+-28],%l3
cmp %l3,-19; be .L491; nop
add %l7,1,%l7
ld [%i0+44],%l3
cmp %l3,0; be .L493; nop
set .480,%o0
set 1,%o1
call printf; nop
.L493:
.L491:
set .482,%l3
st %l3,[%fp+-24]
set .483,%l3
st %l3,[%fp+-20]
set .484,%l3
st %l3,[%fp+-16]
set .485,%l3
st %l3,[%fp+-12]
set .486,%l3
st %l3,[%fp+-8]
set .487,%l3
st %l3,[%fp+-4]
mov %g0,%i4
mov %g0,%i5
ba .L505; nop
.L504:
sll %i5,2,%l3
add -24,%fp,%l2
add %l3,%l2,%l3
ld [%l3],%l2
add %l2,1,%l1
st %l1,[%l3]
ldsb [%l2],%l3
cmp %l3,0; bge .L507; nop
set 1,%i4
.L507:
.L505:
sll %i5,2,%l3
add -24,%fp,%l2
ld [%l3+%l2],%l3
ldsb [%l3],%l3
cmp %l3,0; bne .L504; nop
.L501:
add %i5,1,%i5
cmp %i5,6; bl .L505; nop
cmp %i4,0; be .L509; nop
add %l7,2,%l7
ld [%i0+44],%l3
cmp %l3,0; be .L511; nop
set .480,%o0
set 2,%o1
call printf; nop
.L511:
.L509:
set 1048579,%i1
mov %i1,%l6
mov %i1,%l5
sll %l6,8*(4-2),%l3; sra %l3,8*(4-2),%l3
cmp %l3,%i1; be .L516; nop
cmp %l3,3; bne .L515; nop
.L516:
sll %l5,8*(4-1),%l3; sra %l3,8*(4-1),%l3
cmp %l3,%i1; be .L513; nop
cmp %l3,3; be .L513; nop
.L515:
add %l7,8,%l7
ld [%i0+44],%l3
cmp %l3,0; be .L517; nop
set .480,%o0
set 8,%o1
call printf; nop
.L517:
.L513:
mov %l7,%i0
.L479:
ret; restore
.type s61,#function
.size s61,.-s61
.section ".data"
.type .520,#object
.align 1
.520:
.byte 115
.byte 54
.byte 50
.byte 54
.byte 44
.byte 101
.byte 114
.byte 37
.byte 100
.byte 10
.byte 0
.size .520,11
.type .521,#object
.size .521,8
.align 1
.521:
.byte 115
.byte 54
.byte 50
.byte 54
.byte 32
.byte 32
.byte 32
.byte 0
.global s626
.section ".text"
.align 4
s626:
save %sp,-176,%sp
set .521,%i2
add %i0,60,%i1
st %g0,[%fp+-76]
.L522:
.L523:
mov %i1,%l3
add %l3,1,%i1
mov %i2,%l2
add %l2,1,%i2
ldsb [%l2],%l2
stb %l2,[%l3]
sll %l2,8*(4-1),%l3; sra %l3,8*(4-1),%l3
cmp %l3,0; bne .L522; nop
set .L411,%l3
ld [%l3],%f31
st %f31,[%fp+-32]
set 1,%l3
mov %l3,%l7
mov %l3,%i4
mov %g0,%i5
ba .L528; nop
.L525:
set .L529,%l3
ld [%l3],%f31
ld [%fp+-32],%f30
fmuls %f31,%f30,%f31
st %f31,[%fp+-32]
sll %i4,1,%l3
or %l3,%l7,%i4
.L526:
add %i5,1,%i5
.L528:
ld [%i0+12],%l3
sub %l3,2,%l3
cmp %i5,%l3; bl .L525; nop
st %i4,[%sp+64]; ld [%sp+64],%f31; fitos %f31,%f31
st %f31,[%fp+-84]
ld [%fp+-32],%f31
ld [%fp+-84],%f30
fsubs %f31,%f30,%f30
fdivs %f30,%f31,%f31
st %f31,[%fp+-32]
ld [%fp+-32],%f31
fstod %f31,%f30
set .L416,%l3
ld [%l3],%f28; ld [%l3+4],%f29
ld [%i0+28],%f27
fstod %f27,%f26
fmuld %f28,%f26,%f28
fcmpd %f30,%f28; nop; fbule .L530; nop
ld [%fp+-76],%l3
add %l3,2,%l3
st %l3,[%fp+-76]
ld [%i0+44],%l3
cmp %l3,0; be .L532; nop
set .520,%o0
set 2,%o1
call printf; nop
.L532:
.L530:
set 125,%l5
set 125,%l4
set 125,%l3
st %l3,[%fp+-48]
set 15625,%l3
st %l3,[%fp+-68]
set 125,%l3
st %l3,[%fp+-52]
set 15625,%l3
st %l3,[%fp+-72]
set 125,%l6
set 15625,%l3
st %l3,[%fp+-80]
set .L534,%l3
ld [%l3],%f31
st %f31,[%fp+-44]
set .L535,%l3
ld [%l3],%f30; ld [%l3+4],%f31
std %f30,[%fp+-64]
set .L536,%l3
ld [%l3],%f30; ld [%l3+4],%f31
std %f30,[%fp+-40]
mov %g0,%i5
.L537:
add -28,%fp,%l3
stb %g0,[%i5+%l3]
.L538:
add %i5,1,%i5
cmp %i5,28; bl .L537; nop
sll %l5,8*(4-1),%l3; sra %l3,8*(4-1),%l3
smul %l3,%l3,%l3
ld [%fp+-68],%l2
cmp %l3,%l2; be .L541; nop
set 1,%l3
stb %l3,[%fp+-28]
.L541:
sll %l4,8*(4-2),%l3; sra %l3,8*(4-2),%l3
sll %l5,8*(4-1),%l2; sra %l2,8*(4-1),%l2
smul %l2,%l3,%l3
ld [%fp+-68],%l2
cmp %l3,%l2; be .L543; nop
set 1,%l3
stb %l3,[%fp+-27]
.L543:
sll %l4,8*(4-2),%l3; sra %l3,8*(4-2),%l3
smul %l3,%l3,%l3
ld [%fp+-68],%l2
cmp %l3,%l2; be .L546; nop
set 1,%l3
stb %l3,[%fp+-26]
.L546:
ld [%fp+-48],%l3
sll %l5,8*(4-1),%l2; sra %l2,8*(4-1),%l2
smul %l2,%l3,%l3
ld [%fp+-68],%l2
cmp %l3,%l2; be .L549; nop
set 1,%l3
stb %l3,[%fp+-25]
.L549:
ld [%fp+-48],%l3
sll %l4,8*(4-2),%l2; sra %l2,8*(4-2),%l2
smul %l2,%l3,%l3
ld [%fp+-68],%l2
cmp %l3,%l2; be .L552; nop
set 1,%l3
stb %l3,[%fp+-24]
.L552:
ld [%fp+-48],%l3
smul %l3,%l3,%l3
ld [%fp+-68],%l2
cmp %l3,%l2; be .L555; nop
set 1,%l3
stb %l3,[%fp+-23]
.L555:
ld [%fp+-52],%l3
sll %l5,8*(4-1),%l2; sra %l2,8*(4-1),%l2
umul %l2,%l3,%l3
ld [%fp+-72],%l2
cmp %l3,%l2; be .L558; nop
set 1,%l3
stb %l3,[%fp+-22]
.L558:
ld [%fp+-52],%l3
sll %l4,8*(4-2),%l2; sra %l2,8*(4-2),%l2
umul %l2,%l3,%l3
ld [%fp+-72],%l2
cmp %l3,%l2; be .L561; nop
set 1,%l3
stb %l3,[%fp+-21]
.L561:
ld [%fp+-52],%l3
ld [%fp+-48],%l2
umul %l2,%l3,%l3
ld [%fp+-72],%l2
cmp %l3,%l2; be .L564; nop
set 1,%l3
stb %l3,[%fp+-20]
.L564:
ld [%fp+-52],%l3
umul %l3,%l3,%l3
ld [%fp+-72],%l2
cmp %l3,%l2; be .L567; nop
set 1,%l3
stb %l3,[%fp+-19]
.L567:
sll %l5,8*(4-1),%l3; sra %l3,8*(4-1),%l3
smul %l3,%l6,%l3
ld [%fp+-80],%l2
cmp %l3,%l2; be .L570; nop
set 1,%l3
stb %l3,[%fp+-18]
.L570:
sll %l4,8*(4-2),%l3; sra %l3,8*(4-2),%l3
smul %l3,%l6,%l3
ld [%fp+-80],%l2
cmp %l3,%l2; be .L573; nop
set 1,%l3
stb %l3,[%fp+-17]
.L573:
ld [%fp+-48],%l3
smul %l3,%l6,%l3
ld [%fp+-80],%l2
cmp %l3,%l2; be .L576; nop
set 1,%l3
stb %l3,[%fp+-16]
.L576:
mov %l6,%l3
ld [%fp+-52],%l2
umul %l2,%l3,%l3
ld [%fp+-72],%l2
cmp %l3,%l2; be .L579; nop
set 1,%l3
stb %l3,[%fp+-15]
.L579:
smul %l6,%l6,%l3
ld [%fp+-80],%l2
cmp %l3,%l2; be .L582; nop
set 1,%l3
stb %l3,[%fp+-14]
.L582:
ld [%fp+-44],%f31
sll %l5,8*(4-1),%l3; sra %l3,8*(4-1),%l3
st %l3,[%sp+64]; ld [%sp+64],%f30; fitos %f30,%f30
fmuls %f31,%f30,%f31
fstod %f31,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L585; nop
set 1,%l3
stb %l3,[%fp+-13]
.L585:
ld [%fp+-44],%f31
sll %l4,8*(4-2),%l3; sra %l3,8*(4-2),%l3
st %l3,[%sp+64]; ld [%sp+64],%f30; fitos %f30,%f30
fmuls %f31,%f30,%f31
fstod %f31,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L588; nop
set 1,%l3
stb %l3,[%fp+-12]
.L588:
ld [%fp+-44],%f31
ld [%fp+-48],%l3
st %l3,[%sp+64]; ld [%sp+64],%f30; fitos %f30,%f30
fmuls %f31,%f30,%f31
fstod %f31,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L591; nop
set 1,%l3
stb %l3,[%fp+-11]
.L591:
ld [%fp+-52],%l3
ld [%fp+-44],%f31
set .L596,%l2
ld [%l2],%f28; ld [%l2+4],%f29
srl %l3,1,%l2
st %l2,[%sp+64]; ld [%sp+64],%f26; fitod %f26,%f26
fmuld %f28,%f26,%f28
set 1,%l2
and %l3,%l2,%l3
st %l3,[%sp+64]; ld [%sp+64],%f26; fitod %f26,%f26
faddd %f28,%f26,%f28
fdtos %f28,%f30
fmuls %f31,%f30,%f31
fstod %f31,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L594; nop
set 1,%l3
stb %l3,[%fp+-10]
.L594:
ld [%fp+-44],%f31
st %l6,[%sp+64]; ld [%sp+64],%f30; fitos %f30,%f30
fmuls %f31,%f30,%f31
fstod %f31,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L598; nop
set 1,%l3
stb %l3,[%fp+-9]
.L598:
ld [%fp+-44],%f31
fmuls %f31,%f31,%f31
fstod %f31,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L601; nop
set 1,%l3
stb %l3,[%fp+-8]
.L601:
ldd [%fp+-64],%f30
sll %l5,8*(4-1),%l3; sra %l3,8*(4-1),%l3
st %l3,[%sp+64]; ld [%sp+64],%f28; fitod %f28,%f28
fmuld %f30,%f28,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L604; nop
set 1,%l3
stb %l3,[%fp+-7]
.L604:
ldd [%fp+-64],%f30
sll %l4,8*(4-2),%l3; sra %l3,8*(4-2),%l3
st %l3,[%sp+64]; ld [%sp+64],%f28; fitod %f28,%f28
fmuld %f30,%f28,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L607; nop
set 1,%l3
stb %l3,[%fp+-6]
.L607:
ldd [%fp+-64],%f30
ld [%fp+-48],%l3
st %l3,[%sp+64]; ld [%sp+64],%f28; fitod %f28,%f28
fmuld %f30,%f28,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L610; nop
set 1,%l3
stb %l3,[%fp+-5]
.L610:
ld [%fp+-52],%l3
ldd [%fp+-64],%f30
set .L596,%l2
ld [%l2],%f28; ld [%l2+4],%f29
srl %l3,1,%l2
st %l2,[%sp+64]; ld [%sp+64],%f26; fitod %f26,%f26
fmuld %f28,%f26,%f28
set 1,%l2
and %l3,%l2,%l3
st %l3,[%sp+64]; ld [%sp+64],%f26; fitod %f26,%f26
faddd %f28,%f26,%f28
fmuld %f30,%f28,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L613; nop
set 1,%l3
stb %l3,[%fp+-4]
.L613:
ldd [%fp+-64],%f30
st %l6,[%sp+64]; ld [%sp+64],%f28; fitod %f28,%f28
fmuld %f30,%f28,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L616; nop
set 1,%l3
stb %l3,[%fp+-3]
.L616:
ldd [%fp+-64],%f30
ld [%fp+-44],%f29
fstod %f29,%f28
fmuld %f30,%f28,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L619; nop
set 1,%l3
stb %l3,[%fp+-2]
.L619:
ldd [%fp+-64],%f30
fmuld %f30,%f30,%f30
ldd [%fp+-40],%f28
fcmpd %f30,%f28; nop; fbe .L622; nop
set 1,%l3
stb %l3,[%fp+-1]
.L622:
mov %g0,%i3
mov %g0,%i5
.L625:
sll %i3,8*(4-1),%l3; sra %l3,8*(4-1),%l3
add -28,%fp,%l2
ldsb [%i5+%l2],%l2
add %l3,%l2,%l3
mov %l3,%i3
.L626:
add %i5,1,%i5
cmp %i5,28; bl .L625; nop
sll %i3,8*(4-1),%l3; sra %l3,8*(4-1),%l3
cmp %l3,0; be .L629; nop
ld [%fp+-76],%l3
add %l3,4,%l3
st %l3,[%fp+-76]
ld [%i0+44],%l3
cmp %l3,0; be .L631; nop
set .520,%o0
set 4,%o1
call printf; nop
set .L633,%o0
call printf; nop
mov %g0,%i5
.L634:
set .L638,%o0
add -28,%fp,%l3
ldsb [%i5+%l3],%o1
call printf; nop
.L635:
add %i5,1,%i5
cmp %i5,28; bl .L634; nop
set .L639,%o0
call printf; nop
.L631:
.L629:
set 32768,%l6
mov %l6,%l3
set 0x8000,%l2
cmp %l3,%l2; bleu .L640; nop
ld [%fp+-76],%l3
add %l3,8,%l3
st %l3,[%fp+-76]
ld [%i0+44],%l3
cmp %l3,0; be .L642; nop
set .520,%o0
set 8,%o1
call printf; nop
.L642:
.L640:
ld [%fp+-76],%i0
.L519:
ret; restore
.type s626,#function
.size s626,.-s626
.section ".data"
.type .645,#object
.align 1
.645:
.byte 115
.byte 55
.byte 49
.byte 44
.byte 101
.byte 114
.byte 37
.byte 100
.byte 10
.byte 0
.size .645,10
.type .646,#object
.size .646,8
.align 1
.646:
.byte 115
.byte 55
.byte 49
.byte 32
.byte 32
.byte 32
.byte 32
.byte 0
.type .647,#object
.size .647,1
.align 1
.647:
.byte 0x71
.global s71
.section ".text"
.align 4
s71:
save %sp,-136,%sp
set .646,%i5
add %i0,60,%i4
mov %g0,%i3
.L648:
.L649:
mov %i4,%l7
add %l7,1,%i4
mov %i5,%l6
add %l6,1,%i5
ldsb [%l6],%l6
stb %l6,[%l7]
sll %l6,8*(4-1),%l7; sra %l7,8*(4-1),%l7
cmp %l7,0; bne .L648; nop
set .L653,%l7
ldsb [%l7],%l7
set .647,%l6
ldsb [%l6],%l6
cmp %l7,%l6; be .L651; nop
add %i3,1,%i3
ld [%i0+44],%l7
cmp %l7,0; be .L654; nop
set .645,%o0
set 1,%o1
call printf; nop
.L654:
.L651:
ba .L656; nop
add %i3,2,%i3
ld [%i0+44],%l7
cmp %l7,0; be .L658; nop
set .645,%o0
set 2,%o1
call printf; nop
.L658:
.L656:
set 1942,%l7
st %l7,[%fp+-20]
ld [%fp+-20],%l7
cmp %l7,1942; bne .L666; nop
ld [%fp+-20],%l7
ld [%fp+-20],%l6
cmp %l7,%l6; be .L661; nop
.L666:
add %i3,4,%i3
ld [%i0+44],%l7
cmp %l7,0; be .L667; nop
set .645,%o0
set 4,%o1
call printf; nop
.L667:
.L661:
set -5,%o0
call McCarthy; nop
cmp %o0,91; be .L669; nop
add %i3,8,%i3
ld [%i0+44],%l7
cmp %l7,0; be .L671; nop
set .645,%o0
set 8,%o1
call printf; nop
.L671:
.L669:
set 2,%i2
set 3,%l7
st %l7,[%fp+-44]
add -44,%fp,%i1
mov %i2,%o0
mov %i1,%o1
call clobber; nop
cmp %i2,2; bne .L675; nop
ld [%fp+-44],%l7
cmp %l7,2; be .L673; nop
.L675:
add %i3,16,%i3
ld [%i0+44],%l7
cmp %l7,0; be .L676; nop
set .645,%o0
set 16,%o1
call printf; nop
.L676:
.L673:
ld [%i0+32],%f31
fcmps %f31,%f31; nop; fbe .L678; nop
add %i3,32,%i3
ld [%i0+44],%l7
cmp %l7,0; be .L680; nop
set .645,%o0
set 32,%o1
call printf; nop
.L680:
.L678:
mov %i3,%i0
.L644:
ret; restore
.type s71,#function
.size s71,.-s71
.global McCarthy
.align 4
McCarthy:
save %sp,-96,%sp
cmp %i0,100; ble .L683; nop
sub %i0,10,%i0
ba .L682; nop
.L683:
add %i0,11,%o0
call McCarthy; nop
mov %o0,%i5
call McCarthy; nop
mov %o0,%i0
.L682:
ret; restore
.type McCarthy,#function
.size McCarthy,.-McCarthy
.global clobber
.align 4
clobber:
set 3,%o0
set 2,%o5
st %o5,[%o1]
mov %g0,%o0
.L685:
retl; nop
.type clobber,#function
.size clobber,.-clobber
.section ".data"
.type .687,#object
.align 1
.687:
.byte 76
.byte 111
.byte 99
.byte 97
.byte 108
.byte 32
.byte 101
.byte 114
.byte 114
.byte 111
.byte 114
.byte 32
.byte 37
.byte 100
.byte 46
.byte 10
.byte 0
.size .687,17
.type .688,#object
.align 1
.688:
.byte 115
.byte 55
.byte 49
.byte 52
.byte 44
.byte 101
.byte 114
.byte 37
.byte 100
.byte 10
.byte 0
.size .688,11
.type .689,#object
.size .689,8
.align 1
.689:
.byte 115
.byte 55
.byte 49
.byte 52
.byte 32