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=-2.9 required=5.0 tests=BAYES_00,MAILING_LIST_MULTI, WEIRD_PORT autolearn=unavailable autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,81e02ab39dd58c4 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-10-30 16:50:45 PST Path: archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!213.56.195.71!fr.usenet-edu.net!usenet-edu.net!enst!enst.fr!not-for-mail From: ANH_VO@udlp.com Newsgroups: comp.lang.ada Subject: Re:I'm baffled... Date: Tue, 30 Oct 2001 16:39:40 -0600 Organization: ENST, France Sender: comp.lang.ada-admin@ada.eu.org Message-ID: Reply-To: comp.lang.ada@ada.eu.org NNTP-Posting-Host: marvin.enst.fr Mime-Version: 1.0 Content-Type: text/plain; charset="US-ASCII" Content-Transfer-Encoding: 7bit X-Trace: avanie.enst.fr 1004489444 14958 137.194.161.2 (31 Oct 2001 00:50:44 GMT) X-Complaints-To: usenet@enst.fr NNTP-Posting-Date: Wed, 31 Oct 2001 00:50:44 +0000 (UTC) To: comp.lang.ada@ada.eu.org Return-Path: Content-Description: cc:Mail note part Errors-To: comp.lang.ada-admin@ada.eu.org X-BeenThere: comp.lang.ada@ada.eu.org X-Mailman-Version: 2.0.6 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: comp.lang.ada mail<->news gateway List-Unsubscribe: , List-Archive: Errors-To: comp.lang.ada-admin@ada.eu.org X-BeenThere: comp.lang.ada@ada.eu.org Xref: archiver1.google.com comp.lang.ada:15446 Date: 2001-10-30T16:39:40-06:00 I am afraid that more codes need to be posted in order for me at least to find out what is going on. In fact, it is not easy to reproduce the Constraint_Error without knowing the exact Word_List. Anh Vo ____________________Reply Separator____________________ Subject: I'm baffled... Author: Wes Groleau Date: 10/30/01 5:16 PM Probably something simple, but I don't see it .... I don't think it's a compiler bug because I get the same error from Apex that I get from GNAT. But how can I get a constraint_error on line 166 of ada.strings.maps? That line is: Identity : constant Character_Mapping := I can't get either debugger to let me examine things in the run-time. Code excerpt: package ASF renames Ada.Strings.Fixed; package AS renames Ada.Strings; function Position_Of (Pattern : String) return Index is Result : Index := 47; -- just to make it any old legal value Checkpoint : Character := 'A'; begin Checkpoint := 'B'; Result := ASF.Index (Source => Word_List (Current_Index + 1 .. Word_List'Last), Pattern => Pattern, Going => AS.Forward ); Checkpoint := 'C'; if Result /= 0 then Checkpoint := 'D'; return Result; else Checkpoint := 'E'; return ASF.Index (Source => Word_List ( Word_List'First .. Current_Index - 1), Pattern => Pattern, Going => AS.Backward ); Checkpoint := 'F'; end if; Checkpoint := 'G'; exception when E : others => Ada.Text_IO.Put_Line (Ada.Exceptions.Exception_Information(E)); Ada.Text_IO.Put_Line ("Checkpoint => " & Checkpoint); Ada.Text_IO.Put_Line ("Context => " & Word_List (Current_Index - 10 .. Current_Index + 10) ); Ada.Text_IO.Put_Line ("Pattern => " & Pattern); Ada.Text_IO.Put_Line ("Current_Index => " & Integer'Image (Current_Index)); Ada.Text_IO.Put_Line ("Result => " & Integer'Image (Result)); raise; end Position_Of; Typical error output: Exception name: CONSTRAINT_ERROR Message: a-strmap.ads:166 Checkpoint => B Context => addenda addendum adhe Pattern => pri Current_Index => 117947 Result => 47 (Word_List is a BIG string) -- Wes Groleau http://freepages.rootsweb.com/~wgroleau _______________________________________________