gered/picoc
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add the last bits of the hack

Browse source
This commit is contained in:
Joseph Poirier 2018-01-17 00:55:24 -06:00
parent aad3648fc0
commit 676addf333
No known key found for this signature in database
GPG key ID: 65858A2540EBDA40
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
expression.c
View file

@ -442,13 +442,15 @@ void ExpressionPushInt(struct ParseState *Parser,
{
struct Value *ValueLoc = VariableAllocValueFromType(Parser->pc, Parser,
&Parser->pc->IntType, false, NULL, false);
// jdp: ugly hack to properly print long values
// jdp: an ugly hack to a) assign the correct value and b) properly print long values
ValueLoc->Val->UnsignedLongInteger = (unsigned long)IntValue;
ValueLoc->Val->LongInteger = (long)IntValue;
ValueLoc->Val->Integer = (int)IntValue;
ValueLoc->Val->ShortInteger = (short)IntValue;
ValueLoc->Val->UnsignedShortInteger = (unsigned short)IntValue;
ValueLoc->Val->UnsignedInteger = (unsigned int)IntValue;
ValueLoc->Val->UnsignedCharacter = (unsigned char)IntValue;
ValueLoc->Val->Character = (char)IntValue;
ExpressionStackPushValueNode(Parser, StackTop, ValueLoc);
}

2
picoc.h
View file

@ -9,7 +9,7 @@
/* VER, the git hash number, and TAG are obtained via the Makefile */
#define PICOC_VERSION TAG " r" VER
#else
#define PICOC_VERSION "v2.3.1"
#define PICOC_VERSION "v2.3.2"
#endif
#include "interpreter.h"