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

+ ifdef has_property for 0.99.5 backward support

Browse Source
This commit is contained in:
peter 1998-07-04 10:04:41 +00:00
parent eb9df35117
commit 34ade816f2
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/dos/go32.pp
View File

@ -185,6 +185,7 @@ procedure outportb(port : word;data : byte);
procedure outportw(port : word;data : word);
procedure outportl(port : word;data : longint);
{$IFDEF HAS_PROPERTY}
type
tport = class
procedure writeport(p : word;data : byte);
@ -210,6 +211,7 @@ var
portb : tport;
portw : tportw;
portl : tportl;
{$ENDIF HAS_PROPERTY}
implementation
@ -1144,6 +1146,8 @@ asm
inl %dx,%eax
end ['EAX','EDX'];
{$IFDEF HAS_PROPERTY}
{ to give easy port access like tp with port[] }
procedure tport.writeport(p : word;data : byte);assembler;
@ -1190,6 +1194,8 @@ asm
inl %dx,%eax
end ['EAX','EDX'];
{$ENDIF HAS_PROPERTY}
{*****************************************************************************
Initialization
@ -1214,7 +1220,10 @@ end.
{
$Log$
Revision 1.5 1998-05-31 14:16:49 peter
Revision 1.6 1998-07-04 10:04:41 peter
+ ifdef has_property for 0.99.5 backward support
Revision 1.5 1998/05/31 14:16:49 peter
+ released port[] and made them assembler procedures
Revision 1.4 1998/04/24 08:26:50 pierre