paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:49:26 +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;
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;

2
rtl/wince/dos.pp
View File

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