Martin,
Thanks for posting combinat.tst. It turned out to be *very* useful.
On a Sparcstation SLC with 12mb ram, 80 mb swap, SunOS 4.1.2 running
the pre-compiled version of GAPv3r1 I got 12477 GAPstones.
On a Sparcstation IPX with 64mb ram, 180 mb swap, SunOS 4.1.2 running
the pre-compiled version of GAPv3r1 I got 23782 GAPstones.
The third machine is an Amdahl 5890-300E with 55mb ram, 100 mb virtual
memory (that we can use). The OS is UTS, Amdahl's Sys. 5 Rel 3.4
product. Although the program seemed to compile normally, the GAP
program it created seems to be rather crippled :-( The good news is
that the test reported a new world record of over 2,000,000 GAPstones
;-). The bad news is that several of the tests failed (looks like
overflow errors?).
I've included the output of "make usg" in case the error messages are
of any help. If you have any ideas how I can fix this, please let me
know. On the other hand, this isn't a terribly high priority since
this is only a test system and will be taken way on December 24.
However, it would be nice to get it going to help us evaluate this
system.
This test program turned out to very useful. I suggest that you include
it in the next release so that it is automatically run by make when
GAP is compiled. The distributions of TeX, GCC and perl all include
such tests and are useful for weeding out many errors.
Thanks for your help,
Dawn
------ error messages from combinat 3.1 test ------- gap> ReadTest("combinat.tst"); [ ] #>[ 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 ] [ ] #>[ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 ] Error, Range: <high> must be an integer at for <var> in [ 1 .. n - 1 ] ... in Bell( n ) called from fun( i ) called from List( [ 0 .. 10 ], function ( n ) ... end ) called from main loop #>[ 1, 1, 2, 5, 15, 52, 203, 877, 4140, 21147, 115975 ] [ 1, 1, 2, 5, 15, 52, 203, 877, 4140, 21147, -19795712349051/2835 ] #>[ 1, 1, 2, 5, 15, 52, 203, 877, 4140, 21147, 115975 ] [ ] #>[ 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 ] [ ] #>[ 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 ] [ ] #>[ 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 ] [ ] #>[ 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 ] 189716653967246317102219841803592079875786289982825807408418883233113779617440\ 7638/9280784638125 #>170886257768137628374668205554120607567311094075812403938286 27692248700036124567107335014580233 #>9 5321157941168254033546471297717501542400437583349037/5 #>265 356811921265724728180664990332289807596650505 #>9 165641909854716711007828196609624895704068987930461438638163658455121944 #>24 Error, Range: <high> must be an integer at for <var> in [ 1 .. n - 1 ] ... in Bell( Size( set ) ) called from NrPartitionsSet( [ ] ) called from Bell( n ) called from fun( i ) called from List( [ 0 .. 10 ], function ( n ) ... end ) called from main loop #>1 25441820363276742883607945813580428205317908552744971 #>11 103445980859711697995668758589333890877387084633322583554786870805163715674586\ 382283216930470467004063923134244997005088911195688883980350143867868650519199\ 255463162359189104634221737705197994835522875243609678612273035836031000540847\ 879370061132590904417753208251770796456301698992792567377381177431998746706824\ 895700578698097589340459891022789690549060482923693175349457995902190264395485\ 270884028375345458096994745360117317857209769253571592337759885481666800589264\ 114458182334885045235011330071469352561430714562360768501935580707455023840389\ 412014421805463889657468591001103387599424033354742851050553023446594897501289\ 805860063896293850725801219437039364643073739058210980320234306208036491802816\ 400811239008992346941826854043729985019085586118717030222680381808819917575335\ 266682473085849077472986231119938203834090754532250687228265588621311429507200\ 8970908708100940 #>190569292 [ 0, 1, 1, -536870909, -1073741819, 288230374541099019, 864691119865200661, -154742519898652116263108565, -618970009842857398757228459, 85672934994540862368995528128069803, 415383742493086060260628694699082069 ] #>[ 0, 1, 1, 3, 5, 11, 21, 43, 85, 171, 341 ] [ 2, 1, -1073741819, -1610612729, 576460745860972561, 1441151867336785951, -309485022215251278681866175, -1083197527457178791815675777, 171345791379889220316510857174450433, 750286880274547222578878952931066367, -89202977060861102344628131533586030537997311 ] #>[ 2, 1, 5, 7, 17, 31, 65, 127, 257, 511, 1025 ] [ 0, 1, 1, -536870910, -1073741821, 288230375614840837, 864691123086426120, -154742511540111934077534195, -618970013301621882512998379, 85672896000034073954266207567740962, 415383745587936126768738156656197687 ] #>[ 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55 ] false #>true [ 0, 1, 1, -536870910, -1073741821, 288230375614840837, 864691123086426120, -154742511540111934077534195, -618970013301621882512998379, 85672896000034073954266207567740962, 415383745587936126768738156656197687, -44601488740718563110999340270705688317001639, -267608952933114634820076485700250203139866480, 71835732982839338679231443703812501888996891407941865, 167616706829394533669627392795558287289818369897791865, -12855503611769392947089542050797870482256065104344334993456542, -106057907535834706391533870608303841267974783539608212457126949, 891201476416135891846766331438310389883836271092900458793881427645564477 ] #>[ 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597 ] 135738349279776867027993904418466224053009993148602642567552723657351343772050\ 216142505137454048707280279205807983451045439248675629354398237452629374074999\ 387095541931700660069064754600737235826430110846163438878465147490822924468131\ 794379119150986537740545913207487860819988017476575921092763352224767132851986\ 984649114742559091240753504448640651982014011262456107282151921925049918047392\ 143241554042772010299027904456756459331779796377958748201619854923481717346701\ 177624836072109803555466915318502006112521888216765742677893133260546747425553\ 271794753853591734213433468782739620386169784293875461990168427739198435938937\ 580292726566640987556414084576638582982585882053295629811282197110939351331852\ 717761929302407462864916633932854332927570571513984768151268014774548511974383\ 979921068825388572990598424800592056589172755164757584549543765463184903323690\ 868098059654307199789224244346249880706650473563360259164152962912803580059659\ 465596511670519117115080459110785437458795994689653444565981628973066887033138\ 380388046974681096824052269835725672859954153880725022286303832048082319624754\ 495333839165255114817076472223045099550497553254468841586926970329925276617785\ 017576075438313828182274519999907261916065702046763117743626170989518955297491\ 619789760254956948452005735806820414508635353825370782568114761534754545332734\ 781597769653717123352680772212111499161397756942231762884472367431825474895333\ 18533686861432334192786548186464749568175610313288746114 #>1751455877444438095408940282208383549115781784912085789506677971125378 [ 1, 536870911/2, 1/6, 0, 536870911/30, 0, 1/42, 0, 536870911/30, 0, 5/66, 0, 536870221/2730, 0, 7/6 ] #>[ 1, -1/2, 1/6, 0, -1/30, 0, 1/42, 0, -1/30, 0, 5/66, 0, -691/2730, 0, 7/6 ] 802253496557036953319516546081147151131269605994715702835087291317704257795261\ 574992461094736310619798197331947999519662834583957107667389224105531454507586\ 851169348493282576133837315191806493255472708172907606845613681544962381267561\ 842305305600940841066484533313652248239845963584155602532913747676128347430418\ 667046313619438157293336987448546888989998914845819745531165082612272808525450\ 9733/62730 #>-4603784299479457646935574969019046849794257872751288919656867/230010 combinat 3.1 1992/04/29 2473498 GAPstones Syntax error: warning, undefined global variable in combinat.tst line 233 if IsBound( GAPSTONES ) then Add( GAPSTONES, QuoInt(700000000,time) ); fi; ^ % ------ error messages from compiling GAP ------- % make usg ln system.usg system.c cc -O -c gap.c gap.c: 448: warning: hdCall set but not used gap.c: 887: warning: hdCall set but not used cc -O -c system.c system.c: 890: warning: invariant comparison
Base registers used - 3/0 for text/literals for system.c
cc -O -c gasman.c cc -O -c scanner.c cc -O -c idents.c cc -O -c read.c cc -O -c eval.c eval.c: 762: warning: hdR set but not used eval.c: 762: warning: hdL set but not used eval.c: 779: warning: hdR set but not used eval.c: 779: warning: hdL set but not used cc -O -c integer.c cc -O -c rational.c cc -O -c cyclotom.c cc -O -c finfield.c cc -O -c unknown.c unknown.c: 191: warning: hdL set but not used cc -O -c permutat.c cc -O -c word.c word.c: 2465: warning: j unused cc -O -c agcollec.c agcollec.c: 1624: warning: nr set but not used agcollec.c: 1701: warning: nr set but not used agcollec.c: 1837: warning: nr set but not used cc -O -c aggroup.c cc -O -c pcpresen.c cc -O -c list.c
Base registers used - 2/0 for text/literals for list.c
cc -O -c set.c set.c: 167: warning: hdSet set but not used cc -O -c vector.c vector.c: 197: warning: hdVec set but not used
Base registers used - 2/0 for text/literals for vector.c
cc -O -c blister.c blister.c: 701: warning: ptList unused
Base registers used - 2/0 for text/literals for blister.c
cc -O -c range.c cc -O -c record.c record.c: 1161: warning: hdLt unused cc -O -c string.c cc -O -c statemen.c cc -O -c function.c function.c: 734: warning: hdFun set but not used
Base registers used - 2/0 for text/literals for function.c
cc -o gap gap.o system.o gasman.o scanner.o idents.o read.o \
eval.o integer.o rational.o cyclotom.o finfield.o unknown.o \
permutat.o word.o agcollec.o aggroup.o pcpresen.o \
list.o set.o vector.o blister.o range.o \
record.o string.o statemen.o function.o
~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~ Dawn Endico dawn@math.wayne.edu Mathematics Department ... umich!wsu-cs!mathsun!dawn Wayne State University (313)577-3183 1150 FAB Detroit, MI 48202 DON'T PANIC!