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

* use sysutils instead of dos

Browse Source 
git-svn-id: trunk@7342 -
This commit is contained in:
peter 2007-05-15 07:18:55 +00:00
parent aa72495049
commit bf7275576c
1 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/utils/ppudump.pp
View File

@ -18,20 +18,21 @@
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
****************************************************************************}
{$ifdef TP}
{$N+,E+}
{$endif}
program pppdump;
program ppudump;
{$mode objfpc}
{$H+}
uses
dos,
SysUtils,
ppu,
globals,
tokens;
const
Version = 'Version 2.1.1';
Version = 'Version 2.2.0';
Title = 'PPU-Analyser';
Copyright = 'Copyright (c) 1998-2006 by the Free Pascal Development Team';
Copyright = 'Copyright (c) 1998-2007 by the Free Pascal Development Team';
{ verbosity }
v_none = $0;
@ -293,7 +294,7 @@ end;
const
HexTbl : array[0..15] of char='0123456789ABCDEF';
function HexB(b:byte):string;
function HexB(b:byte):shortstring;
begin
HexB[0]:=#2;
HexB[1]:=HexTbl[b shr 4];
@ -301,7 +302,7 @@ begin
end;
function hexstr(val : cardinal;cnt : byte) : string;
function hexstr(val : cardinal;cnt : byte) : shortstring;
const
HexTbl : array[0..15] of char='0123456789ABCDEF';
var
@ -336,15 +337,20 @@ end;
convert dos datetime t to a string YY/MM/DD HH:MM:SS
}
var
DT : DateTime;
DT : TDateTime;
hsec : word;
Year,Month,Day: Word;
hour,min,sec : word;
begin
if t=-1 then
begin
FileTimeString:='Not Found';
Result := 'Not Found';
exit;
end;
unpacktime(t,DT);
filetimestring:=L0(dt.Year)+'/'+L0(dt.Month)+'/'+L0(dt.Day)+' '+L0(dt.Hour)+':'+L0(dt.min)+':'+L0(dt.sec);
DT := FileDateToDateTime(t);
DecodeTime(DT,hour,min,sec,hsec);
DecodeDate(DT,year,month,day);
Result := L0(Year)+'/'+L0(Month)+'/'+L0(Day)+' '+L0(Hour)+':'+L0(min)+':'+L0(sec);
end;