hedgewars/uRender.pas
branch0.9.21
changeset 10747 07ade56c3b4a
parent 10531 b8e6164a1a18
child 10775 a0b9b678b46e
child 10817 48a53259fad8
child 10869 f23763bbac1b
--- a/hedgewars/uRender.pas	Sun Jan 04 14:04:17 2015 -0500
+++ b/hedgewars/uRender.pas	Tue Jan 06 17:07:34 2015 +0100
@@ -535,11 +535,14 @@
 end;
 
 procedure openglRotatef(RotX, RotY, RotZ: GLfloat; dir: LongInt); inline;
+{ workaround for pascal bug http://bugs.freepascal.org/view.php?id=27222 }
+var tmpdir: LongInt;
 begin
+tmpdir:=dir;
 {$IFDEF GL2}
-    hglRotatef(RotX, RotY, RotZ, dir);
+    hglRotatef(RotX, RotY, RotZ, tmpdir);
 {$ELSE}
-    glRotatef(RotX, RotY, RotZ, dir);
+    glRotatef(RotX, RotY, RotZ, tmpdir);
 {$ENDIF}
 end;