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

* fixed test units/system/tassignd.pp for i8086 medium/compact memory model

Browse Source 
git-svn-id: trunk@25820 -
This commit is contained in:
nickysn 2013-10-18 14:18:36 +00:00
parent f006476ff0
commit 2a11883ad6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/units/system/tassignd.pp
View File

@ -6,6 +6,9 @@
{$endif}
type
{$ifndef fpc}
CodePointer = Pointer;
{$endif}
tmyobject = object
procedure myroutine(x: byte);
@ -23,7 +26,7 @@ type
type
objpointer = packed record
_method : pointer;
_method : codepointer;
_vmt : pointer;
end;