--- Camm Maguire <[EMAIL PROTECTED]> wrote:
> Greetings!
>
> I can't reproduce this. Is this a fresh cvs checkout?
>
> export CVSROOT=:pserver:[EMAIL PROTECTED]:/sources/gcl
> cvs -z9 -q -d gclcvs-2.7.0 gcl
It should be. I'll rebuild just to make sure.
> If so, could you please send
>
> (let ((compiler::*suppress-compiler-notes* nil)) (disassemble
> 'tangle
> nil))
Here we go - thanks Camm!
>(let ((compiler::*suppress-compiler-notes* nil)) (disassemble 'tangle
nil))
;; Compiling /tmp/gazonk_31886_0.lsp.
; (DEFUN COMPILER::CMP-ANON ...) is being compiled.
;; Note: restricting type of WEB::CHUNK to (MEMBER NIL)
;; Note: restricting type of WEB::OUT-FILE to (NOT (MEMBER NIL))
;; Note: COMPILER::CMP-ANON return type (LAMBDA T
(PROGN
T
(LET T
((WEB::BUFF
(WEB::READ-PAMPHLET-FILE
T))
(WEB::CHUNK
(COMPILER::LOCATION
COMPILER::FOO))
(WEB::NAME
(MAKE-ARRAY
(ARRAY UNSIGNED-CHAR
(1)))))
(PROGN
T
(LET* T
((WEB::OUT-FILE
(OPEN T)))
(UNWIND-PROTECT
COMPILER::FOO))))))
;; Note: (proclaim '(ftype (function (T T *) T) COMPILER::CMP-ANON
;; End of Pass 1.
;; End of Pass 2.
;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0,
Speed=3, (Deb
ug quality ignored)
;; Finished compiling /tmp/gazonk_31886_0.o.
#include "gazonk_31886_0.h"
void init_code(){do_init((void *)VV);}
/* local entry for function CMP-ANON */
static object LI1(object V2,object V1,object first,...)
{
va_list ap;
int narg = VFUN_NARGS; VMB1 VMS1 VMV1
{VOL object V3;
VOL object V4;
va_start(ap,first);
base[0]= V2;
V3= V1;
narg -= 2;
if (narg <= 0) goto T1;
else {
V4= first;}
--narg; goto T2;
goto T1;
T1:;
V4= ((object)VV[0]);
goto T2;
T2:;
goto TTL;
TTL:;
base[3]= (((object)VV[1])->s.s_dbind);
vs_top=(vs_base=base+3)+1;
Lclrhash();
vs_top=sup;
{VOL object V5;
base[3]= (/* READ-PAMPHLET-FILE */(*LnkLI12)(base[0]));
V6 = CMPmake_fixnum((42));
base[4]= (VFUN_NARGS=5,(/* MAKE-ARRAY
*/(*LnkLI13)(make_fixnum(1),((obje
ct)VV[2]),((object)VV[3]),((object)VV[4]),V6)));
V5= Cnil;
if(((((object)VV[5])->s.s_dbind))==Cnil){
goto T10;}
(((object)VV[6])->s.s_dbind)= base[3];
goto T8;
goto T10;
T10:;
(((object)VV[6])->s.s_dbind)= Cnil;
goto T8;
T8:;
base[4]= (V4);
(void)((VFUN_NARGS=1,(/* SCAN-FOR-CHUNKS
*/(*LnkLI14)((fixnum)0,base[3])
)));
V5= ({struct htent
*_t=gethash(base[4],(((object)VV[1])->s.s_dbind)); _t
->hte_key==OBJNULL ? ({Cnil;}) : ({_t->hte_value;});});
if(((V5))!=Cnil){
goto T19;}
(void)((VFUN_NARGS=1,(/* BREAK
*/(*LnkLI15)(((object)VV[7])))));
goto T19;
T19:;
base[5]= (VFUN_NARGS=7,(/* OPEN
*/(*LnkLI16)((V3),((object)VV[8]),((obje
ct)VV[9]),((object)VV[10]),((object)VV[11]),((object)VV[2]),((object)VV[3]))));
frs_push(FRS_PROTECT,Cnil);
{object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
else{
base[7]= (/* WRITE-CHUNK
*/(*LnkLI17)(base[3],base[4],base[5],base[0]));
vs_top=(vs_base=base+7)+1;
active=FALSE;}
base[6]=Cnil;
while(vs_base<vs_top)
{base[6]=MMcons(vs_top[-1],base[6]);vs_top--;}
vs_top=sup;
nlj_active=FALSE;frs_pop();
if((base[5])==Cnil){
goto T24;}
base[7]= base[5];
vs_top=(vs_base=base+7)+1;
Lclose();
vs_top=sup;
goto T24;
T24:;
vs_base=vs_top=base+7;
for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
if (active) {
unwind(fr,tag);
{object V7 = Cnil;VMR1
(V7);}
} else {
{object V8 = ({register object _z=vs_base[0];_z;});VMR1
(V8);}}}}
va_end(ap);
base[0]=base[0];
return Cnil;}
}
static object LnkTLI17(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_proc_new(((object)VV[17]),0,0,(void **)(void
*)&LnkLI17,4,fir
st,ap);va_end(ap);return V1;} /* WRITE-CHUNK */
static object LnkTLI16(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_vproc_new(((object)VV[16]),0,0,(void **)(void
*)&LnkLI16,firs
t,ap);va_end(ap);return V1;} /* OPEN */
static object LnkTLI15(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_vproc_new(((object)VV[15]),0,0,(void **)(void
*)&LnkLI15,firs
t,ap);va_end(ap);return V1;} /* BREAK */
static object LnkTLI14(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_vproc_new(((object)VV[14]),0,32,(void **)(void
*)&LnkLI14,fir
st,ap);va_end(ap);return V1;} /* SCAN-FOR-CHUNKS */
static object LnkTLI13(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_vproc_new(((object)VV[13]),0,0,(void **)(void
*)&LnkLI13,firs
t,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
static object LnkTLI12(object first,...){object V1;va_list
ap;va_start(ap,first
);V1=(object )call_proc_new(((object)VV[12]),0,0,(void **)(void
*)&LnkLI12,1,fir
st,ap);va_end(ap);return V1;} /* READ-PAMPHLET-FILE */
#(#(* *CHUNK-HASH-TABLE* ELEMENT-TYPE UTF8 INITIAL-ELEMENT *DEBUG-MODE*
*LASTBUFF* No main chunk DIRECTION OUTPUT IF-EXISTS SUPERSEDE
READ-PAMPHLET-FILE MAKE-ARRAY SCAN-FOR-CHUNKS BREAK OPEN
WRITE-CHUNK
(%INIT
. #((LET ((*DISABLE-RECOMPILE* T))
(MFVFUN 'CMP-ANON 0 196610 0)
(ADD-HASH 'CMP-ANON '((T T *) T)
'((CLOSE (T *) T) (WRITE-CHUNK (T T T T) NULL)
(OPEN (T *) T) (BREAK (*) NULL)
(GETHASH (T T *) (RETURNS-EXACTLY T BOOLEAN))
(SCAN-FOR-CHUNKS (*) *) (CHAR-CODE (T) FIXNUM)
(MAKE-ARRAY (T *) T) (READ-PAMPHLET-FILE (T) T)
(CLRHASH (T) T))
COMMON-LISP-USER
LISPLAMBDA
COMPILERCMP-ANONAFETY !,BLOC!NA! .CHUNKNAME
1.TANGL,CLRHASH!.*CHUNK-HASH-TABLE*,LET!.BUF.READ-PAMPHLET-FILE-!.CHUN!.NAME
,MAKE-ARRAY!
KEYWORDELEMENT-TYP!,QUOTE!.UTF88INITIAL-ELEMENT ,CHAR-CODE*
!,IF
.*DEBUG-MODE* !,SETQ!
.*LASTBUFF*4 <= <6.SCAN-FOR-CHUNKS4 <5 ,GETHASH63
,NOT!,PR
No main chunk ,LET.OUT-FILE,OPEN/ 8DIRECTION8OUTPUT
8IF-EXISTS 8
SUPERSEDE9: ,UNWIND-PROTEC>
.WRITE-CHUNK46?- ;,CLOSE?
'/tmp/gazonk_31886_0.lsp)
(DEBUGGER 'CMP-ANON '(IN-FILE OUT-NAME CHUNKNAME)))
(DO-RECOMPILE)))))
static object LI1(object,object,object,...);
#define VMB1 register object *VOL base=vs_top; object V6;
#define VMS1 register object *VOL sup=vs_top+8;vs_top=sup;
#define VMV1 vs_check;
#define VMR1(VMT1) vs_top=base ; return(VMT1);
#define VM1 8
static void * VVi[19]={
#define Cdata VV[18]
(void *)(LI1)
};
#define VV (VVi)
static object LnkTLI17(object,...);
static object (*LnkLI17)() = (object (*)()) LnkTLI17;
static object LnkTLI16(object,...);
static object (*LnkLI16)() = (object (*)()) LnkTLI16;
static object LnkTLI15(object,...);
static object (*LnkLI15)() = (object (*)()) LnkTLI15;
static object LnkTLI14(object,...);
static object (*LnkLI14)() = (object (*)()) LnkTLI14;
static object LnkTLI13(object,...);
static object (*LnkLI13)() = (object (*)()) LnkTLI13;
static object LnkTLI12(object,...);
static object (*LnkLI12)() = (object (*)()) LnkTLI12;
NIL
____________________________________________________________________________________Looking
for a deal? Find great prices on flights and hotels with Yahoo! FareChase.
http://farechase.yahoo.com/
_______________________________________________
Gcl-devel mailing list
Gcl-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/gcl-devel
