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