version 1.47, 2013/03/16 11:31:41
|
version 1.64, 2017/01/18 15:44:19
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.26 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 143 instruction_cnrm(struct_processus *s_eta
|
Line 143 instruction_cnrm(struct_processus *s_eta
|
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; |
|
|
void *accumulateur; |
void *accumulateur; |
|
|
Line 267 instruction_cnrm(struct_processus *s_eta
|
Line 267 instruction_cnrm(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument).objet)).taille * sizeof(real8))) == NULL) |
(*s_objet_argument).objet)).taille) * sizeof(real8))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 303 instruction_cnrm(struct_processus *s_eta
|
Line 303 instruction_cnrm(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument).objet)).taille * sizeof(real8))) == NULL) |
(*s_objet_argument).objet)).taille) * sizeof(real8))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 433 instruction_cnrm(struct_processus *s_eta
|
Line 433 instruction_cnrm(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_matrice *) |
if ((accumulateur = malloc(((size_t) (*((struct_matrice *) |
(*s_objet_argument).objet)).nombre_lignes * sizeof(real8))) |
(*s_objet_argument).objet)).nombre_lignes) * sizeof(real8))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 483 instruction_cnrm(struct_processus *s_eta
|
Line 483 instruction_cnrm(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_matrice *) |
if ((accumulateur = malloc(((size_t) (*((struct_matrice *) |
(*s_objet_argument).objet)).nombre_lignes * sizeof(real8))) |
(*s_objet_argument).objet)).nombre_lignes) * sizeof(real8))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 531 instruction_cnrm(struct_processus *s_eta
|
Line 531 instruction_cnrm(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_matrice *) |
if ((accumulateur = malloc(((size_t) (*((struct_matrice *) |
(*s_objet_argument).objet)).nombre_lignes * sizeof(real8))) |
(*s_objet_argument).objet)).nombre_lignes) * sizeof(real8))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 723 instruction_chr(struct_processus *s_etat
|
Line 723 instruction_chr(struct_processus *s_etat
|
} |
} |
|
|
((unsigned char *) (*s_objet_resultat).objet)[0] = |
((unsigned char *) (*s_objet_resultat).objet)[0] = |
(*((integer8 *) (*s_objet_argument).objet)); |
(unsigned char) (*((integer8 *) |
|
(*s_objet_argument).objet)); |
((unsigned char *) (*s_objet_resultat).objet)[1] = |
((unsigned char *) (*s_objet_resultat).objet)[1] = |
d_code_fin_chaine; |
d_code_fin_chaine; |
} |
} |