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

* $ifdef ver0_99_5 instead of has_property

Browse Source
This commit is contained in:
peter 1998-08-11 00:07:17 +00:00
parent bd57e42086
commit 0be8fdd5b8
1 changed files with 8 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
rtl/dos/go32.pp
View File

@ -158,12 +158,10 @@ unit go32;
procedure outportl(port : word;data : longint);
function get_run_mode : word;
{$ifndef V0_6}
function transfer_buffer : longint;
function tb_size : longint;
procedure copytodos(var addr; len : longint);
procedure copyfromdos(var addr; len : longint);
{$endif not VER0_6}
procedure dpmi_dosmemput(seg : word;ofs : word;var data;count : longint);
procedure dpmi_dosmemget(seg : word;ofs : word;var data;count : longint);
@ -172,7 +170,7 @@ unit go32;
procedure dpmi_dosmemfillword(seg,ofs : word;count : longint;w : word);
{$IFDEF HAS_PROPERTY}
{$ifndef VER0_99_5}
type
tport = class
procedure writeport(p : word;data : byte);
@ -198,7 +196,7 @@ var
portb : tport;
portw : tportw;
portl : tportl;
{$ENDIF HAS_PROPERTY}
{$endif VER0_99_5}
const
{ this procedures are assigned to the procedure which are needed }
@ -511,7 +509,7 @@ var
end;
{$IFDEF HAS_PROPERTY}
{$ifndef VER0_99_5}
{ to give easy port access like tp with port[] }
@ -559,7 +557,7 @@ asm
inl %dx,%eax
end ['EAX','EDX'];
{$ENDIF HAS_PROPERTY}
{$endif VER0_99_5}
function get_cs : word;
@ -1220,58 +1218,9 @@ end.
{
$Log$
Revision 1.9 1998-07-21 12:06:03 carl
Revision 1.10 1998-08-11 00:07:17 peter
* $ifdef ver0_99_5 instead of has_property
Revision 1.9 1998/07/21 12:06:03 carl
* restored working version
Revision 1.2 1998/03/29 17:26:20 florian
* small improvements
Revision 1.1.1.1 1998/03/25 11:18:41 root
* Restored version
Revision 1.8 1998/03/24 15:54:14 peter
- raw_ functions are not necessary for go32v2, $ifdef'd them
Revision 1.7 1998/03/24 09:33:59 peter
+ new trealregs from the mailinglist
+ 2 new functions get_page_size, map_device_in_mem_block
Revision 1.6 1998/02/01 09:32:21 florian
* some clean up
Revision 1.5 1998/01/26 11:56:27 michael
+ Added log at the end
revision 1.4
date: 1997/12/12 13:14:37; author: pierre; state: Exp; lines: +2 -1
+ added handling of swap_vectors if under exceptions
i.e. swapvector is not dummy under go32v2
* bug in output, exceptions where not allways reset correctly
now the code in dpmiexcp is called from v2prt0.as exit routine
* in crt.pp corrected init_delay calibration loop
and added it for go32v2 also (was disabled before due to crashes !!)
the previous code did a wrong assumption on the time need to call
get_ticks compared to an internal loop without call
----------------------------
revision 1.3
date: 1997/12/11 11:50:37; author: pierre; state: Exp; lines: +2 -2
* bug in get_linear_addr corrected
thanks to Raul who found this bug.
----------------------------
revision 1.2
date: 1997/12/01 12:15:46; author: michael; state: Exp; lines: +10 -3
+ added copyright reference in header.
----------------------------
revision 1.1
date: 1997/11/27 08:33:50; author: michael; state: Exp;
Initial revision
----------------------------
revision 1.1.1.1
date: 1997/11/27 08:33:50; author: michael; state: Exp; lines: +0 -0
FPC RTL CVS start
=============================================================================
History:
6th november 1996:
+ dosmem* implemented
}