From 89f42fcdaeeab4801bd0b569ab786b9345b9fc58 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sat, 23 Jun 2018 13:49:01 +0000
Subject: [PATCH] * handle vd_threadvar inside read_record_fields()
git-svn-id: trunk@39285 -
---
compiler/pdecvar.pas | 2 ++
1 file changed, 2 insertions(+)
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