# HG changeset patch
# User Gianfranco Costamagna <costamagnagianfranco@yahoo.it>
# Date 1419951369 -3600
# Node ID eedd0697d55ce2406fa1696fe1b35954a6e69e5f
# Parent  37264e44ec0fb84c7056af567972724cdeada115
Fix arm* build failures

diff -r 37264e44ec0f -r eedd0697d55c hedgewars/uRender.pas
--- a/hedgewars/uRender.pas	Sat Dec 27 11:36:28 2014 -0500
+++ b/hedgewars/uRender.pas	Tue Dec 30 15:56:09 2014 +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;