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.2 and 1.52

version 1.2, 2010/01/27 22:22:12	version 1.52, 2015/01/05 15:32:16
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.10	RPL/2 (R) version 4.1.20
Copyright (C) 1989-2010 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 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 556 instruction_asr(struct_processus *s_etat	Line 556 instruction_asr(struct_processus *s_etat
void	void
instruction_append(struct_processus *s_etat_processus)	instruction_append(struct_processus *s_etat_processus)
{	{
file *descripteur;	struct_descripteur_fichier *descripteur;

struct_objet *s_objet_argument;	struct_objet *s_objet_argument;

Line 609 instruction_append(struct_processus *s_e	Line 609 instruction_append(struct_processus *s_e
return;	return;
}	}

if (fseek(descripteur, (long) 0, SEEK_END) != 0)	if ((*descripteur).type == 'C')
	{
	if (fseek((*descripteur).descripteur_c, (long) 0, SEEK_END) != 0)
	{
	liberation(s_etat_processus, s_objet_argument);

	(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
	return;
	}
	}
	else
{	{
liberation(s_etat_processus, s_objet_argument);	liberation(s_etat_processus, s_objet_argument);

(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;	(*s_etat_processus).erreur_execution = d_ex_erreur_type_fichier;
return;	return;
}	}
}	}
Line 767 instruction_axes(struct_processus *s_eta	Line 777 instruction_axes(struct_processus *s_eta

if (presence_type == d_faux)	if (presence_type == d_faux)
{	{
if ((tampon = malloc(5 * sizeof(unsigned char))) == NULL)
{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;
}

if ((*s_etat_processus).systeme_axes == 0)	if ((*s_etat_processus).systeme_axes == 0)
{	{
	if ((tampon = malloc(5 * sizeof(unsigned char))) == NULL)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
	return;
	}

strcpy(tampon, "MAIN");	strcpy(tampon, "MAIN");
}	}
else	else
{	{
	if ((tampon = malloc(10 * sizeof(unsigned char))) == NULL)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
	return;
	}

strcpy(tampon, "AUXILIARY");	strcpy(tampon, "AUXILIARY");
}	}
}	}
Line 899 instruction_axes(struct_processus *s_eta	Line 917 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 929 instruction_axes(struct_processus *s_eta	Line 947 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 965 instruction_axes(struct_processus *s_eta	Line 983 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 995 instruction_axes(struct_processus *s_eta	Line 1013 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 1031 instruction_axes(struct_processus *s_eta	Line 1049 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 1061 instruction_axes(struct_processus *s_eta	Line 1079 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 1123 instruction_axes(struct_processus *s_eta	Line 1141 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 1153 instruction_axes(struct_processus *s_eta	Line 1171 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 1189 instruction_axes(struct_processus *s_eta	Line 1207 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 1219 instruction_axes(struct_processus *s_eta	Line 1237 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 1255 instruction_axes(struct_processus *s_eta	Line 1273 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 1285 instruction_axes(struct_processus *s_eta	Line 1303 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 =

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.2
changed lines
	Added in v.1.52