paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 04:02:40 +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]);
include(fieldvs.symoptions,sp_static);
{ 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);
insertbssdata(hstaticvs);
{ generate the symbol for the access }

2
compiler/ppu.pas
View File

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

4
compiler/symconst.pas
View File

@ -397,7 +397,9 @@ type
{ Objective-C message selector parameter }
vo_is_msgsel,
{ 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;

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 claim for high param of open parameters (PM) }
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;
if (tstoredsym(sym).refs=0) then
begin

10
compiler/utils/ppudump.pp
View File

@ -1299,7 +1299,10 @@ type
vo_is_range_check,
vo_is_overflow_check,
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;
{ register variable }
@ -1340,7 +1343,10 @@ const
(mask:vo_is_range_check; str:'RangeCheckSwitch'),
(mask:vo_is_overflow_check; str:'OverflowCheckSwitch'),
(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
i : longint;