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

* jmp_buf.pc renamed to .ip and also changed to word

Browse Source 
git-svn-id: trunk@24876 -
This commit is contained in:
nickysn 2013-06-11 22:51:06 +00:00
parent 8392c492cc
commit 07b9019c94
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/i8086/setjump.inc
View File

@ -24,7 +24,7 @@ asm
mov word [bx + Jmp_buf.bp], ax
mov word [bx + Jmp_buf.sp], di
mov di, word ss:[di]
mov word [bx + Jmp_buf.pc], di
mov word [bx + Jmp_buf.ip], di
xor ax, ax
pop bp
@ -42,7 +42,7 @@ asm
jnz @@L1
inc ax
@@L1:
mov dx, word [bx + Jmp_buf.pc]
mov dx, word [bx + Jmp_buf.ip]
mov bp, word [bx + Jmp_buf.bp]
mov sp, word [bx + Jmp_buf.sp]
// we should also clear the fpu

2
rtl/i8086/setjumph.inc
View File

@ -17,7 +17,7 @@ Type
jmp_buf = packed record
// bx,si,di: Word;
bp,sp: Word;
pc: Pointer;
ip: Word;
end;
PJmp_buf = ^jmp_buf;