changed variable l type from LONGINT to INTEGER in Kernel.Mod and

Kernel0.Mod --antranigv


Former-commit-id: 135f9ec6b4
This commit is contained in:
Antranig Vartanian 2015-12-12 21:26:06 +04:00
parent 40441e13ae
commit 1a2082bfc2
2 changed files with 2 additions and 2 deletions

View file

@ -99,7 +99,7 @@ MODULE Kernel;
PROCEDURE GetClock* (VAR t, d: LONGINT);
VAR tv: Unix.Timeval; tz: Unix.Timezone; time: RealTime;
l : LONGINT;
l : INTEGER;
BEGIN
l := Unix.Gettimeofday(tv, tz);
time := localtime(tv.sec);

View file

@ -102,7 +102,7 @@ MODULE Kernel0;
PROCEDURE GetClock* (VAR t, d: LONGINT);
VAR tv: Unix.Timeval; tz: Unix.Timezone; time: RealTime;
l : LONGINT;
l : INTEGER;
BEGIN
l := Unix.Gettimeofday(tv, tz);
time := localtime(tv.sec);