rpl/src/instructions_r4.c - diff

Return to instructions_r4.c CVS log

Up to [local] / rpl / src

version 1.112, 2020/01/10 11:15:47	version 1.117, 2023/08/08 08:53:40
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.32	RPL/2 (R) version 4.1.35
Copyright (C) 1989-2020 Dr. BERTRAND Joël	Copyright (C) 1989-2023 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 962 instruction_read(struct_processus *s_eta	Line 962 instruction_read(struct_processus *s_eta
printf("(read a record of a file)\n\n");	printf("(read a record of a file)\n\n");
}	}

printf(" 1: %s, %s\n\n", d_FCH, d_SCK);	printf(" 1: %s, %s\n", d_FCH, d_SCK);
	printf("-> 1: %s\n\n", d_LST);

printf(" 2: %s, %s\n", d_INT, d_CHN);	printf(" 2: %s, %s\n", d_INT, d_CHN);
printf(" 1: %s\n", d_FCH);	printf(" 1: %s\n", d_FCH);
	printf("-> 1: %s\n\n", d_LST);
return;	return;
}	}
else if ((*s_etat_processus).test_instruction == 'Y')	else if ((*s_etat_processus).test_instruction == 'Y')
Line 2120 instruction_read(struct_processus *s_eta	Line 2122 instruction_read(struct_processus *s_eta
if (sscanf(&(format_chaine[8]), "%lld", &longueur)	if (sscanf(&(format_chaine[8]), "%lld", &longueur)
!= 1)	!= 1)
{	{
liberation(s_etat_processus, s_objet_argument_1);	liberation(s_etat_processus,
	s_objet_argument_1);
liberation(s_etat_processus, s_objet_resultat);	liberation(s_etat_processus, s_objet_resultat);
free(format_chaine);	free(format_chaine);