git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

PR modula2/117777: m2 does not allow single const string in asm volatile 

gm2 does not allow single const string in ASM VOLATILE.  The bugfix is to
modify AsmOperands in all passes except P3Build.bnf (which is correct).
The remaining passes need to make the term following the ConstExpression
optional.

gcc/m2/ChangeLog:

	PR modula2/117777
	* gm2-compiler/P0SyntaxCheck.bnf (AsmOperands): Allow term after
	ConstExpression to be optional.
	* gm2-compiler/P1Build.bnf (AsmOperands): Ditto.
	* gm2-compiler/P2Build.bnf (AsmOperands): Ditto.
	* gm2-compiler/PCBuild.bnf (AsmOperands): Ditto.
	* gm2-compiler/PHBuild.bnf (AsmOperands): Ditto.

gcc/testsuite/ChangeLog:

	PR modula2/117777
	* gm2/extensions/asm/pass/conststr.mod: New test.

Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
This commit is contained in:
Gaius Mulley 2024-11-25 22:46:16 +00:00
parent f6e00226a4
commit e6d26a21e0
6 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/m2/gm2-compiler/P0SyntaxCheck.bnf
View File

@ -968,7 +968,7 @@ NamedOperand := '[' Ident ']' =:
AsmOperandName := [ NamedOperand ] =:
AsmOperands := ConstExpression ':' AsmList [ ':' AsmList [ ':' TrashList ] ]
AsmOperands := ConstExpression [ ':' AsmList [ ':' AsmList [ ':' TrashList ] ] ]
=:
AsmList := [ AsmElement ] { ',' AsmElement } =:

2
gcc/m2/gm2-compiler/P1Build.bnf
View File

@ -1048,7 +1048,7 @@ NamedOperand := '[' Ident ']' =:
AsmOperandName := [ NamedOperand ] =:
AsmOperands := ConstExpression ':' AsmList [ ':' AsmList [ ':' TrashList ] ]
AsmOperands := ConstExpression [ ':' AsmList [ ':' AsmList [ ':' TrashList ] ] ]
=:
AsmList := [ AsmElement ] { ',' AsmElement } =:

2
gcc/m2/gm2-compiler/P2Build.bnf
View File

@ -1257,7 +1257,7 @@ NamedOperand := '[' Ident ']' =:
AsmOperandName := [ NamedOperand ] =:
AsmOperands := ConstExpression ':' AsmList [ ':' AsmList [ ':' TrashList ] ]
AsmOperands := ConstExpression [ ':' AsmList [ ':' AsmList [ ':' TrashList ] ] ]
=:
AsmList := [ AsmElement ] { ',' AsmElement } =:

2
gcc/m2/gm2-compiler/PCBuild.bnf
View File

@ -1292,7 +1292,7 @@ NamedOperand := '[' Ident ']' =:
AsmOperandName := [ NamedOperand ] =:
AsmOperands := ConstExpression ':' AsmList [ ':' AsmList [ ':' TrashList ] ]
AsmOperands := ConstExpression [ ':' AsmList [ ':' AsmList [ ':' TrashList ] ] ]
=:
AsmList := [ AsmElement ] { ',' AsmElement } =:

2
gcc/m2/gm2-compiler/PHBuild.bnf
View File

@ -1246,7 +1246,7 @@ NamedOperand := '[' Ident ']' =:
AsmOperandName := [ NamedOperand ] =:
AsmOperands := ConstExpression ':' AsmList [ ':' AsmList [ ':' TrashList ] ]
AsmOperands := ConstExpression [ ':' AsmList [ ':' AsmList [ ':' TrashList ] ] ]
=:
AsmList := [ AsmElement ] { ',' AsmElement } =:

5
gcc/testsuite/gm2/extensions/asm/pass/conststr.mod Normal file
View File

@ -0,0 +1,5 @@
MODULE conststr ;
BEGIN
ASM VOLATILE ("")
END conststr.