summaryrefslogtreecommitdiff
path: root/appl/lib/convcs/utf8_btos.b
diff options
context:
space:
mode:
Diffstat (limited to 'appl/lib/convcs/utf8_btos.b')
-rw-r--r--appl/lib/convcs/utf8_btos.b9
1 files changed, 4 insertions, 5 deletions
diff --git a/appl/lib/convcs/utf8_btos.b b/appl/lib/convcs/utf8_btos.b
index 7ed10ddd..307ef863 100644
--- a/appl/lib/convcs/utf8_btos.b
+++ b/appl/lib/convcs/utf8_btos.b
@@ -23,12 +23,11 @@ btos(nil : Convcs->State, b : array of byte, n : int) : (Convcs->State, string,
str = string b[:nbytes];
} else {
for (; nbytes < len b && len str < n;) {
- (ch, l, s) := sys->byte2char(b, nbytes);
- if (l > 0) {
- str[len str] = ch;
- nbytes += l;
- } else
+ (ch, l, nil) := sys->byte2char(b, nbytes);
+ if (l <= 0)
break;
+ str[len str] = ch;
+ nbytes += l;
}
}
return (nil, str, nbytes);