rpl/src/instructions_l3.c - diff

Return to instructions_l3.c CVS log

Up to [local] / rpl / src

version 1.41, 2013/03/20 17:11:45	version 1.52, 2015/02/19 11:01:24
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.21
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 826 instruction_logscale(struct_processus *s	Line 826 instruction_logscale(struct_processus *s

if ((*s_objet).type == NOM)	if ((*s_objet).type == NOM)
{	{
tampon = conversion_majuscule((((struct_nom ) (*s_objet).objet)).nom);	tampon = conversion_majuscule(s_etat_processus,
	(((struct_nom ) (*s_objet).objet)).nom);

if (tampon == NULL)	if (tampon == NULL)
{	{
Line 907 instruction_logscale(struct_processus *s	Line 908 instruction_logscale(struct_processus *s
return;	return;
}	}

tampon = conversion_majuscule((((struct_nom )	tampon = conversion_majuscule(s_etat_processus,
((l_element_courant).donnee).objet)).nom);	(((struct_nom ) ((l_element_courant).donnee)
	.objet)).nom);

if ((strcmp(tampon, "X") != 0) && (strcmp(tampon, "Y") != 0) &&	if ((strcmp(tampon, "X") != 0) && (strcmp(tampon, "Y") != 0) &&
(strcmp(tampon, "Z") != 0))	(strcmp(tampon, "Z") != 0))