paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 11:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed 3 warnings and 1 note.

Browse Source 
git-svn-id: trunk@10135 -
This commit is contained in:
yury 2008-02-01 17:42:41 +00:00
parent f040558e1c
commit 617b59e1c0
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/dateutil.inc
View File

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

2
rtl/wince/dos.pp
View File

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