rpl/src/instructions_p8.c - diff

Return to instructions_p8.c CVS log

Up to [local] / rpl / src

version 1.18, 2013/03/22 15:31:19	version 1.35, 2017/01/18 15:44:21
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 224 instruction_poll(struct_processus *s_eta	Line 224 instruction_poll(struct_processus *s_eta

case CHN:	case CHN:
{	{
if ((registre = conversion_majuscule((unsigned char *)	if ((registre = conversion_majuscule(s_etat_processus,
((l_element_courant_2).donnee).objet))	(unsigned char ) ((*l_element_courant_2)
== NULL)	.donnee).objet)) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;