rpl/src/instructions_r6.c - diff

Return to instructions_r6.c CVS log

Up to [local] / rpl / src

version 1.48, 2013/03/20 22:24:37	version 1.51, 2013/04/01 15:29:37
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.14
Copyright (C) 1989-2013 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 793 instruction_rdate(struct_processus *s_et	Line 793 instruction_rdate(struct_processus *s_et
if ((*s_objet_argument).type == INT)	if ((*s_objet_argument).type == INT)
{	{
gettimeofday(&horodatage, NULL);	gettimeofday(&horodatage, NULL);
horodatage.tv_sec += (((integer8 ) (*s_objet_argument).objet));	horodatage.tv_sec += (time_t) (((integer8 )
	(*s_objet_argument).objet));

if (horodatage.tv_sec < 0)	if (horodatage.tv_sec < 0)
{	{
Line 1315 instruction_rdgn(struct_processus *s_eta	Line 1316 instruction_rdgn(struct_processus *s_eta
premier = j;	premier = j;
}	}

for(i = 0; i < (long) nombre_types; i++)	for(i = 0; i < nombre_types; i++)
{	{
printf(" - %s\n", types_generateurs[i]);	printf(" - %s\n", types_generateurs[i]);
free(types_generateurs[i]);	free(types_generateurs[i]);