rpl/src/instructions_c5.c - diff

Return to instructions_c5.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_c5.c between versions 1.41 and 1.75

CVSweb interface <joel.bertrand@systella.fr>

version 1.41, 2012/12/19 09:58:24	version 1.75, 2025/04/15 10:17:52
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.12	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2012 Dr. BERTRAND Joël	Copyright (C) 1989-2025 Dr. BERTRAND Joël

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

Line 48 instruction_col_plus(struct_processus *s	Line 48 instruction_col_plus(struct_processus *s
struct_objet *s_objet_argument_2;	struct_objet *s_objet_argument_2;
struct_objet *s_objet_argument_3;	struct_objet *s_objet_argument_3;

unsigned long i;	integer8 i;
unsigned long j;	integer8 j;
unsigned long l;	integer8 l;

void *tampon;	void *tampon;

Line 272 instruction_col_plus(struct_processus *s	Line 272 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes	(s_copie_argument_3).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 320 instruction_col_plus(struct_processus *s	Line 320 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes	(s_copie_argument_3).objet)).nombre_colonnes)
sizeof(complex16))) == NULL)	sizeof(complex16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 367 instruction_col_plus(struct_processus *s	Line 367 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes	(s_copie_argument_3).objet)).nombre_colonnes)
sizeof(complex16))) == NULL)	sizeof(complex16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 436 instruction_col_plus(struct_processus *s	Line 436 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long) (((struct_matrice )	if ((position < 1) \|\| (position > (((struct_matrice )
(*s_copie_argument_3).objet)).nombre_colonnes + 1)))	(*s_copie_argument_3).objet)).nombre_colonnes + 1))
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 470 instruction_col_plus(struct_processus *s	Line 470 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet)).tableau[i]	if (((((struct_matrice ) (*s_copie_argument_3).objet)).tableau[i]
= malloc((((((struct_matrice ) (*s_copie_argument_3)	= malloc((((size_t) (((struct_matrice )
.objet)).nombre_colonnes) + 1) * sizeof(integer8))) == NULL)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
	sizeof(integer8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 490 instruction_col_plus(struct_processus *s	Line 491 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((integer8 *) (((struct_matrice ) (s_copie_argument_3)	((integer8 *) (((struct_matrice ) (s_copie_argument_3)
.objet)).tableau)[i][j] = ((integer8 **)	.objet)).tableau)[i][j] = ((integer8 **)
Line 549 instruction_col_plus(struct_processus *s	Line 550 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long)	if ((position < 1) \|\| (position >
(((struct_matrice ) (*s_copie_argument_3).objet))	(((struct_matrice ) (*s_copie_argument_3).objet))
.nombre_colonnes + 1)))	.nombre_colonnes + 1))
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 584 instruction_col_plus(struct_processus *s	Line 585 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((((struct_matrice )	.tableau[i] = malloc((((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes) + 1)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
Line 607 instruction_col_plus(struct_processus *s	Line 608 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((real8 *) (((struct_matrice ) (s_copie_argument_3)	((real8 *) (((struct_matrice ) (s_copie_argument_3)
.objet)).tableau)[i][j] = ((integer8 **)	.objet)).tableau)[i][j] = (real8) ((integer8 **)
(((struct_matrice ) (*s_objet_argument_1)	(((struct_matrice ) (*s_objet_argument_1)
.objet)).tableau)[i][0];	.objet)).tableau)[i][0];
l = 1;	l = 1;
Line 625 instruction_col_plus(struct_processus *s	Line 626 instruction_col_plus(struct_processus *s
((real8 *) (((struct_matrice ) (s_copie_argument_3)	((real8 *) (((struct_matrice ) (s_copie_argument_3)
.objet)).tableau)[i][(((struct_matrice )	.objet)).tableau)[i][(((struct_matrice )
(*s_copie_argument_3).objet)).nombre_colonnes] =	(*s_copie_argument_3).objet)).nombre_colonnes] =
((integer8 *) (((struct_matrice *)	(real8) ((integer8 *) (((struct_matrice *)
(*s_objet_argument_1).objet)).tableau)[i][0];	(*s_objet_argument_1).objet)).tableau)[i][0];
}	}

Line 665 instruction_col_plus(struct_processus *s	Line 666 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long)	if ((position < 1) \|\| (position >
(((struct_matrice ) (*s_copie_argument_3).objet))	(((struct_matrice ) (*s_copie_argument_3).objet))
.nombre_colonnes + 1)))	.nombre_colonnes + 1))
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 700 instruction_col_plus(struct_processus *s	Line 701 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((((struct_matrice )	.tableau[i] = malloc((((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes) + 1)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
Line 723 instruction_col_plus(struct_processus *s	Line 724 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((real8 *) (((struct_matrice ) (s_copie_argument_3)	((real8 *) (((struct_matrice ) (s_copie_argument_3)
.objet)).tableau)[i][j] = ((real8 **)	.objet)).tableau)[i][j] = ((real8 **)
Line 784 instruction_col_plus(struct_processus *s	Line 785 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long)	if ((position < 1) \|\| (position > (((struct_matrice )
(((struct_matrice )	(*s_copie_argument_3).objet)).nombre_colonnes + 1))
(*s_copie_argument_3).objet)).nombre_colonnes + 1)))
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 819 instruction_col_plus(struct_processus *s	Line 819 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((((struct_matrice )	.tableau[i] = malloc((((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes) + 1)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
sizeof(complex16))) == NULL)	sizeof(complex16))) == NULL)
{	{
Line 842 instruction_col_plus(struct_processus *s	Line 842 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((complex16 *) (((struct_matrice *)	((complex16 *) (((struct_matrice *)
(*s_copie_argument_3).objet)).tableau)[i][j]	(*s_copie_argument_3).objet)).tableau)[i][j]
.partie_reelle = ((integer8 **)	.partie_reelle = (real8) ((integer8 **)
(((struct_matrice ) (*s_objet_argument_1)	(((struct_matrice ) (*s_objet_argument_1)
.objet)).tableau)[i][0];	.objet)).tableau)[i][0];
((complex16 *) (((struct_matrice *)	((complex16 *) (((struct_matrice *)
Line 868 instruction_col_plus(struct_processus *s	Line 868 instruction_col_plus(struct_processus *s
((complex16 *) (((struct_matrice ) (s_copie_argument_3)	((complex16 *) (((struct_matrice ) (s_copie_argument_3)
.objet)).tableau)[i][(((struct_matrice )	.objet)).tableau)[i][(((struct_matrice )
(*s_copie_argument_3).objet)).nombre_colonnes]	(*s_copie_argument_3).objet)).nombre_colonnes]
.partie_reelle = ((integer8 **)	.partie_reelle = (real8) ((integer8 **)
(((struct_matrice ) (*s_objet_argument_1).objet))	(((struct_matrice ) (*s_objet_argument_1).objet))
.tableau)[i][0];	.tableau)[i][0];
((complex16 *) (((struct_matrice ) (s_copie_argument_3)	((complex16 *) (((struct_matrice ) (s_copie_argument_3)
Line 913 instruction_col_plus(struct_processus *s	Line 913 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long)	if ((position < 1) \|\| (position > (((struct_matrice )
(((struct_matrice )	(*s_copie_argument_3).objet)).nombre_colonnes + 1))
(*s_copie_argument_3).objet)).nombre_colonnes + 1)))
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 948 instruction_col_plus(struct_processus *s	Line 947 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((((struct_matrice )	.tableau[i] = malloc((((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes) + 1)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
sizeof(complex16))) == NULL)	sizeof(complex16))) == NULL)
{	{
Line 971 instruction_col_plus(struct_processus *s	Line 970 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((complex16 *) (((struct_matrice *)	((complex16 *) (((struct_matrice *)
(*s_copie_argument_3).objet)).tableau)[i][j]	(*s_copie_argument_3).objet)).tableau)[i][j]
Line 1042 instruction_col_plus(struct_processus *s	Line 1041 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long)	if ((position < 1) \|\| (position > (((struct_matrice )
(((struct_matrice )	(*s_copie_argument_3).objet)).nombre_colonnes + 1))
(*s_copie_argument_3).objet)).nombre_colonnes + 1)))
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 1077 instruction_col_plus(struct_processus *s	Line 1075 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((((struct_matrice )	.tableau[i] = malloc((((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes) + 1)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
sizeof(complex16))) == NULL)	sizeof(complex16))) == NULL)
{	{
Line 1100 instruction_col_plus(struct_processus *s	Line 1098 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((complex16 *) (((struct_matrice *)	((complex16 *) (((struct_matrice *)
(*s_copie_argument_3).objet)).tableau)[i][j]	(*s_copie_argument_3).objet)).tableau)[i][j]
Line 1224 instruction_col_moins(struct_processus *	Line 1222 instruction_col_moins(struct_processus *
struct_objet *s_objet_argument_2;	struct_objet *s_objet_argument_2;
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;

unsigned long i;	integer8 i;
unsigned long j;	integer8 j;
unsigned long k;	integer8 k;
unsigned long colonne;	integer8 colonne;

void *tampon;	void *tampon;

Line 1372 instruction_col_moins(struct_processus *	Line 1370 instruction_col_moins(struct_processus *
{	{
position = (((integer8 ) (*s_objet_argument_1).objet));	position = (((integer8 ) (*s_objet_argument_1).objet));

if ((position <= 0) \|\| (position > (signed long)	if ((position <= 0) \|\| (position > (((struct_matrice )
(((struct_matrice )
(*s_copie_argument_2).objet)).nombre_colonnes))	(*s_copie_argument_2).objet)).nombre_colonnes))
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 1448 instruction_col_moins(struct_processus *	Line 1445 instruction_col_moins(struct_processus *
(*s_objet_resultat).type = MIN;	(*s_objet_resultat).type = MIN;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_resultat).objet)).nombre_lignes	(s_objet_resultat).objet)).nombre_lignes)
sizeof(integer8 *))) == NULL)	sizeof(integer8 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 1509 instruction_col_moins(struct_processus *	Line 1506 instruction_col_moins(struct_processus *
(*s_copie_argument_2).objet)).tableau)[i];	(*s_copie_argument_2).objet)).tableau)[i];

if ((((((struct_matrice ) (*s_copie_argument_2)	if ((((((struct_matrice ) (*s_copie_argument_2)
.objet)).tableau)[i] = malloc(	.objet)).tableau)[i] = malloc(((size_t)
((((struct_matrice ) (*s_copie_argument_2)	((((struct_matrice ) (*s_copie_argument_2)
.objet)).nombre_colonnes - 1) *	.objet)).nombre_colonnes) - 1) *
sizeof(integer8))) == NULL)	sizeof(integer8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 1558 instruction_col_moins(struct_processus *	Line 1555 instruction_col_moins(struct_processus *
(*s_objet_resultat).type = MRL;	(*s_objet_resultat).type = MRL;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_resultat).objet)).nombre_lignes	(s_objet_resultat).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 1619 instruction_col_moins(struct_processus *	Line 1616 instruction_col_moins(struct_processus *
(*s_copie_argument_2).objet)).tableau)[i];	(*s_copie_argument_2).objet)).tableau)[i];

if ((((((struct_matrice ) (*s_copie_argument_2)	if ((((((struct_matrice ) (*s_copie_argument_2)
.objet)).tableau)[i] = malloc(	.objet)).tableau)[i] = malloc(((size_t)
((((struct_matrice ) (*s_copie_argument_2)	((((struct_matrice ) (*s_copie_argument_2)
.objet)).nombre_colonnes - 1) *	.objet)).nombre_colonnes) - 1) *
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 1668 instruction_col_moins(struct_processus *	Line 1665 instruction_col_moins(struct_processus *
(*s_objet_resultat).type = MCX;	(*s_objet_resultat).type = MCX;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_resultat).objet)).nombre_lignes	(s_objet_resultat).objet)).nombre_lignes)
sizeof(complex16 *))) == NULL)	sizeof(complex16 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 1737 instruction_col_moins(struct_processus *	Line 1734 instruction_col_moins(struct_processus *
(*s_copie_argument_2).objet)).tableau)[i];	(*s_copie_argument_2).objet)).tableau)[i];

if ((((((struct_matrice ) (*s_copie_argument_2)	if ((((((struct_matrice ) (*s_copie_argument_2)
.objet)).tableau)[i] = malloc(	.objet)).tableau)[i] = malloc(((size_t)
((((struct_matrice ) (*s_copie_argument_2)	((((struct_matrice ) (*s_copie_argument_2)
.objet)).nombre_colonnes - 1) *	.objet)).nombre_colonnes) - 1) *
sizeof(complex16))) == NULL)	sizeof(complex16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)

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