Internal error 2013102303
Fpc 3.2.3 and Fpc 3.3.1 (3.3.1 from 11th Feb 2024)
Compile the below.
- The commented type helper works (if the function bodies are added).
- But in the inherited class an internal error happens
- IT works if the base class uses: private (same unit), protected, or public. Just not for "strict protected"
```
program Project1;
{$ModeSwitch typehelpers}
type
TDBGPtr = qword;
TFpBreakPointMap = class abstract
strict protected type
{ TFpBreakPointMapEntry }
TFpBreakPointMapEntry = packed record
InternalBreakPoint: Pointer; // TFpInternalBreakpoint or TFpInternalBreakpointArray
IsBreakList: ByteBool;
end;
PFpBreakPointMapEntry = ^TFpBreakPointMapEntry;
{ TFpBreakPointMapLocDataPair }
TFpBreakPointMapLocDataPair = record
Location: TDBGPtr;
Data: PFpBreakPointMapEntry;
end;
//TFpBreakPointMapLocDataPairHelper = type helper for TFpBreakPointMapLocDataPair
// function OrigValue: Byte;
// function ErrorSetting: ByteBool;
//end;
end;
TBreakLocationMap = class(TFpBreakPointMap)
strict protected type
TFpBreakPointMapLocDataPairHelper = type helper for TFpBreakPointMapLocDataPair
function OrigValue: Byte;
function ErrorSetting: ByteBool;
end;
end;
begin
end.
```
issue