rpl/src/instructions_c6.c - diff

Return to instructions_c6.c CVS log

Up to [local] / rpl / src

version 1.4, 2010/03/04 10:17:50	version 1.20, 2011/06/20 17:54:16
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.12	RPL/2 (R) version 4.1.0.prerelease.1
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2011 Dr. BERTRAND Joël

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

Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 38	Line 38
void	void
instruction_clusr(struct_processus *s_etat_processus)	instruction_clusr(struct_processus *s_etat_processus)
{	{
unsigned long i;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

if ((*s_etat_processus).affichage_arguments == 'Y')	if ((*s_etat_processus).affichage_arguments == 'Y')
Line 72 instruction_clusr(struct_processus *s_et	Line 70 instruction_clusr(struct_processus *s_et
return;	return;
}	}
}	}
	/*
	* Utiliser la pile des variables par niveau
for(i = 0; i < (*s_etat_processus).nombre_variables; i++)	for(i = 0; i < (*s_etat_processus).nombre_variables; i++)
{	{
if (((*s_etat_processus).s_liste_variables[i]).niveau == 1)	if (((*s_etat_processus).s_liste_variables[i]).niveau == 1)
Line 85 instruction_clusr(struct_processus *s_et	Line 84 instruction_clusr(struct_processus *s_et
}	}
}	}
}	}
	*/

return;	return;
}	}