rpl/src/instructions_p2.c - diff

Return to instructions_p2.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_p2.c between versions 1.42 and 1.46

version 1.42, 2012/12/19 09:58:26	version 1.46, 2013/04/01 15:29:37
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.12	RPL/2 (R) version 4.1.14
Copyright (C) 1989-2012 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 112 instruction_p_vers_r(struct_processus *s	Line 112 instruction_p_vers_r(struct_processus *s
if ((*s_objet_argument).type == INT)	if ((*s_objet_argument).type == INT)
{	{
(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_reelle	(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_reelle
= (((integer8 ) (*s_objet_argument).objet));	= (real8) (((integer8 ) (*s_objet_argument).objet));
}	}
else	else
{	{
Line 389 instruction_put(struct_processus *s_etat	Line 389 instruction_put(struct_processus *s_etat
struct_objet *s_objet_4;	struct_objet *s_objet_4;
struct_objet *s_objet_element;	struct_objet *s_objet_element;

unsigned long i;	integer8 i;
unsigned long indice_i;	integer8 indice_i;
unsigned long indice_j;	integer8 indice_j;
unsigned long j;	integer8 j;
unsigned long nombre_dimensions;	integer8 nombre_dimensions;

void *tampon;	void *tampon;

Line 610 instruction_put(struct_processus *s_etat	Line 610 instruction_put(struct_processus *s_etat
(*s_objet_3).type = VRL;	(*s_objet_3).type = VRL;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille sizeof(real8)))	(s_objet_3).objet)).taille) sizeof(real8)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 645 instruction_put(struct_processus *s_etat	Line 645 instruction_put(struct_processus *s_etat
(*s_objet_3).type = VCX;	(*s_objet_3).type = VCX;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille	(s_objet_3).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 726 instruction_put(struct_processus *s_etat	Line 726 instruction_put(struct_processus *s_etat
(*s_objet_3).type = VCX;	(*s_objet_3).type = VCX;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille	(s_objet_3).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 969 instruction_put(struct_processus *s_etat	Line 969 instruction_put(struct_processus *s_etat
(*s_objet_3).type = MRL;	(*s_objet_3).type = MRL;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes sizeof(real8 *)))	(s_objet_3).objet)).nombre_lignes) sizeof(real8 *)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 983 instruction_put(struct_processus *s_etat	Line 983 instruction_put(struct_processus *s_etat
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1022 instruction_put(struct_processus *s_etat	Line 1022 instruction_put(struct_processus *s_etat
(*s_objet_3).type = MCX;	(*s_objet_3).type = MCX;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes	(s_objet_3).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1036 instruction_put(struct_processus *s_etat	Line 1036 instruction_put(struct_processus *s_etat
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1122 instruction_put(struct_processus *s_etat	Line 1122 instruction_put(struct_processus *s_etat
(*s_objet_3).type = MCX;	(*s_objet_3).type = MCX;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes	(s_objet_3).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1136 instruction_put(struct_processus *s_etat	Line 1136 instruction_put(struct_processus *s_etat
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1646 instruction_put(struct_processus *s_etat	Line 1646 instruction_put(struct_processus *s_etat
(*s_objet_4).type = VRL;	(*s_objet_4).type = VRL;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille sizeof(real8)))	(s_objet_4).objet)).taille) sizeof(real8)))
== NULL)	== NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 1694 instruction_put(struct_processus *s_etat	Line 1694 instruction_put(struct_processus *s_etat
(*s_objet_4).type = VCX;	(*s_objet_4).type = VCX;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille	(s_objet_4).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 1799 instruction_put(struct_processus *s_etat	Line 1799 instruction_put(struct_processus *s_etat
(*s_objet_4).type = VCX;	(*s_objet_4).type = VCX;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille	(s_objet_4).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 2152 instruction_put(struct_processus *s_etat	Line 2152 instruction_put(struct_processus *s_etat
(*s_objet_4).type = MRL;	(*s_objet_4).type = MRL;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 2178 instruction_put(struct_processus *s_etat	Line 2178 instruction_put(struct_processus *s_etat
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 2229 instruction_put(struct_processus *s_etat	Line 2229 instruction_put(struct_processus *s_etat
(*s_objet_4).type = MCX;	(*s_objet_4).type = MCX;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 2255 instruction_put(struct_processus *s_etat	Line 2255 instruction_put(struct_processus *s_etat
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 2366 instruction_put(struct_processus *s_etat	Line 2366 instruction_put(struct_processus *s_etat
(*s_objet_4).type = MCX;	(*s_objet_4).type = MCX;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 2392 instruction_put(struct_processus *s_etat	Line 2392 instruction_put(struct_processus *s_etat
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 2907 instruction_puti(struct_processus *s_eta	Line 2907 instruction_puti(struct_processus *s_eta
struct_objet *s_objet_3;	struct_objet *s_objet_3;
struct_objet *s_objet_4;	struct_objet *s_objet_4;

unsigned long i;	integer8 i;
unsigned long indice_i;	integer8 indice_i;
unsigned long indice_j;	integer8 indice_j;
unsigned long j;	integer8 j;
unsigned long nombre_dimensions;	integer8 nombre_dimensions;
unsigned long nombre_elements;	integer8 nombre_elements;

void *tampon;	void *tampon;

Line 3118 instruction_puti(struct_processus *s_eta	Line 3118 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = VRL;	(*s_objet_3).type = VRL;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille sizeof(real8)))	(s_objet_3).objet)).taille) sizeof(real8)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3153 instruction_puti(struct_processus *s_eta	Line 3153 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = VCX;	(*s_objet_3).type = VCX;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille	(s_objet_3).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3234 instruction_puti(struct_processus *s_eta	Line 3234 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = VCX;	(*s_objet_3).type = VCX;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille	(s_objet_3).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3486 instruction_puti(struct_processus *s_eta	Line 3486 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = MRL;	(*s_objet_3).type = MRL;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes sizeof(real8 *)))	(s_objet_3).objet)).nombre_lignes) sizeof(real8 *)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3500 instruction_puti(struct_processus *s_eta	Line 3500 instruction_puti(struct_processus *s_eta
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3539 instruction_puti(struct_processus *s_eta	Line 3539 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = MCX;	(*s_objet_3).type = MCX;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes	(s_objet_3).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3553 instruction_puti(struct_processus *s_eta	Line 3553 instruction_puti(struct_processus *s_eta
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3639 instruction_puti(struct_processus *s_eta	Line 3639 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = MCX;	(*s_objet_3).type = MCX;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes	(s_objet_3).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3653 instruction_puti(struct_processus *s_eta	Line 3653 instruction_puti(struct_processus *s_eta
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 4113 instruction_puti(struct_processus *s_eta	Line 4113 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = VRL;	(*s_objet_4).type = VRL;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille sizeof(real8)))	(s_objet_4).objet)).taille) sizeof(real8)))
== NULL)	== NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 4161 instruction_puti(struct_processus *s_eta	Line 4161 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = VCX;	(*s_objet_4).type = VCX;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille	(s_objet_4).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 4266 instruction_puti(struct_processus *s_eta	Line 4266 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = VCX;	(*s_objet_4).type = VCX;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille	(s_objet_4).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 4624 instruction_puti(struct_processus *s_eta	Line 4624 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = MRL;	(*s_objet_4).type = MRL;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 4650 instruction_puti(struct_processus *s_eta	Line 4650 instruction_puti(struct_processus *s_eta
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 4701 instruction_puti(struct_processus *s_eta	Line 4701 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = MCX;	(*s_objet_4).type = MCX;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 4727 instruction_puti(struct_processus *s_eta	Line 4727 instruction_puti(struct_processus *s_eta
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 4838 instruction_puti(struct_processus *s_eta	Line 4838 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = MCX;	(*s_objet_4).type = MCX;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 4864 instruction_puti(struct_processus *s_eta	Line 4864 instruction_puti(struct_processus *s_eta
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.42
changed lines
	Added in v.1.46