Changeset 63 for branches/home/psmith

Timestamp:

02/03/07 03:16:10 (18 years ago)

Author:

psmith

Message:

Corrected compact

File:

• branches/home/psmith/restructure/src/buffer/buffer.lisp (modified) (2 diffs)

branches/home/psmith/restructure/src/buffer/buffer.lisp ¶

@@ -89 +89 @@
                       (if (>= address (+ start-address length)) 
                           (progn 
-                            (format str "--")
-                            (format readable "--"))
+                            (format str (if (eql column-index 7) "   " ".. "))
+                            (format readable "."))
                           (progn 
                             (format str (if (eql column-index 7) "~A   " "~A ") (hex-dump-byte address))
@@ -154 +154 @@
 (defmethod compact((byte-buffer byte-buffer))
   :documentation "copy remaining bytes to the beginning of this buffer and set position to number of bytes copied (ready for a new put"
-  (with-slots (buf position limit) byte-buffer
+  (with-slots (buf position limit capacity) byte-buffer
     (let ((remaining (remaining byte-buffer)))
       (%memcpy buf (cffi:make-pointer (+ (cffi:pointer-address buf) position)) remaining)
-      (setf position remaining))))
+      (setf position remaining)
+      (setf limit capacity))))
 
 ;reads bytes from byte-buffer and returns a vector (unsigned-byte 8)