浏览代码

Add unit specifiers for tlsdirectory fields: they need to be PUInt from globtype unit

Pierre Muller 1 年之前
父节点
当前提交
ff673eadac
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/ogcoff.pas

+ 2 - 2
compiler/ogcoff.pas

@@ -566,8 +566,8 @@ implementation
 
 
        { This is defined in rtl/win/sysos.inc source }
        { This is defined in rtl/win/sysos.inc source }
        tlsdirectory=packed record
        tlsdirectory=packed record
-         data_start, data_end : PUInt;
-         index_pointer, callbacks_pointer : PUInt;
+         data_start, data_end : globtype.PUInt;
+         index_pointer, callbacks_pointer : globtype.PUInt;
          zero_fill_size : dword;
          zero_fill_size : dword;
          flags : dword;
          flags : dword;
        end;
        end;