rpl/src/instructions_r7.c - diff

Return to instructions_r7.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_r7.c between versions 1.2 and 1.16

version 1.2, 2011/12/01 15:23:49	version 1.16, 2013/03/22 10:20:35
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.5	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

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

Line 136 instruction_regex(struct_processus *s_et	Line 136 instruction_regex(struct_processus *s_et
printf("(regular expression)\n\n");	printf("(regular expression)\n\n");
}	}

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

	printf(" 2: %s\n", d_CHN);
printf(" 1: %s\n", d_CHN);	printf(" 1: %s\n", d_CHN);
printf("-> 1: %s (0 or -1)\n", d_INT);	printf("-> 1: %s (0 or -1)\n", d_INT);

Line 195 instruction_regex(struct_processus *s_et	Line 197 instruction_regex(struct_processus *s_et
return;	return;
}	}

if (regexec(&expression, (const char ) (s_objet_argument_1).objet,	if (regexec(&expression, (const char ) (s_objet_argument_2).objet,
0, NULL, 0) == 0)	0, NULL, 0) == 0)
{	{
(((integer8 ) (*s_objet_resultat).objet)) = -1;	(((integer8 ) (*s_objet_resultat).objet)) = -1;
Line 235 instruction_regex(struct_processus *s_et	Line 237 instruction_regex(struct_processus *s_et
{	{
if (((l_element_courant_lecture).donnee).type != CHN)	if (((l_element_courant_lecture).donnee).type != CHN)
{	{
	regfree(&expression);
liberation(s_etat_processus, s_objet_argument_1);	liberation(s_etat_processus, s_objet_argument_1);
liberation(s_etat_processus, s_objet_argument_2);	liberation(s_etat_processus, s_objet_argument_2);
liberation(s_etat_processus, s_objet_resultat);	liberation(s_etat_processus, s_objet_resultat);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.2
changed lines
	Added in v.1.16