From d65a060e5e40942bc8fb4e48e1d35ba5787f62ba Mon Sep 17 00:00:00 2001
From: dpethes <dejvu@email.cz>
Date: Tue, 14 Oct 2014 04:53:45 +0200
Subject: [PATCH] cast to prevent range check errors

---
 hob_parser/hob_parser.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/hob_parser/hob_parser.pas b/hob_parser/hob_parser.pas
index cc62d41..9096957 100644
--- a/hob_parser/hob_parser.pas
+++ b/hob_parser/hob_parser.pas
@@ -142,10 +142,10 @@ var
 begin
   SetLength(group.vertices, vertex_count);
   for i := 0 to vertex_count - 1 do begin
-      group.vertices[i].x := f.ReadWord;
-      group.vertices[i].y := f.ReadWord;
-      group.vertices[i].z := f.ReadWord;
-      group.vertices[i].unknown := f.ReadWord;
+      group.vertices[i].x := SmallInt(f.ReadWord);
+      group.vertices[i].y := SmallInt(f.ReadWord);
+      group.vertices[i].z := SmallInt(f.ReadWord);
+      group.vertices[i].unknown := SmallInt(f.ReadWord);
   end;
 end;