git-svn-id: trunk@37807 -
@@ -107,7 +107,7 @@ begin
if ReadBufferLen=0 then
ReadBufferLen:=DefaultReadBufferSize;
SetLength(Buf,ReadBufferLen);
- S:=TStringStream.Create('',CP_ACP);
+ S:=TStringStream.Create(''{$IF FPC_FULLVERSION>=30101},CP_ACP{$ENDIF});
Repeat
BytesRead:=ReadBufferLen;
FOnReadPasFile(OnReadPasData,PAnsiChar(aFileName),Length(aFileName),@Buf[0],BytesRead);