From 06c89bf159a88b4339295b6007ff40bee14dd618 Mon Sep 17 00:00:00 2001
From: gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7>
Date: Thu, 22 Jun 2006 19:30:52 +0000
Subject: bugs fix, 93c improved

---
 libraries/std/textio_body.vhdl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'libraries')

diff --git a/libraries/std/textio_body.vhdl b/libraries/std/textio_body.vhdl
index 441e4d79a..1809adfc3 100644
--- a/libraries/std/textio_body.vhdl
+++ b/libraries/std/textio_body.vhdl
@@ -541,7 +541,7 @@ package body textio is
   is
     variable nl : line;
   begin
-    if l'length = 0 then
+    if l = null or l'length = 0 then
       good := false;
     else
       value := l (l'left);
@@ -1169,10 +1169,10 @@ package body textio is
 	    when digits =>
 	      state := decimals;
 	    when others =>
-	      return;
+	      exit;
 	  end case;
 	when others =>
-	  return;
+          exit;
       end case;
     end loop;
 
-- 
cgit v1.2.3