瀏覽代碼

* one more change from FileSize (F) to E.Size, although it's in not yet adapted BEOS section

git-svn-id: trunk@9808 -
Tomas Hajny 17 年之前
父節點
當前提交
51b230d501
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/inc/exeinfo.pp

+ 1 - 1
rtl/inc/exeinfo.pp

@@ -872,7 +872,7 @@ begin
   stabofs:=-1;
   stabofs:=-1;
   stabstrofs:=-1;
   stabstrofs:=-1;
   { read and check header }
   { read and check header }
-  if filesize(f)<sizeof(telf32header) then
+  if E.Size<sizeof(telf32header) then
    exit;
    exit;
   blockread(f,elfheader,sizeof(telf32header));
   blockread(f,elfheader,sizeof(telf32header));
 {$ifdef ENDIAN_LITTLE}
 {$ifdef ENDIAN_LITTLE}