paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed library handle types to the correct TLibHandle

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

git-svn-id: trunk@2748 -
This commit is contained in:
tom_at_work 2006-03-04 23:40:43 +00:00
parent 88a8aa31d9
commit 7f192e369e
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/extra/opengl/gl.pp
View File

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

5
packages/extra/opengl/glu.pp
View File

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

5
packages/extra/opengl/glut.pp
View File

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