From: aic001@teix.uib.es (SAD KAT)
Subject: protected types in Ada95
Date: 1997/09/07
Date: 1997-09-07T00:00:00+00:00 [thread overview]
Message-ID: <5uui32$dhg@alf01.uib.es> (raw)
Hi,
I have a program with differents tasks reading and writting data. I have
read that I have to protect my data to be sure that the values are the
correct ones, to keep a exclussive access to them.
I've done a think like that:
package data_pac is
type type_of_var is record
-- here are the description
end record;
protected type type_of_var_prot is
function read_var return integer;
procedure write_var (item : in type_of_var);
private
var2 : type_of_var;
end type_of_var_prot;
end data_pac;
package body data_pac is
protected type type_of_var_prot is
function read_var return integer is
begin
-- body of the function
end read_var;
procedure write_var (item : in type_of_var) is
begin
-- body of the procedure
end write_var;
end type_of_var_prot;
begin
null;
end data_proc;
The compiler shows that message : "subprogram body not allowed here"
and I don't knwo where's thw mistake. I have also another doubt, how
do I have to use the function read_var and the procedure write_var?
I mean, if I have in the main package:
procedure main is
data_a : type_of_var;
data_b : type_of_var_prot;
begin
get(data_a);
data_b.write_var(data_a);
-- rest of program
end main;
Is this correct?
Thanks for helping and please forgive my poor English,
mailto: sadkat@hotmail.com
mailto: aic001@teix.uib.es
Joan Andreu Juan Torrens (Illes Balears, SPAIN)
next reply other threads:[~1997-09-07 0:00 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
1997-09-07 0:00 SAD KAT [this message]
1997-09-10 0:00 ` protected types in Ada95 Tom Moran
1997-09-11 0:00 ` Stephen Leake
1997-09-10 0:00 ` Tucker Taft
1997-09-10 0:00 ` Robert A Duff
1997-09-11 0:00 ` Robert Dewar
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox