godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
serious floating point handling bug
This commit is contained in:
ceriel
1989-11-13 15:36:12 +00:00
parent 6fc0921238
commit c878bff7a6
21 changed files with 251 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
util/int/do_sets.c
View File

@@ -102,9 +102,9 @@ PRIVATE bit_test(w)
trap(ESET);
}
}
test_byte = stack_loc(SP + (bitno / 8));
test_byte = stack_loc(SP + (bitno >> 3));
st_dec(w);
npush((long)((test_byte & BIT(bitno % 8)) ? 1 : 0), wsize);
wpush((long)((test_byte & BIT(bitno & 7)) ? 1 : 0));
}
/********************************************************
@@ -132,6 +132,6 @@ PRIVATE create_set(w)
trap(ESET);
}
}
st_stn(SP + (bitno / 8), (long)BIT(bitno % 8), 1L);
st_stn(SP + (bitno >> 3), (long)BIT(bitno & 7), 1L);
}