paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 00:01:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use a unique internal error

Browse Source 
git-svn-id: trunk@39024 -
This commit is contained in:
svenbarth 2018-05-18 14:43:31 +00:00
parent fc390136cb
commit 2eac60cd87
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aasmcnst.pas
View File

@ -2047,7 +2047,7 @@ implementation
procedure tlowleveltypedconstplaceholder.replace(ai: tai; d: tdef);
begin
if d<>def then
internalerror(2015091001);
internalerror(2015091007);
list.insertafter(ai,insertpos);
list.remove(insertpos);
insertpos.free;