From 097e2c78fde687c76233a832125b1abb68e8a1d2 Mon Sep 17 00:00:00 2001 From: Andy Polyakov Date: Tue, 20 Dec 2022 22:41:34 +0100 Subject: [PATCH] cil/keccak1600-cil.pl: simplify declarations. --- cil/keccak1600-cil.pl | 39 +++++++++------------------------------ 1 file changed, 9 insertions(+), 30 deletions(-) diff --git a/cil/keccak1600-cil.pl b/cil/keccak1600-cil.pl index 14d49f8..619ac84 100755 --- a/cil/keccak1600-cil.pl +++ b/cil/keccak1600-cil.pl @@ -193,36 +193,15 @@ sub ROL64 .class public sequential ansi beforefieldinit $class extends [mscorlib]System.Object { - .field private unsigned int64 $A[0][0] - .field private unsigned int64 $A[0][1] - .field private unsigned int64 $A[0][2] - .field private unsigned int64 $A[0][3] - .field private unsigned int64 $A[0][4] - - .field private unsigned int64 $A[1][0] - .field private unsigned int64 $A[1][1] - .field private unsigned int64 $A[1][2] - .field private unsigned int64 $A[1][3] - .field private unsigned int64 $A[1][4] - - .field private unsigned int64 $A[2][0] - .field private unsigned int64 $A[2][1] - .field private unsigned int64 $A[2][2] - .field private unsigned int64 $A[2][3] - .field private unsigned int64 $A[2][4] - - .field private unsigned int64 $A[3][0] - .field private unsigned int64 $A[3][1] - .field private unsigned int64 $A[3][2] - .field private unsigned int64 $A[3][3] - .field private unsigned int64 $A[3][4] - - .field private unsigned int64 $A[4][0] - .field private unsigned int64 $A[4][1] - .field private unsigned int64 $A[4][2] - .field private unsigned int64 $A[4][3] - .field private unsigned int64 $A[4][4] - +___ +for (my $i=0; $i<5; $i++) { + for (my $j=0; $j<5; $j++) { +$code.=<<___; + .field private unsigned int64 $A[$i][$j] +___ + } +} +$code.=<<___; .field private static valuetype Keccak1600.Iotas iotas32 at iotas32 .field private static valuetype Keccak1600.Iotas iotas64 at iotas64