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

LCL: clean up

Browse Source 
git-svn-id: trunk@28400 -
This commit is contained in:
mattias 2010-11-22 10:33:14 +00:00
parent 2fe6c4896e
commit d4249c0b3a
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
converter/convertdelphi.pas
View File

@ -66,6 +66,7 @@ type
fConverter: TConvertDelphiPBase;
fPath: string;
// These 2 are references to the TConvertDelphiPBase variables.
// MG: No, they are not, I will delete them eventually ...
fCachedUnitNames: TStringToStringTree;
fCachedRealFileNames: TStringToStringTree;
protected

2
debugger/debugutils.pp
View File

@ -187,7 +187,6 @@ function UnEscapeOctal(const AValue: String): String;
var
c, cnt, len: Integer;
Src, Dst: PChar;
Oct: PChar;
begin
len := Length(AValue);
if len = 0 then Exit('');
@ -205,7 +204,6 @@ begin
dec(cnt);
if Src^ <> '\'
then begin
Oct := Src;
c := 0;
while (Src^ in ['0'..'7']) and (cnt > 0)
do begin