OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Code clean ups. 

From-SVN: r230230
This commit is contained in:
Arnaud Charlet 2015-11-12 12:02:17 +01:00
parent c31b57af90
commit 1db50ba605
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/g-io-put.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1995-2010, AdaCore --
-- Copyright (C) 1995-2015, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -33,8 +33,8 @@
separate (GNAT.IO)
procedure Put (C : Character) is
procedure Putchar (C : Character);
procedure Putchar (C : Integer);
pragma Import (C, Putchar, "putchar");
begin
Putchar (C);
Putchar (Character'Pos (C));
end Put;

8
gcc/ada/s-os_lib.adb
View File

@ -198,8 +198,8 @@ package body System.OS_Lib is
-- then removing the extra backslashes from the argument.
Backslash_Is_Sep : constant Boolean := Directory_Separator = '\';
-- Whether '\' is a directory separator (as on Windows), or a
-- way to quote special characters.
-- Whether '\' is a directory separator (as on Windows), or a way to
-- quote special characters.
begin
Idx := Arg_String'First;
@ -250,9 +250,7 @@ package body System.OS_Lib is
-- Following character is backquoted
elsif not Backslash_Is_Sep
and then Arg_String (Idx) = '\'
then
elsif not Backslash_Is_Sep and then Arg_String (Idx) = '\' then
Backqd := True;
else