rpl/src/instructions_r6.c - diff

Return to instructions_r6.c CVS log

Up to [local] / rpl / src

version 1.49, 2013/03/21 12:07:38	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)
{	{