make chars of strings 32 bit long in stead of utf-8 format (just for now. It's a hack)
Sun Oct 28 23:44:58 PDT 2007 Ties Stuij <ties@stuij.se>
* make chars of strings 32 bit long in stead of utf-8 format (just for now. It's a hack)
diff -rN -u old-armish/src/assembler.lisp new-armish/src/assembler.lisp
--- old-armish/src/assembler.lisp 2014-07-31 12:39:22.000000000 -0700
+++ new-armish/src/assembler.lisp 2014-07-31 12:39:22.000000000 -0700
@@ -116,9 +116,6 @@
(apply it (rest form))
(error "mnemonic ~A from form ~A not recognized" (first form) form))))
-(defun reform-string (string)
- (vector-to-list (string-to-octets string :utf-8)))
-
(defun pass-1 (forms)
"First pass assembler to collect all label addresses."
(let ((*pass* 0)
diff -rN -u old-armish/src/directives.lisp new-armish/src/directives.lisp
--- old-armish/src/directives.lisp 2014-07-31 12:39:22.000000000 -0700
+++ new-armish/src/directives.lisp 2014-07-31 12:39:22.000000000 -0700
@@ -47,6 +47,10 @@
(loop for bin in bins
append (process-bytes bin (* pack-size 8))))
+(defun reform-string (string)
+ (process-bytes (vector-to-list
+ (string-to-octets string :utf-8)) 32))
+
(define-directive string (&rest strings)
(let ((null-terminated (or (member :null-terminated strings)
(member :nt strings)))