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

Fix import of SYSTEM.INT64 on 32 bit builds.

Browse source
This commit is contained in:
David Brown 2016-09-18 10:55:14 +01:00
parent 21964471d8
commit 636c128d14
198 changed files with 823 additions and 573 deletions
Download patch file Download diff file Expand all files Collapse all files

16
bootstrap/unix-44/Vishap.c
View file

@ -1,4 +1,4 @@
/* voc 1.95 [2016/09/15] for gcc LP64 on cygwin xtspkamSf */
/* voc 1.95 [2016/09/18] for gcc LP64 on cygwin xtspkamSf */
#define INTEGER int16
#define LONGINT int32
@ -84,12 +84,20 @@ static void Vishap_PropagateElementaryTypeSizes (void)
OPT_chartyp->size = OPM_CharSize;
OPT_settyp->size = OPM_SetSize;
OPT_realtyp->size = OPM_RealSize;
OPT_inttyp->size = OPM_IntSize;
OPT_linttyp->size = OPM_LIntSize;
OPT_adrtyp->size = OPM_PointerSize;
OPT_lrltyp->size = OPM_LRealSize;
OPT_sinttyp->size = OPM_SIntSize;
OPT_booltyp->size = OPM_BoolSize;
OPT_sinttyp = OPT_int8typ;
if (OPM_IntSize == 2) {
OPT_inttyp = OPT_int16typ;
OPT_linttyp = OPT_int32typ;
} else {
OPT_inttyp = OPT_int32typ;
OPT_linttyp = OPT_int64typ;
}
OPT_sintobj->typ = OPT_sinttyp;
OPT_intobj->typ = OPT_inttyp;
OPT_lintobj->typ = OPT_linttyp;
}
void Vishap_Translate (void)