Commit 37834ffc authored by saschawillems's avatar saschawillems

64-Bit exceptions, Delphi 6 compatibility types in define

parent ff556fc1
......@@ -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.
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment