From a8f466c400bdb6292011db05714c0ceb7a0ae508 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 11 Jul 2018 14:34:05 +0000
Subject: [PATCH] * updated the CSeg, DSeg and SSeg rtl functions on i8086 to
 use the new x86   intrinsics for reading the segment registers

git-svn-id: trunk@39434 -
---
 rtl/i8086/i8086.inc | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/rtl/i8086/i8086.inc b/rtl/i8086/i8086.inc
index f31705ab0a..acddee4ceb 100644
--- a/rtl/i8086/i8086.inc
+++ b/rtl/i8086/i8086.inc
@@ -518,21 +518,21 @@ asm
 end;
 
 {$define FPC_SYSTEM_HAS_CSEG}
-function CSeg: Word;{$ifdef SYSTEMINLINE}inline;{$endif}assembler;nostackframe;
-asm
-  mov ax, cs
+function CSeg: Word;{$ifdef SYSTEMINLINE}inline;{$endif}
+begin
+  CSeg:=fpc_x86_get_cs;
 end;
 
 {$define FPC_SYSTEM_HAS_DSEG}
-function DSeg: Word;{$ifdef SYSTEMINLINE}inline;{$endif}assembler;nostackframe;
-asm
-  mov ax, ds
+function DSeg: Word;{$ifdef SYSTEMINLINE}inline;{$endif}
+begin
+  DSeg:=fpc_x86_get_ds;
 end;
 
 {$define FPC_SYSTEM_HAS_SSEG}
-function SSeg: Word;{$ifdef SYSTEMINLINE}inline;{$endif}assembler;nostackframe;
-asm
-  mov ax, ss
+function SSeg: Word;{$ifdef SYSTEMINLINE}inline;{$endif}
+begin
+  SSeg:=fpc_x86_get_ss;
 end;
 
 {$IFNDEF INTERNAL_BACKTRACE}