rpl/src/instructions_a4.c - diff

Return to instructions_a4.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_a4.c between versions 1.41 and 1.74

version 1.41, 2013/02/26 19:56:13	version 1.74, 2025/04/15 10:17:51
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.12	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2025 Dr. BERTRAND Joël

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

Line 116 instruction_autoscale(struct_processus *	Line 116 instruction_autoscale(struct_processus *

if ((*s_objet).type == NOM)	if ((*s_objet).type == NOM)
{	{
tampon = conversion_majuscule((((struct_nom ) (*s_objet).objet)).nom);	tampon = conversion_majuscule(s_etat_processus,
	(((struct_nom ) (*s_objet).objet)).nom);

if (tampon == NULL)	if (tampon == NULL)
{	{
Line 188 instruction_autoscale(struct_processus *	Line 189 instruction_autoscale(struct_processus *
return;	return;
}	}

tampon = conversion_majuscule((((struct_nom )	tampon = conversion_majuscule(s_etat_processus, (((struct_nom )
((l_element_courant).donnee).objet)).nom);	((l_element_courant).donnee).objet)).nom);

if ((strcmp(tampon, "X") != 0) && (strcmp(tampon, "Y")!= 0) &&	if ((strcmp(tampon, "X") != 0) && (strcmp(tampon, "Y")!= 0) &&
Line 757 instruction_axes(struct_processus *s_eta	Line 758 instruction_axes(struct_processus *s_eta
return;	return;
}	}

if ((tampon = conversion_majuscule((unsigned char *)	if ((tampon = conversion_majuscule(s_etat_processus,
((l_element_courant).donnee).objet)) == NULL)	(unsigned char ) ((*l_element_courant).donnee).objet))
	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 917 instruction_axes(struct_processus *s_eta	Line 919 instruction_axes(struct_processus *s_eta
}	}
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).mx_tics = (real8)	(*s_etat_processus).mx_tics =
(((integer8 ) (*	(((integer8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
Line 947 instruction_axes(struct_processus *s_eta	Line 949 instruction_axes(struct_processus *s_eta
}	}
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).mx2_tics = (real8)	(*s_etat_processus).mx2_tics =
(((integer8 ) (*	(((integer8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
Line 983 instruction_axes(struct_processus *s_eta	Line 985 instruction_axes(struct_processus *s_eta
}	}
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).my_tics = (real8)	(*s_etat_processus).my_tics =
(((integer8 ) (*	(((integer8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
Line 1013 instruction_axes(struct_processus *s_eta	Line 1015 instruction_axes(struct_processus *s_eta
}	}
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).my2_tics = (real8)	(*s_etat_processus).my2_tics =
(((integer8 ) (*	(((integer8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
Line 1049 instruction_axes(struct_processus *s_eta	Line 1051 instruction_axes(struct_processus *s_eta
}	}
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).mz_tics = (real8)	(*s_etat_processus).mz_tics =
(((integer8 ) (*	(((integer8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
Line 1079 instruction_axes(struct_processus *s_eta	Line 1081 instruction_axes(struct_processus *s_eta
}	}
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).mz2_tics = (real8)	(*s_etat_processus).mz2_tics =
(((integer8 ) (*	(((integer8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
Line 1141 instruction_axes(struct_processus *s_eta	Line 1143 instruction_axes(struct_processus *s_eta
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).mx_tics =	(*s_etat_processus).mx_tics =
(((real8 ) (*	(integer8) (((real8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
(*s_etat_processus).mx_lines =	(*s_etat_processus).mx_lines =
Line 1171 instruction_axes(struct_processus *s_eta	Line 1173 instruction_axes(struct_processus *s_eta
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).mx2_tics =	(*s_etat_processus).mx2_tics =
(((real8 ) (*	(integer8) (((real8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
(*s_etat_processus).mx2_lines =	(*s_etat_processus).mx2_lines =
Line 1207 instruction_axes(struct_processus *s_eta	Line 1209 instruction_axes(struct_processus *s_eta
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).my_tics =	(*s_etat_processus).my_tics =
(((real8 ) (*	(integer8) (((real8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
(*s_etat_processus).my_lines =	(*s_etat_processus).my_lines =
Line 1237 instruction_axes(struct_processus *s_eta	Line 1239 instruction_axes(struct_processus *s_eta
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).my2_tics =	(*s_etat_processus).my2_tics =
(((real8 ) (*	(integer8) (((real8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
(*s_etat_processus).my2_lines =	(*s_etat_processus).my2_lines =
Line 1273 instruction_axes(struct_processus *s_eta	Line 1275 instruction_axes(struct_processus *s_eta
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).mz_tics =	(*s_etat_processus).mz_tics =
(((real8 ) (*	(integer8) (((real8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
(*s_etat_processus).mz_lines =	(*s_etat_processus).mz_lines =
Line 1303 instruction_axes(struct_processus *s_eta	Line 1305 instruction_axes(struct_processus *s_eta
else if (nombre_arguments_auxiliaires == 2)	else if (nombre_arguments_auxiliaires == 2)
{	{
(*s_etat_processus).mz2_tics =	(*s_etat_processus).mz2_tics =
(((real8 ) (*	(integer8) (((real8 ) (*
(*l_element_courant_auxiliaire)	(*l_element_courant_auxiliaire)
.donnee).objet));	.donnee).objet));
(*s_etat_processus).mz2_lines =	(*s_etat_processus).mz2_lines =
Line 1336 instruction_axes(struct_processus *s_eta	Line 1338 instruction_axes(struct_processus *s_eta
else if (((l_element_courant_auxiliaire).donnee)	else if (((l_element_courant_auxiliaire).donnee)
.type == CHN)	.type == CHN)
{	{
tampon = conversion_majuscule((unsigned char *)	tampon = conversion_majuscule(s_etat_processus,
	(unsigned char *)
((l_element_courant_auxiliaire).donnee)	((l_element_courant_auxiliaire).donnee)
.objet);	.objet);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.41
changed lines
	Added in v.1.74