paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 13:29:32 +01: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} {$endif}
type type
{$ifndef fpc}
CodePointer = Pointer;
{$endif}
tmyobject = object tmyobject = object
procedure myroutine(x: byte); procedure myroutine(x: byte);
@ -23,7 +26,7 @@ type
type type
objpointer = packed record objpointer = packed record
_method : pointer; _method : codepointer;
_vmt : pointer; _vmt : pointer;
end; end;