6 lines
144 B
Ada
6 lines
144 B
Ada
|
-- Demonstrate the overlay of one object on another
|
||
|
|
A : Integer;
|
||
|
|
B : Integer;
|
||
|
|
for B'Address use A'Address;
|
||
|
|
-- A and B start at the same address
|