aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/uc_spec
diff options
context:
space:
mode:
authorDan Gudmundsson <[email protected]>2018-11-19 13:44:12 +0100
committerDan Gudmundsson <[email protected]>2018-11-20 11:25:21 +0100
commitd00c1adf7e12f791781995c9469a1acf94ddfb93 (patch)
tree5256d836875fc9c56ffcb353af88124b8ae0fcb0 /lib/stdlib/uc_spec
parent5503d96504a89b1b00a78f7e7d12e79be553b215 (diff)
downloadotp-d00c1adf7e12f791781995c9469a1acf94ddfb93.tar.gz
otp-d00c1adf7e12f791781995c9469a1acf94ddfb93.tar.bz2
otp-d00c1adf7e12f791781995c9469a1acf94ddfb93.zip
unicode_util did not handle binary input data correctly
gc_zwj sent binaries recursivly to gc_extend/3 which didn't handle can't handle them. ERL-777
Diffstat (limited to 'lib/stdlib/uc_spec')
-rwxr-xr-xlib/stdlib/uc_spec/gen_unicode_mod.escript2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/stdlib/uc_spec/gen_unicode_mod.escript b/lib/stdlib/uc_spec/gen_unicode_mod.escript
index fe5a860d45..535f01a1c5 100755
--- a/lib/stdlib/uc_spec/gen_unicode_mod.escript
+++ b/lib/stdlib/uc_spec/gen_unicode_mod.escript
@@ -646,7 +646,7 @@ gen_gc(Fd, GBP) ->
io:put_chars(Fd, "is_emodifier(_) -> false.\n\n"),
io:put_chars(Fd, "gc_zwj(R0, Acc) ->\n case cp(R0) of\n"),
- GenZWJGlue = fun(Range) -> io:format(Fd, "~8c~s gc_extend(R1, R0, [CP|Acc]);\n",
+ GenZWJGlue = fun(Range) -> io:format(Fd, "~8c~s gc_extend(cp(R1), R0, [CP|Acc]);\n",
[$\s,gen_case_clause(Range)]) end,
[GenZWJGlue(CP) || CP <- merge_ranges(maps:get(glue_after_zwj,GBP))],
GenZWJEBG = fun(Range) -> io:format(Fd, "~8c~s gc_e_cont(R1, [CP|Acc]);\n",