2
0
mirror of https://github.com/dpethes/rerogue.git synced 2025-06-07 18:58:32 +02:00

cast to prevent range check errors

This commit is contained in:
dpethes 2014-10-14 04:53:45 +02:00
parent d1a468fbfe
commit d65a060e5e

View File

@ -142,10 +142,10 @@ var
begin begin
SetLength(group.vertices, vertex_count); SetLength(group.vertices, vertex_count);
for i := 0 to vertex_count - 1 do begin for i := 0 to vertex_count - 1 do begin
group.vertices[i].x := f.ReadWord; group.vertices[i].x := SmallInt(f.ReadWord);
group.vertices[i].y := f.ReadWord; group.vertices[i].y := SmallInt(f.ReadWord);
group.vertices[i].z := f.ReadWord; group.vertices[i].z := SmallInt(f.ReadWord);
group.vertices[i].unknown := f.ReadWord; group.vertices[i].unknown := SmallInt(f.ReadWord);
end; end;
end; end;