Re: Clisp and Garnet-2.2

[haible (Bruno Haible)]

Remco Feenstra <rbfeens@cs.vu.nl> observed a CLISP compiler bug when trying
to compile Garnet-2.2. Here is a patch for it. After applying it, recompile
compiler.lsp and rebuild lispinit.mem as described in the README file.

*** clisp-1993-09-01/src/compiler.lsp	Sun Aug 29 22:00:23 1993
--- clisp/src/compiler.lsp	Tue Sep  7 00:56:57 1993
***************
*** 9952,9958 ****
                (optimize-part code) ; weitere mögliche Optimierung
                ; weitere mögliche Optimierungen:
                (optimize-label false-label) ; wegen verringerter Referenzen
!               (optimize-short index code) ; wegen obigem optimize-part
              )
              (FALSE
                ; Referenz auf true-label streichen
--- 9952,9958 ----
                (optimize-part code) ; weitere mögliche Optimierung
                ; weitere mögliche Optimierungen:
                (optimize-label false-label) ; wegen verringerter Referenzen
!               (optimize-short index) ; wegen obigem optimize-part
              )
              (FALSE
                ; Referenz auf true-label streichen
***************
*** 9967,9973 ****
                (optimize-part code) ; weitere mögliche Optimierung
                ; weitere mögliche Optimierungen:
                (optimize-label true-label) ; wegen verringerter Referenzen
!               (optimize-short index code) ; wegen obigem optimize-part
        ) ) ) )
        (JMP
          (let ((label (second item)))
--- 9967,9973 ----
                (optimize-part code) ; weitere mögliche Optimierung
                ; weitere mögliche Optimierungen:
                (optimize-label true-label) ; wegen verringerter Referenzen
!               (optimize-short index) ; wegen obigem optimize-part
        ) ) ) )
        (JMP
          (let ((label (second item)))


                    Bruno Haible
                    haible@ma2s2.mathematik.uni-karlsruhe.de