"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "tsc.pas" between
peazip-7.7.0.src.zip and peazip-7.7.1.src.zip

About: PeaZip is an OS-portable graphical file archiver, acting as frontend for various open source archiving utilities (incl. its native Pea archive format).

tsc.pas  (peazip-7.7.0.src):tsc.pas  (peazip-7.7.1.src)
skipping to change at line 47 skipping to change at line 47
0.35 28.03.08 we _ReadCounter via sysutils.time on non-Windows 32 bit systems 0.35 28.03.08 we _ReadCounter via sysutils.time on non-Windows 32 bit systems
0.36 15.01.12 we _RDTSC for BIT64, assumes cpuid and rdtsc availa ble 0.36 15.01.12 we _RDTSC for BIT64, assumes cpuid and rdtsc availa ble
0.37 19.01.12 we _ReadCounter for BIT64 0.37 19.01.12 we _ReadCounter for BIT64
0.38 18.03.12 we BIT64: _RDTSC uses new assembler function TSC64 0.38 18.03.12 we BIT64: _RDTSC uses new assembler function TSC64
0.39 17.12.12 we D17 adjustment 0.39 17.12.12 we D17 adjustment
0.40 20.03.13 we FPC64: {$asmmode intel} for function TSC64 0.40 20.03.13 we FPC64: {$asmmode intel} for function TSC64
0.41 28.09.13 we BASM16: _CheckCPUID, _CheckRDTSC, _RDTSC 0.41 28.09.13 we BASM16: _CheckCPUID, _CheckRDTSC, _RDTSC
0.42 17.03.17 we Simple routines for FPC/CPUARM 0.42 17.03.17 we Simple routines for FPC/CPUARM
0.43 30.03.17 we FPC/CPUARM uses fpgettimeofday 0.43 30.03.17 we FPC/CPUARM uses fpgettimeofday
0.44 11.11.17 we Use time for FPC/WINCE 0.44 11.11.17 we Use time for FPC/WINCE
0.45 17.01.21 gt CPUAARCH64 disable Intel ASM
**************************************************************************) **************************************************************************)
(*------------------------------------------------------------------------- (*-------------------------------------------------------------------------
(C) Copyright 2002-2017 Wolfgang Ehrhardt (C) Copyright 2002-2017 Wolfgang Ehrhardt
This software is provided 'as-is', without any express or implied warranty. This software is provided 'as-is', without any express or implied warranty.
In no event will the authors be held liable for any damages arising from In no event will the authors be held liable for any damages arising from
the use of this software. the use of this software.
Permission is granted to anyone to use this software for any purpose, Permission is granted to anyone to use this software for any purpose,
skipping to change at line 93 skipping to change at line 94
{-Read TSC if present, else GetTickCount/SysTick/milliseconds since midnight} {-Read TSC if present, else GetTickCount/SysTick/milliseconds since midnight}
function _CheckCPUID: boolean; function _CheckCPUID: boolean;
{-check if CPUID supported} {-check if CPUID supported}
function _CheckRDTSC: boolean; function _CheckRDTSC: boolean;
{-check if RDTSC supported, check CPUID first!!} {-check if RDTSC supported, check CPUID first!!}
implementation implementation
{$ifdef CPUARM} {$if defined(CPUARM) or defined(CPUAARCH64)}
{$ifdef WINCE} {$ifdef WINCE}
uses uses
sysutils; sysutils;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
procedure _ReadTSC(var Ctr: TCtrRec); procedure _ReadTSC(var Ctr: TCtrRec);
{-Read Time Stamp Counter} {-Read Time Stamp Counter}
begin begin
 End of changes. 2 change blocks. 
1 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)