diff options
Diffstat (limited to 'lang/pm3-base/files/patch-eb')
| -rw-r--r-- | lang/pm3-base/files/patch-eb | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/lang/pm3-base/files/patch-eb b/lang/pm3-base/files/patch-eb deleted file mode 100644 index e06a6cab9c6c..000000000000 --- a/lang/pm3-base/files/patch-eb +++ /dev/null @@ -1,38 +0,0 @@ ---- language/modula3/m3compiler/m3where/src/Main.m3.orig Mon Jun 7 10:12:38 1999 -+++ language/modula3/m3compiler/m3where/src/Main.m3 Sat Sep 8 14:48:05 2001 -@@ -302,9 +302,10 @@ - m3_template := Env.Get("M3_TEMPLATE_DIR"); - path : TEXT; - subpath : TEXT; -- nextsep : INTEGER := 0; -- prevsep : INTEGER := 0; -+ nextsep : INTEGER; -+ prevsep : INTEGER := -1; - sep : CHAR; -+ filename : TEXT; - BEGIN - IF m3_template # NIL THEN - template_dir := m3_template; -@@ -321,13 +322,17 @@ - REPEAT - nextsep := Text.FindChar(path, sep, prevsep + 1); - IF nextsep # -1 THEN -- subpath := Text.Sub(path, prevsep, nextsep - prevsep - 1); -+ subpath := Text.Sub(path, prevsep + 1, nextsep - prevsep - 1); - ELSE -- subpath := Text.Sub(path, prevsep); -+ subpath := Text.Sub(path, prevsep + 1); - END; -- IF M3File.IsReadable(subpath & template) THEN -- template_dir := subpath; -- RETURN; -+ IF Text.Length(subpath) > 0 THEN -+ filename := subpath & SL & template; -+ IF M3File.IsReadable(filename) AND -+ NOT M3File.IsDirectory(filename) THEN -+ template_dir := subpath; -+ RETURN; -+ END; - END; - prevsep := nextsep; - UNTIL prevsep = -1; |