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

+ added unit dynlibs to the win16 rtl

Browse Source 
git-svn-id: trunk@31901 -
This commit is contained in:
nickysn 2015-10-01 13:10:40 +00:00
parent 48d9daadb9
commit c9b3279e3c
5 changed files with 118 additions and 89 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -9706,6 +9706,7 @@ rtl/win/winres.inc svneol=native#text/plain
rtl/win16/Makefile svneol=native#text/plain
rtl/win16/Makefile.fpc svneol=native#text/plain
rtl/win16/dos.pp svneol=native#text/plain
rtl/win16/dynlibs.inc svneol=native#text/plain
rtl/win16/glbheap.inc svneol=native#text/plain
rtl/win16/glbheaph.inc svneol=native#text/plain
rtl/win16/locheap.inc svneol=native#text/plain

12
rtl/inc/dynlibs.pas
View File

@ -32,15 +32,15 @@ Function LoadLibrary(const Name : RawByteString) : TLibHandle; inline;
Function SafeLoadLibrary(const Name : UnicodeString) : TLibHandle; inline;
Function LoadLibrary(const Name : UnicodeString) : TLibHandle; inline;
Function GetProcedureAddress(Lib : TlibHandle; const ProcName : AnsiString) : Pointer; inline;
Function GetProcedureAddress(Lib : TLibHandle; Ordinal: TOrdinalEntry) : Pointer; inline;
Function GetProcedureAddress(Lib : TlibHandle; const ProcName : AnsiString) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif}; inline;
Function GetProcedureAddress(Lib : TLibHandle; Ordinal: TOrdinalEntry) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif}; inline;
Function UnloadLibrary(Lib : TLibHandle) : Boolean; inline;
Function GetLoadErrorStr: string; inline;
// Kylix/Delphi compability
Function FreeLibrary(Lib : TLibHandle) : Boolean; inline;
Function GetProcAddress(Lib : TlibHandle; const ProcName : AnsiString) : Pointer; inline;
Function GetProcAddress(Lib : TlibHandle; const ProcName : AnsiString) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif}; inline;
Type
HModule = TLibHandle;
@ -73,12 +73,12 @@ begin
end;
Function GetProcedureAddress(Lib : TLibHandle; const ProcName: AnsiString) : Pointer;
Function GetProcedureAddress(Lib : TLibHandle; const ProcName: AnsiString) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif};
begin
Result:=System.GetProcedureAddress(Lib, ProcName);
end;
Function GetProcedureAddress(Lib : TLibHandle; Ordinal : TOrdinalEntry) : Pointer;
Function GetProcedureAddress(Lib : TLibHandle; Ordinal : TOrdinalEntry) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif};
begin
Result:=System.GetProcedureAddress(Lib, Ordinal);
end;
@ -99,7 +99,7 @@ begin
Result:=System.FreeLibrary(lib);
end;
Function GetProcAddress(Lib : TlibHandle; const ProcName : AnsiString) : Pointer;
Function GetProcAddress(Lib : TlibHandle; const ProcName : AnsiString) : {$ifdef cpui8086}FarPointer{$else}Pointer{$endif};
begin
Result:=System.GetProcedureAddress(Lib,Procname);

166
rtl/win16/Makefile
View File

@ -349,250 +349,250 @@ ifdef NO_EXCEPTIONS_IN_SYSTEM
override FPCOPT+=-dNO_EXCEPTIONS_IN_SYSTEM
endif
ifeq ($(FULL_TARGET),i386-linux)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-go32v2)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-win32)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-os2)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-freebsd)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-beos)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-haiku)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-netbsd)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-solaris)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-qnx)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-netware)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-openbsd)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-wdosx)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-darwin)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-emx)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-watcom)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-netwlibc)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-wince)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-embedded)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-symbian)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-nativent)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-iphonesim)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-android)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-aros)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),m68k-linux)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),m68k-freebsd)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),m68k-netbsd)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),m68k-amiga)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),m68k-atari)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),m68k-openbsd)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),m68k-palmos)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),m68k-embedded)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc-linux)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc-netbsd)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc-amiga)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc-macos)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc-darwin)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc-morphos)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc-embedded)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc-wii)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc-aix)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),sparc-linux)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),sparc-netbsd)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),sparc-solaris)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),sparc-embedded)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),x86_64-linux)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),x86_64-freebsd)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),x86_64-netbsd)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),x86_64-solaris)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),x86_64-openbsd)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),x86_64-darwin)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),x86_64-win64)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),x86_64-embedded)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),x86_64-iphonesim)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),x86_64-aros)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),x86_64-dragonfly)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),arm-linux)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),arm-palmos)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),arm-darwin)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),arm-wince)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),arm-gba)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),arm-nds)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),arm-embedded)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),arm-symbian)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),arm-android)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc64-linux)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc64-darwin)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc64-embedded)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),powerpc64-aix)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),avr-embedded)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),armeb-linux)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),armeb-embedded)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),mips-linux)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),mipsel-linux)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),mipsel-embedded)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),mipsel-android)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),jvm-java)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),jvm-android)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i8086-msdos)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i8086-win16)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),aarch64-linux)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),aarch64-darwin)
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31
override TARGET_UNITS+=system uuchar objpas strings dos wintypes winprocs win31 dynlibs
endif
ifeq ($(FULL_TARGET),i386-linux)
override TARGET_LOADERS+=prt0s prt0m prt0c prt0l prt0h
@ -2591,6 +2591,8 @@ winprocs$(PPUEXT) : wintypes$(PPUEXT) winprocs.pp winprocsh.inc winprocs.inc
win31$(PPUEXT) : wintypes$(PPUEXT) win31.pp
$(COMPILER) win31.pp
$(EXECPPAS)
dynlibs$(PPUEXT) : $(INC)/dynlibs.pas dynlibs.inc objpas$(PPUEXT)
$(COMPILER) $(INC)/dynlibs.pas
dos$(PPUEXT) : dos.pp registers.inc \
$(INC)/dosh.inc $(INC)/dos.inc $(INC)/fexpand.inc \
strings$(PPUEXT) wintypes$(PPUEXT) winprocs$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)

9
rtl/win16/Makefile.fpc
View File

@ -6,7 +6,7 @@ main=rtl
[target]
loaders=prt0s prt0m prt0c prt0l prt0h
units=system uuchar objpas strings dos \
wintypes winprocs win31
wintypes winprocs win31 dynlibs
[require]
@ -104,6 +104,13 @@ win31$(PPUEXT) : wintypes$(PPUEXT) win31.pp
$(COMPILER) win31.pp
$(EXECPPAS)
#
# $(SYSTEMUNIT) Dependent Units
#
dynlibs$(PPUEXT) : $(INC)/dynlibs.pas dynlibs.inc objpas$(PPUEXT)
$(COMPILER) $(INC)/dynlibs.pas
#
# TP7 Compatible RTL Units
#

19
rtl/win16/dynlibs.inc Normal file
View File

@ -0,0 +1,19 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by the Free Pascal development team
Implements OS dependent part for loading of dynamic libraries.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
procedure InitDynLibs; inline;
begin
{ nothing to do here since Windows DynLibs is done in System }
end;