Bläddra i källkod

* conversion from boolean to longint must be explicit

pierre 26 år sedan
förälder
incheckning
28e8e7951d
1 ändrade filer med 5 tillägg och 2 borttagningar
  1. 5 2
      rtl/win32/defines.pp

+ 5 - 2
rtl/win32/defines.pp

@@ -5645,7 +5645,7 @@ unit defines;
   function GET_WM_MDIACTIVATE_FACTIVATE(h,a,b : longint) : longint;
   function GET_WM_MDIACTIVATE_FACTIVATE(h,a,b : longint) : longint;
     { return type might be wrong }
     { return type might be wrong }
     begin
     begin
-       GET_WM_MDIACTIVATE_FACTIVATE:=b = (LONG(h));
+       GET_WM_MDIACTIVATE_FACTIVATE:=longint(b = LONG(h));
     end;
     end;
 
 
   { was #define dname(params) def_expr }
   { was #define dname(params) def_expr }
@@ -5718,7 +5718,10 @@ end.
 {$endif not windows_include_files}
 {$endif not windows_include_files}
 {
 {
   $Log$
   $Log$
-  Revision 1.7  1998-11-12 11:41:05  peter
+  Revision 1.8  1999-01-28 18:24:29  pierre
+   * conversion from boolean to longint must be explicit
+
+  Revision 1.7  1998/11/12 11:41:05  peter
     + pascal type aliases
     + pascal type aliases
 
 
   Revision 1.6  1998/10/27 11:17:12  peter
   Revision 1.6  1998/10/27 11:17:12  peter