Ignore:
Timestamp:
Sep 23, 2010, 3:49:36 PM (9 years ago)
Author:
gz
Message:

r14299 from trunk (encode acode strings)

Location:
branches/qres/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl

  • branches/qres/ccl/compiler/nx-basic.lisp

    r14259 r14300  
    784784             (record (afunc)
    785785               (let* ((*nx-acode-inner-refs* nil);; filled in by stringify.
    786                       (string (stringify (afunc-acode afunc))))
    787                  (setf (getf (afunc-lfun-info afunc) '%function-acode-string) string)
     786                      (string (stringify (afunc-acode afunc)))
     787                      ;; Can't use with-output-to-vector directly above because we
     788                      ;; want the recorded positions to be relative to the string.
     789                      (vec (encode-string-to-octets string :external-format :utf-8)))
     790                 (setf (getf (afunc-lfun-info afunc) '%function-acode-string) vec)
    788791                 (loop for ref in *nx-acode-inner-refs* as fn = (acode-afunc-ref-afunc ref)
    789792                       do (dbg-assert (null (getf (afunc-lfun-info fn) '%function-acode-string)))
    790                        do (setf (getf (afunc-lfun-info fn) '%function-acode-string) string)))))
     793                       do (setf (getf (afunc-lfun-info fn) '%function-acode-string) vec)))))
    791794      (if (getf (afunc-lfun-info afunc) '%function-source-note)
    792795        (record afunc)
Note: See TracChangeset for help on using the changeset viewer.