projects
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
"make update"
[openssl.git]
/
perl
/
openssl_cb.c
diff --git
a/perl/openssl_cb.c
b/perl/openssl_cb.c
index 01840abc854a48fcda8eeadfb6ceff750ff3539c..7a880d97ae3d0303f27d469b1450a05663303b84 100644
(file)
--- a/
perl/openssl_cb.c
+++ b/
perl/openssl_cb.c
@@
-1,4
+1,3
@@
-/* perl/callback.c */
/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
* All rights reserved.
*
/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
* All rights reserved.
*
@@
-56,10
+55,8
@@
* [including the GNU Public Licence.]
*/
* [including the GNU Public Licence.]
*/
-SV *new_ref(type,obj,mort)
-char *type;
-char *obj;
- {
+SV *new_ref(char *type, char *obj, int mort)
+{
SV *ret;
if (mort)
SV *ret;
if (mort)
@@
-70,30
+67,20
@@
char *obj;
return(ret);
}
return(ret);
}
-int ex_new(obj,data,ad,idx,argl,argp)
-char *obj;
-SV *data;
-CRYPTO_EX_DATA *ad;
-int idx;
-long argl;
-char *argp;
+int ex_new(char *obj, SV *data, CRYPTO_EX_DATA *ad, int idx, long argl,
+ char *argp)
{
SV *sv;
{
SV *sv;
-fprintf(stderr,"ex_new
%08X %s\n"
,obj,argp);
+fprintf(stderr,"ex_new
idx=%d %08X %s\n",idx
,obj,argp);
sv=sv_newmortal();
sv_setref_pv(sv,argp,(void *)obj);
CRYPTO_set_ex_data(ad,idx,(char *)sv);
return(1);
}
sv=sv_newmortal();
sv_setref_pv(sv,argp,(void *)obj);
CRYPTO_set_ex_data(ad,idx,(char *)sv);
return(1);
}
-void ex_cleanup(obj,data,ad,idx,argl,argp)
-char *obj;
-SV *data;
-CRYPTO_EX_DATA *ad;
-int idx;
-long argl;
-char *argp;
+void ex_cleanup(char *obj, SV *data, CRYPTO_EX_DATA *ad, int idx, long argl,
+ char *argp)
{
pr_name("ex_cleanup");
fprintf(stderr,"ex_cleanup %08X %s\n",obj,argp);
{
pr_name("ex_cleanup");
fprintf(stderr,"ex_cleanup %08X %s\n",obj,argp);