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

compiler: don't show notes for symbols which are created by static class fields, update ppudump and ppu version

Browse Source 
git-svn-id: trunk@14608 -
This commit is contained in:
paul 2010-01-11 06:38:40 +00:00
parent 91ed1c6e6f
commit c9987c296e
5 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecvar.pas
View File

@ -1485,7 +1485,7 @@ implementation
fieldvs:=tfieldvarsym(sc[i]); fieldvs:=tfieldvarsym(sc[i]);
include(fieldvs.symoptions,sp_static); include(fieldvs.symoptions,sp_static);
{ generate the symbol which reserves the space } { generate the symbol which reserves the space }
hstaticvs:=tstaticvarsym.create('$_static_'+lower(symtablestack.top.name^)+'_'+fieldvs.name,vs_value,hdef,[]); hstaticvs:=tstaticvarsym.create('$_static_'+lower(symtablestack.top.name^)+'_'+fieldvs.name,vs_value,hdef,[vo_is_internal]);
recst.defowner.owner.insert(hstaticvs); recst.defowner.owner.insert(hstaticvs);
insertbssdata(hstaticvs); insertbssdata(hstaticvs);
{ generate the symbol for the access } { generate the symbol for the access }

2
compiler/ppu.pas
View File

@ -43,7 +43,7 @@ type
{$endif Test_Double_checksum} {$endif Test_Double_checksum}
const const
CurrentPPUVersion = 110; CurrentPPUVersion = 111;
{ buffer sizes } { buffer sizes }
maxentrysize = 1024; maxentrysize = 1024;

4
compiler/symconst.pas
View File

@ -397,7 +397,9 @@ type
{ Objective-C message selector parameter } { Objective-C message selector parameter }
vo_is_msgsel, vo_is_msgsel,
{ first field of a record or variant part of a record } { first field of a record or variant part of a record }
vo_is_first_field vo_is_first_field,
{ symbols which inserts compiler for special use. they don't generate notes }
vo_is_internal
); );
tvaroptions=set of tvaroption; tvaroptions=set of tvaroption;

3
compiler/symtable.pas
View File

@ -575,7 +575,8 @@ implementation
{ also don't count the value parameters which have local copies } { also don't count the value parameters which have local copies }
{ also don't claim for high param of open parameters (PM) } { also don't claim for high param of open parameters (PM) }
if (Errorcount<>0) or if (Errorcount<>0) or
([vo_is_hidden_para,vo_is_funcret] * tabstractvarsym(sym).varoptions = [vo_is_hidden_para]) then ([vo_is_hidden_para,vo_is_funcret] * tabstractvarsym(sym).varoptions = [vo_is_hidden_para]) or
(vo_is_internal in tabstractvarsym(sym).varoptions) then
exit; exit;
if (tstoredsym(sym).refs=0) then if (tstoredsym(sym).refs=0) then
begin begin

10
compiler/utils/ppudump.pp
View File

@ -1299,7 +1299,10 @@ type
vo_is_range_check, vo_is_range_check,
vo_is_overflow_check, vo_is_overflow_check,
vo_is_typinfo_para, vo_is_typinfo_para,
vo_is_weak_external vo_is_weak_external,
vo_is_msgsel,
vo_is_first_field,
vo_is_internal
); );
tvaroptions=set of tvaroption; tvaroptions=set of tvaroption;
{ register variable } { register variable }
@ -1340,7 +1343,10 @@ const
(mask:vo_is_range_check; str:'RangeCheckSwitch'), (mask:vo_is_range_check; str:'RangeCheckSwitch'),
(mask:vo_is_overflow_check; str:'OverflowCheckSwitch'), (mask:vo_is_overflow_check; str:'OverflowCheckSwitch'),
(mask:vo_is_typinfo_para; str:'TypeInfo'), (mask:vo_is_typinfo_para; str:'TypeInfo'),
(mask:vo_is_weak_external;str:'WeakExternal') (mask:vo_is_msgsel;str:'MsgSel'),
(mask:vo_is_weak_external;str:'WeakExternal'),
(mask:vo_is_first_field;str:'IsFirstField'),
(mask:vo_is_internal;str:'IsInternal')
); );
var var
i : longint; i : longint;