sha3_s390x.s

// Copyright 2017 The Go Authors. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

//+build !gccgo,!appengine

#include "textflag.h"

TEXT ·hasMSA6(SB), NOSPLIT, $16-1
	MOVD $0, R0          // KIMD-Query function code
	MOVD $tmp-16(SP), R1 // parameter block
	XC   $16, (R1), (R1) // clear the parameter block
	WORD $0xB93E0002     // KIMD --, --
	WORD $0x91FC1004     // TM 4(R1), 0xFC (test bits [32-37])
	BVS  yes

no:
	MOVB $0, ret+0(FP)
	RET

yes:
	MOVB $1, ret+0(FP)
	RET

// func kimd(function code, params *[200]byte, src []byte)
TEXT ·kimd(SB), NOFRAME|NOSPLIT, $0-40
	MOVD function+0(FP), R0
	MOVD params+8(FP), R1
	LMG  src+16(FP), R2, R3 // R2=base, R3=len

continue:
	WORD $0xB93E0002 // KIMD --, R2
	BVS  continue    // continue if interrupted
	MOVD $0, R0      // reset R0 for pre-go1.8 compilers
	RET

// func klmd(function code, params *[200]byte, dst, src []byte)
TEXT ·klmd(SB), NOFRAME|NOSPLIT, $0-64
	// TODO: SHAKE support
	MOVD function+0(FP), R0
	MOVD params+8(FP), R1
	LMG  dst+16(FP), R2, R3 // R2=base, R3=len
	LMG  src+40(FP), R4, R5 // R4=base, R5=len

continue:
	WORD $0xB93F0024 // KLMD R2, R4
	BVS  continue    // continue if interrupted
	MOVD $0, R0      // reset R0 for pre-go1.8 compilers
	RET