Changeset 9681 for branches

Timestamp:

Jun 5, 2008, 10:25:44 PM (16 years ago)

Author:

R. Matthew Emerson

Message:

Get rid of unused $catch.xxx constants. (This sort of thing is in
the various target packages now.)

File:

• branches/ia32/library/lispequ.lisp (modified) (1 diff)

branches/ia32/library/lispequ.lisp

@@ -599 +599 @@
 )
 
-
 ;;;;;;;;;;;;;
-
-(defconstant $catch.tag 0)
-(defconstant $catch.mvflag (+ $catch.tag 4))
-(defconstant $catch.dblink (+ $catch.mvflag 4))
-(defconstant $catch.vsp (+ $catch.dblink 4))
-(defconstant $catch.regs (+ $catch.vsp 4))
-(defconstant $catch.link (+ $catch.regs (* 4 5)))
-(defconstant $catch.scgvll (+ $catch.link 4))
-(defconstant $catch.cs_area (+ $catch.scgvll 4))
-(defconstant $catch.pc (+ $catch.cs_area 4))
-(defconstant $catchfsize (+ $catch.pc 4))
-
 
 ;;; Bits in *gc-event-status-bits*