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