소스 검색

fix casting typo in r47263

git-svn-id: trunk@47265 -
Károly Balogh 4 년 전
부모
커밋
3aa0d92c79
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      rtl/inc/text.inc

+ 1 - 1
rtl/inc/text.inc

@@ -129,7 +129,7 @@ Begin
   TextRec(t).Name:=ToSingleByteFileSystemEncodedFileName(S);
 {$ifdef USE_FILEREC_FULLNAME}
   if length(s)>255 then
-    RawByteString(TextRec(t).FullName:=ToSingleByteFileSystemEncodedFileName(S);
+    RawByteString(TextRec(t).FullName):=ToSingleByteFileSystemEncodedFileName(S);
 {$endif USE_FILEREC_FULLNAME}
 {$else FPC_ANSI_TEXTFILEREC}
   TextRec(t).Name:=S;