rpl/src/types.c - diff

Return to types.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/types.c between versions 1.31 and 1.41

version 1.31, 2011/06/21 07:45:29	version 1.41, 2011/11/18 09:51:33
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.0.prerelease.1	RPL/2 (R) version 4.1.4
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2011 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 79 recherche_type(struct_processus *s_etat_	Line 79 recherche_type(struct_processus *s_etat_
unsigned char registre_test;	unsigned char registre_test;
unsigned char registre_test_bis;	unsigned char registre_test_bis;
unsigned char *tampon;	unsigned char *tampon;
	unsigned char variable_implicite;

unsigned long i;	unsigned long i;
unsigned long j;	unsigned long j;
Line 2318 recherche_type(struct_processus *s_etat_	Line 2319 recherche_type(struct_processus *s_etat_
}	}
}	}

	variable_implicite = (*s_etat_processus).autorisation_nom_implicite;
registre_recherche_type = (*s_etat_processus).recherche_type;	registre_recherche_type = (*s_etat_processus).recherche_type;
(*s_etat_processus).recherche_type = 'Y';	(*s_etat_processus).recherche_type = 'Y';
	(*s_etat_processus).autorisation_nom_implicite = 'Y';

if (sequenceur(s_etat_processus) == d_erreur)	if (sequenceur(s_etat_processus) == d_erreur)
{	{
	(*s_etat_processus).autorisation_nom_implicite =
	variable_implicite;
(*s_etat_processus).recherche_type = registre_recherche_type;	(*s_etat_processus).recherche_type = registre_recherche_type;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;
(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	if ((*s_etat_processus).erreur_execution !=
	d_ex_nom_implicite)
	{
	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	}

nombre_lignes_a_supprimer =	nombre_lignes_a_supprimer =
(*s_etat_processus).hauteur_pile_operationnelle	(*s_etat_processus).hauteur_pile_operationnelle
Line 2372 recherche_type(struct_processus *s_etat_	Line 2382 recherche_type(struct_processus *s_etat_
return;	return;
}	}

	(*s_etat_processus).autorisation_nom_implicite = variable_implicite;
(*s_etat_processus).recherche_type = registre_recherche_type;	(*s_etat_processus).recherche_type = registre_recherche_type;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;
Line 2857 recherche_type(struct_processus *s_etat_	Line 2868 recherche_type(struct_processus *s_etat_

(*(--ptr_ecriture)) = d_code_fin_chaine;	(*(--ptr_ecriture)) = d_code_fin_chaine;

	if (validation_chaine((unsigned char *) element) == d_faux)
	{
	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	(*s_etat_processus).traitement_interruptible =
	registre_interruption;

	free(element);
	return;
	}

break;	break;
}	}

Line 2956 recherche_type(struct_processus *s_etat_	Line 2977 recherche_type(struct_processus *s_etat_
registre_recherche_type = (*s_etat_processus).recherche_type;	registre_recherche_type = (*s_etat_processus).recherche_type;
(*s_etat_processus).recherche_type = 'Y';	(*s_etat_processus).recherche_type = 'Y';

	variable_implicite =
	(*s_etat_processus).autorisation_nom_implicite;
	(*s_etat_processus).autorisation_nom_implicite = 'Y';

if (sequenceur(s_etat_processus) == d_erreur)	if (sequenceur(s_etat_processus) == d_erreur)
{	{
	(*s_etat_processus).autorisation_nom_implicite =
	variable_implicite;
(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).recherche_type =	(*s_etat_processus).recherche_type =
registre_recherche_type;	registre_recherche_type;
Line 3008 recherche_type(struct_processus *s_etat_	Line 3035 recherche_type(struct_processus *s_etat_
return;	return;
}	}

	(*s_etat_processus).autorisation_nom_implicite =
	variable_implicite;
(*s_etat_processus).recherche_type = registre_recherche_type;	(*s_etat_processus).recherche_type = registre_recherche_type;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;

CVSweb interface <joel.bertrand@systella.fr>

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