diff options
| author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-06-23 13:49:01 +0000 |
|---|---|---|
| committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-06-23 13:49:01 +0000 |
| commit | 6353dbd002611968400a53db55f6e77f80c258af (patch) | |
| tree | 0dfa1867c077a0b35f7c338524702c35ef3c4673 /compiler/pdecvar.pas | |
| parent | 4d8f100b637e268b13cb5e2272f768db9ba547b1 (diff) | |
| download | fpc-6353dbd002611968400a53db55f6e77f80c258af.tar.gz | |
* handle vd_threadvar inside read_record_fields()
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@39285 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/pdecvar.pas')
| -rw-r--r-- | compiler/pdecvar.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/pdecvar.pas b/compiler/pdecvar.pas index 7ce06ddf72..a1aeaca68a 100644 --- a/compiler/pdecvar.pas +++ b/compiler/pdecvar.pas @@ -1785,6 +1785,8 @@ implementation fieldvs:=tfieldvarsym(sc[i]); fieldvs.visibility:=visibility; hstaticvs:=make_field_static(recst,fieldvs); + if vd_threadvar in options then + include(hstaticvs.varoptions,vo_is_thread_var); if not parse_generic then cnodeutils.insertbssdata(hstaticvs); if vd_final in options then |