diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-09-12 08:57:00 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-09-12 08:57:00 +0200 |
| commit | 8423924e43087c9b80e8179a49d539decab54886 (patch) | |
| tree | 6dbd2aaa5f33c5fea617d47e7bbf89d0738ba928 /src/grt/grt-errors.adb | |
| parent | 42f4c411641c04da2b8f08f9029e17bfd37206e4 (diff) | |
| download | ghdl-8423924e43087c9b80e8179a49d539decab54886.tar.gz ghdl-8423924e43087c9b80e8179a49d539decab54886.tar.bz2 ghdl-8423924e43087c9b80e8179a49d539decab54886.zip | |
Tentatively fix win32 support.
Diffstat (limited to 'src/grt/grt-errors.adb')
| -rw-r--r-- | src/grt/grt-errors.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/grt/grt-errors.adb b/src/grt/grt-errors.adb index 29da11206..66dfbf1dd 100644 --- a/src/grt/grt-errors.adb +++ b/src/grt/grt-errors.adb @@ -259,4 +259,9 @@ package body Grt.Errors is begin Error ("overflow detected"); end Grt_Overflow_Error; + + procedure Grt_Null_Access_Error is + begin + Error ("NULL access dereferenced"); + end Grt_Null_Access_Error; end Grt.Errors; |