The really hard to trace bug in break
This commit is contained in:
parent
a90916786f
commit
08ac63a9be
10
stage2/cc.s
10
stage2/cc.s
|
@ -2079,13 +2079,13 @@ MISSING )
|
||||||
:restore_break_frame
|
:restore_break_frame
|
||||||
POPR R1 R15 ; Save return address
|
POPR R1 R15 ; Save return address
|
||||||
POPR R0 R15 ; obtain NUM
|
POPR R0 R15 ; obtain NUM
|
||||||
STORER32 R3 @break_target_num ; Restore NUM
|
STORER32 R0 @break_target_num ; Restore NUM
|
||||||
POPR R0 R15 ; obtain FUNC
|
POPR R0 R15 ; obtain FUNC
|
||||||
STORER32 R4 @break_target_func ; Restore FUNC
|
STORER32 R0 @break_target_func ; Restore FUNC
|
||||||
POPR R0 R15 ; obtain HEAD
|
POPR R0 R15 ; obtain HEAD
|
||||||
STORER32 R5 @break_target_head ; Restore HEAD
|
STORER32 R0 @break_target_head ; Restore HEAD
|
||||||
POPR R0 R15 ; obtain BREAK_FRAME
|
POPR R0 R15 ; obtain BREAK_FRAME
|
||||||
STORER32 R5 @break_frame ; Restore BREAK_FRAME
|
STORER32 R0 @break_frame ; Restore BREAK_FRAME
|
||||||
PUSHR R1 R15 ; Set where we are returning to
|
PUSHR R1 R15 ; Set where we are returning to
|
||||||
RET R15
|
RET R15
|
||||||
|
|
||||||
|
@ -2487,6 +2487,8 @@ MISSING ;
|
||||||
FALSE R1 ; Write for User
|
FALSE R1 ; Write for User
|
||||||
CALLI R15 @file_print ; write it
|
CALLI R15 @file_print ; write it
|
||||||
CALLI R15 @line_error ; Give useful info
|
CALLI R15 @line_error ; Give useful info
|
||||||
|
LOADUI R0 $newline ; Using "\n"
|
||||||
|
CALLI R15 @file_print ; Print it
|
||||||
HALT
|
HALT
|
||||||
|
|
||||||
:process_break_NON_NULL
|
:process_break_NON_NULL
|
||||||
|
|
Loading…
Reference in New Issue