rpl/src/instructions_p8.c - diff

Return to instructions_p8.c CVS log

Up to [local] / rpl / src

version 1.23, 2014/01/26 18:21:33	version 1.49, 2025/04/15 10:17:55
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.17	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2014 Dr. BERTRAND Joël	Copyright (C) 1989-2025 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;