Internal Error 200402171
lazarus / 64-FPC development

----------------------------------------------------------------------
mark.chambers · 2017-10-01 11:52

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

                       Code: Pascal  [Select][+][-]window.onload =
function(){var x1 = document.getElementById("main_content_section");
if (x1) { var x = document.getElementsByClassName("geshi");for (var i
= 0; i 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

----------------------------------------------------------------------
mark.chambers · 2017-10-01 13:56

Is this the right forum to ask this question?
Mark

----------------------------------------------------------------------
mark.chambers · 2017-10-01 14:04

OK. Found the evil line of code:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i property
FromX: ValReal read Line.Point1.X write SetFromX;
Line is a record, Point1 is a record, x is a ValReal.
Replacing this with a Getter stops the error.

----------------------------------------------------------------------
marcov · 2017-10-01 14:14

Please make a minimal program triggering the IE and submit it to the
bugtracker at https//bugs.freepascal.org

----------------------------------------------------------------------
bytebites · 2017-10-01 17:14

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i published 
property fromx:valreal read line.point1.x write Setfromx;
Can't reproduce with small piece of code. The property fromx needs to
be in published section to get above mentioned internal error.