mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 10:09:20 +02:00
* merged textfile, readlink and concat ansistring fixes
This commit is contained in:
parent
53e8ce0e1e
commit
5c0d161bef
@ -164,9 +164,6 @@ Procedure AnsiStr_Concat (S1,S2 : Pointer;var S3 : Pointer);[Public, alias: 'FPC
|
|||||||
Var
|
Var
|
||||||
Size,Location : Longint;
|
Size,Location : Longint;
|
||||||
begin
|
begin
|
||||||
{ create new result }
|
|
||||||
if S3<>nil then
|
|
||||||
AnsiStr_Decr_Ref(S3);
|
|
||||||
{ only assign if s1 or s2 is empty }
|
{ only assign if s1 or s2 is empty }
|
||||||
if (S1=Nil) then
|
if (S1=Nil) then
|
||||||
AnsiStr_Assign(S3,S2)
|
AnsiStr_Assign(S3,S2)
|
||||||
@ -175,6 +172,9 @@ begin
|
|||||||
AnsiStr_Assign(S3,S1)
|
AnsiStr_Assign(S3,S1)
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
|
{ create new result }
|
||||||
|
if S3<>nil then
|
||||||
|
AnsiStr_Decr_Ref(S3);
|
||||||
Size:=PAnsiRec(S2-FirstOff)^.Len;
|
Size:=PAnsiRec(S2-FirstOff)^.Len;
|
||||||
Location:=Length(AnsiString(S1));
|
Location:=Length(AnsiString(S1));
|
||||||
SetLength (AnsiString(S3),Size+Location);
|
SetLength (AnsiString(S3),Size+Location);
|
||||||
@ -707,7 +707,10 @@ end;
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.15 2001-07-09 21:15:41 peter
|
Revision 1.16 2001-07-10 18:04:37 peter
|
||||||
|
* merged textfile, readlink and concat ansistring fixes
|
||||||
|
|
||||||
|
Revision 1.15 2001/07/09 21:15:41 peter
|
||||||
* Length made internal
|
* Length made internal
|
||||||
* Add array support for Length
|
* Add array support for Length
|
||||||
|
|
||||||
|
@ -143,6 +143,9 @@ Type
|
|||||||
{ procedure type }
|
{ procedure type }
|
||||||
TProcedure = Procedure;
|
TProcedure = Procedure;
|
||||||
|
|
||||||
|
{ Text file }
|
||||||
|
TextFile = Text;
|
||||||
|
|
||||||
const
|
const
|
||||||
{ Maximum value of the biggest signed and unsigned integer type available}
|
{ Maximum value of the biggest signed and unsigned integer type available}
|
||||||
MaxSIntValue = High(ValSInt);
|
MaxSIntValue = High(ValSInt);
|
||||||
@ -512,7 +515,10 @@ const
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.26 2001-07-09 21:15:41 peter
|
Revision 1.27 2001-07-10 18:04:37 peter
|
||||||
|
* merged textfile, readlink and concat ansistring fixes
|
||||||
|
|
||||||
|
Revision 1.26 2001/07/09 21:15:41 peter
|
||||||
* Length made internal
|
* Length made internal
|
||||||
* Add array support for Length
|
* Add array support for Length
|
||||||
|
|
||||||
|
@ -265,10 +265,8 @@ Function fdSeek (fd,pos,seektype :longint): longint;
|
|||||||
Function fdFlush (fd : Longint) : Boolean;
|
Function fdFlush (fd : Longint) : Boolean;
|
||||||
Function Link(OldPath,NewPath:pathstr):boolean;
|
Function Link(OldPath,NewPath:pathstr):boolean;
|
||||||
Function SymLink(OldPath,NewPath:pathstr):boolean;
|
Function SymLink(OldPath,NewPath:pathstr):boolean;
|
||||||
{$ifndef bsd}
|
|
||||||
Function ReadLink(name,linkname:pchar;maxlen:longint):longint;
|
Function ReadLink(name,linkname:pchar;maxlen:longint):longint;
|
||||||
Function ReadLink(name:pathstr):pathstr;
|
Function ReadLink(name:pathstr):pathstr;
|
||||||
{$endif}
|
|
||||||
Function UnLink(Path:pathstr):boolean;
|
Function UnLink(Path:pathstr):boolean;
|
||||||
Function UnLink(Path:pchar):Boolean;
|
Function UnLink(Path:pchar):Boolean;
|
||||||
Function FReName (OldName,NewName : Pchar) : Boolean;
|
Function FReName (OldName,NewName : Pchar) : Boolean;
|
||||||
@ -2892,7 +2890,10 @@ End.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.10 2001-06-03 20:19:09 peter
|
Revision 1.11 2001-07-10 18:04:37 peter
|
||||||
|
* merged textfile, readlink and concat ansistring fixes
|
||||||
|
|
||||||
|
Revision 1.10 2001/06/03 20:19:09 peter
|
||||||
* FSStat to StatFS
|
* FSStat to StatFS
|
||||||
* StatFS structure to TStatFS
|
* StatFS structure to TStatFS
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user