Commit 69c8ea07 authored by John van Groningen's avatar John van Groningen
Browse files

don't write fs_var to .tcl file, because it is the same as fs_ident,

also requires new linkers
parent 3ad6ba95
......@@ -205,18 +205,14 @@ where
# tcl_file
= fwritei (size id_name) tcl_file
= (fwrites id_name tcl_file,wtis)
instance WriteTypeInfo FieldSymbol
where
write_type_info {fs_ident,fs_var,fs_index} tcl_file wtis
write_type_info {fs_ident,fs_index} tcl_file wtis
# (tcl_file,wtis)
= write_type_info fs_ident tcl_file wtis
# (tcl_file,wtis)
= write_type_info fs_var tcl_file wtis
# (tcl_file,wtis)
= write_type_info fs_index tcl_file wtis
= (tcl_file,wtis)
= write_type_info fs_index tcl_file wtis
instance WriteTypeInfo SymbolType
where
write_type_info symbol_type tcl_file wtis
......
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