Login | Register
My pages Projects Community openCollabNet

Discussions > cvs > CVS update: /charles/src/ai302/

charles
Discussion topic

Back to topic list

CVS update: /charles/src/ai302/

Reply

Author matthewjheaney
Full name Matthew Heaney
Date 2005-05-16 20:48:23 PDT
Message User: matthewjheaney
Date: 2005/05/16 20:48:23

Modified:
   charles/src/ai302/a-cidlli.adb

Log:
 if the position param of splice is null, then raise constraint_error. (per the post-boston api.)

File Changes:

Directory: /charles/src/ai302/
==============================

File [changed]: a-cidlli.adb
Url: http://charles.tigri​s.org/source/browse/​charles/src/ai302/a-​cidlli.adb?r1=1.19​&r2=1.20
Delta lines: +3 -5
-------------------
--- a-cidlli.adb 15 May 2005 23:10:45 -0000 1.19
+++ a-cidlli.adb 17 May 2005 03:48:21 -0000 1.20
@@ -1143,8 +1143,7 @@
       end if;
 
       if Position.Node = null then
- pragma Assert (Position.Container = null);
- return;
+ raise Constraint_Error;
       end if;
 
       if Position.Container /= List_Access'(Target'​Unchecked_Access) then
@@ -1264,7 +1263,7 @@
      (Target : in out List;
       Before : in Cursor;
       Source : in out List;
- Position : in out Cursor) is --TODO: need confirmation from ARG
+ Position : in out Cursor) is
 
       New_Target_Length : Count_Type;
 
@@ -1282,8 +1281,7 @@
       end if;
 
       if Position.Node = null then
- pragma Assert (Position.Container = null);
- return;
+ raise Constraint_Error;
       end if;
 
       if Position.Container /= List_Access'(Source'​Unchecked_Access) then

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

CVS update: /charles/src/ai302/ matthewjheaney Matthew Heaney 2005-05-16 20:48:23 PDT
Messages per page: