Definition:
(defconst *vl-very-simple-type-table* (b* (((fun (mk typename)) (b* (((vl-coredatatype-info info) (vl-coretypename->info typename))) (cons info.keyword (hons-copy (make-vl-coretype :name typename :signedp info.default-signedp)))))) (list (mk :vl-byte) (mk :vl-shortint) (mk :vl-int) (mk :vl-longint) (mk :vl-integer) (mk :vl-time) (mk :vl-bit) (mk :vl-logic) (mk :vl-reg) (mk :vl-shortreal) (mk :vl-real) (mk :vl-realtime))))
Value:
((:vl-kwd-byte :vl-coretype (:vl-byte) nil . t) (:vl-kwd-shortint :vl-coretype (:vl-shortint) nil . t) (:vl-kwd-int :vl-coretype (:vl-int) nil . t) (:vl-kwd-longint :vl-coretype (:vl-longint) nil . t) (:vl-kwd-integer :vl-coretype (:vl-integer) nil . t) (:vl-kwd-time :vl-coretype (:vl-time)) (:vl-kwd-bit :vl-coretype (:vl-bit)) (:vl-kwd-logic :vl-coretype (:vl-logic)) (:vl-kwd-reg :vl-coretype (:vl-reg)) (:vl-kwd-shortreal :vl-coretype (:vl-shortreal)) (:vl-kwd-real :vl-coretype (:vl-real)) (:vl-kwd-realtime :vl-coretype (:vl-realtime)))