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

Removed some old files (unused test files?)

Browse Source 
git-svn-id: trunk@44481 -
This commit is contained in:
martin 2014-03-20 21:22:33 +00:00
parent 84b0249673
commit 174b810539
4 changed files with 0 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -3950,8 +3950,6 @@ debugger/test/Gdbmi/testgdbmicontrol.pas svneol=native#text/pascal
debugger/test/Gdbmi/testgdbtype.pas svneol=native#text/pascal
debugger/test/Gdbmi/testinstructionqueue.pas svneol=native#text/pascal
debugger/test/Gdbmi/testwatches.pas svneol=native#text/pascal
debugger/test/examples/testcntr.pp svneol=native#text/pascal
debugger/test/examples/testwait.pp svneol=native#text/pascal
debugger/test/gdb[!!-~]responses/ptype_resp_for_array.txt svneol=native#text/plain
debugger/test/gdb[!!-~]responses/ptype_whatis_for_enum_set.txt.txt svneol=native#text/plain
debugger/test/gdb[!!-~]responses/ptype_whatis_for_object.txt svneol=native#text/plain

2
.gitignore vendored
View File

@ -299,8 +299,6 @@ debugger/*.bak
debugger/fpdebug/*.bak
debugger/fpdebug/units
debugger/test/*.bak
debugger/test/examples/*.bak
debugger/test/examples/units
debugger/test/units
debugger/units
designer/*.bak

30
debugger/test/examples/testcntr.pp
View File

@ -1,30 +0,0 @@
program testcntr;
{$mode objfpc}{$H+}
uses
TestWait,
SysUtils;
var
m, n, x : Cardinal;
w: TWait;
S: String;
begin
m :=0;
x := 0;
w := TWait.Create(2);
while x < 3 do
begin
repeat
S := Format('[%.10d] ', [m]);
Write(S);
Inc(m);
for n := 0 to 79 do
begin
Write('*');
end;
WriteLN;
until m mod 10 = 0;
W.Wait(10);
inc(x);
end;
end.

50
debugger/test/examples/testwait.pp
View File

@ -1,50 +0,0 @@
unit TestWait;
{$mode objfpc}{$H+}
interface
type
TWait = class
private
FTime: TDateTime;
FInt: Integer;
public
constructor Create(const ATime: Integer);
procedure Wait(const ATime: Integer);
end;
implementation
uses
SysUtils;
procedure Wait(const ATime: Integer);
var
time: TDateTime;
begin
time := now;
while (now - time) * SecsPerDay < ATime do;
end;
constructor TWait.Create(const ATime: Integer);
var
n: Integer;
begin
FTime := ATime;
FInt := ATime;
inherited Create;
n := 0;
while n < ATime do Inc(n); //something useles
end;
procedure TWait.Wait(const ATime: Integer);
begin
TestWait.Wait(ATime);
end;
var
n: Integer;
begin
n := 0;
while n < 1001 do Inc(n); //something useles
end.