naming

anoma · Dec 10, 2023 · d4e737c · d4e737c
1 parent 9f7ed04
commit d4e737c
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/src/Juvix/Compiler/Backend/C/Translation/FromReg.hs b/src/Juvix/Compiler/Backend/C/Translation/FromReg.hs
@@ -233,7 +233,7 @@ fromRegInstr bNoStack info = \case
   Reg.Failure Reg.InstrFailure {..} ->
     return [StatementExpr $ macroCall "JUVIX_FAILURE" [fromValue _instrFailureValue]]
   Reg.ArgsNum Reg.InstrArgsNum {..} ->
-    return [StatementExpr $ macroCall "JUVIX_ARGS_NUM" [fromVarRef _instrArgsNumResult, fromValue _instrArgsNumArg]]
+    return [StatementExpr $ macroCall "JUVIX_ARGS_NUM" [fromVarRef _instrArgsNumResult, fromValue _instrArgsNumValue]]
   Reg.Prealloc x ->
     return [fromPrealloc x]
   Reg.Alloc x ->

diff --git a/src/Juvix/Compiler/Reg/Extra.hs b/src/Juvix/Compiler/Reg/Extra.hs
@@ -121,7 +121,7 @@ computeStringMap strs = snd . run . execState (HashMap.size strs, strs) . mapM g
       Failure InstrFailure {..} ->
         goVal _instrFailureValue
       ArgsNum InstrArgsNum {..} ->
-        goVal _instrArgsNumArg
+        goVal _instrArgsNumValue
       Prealloc {} -> return ()
       Alloc InstrAlloc {..} ->
         mapM_ goVal _instrAllocArgs

diff --git a/src/Juvix/Compiler/Reg/Language.hs b/src/Juvix/Compiler/Reg/Language.hs
@@ -101,7 +101,7 @@ newtype InstrFailure = InstrFailure
 
 data InstrArgsNum = InstrArgsNum
   { _instrArgsNumResult :: VarRef,
-    _instrArgsNumArg :: Value
+    _instrArgsNumValue :: Value
   }
 
 data InstrPrealloc = InstrPrealloc