git-svn-id: trunk@7656 -
@@ -266,7 +266,7 @@ procedure RegisterSymbols;
implementation
uses
- globtype,globals,comphook,
+ globtype,globals,comphook,constexp,
{$ifdef DEBUG}
verbose,
{$endif DEBUG}
@@ -355,7 +355,7 @@ begin
if sa xor sb then
begin
result.signed:=true;
- result.svalue:=r;
+ result.svalue:=-r;
end
else
@@ -216,7 +216,7 @@ implementation
htype : tdef;
htype:=v.definition;
- genenumnode:=cordconstnode.create(v.value,htype,true);
+ genenumnode:=cordconstnode.create(int64(v.value),htype,true);
end;