pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Set package version numbers to 1.0.5 for upcoming OPM release. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6969 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-29 16:06:12 +00:00
parent 4e22eb8649
commit 5296af1508
82 changed files with 366 additions and 366 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/jvcllaz/run/JvCmp/jvprofilerform.pas
View File

@ -130,6 +130,7 @@ const
DefHeader2 =
'Profiler 32 - (C) 1996 Certified Software Corp, portions Copyright (C) 1997 by Peter Th�rnqvist; all rights reserved.';
{
type
PProfType = ^TProfType;
TProfType = record
@ -144,6 +145,7 @@ type
CallerID: Integer;
EntryTime: Integer;
end;
}
function GetUserName: String;
// http://forum.lazarus.freepascal.org/index.php/topic,23171.msg138057.html#msg138057
@ -262,7 +264,7 @@ var
begin
if FEnabled then
begin
Snap := GetTickCount;
Snap := GetTickCount64;
if FStackSize > MaxStackSize then
raise EJVCLException.CreateResFmt(@RsEMaxStackSizeExceededd, [MaxStackSize]);
Inc(FStackSize);
@ -297,7 +299,7 @@ var
begin
if Enabled then
begin
Snap := GetTickCount;
Snap := GetTickCount64;
with FProfileInfo[ID] do
begin
Elapsed := Snap - InOutTime;
@ -329,7 +331,7 @@ begin
begin
// Initialize;
DoStart;
FStartTime := GetTickCount;
FStartTime := GetTickCount64;
FStarted := True;
end;
end;
@ -338,7 +340,7 @@ procedure TJvProfiler.Stop;
begin
if FEnabled and FStarted then
begin
FEndTime := GetTickCount;
FEndTime := GetTickCount64;
DoStop;
FStarted := False;
end;