1  /*
       2   * Copyright (c) 2016-2021 The strace developers.
       3   * All rights reserved.
       4   *
       5   * SPDX-License-Identifier: LGPL-2.1-or-later
       6   */
       7  
       8  #define arch_set_error s390_set_error
       9  #define arch_set_success s390_set_success
      10  #define ARCH_REGSET s390_regset
      11  #include "../s390/set_error.c"
      12  #undef ARCH_REGSET
      13  #undef arch_set_success
      14  #undef arch_set_error
      15  
      16  #define arch_set_error s390x_set_error
      17  #define arch_set_success s390x_set_success
      18  #define ARCH_REGSET s390x_regset
      19  #include "../s390/set_error.c"
      20  #undef ARCH_REGSET
      21  #undef arch_set_success
      22  #undef arch_set_error
      23  
      24  static int
      25  arch_set_error(struct tcb *tcp)
      26  {
      27  	if (tcp->currpers == 1)
      28  		return s390_set_error(tcp);
      29  	else
      30  		return s390x_set_error(tcp);
      31  }
      32  
      33  static int
      34  arch_set_success(struct tcb *tcp)
      35  {
      36  	if (tcp->currpers == 1)
      37  		return s390_set_success(tcp);
      38  	else
      39  		return s390x_set_success(tcp);
      40  }