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

OPB little simplifications and ShorterSize/LongerSize functions.

Browse source
This commit is contained in:
David Brown 2016-08-20 18:53:28 +01:00
parent dd4de5aeed
commit e33255b08c
201 changed files with 1167 additions and 1123 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,4 +1,4 @@
/* voc 1.95 [2016/08/16] for gcc LP64 on cygwin xtspkaSfF */
/* voc 1.95 [2016/08/20] for gcc LP64 on cygwin xtspkaSfF */
#define LARGE
#include "SYSTEM.h"
#include "OPC.h"
@ -964,11 +964,7 @@ static void OPV_expr (OPT_Node n, INTEGER prec)
}
OPV_expr(l, exprPrec);
} else {
if (__IN(n->typ->form, 0x6000) || __IN(l->typ->form, 0x6000)) {
OPM_WriteString((CHAR*)"__VALP(", (LONGINT)8);
} else {
OPM_WriteString((CHAR*)"__VAL(", (LONGINT)7);
}
OPM_WriteString((CHAR*)"__VAL(", (LONGINT)7);
OPC_Ident(n->typ->strobj);
OPM_WriteString((CHAR*)", ", (LONGINT)3);
OPV_expr(l, -1);