rpl/src/instructions_l5.c - diff

Return to instructions_l5.c CVS log

Up to [local] / rpl / src

version 1.52, 2015/01/05 13:12:36	version 1.75, 2025/04/15 10:17:54
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.19	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2015 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 446 instruction_label(struct_processus *s_et	Line 446 instruction_label(struct_processus *s_et
void	void
instruction_logger(struct_processus *s_etat_processus)	instruction_logger(struct_processus *s_etat_processus)
{	{
	integer8 longueur;

struct_objet *s_objet_argument;	struct_objet *s_objet_argument;

	unsigned char *tampon;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

if ((*s_etat_processus).affichage_arguments == 'Y')	if ((*s_etat_processus).affichage_arguments == 'Y')
Line 490 instruction_logger(struct_processus *s_e	Line 494 instruction_logger(struct_processus *s_e

if ((*s_objet_argument).type == CHN)	if ((*s_objet_argument).type == CHN)
{	{
syslog(LOG_NOTICE, "%s", (unsigned char ) (s_objet_argument).objet);	if ((tampon = formateur_flux(s_etat_processus,
	(unsigned char ) (s_objet_argument).objet, &longueur))
	== NULL)
	{
	return;
	}

	syslog(LOG_NOTICE, "%s", tampon);
	free(tampon);
}	}
else	else
{	{