rpl/src/instructions_p8.c - diff

Return to instructions_p8.c CVS log

Up to [local] / rpl / src

version 1.19, 2013/04/01 15:29:37	version 1.43, 2020/01/10 11:15:47
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.14	RPL/2 (R) version 4.1.32
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2020 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;