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.43 and 1.81

CVSweb interface <joel.bertrand@systella.fr>

version 1.43, 2012/08/22 10:47:15	version 1.81, 2023/08/07 17:42:52
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.10	RPL/2 (R) version 4.1.35
Copyright (C) 1989-2012 Dr. BERTRAND Joël	Copyright (C) 1989-2023 Dr. BERTRAND Joël

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

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 471 instruction_convert(struct_processus *s_	Line 471 instruction_convert(struct_processus *s_
(unsigned char ) (s_objet_argument_2).objet,	(unsigned char ) (s_objet_argument_2).objet,
(unsigned char ) (s_objet_argument_1).objet);	(unsigned char ) (s_objet_argument_1).objet);

if (alsprintf(&executable_candidat, "%s/bin/rplconvert",	if (alsprintf(s_etat_processus, &executable_candidat,
d_exec_path) < 0)	"%s/bin/rplconvert", d_exec_path) < 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
Line 506 instruction_convert(struct_processus *s_	Line 506 instruction_convert(struct_processus *s_
(unsigned char ) (s_objet_argument_2).objet,	(unsigned char ) (s_objet_argument_2).objet,
(unsigned char ) (s_objet_argument_1).objet);	(unsigned char ) (s_objet_argument_1).objet);

if (alsprintf(&executable_candidat, "%s/bin/rplconvert",	if (alsprintf(s_etat_processus, &executable_candidat,
(*s_etat_processus).rpl_home) < 0)	"%s/bin/rplconvert", (*s_etat_processus).rpl_home) < 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
Line 549 instruction_convert(struct_processus *s_	Line 549 instruction_convert(struct_processus *s_
(*s_etat_processus).instruction_courante;	(*s_etat_processus).instruction_courante;
(*s_etat_processus).instruction_courante = ligne;	(*s_etat_processus).instruction_courante = ligne;

	(*s_etat_processus).type_en_cours = NON;
recherche_type(s_etat_processus);	recherche_type(s_etat_processus);

(*s_etat_processus).instruction_courante =	(*s_etat_processus).instruction_courante =
Line 1085 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 1160 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 1197 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 1234 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.43
changed lines
	Added in v.1.81