mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-15 22:30:36 +01:00
* fixed test cg/taddr2.pp for i8086 medium memory model
git-svn-id: trunk@25504 -
This commit is contained in:
parent
8608969eb8
commit
4d369654e0
@ -51,7 +51,7 @@ var
|
|||||||
pcharptr : pchar;
|
pcharptr : pchar;
|
||||||
plongint : ^longint;
|
plongint : ^longint;
|
||||||
long: longint;
|
long: longint;
|
||||||
ptr: pointer;
|
ptr: codepointer;
|
||||||
begin
|
begin
|
||||||
{ Test procedure variable }
|
{ Test procedure variable }
|
||||||
procptr:=testprocvar;
|
procptr:=testprocvar;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user