Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2024-12-26 09:59:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

readChar: Remove unreachable

Browse source
This commit is contained in:
Remko Tronçon 2022-05-22 09:40:40 +02:00
parent b36f236c61
commit fca7a90869
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/waforth.wat
View file

@ -2756,15 +2756,14 @@
(func $readChar (result i32)
(local $n i32)
(local $in i32)
(if (i32.ge_u (local.tee $in (i32.load (i32.const 0x21908 (; body(>IN) ;))))
(if (result i32) (i32.ge_u (local.tee $in (i32.load (i32.const 0x21908 (; body(>IN) ;))))
(global.get $inputBufferSize))
(then
(return (i32.const -1)))
(i32.const -1))
(else
(local.set $n (i32.load8_s (i32.add (global.get $inputBufferBase) (local.get $in))))
(i32.store (i32.const 0x21908 (; body(>IN) ;)) (i32.add (local.get $in) (i32.const 1)))
(return (local.get $n))))
(unreachable))
(local.get $n))))
(func $numberToChar (param $v i32) (result i32)
(if (result i32) (i32.ge_u (local.get $v) (i32.const 10))