Changeset 9529


Ignore:
Timestamp:
May 16, 2008, 2:21:17 AM (11 years ago)
Author:
gb
Message:

Move faslapi def to lispequ.

Define new fasl op for istruct-registration.

Bump fasl version (now one greater than trunk.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/xdump/faslenv.lisp

    r8836 r9529  
    3838  faslstate.fasldispatch)
    3939
    40 ;;; loader framework istruct
    41 (def-accessors (faslapi) %svref
    42   ()
    43   ;; these represent all users of faslstate.iobuffer, .bufcount, and
    44   ;; .faslfd -- I think these are all the important file- and
    45   ;; buffer-IO-specific slots in faslstate; encapsulating these allows
    46   ;; sophisticated users to load fasl data from nonstandard sources
    47   ;; without too much trouble
    48   faslapi.fasl-open
    49   faslapi.fasl-close
    50   faslapi.fasl-init-buffer
    51   faslapi.fasl-set-file-pos
    52   faslapi.fasl-get-file-pos
    53   faslapi.fasl-read-buffer
    54   faslapi.fasl-read-byte
    55   faslapi.fasl-read-n-bytes)
     40
    5641
    5742(defconstant numfaslops 80 "Number of fasl file opcodes, roughly")
     
    5944(defconstant $fasl-file-id #xff00)
    6045(defconstant $fasl-file-id1 #xff01)
    61 (defconstant $fasl-vers #x51)
    62 (defconstant $fasl-min-vers #x51)
     46(defconstant $fasl-vers #x53)
     47(defconstant $fasl-min-vers #x53)
    6348(defconstant $faslend #xff)
    6449(defconstant $fasl-buf-len 2048)
     
    139124(defconstant $fasl-nvstr 69)            ;<nvstring> Make an uninterned symbol
    140125(defconstant $fasl-toplevel-location 70);<expr> - Set *loading-toplevel-location* to <expr>.
     126(defconstant $fasl-istruct-cell 71)     ;<expr> register istruct cell for expr
    141127
    142128;;; <string> means <size><size bytes> (this is no longer used)
Note: See TracChangeset for help on using the changeset viewer.