Browse Source

* Nextoverloading ordering fix

pierre 26 years ago
parent
commit
e4bfedf924
3 changed files with 16 additions and 9 deletions
  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);
 procedure tppufile.putbyte(b:byte);
 begin
 begin
-  writedata(b,1);
-  inc(entryidx);
+  putdata(b,1);
+{  inc(entryidx);}
 end;
 end;
 
 
 
 
@@ -1000,7 +1000,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $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
     * Notes/Hints for local syms changed to
       Set_varstate function
       Set_varstate function
 
 

+ 4 - 3
compiler/symppu.inc

@@ -129,9 +129,7 @@
                  { when writing the pseudo PPU file
                  { when writing the pseudo PPU file
                    to get CRC values the globalsymtable is not yet
                    to get CRC values the globalsymtable is not yet
                    a unitsymtable PM }
                    a unitsymtable PM }
-{$ifndef Dont_use_double_checksum}
                   globalsymtable,
                   globalsymtable,
-{$endif Dont_use_double_checksum}
                   unitsymtable :
                   unitsymtable :
                     begin
                     begin
                       current_ppu^.putbyte(ord(derefunit));
                       current_ppu^.putbyte(ord(derefunit));
@@ -755,7 +753,10 @@
 
 
 {
 {
   $Log$
   $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
    * Notes/hints changes
 
 
   Revision 1.54  1999/11/12 11:03:50  peter
   Revision 1.54  1999/11/12 11:03:50  peter

+ 6 - 3
compiler/symsym.inc

@@ -445,7 +445,7 @@
              currdef:=firstdef;
              currdef:=firstdef;
              lastdef:=definition;
              lastdef:=definition;
              definition:=definition^.nextoverloaded;
              definition:=definition^.nextoverloaded;
-             if lastdef^.mangledname>currdef^.mangledname then
+             if lastdef^.mangledname<firstdef^.mangledname then
                begin
                begin
                  lastdef^.nextoverloaded:=firstdef;
                  lastdef^.nextoverloaded:=firstdef;
                  firstdef:=lastdef;
                  firstdef:=lastdef;
@@ -453,7 +453,7 @@
              else
              else
                begin
                begin
                  while assigned(currdef^.nextoverloaded) and
                  while assigned(currdef^.nextoverloaded) and
-                    (currdef^.mangledname>lastdef^.mangledname) do
+                    (lastdef^.mangledname>currdef^.nextoverloaded^.mangledname) do
                    currdef:=currdef^.nextoverloaded;
                    currdef:=currdef^.nextoverloaded;
                  lastdef^.nextoverloaded:=currdef^.nextoverloaded;
                  lastdef^.nextoverloaded:=currdef^.nextoverloaded;
                  currdef^.nextoverloaded:=lastdef;
                  currdef^.nextoverloaded:=lastdef;
@@ -2192,7 +2192,10 @@
 
 
 {
 {
   $Log$
   $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)
     + cond FPC_USE_CPREFIX (needs also some RTL changes)
       this allows to use unit global vars as DLL exports
       this allows to use unit global vars as DLL exports
       (the underline prefix seems needed by dlltool)
       (the underline prefix seems needed by dlltool)