Re: java hashtable

Hi Wayne,

> I'm getting unexpected results from hashtable-get/put! under the -jvm
> target.  However, when using bigloo3.6a, the results look correct to me.
> 
> Makefile:
> --------
> 
> PROG=bgtest
> BGLFLAGS=-g -jvm -jvm-cinit-module -jvm-purify
> OBJS= bigloo/test.class 
> 	${PROG}.class
> BGLJAR=/usr/local/lib/bigloo/current/bigloo_u.zip 
> all: .afile ${OBJS}
> 	java -classpath .:$(BGLJAR) $(PROG)
> 
> %.class: %.java
> 	javac -classpath .:$(BGLJAR) $<
> 
> bigloo/test.class: bigloo/test.scm
> 	bigloo ${BGLFLAGS} -c -o $@ $^
> 
> .afile: bigloo/test.scm
> 	bglafile $^ > $@
> 
> clean:
> 	rm -f $(OBJS) .afile
> 
> (The file /usr/local/lib/bigloo/current is a symbolic link.  I point this to
> the bigloo version, then do a 'sudo make install' from the appropriate
> source directory.)
> 
> bgtest.java:
> -----------
> 
> import bigloo.test;
> 
> public class bgtest{
>     public static void main(String args[]){
> 	test.add(3);
> 	test.add(3);
>     }
> }
> 
> bigloo/test.scm:
> ---------------
> 
> (module bigloo.test
> 	(java
> 	 (export add "add"))
> 	(export
> 	 (add ::int))
> 	)
> 
> (define *hash* (make-hashtable 20000))
> 
> (define (add count)
>   (let ((keys (iota count)))
>     (for-each
>      (lambda (key)
>        (let ((fnd (hashtable-get *hash* key)))
> 	 (hashtable-put! *hash* key "value")
> 	 (printf "key: ~s fnd: ~s
> " key fnd)))
>      keys)))
> 
> Under bigloo 4.0b, output is 
> make -k 
> bglafile bigloo/test.scm > .afile
> bigloo -g -jvm -jvm-cinit-module -jvm-purify -c -o bigloo/test.class
> bigloo/test.scm
> *** WARNING:bigloo:Incompatible package name and class path.
> Package name for module bigloo.test is `.', class path is `bigloo'.
> javac -classpath .:/usr/local/lib/bigloo/current/bigloo_u.zip
> bgtest.java
> java -classpath .:/usr/local/lib/bigloo/current/bigloo_u.zip bgtest
> key: 0 fnd: #f
> key: 1 fnd: #f
> key: 2 fnd: #f
> key: 0 fnd: #f
> key: 1 fnd: #f
> key: 2 fnd: #f
> 
> Under bigloo 3.6a, output is
> make -k 
> bglafile bigloo/test.scm > .afile
> bigloo -g -jvm -jvm-cinit-module -jvm-purify -c -o bigloo/test.class
> bigloo/test.scm
> *** WARNING:bigloo:Incompatible package name and class path.
> Package name for module bigloo.test is `.', class path is `bigloo'.
> javac -classpath .:/usr/local/lib/bigloo/current/bigloo_u.zip
> bgtest.java
> java -classpath .:/usr/local/lib/bigloo/current/bigloo_u.zip bgtest
> key: 0 fnd: #f
> key: 1 fnd: #f
> key: 2 fnd: #f
> key: 0 fnd: "value"
> key: 1 fnd: "value"
> key: 2 fnd: "value"
> 
> Is there something wrong with my code?  If not, what has changed in
> bigloo?
There is something weird here that I don't understand (we are currently
investigating). In the meantime, you can change the creation of the hash
table for

  (define *hash* (create-hashtable :size 20000 :eqtest =fx))

This solves the problem.

Many thanks for your report.

-- 
Manuel