rpl/src/instructions_t1.c - diff

Return to instructions_t1.c CVS log

Up to [local] / rpl / src

version 1.20, 2011/03/06 16:44:13	version 1.45, 2013/03/21 11:30:30
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.21	RPL/2 (R) version 4.1.13
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