mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-03 12:29:25 +01:00
* mark defs created with create_global_internal() with df_internal so that they can be easily identified
git-svn-id: trunk@34316 -
This commit is contained in:
parent
5d4682349d
commit
c2662bd96a
@ -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;
|
||||
|
||||
|
||||
@ -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;
|
||||
|
||||
|
||||
|
||||
@ -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'),
|
||||
|
||||
Loading…
Reference in New Issue
Block a user