dergrimm/hence
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Make 'pop' operation safe

Browse source
This commit is contained in:
Dominic Grimm 2023-03-31 14:36:00 +02:00
parent 5b5886a2f2
commit 804da393a8
Signed by: dergrimm
GPG key ID: 12EFFCAEA9E620BF
3 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
examples/testforth.asm
View file

@ -131,4 +131,7 @@ return_call_stack_jump:
.std_alu CORE_ALU_GT .std_alu CORE_ALU_GT
tlr CORE_REG_A tlr CORE_REG_A
.std_cond_jump loop_strings_1 .std_cond_jump loop_strings_1
dbg
pop
dbg
.std_stop .std_stop

2
examples/testforth.fth
View file

@ -2,3 +2,5 @@
." test\n" ." test\n"
." jdsafhjfnjfn\n" ." jdsafhjfnjfn\n"
debug drop debug

4
hence/src/emulator.rs
View file

@ -247,7 +247,11 @@ impl Emulator {
self.reg_sp = self.reg_sp.wrapping_add(1); self.reg_sp = self.reg_sp.wrapping_add(1);
} }
0x02 => { 0x02 => {
let before = self.reg_sp;
self.reg_sp = self.reg_sp.wrapping_sub(1); self.reg_sp = self.reg_sp.wrapping_sub(1);
if before < self.reg_sp {
self.reg_sp = 0;
}
} }
0x03 => { 0x03 => {
self.tmp = self.reg_arg; self.tmp = self.reg_arg;