From 37834ffc496e27bb23b87b4309508e7819ba3367 Mon Sep 17 00:00:00 2001
From: saschawillems <webmaster@saschawillems.de>
Date: Sun, 7 Dec 2014 10:34:34 +0100
Subject: [PATCH] 64-Bit exceptions, Delphi 6 compatibility types in define

---
 dglOpenGL.pas | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

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.
-- 
2.1.4