rpl/src/instructions_d1.c - diff

Return to instructions_d1.c CVS log

Up to [local] / rpl / src

version 1.43, 2013/03/20 17:11:44	version 1.61, 2017/01/18 15:44:19
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.26
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2017 Dr. BERTRAND Joël

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

Line 525 instruction_dropn(struct_processus *s_et	Line 525 instruction_dropn(struct_processus *s_et
{	{
struct_objet *s_objet;	struct_objet *s_objet;

signed long nombre_suppressions;	integer8 nombre_suppressions;

integer8 i;	integer8 i;

Line 3938 instruction_default(struct_processus *s_	Line 3938 instruction_default(struct_processus *s_
return;	return;
}	}

instruction_majuscule = conversion_majuscule(	instruction_majuscule = conversion_majuscule(s_etat_processus,
(*s_etat_processus).instruction_courante);	(*s_etat_processus).instruction_courante);

if (niveau == 0)	if (niveau == 0)