mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-11 20:29:14 +02:00
* renamefest
This commit is contained in:
marco
parent
aaea02b70f
commit
15ba7e9918
@ -55,6 +55,7 @@
|
||||
{ 1.31 03 Nov 99 LdB FPC windows defines WIN32 }
|
||||
{ 1.32 04 Nov 99 LdB Delphi 5 definitions added }
|
||||
{ 1.33 16 Oct 00 LdB WIN32/WIN16 defines added }
|
||||
{ 1.34 02 May 02 MvdV FreeBSD, NetBSD, OS_UNIX }
|
||||
{**********************************************************}
|
||||
|
||||
{ ****************************************************************************
|
||||
@ -84,6 +85,13 @@
|
||||
FPC PPC_FPC PROC_Protected BIT_32 ASM_FPC
|
||||
|
||||
LINUX OS_LINUX FPC PPC_FPC PROC_Protected BIT_32 ASM_FPC
|
||||
OS_UNIX
|
||||
|
||||
FREEBSD OS_FREEBSD FPC PPC_FPC PROC_Protected BIT_32 ASM_FPC
|
||||
OS_UNIX
|
||||
|
||||
NETBSD OS_NETBSD FPC PPC_FPC PROC_Protected BIT_32 ASM_FPC
|
||||
OS_UNIX
|
||||
|
||||
WINDOWS OS_WINDOWS BP/TP7 PPC_BP PROC_Protected BIT_16 ASM_BP
|
||||
DELPHI PPC_DELPHI PROC_Protected BIT_16 ASM_BP
|
||||
@ -112,22 +120,24 @@ FOR ALL COMPILERS BP_VMTLink defined but FPC and Delphi3/Delphi4 undefine it
|
||||
|
||||
FOR FPC THESE ARE THE TRANSLATIONS
|
||||
|
||||
PLATFORM SYSTEM COMPILER HANDLE SIZE ASM CPU
|
||||
-------- ------ -------- ----------- ---- ---
|
||||
PLATFORM SYSTEM COMPILER HANDLE SIZE ASM CPU
|
||||
-------- ------ -------- ----------- ---- ---
|
||||
|
||||
DOS OS_DOS,OS_GO32 FPC 32-bit AT&T CPU86
|
||||
DOS OS_DOS,OS_GO32 FPC 32-bit AT&T CPU86
|
||||
|
||||
WIN32 OS_WINDOWS FPC 32-bit AT&T ----
|
||||
WIN32 OS_WINDOWS FPC 32-bit AT&T ----
|
||||
|
||||
LINUX OS_LINUX FPC 32-bit AT&T ----
|
||||
LINUX OS_LINUX,OS_UNIX FPC 32-bit AT&T ----
|
||||
FREEBSD OS_NETBSD,OS_UNIX FPC 32-bit AT&T ----
|
||||
NETBSD OS_FREEBSD,OS_UNIX FPC 32-bit AT&T ----
|
||||
|
||||
OS2 OS_OS2 FPC ????? AT&T CPU86
|
||||
OS2 OS_OS2 FPC ????? AT&T CPU86
|
||||
|
||||
ATARI OS_ATARI FPC 32-bit Internal CPU68
|
||||
ATARI OS_ATARI FPC 32-bit Internal CPU68
|
||||
|
||||
MACOS OS_MAC FPC ????? Internal CPU68
|
||||
MACOS OS_MAC FPC ????? Internal CPU68
|
||||
|
||||
AMIGA OS_AMIGA FPC 32-bit Internal CPU68
|
||||
AMIGA OS_AMIGA FPC 32-bit Internal CPU68
|
||||
|
||||
****************************************************************************}
|
||||
|
||||
@ -185,8 +195,22 @@ FOR FPC THESE ARE THE TRANSLATIONS
|
||||
{$IFDEF LINUX}
|
||||
{$UNDEF OS_DOS}
|
||||
{$DEFINE OS_LINUX}
|
||||
{$DEFINE OS_UNIX}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF FreeBSD}
|
||||
{$UNDEF OS_DOS}
|
||||
{$DEFINE OS_FREEBSD}
|
||||
{$DEFINE OS_UNIX}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF NETBSD}
|
||||
{$UNDEF OS_DOS}
|
||||
{$DEFINE OS_NETBSD}
|
||||
{$DEFINE OS_UNIX}
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
{---------------------------------------------------------------------------}
|
||||
{ FPC GO32V2 COMPILER changes operating system - Updated 27Aug98 LdB }
|
||||
{---------------------------------------------------------------------------}
|
||||
@ -376,7 +400,10 @@ FOR FPC THESE ARE THE TRANSLATIONS
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.7 2002-05-21 12:02:02 pierre
|
||||
Revision 1.8 2002-06-02 08:32:51 marco
|
||||
* renamefest
|
||||
|
||||
Revision 1.7 2002/05/21 12:02:02 pierre
|
||||
define HASSYSMSGUNIT for go32v2 and win32
|
||||
|
||||
Revision 1.6 2001/10/02 16:35:51 pierre
|
||||
|
||||
@ -676,9 +676,9 @@ begin
|
||||
(PSearchRec(Key2)^.Attr and Directory = 0) then Compare := 1
|
||||
else if (PSearchRec(Key2)^.Attr and Directory <> 0) and
|
||||
(PSearchRec(Key1)^.Attr and Directory = 0) then Compare := -1
|
||||
{$ifdef linux}
|
||||
{$ifdef Unix}
|
||||
else if PSearchRec(Key1)^.Name > PSearchRec(Key2)^.Name then
|
||||
{$else linux}
|
||||
{$else Unix}
|
||||
else if UpperName(PSearchRec(Key1)^.Name) > UpperName(PSearchRec(Key2)^.Name) then
|
||||
{$endif def linux}
|
||||
Compare := 1
|
||||
@ -784,7 +784,7 @@ var
|
||||
N1,N2 : NameStr;
|
||||
E1,E2 : Extstr;
|
||||
begin
|
||||
{$ifdef linux}
|
||||
{$ifdef Unix}
|
||||
FSplit(What,D1,N1,E1);
|
||||
FSplit(Mask,D2,N2,E2);
|
||||
{$else}
|
||||
@ -852,7 +852,7 @@ begin
|
||||
SR.Attr := Directory
|
||||
else SR.Attr := 0;
|
||||
SR.Name := S;
|
||||
{$ifndef linux}
|
||||
{$ifndef Unix}
|
||||
UpStr(SR.Name);
|
||||
{$endif linux}
|
||||
GetKey := @SR;
|
||||
@ -900,7 +900,7 @@ end;
|
||||
procedure TFileList.ReadDirectory(AWildCard: PathStr);
|
||||
const
|
||||
FindAttr = ReadOnly + Archive;
|
||||
{$ifdef linux}
|
||||
{$ifdef Unix}
|
||||
AllFiles = '*';
|
||||
{$else}
|
||||
AllFiles = '*.*';
|
||||
@ -977,7 +977,7 @@ begin
|
||||
{$ifdef fpc}
|
||||
FindClose(S);
|
||||
{$endif}
|
||||
{$ifndef linux}
|
||||
{$ifndef Unix}
|
||||
if Length(Dir) > 4 then
|
||||
{$endif not linux}
|
||||
begin
|
||||
|
||||
@ -55,6 +55,7 @@
|
||||
{ 1.31 03 Nov 99 LdB FPC windows defines WIN32 }
|
||||
{ 1.32 04 Nov 99 LdB Delphi 5 definitions added }
|
||||
{ 1.33 16 Oct 00 LdB WIN32/WIN16 defines added }
|
||||
{ 1.34 02 May 02 MvdV FreeBSD, NetBSD, OS_UNIX }
|
||||
{**********************************************************}
|
||||
|
||||
{ ****************************************************************************
|
||||
@ -84,6 +85,13 @@
|
||||
FPC PPC_FPC PROC_Protected BIT_32 ASM_FPC
|
||||
|
||||
LINUX OS_LINUX FPC PPC_FPC PROC_Protected BIT_32 ASM_FPC
|
||||
OS_UNIX
|
||||
|
||||
FREEBSD OS_FREEBSD FPC PPC_FPC PROC_Protected BIT_32 ASM_FPC
|
||||
OS_UNIX
|
||||
|
||||
NETBSD OS_NETBSD FPC PPC_FPC PROC_Protected BIT_32 ASM_FPC
|
||||
OS_UNIX
|
||||
|
||||
WINDOWS OS_WINDOWS BP/TP7 PPC_BP PROC_Protected BIT_16 ASM_BP
|
||||
DELPHI PPC_DELPHI PROC_Protected BIT_16 ASM_BP
|
||||
@ -112,22 +120,24 @@ FOR ALL COMPILERS BP_VMTLink defined but FPC and Delphi3/Delphi4 undefine it
|
||||
|
||||
FOR FPC THESE ARE THE TRANSLATIONS
|
||||
|
||||
PLATFORM SYSTEM COMPILER HANDLE SIZE ASM CPU
|
||||
-------- ------ -------- ----------- ---- ---
|
||||
PLATFORM SYSTEM COMPILER HANDLE SIZE ASM CPU
|
||||
-------- ------ -------- ----------- ---- ---
|
||||
|
||||
DOS OS_DOS,OS_GO32 FPC 32-bit AT&T CPU86
|
||||
DOS OS_DOS,OS_GO32 FPC 32-bit AT&T CPU86
|
||||
|
||||
WIN32 OS_WINDOWS FPC 32-bit AT&T ----
|
||||
WIN32 OS_WINDOWS FPC 32-bit AT&T ----
|
||||
|
||||
LINUX OS_LINUX FPC 32-bit AT&T ----
|
||||
LINUX OS_LINUX,OS_UNIX FPC 32-bit AT&T ----
|
||||
FREEBSD OS_NETBSD,OS_UNIX FPC 32-bit AT&T ----
|
||||
NETBSD OS_FREEBSD,OS_UNIX FPC 32-bit AT&T ----
|
||||
|
||||
OS2 OS_OS2 FPC ????? AT&T CPU86
|
||||
OS2 OS_OS2 FPC ????? AT&T CPU86
|
||||
|
||||
ATARI OS_ATARI FPC 32-bit Internal CPU68
|
||||
ATARI OS_ATARI FPC 32-bit Internal CPU68
|
||||
|
||||
MACOS OS_MAC FPC ????? Internal CPU68
|
||||
MACOS OS_MAC FPC ????? Internal CPU68
|
||||
|
||||
AMIGA OS_AMIGA FPC 32-bit Internal CPU68
|
||||
AMIGA OS_AMIGA FPC 32-bit Internal CPU68
|
||||
|
||||
****************************************************************************}
|
||||
|
||||
@ -185,8 +195,22 @@ FOR FPC THESE ARE THE TRANSLATIONS
|
||||
{$IFDEF LINUX}
|
||||
{$UNDEF OS_DOS}
|
||||
{$DEFINE OS_LINUX}
|
||||
{$DEFINE OS_UNIX}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF FreeBSD}
|
||||
{$UNDEF OS_DOS}
|
||||
{$DEFINE OS_FREEBSD}
|
||||
{$DEFINE OS_UNIX}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF NETBSD}
|
||||
{$UNDEF OS_DOS}
|
||||
{$DEFINE OS_NETBSD}
|
||||
{$DEFINE OS_UNIX}
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
{---------------------------------------------------------------------------}
|
||||
{ FPC GO32V2 COMPILER changes operating system - Updated 27Aug98 LdB }
|
||||
{---------------------------------------------------------------------------}
|
||||
@ -376,7 +400,10 @@ FOR FPC THESE ARE THE TRANSLATIONS
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.7 2002-05-21 12:02:02 pierre
|
||||
Revision 1.8 2002-06-02 08:32:51 marco
|
||||
* renamefest
|
||||
|
||||
Revision 1.7 2002/05/21 12:02:02 pierre
|
||||
define HASSYSMSGUNIT for go32v2 and win32
|
||||
|
||||
Revision 1.6 2001/10/02 16:35:51 pierre
|
||||
|
||||
@ -676,9 +676,9 @@ begin
|
||||
(PSearchRec(Key2)^.Attr and Directory = 0) then Compare := 1
|
||||
else if (PSearchRec(Key2)^.Attr and Directory <> 0) and
|
||||
(PSearchRec(Key1)^.Attr and Directory = 0) then Compare := -1
|
||||
{$ifdef linux}
|
||||
{$ifdef Unix}
|
||||
else if PSearchRec(Key1)^.Name > PSearchRec(Key2)^.Name then
|
||||
{$else linux}
|
||||
{$else Unix}
|
||||
else if UpperName(PSearchRec(Key1)^.Name) > UpperName(PSearchRec(Key2)^.Name) then
|
||||
{$endif def linux}
|
||||
Compare := 1
|
||||
@ -784,7 +784,7 @@ var
|
||||
N1,N2 : NameStr;
|
||||
E1,E2 : Extstr;
|
||||
begin
|
||||
{$ifdef linux}
|
||||
{$ifdef Unix}
|
||||
FSplit(What,D1,N1,E1);
|
||||
FSplit(Mask,D2,N2,E2);
|
||||
{$else}
|
||||
@ -852,7 +852,7 @@ begin
|
||||
SR.Attr := Directory
|
||||
else SR.Attr := 0;
|
||||
SR.Name := S;
|
||||
{$ifndef linux}
|
||||
{$ifndef Unix}
|
||||
UpStr(SR.Name);
|
||||
{$endif linux}
|
||||
GetKey := @SR;
|
||||
@ -900,7 +900,7 @@ end;
|
||||
procedure TFileList.ReadDirectory(AWildCard: PathStr);
|
||||
const
|
||||
FindAttr = ReadOnly + Archive;
|
||||
{$ifdef linux}
|
||||
{$ifdef Unix}
|
||||
AllFiles = '*';
|
||||
{$else}
|
||||
AllFiles = '*.*';
|
||||
@ -977,7 +977,7 @@ begin
|
||||
{$ifdef fpc}
|
||||
FindClose(S);
|
||||
{$endif}
|
||||
{$ifndef linux}
|
||||
{$ifndef Unix}
|
||||
if Length(Dir) > 4 then
|
||||
{$endif not linux}
|
||||
begin
|
||||
|
||||
Loading…
Reference in New Issue
Block a user