浏览代码

* win64 compilation fix

git-svn-id: trunk@9812 -
florian 17 年之前
父节点
当前提交
f7a891248a
共有 1 个文件被更改,包括 9 次插入0 次删除
  1. 9 0
      rtl/inc/exeinfo.pp

+ 9 - 0
rtl/inc/exeinfo.pp

@@ -512,6 +512,15 @@ type
     lineno2  : word;
     lineno2  : word;
     flags    : longint;
     flags    : longint;
   end;
   end;
+  coffsymbol=packed record
+    name    : array[0..3] of char; { real is [0..7], which overlaps the strofs ! }
+    strofs  : longint;
+    value   : longint;
+    section : smallint;
+    empty   : word;
+    typ     : byte;
+    aux     : byte;
+  end;
 var
 var
   dosheader  : tdosheader;
   dosheader  : tdosheader;
   peheader   : tpeheader;
   peheader   : tpeheader;