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