Skip to content
GitLab
Menu
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
af3ab750
Commit
af3ab750
authored
Feb 21, 2007
by
John van Groningen
Browse files
add BEStartFunction
parent
6af73849
Changes
3
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/backend.c
View file @
af3ab750
...
...
@@ -2504,6 +2504,12 @@ DeclareFunctionC (char *name, int arity, int functionIndex, unsigned int ancesto
}
}
/* DeclareFunctionC */
void
BEStartFunction
(
int
functionIndex
)
{
gBEState
.
be_icl
.
beicl_module
->
im_start
=
gBEState
.
be_modules
[
main_dcl_module_n
].
bem_functions
[
functionIndex
].
symb_def
;
}
void
BEDeclareFunction
(
CleanString
name
,
int
arity
,
int
functionIndex
,
int
ancestor
)
{
...
...
backendC/CleanCompilerSources/backend.h
View file @
af3ab750
...
...
@@ -473,6 +473,9 @@ Clean (BEDeclareType:: Int Int String BackEnd -> BackEnd)
void
BEDeclareFunction
(
CleanString
name
,
int
arity
,
int
functionIndex
,
int
ancestor
);
Clean
(
BEDeclareFunction
::
String
Int
Int
Int
BackEnd
->
BackEnd
)
void
BEStartFunction
(
int
functionIndex
);
Clean
(
BEDeclareFunction
::
Int
BackEnd
->
BackEnd
)
BERuleAltP
BECodeAlt
(
int
line
,
BENodeDefP
lhsDefs
,
BENodeP
lhs
,
BECodeBlockP
codeBlock
);
Clean
(
BECodeAlt
::
Int
BENodeDefP
BENodeP
BECodeBlockP
BackEnd
->
(
BERuleAltP
,
BackEnd
))
...
...
backendC/backend.link
View file @
af3ab750
...
...
@@ -96,6 +96,7 @@
/EXPORT: BETypeVar
/EXPORT: BEDeclareType
/EXPORT: BEDeclareFunction
/EXPORT: BEStartFunction
/EXPORT: BECodeAlt
/EXPORT: BEString
/EXPORT: BEStrings
...
...
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