Skip to content
Snippets Groups Projects
Commit 2997c7c8 authored by Raymond Toy's avatar Raymond Toy
Browse files

Use fwrite to dump the string instead of putw.

parent 3c01fb6b
No related branches found
No related tags found
No related merge requests found
...@@ -178,16 +178,14 @@ debug_print(lispobj object) ...@@ -178,16 +178,14 @@ debug_print(lispobj object)
len = lisp_string->length >> 2; len = lisp_string->length >> 2;
lisp_chars = (unsigned short int*) lisp_string->data; lisp_chars = (unsigned short int*) lisp_string->data;
for (k = 0; k < len; ++k) { /*
/* * Do we really want to dump out the entire contents of
* Do we really want to dump out 4 bytes? Should we * the utf-16 string? Should we just print out the low 8
* just print out the low 8 bits of each Lisp * bits of each Lisp character? Or maybe convert the
* character? * utf-16 string to some more suitable encoding?
*/ */
putw(*lisp_chars, stdout); fwrite(lisp_chars, sizeof(*lisp_chars), len, stdout);
++lisp_chars;
}
putchar('\n'); putchar('\n');
fflush(stdout); fflush(stdout);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment