mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-21 02:21:42 +02:00
* removed some warnings
This commit is contained in:
peter
parent
dc329ecee3
commit
b136b62127
@ -98,7 +98,9 @@ UNIT Objects;
|
||||
{$E+} { Emulation is on }
|
||||
{$X+} { Extended syntax is ok }
|
||||
{$R-} { Disable range checking }
|
||||
{$S-} { Disable Stack Checking }
|
||||
{$ifndef Linux}
|
||||
{$S-} { Disable Stack Checking }
|
||||
{$endif}
|
||||
{$I-} { Disable IO Checking }
|
||||
{$Q-} { Disable Overflow Checking }
|
||||
{$V-} { Turn off strict VAR strings }
|
||||
@ -2732,7 +2734,10 @@ END;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.7 1998-07-15 12:08:33 carl
|
||||
Revision 1.8 1998-09-09 15:29:02 peter
|
||||
* removed some warnings
|
||||
|
||||
Revision 1.7 1998/07/15 12:08:33 carl
|
||||
+ Atari TOS support
|
||||
|
||||
Revision 1.6 1998/07/08 12:00:25 carl
|
||||
|
||||
@ -32,44 +32,45 @@ function DoEncodeDate(Year, Month, Day: Word):longint;
|
||||
var
|
||||
I: Longint;
|
||||
begin
|
||||
DoEncodeDate := 0;
|
||||
if (Year >= 1) and (Year <= 9999) and (Month >= 1) and (Month <= 12) and
|
||||
(Day >= 1) and (Day <= 31) then begin
|
||||
Day := Day + DayTable[IsLeapYear(Year), Month] - 1;
|
||||
I := Year - 1;
|
||||
DoEncodeDate := I * 365 + I div 4 - I div 100 + I div 400 + Day;
|
||||
end ;
|
||||
end ;
|
||||
DoEncodeDate := 0;
|
||||
if (Year >= 1) and (Year <= 9999) and (Month >= 1) and (Month <= 12) and
|
||||
(Day >= 1) and (Day <= 31) then
|
||||
begin
|
||||
Day := Day + DayTable[IsLeapYear(Year), Month] - 1;
|
||||
I := Year - 1;
|
||||
DoEncodeDate := I * 365 + I div 4 - I div 100 + I div 400 + Day;
|
||||
end;
|
||||
end;
|
||||
|
||||
function doEncodeTime(Hour,Minute,Second,MilliSecond:word):longint;
|
||||
begin
|
||||
doEncodeTime := (Hour * 3600000 + Minute * 60000 + Second * 1000 + MilliSecond) { div MSecsPerDay} ;
|
||||
end ;
|
||||
doEncodeTime := (Hour * 3600000 + Minute * 60000 + Second * 1000 + MilliSecond) { div MSecsPerDay} ;
|
||||
end;
|
||||
|
||||
function DateToStr(Date:TDateTime):string;
|
||||
begin
|
||||
DateToStr := FormatDateTime('c', Date);
|
||||
end ;
|
||||
DateToStr := FormatDateTime('c', Date);
|
||||
end;
|
||||
|
||||
function TimeToStr(Time:TDateTime):string;
|
||||
begin
|
||||
TimeToStr := FormatDateTime('t', Time);
|
||||
end ;
|
||||
TimeToStr := FormatDateTime('t', Time);
|
||||
end;
|
||||
|
||||
function DateTimeToStr(DateTime:TDateTime):string;
|
||||
begin
|
||||
DateTimeToStr := FormatDateTime('c t', DateTime);
|
||||
end ;
|
||||
DateTimeToStr := FormatDateTime('c t', DateTime);
|
||||
end;
|
||||
|
||||
function EncodeDate(Year, Month, Day :word):TDateTime;
|
||||
begin
|
||||
EncodeDate := DoEncodeDate(Year, Month, Day);
|
||||
end ;
|
||||
EncodeDate := DoEncodeDate(Year, Month, Day);
|
||||
end;
|
||||
|
||||
function EncodeTime(Hour, Minute, Second, MilliSecond:word):TDateTime;
|
||||
begin
|
||||
EncodeTime := doEncodeTime(hour, minute, second, millisecond) / MSecsPerDay;
|
||||
end ;
|
||||
EncodeTime := doEncodeTime(hour, minute, second, millisecond) / double(MSecsPerDay);
|
||||
end;
|
||||
|
||||
procedure DecodeDate(Date:TDateTime;var Year:word;var Month:word;var Day:word);
|
||||
const
|
||||
@ -78,7 +79,6 @@ const
|
||||
D100 = D4 * 25 - 1; { number of days in 100 years }
|
||||
D400 = D100 * 4 + 1; { number of days in 400 years }
|
||||
var
|
||||
i:Longint;
|
||||
l:longint;
|
||||
ly:boolean;
|
||||
begin
|
||||
@ -92,7 +92,7 @@ ly := IsLeapYear(Year);
|
||||
while (month < 12) and (l > DayTable[ly, month + 1]) do
|
||||
inc(month);
|
||||
day := l - DayTable[ly, month];
|
||||
end ;
|
||||
end;
|
||||
|
||||
procedure DecodeTime(Time:TDateTime;var Hour:word;var Minute:word;var Second:word;var MilliSecond:word);
|
||||
var l:longint;
|
||||
@ -102,7 +102,7 @@ Hour := l div 3600000;l := l mod 3600000;
|
||||
Minute := l div 60000;l := l mod 60000;
|
||||
Second := l div 1000;l := l mod 1000;
|
||||
MilliSecond := l;
|
||||
end ;
|
||||
end;
|
||||
|
||||
function FormatDateTime(formatstr:string;DateTime:TDateTime):string;
|
||||
var i:longint;result:string;current:string;e:longint;
|
||||
@ -121,19 +121,19 @@ while not(i > length(formatstr)) do begin
|
||||
while not(formatstr[i] in [' ','"','/',':','''']) and not(i > length(formatstr)) do begin
|
||||
current := current + formatstr[i];
|
||||
inc(i);
|
||||
end ;
|
||||
end;
|
||||
if ((current = 'a') or (current = 'am')) and (formatstr[i] = '/') then begin
|
||||
inc(i);current := current + '/';
|
||||
while not(formatstr[i] in [' ','"','/',':','''']) and not(i > length(formatstr)) do begin
|
||||
current := current + formatstr[i];
|
||||
inc(i);
|
||||
end ;
|
||||
end ;
|
||||
end;
|
||||
end;
|
||||
if not(current = '') then begin
|
||||
if (current = 'c') then begin
|
||||
i := 1; result := ''; current := '';
|
||||
formatstr := ' ' + shortdateformat + '" "' + shorttimeformat;
|
||||
end ;
|
||||
end;
|
||||
if not(mTime = 0) then begin
|
||||
if (current = 't') then begin
|
||||
formatstr := ' ' + shorttimeformat + copy(formatstr, i, length(formatstr));
|
||||
@ -150,18 +150,18 @@ while not(i > length(formatstr)) do begin
|
||||
else if (current = 's') then result := result + inttostr(s)
|
||||
else if (current = 'ss') then result := result + right('0'+inttostr(s),2)
|
||||
else if (current = 'am/pm') then begin
|
||||
if (h < 13) then result := result + 'am'
|
||||
if (h < 13) then result := result + 'am'
|
||||
else result := result + 'pm';
|
||||
end
|
||||
end
|
||||
else if (current = 'a/p') then begin
|
||||
if h < 13 then result := result + 'a'
|
||||
if h < 13 then result := result + 'a'
|
||||
else result := result + 'p';
|
||||
end
|
||||
end
|
||||
else if (current = 'ampm') then begin
|
||||
if h < 13 then strCat(result, TimeAMString)
|
||||
else strCat(result, TimePMString);
|
||||
end ;
|
||||
end ;
|
||||
end;
|
||||
end;
|
||||
if not(mDate = 0) then begin
|
||||
if (current = 'd') then result := result + inttostr(d)
|
||||
else if (current = 'dd') then result := result + right('0' + inttostr(d), 2)
|
||||
@ -174,9 +174,9 @@ while not(i > length(formatstr)) do begin
|
||||
else if (current = 'y') then result := result + inttostr(y)
|
||||
else if (current = 'yy') then result := result + right(inttostr(y), 2)
|
||||
else if (current = 'yyyy') or (current = 'yyy') then result := result + inttostr(y);
|
||||
end ;
|
||||
end;
|
||||
current := '';
|
||||
end ;
|
||||
end;
|
||||
if (formatstr[i] = '/') and not(mDate = 0) then result := result + dateseparator
|
||||
else if (formatstr[i] = ':') and not(mTime = 0) then result := result + timeseparator
|
||||
else if (formatstr[i] in ['"','''']) then begin
|
||||
@ -184,12 +184,12 @@ while not(i > length(formatstr)) do begin
|
||||
while not(formatstr[i] in ['"','''']) and not(i > length(formatstr)) do begin
|
||||
result := result + formatstr[i];
|
||||
inc(i);
|
||||
end ;
|
||||
end ;
|
||||
end;
|
||||
end;
|
||||
inc(i);
|
||||
end ;
|
||||
end;
|
||||
FormatDateTime := Result;
|
||||
end ;
|
||||
end;
|
||||
|
||||
function StrToDate(const s:string):TDateTime;
|
||||
var
|
||||
@ -210,8 +210,8 @@ for i := 1 to length(s) do begin
|
||||
val(s1, values[n], c);
|
||||
s1 := '';
|
||||
inc(n);
|
||||
end ;
|
||||
end ;
|
||||
end;
|
||||
end;
|
||||
if (df = 'D/M/Y') then begin
|
||||
d := values[0];
|
||||
m := values[1];
|
||||
@ -229,7 +229,7 @@ else if (df = 'M/D/Y') then begin
|
||||
else if (df = 'Y/M/D') then begin
|
||||
if (n = 3) then begin
|
||||
y := values[0];
|
||||
m := values[1];
|
||||
m := values[1];
|
||||
d := values[2];
|
||||
end
|
||||
else if (n = 2) then begin
|
||||
@ -238,71 +238,78 @@ else if (df = 'Y/M/D') then begin
|
||||
end
|
||||
else if (n = 1) then
|
||||
d := values[0];
|
||||
end ;
|
||||
end;
|
||||
if (n < 3) then begin
|
||||
getLocalTime(LocalTime);
|
||||
y := LocalTime.wYear;
|
||||
if (n < 2) then
|
||||
m := LocalTime.wMonth;
|
||||
end ;
|
||||
end;
|
||||
if (y >= 0) and (y < 100) then y := 1900 + y;
|
||||
StrToDate := DoEncodeDate(y, m, d);
|
||||
end ;
|
||||
end;
|
||||
|
||||
|
||||
function StrToTime(const s:string):TDateTime;
|
||||
begin
|
||||
end ;
|
||||
end;
|
||||
|
||||
|
||||
function StrToDateTime(const s:string):TDateTime;
|
||||
begin
|
||||
end ;
|
||||
end;
|
||||
|
||||
|
||||
function DayOfWeek(DateTime:TDateTime):longint;
|
||||
begin
|
||||
DayOfWeek := (1 + Trunc(DateTime)) mod 7;
|
||||
end ;
|
||||
DayOfWeek := (1 + Trunc(DateTime)) mod 7;
|
||||
end;
|
||||
|
||||
procedure getlocaltime(var systemtime:tsystemtime);
|
||||
var wDayOfWeek:word;
|
||||
var
|
||||
wDayOfWeek:word;
|
||||
begin
|
||||
getdate(systemtime.wYear,
|
||||
systemtime.wMonth,
|
||||
systemtime.wDay,
|
||||
wDayOfWeek);
|
||||
gettime(systemtime.whour,
|
||||
systemtime.wminute,
|
||||
systemtime.wsecond,
|
||||
systemtime.wmillisecond);
|
||||
systemtime.wmillisecond := systemtime.wmillisecond * 10;
|
||||
end ;
|
||||
getdate(systemtime.wYear,systemtime.wMonth,systemtime.wDay,wDayOfWeek);
|
||||
gettime(systemtime.whour,systemtime.wminute,systemtime.wsecond,systemtime.wmillisecond);
|
||||
systemtime.wmillisecond := systemtime.wmillisecond * 10;
|
||||
end;
|
||||
|
||||
|
||||
function Date:TDateTime;
|
||||
var systemtime:tsystemtime;
|
||||
var
|
||||
systemtime:tsystemtime;
|
||||
begin
|
||||
getlocaltime(systemtime);
|
||||
date := doEncodeDate(systemtime.wYear,systemtime.wMonth,systemtime.wDay);
|
||||
end ;
|
||||
getlocaltime(systemtime);
|
||||
date := doEncodeDate(systemtime.wYear,systemtime.wMonth,systemtime.wDay);
|
||||
end;
|
||||
|
||||
|
||||
function Time:TDateTime;
|
||||
var systemtime:tsystemtime;
|
||||
var
|
||||
systemtime:tsystemtime;
|
||||
begin
|
||||
getlocaltime(systemtime);
|
||||
time := doEncodeTime(systemtime.wHour,systemtime.wMinute,
|
||||
systemtime.wSecond,systemtime.wMillisecond) / MSecsPerDay;
|
||||
end ;
|
||||
getlocaltime(systemtime);
|
||||
time := doEncodeTime(systemtime.wHour,systemtime.wMinute,
|
||||
systemtime.wSecond,systemtime.wMillisecond) / double(MSecsPerDay);
|
||||
end;
|
||||
|
||||
|
||||
function Now:TDateTime;
|
||||
var systemtime:tsystemtime;
|
||||
var
|
||||
systemtime:tsystemtime;
|
||||
begin
|
||||
getlocaltime(systemtime);
|
||||
now := doEncodeDate(systemtime.wYear,systemtime.wMonth,systemtime.wDay) +
|
||||
doEncodeTime(systemtime.wHour,systemtime.wMinute,
|
||||
systemtime.wSecond,systemtime.wMillisecond) / MSecsPerDay;
|
||||
end ;
|
||||
getlocaltime(systemtime);
|
||||
now := doEncodeDate(systemtime.wYear,systemtime.wMonth,systemtime.wDay) +
|
||||
doEncodeTime(systemtime.wHour,systemtime.wMinute,
|
||||
systemtime.wSecond,systemtime.wMillisecond) / double(MSecsPerDay);
|
||||
end;
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 1998-04-10 15:17:46 michael
|
||||
Revision 1.2 1998-09-09 15:29:04 peter
|
||||
* removed some warnings
|
||||
|
||||
Revision 1.1 1998/04/10 15:17:46 michael
|
||||
+ Initial implementation; Donated by Gertjan Schouten
|
||||
His file was split into several files, to keep it a little bit structured.
|
||||
|
||||
|
||||
@ -137,9 +137,9 @@ function ldexp(x : float;p : longint) : float;
|
||||
{ statistical functions }
|
||||
|
||||
function mean(const data : array of float) : float;
|
||||
function sum(const data : array of float) : float;
|
||||
function sum(const data : array of float) : float;
|
||||
function sumofsquares(const data : array of float) : float;
|
||||
{ calculates the sum and the sum of squares of data }
|
||||
{ calculates the sum and the sum of squares of data }
|
||||
procedure sumsandsquares(const data : array of float;
|
||||
var sum,sumofsquares : float);
|
||||
function minvalue(const data : array of float) : float;
|
||||
@ -224,7 +224,7 @@ function radtocycle(rad : float) : float;
|
||||
|
||||
begin
|
||||
{ avoid division }
|
||||
radtocycle:=rad*(1/(2*pi));
|
||||
radtocycle:=rad*(1/(2*pi));
|
||||
end;
|
||||
|
||||
function tan(x : float) : float;
|
||||
@ -253,7 +253,7 @@ procedure sincos(theta : float;var sinus,cosinus : float);
|
||||
movl 20(%ebp),%eax
|
||||
fstpl (%eax)
|
||||
movl 16(%ebp),%eax
|
||||
fstpl (%eax)
|
||||
fstpl (%eax)
|
||||
end;
|
||||
{$endif}
|
||||
end;
|
||||
@ -283,7 +283,7 @@ function arctan2( x,y : float) : float;
|
||||
fldt 8(%ebp)
|
||||
fldt 18(%ebp)
|
||||
fpatan
|
||||
leave
|
||||
leave
|
||||
ret $20
|
||||
end;
|
||||
{$endif}
|
||||
@ -355,9 +355,6 @@ function arsinh(x : float) : float;
|
||||
end;
|
||||
|
||||
function artanh(x : float) : float;
|
||||
|
||||
var temp : Float;
|
||||
|
||||
begin
|
||||
If abs(x)>1 then InvalidArgument;
|
||||
artanh:=(Ln((1+x)/(1-x)))*0.5;
|
||||
@ -452,7 +449,7 @@ function mean(const data : array of float) : float;
|
||||
|
||||
begin
|
||||
mean:=sum(data);
|
||||
mean:=mean/(high(data)-low(data)+1);
|
||||
mean:=mean/(high(data)-low(data)+1);
|
||||
end;
|
||||
|
||||
function sum(const data : array of float) : float;
|
||||
@ -531,7 +528,7 @@ procedure meanandstddev(const data : array of float;
|
||||
var mean,stddev : float);
|
||||
|
||||
begin
|
||||
|
||||
|
||||
end;
|
||||
|
||||
function variance(const data : array of float) : float;
|
||||
@ -578,9 +575,9 @@ procedure momentskewkurtosis(const data : array of float;
|
||||
|
||||
Var S,SS,SC,SQ,invN,Acc,M1S,S2N,S3N,temp : Float;
|
||||
I : Longint;
|
||||
|
||||
|
||||
begin
|
||||
invN:=1/(High(Data)-Low(Data)+1);
|
||||
invN:=1.0/(High(Data)-Low(Data)+1);
|
||||
s:=0;
|
||||
ss:=0;
|
||||
sq:=0;
|
||||
@ -617,7 +614,10 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.2 1998-07-29 15:44:34 michael
|
||||
Revision 1.3 1998-09-09 15:29:05 peter
|
||||
* removed some warnings
|
||||
|
||||
Revision 1.2 1998/07/29 15:44:34 michael
|
||||
included sysutils and math.pp as target. They compile now.
|
||||
|
||||
Revision 1.1.1.1 1998/03/25 11:18:49 root
|
||||
|
||||
Loading…
Reference in New Issue
Block a user