rpl/src/instructions_c7.c - diff

Return to instructions_c7.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_c7.c between versions 1.13 and 1.41

-version 1.13, 2010/07/14 14:19:35
+version 1.41, 2012/10/01 11:05:03
  Line 1
  /*
  ================================================================================
-   RPL/2 (R) version 4.0.18
+   RPL/2 (R) version 4.1.11
-   Copyright (C) 1989-2010 Dr. BERTRAND Joël
+   Copyright (C) 1989-2012 Dr. BERTRAND Joël
    This file is part of RPL/2.
  Line 20
  */
- #include "rpl.conv.h"
+ #include "rpl-conv.h"
  /*
  Line 820  instruction_clratexit(struct_processus *
      return;
  }
+ /*
+ ================================================================================
+   Fonction 'clratpoke'
+ ================================================================================
+   Entrées : pointeur sur une structure struct_processus
+ --------------------------------------------------------------------------------
+   Sorties :
+ --------------------------------------------------------------------------------
+   Effets de bord : néant
+ ================================================================================
+ */
+ void
+ instruction_clratpoke(struct_processus *s_etat_processus)
+ {
+     (*s_etat_processus).erreur_execution = d_ex;
+     if ((*s_etat_processus).affichage_arguments == 'Y')
+     {
+         printf("\n  CLRATPOKE ");
+         if ((*s_etat_processus).langue == 'F')
+         {
+             printf("(suppression de la fonction de contrôle d'injection)\n\n");
+             printf("  Aucun argument\n");
+         }
+         else
+         {
+             printf("(delete injection controle function)\n\n");
+             printf("  No argument\n");
+         }
+         return;
+     }
+     else if ((*s_etat_processus).test_instruction == 'Y')
+     {
+         (*s_etat_processus).nombre_arguments = -1;
+         return;
+     }
+     if (test_cfsf(s_etat_processus, 31) == d_vrai)
+     {
+         if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
+         {
+             return;
+         }
+     }
+     liberation(s_etat_processus, (*s_etat_processus).at_poke);
+     (*s_etat_processus).at_poke = NULL;
+     return;
+ }
+ /*
+ ================================================================================
+   Fonction 'critical'
+ ================================================================================
+   Entrées :
+ --------------------------------------------------------------------------------
+   Sorties :
+ --------------------------------------------------------------------------------
+   Effets de bord : néant
+ ================================================================================
+ */
+ void
+ instruction_critical(struct_processus *s_etat_processus)
+ {
+     (*s_etat_processus).erreur_execution = d_ex;
+     if ((*s_etat_processus).affichage_arguments == 'Y')
+     {
+         printf("\n  CRITICAL ");
+         if ((*s_etat_processus).langue == 'F')
+         {
+             printf("(initialisation d'une section critique)\n\n");
+             printf("  Aucun argument\n");
+         }
+         else
+         {
+             printf("(critical section initialization)\n\n");
+             printf("  No argument\n");
+         }
+         return;
+     }
+     else if ((*s_etat_processus).test_instruction == 'Y')
+     {
+         (*s_etat_processus).nombre_arguments = -1;
+         return;
+     }
+     if (test_cfsf(s_etat_processus, 31) == d_vrai)
+     {
+         if (empilement_pile_last(s_etat_processus, 0) == d_erreur)
+         {
+             return;
+         }
+     }
+     empilement_pile_systeme(s_etat_processus);
+     if ((*s_etat_processus).erreur_systeme != d_es)
+     {
+         return;
+     }
+     (*(*s_etat_processus).l_base_pile_systeme).type_cloture = 'Q';
+     if (pthread_mutex_lock(&mutex_sections_critiques) != 0)
+     {
+         (*s_etat_processus).erreur_systeme = d_es_processus;
+         return;
+     }
+     (*s_etat_processus).sections_critiques++;
+     return;
+ }
  // vim: ts=4

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.13
changed lines
	Added in v.1.41