← Back to branch summary

~ubuntu-branches/debian/jessie/adabrowse/jessie

« back to all changes in this revision

Viewing changes to util-text.adb

  • Committer: Bazaar Package Importer
  • Author(s): Adrian-Ken Rueegsegger
  • Date: 2009-02-15 18:46:14 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20090215184614-skdqdiei7armqu7j
Tags: 4.0.3-1
* Fix dh-clean-k-is-deprecated lintian warning.
* Merging upstream version 4.0.3.
* Sync copyright notice with upstream.

Show diffs side-by-side

added added

removed removed

Lines of Context:
util-text.adb
212
212
            By_Length     : constant Natural := By'Length;
213
213
            New_Length    : constant Integer :=
214
214
              Low - 1 + By_Length + Suffix_Length;
215
 
            Ptr : String_Access := new String (1 .. New_Length);
 
215
            Ptr : constant String_Access := new String (1 .. New_Length);
216
216
         begin
217
217
            Ptr (1 .. Low - 1)                := Source (1 .. Low - 1);
218
218
            Ptr (Low .. Low + By_Length - 1)  := By;
494
494
   begin
495
495
      if New_Item'Last < New_Item'First then return; end if;
496
496
      declare
497
 
         Ptr : String_Access :=
 
497
         Ptr : constant String_Access :=
498
498
           new String (1 .. Source.Data'Last + New_Item'Length);
499
499
      begin
500
500
         Ptr (1 .. Source.Data'Last)            := Source.Data.all;
509
509
     (Source   : in out Unbounded_String;
510
510
      New_Item : in     Character)
511
511
   is
512
 
      Ptr    : String_Access := new String (1 .. Source.Data'Last + 1);
 
512
      Ptr : constant String_Access := new String (1 .. Source.Data'Last + 1);
513
513
   begin
514
514
      Ptr (1 .. Source.Data'Last) := Source.Data.all;
515
515
      Ptr (Source.Data'Last + 1)  := New_Item;
677
677
      Slice_Check (From, Through, Source.Data'Last);
678
678
      if From > Through then return; end if;
679
679
      declare
680
 
         New_String : String_Access :=
 
680
         New_String : constant String_Access :=
681
681
           new String (1 .. Source.Data'Last - (Through - From + 1));
682
682
      begin
683
683
         New_String (1 .. From - 1) := Source.Data (1 .. From - 1);
1552
1552
         raise Index_Error;
1553
1553
      else
1554
1554
         declare
1555
 
            New_String : String_Access :=
 
1555
            New_String : constant String_Access :=
1556
1556
              new String (1 .. Position - 1 + Length);
1557
1557
         begin
1558
1558
            New_String (1 .. Position - 1)           :=
1627
1627
      declare
1628
1628
         By_Length   : constant Natural := By'Length;
1629
1629
         What_Length : constant Natural := What'Length;
1630
 
         Result      : String_Access :=
 
1630
         Result      : constant String_Access :=
1631
1631
           new String (1 ..
1632
1632
                       Source.Data'Last - N * (What_Length - By_Length));
1633
1633
         I, J, K     : Natural;
1877
1877
         end;
1878
1878
      else
1879
1879
         declare
1880
 
            New_String : String_Access := new String (1 .. Count);
 
1880
            New_String : constant String_Access := new String (1 .. Count);
1881
1881
         begin
1882
1882
            New_String (New_String'Last - Source.Data'Last + 1 ..
1883
1883
                        New_String'Last) := Source.Data.all;