aboutsummaryrefslogtreecommitdiff
path: root/fib_eqI_b.ll
diff options
context:
space:
mode:
Diffstat (limited to 'fib_eqI_b.ll')
-rw-r--r--fib_eqI_b.ll91
1 files changed, 52 insertions, 39 deletions
diff --git a/fib_eqI_b.ll b/fib_eqI_b.ll
index 72e08e1..a6a684b 100644
--- a/fib_eqI_b.ll
+++ b/fib_eqI_b.ll
@@ -1,4 +1,4 @@
-define {i64*,i64*} @e_fib_eqI_b_nfib(i64* %hp.0, i64** %globasp, i64* %n) align 8
+define {i64*,i64**,i64*} @e_fib_eqI_b_nfib(i64* %hp.0, i64** %globasp.0, i64* %n) align 8
prefix {i8*, i64} {i8* inttoptr (i64 0 to i8*), i64 1} {
%astack = alloca i64*, i64 10
%asp.000 = getelementptr i64*, i64** %astack
@@ -8,15 +8,17 @@ define {i64*,i64*} @e_fib_eqI_b_nfib(i64* %hp.0, i64** %globasp, i64* %n) align
%asp.001 = getelementptr i64*, i64** %asp.000, i64 1
store i64* %n, i64** %asp.001
- %t.0 = bitcast {i64*,i64*}(i64**,i64*)* @_cycle_in_spine to i64*
+ %t.0 = bitcast {i64*,i64**,i64*}(i64*,i64**)* @_cycle_in_spine to i64*
%asp.002 = call i64** @push_node(i64* %t.0, i64 1, i64** %asp.001)
%t.1 = call i64* @peek_a(i64** %asp.002)
%asp.003 = call i64** @pop_a1(i64** %asp.002)
- %globasp.0 = call i64** @_push_local_astack(i64** %asp.003, i64** %asp.000, i64** %globasp)
- %t.2 = call {i64*,i64} @ea1(i64* %hp.0, i64** %globasp.0, i64* %t.1)
- %hp.1 = extractvalue {i64*,i64} %t.2, 0
- %t.2.0 = extractvalue {i64*,i64} %t.2, 1
+ %globasp.1 = call i64** @_push_local_astack(i64** %asp.003, i64** %asp.000, i64** %globasp.0)
+ %t.2 = call {i64*,i64**,i64} @ea1(i64* %hp.0, i64** %globasp.1, i64* %t.1)
+ %hp.1 = extractvalue {i64*,i64**,i64} %t.2, 0
+ %globasp.2 = extractvalue {i64*,i64**,i64} %t.2, 1
+ %t.2.0 = extractvalue {i64*,i64**,i64} %t.2, 2
+ %globasp.3 = call i64** @_pop_global_astack(i64** %asp.003, i64** %asp.000, i64** %globasp.2)
%bsp.001 = call i64* @pushI(i64 %t.2.0, i64* %bsp.000)
%asp.004 = call i64** @fillI_b(i64 0, i64 -0, i64* %bsp.001, i64** %asp.003)
@@ -25,12 +27,13 @@ define {i64*,i64*} @e_fib_eqI_b_nfib(i64* %hp.0, i64** %globasp, i64* %n) align
%t.3 = call i64* @peek_a(i64** %asp.004)
%asp.005 = call i64** @pop_a1(i64** %asp.004)
- %ret.0 = insertvalue {i64*,i64*} undef, i64* %hp.1, 0
- %ret.1 = insertvalue {i64*,i64*} %ret.0, i64* %t.3, 1
- ret {i64*,i64*} %ret.1
+ %ret.0 = insertvalue {i64*,i64**,i64*} undef, i64* %hp.1, 0
+ %ret.1 = insertvalue {i64*,i64**,i64*} %ret.0, i64** %globasp.3, 1
+ %ret.2 = insertvalue {i64*,i64**,i64*} %ret.1, i64* %t.3, 2
+ ret {i64*,i64**,i64*} %ret.2
}
-define private {i64*,i64} @ea1(i64* %hp.0, i64** %globasp, i64* %n) {
+define private {i64*,i64**,i64} @ea1(i64* %hp.0, i64** %globasp.0, i64* %n) {
%astack = alloca i64*, i64 10
%asp.000 = getelementptr i64*, i64** %astack, i64 0
%bstack = alloca i64, i64 10
@@ -39,22 +42,26 @@ define private {i64*,i64} @ea1(i64* %hp.0, i64** %globasp, i64* %n) {
%asp.001 = getelementptr i64*, i64** %asp.000, i64 1
store i64* %n, i64** %asp.001
- %hp.1 = call i64* @jsr_eval(i64 -0, i64** %asp.001, i64** %asp.000, i64** %globasp, i64* %hp.0)
+ %j.0 = call {i64*,i64**} @jsr_eval(i64 -0, i64** %asp.001, i64** %asp.000, i64** %globasp.0, i64* %hp.0)
+ %hp.1 = extractvalue {i64*,i64**} %j.0, 0
+ %globasp.1 = extractvalue {i64*,i64**} %j.0, 1
%bsp.001 = call i64* @pushI_a(i64 -0, i64* %bsp.000, i64** %asp.001)
%asp.002 = call i64** @pop_a1(i64** %asp.001)
%t.0 = call i64 @peek_b(i64* %bsp.001)
%bsp.002 = call i64* @pop_b1(i64* %bsp.001)
- %t.1 = tail call {i64*,i64} @s1(i64* %hp.1, i64** %globasp, i64 %t.0)
- %hp.2 = extractvalue {i64*,i64} %t.1, 0
- %t.2 = extractvalue {i64*,i64} %t.1, 1
-
- %ret.0 = insertvalue {i64*,i64} undef, i64* %hp.2, 0
- %ret.1 = insertvalue {i64*,i64} %ret.0, i64 %t.2, 1
- ret {i64*,i64} %ret.1
+ %t.1 = tail call {i64*,i64**,i64} @s1(i64* %hp.1, i64** %globasp.1, i64 %t.0)
+ %hp.2 = extractvalue {i64*,i64**,i64} %t.1, 0
+ %globasp.2 = extractvalue {i64*,i64**,i64} %t.1, 1
+ %t.2 = extractvalue {i64*,i64**,i64} %t.1, 2
+
+ %ret.0 = insertvalue {i64*,i64**,i64} undef, i64* %hp.2, 0
+ %ret.1 = insertvalue {i64*,i64**,i64} %ret.0, i64** %globasp.2, 1
+ %ret.2 = insertvalue {i64*,i64**,i64} %ret.1, i64 %t.2, 2
+ ret {i64*,i64**,i64} %ret.2
}
-define private {i64*,i64} @s1(i64* %hp.0, i64** %globasp, i64 %arg) #0 {
+define private {i64*,i64**,i64} @s1(i64* %hp.0, i64** %globasp.0, i64 %arg) #0 {
%astack = alloca i64*, i64 10000
%asp.000 = getelementptr i64*, i64** %astack
%bstack = alloca i64, i64 10000
@@ -82,9 +89,10 @@ case.1:
%r.1 = call i64 @peek_b(i64* %bsp.101)
%bsp.102 = call i64* @pop_b1(i64* %bsp.101)
- %ret.0 = insertvalue {i64*,i64} undef, i64* %hp.0, 0
- %ret.1 = insertvalue {i64*,i64} %ret.0, i64 %r.1, 1
- ret {i64*,i64} %ret.1
+ %ret.0 = insertvalue {i64*,i64**,i64} undef, i64* %hp.0, 0
+ %ret.1 = insertvalue {i64*,i64**,i64} %ret.0, i64** %globasp.0, 1
+ %ret.2 = insertvalue {i64*,i64**,i64} %ret.1, i64 %r.1, 2
+ ret {i64*,i64**,i64} %ret.2
case.2:
%bsp.200 = call i64* @pop_b1(i64* %bsp.005)
@@ -93,9 +101,10 @@ case.2:
%r.2 = call i64 @peek_b(i64* %bsp.201)
%bsp.202 = call i64* @pop_b1(i64* %bsp.201)
- %ret.2 = insertvalue {i64*,i64} undef, i64* %hp.0, 0
- %ret.3 = insertvalue {i64*,i64} %ret.2, i64 %r.2, 1
- ret {i64*,i64} %ret.3
+ %ret.3 = insertvalue {i64*,i64**,i64} undef, i64* %hp.0, 0
+ %ret.4 = insertvalue {i64*,i64**,i64} %ret.3, i64** %globasp.0, 1
+ %ret.5 = insertvalue {i64*,i64**,i64} %ret.4, i64 %r.2, 2
+ ret {i64*,i64**,i64} %ret.5
case.3:
%bsp.300 = call i64* @pushI(i64 1, i64* %bsp.005)
@@ -104,9 +113,10 @@ case.3:
%arg.0 = call i64 @peek_b(i64* %bsp.302)
%bsp.302.0 = call i64* @pop_b1(i64* %bsp.302)
- %t.4 = call {i64*,i64} @s1(i64* %hp.0, i64** %globasp, i64 %arg.0)
- %hp.1 = extractvalue {i64*,i64} %t.4, 0
- %t.5 = extractvalue {i64*,i64} %t.4, 1
+ %t.4 = call {i64*,i64**,i64} @s1(i64* %hp.0, i64** %globasp.0, i64 %arg.0)
+ %hp.1 = extractvalue {i64*,i64**,i64} %t.4, 0
+ %globasp.1 = extractvalue {i64*,i64**,i64} %t.4, 1
+ %t.5 = extractvalue {i64*,i64**,i64} %t.4, 2
%bsp.303 = call i64* @pushI(i64 %t.5, i64* %bsp.302.0)
%bsp.304 = call i64* @pushI(i64 2, i64* %bsp.303)
@@ -115,9 +125,10 @@ case.3:
%arg.1 = call i64 @peek_b(i64* %bsp.306)
%bsp.306.0 = call i64* @pop_b1(i64* %bsp.306)
- %t.6 = call {i64*,i64} @s1(i64* %hp.1, i64** %globasp, i64 %arg.1)
- %hp.2 = extractvalue {i64*,i64} %t.6, 0
- %t.7 = extractvalue {i64*,i64} %t.6, 1
+ %t.6 = call {i64*,i64**,i64} @s1(i64* %hp.1, i64** %globasp.1, i64 %arg.1)
+ %hp.2 = extractvalue {i64*,i64**,i64} %t.6, 0
+ %globasp.2 = extractvalue {i64*,i64**,i64} %t.6, 1
+ %t.7 = extractvalue {i64*,i64**,i64} %t.6, 2
%bsp.307 = call i64* @pushI(i64 %t.7, i64* %bsp.306.0)
%bsp.308 = call i64* @update_b(i64 1, i64 2, i64* %bsp.307)
@@ -127,14 +138,15 @@ case.3:
%r.3 = call i64 @peek_b(i64* %bsp.310)
%bsp.311 = call i64* @pop_b1(i64* %bsp.310)
- %ret.4 = insertvalue {i64*,i64} undef, i64* %hp.2, 0
- %ret.5 = insertvalue {i64*,i64} %ret.4, i64 %r.3, 1
- ret {i64*,i64} %ret.5
+ %ret.6 = insertvalue {i64*,i64**,i64} undef, i64* %hp.2, 0
+ %ret.7 = insertvalue {i64*,i64**,i64} %ret.6, i64** %globasp.2, 1
+ %ret.8 = insertvalue {i64*,i64**,i64} %ret.7, i64 %r.3, 2
+ ret {i64*,i64**,i64} %ret.8
}
define i64 @main() {
%hp.0 = call i64* @_alloc_heap(i64 10000)
- %astack = call i64** @_alloc_a_stack(i64 10000)
+ %asp.0 = call i64** @_alloc_a_stack(i64 10000)
%n.0 = getelementptr i64, i64* %hp.0
%INT.0 = ptrtoint {i64, i64, i64*, i64, i8, i8, i8}* @INT to i64
@@ -145,15 +157,16 @@ define i64 @main() {
%hp.1 = getelementptr i64, i64* %hp.0, i64 2
%n.1 = getelementptr i64, i64* %hp.1
- store i64 ptrtoint ({i64*,i64*}(i64*,i64**,i64*)* @e_fib_eqI_b_nfib to i64), i64* %n.1
+ store i64 ptrtoint ({i64*,i64**,i64*}(i64*,i64**,i64*)* @e_fib_eqI_b_nfib to i64), i64* %n.1
%t.0 = ptrtoint i64* %n.0 to i64
%n.1.0 = getelementptr i64, i64* %n.1, i64 1
store i64 %t.0, i64* %n.1.0
%hp.2 = getelementptr i64, i64* %hp.0, i64 3
- %t.1 = call {i64*,i64*} @e_fib_eqI_b_nfib(i64* %hp.2, i64** %astack, i64* %n.1)
- %hp.3 = extractvalue {i64*,i64*} %t.1, 0
- %n.2 = extractvalue {i64*,i64*} %t.1, 1
+ %t.1 = call {i64*,i64**,i64*} @e_fib_eqI_b_nfib(i64* %hp.2, i64** %asp.0, i64* %n.1)
+ %hp.3 = extractvalue {i64*,i64**,i64*} %t.1, 0
+ %asp.1 = extractvalue {i64*,i64**,i64*} %t.1, 1
+ %n.2 = extractvalue {i64*,i64**,i64*} %t.1, 2
%n.3 = getelementptr i64, i64* %n.2, i64 1
%r = load i64, i64* %n.3
generated by cgit v1.2.3 (git 2.39.1) at 2025-03-13 12:06:15 +0000