You've already forked lazarus-ccr
gobject-introspection: Fix compilation on Windows (issue #34219, patch by bartoc)
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6630 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -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;
|
||||||
|
Reference in New Issue
Block a user