Michael Sperber | 3 Aug 17:26 2008
Picon

Re: c/external.c:727:8: warning: extra tokens at end of #endif directive


Ivan Shmakov <ivan <at> theory.asu.ru> writes:

> $ nl -ba c/external.c 
> ...
>    723	  for (i = 0; i < nargs; i++) {
>    724	    s48_ref_t ref = va_arg(arguments, s48_ref_t);
>    725	#ifdef DEBUG_FFI
>    726	    fprintf(stderr, "call_scheme_2: pushing arg %d ref %x\n", i, ref);
>    727	#endif DEBUG_FFI
>
> 	Shouldn't there be no DEBUG_FFI on this line?

Yes.  I've finally pushed the fix for this.  Thanks!

--

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla

Michael Sperber | 3 Aug 17:40 2008
Picon

Re: s48 1.8 fails to load slib image after dump


"Vadim Zborovskii" <vadim_z <at> triniti.ru> writes:

> $ scheme48 -i slib.image 
> Heap size 3000000 is too small, using 3452636 cells
> call-error with no handler in place: bad procedure#{procedure}???
> stack template id's:  <- 1283 <- 6129 <- 6104 <- 2890 <- 
>
> With development version from hg repository (changeset d789cdf93b49):
> $ ../s48-hg-dev/go -i slib.image
> Heap size 3000000 is too small, using 3546212 cells
> assertion-violation [call-imported-binding-2] with no handler in place: bad 
> procedure???
> stack template id's: 3029 <- 1638 <- 3028 <-  <- 1368 <- 6542 <- 6517 <- 3289 
> <-

I've just pushed a fix for this to the development version.  (Invoking
the image would get Scheme 48 try to automatically reload the POSIX
shared library, and that was buggy.)

Thanks for the report!

--

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla

Ray Stinger | 6 Aug 08:14 2008
Picon

Build s48 1.8 on Freebsd5.5 Failed

s48.org:

I am trying to compile Scheme48 1.8 on FreeBSD 5.5 with --enable-gc="bibop", but I got following error when
I 'sudo gmake':

cc -c  -DHAVE_CONFIG_H -D__COMPILING_SCHEME48_ITSELF__
-DS48_HOST_ARCHITECTURE=\"i386-unknown-freebsd5.5\" -I ./c -I./c -I./c/bibop -g -O2 -pthread -o
c/unix/socket.o c/unix/socket.c
c/unix/socket.c: In function `s48_get_host_by_name':
c/unix/socket.c:362: error: syntax error before "t"
c/unix/socket.c:377: error: `t' undeclared (first use in this function)
c/unix/socket.c:377: error: (Each undeclared identifier is reported only once
c/unix/socket.c:377: error: for each function it appears in.)
c/unix/socket.c: In function `gethostbyaddr_thread':
c/unix/socket.c:452: warning: passing arg 1 of `gethostbyaddr' from incompatible pointer type
c/unix/socket.c: In function `s48_get_host_by_address':
c/unix/socket.c:465: error: syntax error before "t"
c/unix/socket.c:476: error: `t' undeclared (first use in this function)
gmake: *** [c/unix/socket.o] Error 1

socket.c seems to be an interpace to POSIX socket. Now I dont know how to deal with the problem.

Thanks,
Ray Stinger

Vadim Zborovskii | 6 Aug 10:57 2008
Picon

Re: Build s48 1.8 on Freebsd5.5 Failed

Hello Ray,

Please try  a patch:
----------cut here---------
--- c/unix/socket.c.orig    2008-08-06 12:37:30.800057262 +0400
+++ c/unix/socket.c    2008-08-06 12:37:37.484438183 +0400
 <at>  <at>  -19,6 +19,9  <at>  <at> 
 #include <string.h>
 #include <netinet/in.h>
 #include <arpa/inet.h>
+#ifdef HAVE_PTHREAD_H
+#include <pthread.h>
+#endif

 #include "c-mods.h"
 #include "scheme48.h"
----------cut here---------

Also, you should gmake, not make.

Best regards,
Vadim Zborovskii

Jonathan Rees | 11 Aug 18:32 2008

small error in regexps section of manual

Welcome to Scheme 48 1.8 (made by jar on Thu May 29 17:36:24 EDT 2008)
Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees.
Please report bugs to scheme-48-bugs <at> s48.org.
Get more information at http://www.s48.org/.
Type ,? (comma question-mark) for help.
 > ,open regexps
 > (define pattern (text "abc"))
; no values returned
 > (match pattern "abc")
#{Match 0 3}
 >

Compare: http://s48.org/1.8/manual/manual-Z-H-6.html#node_sec_5.20
The manual has an extra set of parentheses in the result.

Jonathan

Michael Sperber | 12 Aug 08:15 2008
Picon

Re: small error in regexps section of manual


Jonathan Rees <jar <at> creativecommons.org> writes:

> [...]
> The manual has an extra set of parentheses in the result.

Thanks - I've just pushed a fix.

--

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla

William D Clinger | 20 Aug 04:44 2008

ANN: Call for registration: 2008 Workshop on Scheme and Functional Programming

The 2008 Workshop on Scheme and Functional Programming
will be held

    * in Victoria, British Columbia,
    * on Saturday, 20 September, two days before ICFP.

Discounted early registration closes Wednesday, 20 August.

The workshop program is online at
http://www.ccs.neu.edu/home/will/scheme2008/program.html

For more details, see http://www.schemeworkshop.org/2008/

Will Clinger
workshop chair

Ivan Shmakov | 20 Aug 20:38 2008
Picon

writing negative flonums

	... Doesn't look like anything good at all.

Welcome to Scheme 48 1.9T (made by ivan on Thu Aug 21 01:34:41 NOVST 2008)
Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees.
Please report bugs to scheme-48-bugs <at> s48.org.
Get more information at http://www.s48.org/.
Type ,? (comma question-mark) for help.
> .1
0.1
> -.1
-1
> (abs -.1)
0.1
> 

Ivan Shmakov | 20 Aug 20:56 2008
Picon

SIGSEGV trying to bootstrap Scheme48 from VCS

	BTW, I'm getting segmentation faults while trying to bootstrap
	recent Scheme48 revisions from the Mercurial repository using
	some likewise recent Scheme48 versions.

	E. g., when trying to bootstrap Scheme48 rev. dc9216ef6864 using
	Scheme48 rev. dc9216ef6864, which was in turn built with
	Scheme48 1.8:

$ mkdir +build-1 
$ cd +build-1 
$ ../configure --prefix="$HOME" 
...
$ make \
      ../build/filenames.make \
      i-know-what-i-am-doing \
      c/scheme48.h \
      ../build/initial.image-{32,64}
...
cd ../ps-compiler &&					     \
	(echo ',batch';							     \
		echo ',config ,load ../scheme/platform-interfaces.scm';	     \
		echo ',config ,load ../scheme/rts-packages-64.scm';          \
		echo ',config ,load ../scheme/prescheme/interface.scm';	     \
		echo ',config ,load ../scheme/prescheme/package-defs.scm';   \
		echo ',exec ,load load-ps-compiler.scm';		     \
		echo ',exec ,load compile-twospace-gc-64.scm';		     \
		echo ',exit'						     \
	) | scheme48 -h 8000000 &&					     \
		mv ../scheme/vm/scheme48-twospace-heap-64.c ../c
Welcome to Scheme 48 1.9T (made by ivan on Thu Aug 21 01:34:41 NOVST 2008)
(Continue reading)

Ivan Shmakov | 20 Aug 21:06 2008
Picon

AC_ARG_ENABLE() isn't used quite properly

	There's a problem with S48_GLIB and some other Autoconf macros
	used by Scheme48's configure.in currently.  Consider, e. g.:

$ nl -ba s48_glib.m4 
     1	### s48_glib.m4 --- S48_GLIB macro  -*- Autoconf -*-
     2	# serial 1
     3	dnl
     4	dnl
     5	dnl
     6	AC_DEFUN([S48_GLIB], [dnl
     7	AC_ARG_ENABLE([glib],
     8	[AC_HELP_STRING([--enable-glib],
     9	                [Use the glib event loop])],
    10		[dnl Check for glib-2.0
    11	  	 PKG_CHECK_MODULES(GLIB, glib-2.0, AC_DEFINE(HAVE_GLIB), AC_MSG_WARN(glib-2.0 not found))
...

	I. e., the PKG_CHECK_MODULES(GLIB, ...) (and the rest) will be
	executed whenever --enable-glib or --enable-glib=ARG is given,
	no matter what the ARG will be.  In particular, the GLIB checks
	will be made whenever --enable-glib=no is given, or the form
	treated synonymously to it by Autoconf: --disable-glib.

	(That way, I was really quite a GLIB user for some time.)

	The proper way to use AC_ARG_ENABLE() would be, e. g.:

AC_DEFUN([S48_GLIB], [dnl
AC_ARG_ENABLE([glib],
[AC_HELP_STRING([--enable-glib],
(Continue reading)


Gmane