Fix lth bug. :-)

This commit is contained in:
C. Guy Yarvin 2014-10-30 17:30:19 -07:00
parent 7ad5879c9c
commit ab98aeecdc
4 changed files with 12 additions and 10 deletions

8
g/e.c
View File

@ -572,7 +572,7 @@ u3_ce_save(void)
// Sync the patch files.
//
// u3_ca_print_memory("sync: save", 4096 * pat_u->con_u->pgs_w);
u3_ca_print_memory("sync: save", 4096 * pat_u->con_u->pgs_w);
_ce_patch_sync(pat_u);
// Verify the patch - because why not?
@ -794,6 +794,12 @@ u3_ce_boot(c3_o nuu_o, c3_o bug_o, c3_c* cpu_c)
mprotect(u3_Loom, (1 << (u3_cc_bits + 2)), PROT_READ);
}
/* If the images were empty, we are logically booting.
*/
if ( (0 == u3P.nor_u.pgs_w) && (0 == u3P.sou_u.pgs_w) ) {
nuu_o = u3_yes;
}
}
/* Construct or activate the allocator.

6
g/m.c
View File

@ -902,11 +902,7 @@ u3_cm_soft_esc(u3_noun sam)
/* Fall back to the old road, leaving temporary memory intact.
*/
u3_cm_fall();
/* Produce success, on the old road.
*/
pro = u3_ca_take(pro);
pro = u3_cm_love(pro);
}
else {
/* Push the error back up to the calling context - not the run we

View File

@ -12,7 +12,7 @@
u3_atom b)
{
if ( u3_so(u3_co_is_cat(a)) && u3_so(u3_co_is_cat(b)) ) {
return u3_say(a <= b);
return u3_say(a < b);
}
else {
mpz_t a_mp, b_mp;

View File

@ -172,7 +172,7 @@ _lo_init()
u3_term_io_init();
u3_http_io_init();
u3_cttp_io_init();
u3_save_io_init();
// u3_save_io_init();
u3_batz_io_init();
}
@ -197,7 +197,7 @@ u3_lo_exit(void)
u3_term_io_exit();
u3_http_io_exit();
u3_cttp_io_exit();
u3_save_io_exit();
// u3_save_io_exit();
u3_batz_io_exit();
}
@ -209,7 +209,7 @@ _lo_poll(void)
u3_ames_io_poll();
u3_http_io_poll();
u3_term_io_poll();
u3_save_io_poll();
// u3_save_io_poll();
u3_unix_io_poll();
u3_batz_io_poll();
}