paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 03:57:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less hints

Browse Source 
git-svn-id: trunk@43929 -
This commit is contained in:
mattias 2014-02-07 09:34:12 +00:00
parent b3f230074f
commit 5dcb924a55
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/compiler.pp
View File

@ -1221,7 +1221,7 @@ begin
end
else
if not fRootOptGroup.SelectOption(s) then
fInvalidOptions.AddObject(s, TObject(Pointer(i)));
fInvalidOptions.AddObject(s, TObject(Pointer(PtrUInt(i))));
Inc(fCurOrigLine);
end;
end;
@ -1244,7 +1244,7 @@ begin
begin // TCompilerOptSet
s := TCompilerOptSet(aRoot).CollectSelectedOptions(fUseComments);
if s <> '' then
fGenStrings.AddObject(s, TObject(Pointer(aRoot.fOrigLine)));
fGenStrings.AddObject(s, TObject(Pointer(PtrUInt(aRoot.fOrigLine))));
end
else begin // TCompilerOptGroup
for i := 0 to Children.Count-1 do
@ -1253,7 +1253,7 @@ begin
end
else if aRoot.Value <> '' then // TCompilerOpt
fGenStrings.AddObject(aRoot.GenerateOptValue(fUseComments),
TObject(Pointer(aRoot.fOrigLine)));
TObject(Pointer(PtrUINt(aRoot.fOrigLine))));
end;
function TCompilerOptReader.FindLowestOrigLine(aStrings: TStrings;
@ -1268,7 +1268,7 @@ begin
MinOrigLine := MaxInt;
for i := 0 to aStrings.Count-1 do
begin
OriLine := Integer(Pointer(aStrings.Objects[i]));
OriLine := Integer(PtrUInt(Pointer(aStrings.Objects[i])));
if (OriLine > -1) and (OriLine < MinOrigLine) then
begin
MinOrigLine := OriLine;