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

Merge branch 'main' into 'main'

Browse Source 
gir2pascal: Generate pointer types for all declared types.

See merge request freepascal.org/lazarus/lazarus!165
This commit is contained in:
Maxim Ganetsky 2023-05-21 22:15:11 +00:00
commit 8d51f97385
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/gir2pascal/girpascalwritertypes.pas
View File

@ -914,6 +914,8 @@ begin
//WriteLn('Warning: Forwards definitions already written for : ', Aitem.TranslatedName);
AItem.ForwardDefinitionWritten := True;
PTypes := MakePointerTypesForType(ATypeName, APointerLevel);
ALines.Add('');
Alines.Add(IndentText('{ ' + ATypeName + ' }', 2, 0));
PTypes.Insert(0, ATypeName);
for i := PTypes.Count-1 downto 1 do
ALines.Add(IndentText(PTypes[i]+ ' = ^'+PTypes[i-1]+';',2,0));
@ -939,7 +941,7 @@ begin
TypeSect := WantTypeSection;
AItem.TranslatedName:=AItem.CType;
//WritePointerTypesForType(Aitem, AItem.CType, AItem.ImpliedPointerLevel, TypeSect.Lines);
WritePointerTypesForType(Aitem, AItem.CType, AItem.ImpliedPointerLevel, TypeSect.Lines);
if AItem.Name <> 'file' then
TypeSect.Lines.Add(IndentText(SanitizeName(AItem.CType)+ ' = '+ AItem.PascalName+';', 2,0));
end;