Преглед на файлове

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