* updated

utils/ppu.pas

@@ -30,7 +30,7 @@ interface
 var
   CRCFile : text;
 const
-  CRC_array_Size = 20000;
+  CRC_array_Size = 200000;
 type
   tcrc_array = array[0..crc_array_size] of longint;
   pcrc_array = ^tcrc_array;
@@ -313,7 +313,7 @@ begin
   if Crc32Tbl[1]=0 then
    MakeCrc32Tbl;
   p:=@InBuf;
-  for i:=1to InLen do
+  for i:=1 to InLen do
    begin
      InitCrc:=Crc32Tbl[byte(InitCrc) xor byte(p^)] xor (InitCrc shr 8);
      inc(longint(p));
@@ -369,8 +369,6 @@ end;
 
 
 procedure tppufile.close;
-var
-  i : word;
 begin
   if Mode<>0 then
    begin
@@ -378,7 +376,7 @@ begin
      {$I-}
       system.close(f);
      {$I+}
-     i:=ioresult;
+     if ioresult<>0 then;
      Mode:=0;
      closed:=true;
    end;
@@ -395,7 +393,6 @@ function tppufile.GetPPUVersion:longint;
 var
   l    : longint;
   code : integer;
-
 begin
   Val(header.ver[1]+header.ver[2]+header.ver[3],l,code);
   if code=0 then
@@ -437,7 +434,6 @@ var
 {$else delphi}
   i      : word;
 {$endif delphi}
-
 begin
   open:=false;
   assign(f,fname);
@@ -910,8 +906,8 @@ end;
 
 procedure tppufile.putbyte(b:byte);
 begin
-  writedata(b,1);
-  inc(entryidx);
+  putdata(b,1);
+{  inc(entryidx);}
 end;
 
 
@@ -958,8 +954,6 @@ end;
 
 
     procedure tppufile.tempclose;
-      var
-        i : word;
       begin
         if not closed then
          begin
@@ -967,7 +961,7 @@ end;
            {$I-}
             system.close(f);
            {$I+}
-           i:=ioresult;
+           if ioresult<>0 then;
            closed:=true;
            tempclosed:=true;
          end;
@@ -1000,9 +994,25 @@ end;
 end.
 {
   $Log$
-  Revision 1.6  1999-09-17 09:20:26  peter
+  Revision 1.7  1999-11-23 09:44:15  peter
     * updated
 
+  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
+
+  Revision 1.48  1999/11/17 17:05:02  pierre
+   * Notes/hints changes
+
+  Revision 1.47  1999/11/06 14:34:23  peter
+    * truncated log to 20 revs
+
+  Revision 1.46  1999/09/17 09:14:56  peter
+    * ppu header writting now uses currentppuversion
+
   Revision 1.45  1999/09/16 13:27:08  pierre
     + error if PPU modulename is different from what is searched
       (8+3 limitations!)
@@ -1071,131 +1081,4 @@ end.
   Revision 1.27  1999/04/17 13:16:20  peter
     * fixes for storenumber
 
-  Revision 1.26  1999/04/07 15:39:31  pierre
-    + double_checksum code added
-
-  Revision 1.25  1999/03/02 13:49:18  peter
-    * renamed loadunit_int -> loadunit
-
-  Revision 1.24  1999/02/22 13:07:00  pierre
-    + -b and -bl options work !
-    + cs_local_browser ($L+) is disabled if cs_browser ($Y+)
-      is not enabled when quitting global section
-    * local vars and procedures are not yet stored into PPU
-
-  Revision 1.23  1999/02/16 00:48:24  peter
-    * save in the ppu if linked with obj file instead of using the
-      library flag, so the .inc files are also checked
-
-  Revision 1.22  1999/02/05 08:54:29  pierre
-    + linkofiles splitted inot linkofiles and linkunitfiles
-      because linkofiles must be stored with directory
-      to enabled linking of different objects with same name
-      in a different directory
-
-  Revision 1.21  1998/12/30 22:15:50  peter
-    + farpointer type
-    * absolutesym now also stores if its far
-
-  Revision 1.20  1998/11/30 16:34:45  pierre
-    * corrected problems with rangecheck
-    + added needed code for no rangecheck  in CRC32 functions in ppu unit
-    * enumdef lso need its rangenr reset to zero
-      when calling reset_global_defs
-
-  Revision 1.19  1998/11/16 15:41:42  peter
-    * tp7 didn't like my ifopt H+ :(
-
-  Revision 1.18  1998/11/16 12:18:03  peter
-    * H+ fixes
-
-  Revision 1.17  1998/10/14 10:45:08  pierre
-    * ppu problems for m68k fixed (at least in cross compiling)
-    * one last memory leak for sysamiga fixed
-    * the amiga RTL compiles now completely !!
-
-  Revision 1.16  1998/09/24 23:49:14  peter
-    + aktmodeswitches
-
-  Revision 1.15  1998/09/23 15:39:10  pierre
-    * browser bugfixes
-      was adding a reference when looking for the symbol
-      if -bSYM_NAME was used
-
-  Revision 1.14  1998/09/21 10:00:07  peter
-    * store number of defs in ppu file
-
-  Revision 1.13  1998/09/21 08:45:18  pierre
-    + added vmt_offset in tobjectdef.write for fututre use
-      (first steps to have objects without vmt if no virtual !!)
-    + added fpu_used field for tabstractprocdef  :
-      sets this level to 2 if the functions return with value in FPU
-      (is then set to correct value at parsing of implementation)
-      THIS MIGHT refuse some code with FPU expression too complex
-      that were accepted before and even in some cases
-      that don't overflow in fact
-      ( like if f : float; is a forward that finally in implementation
-       only uses one fpu register !!)
-      Nevertheless I think that it will improve security on
-      FPU operations !!
-    * most other changes only for UseBrowser code
-      (added symtable references for record and objects)
-      local switch for refs to args and local of each function
-      (static symtable still missing)
-      UseBrowser still not stable and probably broken by
-      the definition hash array !!
-
-  Revision 1.12  1998/09/18 08:01:37  pierre
-    + improvement on the usebrowser part
-      (does not work correctly for now)
-
-  Revision 1.11  1998/09/11 15:16:47  peter
-    * merge fixes
-
-  Revision 1.10.2.1  1998/09/11 15:15:04  peter
-    * fixed not in [] bug
-
-  Revision 1.10  1998/08/31 12:26:30  peter
-    * m68k and palmos updates from surebugfixes
-
-  Revision 1.9  1998/08/17 09:17:51  peter
-    * static/shared linking updates
-
-  Revision 1.8  1998/08/11 15:31:40  peter
-    * write extended to ppu file
-    * new version 0.99.7
-
-  Revision 1.7  1998/06/25 10:51:01  pierre
-    * removed a remaining ifndef NEWPPU
-      replaced by ifdef OLDPPU
-    * added uf_finalize to ppu unit
-
-  Revision 1.6  1998/06/16 08:56:26  peter
-    + targetcpu
-    * cleaner pmodules for newppu
-
-  Revision 1.5  1998/06/13 00:10:12  peter
-    * working browser and newppu
-    * some small fixes against crashes which occured in bp7 (but not in
-      fpc?!)
-
-  Revision 1.4  1998/06/09 16:01:48  pierre
-    + added procedure directive parsing for procvars
-      (accepted are popstack cdecl and pascal)
-    + added C vars with the following syntax
-      var C calias 'true_c_name';(can be followed by external)
-      reason is that you must add the Cprefix
-
-      which is target dependent
-
-  Revision 1.3  1998/05/28 14:40:26  peter
-    * fixes for newppu, remake3 works now with it
-
-  Revision 1.2  1998/05/27 19:45:08  peter
-    * symtable.pas splitted into includefiles
-    * symtable adapted for $ifdef NEWPPU
-
-  Revision 1.1  1998/05/12 10:56:07  peter
-    + the ppufile object unit
-
 }

utils/ppumove.pp

@@ -19,8 +19,8 @@
     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
  ****************************************************************************}
-{$ifdef TP}
-  {$N+,E+}
+{$ifndef TP}
+  {$H+}
 {$endif}
 Program ppumove;
 uses
@@ -582,7 +582,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.5  1999-07-29 01:40:21  peter
+  Revision 1.6  1999-11-23 09:44:15  peter
+    * updated
+
+  Revision 1.5  1999/07/29 01:40:21  peter
     * fsplit var type fixes
 
   Revision 1.4  1999/07/28 16:53:58  peter