paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 03:48:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correction in naming of types

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-27 21:45:06 +01:00
parent 98b551d261
commit 690ed25adf
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-openapi/src/fpopenapi.pascaltypes.pp
View File

@ -708,8 +708,11 @@ procedure TAPIData.ConfigType(aType :TAPITypeData);
begin
aType.InterfaceName:=EscapeKeyWord(InterfaceTypePrefix+aType.SchemaName);
aType.InterfaceUUID:=TGUID.NewGUID.ToString(False);
if aType.Pascaltype in [ptAnonStruct,ptSchemaStruct] then
begin
aType.InterfaceName:=EscapeKeyWord(InterfaceTypePrefix+aType.SchemaName);
aType.InterfaceUUID:=TGUID.NewGUID.ToString(False);
end;
end;
procedure TAPIData.ApplyUUIDMap(aMap : TStrings);