File libgcrypt-fips_rsa_p_less_than_q.patch of Package libgcrypt.7109

Index: libgcrypt-1.6.1/cipher/rsa.c
===================================================================
--- libgcrypt-1.6.1.orig/cipher/rsa.c	2015-05-26 23:07:41.875709148 +0200
+++ libgcrypt-1.6.1/cipher/rsa.c	2015-05-26 23:08:12.509147293 +0200
@@ -577,12 +577,12 @@ retry:
         }
       if (mpi_cmp (p, q) < 0)
         {
-          pqswitch = 1;
+          pqswitch = 0;
           mpi_sub (diff, q, p);
         }
       else
         {
-          pqswitch = 0;
+          pqswitch = 1;
           mpi_sub (diff, p, q);
         }
       if (mpi_cmp (diff, mindiff) < 0)