Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
G
gdsl-toolkit
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Tanzeem Haque
gdsl-toolkit
Commits
0c1fb475
Commit
0c1fb475
authored
Aug 22, 2014
by
Axel Simon
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
no set in endianness
parent
b988f8b0
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
1 deletion
+1
-1
detail/codegen/c1/c1.sml
detail/codegen/c1/c1.sml
+1
-1
No files found.
detail/codegen/c1/c1.sml
View file @
0c1fb475
...
...
@@ -895,7 +895,7 @@ structure C1 = struct
|
emitPrim
s
(
GET_CON_ARGprim
,
[_,
e
],[
FUNvtype
(_,_,[
t
]),_])
=
seq
[
str
"(("
,
emitConType
s
t
,
str
"*) "
,
emitExp
s
e
,
str
")->payload"
]
|
emitPrim
s
(
VOIDprim
,
[],_)
=
str
"0 /* void value */"
|
emitPrim
s
(
MERGE_ROPEprim
,
[
e
],_)
=
seq
[
str
(
#prefix
s
^
"merge_rope"
),
fArgs
[
emitExp
s
e
]]
|
emitPrim
s
(
SET_ENDIANNESSprim
,
es
,_)
=
seq
[
str
(
#prefix
s
^
"
set_
endianness"
),
fArgs
(
map
(
emitExp
s
)
es
)]
|
emitPrim
s
(
SET_ENDIANNESSprim
,
es
,_)
=
seq
[
str
(
#prefix
s
^
"endianness"
),
fArgs
(
map
(
emitExp
s
)
es
)]
|
emitPrim
s
_
=
raise
CodeGenBug
and
addConsume
s
n
=
#consumeSizes
s
:=
IntListSet
.
add
(
!
(
#consumeSizes
s
),
n
)
...
...
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