paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 06:28:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

JVM: add typesym for anonymous record typed constants

Browse Source 
Fixes compilation of system unit with JVM compiler after b38d13577f
This commit is contained in:
Jonas Maebe 2023-02-04 12:23:29 +01:00
parent 9c10167b6f
commit 7f41bb4718
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pdecl.pas
View File

@ -59,7 +59,7 @@ implementation
globals,tokens,verbose,widestr,constexp,
systems,aasmdata,fmodule,compinnr,
{ symtable }
symconst,symbase,symcpu,symcreat,defutil,defcmp,symtable,
symconst,symbase,symcpu,symcreat,defutil,defcmp,symtable,symutil,
{ pass 1 }
ninl,ncon,nobj,ngenutil,nld,nmem,ncal,pass_1,
{ parser }
@ -352,6 +352,7 @@ implementation
if not skip_initialiser then
begin
consume(_EQ);
maybe_guarantee_record_typesym(tstaticvarsym(sym).vardef,tstaticvarsym(sym).vardef.owner);
read_typed_const(current_asmdata.asmlists[asmtype],tstaticvarsym(sym),in_structure);
end;
end;

1
compiler/pdecvar.pas
View File

@ -1155,6 +1155,7 @@ implementation
end;
staticvarsym :
begin
maybe_guarantee_record_typesym(vs.vardef,vs.vardef.owner);
read_typed_const(current_asmdata.asmlists[al_typedconsts],tstaticvarsym(vs),false);
end;
else

4
compiler/symutil.pas
View File

@ -34,7 +34,7 @@ interface
function get_first_proc_str(Options: TProcOptions): ShortString;
procedure maybe_guarantee_record_typesym(var def: tdef; st: tsymtable);
procedure maybe_guarantee_record_typesym(def: tdef; st: tsymtable);
function is_normal_fieldvarsym(sym: tsym): boolean; inline;
@ -125,7 +125,7 @@ implementation
end;
procedure maybe_guarantee_record_typesym(var def: tdef; st: tsymtable);
procedure maybe_guarantee_record_typesym(def: tdef; st: tsymtable);
var
ts: ttypesym;
begin