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

* Fix typo

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-07 12:48:22 +01:00 committed by Michaël Van Canneyt
parent 7edf9b3884
commit 4bddf12657
1 changed files with 1 additions and 1 deletions

2
rtl/inc/isotmp.inc
View File

@ -24,7 +24,7 @@
unique : Boolean;
begin
InternalChangeCase := S;
if Length(InternalChangeCase) then
if Length(InternalChangeCase)=0 then
exit;
unique := false;
p := PWideChar(InternalChangeCase);