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

* fixed tests tprocvar1 and tprocvar3 for i8086 medium/compact memory model

Browse Source 
git-svn-id: trunk@25819 -
This commit is contained in:
nickysn 2013-10-18 14:08:11 +00:00
parent 1795368cff
commit f006476ff0
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/tprocvar1.pp
View File

@ -26,11 +26,11 @@ var
type
tpoo_rec = record
procpointer : pointer;
procpointer : codepointer;
s : pointer;
end;
procedure callmethodparam(s : pointer;addr : pointer;param : longint);
procedure callmethodparam(s : pointer;addr : codepointer;param : longint);
var
p : procedure(param : longint) of object;
@ -60,7 +60,7 @@ type
procedure to1.test1;
var
p:pointer;
p:codepointer;
begin
// useless only a semantic test
p:=@to1.test1;
@ -91,7 +91,7 @@ type
end;
const
constmethodaddr : pointer = @to1.test2;
constmethodaddr : codepointer = @to1.test2;
MyRecord : TMyRecord = (
MyProc1 : @TestProc;
MyProc2 : @TestProc;

11
tests/test/tprocvar3.pp
View File

@ -8,6 +8,9 @@
{$endif}
Type
{$ifndef fpc}
CodePointer = Pointer;
{$endif}
TMyRecord = Record
MyProc1,MyProc2 : Procedure(l : longint);
MyVar : longint;
@ -25,11 +28,11 @@ var
type
tpoo_rec = record
procpointer : pointer;
procpointer : codepointer;
s : pointer;
end;
procedure callmethodparam(s : pointer;addr : pointer;param : longint);
procedure callmethodparam(s : pointer;addr : codepointer;param : longint);
var
p : procedure(param : longint) of object;
@ -59,7 +62,7 @@ type
procedure to1.test1;
var
p:pointer;
p:codepointer;
begin
// useless only a semantic test
p:=@to1.test1;
@ -90,7 +93,7 @@ type
end;
const
constmethodaddr : pointer = @to1.test2;
constmethodaddr : codepointer = @to1.test2;
MyRecord : TMyRecord = (
MyProc1 : TestProc;
MyProc2 : TestProc;