* Fixed 3 warnings and 1 note.

git-svn-id: trunk@10135 -

rtl/objpas/dateutil.inc

@@ -2006,22 +2006,23 @@ begin
   TryJulianDateToDateTime := ADateTime <> NaN;
 end;
 
-
 Function DateTimeToModifiedJulianDate(const AValue: TDateTime): Double;
 begin
+  Result:=0;
   NotYetImplemented('DateTimeToModifiedJulianDate');
 end;
 
 
 Function ModifiedJulianDateToDateTime(const AValue: Double): TDateTime;
 begin
+  Result:=0;
   NotYetImplemented('ModifiedJulianDateToDateTime');
 end;
 
 
 Function TryModifiedJulianDateToDateTime(const AValue: Double; var ADateTime: TDateTime): Boolean;
-
 begin
+  Result:=False;
   NotYetImplemented('TryModifiedJulianDateToDateTime');
 end;
 

rtl/wince/dos.pp

@@ -406,7 +406,7 @@ end;
 
 Function FSearch(path: pathstr; dirlist: string): pathstr;
 var
-  i,p1   : longint;
+  p1     : longint;
   s      : searchrec;
   newdir : pathstr;
 begin