Décembre 2010 - Gambit-list - mailman.iro.umontreal.ca

Real-world software page
by Marc Feeley 13 Déc '10

13 Déc '10

Hi. I've added a page to the Gambit wiki with a list of "real-world software and services". http://dynamo.iro.umontreal.ca/~gambit/wiki/index.php/Real-world_software_a… Please add to the list if you can. Marc

1 0

Re: [gambit-list] Fix garbage collector bug on 64 bit systems
by Bradley Lucier 06 Déc '10

06 Déc '10

Marc: In lib/mem.c you changed @@ -345,7 +345,7 @@ ___HIDDEN long words_prev_msections; /* words usable in msections */ #define WORDS_MOVABLE_USABLE \ -(2*the_msections->nb_sections*((___MSECTION_SIZE>>1)-___MSECTION_FUDGE+1)) +(2*the_msections->nb_sections*(long)((___MSECTION_SIZE>>1)-___MSECTION_FUDGE+1)) Perhaps your intention was to ensure that some part of the computation will be done in 64-bit arithmetic, but on 64-bit Windows I believe (but am not sure) that (long) is 32-bits, and that you need (long long) to get 64-bits. One should probably use a 64-bit type defined in gambit.h. Brad

3 2

Deadlock when using net/http-client
by Tim Lavoie 02 Déc '10

02 Déc '10

Greetings, I'll start off with a caveat: I'm new to Gambit and add-ons such as Black Hole, but have been exploring and having a good time so far. One of the modules I would like to make use of is net/http-client, so that I can use Gambit-C to fetch data from CouchDB. I believe I have everything installed OK, but I receive immediate deadlock errors when attempting to make a request. (Any request, URL doesn't matter.) I have appended the request, error and stack dump below; please let me know if I'm doing something wrong, or have stumbled onto a bug. Thanks, Tim > (http-get-url "http://localhost:5000/") *** ERROR IN ##thread-deadlock-action! -- Deadlock detected 1> ,bed 0 ##thread-deadlock-action! (current-exception-handler) = primordial-exception-handler (current-input-port) = '#<input-port #9 (stdin)> (current-output-port) = '#<output-port #10 (stdout)> (current-directory) = "/home/tim/prog/scheme/" 1 ##mutex-lock-out-of-line! (current-exception-handler) = primordial-exception-handler (current-input-port) = '#<input-port #9 (stdin)> (current-output-port) = '#<output-port #10 (stdout)> (current-directory) = "/home/tim/prog/scheme/" 2 call-with-output-u8vector (current-exception-handler) = primordial-exception-handler (current-input-port) = '#<input-port #9 (stdin)> (current-output-port) = '#<output-port #10 (stdout)> (current-directory) = "/home/tim/prog/scheme/" 3 http-client#http-access-url "../../dl/Scheme/Gambit/Blackhole/blackhole/std/net/http-client.scm"@1005:1 12#headers = '() 11#response-headers = #f 10#response-code = #f 9#mtx = '#<mutex #12> 8#up = '#<output-port #13 (u8vector)> 1#method = 'get 2#uri = "http://localhost:5000/" 3#http-username = #f 4#http-password = #f 5#headers = '() 6#follow = #t 7#query = #f (current-exception-handler) = primordial-exception-handler (current-input-port) = '#<input-port #9 (stdin)> (current-output-port) = '#<output-port #10 (stdout)> (current-directory) = "/home/tim/prog/scheme/" 4 (interaction) "(generated)"@1:1 (http-client#http-get-url... (current-exception-handler) = primordial-exception-handler (current-input-port) = '#<input-port #9 (stdin)> (current-output-port) = '#<output-port #10 (stdout)> (current-directory) = "/home/tim/prog/scheme/"

6 8