Changeset 10864


Ignore:
Timestamp:
Sep 24, 2008, 2:17:18 PM (11 years ago)
Author:
gb
Message:

Define mostly useless versions of some foreign type things early, so
that we can use RLET in files that load before the real foreign type
system without having to bootstrap changes to "canonical foreign type
ordinals". (A pointer to non-canonical foreign-type will be looked
up as a pointer to :void, which is better than blowing up ...) It's
still desirable to use the canonical-foreign-type-ordinals nonsense,
but hopefully not mandatory to bootstrap everything in the right order.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-misc.lisp

    r10849 r10864  
    11311131  (without-interrupts                   ;reentrancy
    11321132   (%safe-get-ptr p dest)))
     1133
     1134
     1135;;; Useless for anything but using RLET in early level-1 code without
     1136;;; having to bootstrap canonical type ordinals.
     1137(%fhave 'parse-foreign-type (lambda (spec) (declare (ignore spec))))
     1138(%fhave 'foreign-type-ordinal (lambda (thing) (declare (ignore thing)) 0))
     1139(%fhave '%foreign-type-or-record (lambda (x) (declare (ignore x))))
Note: See TracChangeset for help on using the changeset viewer.