paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 10:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed range check errors (bug #11533)

Browse Source 
git-svn-id: trunk@15545 -
This commit is contained in:
vincents 2008-06-23 15:01:40 +00:00
parent ad5b5a5a70
commit 342cddf066
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/checkcompileropts.pas
View File

@ -237,7 +237,7 @@ var
CurPath: String; CurPath: String;
begin begin
Result:=mrOk; Result:=mrOk;
p:=0; p:=1;
repeat repeat
CurPath:=GetNextDirectoryInSearchPath(ExpandedPath,p); CurPath:=GetNextDirectoryInSearchPath(ExpandedPath,p);
if (CurPath<>'') and (not IDEMacros.StrHasMacros(CurPath)) if (CurPath<>'') and (not IDEMacros.StrHasMacros(CurPath))

2
ide/compileroptionsdlg.pp
View File

@ -1570,7 +1570,7 @@ begin
// check for non existing directories // check for non existing directories
if ord(Level)<=ord(ccomlWarning) then begin if ord(Level)<=ord(ccomlWarning) then begin
p:=0; p:=1;
repeat repeat
//DebugLn(['CheckSearchPath ',ExpandedPath,' ',p,' ',length(ExpandedPath)]); //DebugLn(['CheckSearchPath ',ExpandedPath,' ',p,' ',length(ExpandedPath)]);
CurPath:=GetNextDirectoryInSearchPath(ExpandedPath,p); CurPath:=GetNextDirectoryInSearchPath(ExpandedPath,p);

2
ide/compileroptionsdlg_new.pp
View File

@ -728,7 +728,7 @@ function TfrmCompilerOptionsNew.PutCompilerOptions(
+'Lazarus uses this as normal character and does not expand them as file mask.', +'Lazarus uses this as normal character and does not expand them as file mask.',
mtWarning,[mbOk,mbCancel],0) <> mrOk then exit; mtWarning,[mbOk,mbCancel],0) <> mrOk then exit;
end; end;
p:=0; p:=1;
repeat repeat
//DebugLn(['CheckSearchPath ',ExpandedPath,' ',p,' ',length(ExpandedPath)]); //DebugLn(['CheckSearchPath ',ExpandedPath,' ',p,' ',length(ExpandedPath)]);
CurPath:=GetNextDirectoryInSearchPath(ExpandedPath,p); CurPath:=GetNextDirectoryInSearchPath(ExpandedPath,p);