rpl/src/instructions_c4.c - diff

Return to instructions_c4.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_c4.c between versions 1.24 and 1.55

version 1.24, 2011/06/20 17:54:16	version 1.55, 2013/12/03 09:36:12
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.0.prerelease.1	RPL/2 (R) version 4.1.17
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 39	Line 39
void	void
instruction_cov(struct_processus *s_etat_processus)	instruction_cov(struct_processus *s_etat_processus)
{	{
integer8 nombre_colonnes;

logical1 erreur;	logical1 erreur;

struct_objet *s_objet_statistique;	struct_objet *s_objet_statistique;
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;

	integer8 nombre_colonnes;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

if ((*s_etat_processus).affichage_arguments == 'Y')	if ((*s_etat_processus).affichage_arguments == 'Y')
Line 179 instruction_corr(struct_processus *s_eta	Line 179 instruction_corr(struct_processus *s_eta
struct_objet *s_objet_statistique;	struct_objet *s_objet_statistique;
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;

unsigned long nombre_colonnes;	integer8 nombre_colonnes;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

Line 372 instruction_convert(struct_processus *s_	Line 372 instruction_convert(struct_processus *s_

logical1 last_valide;	logical1 last_valide;

long longueur_chaine;	size_t longueur_chaine;

logical1 presence_resultat;	logical1 presence_resultat;

Line 478 instruction_convert(struct_processus *s_	Line 478 instruction_convert(struct_processus *s_
return;	return;
}	}

if (controle(s_etat_processus, executable_candidat, "md5",	if (controle_integrite(s_etat_processus, executable_candidat,
rplconvert_md5) != d_vrai)	"rplconvert") != d_vrai)
{
(*s_etat_processus).erreur_systeme = d_es_somme_controle;
return;
}

if (controle(s_etat_processus, executable_candidat, "sha1",
rplconvert_sha1) != d_vrai)
{	{
(*s_etat_processus).erreur_systeme = d_es_somme_controle;	(*s_etat_processus).erreur_systeme = d_es_somme_controle;
return;	return;
Line 520 instruction_convert(struct_processus *s_	Line 513 instruction_convert(struct_processus *s_
return;	return;
}	}

if (controle(s_etat_processus, executable_candidat, "md5",	if (controle_integrite(s_etat_processus, executable_candidat,
rplconvert_md5) != d_vrai)	"rplconvert") != d_vrai)
{
(*s_etat_processus).erreur_systeme = d_es_somme_controle;
return;
}

if (controle(s_etat_processus, executable_candidat, "sha1",
rplconvert_sha1) != d_vrai)
{	{
(*s_etat_processus).erreur_systeme = d_es_somme_controle;	(*s_etat_processus).erreur_systeme = d_es_somme_controle;
return;	return;
Line 793 instruction_close(struct_processus *s_et	Line 779 instruction_close(struct_processus *s_et

if (fclose((*descripteur).descripteur_c) != 0)	if (fclose((*descripteur).descripteur_c) != 0)
{	{
	perror("fclose");
free(descripteur);	free(descripteur);
liberation(s_etat_processus, s_objet_argument);	liberation(s_etat_processus, s_objet_argument);

Line 1099 instruction_cswp(struct_processus *s_eta	Line 1086 instruction_cswp(struct_processus *s_eta
struct_objet *s_objet_argument_2;	struct_objet *s_objet_argument_2;
struct_objet *s_objet_argument_3;	struct_objet *s_objet_argument_3;

signed long colonne_1;	integer8 colonne_1;
signed long colonne_2;	integer8 colonne_2;
	integer8 i;
unsigned long i;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

Line 1174 instruction_cswp(struct_processus *s_eta	Line 1160 instruction_cswp(struct_processus *s_eta

if ((*s_objet_argument_3).type == MIN)	if ((*s_objet_argument_3).type == MIN)
{	{
if ((colonne_1 < 0) \|\| (colonne_1 > ((signed long)	if ((colonne_1 < 0) \|\| (colonne_1 >
(((struct_matrice ) (*s_objet_argument_3).objet))	(((struct_matrice ) (*s_objet_argument_3).objet))
.nombre_colonnes) - 1) \|\| (colonne_2 < 0) \|\| (colonne_2 >	.nombre_colonnes - 1) \|\| (colonne_2 < 0) \|\| (colonne_2 >
((signed long) (((struct_matrice )	(((struct_matrice )
(*s_objet_argument_3).objet)).nombre_colonnes) - 1))	(*s_objet_argument_3).objet)).nombre_colonnes - 1))
{	{
liberation(s_etat_processus, s_objet_argument_1);	liberation(s_etat_processus, s_objet_argument_1);
liberation(s_etat_processus, s_objet_argument_2);	liberation(s_etat_processus, s_objet_argument_2);
Line 1211 instruction_cswp(struct_processus *s_eta	Line 1197 instruction_cswp(struct_processus *s_eta
}	}
else if ((*s_objet_argument_3).type == MRL)	else if ((*s_objet_argument_3).type == MRL)
{	{
if ((colonne_1 < 0) \|\| (colonne_1 > ((signed long)	if ((colonne_1 < 0) \|\| (colonne_1 >
(((struct_matrice ) (*s_objet_argument_3).objet))	(((struct_matrice ) (*s_objet_argument_3).objet))
.nombre_colonnes) - 1) \|\| (colonne_2 < 0) \|\| (colonne_2 >	.nombre_colonnes - 1) \|\| (colonne_2 < 0) \|\| (colonne_2 >
((signed long) (((struct_matrice )	(((struct_matrice )
(*s_objet_argument_3).objet)).nombre_colonnes) - 1))	(*s_objet_argument_3).objet)).nombre_colonnes - 1))
{	{
liberation(s_etat_processus, s_objet_argument_1);	liberation(s_etat_processus, s_objet_argument_1);
liberation(s_etat_processus, s_objet_argument_2);	liberation(s_etat_processus, s_objet_argument_2);
Line 1248 instruction_cswp(struct_processus *s_eta	Line 1234 instruction_cswp(struct_processus *s_eta
}	}
else if ((*s_objet_argument_3).type == MCX)	else if ((*s_objet_argument_3).type == MCX)
{	{
if ((colonne_1 < 0) \|\| (colonne_1 > ((signed long)	if ((colonne_1 < 0) \|\| (colonne_1 >
(((struct_matrice ) (*s_objet_argument_3).objet))	(((struct_matrice ) (*s_objet_argument_3).objet))
.nombre_colonnes) - 1) \|\| (colonne_2 < 0) \|\| (colonne_2 >	.nombre_colonnes - 1) \|\| (colonne_2 < 0) \|\| (colonne_2 >
((signed long) (((struct_matrice )	(((struct_matrice )
(*s_objet_argument_3).objet)).nombre_colonnes) - 1))	(*s_objet_argument_3).objet)).nombre_colonnes - 1))
{	{
liberation(s_etat_processus, s_objet_argument_1);	liberation(s_etat_processus, s_objet_argument_1);
liberation(s_etat_processus, s_objet_argument_2);	liberation(s_etat_processus, s_objet_argument_2);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.24
changed lines
	Added in v.1.55