| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 3860.1 | ... and the program | BRSSWS::SABLON | Mich�le Sablon, TP/IM Support Belgium 856-7238 | Thu Apr 10 1997 12:05 | 65 |
| Exit to quickly. Below the ADA Program.
---------------------------------------------------------------
with System, Starlet, Condition_Handling, Text_Io;
procedure Test_Setcluevt is
use Text_Io;
package St renames Starlet;
package Sy renames System;
package Ch renames Condition_Handling;
Setcluevt_Error : exception;
task type AST_HANDLER is
entry Trans_add;
pragma Ast_Entry(Trans_add);
entry Start;
end AST_HANDLER;
type AST_HANDLER_p is access AST_HANDLER;
task body AST_HANDLER is
Status : Ch.COND_VALUE_TYPE;
begin
loop
select
accept Trans_add
do
Put_Line("Cluster node add...");
end Trans_add;
or
accept Start
do
St.setCluevt
(Status => Status,
Event => St.Cluevt_C_Add,
Astadr => AST_HANDLER.Trans_add'Ast_Entry);
if not Ch.Success(Status)
then
raise Setcluevt_Error;
end if;
Put_Line("Setup SetCluEvt AST ...");
end Start;
end select;
end loop;
end AST_HANDLER;
begin
declare
Ast : AST_HANDLER_p := new AST_HANDLER;
begin
Ast.Start;
loop
delay 1000.0;
end loop;
end;
end Test_Setcluevt;
---------------------------------------------------------------
|
| 3860.2 | Nothing wrong with your example | TAEC::URSCH | | Fri Apr 11 1997 04:37 | 10 |
| Hello,
If it is an OpenVMS crash, I would advise first to analyze
the crash dump. This kind of Ada example should not lead to
a OpenVMS crash.
Beside, there is nothing obviously wrong in your example,
as far as I can see.
Jean-Michel
|
| 3860.3 | Thanks | BACHUS::SABLON | Mich�le Sablon, TP/IM Support Belgium 856-7238 | Fri Apr 11 1997 04:53 | 7 |
| Thanks, Jean-Michel.
If the Ada code seems ok, I'll escalate it to VMS. And I agree with you, even in
case or programming error, it shouldn't crash the system.
Thanks in any case,
Mich�le.
|
| 3860.4 | Another idea; see if a C program also crashes | KMOOSE::CMCCUTCHEON | Charlie McCutcheon | Fri Apr 11 1997 10:03 | 11 |
| Another suggestion.
Try rewritting in C. I've seen cases where other groups will try to blame
Ada if the program is written in Ada. A problem written in C will not
get questioned... ;-)
I doubt Ada adds any overhead to this program that can make the
system crash. And, if we do, its still a bug, since an Ada program
in sytsem mode shouldn't be able to crash a system!
Charlie
|
| 3860.5 | $setcluevt's fault ! | BACHUS::SABLON | Mich�le Sablon, TP/IM Support Belgium 856-7238 | Fri Apr 11 1997 12:33 | 2 |
| I've created a C program and test it: it let the system crash also !
Yipee!
|
| 3860.6 | it worked OK on one system | FLOYD::YODER | MFY | Fri Apr 11 1997 17:00 | 2 |
| For what it's worth, the program worked when I tried it on DECADA running AVMS
V7.0. Be sure to report which versions of VMS were being run on node A and B...
|