From: saschawillems <webmaster@saschawillems.de>
Date: Sun, 7 Dec 2014 09:34:34 +0000 (+0100)
Subject: 64-Bit exceptions, Delphi 6 compatibility types in define
X-Git-Url: https://git.delphigl.com/?a=commitdiff_plain;h=37834ffc496e27bb23b87b4309508e7819ba3367;p=LazOpenGLCore.git

64-Bit exceptions, Delphi 6 compatibility types in define
---

diff --git a/dglOpenGL.pas b/dglOpenGL.pas
index 6a42f64..2ae49dd 100644
--- a/dglOpenGL.pas
+++ b/dglOpenGL.pas
@@ -181,9 +181,11 @@ uses
   ;
 
 type
-  // Needed for Delphi 6 and less (defined in system.pas for Delphi 7)
-  PPointer = ^Pointer;
-  PCardinal = ^Cardinal;
+  {$IFDEF DELPHI6_AND_DOWN}
+    // Delphi 6 compatibility
+    PPointer = ^Pointer;
+    PCardinal = ^Cardinal;
+  {$ENDIF}
 
   GLenum = Cardinal;
   GLboolean = BYTEBOOL;
@@ -20325,11 +20327,12 @@ initialization
 
 {$IFDEF CPU386}
   Set8087CW($133F);
-  {$IFDEF DGL_64BIT}
+{$ENDIF}
+{$IFDEF DGL_64BIT}
   SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide,exOverflow, exUnderflow, exPrecision]);
-  {$ENDIF}
 {$ENDIF}
 
+
 finalization
 
 end.