diff options
Diffstat (limited to 'lang/ezm3/files/patch-ea')
| -rw-r--r-- | lang/ezm3/files/patch-ea | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/lang/ezm3/files/patch-ea b/lang/ezm3/files/patch-ea deleted file mode 100644 index 98daf0ed8dfc..000000000000 --- a/lang/ezm3/files/patch-ea +++ /dev/null @@ -1,38 +0,0 @@ ---- language/modula3/m3compiler/m3ship/src/Main.m3.orig Mon Jun 7 10:11:49 1999 -+++ language/modula3/m3compiler/m3ship/src/Main.m3 Sat Sep 8 14:46:14 2001 -@@ -303,9 +303,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; -@@ -322,13 +323,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; |