projects
/
LazOpenGLCore.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d3ba3cb
)
* fixed some compiler warnings in dglOpenGL.pas
author
Bergmann89
<bergmann89@muo-game.de>
Sun, 26 Oct 2014 15:32:43 +0000
(16:32 +0100)
committer
Bergmann89
<bergmann89@muo-game.de>
Sun, 26 Oct 2014 15:32:43 +0000
(16:32 +0100)
dglOpenGL.pas
patch
|
blob
|
history
diff --git
a/dglOpenGL.pas
b/dglOpenGL.pas
index
83470c6
..
52499fc
100644
(file)
--- a/
dglOpenGL.pas
+++ b/
dglOpenGL.pas
@@
-14887,7
+14887,7
@@
const
function dglLoadLibrary(Name: PChar): Pointer;
begin
{$IFDEF DGL_WIN}
function dglLoadLibrary(Name: PChar): Pointer;
begin
{$IFDEF DGL_WIN}
- Result := Pointer(LoadLibrary(Name));
+ Result :=
{%H-}
Pointer(LoadLibrary(Name));
{$ENDIF}
{$IFDEF DGL_LINUX}
{$ENDIF}
{$IFDEF DGL_LINUX}
@@
-14910,7
+14910,7
@@
begin
Result := False
else
{$IFDEF DGL_WIN}
Result := False
else
{$IFDEF DGL_WIN}
- Result := FreeLibrary(HMODULE(LibHandle));
+ Result := FreeLibrary(
{%H-}
HMODULE(LibHandle));
{$ENDIF}
{$IFDEF DGL_LINUX}
{$ENDIF}
{$IFDEF DGL_LINUX}
@@
-14934,7
+14934,7
@@
begin
{$IFDEF DGL_WIN}
{$IFDEF DGL_WIN}
- Result := GetProcAddress(HMODULE(LibHandle), ProcName);
+ Result := GetProcAddress(
{%H-}
HMODULE(LibHandle), ProcName);
if result <> nil then
exit;
if result <> nil then
exit;
@@
-19276,7
+19276,7
@@
var
Buffer: String;
MajorVersion, MinorVersion: Integer;
Buffer: String;
MajorVersion, MinorVersion: Integer;
- procedure TrimAndSplitVersionString(Buffer: String;
var
Max, Min: Integer);
+ procedure TrimAndSplitVersionString(Buffer: String;
out
Max, Min: Integer);
// Peels out the X.Y form from the given Buffer which must contain a version string like "text Minor.Major.Build text"
// at least however "Major.Minor".
var
// Peels out the X.Y form from the given Buffer which must contain a version string like "text Minor.Major.Build text"
// at least however "Major.Minor".
var
@@
-20071,7
+20071,7
@@
begin
if GL_LibHandle = nil then
InitOpenGL;
if GL_LibHandle = nil then
InitOpenGL;
- FillChar(PFDescriptor, SizeOf(PFDescriptor), 0);
+ FillChar(PFDescriptor
{%H-}
, SizeOf(PFDescriptor), 0);
with PFDescriptor do
begin
with PFDescriptor do
begin
@@
-20169,7
+20169,7
@@
begin
if not Assigned(GL_LibHandle) then
raise Exception.Create('GL_LibHandle is NIL. Could not load OpenGL library!');
if not Assigned(GL_LibHandle) then
raise Exception.Create('GL_LibHandle is NIL. Could not load OpenGL library!');
- FillChar(PFDescriptor, SizeOf(PFDescriptor), 0);
+ FillChar(PFDescriptor
{%H-}
, SizeOf(PFDescriptor), 0);
with PFDescriptor do
begin
with PFDescriptor do
begin