2019-03-17 14:40:57 +02:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
< title > 2/rv< / title >
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
< link href = "inweb.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
< / head >
< body >
<!-- Weave of '2/erm' generated by 7 -->
< ul class = "crumbs" > < li > < a href = "../webs.html" > ★ < / a > < / li > < li > < a href = "index.html" > codegen< / a > < / li > < li > < a href = "index.html#2" > Chapter 2: Linking< / a > < / li > < li > < b > Eliminate Redundant Matter< / b > < / li > < / ul > < p class = "purpose" > To reconcile clashes between assimilated and originally generated verbs.< / p >
< ul class = "toc" > < li > < a href = "#SP1" > § 1. Parsing< / a > < / li > < / ul > < hr class = "tocbar" >
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. Parsing. < / b > < / p >
< pre class = "display" >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > notes_made< / span > < span class = "plain" > = 0, < / span > < span class = "identifier" > log_elims< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::Eliminate::go< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_repository< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > ) {< / span >
< span class = "functiontext" > CodeGen::Eliminate::keep< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "Main"< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > CodeGen::Eliminate::keep< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "DefArt"< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > CodeGen::Eliminate::keep< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "CDefArt"< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > CodeGen::Eliminate::keep< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "IndefArt"< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > CodeGen::Eliminate::keep< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "I7_String"< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > CodeGen::Eliminate::keep< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "R_Process"< / span > < span class = "plain" > );< / span >
< span class = "identifier" > inter_repository< / span > < span class = "plain" > *< / span > < span class = "identifier" > repos< / span > < span class = "plain" > [< / span > < span class = "constant" > MAX_REPOS_AT_ONCE< / span > < span class = "plain" > ];< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > no_repos< / span > < span class = "plain" > = < / span > < span class = "functiontext" > CodeGen::repo_list< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > repos< / span > < span class = "plain" > );< / span >
< span class = "reserved" > for< / span > < span class = "plain" > (< / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > j< / span > < span class = "plain" > =0; < / span > < span class = "identifier" > j< / span > < span class = "plain" > < < / span > < span class = "identifier" > no_repos< / span > < span class = "plain" > ; < / span > < span class = "identifier" > j< / span > < span class = "plain" > ++) {< / span >
< span class = "identifier" > inter_repository< / span > < span class = "plain" > *< / span > < span class = "identifier" > J< / span > < span class = "plain" > = < / span > < span class = "identifier" > repos< / span > < span class = "plain" > [< / span > < span class = "identifier" > j< / span > < span class = "plain" > ];< / span >
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > P< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > LOOP_THROUGH_FRAMES< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > J< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > Inter::Defn::callback_dependencies< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , & (< / span > < span class = "functiontext" > CodeGen::Eliminate::note< / span > < span class = "plain" > ), < / span > < span class = "identifier" > I< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "identifier" > LOOP_THROUGH_FRAMES< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > J< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [< / span > < span class = "identifier" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > CONSTANT_IST< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::SymbolsTables::symbol_from_frame_data< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > DEFN_CONST_IFLD< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > Inter::Symbols::get_flag< / span > < span class = "plain" > (< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > USED_MARK_BIT< / span > < span class = "plain" > )) & & < / span >
< span class = "plain" > (< / span > < span class = "identifier" > Inter::Symbols::read_annotation< / span > < span class = "plain" > (< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > ACTION_IANN< / span > < span class = "plain" > ) == 1)) {< / span >
< span class = "identifier" > TEMPORARY_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > blurg< / span > < span class = "plain" > );< / span >
< span class = "identifier" > WRITE_TO< / span > < span class = "plain" > (< / span > < span class = "identifier" > blurg< / span > < span class = "plain" > , < / span > < span class = "string" > "%SSub"< / span > < span class = "plain" > , < / span > < span class = "identifier" > con_name< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Str::delete_first_character< / span > < span class = "plain" > (< / span > < span class = "identifier" > blurg< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Str::delete_first_character< / span > < span class = "plain" > (< / span > < span class = "identifier" > blurg< / span > < span class = "plain" > );< / span >
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > IS< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::SymbolsTables::symbol_from_name< / span > < span class = "plain" > (< / span > < span class = "identifier" > Inter::Packages::scope_of< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > ), < / span > < span class = "identifier" > blurg< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > IS< / span > < span class = "plain" > ) < / span > < span class = "identifier" > Inter::Symbols::set_flag< / span > < span class = "plain" > (< / span > < span class = "identifier" > IS< / span > < span class = "plain" > , < / span > < span class = "identifier" > USED_MARK_BIT< / span > < span class = "plain" > );< / span >
< span class = "identifier" > DISCARD_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > blurg< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > log_elims< / span > < span class = "plain" > ) < / span > < span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "notes_made = %d\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > notes_made< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > log_elims< / span > < span class = "plain" > ) < / span > < span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "The following routines are unnecessary:\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > for< / span > < span class = "plain" > (< / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > j< / span > < span class = "plain" > =0; < / span > < span class = "identifier" > j< / span > < span class = "plain" > < < / span > < span class = "identifier" > no_repos< / span > < span class = "plain" > ; < / span > < span class = "identifier" > j< / span > < span class = "plain" > ++) {< / span >
< span class = "identifier" > inter_repository< / span > < span class = "plain" > *< / span > < span class = "identifier" > J< / span > < span class = "plain" > = < / span > < span class = "identifier" > repos< / span > < span class = "plain" > [< / span > < span class = "identifier" > j< / span > < span class = "plain" > ];< / span >
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > P< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > LOOP_THROUGH_FRAMES< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > J< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [< / span > < span class = "identifier" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > CONSTANT_IST< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::SymbolsTables::symbol_from_frame_data< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > DEFN_CONST_IFLD< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > Inter::Constant::is_routine< / span > < span class = "plain" > (< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > )) & & < / span >
< span class = "plain" > (< / span > < span class = "identifier" > Inter::Symbols::get_flag< / span > < span class = "plain" > (< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > USED_MARK_BIT< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > )) {< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > consecutives< / span > < span class = "plain" > = 0, < / span > < span class = "identifier" > keep_me< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > LOOP_THROUGH_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > , < / span > < span class = "identifier" > con_name< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > ) == < / span > < span class = "character" > '_'< / span > < span class = "plain" > ) < / span > < span class = "identifier" > consecutives< / span > < span class = "plain" > ++;< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > consecutives< / span > < span class = "plain" > > = 2) < / span > < span class = "identifier" > keep_me< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > consecutives< / span > < span class = "plain" > = 0;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > keep_me< / span > < span class = "plain" > == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > log_elims< / span > < span class = "plain" > ) < / span > < span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "-- %S %08x\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > con_name< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > con_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Inter::Nop::nop_out< / span > < span class = "plain" > (< / span > < span class = "identifier" > J< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > log_elims< / span > < span class = "plain" > ) < / span > < span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "The following table arrays are unnecessary:\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > for< / span > < span class = "plain" > (< / span > < span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > j< / span > < span class = "plain" > =0; < / span > < span class = "identifier" > j< / span > < span class = "plain" > < < / span > < span class = "identifier" > no_repos< / span > < span class = "plain" > ; < / span > < span class = "identifier" > j< / span > < span class = "plain" > ++) {< / span >
< span class = "identifier" > inter_repository< / span > < span class = "plain" > *< / span > < span class = "identifier" > J< / span > < span class = "plain" > = < / span > < span class = "identifier" > repos< / span > < span class = "plain" > [< / span > < span class = "identifier" > j< / span > < span class = "plain" > ];< / span >
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > P< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > LOOP_THROUGH_FRAMES< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > J< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [< / span > < span class = "identifier" > ID_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > CONSTANT_IST< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::SymbolsTables::symbol_from_frame_data< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > DEFN_CONST_IFLD< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > P< / span > < span class = "plain" > .< / span > < span class = "identifier" > data< / span > < span class = "plain" > [< / span > < span class = "identifier" > FORMAT_CONST_IFLD< / span > < span class = "plain" > ] == < / span > < span class = "identifier" > CONSTANT_INDIRECT_LIST< / span > < span class = "plain" > ) & & < / span >
< span class = "plain" > (< / span > < span class = "identifier" > Inter::Symbols::read_annotation< / span > < span class = "plain" > (< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > VERBARRAY_IANN< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) & & < / span >
< span class = "plain" > (< / span > < span class = "identifier" > Inter::Symbols::get_flag< / span > < span class = "plain" > (< / span > < span class = "identifier" > con_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > USED_MARK_BIT< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > )) {< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > consecutives< / span > < span class = "plain" > = 0, < / span > < span class = "identifier" > keep_me< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > LOOP_THROUGH_TEXT< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > , < / span > < span class = "identifier" > con_name< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::get< / span > < span class = "plain" > (< / span > < span class = "identifier" > pos< / span > < span class = "plain" > ) == < / span > < span class = "character" > '_'< / span > < span class = "plain" > ) < / span > < span class = "identifier" > consecutives< / span > < span class = "plain" > ++;< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > consecutives< / span > < span class = "plain" > > = 2) < / span > < span class = "identifier" > keep_me< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > consecutives< / span > < span class = "plain" > = 0;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > keep_me< / span > < span class = "plain" > == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > log_elims< / span > < span class = "plain" > ) < / span > < span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "-- %S\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > con_name< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Inter::Nop::nop_out< / span > < span class = "plain" > (< / span > < span class = "identifier" > J< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::Eliminate::keep< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_repository< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > N< / span > < span class = "plain" > ) {< / span >
2019-04-09 18:09:53 +03:00
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > S< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::SymbolsTables::symbol_from_name_in_main_or_basics< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > N< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > ) < / span > < span class = "identifier" > Inter::Symbols::set_flag< / span > < span class = "plain" > (< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > USED_MARK_BIT< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::Eliminate::note< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > S< / span > < span class = "plain" > , < / span > < span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > T< / span > < span class = "plain" > , < / span > < span class = "reserved" > void< / span > < span class = "plain" > *< / span > < span class = "identifier" > state< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_repository< / span > < span class = "plain" > *< / span > < span class = "identifier" > I< / span > < span class = "plain" > = (< / span > < span class = "identifier" > inter_repository< / span > < span class = "plain" > *) < / span > < span class = "identifier" > state< / span > < span class = "plain" > ;< / span >
2019-04-09 18:09:53 +03:00
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > Tdash< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::SymbolsTables::symbol_from_name_in_main_or_basics< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > T< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Tdash< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > Inter::Symbols::set_flag< / span > < span class = "plain" > (< / span > < span class = "identifier" > Tdash< / span > < span class = "plain" > , < / span > < span class = "identifier" > USED_MARK_BIT< / span > < span class = "plain" > );< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "identifier" > Inter::Symbols::set_flag< / span > < span class = "plain" > (< / span > < span class = "identifier" > T< / span > < span class = "plain" > , < / span > < span class = "identifier" > USED_MARK_BIT< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "identifier" > notes_made< / span > < span class = "plain" > ++;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function CodeGen::Eliminate::go is used in 1/sc (< a href = "1-sc.html#SP4" > § 4< / a > ).< / p >
< p class = "endnote" > The function CodeGen::Eliminate::keep appears nowhere else.< / p >
< p class = "endnote" > The function CodeGen::Eliminate::note appears nowhere else.< / p >
< hr class = "tocbar" >
2019-04-23 01:29:02 +03:00
< ul class = "toc" > < li > < a href = "2-rv.html" > Back to 'Reconcile Verbs'< / a > < / li > < li > < a href = "2-inv.html" > Continue with 'Inventory'< / a > < / li > < / ul > < hr class = "tocbar" >
2019-04-22 17:42:10 +03:00
<!-- End of weave -->
2019-03-17 14:40:57 +02:00
< / body >
< / html >