* remove warnings

rtl/i386/math.inc

@@ -33,7 +33,7 @@
             // comes from DJ GPP
             fldt        d
             fldl2e
-            fmulp       %st(1)
+            fmulp       %st,%st(1)
             fstcw      .LCW1
             fstcw      .LCW2
             andw        $0xf3ff,.LCW2
@@ -46,7 +46,7 @@
             fsub        %st(1),%st
             f2xm1
             fld1
-            faddp       %st(1)
+            faddp       %st,%st(1)
             fscale
             fstp        %st(1)
             jmp         .LCW3
@@ -74,7 +74,7 @@
             fldt d
             frndint
             fldt d
-            fsub %st(1)
+            fsub %st(1),%st
             fstp %st(1)
             fclex
             fldcw -4(%ebp)
@@ -329,7 +329,10 @@
 
 {
   $Log$
-  Revision 1.4  2000-10-21 18:20:17  florian
+  Revision 1.5  2001-04-13 22:26:32  peter
+    * remove warnings
+
+  Revision 1.4  2000/10/21 18:20:17  florian
     * a lot of small changes:
        - setlength is internal
        - win32 graph unit extended

rtl/inc/except.inc

@@ -148,8 +148,10 @@ end;
 
 
 Procedure PopAddrStack;[Public, Alias : 'FPC_POPADDRSTACK'];
+{$ifndef HAS_ADDR_STACK_ON_STACK}
 var
   hp : PExceptAddr;
+{$endif HAS_ADDR_STACK_ON_STACK}
 begin
 {$ifdef excdebug}
   writeln ('In Popaddrstack');
@@ -161,11 +163,13 @@ begin
     end
   else
     begin
+{$ifndef HAS_ADDR_STACK_ON_STACK}
       hp:=ExceptAddrStack;
       ExceptAddrStack:=ExceptAddrStack^.Next;
-{$ifndef HAS_ADDR_STACK_ON_STACK}
       dispose(hp^.buf);
       dispose(hp);
+{$else HAS_ADDR_STACK_ON_STACK}
+      ExceptAddrStack:=ExceptAddrStack^.Next;
 {$endif HAS_ADDR_STACK_ON_STACK}
     end;
 end;
@@ -269,7 +273,10 @@ begin
 end;
 {
   $Log$
-  Revision 1.5  2001-01-24 21:47:18  florian
+  Revision 1.6  2001-04-13 22:30:04  peter
+    * remove warnings
+
+  Revision 1.5  2001/01/24 21:47:18  florian
     + more MT stuff added
 
   Revision 1.4  2001/01/05 17:35:50  florian

rtl/inc/int64.inc

@@ -31,7 +31,7 @@
          r:=0;
          for i:=0 to 31 do
            begin
-              if (tqwordrec(q).high and (longint($80000000) shr i))<>0 then
+              if (tqwordrec(q).high and (dword($80000000) shr i))<>0 then
                 begin
                    count_leading_zeros:=r;
                    exit;
@@ -40,7 +40,7 @@
            end;
          for i:=0 to 31 do
            begin
-              if (tqwordrec(q).low and (longint($80000000) shr i))<>0 then
+              if (tqwordrec(q).low and (dword($80000000) shr i))<>0 then
                 begin
                    count_leading_zeros:=r;
                    exit;
@@ -296,7 +296,7 @@
               ((q1>q3) or (q2>q3) or
                 { the bit 63 can be only set if we have $80000000 00000000 }
                 { and sign is true                                         }
-                ((tqwordrec(q3).high and longint($80000000))<>0) and
+                ((tqwordrec(q3).high and dword($80000000))<>0) and
                  ((q3<>(qword(1) shl 63)) or not(sign))
                 ) then
                 HandleErrorFrame(215,get_frame);
@@ -450,8 +450,8 @@
       Exit;
     with qwordrec(maxqword) do
       begin
-        l1 := $ffffffff;
-        l2 := $ffffffff;
+        l1 := longint($ffffffff);
+        l2 := longint($ffffffff);
       end;
     while Code<=Length(s) do
      begin
@@ -477,7 +477,10 @@
 
 {
   $Log$
-  Revision 1.8  2001-03-03 12:39:09  jonas
+  Revision 1.9  2001-04-13 22:30:04  peter
+    * remove warnings
+
+  Revision 1.8  2001/03/03 12:39:09  jonas
     * fixed qword_str for values with bit 63 = 1
 
   Revision 1.7  2000/12/10 15:00:14  florian

rtl/inc/objpas.inc

@@ -623,7 +623,7 @@
          if getinterface(iid,obj) then
            result:=0
          else
-           result:=$80004002;
+           result:=longint($80004002);
       end;
 
     function TInterfacedObject._AddRef : longint;stdcall;
@@ -678,7 +678,10 @@
 
 {
   $Log$
-  Revision 1.13  2000-12-20 21:38:23  florian
+  Revision 1.14  2001-04-13 22:30:04  peter
+    * remove warnings
+
+  Revision 1.13  2000/12/20 21:38:23  florian
     * is-operator fixed
 
   Revision 1.12  2000/11/12 23:23:34  florian

rtl/inc/sstrings.inc

@@ -397,7 +397,7 @@ end;
 
 Function ValUnsignedInt(Const S: ShortString; var Code: ValSInt): ValUInt; [public, alias:'FPC_VAL_UINT_SHORTSTR'];
 var
-  u, prev, maxValue: ValUInt;
+  u, prev : ValUInt;
   base : byte;
   negative : boolean;
 begin
@@ -546,7 +546,10 @@ end;
 
 {
   $Log$
-  Revision 1.10  2001-04-13 18:06:28  peter
+  Revision 1.11  2001-04-13 22:30:04  peter
+    * remove warnings
+
+  Revision 1.10  2001/04/13 18:06:28  peter
     * removed rtllite define
 
   Revision 1.9  2001/03/03 12:38:53  jonas