# HG changeset patch
# User unc0rr
# Date 1333572163 -14400
# Node ID a5b0afb608620941d8727757d551b17934ad9194
# Parent  807156c014756d2a572c00c37c315bfeebed525a
More external definitions for pas2c

diff -r 807156c01475 -r a5b0afb60862 hedgewars/pas2cSystem.pas
--- a/hedgewars/pas2cSystem.pas	Wed Apr 04 18:00:46 2012 +0400
+++ b/hedgewars/pas2cSystem.pas	Thu Apr 05 00:42:43 2012 +0400
@@ -55,8 +55,6 @@
     odd, even : function : boolean;
 
     Now : function : integer;
-    Length : function : integer;
-    SetLength, val : procedure;
 
     new, dispose, FillChar, Move : procedure;
 
@@ -64,6 +62,8 @@
     Abs, Sqr : function : integer;
 
     StrPas, FormatDateTime, copy, delete, str, pos, trim : function : shortstring;
+    Length, StrToInt : function : integer;
+    SetLength, val : procedure;
 
     assign, rewrite, reset, flush, BlockWrite, BlockRead, close : procedure;
     IOResult : function : integer;
@@ -112,7 +112,10 @@
     gl_dither, gl_vertex_array, gl_texture_coord_array,
     glviewport, glloadidentity, glmatrixmode, glhint,
     glblendfunc, glenableclientstate, gl_color_buffer_bit,
-    glclear : procedure;
+    glclear, gldisableclientstate, gl_color_array,
+    glcolorpointer, gl_depth_buffer_bit, gl_quads,
+    glbegin, glend, gltexcoord2f, glvertex2d,
+    gl_true, gl_false, glcolormask, gl_projection : procedure;
 
     TThreadId : function : integer;
     BeginThread, ThreadSwitch : procedure;
diff -r 807156c01475 -r a5b0afb60862 hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Wed Apr 04 18:00:46 2012 +0400
+++ b/hedgewars/uVisualGears.pas	Thu Apr 05 00:42:43 2012 +0400
@@ -47,7 +47,7 @@
 procedure AddDamageTag(X, Y, Damage, Color: LongWord);
 
 implementation
-uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore;
+uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore, uUtils;
 
 const cExplFrameTicks = 110;