vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 21:32:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

chaned TimeDesc in File0.Mod and File.Mod -- antranigv

Browse source
This commit is contained in:
Antranig Vartanian 2015-12-12 21:58:47 +04:00
parent 135f9ec6b4
commit 3cdb5b1d3a
2 changed files with 38 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/lib/system/openbsd/gcc/x86_64/Files.Mod
View file

@ -53,10 +53,27 @@ MODULE Files; (* J. Templ 1.12. 89/12.4.95 Oberon files mapped onto Unix files
org, offset: LONGINT org, offset: LONGINT
END ; END ;
(* from time.h on OpenBSD; added yday; changed gmtoff, zone order;
sec to isdst changed to INTEGER; -- antranigv
struct tm {
int tm_sec;
int tm_min;
int tm_hour;
int tm_mday;
int tm_mon;
int tm_year;
int tm_wday;
int tm_yday;
int tm_isdst;
long tm_gmtoff;
char *tm_zone;
}; *)
Time = POINTER TO TimeDesc; Time = POINTER TO TimeDesc;
TimeDesc = RECORD TimeDesc = RECORD
sec*, min*, hour*, mday*, mon*, year*, wday*, isdst*, zone*, gmtoff*: LONGINT; sec, min, hour, mday, mon, year, wday, yday, isdst : INTEGER;
(* sec*, min*, hour*, mday*, mon*, year*, wday*, isdst*, zone*, gmtoff*: INTEGER;*) gmtoff, zone : LONGINT
(* sec, min, hour, mday, mon, year, wday, isdst, zone, gmtoff: INTEGER*)
END ; END ;
VAR VAR

21
src/lib/system/openbsd/gcc/x86_64/Files0.Mod
View file

@ -56,10 +56,27 @@ MODULE Files0; (* J. Templ 1.12. 89/12.4.95 Oberon files mapped onto Unix files
org, offset: LONGINT org, offset: LONGINT
END ; END ;
(* from time.h on OpenBSD; added yday; changed gmtoff, zone order;
sec to isdst changed to INTEGER; -- antranigv
struct tm {
int tm_sec;
int tm_min;
int tm_hour;
int tm_mday;
int tm_mon;
int tm_year;
int tm_wday;
int tm_yday;
int tm_isdst;
long tm_gmtoff;
char *tm_zone;
}; *)
Time = POINTER TO TimeDesc; Time = POINTER TO TimeDesc;
TimeDesc = RECORD TimeDesc = RECORD
sec*, min*, hour*, mday*, mon*, year*, wday*, isdst*, zone*, gmtoff*: LONGINT; sec, min, hour, mday, mon, year, wday, yday, isdst : INTEGER;
(* sec*, min*, hour*, mday*, mon*, year*, wday*, isdst*, zone*, gmtoff*: INTEGER;*) gmtoff, zone : LONGINT
(* sec, min, hour, mday, mon, year, wday, isdst, zone, gmtoff: INTEGER*)
END ; END ;
VAR VAR