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

* fix reg-supreg range check error

Browse Source
This commit is contained in:
peter 2003-08-21 14:48:36 +00:00
parent 8cf0c122f4
commit b9afdc6a36
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/aasmcpu.pas
View File

@ -2231,7 +2231,7 @@ implementation
op:=opcode; op:=opcode;
opcode:=A_MOV; opcode:=A_MOV;
opsize:=reg2opsize(oper[1].reg); opsize:=reg2opsize(oper[1].reg);
pos:=get_insert_pos(Tai(previous),oper[0].reg.number,0,0,unusedregsint); pos:=get_insert_pos(Tai(previous),oper[0].reg.number shr 8,0,0,unusedregsint);
rgget(list,pos,subreg,helpreg); rgget(list,pos,subreg,helpreg);
helpins:=Taicpu.op_reg_reg(op,hopsize,oper[0].reg,helpreg); helpins:=Taicpu.op_reg_reg(op,hopsize,oper[0].reg,helpreg);
if pos=nil then if pos=nil then
@ -2395,7 +2395,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.14 2003-08-20 16:52:01 daniel Revision 1.15 2003-08-21 14:48:36 peter
* fix reg-supreg range check error
Revision 1.14 2003/08/20 16:52:01 daniel
* Some old register convention code removed * Some old register convention code removed
* A few changes to eliminate a few lines of code * A few changes to eliminate a few lines of code