Anonymous user
Create an object at a given address: Difference between revisions
=={{header|Pascal}} added
(omit from Standard ML) |
(=={{header|Pascal}} added) |
||
Line 369:
a: [65 32 115 116 114 105 110 103 46 0]
</pre>
=={{header|Pascal}}==
Like in Ada you can assigne different variables at the same adress of an already declared variable.
Nice to get the bytes out of an Int64.
<lang pascal>program test;
type
t8Byte = array[0..7] of byte;
var
I : integer;
A : integer absolute I;
K : t8Byte;
L : Int64 absolute K;
begin
I := 0;
A := 255; writeln(I);
I := 4711;writeln(A);
For i in t8Byte do
Begin
K[i]:=i;
write(i:3,' ');
end;
writeln(#8#32);
writeln(L);
end.</lang>{OUT}<pre>255
4711
0 1 2 3 4 5 6 7
506097522914230528</pre>
=={{header|PicoLisp}}==
<lang PicoLisp>: (setq IntSpace 12345) # Integer
| |||