paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 10:39:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* objpas.integer=smallint fixes in several tests

Browse Source 
git-svn-id: trunk@27054 -
This commit is contained in:
nickysn 2014-03-09 17:13:40 +00:00
parent ad1cc67eb2
commit 0621dd523a
7 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw10320.pp
View File

@ -14,7 +14,7 @@ type
function GetP(Index : integer) : Pointer;
constructor create;
public
property P[Index: LongInt]: Pointer read GetP;
property P[Index: Integer]: Pointer read GetP;
end;
var a : TRgbArray;

2
tests/webtbs/tw15415.pp
View File

@ -2,7 +2,7 @@
type
TMyClass = class
i, i2 :Integer;
i, i2 :LongInt;
end;
begin

10
tests/webtbs/tw16365.pp
View File

@ -11,8 +11,8 @@ type
timpclass = class(tobject,itest)
protected
function _addref: integer; virtual; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function _release: integer; virtual; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function _addref: longint; virtual; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function _release: longint; virtual; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function QueryInterface(constref IID: TGUID; out Obj): HResult; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
public
function test: longint;
@ -35,12 +35,12 @@ begin
result:=123456;
end;
function timpclass._addref: integer; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function timpclass._addref: longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
begin
result:= -1;
end;
function timpclass._release: integer; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function timpclass._release: longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
begin
result:= -1;
end;
@ -51,7 +51,7 @@ begin
Result:=0
end
else begin
result:= integer(e_nointerface);
result:= HResult(e_nointerface);
end;
end;

4
tests/webtbs/tw20192.pp
View File

@ -8,7 +8,7 @@ type
public
constructor Create(Val: _T);
function Bug: Integer;
function Bug: LongInt;
end;
{--- TGen.Create ---}
@ -19,7 +19,7 @@ begin
end;
{--- TGen.Bug ---}
function TGen.Bug : Integer;
function TGen.Bug : LongInt;
begin
Result := 100000 div SizeOf(_T); // *** DIVISION BY ZERO ***

12
tests/webtbs/tw2177.pp
View File

@ -16,25 +16,25 @@ type
Twii= class(TObject, ii)
s: string;
function QueryInterface(constref IID: TGUID; out Obj): Integer; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function _AddRef: Integer; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function _Release: Integer; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function QueryInterface(constref IID: TGUID; out Obj): Longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function _AddRef: Longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function _Release: Longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
procedure Show;stdcall;
end;
{________doomy interfaces______}
function Twii.QueryInterface(constref IID: TGUID; out Obj): Integer; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function Twii.QueryInterface(constref IID: TGUID; out Obj): Longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
begin
result:= -1;
end;
function Twii._AddRef: Integer; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function Twii._AddRef: Longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
begin
result:= -1;
end;
function Twii._Release: Integer; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
function Twii._Release: Longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
begin
result:= -1;
end;

2
tests/webtbs/tw4778.pp
View File

@ -6,7 +6,7 @@ program Test1;
{$mode delphi}
var
AnInt : Integer;
AnInt : Longint;
begin

2
tests/webtbs/tw8140h.pp
View File

@ -17,7 +17,7 @@ type
locateoptionsty = set of locateoptionty;
imselocate = interface(inullinterface)['{2680958F-F954-DA11-9015-00C0CA1308FF}']
function locate(const key: integer; const field: tfield;
function locate(const key: longint; const field: tfield;
const options: locateoptionsty = []): locateresultty;
end;