4474 DTrace Userland CTF Support
4475 DTrace userland Keyword
4476 DTrace tests should be better citizens
4479 pid provider types
4480 dof emulation missing checks
Reviewed by: Bryan Cantrill <bryan@joyent.com>

          --- old/usr/src/cmd/dtrace/test/tst/common/pid/tst.provregex2.ksh
          +++ new/usr/src/cmd/dtrace/test/tst/common/pid/tst.provregex2.ksh

   1    1  #!/bin/ksh -p
   2    2  #
   3    3  # CDDL HEADER START
   4    4  #
   5    5  # The contents of this file are subject to the terms of the
   6    6  # Common Development and Distribution License (the "License").
   7    7  # You may not use this file except in compliance with the License.
   8    8  #
   9    9  # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10   10  # or http://www.opensolaris.org/os/licensing.
  11   11  # See the License for the specific language governing permissions
  12   12  # and limitations under the License.
  13   13  #
  14   14  # When distributing Covered Code, include this CDDL HEADER in each
  15   15  # file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16   16  # If applicable, add the following below this CDDL HEADER, with the
  17   17  # fields enclosed by brackets "[]" replaced with your own identifying
  18   18  # information: Portions Copyright [yyyy] [name of copyright owner]
  19   19  #
  20   20  # CDDL HEADER END
  21   21  #
  22   22  
  23   23  #
  24   24  # Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
  25   25  # Use is subject to license terms.
  26   26  #
  27   27  
  28   28  #
  29   29  # This test verifies that probes will be picked up after a dlopen(3C)
  30   30  # when the pid provider is specified as a glob (e.g., p*d$target.)
  31   31  #
  32   32  
  33   33  if [ $# != 1 ]; then
  34   34          echo expected one argument: '<'dtrace-path'>'
  35   35          exit 2
  36   36  fi
  37   37  

  38   38  dtrace=$1
  39   39  DIR=${TMPDIR:-/tmp}/dtest.$$
  40   40  
  41   41  mkdir $DIR
  42   42  cd $DIR
  43   43  
  44   44  cat > Makefile <<EOF
  45   45  all: main altlib.so
  46   46  
  47   47  main: main.o
  48      -        gcc -o main main.o
       48 +        gcc -m32 -o main main.o
  49   49  
  50   50  main.o: main.c
  51      -        gcc -c main.c
       51 +        gcc -m32 -c main.c
  52   52  
  53   53  altlib.so: altlib.o
  54      -        gcc -shared -o altlib.so altlib.o -lc
       54 +        gcc -m32 -shared -o altlib.so altlib.o -lc
  55   55  
  56   56  altlib.o: altlib.c
  57      -        gcc -c altlib.c
       57 +        gcc -m32 -fPIC -c altlib.c
  58   58  EOF
  59   59  
  60   60  cat > altlib.c <<EOF
  61   61  void
  62   62  go(void)
  63   63  {
  64   64  }
  65   65  EOF
  66   66  
  67   67  cat > main.c <<EOF

  68   68  #include <dlfcn.h>
  69   69  #include <unistd.h>
  70   70  #include <stdio.h>
  71   71  
  72   72  void
  73   73  go(void)
  74   74  {
  75   75  }
  76   76  
  77   77  int
  78   78  main(int argc, char **argv)
  79   79  {
  80   80          void *alt;
  81   81          void *alt_go;
  82   82  
  83   83          go();
  84   84  
  85   85          if ((alt = dlopen("./altlib.so", RTLD_LAZY | RTLD_LOCAL)) 
  86   86              == NULL) {
  87   87                  printf("dlopen of altlib.so failed: %s\n", dlerror());
  88   88                  return (1);
  89   89          }
  90   90  
  91   91          if ((alt_go = dlsym(alt, "go")) == NULL) {
  92   92                  printf("failed to lookup 'go' in altlib.so\n");
  93   93                  return (1);
  94   94          }
  95   95  
  96   96          ((void (*)(void))alt_go)();
  97   97  
  98   98          return (0);
  99   99  }
 100  100  EOF
 101  101  
 102  102  make > /dev/null
 103  103  if [ $? -ne 0 ]; then
 104  104          print -u2 "failed to build"
 105  105          exit 1
 106  106  fi
 107  107  
 108  108  cat > main.d <<'EOF'
 109  109  p*d$target::go:entry
 110  110  {
 111  111          @foo[probemod, probefunc, probename] = count();
 112  112  }
 113  113  
 114  114  END
 115  115  {
 116  116          printa("%s:%s:%s %@u\n",@foo);
 117  117  }
 118  118  EOF
 119  119  
 120  120  script() {
 121  121          $dtrace -q -s ./main.d -c ./main
 122  122  }
 123  123  
 124  124  script
 125  125  status=$?
 126  126  
 127  127  cd /tmp
 128  128  /usr/bin/rm -rf $DIR
 129  129  
 130  130  exit $status

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX