Fixes to special string parsing

Same aim as previous commit, but keeping the default as 'block'. Retagged as DeviceFS-0_69.

Fixes to special string parsing
Same aim as previous commit, but keeping the default as 'block'. Retagged as DeviceFS-0_69.
5680c1fe · Robert Sprowson · b5418264 · 5680c1fe
Commit 5680c1fe authored 11 years ago by Robert Sprowson
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 4 deletions

s/FSystem s/FSystem +4 -4

No files found.
--- a/s/FSystem
+++ b/s/FSystem
@@ -2335,16 +2335,16 @@ HandleSpecial   Entry   "r0-r6"
                STR     r0, [fr, #file_BufferHandle]
 10
                LDR     r0, sp_block                            ; maybe set the non-blocking bit
-                TEQ     r0, #1
+                TEQ     r0, #0
                LDR     r0, [fr, #file_Flags]
-                ORRNE   r0, r0, #ff_NonBlocking
-                BICEQ   r0, r0, #ff_NonBlocking
+                ORREQ   r0, r0, #ff_NonBlocking
+                BICNE   r0, r0, #ff_NonBlocking                 ; "block" or unspecified
                STR     r0, [fr, #file_Flags]
 [ TWSleep
                LDR     r0, sp_sleep                            ; maybe set the sleeping word
                TEQ     r0, #1
                MOVEQ   r0, #ff_Sleeping
-                MOVNE   r0, #ff_DontSleep
+                MOVNE   r0, #ff_DontSleep                       ; "nosleep" or unspecified
                STR     r0, [fr, #file_PollWord]

                LDR     r0, sp_timeout                          ; set the timeout for sleeping