paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 02:26:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* updated

Browse Source
This commit is contained in:
peter 1999-09-17 09:20:26 +00:00
parent 1512794c0f
commit 60486d2f83
1 changed files with 35 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
utils/ppu.pas
View File

@ -38,9 +38,17 @@ type
const const
{$ifdef newcg} {$ifdef newcg}
{$ifdef ORDERSOURCES}
CurrentPPUVersion=101;
{$else ORDERSOURCES}
CurrentPPUVersion=100; CurrentPPUVersion=100;
{$endif ORDERSOURCES}
{$else newcg} {$else newcg}
{$ifdef ORDERSOURCES}
CurrentPPUVersion=18;
{$else ORDERSOURCES}
CurrentPPUVersion=17; CurrentPPUVersion=17;
{$endif ORDERSOURCES}
{$endif newcg} {$endif newcg}
{ buffer sizes } { buffer sizes }
@ -348,7 +356,8 @@ end;
destructor tppufile.done; destructor tppufile.done;
begin begin
close; close;
freemem(buf,ppubufsize); if assigned(buf) then
freemem(buf,ppubufsize);
end; end;
@ -397,16 +406,21 @@ end;
procedure tppufile.NewHeader; procedure tppufile.NewHeader;
var
s : string;
begin begin
fillchar(header,sizeof(tppuheader),0); fillchar(header,sizeof(tppuheader),0);
str(currentppuversion,s);
while length(s)<3 do
s:='0'+s;
with header do with header do
begin begin
Id[1]:='P'; Id[1]:='P';
Id[2]:='P'; Id[2]:='P';
Id[3]:='U'; Id[3]:='U';
Ver[1]:='0'; Ver[1]:=s[1];
Ver[2]:='1'; Ver[2]:=s[2];
Ver[3]:='7'; Ver[3]:=s[3];
end; end;
end; end;
@ -977,7 +991,7 @@ end;
exit; exit;
closed:=false; closed:=false;
tempclosed:=false; tempclosed:=false;
{ restore state } { restore state }
seek(f,closepos); seek(f,closepos);
tempopen:=true; tempopen:=true;
@ -986,11 +1000,24 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.5 1999-08-31 16:06:47 pierre Revision 1.6 1999-09-17 09:20:26 peter
updated to v1.42 of compiler unit * updated
Revision 1.45 1999/09/16 13:27:08 pierre
+ error if PPU modulename is different from what is searched
(8+3 limitations!)
+ cond ORDERSOURCES to allow recompilation of FP
if symppu.inc is changed (need PPUversion change!)
Revision 1.44 1999/09/16 11:34:58 pierre
* typo correction
Revision 1.43 1999/09/10 18:48:09 florian
* some bug fixes (e.g. must_be_valid and procinfo.funcret_is_valid)
* most things for stored properties fixed
Revision 1.42 1999/08/31 15:47:56 pierre Revision 1.42 1999/08/31 15:47:56 pierre
+ startup conditionnals stored in PPU file for debug info + startup conditionals stored in PPU file for debug info
Revision 1.41 1999/08/30 16:21:40 pierre Revision 1.41 1999/08/30 16:21:40 pierre
* tempclosing of ppufiles under dos was wrong * tempclosing of ppufiles under dos was wrong
@ -1006,9 +1033,6 @@ end.
Revision 1.38 1999/08/15 10:47:48 peter Revision 1.38 1999/08/15 10:47:48 peter
+ normalset,smallset writing + normalset,smallset writing
Revision 1.4 1999/08/15 10:47:12 peter
* updates for new options
Revision 1.37 1999/08/02 23:13:20 florian Revision 1.37 1999/08/02 23:13:20 florian
* more changes to compile for the Alpha * more changes to compile for the Alpha