1#include <stdint.h>
2#include <inttypes.h>
3#include <stdlib.h>
4#include <string.h>
5#include <stdio.h>
6#include "../../../none/tests/s390x/opcodes.h"
7
8/* Define various input buffers. */
9
10/* U+0000 to U+007f:  Result is 1 byte for each uint16_t */
11uint16_t pattern1[] = {
12   0x0000, 0x007f,    /* corner cases */
13   0x0047, 0x0056, 0x0045, 0x0021, 0x007b, 0x003a /* misc */
14};
15
16/* U+0080 to U+07ff:  Result is 2 bytes for each uint16_t */
17uint16_t pattern2[] = {
18   0x0080, 0x07ff,    /* corner cases */
19   0x07df, 0x008f, 0x0100, 0x017f, 0x052f, 0x0600, 0x06ff /* misc */
20};
21
22/* U+0800 to U+d7ff:  Result is 3 bytes for each uint16_t
23   U+dc00 to U+ffff:  Result is 3 bytes for each uint16_t */
24uint16_t pattern3[] = {
25   0x0800, 0xd7ff,    /* corner cases */
26   0xdc00, 0xffff,    /* corner cases */
27   0x083f, 0x1a21, 0x1b10, 0x2200, 0x225e, 0x22c9, 0xe001  /* misc */
28};
29
30/* U+d800 to U+dbff:  Result is 4 bytes for each uint16_t pair */
31uint16_t pattern4[] = {
32   0xd800, 0xdc00,    /* left  corner case */
33   0xdbff, 0xdfff,    /* right corner case */
34   0xdada, 0xdddd, 0xdeaf, 0xdcdc  /* misc */
35};
36
37
38void
39do_cu21(uint8_t *dst, uint64_t dst_len, uint16_t *src, uint64_t src_len)
40{
41   /* build up the register pairs */
42   register uint16_t *source     asm("4") = src;
43   register uint64_t  source_len asm("5") = src_len;
44   register uint8_t  *dest       asm("2") = dst;
45   register uint64_t  dest_len   asm("3") = dst_len;
46
47   asm volatile(
48                CU21(0,2,4)
49                : "+d"(dest), "+d"(source), "+d"(source_len), "+d"(dest_len)
50                :
51                : "memory", "cc");
52   return;
53}
54
55int main()
56{
57   /*------------------------------------------------------------*/
58   /* Write to a too small buffer                                */
59   /*------------------------------------------------------------*/
60
61   /* Write 2 bytes into buffer of length 1 */
62   do_cu21(malloc(1), 10, pattern2, 2);             // complaint (2 bytes)
63
64   /* Write 2 bytes into buffer of length 2 */
65   do_cu21(malloc(2), 10, pattern2, 2);             // no complaint
66
67   /* Write 3 bytes into buffer of length 1 */
68   do_cu21(malloc(1), 10, pattern3, 2);             // 2 complaints (3 = 2+1)
69
70   /* Write 3 bytes into buffer of length 2 */
71   do_cu21(malloc(2), 10, pattern3, 2);             // complaint (1 byte)
72
73   /* Write 3 bytes into buffer of length 3 */
74   do_cu21(malloc(3), 10, pattern3, 2);             // no complaint
75
76   /* Write 4 bytes into buffer of length 1 */
77   do_cu21(malloc(1), 10, pattern4, 4);             // complaint (4 bytes)
78
79   /* Write 4 bytes into buffer of length 2 */
80   do_cu21(malloc(2), 10, pattern4, 4);             // complaint (4 bytes)
81
82   /* Write 4 bytes into buffer of length 3 */
83   do_cu21(malloc(3), 10, pattern4, 4);             // complaint (4 bytes)
84
85   /* Write 4 bytes into buffer of length 4 */
86   do_cu21(malloc(4), 10, pattern4, 4);             // no complaint
87
88   /*------------------------------------------------------------*/
89   /* Read uninitialised data                                    */
90   /*------------------------------------------------------------*/
91   uint8_t *input = malloc(10);
92
93   /* Input buffer is completely uninitialised */
94   do_cu21(malloc(4), 4, (void *)input, 2);         // complaint
95
96   /* Read 2 bytes from input buffer. First byte is uninitialised */
97   input = malloc(10);
98   input[1] = 0x0;
99   do_cu21(malloc(4), 4, (void *)input, 2);          // complaint
100
101   /* Read 2 bytes from input buffer. Second byte is uninitialised */
102   input = malloc(10);
103   input[0] = 0x0;
104   do_cu21(malloc(4), 4, (void *)input, 2);          // complaint
105
106   /* Read 2 bytes from input buffer. All bytes are initialised */
107   input = malloc(10);
108   input[0] = input[1] = 0x0;
109   do_cu21(malloc(4), 4, (void *)input, 2);          // no complaint
110
111   /* Read 4 bytes from input buffer. This iterates once. In the 1st
112      iteration all input bytes are initialised in the 2nd iteration all
113      input bytes are uninitialised. */
114   input = malloc(10);
115   input[0] = input[1] = 0x0;
116   do_cu21(malloc(4), 4, (void *)input, 4);          // complaint
117
118   /* Write to NULL */
119   //   do_cu21(NULL, 10, pattern1, sizeof pattern1);    // complaint
120
121   return 0;
122}
123