- removed some unused variables

  * fixed some (harmless) ptrint warnings
  - removed some commented code in agppcmpw
  * added one missing field in a typed constant in cp1251


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@8081 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 3 deletions

diff --git a/compiler/cfileutl.pas b/compiler/cfileutl.pas
index 9288a3b17a..47f980261c 100644
--- a/compiler/cfileutl.pas
+++ b/compiler/cfileutl.pas
@@ -177,9 +177,9 @@ implementation
                 Result:=0;
             end
           else
-            Result:=PtrInt(DirectoryEntries.Find(Lower(AName)))
+            Result:=PtrUInt(DirectoryEntries.Find(Lower(AName)))
         else
-          Result:=PtrInt(DirectoryEntries.Find(AName));
+          Result:=PtrUInt(DirectoryEntries.Find(AName));
       end;
 
 
@@ -367,7 +367,7 @@ implementation
             else
               begin
                 Res.Name:=Res.CachedDir.DirectoryEntries.NameOfIndex(Res.EntryIndex);
-                Res.Attr:=PtrInt(Res.CachedDir.DirectoryEntries[Res.EntryIndex]);
+                Res.Attr:=PtrUInt(Res.CachedDir.DirectoryEntries[Res.EntryIndex]);
               end;
             inc(Res.EntryIndex);
             Result:=true;