Hi Guys,
I got an internal error 200402171 and Google was no help!
Windows 10
CodeTyphon 6.1
FPC 3.1.1
I found where 200402171 was being generated:
ncgrtti.pas: 657
sl_subscript :
begin
if not(assigned(def) and
((def.typ=recorddef) or
is_object(def))) then
internalerror(200402171);
inc(address,tfieldvarsym(hp^.sym).fieldoffset);
def:=tfieldvarsym(hp^.sym).vardef;
end;
It seems that the error is raised if 'def' is not an object or a record.
Can anyone give me any hints as to what code might be causing this error to trigger. It looks like something to do with a property declaration with a subscript. I have some of these in the code but they aren't doing anything particularly tricky so I don't see why they would cause a problem.
I haven't been able to duplicate the issue with a small program but I can provide the whole program if it helps. ( 3 units, ~3000 lines).
Thanks in advance,
Mark