Explorar el Código

pas2jslib: compile with 3.0.4

git-svn-id: trunk@37807 -
Mattias Gaertner hace 7 años
padre
commit
17b4e63d05
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      utils/pas2js/pas2jslib.pp

+ 1 - 1
utils/pas2js/pas2jslib.pp

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