Tweak prev commit again

Make sure errors are propagated from init_meta

libraries/liblmdb/mdb.c

@@ -2949,6 +2949,19 @@ mdb_env_init_meta(MDB_env *env, MDB_meta *meta)
 	MDB_page *p, *q;
 	int rc;
 	unsigned int	 psize;
+#ifdef _WIN32
+	DWORD len;
+	OVERLAPPED ov;
+	memset(&ov, 0, sizeof(ov));
+#define DO_PWRITE(rc, fd, ptr, size, len, pos)	do { \
+	ov.Offset = pos;	\
+	rc = WriteFile(fd, ptr, size, &len, &ov);	} while(0)
+#else
+	int len;
+#define DO_PWRITE(rc, fd, ptr, size, len, pos)	do { \
+	len = pwrite(fd, ptr, size, pos);	\
+	rc = (len >= 0); } while(0)
+#endif
 
 	DPUTS("writing new meta page");
 
@@ -2974,18 +2987,13 @@ mdb_env_init_meta(MDB_env *env, MDB_meta *meta)
 	q->mp_flags = P_META;
 	*(MDB_meta *)METADATA(q) = *meta;
 
-#ifdef _WIN32
+	DO_PWRITE(rc, env->me_fd, p, psize * 2, len, 0);
-	{
+	if (!rc)
-		DWORD len;
+		rc = ErrCode();
-		OVERLAPPED ov;
+	else if (len == psize * 2)
-		memset(&ov, 0, sizeof(ov));
+		rc = MDB_SUCCESS;
-		rc = WriteFile(env->me_fd, p, psize * 2, &len, &ov);
+	else
-		rc = (len == psize * 2) ? MDB_SUCCESS : ErrCode();
+		rc = ENOSPC;
-	}
-#else
-	rc = pwrite(env->me_fd, p, psize * 2, 0);
-	rc = (rc == (int)psize * 2) ? MDB_SUCCESS : ErrCode();
-#endif
 	free(p);
 	return rc;
 }
@@ -4009,11 +4017,11 @@ mdb_env_copyfd(MDB_env *env, HANDLE fd)
 	char *ptr;
 #ifdef _WIN32
 	DWORD len, w2;
-#define DOWRITE(fd, ptr, w2, len)	WriteFile(fd, ptr, w2, &len)
+#define DO_WRITE(rc, fd, ptr, w2, len)	rc = WriteFile(fd, ptr, w2, &len, NULL)
 #else
 	ssize_t len;
 	size_t w2;
-#define DOWRITE(fd, ptr, w2, len)	len = write(fd, ptr, w2)
+#define DO_WRITE(rc, fd, ptr, w2, len)	len = write(fd, ptr, w2); rc = (len >= 0)
 #endif
 
 	/* Do the lock/unlock of the reader mutex before starting the
@@ -4039,22 +4047,21 @@ mdb_env_copyfd(MDB_env *env, HANDLE fd)
 
 	wsize = env->me_psize * 2;
 	ptr = env->me_map;
-	{
+	w2 = wsize;
-		w2 = wsize;
+	while (w2 > 0) {
-		while (w2 > 0) {
+		DO_WRITE(rc, fd, ptr, w2, len);
-			DOWRITE(fd, ptr, w2, len);
+		if (!rc) {
-			if (len > 0) {
+			rc = ErrCode();
-				rc = MDB_SUCCESS;
+			break;
-				ptr += len;
+		} else if (len > 0) {
-				w2 -= len;
+			rc = MDB_SUCCESS;
-				continue;
+			ptr += len;
-			} else {
+			w2 -= len;
-				/* Non-blocking or async handles are not supported */
+			continue;
-				rc = ErrCode();
+		} else {
-				if (!rc)
+			/* Non-blocking or async handles are not supported */
-					rc = EIO;
+			rc = EIO;
-				break;
+			break;
-			}
 		}
 	}
 	if (env->me_txns)
@@ -4069,16 +4076,17 @@ mdb_env_copyfd(MDB_env *env, HANDLE fd)
 			w2 = MAX_WRITE;
 		else
 			w2 = wsize;
-		DOWRITE(fd, ptr, w2, len);
+		DO_WRITE(rc, fd, ptr, w2, len);
-		if (len > 0) {
+		if (!rc) {
+			rc = ErrCode();
+			break;
+		} else if (len > 0) {
 			rc = MDB_SUCCESS;
 			ptr += len;
 			wsize -= len;
 			continue;
 		} else {
-			rc = ErrCode();
+			rc = EIO;
-			if (!rc)
-				rc = EIO;
 			break;
 		}
 	}