paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 19:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Issue an error if opcode is not found

Browse Source
This commit is contained in:
pierre 2000-05-09 11:56:25 +00:00
parent cd93ae3564
commit f94c25e338
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ra386att.pas
View File

@ -329,6 +329,7 @@ begin
actasmtoken:=AS_END;
exit;
end;
message1(asmr_e_unknown_opcode,actasmpattern);
actasmtoken:=AS_NONE;
end
else { else firsttoken }
@ -1994,7 +1995,10 @@ begin
end.
{
$Log$
Revision 1.75 2000-05-08 13:23:03 peter
Revision 1.76 2000-05-09 11:56:25 pierre
* Issue an error if opcode is not found
Revision 1.75 2000/05/08 13:23:03 peter
* fixed reference parsing
Revision 1.74 2000/04/29 12:51:33 peter

6
compiler/ra386int.pas
View File

@ -297,6 +297,7 @@ begin
end;
if is_asmdirective(actasmpattern) then
exit;
message1(asmr_e_unknown_opcode,actasmpattern);
actasmtoken:=AS_NONE;
exit;
end
@ -1825,7 +1826,10 @@ begin
end.
{
$Log$
Revision 1.65 2000-05-08 13:23:04 peter
Revision 1.66 2000-05-09 11:56:26 pierre
* Issue an error if opcode is not found
Revision 1.65 2000/05/08 13:23:04 peter
* fixed reference parsing
Revision 1.64 2000/04/29 12:51:34 peter