warnings for -O3

[d2df-sdl.git] / src / game / g_console.pas

diff --git a/src/game/g_console.pas b/src/game/g_console.pas
index 3c1603744276a18bd6bc36a39cf877a81f636657..fc78ef05502bd56ac0e99bd60fe7ffde303befc0 100644 (file)
--- a/src/game/g_console.pas
+++ b/src/game/g_console.pas
@@ -75,6 +75,7 @@ function GetStrACmd(var Str: String): String;
 var
   a: Integer;
 begin
+  Result := '';
   for a := 1 to Length(Str) do
     if (a = Length(Str)) or (Str[a+1] = ';') then
     begin
@@ -108,6 +109,7 @@ var
   F: TextFile;
 begin
   Cmd := LowerCase(P[0]);
+  s := '';
 
   if Cmd = 'clear' then
   begin
@@ -743,6 +745,7 @@ function GetStr(var Str: String): String;
 var
   a, b: Integer;
 begin
+  Result := '';
   if Str[1] = '"' then
   begin
     for b := 1 to Length(Str) do