rpl/src/instructions_p8.c - diff

Return to instructions_p8.c CVS log

Up to [local] / rpl / src

version 1.22, 2013/12/03 09:36:14	version 1.45, 2022/09/07 13:40:38
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.17	RPL/2 (R) version 4.1.34
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2021 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;