ソースを参照

* mark defs created with create_global_internal() with df_internal so that they can be easily identified

git-svn-id: trunk@34316 -
svenbarth 9 年 前
コミット
c2662bd96a
3 ファイル変更6 行追加2 行削除
  1. 3 1
      compiler/symconst.pas
  2. 1 0
      compiler/symdef.pas
  3. 2 1
      compiler/utils/ppuutils/ppudump.pp

+ 3 - 1
compiler/symconst.pas

@@ -221,7 +221,9 @@ type
     df_not_registered_no_free,
     { don't pack this record at the llvm level -- can't do this via symllvm
       because we have to access this information in the symtable unit }
-    df_llvm_no_struct_packing
+    df_llvm_no_struct_packing,
+    { internal def that's not for any export }
+    df_internal
   );
   tdefoptions=set of tdefoption;
 

+ 1 - 0
compiler/symdef.pas

@@ -4362,6 +4362,7 @@ implementation
         symtablestack:=oldsymtablestack;
         { don't create RTTI for internal types, these are not exported }
         defstates:=defstates+[ds_rtti_table_written,ds_init_table_written];
+        include(defoptions,df_internal);
       end;
 
 

+ 2 - 1
compiler/utils/ppuutils/ppudump.pp

@@ -1469,7 +1469,8 @@ const
      (mask:df_genconstraint;  str:'Generic Constraint'),
      { this should never happen for defs stored to a ppu file }
      (mask:df_not_registered_no_free;  str:'Unregistered/No free (invalid)'),
-     (mask:df_llvm_no_struct_packing;  str:'LLVM unpacked struct')
+     (mask:df_llvm_no_struct_packing;  str:'LLVM unpacked struct'),
+     (mask:df_internal;       str:'Internal')
   );
   defstate : array[1..ord(high(tdefstate))] of tdefstateinfo=(
      (mask:ds_vmt_written;           str:'VMT Written'),