Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
N
nofib
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
9
Issues
9
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
1
Merge Requests
1
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Package Registry
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Glasgow Haskell Compiler
nofib
Commits
731b4957
Commit
731b4957
authored
Dec 20, 2019
by
Ben Gamari
🐢
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
real/compress2: Detabify
parent
09ac708a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
2 deletions
+2
-2
real/compress2/Encode.hs
real/compress2/Encode.hs
+1
-1
real/compress2/WriteRoutines.hs
real/compress2/WriteRoutines.hs
+1
-1
No files found.
real/compress2/Encode.hs
View file @
731b4957
...
...
@@ -97,7 +97,7 @@ build_table lo hi
=
if
lo
>
hi
then
PTNil
else
let
mid
=
(
lo
+
hi
)
`
div
`
2
in
--trace (show (lo,hi,mid))
--trace (show (lo,hi,mid))
PT
(
toEnum
mid
)
mid
PTNil
(
build_table
lo
(
mid
-
1
))
(
build_table
(
mid
+
1
)
hi
)
real/compress2/WriteRoutines.hs
View file @
731b4957
...
...
@@ -4,7 +4,7 @@ module WriteRoutines (outputCodes)
where
--import GlaExts
import
GHC.Base
(
Int
(
..
),
word2Int
#
,
int2Word
#
,
and
#
,
or
#
,
shiftL
#
,
shiftRL
#
)
import
GHC.Base
(
Int
(
..
),
word2Int
#
,
int2Word
#
,
and
#
,
or
#
,
shiftL
#
,
shiftRL
#
)
import
Encode
(
CodeEvent
(
..
))
-- Start of code added for ghc
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment