64-Bit exceptions, Delphi 6 compatibility types in define

diff --git a/dglOpenGL.pas b/dglOpenGL.pas
index 6a42f64..2ae49dd 100644 (file)
--- 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.