Nonoblock: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,060: / Line 2,060: @@
     inc(z[j - 1]);
     z[h] := z[j] - 1;
-    while (j < h) do begin
+    if (j < h) then z[j] := 0;
-      z[j] := 0; inc(j);
-    end;
   end;
 end;