rpl/src/instructions_r3.c - diff

Return to instructions_r3.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_r3.c between versions 1.50 and 1.54

version 1.50, 2013/03/16 11:31:41	version 1.54, 2013/09/06 10:30:55
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.16
Copyright (C) 1989-2013 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 353 instruction_rnrm(struct_processus *s_eta	Line 353 instruction_rnrm(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 622 instruction_rnrm(struct_processus *s_eta	Line 622 instruction_rnrm(struct_processus *s_eta
return;	return;
}	}

if ((accumulateur = malloc((((struct_matrice )	if ((accumulateur = malloc(((size_t) (((struct_matrice )
(s_objet_argument).objet)).nombre_colonnes	(s_objet_argument).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 671 instruction_rnrm(struct_processus *s_eta	Line 671 instruction_rnrm(struct_processus *s_eta
return;	return;
}	}

if ((accumulateur = malloc((((struct_matrice )	if ((accumulateur = malloc(((size_t) (((struct_matrice )
(s_objet_argument).objet)).nombre_colonnes sizeof(real8)))	(s_objet_argument).objet)).nombre_colonnes) sizeof(real8)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 718 instruction_rnrm(struct_processus *s_eta	Line 718 instruction_rnrm(struct_processus *s_eta
return;	return;
}	}

if ((accumulateur = malloc((((struct_matrice )	if ((accumulateur = malloc(((size_t) (((struct_matrice )
(s_objet_argument).objet)).nombre_colonnes sizeof(real8)))	(s_objet_argument).objet)).nombre_colonnes) sizeof(real8)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 1024 instruction_recall(struct_processus *s_e	Line 1024 instruction_recall(struct_processus *s_e
unsigned char *tampon_definitions_chainees;	unsigned char *tampon_definitions_chainees;
unsigned char *tampon_instruction_courante;	unsigned char *tampon_instruction_courante;

unsigned long position_courante;	integer8 position_courante;

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

Line 1319 instruction_recall(struct_processus *s_e	Line 1319 instruction_recall(struct_processus *s_e
return;	return;
}	}

if ((chaine = malloc((nombre_caracteres_source + 1)	if ((chaine = malloc((((size_t) nombre_caracteres_source) + 1)
* sizeof(unsigned char))) == NULL)	* sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 1360 instruction_recall(struct_processus *s_e	Line 1360 instruction_recall(struct_processus *s_e
}	}
}	}

if ((chaine[i] = caractere) == '\"')	if ((chaine[i] = (unsigned char) caractere) == '\"')
{	{
if (i > 0)	if (i > 0)
{	{
Line 1587 instruction_rcws(struct_processus *s_eta	Line 1587 instruction_rcws(struct_processus *s_eta
{	{
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;

unsigned long i;	integer8 i;
unsigned long j;	integer8 j;
unsigned long longueur;	integer8 longueur;

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

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.50
changed lines
	Added in v.1.54