paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:29:33 +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 type
troutine = procedure (x: longint; y: byte);oldfpcall; troutine = procedure (x: longint; y: byte);oldfpccall;
troutineresult = function (x: longint; y: byte): int64;oldfpcall; troutineresult = function (x: longint; y: byte): int64;oldfpccall;
tsimpleobject = object tsimpleobject = object
constructor init; constructor init;
procedure test_normal(x: byte);oldfpcall; procedure test_normal(x: byte);oldfpccall;
procedure test_static(x: byte);static;oldfpcall; procedure test_static(x: byte);static;oldfpccall;
procedure test_virtual(x: byte);virtual;oldfpcall; procedure test_virtual(x: byte);virtual;oldfpccall;
end; end;
tsimpleclass = class tsimpleclass = class
constructor create; constructor create;
procedure test_normal(x: byte);oldfpcall; procedure test_normal(x: byte);oldfpccall;
class procedure test_static(x: byte);oldfpcall; class procedure test_static(x: byte);oldfpccall;
procedure test_virtual(x: byte);virtual;oldfpcall; procedure test_virtual(x: byte);virtual;oldfpccall;
end; end;
tobjectmethod = procedure (x: byte) of object ;oldfpcall; tobjectmethod = procedure (x: byte) of object ;oldfpccall;
tclassmethod = procedure (x: byte) of object;oldfpcall; tclassmethod = procedure (x: byte) of object;oldfpccall;
var var
proc : troutine; proc : troutine;
@ -86,13 +86,13 @@ var
end; end;
procedure testroutine(x: longint; y: byte);oldfpcall; procedure testroutine(x: longint; y: byte);oldfpccall;
begin begin
global_s32bit := x; global_s32bit := x;
global_u8bit := y; global_u8bit := y;
end; end;
function testroutineresult(x: longint; y: byte): int64;oldfpcall; function testroutineresult(x: longint; y: byte): int64;oldfpccall;
begin begin
global_s32bit := x; global_s32bit := x;
global_u8bit := y; global_u8bit := y;
@ -162,17 +162,17 @@ var
begin begin
end; end;
procedure tsimpleobject.test_normal(x: byte);oldfpcall; procedure tsimpleobject.test_normal(x: byte);oldfpccall;
begin begin
global_u8bit := x; global_u8bit := x;
end; end;
procedure tsimpleobject.test_static(x: byte);oldfpcall; procedure tsimpleobject.test_static(x: byte);oldfpccall;
begin begin
global_u8bit := x; global_u8bit := x;
end; end;
procedure tsimpleobject.test_virtual(x: byte);oldfpcall; procedure tsimpleobject.test_virtual(x: byte);oldfpccall;
begin begin
global_u8bit := x; global_u8bit := x;
end; end;
@ -183,17 +183,17 @@ var
inherited create; inherited create;
end; end;
procedure tsimpleclass. test_normal(x: byte);oldfpcall; procedure tsimpleclass. test_normal(x: byte);oldfpccall;
begin begin
global_u8bit := x; global_u8bit := x;
end; end;
class procedure tsimpleclass.test_static(x: byte);oldfpcall; class procedure tsimpleclass.test_static(x: byte);oldfpccall;
begin begin
global_u8bit := x; global_u8bit := x;
end; end;
procedure tsimpleclass.test_virtual(x: byte);oldfpcall; procedure tsimpleclass.test_virtual(x: byte);oldfpccall;
begin begin
global_u8bit := x; global_u8bit := x;
end; end;
@ -529,7 +529,10 @@ end.
{ {
$Log$ $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 * popstack to oldfpccall
Revision 1.5 2003/05/15 20:34:29 peter Revision 1.5 2003/05/15 20:34:29 peter