Hello,

gst 2.95h floatmath.st fails on alpha:

#                             -*- compilation -*-
8. testsuite.at:34: testing ...
{ (cd /home/tgg/smalltalk-2.95h/tests && gst -I /home/tgg/smalltalk-2.95h/gst.im -r floatmath.st 2>&1); echo exit 0 > retcode; } | tr -d '\r' | tee stdout; . retcode
./testsuite.at:34: { (cd $abs_srcdir && gst $image_path -r floatmath.st 2>&1); echo exit $? > retcode; } | tr -d '\r' | tee stdout; . retcode
--- expout	2008-01-06 13:05:47.000000000 +0000

The following test program will, in roughly 50% of its runs on my machine, generate the following backtrace immediately after the first "Global garbage collection... done" message. In the other runs, the global collection message prints and the program continues running without the backtrace. I'm not sure if the backtrace has caused any of the three Processes to exit.

Backtrace:

~$ gst threading-preemption.st
"Global garbage collection... done"
Object: nil error: did not understand #goodness:
MessageNotUnderstood(Exception)>>signal

In cases where an anonymous background process is running at full tilt, and does not put itself to sleep (although it may yield the Processor), if ObjectMemory quit is called, the system will wait forever for the background process to terminate. This is polite, and seems a worthwhile behaviour to preserve, but should it be the default? I expected ObjectMemory quit to fairly smartly terminate the VM.

Example:

[| d count |
    d := Delay forMilliseconds: 500.
    count := 0.
    [
        count := count + 1.
	(count \\ 100) = 0 ifTrue: [

Given a CStruct #StructA with a member #b of type (#ptr #StructB), I was expecting to be able to call

 st> myA b
 CPtr(16r80728C4)

as well as

 st> myA b value
 StructB(16r80728D0)

However, what I actually get is:

 st> myA b value
 Object: CPtr new: 1 "<0x40338b18>" error: Invalid argument StructB
 SystemExceptions.WrongClass(Exception)>>signal
 SystemExceptions.WrongClass class(SystemExceptions.InvalidValue class)>>signalOn:
 CPtr(CObject)>>derefAt:type:
 CPtr>>value
 UndefinedObject>>executeStatements
 nil

No problem with running, but:

$ gst-blox
Starting window environment...
/usr/share/smalltalk/kernel/../scripts/Browser.st:45: Invalid C function return type specified, index 51