File: tst.struct-padding.d

package info (click to toggle)
dtrace 2.0.5-1
  • links: PTS
  • area: main
  • in suites: sid
  • size: 24,408 kB
  • sloc: ansic: 61,247; sh: 17,997; asm: 1,717; lex: 947; awk: 754; yacc: 695; perl: 37; sed: 17; makefile: 15
file content (38 lines) | stat: -rw-r--r-- 1,348 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
/*
 * Oracle Linux DTrace.
 * Copyright (c) 2018, 2020, 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.
 */
/* @@xfail: dtv2 */

/*
 * ASSERTION:
 *   Statically verify that structure padding is correct by checking the
 *   values of statically-inserted structure array elements.
 *
 * SECTION: Structs and Unions/Structs
 */

#pragma D option quiet

BEGIN
{
	printf("int = %i/%i, %i/%i\n",
	       dt_test`intish[0].foo, dt_test`intish[0].bar,
	       dt_test`intish[1].foo, dt_test`intish[1].bar);
	printf("long = %li/%i, %li/%i\n",
	       dt_test`longish[0].foo, dt_test`longish[0].bar,
	       dt_test`longish[1].foo, dt_test`longish[1].bar);
	printf("long long = %lli/%li, %lli/%li\n",
	       dt_test`longlongish[0].foo, dt_test`longlongish[0].bar,
	       dt_test`longlongish[1].foo, dt_test`longlongish[1].bar);
	printf("scatter_failure = %i/%i/%i/%i/%i, %i/%i/%i/%i/%i\n",
	       dt_test`scatter_failure[0].a, dt_test`scatter_failure[0].b,
	       dt_test`scatter_failure[0].c, dt_test`scatter_failure[0].d,
	       dt_test`scatter_failure[0].e, dt_test`scatter_failure[1].a,
	       dt_test`scatter_failure[1].b, dt_test`scatter_failure[1].c,
	       dt_test`scatter_failure[1].d, dt_test`scatter_failure[1].e);

	exit(0);
}