FIX: using read with a wildcard path without any result was throwin…

…g an error on macOS instead of an empty block
Oldes · Jan 31, 2023 · ee9b2a5 · ee9b2a5
1 parent bd8b6f0
commit ee9b2a5
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/core/p-dir.c b/src/core/p-dir.c
@@ -205,7 +205,7 @@
 			///OS_FREE(dir.file.path);
 
 			// don't throw an error if the original path contains wildcard chars * or ?
-			if (result < 0 && !(dir.error == (REBCNT)-RFE_OPEN_FAIL && WILD_PATH(path)) ) {
+			if (result < 0 && !(result == (REBCNT)-RFE_OPEN_FAIL && WILD_PATH(path)) ) {
 				Trap_Port(RE_CANNOT_OPEN, port, dir.error);
 			}
 

diff --git a/src/os/host-device.c b/src/os/host-device.c
@@ -349,7 +349,9 @@ static int Poll_Default(REBDEV *dev)
 	else if (result < 0) {
 		result = req->error;
 		// make sure that we are consistent and error is always negative...
-		if (result > 0) result = -result;
+		if (result > 0) {
+			req->error = result = -result;
+		}
 	}
 
 	return result;