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

* new debug options added

Browse Source
This commit is contained in:
pierre 2002-09-09 06:59:16 +00:00
parent 1452e40fd0
commit d5dd0e0c66
1 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ide/fp.pas
View File

@ -81,6 +81,22 @@ Const
);
{$endif fpc}
{$ifdef DEBUG}
const
CloseImmediately : boolean = false;
var
StartTime : real;
function getrealtime : real;
var
h,m,s,s100 : word;
begin
gettime(h,m,s,s100);
getrealtime:=h*3600.0+m*60.0+s+s100/100.0;
end;
{$endif DEBUG}
procedure ProcessParams(BeforeINI: boolean);
function IsSwitch(const Param: string): boolean;
@ -154,6 +170,10 @@ begin
{$endif Unix}
{ 'M' : TryToMaximizeScreen:=true;}
{$endif fpc}
{$ifdef DEBUG}
'Z' : UseFastBufStreamMethod:=true;
'X' : CloseImmediately:=true;
{$endif DEBUG}
end;
end
else
@ -270,6 +290,10 @@ BEGIN
ProcessParams(true);
{$ifdef DEBUG}
StartTime:=getrealtime;
{$endif DEBUG}
InitDirs;
RegisterIDEObjects;
@ -338,7 +362,12 @@ BEGIN
UserWantsToGoOn:=false;
if SetJmpRes=0 then
IDEApp.Run
begin
{$ifdef DEBUG}
if not CloseImmediately then
{$endif DEBUG}
IDEApp.Run;
end
else
begin
if (SetJmpRes=1) and ExitIntercepted then
@ -434,10 +463,17 @@ BEGIN
Keyboard.RestoreStartMode;
{$endif unix}
StreamError:=nil;
{$ifdef DEBUG}
if CloseImmediately then
writeln('Used time is ',getrealtime-StartTime:0:2);
{$endif DEBUG}
END.
{
$Log$
Revision 1.11 2002-09-07 15:40:41 peter
Revision 1.12 2002-09-09 06:59:16 pierre
* new debug options added
Revision 1.11 2002/09/07 15:40:41 peter
* old logs removed and tabs fixed
Revision 1.10 2002/09/04 14:07:12 pierre