paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 17:38:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check for add_move_instruction

Browse Source
This commit is contained in:
peter 2003-11-29 17:36:41 +00:00
parent 955d743f21
commit 825d5b4ed7
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/rgobj.pas
View File

@ -859,6 +859,9 @@ implementation
ssupreg,dsupreg:Tsuperregister;
begin
if (instr.oper[O_MOV_SOURCE]^.typ<>top_reg) or
(instr.oper[O_MOV_DEST]^.typ<>top_reg) then
internalerror(200311291);
i:=Tmoveins.create;
i.moveset:=ms_worklist_moves;
i.instruction:=instr;
@ -1819,7 +1822,10 @@ implementation
end.
{
$Log$
Revision 1.96 2003-11-24 15:17:37 florian
Revision 1.97 2003-11-29 17:36:41 peter
* check for add_move_instruction
Revision 1.96 2003/11/24 15:17:37 florian
* changed some types to prevend range check errors
Revision 1.95 2003/11/10 19:05:50 peter