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 -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
@ -33,8 +33,8 @@
separate (GNAT.IO) separate (GNAT.IO)
procedure Put (C : Character) is procedure Put (C : Character) is
procedure Putchar (C : Character); procedure Putchar (C : Integer);
pragma Import (C, Putchar, "putchar"); pragma Import (C, Putchar, "putchar");
begin begin
Putchar (C); Putchar (Character'Pos (C));
end Put; 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. -- then removing the extra backslashes from the argument.
Backslash_Is_Sep : constant Boolean := Directory_Separator = '\'; Backslash_Is_Sep : constant Boolean := Directory_Separator = '\';
-- Whether '\' is a directory separator (as on Windows), or a -- Whether '\' is a directory separator (as on Windows), or a way to
-- way to quote special characters. -- quote special characters.
begin begin
Idx := Arg_String'First; Idx := Arg_String'First;
@ -250,9 +250,7 @@ package body System.OS_Lib is
-- Following character is backquoted -- Following character is backquoted
elsif not Backslash_Is_Sep elsif not Backslash_Is_Sep and then Arg_String (Idx) = '\' then
and then Arg_String (Idx) = '\'
then
Backqd := True; Backqd := True;
else else