Re: [Axiom-developer] Re: Axiom trunk failure

[Gabriel Dos Reis]

Gabriel Dos Reis <address@hidden> writes:

[...]

| | | As far as I know this patch is irrelevant
| | 
| | Great!  I'm preparing a patchlet to remove its application to the
| | silver branch.
| 
| Bill --
| 
| Here is a patch for it.

Gosh, I forgot the real thing.  
It is there, real this time.

-- Gaby

lsp/ChangeLog
2006-05-03  Gabriel Dos Reis  <address@hidden>
 
        * Makefile.pamphlet: Skip tail-recursive patch for GCL version
        greater or equal to 2.6.7.  Document.
 
zips/ChangeLog
2006-05-03  Gabriel Dos Reis  <address@hidden>
 
        * gcl-2.6.7.cmpnew.gcl_cmpcall.lsp.patch: Delete.
        * gcl-2.6.7.cmpnew.gcl_cmpflet.lsp.patch: Likewise.
        * gcl-2.6.7pre.cmpnew.gcl_cmpcall.lsp.patch: Likewise.
        * gcl-2.6.7pre.cmpnew.gcl_cmpflet.lsp.patch: Likewise.
        * gcl-2.6.8pre.cmpnew.gcl_cmpcall.lsp.patch: Likewise.
 
*** lsp/Makefile.pamphlet       (revision 32)
--- lsp/Makefile.pamphlet       (local)
*************** Bill Schelter added tail recursion for A
*** 383,389 ****
  he left code in the system to print a message when the code was
  executed. We no longer care but it is still in GCL. We patch the
  call rather than the cmpnote function as cmpnote might have later
! usage.
  <<gcl-2.5.2.tail-recursive.patch>>=
        @(cd ${GCLVERSION}/cmpnew ; \
          echo 11 applying tail-recursive noise patch ; \
--- 383,393 ----
  he left code in the system to print a message when the code was
  executed. We no longer care but it is still in GCL. We patch the
  call rather than the cmpnote function as cmpnote might have later
! usage.  
! 
! Bill Page reported that this tail-recursive patch is no longer
! necessary for recent releases of GCL.  Consequently, it has 
! been disabled for all versions of GCL greater than 2.6.7.
  <<gcl-2.5.2.tail-recursive.patch>>=
        @(cd ${GCLVERSION}/cmpnew ; \
          echo 11 applying tail-recursive noise patch ; \
*************** GCL 2.6.1 renamed the files.
*** 457,478 ****
          echo 12 applying tail-recursive noise patch ; \
          ${PATCH} <${SPD}/zips/${GCLVERSION}.cmpnew.gcl_cmpcall.lsp.patch )
  @
- <<gcl-2.6.7.tail-recursive.patch>>=
-       @(cd ${GCLVERSION}/cmpnew ; \
-         echo 11 applying tail-recursive noise patch ; \
-         ${PATCH} <${SPD}/zips/${GCLVERSION}.cmpnew.gcl_cmpflet.lsp.patch )
-       @(cd ${GCLVERSION}/cmpnew ; \
-         echo 12 applying tail-recursive noise patch ; \
-         ${PATCH} <${SPD}/zips/${GCLVERSION}.cmpnew.gcl_cmpcall.lsp.patch )
- @
- <<gcl-2.6.8pre.tail-recursive.patch>>=
-       @(cd ${GCLVERSION}/cmpnew ; \
-         echo 11 applying tail-recursive noise patch ; \
-         ${PATCH} <${SPD}/zips/${GCLVERSION}.cmpnew.gcl_cmpflet.lsp.patch )
-       @(cd ${GCLVERSION}/cmpnew ; \
-         echo 12 applying tail-recursive noise patch ; \
-         ${PATCH} <${SPD}/zips/${GCLVERSION}.cmpnew.gcl_cmpcall.lsp.patch )
- @
  \subsubsection{collectfn fix}
  GCL-2.6.1 renamed collectfn.lsp to gcl\_collectfn.lsp.
  We rename it back into place because we have later Makefiles
--- 461,466 ----
*** zips/gcl-2.6.7.cmpnew.gcl_cmpcall.lsp.patch (revision 32)
--- zips/gcl-2.6.7.cmpnew.gcl_cmpcall.lsp.patch (local)
***************
*** 1,13 ****
- --- gcl_cmpcall.lsp   Sun Jul 24 12:54:28 2005
- +++ gcl_cmpcall.lsp.tpd       Sun Jul 24 12:58:36 2005
- @@ -264,7 +264,9 @@
-              (wt-label *exit*))
-        (unwind-no-exit 'tail-recursion-mark)
-        (wt-nl "goto TTL;")
- -      (cmpnote "Tail-recursive call of ~s was replaced by iteration." fname))
- +; 20031022000 tpd we don't need to know this
- +;      (cmpnote "Tail-recursive call of ~s was replaced by iteration." fname)
- +      )
-  
-       ;;; Open-codable function call.
-       ((and (listp args)
--- 0 ----

Property changes on: zips/gcl-2.6.7.cmpnew.gcl_cmpcall.lsp.patch
___________________________________________________________________
Name: svn:eol-style
 -native
Name: svn:keywords
 -Author Date Id Revision

*** zips/gcl-2.6.7.cmpnew.gcl_cmpflet.lsp.patch (revision 32)
--- zips/gcl-2.6.7.cmpnew.gcl_cmpflet.lsp.patch (local)
***************
*** 1,15 ****
- --- gcl_cmpflet.lsp   Sun Jul 24 12:54:29 2005
- +++ gcl_cmpflet.lsp.tpd       Sun Jul 24 13:44:18 2005
- @@ -390,8 +390,10 @@
-            (wt-label *exit*))
-      (unwind-no-exit 'tail-recursion-mark)
-      (wt-nl "goto TTL;")
- -    (cmpnote "Tail-recursive call of ~s was replaced by iteration."
- -             (fun-name (car fd))))
- +; 20031022000 tpd we don't need to know this
- +;    (cmpnote "Tail-recursive call of ~s was replaced by iteration."
- +;             (fun-name (car fd)))
- +    )
-     (t (push-args args)
-        (wt-nl (c-function-name "L" (fun-cfun (car fd)) (fun-name (car fd))) 
"(")
-        (dotimes** (n (fun-level (car fd))) (wt "base" n ","))
--- 0 ----

Property changes on: zips/gcl-2.6.7.cmpnew.gcl_cmpflet.lsp.patch
___________________________________________________________________
Name: svn:eol-style
 -native
Name: svn:keywords
 -Author Date Id Revision

*** zips/gcl-2.6.7pre.cmpnew.gcl_cmpcall.lsp.patch      (revision 32)
--- zips/gcl-2.6.7pre.cmpnew.gcl_cmpcall.lsp.patch      (local)
***************
*** 1,13 ****
- --- gcl_cmpcall.lsp   Sun Jul 24 12:54:28 2005
- +++ gcl_cmpcall.lsp.tpd       Sun Jul 24 12:58:36 2005
- @@ -264,7 +264,9 @@
-              (wt-label *exit*))
-        (unwind-no-exit 'tail-recursion-mark)
-        (wt-nl "goto TTL;")
- -      (cmpnote "Tail-recursive call of ~s was replaced by iteration." fname))
- +; 20031022000 tpd we don't need to know this
- +;      (cmpnote "Tail-recursive call of ~s was replaced by iteration." fname)
- +      )
-  
-       ;;; Open-codable function call.
-       ((and (listp args)
--- 0 ----

Property changes on: zips/gcl-2.6.7pre.cmpnew.gcl_cmpcall.lsp.patch
___________________________________________________________________
Name: svn:eol-style
 -native
Name: svn:keywords
 -Author Date Id Revision

*** zips/gcl-2.6.7pre.cmpnew.gcl_cmpflet.lsp.patch      (revision 32)
--- zips/gcl-2.6.7pre.cmpnew.gcl_cmpflet.lsp.patch      (local)
***************
*** 1,15 ****
- --- gcl_cmpflet.lsp   Sun Jul 24 12:54:29 2005
- +++ gcl_cmpflet.lsp.tpd       Sun Jul 24 13:44:18 2005
- @@ -390,8 +390,10 @@
-            (wt-label *exit*))
-      (unwind-no-exit 'tail-recursion-mark)
-      (wt-nl "goto TTL;")
- -    (cmpnote "Tail-recursive call of ~s was replaced by iteration."
- -             (fun-name (car fd))))
- +; 20031022000 tpd we don't need to know this
- +;    (cmpnote "Tail-recursive call of ~s was replaced by iteration."
- +;             (fun-name (car fd)))
- +    )
-     (t (push-args args)
-        (wt-nl (c-function-name "L" (fun-cfun (car fd)) (fun-name (car fd))) 
"(")
-        (dotimes** (n (fun-level (car fd))) (wt "base" n ","))
--- 0 ----

Property changes on: zips/gcl-2.6.7pre.cmpnew.gcl_cmpflet.lsp.patch
___________________________________________________________________
Name: svn:eol-style
 -native
Name: svn:keywords
 -Author Date Id Revision

*** zips/gcl-2.6.8pre.cmpnew.gcl_cmpcall.lsp.patch      (revision 32)
--- zips/gcl-2.6.8pre.cmpnew.gcl_cmpcall.lsp.patch      (local)
***************
*** 1,13 ****
- --- gcl_cmpcall.lsp   Sun Jul 24 12:54:28 2005
- +++ gcl_cmpcall.lsp.tpd       Sun Jul 24 12:58:36 2005
- @@ -264,7 +264,9 @@
-              (wt-label *exit*))
-        (unwind-no-exit 'tail-recursion-mark)
-        (wt-nl "goto TTL;")
- -      (cmpnote "Tail-recursive call of ~s was replaced by iteration." fname))
- +; 20031022000 tpd we don't need to know this
- +;      (cmpnote "Tail-recursive call of ~s was replaced by iteration." fname)
- +      )
-  
-       ;;; Open-codable function call.
-       ((and (listp args)
--- 0 ----
*** zips/gcl-2.6.8pre.cmpnew.gcl_cmpflet.lsp.patch      (revision 32)
--- zips/gcl-2.6.8pre.cmpnew.gcl_cmpflet.lsp.patch      (local)
***************
*** 1,15 ****
- --- gcl_cmpflet.lsp   Sun Jul 24 12:54:29 2005
- +++ gcl_cmpflet.lsp.tpd       Sun Jul 24 13:44:18 2005
- @@ -390,8 +390,10 @@
-            (wt-label *exit*))
-      (unwind-no-exit 'tail-recursion-mark)
-      (wt-nl "goto TTL;")
- -    (cmpnote "Tail-recursive call of ~s was replaced by iteration."
- -             (fun-name (car fd))))
- +; 20031022000 tpd we don't need to know this
- +;    (cmpnote "Tail-recursive call of ~s was replaced by iteration."
- +;             (fun-name (car fd)))
- +    )
-     (t (push-args args)
-        (wt-nl (c-function-name "L" (fun-cfun (car fd)) (fun-name (car fd))) 
"(")
-        (dotimes** (n (fun-level (car fd))) (wt "base" n ","))
--- 0 ----