Use pdword to avoid range check erro in tentryfile.getdword method

git-svn-id: trunk@40103 -

compiler/entfile.pas

@@ -668,7 +668,7 @@ begin
    end;
   if bufsize-bufidx>=sizeof(dword) then
     begin
-      result:=Unaligned(plongint(@buf[bufidx])^);
+      result:=Unaligned(pdword(@buf[bufidx])^);
       inc(bufidx,sizeof(longint));
     end
   else