version 1.13, 2010/08/26 19:07:37
|
version 1.56, 2016/09/27 15:29:35
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.19 |
RPL/2 (R) version 4.1.26 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2016 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 524 instruction_dot(struct_processus *s_etat
|
Line 524 instruction_dot(struct_processus *s_etat
|
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; |
|
|
void *accumulateur; |
void *accumulateur; |
|
|
Line 648 instruction_dot(struct_processus *s_etat
|
Line 648 instruction_dot(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument_1).objet)).taille * sizeof(real8))) |
(*s_objet_argument_1).objet)).taille) * sizeof(real8))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 705 instruction_dot(struct_processus *s_etat
|
Line 705 instruction_dot(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument_1).objet)).taille * sizeof(real8))) == NULL) |
(*s_objet_argument_1).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 715 instruction_dot(struct_processus *s_etat
|
Line 715 instruction_dot(struct_processus *s_etat
|
for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument_1).objet)) |
for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument_1).objet)) |
.taille; i++) |
.taille; i++) |
{ |
{ |
((real8 *) accumulateur)[i] = |
((real8 *) accumulateur)[i] = ((real8) |
((integer8 *) (*((struct_vecteur *) (*s_objet_argument_1) |
((integer8 *) (*((struct_vecteur *) (*s_objet_argument_1) |
.objet)).tableau)[i] * ((real8 *) (*((struct_vecteur *) |
.objet)).tableau)[i]) * ((real8 *) (*((struct_vecteur *) |
(*s_objet_argument_2).objet)).tableau)[i]; |
(*s_objet_argument_2).objet)).tableau)[i]; |
} |
} |
|
|
Line 752 instruction_dot(struct_processus *s_etat
|
Line 752 instruction_dot(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument_1).objet)).taille * sizeof(real8))) == NULL) |
(*s_objet_argument_1).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 764 instruction_dot(struct_processus *s_etat
|
Line 764 instruction_dot(struct_processus *s_etat
|
{ |
{ |
((real8 *) accumulateur)[i] = |
((real8 *) accumulateur)[i] = |
((real8 *) (*((struct_vecteur *) (*s_objet_argument_1) |
((real8 *) (*((struct_vecteur *) (*s_objet_argument_1) |
.objet)).tableau)[i] * ((integer8 *) (*((struct_vecteur *) |
.objet)).tableau)[i] * ((real8) ((integer8 *) |
(*s_objet_argument_2).objet)).tableau)[i]; |
(*((struct_vecteur *)(*s_objet_argument_2).objet)) |
|
.tableau)[i]); |
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = sommation_vecteur_reel( |
(*((real8 *) (*s_objet_resultat).objet)) = sommation_vecteur_reel( |
Line 799 instruction_dot(struct_processus *s_etat
|
Line 800 instruction_dot(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument_1).objet)).taille * sizeof(real8))) == NULL) |
(*s_objet_argument_1).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 853 instruction_dot(struct_processus *s_etat
|
Line 854 instruction_dot(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument_1).objet)).taille * sizeof(complex16))) |
(*s_objet_argument_1).objet)).taille) * sizeof(complex16))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 902 instruction_dot(struct_processus *s_etat
|
Line 903 instruction_dot(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument_1).objet)).taille * sizeof(complex16))) |
(*s_objet_argument_1).objet)).taille) * sizeof(complex16))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 955 instruction_dot(struct_processus *s_etat
|
Line 956 instruction_dot(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument_1).objet)).taille * sizeof(complex16))) |
(*s_objet_argument_1).objet)).taille) * sizeof(complex16))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 1014 instruction_dot(struct_processus *s_etat
|
Line 1015 instruction_dot(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument_1).objet)).taille * sizeof(complex16))) |
(*s_objet_argument_1).objet)).taille) * sizeof(complex16))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 1072 instruction_dot(struct_processus *s_etat
|
Line 1073 instruction_dot(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument_1).objet)).taille * sizeof(complex16))) |
(*s_objet_argument_1).objet)).taille) * sizeof(complex16))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |