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

* unified and moved some win32/win64 stuff

Browse Source 
+ more units on win64 compile

git-svn-id: trunk@3131 -
This commit is contained in:
florian 2006-04-02 20:52:17 +00:00
parent 1a3cf9650e
commit 89f8474388
32 changed files with 223 additions and 141 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
.gitattributes vendored
View File

@ -4528,17 +4528,35 @@ rtl/watcom/system.pp svneol=native#text/plain
rtl/watcom/sysutils.pp svneol=native#text/plain rtl/watcom/sysutils.pp svneol=native#text/plain
rtl/watcom/varutils.pp svneol=native#text/plain rtl/watcom/varutils.pp svneol=native#text/plain
rtl/watcom/watcom.pp svneol=native#text/plain rtl/watcom/watcom.pp svneol=native#text/plain
rtl/win/dos.pp svneol=native#text/plain
rtl/win/sysdir.inc svneol=native#text/plain rtl/win/sysdir.inc svneol=native#text/plain
rtl/win/sysfile.inc svneol=native#text/plain rtl/win/sysfile.inc svneol=native#text/plain
rtl/win/sysheap.inc svneol=native#text/plain rtl/win/sysheap.inc svneol=native#text/plain
rtl/win/sysos.inc svneol=native#text/plain rtl/win/sysos.inc svneol=native#text/plain
rtl/win/sysosh.inc svneol=native#text/plain rtl/win/sysosh.inc svneol=native#text/plain
rtl/win/systhrd.inc svneol=native#text/plain rtl/win/systhrd.inc svneol=native#text/plain
rtl/win/sysutils.pp svneol=native#text/plain
rtl/win/varutils.pp svneol=native#text/plain
rtl/win/wininc/Makefile svneol=native#text/plain
rtl/win/wininc/ascdef.inc svneol=native#text/plain
rtl/win/wininc/ascdef.sed -text
rtl/win/wininc/ascfun.inc svneol=native#text/plain
rtl/win/wininc/base.inc svneol=native#text/plain
rtl/win/wininc/defines.inc svneol=native#text/plain
rtl/win/wininc/errors.inc svneol=native#text/plain
rtl/win/wininc/func.inc svneol=native#text/plain
rtl/win/wininc/makefile.inc svneol=native#text/plain
rtl/win/wininc/messages.inc svneol=native#text/plain
rtl/win/wininc/redef.inc svneol=native#text/plain
rtl/win/wininc/struct.inc svneol=native#text/plain
rtl/win/wininc/unidef.inc svneol=native#text/plain
rtl/win/wininc/unidef.sed -text
rtl/win/wininc/unifun.inc svneol=native#text/plain
rtl/win/winsock.pp svneol=native#text/plain
rtl/win32/Makefile svneol=native#text/plain rtl/win32/Makefile svneol=native#text/plain
rtl/win32/Makefile.fpc svneol=native#text/plain rtl/win32/Makefile.fpc svneol=native#text/plain
rtl/win32/classes.pp svneol=native#text/plain rtl/win32/classes.pp svneol=native#text/plain
rtl/win32/crt.pp svneol=native#text/plain rtl/win32/crt.pp svneol=native#text/plain
rtl/win32/dos.pp svneol=native#text/plain
rtl/win32/dynlibs.inc svneol=native#text/plain rtl/win32/dynlibs.inc svneol=native#text/plain
rtl/win32/gprt0.as -text rtl/win32/gprt0.as -text
rtl/win32/initc.pp svneol=native#text/plain rtl/win32/initc.pp svneol=native#text/plain
@ -4550,31 +4568,13 @@ rtl/win32/printer.pp svneol=native#text/plain
rtl/win32/signals.pp svneol=native#text/plain rtl/win32/signals.pp svneol=native#text/plain
rtl/win32/sockets.pp svneol=native#text/plain rtl/win32/sockets.pp svneol=native#text/plain
rtl/win32/system.pp svneol=native#text/plain rtl/win32/system.pp svneol=native#text/plain
rtl/win32/sysutils.pp svneol=native#text/plain
rtl/win32/tthread.inc svneol=native#text/plain rtl/win32/tthread.inc svneol=native#text/plain
rtl/win32/varutils.pp svneol=native#text/plain
rtl/win32/video.pp svneol=native#text/plain rtl/win32/video.pp svneol=native#text/plain
rtl/win32/wcygprt0.as -text rtl/win32/wcygprt0.as -text
rtl/win32/wdllprt0.as -text rtl/win32/wdllprt0.as -text
rtl/win32/win32res.inc svneol=native#text/plain rtl/win32/win32res.inc svneol=native#text/plain
rtl/win32/windows.pp svneol=native#text/plain rtl/win32/windows.pp svneol=native#text/plain
rtl/win32/winevent.pp svneol=native#text/plain rtl/win32/winevent.pp svneol=native#text/plain
rtl/win32/wininc/Makefile svneol=native#text/plain
rtl/win32/wininc/ascdef.inc svneol=native#text/plain
rtl/win32/wininc/ascdef.sed -text
rtl/win32/wininc/ascfun.inc svneol=native#text/plain
rtl/win32/wininc/base.inc svneol=native#text/plain
rtl/win32/wininc/defines.inc svneol=native#text/plain
rtl/win32/wininc/errors.inc svneol=native#text/plain
rtl/win32/wininc/func.inc svneol=native#text/plain
rtl/win32/wininc/makefile.inc svneol=native#text/plain
rtl/win32/wininc/messages.inc svneol=native#text/plain
rtl/win32/wininc/redef.inc svneol=native#text/plain
rtl/win32/wininc/struct.inc svneol=native#text/plain
rtl/win32/wininc/unidef.inc svneol=native#text/plain
rtl/win32/wininc/unidef.sed -text
rtl/win32/wininc/unifun.inc svneol=native#text/plain
rtl/win32/winsock.pp svneol=native#text/plain
rtl/win32/winsock2.pp svneol=native#text/plain rtl/win32/winsock2.pp svneol=native#text/plain
rtl/win32/winsysut.pp svneol=native#text/plain rtl/win32/winsysut.pp svneol=native#text/plain
rtl/win32/wprt0.as -text rtl/win32/wprt0.as -text
@ -4582,6 +4582,7 @@ rtl/win32/wprt0_10.as -text
rtl/win64/Makefile svneol=native#text/plain rtl/win64/Makefile svneol=native#text/plain
rtl/win64/Makefile.fpc svneol=native#text/plain rtl/win64/Makefile.fpc svneol=native#text/plain
rtl/win64/system.pp svneol=native#text/plain rtl/win64/system.pp svneol=native#text/plain
rtl/win64/windows.pp svneol=native#text/plain
rtl/wince/Makefile svneol=native#text/plain rtl/wince/Makefile svneol=native#text/plain
rtl/wince/Makefile.fpc svneol=native#text/plain rtl/wince/Makefile.fpc svneol=native#text/plain
rtl/wince/arm/wprt0.as svneol=native#text/plain rtl/wince/arm/wprt0.as svneol=native#text/plain

14
.gitignore vendored
View File

@ -2057,6 +2057,13 @@ rtl/win/*.ppu
rtl/win/*.s rtl/win/*.s
rtl/win/fpcmade.* rtl/win/fpcmade.*
rtl/win/units rtl/win/units
rtl/win/wininc/*.bak
rtl/win/wininc/*.exe
rtl/win/wininc/*.o
rtl/win/wininc/*.ppu
rtl/win/wininc/*.s
rtl/win/wininc/fpcmade.*
rtl/win/wininc/units
rtl/win32/*.bak rtl/win32/*.bak
rtl/win32/*.exe rtl/win32/*.exe
rtl/win32/*.o rtl/win32/*.o
@ -2064,13 +2071,6 @@ rtl/win32/*.ppu
rtl/win32/*.s rtl/win32/*.s
rtl/win32/fpcmade.* rtl/win32/fpcmade.*
rtl/win32/units rtl/win32/units
rtl/win32/wininc/*.bak
rtl/win32/wininc/*.exe
rtl/win32/wininc/*.o
rtl/win32/wininc/*.ppu
rtl/win32/wininc/*.s
rtl/win32/wininc/fpcmade.*
rtl/win32/wininc/units
rtl/win64/*.bak rtl/win64/*.bak
rtl/win64/*.exe rtl/win64/*.exe
rtl/win64/*.o rtl/win64/*.o

2
rtl/inc/mathh.inc
View File

@ -23,13 +23,11 @@
{$endif cpui386} {$endif cpui386}
{$ifdef cpux86_64} {$ifdef cpux86_64}
{$ifndef WIN64}
const const
Default8087CW : word = $1332; Default8087CW : word = $1332;
procedure Set8087CW(cw:word); procedure Set8087CW(cw:word);
function Get8087CW:word; function Get8087CW:word;
{$endif WIN64}
{$endif cpux86_64} {$endif cpux86_64}
{ declarations of the math routines } { declarations of the math routines }

2
rtl/objpas/sysutils/datih.inc
View File

@ -78,7 +78,7 @@ const
} }
type type
{$ifndef win32} {$if not(defined(win32)) and not(defined(win64)) }
{ Win32 reuses the struct from the Windows unit } { Win32 reuses the struct from the Windows unit }
TSystemTime = record TSystemTime = record
Year, Month, Day: word; Year, Month, Day: word;

24
rtl/objpas/sysutils/filutilh.inc
View File

@ -27,7 +27,7 @@ Type
{$else unix} {$else unix}
FindHandle : THandle; FindHandle : THandle;
{$endif unix} {$endif unix}
{$if defined(Win32) or defined(WinCE)} {$if defined(Win32) or defined(WinCE) or defined(Win64)}
FindData : TWin32FindData; FindData : TWin32FindData;
{$endif} {$endif}
{$ifdef netware_clib} {$ifdef netware_clib}
@ -68,23 +68,23 @@ Const
fsFromCurrent = 1; fsFromCurrent = 1;
fsFromEnd = 2; fsFromEnd = 2;
Function FileOpen (Const FileName : string; Mode : Integer) : Longint; Function FileOpen (Const FileName : string; Mode : Integer) : THandle;
Function FileCreate (Const FileName : String) : Longint; Function FileCreate (Const FileName : String) : THandle;
Function FileCreate (Const FileName : String; Mode : Integer) : Longint; Function FileCreate (Const FileName : String; Mode : Integer) : THandle;
Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint; Function FileRead (Handle : THandle; Var Buffer; Count : longint) : Longint;
Function FileWrite (Handle : Longint; const Buffer; Count : Longint) : Longint; Function FileWrite (Handle : THandle; const Buffer; Count : Longint) : Longint;
Function FileSeek (Handle,FOffset,Origin : Longint) : Longint; Function FileSeek (Handle : THandle;FOffset,Origin : Longint) : Longint;
Function FileSeek (Handle : Longint; FOffset,Origin : Int64) : Int64; Function FileSeek (Handle : THandle; FOffset,Origin : Int64) : Int64;
Procedure FileClose (Handle : Longint); Procedure FileClose (Handle : THandle);
Function FileTruncate (Handle,Size: Longint) : boolean; Function FileTruncate (Handle : THandle;Size: Longint) : boolean;
Function FileAge (Const FileName : String): Longint; Function FileAge (Const FileName : String): Longint;
Function FileExists (Const FileName : String) : Boolean; Function FileExists (Const FileName : String) : Boolean;
Function DirectoryExists (Const Directory : String) : Boolean; Function DirectoryExists (Const Directory : String) : Boolean;
Function FindFirst (Const Path : String; Attr : Longint; out Rslt : TSearchRec) : Longint; Function FindFirst (Const Path : String; Attr : Longint; out Rslt : TSearchRec) : Longint;
Function FindNext (Var Rslt : TSearchRec) : Longint; Function FindNext (Var Rslt : TSearchRec) : Longint;
Procedure FindClose (Var F : TSearchrec); Procedure FindClose (Var F : TSearchrec);
Function FileGetDate (Handle : Longint) : Longint; Function FileGetDate (Handle : THandle) : Longint;
Function FileSetDate (Handle,Age : Longint) : Longint; Function FileSetDate (Handle : THandle;Age : Longint) : Longint;
Function FileSetDate (Const FileName : String;Age : Longint) : Longint; Function FileSetDate (Const FileName : String;Age : Longint) : Longint;
Function FileGetAttr (Const FileName : String) : Longint; Function FileGetAttr (Const FileName : String) : Longint;
Function FileSetAttr (Const Filename : String; Attr: longint) : Longint; Function FileSetAttr (Const Filename : String; Attr: longint) : Longint;

2
rtl/objpas/sysutils/osutil.inc
View File

@ -204,7 +204,7 @@ begin
Result:=GetTempFileName('',''); Result:=GetTempFileName('','');
end; end;
{$ifndef win32} {$if not(defined(win32)) and not(defined(win64))}
Function GetTempFileName(Dir,Prefix: PChar; uUnique: DWORD; TempFileName: PChar):DWORD; Function GetTempFileName(Dir,Prefix: PChar; uUnique: DWORD; TempFileName: PChar):DWORD;
Var Var

0
rtl/win32/dos.pp → rtl/win/dos.pp
View File

22
rtl/win32/sysutils.pp → rtl/win/sysutils.pp
View File

@ -133,7 +133,7 @@ end;
File Functions File Functions
****************************************************************************} ****************************************************************************}
Function FileOpen (Const FileName : string; Mode : Integer) : Longint; Function FileOpen (Const FileName : string; Mode : Integer) : THandle;
const const
AccessMode: array[0..2] of Cardinal = ( AccessMode: array[0..2] of Cardinal = (
GENERIC_READ, GENERIC_READ,
@ -155,7 +155,7 @@ begin
end; end;
Function FileCreate (Const FileName : String) : Longint; Function FileCreate (Const FileName : String) : THandle;
Var Var
FN : string; FN : string;
begin begin
@ -165,13 +165,13 @@ begin
end; end;
Function FileCreate (Const FileName : String; Mode:longint) : SizeInt; Function FileCreate (Const FileName : String; Mode:longint) : THandle;
begin begin
FileCreate:=FileCreate(FileName); FileCreate:=FileCreate(FileName);
end; end;
Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint; Function FileRead (Handle : THandle; Var Buffer; Count : longint) : Longint;
Var Var
res : dword; res : dword;
begin begin
@ -182,7 +182,7 @@ begin
end; end;
Function FileWrite (Handle : Longint; const Buffer; Count : Longint) : Longint; Function FileWrite (Handle : THandle; const Buffer; Count : Longint) : Longint;
Var Var
Res : dword; Res : dword;
begin begin
@ -193,20 +193,20 @@ begin
end; end;
Function FileSeek (Handle,FOffset,Origin : Longint) : Longint; Function FileSeek (Handle : THandle;FOffset,Origin : Longint) : Longint;
begin begin
Result := longint(SetFilePointer(Handle, FOffset, nil, Origin)); Result := longint(SetFilePointer(Handle, FOffset, nil, Origin));
end; end;
Function FileSeek (Handle : Longint; FOffset,Origin : Int64) : Int64; Function FileSeek (Handle : THandle; FOffset,Origin : Int64) : Int64;
begin begin
{$warning need to add 64bit call } {$warning need to add 64bit call }
Result := longint(SetFilePointer(Handle, FOffset, nil, Origin)); Result := longint(SetFilePointer(Handle, FOffset, nil, Origin));
end; end;
Procedure FileClose (Handle : Longint); Procedure FileClose (Handle : THandle);
begin begin
if Handle<=4 then if Handle<=4 then
exit; exit;
@ -214,7 +214,7 @@ begin
end; end;
Function FileTruncate (Handle,Size: Longint) : boolean; Function FileTruncate (Handle : THandle;Size: Longint) : boolean;
begin begin
Result:=longint(SetFilePointer(handle,Size,nil,FILE_BEGIN))<>-1; Result:=longint(SetFilePointer(handle,Size,nil,FILE_BEGIN))<>-1;
If Result then If Result then
@ -334,7 +334,7 @@ begin
end; end;
Function FileGetDate (Handle : Longint) : Longint; Function FileGetDate (Handle : THandle) : Longint;
Var Var
FT : TFileTime; FT : TFileTime;
begin begin
@ -345,7 +345,7 @@ begin
end; end;
Function FileSetDate (Handle,Age : Longint) : Longint; Function FileSetDate (Handle : THandle;Age : Longint) : Longint;
Var Var
FT: TFileTime; FT: TFileTime;
begin begin

0
rtl/win32/varutils.pp → rtl/win/varutils.pp
View File

0
rtl/win32/wininc/Makefile → rtl/win/wininc/Makefile
View File

0
rtl/win32/wininc/ascdef.inc → rtl/win/wininc/ascdef.inc
View File

0
rtl/win32/wininc/ascdef.sed → rtl/win/wininc/ascdef.sed
View File

0
rtl/win32/wininc/ascfun.inc → rtl/win/wininc/ascfun.inc
View File

8
rtl/win32/wininc/base.inc → rtl/win/wininc/base.inc
View File

@ -72,6 +72,10 @@
LONGLONG = int64; LONGLONG = int64;
PLONGLONG = ^LONGLONG; PLONGLONG = ^LONGLONG;
INT_PTR = PtrInt;
UINT_PTR = PtrUInt;
LONG_PTR = PtrInt;
ULONG_PTR = PtrUInt;
DWORDLONG = qword; { was unsigned long } DWORDLONG = qword; { was unsigned long }
PDWORDLONG = ^DWORDLONG; PDWORDLONG = ^DWORDLONG;
@ -802,14 +806,14 @@ type
{ argument types are unknown } { argument types are unknown }
function MAKEINTATOM(i : longint) : LPTSTR; function MAKEINTATOM(i : longint) : LPTSTR;
begin begin
MAKEINTATOM:=LPTSTR(DWORD(WORD(i))); MAKEINTATOM:=LPTSTR(ULONG_PTR(WORD(i)));
end; end;
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }
{ argument types are unknown } { argument types are unknown }
function MAKEINTRESOURCE(i : longint) : LPTSTR; function MAKEINTRESOURCE(i : longint) : LPTSTR;
begin begin
MAKEINTRESOURCE:=LPTSTR(DWORD(WORD(i))); MAKEINTRESOURCE:=LPTSTR(ULONG_PTR(WORD(i)));
end; end;
{ was #define dname(params) def_expr } { was #define dname(params) def_expr }

0
rtl/win32/wininc/defines.inc → rtl/win/wininc/defines.inc
View File

0
rtl/win32/wininc/errors.inc → rtl/win/wininc/errors.inc
View File

0
rtl/win32/wininc/func.inc → rtl/win/wininc/func.inc
View File

0
rtl/win32/wininc/makefile.inc → rtl/win/wininc/makefile.inc
View File

0
rtl/win32/wininc/messages.inc → rtl/win/wininc/messages.inc
View File

0
rtl/win32/wininc/redef.inc → rtl/win/wininc/redef.inc
View File

0
rtl/win32/wininc/struct.inc → rtl/win/wininc/struct.inc
View File

0
rtl/win32/wininc/unidef.inc → rtl/win/wininc/unidef.inc
View File

0
rtl/win32/wininc/unidef.sed → rtl/win/wininc/unidef.sed
View File

0
rtl/win32/wininc/unifun.inc → rtl/win/wininc/unifun.inc
View File

0
rtl/win32/winsock.pp → rtl/win/winsock.pp
View File

19
rtl/win32/Makefile
View File

@ -1,5 +1,5 @@
# #
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2006/03/19] # Don't edit, this file is generated by FPCMake Version 2.0.0 [2006/04/02]
# #
default: all default: all
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-palmos arm-wince powerpc64-linux MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-palmos arm-wince powerpc64-linux
@ -237,7 +237,8 @@ RTL=..
INC=$(RTL)/inc INC=$(RTL)/inc
COMMON=$(RTL)/common COMMON=$(RTL)/common
PROCINC=$(RTL)/$(CPU_TARGET) PROCINC=$(RTL)/$(CPU_TARGET)
WININC=wininc WININC=../win/wininc
WINDIR=../win
UNITPREFIX=rtl UNITPREFIX=rtl
ifneq ($(findstring 2.0.,$(FPC_VERSION)),) ifneq ($(findstring 2.0.,$(FPC_VERSION)),)
LOADERS=wprt0 wdllprt0 gprt0 wcygprt0 LOADERS=wprt0 wdllprt0 gprt0 wcygprt0
@ -2109,18 +2110,20 @@ windows$(PPUEXT) : windows.pp $(WINDOWS_SOURCE_FILES) system$(PPUEXT)
messages$(PPUEXT): messages.pp $(WININC)/messages.inc system$(PPUEXT) messages$(PPUEXT): messages.pp $(WININC)/messages.inc system$(PPUEXT)
$(COMPILER) -I$(WININC) messages.pp $(COMPILER) -I$(WININC) messages.pp
opengl32$(PPUEXT) : opengl32.pp windows$(PPUEXT) system$(PPUEXT) opengl32$(PPUEXT) : opengl32.pp windows$(PPUEXT) system$(PPUEXT)
winsock$(PPUEXT) : winsock.pp windows$(PPUEXT) system$(PPUEXT) winsock$(PPUEXT) : $(WINDIR)/winsock.pp windows$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(WINDIR)/winsock.pp
winsock2$(PPUEXT) : winsock2.pp windows$(PPUEXT) system$(PPUEXT) winsock2$(PPUEXT) : winsock2.pp windows$(PPUEXT) system$(PPUEXT)
sockets$(PPUEXT) : sockets.pp windows$(PPUEXT) winsock$(PPUEXT) winsock2$(PPUEXT) system$(PPUEXT) \ sockets$(PPUEXT) : sockets.pp windows$(PPUEXT) winsock$(PPUEXT) winsock2$(PPUEXT) system$(PPUEXT) \
$(INC)/sockets.inc $(INC)/socketsh.inc $(INC)/sockets.inc $(INC)/socketsh.inc
initc$(PPUEXT) : initc.pp system$(PPUEXT) initc$(PPUEXT) : initc.pp system$(PPUEXT)
dynlibs$(PPUEXT) : $(INC)/dynlibs.pp windows$(PPUEXT) dynlibs$(PPUEXT) : $(INC)/dynlibs.pp windows$(PPUEXT)
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) system$(PPUEXT) dos$(PPUEXT) : $(WINDIR)/dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(WINDIR)/dos.pp
crt$(PPUEXT) : crt.pp $(INC)/textrec.inc system$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) crt$(PPUEXT) : crt.pp $(INC)/textrec.inc system$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT)
objects$(PPUEXT) : $(INC)/objects.pp system$(PPUEXT) objects$(PPUEXT) : $(INC)/objects.pp system$(PPUEXT)
sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \ sysutils$(PPUEXT) : $(WINDIR)/sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \
objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) sysconst$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) sysconst$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/sysutils sysutils.pp $(COMPILER) -Fi$(OBJPASDIR)/sysutils $(WINDIR)/sysutils.pp
classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \ classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \
sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) sysconst$(PPUEXT) sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) sysconst$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/classes classes.pp $(COMPILER) -Fi$(OBJPASDIR)/classes classes.pp
@ -2131,8 +2134,8 @@ typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT)
math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT) math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/math.pp $(COMPILER) $(OBJPASDIR)/math.pp
varutils$(PPUEXT) : $(OBJPASDIR)/cvarutil.inc $(OBJPASDIR)/varutils.inc \ varutils$(PPUEXT) : $(OBJPASDIR)/cvarutil.inc $(OBJPASDIR)/varutils.inc \
$(OBJPASDIR)/varutilh.inc varutils.pp sysutils$(PPUEXT) $(OBJPASDIR)/varutilh.inc $(WINDIR)/varutils.pp sysutils$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR) varutils.pp $(COMPILER) -Fi$(OBJPASDIR) $(WINDIR)/varutils.pp
variants$(PPUEXT) : $(INC)/variants.pp varutils$(PPUEXT) sysutils$(PPUEXT) sysconst$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) variants$(PPUEXT) : $(INC)/variants.pp varutils$(PPUEXT) sysutils$(PPUEXT) sysconst$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT)
$(COMPILER) -Fi$(INC) $(INC)/variants.pp $(COMPILER) -Fi$(INC) $(INC)/variants.pp
types$(PPUEXT) : $(OBJPASDIR)/types.pp objpas$(PPUEXT) system$(PPUEXT) types$(PPUEXT) : $(OBJPASDIR)/types.pp objpas$(PPUEXT) system$(PPUEXT)

17
rtl/win32/Makefile.fpc
View File

@ -40,7 +40,8 @@ RTL=..
INC=$(RTL)/inc INC=$(RTL)/inc
COMMON=$(RTL)/common COMMON=$(RTL)/common
PROCINC=$(RTL)/$(CPU_TARGET) PROCINC=$(RTL)/$(CPU_TARGET)
WININC=wininc WININC=../win/wininc
WINDIR=../win
UNITPREFIX=rtl UNITPREFIX=rtl
@ -114,7 +115,8 @@ messages$(PPUEXT): messages.pp $(WININC)/messages.inc system$(PPUEXT)
opengl32$(PPUEXT) : opengl32.pp windows$(PPUEXT) system$(PPUEXT) opengl32$(PPUEXT) : opengl32.pp windows$(PPUEXT) system$(PPUEXT)
winsock$(PPUEXT) : winsock.pp windows$(PPUEXT) system$(PPUEXT) winsock$(PPUEXT) : $(WINDIR)/winsock.pp windows$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(WINDIR)/winsock.pp
winsock2$(PPUEXT) : winsock2.pp windows$(PPUEXT) system$(PPUEXT) winsock2$(PPUEXT) : winsock2.pp windows$(PPUEXT) system$(PPUEXT)
@ -129,7 +131,8 @@ dynlibs$(PPUEXT) : $(INC)/dynlibs.pp windows$(PPUEXT)
# TP7 Compatible RTL Units # TP7 Compatible RTL Units
# #
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) system$(PPUEXT) dos$(PPUEXT) : $(WINDIR)/dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(WINDIR)/dos.pp
crt$(PPUEXT) : crt.pp $(INC)/textrec.inc system$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) crt$(PPUEXT) : crt.pp $(INC)/textrec.inc system$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT)
@ -140,9 +143,9 @@ objects$(PPUEXT) : $(INC)/objects.pp system$(PPUEXT)
# Delphi Compatible Units # Delphi Compatible Units
# #
sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \ sysutils$(PPUEXT) : $(WINDIR)/sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \
objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) sysconst$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) sysconst$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/sysutils sysutils.pp $(COMPILER) -Fi$(OBJPASDIR)/sysutils $(WINDIR)/sysutils.pp
classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \ classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \
sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) sysconst$(PPUEXT) sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) sysconst$(PPUEXT)
@ -158,8 +161,8 @@ math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/math.pp $(COMPILER) $(OBJPASDIR)/math.pp
varutils$(PPUEXT) : $(OBJPASDIR)/cvarutil.inc $(OBJPASDIR)/varutils.inc \ varutils$(PPUEXT) : $(OBJPASDIR)/cvarutil.inc $(OBJPASDIR)/varutils.inc \
$(OBJPASDIR)/varutilh.inc varutils.pp sysutils$(PPUEXT) $(OBJPASDIR)/varutilh.inc $(WINDIR)/varutils.pp sysutils$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR) varutils.pp $(COMPILER) -Fi$(OBJPASDIR) $(WINDIR)/varutils.pp
variants$(PPUEXT) : $(INC)/variants.pp varutils$(PPUEXT) sysutils$(PPUEXT) sysconst$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) variants$(PPUEXT) : $(INC)/variants.pp varutils$(PPUEXT) sysutils$(PPUEXT) sysconst$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT)
$(COMPILER) -Fi$(INC) $(INC)/variants.pp $(COMPILER) -Fi$(INC) $(INC)/variants.pp

100
rtl/win64/Makefile
View File

@ -1,5 +1,5 @@
# #
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2006/03/19] # Don't edit, this file is generated by FPCMake Version 2.0.0 [2006/04/02]
# #
default: all default: all
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-palmos arm-wince powerpc64-linux MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-palmos arm-wince powerpc64-linux
@ -237,7 +237,8 @@ RTL=..
INC=$(RTL)/inc INC=$(RTL)/inc
COMMON=$(RTL)/common COMMON=$(RTL)/common
PROCINC=$(RTL)/$(CPU_TARGET) PROCINC=$(RTL)/$(CPU_TARGET)
WININC=wininc WININC=../win/wininc
WINDIR=../win
UNITPREFIX=rtl UNITPREFIX=rtl
ifneq ($(findstring 2.0.,$(FPC_VERSION)),) ifneq ($(findstring 2.0.,$(FPC_VERSION)),)
LOADERS=wprt0 wdllprt0 gprt0 wcygprt0 LOADERS=wprt0 wdllprt0 gprt0 wcygprt0
@ -245,121 +246,121 @@ endif
OBJPASDIR=$(RTL)/objpas OBJPASDIR=$(RTL)/objpas
WINDOWS_SOURCE_FILES=$(addprefix $(WININC)/,$(addsuffix .inc,$(WINDOWS_FILES))) WINDOWS_SOURCE_FILES=$(addprefix $(WININC)/,$(addsuffix .inc,$(WINDOWS_FILES)))
ifeq ($(FULL_TARGET),i386-linux) ifeq ($(FULL_TARGET),i386-linux)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-go32v2) ifeq ($(FULL_TARGET),i386-go32v2)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-win32) ifeq ($(FULL_TARGET),i386-win32)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-os2) ifeq ($(FULL_TARGET),i386-os2)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-freebsd) ifeq ($(FULL_TARGET),i386-freebsd)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-beos) ifeq ($(FULL_TARGET),i386-beos)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-netbsd) ifeq ($(FULL_TARGET),i386-netbsd)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-solaris) ifeq ($(FULL_TARGET),i386-solaris)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-qnx) ifeq ($(FULL_TARGET),i386-qnx)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-netware) ifeq ($(FULL_TARGET),i386-netware)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-openbsd) ifeq ($(FULL_TARGET),i386-openbsd)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-wdosx) ifeq ($(FULL_TARGET),i386-wdosx)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-darwin) ifeq ($(FULL_TARGET),i386-darwin)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-emx) ifeq ($(FULL_TARGET),i386-emx)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-watcom) ifeq ($(FULL_TARGET),i386-watcom)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-netwlibc) ifeq ($(FULL_TARGET),i386-netwlibc)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-wince) ifeq ($(FULL_TARGET),i386-wince)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),m68k-linux) ifeq ($(FULL_TARGET),m68k-linux)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),m68k-freebsd) ifeq ($(FULL_TARGET),m68k-freebsd)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),m68k-netbsd) ifeq ($(FULL_TARGET),m68k-netbsd)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),m68k-amiga) ifeq ($(FULL_TARGET),m68k-amiga)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),m68k-atari) ifeq ($(FULL_TARGET),m68k-atari)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),m68k-openbsd) ifeq ($(FULL_TARGET),m68k-openbsd)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),m68k-palmos) ifeq ($(FULL_TARGET),m68k-palmos)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),powerpc-linux) ifeq ($(FULL_TARGET),powerpc-linux)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),powerpc-netbsd) ifeq ($(FULL_TARGET),powerpc-netbsd)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),powerpc-macos) ifeq ($(FULL_TARGET),powerpc-macos)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),powerpc-darwin) ifeq ($(FULL_TARGET),powerpc-darwin)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),powerpc-morphos) ifeq ($(FULL_TARGET),powerpc-morphos)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),sparc-linux) ifeq ($(FULL_TARGET),sparc-linux)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),sparc-netbsd) ifeq ($(FULL_TARGET),sparc-netbsd)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),sparc-solaris) ifeq ($(FULL_TARGET),sparc-solaris)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),x86_64-linux) ifeq ($(FULL_TARGET),x86_64-linux)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),x86_64-freebsd) ifeq ($(FULL_TARGET),x86_64-freebsd)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),x86_64-win64) ifeq ($(FULL_TARGET),x86_64-win64)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),arm-linux) ifeq ($(FULL_TARGET),arm-linux)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),arm-palmos) ifeq ($(FULL_TARGET),arm-palmos)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),arm-wince) ifeq ($(FULL_TARGET),arm-wince)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),powerpc64-linux) ifeq ($(FULL_TARGET),powerpc64-linux)
override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock initc cmem dynlibs signals dos crt objects messages rtlconsts sysconst sysutils math types strutils convutils dateutils varutils variants typinfo classes cpu mmx charset ucomplex getopts winevent sockets printer video mouse keyboard winsysut fpmkunit override TARGET_UNITS+=system ctypes objpas macpas strings lineinfo heaptrc matrix windows winsock cmem dos objects rtlconsts sysconst sysutils math types strutils convutils dateutils
endif endif
ifeq ($(FULL_TARGET),i386-linux) ifeq ($(FULL_TARGET),i386-linux)
override TARGET_LOADERS+=$(LOADERS) override TARGET_LOADERS+=$(LOADERS)
@ -2108,17 +2109,18 @@ windows$(PPUEXT) : windows.pp $(WINDOWS_SOURCE_FILES) system$(PPUEXT)
messages$(PPUEXT): messages.pp $(WININC)/messages.inc system$(PPUEXT) messages$(PPUEXT): messages.pp $(WININC)/messages.inc system$(PPUEXT)
$(COMPILER) -I$(WININC) messages.pp $(COMPILER) -I$(WININC) messages.pp
opengl32$(PPUEXT) : opengl32.pp windows$(PPUEXT) system$(PPUEXT) opengl32$(PPUEXT) : opengl32.pp windows$(PPUEXT) system$(PPUEXT)
winsock$(PPUEXT) : winsock.pp windows$(PPUEXT) system$(PPUEXT) winsock$(PPUEXT) : $(WINDIR)/winsock.pp windows$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(WINDIR)/winsock.pp
sockets$(PPUEXT) : sockets.pp windows$(PPUEXT) winsock$(PPUEXT) system$(PPUEXT) \ sockets$(PPUEXT) : sockets.pp windows$(PPUEXT) winsock$(PPUEXT) system$(PPUEXT) \
$(INC)/sockets.inc $(INC)/socketsh.inc $(INC)/sockets.inc $(INC)/socketsh.inc
initc$(PPUEXT) : initc.pp system$(PPUEXT)
dynlibs$(PPUEXT) : $(INC)/dynlibs.pp windows$(PPUEXT) dynlibs$(PPUEXT) : $(INC)/dynlibs.pp windows$(PPUEXT)
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) system$(PPUEXT) dos$(PPUEXT) : $(WINDIR)/dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(WINDIR)/dos.pp
crt$(PPUEXT) : crt.pp $(INC)/textrec.inc system$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) crt$(PPUEXT) : crt.pp $(INC)/textrec.inc system$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT)
objects$(PPUEXT) : $(INC)/objects.pp system$(PPUEXT) objects$(PPUEXT) : $(INC)/objects.pp system$(PPUEXT) dos$(PPUEXT)
sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \ sysutils$(PPUEXT) : $(WINDIR)/sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \
objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) sysconst$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) sysconst$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/sysutils sysutils.pp $(COMPILER) -Fi$(OBJPASDIR)/sysutils $(WINDIR)/sysutils.pp
classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \ classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \
sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) sysconst$(PPUEXT) sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) sysconst$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/classes classes.pp $(COMPILER) -Fi$(OBJPASDIR)/classes classes.pp
@ -2129,8 +2131,8 @@ typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT)
math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT) math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/math.pp $(COMPILER) $(OBJPASDIR)/math.pp
varutils$(PPUEXT) : $(OBJPASDIR)/cvarutil.inc $(OBJPASDIR)/varutils.inc \ varutils$(PPUEXT) : $(OBJPASDIR)/cvarutil.inc $(OBJPASDIR)/varutils.inc \
$(OBJPASDIR)/varutilh.inc varutils.pp sysutils$(PPUEXT) $(OBJPASDIR)/varutilh.inc $(WINDIR)/varutils.pp sysutils$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR) varutils.pp $(COMPILER) -Fi$(OBJPASDIR) $(WINDIR)/varutils.pp
variants$(PPUEXT) : $(INC)/variants.pp varutils$(PPUEXT) sysutils$(PPUEXT) sysconst$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) variants$(PPUEXT) : $(INC)/variants.pp varutils$(PPUEXT) sysutils$(PPUEXT) sysconst$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT)
$(COMPILER) -Fi$(INC) $(INC)/variants.pp $(COMPILER) -Fi$(INC) $(INC)/variants.pp
types$(PPUEXT) : $(OBJPASDIR)/types.pp objpas$(PPUEXT) system$(PPUEXT) types$(PPUEXT) : $(OBJPASDIR)/types.pp objpas$(PPUEXT) system$(PPUEXT)

39
rtl/win64/Makefile.fpc
View File

@ -9,14 +9,18 @@ main=rtl
loaders=$(LOADERS) loaders=$(LOADERS)
units=system ctypes objpas macpas strings \ units=system ctypes objpas macpas strings \
lineinfo heaptrc matrix \ lineinfo heaptrc matrix \
windows winsock initc cmem dynlibs signals \ windows winsock cmem \
dos crt objects messages \ dos objects \
rtlconsts sysconst sysutils math types \ rtlconsts sysconst sysutils math types \
strutils convutils dateutils varutils variants typinfo classes \ strutils convutils dateutils
cpu mmx charset ucomplex getopts \ # varutils variants typinfo classes \
winevent sockets printer \ # cpu mmx charset ucomplex getopts \
video mouse keyboard \ # winevent sockets printer \
winsysut fpmkunit # video mouse keyboard \
# winsysut fpmkunit
# dynlibs signals crt messages \
# no cygwin so far
# initc
rsts=math varutils typinfo variants classes dateutils sysconst fpmkunit rsts=math varutils typinfo variants classes dateutils sysconst fpmkunit
@ -40,7 +44,8 @@ RTL=..
INC=$(RTL)/inc INC=$(RTL)/inc
COMMON=$(RTL)/common COMMON=$(RTL)/common
PROCINC=$(RTL)/$(CPU_TARGET) PROCINC=$(RTL)/$(CPU_TARGET)
WININC=wininc WININC=../win/wininc
WINDIR=../win
UNITPREFIX=rtl UNITPREFIX=rtl
@ -114,12 +119,13 @@ messages$(PPUEXT): messages.pp $(WININC)/messages.inc system$(PPUEXT)
opengl32$(PPUEXT) : opengl32.pp windows$(PPUEXT) system$(PPUEXT) opengl32$(PPUEXT) : opengl32.pp windows$(PPUEXT) system$(PPUEXT)
winsock$(PPUEXT) : winsock.pp windows$(PPUEXT) system$(PPUEXT) winsock$(PPUEXT) : $(WINDIR)/winsock.pp windows$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(WINDIR)/winsock.pp
sockets$(PPUEXT) : sockets.pp windows$(PPUEXT) winsock$(PPUEXT) system$(PPUEXT) \ sockets$(PPUEXT) : sockets.pp windows$(PPUEXT) winsock$(PPUEXT) system$(PPUEXT) \
$(INC)/sockets.inc $(INC)/socketsh.inc $(INC)/sockets.inc $(INC)/socketsh.inc
initc$(PPUEXT) : initc.pp system$(PPUEXT) # initc$(PPUEXT) : initc.pp system$(PPUEXT)
dynlibs$(PPUEXT) : $(INC)/dynlibs.pp windows$(PPUEXT) dynlibs$(PPUEXT) : $(INC)/dynlibs.pp windows$(PPUEXT)
@ -127,20 +133,21 @@ dynlibs$(PPUEXT) : $(INC)/dynlibs.pp windows$(PPUEXT)
# TP7 Compatible RTL Units # TP7 Compatible RTL Units
# #
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) system$(PPUEXT) dos$(PPUEXT) : $(WINDIR)/dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) system$(PPUEXT)
$(COMPILER) $(WINDIR)/dos.pp
crt$(PPUEXT) : crt.pp $(INC)/textrec.inc system$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) crt$(PPUEXT) : crt.pp $(INC)/textrec.inc system$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT)
objects$(PPUEXT) : $(INC)/objects.pp system$(PPUEXT) objects$(PPUEXT) : $(INC)/objects.pp system$(PPUEXT) dos$(PPUEXT)
# #
# Delphi Compatible Units # Delphi Compatible Units
# #
sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \ sysutils$(PPUEXT) : $(WINDIR)/sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \
objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) sysconst$(PPUEXT) objpas$(PPUEXT) dos$(PPUEXT) windows$(PPUEXT) sysconst$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR)/sysutils sysutils.pp $(COMPILER) -Fi$(OBJPASDIR)/sysutils $(WINDIR)/sysutils.pp
classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \ classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \
sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) sysconst$(PPUEXT) sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) sysconst$(PPUEXT)
@ -156,8 +163,8 @@ math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT)
$(COMPILER) $(OBJPASDIR)/math.pp $(COMPILER) $(OBJPASDIR)/math.pp
varutils$(PPUEXT) : $(OBJPASDIR)/cvarutil.inc $(OBJPASDIR)/varutils.inc \ varutils$(PPUEXT) : $(OBJPASDIR)/cvarutil.inc $(OBJPASDIR)/varutils.inc \
$(OBJPASDIR)/varutilh.inc varutils.pp sysutils$(PPUEXT) $(OBJPASDIR)/varutilh.inc $(WINDIR)/varutils.pp sysutils$(PPUEXT)
$(COMPILER) -Fi$(OBJPASDIR) varutils.pp $(COMPILER) -Fi$(OBJPASDIR) $(WINDIR)/varutils.pp
variants$(PPUEXT) : $(INC)/variants.pp varutils$(PPUEXT) sysutils$(PPUEXT) sysconst$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) variants$(PPUEXT) : $(INC)/variants.pp varutils$(PPUEXT) sysutils$(PPUEXT) sysconst$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT)
$(COMPILER) -Fi$(INC) $(INC)/variants.pp $(COMPILER) -Fi$(INC) $(INC)/variants.pp

65
rtl/win64/windows.pp Normal file
View File

@ -0,0 +1,65 @@
{
This file is part of the Free Pascal run time library.
This unit contains the record definition for the Win64 API
Copyright (c) 1999-2006 by Florian KLaempfl,
member of the Free Pascal development team.
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.
**********************************************************************}
unit windows;
{$ifndef NO_SMART_LINK}
{$smartlink on}
{$endif}
{ stuff like array of const is used }
{$mode objfpc}
{$calling stdcall}
interface
{$define read_interface}
{$undef read_implementation}
{$i base.inc}
{$i errors.inc}
{$i defines.inc}
{$i struct.inc}
{$i messages.inc}
{$i ascfun.inc}
{$i unifun.inc}
{$ifdef UNICODE}
{$i unidef.inc}
{$else not UNICODE}
{$i ascdef.inc}
{$endif UNICODE}
{$i func.inc}
{$i redef.inc}
implementation
{$undef read_interface}
{$define read_implementation}
{$i base.inc}
{$i errors.inc}
{$i defines.inc}
{$i struct.inc}
{$i messages.inc}
{$i ascfun.inc}
{$i unifun.inc}
{$ifdef UNICODE}
{$i unidef.inc}
{$else not UNICODE}
{$i ascdef.inc}
{$endif UNICODE}
{$i func.inc}
{$i redef.inc}
end.

2
rtl/x86_64/math.inc
View File

@ -36,7 +36,6 @@ FPC_ABSMASK_DOUBLE:
FPU Control word FPU Control word
****************************************************************************} ****************************************************************************}
{$ifndef WIN64}
procedure Set8087CW(cw:word);assembler; procedure Set8087CW(cw:word);assembler;
asm asm
movw cw,%ax movw cw,%ax
@ -58,7 +57,6 @@ FPC_ABSMASK_DOUBLE:
fnstcw (%rsp) fnstcw (%rsp)
popq %rax popq %rax
end; end;
{$endif WIN64}
{**************************************************************************** {****************************************************************************
EXTENDED data type routines EXTENDED data type routines

3
rtl/x86_64/mathu.inc
View File

@ -12,6 +12,7 @@
**********************************************************************} **********************************************************************}
{$ifndef WIN64}
{$define FPC_MATH_HAS_ARCTAN2} {$define FPC_MATH_HAS_ARCTAN2}
function arctan2(y,x : float) : float;assembler; function arctan2(y,x : float) : float;assembler;
asm asm
@ -20,7 +21,7 @@ function arctan2(y,x : float) : float;assembler;
fpatan fpatan
fwait fwait
end; end;
{$endif WIN64}
procedure SetSSECSR(w : dword); procedure SetSSECSR(w : dword);
var var