paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 03:53:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* handle vd_threadvar inside read_record_fields()

Browse Source 
git-svn-id: trunk@39285 -
This commit is contained in:
svenbarth 2018-06-23 13:49:01 +00:00
parent 821182d518
commit 89f42fcdae
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecvar.pas
View File

@ -1785,6 +1785,8 @@ implementation
fieldvs:=tfieldvarsym(sc[i]); fieldvs:=tfieldvarsym(sc[i]);
fieldvs.visibility:=visibility; fieldvs.visibility:=visibility;
hstaticvs:=make_field_static(recst,fieldvs); hstaticvs:=make_field_static(recst,fieldvs);
if vd_threadvar in options then
include(hstaticvs.varoptions,vo_is_thread_var);
if not parse_generic then if not parse_generic then
cnodeutils.insertbssdata(hstaticvs); cnodeutils.insertbssdata(hstaticvs);
if vd_final in options then if vd_final in options then