[DTrace-devel] [PATCH 1/2] test: Add test for option "iregs"
eugene.loh at oracle.com
eugene.loh at oracle.com
Thu Mar 9 16:51:53 UTC 2023
From: Eugene Loh <eugene.loh at oracle.com>
Signed-off-by: Eugene Loh <eugene.loh at oracle.com>
---
test/unittest/options/tst.iregs.r | 25 +++++++++++++++++++++++++
test/unittest/options/tst.iregs.sh | 21 +++++++++++++++++++++
2 files changed, 46 insertions(+)
create mode 100644 test/unittest/options/tst.iregs.r
create mode 100755 test/unittest/options/tst.iregs.sh
diff --git a/test/unittest/options/tst.iregs.r b/test/unittest/options/tst.iregs.r
new file mode 100644
index 00000000..4926b28d
--- /dev/null
+++ b/test/unittest/options/tst.iregs.r
@@ -0,0 +1,25 @@
+7
+iregs 8 gives 0
+7
+iregs 7 gives 0
+7
+iregs 6 gives 0
+iregs 5 gives 1
+iregs 4 gives 1
+iregs 3 gives 1
+-- @@stderr --
+dtrace: invalid probe specifier BEGIN {
+ a = b = c = d = e = f = g = h = i = j = k = l = 1;
+ trace(a + b * (c + d * (e + f * (g + h * (i + j * (k + l))))));
+ exit(0);
+ }: Insufficient registers to generate code
+dtrace: invalid probe specifier BEGIN {
+ a = b = c = d = e = f = g = h = i = j = k = l = 1;
+ trace(a + b * (c + d * (e + f * (g + h * (i + j * (k + l))))));
+ exit(0);
+ }: Insufficient registers to generate code
+dtrace: invalid probe specifier BEGIN {
+ a = b = c = d = e = f = g = h = i = j = k = l = 1;
+ trace(a + b * (c + d * (e + f * (g + h * (i + j * (k + l))))));
+ exit(0);
+ }: Insufficient registers to generate code
diff --git a/test/unittest/options/tst.iregs.sh b/test/unittest/options/tst.iregs.sh
new file mode 100755
index 00000000..20819bbc
--- /dev/null
+++ b/test/unittest/options/tst.iregs.sh
@@ -0,0 +1,21 @@
+#!/bin/bash
+#
+# Oracle Linux DTrace.
+# Copyright (c) 2023, Oracle and/or its affiliates. All rights reserved.
+# Licensed under the Universal Permissive License v 1.0 as shown at
+# http://oss.oracle.com/licenses/upl.
+#
+
+dtrace=$1
+
+# once n becomes too small, there are insufficient registers
+for n in 8 7 6 5 4 3; do
+
+ $dtrace -xiregs=$n -qn 'BEGIN {
+ a = b = c = d = e = f = g = h = i = j = k = l = 1;
+ trace(a + b * (c + d * (e + f * (g + h * (i + j * (k + l))))));
+ exit(0);
+ }'
+
+ echo "iregs $n gives $?"
+done
--
2.18.4
More information about the DTrace-devel
mailing list