From 4e03a0f6f37b4959e2316a396c7a2ebe40d5ae21 Mon Sep 17 00:00:00 2001 From: bergmann Date: Fri, 23 Dec 2016 15:02:36 +0100 Subject: [PATCH] * fixed compiler warnings --- uutlAlgorithm.pas | 2 ++ uutlSyncObjs.pas | 1 + 2 files changed, 3 insertions(+) diff --git a/uutlAlgorithm.pas b/uutlAlgorithm.pas index 6000981..d24fb80 100644 --- a/uutlAlgorithm.pas +++ b/uutlAlgorithm.pas @@ -100,6 +100,7 @@ class function TutlBinarySearch.DoSearch( var i, cmp: Integer; begin + result := false; if (aMin <= aMax) then begin i := aMin + Trunc((aMax - aMin) / 2); cmp := aComparer.Compare(aItem, aArray[i]); @@ -127,6 +128,7 @@ class function TutlBinarySearch.DoSearch( var i, cmp: Integer; begin + result := false; if (aMin <= aMax) then begin i := aMin + Trunc((aMax - aMin) / 2); cmp := aComparer.Compare(aItem, aArray[i]); diff --git a/uutlSyncObjs.pas b/uutlSyncObjs.pas index b145f26..88e61b0 100644 --- a/uutlSyncObjs.pas +++ b/uutlSyncObjs.pas @@ -169,6 +169,7 @@ var i: integer; timeout, tick: qword; begin + result := wrError; timeout := GetTickCount64 + aTimeout; for i := 0 to Count-1 do begin if (aTimeout <> INFINITE) then begin