rpl/src/types.c - diff

Return to types.c CVS log

Up to [local] / rpl / src

version 1.14, 2010/05/24 10:58:37	version 1.23, 2010/11/09 10:47:43
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.16	RPL/2 (R) version 4.0.20
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 20	Line 20
*/	*/


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


/*	/*
Line 3122 recherche_type(struct_processus *s_etat_	Line 3122 recherche_type(struct_processus *s_etat_

if (element == NULL)	if (element == NULL)
{	{
// ICI
if ((*s_etat_processus).erreur_systeme != d_es)	if ((*s_etat_processus).erreur_systeme != d_es)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3378 recherche_type(struct_processus *s_etat_	Line 3377 recherche_type(struct_processus *s_etat_
if ((drapeau_valeur_reelle == d_faux) &&	if ((drapeau_valeur_reelle == d_faux) &&
(drapeau_valeur_entiere == d_faux))	(drapeau_valeur_entiere == d_faux))
{	{
	ptr = (*s_etat_processus).instruction_courante;

	while((*ptr) != d_code_fin_chaine)
	{
	if (isalnum((*ptr)) == 0)
	{
	free(s_objet);

	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	(*s_etat_processus).traitement_interruptible =
	registre_interruption;

	return;
	}

	ptr++;
	}

(*s_objet).type = NOM;	(*s_objet).type = NOM;

element = malloc(sizeof(struct_nom));	element = malloc(sizeof(struct_nom));