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

CVSweb interface <joel.bertrand@systella.fr>

version 1.43, 2013/02/27 17:11:41	version 1.44, 2013/03/20 17:11:44
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 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 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 610 instruction_col_plus(struct_processus *s	Line 611 instruction_col_plus(struct_processus *s
if ((signed long) j == (position - 1))	if ((signed long) 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 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 819 instruction_col_plus(struct_processus *s	Line 820 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 846 instruction_col_plus(struct_processus *s	Line 847 instruction_col_plus(struct_processus *s
{	{
((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 869 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 948 instruction_col_plus(struct_processus *s	Line 949 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 1077 instruction_col_plus(struct_processus *s	Line 1078 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 1224 instruction_col_moins(struct_processus *	Line 1225 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 1448 instruction_col_moins(struct_processus *	Line 1449 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 1510 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 1559 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 1620 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 1669 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 1738 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.43
changed lines
	Added in v.1.44