X-Git-Url: https://git.openssl.org/?p=openssl.git;a=blobdiff_plain;f=perl%2Fopenssl_cb.c;h=7a880d97ae3d0303f27d469b1450a05663303b84;hp=01840abc854a48fcda8eeadfb6ceff750ff3539c;hb=9209c9fc1a8e0228543a5e7011c7ad3fdfe89e27;hpb=58964a492275ca9a59a0cd9c8155cb2491b4b909;ds=sidebyside

diff --git a/perl/openssl_cb.c b/perl/openssl_cb.c
index 01840abc85..7a880d97ae 100644
--- 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.
  *
@@ -56,10 +55,8 @@
  * [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)
@@ -70,30 +67,20 @@ char *obj;
 	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;
 
-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);
 	}
 
-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);