fpc/tb0589.pp at f8c92914c2f33be7a3f53b4278b50792c9c73b13 - fpc - brudnopis.ovh - Gitea

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 11:38:01 +02:00

svenbarth 359a228085 Fix one problem type of Mantis #23546 . A record must not contain a static array that uses itself as an element type (in can contain a dynamic array however) otherwise an infinite loop is encountered when checking whether the record needs special init/final code.

pdecvar.pas, read_record_fields:
  * if the def of the field is a static array then use the array's element def (the final element def if it is a multi dimensional array) to check for whether this is the current record type

+ added tests

git-svn-id: trunk@23352 -

2013-01-09 14:07:01 +00:00

13 lines

94 B

ObjectPascal

Raw Blame History

 { %NORUN }
 program tb0589;
 type
   TTest = record
     f: array of TTest;
   end;
 begin
 end.