Procházet zdrojové kódy

64-Bit exceptions, Delphi 6 compatibility types in define

master
saschawillems před 11 roky
rodič
revize
37834ffc49
1 změnil soubory, kde provedl 8 přidání a 5 odebrání
  1. +8
    -5
      dglOpenGL.pas

+ 8
- 5
dglOpenGL.pas Zobrazit soubor

@@ -181,9 +181,11 @@ uses
; ;


type 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; GLenum = Cardinal;
GLboolean = BYTEBOOL; GLboolean = BYTEBOOL;
@@ -20325,11 +20327,12 @@ initialization


{$IFDEF CPU386} {$IFDEF CPU386}
Set8087CW($133F); Set8087CW($133F);
{$IFDEF DGL_64BIT}
{$ENDIF}
{$IFDEF DGL_64BIT}
SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide,exOverflow, exUnderflow, exPrecision]); SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide,exOverflow, exUnderflow, exPrecision]);
{$ENDIF}
{$ENDIF} {$ENDIF}



finalization finalization


end. end.


Načítá se…
Zrušit
Uložit