OSDN Git Service

Fix 4 execute/va-arg-26.c gcc testsuite failures.
[pf3gnuchains/gcc-fork.git] / gcc / ada / mkdir.c
index a273d23..ce08d9a 100644 (file)
@@ -4,11 +4,9 @@
  *                                                                          *
  *                                 M K D I R                                *
  *                                                                          *
- *                            $Revision: 1.1 $
- *                                                                          *
  *                          C Implementation File                           *
  *                                                                          *
- *            Copyright (C) 2002, Free Software Foundation, Inc.            *
+ *             Copyright (C) 2002-2003, Free Software Foundation, Inc.      *
  *                                                                          *
  * GNAT is free software;  you can  redistribute it  and/or modify it under *
  * terms of the  GNU General Public License as published  by the Free Soft- *
  * file might be covered by the  GNU Public License.                        *
  *                                                                          *
  * GNAT was originally developed  by the GNAT team at  New York University. *
- * It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). *
+ * Extensive contributions were provided by Ada Core Technologies Inc.      *
  *                                                                          *
  ****************************************************************************/
 
-/*  This file provides a portable binding to the mkdir() function           */
-
 #ifdef __vxworks
 #include "vxWorks.h"
 #endif /* __vxworks */
 
-#include <sys/types.h>
+#ifdef IN_RTS
+#include "tconfig.h"
+#include "tsystem.h"
 #include <sys/stat.h>
+#else
+#include "config.h"
+#include "system.h"
+#endif
+
+#include "adaint.h"
+
+/*  This function provides a portable binding to the mkdir function.  */
 
 int
-__gnat_mkdir (dir_name)
-     char *dir_name;
+__gnat_mkdir (char *dir_name)
 {
 #if defined (_WIN32) || defined (__vxworks)
   return mkdir (dir_name);