diff --git a/compiler/symconst.pas b/compiler/symconst.pas index 6ecaa575f6..4c69edd53c 100644 --- a/compiler/symconst.pas +++ b/compiler/symconst.pas @@ -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 } ); diff --git a/compiler/symdef.pas b/compiler/symdef.pas index 6bbe200604..80eb906267 100644 --- a/compiler/symdef.pas +++ b/compiler/symdef.pas @@ -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;