1 // Copyright 2016 The Go Authors. All rights reserved.
2 // Use of this source code is governed by a BSD-style
3 // license that can be found in the LICENSE file.
4
5 //go:build !purego
6
7 #include "textflag.h"
8
9 // func blockS390X(dig *Digest, p []byte)
10 TEXT ·blockS390X(SB), NOSPLIT|NOFRAME, $0-32
11 LMG dig+0(FP), R1, R3 // R2 = &p[0], R3 = len(p)
12 MOVBZ $3, R0 // SHA-512 function code
13
14 loop:
15 KIMD R0, R2 // compute intermediate message digest (KIMD)
16 BVS loop // continue if interrupted
17 RET
18
View as plain text