1.0.6.48: Don't instrument the internal flets from the PROGV expansion
authorJuho Snellman <jsnell@iki.fi>
Mon, 18 Jun 2007 16:02:55 +0000 (16:02 +0000)
committerJuho Snellman <jsnell@iki.fi>
Mon, 18 Jun 2007 16:02:55 +0000 (16:02 +0000)
commitabf95924deb0b9677a160c02632749d80a3c24f8
treefb6fe181869464e25d9c139ca2a3d9c5454cf35d
parent6e953f60d904a015b3273db84b5886b04a9ecb1c
1.0.6.48: Don't instrument the internal flets from the PROGV expansion

        * PROGV would get compiled to BINDING-STACK-POINTER -> X, ...,
          BIND-SENTINEL, UNBIND-TO-HERE X, UNBIND-SENTINEL. So the
          UNBIND-TO-HERE would also pop the sentinel from the binding stack,
          and the UNBIND-SENTINEL would then unbalance the stack.
        * Ensure that there will only be matched BIND-SENTINEL /
          UNBIND-SENTINEL pairs between taking the binding stack pointer
          and unwinding by adding some (OPTIMIZE (INSERT-DEBUG-CATCH 0))
          declarations.
* Reported by Nikodemus
src/compiler/ir1-translators.lisp
src/compiler/ir1tran-lambda.lisp
src/compiler/ir2tran.lisp
tests/compiler.impure-cload.lisp
version.lisp-expr