11 lines
138 B
Ada
11 lines
138 B
Ada
|
package Prot8 is
|
||
|
|
|
||
|
|
protected type Prot is
|
||
|
|
private
|
||
|
|
B : Boolean;
|
||
|
|
N : access Prot;
|
||
|
|
Ptr : access Prot;
|
||
|
|
end Prot;
|
||
|
|
|
||
|
|
end Prot8;
|