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

* Fix compilation with debug output defines

git-svn-id: trunk@40441 -
michael преди 6 години
родител
ревизия
b84e02b0a9
променени са 1 файла, в които са добавени 6 реда и са изтрити 6 реда
  1. 6 6
      packages/pastojs/src/pas2jspcucompiler.pp

+ 6 - 6
packages/pastojs/src/pas2jspcucompiler.pp

@@ -254,7 +254,7 @@ begin
   if MyFile.PasModule.ClassType<>TPasModule then
   begin
     {$IFDEF REALLYVERBOSE}
-    writeln('TPas2jsCompilerFile.WritePCU not a unit: ',PasFilename,' skip');
+    writeln('TPas2jsCompilerFile.WritePCU not a unit: ',MyFile.PasFilename,' skip');
     {$ENDIF}
     exit;
   end;
@@ -262,7 +262,7 @@ begin
   if (MyFile.PCUFilename<>'') or (FPCUReader<>nil) then
   begin
     {$IFDEF REALLYVERBOSE}
-    writeln('TPas2jsCompilerFile.WritePCU already precompiled "',PCUFilename,'" Reader=',GetObjName(PCUReader));
+    writeln('TPas2jsCompilerFile.WritePCU already precompiled "',MyFile.PCUFilename,'" Reader=',GetObjName(FPCUReader));
     {$ENDIF}
     exit;
   end;
@@ -276,7 +276,7 @@ begin
   // Set as our filename
   SetPCUFilename(FN);
   {$IFDEF REALLYVERBOSE}
-  writeln('TPas2jsCompilerFile.WritePCU precompiling ',PCUFilename);
+  writeln('TPas2jsCompilerFile.WritePCU precompiling ',MyFile.PCUFilename);
   {$ENDIF}
 
   JS:=nil;
@@ -295,11 +295,11 @@ begin
     JS:=MyFile.Converter.ConvertPasElement(MyFile.PasModule,MyFile.PascalResolver);
     MyFile.Converter.Options:=MyFile.Converter.Options-[coStoreImplJS];
     {$IFDEF REALLYVERBOSE}
-    writeln('TPas2jsCompilerFile.WritePCU create pcu ... ',PCUFilename);
+    writeln('TPas2jsCompilerFile.WritePCU create pcu ... ',MyFile.PCUFilename);
     {$ENDIF}
     Writer.WritePCU(MyFile.PascalResolver,MyFile.Converter,PrecompileInitialFlags,ms,AllowCompressed);
     {$IFDEF REALLYVERBOSE}
-    writeln('TPas2jsCompilerFile.WritePCU precompiled ',PCUFilename);
+    writeln('TPas2jsCompilerFile.WritePCU precompiled ',MyFile.PCUFilename);
     {$ENDIF}
 
     MyFile.Log.LogMsg(nWritingFile,[QuoteStr(Compiler.FileCache.FormatPath(MyFile.PCUFilename))],'',0,0,
@@ -327,7 +327,7 @@ begin
     ms.Position:=0;
     Compiler.FileCache.SaveToFile(ms,MyFile.PCUFilename);
     {$IFDEF REALLYVERBOSE}
-    writeln('TPas2jsCompilerFile.WritePCU written ',PCUFilename);
+    writeln('TPas2jsCompilerFile.WritePCU written ',MyFile.PCUFilename);
     {$ENDIF}
   finally
     JS.Free;