* removed some warnings

rtl/inc/objects.pp

@@ -98,7 +98,9 @@ UNIT Objects;
 {$E+} {  Emulation is on }
 {$X+} { Extended syntax is ok }
 {$R-} { Disable range 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

rtl/objpas/dati.inc

@@ -34,7 +34,8 @@ var
 begin
   DoEncodeDate := 0;
   if (Year >= 1) and (Year <= 9999) and (Month >= 1) and (Month <= 12) and
-   (Day >= 1) and (Day <= 31) then begin
+     (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;
@@ -68,7 +69,7 @@ end ;
 
 function  EncodeTime(Hour, Minute, Second, MilliSecond:word):TDateTime;
 begin
-EncodeTime := doEncodeTime(hour, minute, second, millisecond) / MSecsPerDay;
+  EncodeTime := doEncodeTime(hour, minute, second, millisecond) / double(MSecsPerDay);
 end;
 
 procedure DecodeDate(Date:TDateTime;var Year:word;var Month:word;var Day:word);
@@ -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
@@ -249,60 +249,67 @@ if (y >= 0) and (y < 100) then y := 1900 + y;
 StrToDate := DoEncodeDate(y, m, d);
 end;
 
+
 function  StrToTime(const s:string):TDateTime;
 begin
 end;
 
+
 function  StrToDateTime(const s:string):TDateTime;
 begin
 end;
 
+
 function  DayOfWeek(DateTime:TDateTime):longint;
 begin
   DayOfWeek := (1 + Trunc(DateTime)) mod 7;
 end;
 
 procedure getlocaltime(var systemtime:tsystemtime);
-var wDayOfWeek:word;
+var
+  wDayOfWeek:word;
 begin
-getdate(systemtime.wYear,
+  getdate(systemtime.wYear,systemtime.wMonth,systemtime.wDay,wDayOfWeek);
-  		  systemtime.wMonth,
+  gettime(systemtime.whour,systemtime.wminute,systemtime.wsecond,systemtime.wmillisecond);
-        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;
 
+
 function  Time:TDateTime;
-var systemtime:tsystemtime;
+var
+  systemtime:tsystemtime;
 begin
   getlocaltime(systemtime);
   time := doEncodeTime(systemtime.wHour,systemtime.wMinute,
-                   systemtime.wSecond,systemtime.wMillisecond) / MSecsPerDay;
+            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;
+           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.
 

rtl/objpas/math.pp

@@ -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;
@@ -580,7 +577,7 @@ procedure momentskewkurtosis(const data : array of 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