- Fixed more range violations (fixes #82)

2011-03-31 22:39:00 +02:00
parent abe62e13b8
commit 5c3a8740c1
2 changed files with 13 additions and 9 deletions
--- a/UOLib/ULight.pas
+++ b/UOLib/ULight.pas
@@ -21,7 +21,7 @@
 * CDDL HEADER END
 *
 *
- *      Portions Copyright 2009 Andreas Schneider
+ *      Portions Copyright 2011 Andreas Schneider
 *)
 unit ULight;

@@ -76,8 +76,8 @@ begin
      for y := 0 to Height - 1 do
        for x := 0 to Width - 1 do
        begin
-          buffer.Read(color, SizeOf(byte));
-          color32.R := color * 8;
+          buffer.Read(color, SizeOf(Byte));
+          color32.R := Byte(color * 8);
          color32.G := color32.R;
          color32.B := color32.R;
          if color > 0 then