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

* Fix compilation for msdos

Browse Source 
git-svn-id: trunk@33704 -
This commit is contained in:
michael 2016-05-17 18:41:33 +00:00
parent d2ce69a98c
commit 253589b0b6
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/syssb.inc
View File

@ -260,7 +260,7 @@ begin
Result:=Self;
end;
function TStringBuilder.Append(const AValue: Integer): TStringBuilder;
function TStringBuilder.Append(const AValue: LongInt): TStringBuilder;
begin
DoAppend(IntToStr(AValue));
Result:=Self;
@ -454,7 +454,7 @@ begin
Result:=Self;
end;
function TStringBuilder.Insert(Index: Integer; const AValue: Integer
function TStringBuilder.Insert(Index: Integer; const AValue: LongInt
): TStringBuilder;
begin
DoInsert(Index,IntToStr(AValue));

4
rtl/objpas/sysutils/syssbh.inc
View File

@ -42,7 +42,7 @@
Function Append(const AValue: Currency): TStringBuilder;
Function Append(const AValue: Double): TStringBuilder;
Function Append(const AValue: Smallint): TStringBuilder;
Function Append(const AValue: Integer): TStringBuilder;
Function Append(const AValue: LongInt): TStringBuilder;
Function Append(const AValue: Int64): TStringBuilder;
Function Append(const AValue: TObject): TStringBuilder;
Function Append(const AValue: Shortint): TStringBuilder;
@ -77,7 +77,7 @@
Function Insert(Index: Integer; const AValue: Currency): TStringBuilder;
Function Insert(Index: Integer; const AValue: Double): TStringBuilder;
Function Insert(Index: Integer; const AValue: Smallint): TStringBuilder;
Function Insert(Index: Integer; const AValue: Integer): TStringBuilder;
Function Insert(Index: Integer; const AValue: LongInt): TStringBuilder;
Function Insert(Index: Integer; const AValue: TSBCharArray): TStringBuilder;
Function Insert(Index: Integer; const AValue: Int64): TStringBuilder;
Function Insert(Index: Integer; const AValue: TObject): TStringBuilder;