paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not throw an internal error if in case of an previous error the parameter class of an errordef is requested, resolves #31016

Browse Source 
git-svn-id: trunk@34984 -
This commit is contained in:
florian 2016-11-27 13:16:12 +00:00
parent 783f53d3a7
commit 7bb8873c83
3 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -13755,6 +13755,7 @@ tests/webtbf/tw3000.pp svneol=native#text/plain
tests/webtbf/tw30022.pp svneol=native#text/plain
tests/webtbf/tw3047.pp svneol=native#text/plain
tests/webtbf/tw30494.pp svneol=native#text/pascal
tests/webtbf/tw31016.pp svneol=native#text/pascal
tests/webtbf/tw3114.pp svneol=native#text/plain
tests/webtbf/tw3116.pp svneol=native#text/plain
tests/webtbf/tw3126.pp svneol=native#text/plain

4
compiler/x86_64/cpupara.pas
View File

@ -713,6 +713,10 @@ unit cpupara;
since classify_argument is called during parsing, see tw27685.pp,
we handle undefineddef here }
result:=0;
errordef:
{ error message should have been thrown already before, so avoid only
an internal error }
result:=0;
else
internalerror(2010021405);
end;

9
tests/webtbf/tw31016.pp Normal file
View File

@ -0,0 +1,9 @@
{ %fail }
{$asmmode intel}
procedure p1(p:pbbyte);assembler;
asm
end;
begin
end.