PERFORCE change 37601 for review

[Peter Wemm]

http://perforce.freebsd.org/chv.cgi?CH=37601

Change 37601 by peter at peter_daintree on 2003/09/05 15:07:48

	comment out the sort calls in the linker.  This causes an exception when an
	array gets trashed/overflowed/something bad.  This is a sign of a more serious
	problem.

Affected files ...

.. //depot/projects/ezm3/language/modula3/m3compiler/m3linker/src/MxGen.m3#2 edit
.. //depot/projects/ezm3/language/modula3/m3compiler/m3linker/src/MxGenRep.m3#2 edit

Differences ...

==== //depot/projects/ezm3/language/modula3/m3compiler/m3linker/src/MxGen.m3#2 (text+ko) ====

@@ -8,7 +8,7 @@
 
 MODULE MxGen;
 
-IMPORT Wr, Fmt, Thread, IntRefTbl, Stdio, IntArraySort;
+IMPORT Wr, Fmt, Thread, IntRefTbl, Stdio (*, IntArraySort *);
 IMPORT Mx, MxRep, MxMap, M3ID, M3RT, Target;
 <*FATAL Wr.Failure, Thread.Alerted*>
 
@@ -311,6 +311,7 @@
     units := NEW (REF ARRAY OF UnitInfo, n_units);
     map   := NEW (REF ARRAY OF INTEGER, n_units);
 
+(*
   PROCEDURE CmpUnit (a, b: INTEGER): [-1..1] =
     VAR ax := units[a].unit.name;  bx := units[b].unit.name;
     BEGIN
@@ -319,6 +320,7 @@
       ELSE                          RETURN +1;
       END;
     END CmpUnit;
+*)
 
   BEGIN
     ui := all_ui;
@@ -330,7 +332,7 @@
     END;
     <*ASSERT cnt = n_units*>
       
-    IntArraySort.Sort (map^, CmpUnit);
+    (* IntArraySort.Sort (map^, CmpUnit); *)
 
     (* rebuild the linked list *)
     ui := NIL;

==== //depot/projects/ezm3/language/modula3/m3compiler/m3linker/src/MxGenRep.m3#2 (text+ko) ====

@@ -10,7 +10,7 @@
 (*      Modified On Fri Jul  2 19:33:09 PDT 1993 By muller     *)
 MODULE MxGenRep;
 
-IMPORT IntRefTbl, Wr, IntArraySort, Fmt, Thread;
+IMPORT IntRefTbl, Wr, (* IntArraySort,*)  Fmt, Thread;
 IMPORT Mx, MxRep, M3ID, MxMap;
 
 <* FATAL Thread.Alerted, Wr.Failure *>
@@ -109,6 +109,7 @@
     units := NEW (REF ARRAY OF UnitInfo, n_units);
     map   := NEW (REF ARRAY OF INTEGER, n_units);
 
+(*
   PROCEDURE CmpUnit (a, b: INTEGER): [-1..1] =
     VAR ax := units[a].unit.name;  bx := units[b].unit.name;
     BEGIN
@@ -117,6 +118,7 @@
       ELSE                          RETURN +1;
       END;
     END CmpUnit;
+*)
 
   BEGIN
     ui := all_ui;
@@ -128,7 +130,7 @@
     END;
     <*ASSERT cnt = n_units*>
       
-    IntArraySort.Sort (map^, CmpUnit);
+    (*IntArraySort.Sort (map^, CmpUnit); *)
 
     (* rebuild the linked list *)
     ui := NIL;