Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
90ee9ede
Commit
90ee9ede
authored
Aug 20, 2015
by
John van Groningen
Browse files
add record label to .record directive for list of unboxed records
parent
be7392e9
Changes
1
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/instructions.c
View file @
90ee9ede
...
...
@@ -3130,19 +3130,22 @@ void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict)
GenABStackElemsOfRecord
(
tuple_arguments_state
[
0
]);
GenABStackElems
(
tuple_arguments_state
[
1
]);
if
(
!
has_unboxed_record
){
if
(
ExportLocalLabels
)
FPrintF
(
OutFile
,
tail_strict
?
" %d %d
\"
_Cons#!%s
\"
"
:
" %d %d
\"
_Cons#
\"
"
,
asize
,
bsize
,
name
);
else
FPrintF
(
OutFile
,
tail_strict
?
" %d %d
\"
[#%s!]
\"
"
:
" %d %d
\"
[#%s]
\"
"
,
asize
,
bsize
,
name
);
}
else
{
FPrintF
(
OutFile
,
" %d %d "
,
asize
,
bsize
);
FPrintF
(
OutFile
,
" %d %d "
,
asize
,
bsize
);
if
(
has_unboxed_record
)
GenUnboxedRecordLabelsReversedForRecord
(
tuple_arguments_state
[
0
]);
if
(
ExportLocalLabels
)
FPrintF
(
OutFile
,
tail_strict
?
"
\"
_Cons#!%s
\"
"
:
"
\"
_Cons#
\"
"
,
name
);
if
(
!
sdef
->
sdef_exported
&&
sdef
->
sdef_module
==
CurrentModule
&&
!
ExportLocalLabels
){
if
(
DoDebug
)
FPrintF
(
OutFile
,
R_PREFIX
"%s "
,
name
);
else
FPrintF
(
OutFile
,
tail_strict
?
"
\"
[#%s!]
\"
"
:
"
\"
[#%s]
\"
"
,
name
);
}
FPrintF
(
OutFile
,
R_PREFIX
"%u "
,
sdef
->
sdef_number
);
}
else
FPrintF
(
OutFile
,
"e_%s_"
R_PREFIX
"%s "
,
sdef
->
sdef_module
,
name
);
if
(
ExportLocalLabels
)
FPrintF
(
OutFile
,
tail_strict
?
"
\"
_Cons#!%s
\"
"
:
"
\"
_Cons#
\"
"
,
name
);
else
FPrintF
(
OutFile
,
tail_strict
?
"
\"
[#%s!]
\"
"
:
"
\"
[#%s]
\"
"
,
name
);
}
#endif
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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