瀏覽代碼

pastojs: on handled error set LastErrorClass empty

git-svn-id: trunk@47713 -
(cherry picked from commit dbdd90a9896cdbad584b3c08b227b8daf168e59d)
Mattias Gaertner 4 年之前
父節點
當前提交
fc0bd29585
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/pastojs/src/pas2jslibcompiler.pp

+ 2 - 2
packages/pastojs/src/pas2jslibcompiler.pp

@@ -143,7 +143,7 @@ begin
   Result:=Assigned(OnWriteJSCallBack);
   if Result then
     try
-      Src:=aWriter.{$IF FPC_FULLVERSION>30300}AsString{$ELSE}AsAnsistring{$ENDIF};
+      Src:=aWriter.{$IF FPC_FULLVERSION>30101}AsString{$ELSE}AsAnsistring{$ENDIF};
       OnWriteJSCallBack(OnWriteJSData,PAnsiChar(DestFileName),Length(DestFileName),PAnsiChar(Src),Length(Src));
     except
       Result:=False;
@@ -264,7 +264,7 @@ begin
       if Not Result then
         begin
         LastError:=Format('Compiler exited with exit code %d',[ExitCode]);
-        LastErrorClass:=ECompilerTerminate.ClassName;
+        LastErrorClass:='';
         end;
     except
       On E : Exception do