Make uUtils.c compile
authorunc0rr
Sun, 13 May 2012 21:39:20 +0400
changeset 7074 3f23bd0f2af2
parent 7073 26f960656cc9
child 7075 6bd7e5ad3f2b
Make uUtils.c compile
hedgewars/pas2c.h
hedgewars/uUtils.pas
--- a/hedgewars/pas2c.h	Sun May 13 01:54:26 2012 +0400
+++ b/hedgewars/pas2c.h	Sun May 13 21:39:20 2012 +0400
@@ -100,6 +100,7 @@
 typedef int TextFile;
 extern int FileMode;
 extern int IOResult;
+extern int stderr;
 
 #define assign(a, b) assign_(&(a), b)
 void assign_(int * f, string255 fileName);
--- a/hedgewars/uUtils.pas	Sun May 13 01:54:26 2012 +0400
+++ b/hedgewars/uUtils.pas	Sun May 13 21:39:20 2012 +0400
@@ -88,7 +88,7 @@
         if (a[t] >= 'A')and(a[t] <= 'Z') then
             Inc(a[t], 32);
     b:= copy(a, i + 1, Length(a) - i);
-    byte(a[0]):= Pred(i)
+    a[0]:= char(Pred(i))
     end
 else
     b:= '';
@@ -237,9 +237,9 @@
     if s[i] = '=' then
         inc(c);
     if t > 0 then
-        byte(s[i]):= t - 1
+        s[i]:= char(t - 1)
     else
-        byte(s[i]):= 0
+        s[i]:= #0
     end;
 
 i:= 1;
@@ -256,7 +256,7 @@
 if c < 3 then
     t:= t - c;
 
-byte(DecodeBase64[0]):= t - 1
+DecodeBase64[0]:= char(t - 1)
 end;