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

* fixed test tchlp24 for i8086 medium/compact memory models

Browse Source 
git-svn-id: trunk@25818 -
This commit is contained in:
nickysn 2013-10-18 13:28:10 +00:00
parent ef51c8c5a2
commit 1795368cff
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/test/tchlp24.pp
View File

@ -8,6 +8,9 @@ program tchlp24;
{$apptype console}
type
{$ifndef fpc}
CodePointer = Pointer;
{$endif}
{$M+}
TTest = class
end;
@ -27,12 +30,12 @@ end;
var
f: TTest;
res: Pointer;
res: CodePointer;
begin
f := TTest.Create;
res := f.MethodAddress('Test');
{$ifdef fpc}
Writeln('Address of TTest.Test: ', PtrInt(res));
Writeln('Address of TTest.Test: ', CodePtrInt(res));
{$else}
Writeln('Address of TTest.Test: ', NativeInt(res));
{$endif}