rpl/src/instructions_q1.c - diff

Return to instructions_q1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_q1.c between versions 1.5 and 1.41

version 1.5, 2010/03/09 10:18:48	version 1.41, 2013/03/20 22:24:37
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.13	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2010 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 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 53 instruction_qr(struct_processus *s_etat_	Line 53 instruction_qr(struct_processus *s_etat_
struct_objet *s_objet_argument;	struct_objet *s_objet_argument;
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 nombre_reflecteurs_elementaires;	integer8 nombre_reflecteurs_elementaires;

void *tau;	void *tau;

Line 248 instruction_qr(struct_processus *s_etat_	Line 248 instruction_qr(struct_processus *s_etat_
(((struct_matrice ) (*s_copie_argument).objet))	(((struct_matrice ) (*s_copie_argument).objet))
.nombre_lignes;	.nombre_lignes;

if ((vecteur_reel = malloc((((struct_matrice ) (*s_objet).objet))	if ((vecteur_reel = malloc(((size_t) (((struct_matrice )
.nombre_lignes * sizeof(real8))) == NULL)	(s_objet).objet)).nombre_lignes) sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
Line 274 instruction_qr(struct_processus *s_etat_	Line 274 instruction_qr(struct_processus *s_etat_
}	}

if (((((struct_matrice ) (*s_objet).objet)).tableau =	if (((((struct_matrice ) (*s_objet).objet)).tableau =
malloc((((struct_matrice ) (*s_objet).objet))	malloc(((size_t) (((struct_matrice ) (*s_objet).objet))
.nombre_lignes * sizeof(real8 *))) == NULL)	.nombre_lignes) * sizeof(real8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
Line 285 instruction_qr(struct_processus *s_etat_	Line 285 instruction_qr(struct_processus *s_etat_
.nombre_lignes; j++)	.nombre_lignes; j++)
{	{
if ((((real8 *) (((struct_matrice ) (s_objet).objet))	if ((((real8 *) (((struct_matrice ) (s_objet).objet))
.tableau)[j] = malloc((((struct_matrice ) (*s_objet)	.tableau)[j] = malloc(((size_t) (((struct_matrice )
.objet)).nombre_lignes * sizeof(real8))) == NULL)	(s_objet).objet)).nombre_lignes) sizeof(real8)))
	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 542 instruction_qr(struct_processus *s_etat_	Line 543 instruction_qr(struct_processus *s_etat_
(((struct_matrice ) (*s_copie_argument).objet))	(((struct_matrice ) (*s_copie_argument).objet))
.nombre_lignes;	.nombre_lignes;

if ((vecteur_complexe = malloc((((struct_matrice )	if ((vecteur_complexe = malloc(((size_t) (((struct_matrice )
(s_objet).objet)).nombre_lignes sizeof(complex16)))	(s_objet).objet)).nombre_lignes) sizeof(complex16)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 575 instruction_qr(struct_processus *s_etat_	Line 576 instruction_qr(struct_processus *s_etat_
}	}

if (((((struct_matrice ) (*s_objet).objet)).tableau =	if (((((struct_matrice ) (*s_objet).objet)).tableau =
malloc((((struct_matrice ) (*s_objet).objet))	malloc(((size_t) (((struct_matrice ) (*s_objet).objet))
.nombre_lignes * sizeof(complex16 *))) == NULL)	.nombre_lignes) * sizeof(complex16 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
Line 586 instruction_qr(struct_processus *s_etat_	Line 587 instruction_qr(struct_processus *s_etat_
.nombre_lignes; j++)	.nombre_lignes; j++)
{	{
if ((((complex16 *) (((struct_matrice ) (s_objet).objet))	if ((((complex16 *) (((struct_matrice ) (s_objet).objet))
.tableau)[j] = malloc((((struct_matrice ) (*s_objet)	.tableau)[j] = malloc(((size_t) (((struct_matrice )
.objet)).nombre_lignes * sizeof(complex16))) == NULL)	(s_objet).objet)).nombre_lignes) sizeof(complex16)))
	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;

CVSweb interface <joel.bertrand@systella.fr>

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