7 lines
107 B
ObjectPascal
7 lines
107 B
ObjectPascal
|
uses u_samename;
|
|||
|
|
|
|||
|
|
function val_a := u_samename.val_a;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
assert(val_a() = System.IntPtr(0));
|
|||
|
|
end.
|