mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 18:02:25 +00:00
changed variable l type from LONGINT to INTEGER in Kernel.Mod and
Kernel0.Mod --antranigv
This commit is contained in:
parent
47d97361f6
commit
135f9ec6b4
2 changed files with 2 additions and 2 deletions
|
|
@ -99,7 +99,7 @@ MODULE Kernel;
|
||||||
|
|
||||||
PROCEDURE GetClock* (VAR t, d: LONGINT);
|
PROCEDURE GetClock* (VAR t, d: LONGINT);
|
||||||
VAR tv: Unix.Timeval; tz: Unix.Timezone; time: RealTime;
|
VAR tv: Unix.Timeval; tz: Unix.Timezone; time: RealTime;
|
||||||
l : LONGINT;
|
l : INTEGER;
|
||||||
BEGIN
|
BEGIN
|
||||||
l := Unix.Gettimeofday(tv, tz);
|
l := Unix.Gettimeofday(tv, tz);
|
||||||
time := localtime(tv.sec);
|
time := localtime(tv.sec);
|
||||||
|
|
|
||||||
|
|
@ -102,7 +102,7 @@ MODULE Kernel0;
|
||||||
|
|
||||||
PROCEDURE GetClock* (VAR t, d: LONGINT);
|
PROCEDURE GetClock* (VAR t, d: LONGINT);
|
||||||
VAR tv: Unix.Timeval; tz: Unix.Timezone; time: RealTime;
|
VAR tv: Unix.Timeval; tz: Unix.Timezone; time: RealTime;
|
||||||
l : LONGINT;
|
l : INTEGER;
|
||||||
BEGIN
|
BEGIN
|
||||||
l := Unix.Gettimeofday(tv, tz);
|
l := Unix.Gettimeofday(tv, tz);
|
||||||
time := localtime(tv.sec);
|
time := localtime(tv.sec);
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue