commit
2e35505e26
10
expression.c
10
expression.c
|
@ -443,9 +443,13 @@ void ExpressionPushInt(struct ParseState *Parser,
|
||||||
struct Value *ValueLoc = VariableAllocValueFromType(Parser->pc, Parser,
|
struct Value *ValueLoc = VariableAllocValueFromType(Parser->pc, Parser,
|
||||||
&Parser->pc->IntType, false, NULL, false);
|
&Parser->pc->IntType, false, NULL, false);
|
||||||
// jdp: ugly hack to properly print long values
|
// jdp: ugly hack to properly print long values
|
||||||
ValueLoc->Val->UnsignedLongInteger = IntValue;
|
ValueLoc->Val->UnsignedLongInteger = (unsigned long)IntValue;
|
||||||
ValueLoc->Val->LongInteger = IntValue;
|
ValueLoc->Val->LongInteger = (long)IntValue;
|
||||||
ValueLoc->Val->Integer = IntValue;
|
ValueLoc->Val->Integer = (int)IntValue;
|
||||||
|
ValueLoc->Val->ShortInteger = (short)IntValue;
|
||||||
|
ValueLoc->Val->UnsignedShortInteger = (unsigned short)IntValue;
|
||||||
|
ValueLoc->Val->UnsignedInteger = (unsigned int)IntValue;
|
||||||
|
|
||||||
ExpressionStackPushValueNode(Parser, StackTop, ValueLoc);
|
ExpressionStackPushValueNode(Parser, StackTop, ValueLoc);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
2
picoc.h
2
picoc.h
|
@ -9,7 +9,7 @@
|
||||||
/* VER, the git hash number, and TAG are obtained via the Makefile */
|
/* VER, the git hash number, and TAG are obtained via the Makefile */
|
||||||
#define PICOC_VERSION TAG " r" VER
|
#define PICOC_VERSION TAG " r" VER
|
||||||
#else
|
#else
|
||||||
#define PICOC_VERSION "v2.3"
|
#define PICOC_VERSION "v2.3.1"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#include "interpreter.h"
|
#include "interpreter.h"
|
||||||
|
|
Loading…
Reference in a new issue