rpl/src/operations_binaires.c - diff

Return to operations_binaires.c CVS log

Up to [local] / rpl / src

version 1.41, 2013/03/21 11:30:31	version 1.45, 2013/06/21 14:15:57
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.15
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 47 longueur_entiers_binaires(struct_process	Line 47 longueur_entiers_binaires(struct_process

for(i = 0; i < 6; i++)	for(i = 0; i < 6; i++)
{	{
longueur_binaire = (unsigned char) (longueur_binaire +	if (test_cfsf(s_etat_processus, (unsigned char) (37 + i)) == d_vrai)
((test_cfsf(s_etat_processus,	{
(unsigned char) (37 + i) == d_vrai) ? j : 0)));	longueur_binaire = (unsigned char) (longueur_binaire + j);
	}

j = (unsigned char) (j << 1);	j = (unsigned char) (j << 1);
}	}