fpc/tb0224.pp at main - fpc - brudnopis.ovh - Gitea

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 22:28:06 +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

99 B

ObjectPascal

Raw Permalink Blame History

 { %FAIL }
 program tb0224;
 type
   TTest = record
     f: array[0..0] of TTest;
   end;
 begin
 end.