Newsgroups: comp.lang.modula3
Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!think.com!sdd.hp.com!elroy.jpl.nasa.gov!decwrl!pa.dec.com!src.dec.com!Dave Hanson <drh@Princeton.EDU>
From: Dave Hanson <drh@Princeton.EDU>
Subject: STextTable bug?
To: m3
Message-ID: <9106110204.AA07382@cs.Princeton.EDU>
Date: Mon, 10 Jun 91 22:04:48 -0400
Lines: 26

is the outcome below a bug in STextTable?
it appears to me that STable compares keys with NIL
and that TexT.Compare no longer accepts NIL arguments
(did it ever?).

or perhaps i've made some (obvious) error in using
STexTTable?


elan 344 cat Main.m3
MODULE Main;
IMPORT STextTable;

VAR     tab := STextTable.New();
        count: REF INTEGER;
BEGIN
        count := NEW(REF INTEGER);
        count^ := 1;
        EVAL STextTable.Put(tab, "foo", count)
END Main.
elan 345 m3 Main.m3 -lm3data
elan 346 a.out
M3 runtime error: Text.Compare: NIL argument

Quit (core dumped)
elan 347