Changeset 13515


Ignore:
Timestamp:
08/19/11 21:47:21 (10 years ago)
Author:
ehuelsmann
Message:

Extend overly long serialization strings storage mechanism to
normal strings as well.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r13514 r13515  
    11701170(defun serialize-string (string)
    11711171  "Generate code to restore a serialized string."
    1172   (emit-new +lisp-simple-string+)
    1173   (emit 'dup)
    1174   (emit 'ldc (pool-string string))
    1175   (emit-invokespecial-init +lisp-simple-string+ (list +java-string+)))
     1172  (cond
     1173    ((< (length string) #xFFFF)
     1174     (emit-new +lisp-simple-string+)
     1175     (emit 'dup)
     1176     (emit 'ldc (pool-string string))
     1177     (emit-invokespecial-init +lisp-simple-string+ (list +java-string+)))
     1178    (t
     1179     (serialize-object string))))
    11761180
    11771181(defun serialize-package (pkg)
Note: See TracChangeset for help on using the changeset viewer.