mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2025-12-06 02:40:26 -08:00
73 lines
2 KiB
Common Lisp
73 lines
2 KiB
Common Lisp
;;; -*- mode: Lisp; indent-tabs-mode: nil; -*-
|
|
;;;
|
|
;;; Copyright (c) 2010, Alexander Gavrilov (angavrilov@gmail.com)
|
|
;;;
|
|
;;; This file contains definitions for vectorized access
|
|
;;; to specialized lisp arrays.
|
|
;;;
|
|
|
|
(in-package #:SSE)
|
|
|
|
;;; Prefetch: AREF-PREFETCH-*, ROW-MAJOR-AREF-PREFETCH-*
|
|
|
|
(def-aref-intrinsic #:PREFETCH-T0 nil cpu-prefetch-t0 nil :ref-size 0)
|
|
(def-aref-intrinsic #:PREFETCH-T1 nil cpu-prefetch-t1 nil :ref-size 0)
|
|
(def-aref-intrinsic #:PREFETCH-T2 nil cpu-prefetch-t2 nil :ref-size 0)
|
|
(def-aref-intrinsic #:PREFETCH-NTA nil cpu-prefetch-nta nil :ref-size 0)
|
|
|
|
(def-aref-intrinsic #:CLFLUSH nil cpu-clflush nil :ref-size 1)
|
|
|
|
;;; Single-float
|
|
|
|
;; AREF-SS, ROW-MAJOR-AREF-SS
|
|
|
|
(def-aref-intrinsic #:SS float-sse-pack mem-ref-ss mem-set-ss :ref-size 4)
|
|
|
|
;; AREF-PS, ROW-MAJOR-AREF-PS
|
|
|
|
(def-aref-intrinsic #:PS float-sse-pack mem-ref-ps mem-set-ps)
|
|
|
|
;; AREF-APS, ROW-MAJOR-AREF-APS (requires alignment)
|
|
|
|
(def-aref-intrinsic #:APS float-sse-pack mem-ref-aps mem-set-aps)
|
|
|
|
;; AREF-SPS, ROW-MAJOR-AREF-SPS (requires alignment; no write cache)
|
|
|
|
(def-aref-intrinsic #:SPS float-sse-pack mem-ref-aps stream-ps)
|
|
|
|
;;; Double-float
|
|
|
|
;; AREF-SD, ROW-MAJOR-AREF-SD
|
|
|
|
(def-aref-intrinsic #:SD double-sse-pack mem-ref-sd mem-set-sd :ref-size 8)
|
|
|
|
;; AREF-PD, ROW-MAJOR-AREF-PD
|
|
|
|
(def-aref-intrinsic #:PD double-sse-pack mem-ref-pd mem-set-pd)
|
|
|
|
;; AREF-APD, ROW-MAJOR-AREF-APD (requires alignment)
|
|
|
|
(def-aref-intrinsic #:APD double-sse-pack mem-ref-apd mem-set-apd)
|
|
|
|
;; AREF-SPD, ROW-MAJOR-AREF-SPD (requires alignment; no write cache)
|
|
|
|
(def-aref-intrinsic #:SPD double-sse-pack mem-ref-apd stream-pd)
|
|
|
|
;;; Integer
|
|
|
|
;; AREF-SI64, ROW-MAJOR-AREF-SI64
|
|
|
|
(def-aref-intrinsic #:SI64 int-sse-pack mem-ref-si64 mem-set-si64 :ref-size 8)
|
|
|
|
;; AREF-PI, ROW-MAJOR-AREF-PI
|
|
|
|
(def-aref-intrinsic #:PI int-sse-pack mem-ref-pi mem-set-pi)
|
|
|
|
;; AREF-API, ROW-MAJOR-AREF-API (requires alignment)
|
|
|
|
(def-aref-intrinsic #:API int-sse-pack mem-ref-api mem-set-api)
|
|
|
|
;; AREF-SPI, ROW-MAJOR-AREF-SPI (requires alignment; no write cache)
|
|
|
|
(def-aref-intrinsic #:SPI int-sse-pack mem-ref-api stream-pi)
|
|
|