paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 03:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* in tcgx86.make_simple_ref, on the i8086, emit 'mov es, reg', instead of

Browse Source 
'push reg/pop es', since that is a lot faster on 8088..80386

git-svn-id: trunk@25700 -
This commit is contained in:
nickysn 2013-10-06 19:52:38 +00:00
parent 304d7ef7a1
commit 67fdcb02f2
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/x86/cgx86.pas
View File

@ -610,8 +610,7 @@ unit cgx86;
{ if there is a segment in an int register, move it to ES }
if (ref.segment<>NR_NO) and (not is_segment_reg(ref.segment)) then
begin
list.concat(taicpu.op_reg(A_PUSH,S_W,ref.segment));
list.concat(taicpu.op_reg(A_POP,S_W,NR_ES));
list.concat(taicpu.op_reg_reg(A_MOV,S_W,ref.segment,NR_ES));
ref.segment:=NR_ES;
end;
{$endif}