Browse Source

Fix possible memory leak when there's an error parsing UTF-8

prototype
Alex Williams 9 months ago
parent
commit
d77a2e479a
Signed by: aw GPG Key ID: 19EE4AAA361A7E2C
1 changed files with 1 additions and 0 deletions
  1. +1
    -0
      string.l

+ 1
- 0
string.l View File

@ -8,6 +8,7 @@
(let Res (struct P 'S)
(native "@" "free" NIL P)
Res )
(native "@" "free" NIL P)
(_boawp-err "Invalid UTF-8 string")) )
(if (=0 (native ".lib/libpilrust.so" "validate_utf8" 'I Str))
Str


Loading…
Cancel
Save