Commit b4928296 authored by Martijn Vervoort's avatar Martijn Vervoort
Browse files

- cosmetic changes: made some String-representation of type names symbolic

  for the dynamic linker.
parent 63c85f55
......@@ -203,6 +203,8 @@ UnderscoreSystemDynamicModule_String :== "_SystemDynamic"
DynamicRepresentation_String :== "DynamicTemp"
T_ypeObjectTypeRepresentation_String :== "T_ypeObjectType"
// List-type
PD_ListType_String :== "_List"
PD_ConsSymbol_String :== "_Cons"
......
......@@ -280,7 +280,7 @@ predefined_idents
[PD_FromThenTo] = i "_from_then_to",
[PD_TypeCodeClass] = i "TC",
[PD_TypeObjectType] = i "T_ypeObjectType",
[PD_TypeObjectType] = i T_ypeObjectTypeRepresentation_String,
[PD_TypeConsSymbol] = i "T_ypeConsSymbol",
[PD_variablePlaceholder] = i "P_laceholder",
[PD_UvariablePlaceholder] = i "UP_laceholder",
......@@ -634,6 +634,8 @@ UnderscoreSystemDynamicModule_String :== "_SystemDynamic"
DynamicRepresentation_String :== "DynamicTemp"
T_ypeObjectTypeRepresentation_String :== "T_ypeObjectType"
// List-type
PD_ListType_String :== "_List"
PD_ConsSymbol_String :== "_Cons"
......
......@@ -63,8 +63,12 @@ MaybeJustCode :== (toChar 31)
// used by {compiler,dynamic rts} to make String representation of types
PredefinedModuleName :== "_predefined"
isPredefinedModuleName name :== name == PredefinedModuleName
UnderscoreSystemModule :== "_system" // implements the predefined module
LowLevelInterfaceModule :== "StdDynamicLowLevelInterface"
instance toString GlobalTCType
where
toString (GTT_Basic basic_type) = create_type_string (toString basic_type) PredefinedModuleName
......
Supports Markdown
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