Browse Source

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

git-svn-id: trunk@24876 -
nickysn 12 years ago
parent
commit
07b9019c94
2 changed files with 3 additions and 3 deletions
  1. 2 2
      rtl/i8086/setjump.inc
  2. 1 1
      rtl/i8086/setjumph.inc

+ 2 - 2
rtl/i8086/setjump.inc

@@ -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

+ 1 - 1
rtl/i8086/setjumph.inc

@@ -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;