rpl/src/instructions_f1.c - diff

Return to instructions_f1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_f1.c between versions 1.52 and 1.53

version 1.52, 2013/02/27 17:11:42	version 1.53, 2013/03/20 17:11:45
Line 59 instruction_fleche(struct_processus *s_e	Line 59 instruction_fleche(struct_processus *s_e
unsigned char *tampon;	unsigned char *tampon;
unsigned char test_instruction;	unsigned char test_instruction;

unsigned long i;	integer8 i;
unsigned long nombre_variables;	integer8 nombre_variables;

void (*fonction)();	void (*fonction)();

Line 838 instruction_fleche_list(struct_processus	Line 838 instruction_fleche_list(struct_processus
return;	return;
}	}

if ((unsigned long) nombre_elements >=	if (nombre_elements >= (*s_etat_processus).hauteur_pile_operationnelle)
(*s_etat_processus).hauteur_pile_operationnelle)
{	{
(*s_etat_processus).erreur_execution = d_ex_manque_argument;	(*s_etat_processus).erreur_execution = d_ex_manque_argument;
return;	return;
Line 1844 instruction_fact(struct_processus *s_eta	Line 1843 instruction_fact(struct_processus *s_eta
for (i = 1; i <= (((integer8 ) (*s_objet_argument).objet));	for (i = 1; i <= (((integer8 ) (*s_objet_argument).objet));
i++)	i++)
{	{
produit *= i;	produit *= (real8) i;
}	}

if ((s_objet_resultat = allocation(s_etat_processus, REL))	if ((s_objet_resultat = allocation(s_etat_processus, REL))
Line 2168 instruction_floor(struct_processus *s_et	Line 2167 instruction_floor(struct_processus *s_et
return;	return;
}	}

(((integer8 ) (*s_objet_resultat).objet)) =	(((integer8 ) (*s_objet_resultat).objet)) = (integer8)
floor((((real8 ) (*s_objet_argument).objet)));	floor((((real8 ) (*s_objet_argument).objet)));

if (!((((((integer8 ) (*s_objet_resultat).objet)) <	if (!((((((integer8 ) (*s_objet_resultat).objet)) <
Line 2800 instruction_fix(struct_processus *s_etat	Line 2799 instruction_fix(struct_processus *s_etat
return;	return;
}	}

(((logical8 ) (*s_objet).objet)) =	(((logical8 ) (*s_objet).objet)) = (logical8)
(((integer8 ) (*s_objet_argument).objet));	(((integer8 ) (*s_objet_argument).objet));

i43 = test_cfsf(s_etat_processus, 43);	i43 = test_cfsf(s_etat_processus, 43);
Line 2838 instruction_fix(struct_processus *s_etat	Line 2837 instruction_fix(struct_processus *s_etat
{	{
if (valeur_binaire[i] == '0')	if (valeur_binaire[i] == '0')
{	{
cf(s_etat_processus, j++);	cf(s_etat_processus, (unsigned char) j++);
}	}
else	else
{	{
sf(s_etat_processus, j++);	sf(s_etat_processus, (unsigned char) j++);
}	}
}	}

for(; j <= 56; cf(s_etat_processus, j++));	for(; j <= 56; cf(s_etat_processus, (unsigned char) j++));

sf(s_etat_processus, 49);	sf(s_etat_processus, 49);
cf(s_etat_processus, 50);	cf(s_etat_processus, 50);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.52
changed lines
	Added in v.1.53