mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 21:41:29 -08:00
Code Issues Projects Releases Packages Wiki Activity

allow non-ascii characters in debug info

Browse source
This commit is contained in:
Marius Gerbershagen 2023-03-13 19:53:01 +01:00
parent ae19006cb8
commit acd81e16cd
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmppass2-top.lsp
View file

@ -341,7 +341,7 @@
(wt-nl-close-many-braces 0)))))
(defun t3local-fun-body (fun)
(let ((string (make-array 2048 :element-type 'base-char
(let ((string (make-array 2048 :element-type 'character
:adjustable t
:fill-pointer 0)))
(with-output-to-string (*compiler-output1* string)

7
src/lsp/top.lsp
View file

@ -849,7 +849,12 @@ Use special code 0 to cancel this operation.")
cl_index ndx = #1;
typedef struct ecl_var_debug_info *pinfo;
pinfo d = (pinfo)(v->vector.self.t[1]) + ndx;
cl_object name = ecl_make_constant_base_string(d->name,-1);
cl_object name;
#ifdef ECL_UNICODE
name = ecl_decode_from_cstring(d->name,-1,@:utf-8);
if (!name)
#endif
name = ecl_make_constant_base_string(d->name,-1);
void *value = (void*)(v->vector.self.t[2+ndx]);
cl_object output;
switch (d->type) {