summaryrefslogtreecommitdiff
path: root/thumb2startup.s
diff options
context:
space:
mode:
Diffstat (limited to 'thumb2startup.s')
-rw-r--r--thumb2startup.s464
1 files changed, 313 insertions, 151 deletions
diff --git a/thumb2startup.s b/thumb2startup.s
index 0bf6793..b753cf1 100644
--- a/thumb2startup.s
+++ b/thumb2startup.s
@@ -499,14 +499,14 @@ abc_main:
sto r4,r12,start_address,0
.endif
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl init_clean
tst r4,r4
bne init_error
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl init_timer
@@ -515,7 +515,7 @@ abc_main:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl init_profiler
.endif
@@ -524,12 +524,12 @@ abc_main:
lao r12,start_address,1
ldo r4,r12,start_address,1
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
blx r4
.else
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl __start
.endif
@@ -537,7 +537,7 @@ abc_main:
.thumb_func
exit:
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl exit_clean
@@ -555,14 +555,14 @@ clean_init:
sto r0,r12,dll_initisialised,0
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl init_clean
tst r4,r4
bne init_dll_error
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl init_timer
@@ -571,7 +571,7 @@ clean_init:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl init_profiler
.endif
@@ -604,7 +604,7 @@ clean_fini:
ldo r9,r12,saved_a_stack_p,1
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl exit_clean
@@ -874,7 +874,9 @@ no_mark2:
.endif
mov r4,#0
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
no_memory_2:
lao r0,out_of_memory_string_1,0
@@ -884,7 +886,9 @@ no_memory_2:
? movl $1,@execution_aborted
.endif
mov r0,#1
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
no_memory_3:
lao r0,out_of_memory_string_1,1
@@ -899,12 +903,14 @@ no_memory_3:
bl free
mov r0,#1
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
exit_clean:
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
blx add_execute_time
@@ -921,7 +927,7 @@ exit_clean:
ldo r4,r12,execute_time,0
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl print_time
@@ -933,7 +939,7 @@ exit_clean:
ldo r4,r12,garbage_collect_time,0
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl print_time
@@ -951,7 +957,7 @@ exit_clean:
add r4,r12
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl print_time
@@ -970,12 +976,14 @@ no_print_execution_time:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl write_profile_information
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
__driver:
@@ -1138,7 +1146,9 @@ print_time:
mov r0,r6
bl ew_print_text
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
print_sc:
@@ -1154,12 +1164,14 @@ print:
.thumb_func
end_print:
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
dump:
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl print
b halt
@@ -1256,19 +1268,25 @@ print_record:
.thumb_func
end_print_symbol:
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
print_int_node:
ldr r0,[r6,#4]
bl w_print_int
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
print_int:
mov r0,r4
bl w_print_int
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
print_char_denotation:
@@ -1287,20 +1305,26 @@ print_char_denotation:
mov r0,#0x27
bl w_print_char
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
print_char_node:
ldr r0,[r6,#4]
bl w_print_char
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
print_char:
str r4,[sp,#-4]!
bl w_print_char
add sp,sp,#4
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
print_bool:
@@ -1313,14 +1337,18 @@ print_true:
lao r0,true_c_string,0
otoa r0,true_c_string,0
bl w_print_string
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
print_false:
lao r0,false_c_string,0
otoa r0,false_c_string,0
bl w_print_string
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
print_real:
@@ -1343,13 +1371,17 @@ print_real_:
mov sp,lr
bl w_print_real
mov sp,r11
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
print_string_a2:
ldr r1,[r8]
add r0,r8,#4
bl w_print_text
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
print__chars__sc:
@@ -1365,7 +1397,9 @@ print__string__:
bl w_print_text
.thumb_func
no_print_chars:
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
push_a_r_args:
@@ -1488,7 +1522,9 @@ push_r_a_elements:
bcs push_r_a_elements_lp
ldr r4,[sp],#4
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
BtoAC:
tst r4,r4
@@ -1496,11 +1532,15 @@ BtoAC:
BtoAC_true:
lao r6,true_string,0
otoa r6,true_string,0
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
BtoAC_false:
lao r6,false_string,0
otoa r6,false_string,0
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
RtoAC:
.if USE_CLIB
@@ -1527,7 +1567,7 @@ ItoAC:
lao r6,sprintf_buffer,2
otoa r6,sprintf_buffer,2
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl int_to_string
@@ -1588,7 +1628,9 @@ reverse_digits:
mov r12,#0
strb r12,[r6]
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.else
mov r2,r4
lao r1,printf_int_string,0
@@ -1655,7 +1697,9 @@ D_to_S_cp_str_2:
bcs D_to_S_cp_str_1
mov r6,r8
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
eqD: ldr r4,[r6]
ldr r12,[r7]
@@ -1680,7 +1724,9 @@ eqD: ldr r4,[r6]
beq eqD_REAL
mov r4,#1
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
eqD_CHAR:
eqD_INT:
@@ -1690,7 +1736,9 @@ eqD_INT:
cmp r3,r12
it eq
moveq r4,#1
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
eqD_BOOL:
ldrb r3,[r6,#4]
@@ -1699,7 +1747,9 @@ eqD_BOOL:
cmp r3,r12
it eq
moveq r4,#1
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
eqD_REAL:
vldr.f64 d0,[r6,#4]
@@ -1709,11 +1759,15 @@ eqD_REAL:
vmrs APSR_nzcv,fpscr
it eq
moveq r4,#1
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
eqD_false:
mov r4,#0
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
@
@ the timer
@
@@ -1738,7 +1792,9 @@ init_timer:
lao r12,IO_time,1
sto r4,r12,IO_time,1
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
get_time_diff:
@@ -1755,12 +1811,14 @@ get_time_diff:
ldr r7,[r6]
str r4,[r6]
subs r4,r4,r7
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
add_execute_time:
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl get_time_diff
lao r6,execute_time,3
@@ -1771,12 +1829,14 @@ add_time:
ldr r12,[r6]
add r4,r4,r12
str r4,[r6]
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
add_garbage_collect_time:
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl get_time_diff
lao r6,garbage_collect_time,3
@@ -1785,7 +1845,7 @@ add_garbage_collect_time:
add_IO_time:
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl get_time_diff
lao r6,IO_time,2
@@ -1897,7 +1957,7 @@ collect_3:
lao r8,garbage_collector_name,0
otoa r8,garbage_collector_name,0
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_s
.endif
@@ -1912,7 +1972,9 @@ collect_3:
.ifdef PROFILE
b profile_r
.else
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.endif
collect_2:
@@ -1921,7 +1983,7 @@ collect_2:
lao r8,garbage_collector_name,1
otoa r8,garbage_collector_name,1
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_s
.endif
@@ -1934,7 +1996,9 @@ collect_2:
.ifdef PROFILE
b profile_r
.else
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.endif
collect_1:
@@ -1943,7 +2007,7 @@ collect_1:
lao r8,garbage_collector_name,2
otoa r8,garbage_collector_name,2
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_s
.endif
@@ -1953,7 +2017,9 @@ collect_1:
.ifdef PROFILE
b profile_r
.else
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.endif
.ifdef PROFILE
@@ -1962,7 +2028,7 @@ collect_0:
lao r8,garbage_collector_name,3
otoa r8,garbage_collector_name,3
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_s
bl collect_0_
@@ -2135,7 +2201,7 @@ no_mark3:
.thumb_func
collect:
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl add_execute_time
@@ -2210,7 +2276,7 @@ no_print_stack_sizes:
add r4,r4,#63*4
lsr r4,r4,#8
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl zero_bit_vector
@@ -2235,7 +2301,7 @@ no_print_stack_sizes:
sto r14,r12,heap_end_after_copy_gc,3
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl zero_bit_vector
b end_zero_bit_vector
@@ -2246,7 +2312,7 @@ zero_all:
ldo r4,r12,heap_copied_vector_size,3
lsr r4,r4,#2
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl zero_bit_vector
@@ -2266,7 +2332,7 @@ end_zero_bit_vector:
ldr r9,[sp],#4
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl add_garbage_collect_time
@@ -2413,7 +2479,7 @@ no_mark_scan:
str r6,[sp,#-4]!
str r3,[sp,#-4]!
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl _munmap
add sp,sp,#8
@@ -2499,7 +2565,7 @@ no_heap_use_message:
.if FINALIZERS
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl call_finalizers
.endif
@@ -2747,7 +2813,9 @@ end_call_finalizers:
laol r11,__Nil-4,__Nil_o_m4,2
otoa r11,__Nil_o_m4,2
sto r11,r12,free_finalizer_list,2
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.endif
.if WRITE_HEAP
@@ -2764,7 +2832,7 @@ copy_to_compact_with_alloc_in_extra_heap:
out_of_memory_4:
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl add_garbage_collect_time
@@ -2800,7 +2868,9 @@ zero_bits1_2:
zero_bits1_5:
subs r4,r4,#1
bhs zero_bits1_4
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
reorder:
@@ -2853,7 +2923,9 @@ st_reorder_lp:
add sp,sp,#8
ldr r8,[sp],#4
ldr r9,[sp],#4
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
@
@ the sliding compacting garbage collector
@@ -3151,7 +3223,7 @@ vector_at_end_2:
.thumb_func
no_copy_garbage_collection:
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl add_garbage_collect_time
@@ -3167,7 +3239,7 @@ no_copy_garbage_collection:
.thumb_func
stack_overflow:
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl add_execute_time
@@ -3203,7 +3275,7 @@ halt:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl write_profile_stack
.endif
@@ -3263,7 +3335,7 @@ eval_fill:
mov r6,r7
ldr r12,[r7]
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
blx r12
mov r7,r6
@@ -3275,7 +3347,9 @@ eval_fill:
str r8,[r6,#4]
ldr r8,[r7,#8]
str r8,[r6,#8]
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.p2align 2
b e__system__eaind
@@ -3304,7 +3378,9 @@ __indirection:
str r8,[r6,#4]
ldr r8,[r7,#8]
str r8,[r6,#8]
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.if MARK_GC
eval_fill2:
@@ -3322,7 +3398,7 @@ eval_fill2:
mov r6,r7
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
blx r4
mov r7,r6
@@ -3334,12 +3410,14 @@ eval_fill2:
str r8,[r6,#4]
ldr r8,[r7,#8]
str r8,[r6,#8]
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.endif
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3353,7 +3431,7 @@ eval_upd_0:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3369,7 +3447,7 @@ eval_upd_1:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3385,7 +3463,7 @@ eval_upd_2:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3403,7 +3481,7 @@ eval_upd_3:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3424,7 +3502,7 @@ eval_upd_4:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3447,7 +3525,7 @@ eval_upd_5:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3472,7 +3550,7 @@ eval_upd_6:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3510,7 +3588,7 @@ eval_upd_n_lp:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3522,7 +3600,7 @@ eval_upd_8:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3534,7 +3612,7 @@ eval_upd_9:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3546,7 +3624,7 @@ eval_upd_10:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3558,7 +3636,7 @@ eval_upd_11:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3570,7 +3648,7 @@ eval_upd_12:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3582,7 +3660,7 @@ eval_upd_13:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3594,7 +3672,7 @@ eval_upd_14:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3606,7 +3684,7 @@ eval_upd_15:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3618,7 +3696,7 @@ eval_upd_16:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3630,7 +3708,7 @@ eval_upd_17:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3642,7 +3720,7 @@ eval_upd_18:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3654,7 +3732,7 @@ eval_upd_19:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3666,7 +3744,7 @@ eval_upd_20:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3678,7 +3756,7 @@ eval_upd_21:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3690,7 +3768,7 @@ eval_upd_22:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3702,7 +3780,7 @@ eval_upd_23:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3714,7 +3792,7 @@ eval_upd_24:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3726,7 +3804,7 @@ eval_upd_25:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3738,7 +3816,7 @@ eval_upd_26:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3750,7 +3828,7 @@ eval_upd_27:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3762,7 +3840,7 @@ eval_upd_28:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3774,7 +3852,7 @@ eval_upd_29:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3786,7 +3864,7 @@ eval_upd_30:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3798,7 +3876,7 @@ eval_upd_31:
.ifdef PROFILE
.align
- add lr,pc,#9
+ add lr,pc,#8
str lr,[sp,#-4]!
bl profile_n
mov r8,r4
@@ -3883,7 +3961,9 @@ cat_string_11:
@ align heap pointer
add r10,r10,#3
and r10,r10,#-4
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
gc_3: bl collect_2
b gc_r_3
@@ -3892,7 +3972,9 @@ gc_3: bl collect_2
empty_string:
lao r6,zero_length_string,0
otoa r6,zero_length_string,0
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.ifdef PIC
ltol __STRING__+2,__STRING___o_2,1
@@ -3947,7 +4029,9 @@ sliceAC_copy_lp:
bne sliceAC_copy_lp
sliceAC_after_copy_lp:
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
gc_4:
bl collect_1
@@ -4000,7 +4084,9 @@ updateAC_copy_lp:
updateAC_after_copy_lp:
strb r4,[r3]
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
gc_5: bl collect_1
b r_gc_5
@@ -4062,11 +4148,15 @@ equal_string_2:
.thumb_func
equal_string_eq:
mov r4,#1
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
equal_string_ne:
mov r4,#0
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.cmpAC,"ax"
cmpAC:
@@ -4124,7 +4214,9 @@ cmp_string_2:
bne cmp_string_ne
.thumb_func
cmp_string_eq:
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
cmp_string_ne4:
@ to do compare bytes using and instead of ldrb
ldrb r3,[r7]
@@ -4146,10 +4238,14 @@ cmp_string_ne4:
cmp_string_ne:
bhi cmp_string_r1
mov r4,#-1
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
cmp_string_r1:
mov r4,#1
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.string_to_string_node,"ax"
.thumb_func
@@ -4181,7 +4277,9 @@ string_to_string_node_4:
bge string_to_string_node_2
mov r6,r8
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
string_to_string_node_gc:
@@ -4224,7 +4322,9 @@ int_array_to_node_4:
subs r4,r4,#1
bge int_array_to_node_2
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
int_array_to_node_gc:
@@ -4276,7 +4376,9 @@ real_array_to_node_4:
subs r4,r4,#1
bge real_array_to_node_2
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
real_array_to_node_gc:
@@ -4406,7 +4508,9 @@ no_collect_4574:
str r12,[r10,#8]
add r12,r10,#12
add r10,r12,r3,lsl #2
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
_create_arrayC:
add r3,r4,#3
@@ -4424,7 +4528,9 @@ no_collect_4573:
str r4,[r10,#4]
add r12,r10,#8
add r10,r12,r3,lsl #2
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
_create_arrayI:
add r12,r4,#3
@@ -4442,7 +4548,9 @@ no_collect_4572:
str r12,[r10,#8]
add r12,r10,#12
add r10,r12,r4,lsl #2
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
_create_arrayR:
add r12,r4,r4
@@ -4465,7 +4573,9 @@ no_collect_4580:
str r12,[r10,#8]
add r12,r10,#12
add r10,r12,r4,lsl #3
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
@ r4: number of elements, r3: element descriptor
@ r2: element size, r1: element a size, a0:a_element-> a0: array
@@ -4506,7 +4616,9 @@ _create_r_array_0:
lsl r2,r2,#2
mul r12,r4,r2
add r10,r10,r12
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
_create_r_array_1:
lsl r2,r2,#2
@@ -4517,7 +4629,9 @@ _fillr1_array:
_st_fillr1_array:
subs r4,r4,#1
bcs _fillr1_array
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
_create_r_array_2:
lsl r2,r2,#2
@@ -4529,7 +4643,9 @@ _fillr2_array:
_st_fillr2_array:
subs r4,r4,#1
bcs _fillr2_array
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
_create_r_array_3:
lsl r2,r2,#2
@@ -4542,7 +4658,9 @@ _fillr3_array:
_st_fillr3_array:
subs r4,r4,#1
bcs _fillr3_array
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
_create_r_array_4:
lsl r2,r2,#2
@@ -4556,7 +4674,9 @@ _fillr4_array:
_st_fillr4_array:
subs r4,r4,#1
bcs _fillr4_array
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
_create_r_array_5:
sub r2,r2,r1
@@ -4581,7 +4701,9 @@ _st_fillr5_array:
subs r4,r4,#1
bcs _fillr5_array
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
create_arrayB:
mov r7,r3
@@ -4669,7 +4791,9 @@ st_filli_array:
subs r3,r3,#1
bcs filli_array
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
create_arrayR:
add r12,r4,r4
@@ -4710,7 +4834,9 @@ st_fillr_array:
subs r4,r4,#1
bcs fillr_array
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
create_array:
@@ -4789,7 +4915,9 @@ st_fillr1_array_1:
subs r4,r4,#1
bcs fillr1_array_lp
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
create_R_array_2:
@ r4: number of elements, r3: element descriptor
@@ -4835,7 +4963,9 @@ st_fillr2_array:
subs r4,r4,#1
bcs fillr2_array_1
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
create_R_array_3:
@ r4: number of elements, r3: element descriptor
@@ -5044,7 +5174,9 @@ repl_args_b_4:
ldr r8,[r6,#4]
str r8,[r9],#4
repl_args_b_1:
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
push_arg_b:
@@ -5058,7 +5190,9 @@ push_arg_b_2:
subs r3,r3,#2
push_arg_b_1:
ldr r6,[r6,r3,lsl #2]
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
del_args:
@@ -5073,7 +5207,9 @@ del_args:
str r8,[r7,#4]
ldr r8,[r6,#8]
str r8,[r7,#8]
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
del_args_2:
bne del_args_3
@@ -5084,7 +5220,9 @@ del_args_2:
ldr r8,[r6,#8]
ldr r8,[r8]
str r8,[r7,#8]
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
del_args_3:
subs r5,r5,r4
@@ -5104,7 +5242,9 @@ del_args_copy_args:
subs r4,r4,#1
bgt del_args_copy_args
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.thumb_func
del_args_gc:
@@ -5121,7 +5261,9 @@ sin_real:
.ifdef SOFT_FP_CC
vmov d0,r0,r1
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.cos_real,"ax"
.thumb_func
@@ -5133,7 +5275,9 @@ cos_real:
.ifdef SOFT_FP_CC
vmov d0,r0,r1
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.tan_real,"ax"
.thumb_func
@@ -5145,7 +5289,9 @@ tan_real:
.ifdef SOFT_FP_CC
vmov d0,r0,r1
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.asin_real,"ax"
.thumb_func
@@ -5157,7 +5303,9 @@ asin_real:
.ifdef SOFT_FP_CC
vmov d0,r0,r1
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.acos_real,"ax"
.thumb_func
@@ -5169,7 +5317,9 @@ acos_real:
.ifdef SOFT_FP_CC
vmov d0,r0,r1
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.atan_real,"ax"
.thumb_func
@@ -5181,7 +5331,9 @@ atan_real:
.ifdef SOFT_FP_CC
vmov d0,r0,r1
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.ln_real,"ax"
.thumb_func
@@ -5193,7 +5345,9 @@ ln_real:
.ifdef SOFT_FP_CC
vmov d0,r0,r1
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.log10_real,"ax"
log10_real:
@@ -5204,7 +5358,9 @@ log10_real:
.ifdef SOFT_FP_CC
vmov d0,r0,r1
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.exp_real,"ax"
.thumb_func
@@ -5216,7 +5372,9 @@ exp_real:
.ifdef SOFT_FP_CC
vmov d0,r0,r1
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.pow_real,"ax"
.thumb_func
@@ -5233,7 +5391,9 @@ pow_real:
.ifdef SOFT_FP_CC
vmov d0,r0,r1
.endif
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.section .text.entier_real,"ax"
.thumb_func
@@ -5250,7 +5410,9 @@ entier_real:
r_to_i_real:
vcvtr.s32.f64 s0,d0
vmov r4,s0
- ldr pc,[sp],#4
+ ldr lr,[sp],#4
+ orr lr,lr,#1
+ mov pc,lr
.text