fixed bugs on big systems.

This commit is contained in:
Martin Preuss
2025-09-08 22:06:09 +02:00
parent 5866a55067
commit d7e4ee4cca

View File

@@ -25,8 +25,8 @@ OBJ_Init:
mov xh, yh mov xh, yh
clr r16 clr r16
ldi r17, OBJ_OFFS_SIZE ldi r17, OBJ_OFFS_SIZE
rcall Utils_FillSram ; (R17, X) bigcall Utils_FillSram ; (R17, X)
rcall Tree_InitObject ; (R16) bigcall Tree_InitObject ; (R16)
pop r17 pop r17
std Y+OBJ_OFFS_OPTIONS, r17 std Y+OBJ_OFFS_OPTIONS, r17
ldi r16, LOW(OBJ_DefaultHandler) ldi r16, LOW(OBJ_DefaultHandler)
@@ -480,7 +480,7 @@ objFreeTimers:
OBJ_Link_new: OBJ_Link_new:
ldi r24, LOW(OBJ_LINK_SIZE) ldi r24, LOW(OBJ_LINK_SIZE)
ldi r25, HIGH(OBJ_LINK_SIZE) ldi r25, HIGH(OBJ_LINK_SIZE)
rcall Heap_Alloc bigcall Heap_Alloc
brcc OBJ_Link_new_end brcc OBJ_Link_new_end
mov yl, xl mov yl, xl
mov yh, xh mov yh, xh
@@ -522,7 +522,7 @@ OBJ_Link_free:
OBJ_Timer_new: OBJ_Timer_new:
ldi r24, LOW(TIMER_SIZE) ldi r24, LOW(TIMER_SIZE)
ldi r25, HIGH(TIMER_SIZE) ldi r25, HIGH(TIMER_SIZE)
rcall Heap_Alloc bigcall Heap_Alloc
brcc OBJ_Timer_new_end brcc OBJ_Timer_new_end
mov yl, xl mov yl, xl
mov yh, xh mov yh, xh
@@ -547,7 +547,7 @@ OBJ_Timer_free:
rcall List_FiniObject ; (R16) rcall List_FiniObject ; (R16)
mov xl, yl mov xl, yl
mov xh, yh mov xh, yh
rcall Heap_free ; (r16, r17, r24, r25, X) bigcall Heap_free ; (r16, r17, r24, r25, X)
clc clc
ret ret
; @end ; @end