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

* Explicitly raise EDivError (bug ID 36839)

Browse Source 
git-svn-id: trunk@45223 -
This commit is contained in:
michael 2020-05-02 15:56:30 +00:00
parent e53c2572ce
commit 8182669e79
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/fcl-base/src/fpexprpars.pp
View File

@ -896,6 +896,7 @@ Resourcestring
SErrCaseLabelNotAConst = 'Case label %d "%s" is not a constant expression';
SErrCaseLabelType = 'Case label %d "%s" needs type %s, but has type %s';
SErrCaseValueType = 'Case value %d "%s" needs type %s, but has type %s';
SErrDivisionByZero = '%d division by zero';
{ ---------------------------------------------------------------------
Auxiliary functions
@ -3564,13 +3565,27 @@ begin
Left.GetNodeValue(Result);
Right.GetNodeValue(RRes);
case Result.ResultType of
rtInteger : Result.ResFloat:=Result.ResInteger/RRes.ResInteger;
rtFloat : Result.ResFloat:=Result.ResFloat/RRes.ResFloat;
rtInteger :
if RRes.ResInteger<>0 then
Result.ResFloat:=Result.ResInteger/RRes.ResInteger
else
RaiseParserError(SErrDivisionByZero, [ResultTypeName(rtInteger)]);
rtFloat :
if RRes.ResFloat<>0 then
Result.ResFloat:=Result.ResFloat/RRes.ResFloat
else
RaiseParserError(SErrDivisionByZero, [ResultTypeName(rtInteger)]);
rtCurrency :
if NodeType=rtCurrency then
Result.ResCurrency:=Result.ResCurrency/RRes.ResCurrency
if RRes.ResCurrency <> 0 then
Result.ResCurrency:=Result.ResCurrency/RRes.ResCurrency
else
RaiseParserError(SErrDivisionByZero, [ResultTypeName(rtCurrency)])
else
Result.ResFloat:=Result.ResFloat/RRes.ResFloat;
if RRes.ResFloat<> 0 then
Result.ResFloat:=Result.ResFloat/RRes.ResFloat
else
RaiseParserError(SErrDivisionByZero, [ResultTypeName(rtFloat)]);
end;
Result.ResultType:=NodeType;
end;