paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 19:39:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bug fix in tcg8086.a_load_reg_reg for loading larger register to a smaller one

Browse Source 
git-svn-id: branches/i8086@23914 -
This commit is contained in:
nickysn 2013-03-18 01:03:37 +00:00
parent b930c9a0db
commit c4cee15481
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/i8086/cgcpu.pas
View File

@ -728,25 +728,17 @@ unit cgcpu;
list.concat(instr);
end;
// var
// op: tasmop;
// s: topsize;
// instr:Taicpu;
begin
check_register_size(fromsize,reg1);
check_register_size(tosize,reg2);
if tcgsize2size[tosize]<=tcgsize2size[fromsize] then
fromsize:=tosize;
{ if tcgsize2size[fromsize]>tcgsize2size[tosize] then
if tcgsize2size[fromsize]>tcgsize2size[tosize] then
begin
if tosize in [OS_32, OS_S32] then
internalerror(2013031801);
reg1:=makeregsize(list,reg1,tosize);
s:=tcgsize2opsize[tosize];
op:=A_MOV;
end
else
sizes2load(fromsize,tosize,op,s);}
fromsize:=tosize;
end;
if (reg1<>reg2) then
begin