paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 13:10:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: resolver: fixed reading constant $8000000000000000

Browse Source 
git-svn-id: trunk@36927 -
This commit is contained in:
Mattias Gaertner 2017-08-16 10:30:34 +00:00
parent 0ddf135404
commit 92510ebe08
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-passrc/src/pasresolveeval.pas
View File

@ -2899,6 +2899,7 @@ begin
writeln('TResExprEvaluator.EvalSetExpr Expr=',GetObjName(Expr),' length(ExprArray)=',length(ExprArray)); writeln('TResExprEvaluator.EvalSetExpr Expr=',GetObjName(Expr),' length(ExprArray)=',length(ExprArray));
{$ENDIF} {$ENDIF}
Result:=TResEvalSet.Create; Result:=TResEvalSet.Create;
if Expr=nil then ;
Value:=nil; Value:=nil;
OnlyConstElements:=true; OnlyConstElements:=true;
ok:=false; ok:=false;
@ -3375,9 +3376,12 @@ begin
writeln('TResExprEvaluator.Eval Int=',Int,' Value="',TPrimitiveExpr(Expr).Value,'"'); writeln('TResExprEvaluator.Eval Int=',Int,' Value="',TPrimitiveExpr(Expr).Value,'"');
{$ENDIF} {$ENDIF}
if (Int<0) and (Pos('-',TPrimitiveExpr(Expr).Value)<1) then if (Int<0) and (Pos('-',TPrimitiveExpr(Expr).Value)<1) then
RaiseInternalError(20170802141254,'bug in FPC str()'); // FPC str() converts $8000000000000000 to a negative int64 -> ignore
Result:=TResEvalInt.CreateValue(Int); else
exit; begin
Result:=TResEvalInt.CreateValue(Int);
exit;
end;
end; end;
// try MaxPrecUInt // try MaxPrecUInt
val(TPrimitiveExpr(Expr).Value,UInt,Code); val(TPrimitiveExpr(Expr).Value,UInt,Code);