소스 검색

pas2jslib: compile with 3.0.4

git-svn-id: trunk@37807 -
Mattias Gaertner 7 년 전
부모
커밋
17b4e63d05
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      utils/pas2js/pas2jslib.pp

+ 1 - 1
utils/pas2js/pas2jslib.pp

@@ -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);