* strange execution error
@ 2003-02-22 22:31 alfonso acosta
0 siblings, 0 replies; only message in thread
From: alfonso acosta @ 2003-02-22 22:31 UTC (permalink / raw)
Hi:
I recently started a project in savannah called adabot
(https://savannah.nongnu.org/projects/adabot/). Its a realtimebattle
(http://realtimebattle.sourceforge.net/) bot developed completely in Ada.
The problem I have, is the following:
When trying to test a package which isnt finished (messages.ads in
http://savannah.nongnu.org/cgi-bin/viewcvs/adabot/adabot/src/)
with this procedure:
-----
with Ada.Strings.Unbounded.Text_IO, Ada.Interrupts.Names ;
use Ada.Strings.Unbounded.Text_IO, Ada.Interrupts.Names, Ada.Interrupts;
procedure Messages.Test is
Msg : Msg_From_Robot;
Str : Unbounded_String;
begin
Msg := (RobotOption, (Signal, SIGUSR1));
Msg2Str (Msg, Str);
Put (Str);
end Messages.Test;
-----
After compiling with GNAT I execute it and it gets completely frozen,
the most curious about it is that 4 processes are created. Gdb tells me
the error comes from messages.adb line 152:
Append(Source => Str,
New_Item => Interrupt_ID'Pos(Msg.Value.Which));
but I dont understand why its wrong
Can anybody have a look at the code?
Thanks in advance:
Alfonso Acosta
PS: If anyone is interested in the project Ill be pleased to give
him/her a CVS write account (Its obvoius that Im not an experienced Ada
programmer and need some help)
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2003-02-22 22:31 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2003-02-22 22:31 strange execution error alfonso acosta
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox