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 -->
2019-06-28 20:25:50 +03:00
< 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: Miscellaneous Pipeline Stages< / a > < / li > < li > < b > Eliminate Redundant Matter< / b > < / li > < / ul > < p class = "purpose" > To reconcile clashes between assimilated and originally generated verbs.< / p >
2019-03-17 14:40:57 +02:00
2019-06-11 01:06:40 +03:00
< ul class = "toc" > < li > < a href = "#SP1" > § 1. Pipeline stage< / a > < / li > < li > < a href = "#SP2" > § 2. Parsing< / a > < / li > < / ul > < hr class = "tocbar" >
2019-03-17 14:40:57 +02:00
2019-06-11 01:06:40 +03:00
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. Pipeline stage. < / b > < / p >
2019-03-17 14:40:57 +02:00
< pre class = "display" >
2019-06-11 01:06:40 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::Eliminate::create_pipeline_stage< / span > < span class = "plain" > (< / span > < span class = "reserved" > void< / span > < span class = "plain" > ) {< / span >
< span class = "functiontext" > CodeGen::Stage::new< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "string" > "eliminate-redundant-code"< / span > < span class = "plain" > , < / span > < span class = "functiontext" > CodeGen::Eliminate::run_pipeline_stage< / span > < span class = "plain" > , < / span > < span class = "constant" > NO_STAGE_ARG< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
2019-06-11 02:38:15 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::Eliminate::run_pipeline_stage< / span > < span class = "plain" > (< / span > < span class = "reserved" > pipeline_step< / span > < span class = "plain" > *< / span > < span class = "identifier" > step< / span > < span class = "plain" > ) {< / span >
2019-06-11 01:06:40 +03:00
< span class = "functiontext" > CodeGen::Eliminate::go< / span > < span class = "plain" > (< / span > < span class = "identifier" > step< / span > < span class = "plain" > -< / span > < span class = "element" > > repository< / span > < span class = "plain" > );< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
2019-06-26 19:27:54 +03:00
< p class = "endnote" > The function CodeGen::Eliminate::create_pipeline_stage is used in 1/stg (< a href = "1-stg.html#SP2" > § 2< / a > ).< / p >
2019-06-11 01:06:40 +03:00
< p class = "endnote" > The function CodeGen::Eliminate::run_pipeline_stage appears nowhere else.< / p >
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. Parsing. < / b > < / p >
< pre class = "display" >
2019-07-16 02:03:09 +03:00
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "functiontext" > CodeGen::Eliminate::endpoint< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > to< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > while< / span > < span class = "plain" > ((< / span > < span class = "identifier" > to< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > to< / span > < span class = "plain" > -> < / span > < span class = "identifier" > equated_to< / span > < span class = "plain" > )) < / span > < span class = "identifier" > to< / span > < span class = "plain" > = < / span > < span class = "identifier" > to< / span > < span class = "plain" > -> < / span > < span class = "identifier" > equated_to< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > to< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::Eliminate::require< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > witness< / span > < span class = "plain" > , < / span > < span class = "identifier" > text_stream< / span > < span class = "plain" > *< / span > < span class = "identifier" > reason< / span > < span class = "plain" > ) {< / span >
2019-06-11 01:06:40 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_flags< / span > < span class = "plain" > ) & < / span > < span class = "identifier" > USED_PACKAGE_FLAG< / span > < span class = "plain" > ) < / span > < span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_flags< / span > < span class = "plain" > |= < / span > < span class = "identifier" > USED_PACKAGE_FLAG< / span > < span class = "plain" > ;< / span >
2019-07-16 02:03:09 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > witness< / span > < span class = "plain" > ) < / span > < span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "Need $6 because of $3 (because %S)\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > witness< / span > < span class = "plain" > , < / span > < span class = "identifier" > reason< / span > < span class = "plain" > );< / span >
< span class = "reserved" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "Need $6 (because %S)\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > reason< / span > < span class = "plain" > );< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > template_mode< / 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" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "template"< / span > < span class = "plain" > )) < / span > < span class = "identifier" > template_mode< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
2019-06-11 01:06:40 +03:00
< span class = "identifier" > inter_symbols_table< / span > < span class = "plain" > *< / span > < span class = "identifier" > tab< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Packages::scope< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / 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" > i< / span > < span class = "plain" > =0; < / span > < span class = "identifier" > i< / span > < span class = "plain" > < < / span > < span class = "identifier" > tab< / span > < span class = "plain" > -> < / span > < span class = "identifier" > size< / span > < span class = "plain" > ; < / span > < span class = "identifier" > i< / span > < span class = "plain" > ++) {< / span >
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > symb< / span > < span class = "plain" > = < / span > < span class = "identifier" > tab< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_array< / span > < span class = "plain" > [< / span > < span class = "identifier" > i< / span > < span class = "plain" > ];< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > symb< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > -> < / span > < span class = "identifier" > equated_to< / span > < span class = "plain" > )) {< / span >
2019-07-16 02:03:09 +03:00
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > to< / span > < span class = "plain" > = < / span > < span class = "functiontext" > CodeGen::Eliminate::endpoint< / span > < span class = "plain" > (< / span > < span class = "identifier" > symb< / span > < span class = "plain" > );< / span >
< span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > needed< / span > < span class = "plain" > = < / span > < span class = "identifier" > to< / span > < span class = "plain" > -> < / span > < span class = "identifier" > owning_table< / span > < span class = "plain" > -> < / span > < span class = "identifier" > owning_package< / span > < span class = "plain" > ;< / span >
< span class = "comment" > inter_package *needed = NULL;< / span >
< span class = "comment" > inter_symbol *cb = Inter::Constant::code_block(to);< / span >
< span class = "comment" > LOG("To 3 cb 3\n", to, cb);< / span >
< span class = "comment" > if (cb) needed = Inter::Package::which(cb);< / span >
< span class = "comment" > else needed = to-> owning_table-> owning_package;< / span >
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > follow< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > template_mode< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Packages::type< / span > < span class = "plain" > (< / span > < span class = "identifier" > needed< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "_function"< / span > < span class = "plain" > )))< / span >
< span class = "identifier" > follow< / span > < span class = "plain" > = < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > follow< / span > < span class = "plain" > )< / span >
< span class = "functiontext" > CodeGen::Eliminate::require< / span > < span class = "plain" > (< / span > < span class = "identifier" > needed< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "it's an external symbol"< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
2019-06-11 01:06:40 +03:00
< span class = "plain" > }< / span >
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Packages::type< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "_function"< / span > < span class = "plain" > ))) {< / span >
2019-07-13 16:17:48 +03:00
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Symbols::defining_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOOP_THROUGH_INTER_CHILDREN< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > , < / span > < span class = "identifier" > D< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / 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" > PACKAGE_IST< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Package::defined_by_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > );< / span >
2019-07-16 02:03:09 +03:00
< span class = "functiontext" > CodeGen::Eliminate::require< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "it's a _function block"< / span > < span class = "plain" > );< / span >
2019-07-13 16:17:48 +03:00
< span class = "plain" > }< / span >
2019-06-11 01:06:40 +03:00
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "_action"< / span > < span class = "plain" > ))) {< / span >
2019-07-13 16:17:48 +03:00
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Symbols::defining_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOOP_THROUGH_INTER_CHILDREN< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > , < / span > < span class = "identifier" > D< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / 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" > PACKAGE_IST< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Package::defined_by_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > );< / span >
2019-07-16 02:03:09 +03:00
< span class = "functiontext" > CodeGen::Eliminate::require< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "it's an _action subpackage"< / span > < span class = "plain" > );< / span >
2019-07-13 16:17:48 +03:00
< span class = "plain" > }< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
2019-06-26 11:05:27 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "_to_phrase"< / span > < span class = "plain" > ))) {< / span >
2019-07-13 16:17:48 +03:00
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Symbols::defining_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOOP_THROUGH_INTER_CHILDREN< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > , < / span > < span class = "identifier" > D< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / 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" > PACKAGE_IST< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Package::defined_by_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > );< / span >
2019-07-16 02:03:09 +03:00
< span class = "identifier" > LOG_INDENT< / span > < span class = "plain" > ;< / span >
< span class = "functiontext" > CodeGen::Eliminate::require< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "it's a to phrase subpackage"< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOG_OUTDENT< / span > < span class = "plain" > ;< / span >
2019-07-13 16:17:48 +03:00
< span class = "plain" > }< / span >
2019-06-26 11:05:27 +03:00
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
2019-06-11 01:06:40 +03:00
< span class = "plain" > }< / span >
< 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" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > elims_made< / 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 >
2019-07-16 02:03:09 +03:00
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > Main_block< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::SymbolsTables::url_name_to_symbol< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "/main/template/functions/Main_fn"< / span > < span class = "plain" > );< / span >
2019-06-11 01:06:40 +03:00
< span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > Main_package< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Package::which< / span > < span class = "plain" > (< / span > < span class = "identifier" > Main_block< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Main_package< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "Eliminate failed: can't find Main code block\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-07-16 02:03:09 +03:00
< span class = "identifier" > elims_made< / span > < span class = "plain" > = < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "Go...\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > CodeGen::Eliminate::require< / span > < span class = "plain" > (< / span > < span class = "identifier" > Main_package< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "it's Main!"< / span > < span class = "plain" > );< / span >
2019-07-08 13:21:00 +03:00
< span class = "functiontext" > CodeGen::Eliminate::require_these_too< / span > < span class = "plain" > (< / span > < span class = "identifier" > Inter::Packages::main< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ));< / span >
< span class = "functiontext" > CodeGen::Eliminate::eliminate_unused< / span > < span class = "plain" > (< / span > < span class = "identifier" > Inter::Packages::main< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > ));< / span >
2019-07-13 19:15:26 +03:00
< span class = "identifier" > Inter::traverse_tree< / span > < span class = "plain" > (< / span > < span class = "identifier" > I< / span > < span class = "plain" > , < / span > < span class = "functiontext" > CodeGen::Eliminate::variable_visitor< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , 0);< / span >
2019-07-08 13:21:00 +03:00
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::Eliminate::require_these_too< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > pack< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Packages::type< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "_action"< / span > < span class = "plain" > ))) {< / span >
2019-07-16 02:03:09 +03:00
< span class = "functiontext" > CodeGen::Eliminate::require< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "it's an _action package"< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
2019-07-08 13:21:00 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "_command"< / span > < span class = "plain" > ))) {< / span >
2019-07-16 02:03:09 +03:00
< span class = "functiontext" > CodeGen::Eliminate::require< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "it's a _command package"< / span > < span class = "plain" > );< / span >
2019-07-08 13:21:00 +03:00
< span class = "plain" > }< / span >
2019-07-16 02:03:09 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "SL_Score_Moves_fn"< / span > < span class = "plain" > ))< / span >
< span class = "functiontext" > CodeGen::Eliminate::require< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "it's the score/moves exception"< / span > < span class = "plain" > );< / span >
2019-07-08 13:21:00 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "SL_Score_Moves_B"< / span > < span class = "plain" > ))< / span >
2019-07-16 02:03:09 +03:00
< span class = "functiontext" > CodeGen::Eliminate::require< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > , < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "it's the score/moves exception"< / span > < span class = "plain" > );< / span >
2019-07-13 16:17:48 +03:00
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Symbols::defining_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOOP_THROUGH_INTER_CHILDREN< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > , < / span > < span class = "identifier" > D< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / 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" > PACKAGE_IST< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Package::defined_by_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > CodeGen::Eliminate::require_these_too< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
2019-07-08 13:21:00 +03:00
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::Eliminate::eliminate_unused< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > pack< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > pack< / span > < span class = "plain" > ) & & ((< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_flags< / span > < span class = "plain" > & < / span > < span class = "identifier" > USED_PACKAGE_FLAG< / span > < span class = "plain" > ) == 0)) {< / span >
2019-07-16 02:03:09 +03:00
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Packages::type< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "Not used: $3 type %S\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > ptype< / 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" > ptype< / span > < span class = "plain" > ) & & (< / span > < span class = "identifier" > Str::eq< / span > < span class = "plain" > (< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > I< / span > < span class = "string" > "_function"< / span > < span class = "plain" > ))) {< / span >
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Symbols::defining_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "Striking function $3\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Inter::Frame::remove_from_tree< / span > < span class = "plain" > (< / span > < span class = "identifier" > D< / span > < span class = "plain" > );< / span >
< span class = "reserved" > return< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< span class = "comment" > CodeGen::Eliminate::remove_package(pack);< / span >
< span class = "plain" > } < / span > < span class = "reserved" > else< / span > < span class = "plain" > {< / span >
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > ptype< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Packages::type< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "Used: $3 type %S\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > , < / span > < span class = "identifier" > ptype< / span > < span class = "plain" > -> < / span > < span class = "identifier" > symbol_name< / span > < span class = "plain" > );< / span >
2019-07-08 13:21:00 +03:00
< span class = "plain" > }< / span >
2019-07-13 16:17:48 +03:00
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Symbols::defining_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > );< / span >
2019-07-16 02:03:09 +03:00
< span class = "identifier" > PROTECTED_LOOP_THROUGH_INTER_CHILDREN< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > , < / span > < span class = "identifier" > D< / span > < span class = "plain" > ) {< / span >
2019-07-13 16:17:48 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / 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" > PACKAGE_IST< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Package::defined_by_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > );< / span >
< span class = "functiontext" > CodeGen::Eliminate::eliminate_unused< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
2019-07-08 13:21:00 +03:00
< span class = "plain" > }< / span >
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::Eliminate::variable_visitor< / 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_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > P< / 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 = "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" > VARIABLE_IST< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > outer< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Packages::container< / span > < span class = "plain" > (< / span > < span class = "identifier" > P< / span > < span class = "plain" > );< / span >
< span class = "reserved" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > outer< / span > < span class = "plain" > ) & & (< / span > < span class = "functiontext" > CodeGen::Eliminate::gone< / span > < span class = "plain" > (< / span > < span class = "identifier" > outer< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > ))) {< / span >
< span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > var_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_VAR_IFLD< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "Striking variable $3\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > var_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Inter::Symbols::strike_definition< / span > < span class = "plain" > (< / span > < span class = "identifier" > var_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > Inter::Symbols::remove_from_table< / span > < span class = "plain" > (< / span > < span class = "identifier" > var_name< / span > < span class = "plain" > );< / span >
2019-03-17 14:40:57 +02:00
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
2019-06-29 19:36:49 +03:00
< span class = "reserved" > void< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::Eliminate::remove_package< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > pack< / span > < span class = "plain" > ) {< / span >
2019-07-13 16:17:48 +03:00
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_frame< / span > < span class = "plain" > < / span > < span class = "identifier" > D< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Symbols::defining_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > pack< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_name< / span > < span class = "plain" > );< / span >
< span class = "identifier" > LOOP_THROUGH_INTER_CHILDREN< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / span > < span class = "plain" > , < / span > < span class = "identifier" > D< / span > < span class = "plain" > ) {< / span >
< span class = "reserved" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / 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" > PACKAGE_IST< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > inter_package< / span > < span class = "plain" > *< / span > < span class = "identifier" > P< / span > < span class = "plain" > = < / span > < span class = "identifier" > Inter::Package::defined_by_frame< / span > < span class = "plain" > (< / span > < span class = "identifier" > C< / 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" > P< / span > < span class = "plain" > -> < / span > < span class = "identifier" > package_flags< / span > < span class = "plain" > & < / span > < span class = "identifier" > USED_PACKAGE_FLAG< / span > < span class = "plain" > ) != 0)) {< / span >
< span class = "identifier" > LOG< / span > < span class = "plain" > (< / span > < span class = "string" > "Warning: eliminating necessary $6\< / span > < span class = "plain" > n< / span > < span class = "string" > "< / span > < span class = "plain" > , < / span > < span class = "identifier" > P< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
2019-06-29 19:36:49 +03:00
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
< span class = "plain" > }< / span >
2019-06-11 01:06:40 +03:00
< span class = "reserved" > int< / span > < span class = "plain" > < / span > < span class = "functiontext" > CodeGen::Eliminate::gone< / span > < span class = "plain" > (< / span > < span class = "identifier" > inter_symbol< / span > < span class = "plain" > *< / span > < span class = "identifier" > code_block< / span > < span class = "plain" > ) {< / span >
2019-07-16 02:03:09 +03:00
< span class = "comment" > inter_package *which = Inter::Package::which(code_block);< / span >
< span class = "comment" > if ((elims_made) & & (which) & & ((which-> package_flags & USED_PACKAGE_FLAG) == 0))< / span >
< span class = "comment" > return TRUE;< / span >
2019-06-11 01:06:40 +03:00
< span class = "reserved" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2019-03-17 14:40:57 +02:00
< / pre >
< p class = "inwebparagraph" > < / p >
2019-07-16 02:03:09 +03:00
< p class = "endnote" > The function CodeGen::Eliminate::endpoint appears nowhere else.< / p >
2019-06-11 01:06:40 +03:00
< p class = "endnote" > The function CodeGen::Eliminate::require appears nowhere else.< / p >
< p class = "endnote" > The function CodeGen::Eliminate::go is used in < a href = "#SP1" > § 1< / a > .< / p >
2019-07-08 13:21:00 +03:00
< p class = "endnote" > The function CodeGen::Eliminate::require_these_too appears nowhere else.< / p >
< p class = "endnote" > The function CodeGen::Eliminate::eliminate_unused appears nowhere else.< / p >
< p class = "endnote" > The function CodeGen::Eliminate::variable_visitor appears nowhere else.< / p >
2019-06-29 19:36:49 +03:00
< p class = "endnote" > The function CodeGen::Eliminate::remove_package appears nowhere else.< / p >
2019-07-10 12:27:52 +03:00
< p class = "endnote" > The function CodeGen::Eliminate::gone is used in 4/fc (< a href = "4-fc.html#SP1" > § 1< / a > ), 4/cal (< a href = "4-cal.html#SP4" > § 4< / a > ).< / p >
2019-03-17 14:40:57 +02:00
< hr class = "tocbar" >
2019-06-11 02:38:15 +03:00
< ul class = "toc" > < li > < a href = "2-rv.html" > Back to 'Reconcile Verbs'< / a > < / li > < li > < a href = "2-erl.html" > Continue with 'Eliminate Redundant Labels'< / 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 >