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.
441 lines
7.2 KiB
441 lines
7.2 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
|
|
fmov s8, s0
|
|
mov w8, #0
|
|
fmov s9, w8
|
|
fcmp s8, s9
|
|
b.lt .L.float_abs.1
|
|
b .L.float_abs.2
|
|
.L.float_abs.1:
|
|
mov w8, #0
|
|
fmov s9, w8
|
|
fsub s8, s9, s8
|
|
fmov s0, s8
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
.L.float_abs.2:
|
|
fmov s0, s8
|
|
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
|
|
mov w8, w0
|
|
adrp x13, PI
|
|
ldr s8, [x13, #:lo12:PI]
|
|
scvtf s9, w8
|
|
fmul s8, s8, s9
|
|
scvtf s9, w8
|
|
fmul s8, s8, s9
|
|
mul w8, w8, w8
|
|
adrp x13, PI
|
|
ldr s9, [x13, #:lo12:PI]
|
|
scvtf s10, w8
|
|
fmul s9, s10, s9
|
|
fadd s8, s8, s9
|
|
movz w8, #0
|
|
movk w8, #16384, lsl #16
|
|
fmov s9, w8
|
|
fdiv s8, s8, s9
|
|
fmov s0, s8
|
|
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
|
|
fmov s8, s0
|
|
fmov s9, s1
|
|
fsub s8, s8, s9
|
|
fmov s0, s8
|
|
bl float_abs
|
|
fmov s8, s0
|
|
adrp x13, EPS
|
|
ldr s9, [x13, #:lo12:EPS]
|
|
fcmp s8, s9
|
|
b.lt .L.float_eq.1
|
|
b .L.float_eq.2
|
|
.L.float_eq.1:
|
|
mov w8, #1
|
|
mov w0, w8
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
.L.float_eq.2:
|
|
mov w8, #0
|
|
mov w0, w8
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
|
|
.text
|
|
.globl error
|
|
.p2align 2
|
|
error:
|
|
.L.error.0:
|
|
stp x29, x30, [sp, #-16]!
|
|
mov x29, sp
|
|
sub sp, sp, #32
|
|
str x19, [sp, #0]
|
|
mov w8, #101
|
|
mov w0, w8
|
|
bl putch
|
|
mov w19, #114
|
|
mov w0, w19
|
|
bl putch
|
|
mov w0, w19
|
|
bl putch
|
|
mov w8, #111
|
|
mov w0, w8
|
|
bl putch
|
|
mov w0, w19
|
|
bl putch
|
|
mov w8, #10
|
|
mov w0, w8
|
|
bl putch
|
|
ldr x19, [sp, #0]
|
|
add sp, sp, #32
|
|
ldp x29, x30, [sp], #16
|
|
ret
|
|
|
|
.text
|
|
.globl ok
|
|
.p2align 2
|
|
ok:
|
|
.L.ok.0:
|
|
stp x29, x30, [sp, #-16]!
|
|
mov x29, sp
|
|
mov w8, #111
|
|
mov w0, w8
|
|
bl putch
|
|
mov w8, #107
|
|
mov w0, w8
|
|
bl putch
|
|
mov w8, #10
|
|
mov w0, w8
|
|
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
|
|
mov w8, w0
|
|
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:
|
|
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
|
|
mov w8, w0
|
|
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:
|
|
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, #112
|
|
str x21, [sp, #0]
|
|
str x19, [sp, #8]
|
|
str x20, [sp, #16]
|
|
str s16, [sp, #24]
|
|
str s17, [sp, #28]
|
|
str s18, [sp, #32]
|
|
adrp x13, HEX2
|
|
ldr s8, [x13, #:lo12:HEX2]
|
|
adrp x13, FACT
|
|
ldr s9, [x13, #:lo12:FACT]
|
|
fmov s0, s8
|
|
fmov s1, s9
|
|
bl float_eq
|
|
mov w8, w0
|
|
mov w0, w8
|
|
bl assert_not
|
|
adrp x13, EVAL1
|
|
ldr s9, [x13, #:lo12:EVAL1]
|
|
adrp x13, EVAL2
|
|
ldr s8, [x13, #:lo12:EVAL2]
|
|
fmov s0, s9
|
|
fmov s1, s8
|
|
bl float_eq
|
|
mov w8, w0
|
|
mov w0, w8
|
|
bl assert_not
|
|
adrp x13, EVAL2
|
|
ldr s9, [x13, #:lo12:EVAL2]
|
|
adrp x13, EVAL3
|
|
ldr s8, [x13, #:lo12:EVAL3]
|
|
fmov s0, s9
|
|
fmov s1, s8
|
|
bl float_eq
|
|
mov w8, w0
|
|
mov w0, w8
|
|
bl assert
|
|
adrp x13, RADIUS
|
|
ldr s8, [x13, #:lo12:RADIUS]
|
|
fcvtzs w8, s8
|
|
mov w0, w8
|
|
bl circle_area
|
|
fmov s16, s0
|
|
mov w8, #5
|
|
mov w0, w8
|
|
bl circle_area
|
|
fmov s8, s0
|
|
fmov s0, s16
|
|
fmov s1, s8
|
|
bl float_eq
|
|
mov w8, w0
|
|
mov w0, w8
|
|
bl assert
|
|
adrp x13, CONV1
|
|
ldr s8, [x13, #:lo12:CONV1]
|
|
adrp x13, CONV2
|
|
ldr s9, [x13, #:lo12:CONV2]
|
|
fmov s0, s8
|
|
fmov s1, s9
|
|
bl float_eq
|
|
mov w8, w0
|
|
mov w0, w8
|
|
bl assert_not
|
|
b .L.main.1
|
|
.L.main.1:
|
|
bl ok
|
|
b .L.main.2
|
|
.L.main.2:
|
|
b .L.main.3
|
|
.L.main.3:
|
|
bl ok
|
|
b .L.main.4
|
|
.L.main.4:
|
|
b .L.main.5
|
|
.L.main.5:
|
|
b .L.main.8
|
|
.L.main.6:
|
|
bl ok
|
|
b .L.main.7
|
|
.L.main.7:
|
|
mov x10, x29
|
|
sub x10, x10, #40
|
|
movz w8, #0
|
|
movk w8, #16256, lsl #16
|
|
fmov s8, w8
|
|
str s8, [x10]
|
|
mov x8, #4
|
|
add x9, x10, x8
|
|
movz w8, #0
|
|
movk w8, #16384, lsl #16
|
|
fmov s8, w8
|
|
str s8, [x9]
|
|
mov x8, #8
|
|
add x8, x10, x8
|
|
mov w9, #0
|
|
fmov s8, w9
|
|
str s8, [x8]
|
|
mov x8, #12
|
|
add x8, x10, x8
|
|
str s8, [x8]
|
|
mov x8, #16
|
|
add x8, x10, x8
|
|
str s8, [x8]
|
|
mov x8, #20
|
|
add x8, x10, x8
|
|
str s8, [x8]
|
|
mov x8, #24
|
|
add x8, x10, x8
|
|
str s8, [x8]
|
|
mov x8, #28
|
|
add x8, x10, x8
|
|
str s8, [x8]
|
|
mov x8, #32
|
|
add x8, x10, x8
|
|
str s8, [x8]
|
|
mov x8, #36
|
|
add x8, x10, x8
|
|
str s8, [x8]
|
|
mov x0, x10
|
|
bl getfarray
|
|
mov w8, w0
|
|
mov w19, w8
|
|
mov w8, #0
|
|
mov w20, w8
|
|
mov w8, #1
|
|
mov w21, w8
|
|
b .L.main.9
|
|
.L.main.8:
|
|
b .L.main.6
|
|
.L.main.9:
|
|
movz w8, #51712
|
|
movk w8, #15258, lsl #16
|
|
cmp w21, w8
|
|
b.lt .L.main.10
|
|
b .L.main.11
|
|
.L.main.10:
|
|
bl getfloat
|
|
fmov s18, s0
|
|
adrp x13, PI
|
|
ldr s8, [x13, #:lo12:PI]
|
|
fmul s8, s8, s18
|
|
fmul s17, s8, s18
|
|
fcvtzs w8, s18
|
|
mov w0, w8
|
|
bl circle_area
|
|
fmov s16, s0
|
|
mov x9, x29
|
|
sub x9, x9, #40
|
|
sxtw x8, w20
|
|
lsl x8, x8, #2
|
|
add x8, x9, x8
|
|
ldr s8, [x8]
|
|
fadd s8, s8, s18
|
|
sxtw x8, w20
|
|
lsl x8, x8, #2
|
|
add x8, x9, x8
|
|
str s8, [x8]
|
|
fmov s0, s17
|
|
bl putfloat
|
|
mov w8, #32
|
|
mov w0, w8
|
|
bl putch
|
|
fcvtzs w8, s16
|
|
mov w0, w8
|
|
bl putint
|
|
mov w8, #10
|
|
mov w0, w8
|
|
bl putch
|
|
scvtf s9, w21
|
|
movz w8, #0
|
|
movk w8, #16672, lsl #16
|
|
fmov s8, w8
|
|
fmul s8, s9, s8
|
|
fcvtzs w8, s8
|
|
mov w9, #1
|
|
add w9, w20, w9
|
|
mov w20, w9
|
|
mov w21, w8
|
|
b .L.main.9
|
|
.L.main.11:
|
|
mov w0, w19
|
|
mov x8, x29
|
|
sub x8, x8, #40
|
|
mov x1, x8
|
|
bl putfarray
|
|
mov w8, #0
|
|
mov w0, w8
|
|
ldr x21, [sp, #0]
|
|
ldr x19, [sp, #8]
|
|
ldr x20, [sp, #16]
|
|
ldr s16, [sp, #24]
|
|
ldr s17, [sp, #28]
|
|
ldr s18, [sp, #32]
|
|
add sp, sp, #112
|
|
ldp x29, x30, [sp], #16
|
|
ret
|