* Fixed warnings.

git-svn-id: trunk@9514 -

rtl/i386/mathu.inc

@@ -49,7 +49,7 @@ function cotan(x : float) : float;assembler;
   asm
     fldt X
     fptan
-    fdivp
+    fdivp %st,%st(1)
     fwait
   end;
 

rtl/objpas/typinfo.pp

@@ -1395,7 +1395,7 @@ begin
           PComp(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=trunc(Value);
 {$else FPC_COMP_IS_INT64}
         ftComp:
-          PComp(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=Value;
+          PComp(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=Comp(Value);
 {$endif FPC_COMP_IS_INT64}
         ftCurr:
           PCurrency(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=Value;

rtl/win/mouse.pp

@@ -158,7 +158,7 @@ begin
   EnterCriticalSection(ChangeMouseEvents);
   MouseEvent:=PendingMouseHead^;
   inc(PendingMouseHead);
-  if ptrint(PendingMouseHead)=ptrint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
+  if ptruint(PendingMouseHead)=ptruint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
    PendingMouseHead:=@PendingMouseEvent[0];
   dec(PendingMouseEvents);
 
@@ -205,7 +205,7 @@ begin
    begin
      PendingMouseTail^:=MouseEvent;
      inc(PendingMouseTail);
-     if ptrint(PendingMouseTail)=ptrint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
+     if ptruint(PendingMouseTail)=ptruint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
       PendingMouseTail:=@PendingMouseEvent[0];
       { why isn't this done here ?
         so the win32 version do this by hand:}

rtl/win32/classes.pp

@@ -180,6 +180,7 @@ function AllocateHWnd(Method: TWndMethod): HWND;
   begin
     { dummy }
     runerror(217);
+    Result:=0;
   end;