rpl/src/instructions_s5.c - diff

Return to instructions_s5.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_s5.c between versions 1.26 and 1.71

version 1.26, 2011/07/22 07:38:40	version 1.71, 2024/01/17 16:57:16
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.1	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2024 Dr. BERTRAND Joël

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

Line 47 instruction_s_plus(struct_processus *s_e	Line 47 instruction_s_plus(struct_processus *s_e

struct_variable s_variable;	struct_variable s_variable;

unsigned long i;	integer8 i;
unsigned long j;	integer8 j;
unsigned long k;	integer8 k;
unsigned long nombre_colonnes;	integer8 nombre_colonnes;
unsigned long nombre_lignes;	integer8 nombre_lignes;

void *tampon;	void *tampon;

Line 266 instruction_s_plus(struct_processus *s_e	Line 266 instruction_s_plus(struct_processus *s_e
.nombre_lignes++;	.nombre_lignes++;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(integer8 *))) == NULL)	sizeof(integer8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 299 instruction_s_plus(struct_processus *s_e	Line 299 instruction_s_plus(struct_processus *s_e
.nombre_lignes++;	.nombre_lignes++;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 332 instruction_s_plus(struct_processus *s_e	Line 332 instruction_s_plus(struct_processus *s_e
.nombre_lignes++;	.nombre_lignes++;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 371 instruction_s_plus(struct_processus *s_e	Line 371 instruction_s_plus(struct_processus *s_e
.nombre_lignes++;	.nombre_lignes++;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 533 instruction_s_plus(struct_processus *s_e	Line 533 instruction_s_plus(struct_processus *s_e
.nombre_lignes++;	.nombre_lignes++;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(integer8 *))) == NULL)	sizeof(integer8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 568 instruction_s_plus(struct_processus *s_e	Line 568 instruction_s_plus(struct_processus *s_e
.nombre_lignes++;	.nombre_lignes++;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 603 instruction_s_plus(struct_processus *s_e	Line 603 instruction_s_plus(struct_processus *s_e
.nombre_lignes++;	.nombre_lignes++;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 622 instruction_s_plus(struct_processus *s_e	Line 622 instruction_s_plus(struct_processus *s_e
free(tampon);	free(tampon);

if ((((real8 *) (((struct_matrice ) (s_objet_statistique)	if ((((real8 *) (((struct_matrice ) (s_objet_statistique)
.objet)).tableau)[i] =	.objet)).tableau)[i] = malloc(((size_t)
malloc(nombre_colonnes * sizeof(real8))) == NULL)	nombre_colonnes) * sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 646 instruction_s_plus(struct_processus *s_e	Line 646 instruction_s_plus(struct_processus *s_e
.nombre_lignes++;	.nombre_lignes++;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 660 instruction_s_plus(struct_processus *s_e	Line 660 instruction_s_plus(struct_processus *s_e
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_statistique).objet)).tableau)[i] =	(*s_objet_statistique).objet)).tableau)[i] =
malloc(nombre_colonnes * sizeof(real8))) == NULL)	malloc(((size_t) nombre_colonnes) *
	sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 783 instruction_s_plus(struct_processus *s_e	Line 784 instruction_s_plus(struct_processus *s_e
.nombre_lignes += nombre_lignes;	.nombre_lignes += nombre_lignes;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(integer8 *))) == NULL)	sizeof(integer8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 826 instruction_s_plus(struct_processus *s_e	Line 827 instruction_s_plus(struct_processus *s_e
.nombre_lignes += nombre_lignes;	.nombre_lignes += nombre_lignes;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 869 instruction_s_plus(struct_processus *s_e	Line 870 instruction_s_plus(struct_processus *s_e
.nombre_lignes += nombre_lignes;	.nombre_lignes += nombre_lignes;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 893 instruction_s_plus(struct_processus *s_e	Line 894 instruction_s_plus(struct_processus *s_e
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_statistique).objet)).tableau)[i] =	(*s_objet_statistique).objet)).tableau)[i] =
malloc(nombre_colonnes * sizeof(real8))) == NULL)	malloc(((size_t) nombre_colonnes) *
	sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 917 instruction_s_plus(struct_processus *s_e	Line 919 instruction_s_plus(struct_processus *s_e
.nombre_lignes += nombre_lignes;	.nombre_lignes += nombre_lignes;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 932 instruction_s_plus(struct_processus *s_e	Line 934 instruction_s_plus(struct_processus *s_e
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_statistique).objet)).tableau)[i] =	(*s_objet_statistique).objet)).tableau)[i] =
malloc(nombre_colonnes * sizeof(real8)))	malloc(((size_t) nombre_colonnes) * sizeof(real8)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1010 instruction_s_moins(struct_processus *s_	Line 1012 instruction_s_moins(struct_processus *s_
struct_objet *s_objet;	struct_objet *s_objet;
struct_objet *s_objet_statistique;	struct_objet *s_objet_statistique;

unsigned long i;	integer8 i;
unsigned long nombre_colonnes;	integer8 nombre_colonnes;
unsigned long nombre_lignes;	integer8 nombre_lignes;

void *tampon;	void *tampon;

Line 1170 instruction_s_moins(struct_processus *s_	Line 1172 instruction_s_moins(struct_processus *s_
if (nombre_lignes == 1)	if (nombre_lignes == 1)
{	{
if (((((struct_vecteur ) (*s_objet).objet))	if (((((struct_vecteur ) (*s_objet).objet))
.tableau = malloc(nombre_colonnes *	.tableau = malloc(((size_t) nombre_colonnes) *
sizeof(integer8))) == NULL)	sizeof(integer8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1218 instruction_s_moins(struct_processus *s_	Line 1220 instruction_s_moins(struct_processus *s_
.nombre_lignes--;	.nombre_lignes--;

if (((((struct_matrice ) (*s_objet_statistique)	if (((((struct_matrice ) (*s_objet_statistique)
.objet)).tableau = malloc(	.objet)).tableau = malloc(((size_t)
(((struct_matrice ) (*s_objet_statistique).objet))	(((struct_matrice ) (*s_objet_statistique).objet))
.nombre_lignes * sizeof(integer8 *))) == NULL)	.nombre_lignes) * sizeof(integer8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
Line 1298 instruction_s_moins(struct_processus *s_	Line 1300 instruction_s_moins(struct_processus *s_
if (nombre_lignes == 1)	if (nombre_lignes == 1)
{	{
if (((((struct_vecteur ) (*s_objet).objet))	if (((((struct_vecteur ) (*s_objet).objet))
.tableau = malloc(nombre_colonnes *	.tableau = malloc(((size_t) nombre_colonnes) *
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1346 instruction_s_moins(struct_processus *s_	Line 1348 instruction_s_moins(struct_processus *s_
.nombre_lignes--;	.nombre_lignes--;

if (((((struct_matrice ) (*s_objet_statistique).objet))	if (((((struct_matrice ) (*s_objet_statistique).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_statistique).objet)).nombre_lignes	(s_objet_statistique).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.26
changed lines
	Added in v.1.71