mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-11 17:30:29 +02:00
- removed unused variables
This commit is contained in:
parent
b59e60b295
commit
6578fb25bb
@ -1827,8 +1827,6 @@ end;
|
||||
|
||||
function Tdictionary.search(const s:string):TNamedIndexItem;
|
||||
|
||||
var t:string;
|
||||
|
||||
begin
|
||||
search:=speedsearch(s,getspeedvalue(s));
|
||||
end;
|
||||
@ -2366,7 +2364,10 @@ end;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.43 2005-03-04 16:49:22 peter
|
||||
Revision 1.44 2005-03-25 23:03:04 jonas
|
||||
- removed unused variables
|
||||
|
||||
Revision 1.43 2005/03/04 16:49:22 peter
|
||||
* getheapstatus fixes
|
||||
|
||||
Revision 1.42 2005/02/28 15:38:38 marco
|
||||
|
@ -465,8 +465,6 @@ implementation
|
||||
|
||||
|
||||
function nodeppuidxget(i:longint):tnode;
|
||||
var
|
||||
l : longint;
|
||||
begin
|
||||
if i<0 then
|
||||
internalerror(200311072);
|
||||
@ -1128,7 +1126,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.97 2005-03-05 16:17:30 jonas
|
||||
Revision 1.98 2005-03-25 23:03:04 jonas
|
||||
- removed unused variables
|
||||
|
||||
Revision 1.97 2005/03/05 16:17:30 jonas
|
||||
* fixed printnodelist indentation
|
||||
|
||||
Revision 1.96 2005/02/14 17:13:06 peter
|
||||
|
Loading…
Reference in New Issue
Block a user