cj-gambit-sys-0-bench.scm

;;; Copyright 2018 by Christian Jaeger <ch@christianjaeger.ch>

;;;    This file is free software; you can redistribute it and/or modify
;;;    it under the terms of the GNU General Public License (GPL) as published 
;;;    by the Free Software Foundation, either version 3 of the License, or
;;;    (at your option) any later version.


(require easy
	 cj-gambit-sys-0)

(include "cj-standarddeclares.scm")

;; just to verify that cj-gambit-sys-0's ops are properly optimized.

(def (cj-gambit-sys-0-bench:run n vec i val)
     (let ((a (time (repeat n (@vector-ref vec i))))
	   (b (time (repeat n (@vector-length vec))))
	   (c (time (repeat n (@vector-set! vec i val)))))
       (vector a b c)))


(TEST
 > (cj-gambit-sys-0-bench:run 100000000 (vector 39 20 10 4) 2 7)
 ;; expecting around 100 ms or so of real or cpu time for each time,
 ;; or about 3-4 cycles for each iteration. Todo: add this to the
 ;; actual test...?
 [10 4 [39 20 7 4]])


;; and unsafety test; needs to be compiled code hence also put here in
;; -bench module, instead of a TEST form in main module.

(def (cj-gambit-sys-0-bench:test n)
     (declare (fixnum))
     (@vector-ref (vector 1 2 3) (+ n 1)))

(TEST
 > (cj-gambit-sys-0-bench:test 1)
 3
 > (%try (cj-gambit-sys-0-bench:test "fun"))
 (exception text: "(Argument 1) FIXNUM expected\n(fx+ \"fun\" 1)\n"))