--- rpl/src/rpl.h	2010/07/12 15:55:01	1.47
+++ rpl/src/rpl.h	2010/07/31 10:34:18	1.50
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.17
+  RPL/2 (R) version 4.0.18
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1229,6 +1229,7 @@ typedef struct liste_pile_systeme
 
 	unsigned long				adresse_retour;
 	unsigned long				niveau_courant;
+	struct_objet				*pointeur_adresse_retour;
 } struct_liste_pile_systeme;
 #endif
 
@@ -1792,8 +1793,10 @@ typedef struct processus
 
 	unsigned char				traitement_interruption;  /* Y/N */
 	unsigned char				traitement_interruptible; /* Y/N */
+	unsigned char				traitement_at_poke;       /* Y/N */
 
 	struct_objet				*at_exit;
+	struct_objet				*at_poke;
 
 /* Variables volatiles									*/
 
@@ -1990,11 +1993,13 @@ void instruction_asr(struct_processus *s
 void instruction_atan(struct_processus *s_etat_processus);
 void instruction_atanh(struct_processus *s_etat_processus);
 void instruction_atexit(struct_processus *s_etat_processus);
+void instruction_atpoke(struct_processus *s_etat_processus);
 void instruction_autoscale(struct_processus *s_etat_processus);
 void instruction_axes(struct_processus *s_etat_processus);
 
 void instruction_b_vers_r(struct_processus *s_etat_processus);
 void instruction_backspace(struct_processus *s_etat_processus);
+void instruction_backtrace(struct_processus *s_etat_processus);
 void instruction_beep(struct_processus *s_etat_processus);
 void instruction_bessel(struct_processus *s_etat_processus);
 void instruction_bin(struct_processus *s_etat_processus);
@@ -2010,6 +2015,7 @@ void instruction_cllcd(struct_processus
 void instruction_clmf(struct_processus *s_etat_processus);
 void instruction_close(struct_processus *s_etat_processus);
 void instruction_clratexit(struct_processus *s_etat_processus);
+void instruction_clratpoke(struct_processus *s_etat_processus);
 void instruction_clrcntxt(struct_processus *s_etat_processus);
 void instruction_clrerr(struct_processus *s_etat_processus);
 void instruction_clrfuse(struct_processus *s_etat_processus);