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,WEIRD_PORT autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,41a81b1d63fad8fe,start X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2003-01-19 03:49:30 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!HSNX.atgi.net!cyclone-sf.pbi.net!151.164.30.35!cyclone.swbell.net!newsfeed1.easynews.com!easynews.com!easynews!newsfeed1.earthlink.net!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!newsread1.prod.itd.earthlink.net.POSTED!not-for-mail Newsgroups: comp.lang.ada From: "Eric G. Miller" Subject: TASH and gcc-3.2 -- no selector Obj for type Tash_List ... Followup-To: comp.lang.ada Keywords: TASH GNAT gcc-3.2 Summary: Unable to compile TASH with GNAT/gcc-3.2 Message-ID: User-Agent: slrn/0.9.7.4 (Linux) Date: Sun, 19 Jan 2003 11:48:09 GMT NNTP-Posting-Host: 216.119.18.45 X-Complaints-To: abuse@earthlink.net X-Trace: newsread1.prod.itd.earthlink.net 1042976889 216.119.18.45 (Sun, 19 Jan 2003 03:48:09 PST) NNTP-Posting-Date: Sun, 19 Jan 2003 03:48:09 PST Organization: EarthLink Inc. -- http://www.EarthLink.net Xref: archiver1.google.com comp.lang.ada:33200 Date: 2003-01-19T11:48:09+00:00 List-Id: 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 ... gcc-3.2 -c -I../src -I/usr/include/tcl8.3 -g -O2 -gnatnU tash-arrays.adb tash-arrays.adb:701:24: error: no selector "Obj" for type "Tash_List" defined at tash-lists.ads:81 tash-arrays.adb:759:22: error: no selector "Obj" for type "Tash_List" defined at tash-lists.ads:81 etc... ... type Tash_Object is abstract tagged private; ... private type Tash_Object is abstract new Ada.Finalization.Controlled with record Obj : Tcl.Tcl_Obj; end record; ... ... type Tash_List is new Tash.Tash_Object with null record; ... ... procedure Set_Element ( TArray : in out Tash_Array; Index : in String; Value : in Tash.Lists.Tash_List) is ... Listv(2) := Value.Obj; ... Well, a Tash_List is a new Tash_Object which has a private member Obj which should be visible in child packages of Tash... Did I miss anything? -- echo ">gra.fcw@2ztr< eryyvZ .T pveR" | rot13 | reverse