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

+ i8086 far data memory model support in DebugWrite

Browse Source 
git-svn-id: trunk@27265 -
This commit is contained in:
nickysn 2014-03-24 16:51:38 +00:00
parent 32c3f4e682
commit 4a649c9b08
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/msdos/system.pp
View File

@ -123,7 +123,12 @@ function CheckNullArea: Boolean; external name 'FPC_CHECK_NULLAREA';
procedure DebugWrite(const S: string); procedure DebugWrite(const S: string);
begin begin
asm asm
{$if defined(FPC_X86_DATA_FAR) or defined(FPC_X86_DATA_HUGE)}
push ds
lds si, S
{$else}
mov si, S mov si, S
{$endif}
{$ifdef FPC_ENABLED_CLD} {$ifdef FPC_ENABLED_CLD}
cld cld
{$endif FPC_ENABLED_CLD} {$endif FPC_ENABLED_CLD}
@ -137,6 +142,9 @@ begin
mov dl, al mov dl, al
int 21h int 21h
loop @@1 loop @@1
{$if defined(FPC_X86_DATA_FAR) or defined(FPC_X86_DATA_HUGE)}
pop ds
{$endif}
end ['ax','bx','cx','dx','si','di']; end ['ax','bx','cx','dx','si','di'];
end; end;