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

* updated the CSeg, DSeg and SSeg rtl functions on i8086 to use the new x86

Browse Source 
intrinsics for reading the segment registers

git-svn-id: trunk@39434 -
This commit is contained in:
nickysn 2018-07-11 14:34:05 +00:00
parent 9272bf59b2
commit a8f466c400
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/i8086/i8086.inc
View File

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