Ada

Pb avec Storage_Error

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Pb avec Storage_Error

Axos

Bonjour,

J'essaie de faire un menu en y faisant des appels récursifs au menu_principal (cf. le code ci-joint)
et j'ai l'erreur suivante : test.adb:12:42: warning: Storage_Error may be raised at run time.

Est-ce-que qq'un urait une idée pour résoudre ce pb?

Merci et Bonne année,

Axos

Code :

with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;
with Ada.Text_Io; use Ada.Text_Io;
procedure test is
procedure menu_principal is
reponse : integer;
begin
get(reponse);
case reponse is
when 1 =>put("Créer un compte" );menu_principal;
when 2 =>put("Modifier un compte" );menu_principal;
when others => return;
end case;
end menu_principal;
begin
menu_principal;
end test;

Message édité par Axos le 01-01-2007 à 18:21:18

Publicité

apprentitux

Salut,
1) Utilises les balises de code, ça sera plus clair pour "test.adb:12:42"
2) Ce n'est pas une erreur, c'est un "warning", donc ton programme est normalement compilé.
3) Quel est le but de tes appels récursifs sur menu_principal ?

Profil supprimé

Message de mon compilateur ::=

gnatgcc -c main.adb
main.adb:12:43: warning: possible infinite recursion
main.adb:12:43: warning: Storage_Error may be raised at run time
main.adb:13:46: warning: possible infinite recursion
main.adb:13:46: warning: Storage_Error may be raised at run time

Semantiquement parlant, je n'ai pas de reponse à ta question.
Pratiquement parlant, bien que je comprene ta demarche dans la recherche ... ce programme ne represente pas une solution.

Profil supprimé

les balises ... tu met ['code'] sans les apostrophes avant le code et [/'code'] sans les apostrophe aussi après le code.

Bonjour apprentitux, au passage.

Edit, bonjour à tous en fait .. [:dawa_neowen]

Message édité par Profil supprimé le 01-01-2007 à 18:23:44

Axos

Mon but est de faire un menu et d'y rester après un traitement: par exemple si reponse = 1, je fais appel à une procedure qui crée un compte (à la place du put) et une fois que c'est fini, je fais appel à menu_principal pour rester dans le menu.

Le message d'erreur est un warning, c'est pour cela que je l'avais ignoré au départ mais mon programme sur lequel je travaille a pris plus d'ampleur et l'appel au menu_principal se fait bizarrement au bout d'un moment.

Merci pour votre aide.

Axos

Message cité 1 fois

Profil supprimé

et pourquoi pas une simple boucle ?
Tu as testé ? même symptome ?

apprentitux

Axos a écrit :

Mon but est de faire un menu et d'y rester après un traitement...

Non, tu n'y reste pas dans ton menu, tu en crées un autre.
C'est mal programmé, tu devrais essayer autre chose....

Axos

Ca marche avec une classique boucle while

FORUM HardWare.fr

Programmation

Ada

Pb avec Storage_Error

Sujets relatifs
Parse error dans code PHP/MySQL correct	[c] Socket error 98 close serveur
[PHP /Mysql] Internal Server Error dans les parties administration	Mailer Error: Language string failed to load: recipients_failedme@s.fr
Problème Coppermine : "Template error"	sql server error 18452
error LNK2001: unresolved external symbol ___wargv uafxcwd.lib	Error que je ne comprend pas
parse error : vraiment etrange	syntax error, unexpected $end in
Plus de sujets relatifs à : Pb avec Storage_Error

Page générée en 0.040 secondes