Skip to content
Permalink
Browse files

Default method to update-buffer-data to use in-class buffer-data slot

  • Loading branch information
Shinmera committed Dec 24, 2019
1 parent 0f0b3f7 commit 9746c3d8a47d2fdb8474c4c2c74ac435f359f55e
Showing with 3 additions and 0 deletions.
  1. +3 −0 resources/buffer-object.lisp
@@ -47,6 +47,9 @@
(gl:bind-buffer buffer-type 0))
(setf (size buffer) size)))

(defmethod update-buffer-data ((buffer buffer-object) (data (eql T)) &rest args)
(apply #'call-next-method buffer (buffer-data buffer) args))

(defmethod update-buffer-data ((buffer buffer-object) data &key (buffer-start 0) (data-start 0) count gl-type)
(with-data-ptr (ptr data-size data :offset data-start :gl-type gl-type)
#-elide-buffer-access-checks

0 comments on commit 9746c3d

Please sign in to comment.
You can’t perform that action at this time.