paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 22:40:30 +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; actasmtoken:=AS_END;
exit; exit;
end; end;
message1(asmr_e_unknown_opcode,actasmpattern);
actasmtoken:=AS_NONE; actasmtoken:=AS_NONE;
end end
else { else firsttoken } else { else firsttoken }
@ -1994,7 +1995,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed reference parsing
Revision 1.74 2000/04/29 12:51:33 peter Revision 1.74 2000/04/29 12:51:33 peter

6
compiler/ra386int.pas
View File

@ -297,6 +297,7 @@ begin
end; end;
if is_asmdirective(actasmpattern) then if is_asmdirective(actasmpattern) then
exit; exit;
message1(asmr_e_unknown_opcode,actasmpattern);
actasmtoken:=AS_NONE; actasmtoken:=AS_NONE;
exit; exit;
end end
@ -1825,7 +1826,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed reference parsing
Revision 1.64 2000/04/29 12:51:34 peter Revision 1.64 2000/04/29 12:51:34 peter