paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 06:49:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed warnings

Browse Source
This commit is contained in:
peter 1999-11-14 21:35:04 +00:00
parent ddb0882789
commit 5fec122056
5 changed files with 26 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
base/Makefile
View File

@ -1,5 +1,5 @@
#
# Makefile generated by fpcmake v0.99.13 on 1999-11-14 17:43
# Makefile generated by fpcmake v0.99.13 on 1999-11-14 19:23
#
defaultrule: info
@ -912,7 +912,7 @@ MODULES+=$(wildcard ide)
###############################
ifndef RTLDIR
RTLDIR=rtl
RTLDIR=rtl/$(OS_TARGET)
endif
ifndef COMPILERDIR
@ -1002,8 +1002,6 @@ sharedinstall: $(addsuffix _sharedinstall,$(MODULES))
# RTL
#######################################
override RTLDIR:=$(RTLDIR)/$(OS_TARGET)
rtl_all:
$(MAKE) -C $(RTLDIR) all

4
base/Makefile.fpc
View File

@ -26,7 +26,7 @@ MODULES+=$(wildcard ide)
###############################
ifndef RTLDIR
RTLDIR=rtl
RTLDIR=rtl/$(OS_TARGET)
endif
ifndef COMPILERDIR
@ -116,8 +116,6 @@ sharedinstall: $(addsuffix _sharedinstall,$(MODULES))
# RTL
#######################################
override RTLDIR:=$(RTLDIR)/$(OS_TARGET)
rtl_all:
$(MAKE) -C $(RTLDIR) all

9
rtl/inc/heaptrc.pp
View File

@ -545,7 +545,9 @@ var
edata : cardinal; external name 'edata';
{$endif go32v2}
{$S-}
{$ifndef linux}
{$S-}
{$endif}
var
heap_at_init : pointer;
@ -930,7 +932,10 @@ finalization
end.
{
$Log$
Revision 1.28 1999-11-09 22:32:23 pierre
Revision 1.29 1999-11-14 21:35:04 peter
* removed warnings
Revision 1.28 1999/11/09 22:32:23 pierre
* several extra_size_info fixes
Revision 1.27 1999/11/06 14:35:38 peter

17
rtl/linux/linux.pp
View File

@ -1922,10 +1922,14 @@ Function Dup2(var oldfile,newfile:text):Boolean;
var
tmphandle : word;
begin
if TextRec(oldfile).mode in [fmOutput, fmInOut, fmAppend] then
flush(oldfile);{ We cannot share buffers, so we flush them. }
if TextRec(newfile).mode in [fmOutput, fmInOut, fmAppend] then
flush(newfile);
case TextRec(oldfile).mode of
fmOutput, fmInOut, fmAppend :
flush(oldfile);{ We cannot share buffers, so we flush them. }
end;
case TextRec(newfile).mode of
fmOutput, fmInOut, fmAppend :
flush(newfile);
end;
tmphandle:=textrec(newfile).handle;
textrec(newfile):=textrec(oldfile);
textrec(newfile).handle:=tmphandle;
@ -3810,7 +3814,10 @@ End.
{
$Log$
Revision 1.52 1999-11-14 11:11:15 michael
Revision 1.53 1999-11-14 21:35:04 peter
* removed warnings
Revision 1.52 1999/11/14 11:11:15 michael
+ Added Pause() and alarm()
Revision 1.51 1999/11/11 19:43:49 sg

9
rtl/linux/sockets.pp
View File

@ -295,9 +295,6 @@ end;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:text):Boolean;
Var FD : Longint;
begin
Connect:=DoConnect(Sock,addr);
If Connect then
@ -307,7 +304,6 @@ end;
Function Connect(Sock:longint;const addr:string;var SockIn,SockOut:file):Boolean;
begin
Connect:=DoConnect(Sock,addr);
if Connect then
@ -320,7 +316,10 @@ end.
{
$Log$
Revision 1.9 1999-07-03 15:16:47 michael
Revision 1.10 1999-11-14 21:35:04 peter
* removed warnings
Revision 1.9 1999/07/03 15:16:47 michael
+ Fixed Connect call
Revision 1.8 1999/06/27 16:04:25 michael