* fixes error introduced in sscanf() when looking for 64 bit unsafe pointer casts

git-svn-id: trunk@1632 -

rtl/objpas/sysutils/sysstr.inc

@@ -2217,7 +2217,7 @@ function sscanf(const s: string; const fmt : string;const Pointers : array of Po
             begin
               if GetInt>0 then
                 begin
-                  pPtrInt(Pointers[i])^:=StrToInt(s1);
+                  pLongint(Pointers[i])^:=StrToInt(s1);
                   inc(Result);
                 end
               else