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.49 and 1.54

CVSweb interface <joel.bertrand@systella.fr>

version 1.49, 2013/03/20 17:11:44	version 1.54, 2013/09/26 14:46:15
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.16
Copyright (C) 1989-2013 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 779 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 1159 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 1196 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 1233 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);

Removed from v.1.49
changed lines
	Added in v.1.54