rpl/src/instructions_b1.c - diff

Return to instructions_b1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_b1.c between versions 1.44 and 1.45

version 1.44, 2013/03/11 11:07:25	version 1.45, 2013/03/20 17:11:44
Line 203 instruction_b_vers_r(struct_processus *s	Line 203 instruction_b_vers_r(struct_processus *s
return;	return;
}	}

(((integer8 ) (s_objet_resultat).objet)) = (((logical8 *)	(((integer8 ) (s_objet_resultat).objet)) = (integer8) (((logical8 *)
(*s_objet_argument).objet));	(*s_objet_argument).objet));
}	}
else	else
Line 243 instruction_backspace(struct_processus *	Line 243 instruction_backspace(struct_processus *
{	{
struct_descripteur_fichier *descripteur;	struct_descripteur_fichier *descripteur;

int i;	integer8 i;
int nombre_octets;	integer8 nombre_octets;

integer8 position_finale;	integer8 position_finale;
integer8 position_initiale;	integer8 position_initiale;
integer8 saut;	integer8 saut;
	integer8 pointeur;
	integer8 niveau;
	integer8 longueur_effective;
	integer8 longueur_questure;


logical1 guillemets_a_cheval;	logical1 guillemets_a_cheval;
logical1 presence_chaine;	logical1 presence_chaine;
logical1 presence_indicateur;	logical1 presence_indicateur;

long pointeur;
long niveau;

size_t longueur_effective;
size_t longueur_questure;

struct flock lock;	struct flock lock;

struct_objet *s_objet_argument;	struct_objet *s_objet_argument;
Line 368 instruction_backspace(struct_processus *	Line 366 instruction_backspace(struct_processus *

longueur_questure = 256;	longueur_questure = 256;

if ((tampon_lecture = malloc(longueur_questure *	if ((tampon_lecture = malloc(((size_t) longueur_questure) *
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 397 instruction_backspace(struct_processus *	Line 395 instruction_backspace(struct_processus *
return;	return;
}	}

longueur_effective = fread(tampon_lecture,	longueur_effective = (integer8) fread(tampon_lecture,
(size_t) sizeof(unsigned char), longueur_effective,	sizeof(unsigned char), (size_t) longueur_effective,
(*descripteur).descripteur_c);	(*descripteur).descripteur_c);

pointeur = longueur_effective - 1;	pointeur = longueur_effective - 1;
Line 480 instruction_backspace(struct_processus *	Line 478 instruction_backspace(struct_processus *
return;	return;
}	}

longueur_effective = fread(tampon_lecture,	longueur_effective = (integer8) fread(tampon_lecture,
(size_t) sizeof(unsigned char), longueur_effective,	sizeof(unsigned char), (size_t) longueur_effective,
(*descripteur).descripteur_c);	(*descripteur).descripteur_c);

pointeur = longueur_effective - 1;	pointeur = longueur_effective - 1;
Line 659 instruction_backspace(struct_processus *	Line 657 instruction_backspace(struct_processus *
}	}

if (fread(tampon, (size_t) sizeof(unsigned char),	if (fread(tampon, (size_t) sizeof(unsigned char),
nombre_octets, (*descripteur).descripteur_c)	(size_t) nombre_octets,
	(*descripteur).descripteur_c)
!= (size_t) nombre_octets)	!= (size_t) nombre_octets)
{	{
liberation(s_etat_processus, s_objet_argument);	liberation(s_etat_processus, s_objet_argument);
Line 1509 instruction_bessel(struct_processus *s_e	Line 1508 instruction_bessel(struct_processus *s_e
}	}

(((real8 ) (*s_objet_resultat).objet)) =	(((real8 ) (*s_objet_resultat).objet)) =
gsl_sf_bessel_Yn((double) ((((real8 )	gsl_sf_bessel_Yn((int) ((((real8 )
(*s_objet_argument_2).objet))),	(*s_objet_argument_2).objet))),
(double) ((((real8 )	(double) ((((real8 )
(*s_objet_argument_1).objet))));	(*s_objet_argument_1).objet))));
Line 1538 instruction_bessel(struct_processus *s_e	Line 1537 instruction_bessel(struct_processus *s_e
}	}

(((real8 ) (*s_objet_resultat).objet)) =	(((real8 ) (*s_objet_resultat).objet)) =
gsl_sf_bessel_In((double) ((((real8 )	gsl_sf_bessel_In((int) ((((real8 )
(*s_objet_argument_2).objet))),	(*s_objet_argument_2).objet))),
(double) ((((real8 )	(double) ((((real8 )
(*s_objet_argument_1).objet))));	(*s_objet_argument_1).objet))));
Line 1567 instruction_bessel(struct_processus *s_e	Line 1566 instruction_bessel(struct_processus *s_e
}	}

(((real8 ) (*s_objet_resultat).objet)) =	(((real8 ) (*s_objet_resultat).objet)) =
gsl_sf_bessel_Kn((double) ((((real8 )	gsl_sf_bessel_Kn((int) ((((real8 )
(*s_objet_argument_2).objet))),	(*s_objet_argument_2).objet))),
(double) ((((real8 )	(double) ((((real8 )
(*s_objet_argument_1).objet))));	(*s_objet_argument_1).objet))));

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.44
changed lines
	Added in v.1.45