mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

diff options

Diffstat (limited to 'linux/133subx-widths.subx')

0 files changed, 0 insertions, 0 deletions

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - 039location_array.cc</title> <meta name="Generator" content="Vim/7.4"> <meta name="plugin-version" content="vim7.4_v2"> <meta name="syntax" content="cpp"> <meta name="settings" content="use_css,pre_wrap,no_foldcolumn,expand_tabs,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body> <pre id='vimCodeElement'> :(before "End Primitive Recipe Declarations") TO_LOCATION_ARRAY, :(before "End Primitive Recipe Numbers") put(Recipe_ordinal, "to-location-array", TO_LOCATION_ARRAY); :(before "End Primitive Recipe Checks") case TO_LOCATION_ARRAY: { const recipe& caller = get(Recipe, r); if (!is_address_of_array_of_numbers(inst.products.at(0))) { raise << maybe(caller.name) << "product of 'to-location-array' has incorrect type: '" << inst.original_string << "'\n" << end(); break; } break; } :(code) bool is_address_of_array_of_numbers(reagent/*copy*/ x) { canonize_type(x); if (!is_compound_type_starting_with(x.type, "address")) return false; drop_from_type(x, "address"); if (!is_compound_type_starting_with(x.type, "array")) return false; drop_from_type(x, "array"); return x.type && x.type->atom && x.type->value == get(Type_ordinal, "number"); } bool is_compound_type_starting_with(const type_tree* type, const string& expected_name) { if (!type) return false; if (type->atom) return false; if (!type->left->atom) return false; return type->left->value == get(Type_ordinal, expected_name); } :(before "End Primitive Recipe Implementations") case TO_LOCATION_ARRAY: { int array_size = SIZE(ingredients.at(0)); int allocation_size = array_size + /*refcount and length*/2; ensure_space(allocation_size); const int result = Current_routine->alloc; products.resize(1); products.at(0).push_back(result); // initialize array refcount put(Memory, result, 0); // initialize array length put(Memory, result+1, array_size); // now copy over data for (int i = 0; i < array_size; ++i) put(Memory, result+2+i, ingredients.at(0).at(i)); break; } </pre> </body> </html>


context:
space:
mode: