secur32: Add a loop around gnutls_record_send since it may send a partial record.

dlls/secur32/schannel_gnutls.c

@@ -400,21 +400,23 @@ SECURITY_STATUS schan_imp_send(schan_imp_session session, const void *buffer,
                                SIZE_T *length)
 {
     gnutls_session_t s = (gnutls_session_t)session;
-    ssize_t ret;
-
-again:
-    ret = pgnutls_record_send(s, buffer, *length);
+    ssize_t ret, total = 0;
 
+    for (;;)
+    {
+        ret = pgnutls_record_send(s, (const char *)buffer + total, *length - total);
         if (ret >= 0)
-        *length = ret;
+        {
+            total += ret;
+            TRACE( "sent %d now %d/%ld\n", ret, total, *length );
+            if (total == *length) return SEC_E_OK;
+        }
         else if (ret == GNUTLS_E_AGAIN)
         {
             struct schan_transport *t = (struct schan_transport *)pgnutls_transport_get_ptr(s);
             SIZE_T count = 0;
 
-        if (schan_get_buffer(t, &t->out, &count))
-            goto again;
-
+            if (schan_get_buffer(t, &t->out, &count)) continue;
             return SEC_I_CONTINUE_NEEDED;
         }
         else
@@ -422,8 +424,7 @@ again:
             pgnutls_perror(ret);
             return SEC_E_INTERNAL_ERROR;
         }
-
-    return SEC_E_OK;
+    }
 }
 
 SECURITY_STATUS schan_imp_recv(schan_imp_session session, void *buffer,