#! /usr/bin/env perl
+# Copyright 2016-2020 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the OpenSSL license (the "License"). You may not use
+# this file except in compliance with the License. You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
+
#
# ====================================================================
# Written by Andy Polyakov <appro@openssl.org> for the OpenSSL
# if a+b >= modulus, subtract modulus
#
# But since comparison implies subtraction, we subtract
- # modulus and then add it back if subraction borrowed.
+ # modulus and then add it back if subtraction borrowed.
subic $acc0,$acc0,-1
subfe $acc1,$poly1,$acc1
.Loop_scatter_w7:
ldu r0,8($inp)
- stb r0,64*0-1($out)
+ stb r0,64*0($out)
srdi r0,r0,8
- stb r0,64*1-1($out)
+ stb r0,64*1($out)
srdi r0,r0,8
- stb r0,64*2-1($out)
+ stb r0,64*2($out)
srdi r0,r0,8
- stb r0,64*3-1($out)
+ stb r0,64*3($out)
srdi r0,r0,8
- stb r0,64*4-1($out)
+ stb r0,64*4($out)
srdi r0,r0,8
- stb r0,64*5-1($out)
+ stb r0,64*5($out)
srdi r0,r0,8
- stb r0,64*6-1($out)
+ stb r0,64*6($out)
srdi r0,r0,8
- stb r0,64*7-1($out)
+ stb r0,64*7($out)
addi $out,$out,64*8
bdnz .Loop_scatter_w7
print $_,"\n";
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT: $!"; # enforce flush