Import of old SSLeay release: SSLeay 0.9.0b

[openssl.git] / crypto / dsa / dsagen.c

diff --git a/crypto/dsa/dsagen.c b/crypto/dsa/dsagen.c
index 3422d877f4136438f4f46497786a79a8985d8ebe..20335de250651cf60acc0af2c1fdd8026db55f95 100644 (file)
--- a/crypto/dsa/dsagen.c
+++ b/crypto/dsa/dsagen.c
@@ -1,5 +1,5 @@
 /* crypto/dsa/dsagen.c */
-/* Copyright (C) 1995-1997 Eric Young (eay@cryptsoft.com)
+/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
  * All rights reserved.
  *
  * This package is an SSL implementation written
@@ -98,8 +98,15 @@ main()
        unsigned char seed_buf[20];
        DSA *dsa;
        int counter,h;
+       BIO *bio_err=NULL;
+
+       if (bio_err == NULL)
+               bio_err=BIO_new_fp(stderr,BIO_NOCLOSE);
 
        memcpy(seed_buf,seed,20);
-       dsa=DSA_generate_key(1024,seed,20,&counter,&h,cb);
+       dsa=DSA_generate_parameters(1024,seed,20,&counter,&h,cb);
+
+       if (dsa == NULL)
+               DSA_print(bio_err,dsa,0);
        }