dhscanner-bitcode 0.1.0.2 → 0.1.0.3

raw patch · 4 files changed

+6/−5 lines, 4 filesdep ~dhscanner-astPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: dhscanner-ast

API changes (from Hackage documentation)

- Callable: MethodContent :: MethdName -> ClassName -> [SuperName] -> Cfg -> Location -> MethodContent

+ Callable: MethodContent :: MethdName -> ClassName -> [Fqn] -> Cfg -> Location -> MethodContent

- Callable: [hostingClassSupers] :: MethodContent -> [SuperName]

+ Callable: [hostingClassSupers] :: MethodContent -> [Fqn]

Files

dhscanner-bitcode.cabal +2/−2
src/Bitcode.hs +2/−1
src/Callable.hs +1/−1
src/Cfg.hs +1/−1

dhscanner-bitcode.cabal view

@@ -20,7 +20,7 @@     in mind. The commands resemble an abstract RISC-style assembley, motivated by keeping
     later-phases analyses as simple as possible.
 
-version:            0.1.0.2
+version:            0.1.0.3
 license:            GPL-3.0-only
 license-file:       LICENSE
 author:             OrenGitHub
@@ -48,7 +48,7 @@         aeson >= 2.2.3 && < 2.3,
         base >= 4.17.2 && < 4.18,
         containers >= 0.6.7 && < 0.7,
-        dhscanner-ast >= 0.1.0.3 && < 0.2,
+        dhscanner-ast >= 0.1.0.5,
 
     hs-source-dirs:
         src

src/Bitcode.hs view

@@ -155,7 +155,8 @@ locationVariable v = case v of
     (TmpVariableCtor tmpVariable) -> tmpVariableLocation tmpVariable
     (SrcVariableCtor srcVariable) -> Token.getVarNameLocation $ srcVariableToken srcVariable
-    (ParamVariableCtor paramVariable) -> Token.getParamNameLocation $ paramVariableToken paramVariable
+    (ParamVariableCtor _paramVariable) -> Token.getParamNameLocation $ paramVariableToken _paramVariable
+    (Arg argContent) -> argVariableMyAwesomeCallContext argContent
 
 data CallContent
    = CallContent

src/Callable.hs view

@@ -58,7 +58,7 @@      {
          methodName :: Token.MethdName,
          hostingClassName :: Token.ClassName,
-         hostingClassSupers :: [ Token.SuperName ],
+         hostingClassSupers :: [ Fqn ],
          methodBody :: Cfg,
          methodLocation :: Location
      }

src/Cfg.hs view

@@ -72,7 +72,7 @@         edges' = filter (\e -> (to e) == node) (actualEdges (edges g))    
 
 empty :: Location -> Cfg
-empty location = atom (Node (Bitcode.Instruction location Bitcode.Nop))
+empty _location = atom (Node (Bitcode.Instruction _location Bitcode.Nop))
 
 atom :: Node -> Cfg
 atom node = Cfg { entry = node, exit = node, edges = mkEmptyCollectionOfEdges }