[Gcl-devel] gcl bad code generation for setf fill-pointer

[Tim Josling]

System:
uname -a
Linux tim-gcc 2.6.20-15-generic #2 SMP Sun Apr 15 06:17:24 UTC 2007
x86_64 GNU/Linux

GCL:
GCL (GNU Common Lisp)  2.6.7 CLtL1    Nov 10 2006 14:25:02

Run log of error:

make cobol-tests
gcl  \
         -eval  "(compile-file
\"/home2/gcb/gcb/gcc/gcc/gcb/gcbc-compiler-lexer.lisp\")"
GCL (GNU Common Lisp)  2.6.7 CLtL1    Nov 10 2006 14:25:02
Source License: LGPL(gcl,gmp), GPL(unexec,bfd,xgcl)
Binary License:  GPL due to GPL'ed components: (XGCL READLINE BFD
UNEXEC)
Modifications of this banner must retain notice of a compatible license
Dedicated to the memory of W. Schelter

Use (help) to get some basic information on how to use GCL.
Temporary directory for compiler files set to /tmp/
Compiling /home2/gcb/gcb/gcc/gcc/gcb/gcbc-compiler-lexer.lisp.
End of Pass 1.  
End of Pass 2.  
/home2/gcb/gcb/gcc/gcc/gcb/gcbc-compiler-lexer.c: In function 'L1':
/home2/gcb/gcb/gcc/gcc/gcb/gcbc-compiler-lexer.c:5158: error: invalid
lvalue in assignment

Error: (SYSTEM "gcc -c -Wall -DVOL=volatile -fsigned-char -pipe
-I/usr/lib/gcl-2.6.7/unixport/../h  -O3 -fomit-frame-pointer -c
\"/home2/gcb/gcb/gcc/gcc/gcb/gcbc-compiler-lexer.c\" -o
\"/home2/gcb/gcb/gcc/gcc/gcb/gcbc-compiler-lexer.o\" -w") returned a
non-zero value 0.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by UNLESS.
Broken at CERROR.  Type :H for Help.
>>

Input program:
;;; -*- lisp -*-

(defvar *current-token-chars* nil)

(defun init-token-chars () 
  (setf (fill-pointer *current-token-chars*) 0))

Output C code (excerpt):

#include "gcbc-compiler-lexer.h"
void init_code(){do_init((void *)VV);}
/*      function definition for INIT-TOKEN-CHARS        */

static void L1()
{register object *base=vs_base;
        register object *sup=base+VM1; VC1
        vs_check;
        vs_top=sup;
        goto TTL;
TTL:;
        base[0]=
CMPmake_fixnum((long)(((((object)VV[0])->s.s_dbind))->st.st_fillp)=((long)0)); 
        vs_top=(vs_base=base+0)+1;
        return;
}

This is the bad line:
CMPmake_fixnum((long)(((((object)VV[0])->s.s_dbind))->st.st_fillp)=((long)0)); 

Regards,
Tim Josling