From 2b0e6f09e32471c1b5a169c3ede4d0b8362cd80a Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 14 Mar 2015 07:25:03 +0100
Subject: Fix thinko in grt.values (after handling i32 generic override).

---
 src/grt/grt-values.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/grt/grt-values.adb b/src/grt/grt-values.adb
index 9d7cf20..77699f6 100644
--- a/src/grt/grt-values.adb
+++ b/src/grt/grt-values.adb
@@ -212,7 +212,7 @@ package body Grt.Values is
       end if;
 
       if C = '#' or C = ':' then
-         Base := Val;
+         Base := -Val;
          Val := 0;
          Sep := C;
          Pos := Pos + 1;
-- 
cgit