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

* fix setting of sp_static

Browse Source
This commit is contained in:
peter 2002-09-16 18:08:45 +00:00
parent 6c06c346d8
commit d04496352f
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecvar.pas
View File

@ -71,6 +71,8 @@ implementation
while assigned(vs) do while assigned(vs) do
begin begin
vs.vartype:=tt; vs.vartype:=tt;
if (sp_static in current_object_option) then
include(vs.symoptions,sp_static);
if is_threadvar then if is_threadvar then
include(vs.varoptions,vo_is_thread_var); include(vs.varoptions,vo_is_thread_var);
{ static data fields are inserted in the globalsymtable } { static data fields are inserted in the globalsymtable }
@ -555,7 +557,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.32 2002-09-09 17:34:15 peter Revision 1.33 2002-09-16 18:08:45 peter
* fix setting of sp_static
Revision 1.32 2002/09/09 17:34:15 peter
* tdicationary.replace added to replace and item in a dictionary. This * tdicationary.replace added to replace and item in a dictionary. This
is only allowed for the same name is only allowed for the same name
* varsyms are inserted in symtable before the types are parsed. This * varsyms are inserted in symtable before the types are parsed. This