paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 19:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: comment TSymTableType entries + formatting

Browse Source 
git-svn-id: trunk@16675 -
This commit is contained in:
paul 2011-01-01 16:59:33 +00:00
parent a7cea8606f
commit 7dd6cf07b4
2 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/symconst.pas
View File

@ -435,13 +435,19 @@ type
);
{ types of the symtables }
TSymtabletype = (abstracTSymtable,
globalsymtable,staticsymtable,
ObjectSymtable,recordsymtable,
localsymtable,parasymtable,
withsymtable,stt_excepTSymtable,
exportedmacrosymtable, localmacrosymtable,
enumsymtable
TSymtabletype = (
abstractsymtable, { not a real symtable }
globalsymtable, { unit interface symtable }
staticsymtable, { unit implementation symtable }
ObjectSymtable, { object symtable }
recordsymtable, { record symtable }
localsymtable, { subroutine symtable }
parasymtable, { arguments symtable }
withsymtable, { with operator symtable }
stt_excepTSymtable, { try/except symtable }
exportedmacrosymtable, { }
localmacrosymtable, { }
enumsymtable { symtable for enum members }
);

12
compiler/symdef.pas
View File

@ -345,12 +345,12 @@ interface
tarraydef = class(tstoreddef)
lowrange,
highrange : aint;
rangedef : tdef;
highrange : aint;
rangedef : tdef;
rangedefderef : tderef;
arrayoptions : tarraydefoptions;
arrayoptions : tarraydefoptions;
protected
_elementdef : tdef;
_elementdef : tdef;
_elementdefderef : tderef;
procedure setelementdef(def:tdef);
public
@ -358,7 +358,7 @@ interface
function elepackedbitsize : aint;
function elecount : aword;
constructor create_from_pointer(def:tdef);
constructor create(l,h : aint;def:tdef);
constructor create(l,h:aint;def:tdef);
constructor ppuload(ppufile:tcompilerppufile);
function getcopy : tstoreddef;override;
procedure ppuwrite(ppufile:tcompilerppufile);override;
@ -2330,7 +2330,7 @@ implementation
TARRAYDEF
***************************************************************************}
constructor tarraydef.create(l,h : aint;def:tdef);
constructor tarraydef.create(l,h:aint;def:tdef);
begin
inherited create(arraydef);
lowrange:=l;