diff --git a/hints b/hints index 3779bad5..8d4d235d 100644 --- a/hints +++ b/hints @@ -2,7 +2,8 @@ 0) generate voc.par file for the target platform(if it's not exist in src/par). you can do it by compiling vocparam, and running it as "./vocparam > voc.par" 1) generate voc, ocat, showdef source for target platform by running - make port0 + make -f makefile.gnuc. port0 + (or copy corresponding voc.par to the source directory yourself, remove stage2 from port0 section of the makefile, and run make port0) 2) transfer source to a target platform and write make port1 (or use a crosscompiler) diff --git a/src/lib/ulm/armv6j/ulmSysStat.Mod b/src/lib/ulm/armv6j/ulmSysStat.Mod index d995779e..9154ba6d 100644 --- a/src/lib/ulm/armv6j/ulmSysStat.Mod +++ b/src/lib/ulm/armv6j/ulmSysStat.Mod @@ -39,7 +39,7 @@ MODULE ulmSysStat; (* examine inode: stat(2) and fstat(2) *) - IMPORT RelatedEvents := ulmRelatedEvents, Sys := ulmSys, SYS := SYSTEM, SysConversions := ulmSysConversions, SysError := ulmSysErrors, + IMPORT RelatedEvents := ulmRelatedEvents, Sys := ulmSys, SYS := SYSTEM, uSYS := ulmSYSTEM, SysConversions := ulmSysConversions, SysErrors := ulmSysErrors, SysTypes := ulmSysTypes; CONST @@ -156,7 +156,7 @@ MODULE ulmSysStat; d0, d1, d2: LONGINT; origbuf: UnixStatRec; BEGIN - IF SYS.UNIXCALL(Sys.newstat, d0, d1, SYS.ADR(path), SYS.ADR(origbuf), d2) THEN + IF uSYS.UNIXCALL(Sys.newstat, d0, d1, SYS.ADR(path), SYS.ADR(origbuf), d2) THEN SysConversions.ByFmtFromC(origbuf, buf, statbuffmt); RETURN TRUE ELSE @@ -164,7 +164,7 @@ MODULE ulmSysStat; RETURN FALSE END; END Stat; - +(* PROCEDURE Lstat*(path: ARRAY OF CHAR; VAR buf: StatRec; errors: RelatedEvents.Object) : BOOLEAN; VAR @@ -179,14 +179,14 @@ MODULE ulmSysStat; RETURN FALSE END; END Lstat; - +*) PROCEDURE Fstat*(fd: SysTypes.File; VAR buf: StatRec; errors: RelatedEvents.Object) : BOOLEAN; VAR - d0, d1: INTEGER; + d0, d1, d2: LONGINT; origbuf: UnixStatRec; BEGIN - IF SYS.UNIXCALL(Sys.newfstat, d0, d1, fd, SYS.ADR(origbuf)) THEN + IF uSYS.UNIXCALL(Sys.newfstat, d0, d1, fd, SYS.ADR(origbuf), d2) THEN SysConversions.ByFmtFromC(origbuf, buf, statbuffmt); RETURN TRUE ELSE diff --git a/src/lib/ulm/armv6j_hardfp/ulmSysStat.Mod b/src/lib/ulm/armv6j_hardfp/ulmSysStat.Mod index d995779e..9154ba6d 100644 --- a/src/lib/ulm/armv6j_hardfp/ulmSysStat.Mod +++ b/src/lib/ulm/armv6j_hardfp/ulmSysStat.Mod @@ -39,7 +39,7 @@ MODULE ulmSysStat; (* examine inode: stat(2) and fstat(2) *) - IMPORT RelatedEvents := ulmRelatedEvents, Sys := ulmSys, SYS := SYSTEM, SysConversions := ulmSysConversions, SysError := ulmSysErrors, + IMPORT RelatedEvents := ulmRelatedEvents, Sys := ulmSys, SYS := SYSTEM, uSYS := ulmSYSTEM, SysConversions := ulmSysConversions, SysErrors := ulmSysErrors, SysTypes := ulmSysTypes; CONST @@ -156,7 +156,7 @@ MODULE ulmSysStat; d0, d1, d2: LONGINT; origbuf: UnixStatRec; BEGIN - IF SYS.UNIXCALL(Sys.newstat, d0, d1, SYS.ADR(path), SYS.ADR(origbuf), d2) THEN + IF uSYS.UNIXCALL(Sys.newstat, d0, d1, SYS.ADR(path), SYS.ADR(origbuf), d2) THEN SysConversions.ByFmtFromC(origbuf, buf, statbuffmt); RETURN TRUE ELSE @@ -164,7 +164,7 @@ MODULE ulmSysStat; RETURN FALSE END; END Stat; - +(* PROCEDURE Lstat*(path: ARRAY OF CHAR; VAR buf: StatRec; errors: RelatedEvents.Object) : BOOLEAN; VAR @@ -179,14 +179,14 @@ MODULE ulmSysStat; RETURN FALSE END; END Lstat; - +*) PROCEDURE Fstat*(fd: SysTypes.File; VAR buf: StatRec; errors: RelatedEvents.Object) : BOOLEAN; VAR - d0, d1: INTEGER; + d0, d1, d2: LONGINT; origbuf: UnixStatRec; BEGIN - IF SYS.UNIXCALL(Sys.newfstat, d0, d1, fd, SYS.ADR(origbuf)) THEN + IF uSYS.UNIXCALL(Sys.newfstat, d0, d1, fd, SYS.ADR(origbuf), d2) THEN SysConversions.ByFmtFromC(origbuf, buf, statbuffmt); RETURN TRUE ELSE diff --git a/src/lib/ulm/armv7a_hardfp/ulmSysStat.Mod b/src/lib/ulm/armv7a_hardfp/ulmSysStat.Mod index d995779e..9154ba6d 100644 --- a/src/lib/ulm/armv7a_hardfp/ulmSysStat.Mod +++ b/src/lib/ulm/armv7a_hardfp/ulmSysStat.Mod @@ -39,7 +39,7 @@ MODULE ulmSysStat; (* examine inode: stat(2) and fstat(2) *) - IMPORT RelatedEvents := ulmRelatedEvents, Sys := ulmSys, SYS := SYSTEM, SysConversions := ulmSysConversions, SysError := ulmSysErrors, + IMPORT RelatedEvents := ulmRelatedEvents, Sys := ulmSys, SYS := SYSTEM, uSYS := ulmSYSTEM, SysConversions := ulmSysConversions, SysErrors := ulmSysErrors, SysTypes := ulmSysTypes; CONST @@ -156,7 +156,7 @@ MODULE ulmSysStat; d0, d1, d2: LONGINT; origbuf: UnixStatRec; BEGIN - IF SYS.UNIXCALL(Sys.newstat, d0, d1, SYS.ADR(path), SYS.ADR(origbuf), d2) THEN + IF uSYS.UNIXCALL(Sys.newstat, d0, d1, SYS.ADR(path), SYS.ADR(origbuf), d2) THEN SysConversions.ByFmtFromC(origbuf, buf, statbuffmt); RETURN TRUE ELSE @@ -164,7 +164,7 @@ MODULE ulmSysStat; RETURN FALSE END; END Stat; - +(* PROCEDURE Lstat*(path: ARRAY OF CHAR; VAR buf: StatRec; errors: RelatedEvents.Object) : BOOLEAN; VAR @@ -179,14 +179,14 @@ MODULE ulmSysStat; RETURN FALSE END; END Lstat; - +*) PROCEDURE Fstat*(fd: SysTypes.File; VAR buf: StatRec; errors: RelatedEvents.Object) : BOOLEAN; VAR - d0, d1: INTEGER; + d0, d1, d2: LONGINT; origbuf: UnixStatRec; BEGIN - IF SYS.UNIXCALL(Sys.newfstat, d0, d1, fd, SYS.ADR(origbuf)) THEN + IF uSYS.UNIXCALL(Sys.newfstat, d0, d1, fd, SYS.ADR(origbuf), d2) THEN SysConversions.ByFmtFromC(origbuf, buf, statbuffmt); RETURN TRUE ELSE diff --git a/src/lib/ulm/x86/ulmSysStat.Mod b/src/lib/ulm/x86/ulmSysStat.Mod index d995779e..9154ba6d 100644 --- a/src/lib/ulm/x86/ulmSysStat.Mod +++ b/src/lib/ulm/x86/ulmSysStat.Mod @@ -39,7 +39,7 @@ MODULE ulmSysStat; (* examine inode: stat(2) and fstat(2) *) - IMPORT RelatedEvents := ulmRelatedEvents, Sys := ulmSys, SYS := SYSTEM, SysConversions := ulmSysConversions, SysError := ulmSysErrors, + IMPORT RelatedEvents := ulmRelatedEvents, Sys := ulmSys, SYS := SYSTEM, uSYS := ulmSYSTEM, SysConversions := ulmSysConversions, SysErrors := ulmSysErrors, SysTypes := ulmSysTypes; CONST @@ -156,7 +156,7 @@ MODULE ulmSysStat; d0, d1, d2: LONGINT; origbuf: UnixStatRec; BEGIN - IF SYS.UNIXCALL(Sys.newstat, d0, d1, SYS.ADR(path), SYS.ADR(origbuf), d2) THEN + IF uSYS.UNIXCALL(Sys.newstat, d0, d1, SYS.ADR(path), SYS.ADR(origbuf), d2) THEN SysConversions.ByFmtFromC(origbuf, buf, statbuffmt); RETURN TRUE ELSE @@ -164,7 +164,7 @@ MODULE ulmSysStat; RETURN FALSE END; END Stat; - +(* PROCEDURE Lstat*(path: ARRAY OF CHAR; VAR buf: StatRec; errors: RelatedEvents.Object) : BOOLEAN; VAR @@ -179,14 +179,14 @@ MODULE ulmSysStat; RETURN FALSE END; END Lstat; - +*) PROCEDURE Fstat*(fd: SysTypes.File; VAR buf: StatRec; errors: RelatedEvents.Object) : BOOLEAN; VAR - d0, d1: INTEGER; + d0, d1, d2: LONGINT; origbuf: UnixStatRec; BEGIN - IF SYS.UNIXCALL(Sys.newfstat, d0, d1, fd, SYS.ADR(origbuf)) THEN + IF uSYS.UNIXCALL(Sys.newfstat, d0, d1, fd, SYS.ADR(origbuf), d2) THEN SysConversions.ByFmtFromC(origbuf, buf, statbuffmt); RETURN TRUE ELSE diff --git a/src/voc/gnuc/extTools.Mod b/src/voc/gnuc/extTools.Mod index b701bf70..6a9ae616 100644 --- a/src/voc/gnuc/extTools.Mod +++ b/src/voc/gnuc/extTools.Mod @@ -57,12 +57,14 @@ END LinkMain; BEGIN -incPath0 := "src/lib/system/gnuc/x86_64 "; +incPath0 := "src/lib/system/gnuc"; incPath1 := "lib/voc/obj "; ccOpt := " -fPIC -g -I "; COPY (version.prefix, tmp1); Strings.Append("/", tmp1); Strings.Append(incPath0, tmp1); +Strings.Append("/", tmp1); +Strings.Append(version.arch, tmp1); Strings.Append(" -I ", tmp1); Strings.Append(version.prefix, tmp1); Strings.Append("/", tmp1); diff --git a/voc b/voc index 3c118e5b..bbe6d27c 100755 Binary files a/voc and b/voc differ diff --git a/vocstatic b/vocstatic index 3c118e5b..bbe6d27c 100755 Binary files a/vocstatic and b/vocstatic differ diff --git a/vocstatic.linux.gnuc.x86_64 b/vocstatic.linux.gnuc.x86_64 index 3c118e5b..bbe6d27c 100755 Binary files a/vocstatic.linux.gnuc.x86_64 and b/vocstatic.linux.gnuc.x86_64 differ