* 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 }
-{$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

rtl/objpas/dati.inc

@@ -32,44 +32,45 @@ function DoEncodeDate(Year, Month, Day: Word):longint;
 var
    I: Longint;
 begin
-DoEncodeDate := 0;
+  DoEncodeDate := 0;
-if (Year >= 1) and (Year <= 9999) and (Month >= 1) and (Month <= 12) and
+  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;
-   end ;
+    end;
-end ;
+end;
 
 function  doEncodeTime(Hour,Minute,Second,MilliSecond:word):longint;
 begin
-doEncodeTime := (Hour * 3600000 + Minute * 60000 + Second * 1000 + MilliSecond) { div MSecsPerDay} ;
+  doEncodeTime := (Hour * 3600000 + Minute * 60000 + Second * 1000 + MilliSecond) { div MSecsPerDay} ;
-end ;
+end;
 
 function  DateToStr(Date:TDateTime):string;
 begin
-DateToStr := FormatDateTime('c', Date);
+  DateToStr := FormatDateTime('c', Date);
-end ;
+end;
 
 function  TimeToStr(Time:TDateTime):string;
 begin
-TimeToStr := FormatDateTime('t', Time);
+  TimeToStr := FormatDateTime('t', Time);
-end ;
+end;
 
 function  DateTimeToStr(DateTime:TDateTime):string;
 begin
-DateTimeToStr := FormatDateTime('c t', DateTime);
+  DateTimeToStr := FormatDateTime('c t', DateTime);
-end ;
+end;
 
 function  EncodeDate(Year, Month, Day :word):TDateTime;
 begin
-EncodeDate := DoEncodeDate(Year, Month, Day);
+  EncodeDate := DoEncodeDate(Year, Month, Day);
-end ;
+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 ;
+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));
@@ -160,8 +160,8 @@ while not(i > length(formatstr)) do begin
          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];
@@ -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;
+  DayOfWeek := (1 + Trunc(DateTime)) mod 7;
-end ;
+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,
+  systemtime.wmillisecond := systemtime.wmillisecond * 10;
-        wDayOfWeek);
+end;
-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);
+  getlocaltime(systemtime);
-date := doEncodeDate(systemtime.wYear,systemtime.wMonth,systemtime.wDay);
+  date := doEncodeDate(systemtime.wYear,systemtime.wMonth,systemtime.wDay);
-end ;
+end;
+
 
 function  Time:TDateTime;
-var systemtime:tsystemtime;
+var
+  systemtime:tsystemtime;
 begin
-getlocaltime(systemtime);
+  getlocaltime(systemtime);
-time := doEncodeTime(systemtime.wHour,systemtime.wMinute,
+  time := doEncodeTime(systemtime.wHour,systemtime.wMinute,
-                   systemtime.wSecond,systemtime.wMillisecond) / MSecsPerDay;
+            systemtime.wSecond,systemtime.wMillisecond) / double(MSecsPerDay);
-end ;
+end;
+
 
 function  Now:TDateTime;
-var systemtime:tsystemtime;
+var
+  systemtime:tsystemtime;
 begin
-getlocaltime(systemtime);
+  getlocaltime(systemtime);
-now := doEncodeDate(systemtime.wYear,systemtime.wMonth,systemtime.wDay) +
+  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 ;
+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