瀏覽代碼

* fix 64-bit issue in jwawinnt

git-svn-id: trunk@30184 -
marco 10 年之前
父節點
當前提交
f6d72af6a3
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/winunits-jedi/src/jwawinnt.pas

+ 1 - 1
packages/winunits-jedi/src/jwawinnt.pas

@@ -9155,7 +9155,7 @@ end;
 
 function IMAGE_FIRST_SECTION(NtHeader: PImageNtHeaders): PImageSectionHeader;
 begin
-  Result := PImageSectionHeader(Cardinal(NtHeader) +
+  Result := PImageSectionHeader(ptruint(NtHeader) +
       FieldOffset(NtHeader^, NtHeader^.OptionalHeader) +
       NtHeader^.FileHeader.SizeOfOptionalHeader);
 end;