Create an object at a given address: Difference between revisions
PascalABC.NET
m (→{{header|Wren}}: Minor tidy) |
(PascalABC.NET) |
||
Line 833:
0 1 2 3 4 5 6 7
506097522914230528</pre>
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="delphi">
begin
var pi: ^integer;
New(pi);
pi^ := 3;
Writeln(pi,' ',pi^);
pi^ := 5;
Writeln(pi,' ',pi^);
var pi1: ^integer := pi;
pi1^ := 666;
Writeln(pi1,' ',pi1^);
Writeln(pi,' ',pi^);
end.
</syntaxhighlight>
{{out}}
<pre>
$13C2930 3
$13C2930 5
$13C2930 666
$13C2930 666
</pre>
=={{header|Perl}}==
| |||