|
@@ -1,5 +1,5 @@
|
|
|
#! /usr/bin/env perl
|
|
|
-# Copyright 1999-2021 The OpenSSL Project Authors. All Rights Reserved.
|
|
|
+# Copyright 1999-2022 The OpenSSL Project Authors. All Rights Reserved.
|
|
|
#
|
|
|
# Licensed under the Apache License 2.0 (the "License"). You may not use
|
|
|
# this file except in compliance with the License. You can obtain a copy
|
|
@@ -450,6 +450,7 @@ EOF
|
|
|
} else {
|
|
|
print OUT <<"EOF";
|
|
|
# define ${lib}err(f, r) ERR_${lib}_error(0, (r), OPENSSL_FILE, OPENSSL_LINE)
|
|
|
+# define ERR_R_${lib}_LIB ERR_${lib}_lib()
|
|
|
|
|
|
EOF
|
|
|
if ( ! $static ) {
|
|
@@ -629,6 +630,13 @@ ${st}void ERR_${lib}_error(int function, int reason, const char *file, int line)
|
|
|
ERR_raise(lib_code, reason);
|
|
|
ERR_set_debug(file, line, NULL);
|
|
|
}
|
|
|
+
|
|
|
+${st}int ERR_${lib}_lib(void)
|
|
|
+{
|
|
|
+ if (lib_code == 0)
|
|
|
+ lib_code = ERR_get_next_error_library();
|
|
|
+ return lib_code;
|
|
|
+}
|
|
|
EOF
|
|
|
|
|
|
}
|