paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-24 15:09:49 +01: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; uses ppu;
const const
Version = 'Version 0.99.11'; Version = 'Version 0.99.12';
Title = 'PPU-Analyser'; Title = 'PPU-Analyser';
Copyright = 'Copyright (c) 1995-99 by the Free Pascal Development Team'; Copyright = 'Copyright (c) 1995-99 by the Free Pascal Development Team';
@ -1181,7 +1181,10 @@ begin
end. end.
{ {
$Log$ $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 * new deref
Revision 1.1 1999/05/12 16:11:39 peter Revision 1.1 1999/05/12 16:11:39 peter

13
utils/ppumove.pp
View File

@ -33,9 +33,9 @@ uses
getopts; getopts;
const const
Version = 'Version 0.99.7'; Version = 'Version 0.99.12';
Title = 'PPU-Mover'; 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'; ShortOpts = 'o:e:d:qhsvbw';
BufSize = 4096; BufSize = 4096;
@ -280,7 +280,7 @@ begin
if IsStaticLinked then if IsStaticLinked then
untilb:=iblinkstaticlibs untilb:=iblinkstaticlibs
else else
untilb:=iblinkofiles; untilb:=iblinkunitfiles;
repeat repeat
b:=inppu^.readentry; b:=inppu^.readentry;
if b in [ibendinterface,ibend] then 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, { we have now reached the section for the files which need to be added,
now add them to the list } now add them to the list }
case b of case b of
iblinkofiles : begin iblinkunitfiles : begin
while not inppu^.endofentry do while not inppu^.endofentry do
AddToLinkFiles(inppu^.getstring); AddToLinkFiles(inppu^.getstring);
end; end;
@ -559,7 +559,10 @@ begin
end. end.
{ {
$Log$ $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 * moved
Revision 1.3 1998/08/17 10:26:30 peter Revision 1.3 1998/08/17 10:26:30 peter