From 981dd043e436b4265ccc915d5fbcaeb80762190a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Mon, 3 Jul 2006 08:49:23 +0000
Subject: [PATCH] + removed unnecessary typecasts causing troubles

git-svn-id: trunk@4087 -
---
 packages/extra/opengl/tinygl.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/extra/opengl/tinygl.inc b/packages/extra/opengl/tinygl.inc
index d874b18b6f..f9969bca15 100644
--- a/packages/extra/opengl/tinygl.inc
+++ b/packages/extra/opengl/tinygl.inc
@@ -488,7 +488,7 @@ end;
 procedure glMateriali(face, pname: GLenum; param: GLint); inline;
 begin
   // WTF?! 
-  _GLMaterialf(tglContext, face, pname, GLfloat(param));
+  _GLMaterialf(tglContext, face, pname, param);
 end;
 
 procedure glMaterialiv(face, pname: GLenum; const params: PGLint); inline;
@@ -626,7 +626,7 @@ end;
 procedure glFogi(pname: GLenum; param: GLint); inline;
 begin
   // WTF!? And it actually works!
-  _GLFogf(tglContext, pname, GLfloat(param));
+  _GLFogf(tglContext, pname, param);
 end;
 
 procedure glOrtho(left, right, bottom, top, zNear, zFar: GLdouble); inline;