pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

gobject-introspection: Fix compilation on Windows (issue #34219, patch by bartoc)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6630 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-09-04 21:15:58 +00:00
parent 72b96f5788
commit a143c72544
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
applications/gobject-introspection/girpascalwritertypes.pas
View File

@ -269,17 +269,16 @@ implementation
uses girpascalwriter, girCTypesMapping, girErrors, typinfo; uses girpascalwriter, girCTypesMapping, girErrors, typinfo;
function IndentText(const AText: String; Spaces: Integer = 0; LineEndingCount: Integer = 1): String; function IndentText(const AText: String; Spaces: Integer = 0; LineEndingCount: Integer = 1): String;
var
i: Integer;
begin begin
if AText = '' then if AText = '' then
Exit(''); Exit('');
SetLength(Result, Spaces); SetLength(Result, Spaces);
FillChar(Result[1], Spaces, ' '); FillChar(Result[1], Spaces, ' ');
Result := Result+AText; Result := Result+AText;
if LineEndingCount > 0 then for i := 1 to LineEndingCount do
begin Result := Result+LineEnding;
SetLength(Result, Length(Result)+Length(LineEnding)*LineEndingCount);
FillChar(Result[Length(AText)+Spaces+1], LineEndingCount, LineEnding);
end;
end; end;
function MakePointerTypesForType(const AName: String; PointerLevel: Integer): TStringList; function MakePointerTypesForType(const AName: String; PointerLevel: Integer): TStringList;