2
0
Эх сурвалжийг харах

fixed warnings about type conversion

alex 25 жил өмнө
parent
commit
101bb49fe7
1 өөрчлөгдсөн 2 нэмэгдсэн , 2 устгасан
  1. 2 2
      install/demo/maze.pp

+ 2 - 2
install/demo/maze.pp

@@ -444,8 +444,8 @@ begin
   readln(maxrun);
   if maxrun <= 0 then
     maxrun := 65535;  { infinite }
-  j := screenwidth / blockwidth;
-  k := screenheight / blockwidth;
+  j := Real(screenwidth) / blockwidth;
+  k := Real(screenheight) / blockwidth;
   if j = int(j) then
     j := j - 1;
   if k = int(k) then