rpl/src/types.c - diff

Return to types.c CVS log

Up to [local] / rpl / src

version 1.66, 2014/07/17 08:07:27	version 1.70, 2015/01/05 15:32:25
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.19	RPL/2 (R) version 4.1.20
Copyright (C) 1989-2014 Dr. BERTRAND Joël	Copyright (C) 1989-2015 Dr. BERTRAND Joël

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

Line 2915 recherche_type(struct_processus *s_etat_	Line 2915 recherche_type(struct_processus *s_etat_
{	{
// Tableau	// Tableau

	(*s_etat_processus).type_en_cours = TBL;
sauvegarde_longueur_definitions_chainees =	sauvegarde_longueur_definitions_chainees =
(*s_etat_processus).longueur_definitions_chainees;	(*s_etat_processus).longueur_definitions_chainees;

Line 3183 recherche_type(struct_processus *s_etat_	Line 3184 recherche_type(struct_processus *s_etat_
{	{
// Définition	// Définition

	(*s_etat_processus).type_en_cours = RPN;

if (strlen((*s_etat_processus).instruction_courante) < 5)	if (strlen((*s_etat_processus).instruction_courante) < 5)
{	{
liberation(s_etat_processus, s_objet);	liberation(s_etat_processus, s_objet);