Fix more comments

B-Lang-org · Aug 21, 2024 · 7067fbe · 7067fbe
1 parent f0d8ac7
commit 7067fbe
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/comp/CVPrint.hs b/src/comp/CVPrint.hs
@@ -287,8 +287,8 @@ instance PVPrint CDefn where
     pvPrint d p (CprimType (IdKind i k)) =
         t"primitive type" <+> pp d i <+> t "::" <+> pp d k
 
-    pvPrint d p (Cforeign i ty oname opnames _) =
-        text "foreign" <+> pvpId d i <+> t "::"
+    pvPrint d p (Cforeign i ty oname opnames ni) =
+        text "foreign" <> (if ni then text " noinline" else empty) <+> pvpId d i <+> t "::"
                 <+> pp d ty
                 <> (case oname of Nothing -> empty; Just s -> text (" = " ++ show s))
                 <> (case opnames of

diff --git a/src/comp/ContextErrors.hs b/src/comp/ContextErrors.hs
@@ -464,7 +464,7 @@ handleCtxRedPrimPort pos (vp, reduced_ps) userty =
 handleCtxRedWrapField:: Position -> (VPred, [VPred]) -> FString -> Type -> EMsg
 handleCtxRedWrapField pos (vp, reduced_ps) name userty =
     (pos, EBadIfcType (getFString name)
-     "This method uses types that are not in the Bits or SplitPorts typeclass.")
+     "This method uses types that are not in the Bits or SplitPorts typeclasses.")
 
 
 -- ========================================================================