|
@@ -27,8 +27,12 @@ Begin
|
|
|
f:=@dummy;
|
|
f:=@dummy;
|
|
|
if f()<>25 then
|
|
if f()<>25 then
|
|
|
Wrong('f() does not call dummy !!');
|
|
Wrong('f() does not call dummy !!');
|
|
|
- if pointer(@f)=pointer(@dummy) then
|
|
|
|
|
|
|
+{$if sizeof(Codepointer)=sizeof(pointer) }
|
|
|
|
|
+ if pointer(@f)=codepointer(@dummy) then
|
|
|
Wrong('@f returns value of f !');
|
|
Wrong('@f returns value of f !');
|
|
|
|
|
+{$else}
|
|
|
|
|
+ Writeln('address of variable and functions of different size');
|
|
|
|
|
+{$endif}
|
|
|
if longint(f)=longint(@f) then
|
|
if longint(f)=longint(@f) then
|
|
|
Wrong('longint(@f)=longint(f) !!!!');
|
|
Wrong('longint(@f)=longint(f) !!!!');
|
|
|
if f<>@dummy then
|
|
if f<>@dummy then
|
pierre