diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-12 13:31:39 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-12 13:31:39 +0000 |
| commit | a55dd2315b949e25ab4db542d7943fdf0dc08fd4 (patch) | |
| tree | 745ccdb3fdb8a6e02012ff1e00510d61d453fb5e /gcc/ada/g-cgi.adb | |
| parent | f2b3312b1728bd75bbae7041d7d7894bf3c3a76b (diff) | |
| download | gcc-a55dd2315b949e25ab4db542d7943fdf0dc08fd4.tar.gz | |
2009-06-12 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r148428
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@148430 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-cgi.adb')
| -rw-r--r-- | gcc/ada/g-cgi.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/g-cgi.adb b/gcc/ada/g-cgi.adb index 34f3e4f3266..b1b6789e4fb 100644 --- a/gcc/ada/g-cgi.adb +++ b/gcc/ada/g-cgi.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2006, AdaCore -- +-- Copyright (C) 2001-2009, 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- -- @@ -123,6 +123,11 @@ package body GNAT.CGI is (Natural'Value ("16#" & S (K + 1 .. K + 2) & '#')); K := K + 3; + elsif S (K) = '+' then + -- + sign is decoded as a space + Result (J) := ' '; + K := K + 1; + else Result (J) := S (K); K := K + 1; |