diff options
| author | Ulf Möller <ulf@openssl.org> | 1999-04-19 23:31:43 +0200 |
|---|---|---|
| committer | Ulf Möller <ulf@openssl.org> | 1999-04-19 23:31:43 +0200 |
| commit | 6b691a5c85ddc4e407e32781841fee5c029506cd (patch) | |
| tree | 436f1127406e1cacfe83dfcbfff824d89c47d834 /perl | |
| parent | Finish off support for Certificate Policies extension. (diff) | |
| download | openssl-6b691a5c85ddc4e407e32781841fee5c029506cd.tar.xz openssl-6b691a5c85ddc4e407e32781841fee5c029506cd.zip | |
Change functions to ANSI C.
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/openssl_cb.c | 24 |
1 files changed, 6 insertions, 18 deletions
diff --git a/perl/openssl_cb.c b/perl/openssl_cb.c index c093ae0bd6..7a880d97ae 100644 --- a/perl/openssl_cb.c +++ b/perl/openssl_cb.c @@ -55,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) @@ -69,13 +67,8 @@ 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; @@ -86,13 +79,8 @@ fprintf(stderr,"ex_new idx=%d %08X %s\n",idx,obj,argp); 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); |