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

* check zero length instead of comparing to empty string

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 12:02:34 +01:00 committed by Michaël Van Canneyt
parent f75f208992
commit 31ef662201
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/inc/system.inc
View File

@ -1716,7 +1716,7 @@ end;
Procedure SysAssert(Const Msg,FName:Shortstring;LineNo:Longint;ErrorAddr:Pointer);
begin
{$ifdef FPC_HAS_FEATURE_CONSOLEIO}
If msg='' then
If Length(msg)=0 then
write(stderr,'Assertion failed')
else
write(stderr,msg);
@ -2014,7 +2014,7 @@ end;
Procedure MkDir(Const s: RawByteString);[IOCheck];
Begin
If (s='') or (InOutRes <> 0) then
If (Length(s)=0) or (InOutRes <> 0) then
exit;
{$ifdef FPCRTL_FILESYSTEM_SINGLE_BYTE_API}
Do_mkdir(ToSingleByteFileSystemEncodedFileName(S));
@ -2026,7 +2026,7 @@ end;
Procedure RmDir(Const s: RawByteString);[IOCheck];
Begin
If (s='') or (InOutRes <> 0) then
If (Length(s)=0) or (InOutRes <> 0) then
exit;
{$ifdef FPCRTL_FILESYSTEM_SINGLE_BYTE_API}
Do_rmdir(ToSingleByteFileSystemEncodedFileName(S));
@ -2038,7 +2038,7 @@ End;
Procedure ChDir(Const s: RawByteString);[IOCheck];
Begin
If (s='') or (InOutRes <> 0) then
If (Length(s)=0) or (InOutRes <> 0) then
exit;
{$ifdef FPCRTL_FILESYSTEM_SINGLE_BYTE_API}
Do_chdir(ToSingleByteFileSystemEncodedFileName(S));
@ -2075,7 +2075,7 @@ end;
Procedure MkDir(Const s: shortstring);[IOCheck];
Begin
If (s='') or (InOutRes <> 0) then
If (Length(s)=0) or (InOutRes <> 0) then
exit;
Do_mkdir(GetDirStrFromShortstring(S));
End;
@ -2083,7 +2083,7 @@ End;
Procedure RmDir(Const s: shortstring);[IOCheck];
Begin
If (s='') or (InOutRes <> 0) then
If (Length(s)=0) or (InOutRes <> 0) then
exit;
Do_rmdir(GetDirStrFromShortstring(S));
End;
@ -2091,7 +2091,7 @@ End;
Procedure ChDir(Const s: shortstring);[IOCheck];
Begin
If (s='') or (InOutRes <> 0) then
If (Length(S)=0) or (InOutRes <> 0) then
exit;
Do_chdir(GetDirStrFromShortstring(S));
End;
@ -2144,7 +2144,7 @@ end;
Procedure MkDir(Const s: UnicodeString);[IOCheck];
Begin
if (s='') or (InOutRes <> 0) then
if (Length(s)=0) or (InOutRes <> 0) then
exit;
Do_mkdir(S);
End;
@ -2152,7 +2152,7 @@ End;
Procedure RmDir(Const s: UnicodeString);[IOCheck];
Begin
if (s='') or (InOutRes <> 0) then
if (Length(s)=0) or (InOutRes <> 0) then
exit;
Do_rmdir(S);
End;
@ -2160,7 +2160,7 @@ End;
Procedure ChDir(Const s: UnicodeString);[IOCheck];
Begin
if (s='') or (InOutRes <> 0) then
if (Length(s)=0) or (InOutRes <> 0) then
exit;
Do_chdir(S);
End;