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
a0fcf6a6
Commit
a0fcf6a6
authored
Feb 23, 2001
by
Ronny Wichers Schreur
🏢
Browse files
temporary hack: redirect basic type Dynamic to DynamicTemp from StdDynamic
parent
a131f7ab
Changes
4
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/backend.c
View file @
a0fcf6a6
...
...
@@ -133,6 +133,10 @@ STRUCT (be_state, BEState)
SymbolP
be_dontCareSymbol
;
SymbolP
be_dictionarySelectFunSymbol
;
SymbolP
be_dictionaryUpdateFunSymbol
;
// temporary hack
int
be_dynamicTypeIndex
;
int
be_dynamicModuleIndex
;
};
static
BEStateS
gBEState
=
{
False
/* ... */
};
...
...
@@ -2708,3 +2712,20 @@ BEFree (BackEnd backEnd)
if
(
StdOutReopened
)
fclose
(
StdOut
);
}
/* BEFree */
// temporary hack
void
BEDeclareDynamicTypeSymbol
(
int
typeIndex
,
int
moduleIndex
)
{
gBEState
.
be_dynamicTypeIndex
=
moduleIndex
;
gBEState
.
be_dynamicModuleIndex
=
typeIndex
;
}
/* BEDeclareDynamicTypeSymbol */
BESymbolP
BEDynamicTempTypeSymbol
(
void
)
{
return
(
BETypeSymbol
(
gBEState
.
be_dynamicTypeIndex
,
gBEState
.
be_dynamicModuleIndex
));
}
/* BEDynamicTemp */
backendC/CleanCompilerSources/backend.icl
View file @
a0fcf6a6
...
...
@@ -596,9 +596,21 @@ BESetMainDclModuleN a0 a1 = code {
ccall
BESetMainDclModuleN
"I:V:I"
}
;
// void BESetMainDclModuleN(int main_dcl_module_n_parameter);
kBEVersionCurrent
:==
0x02000204
;
BEDeclareDynamicTypeSymbol
::
!
Int
!
Int
!
BackEnd
->
BackEnd
;
BEDeclareDynamicTypeSymbol
a0
a1
a2
=
code {
ccall
BEDeclareDynamicTypeSymbol
"II:V:I"
}
;
// void BEDeclareDynamicTypeSymbol(int typeIndex,int moduleIndex);
BEDynamicTempTypeSymbol
::
!
BackEnd
->
(!
BESymbolP
,!
BackEnd
);
BEDynamicTempTypeSymbol
a0
=
code {
ccall
BEDynamicTempTypeSymbol
":I:I"
}
;
// BESymbolP BEDynamicTempTypeSymbol();
kBEVersionCurrent
:==
0x02000206
;
kBEVersionOldestDefinition
:==
0x02000204
;
kBEVersionOldestImplementation
:==
0x0200020
4
;
kBEVersionOldestImplementation
:==
0x0200020
6
;
kBEDebug
:==
1
;
kPredefinedModuleIndex
:==
1
;
BENoAnnot
:==
0
;
...
...
backendC/backend.rc
View file @
a0fcf6a6
...
...
@@ -14,7 +14,7 @@
# define kFileFlags VS_FF_DEBUG | VS_FF_PRERELEASE
# define kFileFlagsMask VS_FF_DEBUG | VS_FF_PRERELEASE
# define kFileVersionString "2.0.d.
2
"
# define kFileVersionString "2.0.d.
6
"
VS_VERSION_INFO VERSIONINFO
FILEVERSION kFileVersion
...
...
coclmaindll/backend.dll
View file @
a0fcf6a6
No preview for this file type
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