rpl/src/instructions_s4.c - diff

Return to instructions_s4.c CVS log

Up to [local] / rpl / src

version 1.41, 2013/02/26 19:56:16	version 1.56, 2015/11/26 11:44:40
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.12	RPL/2 (R) version 4.1.24
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2015 Dr. BERTRAND Joël

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

Line 847 instruction_stws(struct_processus *s_eta	Line 847 instruction_stws(struct_processus *s_eta
return;	return;
}	}

(((logical8 ) (s_objet_binaire).objet)) = (((integer8 *)	(((logical8 ) (s_objet_binaire).objet)) = (logical8) ((((integer8 *)
(*s_objet_argument).objet)) - 1;	(*s_objet_argument).objet)) - 1);

i43 = test_cfsf(s_etat_processus, 43);	i43 = test_cfsf(s_etat_processus, 43);
i44 = test_cfsf(s_etat_processus, 44);	i44 = test_cfsf(s_etat_processus, 44);
Line 882 instruction_stws(struct_processus *s_eta	Line 882 instruction_stws(struct_processus *s_eta
{	{
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 <= 42; cf(s_etat_processus, j++));	for(; j <= 42; cf(s_etat_processus, (unsigned char) j++));

free(valeur_binaire);	free(valeur_binaire);
}	}