rpl/src/instructions_t1.c - diff

Return to instructions_t1.c CVS log

Up to [local] / rpl / src

version 1.29, 2011/07/22 07:38:40	version 1.46, 2013/04/01 15:29:38
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.1	RPL/2 (R) version 4.1.14
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 264 instruction_then(struct_processus *s_eta	Line 264 instruction_then(struct_processus *s_eta
unsigned char *instruction_majuscule;	unsigned char *instruction_majuscule;
unsigned char *tampon;	unsigned char *tampon;

unsigned long niveau;	integer8 niveau;

void (*fonction)();	void (*fonction)();

Line 513 instruction_then(struct_processus *s_eta	Line 513 instruction_then(struct_processus *s_eta
"ELSEIF") == 0))	"ELSEIF") == 0))
{	{
(*s_etat_processus).position_courante	(*s_etat_processus).position_courante
-= (strlen(instruction_majuscule) + 1);	-= (integer8) (strlen(
	instruction_majuscule) + 1);
drapeau_fin = d_vrai;	drapeau_fin = d_vrai;
}	}
else	else