mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 10:31:34 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix bug in 'from_qbytearray()' ('ushort' unicode instead of 'uchar' value)

Browse source
This commit is contained in:
pls.153 2023-05-26 23:50:10 +02:00
parent dae91e0167
commit 257750c718
2 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cpp/ecl_fun_plugin.h
View file

@ -322,9 +322,8 @@ cl_object from_cstring(const QByteArray& s) {
cl_object from_qbytearray(const QByteArray& ba) {
STATIC_SYMBOL_PKG (s_make_byte_vector, "%MAKE-BYTE-VECTOR", "QML") // see 'ini.lisp'
cl_object l_list = Cnil;
for (QChar b : ba) {
l_list = CONS(ecl_make_fixnum(static_cast<unsigned char>(b.toLatin1())),
l_list);
for (int i = 0; i < ba.size(); i++) {
l_list = CONS(ecl_make_fixnum(static_cast<uchar>(ba.at(i))), l_list);
}
cl_object l_vec = cl_funcall(2, s_make_byte_vector, cl_nreverse(l_list));
return l_vec;