Internal Error 200402171

Forum > FPC development

(1/1)

mark.chambers:
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 [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---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:
Is this the right forum to ask this question?
Mark

mark.chambers:
OK. Found the evil line of code:

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---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:
Please make a minimal program triggering the IE and submit it to the bugtracker at https//bugs.freepascal.org

bytebites:

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---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.

Navigation

[0] Message Index