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

* do not throw an internal error on illegal assembler expressions, resolves #37439

Browse Source 
git-svn-id: trunk@46499 -
This commit is contained in:
florian 2020-08-19 21:09:44 +00:00
parent e200fde888
commit 120825d1d6
3 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -16556,6 +16556,7 @@ tests/webtbf/tw37272b.pp svneol=native#text/pascal
tests/webtbf/tw37303.pp -text svneol=native#text/pascal
tests/webtbf/tw3738.pp svneol=native#text/plain
tests/webtbf/tw3740.pp svneol=native#text/plain
tests/webtbf/tw37459.pp svneol=native#text/pascal
tests/webtbf/tw37460.pp svneol=native#text/pascal
tests/webtbf/tw37462.pp svneol=native#text/pascal
tests/webtbf/tw37475.pp svneol=native#text/pascal

1
compiler/x86/rax86att.pas
View File

@ -720,6 +720,7 @@ Implementation
if (actasmtoken=AS_PLUS) then
begin
l:=BuildConstExpression(true,false);
if errorcount=0 then
case oper.opr.typ of
OPR_CONSTANT :
inc(oper.opr.val,l);

4
tests/webtbf/tw37459.pp Normal file
View File

@ -0,0 +1,4 @@
{ %fail }
begin
asm test ptr + ,
// end.