paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-12 02:18:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert r33558 #3a71f62ad3. Now GetTickCount returns DWord again so no range check error

Browse Source 
git-svn-id: trunk@33566 -
This commit is contained in:
juha 2011-11-16 13:18:22 +00:00
parent ba4bd03d8d
commit e05d507274
3 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
debugger/cmdlinedebugger.pp
View File

@ -54,7 +54,7 @@ type
FFlushAfterRead: Boolean;// Set if we should flush after finished reading
FPeekOffset: Integer; // Count the number of lines we have peeked
FReadLineTimedOut: Boolean;
function WaitForHandles(const AHandles: array of Integer; var ATimeOut: Int64): Integer; overload;
function WaitForHandles(const AHandles: array of Integer; var ATimeOut: Integer): Integer; overload;
function WaitForHandles(const AHandles: array of Integer): Integer; overload;
protected
procedure DoReadError; virtual;
@ -64,8 +64,8 @@ type
function CreateDebugProcess(const AOptions: String): Boolean; virtual;
procedure Flush; // Flushes output buffer
function GetWaiting: Boolean; override;
function ReadLine(ATimeOut: Int64 = -1): String; overload;
function ReadLine(const APeek: Boolean; ATimeOut: Int64 = -1): String; virtual; overload;
function ReadLine(ATimeOut: Integer = -1): String; overload;
function ReadLine(const APeek: Boolean; ATimeOut: Integer = -1): String; virtual; overload;
procedure SendCmdLn(const ACommand: String); virtual; overload;
procedure SendCmdLn(const ACommand: String; Values: array of const); overload;
procedure SetLineEnds(ALineEnds: TStringDynArray);
@ -103,14 +103,14 @@ uses
TimeOut: Max Time in milli-secs => set to 0 if timeout occured
Returns: BitArray of handles set, 0 when an error occoured
------------------------------------------------------------------------------}
function TCmdLineDebugger.WaitForHandles(const AHandles: array of Integer; var ATimeOut: Int64): Integer;
function TCmdLineDebugger.WaitForHandles(const AHandles: array of Integer; var ATimeOut: Integer): Integer;
{$IFDEF UNIX}
var
n, R, Max, Count: Integer;
TimeOut: Integer;
FDSWait, FDS: TFDSet;
Step: Integer;
t, t2, t3: Int64;
t, t2, t3: DWord;
begin
Result := 0;
Max := 0;
@ -268,7 +268,7 @@ end;
function TCmdLineDebugger.WaitForHandles(const AHandles: array of Integer): Integer; overload;
var
t: Int64;
t: Integer;
begin
t := -1;
Result := WaitForHandles(AHandles, t);
@ -355,12 +355,12 @@ begin
Result := FReading;
end;
function TCmdLineDebugger.ReadLine(ATimeOut: Int64 = -1): String;
function TCmdLineDebugger.ReadLine(ATimeOut: Integer = -1): String;
begin
Result := ReadLine(False, ATimeOut);
end;
function TCmdLineDebugger.ReadLine(const APeek: Boolean; ATimeOut: Int64 = -1): String;
function TCmdLineDebugger.ReadLine(const APeek: Boolean; ATimeOut: Integer = -1): String;
function ReadData(const AStream: TStream; var ABuffer: String): Integer;
var

20
debugger/gdbmidebugger.pp
View File

@ -224,24 +224,24 @@ type
// ExecuteCommand does execute direct. It does not use the queue
function ExecuteCommand(const ACommand: String;
AFlags: TGDBMICommandFlags = [];
ATimeOut: Int64 = -1
ATimeOut: Integer = -1
): Boolean; overload;
function ExecuteCommand(const ACommand: String;
out AResult: TGDBMIExecResult;
AFlags: TGDBMICommandFlags = [];
ATimeOut: Int64 = -1
ATimeOut: Integer = -1
): Boolean; overload;
function ExecuteCommand(const ACommand: String; const AValues: array of const;
AFlags: TGDBMICommandFlags;
ATimeOut: Int64 = -1
ATimeOut: Integer = -1
): Boolean; overload;
function ExecuteCommand(const ACommand: String; const AValues: array of const;
out AResult: TGDBMIExecResult;
AFlags: TGDBMICommandFlags = [];
ATimeOut: Int64 = -1
ATimeOut: Integer = -1
): Boolean; overload;
procedure DoTimeoutFeedback;
function ProcessResult(var AResult: TGDBMIExecResult; ATimeOut: Int64 = -1): Boolean;
function ProcessResult(var AResult: TGDBMIExecResult; ATimeOut: Integer = -1): Boolean;
function ProcessGDBResultText(S: String): String;
function GetStackDepth(MaxDepth: integer): Integer;
function FindStackFrame(FP: TDBGPtr; StartAt, MaxDepth: Integer): Integer;
@ -9651,7 +9651,7 @@ begin
end;
function TGDBMIDebuggerCommand.ExecuteCommand(const ACommand: String;
AFlags: TGDBMICommandFlags = []; ATimeOut: Int64 = -1): Boolean;
AFlags: TGDBMICommandFlags = []; ATimeOut: Integer = -1): Boolean;
var
R: TGDBMIExecResult;
begin
@ -9660,7 +9660,7 @@ end;
function TGDBMIDebuggerCommand.ExecuteCommand(const ACommand: String;
out AResult: TGDBMIExecResult; AFlags: TGDBMICommandFlags = [];
ATimeOut: Int64 = -1): Boolean;
ATimeOut: Integer = -1): Boolean;
function RevorerTimeOut: Boolean;
var
@ -9769,7 +9769,7 @@ end;
function TGDBMIDebuggerCommand.ExecuteCommand(const ACommand: String;
const AValues: array of const; AFlags: TGDBMICommandFlags;
ATimeOut: Int64 = -1): Boolean;
ATimeOut: Integer = -1): Boolean;
var
R: TGDBMIExecResult;
begin
@ -9778,7 +9778,7 @@ end;
function TGDBMIDebuggerCommand.ExecuteCommand(const ACommand: String;
const AValues: array of const; out AResult: TGDBMIExecResult;
AFlags: TGDBMICommandFlags = []; ATimeOut: Int64 = -1): Boolean;
AFlags: TGDBMICommandFlags = []; ATimeOut: Integer = -1): Boolean;
begin
Result := ExecuteCommand(Format(ACommand, AValues), AResult, AFlags, ATimeOut);
end;
@ -9790,7 +9790,7 @@ begin
mtWarning, [mbOK], 0);
end;
function TGDBMIDebuggerCommand.ProcessResult(var AResult: TGDBMIExecResult;ATimeOut: Int64 = -1): Boolean;
function TGDBMIDebuggerCommand.ProcessResult(var AResult: TGDBMIExecResult;ATimeOut: Integer = -1): Boolean;
var
InLogWarning: Boolean;

4
debugger/test/Gdbmi/testdisass.pas
View File

@ -24,7 +24,7 @@ type
protected
FTestCmdLine: String;
procedure SendCmdLn(const ACommand: String); override; overload;
function ReadLine(const APeek: Boolean; ATimeOut: Int64 = - 1): String; override; overload;
function ReadLine(const APeek: Boolean; ATimeOut: Integer = - 1): String; override; overload;
function CreateDebugProcess(const AOptions: String): Boolean; override;
function GetDebugProcessRunning: Boolean; override;
protected
@ -67,7 +67,7 @@ begin
FTestCmdLine := ACommand;
end;
function TTestBrkGDBMIDebugger.ReadLine(const APeek: Boolean; ATimeOut: Int64): String;
function TTestBrkGDBMIDebugger.ReadLine(const APeek: Boolean; ATimeOut: Integer): String;
procedure SkipSpaces(var pos: Integer);
begin
while (pos <= length(FTestCmdLine)) and (FTestCmdLine[pos] = ' ') do inc(pos);