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
55392d81
Commit
55392d81
authored
Jan 12, 2007
by
John van Groningen
Browse files
add support for strings in foreign export
parent
72a3840a
Changes
1
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/instructions.c
View file @
55392d81
...
...
@@ -3679,6 +3679,14 @@ static void print_foreign_export_type (TypeNode type)
}
else
if
(
symbol_p
->
symb_kind
==
real_type
){
FPrintF
(
OutFile
,
"R"
);
return
;
}
else
if
(
symbol_p
->
symb_kind
==
unboxed_array_type
){
TypeNode
type_node_p
;
type_node_p
=
type
->
type_node_arguments
->
type_arg_node
;
if
(
!
type_node_p
->
type_node_is_var
&&
type_node_p
->
type_node_symbol
->
symb_kind
==
char_type
){
FPrintF
(
OutFile
,
"S"
);
return
;
}
}
else
if
(
symbol_p
->
symb_kind
==
tuple_type
){
TypeArgs
type_arg_p
;
...
...
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