Changeset 53652 in vbox for trunk/src/VBox/ExtPacks/VBoxDTrace/onnv/lib/libdtrace/common/dt_open.c

Timestamp:

Jan 2, 2015 12:19:17 PM (10 years ago)

Author:

vboxsync

Message:

VBoxDTrace: porting libdtrace... (r22)

File:

• trunk/src/VBox/ExtPacks/VBoxDTrace/onnv/lib/libdtrace/common/dt_open.c (modified) (15 diffs)

trunk/src/VBox/ExtPacks/VBoxDTrace/onnv/lib/libdtrace/common/dt_open.c

@@ -24 +24 @@
  */
 
+#ifndef VBOX
 #include <sys/types.h>
 #include <sys/modctl.h>
 #include <sys/systeminfo.h>
-#include <sys/resource.h>
 
 #include <libelf.h>
@@ -40 +40 @@
 #include <assert.h>
 
-#define _POSIX_PTHREAD_SEMANTICS
-#include <dirent.h>
-#undef  _POSIX_PTHREAD_SEMANTICS
+#ifndef _MSC_VER
+# define        _POSIX_PTHREAD_SEMANTICS
+# include <dirent.h>
+# undef _POSIX_PTHREAD_SEMANTICS
+#endif
+
+#else  /* VBOX */
+# ifndef _MSC_VER
+# include <sys/resource.h>
+# include <unistd.h>
+# else
+# include <io.h>
+# endif
+#endif /* VBOX */
 
 #include <dt_impl.h>
@@ -662 +673 @@
 int _dtrace_debug = 0;          /* debug messages enabled (off) */
 const char *const _dtrace_version = DT_VERS_STRING; /* API version string */
+#ifndef VBOX
 int _dtrace_rdvers = RD_VERSION; /* rtld_db feature version */
+#endif
 
 typedef struct dt_fdlist {
@@ -670 +683 @@
 } dt_fdlist_t;
 
+
+#ifdef VBOX
+# include <iprt/critsect.h>
+extern RTCRITSECT dt_qsort_lock; /* dt_aggregate.c */
+
+void dtrace_init(void)
+#else  /* !VBOX */
 #pragma init(_dtrace_init)
 void
 _dtrace_init(void)
+#endif /* !VBOX */
 {
         _dtrace_debug = getenv("DTRACE_DEBUG") != NULL;
 
+#ifndef VBOX
         for (; _dtrace_rdvers > 0; _dtrace_rdvers--) {
                 if (rd_init(_dtrace_rdvers) == RD_OK)
                         break;
         }
+#else
+        RTCritSectInit(&dt_qsort_lock);
+#endif
 }
 
@@ -692 +717 @@
 }
 
+#ifndef VBOX
 static void
 dt_provmod_open(dt_provmod_t **provmod, dt_fdlist_t *dfp)
@@ -745 +771 @@
         (void) closedir(dirp);
 }
+#endif /* !VBOX */
 
 static void
@@ -763 +790 @@
 dt_get_sysinfo(int cmd, char *buf, size_t len)
 {
+#ifndef VBOX
         ssize_t rv = sysinfo(cmd, buf, len);
         char *p = buf;
@@ -771 +799 @@
         while ((p = strchr(p, '.')) != NULL)
                 *p++ = '_';
-
+#else
+        snprintf(buf, len, "%s", "Unknown");
+#endif
         return (buf);
 }
@@ -785 +815 @@
         dt_provmod_t *provmod = NULL;
         int i, err;
+#ifndef _MSC_VER
         struct rlimit rl;
+#endif
 
         const dt_intrinsic_t *dinp;
@@ -795 +827 @@
         ctf_arinfo_t ctr;
 
+#ifndef VBOX
         dt_fdlist_t df = { NULL, 0, 0 };
+#endif
 
         char isadef[32], utsdef[32];
+#ifndef VBOX
         char s1[64], s2[64];
+#endif
 
         if (version <= 0)
@@ -830 +866 @@
                 return (set_open_errno(dtp, errp, EINVAL));
 
+#ifndef VBOX
         if (elf_version(EV_CURRENT) == EV_NONE)
                 return (set_open_errno(dtp, errp, EDT_ELFVERSION));
+#endif
 
         if (vector != NULL || (flags & DTRACE_O_NODEV))
                 goto alloc; /* do not attempt to open dtrace device */
 
+#ifndef _MSC_VER
         /*
          * Before we get going, crank our limit on file descriptors up to the
@@ -848 +887 @@
                 (void) setrlimit(RLIMIT_NOFILE, &rl);
         }
-
+#endif
+
+#ifndef VBOX
         /*
          * Get the device path of each of the providers.  We hold them open
@@ -892 +933 @@
         (void) fcntl(dtfd, F_SETFD, FD_CLOEXEC);
         (void) fcntl(ftfd, F_SETFD, FD_CLOEXEC);
+#else  /* VBOX */
+        /** @todo open ring-0 dtrace module. */
+#endif /* VBOX */
 
 alloc:
@@ -926 +970 @@
         dtp->dt_varg = arg;
         dt_dof_init(dtp);
+#ifndef VBOX
         (void) uname(&dtp->dt_uts);
+#endif
 
         if (dtp->dt_mods == NULL || dtp->dt_provs == NULL ||
@@ -941 +987 @@
             (uint_t)(sizeof (void *) * NBBY));
 
+#ifndef VBOX
         (void) snprintf(utsdef, sizeof (utsdef), "-D__%s_%s",
             dt_get_sysinfo(SI_SYSNAME, s1, sizeof (s1)),
             dt_get_sysinfo(SI_RELEASE, s2, sizeof (s2)));
+#endif
 
         if (dt_cpp_add_arg(dtp, "-D__sun") == NULL ||