Skip to content
Closed
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 3 additions & 0 deletions CHANGELOG
Original file line number Diff line number Diff line change
@@ -1,3 +1,6 @@
2025-03-20
* Expose Copilot.Compile.Bluespec.External. (#36)

2025-03-10
* Version bump (4.3). (#34)

Expand Down
8 changes: 3 additions & 5 deletions copilot-bluespec.cabal
Original file line number Diff line number Diff line change
Expand Up @@ -36,7 +36,7 @@ source-repository head

library
default-language : Haskell2010
hs-source-dirs : src, shared
hs-source-dirs : src

ghc-options : -Wall
build-depends : base >= 4.9 && < 5
Expand All @@ -48,12 +48,12 @@ library
, language-bluespec >= 0.1 && < 0.2

exposed-modules : Copilot.Compile.Bluespec
, Copilot.Compile.Bluespec.External

other-modules : Copilot.Compile.Bluespec.CodeGen
, Copilot.Compile.Bluespec.Compile
, Copilot.Compile.Bluespec.Error
, Copilot.Compile.Bluespec.Expr
, Copilot.Compile.Bluespec.External
, Copilot.Compile.Bluespec.FloatingPoint
, Copilot.Compile.Bluespec.Name
, Copilot.Compile.Bluespec.Representation
Expand All @@ -70,8 +70,6 @@ test-suite tests
other-modules:
Test.Copilot.Compile.Bluespec

Copilot.Compile.Bluespec.External

build-depends:
base
, directory
Expand All @@ -91,7 +89,7 @@ test-suite tests
, copilot-bluespec

hs-source-dirs:
tests, shared
tests

default-language:
Haskell2010
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ data External = forall a. External
-- | Collect all external variables from the streams and triggers.
--
-- Although Copilot specifications can contain also properties and theorems,
-- the C99 backend currently only generates code for streams and triggers.
-- the Bluespec backend currently only generates code for streams and triggers.
gatherExts :: [Stream] -> [Trigger] -> [External]
gatherExts streams triggers = streamsExts `extUnion` triggersExts
where
Expand Down