7123 - tile: truncate string if necessary

1 files changed, 8 insertions, 0 deletions

diff --git a/403unicode.mu b/403unicode.mu
index dcb1e658..6de29bde 100644
--- a/403unicode.mu
+++ b/403unicode.mu
@@ -159,6 +159,14 @@ fn test-to-grapheme-four-bytes-max {
 # read the next grapheme from a stream of bytes
 fn read-grapheme in: (addr stream byte) -> out/eax: grapheme {
 $read-grapheme:body: {
+  # if at eof, return EOF
+  {
+    var eof?/eax: boolean <- stream-empty? in
+    compare eof?, 0  # false
+    break-if-=
+    out <- copy 0xffffffff
+    break $read-grapheme:body
+  }
   var c/eax: byte <- read-byte in
   var num-trailers/ecx: int <- copy 0
   $read-grapheme:compute-length: {