diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-02-10 04:58:22 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-02-10 07:52:53 +0100 |
commit | 1db60a0e91a18ddcc7c4d0c08e5c07adc8c59831 (patch) | |
tree | 9295bbffd9b9ecbdea71204c8cadae9d3a15c308 /src/vhdl/scanner.adb | |
parent | 16d76f62ee60847721c6c5fead792b5c342ec740 (diff) | |
download | ghdl-1db60a0e91a18ddcc7c4d0c08e5c07adc8c59831.tar.gz ghdl-1db60a0e91a18ddcc7c4d0c08e5c07adc8c59831.tar.bz2 ghdl-1db60a0e91a18ddcc7c4d0c08e5c07adc8c59831.zip |
evaluation: handle whitespace for 'value.
Diffstat (limited to 'src/vhdl/scanner.adb')
-rw-r--r-- | src/vhdl/scanner.adb | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/vhdl/scanner.adb b/src/vhdl/scanner.adb index 84d334d89..b56c04e9a 100644 --- a/src/vhdl/scanner.adb +++ b/src/vhdl/scanner.adb @@ -84,7 +84,7 @@ package body Scanner is | '_' | '|' | '*' => Special_Character, -- 4. the space characters - ' ' | No_Break_Space => Space_Character, + ' ' | NBSP => Space_Character, -- 5. lower case letters 'a' .. 'z' | LC_German_Sharp_S .. LC_O_Diaeresis | @@ -1901,4 +1901,15 @@ package body Scanner is return File_Pos_To_Location (Current_Context.Source_File, Current_Context.Token_Pos); end Get_Token_Location; + + function Is_Whitespace (C : Character) return Boolean is + begin + if C = ' ' then + return True; + elsif Vhdl_Std > Vhdl_87 and C = NBSP then + return True; + else + return False; + end if; + end Is_Whitespace; end Scanner; |