diff options
| author | Tristan Gingold | 2014-12-23 07:00:21 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-12-23 07:00:21 +0100 |
| commit | 28e674d71edf5c23419fde584ef2ea1228547e5b (patch) | |
| tree | eb848cd6207773628d727f60befea3d3dc6371d3 /src/str_table.adb | |
| parent | e0b78cd20fb43c20db63d32e404ae9c4ff9b35f8 (diff) | |
| download | ghdl-28e674d71edf5c23419fde584ef2ea1228547e5b.tar.gz ghdl-28e674d71edf5c23419fde584ef2ea1228547e5b.tar.bz2 ghdl-28e674d71edf5c23419fde584ef2ea1228547e5b.zip | |
Add requested pragma no_strict_aliasing.
Diffstat (limited to 'src/str_table.adb')
| -rw-r--r-- | src/str_table.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/str_table.adb b/src/str_table.adb index 947c987..32a44b5 100644 --- a/src/str_table.adb +++ b/src/str_table.adb @@ -30,8 +30,8 @@ package body Str_Table is Nul : constant Character := Character'Val (0); In_String : Boolean := False; - function Start return String_Id - is + + function Start return String_Id is begin pragma Assert (In_String = False); In_String := True; |