Skip to content
Snippets Groups Projects
Commit 3fadf80d authored by Fredrik Hübinette (Hubbe)'s avatar Fredrik Hübinette (Hubbe)
Browse files

bugfix 

Rev: src/interpret.c:1.51
parent 1ca3ba3d
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 3 deletions
src/interpret.c
+ 3
− 3
View file @ 3fadf80d
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information. ||| See the files COPYING and DISCLAIMER for more information.
\*/ \*/
#include "global.h" #include "global.h"
RCSID("$Id: interpret.c,v 1.50 1997/10/14 03:10:10 hubbe Exp $"); RCSID("$Id: interpret.c,v 1.51 1997/10/14 05:35:12 hubbe Exp $");
#include "interpret.h" #include "interpret.h"
#include "object.h" #include "object.h"
#include "program.h" #include "program.h"
...@@ -859,7 +859,7 @@ static void eval_instruction(unsigned char *pc) ...@@ -859,7 +859,7 @@ static void eval_instruction(unsigned char *pc)
push_int(instr); push_int(instr);
}else{ }else{
lvalue_to_svalue_no_free(sp, sp-2); sp++; lvalue_to_svalue_no_free(sp, sp-2); sp++;
assign_svalue(sp,sp-1); sp++; assign_svalue_no_free(sp,sp-1); sp++;
push_int(1); push_int(1);
f_add(2); f_add(2);
assign_lvalue(sp-4, sp-1); assign_lvalue(sp-4, sp-1);
...@@ -879,7 +879,7 @@ static void eval_instruction(unsigned char *pc) ...@@ -879,7 +879,7 @@ static void eval_instruction(unsigned char *pc)
push_int(instr); push_int(instr);
}else{ }else{
lvalue_to_svalue_no_free(sp, sp-2); sp++; lvalue_to_svalue_no_free(sp, sp-2); sp++;
assign_svalue(sp,sp-1); sp++; assign_svalue_no_free(sp,sp-1); sp++;
push_int(1); push_int(1);
o_subtract(); o_subtract();
assign_lvalue(sp-4, sp-1); assign_lvalue(sp-4, sp-1);
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment