paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 18:49:19 +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; fConverter: TConvertDelphiPBase;
fPath: string; fPath: string;
// These 2 are references to the TConvertDelphiPBase variables. // These 2 are references to the TConvertDelphiPBase variables.
// MG: No, they are not, I will delete them eventually ...
fCachedUnitNames: TStringToStringTree; fCachedUnitNames: TStringToStringTree;
fCachedRealFileNames: TStringToStringTree; fCachedRealFileNames: TStringToStringTree;
protected protected

2
debugger/debugutils.pp
View File

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