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

* Replaced impossible-to-reach errors in case blocks with internal errors in "texprvalue.evaluate"

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2025-05-06 18:40:18 +01:00 committed by FPK
parent b49d2f689f
commit 0c00e3ae13
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/scanner.pas
View File

@ -1372,11 +1372,7 @@ type
else if is_fpu(def) then else if is_fpu(def) then
result:=texprvalue.create_real(-pbestreal(value.valueptr)^) result:=texprvalue.create_real(-pbestreal(value.valueptr)^)
else else
begin InternalError(2025050610);
{ actually we should never get here but this avoids a warning }
Message(parser_e_illegal_expression);
result:=texprvalue.create_error;
end;
end end
else if check_compatible then else if check_compatible then
begin begin
@ -1414,11 +1410,7 @@ type
_OP_SHR: _OP_SHR:
result:=texprvalue.create_ord(lv shr rv); result:=texprvalue.create_ord(lv shr rv);
else else
begin InternalError(2025050611);
{ actually we should never get here but this avoids a warning }
Message(parser_e_illegal_expression);
result:=texprvalue.create_error;
end;
end; end;
end end
else else