* changed library handle types to the correct TLibHandle

* avoid call of FreeLibrary() with zero, because it crashes on some linux versions

git-svn-id: trunk@2748 -

packages/extra/opengl/gl.pp

@@ -74,7 +74,7 @@ uses
 
 {$IFNDEF MORPHOS}
 var
-  LibGL: THandle;
+  LibGL: TLibHandle;
 {$ENDIF MORPHOS}
 
 type
@@ -1917,7 +1917,8 @@ begin
   @ChoosePixelFormat := nil;
   {$ENDIF}
 
-  FreeLibrary(LibGL);
+  if (LibGL <> 0) then
+    FreeLibrary(LibGL);
 {$ENDIF MORPHOS}
 end;
 

packages/extra/opengl/glu.pp

@@ -394,7 +394,7 @@ implementation
 {$ELSE MORPHOS}
 
 var
-  hDLL: THandle;
+  hDLL: TLibHandle;
 
 {$ENDIF MORPHOS}
 
@@ -456,7 +456,8 @@ begin
   @gluNextContour := nil;
   @gluEndPolygon := nil;
 
-  FreeLibrary(hDLL);
+  if (hDLL <> 0) then
+    FreeLibrary(hDLL);
 {$ENDIF MORPHOS}
 end;
 

packages/extra/opengl/glut.pp

@@ -470,7 +470,7 @@ implementation
 
 {$ELSE MORPHOS}
 var
-  hDLL: THandle;
+  hDLL: TLibHandle;
 {$ENDIF MORPHOS}
 
 procedure FreeGlut;
@@ -479,7 +479,8 @@ begin
   // MorphOS's GL will closed down by TinyGL unit, nothing is needed here.
 {$ELSE MORPHOS}
 
-  FreeLibrary(hDLL);
+  if (hDLL <> 0) then
+    FreeLibrary(hDLL);
 
   @glutInit := nil;
   @glutInitDisplayMode := nil;