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) ...@@ -133,6 +133,10 @@ STRUCT (be_state, BEState)
SymbolP be_dontCareSymbol; SymbolP be_dontCareSymbol;
SymbolP be_dictionarySelectFunSymbol; SymbolP be_dictionarySelectFunSymbol;
SymbolP be_dictionaryUpdateFunSymbol; SymbolP be_dictionaryUpdateFunSymbol;
// temporary hack
int be_dynamicTypeIndex;
int be_dynamicModuleIndex;
}; };
static BEStateS gBEState = {False /* ... */}; static BEStateS gBEState = {False /* ... */};
...@@ -2708,3 +2712,20 @@ BEFree (BackEnd backEnd) ...@@ -2708,3 +2712,20 @@ BEFree (BackEnd backEnd)
if (StdOutReopened) if (StdOutReopened)
fclose (StdOut); fclose (StdOut);
} /* BEFree */ } /* 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 { ...@@ -596,9 +596,21 @@ BESetMainDclModuleN a0 a1 = code {
ccall BESetMainDclModuleN "I:V:I" ccall BESetMainDclModuleN "I:V:I"
}; };
// void BESetMainDclModuleN(int main_dcl_module_n_parameter); // 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; kBEVersionOldestDefinition:==0x02000204;
kBEVersionOldestImplementation:==0x02000204; kBEVersionOldestImplementation:==0x02000206;
kBEDebug:==1; kBEDebug:==1;
kPredefinedModuleIndex:==1; kPredefinedModuleIndex:==1;
BENoAnnot:==0; BENoAnnot:==0;
......
...@@ -14,7 +14,7 @@ ...@@ -14,7 +14,7 @@
# define kFileFlags VS_FF_DEBUG | VS_FF_PRERELEASE # define kFileFlags VS_FF_DEBUG | VS_FF_PRERELEASE
# define kFileFlagsMask 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 VS_VERSION_INFO VERSIONINFO
FILEVERSION kFileVersion 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