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

* pas2jni: Properly handle enums with inline elements.

Browse Source 
git-svn-id: trunk@29160 -
This commit is contained in:
yury 2014-11-26 17:00:42 +00:00
parent 771f317f94
commit 830e3ceb0d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/pas2jni/ppuparser.pas
View File

@ -424,7 +424,7 @@ var
else else
continue; continue;
if CurObjName = '' then begin if (CurObjName = '') and (d.DefType <> dtEnum) then begin
d.Free; d.Free;
continue; continue;
end; end;
@ -530,6 +530,8 @@ var
Base:=it.Integers['Base']; Base:=it.Integers['Base'];
ElMax:=it.Integers['Max']; ElMax:=it.Integers['Max'];
ElType:=TTypeDef(_GetRef(it.Objects['ElType'], TTypeDef)); ElType:=TTypeDef(_GetRef(it.Objects['ElType'], TTypeDef));
if (ElType <> nil) and (ElType.Name = '') then
ElType.Name:=CurObjName + 'El';
end; end;
dtConst: dtConst:
with TConstDef(d) do begin with TConstDef(d) do begin