diff options
author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-26 11:46:06 +0000 |
---|---|---|
committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-04-26 11:46:06 +0000 |
commit | d80aeb130697e8615cb90ff2d25a3fc6d38ac7bf (patch) | |
tree | 245f76d1a7d8ff0a0f083547e23be25d1169ce4a | |
parent | 78a0d3c1eca1f687f29df10889a17881d08a7ba4 (diff) | |
download | fpc-d80aeb130697e8615cb90ff2d25a3fc6d38ac7bf.tar.gz |
* destroying constnone constsyms can occur when parsing a generic with a constant parameter that results in an error (e.g. unsupported type)
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45088 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/symsym.pas | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/symsym.pas b/compiler/symsym.pas index ced5c4fc62..66674b21fa 100644 --- a/compiler/symsym.pas +++ b/compiler/symsym.pas @@ -2544,8 +2544,7 @@ implementation destructor tconstsym.destroy; begin case consttyp of - constnone: - internalerror(2019050703); + constnone, constord, constpointer, constnil: |