From a81f695b15865268fea6ee062a381ba8e43a02b4 Mon Sep 17 00:00:00 2001
From: gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7>
Date: Mon, 2 Oct 2006 04:33:36 +0000
Subject: direct drivers and bugs fix

---
 nodes.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'nodes.adb')

diff --git a/nodes.adb b/nodes.adb
index a99417cd2..9547fb043 100644
--- a/nodes.adb
+++ b/nodes.adb
@@ -384,12 +384,12 @@ package body Nodes is
 
    function Get_Odigit2 (N : Node_Type) return Bit3_Type is
    begin
-      return Nodet.Table (N).Odigit2;
+      return Nodet.Table (N + 1).Odigit1;
    end Get_Odigit2;
 
    procedure Set_Odigit2 (N : Node_Type; V : Bit3_Type) is
    begin
-      Nodet.Table (N).Odigit2 := V;
+      Nodet.Table (N + 1).Odigit1 := V;
    end Set_Odigit2;
 
 
-- 
cgit v1.2.3