Address of a variable: Difference between revisions
Content deleted Content added
m Redundant cat link |
oberon-2 |
||
Line 84: | Line 84: | ||
100 cells allocate throw value buffer |
100 cells allocate throw value buffer |
||
42 buffer 20 cells + ! |
42 buffer 20 cells + ! |
||
=={{header|Oberon-2}}== |
|||
===Get Address=== |
|||
<pre> |
|||
VAR a: LONGINT; |
|||
VAR b: INTEGER; |
|||
b := 10; |
|||
a := SYSTEM.ADR(b); (* Sets variable a to the address of variable b *) |
|||
</pre> |
|||
===Set Address=== |
|||
<pre> |
|||
SYSTEM.PUT(a, b); (* Sets the address of b to the address of a *) |
|||
</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |