many speed-up changes, resulting in 20-25% speedup, and fixed

serious floating point handling bug
This commit is contained in:
ceriel
1989-11-13 15:36:12 +00:00
parent 776233c718
commit 3868470366
21 changed files with 251 additions and 193 deletions

View File

@@ -134,7 +134,7 @@ init(ac, av)
}
dt_stdp(vecp, i2p(0)); /* terminating zero */
npush((long) ac, wsize); /* push argc */
wpush((long) ac); /* push argc */
}
PRIVATE size alignedstrlen(s)
@@ -177,7 +177,7 @@ PRIVATE ptr storestring(addr, s)
#ifdef LOGGING
dt_clear_area(from, to)
ptr from;
ptr to;
register ptr to;
{
/* includes *from but excludes *to */
register ptr a;
@@ -189,7 +189,7 @@ dt_clear_area(from, to)
st_clear_area(from, to)
ptr from;
ptr to;
register ptr to;
{
/* includes both *from and *to (since ML+1 is unexpressible) */
register ptr a;