vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 13:22:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix ethMD5 build. May need more work to be correct on 64 bit builds.

Browse source
This commit is contained in:
David Brown 2016-09-20 16:43:34 +01:00
parent 9971e56451
commit 1a83167d5a
200 changed files with 407 additions and 372 deletions
Download patch file Download diff file Expand all files Collapse all files

8
bootstrap/windows-88/Texts.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/18] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/09/20] for gcc LP64 on cygwin xtspkaSfF */
#define INTEGER int32
#define LONGINT int64
@ -1054,7 +1054,7 @@ void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n)
{
int32 i;
int64 x0;
CHAR a[22];
CHAR a[24];
i = 0;
if (x < 0) {
if (x == (-9223372036854775807-1)) {
@ -1068,7 +1068,7 @@ void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n)
x0 = x;
}
do {
a[__X(i, 22)] = (CHAR)(__MOD(x0, 10) + 48);
a[__X(i, 24)] = (CHAR)(__MOD(x0, 10) + 48);
x0 = __DIV(x0, 10);
i += 1;
} while (!(x0 == 0));
@ -1081,7 +1081,7 @@ void Texts_WriteInt (Texts_Writer *W, LONGINT *W__typ, int64 x, int64 n)
}
do {
i -= 1;
Texts_Write(&*W, W__typ, a[__X(i, 22)]);
Texts_Write(&*W, W__typ, a[__X(i, 24)]);
} while (!(i == 0));
}