Natools

Diff
Login

Differences From Artifact [0e61f6dceb]:

To Artifact [e858dfbb7a]:


748
749
750
751
752
753
754

755
756
757
758
759
760
761
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762







+







               O := O + Output_Delta;
               Output.Cursor := New_Cursor;
            end if;
         end loop;

         pragma Assert (O = Result'Last);
         Result (O) := Encodings.Quoted_Atom_End;
         Output.Cursor := Output.Cursor + 1;

         Write_Raw (Printer'Class (Output), Result);
      end;

      pragma Assert (Output.Cursor = Expected_Cursor);
   end Write_Quoted;