Commit a0fcf6a6 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏘
Browse files

temporary hack: redirect basic type Dynamic to DynamicTemp from StdDynamic

parent a131f7ab
......@@ -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 */
......@@ -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:==0x02000204;
kBEVersionOldestImplementation:==0x02000206;
kBEDebug:==1;
kPredefinedModuleIndex:==1;
BENoAnnot:==0;
......
......@@ -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
......
No preview for this file type
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment