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

gir2pascal: Used consistent naming of MsWindows directive.

Browse Source 
Compilation directive `MsWindows`is inserted in 3 different places with
3 different case mixing.

Also white spaces around it are some times added and sometimes not.

This commit fixes all to a single convention.
This commit is contained in:
Abou Al Montacir 2023-05-11 21:09:24 +02:00
parent 1b03a8aff4
commit 5c6f02b8ee
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/gir2pascal/girpascalwritertypes.pas
View File

@ -1227,7 +1227,7 @@ begin
WriteFunctionTypeAndReturnType(AItem, RoutineType, Returns);
Params := WriteFunctionParams(AItem.Params);
Postfix := ' external' +' {$ifdef Mswindows}'+UnitName+'_library '+' name ''' + aitem.CIdentifier+ '''{$endif};';
Postfix := ' external' +' {$ifdef MsWindows} '+UnitName+'_library'+' name ''' + aitem.CIdentifier+ ''' {$endif};';
FuncSect := WantFunctionSection;
if not (goLinkDynamic in FOptions) then
FuncSect.Lines.Add(RoutineType +' '+ AItem.CIdentifier+ParenParams(Params)+Returns+Postfix)
@ -1290,7 +1290,7 @@ begin
if Pos('array of const', Params) + Pos('va_list', Params) > 0 then
Prefix:='//';
if not (goLinkDynamic in FOptions) then
Postfix := ' external' +' {$ifdef Mswindows}'+UnitName+'_library '+' name ''' + AFunction.CIdentifier+ '''{$endif};'+DeprecatedS
Postfix := ' external' +' {$ifdef MsWindows} '+UnitName+'_library'+' name ''' + AFunction.CIdentifier+ ''' {$endif};'+DeprecatedS
else
PostFix := ''+DeprecatedS;
@ -1559,7 +1559,7 @@ var
end;
procedure AddGetTypeProc(AObj: TgirGType);
const
GetTypeTemplate = 'function %s: %s; cdecl; external {$ifdef MSWindows} %s_library name ''%s'' {$endif};';
GetTypeTemplate = 'function %s: %s; cdecl; external {$ifdef MsWindows} %s_library name ''%s'' {$endif};';
GetTypeTemplateDyn = '%s: function:%s; cdecl;';
var
AType: String;