DEADSOFTWARE

warnings for -O3
authorKetmar Dark <ketmar@ketmar.no-ip.org>
Tue, 5 Apr 2016 21:58:36 +0000 (00:58 +0300)
committerKetmar Dark <ketmar@ketmar.no-ip.org>
Tue, 5 Apr 2016 22:00:27 +0000 (01:00 +0300)
14 files changed:
src/engine/e_input.pas
src/engine/e_log.pas
src/game/g_basic.pas
src/game/g_console.pas
src/game/g_game.pas
src/game/g_map.pas
src/game/g_monsters.pas
src/game/g_net.pas
src/game/g_netmsg.pas
src/game/g_playermodel.pas
src/game/g_res_downloader.pas
src/game/g_triggers.pas
src/game/g_window.pas
src/shared/WADEDITOR.pas

index e8a03f739c54fc28653208d16a638af5143da97e..67e0b5d9a2201ad51cbbf4a4e310cf7f715a5f1d 100644 (file)
@@ -175,9 +175,10 @@ end;
   
 function PollJoysticks(): Boolean;
 var
-  i, j, d: Word;
+  i, j: Word;
   hat: Byte;
 begin
+  Result := False;
   if (Joysticks = nil) or (e_JoysticksAvailable = 0) then Exit;
   SDL_JoystickUpdate();
   for j := Low(Joysticks) to High(Joysticks) do
@@ -191,13 +192,12 @@ begin
       begin
         hat := SDL_JoystickGetHat(Handle, i);
         HatBuf[i, HAT_UP] := LongBool(hat and SDL_HAT_UP);
-        HatBuf[i, HAT_DOWN] := LongBool(hat and SDL_HAT_DOWN);  
-        HatBuf[i, HAT_LEFT] := LongBool(hat and SDL_HAT_LEFT);  
-        HatBuf[i, HAT_RIGHT] := LongBool(hat and SDL_HAT_RIGHT);  
+        HatBuf[i, HAT_DOWN] := LongBool(hat and SDL_HAT_DOWN);
+        HatBuf[i, HAT_LEFT] := LongBool(hat and SDL_HAT_LEFT);
+        HatBuf[i, HAT_RIGHT] := LongBool(hat and SDL_HAT_RIGHT);
       end;
     end;
-  Result := False;
-end;    
+end;
 
 procedure GenerateKeyNames();
 var
index b8a185020749e2743f246793b402b78be25bddc5..b877db33511abbfde8f1b28c08dec9acac867130 100644 (file)
@@ -31,7 +31,7 @@ procedure e_WriteLog(TextLine: String; RecordCategory: TRecordCategory;
                      WriteTime: Boolean = True);
 var
   LogFile: TextFile;
-  Prefix: ShortString;
+  Prefix: ShortString = '';
 begin
   if FileName = '' then Exit;
 
index e1ce980bc548a2f5e0e7ed16a7f745daab755fe0..4b505ab50bcd76074c76e772a25b76c9aec226f0 100644 (file)
@@ -614,6 +614,7 @@ function GetStr(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
@@ -852,6 +853,7 @@ begin
   n := 1;
   m := 1;
   Result := 0;
+  s1 := '';
 
   for i := 0 to High(Pointers) do
   begin
index 3c1603744276a18bd6bc36a39cf877a81f636657..fc78ef05502bd56ac0e99bd60fe7ffde303befc0 100644 (file)
@@ -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
index 9adfa22fdb090e853788b848391d0312a645827a..13ffb1064132327dbe8d6cff0d81522af9f9fb96 100644 (file)
@@ -821,6 +821,9 @@ var
   wad, map: string;
   mapstr: string;
 begin
+  s1 := '';
+  s2 := '';
+  s3 := '';
   pc := g_Player_GetCount;
   e_TextureFontGetSize(gStdFont, cw, ch);
 
@@ -4751,7 +4754,7 @@ var
   s, pw: String;
   chstr: string;
   cmd: string;
-  pl: pTNetClient;
+  pl: pTNetClient = nil;
   plr: TPlayer;
   prt: Word;
   nm: Boolean;
index 9e14586931983da8adc19b0c6e95b0f3134844e5..aa0c4cb0307de5157bec744f5942cd13eb7ceef5 100644 (file)
@@ -781,6 +781,8 @@ var
 begin
   Result := False;
   gMapInfo.Map := Res;
+  TriggersTable := nil;
+  FillChar(texture, SizeOf(texture), 0);
 
 // Çàãðóçêà WAD:
   g_ProcessResourceStr(Res, FileName, SectionName, ResName);
@@ -1230,6 +1232,7 @@ var
   Data: Pointer;
   Len: Integer;
 begin
+  FillChar(Result, SizeOf(Result), 0);
   g_ProcessResourceStr(Res, FileName, SectionName, ResName);
 
   WAD := TWADEditor_1.Create();
index 507a56024cf75640394dbe91dd3bd4ccaa45b45a..15790197f17980f45913930944a37349e8bec432 100644 (file)
@@ -1202,7 +1202,9 @@ end;
 function g_Monsters_GetNameByID(MonsterType: Byte): String;
 begin
   if MonsterType in [MONSTER_DEMON..MONSTER_MAN] then
-    Result := MONSTERTABLE[MonsterType].Name;
+    Result := MONSTERTABLE[MonsterType].Name
+  else
+    Result := '?';
 end;
 
 function g_Monsters_GetKilledBy(MonsterType: Byte): String;
index 74defc3d1083f613d89e67f59da2a879a4c9acc1..a1c07701018a99b84c38dcf198214d923bbd0e77 100644 (file)
@@ -874,6 +874,7 @@ var
   Ptr: Pointer;
   msgStream: TMemoryStream;
 begin
+  FillChar(downloadEvent, SizeOf(downloadEvent), 0);
   msgStream := nil;
   OuterLoop := True;
   while OuterLoop do
index 27b8081f4733b7aa68efc041860a2e40ba38772f..7cc04d223065c043946347a45bc23b08497aef5c 100644 (file)
@@ -1624,6 +1624,7 @@ var
   pln: String;
   cnt: Byte;
 begin
+  FillChar(EvHash, Sizeof(EvHash), 0);
   EvType := e_Raw_Read_Byte(P);
   EvNum := e_Raw_Read_LongInt(P);
   EvStr := e_Raw_Read_String(P);
index 283113e0dc5e4f4f33bfae98e848a7f0a78f4df0..a00982375150601c281aaae19232330e4405a027 100644 (file)
@@ -165,6 +165,8 @@ var
   s: String;
 begin
   Result := False;
+  x := 0;
+  y := 0;
 
   str := Trim(str);
   if Length(str) < 3 then
@@ -561,6 +563,7 @@ function g_PlayerModel_GetInfo(ModelName: string): TModelInfo;
 var
   a: Integer;
 begin
+  FillChar(Result, SizeOf(Result), 0);
   if PlayerModelsArray = nil then Exit;
 
   for a := 0 to High(PlayerModelsArray) do
index e4959b719de4325dd9ec2aab5077d909f8f971b0..9547335009a7296361e17b018196f7e6846c3278 100644 (file)
@@ -108,6 +108,7 @@ var
   i: Integer;
   resData: TResDataMsg;
 begin
+  SetLength(mapData.ExternalResources, 0);
   g_Console_Add(Format(_lc[I_NET_MAP_DL], [FileName]));
   e_WriteLog('Downloading map `' + FileName + '` from server', MSG_NOTIFY);
   MC_SEND_MapRequest();
index 6748a005098b7874218adc0e15af4fcd3fa5a631..d1b2c67a43a94a473d45d508cb898f4d0eae6ad5 100644 (file)
@@ -2330,6 +2330,8 @@ var
   k: Byte;
   p: TPlayer;
 begin
+  Result := nil;
+
   if gTriggers = nil then Exit;
 
   case g_GetUIDType(UID) of
@@ -2345,8 +2347,6 @@ begin
     else k := 0;
   end;
 
-  Result := nil;
-
   for a := 0 to High(gTriggers) do
     if (gTriggers[a].TriggerType <> TRIGGER_NONE) and
        (gTriggers[a].TimeOut = 0) and
index bb20c47dd3feba89956de37b19402342bcbdecc8..8427dd30667efdf4cec6fae89589dde49f6b7f3d 100644 (file)
@@ -56,10 +56,12 @@ const
 
 // TODO: make a transition table or something
 function WCharToCP1251(wc: Word): Word;
+var
+  n: Word;
 begin
-  for Result := 0 to 127 do
-    if CP1251[Result] = wc then
-      break;
+  Result := 0;
+  for n := 0 to 127 do
+    if CP1251[n] = wc then begin Result := n; break end;
   Result := Result + 128;
 end;
 
@@ -354,6 +356,7 @@ var
   ev: TSDL_Event;
   ID: DWORD;
 begin
+  FillChar(ev, SizeOf(ev), 0);
   //wNeedFree := False;
   wLoadingProgress := True;
   while SDL_PollEvent(@ev) > 0 do
@@ -398,6 +401,7 @@ var
   ev: TSDL_Event;
 begin
   Result := False;
+  FillChar(ev, SizeOf(ev), 0);
 
   while SDL_PollEvent(@ev) > 0 do
   begin
index 3c6c1a3082fc80c9290ace750a56bc3921b963a0..83538c0525bdbe09ad97aeb443c2b6fb8ca545e2 100644 (file)
@@ -674,6 +674,7 @@ begin
   DFWAD_ERROR_WADNOTLOADED: Result := 'DFWAD file is not loaded';
   DFWAD_ERROR_READRESOURCE: Result := 'Read resource error';
   DFWAD_ERROR_READWAD: Result := 'Read DFWAD error';
+  else Result := 'Unknown DFWAD error';
  end;
 end;