mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 12:09:11 +02:00
* updated
This commit is contained in:
peter
parent
7859c176a3
commit
5e6ce51fac
163
utils/ppu.pas
163
utils/ppu.pas
@ -30,7 +30,7 @@ interface
|
|||||||
var
|
var
|
||||||
CRCFile : text;
|
CRCFile : text;
|
||||||
const
|
const
|
||||||
CRC_array_Size = 20000;
|
CRC_array_Size = 200000;
|
||||||
type
|
type
|
||||||
tcrc_array = array[0..crc_array_size] of longint;
|
tcrc_array = array[0..crc_array_size] of longint;
|
||||||
pcrc_array = ^tcrc_array;
|
pcrc_array = ^tcrc_array;
|
||||||
@ -313,7 +313,7 @@ begin
|
|||||||
if Crc32Tbl[1]=0 then
|
if Crc32Tbl[1]=0 then
|
||||||
MakeCrc32Tbl;
|
MakeCrc32Tbl;
|
||||||
p:=@InBuf;
|
p:=@InBuf;
|
||||||
for i:=1to InLen do
|
for i:=1 to InLen do
|
||||||
begin
|
begin
|
||||||
InitCrc:=Crc32Tbl[byte(InitCrc) xor byte(p^)] xor (InitCrc shr 8);
|
InitCrc:=Crc32Tbl[byte(InitCrc) xor byte(p^)] xor (InitCrc shr 8);
|
||||||
inc(longint(p));
|
inc(longint(p));
|
||||||
@ -369,8 +369,6 @@ end;
|
|||||||
|
|
||||||
|
|
||||||
procedure tppufile.close;
|
procedure tppufile.close;
|
||||||
var
|
|
||||||
i : word;
|
|
||||||
begin
|
begin
|
||||||
if Mode<>0 then
|
if Mode<>0 then
|
||||||
begin
|
begin
|
||||||
@ -378,7 +376,7 @@ begin
|
|||||||
{$I-}
|
{$I-}
|
||||||
system.close(f);
|
system.close(f);
|
||||||
{$I+}
|
{$I+}
|
||||||
i:=ioresult;
|
if ioresult<>0 then;
|
||||||
Mode:=0;
|
Mode:=0;
|
||||||
closed:=true;
|
closed:=true;
|
||||||
end;
|
end;
|
||||||
@ -395,7 +393,6 @@ function tppufile.GetPPUVersion:longint;
|
|||||||
var
|
var
|
||||||
l : longint;
|
l : longint;
|
||||||
code : integer;
|
code : integer;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
Val(header.ver[1]+header.ver[2]+header.ver[3],l,code);
|
Val(header.ver[1]+header.ver[2]+header.ver[3],l,code);
|
||||||
if code=0 then
|
if code=0 then
|
||||||
@ -437,7 +434,6 @@ var
|
|||||||
{$else delphi}
|
{$else delphi}
|
||||||
i : word;
|
i : word;
|
||||||
{$endif delphi}
|
{$endif delphi}
|
||||||
|
|
||||||
begin
|
begin
|
||||||
open:=false;
|
open:=false;
|
||||||
assign(f,fname);
|
assign(f,fname);
|
||||||
@ -910,8 +906,8 @@ end;
|
|||||||
|
|
||||||
procedure tppufile.putbyte(b:byte);
|
procedure tppufile.putbyte(b:byte);
|
||||||
begin
|
begin
|
||||||
writedata(b,1);
|
putdata(b,1);
|
||||||
inc(entryidx);
|
{ inc(entryidx);}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
@ -958,8 +954,6 @@ end;
|
|||||||
|
|
||||||
|
|
||||||
procedure tppufile.tempclose;
|
procedure tppufile.tempclose;
|
||||||
var
|
|
||||||
i : word;
|
|
||||||
begin
|
begin
|
||||||
if not closed then
|
if not closed then
|
||||||
begin
|
begin
|
||||||
@ -967,7 +961,7 @@ end;
|
|||||||
{$I-}
|
{$I-}
|
||||||
system.close(f);
|
system.close(f);
|
||||||
{$I+}
|
{$I+}
|
||||||
i:=ioresult;
|
if ioresult<>0 then;
|
||||||
closed:=true;
|
closed:=true;
|
||||||
tempclosed:=true;
|
tempclosed:=true;
|
||||||
end;
|
end;
|
||||||
@ -1000,9 +994,25 @@ end;
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.6 1999-09-17 09:20:26 peter
|
Revision 1.7 1999-11-23 09:44:15 peter
|
||||||
* updated
|
* 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
|
Revision 1.45 1999/09/16 13:27:08 pierre
|
||||||
+ error if PPU modulename is different from what is searched
|
+ error if PPU modulename is different from what is searched
|
||||||
(8+3 limitations!)
|
(8+3 limitations!)
|
||||||
@ -1071,131 +1081,4 @@ end.
|
|||||||
Revision 1.27 1999/04/17 13:16:20 peter
|
Revision 1.27 1999/04/17 13:16:20 peter
|
||||||
* fixes for storenumber
|
* 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
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@ -19,8 +19,8 @@
|
|||||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||||
|
|
||||||
****************************************************************************}
|
****************************************************************************}
|
||||||
{$ifdef TP}
|
{$ifndef TP}
|
||||||
{$N+,E+}
|
{$H+}
|
||||||
{$endif}
|
{$endif}
|
||||||
Program ppumove;
|
Program ppumove;
|
||||||
uses
|
uses
|
||||||
@ -582,7 +582,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$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
|
* fsplit var type fixes
|
||||||
|
|
||||||
Revision 1.4 1999/07/28 16:53:58 peter
|
Revision 1.4 1999/07/28 16:53:58 peter
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user