paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'gir2pas' into 'main'

Browse Source 
gir2pas: Fixed generation of enumeration types other than bit fields.

See merge request freepascal.org/lazarus/lazarus!206
This commit is contained in:
Maxim Ganetsky 2023-06-17 20:12:12 +00:00
commit c709d94d65
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tools/gir2pascal/Makefile
View File

@ -20,9 +20,10 @@ OPTIONS=\
OBJ=*.o *.or *.ppu *.rsj
gir2pas:gir2pascal.lpr $(SOURCES)
mkdir -p ${UNITS_DIR}
fpc $(OPTIONS) $< -o$@
clean:
${RM} gir2pas ${UNITS_DIR} $(OBJ)
${RM} -r gir2pas ${UNITS_DIR} $(OBJ)
.PHONY: clean

3
tools/gir2pascal/gir2pascal.lpr
View File

@ -352,6 +352,9 @@ begin
Terminate;
end;
Include(FOptions, EnumImpl);
if goEnumAsSet in FOptions then begin
Include(FOptions, goEnumAsEnum);
end;
end;
VerifyOptions;

3
tools/gir2pascal/girpascalwritertypes.pas
View File

@ -1172,9 +1172,6 @@ var
i: Integer;
AddedConst: Boolean;
begin
if goEnumAsSet in FOptions then begin
Include(FOptions, goEnumAsEnum);
end;
HandleEnum(AItem);
if goEnumAsSet in FOptions then begin
Section := WantEnumTypesSection;