diff options
Diffstat (limited to 'util/perl/OpenSSL/stackhash.pm')
-rw-r--r-- | util/perl/OpenSSL/stackhash.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/util/perl/OpenSSL/stackhash.pm b/util/perl/OpenSSL/stackhash.pm index d8ca76aa91..21d852eae0 100644 --- a/util/perl/OpenSSL/stackhash.pm +++ b/util/perl/OpenSSL/stackhash.pm @@ -13,7 +13,10 @@ use warnings; require Exporter; our @ISA = qw(Exporter); -our @EXPORT_OK = qw(generate_stack_macros generate_const_stack_macros); +our @EXPORT_OK = qw(generate_stack_macros generate_const_stack_macros + generate_stack_string_macros + generate_stack_const_string_macros + generate_stack_block_macros); sub generate_stack_macros_int { my $nametype = shift; @@ -89,4 +92,16 @@ sub generate_const_stack_macros { return generate_stack_macros_int($type, "const $type", $type); } + +sub generate_stack_string_macros { + return generate_stack_macros_int("OPENSSL_STRING", "char", "char"); +} + +sub generate_stack_const_string_macros { + return generate_stack_macros_int("OPENSSL_CSTRING", "const char", "char"); +} + +sub generate_stack_block_macros { + return generate_stack_macros_int("OPENSSL_BLOCK", "void", "void"); +} 1; |