Only use glbufferstorage if available.

Author: Shinmera

resources/struct-buffer.lisp

@@ -105,17 +105,26 @@
         (setf (data-pointer buffer) vbo)
         (v:debug :trial.resource "Allocating ~d KB buffer." (ceiling (size buffer) 1024))
         (%gl:bind-buffer (buffer-type buffer) vbo)
-        (%gl:buffer-storage
-         (buffer-type buffer)
-         (memory-region-size region)
-         (memory-region-pointer region)
-         (ecase (data-usage buffer)
-           ((:dynamic-draw :stream-draw :static-draw)
-            (list* :dynamic-storage :map-write (map-bits buffer)))
-           ((:dynamic-read :stream-read :static-read)
-            (list* :dynamic-storage :map-read (map-bits buffer)))
-           ((:dynamic-copy :stream-copy :static-copy)
-            (list* :dynamic-storage :map-read :map-write (map-bits buffer)))))))))
+        (let ((usage (ecase (data-usage buffer)
+                       ((:dynamic-draw :stream-draw :static-draw)
+                        (list* :dynamic-storage :map-write (map-bits buffer)))
+                       ((:dynamic-read :stream-read :static-read)
+                        (list* :dynamic-storage :map-read (map-bits buffer)))
+                       ((:dynamic-copy :stream-copy :static-copy)
+                        (list* :dynamic-storage :map-read :map-write (map-bits buffer))))))
+          (gl-extension-case
+            (:GL-ARB-BUFFER-STORAGE
+             (%gl:buffer-storage (buffer-type buffer) (memory-region-size region) (memory-region-pointer region)
+                                 (ecase (data-usage buffer)
+                                   ((:dynamic-draw :stream-draw :static-draw)
+                                    (list* :dynamic-storage :map-write (map-bits buffer)))
+                                   ((:dynamic-read :stream-read :static-read)
+                                    (list* :dynamic-storage :map-read (map-bits buffer)))
+                                   ((:dynamic-copy :stream-copy :static-copy)
+                                    (list* :dynamic-storage :map-read :map-write (map-bits buffer))))))
+            (T
+             (%gl:buffer-data (buffer-type buffer) (memory-region-size region) (memory-region-pointer region)
+                              (data-usage buffer)))))))))
 
 (defvar *buffers-in-tx* ())
 (defmacro with-buffer-tx ((struct buffer &key (update :write)) &body body)