steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Runtime cleanup

release
slava 2006-07-24 05:22:11 +00:00
parent 378b157153
commit e3da107934
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
vm/run.c
View File

@ -136,8 +136,7 @@ void primitive_call(void)
void primitive_ifte(void) void primitive_ifte(void)
{ {
ds -= CELLS * 3; ds -= CELLS * 3;
CELL cond = get(ds + CELLS); call(get(ds + CELLS) == F ? get(ds + CELLS * 3) : get(ds + CELLS * 2));
call(cond == F ? get(ds + CELLS * 3) : get(ds + CELLS * 2));
} }
void primitive_dispatch(void) void primitive_dispatch(void)
@ -181,7 +180,9 @@ void primitive_os_env(void)
void primitive_eq(void) void primitive_eq(void)
{ {
box_boolean(dpop() == dpop()); CELL lhs = dpop();
CELL rhs = dpeek();
drepl((lhs == rhs) ? T : F);
} }
void primitive_millis(void) void primitive_millis(void)