Overview
| Comment: | s_expressions-printers-pretty: fix cursor position after writing a quoted string |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8fffe1590c64ca96d7dec0443595cd46 |
| User & Date: | nat on 2014-07-27 17:32:51 |
| Other Links: | manifest | tags |
Context
|
2014-07-28
| ||
| 20:18 | s_expressions-printers-pretty: fix cursor position after two-byte newlines in quoted strings check-in: ce1e6e8edb user: nat tags: trunk | |
|
2014-07-27
| ||
| 17:32 | s_expressions-printers-pretty: fix cursor position after writing a quoted string check-in: 8fffe1590c user: nat tags: trunk | |
|
2014-07-25
| ||
| 20:07 | s_expressions-printers-pretty: add an assert on final cursor position after writing quoted strings check-in: e66be760b0 user: nat tags: trunk | |
Changes
Modified src/natools-s_expressions-printers-pretty.adb from [0e61f6dceb] to [e858dfbb7a].
| ︙ | ︙ | |||
748 749 750 751 752 753 754 755 756 757 758 759 760 761 |
O := O + Output_Delta;
Output.Cursor := New_Cursor;
end if;
end loop;
pragma Assert (O = Result'Last);
Result (O) := Encodings.Quoted_Atom_End;
Write_Raw (Printer'Class (Output), Result);
end;
pragma Assert (Output.Cursor = Expected_Cursor);
end Write_Quoted;
| > | 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;
|
| ︙ | ︙ |