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

* Rename fest II FCL version.

Browse Source
This commit is contained in:
marco 2001-01-21 20:45:09 +00:00
parent ad6ba5dd70
commit 9669c1cad3
11 changed files with 116 additions and 25 deletions

65
fcl/Makefile
View File

@ -1,5 +1,5 @@
#
# Makefile generated by fpcmake v1.00 [2000/12/19]
# Makefile generated by fpcmake v1.00 [2000/12/23]
#
defaultrule: all
@ -153,7 +153,7 @@ endif
# Targets
override DIROBJECTS+=$(wildcard go32v2 linux win32 os2)
override DIROBJECTS+=$(wildcard go32v2 linux win32 os2 freebsd)
override EXAMPLEDIROBJECTS+=tests shedit/gtk
# Clean
@ -623,6 +623,7 @@ OBJECTDIRGO32V2=1
OBJECTDIRLINUX=1
OBJECTDIRWIN32=1
OBJECTDIROS2=1
OBJECTDIRFREEBSD=1
# Dir go32v2
@ -863,6 +864,66 @@ os2_require:
os2_info:
$(MAKE) -C os2 info
endif
# Dir freebsd
ifdef OBJECTDIRFREEBSD
.PHONY: freebsd_all freebsd_debug freebsd_examples freebsd_test freebsd_smart freebsd_shared freebsd_showinstall freebsd_install freebsd_sourceinstall freebsd_exampleinstall freebsd_zipinstall freebsd_zipsourceinstall freebsd_zipexampleinstall freebsd_clean freebsd_distclean freebsd_cleanall freebsd_require freebsd_info
freebsd_all:
$(MAKE) -C freebsd all
freebsd_debug:
$(MAKE) -C freebsd debug
freebsd_examples:
$(MAKE) -C freebsd examples
freebsd_test:
$(MAKE) -C freebsd test
freebsd_smart:
$(MAKE) -C freebsd smart
freebsd_shared:
$(MAKE) -C freebsd shared
freebsd_showinstall:
$(MAKE) -C freebsd showinstall
freebsd_install:
$(MAKE) -C freebsd install
freebsd_sourceinstall:
$(MAKE) -C freebsd sourceinstall
freebsd_exampleinstall:
$(MAKE) -C freebsd exampleinstall
freebsd_zipinstall:
$(MAKE) -C freebsd zipinstall
freebsd_zipsourceinstall:
$(MAKE) -C freebsd zipsourceinstall
freebsd_zipexampleinstall:
$(MAKE) -C freebsd zipexampleinstall
freebsd_clean:
$(MAKE) -C freebsd clean
freebsd_distclean:
$(MAKE) -C freebsd distclean
freebsd_cleanall:
$(MAKE) -C freebsd cleanall
freebsd_require:
$(MAKE) -C freebsd require
freebsd_info:
$(MAKE) -C freebsd info
endif
EXAMPLEDIRTESTS=1
EXAMPLEDIRSHEDIT/GTK=1

7
fcl/freebsd/classes.pp
View File

@ -32,7 +32,7 @@ uses
implementation
uses
linux;
Unix;
{ OS - independent class implementations are in /inc directory. }
{$i classes.inc}
@ -50,7 +50,10 @@ finalization
end.
{
$Log$
Revision 1.2 2000-10-26 22:30:21 peter
Revision 1.3 2001-01-21 20:45:09 marco
* Rename fest II FCL version.
Revision 1.2 2000/10/26 22:30:21 peter
* freebsd update
* classes.rst

7
fcl/freebsd/process.inc
View File

@ -14,7 +14,7 @@
**********************************************************************}
uses linux;
uses Unix;
Function TProcess.GetRunning : Boolean;
@ -106,7 +106,10 @@ end;
{
$Log$
Revision 1.2 2000-10-26 22:30:21 peter
Revision 1.3 2001-01-21 20:45:09 marco
* Rename fest II FCL version.
Revision 1.2 2000/10/26 22:30:21 peter
* freebsd update
* classes.rst

9
fcl/freebsd/thread.inc
View File

@ -217,7 +217,7 @@ var
P: Integer;
I: TThreadPriority;
begin
P := Linux.GetPriority(Prio_Process,FHandle);
P := Unix.GetPriority(Prio_Process,FHandle);
Result := tpNormal;
for I := Low(TThreadPriority) to High(TThreadPriority) do
if Priorities[I] = P then
@ -227,7 +227,7 @@ end;
procedure TThread.SetPriority(Value: TThreadPriority);
begin
Linux.SetPriority(Prio_Process,FHandle, Priorities[Value]);
Unix.SetPriority(Prio_Process,FHandle, Priorities[Value]);
end;
@ -283,7 +283,10 @@ end;
{
$Log$
Revision 1.2 2000-10-26 22:30:21 peter
Revision 1.3 2001-01-21 20:45:09 marco
* Rename fest II FCL version.
Revision 1.2 2000/10/26 22:30:21 peter
* freebsd update
* classes.rst

7
fcl/inc/ssockets.pp
View File

@ -144,7 +144,7 @@ type
Implementation
uses inet,linux;
uses inet,Unix;
Const
SocketWouldBlock = -2;
@ -497,7 +497,10 @@ end.
{
$Log$
Revision 1.3 2000-11-17 13:40:53 sg
Revision 1.4 2001-01-21 20:45:09 marco
* Rename fest II FCL version.
Revision 1.3 2000/11/17 13:40:53 sg
* Fixed header and log section
Revision 1.2 2000/07/13 11:33:00 michael

7
fcl/linux/classes.pp
View File

@ -32,7 +32,7 @@ uses
implementation
uses
linux;
Unix;
{ OS - independent class implementations are in /inc directory. }
{$i classes.inc}
@ -50,7 +50,10 @@ finalization
end.
{
$Log$
Revision 1.2 2000-07-13 11:33:01 michael
Revision 1.3 2001-01-21 20:45:09 marco
* Rename fest II FCL version.
Revision 1.2 2000/07/13 11:33:01 michael
+ removed logs
}

7
fcl/linux/process.inc
View File

@ -14,7 +14,7 @@
**********************************************************************}
uses linux;
uses Unix;
Function TProcess.GetRunning : Boolean;
@ -106,7 +106,10 @@ end;
{
$Log$
Revision 1.2 2000-07-13 11:33:01 michael
Revision 1.3 2001-01-21 20:45:09 marco
* Rename fest II FCL version.
Revision 1.2 2000/07/13 11:33:01 michael
+ removed logs
}

9
fcl/linux/thread.inc
View File

@ -217,7 +217,7 @@ var
P: Integer;
I: TThreadPriority;
begin
P := Linux.GetPriority(Prio_Process,FHandle);
P := Unix.GetPriority(Prio_Process,FHandle);
Result := tpNormal;
for I := Low(TThreadPriority) to High(TThreadPriority) do
if Priorities[I] = P then
@ -227,7 +227,7 @@ end;
procedure TThread.SetPriority(Value: TThreadPriority);
begin
Linux.SetPriority(Prio_Process,FHandle, Priorities[Value]);
Unix.SetPriority(Prio_Process,FHandle, Priorities[Value]);
end;
@ -283,7 +283,10 @@ end;
{
$Log$
Revision 1.2 2000-07-13 11:33:01 michael
Revision 1.3 2001-01-21 20:45:09 marco
* Rename fest II FCL version.
Revision 1.2 2000/07/13 11:33:01 michael
+ removed logs
}

7
fcl/unix/asyncioh.inc
View File

@ -12,7 +12,7 @@
**********************************************************************}
uses linux,classes;
uses Unix,classes;
const
MaxHandle = SizeOf(TFDSet) * 8 - 1;
@ -25,7 +25,10 @@ Type
{
$Log$
Revision 1.2 2000-10-26 22:30:21 peter
Revision 1.3 2001-01-21 20:45:09 marco
* Rename fest II FCL version.
Revision 1.2 2000/10/26 22:30:21 peter
* freebsd update
* classes.rst

9
fcl/unix/ezcgi.inc
View File

@ -13,7 +13,7 @@
**********************************************************************}
Uses Linux;
Uses Unix;
{ Declared EXPLICITLY with Ansistring, so NO mistaking is possible }
@ -23,7 +23,7 @@ Var P : Pchar;
begin
// Linux version returns pchar.
p:=linux.getenv(EnvVar);
p:=Unix.getenv(EnvVar);
if P<>nil then
getenv:=strpas(p)
else
@ -32,7 +32,10 @@ end;
{
$Log$
Revision 1.2 2000-10-26 22:30:21 peter
Revision 1.3 2001-01-21 20:45:09 marco
* Rename fest II FCL version.
Revision 1.2 2000/10/26 22:30:21 peter
* freebsd update
* classes.rst

7
fcl/unix/pipes.inc
View File

@ -14,7 +14,7 @@
**********************************************************************}
uses linux;
uses Unix;
Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
@ -24,7 +24,10 @@ end;
{
$Log$
Revision 1.2 2000-10-26 22:30:21 peter
Revision 1.3 2001-01-21 20:45:09 marco
* Rename fest II FCL version.
Revision 1.2 2000/10/26 22:30:21 peter
* freebsd update
* classes.rst