diff --git a/ocat b/ocat index 3116d10f..10efb9d6 100755 Binary files a/ocat and b/ocat differ diff --git a/showdef.REMOVED.git-id b/showdef.REMOVED.git-id index 03703637..5728f240 100644 --- a/showdef.REMOVED.git-id +++ b/showdef.REMOVED.git-id @@ -1 +1 @@ -dbf175b1d1b9396c2486f2b84a751ccf93c6e8d6 \ No newline at end of file +127b39b0b88a2821cd08389f5930f44d9ced5c5c \ No newline at end of file diff --git a/src/lib/v4/Kernel.Mod b/src/lib/v4/Kernel.Mod index 13e0c5f7..a13f9d3b 100644 --- a/src/lib/v4/Kernel.Mod +++ b/src/lib/v4/Kernel.Mod @@ -169,9 +169,10 @@ BEGIN Args.GetEnv("OBERON", OBERON); (* always have current directory in module search path, noch *) Strings.Append(":.:", OBERON); + Strings.Append(MODULES, OBERON); + Strings.Append(":", OBERON); Strings.Append(version.prefix, OBERON); Strings.Append("/lib/voc/sym:", OBERON); - Strings.Append(MODULES, OBERON); Args.GetEnv("OBERON_LIB", LIB); TimeUnit := 1000; timeStart := 0; timeStart := Time() END Kernel. diff --git a/src/voc/gnuc/extTools.Mod b/src/voc/gnuc/extTools.Mod index b5d6fc3f..b6ebfd11 100644 --- a/src/voc/gnuc/extTools.Mod +++ b/src/voc/gnuc/extTools.Mod @@ -7,11 +7,11 @@ CLOBERONOPTS = -fPIC $(INCLUDEPATH) -L. -L/usr/lib -lOberon -static -g CC = cc $(CCOPT) -c *) -VAR incPath0, incPath1, ccOpt, ccString, CFLAGS, tmp0, tmp1 : ARRAY 256 OF CHAR; +VAR incPath0, incPath1, ccOpt, ccString, CFLAGS, tmp0, tmp1 : ARRAY 1023 OF CHAR; PROCEDURE Assemble*(m : ARRAY OF CHAR); -VAR cmd : ARRAY 1024 OF CHAR; -cc : ARRAY 23 OF CHAR; +VAR cmd : ARRAY 1023 OF CHAR; +cc : ARRAY 1023 OF CHAR; ext : ARRAY 5 OF CHAR; BEGIN COPY (ccString, cc); @@ -28,10 +28,10 @@ END Assemble; PROCEDURE LinkMain*(VAR m : ARRAY OF CHAR; statically : BOOLEAN; additionalopts : ARRAY OF CHAR); -VAR lpath : ARRAY 256 OF CHAR; -cc : ARRAY 256 OF CHAR; -ccopt : ARRAY 256 OF CHAR; -cmd : ARRAY 256 OF CHAR; +VAR lpath : ARRAY 1023 OF CHAR; +cc : ARRAY 1023 OF CHAR; +ccopt : ARRAY 1023 OF CHAR; +cmd : ARRAY 1023 OF CHAR; ext : ARRAY 5 OF CHAR; BEGIN (* @@ -51,7 +51,7 @@ Strings.Append(" -o ", cmd); Strings.Append(m, cmd); Strings.Append(" ", cmd); Strings.Append(ccOpt, cmd); -(*Console.Ln; Console.String(cmd); Console.Ln;*) (* may be it's feasible to add debug mode later *) +Console.Ln; Console.String(cmd); Console.Ln; (* may be it's feasible to add debug mode later *) Unix.system(cmd); END LinkMain; diff --git a/voc.REMOVED.git-id b/voc.REMOVED.git-id index 8d6dbb74..2973060c 100644 --- a/voc.REMOVED.git-id +++ b/voc.REMOVED.git-id @@ -1 +1 @@ -2fc505939b09eb705049af5303ed9a421e519087 \ No newline at end of file +6f1a5b8457e70e043eab08632b20cf5a4f13f80b \ No newline at end of file diff --git a/vocstatic.REMOVED.git-id b/vocstatic.REMOVED.git-id index 7ee40301..2973060c 100644 --- a/vocstatic.REMOVED.git-id +++ b/vocstatic.REMOVED.git-id @@ -1 +1 @@ -bbe6d27c2b427336227ff2a9bf5db1ff160c9184 \ No newline at end of file +6f1a5b8457e70e043eab08632b20cf5a4f13f80b \ No newline at end of file diff --git a/vocstatic.linux.gnuc.x86_64.REMOVED.git-id b/vocstatic.linux.gnuc.x86_64.REMOVED.git-id index 7ee40301..2973060c 100644 --- a/vocstatic.linux.gnuc.x86_64.REMOVED.git-id +++ b/vocstatic.linux.gnuc.x86_64.REMOVED.git-id @@ -1 +1 @@ -bbe6d27c2b427336227ff2a9bf5db1ff160c9184 \ No newline at end of file +6f1a5b8457e70e043eab08632b20cf5a4f13f80b \ No newline at end of file