Генерация текстового файла со списком суффиксов локальных функций (#255)

Если включена опция -OG, генерируется файл %TARGET%-locals.lst, где перечисляются суффиксы ~n, добавляемые к локальным функциям каждой единицы трансляции. Скрипты сборки Рефала-5λ перемещают эти файлы (если они есть) в соответствующие подпапки папки build.
bmstu-iu9 · May 16, 2020 · 3c74051 · 3c74051
1 parent 9d5b27d
commit 3c74051
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 10 deletions.
diff --git a/autotests/dynamic/D-multiple-entry/run.bat b/autotests/dynamic/D-multiple-entry/run.bat
@@ -16,5 +16,5 @@ if exist target.rasl-module (
   exit /b 1
 ) else (
   echo Test OK: compiler found expected errors!
-  erase *.rasl-module *.rasl *.exe
+  erase *.rasl-module *.rasl *.exe *-locals.lst
 )
diff --git a/autotests/dynamic/D-multiple-entry/run.sh b/autotests/dynamic/D-multiple-entry/run.sh
@@ -17,5 +17,5 @@ if [[ -e target.rasl-module ]]; then
   exit 1
 else
   echo Test OK: compiler found expected errors!
-  rm -f *.rasl-module *.rasl caller
+  rm -f *.rasl-module *.rasl caller *-locals.lst
 fi
diff --git a/src/compiler/Engine.ref b/src/compiler/Engine.ref
@@ -698,7 +698,7 @@ $ENTRY GlobalASTStorage-Create {
 
 
 /**
-  <GlobalASTStorage-AddAST t.ASTStorage e.AST> == t.ASTStorage^
+  <GlobalASTStorage-AddAST t.ASTStorage e.AST> == t.ASTStorage^ s.Id
 */
 $ENTRY GlobalASTStorage-AddAST {
   ((s.NextLocalId e.Entries) e.ASTs) e.AST
@@ -733,7 +733,8 @@ $ENTRY GlobalASTStorage-AddAST {
     = (
         (<Inc s.NextLocalId> e.Entries)
         e.ASTs <PatchAST s.FnPatch e.AST>
-      );
+      )
+      s.NextLocalId;
 }
 
 UpdateAccum {

diff --git a/src/compiler/main.ref b/src/compiler/main.ref
@@ -379,29 +379,32 @@ CompileFiles {
 CompileFiles-GlobalOpt {
   t.Config e.Files
     = <CalcTargetFileName CompileOnly t.Config> : e.TargetName
+    = <Open-Auto "w" e.TargetName '-locals.lst'> : s.LstFile
     = <MapAccum
-        (&CompileFiles-GlobalOpt-EachFile t.Config)
+        (&CompileFiles-GlobalOpt-EachFile t.Config s.LstFile)
         <GlobalASTStorage-Create>
         e.Files
       >
+      <Close s.LstFile>
     : t.ASTStorage e.Outputs
     = <CompileFiles-GlobalOpt-CheckSucceededOutputs
         t.Config t.ASTStorage (e.TargetName) e.Outputs
       >
 }
 
 CompileFiles-GlobalOpt-EachFile {
-  t.Config t.ASTStorage (s.Pos Output e.OutputName NoNative)
+  t.Config s.LstFile t.ASTStorage (s.Pos Output e.OutputName NoNative)
     = t.ASTStorage
       <Prout '+Linking ' e.OutputName>
       (RASL Given e.OutputName);
 
-  t.Config t.ASTStorage (s.Pos Output e.OutputName (e.NativeName))
+  t.Config s.LstFile t.ASTStorage (s.Pos Output e.OutputName (e.NativeName))
     = t.ASTStorage
       <Prout '+Linking (+ natives) ' e.OutputName>
       (RASL Given e.OutputName) (Native Given e.NativeName);
 
-  t.Config t.ASTStorage (s.Pos Source (s.Dialect e.Source) e.OutputName '.rasl')
+  t.Config s.LstFile t.ASTStorage
+  (s.Pos Source (s.Dialect e.Source) e.OutputName '.rasl')
     = <Prout '*Parsing ' e.Source '...'>
       <FrontEnd t.Config s.Dialect e.Source>
     : {
@@ -411,8 +414,9 @@ CompileFiles-GlobalOpt-EachFile {
             <BackEnd t.Config (e.Source) (e.OutputName) e.AST>;
 
         Success NoNative e.AST
-          = <GlobalASTStorage-AddAST t.ASTStorage e.AST> : t.ASTStorage^
+          = <GlobalASTStorage-AddAST t.ASTStorage e.AST> : t.ASTStorage^ s.Id
           = t.ASTStorage
+            <Putout s.LstFile '~' <Symb s.Id> ' -- ' e.Source>
             /* генерация откладывается */;
 
         Fails = t.ASTStorage Fails;

diff --git a/src/make.bat b/src/make.bat
@@ -55,6 +55,7 @@ setlocal
   if exist *.obj erase *.obj
   if exist *.tds erase *.tds
   move *.rasl ..\..\build\%DIR% >NUL
+  if exist *-locals.lst move *-locals.lst ..\..\build\%DIR% >NUL
   if exist *.cpp move *.cpp ..\..\build\%DIR% >NUL
   if exist ..\common\*.rasl move ..\common\*.rasl ..\..\build\%DIR% >NUL
   if exist ..\common\*.cpp move ..\common\*.cpp ..\..\build\%DIR% >NUL

diff --git a/src/make.sh b/src/make.sh
@@ -72,7 +72,7 @@ TARGET_SUFFIX=${TARGET_SUFFIX:-}
     mkdir -p "../../build/$DIR"
     rm -f "../../build/$DIR/"*
     find . ../common \
-      \( -name '*.rasl' -o -name '*.cpp' \) \
+      \( -name '*.rasl' -o -name '*.cpp' -o -name '*-locals.lst' \) \
       -exec mv '{}' "../../build/$DIR" \;
     cp ${PATH_TO_RLC}/lib/scratch{/exe,-rt{/debug-stubs,/exe,}}/*.{rasl,cpp} \
       "../../build/$DIR"