fpc/tw19697.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 5c1b8fdad9 Fix for Mantis #19697 . For this we need to have the internal static var symbol know that it came from a static field var symbol so that we can check that for generic or not.

symsym.pas, tfieldvarsym:
  + add new field fieldvarsym which holds a reference to a tfieldvarsym if the static sym was created based on such a symbol
  + add necessary methods and code to correctly load from and store to PPU
  + add new constructor create_from_fieldvar
symcreat.pas, make_field_static: 
  * use new create_from_fieldvar constructor instead of the default one
hlcgobj.pas, finalize_static_data:
  * check whether the static var is based on a generic's class var
ppu.pas:
  * increase PPU version

+ added test

git-svn-id: trunk@27466 -

2014-04-04 16:15:41 +00:00

17 lines

169 B

ObjectPascal

Raw Permalink Blame History

 { %NORUN }
 program tw19697;
 {$mode objfpc}{$H+}
 uses
   uw19697;
 type
   TSpecialisedClass = specialize TGenericClass<Integer>;
 begin
   TSpecialisedClass.Init;
 end.