diff options
author | Tristan Gingold <tgingold@free.fr> | 2013-12-31 19:01:48 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2013-12-31 19:01:48 +0100 |
commit | 5f41fdc72fccd7169dc812c8690e82222ae1aca1 (patch) | |
tree | 2e2cddb257b071ec30b79c0672e2320f5421468d /tokens.adb | |
parent | 2fe0a5359e1bdf6dfdab20bea121db8f4e54ffe9 (diff) | |
download | ghdl-5f41fdc72fccd7169dc812c8690e82222ae1aca1.tar.gz ghdl-5f41fdc72fccd7169dc812c8690e82222ae1aca1.tar.bz2 ghdl-5f41fdc72fccd7169dc812c8690e82222ae1aca1.zip |
Fix bug21274.
WIP for VHDL08.
Diffstat (limited to 'tokens.adb')
-rw-r--r-- | tokens.adb | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/tokens.adb b/tokens.adb index 07dd1ac7a..ffbad10be 100644 --- a/tokens.adb +++ b/tokens.adb @@ -87,7 +87,20 @@ package body Tokens is when Tok_Greater_Equal => return ">="; - -- sign token + when Tok_Match_Equal => + return "?="; + when Tok_Match_Not_Equal => + return "?/="; + when Tok_Match_Less => + return "?<"; + when Tok_Match_Less_Equal => + return "?<="; + when Tok_Match_Greater => + return "?>"; + when Tok_Match_Greater_Equal => + return "?>="; + + -- sign token when Tok_Plus => return "+"; when Tok_Minus => |