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

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 08:18:12 +02:00

svenbarth 10af6fe2fb * fix for Mantis #35965 : correct alignment also for the class info used to retrieve the unit name

+ added test

git-svn-id: trunk@42697 -

2019-08-15 13:29:19 +00:00

7 lines

81 B

ObjectPascal

Raw Permalink Blame History

 program tw35965;
 begin
   if TObject.UnitName <> 'System' then
     Halt(1);
 end.