paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

chelper: fix enum writting as const for all in once mode

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1282 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz 2010-08-13 13:40:40 +00:00
parent 5efd49f60b
commit 2c90d92b2e
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/chelper/ctopasconvert.pas
View File

@ -451,6 +451,15 @@ begin
cnv.wr.Section:=lastsec; cnv.wr.Section:=lastsec;
if lastsec<>'' then cnv.wr.IncIdent; if lastsec<>'' then cnv.wr.IncIdent;
//hack, based on knowledge of how enums writting works
if (ent is TEnumType) or ((ent is TTypeDef) and (TTypeDef(ent).origintype is TEnumType)) then
begin
if cfg.EnumsAsConst and (cnv.wr.Section='type') then begin
cnv.wr.DecIdent;
cnv.wr.Section:='';
end;
end;
cnv.WriteCtoPas(ent, p.Comments, t); cnv.WriteCtoPas(ent, p.Comments, t);
lastsec:=cnv.wr.Section; lastsec:=cnv.wr.Section;