diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-06-22 19:30:52 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-06-22 19:30:52 +0000 |
| commit | 06c89bf159a88b4339295b6007ff40bee14dd618 (patch) | |
| tree | 891ef7c7dbf6251d7e2e77fd479ac3664dda40ca /libraries | |
| parent | 8c212ade722f0f46ab7e8d9fddfe5769ee6e2bed (diff) | |
| download | ghdl-06c89bf159a88b4339295b6007ff40bee14dd618.tar.gz ghdl-06c89bf159a88b4339295b6007ff40bee14dd618.tar.bz2 ghdl-06c89bf159a88b4339295b6007ff40bee14dd618.zip | |
bugs fix, 93c improved
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/std/textio_body.vhdl | 6 |
1 files changed, 3 insertions, 3 deletions
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; |