forked from NUDT-compiler/nudt-compiler-cpp
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
599 lines
11 KiB
599 lines
11 KiB
.data
|
|
.globl RADIUS
|
|
.p2align 2
|
|
RADIUS:
|
|
.word 1085276160
|
|
.globl PI
|
|
.p2align 2
|
|
PI:
|
|
.word 1078530011
|
|
.globl EPS
|
|
.p2align 2
|
|
EPS:
|
|
.word 897988541
|
|
.globl PI_HEX
|
|
.p2align 2
|
|
PI_HEX:
|
|
.word 1078530011
|
|
.globl HEX2
|
|
.p2align 2
|
|
HEX2:
|
|
.word 1033895936
|
|
.globl FACT
|
|
.p2align 2
|
|
FACT:
|
|
.word -956241920
|
|
.globl EVAL1
|
|
.p2align 2
|
|
EVAL1:
|
|
.word 1119752446
|
|
.globl EVAL2
|
|
.p2align 2
|
|
EVAL2:
|
|
.word 1107966695
|
|
.globl EVAL3
|
|
.p2align 2
|
|
EVAL3:
|
|
.word 1107966695
|
|
.globl CONV1
|
|
.p2align 2
|
|
CONV1:
|
|
.word 1130954752
|
|
.globl CONV2
|
|
.p2align 2
|
|
CONV2:
|
|
.word 1166012416
|
|
.globl MAX
|
|
.p2align 2
|
|
MAX:
|
|
.word 1000000000
|
|
.globl TWO
|
|
.p2align 2
|
|
TWO:
|
|
.word 2
|
|
.globl THREE
|
|
.p2align 2
|
|
THREE:
|
|
.word 3
|
|
.globl FIVE
|
|
.p2align 2
|
|
FIVE:
|
|
.word 5
|
|
|
|
.text
|
|
.globl float_abs
|
|
.p2align 2
|
|
float_abs:
|
|
.L.float_abs.0:
|
|
stp x29, x30, [sp, #-16]!
|
|
mov x29, sp
|
|
sub sp, sp, #32
|
|
stur s0, [x29, #-4]
|
|
ldur s8, [x29, #-4]
|
|
stur s8, [x29, #-8]
|
|
ldur s8, [x29, #-8]
|
|
stur s8, [x29, #-12]
|
|
ldur s8, [x29, #-12]
|
|
mov w14, #0
|
|
fmov s9, w14
|
|
fcmp s8, s9
|
|
b.lt .L.float_abs.1
|
|
b .L.float_abs.2
|
|
.L.float_abs.1:
|
|
ldur s8, [x29, #-8]
|
|
stur s8, [x29, #-16]
|
|
mov w14, #0
|
|
fmov s0, w14
|
|
ldur s8, [x29, #-16]
|
|
fsub s0, s0, s8
|
|
add sp, sp, #32
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
.L.float_abs.2:
|
|
ldur s8, [x29, #-8]
|
|
stur s8, [x29, #-20]
|
|
ldur s0, [x29, #-20]
|
|
add sp, sp, #32
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
|
|
.text
|
|
.globl circle_area
|
|
.p2align 2
|
|
circle_area:
|
|
.L.circle_area.0:
|
|
stp x29, x30, [sp, #-16]!
|
|
mov x29, sp
|
|
sub sp, sp, #32
|
|
stur w0, [x29, #-4]
|
|
ldur w8, [x29, #-4]
|
|
stur w8, [x29, #-8]
|
|
adrp x13, PI
|
|
ldr s8, [x13, #:lo12:PI]
|
|
stur s8, [x29, #-12]
|
|
ldur w8, [x29, #-8]
|
|
stur w8, [x29, #-16]
|
|
ldur w8, [x29, #-8]
|
|
stur w8, [x29, #-20]
|
|
ldur w8, [x29, #-8]
|
|
stur w8, [x29, #-24]
|
|
ldur w8, [x29, #-8]
|
|
stur w8, [x29, #-28]
|
|
adrp x13, PI
|
|
ldr s8, [x13, #:lo12:PI]
|
|
stur s8, [x29, #-32]
|
|
ldur s0, [x29, #-12]
|
|
ldur w14, [x29, #-16]
|
|
scvtf s11, w14
|
|
fmul s0, s0, s11
|
|
ldur w14, [x29, #-20]
|
|
scvtf s10, w14
|
|
fmul s0, s0, s10
|
|
ldur w14, [x29, #-24]
|
|
ldur w8, [x29, #-28]
|
|
mul w14, w14, w8
|
|
scvtf s9, w14
|
|
ldur s10, [x29, #-32]
|
|
fmul s9, s9, s10
|
|
fadd s0, s0, s9
|
|
movz w14, #0
|
|
movk w14, #16384, lsl #16
|
|
fmov s8, w14
|
|
fdiv s0, s0, s8
|
|
add sp, sp, #32
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
|
|
.text
|
|
.globl float_eq
|
|
.p2align 2
|
|
float_eq:
|
|
.L.float_eq.0:
|
|
stp x29, x30, [sp, #-16]!
|
|
mov x29, sp
|
|
sub sp, sp, #32
|
|
stur s0, [x29, #-4]
|
|
stur s1, [x29, #-8]
|
|
ldur s8, [x29, #-4]
|
|
stur s8, [x29, #-12]
|
|
ldur s8, [x29, #-8]
|
|
stur s8, [x29, #-16]
|
|
ldur s8, [x29, #-12]
|
|
stur s8, [x29, #-20]
|
|
ldur s8, [x29, #-16]
|
|
stur s8, [x29, #-24]
|
|
ldur s0, [x29, #-20]
|
|
ldur s8, [x29, #-24]
|
|
fsub s0, s0, s8
|
|
bl float_abs
|
|
stur s0, [x29, #-28]
|
|
adrp x13, EPS
|
|
ldr s8, [x13, #:lo12:EPS]
|
|
stur s8, [x29, #-32]
|
|
ldur s8, [x29, #-28]
|
|
ldur s9, [x29, #-32]
|
|
fcmp s8, s9
|
|
b.lt .L.float_eq.1
|
|
b .L.float_eq.2
|
|
.L.float_eq.1:
|
|
mov w0, #1
|
|
add sp, sp, #32
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
.L.float_eq.2:
|
|
mov w0, #0
|
|
add sp, sp, #32
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
.L.float_eq.3:
|
|
mov w0, #0
|
|
add sp, sp, #32
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
|
|
.text
|
|
.globl error
|
|
.p2align 2
|
|
error:
|
|
.L.error.0:
|
|
stp x29, x30, [sp, #-16]!
|
|
mov x29, sp
|
|
mov w0, #101
|
|
bl putch
|
|
mov w0, #114
|
|
bl putch
|
|
mov w0, #114
|
|
bl putch
|
|
mov w0, #111
|
|
bl putch
|
|
mov w0, #114
|
|
bl putch
|
|
mov w0, #10
|
|
bl putch
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
|
|
.text
|
|
.globl ok
|
|
.p2align 2
|
|
ok:
|
|
.L.ok.0:
|
|
stp x29, x30, [sp, #-16]!
|
|
mov x29, sp
|
|
mov w0, #111
|
|
bl putch
|
|
mov w0, #107
|
|
bl putch
|
|
mov w0, #10
|
|
bl putch
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
|
|
.text
|
|
.globl assert
|
|
.p2align 2
|
|
assert:
|
|
.L.assert.0:
|
|
stp x29, x30, [sp, #-16]!
|
|
mov x29, sp
|
|
sub sp, sp, #16
|
|
stur w0, [x29, #-4]
|
|
ldur w8, [x29, #-4]
|
|
stur w8, [x29, #-8]
|
|
ldur w8, [x29, #-8]
|
|
stur w8, [x29, #-12]
|
|
ldur w8, [x29, #-12]
|
|
mov w9, #0
|
|
cmp w8, w9
|
|
b.eq .L.assert.1
|
|
b .L.assert.2
|
|
.L.assert.1:
|
|
bl error
|
|
b .L.assert.3
|
|
.L.assert.2:
|
|
bl ok
|
|
b .L.assert.3
|
|
.L.assert.3:
|
|
add sp, sp, #16
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
|
|
.text
|
|
.globl assert_not
|
|
.p2align 2
|
|
assert_not:
|
|
.L.assert_not.0:
|
|
stp x29, x30, [sp, #-16]!
|
|
mov x29, sp
|
|
sub sp, sp, #16
|
|
stur w0, [x29, #-4]
|
|
ldur w8, [x29, #-4]
|
|
stur w8, [x29, #-8]
|
|
ldur w8, [x29, #-8]
|
|
stur w8, [x29, #-12]
|
|
ldur w8, [x29, #-12]
|
|
mov w9, #0
|
|
cmp w8, w9
|
|
b.ne .L.assert_not.1
|
|
b .L.assert_not.2
|
|
.L.assert_not.1:
|
|
bl error
|
|
b .L.assert_not.3
|
|
.L.assert_not.2:
|
|
bl ok
|
|
b .L.assert_not.3
|
|
.L.assert_not.3:
|
|
add sp, sp, #16
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
|
|
.text
|
|
.globl main
|
|
.p2align 2
|
|
main:
|
|
.L.main.0:
|
|
stp x29, x30, [sp, #-16]!
|
|
mov x29, sp
|
|
sub sp, sp, #208
|
|
adrp x13, HEX2
|
|
ldr s8, [x13, #:lo12:HEX2]
|
|
stur s8, [x29, #-68]
|
|
adrp x13, FACT
|
|
ldr s8, [x13, #:lo12:FACT]
|
|
stur s8, [x29, #-72]
|
|
ldur s0, [x29, #-68]
|
|
ldur s1, [x29, #-72]
|
|
bl float_eq
|
|
stur w0, [x29, #-76]
|
|
ldur w0, [x29, #-76]
|
|
bl assert_not
|
|
adrp x13, EVAL1
|
|
ldr s8, [x13, #:lo12:EVAL1]
|
|
stur s8, [x29, #-80]
|
|
adrp x13, EVAL2
|
|
ldr s8, [x13, #:lo12:EVAL2]
|
|
stur s8, [x29, #-84]
|
|
ldur s0, [x29, #-80]
|
|
ldur s1, [x29, #-84]
|
|
bl float_eq
|
|
stur w0, [x29, #-88]
|
|
ldur w0, [x29, #-88]
|
|
bl assert_not
|
|
adrp x13, EVAL2
|
|
ldr s8, [x13, #:lo12:EVAL2]
|
|
stur s8, [x29, #-92]
|
|
adrp x13, EVAL3
|
|
ldr s8, [x13, #:lo12:EVAL3]
|
|
stur s8, [x29, #-96]
|
|
ldur s0, [x29, #-92]
|
|
ldur s1, [x29, #-96]
|
|
bl float_eq
|
|
stur w0, [x29, #-100]
|
|
ldur w0, [x29, #-100]
|
|
bl assert
|
|
adrp x13, RADIUS
|
|
ldr s8, [x13, #:lo12:RADIUS]
|
|
stur s8, [x29, #-104]
|
|
ldur s8, [x29, #-104]
|
|
fcvtzs w0, s8
|
|
bl circle_area
|
|
stur s0, [x29, #-108]
|
|
mov w0, #5
|
|
bl circle_area
|
|
stur s0, [x29, #-112]
|
|
ldur s0, [x29, #-108]
|
|
ldur s1, [x29, #-112]
|
|
bl float_eq
|
|
stur w0, [x29, #-116]
|
|
ldur w0, [x29, #-116]
|
|
bl assert
|
|
adrp x13, CONV1
|
|
ldr s8, [x13, #:lo12:CONV1]
|
|
stur s8, [x29, #-120]
|
|
adrp x13, CONV2
|
|
ldr s8, [x13, #:lo12:CONV2]
|
|
stur s8, [x29, #-124]
|
|
ldur s0, [x29, #-120]
|
|
ldur s1, [x29, #-124]
|
|
bl float_eq
|
|
stur w0, [x29, #-128]
|
|
ldur w0, [x29, #-128]
|
|
bl assert_not
|
|
movz w14, #0
|
|
movk w14, #16320, lsl #16
|
|
fmov s8, w14
|
|
mov w14, #0
|
|
fmov s9, w14
|
|
fcmp s8, s9
|
|
b.ne .L.main.1
|
|
b .L.main.2
|
|
.L.main.1:
|
|
bl ok
|
|
b .L.main.2
|
|
.L.main.2:
|
|
mov w8, #1
|
|
mov w9, #0
|
|
cmp w8, w9
|
|
b.ne .L.main.3
|
|
b .L.main.4
|
|
.L.main.3:
|
|
bl ok
|
|
b .L.main.4
|
|
.L.main.4:
|
|
mov w14, #0
|
|
fmov s8, w14
|
|
mov w14, #0
|
|
fmov s9, w14
|
|
fcmp s8, s9
|
|
b.ne .L.main.7
|
|
b .L.main.6
|
|
.L.main.5:
|
|
bl error
|
|
b .L.main.6
|
|
.L.main.6:
|
|
mov w8, #0
|
|
mov w9, #0
|
|
cmp w8, w9
|
|
b.ne .L.main.8
|
|
b .L.main.10
|
|
.L.main.7:
|
|
mov w8, #3
|
|
mov w9, #0
|
|
cmp w8, w9
|
|
b.ne .L.main.5
|
|
b .L.main.6
|
|
.L.main.8:
|
|
bl ok
|
|
b .L.main.9
|
|
.L.main.9:
|
|
mov w8, #1
|
|
stur w8, [x29, #-4]
|
|
mov w8, #0
|
|
stur w8, [x29, #-8]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
movz w14, #0
|
|
movk w14, #16256, lsl #16
|
|
fmov s8, w14
|
|
str s8, [x15]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
mov x14, #4
|
|
add x15, x15, x14
|
|
movz w14, #0
|
|
movk w14, #16384, lsl #16
|
|
fmov s8, w14
|
|
str s8, [x15]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
mov x14, #8
|
|
add x15, x15, x14
|
|
mov w14, #0
|
|
fmov s8, w14
|
|
str s8, [x15]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
mov x14, #12
|
|
add x15, x15, x14
|
|
mov w14, #0
|
|
fmov s8, w14
|
|
str s8, [x15]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
mov x14, #16
|
|
add x15, x15, x14
|
|
mov w14, #0
|
|
fmov s8, w14
|
|
str s8, [x15]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
mov x14, #20
|
|
add x15, x15, x14
|
|
mov w14, #0
|
|
fmov s8, w14
|
|
str s8, [x15]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
mov x14, #24
|
|
add x15, x15, x14
|
|
mov w14, #0
|
|
fmov s8, w14
|
|
str s8, [x15]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
mov x14, #28
|
|
add x15, x15, x14
|
|
mov w14, #0
|
|
fmov s8, w14
|
|
str s8, [x15]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
mov x14, #32
|
|
add x15, x15, x14
|
|
mov w14, #0
|
|
fmov s8, w14
|
|
str s8, [x15]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
mov x14, #36
|
|
add x15, x15, x14
|
|
mov w14, #0
|
|
fmov s8, w14
|
|
str s8, [x15]
|
|
mov x0, x29
|
|
sub x0, x0, #48
|
|
bl getfarray
|
|
stur w0, [x29, #-132]
|
|
ldur w8, [x29, #-132]
|
|
stur w8, [x29, #-52]
|
|
b .L.main.11
|
|
.L.main.10:
|
|
movz w14, #39322
|
|
movk w14, #16025, lsl #16
|
|
fmov s8, w14
|
|
mov w14, #0
|
|
fmov s9, w14
|
|
fcmp s8, s9
|
|
b.ne .L.main.8
|
|
b .L.main.9
|
|
.L.main.11:
|
|
ldur w8, [x29, #-4]
|
|
stur w8, [x29, #-136]
|
|
ldur w8, [x29, #-136]
|
|
movz w9, #51712
|
|
movk w9, #15258, lsl #16
|
|
cmp w8, w9
|
|
b.lt .L.main.12
|
|
b .L.main.13
|
|
.L.main.12:
|
|
bl getfloat
|
|
stur s0, [x29, #-140]
|
|
ldur s8, [x29, #-140]
|
|
stur s8, [x29, #-56]
|
|
adrp x13, PI
|
|
ldr s8, [x13, #:lo12:PI]
|
|
stur s8, [x29, #-144]
|
|
ldur s8, [x29, #-56]
|
|
stur s8, [x29, #-148]
|
|
ldur s8, [x29, #-56]
|
|
stur s8, [x29, #-152]
|
|
ldur s8, [x29, #-144]
|
|
ldur s10, [x29, #-148]
|
|
fmul s8, s8, s10
|
|
ldur s9, [x29, #-152]
|
|
fmul s8, s8, s9
|
|
stur s8, [x29, #-60]
|
|
ldur s8, [x29, #-56]
|
|
stur s8, [x29, #-156]
|
|
ldur s8, [x29, #-156]
|
|
fcvtzs w0, s8
|
|
bl circle_area
|
|
stur s0, [x29, #-160]
|
|
ldur s8, [x29, #-160]
|
|
stur s8, [x29, #-64]
|
|
ldur w8, [x29, #-8]
|
|
stur w8, [x29, #-164]
|
|
ldur w8, [x29, #-8]
|
|
stur w8, [x29, #-168]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
ldur w14, [x29, #-168]
|
|
sxtw x14, w14
|
|
lsl x14, x14, #2
|
|
add x15, x15, x14
|
|
ldr s8, [x15]
|
|
stur s8, [x29, #-172]
|
|
ldur s8, [x29, #-56]
|
|
stur s8, [x29, #-176]
|
|
mov x15, x29
|
|
sub x15, x15, #48
|
|
ldur w14, [x29, #-164]
|
|
sxtw x14, w14
|
|
lsl x14, x14, #2
|
|
add x15, x15, x14
|
|
ldur s8, [x29, #-172]
|
|
ldur s9, [x29, #-176]
|
|
fadd s8, s8, s9
|
|
str s8, [x15]
|
|
ldur s8, [x29, #-60]
|
|
stur s8, [x29, #-180]
|
|
ldur s0, [x29, #-180]
|
|
bl putfloat
|
|
mov w0, #32
|
|
bl putch
|
|
ldur s8, [x29, #-64]
|
|
stur s8, [x29, #-184]
|
|
ldur s8, [x29, #-184]
|
|
fcvtzs w0, s8
|
|
bl putint
|
|
mov w0, #10
|
|
bl putch
|
|
ldur w8, [x29, #-4]
|
|
stur w8, [x29, #-188]
|
|
ldur w14, [x29, #-188]
|
|
scvtf s8, w14
|
|
movz w14, #0
|
|
movk w14, #16672, lsl #16
|
|
fmov s9, w14
|
|
fmul s8, s8, s9
|
|
fcvtzs w8, s8
|
|
stur w8, [x29, #-4]
|
|
ldur w8, [x29, #-8]
|
|
stur w8, [x29, #-192]
|
|
ldur w8, [x29, #-192]
|
|
mov w9, #1
|
|
add w8, w8, w9
|
|
stur w8, [x29, #-8]
|
|
b .L.main.11
|
|
.L.main.13:
|
|
ldur w8, [x29, #-52]
|
|
stur w8, [x29, #-196]
|
|
ldur w0, [x29, #-196]
|
|
mov x1, x29
|
|
sub x1, x1, #48
|
|
bl putfarray
|
|
mov w0, #0
|
|
add sp, sp, #208
|
|
ldp x29, x30, [sp], #16
|
|
ret
|