rpl/src/rpl.c - diff

Return to rpl.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/rpl.c between versions 1.33 and 1.37

version 1.33, 2010/07/14 14:19:40	version 1.37, 2010/08/09 13:51:47
Line 21	Line 21


#define MAIN_RPL	#define MAIN_RPL
#include "rpl.conv.h"	#include "rpl-conv.h"

	#ifdef SEMAPHORES_SYSV
	unsigned char *chemin_semaphores_SysV;
	#endif


/*	/*
Line 33	Line 37
int	int
rplinit(int argc, char argv[], unsigned char *resultats, char rpl_home)	rplinit(int argc, char argv[], unsigned char *resultats, char rpl_home)
{	{
# include "copyright.conv.h"	# include "copyright-conv.h"
# include "licence.conv.h"	# include "licence-conv.h"

file *f_source;	file *f_source;

Line 99 rplinit(int argc, char *argv[], unsigned	Line 103 rplinit(int argc, char *argv[], unsigned
volatile int erreur;	volatile int erreur;
volatile unsigned char traitement_fichier_temporaire;	volatile unsigned char traitement_fichier_temporaire;

	errno = 0;

# ifdef DEBUG_MEMOIRE	# ifdef DEBUG_MEMOIRE
debug_memoire_initialisation();	debug_memoire_initialisation();
# endif	# endif
Line 327 rplinit(int argc, char *argv[], unsigned	Line 333 rplinit(int argc, char *argv[], unsigned
// Initialisation d'une pile de signal pour récupérer les	// Initialisation d'une pile de signal pour récupérer les
// débordement de pile	// débordement de pile

# ifndef Cygwin	# if !defined(Cygwin)
if (((*s_etat_processus).pile_signal.ss_sp =	if (((*s_etat_processus).pile_signal.ss_sp =
malloc((*s_etat_processus).pile_signal.ss_size =	malloc((*s_etat_processus).pile_signal.ss_size =
SIGSTKSZ)) == NULL)	SIGSTKSZ)) == NULL)
Line 583 rplinit(int argc, char *argv[], unsigned	Line 589 rplinit(int argc, char *argv[], unsigned
(*s_etat_processus).chemin_fichiers_temporaires =	(*s_etat_processus).chemin_fichiers_temporaires =
recherche_chemin_fichiers_temporaires(s_etat_processus);	recherche_chemin_fichiers_temporaires(s_etat_processus);

	# ifdef OS2
	chemin_semaphores_SysV = (*s_etat_processus).chemin_fichiers_temporaires;
	# endif

erreur = d_absence_erreur;	erreur = d_absence_erreur;
core = d_faux;	core = d_faux;
mode_interactif = d_faux;	mode_interactif = d_faux;
Line 1871 rplinit(int argc, char *argv[], unsigned	Line 1881 rplinit(int argc, char *argv[], unsigned
}	}

(*s_etat_processus).at_exit = NULL;	(*s_etat_processus).at_exit = NULL;
	(*s_etat_processus).at_poke = NULL;
	(*s_etat_processus).traitement_at_poke = 'N';

(*s_etat_processus).pointeurs_caracteres = NULL;	(*s_etat_processus).pointeurs_caracteres = NULL;
(*s_etat_processus).arbre_instructions = NULL;	(*s_etat_processus).arbre_instructions = NULL;
Line 2663 rplinit(int argc, char *argv[], unsigned	Line 2675 rplinit(int argc, char *argv[], unsigned
(*s_etat_processus).at_exit, 'E');	(*s_etat_processus).at_exit, 'E');
}	}
}	}

liberation(s_etat_processus,
(*s_etat_processus).at_exit);
}	}

	liberation(s_etat_processus, (*s_etat_processus).at_exit);
	liberation(s_etat_processus, (*s_etat_processus).at_poke);

if ((*s_etat_processus).generateur_aleatoire != NULL)	if ((*s_etat_processus).generateur_aleatoire != NULL)
{	{
liberation_generateur_aleatoire(s_etat_processus);	liberation_generateur_aleatoire(s_etat_processus);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.33
changed lines
	Added in v.1.37