rpl/src/types.c - diff

Return to types.c CVS log

Up to [local] / rpl / src

version 1.60, 2013/04/01 15:29:39	version 1.69, 2015/01/05 13:12:42
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.14	RPL/2 (R) version 4.1.19
Copyright (C) 1989-2013 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);