From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,41a81b1d63fad8fe
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-01-20 21:46:30 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!bloom-beacon.mit.edu!nycmny1-snh1.gtei.net!nycmny1-snf1.gtei.net!news.gtei.net!colt.net!kibo.news.demon.net!demon!news.demon.co.uk!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: TASH and gcc-3.2 -- no selector Obj for type Tash_List ...
Date: 21 Jan 2003 05:45:39 +0000
Organization: Pushface
Sender: simon@smaug.pushface.org
Message-ID: <x7vlm1foy2k.fsf@smaug.pushface.org>
References: <slrnb2l45f.eg7.felix@calico.local>
NNTP-Posting-Host: pogner.demon.co.uk
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: news.demon.co.uk 1043127989 6933 62.49.19.209 (21 Jan 2003 05:46:29
 GMT)
X-Complaints-To: abuse@demon.net
NNTP-Posting-Date: Tue, 21 Jan 2003 05:46:29 +0000 (UTC)
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1
Xref: archiver1.google.com comp.lang.ada:33274
Date: 2003-01-21T05:45:39+00:00
List-Id: <comp.lang.ada>

"Eric G. Miller" <felix@calico.local> writes:

> Anyone had success compiling TASH 8.3.2 with GNAT/gcc-3.2?  I guess
> this must be a compiler problem and not a problem with TASH ...

I think you are right. And the same failure occurs with 3.3
20021130. I tried the code with ObjectAda .. no complaints.

This patch gets tash-arrays.adb to compile, similar patches on the
other files ..

--- tash-arrays.adb     2003/01/21 05:31:18     1.1
+++ tash-arrays.adb     2003/01/21 05:31:54
@@ -698,7 +698,7 @@
       -- Create a Tcl list to hold the index and value
       ------------------------------------------------
       Listv(1) := Tash.To_Tcl_Obj (Index);
-      Listv(2) := Value.Obj;
+      Listv(2) := Tash_Object (Value).Obj;
       ListObj  := Tcl.Tcl_NewListObj (Objc => Listc, Objv => Listv);
       Tcl.Tcl_IncrRefCount (ListObj);
       Tcl.Tcl_DecrRefCount (Listv(1));
@@ -756,7 +756,7 @@
       Objv(1) := Array_Cmd;
       Objv(2) := Set_Option;
       Objv(3) := TArray.Obj;
-      Objv(4) := List.Obj;
+      Objv(4) := Tash_Object (List).Obj;
 
       -- Set the array elements
       -------------------------

There is a tash mailing list, tash@yahoogroups.com, and the web site
is http://www.adatcl.com/ .

I recently used TASH for a project, but the Ada didn't use any of the
new thick bindings .. just exported subprograms to the Tcl
environment, so no need to build the full TASH sources.

-S