--- 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;