paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 04:07:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

- removed the objpas dependency of unit ports under go32v2 as well

Browse Source 
git-svn-id: trunk@37559 -
This commit is contained in:
nickysn 2017-11-06 16:19:54 +00:00
parent 24d447716e
commit 0695381709
3 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/go32v2/Makefile
View File

@ -3140,7 +3140,7 @@ emu387$(PPUEXT) : emu387.pp fpu$(OEXT) strings$(PPUEXT) dxeload$(PPUEXT) \
dpmiexcp$(PPUEXT) dpmiexcp$(PPUEXT)
$(COMPILER) emu387.pp $(COMPILER) emu387.pp
$(EXECPPAS) $(EXECPPAS)
ports$(PPUEXT) : ports.pp objpas$(PPUEXT) system$(PPUEXT) ports$(PPUEXT) : ports.pp system$(PPUEXT)
$(COMPILER) ports.pp $(COMPILER) ports.pp
$(EXECPPAS) $(EXECPPAS)
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc \ dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc \

2
rtl/go32v2/Makefile.fpc
View File

@ -134,7 +134,7 @@ emu387$(PPUEXT) : emu387.pp fpu$(OEXT) strings$(PPUEXT) dxeload$(PPUEXT) \
$(COMPILER) emu387.pp $(COMPILER) emu387.pp
$(EXECPPAS) $(EXECPPAS)
ports$(PPUEXT) : ports.pp objpas$(PPUEXT) system$(PPUEXT) ports$(PPUEXT) : ports.pp system$(PPUEXT)
$(COMPILER) ports.pp $(COMPILER) ports.pp
$(EXECPPAS) $(EXECPPAS)

9
rtl/go32v2/ports.pp
View File

@ -16,27 +16,24 @@
unit ports; unit ports;
{ this unit uses classes so
ObjFpc mode is required PM }
{$Mode ObjFpc}
{$Calling StdCall} {$Calling StdCall}
interface interface
type type
tport = class tport = object
procedure writeport(p : word;data : byte); procedure writeport(p : word;data : byte);
function readport(p : word) : byte; function readport(p : word) : byte;
property pp[w : word] : byte read readport write writeport;default; property pp[w : word] : byte read readport write writeport;default;
end; end;
tportw = class tportw = object
procedure writeport(p : word;data : word); procedure writeport(p : word;data : word);
function readport(p : word) : word; function readport(p : word) : word;
property pp[w : word] : word read readport write writeport;default; property pp[w : word] : word read readport write writeport;default;
end; end;
tportl = class tportl = object
procedure writeport(p : word;data : longint); procedure writeport(p : word;data : longint);
function readport(p : word) : longint; function readport(p : word) : longint;
property pp[w : word] : longint read readport write writeport;default; property pp[w : word] : longint read readport write writeport;default;