asm.m4 1.41 KB
Newer Older
1
changequote(<,>)dnl
2
dnl (progn (modify-syntax-entry ?< "(>") (modify-syntax-entry ?> ")<") )
Niels Möller's avatar
Niels Möller committed
3
4

dnl FORTRAN style comment character
5
6
define(<C>, <
dnl>)dnl
Niels Möller's avatar
Niels Möller committed
7

Niels Möller's avatar
Niels Möller committed
8
dnl Including files from the srcdir
9
define(<include_src>, <include(srcdir/$1)>)dnl
Niels Möller's avatar
Niels Möller committed
10

11
12
13
14
15
dnl Pseudo ops

define(<PROLOGUE>,
<ifelse(ELF_STYLE,yes,
<.globl C_NAME($1)
Niels Möller's avatar
Niels Möller committed
16
.type C_NAME($1),TYPE_FUNCTION
17
18
19
20
21
22
23
24
25
C_NAME($1):>,
<.globl C_NAME($1)
C_NAME($1):>)>)

define(<EPILOGUE>,
<ifelse(ELF_STYLE,yes,
<.L$1end:
.size C_NAME($1), .L$1end - C_NAME($1)>,)>)

26
27
28
29
dnl Argument to ALIGN is always logarithmic
dnl Can't use << operator with our choice of quote characters...
define(<ALIGN>,
<.align ifelse(ALIGN_LOG,yes,$1,eval(2 ** $1))>)
30

31
32
33
dnl Struct defining macros

dnl STRUCTURE(prefix) 
34
define(<STRUCTURE>, <define(<SOFFSET>, 0)define(<SPREFIX>, <$1>)>)dnl
35
36

dnl STRUCT(name, size)
37
define(<STRUCT>,
38
<define(SPREFIX<_>$1, SOFFSET)dnl
39
 define(<SOFFSET>, eval(SOFFSET + ($2)))>)dnl
40

41
42
43
dnl UCHAR(name)
define(<UCHAR>, <STRUCT(<$1>, 1)>)dnl

44
dnl UNSIGNED(name)
45
define(<UNSIGNED>, <STRUCT(<$1>, 4)>)dnl
46

47
48
49
50
51
52
dnl Offsets in arcfour_ctx
STRUCTURE(ARCFOUR)
  STRUCT(S, 256)
  UCHAR(I)
  UCHAR(J)

53
dnl Offsets in aes_ctx and aes_table
54
55
56
STRUCTURE(AES)
  STRUCT(KEYS, 4*60)
  UNSIGNED(NROUNDS)
57

58
59
60
define(AES_SBOX_SIZE,	256)dnl
define(AES_TABLE_SIZE,	1024)dnl

Niels Möller's avatar
Niels Möller committed
61
STRUCTURE(AES)
62
63
64
65
66
  STRUCT(SBOX, AES_SBOX_SIZE)
  STRUCT(TABLE0, AES_TABLE_SIZE)
  STRUCT(TABLE1, AES_TABLE_SIZE)
  STRUCT(TABLE2, AES_TABLE_SIZE)
  STRUCT(TABLE3, AES_TABLE_SIZE)