rpl/src/instructions_m3.c - diff

Return to instructions_m3.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_m3.c between versions 1.29 and 1.67

CVSweb interface <joel.bertrand@systella.fr>

version 1.29, 2011/09/26 15:57:14	version 1.67, 2020/01/10 11:15:46
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.4	RPL/2 (R) version 4.1.32
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2020 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 42 instruction_mean(struct_processus *s_eta	Line 42 instruction_mean(struct_processus *s_eta
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;
struct_objet *s_objet_temporaire;	struct_objet *s_objet_temporaire;

unsigned long nombre_colonnes;	integer8 nombre_colonnes;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

Line 123 instruction_mean(struct_processus *s_eta	Line 123 instruction_mean(struct_processus *s_eta
return;	return;
}	}

if (((s_objet_resultat).objet = moyenne_statistique((struct_matrice )	if (((*s_objet_resultat).objet = moyenne_statistique(s_etat_processus,
(*s_objet_statistique).objet)) == NULL)	(struct_matrice ) (s_objet_statistique).objet)) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
Line 221 instruction_mins(struct_processus *s_eta	Line 221 instruction_mins(struct_processus *s_eta
struct_objet *s_objet_statistique;	struct_objet *s_objet_statistique;
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;

unsigned long nombre_colonnes;	integer8 nombre_colonnes;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

Line 308 instruction_mins(struct_processus *s_eta	Line 308 instruction_mins(struct_processus *s_eta
(((struct_matrice ) (*s_objet_statistique).objet))	(((struct_matrice ) (*s_objet_statistique).objet))
.tableau)[0][0];	.tableau)[0][0];

for(i = 1; i < (long) (((struct_matrice ) (*s_objet_statistique)	for(i = 1; i < (((struct_matrice ) (*s_objet_statistique)
.objet)).nombre_lignes; i++)	.objet)).nombre_lignes; i++)
{	{
if ((((real8 ) (s_objet_resultat).objet)) > ((real8 *)	if ((((real8 ) (s_objet_resultat).objet)) > ((real8 *)
Line 334 instruction_mins(struct_processus *s_eta	Line 334 instruction_mins(struct_processus *s_eta
(((struct_matrice ) (*s_objet_statistique).objet))	(((struct_matrice ) (*s_objet_statistique).objet))
.tableau)[0][0];	.tableau)[0][0];

for(i = 1; i < (long) (((struct_matrice ) (*s_objet_statistique)	for(i = 1; i < (((struct_matrice ) (*s_objet_statistique)
.objet)).nombre_lignes; i++)	.objet)).nombre_lignes; i++)
{	{
if ((((integer8 ) (s_objet_resultat).objet)) > ((integer8 *)	if ((((integer8 ) (s_objet_resultat).objet)) > ((integer8 *)
Line 363 instruction_mins(struct_processus *s_eta	Line 363 instruction_mins(struct_processus *s_eta
nombre_colonnes;	nombre_colonnes;

if (((((struct_vecteur ) (*s_objet_resultat).objet)).tableau =	if (((((struct_vecteur ) (*s_objet_resultat).objet)).tableau =
malloc(nombre_colonnes * sizeof(real8))) == NULL)	malloc(((size_t) nombre_colonnes) * sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
}	}

for(j = 0; j < (long) nombre_colonnes; j++)	for(j = 0; j < nombre_colonnes; j++)
{	{
((real8 ) (((struct_vecteur ) (s_objet_resultat).objet))	((real8 ) (((struct_vecteur ) (s_objet_resultat).objet))
.tableau)[j] = ((real8 *) (((struct_matrice *)	.tableau)[j] = ((real8 *) (((struct_matrice *)
(*s_objet_statistique).objet)).tableau)[0][j];	(*s_objet_statistique).objet)).tableau)[0][j];

for(i = 1; i < (long) (((struct_matrice )	for(i = 1; i < (((struct_matrice )
(*s_objet_statistique).objet)).nombre_lignes; i++)	(*s_objet_statistique).objet)).nombre_lignes; i++)
{	{
if (((real8 ) (((struct_vecteur ) (s_objet_resultat)	if (((real8 ) (((struct_vecteur ) (s_objet_resultat)
Line 404 instruction_mins(struct_processus *s_eta	Line 404 instruction_mins(struct_processus *s_eta
nombre_colonnes;	nombre_colonnes;

if (((((struct_vecteur ) (*s_objet_resultat).objet)).tableau =	if (((((struct_vecteur ) (*s_objet_resultat).objet)).tableau =
malloc(nombre_colonnes * sizeof(integer8))) == NULL)	malloc(((size_t) nombre_colonnes) * sizeof(integer8)))
	== NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
}	}

for(j = 0; j < (long) nombre_colonnes; j++)	for(j = 0; j < nombre_colonnes; j++)
{	{
((integer8 ) (((struct_vecteur ) (s_objet_resultat).objet))	((integer8 ) (((struct_vecteur ) (s_objet_resultat).objet))
.tableau)[j] = ((integer8 *) (((struct_matrice *)	.tableau)[j] = ((integer8 *) (((struct_matrice *)
(*s_objet_statistique).objet)).tableau)[0][j];	(*s_objet_statistique).objet)).tableau)[0][j];

for(i = 1; i < (long) (((struct_matrice )	for(i = 1; i < (((struct_matrice )
(*s_objet_statistique).objet)).nombre_lignes; i++)	(*s_objet_statistique).objet)).nombre_lignes; i++)
{	{
if (((integer8 ) (((struct_vecteur ) (s_objet_resultat)	if (((integer8 ) (((struct_vecteur ) (s_objet_resultat)
Line 465 instruction_maxs(struct_processus *s_eta	Line 466 instruction_maxs(struct_processus *s_eta
struct_objet *s_objet_statistique;	struct_objet *s_objet_statistique;
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;

unsigned long nombre_colonnes;	integer8 nombre_colonnes;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

Line 552 instruction_maxs(struct_processus *s_eta	Line 553 instruction_maxs(struct_processus *s_eta
(((struct_matrice ) (*s_objet_statistique).objet))	(((struct_matrice ) (*s_objet_statistique).objet))
.tableau)[0][0];	.tableau)[0][0];

for(i = 1; i < (long) (((struct_matrice ) (*s_objet_statistique)	for(i = 1; i < (((struct_matrice ) (*s_objet_statistique)
.objet)).nombre_lignes; i++)	.objet)).nombre_lignes; i++)
{	{
if ((((real8 ) (s_objet_resultat).objet)) < ((real8 *)	if ((((real8 ) (s_objet_resultat).objet)) < ((real8 *)
Line 578 instruction_maxs(struct_processus *s_eta	Line 579 instruction_maxs(struct_processus *s_eta
(((struct_matrice ) (*s_objet_statistique).objet))	(((struct_matrice ) (*s_objet_statistique).objet))
.tableau)[0][0];	.tableau)[0][0];

for(i = 1; i < (long) (((struct_matrice ) (*s_objet_statistique)	for(i = 1; i < (((struct_matrice ) (*s_objet_statistique)
.objet)).nombre_lignes; i++)	.objet)).nombre_lignes; i++)
{	{
if ((((integer8 ) (s_objet_resultat).objet)) < ((integer8 *)	if ((((integer8 ) (s_objet_resultat).objet)) < ((integer8 *)
Line 607 instruction_maxs(struct_processus *s_eta	Line 608 instruction_maxs(struct_processus *s_eta
nombre_colonnes;	nombre_colonnes;

if (((((struct_vecteur ) (*s_objet_resultat).objet)).tableau =	if (((((struct_vecteur ) (*s_objet_resultat).objet)).tableau =
malloc(nombre_colonnes * sizeof(real8))) == NULL)	malloc(((size_t) nombre_colonnes) * sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
}	}

for(j = 0; j < (long) nombre_colonnes; j++)	for(j = 0; j < nombre_colonnes; j++)
{	{
((real8 ) (((struct_vecteur ) (s_objet_resultat).objet))	((real8 ) (((struct_vecteur ) (s_objet_resultat).objet))
.tableau)[j] = ((real8 *) (((struct_matrice *)	.tableau)[j] = ((real8 *) (((struct_matrice *)
(*s_objet_statistique).objet)).tableau)[0][j];	(*s_objet_statistique).objet)).tableau)[0][j];

for(i = 1; i < (long) (((struct_matrice )	for(i = 1; i < (((struct_matrice )
(*s_objet_statistique).objet)).nombre_lignes; i++)	(*s_objet_statistique).objet)).nombre_lignes; i++)
{	{
if (((real8 ) (((struct_vecteur ) (s_objet_resultat)	if (((real8 ) (((struct_vecteur ) (s_objet_resultat)
Line 648 instruction_maxs(struct_processus *s_eta	Line 649 instruction_maxs(struct_processus *s_eta
nombre_colonnes;	nombre_colonnes;

if (((((struct_vecteur ) (*s_objet_resultat).objet)).tableau =	if (((((struct_vecteur ) (*s_objet_resultat).objet)).tableau =
malloc(nombre_colonnes * sizeof(integer8))) == NULL)	malloc(((size_t) nombre_colonnes) * sizeof(integer8)))
	== NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
}	}

for(j = 0; j < (long) nombre_colonnes; j++)	for(j = 0; j < nombre_colonnes; j++)
{	{
((integer8 ) (((struct_vecteur ) (s_objet_resultat).objet))	((integer8 ) (((struct_vecteur ) (s_objet_resultat).objet))
.tableau)[j] = ((integer8 *) (((struct_matrice *)	.tableau)[j] = ((integer8 *) (((struct_matrice *)
(*s_objet_statistique).objet)).tableau)[0][j];	(*s_objet_statistique).objet)).tableau)[0][j];

for(i = 1; i < (long) (((struct_matrice )	for(i = 1; i < (((struct_matrice )
(*s_objet_statistique).objet)).nombre_lignes; i++)	(*s_objet_statistique).objet)).nombre_lignes; i++)
{	{
if (((integer8 ) (((struct_vecteur ) (s_objet_resultat)	if (((integer8 ) (((struct_vecteur ) (s_objet_resultat)

Removed from v.1.29
changed lines
	Added in v.1.67