From 5493dcdf6ace3edb2c45b727aa5e580714de8709 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 9 Mar 2008 18:52:02 +0000
Subject: Fixed some warnings ("missing result-values", "0 instead of nil",
 "comparison is always true", "range check errors")

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@947 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UVideo.pas | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Game/Code/Classes/UVideo.pas')

diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index 7f595928..15399110 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -445,6 +445,8 @@ var
   sws_dst_w, sws_dst_h: Integer;
 
 begin
+  Result := false;
+
   fVideoOpened       := False;
   fVideoPaused       := False;
   VideoTimeBase      := 0;
@@ -646,6 +648,8 @@ begin
       end;
     end;
   end;
+
+  Result := true;
 end;
 
 procedure TVideoPlayback_ffmpeg.Close;
-- 
cgit v1.2.3