target/s390x/crypto_helper.c

   1 /*
   2  *  s390x crypto helpers
   3  *
   4  *  Copyright (c) 2017 Red Hat Inc
   5  *
   6  *  Authors:
   7  *   David Hildenbrand <david@redhat.com>
   8  *
   9  * This work is licensed under the terms of the GNU GPL, version 2 or later.
  10  * See the COPYING file in the top-level directory.
  11  */
  12
  13 #include "qemu/osdep.h"
  14 #include "qemu/main-loop.h"
  15 #include "internal.h"
  16 #include "exec/helper-proto.h"
  17 #include "exec/exec-all.h"
  18 #include "exec/cpu_ldst.h"
  19
  20 uint32_t HELPER(msa)(CPUS390XState *env, uint32_t r1, uint32_t r2, uint32_t r3,
  21                      uint32_t type)
  22 {
  23     const uintptr_t ra = GETPC();
  24     const uint8_t mod = env->regs[0] & 0x80ULL;
  25     const uint8_t fc = env->regs[0] & 0x7fULL;
  26     CPUState *cs = CPU(s390_env_get_cpu(env));
  27     uint8_t subfunc[16] = { 0 };
  28     uint64_t param_addr;
  29     int i;
  30
  31     switch (type) {
  32     case S390_FEAT_TYPE_KMAC:
  33     case S390_FEAT_TYPE_KIMD:
  34     case S390_FEAT_TYPE_KLMD:
  35     case S390_FEAT_TYPE_PCKMO:
  36     case S390_FEAT_TYPE_PCC:
  37         if (mod) {
  38             cpu_restore_state(cs, ra);
  39             program_interrupt(env, PGM_SPECIFICATION, 4);
  40             return 0;
  41         }
  42         break;
  43     }
  44
  45     s390_get_feat_block(type, subfunc);
  46     if (!test_be_bit(fc, subfunc)) {
  47         cpu_restore_state(cs, ra);
  48         program_interrupt(env, PGM_SPECIFICATION, 4);
  49         return 0;
  50     }
  51
  52     switch (fc) {
  53     case 0: /* query subfunction */
  54         for (i = 0; i < 16; i++) {
  55             param_addr = wrap_address(env, env->regs[1] + i);
  56             cpu_stb_data_ra(env, param_addr, subfunc[i], ra);
  57         }
  58         break;
  59     default:
  60         /* we don't implement any other subfunction yet */
  61         g_assert_not_reached();
  62     }
  63
  64     return 0;
  65 }