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

* prefer to use ax in fpc_SetJmp for i8086, because it's faster on old CPUs (and makes no difference on newer CPUs)

Browse Source 
git-svn-id: trunk@25805 -
This commit is contained in:
nickysn 2013-10-16 15:17:23 +00:00
parent acbf73ec6e
commit c9d021aeb8
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/i8086/setjump.inc
View File

@ -19,14 +19,14 @@ asm
mov bx, ss:[si + 2 + extra_param_offset] // S mov bx, ss:[si + 2 + extra_param_offset] // S
mov word [bx + Jmp_buf.bp], bp mov word [bx + Jmp_buf.bp], bp
mov cx, word ss:[si] mov ax, word ss:[si]
mov word [bx + Jmp_buf.ip], cx mov word [bx + Jmp_buf.ip], ax
{$ifdef FPC_X86_CODE_FAR} {$ifdef FPC_X86_CODE_FAR}
mov cx, word ss:[si + 2] mov ax, word ss:[si + 2]
mov word [bx + Jmp_buf.cs], cx mov word [bx + Jmp_buf.cs], ax
{$endif FPC_X86_CODE_FAR} {$endif FPC_X86_CODE_FAR}
add si, 4 + extra_param_offset lea ax, [si + 4 + extra_param_offset]
mov word [bx + Jmp_buf.sp], si mov word [bx + Jmp_buf.sp], ax
xor ax, ax xor ax, ax
end; end;