浏览代码

HPBUFFERARB = type UINT_PTR; to avoid av in win64 thx smetz84

GLScene 2 年之前
父节点
当前提交
f0dd7bf58f
共有 2 个文件被更改,包括 3 次插入3 次删除
  1. 1 1
      Source/GLS.VectorTypes.pas
  2. 2 2
      Source/GLS.WindowsContext.pas

+ 1 - 1
Source/GLS.VectorTypes.pas

@@ -114,7 +114,7 @@ type
 
   TWGLswap = _WGLSWAP;
   WGLSWAP = _WGLSWAP;
-  HPBUFFERARB = Integer;
+  HPBUFFERARB = type UINT_PTR;
 
 (* These OpenCL's types are compatible with cl_context and cl_event *)
 

+ 2 - 2
Source/GLS.WindowsContext.pas

@@ -35,7 +35,7 @@ type
     FDC: NativeUInt;
     FRC: NativeUInt;
     FShareContext: TGLWindowsContext;
-    FHPBUFFER: Integer;
+    FHPBUFFER: HPBUFFERARB;
     FiAttribs: packed array of Integer;
     FfAttribs: packed array of Single;
     FLegacyContextsOnly: Boolean;
@@ -911,7 +911,7 @@ var
   nbFormats: Integer;
   iFormats: array [0 .. 31] of Integer;
   iPBufferAttribs: array [0 .. 0] of Integer;
-  localHPBuffer: Integer;
+  localHPBuffer: HPBUFFERARB;
   localRC: HGLRC;
   localDC, tempDC: HDC;
   tempWnd: HWND;