paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 09:09: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} {$apptype console}
type type
{$ifndef fpc}
CodePointer = Pointer;
{$endif}
{$M+} {$M+}
TTest = class TTest = class
end; end;
@ -27,12 +30,12 @@ end;
var var
f: TTest; f: TTest;
res: Pointer; res: CodePointer;
begin begin
f := TTest.Create; f := TTest.Create;
res := f.MethodAddress('Test'); res := f.MethodAddress('Test');
{$ifdef fpc} {$ifdef fpc}
Writeln('Address of TTest.Test: ', PtrInt(res)); Writeln('Address of TTest.Test: ', CodePtrInt(res));
{$else} {$else}
Writeln('Address of TTest.Test: ', NativeInt(res)); Writeln('Address of TTest.Test: ', NativeInt(res));
{$endif} {$endif}