Commits

doligez  committed cbcad95

add copyright header and fix formatting

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12917f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

  • Participants
  • Parent commits 025c900

Comments (0)

Files changed (1)

File otherlibs/win32unix/times.c

+/***********************************************************************/
+/*                                                                     */
+/*                                OCaml                                */
+/*                                                                     */
+/*                 File contributed by Josh Berdine                    */
+/*                                                                     */
+/*  Copyright 2011 Institut National de Recherche en Informatique et   */
+/*  en Automatique.  All rights reserved.  This file is distributed    */
+/*  under the terms of the GNU Library General Public License, with    */
+/*  the special exception on linking described in file ../../LICENSE.  */
+/*                                                                     */
+/***********************************************************************/
+
 #include "unixsupport.h"
 #include <windows.h>
 #include <mlvalues.h>
 
 
 value unix_times(value unit) {
-
   value res;
   FILETIME creation, exit, stime, utime;
 
-  if (!(GetProcessTimes(GetCurrentProcess(), &creation, &exit, &stime, &utime))) {
+  if (!(GetProcessTimes(GetCurrentProcess(), &creation, &exit, &stime,
+                        &utime))) {
     win32_maperr(GetLastError());
     uerror("times", Nothing);
   }
   Store_double_field(res, 2, 0);
   Store_double_field(res, 3, 0);
   return res;
-
 }