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  static int
       9  arch_set_error(struct tcb *tcp)
      10  {
      11  	return upoke(tcp, REG_A3, (alpha_a3 = 1))
      12  	       || upoke(tcp, REG_R0, (alpha_r0 = tcp->u_error));
      13  }
      14  
      15  static int
      16  arch_set_success(struct tcb *tcp)
      17  {
      18  	return upoke(tcp, REG_A3, (alpha_a3 = 0))
      19  	       || upoke(tcp, REG_R0, (alpha_r0 = tcp->u_rval));
      20  }