paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 14:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed 'ifndef tp' directives

Browse Source 
git-svn-id: trunk@41073 -
This commit is contained in:
nickysn 2019-01-25 16:15:31 +00:00
parent c0710df0f8
commit c33b4e20b2
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/graph/src/go32v2/graph.pp
View File

@ -155,7 +155,6 @@ const
ScrWidth : word absolute $40:$4a;
inWindows: boolean;
{$ifndef tp}
Procedure seg_bytemove(sseg : word;source : longint;dseg : word;dest : longint;count : longint); assembler;
asm
push edi
@ -174,7 +173,6 @@ const
pop esi
pop edi
end;
{$endif tp}
Procedure CallInt10(val_ax : word); assembler;
asm
@ -2153,11 +2151,7 @@ End;
if HLength>0 then
begin
Port[$3cf]:=$ff;
{$ifndef tp}
seg_bytemove(dosmemselector,$a0000+ScrOfs,dosmemselector,$a0000+ScrOfs,HLength);
{$else}
move(Ptr(SegA000,ScrOfs)^, Ptr(SegA000,ScrOfs)^, HLength);
{$endif}
ScrOfs:=ScrOfs+HLength;
end;
Port[$3cf]:=RMask;