paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 21:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* version 0.99.12

Browse Source
This commit is contained in:
peter 1999-06-08 22:16:06 +00:00
parent 76cf220e14
commit 6ff239a8e7
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/ppudump.pp
View File

@ -26,7 +26,7 @@ program pppdump;
uses ppu;
const
Version = 'Version 0.99.11';
Version = 'Version 0.99.12';
Title = 'PPU-Analyser';
Copyright = 'Copyright (c) 1995-99 by the Free Pascal Development Team';
@ -1181,7 +1181,10 @@ begin
end.
{
$Log$
Revision 1.2 1999-05-14 17:52:04 peter
Revision 1.3 1999-06-08 22:16:06 peter
* version 0.99.12
Revision 1.2 1999/05/14 17:52:04 peter
* new deref
Revision 1.1 1999/05/12 16:11:39 peter

13
utils/ppumove.pp
View File

@ -33,9 +33,9 @@ uses
getopts;
const
Version = 'Version 0.99.7';
Version = 'Version 0.99.12';
Title = 'PPU-Mover';
Copyright = 'Copyright (c) 1998 by the Free Pascal Development Team';
Copyright = 'Copyright (c) 1998-99 by the Free Pascal Development Team';
ShortOpts = 'o:e:d:qhsvbw';
BufSize = 4096;
@ -280,7 +280,7 @@ begin
if IsStaticLinked then
untilb:=iblinkstaticlibs
else
untilb:=iblinkofiles;
untilb:=iblinkunitfiles;
repeat
b:=inppu^.readentry;
if b in [ibendinterface,ibend] then
@ -302,7 +302,7 @@ begin
{ we have now reached the section for the files which need to be added,
now add them to the list }
case b of
iblinkofiles : begin
iblinkunitfiles : begin
while not inppu^.endofentry do
AddToLinkFiles(inppu^.getstring);
end;
@ -559,7 +559,10 @@ begin
end.
{
$Log$
Revision 1.1 1999-05-12 16:11:39 peter
Revision 1.2 1999-06-08 22:16:07 peter
* version 0.99.12
Revision 1.1 1999/05/12 16:11:39 peter
* moved
Revision 1.3 1998/08/17 10:26:30 peter