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

* fixed oldfpcall directives; was oldfpcall

Browse Source
This commit is contained in:
florian 2003-10-05 14:39:31 +00:00
parent c73704be10
commit 1f9726c2bc
1 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
tests/test/cg/tcalpvr4.pp
View File

@ -30,25 +30,25 @@ const
type
troutine = procedure (x: longint; y: byte);oldfpcall;
troutineresult = function (x: longint; y: byte): int64;oldfpcall;
troutine = procedure (x: longint; y: byte);oldfpccall;
troutineresult = function (x: longint; y: byte): int64;oldfpccall;
tsimpleobject = object
constructor init;
procedure test_normal(x: byte);oldfpcall;
procedure test_static(x: byte);static;oldfpcall;
procedure test_virtual(x: byte);virtual;oldfpcall;
procedure test_normal(x: byte);oldfpccall;
procedure test_static(x: byte);static;oldfpccall;
procedure test_virtual(x: byte);virtual;oldfpccall;
end;
tsimpleclass = class
constructor create;
procedure test_normal(x: byte);oldfpcall;
class procedure test_static(x: byte);oldfpcall;
procedure test_virtual(x: byte);virtual;oldfpcall;
procedure test_normal(x: byte);oldfpccall;
class procedure test_static(x: byte);oldfpccall;
procedure test_virtual(x: byte);virtual;oldfpccall;
end;
tobjectmethod = procedure (x: byte) of object ;oldfpcall;
tclassmethod = procedure (x: byte) of object;oldfpcall;
tobjectmethod = procedure (x: byte) of object ;oldfpccall;
tclassmethod = procedure (x: byte) of object;oldfpccall;
var
proc : troutine;
@ -86,13 +86,13 @@ var
end;
procedure testroutine(x: longint; y: byte);oldfpcall;
procedure testroutine(x: longint; y: byte);oldfpccall;
begin
global_s32bit := x;
global_u8bit := y;
end;
function testroutineresult(x: longint; y: byte): int64;oldfpcall;
function testroutineresult(x: longint; y: byte): int64;oldfpccall;
begin
global_s32bit := x;
global_u8bit := y;
@ -162,17 +162,17 @@ var
begin
end;
procedure tsimpleobject.test_normal(x: byte);oldfpcall;
procedure tsimpleobject.test_normal(x: byte);oldfpccall;
begin
global_u8bit := x;
end;
procedure tsimpleobject.test_static(x: byte);oldfpcall;
procedure tsimpleobject.test_static(x: byte);oldfpccall;
begin
global_u8bit := x;
end;
procedure tsimpleobject.test_virtual(x: byte);oldfpcall;
procedure tsimpleobject.test_virtual(x: byte);oldfpccall;
begin
global_u8bit := x;
end;
@ -183,17 +183,17 @@ var
inherited create;
end;
procedure tsimpleclass. test_normal(x: byte);oldfpcall;
procedure tsimpleclass. test_normal(x: byte);oldfpccall;
begin
global_u8bit := x;
end;
class procedure tsimpleclass.test_static(x: byte);oldfpcall;
class procedure tsimpleclass.test_static(x: byte);oldfpccall;
begin
global_u8bit := x;
end;
procedure tsimpleclass.test_virtual(x: byte);oldfpcall;
procedure tsimpleclass.test_virtual(x: byte);oldfpccall;
begin
global_u8bit := x;
end;
@ -529,7 +529,10 @@ end.
{
$Log$
Revision 1.6 2003-10-03 14:46:37 peter
Revision 1.7 2003-10-05 14:39:31 florian
* fixed oldfpcall directives; was oldfpcall
Revision 1.6 2003/10/03 14:46:37 peter
* popstack to oldfpccall
Revision 1.5 2003/05/15 20:34:29 peter