l4/pkg/valgrind/src/valgrind-3.6.0-svn/none/tests/s390x/clc.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3
   4 char b1[23] ="0123456789abcdefghijklm";
   5 char b2[23] ="mlkjihgfedcba9876543210";
   6 char b3[23] ="mmmmmmmmmmmmmmmmmmmmmmm";
   7 char b4[23] ="00000000000000000000000";
   8 char longbuf1[256];
   9 char longbuf2[256];
  10
  11 static int clc(char *a1,char *a2, int l)
  12 {
  13         int cc;
  14
  15         asm volatile(   "larl 1, 1f\n"
  16                         "ex %3,0(1)\n"
  17                         "j 2f\n"
  18                         "1: clc 0(1,%1),0(%2)\n"
  19                         "2: ipm %0\n"
  20                         "srl %0,28\n"
  21                 :"=d" (cc)
  22                 :"a" (a1), "a" (a2), "d" (l): "1", "cc");
  23         return cc;
  24 }
  25
  26
  27 void testrun(char *a1, char *a2, int l)
  28 {
  29         int cc;
  30
  31         cc = clc(a1, a2, l);
  32         printf("%d bytes:%d\n",l, cc);
  33 }
  34
  35
  36 void multiplex(int l, long offset1, long offset2)
  37 {
  38         testrun(b1 + offset1, b1 + offset2, l);
  39         testrun(b1 + offset1, b2 + offset2, l);
  40         testrun(b1 + offset1, b3 + offset2, l);
  41         testrun(b1 + offset1, b4 + offset2, l);
  42         testrun(b2 + offset1, b2 + offset2, l);
  43         testrun(b2 + offset1, b3 + offset2, l);
  44         testrun(b2 + offset1, b4 + offset2, l);
  45         testrun(b3 + offset1, b3 + offset2, l);
  46         testrun(b3 + offset1, b4 + offset2, l);
  47         testrun(b4 + offset1, b4 + offset2, l);
  48 }
  49
  50 void sweep(int l)
  51 {
  52         multiplex(l, 0, 0);
  53         multiplex(l, 1, 0);
  54         multiplex(l, 1, 1);
  55         multiplex(l, 0, 1);
  56 }
  57
  58 int main()
  59 {
  60         sweep(0);
  61         sweep(1);
  62         sweep(2);
  63         sweep(3);
  64         sweep(4);
  65         sweep(5);
  66         sweep(22);
  67         testrun(longbuf1, longbuf2, 255);
  68         longbuf1[255] = 'a';
  69         testrun(longbuf1, longbuf2, 255);
  70         longbuf2[255] = 'b';
  71         testrun(longbuf1, longbuf2, 255);
  72         return 0;
  73 }
  74