rpl/src/instructions_o1.c - diff

Return to instructions_o1.c CVS log

Up to [local] / rpl / src

version 1.54, 2012/05/20 18:01:35	version 1.56, 2012/06/21 16:07:25
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.8	RPL/2 (R) version 4.1.9
Copyright (C) 1989-2012 Dr. BERTRAND Joël	Copyright (C) 1989-2012 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 2731 instruction_open(struct_processus *s_eta	Line 2731 instruction_open(struct_processus *s_eta
l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;
}	}

	// Si aucun paramètre n'est discriminant, l'instruction ouvre
	// par défaut un fichier.

	if (type_arguments == ' ')
	{
	type_arguments = 'F';
	}

if (type_arguments == 'F')	if (type_arguments == 'F')
{	{
/*	/*