Internal error 200405231
Original Reporter info from Mantis: BeniBela @benibela
-
Reporter name: Benito van der Zander
Original Reporter info from Mantis: BeniBela @benibela
- Reporter name: Benito van der Zander
Description:
This code:
program 200405231;
{$mode objfpc}{$H+}
uses sysutils;
type TTreeNode = class
hash: cardinal;
value: string;
end;
function striequal(const s1, s2: rawbytestring): boolean; inline;
begin
result:=CompareText(s1,s2)=0;
end;
function test(n: TTreeNode; isHTML5: boolean): boolean;
begin
result := false;
case n.hash of
$F2F96899: result := striequal(n.value,'isindex') and not isHTML5;
$A54D33BB: result := striequal(n.value,'keygen') and isHTML5;
end;
end;
begin
end.
gives an internal error 200405231 when compiled -O2.
Additional information:
Tested with r40721 and r44126.
It goes away with {$checkimplicitexceptions off}
Mantis conversion info:
- Mantis ID: 36840
- OS: linux
- OS Build: opensuse
- Build: r44126
- Platform: amd64
- Version: 3.3.1
- Fixed in version: 3.2.1
- Fixed in revision: 47152 (#52235af8)