Make math test work across x86/x64.

This commit is contained in:
David Brown 2016-10-17 12:49:05 +01:00
parent eda7e88185
commit 2d8c9c4757
201 changed files with 545 additions and 568 deletions

View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/10/15]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
/* voc 1.95 [2016/10/17]. Bootstrapping compiler for address size 8, alignment 8. xtspaSfF */
#define SHORTINT int8
#define INTEGER int16
@ -198,8 +198,8 @@ static void Out_RealP (LONGREAL x, int16 n, BOOLEAN long_)
dr = 17;
}
d = dr;
if (d < 16) {
d = 16;
if (d < 15) {
d = 15;
}
} else {
el = 2;
@ -208,8 +208,8 @@ static void Out_RealP (LONGREAL x, int16 n, BOOLEAN long_)
dr = 9;
}
d = dr;
if (d < 7) {
d = 7;
if (d < 6) {
d = 6;
}
}
if (e == 0) {