Commit 43f1065a authored by ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Extend overly long serialization strings storage mechanism to

normal strings as well.
parent 7eeeb414
......@@ -1169,10 +1169,14 @@ extend the class any further."
(defun serialize-string (string)
"Generate code to restore a serialized string."
(emit-new +lisp-simple-string+)
(emit 'dup)
(emit 'ldc (pool-string string))
(emit-invokespecial-init +lisp-simple-string+ (list +java-string+)))
(cond
((< (length string) #xFFFF)
(emit-new +lisp-simple-string+)
(emit 'dup)
(emit 'ldc (pool-string string))
(emit-invokespecial-init +lisp-simple-string+ (list +java-string+)))
(t
(serialize-object string))))
(defun serialize-package (pkg)
"Generate code to restore a serialized package."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment