Changeset 52 for branches/home/psmith/restructure

Timestamp:

01/25/07 03:38:10 (18 years ago)

Author:

psmith

Message:

added copy-buffer test

File:

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

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

@@ -104 +104 @@
 (defmethod print-object ((byte-buffer byte-buffer) stream)
   (with-slots (capacity position limit buf) byte-buffer
-    (format stream "<byte-buffer :capacity ~A :position ~A :limit ~A :buf ~%~A>~%" capacity position limit (if buf (pretty-hex-dump (cffi:pointer-address buf) limit) nil))))
+    (format stream "<byte-buffer :capacity ~A :position ~A :limit ~A :buf ~%~A>~%" capacity position limit (if buf (hex-dump-memory (cffi:pointer-address buf) limit) nil))))
 
 (defmethod free-buffer((byte-buffer byte-buffer))
@@ -181 +181 @@
 (defmethod copy-buffer ((old byte-buffer) (new byte-buffer))
   (assert (<= (buffer-capacity old) (buffer-capacity new)))
-  (%memcpy (buffer-buf new) (buffer-buf old) (buffer-capacity old)))
+  (%memcpy (buffer-buf new) (buffer-buf old) (buffer-capacity old))
+  (setf (buffer-position new) (buffer-position old))
+  (setf (buffer-limit new) (buffer-limit old)))
 
 ;void *memcpy(void *dest, const void *src, size_t n);
@@ -206 +208 @@
 
     (format t "Mybuf (after memset): ~A~%" mybuf)
-;    (flip mybuf)
-;    (format t "Mybuf (after flip): ~A~%" mybuf)
+    (flip mybuf)
+    (format t "Mybuf (after flip): ~A~%" mybuf)