소스 검색

* fix setting of sp_static

peter 23 년 전
부모
커밋
d04496352f
1개의 변경된 파일6개의 추가작업 그리고 1개의 파일을 삭제
  1. 6 1
      compiler/pdecvar.pas

+ 6 - 1
compiler/pdecvar.pas

@@ -71,6 +71,8 @@ implementation
            while assigned(vs) do
              begin
                 vs.vartype:=tt;
+                if (sp_static in current_object_option) then
+                  include(vs.symoptions,sp_static);
                 if is_threadvar then
                   include(vs.varoptions,vo_is_thread_var);
                 { static data fields are inserted in the globalsymtable }
@@ -555,7 +557,10 @@ implementation
 end.
 {
   $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
       is only allowed for the same name
     * varsyms are inserted in symtable before the types are parsed. This