- remove some unused defines

compiler/assemble.pas

@@ -31,9 +31,6 @@ unit assemble;
 
 interface
 
-{ Use multiple passes in the internal assembler to optimize jumps }
-{$define MULTIPASS}
-
 
     uses
 {$ifdef Delphi}
@@ -1320,7 +1317,6 @@ Implementation
         { reset the asmsymbol list }
         objectlibrary.CreateUsedAsmsymbolList;
 
-{$ifdef MULTIPASS}
       { Pass 0 }
         currpass:=0;
         objectalloc.seTSection(sec_code);
@@ -1336,7 +1332,6 @@ Implementation
         { leave if errors have occured }
         if errorcount>0 then
          goto doexit;
-{$endif}
 
       { Pass 1 }
         currpass:=1;
@@ -1425,7 +1420,6 @@ Implementation
          { reset the asmsymbol list }
            objectlibrary.CreateUsedAsmSymbolList;
 
-{$ifdef MULTIPASS}
          { Pass 0 }
            currpass:=0;
            objectalloc.reseTSections;
@@ -1434,7 +1428,6 @@ Implementation
            { leave if errors have occured }
            if errorcount>0 then
             exit;
-{$endif MULTIPASS}
 
          { Pass 1 }
            currpass:=1;
@@ -1614,7 +1607,10 @@ Implementation
 end.
 {
   $Log$
-  Revision 1.47  2002-11-17 16:31:55  carl
+  Revision 1.48  2002-11-24 18:21:49  carl
+    - remove some unused defines
+
+  Revision 1.47  2002/11/17 16:31:55  carl
     * memory optimization (3-4%) : cleanup of tai fields,
        cleanup of tdef and tsym fields.
     * make it work for m68k

compiler/cclasses.pas

@@ -873,37 +873,11 @@ end;
       end;
 
     destructor Tdictionary.destroy;
-{$ifdef hashdebug}
-      var
-        i, unused, slots_with_col, collissions, treecount, maxcol: longint;
-{$endif hashdebug}
       begin
         if not noclear then
          clear;
         if assigned(FHashArray) then
          begin
-{$ifdef hashdebug}
-           unused := 0;
-           collissions := 0;
-           maxcol := 0;
-           slots_with_col := 0;
-           for i := low(fhasharray^) to high(fhasharray^) do
-             if assigned(fhasharray^[i]) then
-               begin
-                 treecount := counttree(fhasharray^[i]);
-                 inc(collissions,sqr(treecount-1));
-                 if treecount > maxcol then
-                   maxcol := treecount;
-                 inc(slots_with_col,ord(treecount>1));
-               end
-             else
-               inc(unused);
-           writeln('Slots unused: ',unused,' out of ',hasharraysize,
-             ' (',slots_with_col,' with >1 items)');
-           writeln('Mean number of collissions: ',
-             (sqrt(collissions / extended(hasharraysize-1))):0:3,' (max: ',maxcol,')');
-           writeln;
-{$endif hashdebug}
            dispose(FHashArray);
          end;
       end;
@@ -1847,7 +1821,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.20  2002-10-05 12:43:23  carl
+  Revision 1.21  2002-11-24 18:18:39  carl
+    - remove some unused defines
+
+  Revision 1.20  2002/10/05 12:43:23  carl
     * fixes for Delphi 6 compilation
      (warning : Some features do not work under Delphi)
 

compiler/tgobj.pas

@@ -214,14 +214,7 @@ unit tgobj;
         _align:=target_info.alignment.localalignmin;
         if _align<4 then
           _align:=4;
-{$ifdef testtemp}
-        if firsttemp <> lasttemp then
-           gettempsize:=Align(direction*(lasttemp-firsttemp),_align)
-        else
-           gettempsize := 0;
-{$else}
         gettempsize:=Align(direction*lasttemp,_align);
-{$endif}
       end;
 
 
@@ -535,7 +528,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.20  2002-11-17 17:49:08  mazen
+  Revision 1.21  2002-11-24 18:18:04  carl
+    - remove some unused defines
+
+  Revision 1.20  2002/11/17 17:49:08  mazen
   + return_result_reg and function_result_reg are now used, in all plateforms, to pass functions result between called function and its caller. See the explanation of each one
 
   Revision 1.19  2002/11/15 01:58:54  peter