source: icGREP/icgrep-devel/icgrep/generate_predefined_ucd_functions.cpp @ 4775

Last change on this file since 4775 was 4775, checked in by nmedfort, 4 years ago

Work towards testing reassociation + multiplexing.

File size: 22.7 KB
Line 
1/*
2 *  Copyright (c) 2015 International Characters.
3 *  This software is licensed to the public under the Open Software License 3.0.
4 *  icgrep is a trademark of International Characters.
5 */
6
7#include <cc/cc_compiler.h>
8#include <UCD/unicode_set.h>
9#include <UCD/PropertyObjectTable.h>
10#include <UCD/ucd_compiler.hpp>
11#include <pablo/pablo_compiler.h>
12#include <pablo/builder.hpp>
13#include <pablo/function.h>
14#include <llvm/Support/CommandLine.h>
15#include <utf_encoding.h>
16#include <pablo/analysis/pabloverifier.hpp>
17#include <pablo/optimizers/pablo_simplifier.hpp>
18#include <pablo/optimizers/pablo_codesinking.hpp>
19#ifdef ENABLE_MULTIPLEXING
20#include <pablo/optimizers/pablo_bddminimization.h>
21#include <pablo/optimizers/pablo_automultiplexing.hpp>
22#endif
23#include <pablo/optimizers/booleanreassociationpass.h>
24#include <llvm/IR/Verifier.h>
25#include <llvm/Support/Debug.h>
26#include <llvm/Support/TargetRegistry.h>
27#include <llvm/Support/TargetSelect.h>
28#include <llvm/Target/TargetLibraryInfo.h>
29#include <llvm/Target/TargetMachine.h>
30#include <llvm/Support/Host.h>
31#include <llvm/ADT/Triple.h>
32#include <llvm/Support/ToolOutputFile.h>
33#include <llvm/Pass.h>
34#include <llvm/PassManager.h>
35#include <llvm/ADT/STLExtras.h>
36#include <llvm/Target/TargetSubtargetInfo.h>
37#include <llvm/Support/FormattedStream.h>
38#include "llvm/Support/FileSystem.h"
39#include <llvm/Transforms/Scalar.h>
40#include <llvm/Support/raw_ostream.h>
41#include <llvm/Analysis/DependenceAnalysis.h>
42#include <boost/container/flat_map.hpp>
43#include <queue>
44#include <unordered_map>
45#include <pablo/printer_pablos.h>
46#include <llvm/Analysis/PostDominators.h>
47
48using namespace pablo;
49using namespace UCD;
50using namespace cc;
51using namespace llvm;
52using namespace boost::container;
53
54enum IfHierarchy {DefaultIfHierarchy, NoIfHierarchy};
55
56static cl::opt<std::string>
57ObjectFilename("o", cl::desc("Output object filename"), cl::value_desc("filename"), cl::Required);
58
59static cl::opt<std::string>
60UCDSourcePath("dir", cl::desc("UCD source code directory"), cl::value_desc("directory"), cl::Required);
61
62static cl::opt<std::string>
63PrintLongestDependenceChain("ldc", cl::desc("print longest dependency chain metrics."), cl::value_desc("filename"));
64
65static cl::opt<IfHierarchy> IfHierarchyStrategy(cl::desc("If Hierarchy strategy:"),
66                                                cl::values(clEnumVal(DefaultIfHierarchy, "Default"),
67                                                           clEnumVal(NoIfHierarchy, "None"),
68                                                           clEnumValEnd));
69
70static cl::opt<bool> EnableReassociation("reassoc", cl::init(false),
71                                      cl::desc("Enable reassociation and distribution optimization of Boolean functions."), cl::Optional);
72
73
74static raw_fd_ostream * LongestDependenceChainFile = nullptr;
75
76#ifdef ENABLE_MULTIPLEXING
77static cl::opt<bool> EnableMultiplexing("multiplexing", cl::init(false),
78    cl::desc("combine Advances whose inputs are mutual exclusive into the fewest number of advances possible (expensive)."));
79
80static cl::opt<std::string>
81MultiplexingDistribution("multiplexing-dist",
82    cl::desc("Generate a CSV containing the # of Advances found in each UCD function before and after applying multiplexing."),
83    cl::value_desc("filename"));
84
85static raw_fd_ostream * MultiplexingDistributionFile = nullptr;
86#else
87const bool EnableMultiplexing = false;
88#endif
89
90using property_list = std::vector<std::string>;
91
92/** ------------------------------------------------------------------------------------------------------------- *
93 * @brief getNumOfAdvances
94 ** ------------------------------------------------------------------------------------------------------------- */
95unsigned getNumOfAdvances(const PabloBlock & entry) {
96    unsigned advances = 0;
97    for (const Statement * stmt : entry ) {
98        if (isa<Advance>(stmt)) {
99            ++advances;
100        }
101        else if (LLVM_UNLIKELY(isa<If>(stmt) || isa<While>(stmt))) {
102            advances += getNumOfAdvances(isa<If>(stmt) ? cast<If>(stmt)->getBody() : cast<While>(stmt)->getBody());
103        }
104    }
105    return advances;
106}
107
108/** ------------------------------------------------------------------------------------------------------------- *
109 * @brief computePabloDependencyMetrics
110 ** ------------------------------------------------------------------------------------------------------------- */
111unsigned computePabloDependencyChainMetrics(const PabloBlock & b, std::unordered_map<const PabloAST *, unsigned> & G) {
112    unsigned lpl = 0;
113    flat_map<const PabloAST *, unsigned> L;
114    for (const Statement * stmt : b) {
115        unsigned local_lpl = 0;
116        unsigned global_lpl = 0;
117        for (unsigned i = 0; i != stmt->getNumOperands(); ++i) {
118            const PabloAST * const op = stmt->getOperand(i);
119            if (isa<String>(op) || isa<Integer>(op)) {
120                continue;
121            }
122            const auto l = L.find(op);
123            if (l != L.end()) {
124                local_lpl = std::max<unsigned>(local_lpl, l->second);
125            }
126            const auto g = G.find(op);
127            if (LLVM_UNLIKELY(g == G.end())) {
128                throw std::runtime_error("Could not find dependency chain length for all operands!");
129            }
130            global_lpl = std::max<unsigned>(global_lpl, g->second);
131        }
132        L.emplace(stmt, local_lpl + 1);
133        G.insert(std::make_pair(stmt, global_lpl + 1));
134        if (LLVM_UNLIKELY(isa<If>(stmt) || isa<While>(stmt))) {
135            for (const auto & l : L) {
136                lpl = std::max(lpl, l.second);
137            }
138            L.clear();
139            lpl = std::max(lpl, computePabloDependencyChainMetrics(isa<If>(stmt) ? cast<If>(stmt)->getBody() : cast<While>(stmt)->getBody(), G));
140        }
141    }
142    return lpl;
143}
144
145/** ------------------------------------------------------------------------------------------------------------- *
146 * @brief computePabloDependencyMetrics
147 ** ------------------------------------------------------------------------------------------------------------- */
148std::pair<unsigned, unsigned> computePabloDependencyChainMetrics(const PabloFunction * f) {
149    std::unordered_map<const PabloAST *, unsigned> G;
150    G.insert(std::make_pair(f->getEntryBlock().createZeroes(), 0));
151    G.insert(std::make_pair(f->getEntryBlock().createOnes(), 0));
152    for (unsigned i = 0; i != f->getNumOfParameters(); ++i) {
153        G.insert(std::make_pair(f->getParameter(i), 0));
154    }
155    const unsigned local_lpl = computePabloDependencyChainMetrics(f->getEntryBlock(), G);
156    unsigned global_lpl = 0;
157    for (unsigned i = 0; i != f->getNumOfResults(); ++i) {
158        const auto e = G.find(f->getResult(i));
159        if (e == G.end()) {
160            throw std::runtime_error("No result computed!");
161        }
162        global_lpl = std::max<unsigned>(global_lpl, e->second);
163    }
164    return std::make_pair(global_lpl, local_lpl);
165}
166
167/** ------------------------------------------------------------------------------------------------------------- *
168 * @brief computeLLVMDependencyMetrics
169 ** ------------------------------------------------------------------------------------------------------------- */
170unsigned computeLLVMDependencyChainMetrics(const DomTreeNode * t, std::unordered_map<const Value *, unsigned> & G) {
171    unsigned lpl = 0;
172    if (true) {
173        flat_map<const Value *, unsigned> L;
174        const BasicBlock * b = t->getBlock();
175        for (auto itr = b->rbegin(); itr != b->rend(); ++itr) {
176            unsigned local_lpl = 0;
177            unsigned global_lpl = 0;
178            const Instruction & inst = *itr;
179            for (const Value * user : inst.users()) {
180                if (LLVM_LIKELY(isa<Instruction>(user))) {
181                    const auto l = L.find(user);
182                    if (l != L.end()) {
183                        local_lpl = std::max<unsigned>(local_lpl, l->second);
184                    }
185                    const auto g = G.find(user);
186                    if (LLVM_UNLIKELY(g == G.end())) {
187                        throw std::runtime_error("Could not find chain length for all users!");
188                    }
189                    global_lpl = std::max<unsigned>(global_lpl, g->second);
190                }
191            }
192            L.emplace(&inst, local_lpl + 1);
193            G.insert(std::make_pair(&inst, global_lpl + 1));
194            lpl = std::max(lpl, local_lpl + 1);
195        }
196    }
197    for (const DomTreeNode * pt : *t) {
198        lpl = std::max(lpl, computeLLVMDependencyChainMetrics(pt, G));
199    }
200    return lpl;
201}
202
203/** ------------------------------------------------------------------------------------------------------------- *
204 * @brief computeLLVMDependencyMetrics
205 ** ------------------------------------------------------------------------------------------------------------- */
206std::pair<unsigned, unsigned> computeLLVMDependencyChainMetrics(llvm::Function * f) {
207    std::unordered_map<const llvm::Value *, unsigned> G;
208
209    auto itr = f->getArgumentList().begin();
210    const Argument & input = *itr++;
211    const Argument & output = *itr;
212    for (const User * user : output.users()) {
213        G.insert(std::make_pair(user, 0));
214    }
215
216    PostDominatorTree dt;
217    dt.runOnFunction(*f);
218    const unsigned local_lpl = computeLLVMDependencyChainMetrics(dt.getRootNode(), G);
219    dt.releaseMemory();
220
221    unsigned global_lpl = 0;
222    for (const User * user : input.users()) {
223        const auto e = G.find(user);
224        if (e == G.end()) {
225            throw std::runtime_error("No result computed!");
226        }
227        global_lpl = std::max<unsigned>(global_lpl, e->second);
228    }
229    return std::make_pair(global_lpl, local_lpl);
230}
231
232/** ------------------------------------------------------------------------------------------------------------- *
233 * @brief compileUnicodeSet
234 ** ------------------------------------------------------------------------------------------------------------- */
235void compileUnicodeSet(std::string name, const UnicodeSet & set, PabloCompiler & pc, Module * module) {
236    #ifdef ENABLE_MULTIPLEXING
237    if (MultiplexingDistributionFile) {
238        (*MultiplexingDistributionFile) << name;
239    }
240    #endif
241    if (LongestDependenceChainFile) {
242        (*LongestDependenceChainFile) << name;
243    }
244    std::cerr << name << std::endl;
245
246    PabloFunction * function = PabloFunction::Create(std::move(name), 8, 1);
247    Encoding encoding(Encoding::Type::UTF_8, 8);
248    CC_Compiler ccCompiler(*function, encoding);
249    UCDCompiler ucdCompiler(ccCompiler);
250    PabloBuilder builder(function->getEntryBlock());
251    // Build the unicode set function
252    PabloAST * result = nullptr;
253    if (IfHierarchyStrategy == IfHierarchy::DefaultIfHierarchy) {
254        result = ucdCompiler.generateWithDefaultIfHierarchy(set, builder);
255    } else if (IfHierarchyStrategy == IfHierarchy::NoIfHierarchy) {
256        result = ucdCompiler.generateWithoutIfHierarchy(set, builder);
257    } else {
258        throw std::runtime_error("Unknown if hierarchy strategy!");
259    }
260    function->setResult(0, builder.createAssign("matches", result));
261    // Optimize it at the pablo level
262    Simplifier::optimize(*function);
263    CodeSinking::optimize(*function);
264
265    #ifdef ENABLE_MULTIPLEXING
266    BDDMinimizationPass::optimize(*function);
267    if (EnableMultiplexing) {
268        if (LongestDependenceChainFile) {
269            const auto pablo_metrix = computePabloDependencyChainMetrics(function);
270            (*LongestDependenceChainFile) << ',' << pablo_metrix.first << ',' << pablo_metrix.second;
271            Module module("tmp", getGlobalContext());
272            llvm::Function * func = pc.compile(function, &module);
273            const auto llvm_metrix = computeLLVMDependencyChainMetrics(func);
274            (*LongestDependenceChainFile) << ',' << llvm_metrix.first << ',' << llvm_metrix.second;
275        }
276
277        if (MultiplexingDistributionFile) {
278            (*MultiplexingDistributionFile) << ',' << getNumOfAdvances(function->getEntryBlock());
279        }
280        AutoMultiplexing::optimize(*function);
281        if (MultiplexingDistributionFile) {
282            (*MultiplexingDistributionFile) << ',' << getNumOfAdvances(function->getEntryBlock()) << '\n';
283        }
284    }
285    #endif
286    if (EnableReassociation) {
287        BooleanReassociationPass::optimize(*function);
288    }
289
290    // Now compile the function ...
291    llvm::Function * func = pc.compile(function, module);
292    releaseSlabAllocatorMemory();
293
294    if (LongestDependenceChainFile) {
295        const auto pablo_metrix = computePabloDependencyChainMetrics(function);
296        (*LongestDependenceChainFile) << ',' << pablo_metrix.first << ',' << pablo_metrix.second;
297        const auto llvm_metrix = computeLLVMDependencyChainMetrics(func);
298        (*LongestDependenceChainFile) << ',' << llvm_metrix.first << ',' << llvm_metrix.second << '\n';
299    }
300
301}
302
303/** ------------------------------------------------------------------------------------------------------------- *
304 * @brief writePropertyInstaller
305 ** ------------------------------------------------------------------------------------------------------------- */
306
307void writePrecompiledProperties(property_list && properties) {
308
309    const std::string headerFilename = UCDSourcePath + "/precompiled_properties.h";
310    #ifdef USE_LLVM_3_5
311    std::string error;
312    raw_fd_ostream header(headerFilename.c_str(), error, sys::fs::F_None);
313    if (!error.empty()) {
314        throw std::runtime_error(error);
315    }
316    #else
317    std::error_code error;
318    raw_fd_ostream header(headerFilename, error, sys::fs::F_None);
319    if (error) {
320        throw std::runtime_error(error.message());
321    }
322    #endif
323
324    header << "#ifndef PRECOMPILED_PROPERTIES\n";
325    header << "#define PRECOMPILED_PROPERTIES\n\n";
326    header << "#include <string>\n\n";
327    header << "#include <tuple>\n";
328    header << "namespace UCD {\n\n";
329    header << "using ExternalProperty = std::tuple<void *, unsigned, unsigned>;\n\n";
330    header << "const ExternalProperty & resolveExternalProperty(const std::string & name);\n\n";
331    header << "}\n\n";
332    header << "#endif\n";
333    header.close();
334
335    const std::string cppFilename = UCDSourcePath + "/precompiled_properties.cpp";
336    #ifdef USE_LLVM_3_5
337    raw_fd_ostream cpp(cppFilename.c_str(), error, sys::fs::F_None);
338    if (!error.empty()) {
339        throw std::runtime_error(error);
340    }
341    #else
342    raw_fd_ostream cpp(cppFilename, error, sys::fs::F_None);
343    if (error) {
344        throw std::runtime_error(error.message());
345    }
346    #endif
347
348    cpp << "#include \"precompiled_properties.h\"\n";
349    cpp << "#include <include/simd-lib/bitblock.hpp>\n";
350    cpp << "#include <stdexcept>\n";
351    cpp << "#include <unordered_map>\n\n";
352    cpp << "namespace UCD {\nnamespace {\n\n";
353    cpp << "struct Input {\n    BitBlock bit[8];\n};\n\n";
354    cpp << "struct Output {\n    BitBlock bit[1];\n};\n\n";
355    for (auto prop : properties) {
356        cpp << "extern \"C\" void " + prop + "(const Input &, Output &);\n";
357    }
358
359    cpp << "\nconst static std::unordered_map<std::string, ExternalProperty> EXTERNAL_UCD_PROPERTY_MAP = {\n";
360    for (auto itr = properties.begin(); itr != properties.end(); ) {
361        cpp << "    {\"" + *itr + "\", std::make_tuple(reinterpret_cast<void *>(&" + *itr + "), 8, 1)}";
362        if (++itr != properties.end()) {
363            cpp << ",";
364        }
365        cpp << "\n";
366    }
367    cpp << "};\n\n} // end of anonymous namespace\n\n";
368
369    cpp << "const ExternalProperty & resolveExternalProperty(const std::string & name) {\n";
370    cpp << "    auto f = EXTERNAL_UCD_PROPERTY_MAP.find(name);\n";
371    cpp << "    if (f == EXTERNAL_UCD_PROPERTY_MAP.end())\n";
372    cpp << "        throw std::runtime_error(\"No external property named \\\"\" + name + \"\\\" found!\");\n";
373    cpp << "    return f->second;\n";
374    cpp << "}\n\n} // end of UCD namespace\n";
375
376    cpp.close();
377
378}
379
380/** ------------------------------------------------------------------------------------------------------------- *
381 * @brief generateUCDModule
382 ** ------------------------------------------------------------------------------------------------------------- */
383Module * generateUCDModule() {
384
385    property_list properties;
386
387    PabloCompiler pc;
388    Module * module = new Module("ucd", getGlobalContext());
389    for (PropertyObject * obj : property_object_table) {
390        if (EnumeratedPropertyObject * enumObj = dyn_cast<EnumeratedPropertyObject>(obj)) {
391            for (const std::string value : *enumObj) {
392                const UnicodeSet & set = enumObj->GetCodepointSet(canonicalize_value_name(value));
393                std::string name = "__get_" + property_enum_name[enumObj->getPropertyCode()] + "_" + value;
394                compileUnicodeSet(name, set, pc, module);
395                properties.emplace_back(name);
396            }
397        }
398        else if (ExtensionPropertyObject * extObj = dyn_cast<ExtensionPropertyObject>(obj)) {
399            for (const std::string value : *extObj) {
400                const UnicodeSet & set = extObj->GetCodepointSet(canonicalize_value_name(value));
401                std::string name = "__get_" + property_enum_name[extObj->getPropertyCode()] + "_" + value;
402                compileUnicodeSet(name, set, pc, module);
403                properties.emplace_back(name);
404            }
405        }
406        else if (BinaryPropertyObject * binObj = dyn_cast<BinaryPropertyObject>(obj)) {
407            const UnicodeSet & set = binObj->GetCodepointSet(Binary_ns::Y);
408            std::string name = "__get_" + property_enum_name[binObj->getPropertyCode()] + "_Y";
409            compileUnicodeSet(name, set, pc, module);
410            properties.emplace_back(name);
411        }
412    }
413
414    // Print an error message if our module is malformed in any way.
415    verifyModule(*module, &dbgs());
416
417    writePrecompiledProperties(std::move(properties));
418
419    return module;
420}
421
422/** ------------------------------------------------------------------------------------------------------------- *
423 * @brief compileUCDModule
424 ** ------------------------------------------------------------------------------------------------------------- */
425void compileUCDModule(Module * module) {
426    Triple TheTriple;
427
428    TheTriple.setTriple(sys::getDefaultTargetTriple());
429
430    // Get the target specific parser.
431    std::string msg;
432    const Target * TheTarget = TargetRegistry::lookupTarget(TheTriple.getTriple(), msg);
433    if (TheTarget == nullptr) {
434        throw std::runtime_error(msg);
435    }
436
437    TargetOptions Options;
438
439    std::unique_ptr<TargetMachine> Target(
440                TheTarget->createTargetMachine(TheTriple.getTriple(), sys::getHostCPUName(), "", Options,
441                                               Reloc::Default, CodeModel::Small, CodeGenOpt::Aggressive));
442
443    if (Target == nullptr) {
444        throw std::runtime_error("Could not allocate target machine!");
445    }
446
447    #ifdef USE_LLVM_3_5
448    std::string error;
449    std::unique_ptr<tool_output_file> out = make_unique<tool_output_file>(ObjectFilename.c_str(), error, sys::fs::F_None);
450    if (!error.empty()) {
451        throw std::runtime_error(error);
452    }
453    #else
454    std::error_code error;
455    std::unique_ptr<tool_output_file> out = make_unique<tool_output_file>(ObjectFilename, error, sys::fs::F_None);
456    if (error) {
457        throw std::runtime_error(error.message());
458    }
459    #endif
460
461    // Build up all of the passes that we want to do to the module.
462    PassManager PM;
463
464    // Add an appropriate TargetLibraryInfo pass for the module's triple.
465    PM.add(new TargetLibraryInfo(TheTriple));
466
467    // Add the target data from the target machine, if it exists, or the module.
468    #ifdef USE_LLVM_3_5
469    const DataLayout * DL = Target->getDataLayout();
470    #else
471    const DataLayout * DL = Target->getSubtargetImpl()->getDataLayout();
472    #endif
473    if (DL) {
474        module->setDataLayout(DL);
475    }
476    #ifdef USE_LLVM_3_5
477    PM.add(new DataLayoutPass(module));
478    #else
479    PM.add(new DataLayoutPass());
480    #endif   
481    PM.add(createReassociatePass());
482    PM.add(createInstructionCombiningPass());
483    PM.add(createSinkingPass());
484
485    formatted_raw_ostream outStream(out->os());
486    // Ask the target to add backend passes as necessary.
487    if (Target->addPassesToEmitFile(PM, outStream, TargetMachine::CGFT_ObjectFile)) {
488        throw std::runtime_error("Target does not support generation of object file type!\n");
489    }
490
491    PM.run(*module);
492
493
494    out->keep();
495}
496
497/** ------------------------------------------------------------------------------------------------------------- *
498 * @brief main
499 ** ------------------------------------------------------------------------------------------------------------- */
500int main(int argc, char *argv[]) {
501    // Initialize targets first, so that --version shows registered targets.
502    InitializeAllTargets();
503    InitializeAllTargetMCs();
504    InitializeAllAsmPrinters();
505    InitializeAllAsmParsers();
506    cl::ParseCommandLineOptions(argc, argv, "UCD Compiler\n");
507
508
509    #ifdef ENABLE_MULTIPLEXING
510    if (MultiplexingDistribution.length() > 0) {
511        #ifdef USE_LLVM_3_5
512        std::string error;
513        MultiplexingDistributionFile = new raw_fd_ostream(MultiplexingDistribution.c_str(), error, sys::fs::F_Text);
514        if (!error.empty()) {
515            throw std::runtime_error(error);
516        }
517        #else
518        std::error_code error;
519        MultiplexingDistributionFile = new raw_fd_ostream(MultiplexingDistribution, error, sys::fs::F_Text);
520        if (error) {
521            throw std::runtime_error(error.message());
522        }
523        #endif
524    }
525    #endif
526
527    if (PrintLongestDependenceChain.length() > 0) {
528        #ifdef USE_LLVM_3_5
529        std::string error;
530        LongestDependenceChainFile = new raw_fd_ostream(PrintLongestDependenceChain.c_str(), error, sys::fs::F_Text);
531        if (!error.empty()) {
532            throw std::runtime_error(error);
533        }
534        #else
535        std::error_code error;
536        LongestDependenceChainFile = new raw_fd_ostream(PrintLongestDependenceChain, error, sys::fs::F_Text);
537        if (error) {
538            throw std::runtime_error(error.message());
539        }
540        #endif
541
542        if (LongestDependenceChainFile) {
543            if (EnableMultiplexing) {
544                (*LongestDependenceChainFile) << ",Pre-Multiplexing,,,,Post-Multiplexing\n";
545            }
546            (*LongestDependenceChainFile) << ",Pablo,,LLVM,";
547            if (EnableMultiplexing) {
548                (*LongestDependenceChainFile) << ",Pablo,,LLVM,";
549            }
550            (*LongestDependenceChainFile) << "\nName,Global,Max Local,Global,Max Local";
551            if (EnableMultiplexing) {
552                (*LongestDependenceChainFile) << ",Global,Max Local,Global,Max Local";
553            }
554            (*LongestDependenceChainFile) << "\n";
555        }
556    }
557
558    Module * module = generateUCDModule();
559    #ifdef ENABLE_MULTIPLEXING
560    if (MultiplexingDistributionFile) {
561        MultiplexingDistributionFile->close();
562        delete MultiplexingDistributionFile;
563    }   
564    #endif
565    if (LongestDependenceChainFile) {
566        LongestDependenceChainFile->close();
567        delete LongestDependenceChainFile;
568    }
569    compileUCDModule(module);
570    return 0;
571}
Note: See TracBrowser for help on using the repository browser.