Package: xbvl
Severity: normal
Tags: patch
When building 'xbvl' on amd64 with gcc-4.0,
I get the following error:
init.c: In function 'init':
init.c:76: warning: incompatible implicit declaration of built-in function
'exit'
init.c:77: warning: cast from pointer to integer of different size
init.c:77: warning: cast to pointer from integer of different size
init.c:88: warning: cast from pointer to integer of different size
init.c:88: warning: cast to pointer from integer of different size
init.c:90: warning: cast from pointer to integer of different size
init.c:90: warning: cast to pointer from integer of different size
init.c:92: warning: cast from pointer to integer of different size
init.c:93: warning: cast to pointer from integer of different size
init.c:96: warning: cast from pointer to integer of different size
init.c:96: error: invalid lvalue in assignment
With the attached patch 'xbvl' can be compiled
on amd64 using gcc-4.0.
Regards
Andreas Jochens
diff -urN ../tmp-orig/xbvl-2.2/src_lisp/fil.c ./src_lisp/fil.c
--- ../tmp-orig/xbvl-2.2/src_lisp/fil.c 2002-02-21 17:38:56.000000000 +0100
+++ ./src_lisp/fil.c 2005-02-06 19:48:43.000000000 +0100
@@ -190,7 +190,7 @@
Int lopen()
{/* fsubr, (open fichier mode), ramene le fdes */
- register CHAR *pch1,*pch2, mode[2];
+ CHAR *pch1,*pch2, mode[2];
FILE *fp;
mode[1] = 0;
diff -urN ../tmp-orig/xbvl-2.2/src_lisp/gc.c ./src_lisp/gc.c
--- ../tmp-orig/xbvl-2.2/src_lisp/gc.c 2005-02-06 21:29:32.290127040 +0100
+++ ./src_lisp/gc.c 2005-02-06 21:26:03.620410310 +0100
@@ -25,7 +25,7 @@
#endif
# define at_ptr(x) ((struct atome *)x)
-# define strmark(x) { if(ismstr(x)) (Int *) (x) = savestr(x) ; else mark(x); }
+# define strmark(x) { if(ismstr(x)) x = savestr(x) ; else mark(x); }
# define unmark(x) ((x) & ~markmask)
# define ismarked(x) ((x) & markmask)
# define ismstr(x) ((CHAR *)(x) >= hdsysstr && (CHAR *)(x) < hstr)
diff -urN ../tmp-orig/xbvl-2.2/src_lisp/init.c ./src_lisp/init.c
--- ../tmp-orig/xbvl-2.2/src_lisp/init.c 2002-02-21 17:38:56.000000000
+0100
+++ ./src_lisp/init.c 2005-02-06 19:38:09.000000000 +0100
@@ -93,7 +93,7 @@
aux1+=LISFR;aux1 &= ~LISFR;blst=(CHAR*)aux1;
- aux1=(Int)bpil=hlst+SIZLST;
+ bpil=hlst+SIZLST; aux1=(Int)bpil;
aligner(aux1);bpil=(CHAR*)aux1;
hpil=bpil+tpil-SIZPIL;
diff -urN ../tmp-orig/xbvl-2.2/src_lisp/out.c ./src_lisp/out.c
--- ../tmp-orig/xbvl-2.2/src_lisp/out.c 2002-02-21 17:38:56.000000000 +0100
+++ ./src_lisp/out.c 2005-02-06 21:29:18.755740054 +0100
@@ -54,7 +54,7 @@
}
Int pannot(){/* impression annotations */
- a1=(Int*)prnxt=((Int)'{');rec(pvcch,pann1);
+ prnxt=((Int)'{'); a1=(Int*)prnxt;rec(pvcch,pann1);
}
Int pann1(){/* suite impression annotations */
@@ -99,7 +99,7 @@
else a3=car(a1);
if(isatom(a3) && a3==quote && ANot==0)
{pushf(probc33);push(a1);pushf(popa1);
- a1=(Int*)prnxt=((Int)'\'');pc=pvcch;return;}
+ prnxt=((Int)'\''); a1=(Int*)prnxt;pc=pvcch;return;}
if(!TRACE && isatom(a3) && (ATOME_FTYP(a3) == MACOUT))
{
if(ANot!=0)pushf(pannot);
@@ -108,10 +108,10 @@
if(ANot!=0) {pop_cast(a3,(Int *));
pushf(prob3);push(cdr(a1));pushf(popa1);push(a3);
pushf(pannot);pushf(prspc);pushf(prob1);
- push(car(a1)); pushf(popa1);a1=(Int*)prnxt=((Int)'(');
+ push(car(a1)); pushf(popa1);prnxt=((Int)'(');a1=(Int*)prnxt;
pc=pvcch;}
else {pushf(prob3); push(a1); pushf(popa1);
- a1=(Int*)prnxt=((Int)'('); pc=pvcch;}
+ prnxt=((Int)'('); a1=(Int*)prnxt; pc=pvcch;}
}
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
