mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 14:09:17 +02:00
rtl-objpas: remove system-specific varutils for Amiga-like systems which were in fact identical, added a common implementation and enable the package for atari as well
git-svn-id: trunk@34673 -
This commit is contained in:
parent
a725887d0e
commit
f6222e44ef
4
.gitattributes
vendored
4
.gitattributes
vendored
@ -7141,8 +7141,7 @@ packages/rtl-objpas/Makefile svneol=native#text/plain
|
|||||||
packages/rtl-objpas/Makefile.fpc svneol=native#text/plain
|
packages/rtl-objpas/Makefile.fpc svneol=native#text/plain
|
||||||
packages/rtl-objpas/Makefile.fpc.fpcmake svneol=native#text/plain
|
packages/rtl-objpas/Makefile.fpc.fpcmake svneol=native#text/plain
|
||||||
packages/rtl-objpas/fpmake.pp svneol=native#text/plain
|
packages/rtl-objpas/fpmake.pp svneol=native#text/plain
|
||||||
packages/rtl-objpas/src/amiga/varutils.pp svneol=native#text/plain
|
packages/rtl-objpas/src/common/varutils.pp svneol=native#text/plain
|
||||||
packages/rtl-objpas/src/aros/varutils.pp svneol=native#text/plain
|
|
||||||
packages/rtl-objpas/src/gba/varutils.pp svneol=native#text/plain
|
packages/rtl-objpas/src/gba/varutils.pp svneol=native#text/plain
|
||||||
packages/rtl-objpas/src/go32v2/varutils.pp svneol=native#text/plain
|
packages/rtl-objpas/src/go32v2/varutils.pp svneol=native#text/plain
|
||||||
packages/rtl-objpas/src/inc/convutil.inc svneol=native#text/plain
|
packages/rtl-objpas/src/inc/convutil.inc svneol=native#text/plain
|
||||||
@ -7160,7 +7159,6 @@ packages/rtl-objpas/src/inc/variants.pp svneol=native#text/plain
|
|||||||
packages/rtl-objpas/src/inc/varutilh.inc svneol=native#text/plain
|
packages/rtl-objpas/src/inc/varutilh.inc svneol=native#text/plain
|
||||||
packages/rtl-objpas/src/inc/varutils.inc svneol=native#text/plain
|
packages/rtl-objpas/src/inc/varutils.inc svneol=native#text/plain
|
||||||
packages/rtl-objpas/src/inc/widestrutils.pp svneol=native#text/plain
|
packages/rtl-objpas/src/inc/widestrutils.pp svneol=native#text/plain
|
||||||
packages/rtl-objpas/src/morphos/varutils.pp svneol=native#text/plain
|
|
||||||
packages/rtl-objpas/src/msdos/varutils.pp svneol=native#text/plain
|
packages/rtl-objpas/src/msdos/varutils.pp svneol=native#text/plain
|
||||||
packages/rtl-objpas/src/nativent/varutils.pp svneol=native#text/pascal
|
packages/rtl-objpas/src/nativent/varutils.pp svneol=native#text/pascal
|
||||||
packages/rtl-objpas/src/nds/varutils.pp svneol=native#text/plain
|
packages/rtl-objpas/src/nds/varutils.pp svneol=native#text/plain
|
||||||
|
@ -15,18 +15,18 @@ Const
|
|||||||
// AllUnixOSes = [Linux,FreeBSD,NetBSD,OpenBSD,Darwin,QNX,BeOS,Solaris,Haiku,iphonesim,aix,Android];
|
// AllUnixOSes = [Linux,FreeBSD,NetBSD,OpenBSD,Darwin,QNX,BeOS,Solaris,Haiku,iphonesim,aix,Android];
|
||||||
// unixlikes-[beos];
|
// unixlikes-[beos];
|
||||||
//
|
//
|
||||||
StrUtilsOSes = [amiga,aros,emx,gba,go32v2,msdos,nds,netware,wince,morphos,nativent,os2,netwlibc,win32,win64]+UnixLikes;
|
StrUtilsOSes = [atari,emx,gba,go32v2,msdos,nds,netware,wince,nativent,os2,netwlibc,win32,win64]+UnixLikes+AllAmigaLikeOSes;
|
||||||
VarUtilsOSes = [amiga,aros,emx,gba,go32v2,msdos,nds,netware,wince,morphos,nativent,os2,netwlibc,watcom,wii,win32,win64]+UnixLikes;
|
VarUtilsOSes = [atari,emx,gba,go32v2,msdos,nds,netware,wince,nativent,os2,netwlibc,watcom,wii,win32,win64]+UnixLikes+AllAmigaLikeOSes;
|
||||||
ConvUtilsOSes = [nativent,netware,netwlibc,win32,win64,wince]+UnixLikes-[BeOS];
|
ConvUtilsOSes = [nativent,netware,netwlibc,win32,win64,wince]+AllAmigaLikeOSes+UnixLikes-[BeOS];
|
||||||
ConvUtilOSes = [Go32v2,msdos,os2,emx];
|
ConvUtilOSes = [atari,Go32v2,msdos,os2,emx];
|
||||||
DateUtilsOSes = [Amiga,aros,gba,morphos,nativent,nds,netware,netwlibc,wii,win32,win64,wince]+UnixLikes;
|
DateUtilsOSes = [gba,nativent,nds,netware,netwlibc,wii,win32,win64,wince]+UnixLikes+AllAmigaLikeOSes;
|
||||||
DateUtilOSes = [Go32v2,msdos,os2,emx];
|
DateUtilOSes = [atari,Go32v2,msdos,os2,emx];
|
||||||
StdConvsOSes = [NativeNT,Win32,win64,os2,msdos,go32v2]+UnixLikes-[BeOS];
|
StdConvsOSes = [NativeNT,Win32,win64,os2,msdos,go32v2]+UnixLikes-[BeOS];
|
||||||
FmtBCDOSes = [amiga,aros,emx,gba,go32v2,morphos,msdos,nativent,nds,netware,netwlibc,os2,win32,win64,wince]+UnixLikes;
|
FmtBCDOSes = [atari,emx,gba,go32v2,msdos,nativent,nds,netware,netwlibc,os2,win32,win64,wince]+UnixLikes+AllAmigaLikeOSes;
|
||||||
VariantsOSes = [amiga,aros,emx,gba,go32v2,morphos,msdos,nativent,nds,netware,netwlibc,os2,watcom,wii,win32,win64,wince]+UnixLikes;
|
VariantsOSes = [atari,emx,gba,go32v2,msdos,nativent,nds,netware,netwlibc,os2,watcom,wii,win32,win64,wince]+UnixLikes+AllAmigaLikeOSes;
|
||||||
AllTargetsObjPas = DateUtilsOses +DateUtilOSes+
|
AllTargetsObjPas = DateUtilsOses +DateUtilOSes+
|
||||||
VarutilsOses + ConvutilsOSes + ConvutilOSes + StdConvsOSes+
|
VarutilsOses + ConvutilsOSes + ConvutilOSes + StdConvsOSes+
|
||||||
FmtBCDOSes + StrUtilsOSes;
|
FmtBCDOSes + StrUtilsOSes;
|
||||||
|
|
||||||
Var
|
Var
|
||||||
P : TPackage;
|
P : TPackage;
|
||||||
@ -53,12 +53,13 @@ begin
|
|||||||
P.SourcePath.Add('src/unix',AllUnixOSes);
|
P.SourcePath.Add('src/unix',AllUnixOSes);
|
||||||
P.SourcePath.Add('src/os2commn',[os2,emx]);
|
P.SourcePath.Add('src/os2commn',[os2,emx]);
|
||||||
P.SourcePath.Add('src/win',[win32,win64]);
|
P.SourcePath.Add('src/win',[win32,win64]);
|
||||||
|
P.SourcePath.Add('src/common',AllAmigaLikeOSes+[atari]);
|
||||||
|
|
||||||
P.IncludePath.Add('src/inc');
|
P.IncludePath.Add('src/inc');
|
||||||
P.IncludePath.Add('src/unix',AllUnixOSes);
|
P.IncludePath.Add('src/unix',AllUnixOSes);
|
||||||
P.IncludePath.Add('src/$(OS)');
|
P.IncludePath.Add('src/$(OS)');
|
||||||
P.IncludePath.Add('src/darwin',[iphonesim]);
|
P.IncludePath.Add('src/darwin',[iphonesim]);
|
||||||
|
P.IncludePath.Add('src/common',AllAmigaLikeOSes+[atari]);
|
||||||
|
|
||||||
T:=P.Targets.AddUnit('strutils.pp',StrUtilsOses);
|
T:=P.Targets.AddUnit('strutils.pp',StrUtilsOses);
|
||||||
T:=P.Targets.AddUnit('widestrutils.pp',StrUtilsOses-ConvUtilOSes);
|
T:=P.Targets.AddUnit('widestrutils.pp',StrUtilsOses-ConvUtilOSes);
|
||||||
|
@ -1,38 +0,0 @@
|
|||||||
{
|
|
||||||
This file is part of the Free Pascal run time library.
|
|
||||||
Copyright (c) 1999-2000 by the Free Pascal development team
|
|
||||||
|
|
||||||
Interface and OS-dependent part of variant support
|
|
||||||
|
|
||||||
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.
|
|
||||||
|
|
||||||
**********************************************************************}
|
|
||||||
|
|
||||||
{$MODE ObjFPC}
|
|
||||||
|
|
||||||
Unit varutils;
|
|
||||||
|
|
||||||
Interface
|
|
||||||
|
|
||||||
Uses sysutils;
|
|
||||||
|
|
||||||
// Read definitions.
|
|
||||||
|
|
||||||
{$i varutilh.inc}
|
|
||||||
|
|
||||||
Implementation
|
|
||||||
|
|
||||||
// Code common to all platforms.
|
|
||||||
|
|
||||||
{$i cvarutil.inc}
|
|
||||||
|
|
||||||
// Code common to non-win32 platforms.
|
|
||||||
|
|
||||||
{$i varutils.inc}
|
|
||||||
|
|
||||||
end.
|
|
@ -1,38 +0,0 @@
|
|||||||
{
|
|
||||||
This file is part of the Free Pascal run time library.
|
|
||||||
Copyright (c) 1999-2000 by the Free Pascal development team
|
|
||||||
|
|
||||||
Interface and OS-dependent part of variant support
|
|
||||||
|
|
||||||
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.
|
|
||||||
|
|
||||||
**********************************************************************}
|
|
||||||
|
|
||||||
{$MODE ObjFPC}
|
|
||||||
|
|
||||||
Unit varutils;
|
|
||||||
|
|
||||||
Interface
|
|
||||||
|
|
||||||
Uses sysutils;
|
|
||||||
|
|
||||||
// Read definitions.
|
|
||||||
|
|
||||||
{$i varutilh.inc}
|
|
||||||
|
|
||||||
Implementation
|
|
||||||
|
|
||||||
// Code common to all platforms.
|
|
||||||
|
|
||||||
{$i cvarutil.inc}
|
|
||||||
|
|
||||||
// Code common to non-win32 platforms.
|
|
||||||
|
|
||||||
{$i varutils.inc}
|
|
||||||
|
|
||||||
end.
|
|
Loading…
Reference in New Issue
Block a user