parent
c31b57af90
commit
1db50ba605
|
@ -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;
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue