rpl/src/instructions_j1.c - diff

Return to instructions_j1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_j1.c between versions 1.13 and 1.65

version 1.13, 2010/08/26 19:07:38	version 1.65, 2019/10/31 15:40:12
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.19	RPL/2 (R) version 4.1.32
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2019 Dr. BERTRAND Joël

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

Line 165 instruction_jdate(struct_processus *s_et	Line 165 instruction_jdate(struct_processus *s_et

if (((l_element_courant).donnee).type == INT)	if (((l_element_courant).donnee).type == INT)
{	{
heure_julienne = (((integer8 ) ((l_element_courant)	heure_julienne = (real8) (((integer8 ) ((l_element_courant)
.donnee).objet));	.donnee).objet));
}	}
else if (((l_element_courant).donnee).type == REL)	else if (((l_element_courant).donnee).type == REL)
Line 196 instruction_jdate(struct_processus *s_et	Line 196 instruction_jdate(struct_processus *s_et
e = c - ((1461 * d) / 4);	e = c - ((1461 * d) / 4);
m = ((5 * (e - 1)) + 2) / 153;	m = ((5 * (e - 1)) + 2) / 153;

stm.tm_mday = e - (((153 * m) + 2) / 5);	stm.tm_mday = (int) (e - (((153 * m) + 2) / 5));
stm.tm_mon = m + 3 - ((12 * (m / 10)) + 1);	stm.tm_mon = (int) (m + 3 - ((12 * (m / 10)) + 1));
stm.tm_year = (100 * b) + (m / 10) + d - (4800 + 1900);	stm.tm_year = (int) ((100 * b) + (m / 10) + d - (4800 + 1900));

heure_julienne *= 24;	heure_julienne *= 24;
stm.tm_hour = (int) floor(heure_julienne);	stm.tm_hour = (int) floor(heure_julienne);
Line 214 instruction_jdate(struct_processus *s_et	Line 214 instruction_jdate(struct_processus *s_et
heure_julienne -= stm.tm_sec;	heure_julienne -= stm.tm_sec;

horodatage.tv_sec = mktime(&stm);	horodatage.tv_sec = mktime(&stm);
horodatage.tv_usec = heure_julienne * 1000000;	horodatage.tv_usec = (suseconds_t) (heure_julienne * 1000000);

if (horodatage.tv_sec == -1)	if (horodatage.tv_sec == -1)
{	{

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.13
changed lines
	Added in v.1.65