Parcourir la source

* Nextoverloading ordering fix

pierre il y a 26 ans
Parent
commit
e4bfedf924
3 fichiers modifiés avec 16 ajouts et 9 suppressions
  1. 6 3
      compiler/ppu.pas
  2. 4 3
      compiler/symppu.inc
  3. 6 3
      compiler/symsym.inc

+ 6 - 3
compiler/ppu.pas

@@ -910,8 +910,8 @@ end;
 
 procedure tppufile.putbyte(b:byte);
 begin
-  writedata(b,1);
-  inc(entryidx);
+  putdata(b,1);
+{  inc(entryidx);}
 end;
 
 
@@ -1000,7 +1000,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.49  1999-11-18 15:34:48  pierre
+  Revision 1.50  1999-11-21 01:42:37  pierre
+   * Nextoverloading ordering fix
+
+  Revision 1.49  1999/11/18 15:34:48  pierre
     * Notes/Hints for local syms changed to
       Set_varstate function
 

+ 4 - 3
compiler/symppu.inc

@@ -129,9 +129,7 @@
                  { when writing the pseudo PPU file
                    to get CRC values the globalsymtable is not yet
                    a unitsymtable PM }
-{$ifndef Dont_use_double_checksum}
                   globalsymtable,
-{$endif Dont_use_double_checksum}
                   unitsymtable :
                     begin
                       current_ppu^.putbyte(ord(derefunit));
@@ -755,7 +753,10 @@
 
 {
   $Log$
-  Revision 1.55  1999-11-17 17:05:04  pierre
+  Revision 1.56  1999-11-21 01:42:37  pierre
+   * Nextoverloading ordering fix
+
+  Revision 1.55  1999/11/17 17:05:04  pierre
    * Notes/hints changes
 
   Revision 1.54  1999/11/12 11:03:50  peter

+ 6 - 3
compiler/symsym.inc

@@ -445,7 +445,7 @@
              currdef:=firstdef;
              lastdef:=definition;
              definition:=definition^.nextoverloaded;
-             if lastdef^.mangledname>currdef^.mangledname then
+             if lastdef^.mangledname<firstdef^.mangledname then
                begin
                  lastdef^.nextoverloaded:=firstdef;
                  firstdef:=lastdef;
@@ -453,7 +453,7 @@
              else
                begin
                  while assigned(currdef^.nextoverloaded) and
-                    (currdef^.mangledname>lastdef^.mangledname) do
+                    (lastdef^.mangledname>currdef^.nextoverloaded^.mangledname) do
                    currdef:=currdef^.nextoverloaded;
                  lastdef^.nextoverloaded:=currdef^.nextoverloaded;
                  currdef^.nextoverloaded:=lastdef;
@@ -2192,7 +2192,10 @@
 
 {
   $Log$
-  Revision 1.128  1999-11-20 01:22:20  pierre
+  Revision 1.129  1999-11-21 01:42:37  pierre
+   * Nextoverloading ordering fix
+
+  Revision 1.128  1999/11/20 01:22:20  pierre
     + cond FPC_USE_CPREFIX (needs also some RTL changes)
       this allows to use unit global vars as DLL exports
       (the underline prefix seems needed by dlltool)