From 65ee53e13a21736157155f5b27ec292c8c73cca0 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Thu, 14 Mar 2013 19:22:55 +0100 Subject: [PATCH] Imported Upstream version 0.2 --- Makefile | 15 + Makefile.config | 30 + Makefile.generic | 118 + Makefile.in | 15 + Makefile.local | 12 + Makefile.variables.in | 9 + README | 106 + _tags.common | 17 + _tags.compiler | 2 + _tags.js_of_ocaml | 4 + acc.odocl | 84 + admin/myocamldoc | 50 + configure | 4098 ++++++++++++++ configure-oclosure.sh | 8 + configure.ac | 28 + cparser/.depend | 81 + cparser/AddCasts.ml | 242 + cparser/AddCasts.mli | 16 + cparser/Bitfields.ml | 396 ++ cparser/Bitfields.mli | 16 + cparser/Builtins.ml | 54 + cparser/Builtins.mli | 25 + cparser/C.mli | 232 + cparser/CBuiltins.ml | 1 + cparser/Cabs.ml | 299 + cparser/Cabshelper.ml | 126 + cparser/Ceval.ml | 277 + cparser/Ceval.mli | 17 + cparser/Cleanup.ml | 196 + cparser/Cleanup.mli | 16 + cparser/Cprint.ml | 492 ++ cparser/Cprint.mli | 32 + cparser/Cutil.ml | 691 +++ cparser/Cutil.mli | 174 + cparser/Elab.ml | 1760 ++++++ cparser/Elab.mli | 16 + cparser/Env.ml | 248 + cparser/Env.mli | 70 + cparser/Errors.ml | 55 + cparser/Errors.mli | 22 + cparser/GCC.ml | 230 + cparser/GCC.mli | 18 + cparser/Lexer.mli | 56 + cparser/Lexer.mll | 604 ++ cparser/Machine.ml | 136 + cparser/Machine.mli | 51 + cparser/Main.ml | 89 + cparser/Makefile | 86 + cparser/Parse.ml | 57 + cparser/Parse.mli | 22 + cparser/Parse_aux.ml | 46 + cparser/Parse_aux.mli | 22 + cparser/Parser.mly | 1490 +++++ cparser/Rename.ml | 254 + cparser/Rename.mli | 16 + cparser/SimplExpr.ml | 568 ++ cparser/SimplExpr.mli | 20 + cparser/StructAssign.ml | 157 + cparser/StructAssign.mli | 18 + cparser/StructByValue.ml | 235 + cparser/StructByValue.mli | 16 + cparser/Transform.ml | 79 + cparser/Transform.mli | 30 + cparser/Unblock.ml | 133 + cparser/Unblock.mli | 18 + cparser/uint64.c | 42 + distributed_files | 1950 +++++++ doc/html/style.css | 196 + doc/src/main | 56 + myocamlbuild.ml | 59 + src/ASM/ASM.mli | 127 + src/ASM/ASMCosts.ml | 120 + src/ASM/ASMCosts.mli | 5 + src/ASM/ASMInterpret.ml | 2028 +++++++ src/ASM/ASMInterpret.mli | 132 + src/ASM/ASMPrinter.ml | 7 + src/ASM/ASMPrinter.mli | 4 + src/ASM/BitVectors.ml | 159 + src/ASM/BitVectors.mli | 57 + src/ASM/I8051.ml | 209 + src/ASM/I8051.mli | 76 + src/ASM/IntelHex.ml | 293 + src/ASM/IntelHex.mli | 17 + src/ASM/MIPS.ml | 214 + src/ASM/MIPS.mli | 105 + src/ASM/MIPSInterpret.ml | 51 + src/ASM/MIPSInterpret.mli | 10 + src/ASM/MIPSOps.mli | 113 + src/ASM/Parser.ml | 89 + src/ASM/Parser.mli | 19 + src/ASM/Physical.ml | 112 + src/ASM/Physical.mli | 31 + src/ASM/Pretty.ml | 113 + src/ASM/Pretty.mli | 23 + src/ASM/Util.ml | 30 + src/ASM/arch.mli | 7 + src/ASM/printOps.ml | 96 + src/ASM/printOps.mli | 12 + src/ERTL/ERTL.mli | 191 + src/ERTL/ERTLInterpret.ml | 509 ++ src/ERTL/ERTLInterpret.mli | 4 + src/ERTL/ERTLPrinter.ml | 191 + src/ERTL/ERTLPrinter.mli | 4 + src/ERTL/ERTLToLTL.ml | 135 + src/ERTL/ERTLToLTL.mli | 12 + src/ERTL/ERTLToLTLI.ml | 305 + src/ERTL/ERTLToLTLI.mli | 46 + src/ERTL/build.ml | 131 + src/ERTL/build.mli | 9 + src/ERTL/liveness.ml | 329 ++ src/ERTL/liveness.mli | 51 + src/ERTL/spill.ml | 153 + src/ERTL/spill.mli | 36 + src/ERTL/uses.ml | 56 + src/ERTL/uses.mli | 12 + src/LIN/LIN.mli | 91 + src/LIN/LINInterpret.ml | 381 ++ src/LIN/LINInterpret.mli | 5 + src/LIN/LINPrinter.ml | 96 + src/LIN/LINPrinter.mli | 4 + src/LIN/LINToASM.ml | 192 + src/LIN/LINToASM.mli | 16 + src/LTL/LTL.mli | 108 + src/LTL/LTLInterpret.ml | 418 ++ src/LTL/LTLInterpret.mli | 5 + src/LTL/LTLPrinter.ml | 110 + src/LTL/LTLPrinter.mli | 6 + src/LTL/LTLToLIN.ml | 133 + src/LTL/LTLToLIN.mli | 9 + src/LTL/LTLToLINI.ml | 172 + src/LTL/LTLToLINI.mli | 57 + src/LTL/branch.ml | 88 + src/LTL/branch.mli | 14 + src/RTL/RTL.mli | 120 + src/RTL/RTLInterpret.ml | 324 ++ src/RTL/RTLInterpret.mli | 5 + src/RTL/RTLPrinter.ml | 171 + src/RTL/RTLPrinter.mli | 4 + src/RTL/RTLToERTL.ml | 500 ++ src/RTL/RTLToERTL.mli | 26 + src/RTL/RTLtailcall.ml | 25 + src/RTL/RTLtailcall.mli | 4 + src/RTLabs/RTLabs.mli | 113 + src/RTLabs/RTLabsInterpret.ml | 326 ++ src/RTLabs/RTLabsInterpret.mli | 5 + src/RTLabs/RTLabsPrinter.ml | 301 + src/RTLabs/RTLabsPrinter.mli | 6 + src/RTLabs/RTLabsToRTL.ml | 967 ++++ src/RTLabs/RTLabsToRTL.mli | 8 + src/acc.ml | 180 + src/acc.mli | 9 + src/accweb.ml | 53 + src/annotStackSize.ml | 197 + src/checker.ml | 31 + src/checker.mli | 5 + src/clight/clight.mli | 193 + src/clight/clight32ToClight8.ml | 675 +++ src/clight/clight32ToClight8.mli | 13 + src/clight/clightAnnotator.ml | 362 ++ src/clight/clightAnnotator.mli | 30 + src/clight/clightCasts.ml | 274 + src/clight/clightCasts.mli | 8 + src/clight/clightFlags.ml | 30 + src/clight/clightFold.ml | 171 + src/clight/clightFold.mli | 62 + src/clight/clightFromC.ml | 902 +++ src/clight/clightInterpret.ml | 621 ++ src/clight/clightInterpret.mli | 7 + src/clight/clightLabelling.ml | 165 + src/clight/clightLabelling.mli | 22 + src/clight/clightLustre.ml | 44 + src/clight/clightLustre.mli | 5 + src/clight/clightLustreMain.ml | 197 + src/clight/clightLustreMain.mli | 11 + src/clight/clightParser.ml | 72 + src/clight/clightParser.mli | 10 + src/clight/clightPrinter.ml | 562 ++ src/clight/clightPrinter.mli | 18 + src/clight/clightSwitch.ml | 71 + src/clight/clightSwitch.mli | 6 + src/clight/clightToCminor.ml | 626 +++ src/clight/clightToCminor.mli | 9 + src/clight/clightUtils.ml | 73 + src/clight/clightUtils.mli | 14 + src/clight/runtime.ml | 509 ++ src/clight/runtime.mli | 28 + src/cminor/cminor.mli | 69 + src/cminor/cminorAnnotator.ml | 209 + src/cminor/cminorAnnotator.mli | 19 + src/cminor/cminorFold.ml | 88 + src/cminor/cminorFold.mli | 33 + src/cminor/cminorInterpret.ml | 382 ++ src/cminor/cminorInterpret.mli | 17 + src/cminor/cminorLabelling.ml | 101 + src/cminor/cminorLabelling.mli | 22 + src/cminor/cminorLexer.mll | 150 + src/cminor/cminorParser.mly | 632 +++ src/cminor/cminorPrinter.ml | 255 + src/cminor/cminorPrinter.mli | 12 + src/cminor/cminorToRTLabs.ml | 538 ++ src/cminor/cminorToRTLabs.mli | 8 + src/common/AST.mli | 112 + src/common/atom.ml | 387 ++ src/common/atom.mli | 7 + src/common/atomSig.mli | 221 + src/common/costLabel.ml | 5 + src/common/costLabel.mli | 9 + src/common/hdwRegister.ml | 15 + src/common/hdwRegister.mli | 10 + src/common/intByBig_int.ml | 24 + src/common/intByInt64.ml | 12 + src/common/intValue.ml | 332 ++ src/common/intValue.mli | 124 + src/common/label.ml | 2 + src/common/label.mli | 5 + src/common/memory.ml | 548 ++ src/common/memory.mli | 133 + src/common/primitive.ml | 162 + src/common/primitive.mli | 36 + src/common/register.ml | 3 + src/common/register.mli | 11 + src/common/value.ml | 583 ++ src/common/value.mli | 181 + src/dev_test.ml | 66 + src/driver.ml | 25 + src/driver.mli | 13 + src/languages.ml | 375 ++ src/languages.mli | 126 + src/options.ml | 164 + src/options.mli | 76 + src/utilities/Fix.ml | 529 ++ src/utilities/Fix.mli | 102 + src/utilities/bijection.ml | 89 + src/utilities/bijection.mli | 45 + src/utilities/checkOClosure.ml | 1 + src/utilities/coloring.ml | 360 ++ src/utilities/coloring.mli | 38 + src/utilities/eformat.ml | 18 + src/utilities/eformat.mli | 6 + src/utilities/error.ml | 38 + src/utilities/error.mli | 29 + src/utilities/interference.ml | 861 +++ src/utilities/interference.mli | 213 + src/utilities/misc.ml | 208 + src/utilities/misc.mli | 96 + src/utilities/miscPottier.ml | 160 + src/utilities/miscPottier.mli | 85 + src/utilities/myMap.ml | 372 ++ src/utilities/myMap.mli | 143 + src/utilities/option.ml | 27 + src/utilities/option.mli | 12 + src/utilities/optionsParsing.ml | 16 + src/utilities/position.ml | 134 + src/utilities/position.mli | 106 + src/utilities/print.ml | 172 + src/utilities/print.mli | 73 + src/utilities/printCFG.ml | 21 + src/utilities/printCFG.mli | 12 + src/utilities/printPottier.ml | 172 + src/utilities/printPottier.mli | 73 + src/utilities/prioritySet.ml | 146 + src/utilities/prioritySet.mli | 54 + src/utilities/setMap.ml | 226 + src/utilities/setMap.mli | 144 + src/utilities/stringSig.mli | 31 + src/utilities/stringTools.ml | 64 + src/utilities/stringTools.mli | 5 + src/utilities/syntacticAnalysis.ml | 14 + src/utilities/syntacticAnalysis.mli | 12 + src/utilities/unionFind.ml | 135 + src/utilities/unionFind.mli | 39 + src/utilities/webify.ml | 444 ++ src/utilities/webify.mli | 22 + tests/GCCTestSuite/920413-1.c | 10 + tests/GCCTestSuite/920413-1.c.expected | 10 + tests/GCCTestSuite/920413-1.hex.expected | 119 + tests/GCCTestSuite/920413-1.s.expected | 1 + tests/GCCTestSuite/940409-1.c | 6 + tests/GCCTestSuite/940409-1.c.expected | 6 + tests/GCCTestSuite/940409-1.hex.expected | 1 + tests/GCCTestSuite/940409-1.s.expected | 1 + tests/GCCTestSuite/951130-1.c | 5 + tests/GCCTestSuite/951130-1.c.expected | 5 + tests/GCCTestSuite/951130-1.hex.expected | 1 + tests/GCCTestSuite/951130-1.s.expected | 1 + tests/GCCTestSuite/980502-1.c | 9 + tests/GCCTestSuite/980502-1.c.expected | 9 + tests/GCCTestSuite/990213-1.c | 12 + tests/GCCTestSuite/990213-1.c.expected | 12 + tests/GCCTestSuite/990213-1.hex.expected | 6 + tests/GCCTestSuite/990213-1.s.expected | 1 + tests/GCCTestSuite/Makefile | 73 + tests/GCCTestSuite/alias-2.c | 16 + tests/GCCTestSuite/alias-2.c.expected | 16 + tests/GCCTestSuite/alias-2.hex.expected | 36 + tests/GCCTestSuite/alias-2.s.expected | 1 + tests/GCCTestSuite/alias-8.c | 12 + tests/GCCTestSuite/alias-8.c.expected | 12 + tests/GCCTestSuite/alias-8.hex.expected | 15 + tests/GCCTestSuite/alias-8.s.expected | 1 + tests/GCCTestSuite/align-1.c | 28 + tests/GCCTestSuite/align-1.c.expected | 28 + tests/GCCTestSuite/align-1.hex.expected | 24 + tests/GCCTestSuite/align-1.s.expected | 1 + tests/GCCTestSuite/always_inline2.c | 8 + tests/GCCTestSuite/always_inline2.c.expected | 8 + .../GCCTestSuite/always_inline2.hex.expected | 11 + tests/GCCTestSuite/always_inline2.s.expected | 1 + tests/GCCTestSuite/always_inline3.c | 8 + tests/GCCTestSuite/always_inline3.c.expected | 8 + .../GCCTestSuite/always_inline3.hex.expected | 11 + tests/GCCTestSuite/always_inline3.s.expected | 1 + tests/GCCTestSuite/anon-struct-3.c | 32 + tests/GCCTestSuite/anon-struct-3.c.expected | 32 + tests/GCCTestSuite/anon-struct-3.hex.expected | 1 + tests/GCCTestSuite/anon-struct-3.s.expected | 1 + tests/GCCTestSuite/anon-struct-4.c | 10 + tests/GCCTestSuite/anon-struct-4.c.expected | 10 + tests/GCCTestSuite/anon-struct-4.hex.expected | 1 + tests/GCCTestSuite/anon-struct-4.s.expected | 1 + tests/GCCTestSuite/anon-struct-5.c | 7 + tests/GCCTestSuite/anon-struct-5.c.expected | 7 + tests/GCCTestSuite/anon-struct-5.hex.expected | 1 + tests/GCCTestSuite/anon-struct-5.s.expected | 1 + tests/GCCTestSuite/anon-struct-6.c | 12 + tests/GCCTestSuite/anon-struct-6.c.expected | 12 + tests/GCCTestSuite/anon-struct-6.hex.expected | 1 + tests/GCCTestSuite/anon-struct-6.s.expected | 1 + tests/GCCTestSuite/anon-struct-7.c | 10 + tests/GCCTestSuite/anon-struct-7.c.expected | 10 + tests/GCCTestSuite/anon-struct-7.hex.expected | 1 + tests/GCCTestSuite/anon-struct-7.s.expected | 1 + tests/GCCTestSuite/anon-struct-8.c | 10 + tests/GCCTestSuite/anon-struct-8.c.expected | 10 + tests/GCCTestSuite/anon-struct-8.hex.expected | 1 + tests/GCCTestSuite/anon-struct-8.s.expected | 1 + tests/GCCTestSuite/arm-g2.c | 19 + tests/GCCTestSuite/arm-g2.c.expected | 19 + tests/GCCTestSuite/arm-g2.hex.expected | 64 + tests/GCCTestSuite/arm-g2.s.expected | 1 + tests/GCCTestSuite/arm-scd42-1.c | 15 + tests/GCCTestSuite/arm-scd42-1.c.expected | 15 + tests/GCCTestSuite/arm-scd42-1.hex.expected | 5 + tests/GCCTestSuite/arm-scd42-1.s.expected | 1 + tests/GCCTestSuite/arm-scd42-2.c | 17 + tests/GCCTestSuite/arm-scd42-2.c.expected | 17 + tests/GCCTestSuite/arm-scd42-2.hex.expected | 5 + tests/GCCTestSuite/arm-scd42-2.s.expected | 1 + tests/GCCTestSuite/arm-scd42-3.c | 15 + tests/GCCTestSuite/arm-scd42-3.c.expected | 15 + tests/GCCTestSuite/arm-scd42-3.hex.expected | 5 + tests/GCCTestSuite/arm-scd42-3.s.expected | 1 + tests/GCCTestSuite/array-1.c | 15 + tests/GCCTestSuite/array-1.c.expected | 15 + tests/GCCTestSuite/array-1.hex.expected | 26 + tests/GCCTestSuite/array-1.s.expected | 1 + tests/GCCTestSuite/array-quals-2.c | 14 + tests/GCCTestSuite/array-quals-2.c.expected | 14 + tests/GCCTestSuite/array-quals-2.hex.expected | 41 + tests/GCCTestSuite/array-quals-2.s.expected | 1 + tests/GCCTestSuite/asm-fs-1.c | 14 + tests/GCCTestSuite/asm-fs-1.c.expected | 14 + tests/GCCTestSuite/asm-fs-1.hex.expected | 5 + tests/GCCTestSuite/asm-fs-1.s.expected | 1 + tests/GCCTestSuite/assign-warn-3.c | 13 + tests/GCCTestSuite/assign-warn-3.c.expected | 13 + tests/GCCTestSuite/assign-warn-3.hex.expected | 32 + tests/GCCTestSuite/assign-warn-3.s.expected | 1 + tests/GCCTestSuite/attr-alwaysinline.c | 19 + .../GCCTestSuite/attr-alwaysinline.c.expected | 19 + .../attr-alwaysinline.hex.expected | 20 + .../GCCTestSuite/attr-alwaysinline.s.expected | 1 + tests/GCCTestSuite/attr-invalid.c | 58 + tests/GCCTestSuite/attr-invalid.c.expected | 58 + tests/GCCTestSuite/attr-invalid.hex.expected | 33 + tests/GCCTestSuite/attr-invalid.s.expected | 1 + tests/GCCTestSuite/attr-isr-trap_exit.c | 23 + .../attr-isr-trap_exit.c.expected | 23 + .../attr-isr-trap_exit.hex.expected | 18 + .../attr-isr-trap_exit.s.expected | 1 + tests/GCCTestSuite/attr-mode-1.c | 13 + tests/GCCTestSuite/attr-mode-1.c.expected | 13 + tests/GCCTestSuite/attr-mode-1.hex.expected | 1 + tests/GCCTestSuite/attr-mode-1.s.expected | 1 + tests/GCCTestSuite/attr-used-2.c | 11 + tests/GCCTestSuite/attr-used-2.c.expected | 11 + tests/GCCTestSuite/attr-used-2.hex.expected | 5 + tests/GCCTestSuite/attr-used-2.s.expected | 1 + tests/GCCTestSuite/attr-used.c | 13 + tests/GCCTestSuite/attr-used.c.expected | 13 + tests/GCCTestSuite/attr-used.hex.expected | 1 + tests/GCCTestSuite/attr-used.s.expected | 1 + tests/GCCTestSuite/attr-weakref-1a.c | 8 + tests/GCCTestSuite/attr-weakref-1a.c.expected | 8 + .../GCCTestSuite/attr-weakref-1a.hex.expected | 15 + tests/GCCTestSuite/attr-weakref-1a.s.expected | 1 + tests/GCCTestSuite/bitfld-10.c | 8 + tests/GCCTestSuite/bitfld-10.c.expected | 8 + tests/GCCTestSuite/bitfld-10.hex.expected | 1 + tests/GCCTestSuite/bitfld-10.s.expected | 1 + tests/GCCTestSuite/bitfld-14.c | 11 + tests/GCCTestSuite/bitfld-14.c.expected | 11 + tests/GCCTestSuite/bitfld-14.hex.expected | 1 + tests/GCCTestSuite/bitfld-14.s.expected | 1 + tests/GCCTestSuite/bitfld-5.c | 12 + tests/GCCTestSuite/bitfld-5.c.expected | 12 + tests/GCCTestSuite/bitfld-5.hex.expected | 1 + tests/GCCTestSuite/bitfld-5.s.expected | 1 + tests/GCCTestSuite/bitfld-6.c | 16 + tests/GCCTestSuite/bitfld-6.c.expected | 16 + tests/GCCTestSuite/bitfld-6.hex.expected | 1 + tests/GCCTestSuite/bitfld-6.s.expected | 1 + tests/GCCTestSuite/builtin-strstr.c | 8 + tests/GCCTestSuite/builtin-strstr.c.expected | 8 + .../GCCTestSuite/builtin-strstr.hex.expected | 12 + tests/GCCTestSuite/builtin-strstr.s.expected | 1 + tests/GCCTestSuite/builtins-35.c | 6 + tests/GCCTestSuite/builtins-35.c.expected | 6 + tests/GCCTestSuite/builtins-35.hex.expected | 1 + tests/GCCTestSuite/builtins-35.s.expected | 1 + tests/GCCTestSuite/c90-array-lval-5.c | 26 + .../GCCTestSuite/c90-array-lval-5.c.expected | 26 + .../c90-array-lval-5.hex.expected | 134 + .../GCCTestSuite/c90-array-lval-5.s.expected | 1 + tests/GCCTestSuite/c90-array-lval-6.c | 16 + .../GCCTestSuite/c90-array-lval-6.c.expected | 16 + .../c90-array-lval-6.hex.expected | 14 + .../GCCTestSuite/c90-array-lval-6.s.expected | 1 + tests/GCCTestSuite/c90-array-lval-7.c | 23 + .../GCCTestSuite/c90-array-lval-7.c.expected | 23 + .../c90-array-lval-7.hex.expected | 21 + .../GCCTestSuite/c90-array-lval-7.s.expected | 1 + tests/GCCTestSuite/c90-array-quals-2.c | 3 + .../GCCTestSuite/c90-array-quals-2.c.expected | 3 + .../c90-array-quals-2.hex.expected | 1 + .../GCCTestSuite/c90-array-quals-2.s.expected | 1 + tests/GCCTestSuite/c90-array-quals.c | 3 + tests/GCCTestSuite/c90-array-quals.c.expected | 3 + .../GCCTestSuite/c90-array-quals.hex.expected | 1 + tests/GCCTestSuite/c90-array-quals.s.expected | 1 + tests/GCCTestSuite/c90-const-expr-1.c | 23 + .../GCCTestSuite/c90-const-expr-1.c.expected | 23 + .../c90-const-expr-1.hex.expected | 5 + .../GCCTestSuite/c90-const-expr-1.s.expected | 1 + tests/GCCTestSuite/c90-dupqual-1.c | 12 + tests/GCCTestSuite/c90-dupqual-1.c.expected | 12 + tests/GCCTestSuite/c90-dupqual-1.hex.expected | 1 + tests/GCCTestSuite/c90-dupqual-1.s.expected | 1 + tests/GCCTestSuite/c90-enum-comma-1.c | 7 + .../GCCTestSuite/c90-enum-comma-1.c.expected | 7 + .../c90-enum-comma-1.hex.expected | 1 + .../GCCTestSuite/c90-enum-comma-1.s.expected | 1 + tests/GCCTestSuite/c90-flex-array-1.c | 7 + .../GCCTestSuite/c90-flex-array-1.c.expected | 7 + .../c90-flex-array-1.hex.expected | 1 + .../GCCTestSuite/c90-flex-array-1.s.expected | 1 + tests/GCCTestSuite/c90-idem-qual-1.c | 8 + tests/GCCTestSuite/c90-idem-qual-1.c.expected | 8 + .../GCCTestSuite/c90-idem-qual-1.hex.expected | 1 + tests/GCCTestSuite/c90-idem-qual-1.s.expected | 1 + tests/GCCTestSuite/c90-idem-qual-2.c | 7 + tests/GCCTestSuite/c90-idem-qual-2.c.expected | 7 + .../GCCTestSuite/c90-idem-qual-2.hex.expected | 1 + tests/GCCTestSuite/c90-idem-qual-2.s.expected | 1 + tests/GCCTestSuite/c90-idem-qual-3.c | 11 + tests/GCCTestSuite/c90-idem-qual-3.c.expected | 11 + .../GCCTestSuite/c90-idem-qual-3.hex.expected | 1 + tests/GCCTestSuite/c90-idem-qual-3.s.expected | 1 + tests/GCCTestSuite/c90-impl-int-1.c | 8 + tests/GCCTestSuite/c90-impl-int-1.c.expected | 8 + .../GCCTestSuite/c90-impl-int-1.hex.expected | 5 + tests/GCCTestSuite/c90-impl-int-1.s.expected | 1 + tests/GCCTestSuite/c90-impl-int-2.c | 8 + tests/GCCTestSuite/c90-impl-int-2.c.expected | 8 + .../GCCTestSuite/c90-impl-int-2.hex.expected | 7 + tests/GCCTestSuite/c90-impl-int-2.s.expected | 1 + tests/GCCTestSuite/c90-longlong-1.c | 7 + tests/GCCTestSuite/c90-longlong-1.c.expected | 7 + .../GCCTestSuite/c90-longlong-1.hex.expected | 1 + tests/GCCTestSuite/c90-longlong-1.s.expected | 1 + tests/GCCTestSuite/c90-mixdecl-1.c | 13 + tests/GCCTestSuite/c90-mixdecl-1.c.expected | 13 + tests/GCCTestSuite/c90-mixdecl-1.hex.expected | 5 + tests/GCCTestSuite/c90-mixdecl-1.s.expected | 1 + tests/GCCTestSuite/c90-restrict-1.c | 7 + tests/GCCTestSuite/c90-restrict-1.c.expected | 7 + .../GCCTestSuite/c90-restrict-1.hex.expected | 1 + tests/GCCTestSuite/c90-restrict-1.s.expected | 1 + tests/GCCTestSuite/c90-static-1.c | 22 + tests/GCCTestSuite/c90-static-1.c.expected | 22 + tests/GCCTestSuite/c90-static-1.hex.expected | 42 + tests/GCCTestSuite/c90-static-1.s.expected | 1 + tests/GCCTestSuite/c99-array-lval-1.c | 17 + .../GCCTestSuite/c99-array-lval-1.c.expected | 17 + .../c99-array-lval-1.hex.expected | 19 + .../GCCTestSuite/c99-array-lval-1.s.expected | 1 + tests/GCCTestSuite/c99-array-lval-5.c | 26 + .../GCCTestSuite/c99-array-lval-5.c.expected | 26 + .../c99-array-lval-5.hex.expected | 134 + .../GCCTestSuite/c99-array-lval-5.s.expected | 1 + tests/GCCTestSuite/c99-array-lval-6.c | 15 + .../GCCTestSuite/c99-array-lval-6.c.expected | 15 + .../c99-array-lval-6.hex.expected | 14 + .../GCCTestSuite/c99-array-lval-6.s.expected | 1 + tests/GCCTestSuite/c99-array-lval-7.c | 21 + .../GCCTestSuite/c99-array-lval-7.c.expected | 21 + .../c99-array-lval-7.hex.expected | 21 + .../GCCTestSuite/c99-array-lval-7.s.expected | 1 + tests/GCCTestSuite/c99-array-nonobj-1.c | 27 + .../c99-array-nonobj-1.c.expected | 27 + .../c99-array-nonobj-1.hex.expected | 1 + .../c99-array-nonobj-1.s.expected | 1 + tests/GCCTestSuite/c99-const-expr-1.c | 16 + .../GCCTestSuite/c99-const-expr-1.c.expected | 16 + .../c99-const-expr-1.hex.expected | 1 + .../GCCTestSuite/c99-const-expr-1.s.expected | 1 + tests/GCCTestSuite/c99-dupqual-1.c | 12 + tests/GCCTestSuite/c99-dupqual-1.c.expected | 12 + tests/GCCTestSuite/c99-dupqual-1.hex.expected | 1 + tests/GCCTestSuite/c99-dupqual-1.s.expected | 1 + tests/GCCTestSuite/c99-enum-comma-1.c | 6 + .../GCCTestSuite/c99-enum-comma-1.c.expected | 6 + .../c99-enum-comma-1.hex.expected | 1 + .../GCCTestSuite/c99-enum-comma-1.s.expected | 1 + tests/GCCTestSuite/c99-flex-array-3.c | 47 + .../GCCTestSuite/c99-flex-array-3.c.expected | 47 + .../c99-flex-array-3.hex.expected | 1 + .../GCCTestSuite/c99-flex-array-3.s.expected | 1 + tests/GCCTestSuite/c99-func-2.c | 10 + tests/GCCTestSuite/c99-func-2.c.expected | 10 + tests/GCCTestSuite/c99-func-2.hex.expected | 5 + tests/GCCTestSuite/c99-func-2.s.expected | 1 + tests/GCCTestSuite/c99-idem-qual-1.c | 7 + tests/GCCTestSuite/c99-idem-qual-1.c.expected | 7 + .../GCCTestSuite/c99-idem-qual-1.hex.expected | 1 + tests/GCCTestSuite/c99-idem-qual-1.s.expected | 1 + tests/GCCTestSuite/c99-idem-qual-2.c | 6 + tests/GCCTestSuite/c99-idem-qual-2.c.expected | 6 + .../GCCTestSuite/c99-idem-qual-2.hex.expected | 1 + tests/GCCTestSuite/c99-idem-qual-2.s.expected | 1 + tests/GCCTestSuite/c99-idem-qual-3.c | 9 + tests/GCCTestSuite/c99-idem-qual-3.c.expected | 9 + .../GCCTestSuite/c99-idem-qual-3.hex.expected | 1 + tests/GCCTestSuite/c99-idem-qual-3.s.expected | 1 + tests/GCCTestSuite/c99-impl-int-1.c | 9 + tests/GCCTestSuite/c99-impl-int-1.c.expected | 9 + .../GCCTestSuite/c99-impl-int-1.hex.expected | 5 + tests/GCCTestSuite/c99-impl-int-1.s.expected | 1 + tests/GCCTestSuite/c99-impl-int-2.c | 9 + tests/GCCTestSuite/c99-impl-int-2.c.expected | 9 + .../GCCTestSuite/c99-impl-int-2.hex.expected | 7 + tests/GCCTestSuite/c99-impl-int-2.s.expected | 1 + tests/GCCTestSuite/c99-longlong-1.c | 6 + tests/GCCTestSuite/c99-longlong-1.c.expected | 6 + .../GCCTestSuite/c99-longlong-1.hex.expected | 1 + tests/GCCTestSuite/c99-longlong-1.s.expected | 1 + tests/GCCTestSuite/c99-main-1.c | 9 + tests/GCCTestSuite/c99-main-1.c.expected | 9 + tests/GCCTestSuite/c99-main-1.hex.expected | 6 + tests/GCCTestSuite/c99-main-1.s.expected | 1 + tests/GCCTestSuite/c99-restrict-1.c | 19 + tests/GCCTestSuite/c99-restrict-1.c.expected | 19 + .../GCCTestSuite/c99-restrict-1.hex.expected | 1 + tests/GCCTestSuite/c99-restrict-1.s.expected | 1 + tests/GCCTestSuite/c99-restrict-2.c | 12 + tests/GCCTestSuite/c99-restrict-2.c.expected | 12 + .../GCCTestSuite/c99-restrict-2.hex.expected | 1 + tests/GCCTestSuite/c99-restrict-2.s.expected | 1 + tests/GCCTestSuite/c99-tag-2.c | 16 + tests/GCCTestSuite/c99-tag-2.c.expected | 16 + tests/GCCTestSuite/c99-tag-2.hex.expected | 18 + tests/GCCTestSuite/c99-tag-2.s.expected | 1 + tests/GCCTestSuite/cast-qual-1.c | 30 + tests/GCCTestSuite/cast-qual-1.c.expected | 30 + tests/GCCTestSuite/cast-qual-1.hex.expected | 23 + tests/GCCTestSuite/cast-qual-1.s.expected | 1 + tests/GCCTestSuite/cleanup-3.c | 45 + tests/GCCTestSuite/cleanup-3.c.expected | 45 + tests/GCCTestSuite/cleanup-3.hex.expected | 120 + tests/GCCTestSuite/cleanup-3.s.expected | 1 + tests/GCCTestSuite/cleanup-6.c | 14 + tests/GCCTestSuite/cleanup-6.c.expected | 14 + tests/GCCTestSuite/cleanup-6.hex.expected | 5 + tests/GCCTestSuite/cleanup-6.s.expected | 1 + tests/GCCTestSuite/comp-return-1.c | 31 + tests/GCCTestSuite/comp-return-1.c.expected | 31 + tests/GCCTestSuite/comp-return-1.hex.expected | 27 + tests/GCCTestSuite/comp-return-1.s.expected | 1 + tests/GCCTestSuite/compare1.c | 41 + tests/GCCTestSuite/compare1.c.expected | 41 + tests/GCCTestSuite/compare1.hex.expected | 165 + tests/GCCTestSuite/compare1.s.expected | 1 + tests/GCCTestSuite/compare3.c | 59 + tests/GCCTestSuite/compare3.c.expected | 59 + tests/GCCTestSuite/compare3.hex.expected | 7 + tests/GCCTestSuite/compare3.s.expected | 1 + tests/GCCTestSuite/compare5.c | 41 + tests/GCCTestSuite/compare5.c.expected | 41 + tests/GCCTestSuite/compare5.hex.expected | 874 +++ tests/GCCTestSuite/compare5.s.expected | 1 + tests/GCCTestSuite/compare6.c | 13 + tests/GCCTestSuite/compare6.c.expected | 13 + tests/GCCTestSuite/compare6.hex.expected | 56 + tests/GCCTestSuite/compare6.s.expected | 1 + tests/GCCTestSuite/compare7.c | 10 + tests/GCCTestSuite/compare7.c.expected | 10 + tests/GCCTestSuite/compare7.hex.expected | 62 + tests/GCCTestSuite/compare7.s.expected | 1 + tests/GCCTestSuite/compare8.c | 21 + tests/GCCTestSuite/compare8.c.expected | 21 + tests/GCCTestSuite/compare8.hex.expected | 228 + tests/GCCTestSuite/compare8.s.expected | 1 + tests/GCCTestSuite/compare9.c | 41 + tests/GCCTestSuite/compare9.c.expected | 41 + tests/GCCTestSuite/compare9.hex.expected | 165 + tests/GCCTestSuite/compare9.s.expected | 1 + tests/GCCTestSuite/concat.c | 16 + tests/GCCTestSuite/concat.c.expected | 16 + tests/GCCTestSuite/concat.hex.expected | 498 ++ tests/GCCTestSuite/concat.s.expected | 1 + tests/GCCTestSuite/concat2.c | 16 + tests/GCCTestSuite/concat2.c.expected | 16 + tests/GCCTestSuite/concat2.hex.expected | 5 + tests/GCCTestSuite/concat2.s.expected | 1 + tests/GCCTestSuite/const-compare.c | 29 + tests/GCCTestSuite/const-compare.c.expected | 29 + tests/GCCTestSuite/const-compare.hex.expected | 1 + tests/GCCTestSuite/const-compare.s.expected | 1 + tests/GCCTestSuite/const-elim-2.c | 10 + tests/GCCTestSuite/const-elim-2.c.expected | 10 + tests/GCCTestSuite/conv-3.c | 18 + tests/GCCTestSuite/conv-3.c.expected | 18 + tests/GCCTestSuite/conv-3.hex.expected | 38 + tests/GCCTestSuite/conv-3.s.expected | 1 + tests/GCCTestSuite/cris-peep2-andu1.c | 42 + .../GCCTestSuite/cris-peep2-andu1.c.expected | 42 + .../cris-peep2-andu1.hex.expected | 103 + .../GCCTestSuite/cris-peep2-andu1.s.expected | 1 + tests/GCCTestSuite/cris-peep2-andu2.c | 32 + .../GCCTestSuite/cris-peep2-andu2.c.expected | 32 + .../cris-peep2-andu2.hex.expected | 66 + .../GCCTestSuite/cris-peep2-andu2.s.expected | 1 + tests/GCCTestSuite/cris-peep2-xsrand.c | 32 + .../GCCTestSuite/cris-peep2-xsrand.c.expected | 32 + tests/GCCTestSuite/cris-peep2-xsrand2.c | 34 + .../cris-peep2-xsrand2.c.expected | 34 + tests/GCCTestSuite/darwin-20040809-2.c | 15 + .../GCCTestSuite/darwin-20040809-2.c.expected | 15 + .../darwin-20040809-2.hex.expected | 6 + .../GCCTestSuite/darwin-20040809-2.s.expected | 1 + tests/GCCTestSuite/darwin-20040812-1.c | 24 + .../GCCTestSuite/darwin-20040812-1.c.expected | 24 + .../darwin-20040812-1.hex.expected | 187 + .../GCCTestSuite/darwin-20040812-1.s.expected | 1 + tests/GCCTestSuite/darwin-ld-1.c | 11 + tests/GCCTestSuite/darwin-ld-1.c.expected | 11 + tests/GCCTestSuite/darwin-ld-1.hex.expected | 6 + tests/GCCTestSuite/darwin-ld-1.s.expected | 1 + tests/GCCTestSuite/darwin-ld-2.c | 11 + tests/GCCTestSuite/darwin-ld-2.c.expected | 11 + tests/GCCTestSuite/darwin-ld-2.hex.expected | 6 + tests/GCCTestSuite/darwin-ld-2.s.expected | 1 + tests/GCCTestSuite/darwin-ld-20040809-1.c | 13 + .../darwin-ld-20040809-1.c.expected | 13 + .../darwin-ld-20040809-1.hex.expected | 6 + .../darwin-ld-20040809-1.s.expected | 1 + tests/GCCTestSuite/darwin-ld-20040809-2.c | 12 + .../darwin-ld-20040809-2.c.expected | 12 + .../darwin-ld-20040809-2.hex.expected | 6 + .../darwin-ld-20040809-2.s.expected | 1 + tests/GCCTestSuite/darwin-ld-20040828-1.c | 13 + .../darwin-ld-20040828-1.c.expected | 13 + .../darwin-ld-20040828-1.hex.expected | 6 + .../darwin-ld-20040828-1.s.expected | 1 + tests/GCCTestSuite/darwin-ld-20040828-2.c | 13 + .../darwin-ld-20040828-2.c.expected | 13 + .../darwin-ld-20040828-2.hex.expected | 6 + .../darwin-ld-20040828-2.s.expected | 1 + tests/GCCTestSuite/darwin-ld-20040828-3.c | 13 + .../darwin-ld-20040828-3.c.expected | 13 + .../darwin-ld-20040828-3.hex.expected | 6 + .../darwin-ld-20040828-3.s.expected | 1 + tests/GCCTestSuite/darwin-ld-3.c | 12 + tests/GCCTestSuite/darwin-ld-3.c.expected | 12 + tests/GCCTestSuite/darwin-ld-3.hex.expected | 6 + tests/GCCTestSuite/darwin-ld-3.s.expected | 1 + tests/GCCTestSuite/darwin-ld-4.c | 11 + tests/GCCTestSuite/darwin-ld-4.c.expected | 11 + tests/GCCTestSuite/darwin-ld-4.hex.expected | 6 + tests/GCCTestSuite/darwin-ld-4.s.expected | 1 + tests/GCCTestSuite/darwin-ld-5.c | 11 + tests/GCCTestSuite/darwin-ld-5.c.expected | 11 + tests/GCCTestSuite/darwin-ld-5.hex.expected | 6 + tests/GCCTestSuite/darwin-ld-5.s.expected | 1 + tests/GCCTestSuite/darwin-ld-6.c | 11 + tests/GCCTestSuite/darwin-ld-6.c.expected | 11 + tests/GCCTestSuite/darwin-ld-6.hex.expected | 6 + tests/GCCTestSuite/darwin-ld-6.s.expected | 1 + tests/GCCTestSuite/darwin-version-1.c | 10 + .../GCCTestSuite/darwin-version-1.c.expected | 10 + .../darwin-version-1.hex.expected | 6 + .../GCCTestSuite/darwin-version-1.s.expected | 1 + tests/GCCTestSuite/darwin-weakimport-1.c | 14 + .../darwin-weakimport-1.c.expected | 14 + .../darwin-weakimport-1.hex.expected | 11 + .../darwin-weakimport-1.s.expected | 1 + tests/GCCTestSuite/decl-4.c | 10 + tests/GCCTestSuite/decl-4.c.expected | 10 + tests/GCCTestSuite/decl-4.hex.expected | 7 + tests/GCCTestSuite/decl-4.s.expected | 1 + tests/GCCTestSuite/decl-6.c | 15 + tests/GCCTestSuite/decl-6.c.expected | 15 + tests/GCCTestSuite/decl-6.hex.expected | 63 + tests/GCCTestSuite/decl-6.s.expected | 1 + tests/GCCTestSuite/declspec-12.c | 6 + tests/GCCTestSuite/declspec-12.c.expected | 6 + tests/GCCTestSuite/declspec-12.hex.expected | 1 + tests/GCCTestSuite/declspec-12.s.expected | 1 + tests/GCCTestSuite/declspec-2.c | 14 + tests/GCCTestSuite/declspec-2.c.expected | 14 + tests/GCCTestSuite/declspec-2.hex.expected | 1 + tests/GCCTestSuite/declspec-2.s.expected | 1 + tests/GCCTestSuite/declspec-3.c | 34 + tests/GCCTestSuite/declspec-3.c.expected | 34 + tests/GCCTestSuite/declspec-3.hex.expected | 38 + tests/GCCTestSuite/declspec-3.s.expected | 1 + tests/GCCTestSuite/deprecated-3.c | 11 + tests/GCCTestSuite/deprecated-3.c.expected | 11 + tests/GCCTestSuite/deprecated-3.hex.expected | 11 + tests/GCCTestSuite/deprecated-3.s.expected | 1 + tests/GCCTestSuite/dll-2.c | 22 + tests/GCCTestSuite/dll-2.c.expected | 22 + tests/GCCTestSuite/dll-2.hex.expected | 1 + tests/GCCTestSuite/dll-2.s.expected | 1 + tests/GCCTestSuite/dll-4.c | 15 + tests/GCCTestSuite/dll-4.c.expected | 15 + tests/GCCTestSuite/dll-4.hex.expected | 31 + tests/GCCTestSuite/dll-4.s.expected | 1 + tests/GCCTestSuite/dollar.c | 9 + tests/GCCTestSuite/dollar.c.expected | 9 + tests/GCCTestSuite/dollar.hex.expected | 1 + tests/GCCTestSuite/dollar.s.expected | 1 + tests/GCCTestSuite/doloop-2.c | 19 + tests/GCCTestSuite/doloop-2.c.expected | 19 + tests/GCCTestSuite/doloop-2.hex.expected | 165 + tests/GCCTestSuite/doloop-2.s.expected | 1 + tests/GCCTestSuite/empty-source-1.c | 5 + tests/GCCTestSuite/empty-source-1.c.expected | 5 + .../GCCTestSuite/empty-source-1.hex.expected | 1 + tests/GCCTestSuite/empty-source-1.s.expected | 1 + tests/GCCTestSuite/empty-source-2.c | 6 + tests/GCCTestSuite/empty-source-2.c.expected | 6 + .../GCCTestSuite/empty-source-2.hex.expected | 1 + tests/GCCTestSuite/empty-source-2.s.expected | 1 + tests/GCCTestSuite/empty-source-3.c | 7 + tests/GCCTestSuite/empty-source-3.c.expected | 7 + .../GCCTestSuite/empty-source-3.hex.expected | 1 + tests/GCCTestSuite/empty-source-3.s.expected | 1 + tests/GCCTestSuite/enum2.c | 8 + tests/GCCTestSuite/enum2.c.expected | 8 + tests/GCCTestSuite/enum2.hex.expected | 1 + tests/GCCTestSuite/enum2.s.expected | 1 + tests/GCCTestSuite/enum3.c | 11 + tests/GCCTestSuite/enum3.c.expected | 11 + tests/GCCTestSuite/enum3.hex.expected | 1 + tests/GCCTestSuite/enum3.s.expected | 1 + tests/GCCTestSuite/extra-semi-1.c | 7 + tests/GCCTestSuite/extra-semi-1.c.expected | 7 + tests/GCCTestSuite/extra-semi-1.hex.expected | 1 + tests/GCCTestSuite/extra-semi-1.s.expected | 1 + tests/GCCTestSuite/extra-semi-2.c | 7 + tests/GCCTestSuite/extra-semi-2.c.expected | 7 + tests/GCCTestSuite/extra-semi-2.hex.expected | 1 + tests/GCCTestSuite/extra-semi-2.s.expected | 1 + tests/GCCTestSuite/extra-semi-3.c | 7 + tests/GCCTestSuite/extra-semi-3.c.expected | 7 + tests/GCCTestSuite/extra-semi-3.hex.expected | 1 + tests/GCCTestSuite/extra-semi-3.s.expected | 1 + tests/GCCTestSuite/fdata-sections-1.c | 9 + .../GCCTestSuite/fdata-sections-1.c.expected | 9 + .../fdata-sections-1.hex.expected | 1 + .../GCCTestSuite/fdata-sections-1.s.expected | 1 + tests/GCCTestSuite/fold-abs-1.c | 7 + tests/GCCTestSuite/fold-abs-1.c.expected | 7 + tests/GCCTestSuite/fold-abs-1.hex.expected | 92 + tests/GCCTestSuite/fold-abs-1.s.expected | 1 + tests/GCCTestSuite/fold-abs-3.c | 9 + tests/GCCTestSuite/fold-abs-3.c.expected | 9 + tests/GCCTestSuite/fold-abs-3.hex.expected | 217 + tests/GCCTestSuite/fold-abs-3.s.expected | 1 + tests/GCCTestSuite/fold-mod-1.c | 25 + tests/GCCTestSuite/fold-mod-1.c.expected | 25 + tests/GCCTestSuite/fold-mod-1.hex.expected | 654 +++ tests/GCCTestSuite/fold-mod-1.s.expected | 1 + tests/GCCTestSuite/fold-xor-1.c | 12 + tests/GCCTestSuite/fold-xor-1.c.expected | 12 + tests/GCCTestSuite/fold-xor-1.hex.expected | 31 + tests/GCCTestSuite/fold-xor-1.s.expected | 1 + tests/GCCTestSuite/fold-xor-2.c | 16 + tests/GCCTestSuite/fold-xor-2.c.expected | 16 + tests/GCCTestSuite/fold-xor-2.hex.expected | 55 + tests/GCCTestSuite/fold-xor-2.s.expected | 1 + tests/GCCTestSuite/ftrapv-1.c | 26 + tests/GCCTestSuite/ftrapv-1.c.expected | 26 + tests/GCCTestSuite/ftrapv-1.hex.expected | 92 + tests/GCCTestSuite/ftrapv-1.s.expected | 1 + tests/GCCTestSuite/funcdef-attr-1.c | 14 + tests/GCCTestSuite/funcdef-attr-1.c.expected | 14 + .../GCCTestSuite/funcdef-attr-1.hex.expected | 10 + tests/GCCTestSuite/funcdef-attr-1.s.expected | 1 + tests/GCCTestSuite/funcdef-var-2.c | 11 + tests/GCCTestSuite/funcdef-var-2.c.expected | 11 + tests/GCCTestSuite/funcdef-var-2.hex.expected | 5 + tests/GCCTestSuite/funcdef-var-2.s.expected | 1 + tests/GCCTestSuite/funroll-loops-all.c | 4 + .../GCCTestSuite/funroll-loops-all.c.expected | 4 + .../funroll-loops-all.hex.expected | 1 + .../GCCTestSuite/funroll-loops-all.s.expected | 1 + tests/GCCTestSuite/gnu89-dupqual-1.c | 12 + tests/GCCTestSuite/gnu89-dupqual-1.c.expected | 12 + .../GCCTestSuite/gnu89-dupqual-1.hex.expected | 1 + tests/GCCTestSuite/gnu89-dupqual-1.s.expected | 1 + tests/GCCTestSuite/h8300-stack-1.c | 14 + tests/GCCTestSuite/h8300-stack-1.c.expected | 14 + tests/GCCTestSuite/h8300-stack-1.hex.expected | 27 + tests/GCCTestSuite/h8300-stack-1.s.expected | 1 + tests/GCCTestSuite/if-empty-1.c | 23 + tests/GCCTestSuite/if-empty-1.c.expected | 23 + tests/GCCTestSuite/if-empty-1.hex.expected | 21 + tests/GCCTestSuite/if-empty-1.s.expected | 1 + tests/GCCTestSuite/inline-1.c | 28 + tests/GCCTestSuite/inline-1.c.expected | 28 + tests/GCCTestSuite/inline-1.hex.expected | 49 + tests/GCCTestSuite/inline-1.s.expected | 1 + tests/GCCTestSuite/inline-10.c | 6 + tests/GCCTestSuite/inline-10.c.expected | 6 + tests/GCCTestSuite/inline-10.hex.expected | 1 + tests/GCCTestSuite/inline-10.s.expected | 1 + tests/GCCTestSuite/inline-17.c | 24 + tests/GCCTestSuite/inline-17.c.expected | 24 + tests/GCCTestSuite/inline-17.hex.expected | 13 + tests/GCCTestSuite/inline-17.s.expected | 1 + tests/GCCTestSuite/inline-18.c | 28 + tests/GCCTestSuite/inline-18.c.expected | 28 + tests/GCCTestSuite/inline-18.hex.expected | 13 + tests/GCCTestSuite/inline-18.s.expected | 1 + tests/GCCTestSuite/inline-19.c | 28 + tests/GCCTestSuite/inline-19.c.expected | 28 + tests/GCCTestSuite/inline-19.hex.expected | 13 + tests/GCCTestSuite/inline-19.s.expected | 1 + tests/GCCTestSuite/inline-2.c | 19 + tests/GCCTestSuite/inline-2.c.expected | 19 + tests/GCCTestSuite/inline-2.hex.expected | 34 + tests/GCCTestSuite/inline-2.s.expected | 1 + tests/GCCTestSuite/inline-21.c | 4 + tests/GCCTestSuite/inline-21.c.expected | 4 + tests/GCCTestSuite/inline-21.hex.expected | 1 + tests/GCCTestSuite/inline-21.s.expected | 1 + tests/GCCTestSuite/inline-4.c | 18 + tests/GCCTestSuite/inline-4.c.expected | 18 + tests/GCCTestSuite/inline-4.hex.expected | 1 + tests/GCCTestSuite/inline-4.s.expected | 1 + tests/GCCTestSuite/inline-5.c | 13 + tests/GCCTestSuite/inline-5.c.expected | 13 + tests/GCCTestSuite/inline-5.hex.expected | 19 + tests/GCCTestSuite/inline-5.s.expected | 1 + tests/GCCTestSuite/inline-6.c | 6 + tests/GCCTestSuite/inline-6.c.expected | 6 + tests/GCCTestSuite/inline-6.hex.expected | 5 + tests/GCCTestSuite/inline-6.s.expected | 1 + tests/GCCTestSuite/inline-7.c | 6 + tests/GCCTestSuite/inline-7.c.expected | 6 + tests/GCCTestSuite/inline-7.hex.expected | 5 + tests/GCCTestSuite/inline-7.s.expected | 1 + tests/GCCTestSuite/inline-8.c | 6 + tests/GCCTestSuite/inline-8.c.expected | 6 + tests/GCCTestSuite/inline-8.hex.expected | 1 + tests/GCCTestSuite/inline-8.s.expected | 1 + tests/GCCTestSuite/inline-9.c | 6 + tests/GCCTestSuite/inline-9.c.expected | 6 + tests/GCCTestSuite/inline-9.hex.expected | 1 + tests/GCCTestSuite/inline-9.s.expected | 1 + tests/GCCTestSuite/inline-mcpy.c | 11 + tests/GCCTestSuite/inline-mcpy.c.expected | 11 + tests/GCCTestSuite/inline1.c | 8 + tests/GCCTestSuite/inline1.c.expected | 8 + tests/GCCTestSuite/inline1.hex.expected | 1 + tests/GCCTestSuite/inline1.s.expected | 1 + tests/GCCTestSuite/inline2.c | 5 + tests/GCCTestSuite/inline2.c.expected | 5 + tests/GCCTestSuite/inline2.hex.expected | 5 + tests/GCCTestSuite/inline2.s.expected | 1 + tests/GCCTestSuite/inline4.c | 6 + tests/GCCTestSuite/inline4.c.expected | 6 + tests/GCCTestSuite/inline4.hex.expected | 5 + tests/GCCTestSuite/inline4.s.expected | 1 + tests/GCCTestSuite/inline5.c | 6 + tests/GCCTestSuite/inline5.c.expected | 6 + tests/GCCTestSuite/inline5.hex.expected | 1 + tests/GCCTestSuite/inline5.s.expected | 1 + tests/GCCTestSuite/intermod-1.c | 23 + tests/GCCTestSuite/intermod-1.c.expected | 23 + tests/GCCTestSuite/intermod-1.hex.expected | 48 + tests/GCCTestSuite/intermod-1.s.expected | 1 + tests/GCCTestSuite/intmax_t-1.c | 25 + tests/GCCTestSuite/intmax_t-1.c.expected | 25 + tests/GCCTestSuite/intmax_t-1.hex.expected | 24 + tests/GCCTestSuite/intmax_t-1.s.expected | 1 + tests/GCCTestSuite/kpice1.c | 6 + tests/GCCTestSuite/kpice1.c.expected | 6 + tests/GCCTestSuite/kpice1.hex.expected | 15 + tests/GCCTestSuite/kpice1.s.expected | 1 + tests/GCCTestSuite/label-compound-stmt-1.c | 7 + .../label-compound-stmt-1.c.expected | 7 + .../label-compound-stmt-1.hex.expected | 5 + .../label-compound-stmt-1.s.expected | 1 + tests/GCCTestSuite/local1.c | 23 + tests/GCCTestSuite/local1.c.expected | 23 + tests/GCCTestSuite/local1.hex.expected | 1 + tests/GCCTestSuite/local1.s.expected | 1 + tests/GCCTestSuite/loop-5.c | 16 + tests/GCCTestSuite/loop-5.c.expected | 16 + tests/GCCTestSuite/loop-5.hex.expected | 57 + tests/GCCTestSuite/loop-5.s.expected | 1 + tests/GCCTestSuite/m-un-1.c | 37 + tests/GCCTestSuite/m-un-1.c.expected | 37 + tests/GCCTestSuite/m-un-1.hex.expected | 89 + tests/GCCTestSuite/m-un-1.s.expected | 1 + tests/GCCTestSuite/merge-all-constants-1.c | 8 + .../merge-all-constants-1.c.expected | 8 + .../merge-all-constants-1.hex.expected | 1 + .../merge-all-constants-1.s.expected | 1 + tests/GCCTestSuite/nested-redef-1.c | 44 + tests/GCCTestSuite/nested-redef-1.c.expected | 44 + .../GCCTestSuite/nested-redef-1.hex.expected | 1 + tests/GCCTestSuite/nested-redef-1.s.expected | 1 + tests/GCCTestSuite/nonnull-1.c | 39 + tests/GCCTestSuite/nonnull-1.c.expected | 39 + tests/GCCTestSuite/nonnull-1.hex.expected | 176 + tests/GCCTestSuite/nonnull-1.s.expected | 1 + tests/GCCTestSuite/nonnull-2.c | 16 + tests/GCCTestSuite/nonnull-2.c.expected | 16 + tests/GCCTestSuite/nonnull-2.hex.expected | 5 + tests/GCCTestSuite/nonnull-2.s.expected | 1 + tests/GCCTestSuite/noreturn-1.c | 59 + tests/GCCTestSuite/noreturn-1.c.expected | 59 + tests/GCCTestSuite/noreturn-1.hex.expected | 55 + tests/GCCTestSuite/noreturn-1.s.expected | 1 + tests/GCCTestSuite/noreturn-2.c | 12 + tests/GCCTestSuite/noreturn-2.c.expected | 12 + tests/GCCTestSuite/noreturn-2.hex.expected | 11 + tests/GCCTestSuite/noreturn-2.s.expected | 1 + tests/GCCTestSuite/noreturn-5.c | 8 + tests/GCCTestSuite/noreturn-5.c.expected | 8 + tests/GCCTestSuite/noreturn-5.hex.expected | 1 + tests/GCCTestSuite/noreturn-5.s.expected | 1 + tests/GCCTestSuite/noreturn-6.c | 4 + tests/GCCTestSuite/noreturn-6.c.expected | 4 + tests/GCCTestSuite/noreturn-6.hex.expected | 1 + tests/GCCTestSuite/noreturn-6.s.expected | 1 + tests/GCCTestSuite/noreturn-7.c | 42 + tests/GCCTestSuite/noreturn-7.c.expected | 42 + tests/GCCTestSuite/noreturn-7.hex.expected | 404 ++ tests/GCCTestSuite/noreturn-7.s.expected | 1 + tests/GCCTestSuite/null-pointer-1.c | 20 + tests/GCCTestSuite/null-pointer-1.c.expected | 20 + .../GCCTestSuite/null-pointer-1.hex.expected | 29 + tests/GCCTestSuite/null-pointer-1.s.expected | 1 + tests/GCCTestSuite/old-style-then-proto-1.c | 44 + .../old-style-then-proto-1.c.expected | 44 + .../old-style-then-proto-1.hex.expected | 67 + .../old-style-then-proto-1.s.expected | 1 + tests/GCCTestSuite/overflow-1.c | 25 + tests/GCCTestSuite/overflow-1.c.expected | 25 + tests/GCCTestSuite/overflow-1.hex.expected | 337 ++ tests/GCCTestSuite/overflow-1.s.expected | 1 + tests/GCCTestSuite/pack-test-2.c | 25 + tests/GCCTestSuite/pack-test-2.c.expected | 25 + tests/GCCTestSuite/pack-test-2.hex.expected | 1 + tests/GCCTestSuite/pack-test-2.s.expected | 1 + tests/GCCTestSuite/pack-test-3.c | 44 + tests/GCCTestSuite/pack-test-3.c.expected | 44 + tests/GCCTestSuite/pack-test-3.hex.expected | 1 + tests/GCCTestSuite/pack-test-3.s.expected | 1 + tests/GCCTestSuite/parm-mismatch-1.c | 18 + tests/GCCTestSuite/parm-mismatch-1.c.expected | 18 + .../GCCTestSuite/parm-mismatch-1.hex.expected | 1 + tests/GCCTestSuite/parm-mismatch-1.s.expected | 1 + tests/GCCTestSuite/postincr-1.c | 21 + tests/GCCTestSuite/postincr-1.c.expected | 21 + tests/GCCTestSuite/postincr-1.hex.expected | 215 + tests/GCCTestSuite/postincr-1.s.expected | 1 + tests/GCCTestSuite/pr11459-1.c | 6 + tests/GCCTestSuite/pr11459-1.c.expected | 6 + tests/GCCTestSuite/pr11459-1.hex.expected | 1 + tests/GCCTestSuite/pr11459-1.s.expected | 1 + tests/GCCTestSuite/pr11864-1.c | 42 + tests/GCCTestSuite/pr11864-1.c.expected | 42 + tests/GCCTestSuite/pr11864-1.hex.expected | 215 + tests/GCCTestSuite/pr11864-1.s.expected | 1 + tests/GCCTestSuite/pr14092-1.c | 20 + tests/GCCTestSuite/pr14092-1.c.expected | 20 + tests/GCCTestSuite/pr14092-1.hex.expected | 19 + tests/GCCTestSuite/pr14092-1.s.expected | 1 + tests/GCCTestSuite/pr14475.c | 8 + tests/GCCTestSuite/pr14475.c.expected | 8 + tests/GCCTestSuite/pr14475.hex.expected | 1 + tests/GCCTestSuite/pr14475.s.expected | 1 + tests/GCCTestSuite/pr14796-1.c | 24 + tests/GCCTestSuite/pr14796-1.c.expected | 24 + tests/GCCTestSuite/pr14796-2.c | 22 + tests/GCCTestSuite/pr14796-2.c.expected | 22 + tests/GCCTestSuite/pr15443-2.c | 15 + tests/GCCTestSuite/pr15443-2.c.expected | 15 + tests/GCCTestSuite/pr15443-2.hex.expected | 1 + tests/GCCTestSuite/pr15443-2.s.expected | 1 + tests/GCCTestSuite/pr15698-3.c | 11 + tests/GCCTestSuite/pr15698-3.c.expected | 11 + tests/GCCTestSuite/pr15698-3.hex.expected | 7 + tests/GCCTestSuite/pr15698-3.s.expected | 1 + tests/GCCTestSuite/pr15698-4.c | 9 + tests/GCCTestSuite/pr15698-4.c.expected | 9 + tests/GCCTestSuite/pr15698-4.hex.expected | 7 + tests/GCCTestSuite/pr15698-4.s.expected | 1 + tests/GCCTestSuite/pr15698-6.c | 9 + tests/GCCTestSuite/pr15698-6.c.expected | 9 + tests/GCCTestSuite/pr15698-6.hex.expected | 7 + tests/GCCTestSuite/pr15698-6.s.expected | 1 + tests/GCCTestSuite/pr15698-7.c | 10 + tests/GCCTestSuite/pr15698-7.c.expected | 10 + tests/GCCTestSuite/pr15698-7.hex.expected | 7 + tests/GCCTestSuite/pr15698-7.s.expected | 1 + tests/GCCTestSuite/pr15784-4.c | 13 + tests/GCCTestSuite/pr15784-4.c.expected | 13 + tests/GCCTestSuite/pr15784-4.hex.expected | 26 + tests/GCCTestSuite/pr15784-4.s.expected | 1 + tests/GCCTestSuite/pr15825-1.c | 18 + tests/GCCTestSuite/pr15825-1.c.expected | 18 + tests/GCCTestSuite/pr15825-1.hex.expected | 91 + tests/GCCTestSuite/pr15825-1.s.expected | 1 + tests/GCCTestSuite/pr17036-1.c | 11 + tests/GCCTestSuite/pr17036-1.c.expected | 11 + tests/GCCTestSuite/pr17036-1.hex.expected | 6 + tests/GCCTestSuite/pr17036-1.s.expected | 1 + tests/GCCTestSuite/pr17319.c | 12 + tests/GCCTestSuite/pr17319.c.expected | 12 + tests/GCCTestSuite/pr17319.hex.expected | 63 + tests/GCCTestSuite/pr17319.s.expected | 1 + tests/GCCTestSuite/pr17581-1.c | 30 + tests/GCCTestSuite/pr17581-1.c.expected | 30 + tests/GCCTestSuite/pr17581-1.hex.expected | 64 + tests/GCCTestSuite/pr17581-1.s.expected | 1 + tests/GCCTestSuite/pr17635.c | 11 + tests/GCCTestSuite/pr17635.c.expected | 11 + tests/GCCTestSuite/pr17635.hex.expected | 30 + tests/GCCTestSuite/pr17635.s.expected | 1 + tests/GCCTestSuite/pr17957.c | 19 + tests/GCCTestSuite/pr17957.c.expected | 19 + tests/GCCTestSuite/pr17957.hex.expected | 43 + tests/GCCTestSuite/pr17957.s.expected | 1 + tests/GCCTestSuite/pr18241-5.c | 14 + tests/GCCTestSuite/pr18241-5.c.expected | 14 + tests/GCCTestSuite/pr18241-5.hex.expected | 53 + tests/GCCTestSuite/pr18241-5.s.expected | 1 + tests/GCCTestSuite/pr18479.c | 3 + tests/GCCTestSuite/pr18479.c.expected | 3 + tests/GCCTestSuite/pr18479.hex.expected | 1 + tests/GCCTestSuite/pr18479.s.expected | 1 + tests/GCCTestSuite/pr18809-1.c | 7 + tests/GCCTestSuite/pr18809-1.c.expected | 7 + tests/GCCTestSuite/pr18809-1.hex.expected | 17 + tests/GCCTestSuite/pr18809-1.s.expected | 1 + tests/GCCTestSuite/pr18921-1.c | 20 + tests/GCCTestSuite/pr18921-1.c.expected | 20 + tests/GCCTestSuite/pr18921-1.hex.expected | 40 + tests/GCCTestSuite/pr18921-1.s.expected | 1 + tests/GCCTestSuite/pr18928-1.c | 20 + tests/GCCTestSuite/pr18928-1.c.expected | 20 + tests/GCCTestSuite/pr18928-1.hex.expected | 208 + tests/GCCTestSuite/pr18928-1.s.expected | 1 + tests/GCCTestSuite/pr20017.c | 41 + tests/GCCTestSuite/pr20017.c.expected | 41 + tests/GCCTestSuite/pr20017.hex.expected | 219 + tests/GCCTestSuite/pr20017.s.expected | 1 + tests/GCCTestSuite/pr20115-1.c | 15 + tests/GCCTestSuite/pr20115-1.c.expected | 15 + tests/GCCTestSuite/pr20115-1.hex.expected | 26 + tests/GCCTestSuite/pr20115-1.s.expected | 1 + tests/GCCTestSuite/pr20115.c | 28 + tests/GCCTestSuite/pr20115.c.expected | 28 + tests/GCCTestSuite/pr20115.hex.expected | 91 + tests/GCCTestSuite/pr20115.s.expected | 1 + tests/GCCTestSuite/pr20130-1.c | 15 + tests/GCCTestSuite/pr20130-1.c.expected | 15 + tests/GCCTestSuite/pr20130-1.hex.expected | 183 + tests/GCCTestSuite/pr20130-1.s.expected | 1 + tests/GCCTestSuite/pr21085.c | 9 + tests/GCCTestSuite/pr21085.c.expected | 9 + tests/GCCTestSuite/pr21085.hex.expected | 395 ++ tests/GCCTestSuite/pr21085.s.expected | 1 + tests/GCCTestSuite/pr22308-1.c | 13 + tests/GCCTestSuite/pr22308-1.c.expected | 13 + tests/GCCTestSuite/pr22308-1.hex.expected | 32 + tests/GCCTestSuite/pr22308-1.s.expected | 1 + tests/GCCTestSuite/pr22311-1.c | 6 + tests/GCCTestSuite/pr22311-1.c.expected | 6 + tests/GCCTestSuite/pr22311-1.hex.expected | 7 + tests/GCCTestSuite/pr22311-1.s.expected | 1 + tests/GCCTestSuite/pr22329.c | 9 + tests/GCCTestSuite/pr22329.c.expected | 9 + tests/GCCTestSuite/pr22329.hex.expected | 45 + tests/GCCTestSuite/pr22329.s.expected | 1 + tests/GCCTestSuite/pr22335-1.c | 10 + tests/GCCTestSuite/pr22335-1.c.expected | 10 + tests/GCCTestSuite/pr22335-1.hex.expected | 35 + tests/GCCTestSuite/pr22335-1.s.expected | 1 + tests/GCCTestSuite/pr22335-2.c | 39 + tests/GCCTestSuite/pr22335-2.c.expected | 39 + tests/GCCTestSuite/pr22335-2.hex.expected | 263 + tests/GCCTestSuite/pr22335-2.s.expected | 1 + tests/GCCTestSuite/pr23049.c | 26 + tests/GCCTestSuite/pr23049.c.expected | 26 + tests/GCCTestSuite/pr23165.c | 9 + tests/GCCTestSuite/pr23165.c.expected | 9 + tests/GCCTestSuite/pr23165.hex.expected | 9 + tests/GCCTestSuite/pr23165.s.expected | 1 + tests/GCCTestSuite/pr23584.c | 21 + tests/GCCTestSuite/pr23584.c.expected | 21 + tests/GCCTestSuite/pr23584.hex.expected | 31 + tests/GCCTestSuite/pr23584.s.expected | 1 + tests/GCCTestSuite/pr23625.c | 27 + tests/GCCTestSuite/pr23625.c.expected | 27 + tests/GCCTestSuite/pr23625.hex.expected | 474 ++ tests/GCCTestSuite/pr23625.s.expected | 1 + tests/GCCTestSuite/pr24367.c | 17 + tests/GCCTestSuite/pr24367.c.expected | 17 + tests/GCCTestSuite/pr24367.hex.expected | 160 + tests/GCCTestSuite/pr24367.s.expected | 1 + tests/GCCTestSuite/pr24445.c | 9 + tests/GCCTestSuite/pr24445.c.expected | 9 + tests/GCCTestSuite/pr24445.hex.expected | 19 + tests/GCCTestSuite/pr24445.s.expected | 1 + tests/GCCTestSuite/pr24600.c | 16 + tests/GCCTestSuite/pr24600.c.expected | 16 + tests/GCCTestSuite/pr24600.hex.expected | 165 + tests/GCCTestSuite/pr24600.s.expected | 1 + tests/GCCTestSuite/pr24615.c | 27 + tests/GCCTestSuite/pr24615.c.expected | 27 + tests/GCCTestSuite/pr24615.hex.expected | 170 + tests/GCCTestSuite/pr24615.s.expected | 1 + tests/GCCTestSuite/pr24620.c | 27 + tests/GCCTestSuite/pr24620.c.expected | 27 + tests/GCCTestSuite/pr24620.hex.expected | 42 + tests/GCCTestSuite/pr24620.s.expected | 1 + tests/GCCTestSuite/pr24683.c | 11 + tests/GCCTestSuite/pr24683.c.expected | 11 + tests/GCCTestSuite/pr25196.c | 34 + tests/GCCTestSuite/pr25196.c.expected | 34 + tests/GCCTestSuite/pr25196.hex.expected | 259 + tests/GCCTestSuite/pr25196.s.expected | 1 + tests/GCCTestSuite/pr25559.c | 10 + tests/GCCTestSuite/pr25559.c.expected | 10 + tests/GCCTestSuite/pr25559.hex.expected | 1 + tests/GCCTestSuite/pr25559.s.expected | 1 + tests/GCCTestSuite/pr25795-1.c | 10 + tests/GCCTestSuite/pr25795-1.c.expected | 10 + tests/GCCTestSuite/pr25795-1.hex.expected | 6 + tests/GCCTestSuite/pr25795-1.s.expected | 1 + tests/GCCTestSuite/pr25795.c | 10 + tests/GCCTestSuite/pr25795.c.expected | 10 + tests/GCCTestSuite/pr25795.hex.expected | 6 + tests/GCCTestSuite/pr25795.s.expected | 1 + tests/GCCTestSuite/pr25993.c | 14 + tests/GCCTestSuite/pr25993.c.expected | 14 + tests/GCCTestSuite/pr25993.hex.expected | 1 + tests/GCCTestSuite/pr25993.s.expected | 1 + tests/GCCTestSuite/pr26004.c | 11 + tests/GCCTestSuite/pr26004.c.expected | 11 + tests/GCCTestSuite/pr26004.hex.expected | 400 ++ tests/GCCTestSuite/pr26004.s.expected | 1 + tests/GCCTestSuite/pr26570.c | 7 + tests/GCCTestSuite/pr26570.c.expected | 7 + tests/GCCTestSuite/pr26570.hex.expected | 113 + tests/GCCTestSuite/pr26570.s.expected | 1 + tests/GCCTestSuite/pr26961-1.c | 8 + tests/GCCTestSuite/pr26961-1.c.expected | 8 + tests/GCCTestSuite/pr26961-1.hex.expected | 28 + tests/GCCTestSuite/pr26961-1.s.expected | 1 + tests/GCCTestSuite/pr28187.c | 22 + tests/GCCTestSuite/pr28187.c.expected | 22 + tests/GCCTestSuite/pr28187.hex.expected | 336 ++ tests/GCCTestSuite/pr28187.s.expected | 1 + tests/GCCTestSuite/pr28402.c | 22 + tests/GCCTestSuite/pr28402.c.expected | 22 + tests/GCCTestSuite/pr29581-1.c | 44 + tests/GCCTestSuite/pr29581-1.c.expected | 44 + tests/GCCTestSuite/pr29581-1.hex.expected | 449 ++ tests/GCCTestSuite/pr29581-1.s.expected | 1 + tests/GCCTestSuite/pr29581-3.c | 48 + tests/GCCTestSuite/pr29581-3.c.expected | 48 + tests/GCCTestSuite/pr29581-3.hex.expected | 480 ++ tests/GCCTestSuite/pr29581-3.s.expected | 1 + tests/GCCTestSuite/pr29637.c | 23 + tests/GCCTestSuite/pr29637.c.expected | 23 + tests/GCCTestSuite/pr29637.hex.expected | 247 + tests/GCCTestSuite/pr29637.s.expected | 1 + tests/GCCTestSuite/pr29736.c | 13 + tests/GCCTestSuite/pr29736.c.expected | 13 + tests/GCCTestSuite/pr29736.hex.expected | 83 + tests/GCCTestSuite/pr29736.s.expected | 1 + tests/GCCTestSuite/pr3074-1.c | 10 + tests/GCCTestSuite/pr3074-1.c.expected | 10 + tests/GCCTestSuite/pr3074-1.hex.expected | 5 + tests/GCCTestSuite/pr3074-1.s.expected | 1 + tests/GCCTestSuite/pr32450.c | 33 + tests/GCCTestSuite/pr32450.c.expected | 33 + tests/GCCTestSuite/pr32450.hex.expected | 165 + tests/GCCTestSuite/pr32450.s.expected | 1 + tests/GCCTestSuite/pragma-ep-2.c | 7 + tests/GCCTestSuite/pragma-ep-2.c.expected | 7 + tests/GCCTestSuite/pragma-ep-2.hex.expected | 1 + tests/GCCTestSuite/pragma-ep-2.s.expected | 1 + tests/GCCTestSuite/pragma-ep-3.c | 10 + tests/GCCTestSuite/pragma-ep-3.c.expected | 10 + tests/GCCTestSuite/pragma-ep-3.hex.expected | 11 + tests/GCCTestSuite/pragma-ep-3.s.expected | 1 + tests/GCCTestSuite/pragma-isr-trap_exit.c | 17 + .../pragma-isr-trap_exit.c.expected | 17 + .../pragma-isr-trap_exit.hex.expected | 15 + .../pragma-isr-trap_exit.s.expected | 1 + tests/GCCTestSuite/pragma-isr2.c | 16 + tests/GCCTestSuite/pragma-isr2.c.expected | 16 + tests/GCCTestSuite/pragma-isr2.hex.expected | 15 + tests/GCCTestSuite/pragma-isr2.s.expected | 1 + tests/GCCTestSuite/pragma-pack-4.c | 7 + tests/GCCTestSuite/pragma-pack-4.c.expected | 7 + tests/GCCTestSuite/pragma-pack-4.hex.expected | 1 + tests/GCCTestSuite/pragma-pack-4.s.expected | 1 + tests/GCCTestSuite/pragma-re-2.c | 8 + tests/GCCTestSuite/pragma-re-2.c.expected | 8 + tests/GCCTestSuite/pragma-re-2.hex.expected | 1 + tests/GCCTestSuite/pragma-re-2.s.expected | 1 + tests/GCCTestSuite/profile-generate-2.c | 35 + .../profile-generate-2.c.expected | 35 + .../profile-generate-2.hex.expected | 1 + .../profile-generate-2.s.expected | 1 + tests/GCCTestSuite/pure-1.c | 16 + tests/GCCTestSuite/pure-1.c.expected | 16 + tests/GCCTestSuite/pure-1.hex.expected | 20 + tests/GCCTestSuite/pure-1.s.expected | 1 + tests/GCCTestSuite/qual-return-1.c | 22 + tests/GCCTestSuite/qual-return-1.c.expected | 22 + tests/GCCTestSuite/qual-return-1.hex.expected | 16 + tests/GCCTestSuite/qual-return-1.s.expected | 1 + tests/GCCTestSuite/qual-return-2.c | 13 + tests/GCCTestSuite/qual-return-2.c.expected | 13 + tests/GCCTestSuite/qual-return-2.hex.expected | 5 + tests/GCCTestSuite/qual-return-2.s.expected | 1 + tests/GCCTestSuite/qual-return-3.c | 16 + tests/GCCTestSuite/qual-return-3.c.expected | 16 + tests/GCCTestSuite/qual-return-3.hex.expected | 12 + tests/GCCTestSuite/qual-return-3.s.expected | 1 + tests/GCCTestSuite/qual-return-4.c | 10 + tests/GCCTestSuite/qual-return-4.c.expected | 10 + tests/GCCTestSuite/qual-return-4.hex.expected | 13 + tests/GCCTestSuite/qual-return-4.s.expected | 1 + tests/GCCTestSuite/redecl-13.c | 9 + tests/GCCTestSuite/redecl-13.c.expected | 9 + tests/GCCTestSuite/redecl-13.hex.expected | 5 + tests/GCCTestSuite/redecl-13.s.expected | 1 + tests/GCCTestSuite/redecl-16.c | 18 + tests/GCCTestSuite/redecl-16.c.expected | 18 + tests/GCCTestSuite/redecl-16.hex.expected | 5 + tests/GCCTestSuite/redecl-16.s.expected | 1 + tests/GCCTestSuite/redecl-6.c | 24 + tests/GCCTestSuite/redecl-6.c.expected | 24 + tests/GCCTestSuite/redecl-6.hex.expected | 13 + tests/GCCTestSuite/redecl-6.s.expected | 1 + tests/GCCTestSuite/redecl-8.c | 23 + tests/GCCTestSuite/redecl-8.c.expected | 23 + tests/GCCTestSuite/redecl-8.hex.expected | 8 + tests/GCCTestSuite/redecl-8.s.expected | 1 + tests/GCCTestSuite/redecl-9.c | 30 + tests/GCCTestSuite/redecl-9.c.expected | 30 + tests/GCCTestSuite/redecl-9.hex.expected | 11 + tests/GCCTestSuite/redecl-9.s.expected | 1 + tests/GCCTestSuite/reg-vol-struct-1.c | 18 + .../GCCTestSuite/reg-vol-struct-1.c.expected | 18 + .../reg-vol-struct-1.hex.expected | 7 + .../GCCTestSuite/reg-vol-struct-1.s.expected | 1 + tests/GCCTestSuite/register-var-1.c | 14 + tests/GCCTestSuite/register-var-1.c.expected | 14 + .../GCCTestSuite/register-var-1.hex.expected | 14 + tests/GCCTestSuite/register-var-1.s.expected | 1 + tests/GCCTestSuite/register-var-2.c | 14 + tests/GCCTestSuite/register-var-2.c.expected | 14 + .../GCCTestSuite/register-var-2.hex.expected | 14 + tests/GCCTestSuite/register-var-2.s.expected | 1 + tests/GCCTestSuite/return-type-1.c | 9 + tests/GCCTestSuite/return-type-1.c.expected | 9 + tests/GCCTestSuite/return-type-1.hex.expected | 5 + tests/GCCTestSuite/return-type-1.s.expected | 1 + tests/GCCTestSuite/return-type-2.c | 47 + tests/GCCTestSuite/return-type-2.c.expected | 47 + tests/GCCTestSuite/return-type-2.hex.expected | 155 + tests/GCCTestSuite/return-type-2.s.expected | 1 + tests/GCCTestSuite/return-type-3.c | 14 + tests/GCCTestSuite/return-type-3.c.expected | 14 + tests/GCCTestSuite/return-type-3.hex.expected | 14 + tests/GCCTestSuite/return-type-3.s.expected | 1 + tests/GCCTestSuite/section1.c | 5 + tests/GCCTestSuite/section1.c.expected | 5 + tests/GCCTestSuite/section1.hex.expected | 1 + tests/GCCTestSuite/section1.s.expected | 1 + tests/GCCTestSuite/simd-1b.c | 36 + tests/GCCTestSuite/simd-1b.c.expected | 36 + tests/GCCTestSuite/simd-1b.hex.expected | 1402 +++++ tests/GCCTestSuite/simd-1b.s.expected | 1 + tests/GCCTestSuite/simd-3.c | 16 + tests/GCCTestSuite/simd-3.c.expected | 16 + tests/GCCTestSuite/simd-3.hex.expected | 33 + tests/GCCTestSuite/simd-3.s.expected | 1 + tests/GCCTestSuite/sparc-constant-1.c | 12 + .../GCCTestSuite/sparc-constant-1.c.expected | 12 + .../sparc-constant-1.hex.expected | 12 + .../GCCTestSuite/sparc-constant-1.s.expected | 1 + tests/GCCTestSuite/struct-empty-1.c | 10 + tests/GCCTestSuite/struct-empty-1.c.expected | 10 + .../GCCTestSuite/struct-empty-1.hex.expected | 1 + tests/GCCTestSuite/struct-empty-1.s.expected | 1 + tests/GCCTestSuite/struct-empty-2.c | 10 + tests/GCCTestSuite/struct-empty-2.c.expected | 10 + .../GCCTestSuite/struct-empty-2.hex.expected | 1 + tests/GCCTestSuite/struct-empty-2.s.expected | 1 + tests/GCCTestSuite/struct-empty-3.c | 10 + tests/GCCTestSuite/struct-empty-3.c.expected | 10 + .../GCCTestSuite/struct-empty-3.hex.expected | 1 + tests/GCCTestSuite/struct-empty-3.s.expected | 1 + tests/GCCTestSuite/struct-ret-2.c | 15 + tests/GCCTestSuite/struct-ret-2.c.expected | 15 + tests/GCCTestSuite/struct-ret-2.hex.expected | 19 + tests/GCCTestSuite/struct-ret-2.s.expected | 1 + tests/GCCTestSuite/switch-1.c | 17 + tests/GCCTestSuite/switch-1.c.expected | 17 + tests/GCCTestSuite/switch-1.hex.expected | 129 + tests/GCCTestSuite/switch-1.s.expected | 1 + tests/GCCTestSuite/switch-4.c | 24 + tests/GCCTestSuite/switch-4.c.expected | 24 + tests/GCCTestSuite/switch-4.hex.expected | 188 + tests/GCCTestSuite/switch-4.s.expected | 1 + tests/GCCTestSuite/symbian1.c | 11 + tests/GCCTestSuite/symbian1.c.expected | 11 + tests/GCCTestSuite/symbian1.hex.expected | 5 + tests/GCCTestSuite/symbian1.s.expected | 1 + tests/GCCTestSuite/symbian3.c | 7 + tests/GCCTestSuite/symbian3.c.expected | 7 + tests/GCCTestSuite/symbian3.hex.expected | 1 + tests/GCCTestSuite/symbian3.s.expected | 1 + tests/GCCTestSuite/symbian4.c | 5 + tests/GCCTestSuite/symbian4.c.expected | 5 + tests/GCCTestSuite/symbian4.hex.expected | 1 + tests/GCCTestSuite/symbian4.s.expected | 1 + tests/GCCTestSuite/symbian5.c | 8 + tests/GCCTestSuite/symbian5.c.expected | 8 + tests/GCCTestSuite/symbian5.hex.expected | 1 + tests/GCCTestSuite/symbian5.s.expected | 1 + tests/GCCTestSuite/transparent-union-2.c | 18 + .../transparent-union-2.c.expected | 18 + .../transparent-union-2.hex.expected | 1 + .../transparent-union-2.s.expected | 1 + tests/GCCTestSuite/transparent-union-3.c | 22 + .../transparent-union-3.c.expected | 22 + .../transparent-union-3.hex.expected | 1 + .../transparent-union-3.s.expected | 1 + tests/GCCTestSuite/trunc-1.c | 15 + tests/GCCTestSuite/trunc-1.c.expected | 15 + tests/GCCTestSuite/trunc-1.hex.expected | 6 + tests/GCCTestSuite/trunc-1.s.expected | 1 + tests/GCCTestSuite/typedef-init.c | 16 + tests/GCCTestSuite/typedef-init.c.expected | 16 + tests/GCCTestSuite/typedef-init.hex.expected | 1 + tests/GCCTestSuite/typedef-init.s.expected | 1 + tests/GCCTestSuite/ultrasp1.c | 9 + tests/GCCTestSuite/ultrasp1.c.expected | 9 + tests/GCCTestSuite/ultrasp1.hex.expected | 60 + tests/GCCTestSuite/ultrasp1.s.expected | 1 + tests/GCCTestSuite/ultrasp10.c | 25 + tests/GCCTestSuite/ultrasp10.c.expected | 25 + tests/GCCTestSuite/ultrasp2.c | 12 + tests/GCCTestSuite/ultrasp2.c.expected | 12 + tests/GCCTestSuite/ultrasp2.hex.expected | 137 + tests/GCCTestSuite/ultrasp2.s.expected | 1 + tests/GCCTestSuite/ultrasp4.c | 21 + tests/GCCTestSuite/ultrasp4.c.expected | 21 + tests/GCCTestSuite/ultrasp4.hex.expected | 725 +++ tests/GCCTestSuite/ultrasp4.s.expected | 1 + tests/GCCTestSuite/uninit-1.c | 30 + tests/GCCTestSuite/uninit-1.c.expected | 30 + tests/GCCTestSuite/uninit-1.hex.expected | 128 + tests/GCCTestSuite/uninit-1.s.expected | 1 + tests/GCCTestSuite/uninit-11.c | 42 + tests/GCCTestSuite/uninit-11.c.expected | 42 + tests/GCCTestSuite/uninit-11.hex.expected | 176 + tests/GCCTestSuite/uninit-11.s.expected | 1 + tests/GCCTestSuite/uninit-2.c | 52 + tests/GCCTestSuite/uninit-2.c.expected | 52 + tests/GCCTestSuite/uninit-2.hex.expected | 373 ++ tests/GCCTestSuite/uninit-2.s.expected | 1 + tests/GCCTestSuite/uninit-3.c | 33 + tests/GCCTestSuite/uninit-3.c.expected | 33 + tests/GCCTestSuite/uninit-4.c | 52 + tests/GCCTestSuite/uninit-4.c.expected | 52 + tests/GCCTestSuite/uninit-4.hex.expected | 179 + tests/GCCTestSuite/uninit-4.s.expected | 1 + tests/GCCTestSuite/uninit-5.c | 39 + tests/GCCTestSuite/uninit-5.c.expected | 39 + tests/GCCTestSuite/uninit-5.hex.expected | 75 + tests/GCCTestSuite/uninit-5.s.expected | 1 + tests/GCCTestSuite/uninit-6.c | 47 + tests/GCCTestSuite/uninit-6.c.expected | 47 + tests/GCCTestSuite/uninit-6.hex.expected | 323 ++ tests/GCCTestSuite/uninit-6.s.expected | 1 + tests/GCCTestSuite/uninit-8.c | 32 + tests/GCCTestSuite/uninit-8.c.expected | 32 + tests/GCCTestSuite/uninit-8.hex.expected | 190 + tests/GCCTestSuite/uninit-8.s.expected | 1 + tests/GCCTestSuite/uninit-B.c | 15 + tests/GCCTestSuite/uninit-B.c.expected | 15 + tests/GCCTestSuite/uninit-B.hex.expected | 44 + tests/GCCTestSuite/uninit-B.s.expected | 1 + tests/GCCTestSuite/uninit-C.c | 21 + tests/GCCTestSuite/uninit-C.c.expected | 21 + tests/GCCTestSuite/uninit-C.hex.expected | 10 + tests/GCCTestSuite/uninit-C.s.expected | 1 + tests/GCCTestSuite/uninit-D.c | 9 + tests/GCCTestSuite/uninit-D.c.expected | 9 + tests/GCCTestSuite/uninit-D.hex.expected | 5 + tests/GCCTestSuite/uninit-D.s.expected | 1 + tests/GCCTestSuite/uninit-E.c | 9 + tests/GCCTestSuite/uninit-E.c.expected | 9 + tests/GCCTestSuite/uninit-E.hex.expected | 5 + tests/GCCTestSuite/uninit-E.s.expected | 1 + tests/GCCTestSuite/uninit-F.c | 9 + tests/GCCTestSuite/uninit-F.c.expected | 9 + tests/GCCTestSuite/uninit-F.hex.expected | 9 + tests/GCCTestSuite/uninit-F.s.expected | 1 + tests/GCCTestSuite/uninit-G.c | 9 + tests/GCCTestSuite/uninit-G.c.expected | 9 + tests/GCCTestSuite/uninit-G.hex.expected | 25 + tests/GCCTestSuite/uninit-G.s.expected | 1 + tests/GCCTestSuite/uninit-H.c | 33 + tests/GCCTestSuite/uninit-H.c.expected | 33 + tests/GCCTestSuite/uninit-H.hex.expected | 5 + tests/GCCTestSuite/uninit-H.s.expected | 1 + tests/GCCTestSuite/uninit-I.c | 8 + tests/GCCTestSuite/uninit-I.c.expected | 8 + tests/GCCTestSuite/uninit-I.hex.expected | 23 + tests/GCCTestSuite/uninit-I.s.expected | 1 + tests/GCCTestSuite/unroll-1.c | 27 + tests/GCCTestSuite/unroll-1.c.expected | 27 + tests/GCCTestSuite/unroll-1.hex.expected | 434 ++ tests/GCCTestSuite/unroll-1.s.expected | 1 + tests/GCCTestSuite/unused-1.c | 11 + tests/GCCTestSuite/unused-1.c.expected | 11 + tests/GCCTestSuite/unused-1.hex.expected | 7 + tests/GCCTestSuite/unused-1.s.expected | 1 + tests/GCCTestSuite/unused-2.c | 18 + tests/GCCTestSuite/unused-2.c.expected | 18 + tests/GCCTestSuite/unused-2.hex.expected | 15 + tests/GCCTestSuite/unused-2.s.expected | 1 + tests/GCCTestSuite/unused-3.c | 14 + tests/GCCTestSuite/unused-3.c.expected | 14 + tests/GCCTestSuite/unused-3.hex.expected | 6 + tests/GCCTestSuite/unused-3.s.expected | 1 + tests/GCCTestSuite/unused-4.c | 6 + tests/GCCTestSuite/unused-4.c.expected | 6 + tests/GCCTestSuite/unused-4.hex.expected | 1 + tests/GCCTestSuite/unused-4.s.expected | 1 + tests/GCCTestSuite/unused-5.c | 8 + tests/GCCTestSuite/unused-5.c.expected | 8 + tests/GCCTestSuite/unused-5.hex.expected | 1 + tests/GCCTestSuite/unused-5.s.expected | 1 + tests/GCCTestSuite/unused-6.c | 11 + tests/GCCTestSuite/unused-6.c.expected | 11 + tests/GCCTestSuite/unused-6.hex.expected | 20 + tests/GCCTestSuite/unused-6.s.expected | 1 + tests/GCCTestSuite/unused-7.c | 5 + tests/GCCTestSuite/unused-7.c.expected | 5 + tests/GCCTestSuite/unused-7.hex.expected | 1 + tests/GCCTestSuite/unused-7.s.expected | 1 + tests/GCCTestSuite/verbose-asm.c | 28 + tests/GCCTestSuite/verbose-asm.c.expected | 28 + tests/GCCTestSuite/verbose-asm.hex.expected | 121 + tests/GCCTestSuite/verbose-asm.s.expected | 1 + tests/GCCTestSuite/visibility-1.c | 9 + tests/GCCTestSuite/visibility-1.c.expected | 9 + tests/GCCTestSuite/visibility-1.hex.expected | 5 + tests/GCCTestSuite/visibility-1.s.expected | 1 + tests/GCCTestSuite/visibility-10.c | 19 + tests/GCCTestSuite/visibility-10.c.expected | 19 + tests/GCCTestSuite/visibility-10.hex.expected | 8 + tests/GCCTestSuite/visibility-10.s.expected | 1 + tests/GCCTestSuite/visibility-2.c | 10 + tests/GCCTestSuite/visibility-2.c.expected | 10 + tests/GCCTestSuite/visibility-2.hex.expected | 5 + tests/GCCTestSuite/visibility-2.s.expected | 1 + tests/GCCTestSuite/visibility-3.c | 8 + tests/GCCTestSuite/visibility-3.c.expected | 8 + tests/GCCTestSuite/visibility-3.hex.expected | 1 + tests/GCCTestSuite/visibility-3.s.expected | 1 + tests/GCCTestSuite/visibility-4.c | 10 + tests/GCCTestSuite/visibility-4.c.expected | 10 + tests/GCCTestSuite/visibility-4.hex.expected | 1 + tests/GCCTestSuite/visibility-4.s.expected | 1 + tests/GCCTestSuite/visibility-5.c | 12 + tests/GCCTestSuite/visibility-5.c.expected | 12 + tests/GCCTestSuite/visibility-5.hex.expected | 5 + tests/GCCTestSuite/visibility-5.s.expected | 1 + tests/GCCTestSuite/visibility-6.c | 11 + tests/GCCTestSuite/visibility-6.c.expected | 11 + tests/GCCTestSuite/visibility-6.hex.expected | 1 + tests/GCCTestSuite/visibility-6.s.expected | 1 + tests/GCCTestSuite/visibility-7.c | 12 + tests/GCCTestSuite/visibility-7.c.expected | 12 + tests/GCCTestSuite/visibility-7.hex.expected | 1 + tests/GCCTestSuite/visibility-7.s.expected | 1 + tests/GCCTestSuite/visibility-8.c | 16 + tests/GCCTestSuite/visibility-8.c.expected | 16 + tests/GCCTestSuite/visibility-8.hex.expected | 7 + tests/GCCTestSuite/visibility-8.s.expected | 1 + tests/GCCTestSuite/visibility-9.c | 9 + tests/GCCTestSuite/visibility-9.c.expected | 9 + tests/GCCTestSuite/visibility-9.hex.expected | 5 + tests/GCCTestSuite/visibility-9.s.expected | 1 + tests/GCCTestSuite/visibility-a.c | 10 + tests/GCCTestSuite/visibility-a.c.expected | 10 + tests/GCCTestSuite/visibility-a.hex.expected | 5 + tests/GCCTestSuite/visibility-a.s.expected | 1 + tests/GCCTestSuite/visibility-b.c | 13 + tests/GCCTestSuite/visibility-b.c.expected | 13 + tests/GCCTestSuite/visibility-b.hex.expected | 88 + tests/GCCTestSuite/visibility-b.s.expected | 1 + tests/GCCTestSuite/visibility-c.c | 10 + tests/GCCTestSuite/visibility-c.c.expected | 10 + tests/GCCTestSuite/visibility-c.hex.expected | 18 + tests/GCCTestSuite/visibility-c.s.expected | 1 + tests/GCCTestSuite/visibility-d.c | 205 + tests/GCCTestSuite/visibility-d.c.expected | 205 + tests/GCCTestSuite/visibility-d.hex.expected | 200 + tests/GCCTestSuite/visibility-d.s.expected | 1 + tests/GCCTestSuite/void-cast-1.c | 11 + tests/GCCTestSuite/void-cast-1.c.expected | 11 + tests/GCCTestSuite/void-cast-1.hex.expected | 48 + tests/GCCTestSuite/void-cast-1.s.expected | 1 + tests/GCCTestSuite/void-cast-2.c | 8 + tests/GCCTestSuite/void-cast-2.c.expected | 8 + tests/GCCTestSuite/void-cast-2.hex.expected | 32 + tests/GCCTestSuite/void-cast-2.s.expected | 1 + tests/GCCTestSuite/volatile1.c | 9 + tests/GCCTestSuite/volatile1.c.expected | 9 + tests/GCCTestSuite/volatile1.hex.expected | 5 + tests/GCCTestSuite/volatile1.s.expected | 1 + tests/GCCTestSuite/warn-1.c | 16 + tests/GCCTestSuite/warn-1.c.expected | 16 + tests/GCCTestSuite/warn-1.hex.expected | 17 + tests/GCCTestSuite/warn-1.s.expected | 1 + tests/GCCTestSuite/wchar_t-1.c | 17 + tests/GCCTestSuite/wchar_t-1.c.expected | 17 + tests/GCCTestSuite/wchar_t-1.hex.expected | 13 + tests/GCCTestSuite/wchar_t-1.s.expected | 1 + tests/GCCTestSuite/wchar_t-2.c | 6 + tests/GCCTestSuite/wchar_t-2.c.expected | 6 + tests/GCCTestSuite/wchar_t-2.hex.expected | 1 + tests/GCCTestSuite/wchar_t-2.s.expected | 1 + tests/GCCTestSuite/winline-1.c | 13 + tests/GCCTestSuite/winline-1.c.expected | 13 + tests/GCCTestSuite/winline-1.hex.expected | 22 + tests/GCCTestSuite/winline-1.s.expected | 1 + tests/GCCTestSuite/winline-2.c | 8 + tests/GCCTestSuite/winline-2.c.expected | 8 + tests/GCCTestSuite/winline-2.hex.expected | 13 + tests/GCCTestSuite/winline-2.s.expected | 1 + tests/GCCTestSuite/winline-3.c | 21 + tests/GCCTestSuite/winline-3.c.expected | 21 + tests/GCCTestSuite/winline-3.hex.expected | 26 + tests/GCCTestSuite/winline-3.s.expected | 1 + tests/GCCTestSuite/winline-5.c | 29 + tests/GCCTestSuite/winline-5.c.expected | 29 + tests/GCCTestSuite/winline-5.hex.expected | 39 + tests/GCCTestSuite/winline-5.s.expected | 1 + tests/GCCTestSuite/winline-6.c | 21 + tests/GCCTestSuite/winline-6.c.expected | 21 + tests/GCCTestSuite/winline-6.hex.expected | 29 + tests/GCCTestSuite/winline-6.s.expected | 1 + tests/GCCTestSuite/winline-7.c | 14 + tests/GCCTestSuite/winline-7.c.expected | 14 + tests/GCCTestSuite/winline-7.hex.expected | 24 + tests/GCCTestSuite/winline-7.s.expected | 1 + tests/GCCTestSuite/wint_t-1.c | 17 + tests/GCCTestSuite/wint_t-1.c.expected | 17 + tests/GCCTestSuite/wint_t-1.hex.expected | 13 + tests/GCCTestSuite/wint_t-1.s.expected | 1 + tests/GCCTestSuite/wtr-escape-1.c | 22 + tests/GCCTestSuite/wtr-escape-1.c.expected | 22 + tests/GCCTestSuite/wtr-escape-1.hex.expected | 5 + tests/GCCTestSuite/wtr-escape-1.s.expected | 1 + tests/GCCTestSuite/wtr-static-1.c | 14 + tests/GCCTestSuite/wtr-static-1.c.expected | 14 + tests/GCCTestSuite/wtr-static-1.hex.expected | 8 + tests/GCCTestSuite/wtr-static-1.s.expected | 1 + tests/GCCTestSuite/wtr-switch-1.c | 25 + tests/GCCTestSuite/wtr-switch-1.c.expected | 25 + tests/GCCTestSuite/wtr-switch-1.hex.expected | 7 + tests/GCCTestSuite/wtr-switch-1.s.expected | 1 + tests/GCCTestSuite/wtr-unary-plus-1.c | 20 + .../GCCTestSuite/wtr-unary-plus-1.c.expected | 20 + .../wtr-unary-plus-1.hex.expected | 5 + .../GCCTestSuite/wtr-unary-plus-1.s.expected | 1 + tests/GCCTestSuite/wtr-union-init-1.c | 25 + .../GCCTestSuite/wtr-union-init-1.c.expected | 25 + .../wtr-union-init-1.hex.expected | 5 + .../GCCTestSuite/wtr-union-init-1.s.expected | 1 + tests/Makefile | 9 + tests/benchs/Makefile | 63 + tests/benchs/acc.run | 5 + tests/benchs/badsort.c | 85 + tests/benchs/fib.c | 20 + tests/benchs/mat_det.c | 54 + tests/benchs/meantime.sh | 11 + tests/benchs/min.c | 48 + tests/benchs/quicksort.c | 84 + tests/benchs/search.c | 59 + tests/clight/Makefile | 73 + tests/clight/array.ASM.expected | 680 +++ tests/clight/array.Clight.expected | 399 ++ tests/clight/array.Cminor.expected | 541 ++ tests/clight/array.ERTL.expected | 1287 +++++ tests/clight/array.LIN.expected | 767 +++ tests/clight/array.LTL.expected | 1238 ++++ tests/clight/array.RTL.expected | 1135 ++++ tests/clight/array.RTLabs.expected | 772 +++ tests/clight/array.c | 48 + tests/clight/array.c.expected | 48 + tests/clight/array.log.expected | 2 + tests/clight/binop.ASM.expected | 353 ++ tests/clight/binop.Clight.expected | 314 ++ tests/clight/binop.Cminor.expected | 451 ++ tests/clight/binop.ERTL.expected | 480 ++ tests/clight/binop.LIN.expected | 441 ++ tests/clight/binop.LTL.expected | 478 ++ tests/clight/binop.RTL.expected | 453 ++ tests/clight/binop.RTLabs.expected | 454 ++ tests/clight/binop.c | 40 + tests/clight/binop.c.expected | 40 + tests/clight/binop.log.expected | 1 + tests/clight/complets.ASM.expected | 1300 +++++ tests/clight/complets.Clight.expected | 602 ++ tests/clight/complets.Cminor.expected | 940 ++++ tests/clight/complets.ERTL.expected | 2387 ++++++++ tests/clight/complets.LIN.expected | 1385 +++++ tests/clight/complets.LTL.expected | 2284 ++++++++ tests/clight/complets.RTL.expected | 2048 +++++++ tests/clight/complets.RTLabs.expected | 1289 +++++ tests/clight/complets.c | 138 + tests/clight/complets.c.expected | 138 + tests/clight/complets.log.expected | 2 + tests/clight/fib.ASM.expected | 76 + tests/clight/fib.Clight.expected | 292 + tests/clight/fib.Cminor.expected | 436 ++ tests/clight/fib.ERTL.expected | 104 + tests/clight/fib.LIN.expected | 51 + tests/clight/fib.LTL.expected | 101 + tests/clight/fib.RTL.expected | 48 + tests/clight/fib.RTLabs.expected | 444 ++ tests/clight/fib.c | 11 + tests/clight/fib.c.expected | 11 + tests/clight/fib.log.expected | 4969 +++++++++++++++++ tests/clight/fib.s.expected | 363 ++ tests/clight/fir4.ASM.expected | 716 +++ tests/clight/fir4.Clight.expected | 333 ++ tests/clight/fir4.Cminor.expected | 501 ++ tests/clight/fir4.ERTL.expected | 1247 +++++ tests/clight/fir4.LIN.expected | 803 +++ tests/clight/fir4.LTL.expected | 1211 ++++ tests/clight/fir4.RTL.expected | 1090 ++++ tests/clight/fir4.RTLabs.expected | 711 +++ tests/clight/fir4.c | 35 + tests/clight/fir4.c.expected | 35 + tests/clight/fir4.log.expected | 1 + tests/clight/fir_complexe.ASM.expected | 595 ++ tests/clight/fir_complexe.Clight.expected | 369 ++ tests/clight/fir_complexe.Cminor.expected | 553 ++ tests/clight/fir_complexe.ERTL.expected | 911 +++ tests/clight/fir_complexe.LIN.expected | 683 +++ tests/clight/fir_complexe.LTL.expected | 889 +++ tests/clight/fir_complexe.RTL.expected | 799 +++ tests/clight/fir_complexe.RTLabs.expected | 623 +++ tests/clight/fir_complexe.c | 52 + tests/clight/fir_complexe.c.expected | 52 + tests/clight/fir_complexe.log.expected | 2 + tests/clight/for.ASM.expected | 708 +++ tests/clight/for.Clight.expected | 502 ++ tests/clight/for.Cminor.expected | 805 +++ tests/clight/for.ERTL.expected | 1233 ++++ tests/clight/for.LIN.expected | 803 +++ tests/clight/for.LTL.expected | 1191 ++++ tests/clight/for.RTL.expected | 942 ++++ tests/clight/for.RTLabs.expected | 800 +++ tests/clight/for.c | 116 + tests/clight/for.c.expected | 116 + tests/clight/for.log.expected | 1 + tests/clight/ifthenelse.ASM.expected | 363 ++ tests/clight/ifthenelse.Clight.expected | 516 ++ tests/clight/ifthenelse.Cminor.expected | 711 +++ tests/clight/ifthenelse.ERTL.expected | 760 +++ tests/clight/ifthenelse.LIN.expected | 354 ++ tests/clight/ifthenelse.LTL.expected | 731 +++ tests/clight/ifthenelse.RTL.expected | 450 ++ tests/clight/ifthenelse.RTLabs.expected | 766 +++ tests/clight/ifthenelse.c | 154 + tests/clight/ifthenelse.c.expected | 154 + tests/clight/ifthenelse.log.expected | 556 ++ tests/clight/testCOMP_tri.ASM.expected | 483 ++ tests/clight/testCOMP_tri.Clight.expected | 318 ++ tests/clight/testCOMP_tri.Cminor.expected | 486 ++ tests/clight/testCOMP_tri.ERTL.expected | 761 +++ tests/clight/testCOMP_tri.LIN.expected | 572 ++ tests/clight/testCOMP_tri.LTL.expected | 741 +++ tests/clight/testCOMP_tri.RTL.expected | 697 +++ tests/clight/testCOMP_tri.RTLabs.expected | 559 ++ tests/clight/testCOMP_tri.c | 23 + tests/clight/testCOMP_tri.c.expected | 23 + tests/clight/testCOMP_tri.log.expected | 2 + tests/clight/testTB_Array_LE.ASM.expected | 437 ++ tests/clight/testTB_Array_LE.Clight.expected | 303 + tests/clight/testTB_Array_LE.Cminor.expected | 443 ++ tests/clight/testTB_Array_LE.ERTL.expected | 697 +++ tests/clight/testTB_Array_LE.LIN.expected | 526 ++ tests/clight/testTB_Array_LE.LTL.expected | 680 +++ tests/clight/testTB_Array_LE.RTL.expected | 627 +++ tests/clight/testTB_Array_LE.RTLabs.expected | 521 ++ tests/clight/testTB_Array_LE.c | 10 + tests/clight/testTB_Array_LE.c.expected | 10 + tests/clight/testTB_Array_LE.log.expected | 2 + tests/clight/testTB_Array_double.ASM.expected | 405 ++ .../testTB_Array_double.Clight.expected | 298 + .../testTB_Array_double.Cminor.expected | 440 ++ .../clight/testTB_Array_double.ERTL.expected | 634 +++ tests/clight/testTB_Array_double.LIN.expected | 494 ++ tests/clight/testTB_Array_double.LTL.expected | 621 ++ tests/clight/testTB_Array_double.RTL.expected | 565 ++ .../testTB_Array_double.RTLabs.expected | 492 ++ tests/clight/testTB_Array_double.c | 15 + tests/clight/testTB_Array_double.c.expected | 15 + tests/clight/testTB_Array_double.log.expected | 2 + .../clight/testTB_Array_ecriture.ASM.expected | 364 ++ .../testTB_Array_ecriture.Clight.expected | 286 + .../testTB_Array_ecriture.Cminor.expected | 428 ++ .../testTB_Array_ecriture.ERTL.expected | 544 ++ .../clight/testTB_Array_ecriture.LIN.expected | 453 ++ .../clight/testTB_Array_ecriture.LTL.expected | 537 ++ .../clight/testTB_Array_ecriture.RTL.expected | 483 ++ .../testTB_Array_ecriture.RTLabs.expected | 455 ++ tests/clight/testTB_Array_ecriture.c | 14 + tests/clight/testTB_Array_ecriture.c.expected | 14 + .../clight/testTB_Array_ecriture.log.expected | 2 + .../clight/testTB_Array_lecture.ASM.expected | 361 ++ .../testTB_Array_lecture.Clight.expected | 288 + .../testTB_Array_lecture.Cminor.expected | 430 ++ .../clight/testTB_Array_lecture.ERTL.expected | 533 ++ .../clight/testTB_Array_lecture.LIN.expected | 450 ++ .../clight/testTB_Array_lecture.LTL.expected | 526 ++ .../clight/testTB_Array_lecture.RTL.expected | 473 ++ .../testTB_Array_lecture.RTLabs.expected | 450 ++ tests/clight/testTB_Array_lecture.c | 14 + tests/clight/testTB_Array_lecture.c.expected | 14 + .../clight/testTB_Array_lecture.log.expected | 2 + tests/clight/testTB_boucle.ASM.expected | 434 ++ tests/clight/testTB_boucle.Clight.expected | 298 + tests/clight/testTB_boucle.Cminor.expected | 451 ++ tests/clight/testTB_boucle.ERTL.expected | 688 +++ tests/clight/testTB_boucle.LIN.expected | 523 ++ tests/clight/testTB_boucle.LTL.expected | 672 +++ tests/clight/testTB_boucle.RTL.expected | 613 ++ tests/clight/testTB_boucle.RTLabs.expected | 513 ++ tests/clight/testTB_boucle.c | 15 + tests/clight/testTB_boucle.c.expected | 15 + tests/clight/testTB_boucle.log.expected | 2 + tests/review1/bubble_sort.c | 41 + tests/review1/search.c | 29 + tests/tmp_tests/Backend/array_copy.c | 35 + tests/tmp_tests/Backend/array_copy_u.c | 35 + tests/tmp_tests/Backend/bubble_sort.c | 52 + tests/tmp_tests/Backend/bubble_sort_u.c | 52 + tests/tmp_tests/Backend/quicksort.c | 51 + tests/tmp_tests/Backend/quicksort_u.c | 51 + tests/tmp_tests/Backend/search.c | 32 + .../Backend/struct_and_ptr_and_fact.c | 40 + .../Backend/struct_and_ptr_and_fact_u.c | 40 + tests/tmp_tests/Frontend/array_copy.RTLabs | 201 + tests/tmp_tests/Frontend/array_copy.c | 35 + tests/tmp_tests/Frontend/bubble_sort.RTLabs | 218 + tests/tmp_tests/Frontend/bubble_sort.c | 52 + tests/tmp_tests/Frontend/call.c | 4 + tests/tmp_tests/Frontend/quicksort.RTLabs | 239 + tests/tmp_tests/Frontend/quicksort.c | 61 + tests/tmp_tests/Frontend/search.RTLabs | 177 + tests/tmp_tests/Frontend/search.c | 32 + .../Frontend/struct_and_ptr_and_fact.RTLabs | 163 + .../Frontend/struct_and_ptr_and_fact.c | 40 + web/accweb.html | 127 + web/fetopen.png | Bin 0 -> 141451 bytes web/make-cerco-input.sh | 16 + 1813 files changed, 158736 insertions(+) create mode 100644 Makefile create mode 100644 Makefile.config create mode 100644 Makefile.generic create mode 100644 Makefile.in create mode 100644 Makefile.local create mode 100644 Makefile.variables.in create mode 100644 README create mode 100644 _tags.common create mode 100644 _tags.compiler create mode 100644 _tags.js_of_ocaml create mode 100644 acc.odocl create mode 100755 admin/myocamldoc create mode 100755 configure create mode 100755 configure-oclosure.sh create mode 100644 configure.ac create mode 100644 cparser/.depend create mode 100644 cparser/AddCasts.ml create mode 100644 cparser/AddCasts.mli create mode 100644 cparser/Bitfields.ml create mode 100644 cparser/Bitfields.mli create mode 100644 cparser/Builtins.ml create mode 100644 cparser/Builtins.mli create mode 100644 cparser/C.mli create mode 100644 cparser/CBuiltins.ml create mode 100644 cparser/Cabs.ml create mode 100644 cparser/Cabshelper.ml create mode 100644 cparser/Ceval.ml create mode 100644 cparser/Ceval.mli create mode 100644 cparser/Cleanup.ml create mode 100644 cparser/Cleanup.mli create mode 100644 cparser/Cprint.ml create mode 100644 cparser/Cprint.mli create mode 100644 cparser/Cutil.ml create mode 100644 cparser/Cutil.mli create mode 100644 cparser/Elab.ml create mode 100644 cparser/Elab.mli create mode 100644 cparser/Env.ml create mode 100644 cparser/Env.mli create mode 100644 cparser/Errors.ml create mode 100644 cparser/Errors.mli create mode 100644 cparser/GCC.ml create mode 100644 cparser/GCC.mli create mode 100644 cparser/Lexer.mli create mode 100644 cparser/Lexer.mll create mode 100644 cparser/Machine.ml create mode 100644 cparser/Machine.mli create mode 100644 cparser/Main.ml create mode 100644 cparser/Makefile create mode 100644 cparser/Parse.ml create mode 100644 cparser/Parse.mli create mode 100755 cparser/Parse_aux.ml create mode 100644 cparser/Parse_aux.mli create mode 100644 cparser/Parser.mly create mode 100644 cparser/Rename.ml create mode 100644 cparser/Rename.mli create mode 100644 cparser/SimplExpr.ml create mode 100644 cparser/SimplExpr.mli create mode 100644 cparser/StructAssign.ml create mode 100644 cparser/StructAssign.mli create mode 100644 cparser/StructByValue.ml create mode 100644 cparser/StructByValue.mli create mode 100644 cparser/Transform.ml create mode 100644 cparser/Transform.mli create mode 100644 cparser/Unblock.ml create mode 100644 cparser/Unblock.mli create mode 100644 cparser/uint64.c create mode 100644 distributed_files create mode 100644 doc/html/style.css create mode 100644 doc/src/main create mode 100644 myocamlbuild.ml create mode 100644 src/ASM/ASM.mli create mode 100644 src/ASM/ASMCosts.ml create mode 100644 src/ASM/ASMCosts.mli create mode 100644 src/ASM/ASMInterpret.ml create mode 100644 src/ASM/ASMInterpret.mli create mode 100644 src/ASM/ASMPrinter.ml create mode 100644 src/ASM/ASMPrinter.mli create mode 100644 src/ASM/BitVectors.ml create mode 100644 src/ASM/BitVectors.mli create mode 100644 src/ASM/I8051.ml create mode 100644 src/ASM/I8051.mli create mode 100644 src/ASM/IntelHex.ml create mode 100644 src/ASM/IntelHex.mli create mode 100644 src/ASM/MIPS.ml create mode 100644 src/ASM/MIPS.mli create mode 100644 src/ASM/MIPSInterpret.ml create mode 100644 src/ASM/MIPSInterpret.mli create mode 100644 src/ASM/MIPSOps.mli create mode 100644 src/ASM/Parser.ml create mode 100644 src/ASM/Parser.mli create mode 100644 src/ASM/Physical.ml create mode 100644 src/ASM/Physical.mli create mode 100644 src/ASM/Pretty.ml create mode 100644 src/ASM/Pretty.mli create mode 100644 src/ASM/Util.ml create mode 100644 src/ASM/arch.mli create mode 100644 src/ASM/printOps.ml create mode 100644 src/ASM/printOps.mli create mode 100644 src/ERTL/ERTL.mli create mode 100644 src/ERTL/ERTLInterpret.ml create mode 100644 src/ERTL/ERTLInterpret.mli create mode 100644 src/ERTL/ERTLPrinter.ml create mode 100644 src/ERTL/ERTLPrinter.mli create mode 100644 src/ERTL/ERTLToLTL.ml create mode 100644 src/ERTL/ERTLToLTL.mli create mode 100644 src/ERTL/ERTLToLTLI.ml create mode 100644 src/ERTL/ERTLToLTLI.mli create mode 100644 src/ERTL/build.ml create mode 100644 src/ERTL/build.mli create mode 100644 src/ERTL/liveness.ml create mode 100644 src/ERTL/liveness.mli create mode 100644 src/ERTL/spill.ml create mode 100644 src/ERTL/spill.mli create mode 100644 src/ERTL/uses.ml create mode 100644 src/ERTL/uses.mli create mode 100644 src/LIN/LIN.mli create mode 100644 src/LIN/LINInterpret.ml create mode 100644 src/LIN/LINInterpret.mli create mode 100644 src/LIN/LINPrinter.ml create mode 100644 src/LIN/LINPrinter.mli create mode 100644 src/LIN/LINToASM.ml create mode 100644 src/LIN/LINToASM.mli create mode 100644 src/LTL/LTL.mli create mode 100644 src/LTL/LTLInterpret.ml create mode 100644 src/LTL/LTLInterpret.mli create mode 100644 src/LTL/LTLPrinter.ml create mode 100644 src/LTL/LTLPrinter.mli create mode 100644 src/LTL/LTLToLIN.ml create mode 100644 src/LTL/LTLToLIN.mli create mode 100644 src/LTL/LTLToLINI.ml create mode 100644 src/LTL/LTLToLINI.mli create mode 100644 src/LTL/branch.ml create mode 100644 src/LTL/branch.mli create mode 100644 src/RTL/RTL.mli create mode 100644 src/RTL/RTLInterpret.ml create mode 100644 src/RTL/RTLInterpret.mli create mode 100644 src/RTL/RTLPrinter.ml create mode 100644 src/RTL/RTLPrinter.mli create mode 100644 src/RTL/RTLToERTL.ml create mode 100644 src/RTL/RTLToERTL.mli create mode 100644 src/RTL/RTLtailcall.ml create mode 100644 src/RTL/RTLtailcall.mli create mode 100644 src/RTLabs/RTLabs.mli create mode 100644 src/RTLabs/RTLabsInterpret.ml create mode 100644 src/RTLabs/RTLabsInterpret.mli create mode 100644 src/RTLabs/RTLabsPrinter.ml create mode 100644 src/RTLabs/RTLabsPrinter.mli create mode 100644 src/RTLabs/RTLabsToRTL.ml create mode 100644 src/RTLabs/RTLabsToRTL.mli create mode 100644 src/acc.ml create mode 100644 src/acc.mli create mode 100644 src/accweb.ml create mode 100644 src/annotStackSize.ml create mode 100644 src/checker.ml create mode 100644 src/checker.mli create mode 100644 src/clight/clight.mli create mode 100644 src/clight/clight32ToClight8.ml create mode 100644 src/clight/clight32ToClight8.mli create mode 100644 src/clight/clightAnnotator.ml create mode 100644 src/clight/clightAnnotator.mli create mode 100644 src/clight/clightCasts.ml create mode 100644 src/clight/clightCasts.mli create mode 100644 src/clight/clightFlags.ml create mode 100644 src/clight/clightFold.ml create mode 100644 src/clight/clightFold.mli create mode 100644 src/clight/clightFromC.ml create mode 100644 src/clight/clightInterpret.ml create mode 100644 src/clight/clightInterpret.mli create mode 100644 src/clight/clightLabelling.ml create mode 100644 src/clight/clightLabelling.mli create mode 100644 src/clight/clightLustre.ml create mode 100644 src/clight/clightLustre.mli create mode 100644 src/clight/clightLustreMain.ml create mode 100644 src/clight/clightLustreMain.mli create mode 100644 src/clight/clightParser.ml create mode 100644 src/clight/clightParser.mli create mode 100644 src/clight/clightPrinter.ml create mode 100644 src/clight/clightPrinter.mli create mode 100644 src/clight/clightSwitch.ml create mode 100644 src/clight/clightSwitch.mli create mode 100644 src/clight/clightToCminor.ml create mode 100644 src/clight/clightToCminor.mli create mode 100644 src/clight/clightUtils.ml create mode 100644 src/clight/clightUtils.mli create mode 100644 src/clight/runtime.ml create mode 100644 src/clight/runtime.mli create mode 100644 src/cminor/cminor.mli create mode 100644 src/cminor/cminorAnnotator.ml create mode 100644 src/cminor/cminorAnnotator.mli create mode 100644 src/cminor/cminorFold.ml create mode 100644 src/cminor/cminorFold.mli create mode 100644 src/cminor/cminorInterpret.ml create mode 100644 src/cminor/cminorInterpret.mli create mode 100644 src/cminor/cminorLabelling.ml create mode 100644 src/cminor/cminorLabelling.mli create mode 100644 src/cminor/cminorLexer.mll create mode 100644 src/cminor/cminorParser.mly create mode 100644 src/cminor/cminorPrinter.ml create mode 100644 src/cminor/cminorPrinter.mli create mode 100644 src/cminor/cminorToRTLabs.ml create mode 100644 src/cminor/cminorToRTLabs.mli create mode 100644 src/common/AST.mli create mode 100644 src/common/atom.ml create mode 100644 src/common/atom.mli create mode 100644 src/common/atomSig.mli create mode 100644 src/common/costLabel.ml create mode 100644 src/common/costLabel.mli create mode 100644 src/common/hdwRegister.ml create mode 100644 src/common/hdwRegister.mli create mode 100644 src/common/intByBig_int.ml create mode 100644 src/common/intByInt64.ml create mode 100644 src/common/intValue.ml create mode 100644 src/common/intValue.mli create mode 100644 src/common/label.ml create mode 100644 src/common/label.mli create mode 100644 src/common/memory.ml create mode 100644 src/common/memory.mli create mode 100644 src/common/primitive.ml create mode 100644 src/common/primitive.mli create mode 100644 src/common/register.ml create mode 100644 src/common/register.mli create mode 100644 src/common/value.ml create mode 100644 src/common/value.mli create mode 100644 src/dev_test.ml create mode 100644 src/driver.ml create mode 100644 src/driver.mli create mode 100644 src/languages.ml create mode 100644 src/languages.mli create mode 100644 src/options.ml create mode 100644 src/options.mli create mode 100644 src/utilities/Fix.ml create mode 100644 src/utilities/Fix.mli create mode 100644 src/utilities/bijection.ml create mode 100644 src/utilities/bijection.mli create mode 100644 src/utilities/checkOClosure.ml create mode 100644 src/utilities/coloring.ml create mode 100644 src/utilities/coloring.mli create mode 100644 src/utilities/eformat.ml create mode 100644 src/utilities/eformat.mli create mode 100644 src/utilities/error.ml create mode 100644 src/utilities/error.mli create mode 100644 src/utilities/interference.ml create mode 100644 src/utilities/interference.mli create mode 100644 src/utilities/misc.ml create mode 100644 src/utilities/misc.mli create mode 100644 src/utilities/miscPottier.ml create mode 100644 src/utilities/miscPottier.mli create mode 100644 src/utilities/myMap.ml create mode 100644 src/utilities/myMap.mli create mode 100644 src/utilities/option.ml create mode 100644 src/utilities/option.mli create mode 100644 src/utilities/optionsParsing.ml create mode 100644 src/utilities/position.ml create mode 100644 src/utilities/position.mli create mode 100644 src/utilities/print.ml create mode 100644 src/utilities/print.mli create mode 100644 src/utilities/printCFG.ml create mode 100644 src/utilities/printCFG.mli create mode 100644 src/utilities/printPottier.ml create mode 100644 src/utilities/printPottier.mli create mode 100644 src/utilities/prioritySet.ml create mode 100644 src/utilities/prioritySet.mli create mode 100644 src/utilities/setMap.ml create mode 100644 src/utilities/setMap.mli create mode 100644 src/utilities/stringSig.mli create mode 100644 src/utilities/stringTools.ml create mode 100644 src/utilities/stringTools.mli create mode 100644 src/utilities/syntacticAnalysis.ml create mode 100644 src/utilities/syntacticAnalysis.mli create mode 100644 src/utilities/unionFind.ml create mode 100644 src/utilities/unionFind.mli create mode 100644 src/utilities/webify.ml create mode 100644 src/utilities/webify.mli create mode 100644 tests/GCCTestSuite/920413-1.c create mode 100644 tests/GCCTestSuite/920413-1.c.expected create mode 100644 tests/GCCTestSuite/920413-1.hex.expected create mode 100644 tests/GCCTestSuite/920413-1.s.expected create mode 100644 tests/GCCTestSuite/940409-1.c create mode 100644 tests/GCCTestSuite/940409-1.c.expected create mode 100644 tests/GCCTestSuite/940409-1.hex.expected create mode 100644 tests/GCCTestSuite/940409-1.s.expected create mode 100644 tests/GCCTestSuite/951130-1.c create mode 100644 tests/GCCTestSuite/951130-1.c.expected create mode 100644 tests/GCCTestSuite/951130-1.hex.expected create mode 100644 tests/GCCTestSuite/951130-1.s.expected create mode 100644 tests/GCCTestSuite/980502-1.c create mode 100644 tests/GCCTestSuite/980502-1.c.expected create mode 100644 tests/GCCTestSuite/990213-1.c create mode 100644 tests/GCCTestSuite/990213-1.c.expected create mode 100644 tests/GCCTestSuite/990213-1.hex.expected create mode 100644 tests/GCCTestSuite/990213-1.s.expected create mode 100644 tests/GCCTestSuite/Makefile create mode 100644 tests/GCCTestSuite/alias-2.c create mode 100644 tests/GCCTestSuite/alias-2.c.expected create mode 100644 tests/GCCTestSuite/alias-2.hex.expected create mode 100644 tests/GCCTestSuite/alias-2.s.expected create mode 100644 tests/GCCTestSuite/alias-8.c create mode 100644 tests/GCCTestSuite/alias-8.c.expected create mode 100644 tests/GCCTestSuite/alias-8.hex.expected create mode 100644 tests/GCCTestSuite/alias-8.s.expected create mode 100644 tests/GCCTestSuite/align-1.c create mode 100644 tests/GCCTestSuite/align-1.c.expected create mode 100644 tests/GCCTestSuite/align-1.hex.expected create mode 100644 tests/GCCTestSuite/align-1.s.expected create mode 100644 tests/GCCTestSuite/always_inline2.c create mode 100644 tests/GCCTestSuite/always_inline2.c.expected create mode 100644 tests/GCCTestSuite/always_inline2.hex.expected create mode 100644 tests/GCCTestSuite/always_inline2.s.expected create mode 100644 tests/GCCTestSuite/always_inline3.c create mode 100644 tests/GCCTestSuite/always_inline3.c.expected create mode 100644 tests/GCCTestSuite/always_inline3.hex.expected create mode 100644 tests/GCCTestSuite/always_inline3.s.expected create mode 100644 tests/GCCTestSuite/anon-struct-3.c create mode 100644 tests/GCCTestSuite/anon-struct-3.c.expected create mode 100644 tests/GCCTestSuite/anon-struct-3.hex.expected create mode 100644 tests/GCCTestSuite/anon-struct-3.s.expected create mode 100644 tests/GCCTestSuite/anon-struct-4.c create mode 100644 tests/GCCTestSuite/anon-struct-4.c.expected create mode 100644 tests/GCCTestSuite/anon-struct-4.hex.expected create mode 100644 tests/GCCTestSuite/anon-struct-4.s.expected create mode 100644 tests/GCCTestSuite/anon-struct-5.c create mode 100644 tests/GCCTestSuite/anon-struct-5.c.expected create mode 100644 tests/GCCTestSuite/anon-struct-5.hex.expected create mode 100644 tests/GCCTestSuite/anon-struct-5.s.expected create mode 100644 tests/GCCTestSuite/anon-struct-6.c create mode 100644 tests/GCCTestSuite/anon-struct-6.c.expected create mode 100644 tests/GCCTestSuite/anon-struct-6.hex.expected create mode 100644 tests/GCCTestSuite/anon-struct-6.s.expected create mode 100644 tests/GCCTestSuite/anon-struct-7.c create mode 100644 tests/GCCTestSuite/anon-struct-7.c.expected create mode 100644 tests/GCCTestSuite/anon-struct-7.hex.expected create mode 100644 tests/GCCTestSuite/anon-struct-7.s.expected create mode 100644 tests/GCCTestSuite/anon-struct-8.c create mode 100644 tests/GCCTestSuite/anon-struct-8.c.expected create mode 100644 tests/GCCTestSuite/anon-struct-8.hex.expected create mode 100644 tests/GCCTestSuite/anon-struct-8.s.expected create mode 100644 tests/GCCTestSuite/arm-g2.c create mode 100644 tests/GCCTestSuite/arm-g2.c.expected create mode 100644 tests/GCCTestSuite/arm-g2.hex.expected create mode 100644 tests/GCCTestSuite/arm-g2.s.expected create mode 100644 tests/GCCTestSuite/arm-scd42-1.c create mode 100644 tests/GCCTestSuite/arm-scd42-1.c.expected create mode 100644 tests/GCCTestSuite/arm-scd42-1.hex.expected create mode 100644 tests/GCCTestSuite/arm-scd42-1.s.expected create mode 100644 tests/GCCTestSuite/arm-scd42-2.c create mode 100644 tests/GCCTestSuite/arm-scd42-2.c.expected create mode 100644 tests/GCCTestSuite/arm-scd42-2.hex.expected create mode 100644 tests/GCCTestSuite/arm-scd42-2.s.expected create mode 100644 tests/GCCTestSuite/arm-scd42-3.c create mode 100644 tests/GCCTestSuite/arm-scd42-3.c.expected create mode 100644 tests/GCCTestSuite/arm-scd42-3.hex.expected create mode 100644 tests/GCCTestSuite/arm-scd42-3.s.expected create mode 100644 tests/GCCTestSuite/array-1.c create mode 100644 tests/GCCTestSuite/array-1.c.expected create mode 100644 tests/GCCTestSuite/array-1.hex.expected create mode 100644 tests/GCCTestSuite/array-1.s.expected create mode 100644 tests/GCCTestSuite/array-quals-2.c create mode 100644 tests/GCCTestSuite/array-quals-2.c.expected create mode 100644 tests/GCCTestSuite/array-quals-2.hex.expected create mode 100644 tests/GCCTestSuite/array-quals-2.s.expected create mode 100644 tests/GCCTestSuite/asm-fs-1.c create mode 100644 tests/GCCTestSuite/asm-fs-1.c.expected create mode 100644 tests/GCCTestSuite/asm-fs-1.hex.expected create mode 100644 tests/GCCTestSuite/asm-fs-1.s.expected create mode 100644 tests/GCCTestSuite/assign-warn-3.c create mode 100644 tests/GCCTestSuite/assign-warn-3.c.expected create mode 100644 tests/GCCTestSuite/assign-warn-3.hex.expected create mode 100644 tests/GCCTestSuite/assign-warn-3.s.expected create mode 100644 tests/GCCTestSuite/attr-alwaysinline.c create mode 100644 tests/GCCTestSuite/attr-alwaysinline.c.expected create mode 100644 tests/GCCTestSuite/attr-alwaysinline.hex.expected create mode 100644 tests/GCCTestSuite/attr-alwaysinline.s.expected create mode 100644 tests/GCCTestSuite/attr-invalid.c create mode 100644 tests/GCCTestSuite/attr-invalid.c.expected create mode 100644 tests/GCCTestSuite/attr-invalid.hex.expected create mode 100644 tests/GCCTestSuite/attr-invalid.s.expected create mode 100644 tests/GCCTestSuite/attr-isr-trap_exit.c create mode 100644 tests/GCCTestSuite/attr-isr-trap_exit.c.expected create mode 100644 tests/GCCTestSuite/attr-isr-trap_exit.hex.expected create mode 100644 tests/GCCTestSuite/attr-isr-trap_exit.s.expected create mode 100644 tests/GCCTestSuite/attr-mode-1.c create mode 100644 tests/GCCTestSuite/attr-mode-1.c.expected create mode 100644 tests/GCCTestSuite/attr-mode-1.hex.expected create mode 100644 tests/GCCTestSuite/attr-mode-1.s.expected create mode 100644 tests/GCCTestSuite/attr-used-2.c create mode 100644 tests/GCCTestSuite/attr-used-2.c.expected create mode 100644 tests/GCCTestSuite/attr-used-2.hex.expected create mode 100644 tests/GCCTestSuite/attr-used-2.s.expected create mode 100644 tests/GCCTestSuite/attr-used.c create mode 100644 tests/GCCTestSuite/attr-used.c.expected create mode 100644 tests/GCCTestSuite/attr-used.hex.expected create mode 100644 tests/GCCTestSuite/attr-used.s.expected create mode 100644 tests/GCCTestSuite/attr-weakref-1a.c create mode 100644 tests/GCCTestSuite/attr-weakref-1a.c.expected create mode 100644 tests/GCCTestSuite/attr-weakref-1a.hex.expected create mode 100644 tests/GCCTestSuite/attr-weakref-1a.s.expected create mode 100644 tests/GCCTestSuite/bitfld-10.c create mode 100644 tests/GCCTestSuite/bitfld-10.c.expected create mode 100644 tests/GCCTestSuite/bitfld-10.hex.expected create mode 100644 tests/GCCTestSuite/bitfld-10.s.expected create mode 100644 tests/GCCTestSuite/bitfld-14.c create mode 100644 tests/GCCTestSuite/bitfld-14.c.expected create mode 100644 tests/GCCTestSuite/bitfld-14.hex.expected create mode 100644 tests/GCCTestSuite/bitfld-14.s.expected create mode 100644 tests/GCCTestSuite/bitfld-5.c create mode 100644 tests/GCCTestSuite/bitfld-5.c.expected create mode 100644 tests/GCCTestSuite/bitfld-5.hex.expected create mode 100644 tests/GCCTestSuite/bitfld-5.s.expected create mode 100644 tests/GCCTestSuite/bitfld-6.c create mode 100644 tests/GCCTestSuite/bitfld-6.c.expected create mode 100644 tests/GCCTestSuite/bitfld-6.hex.expected create mode 100644 tests/GCCTestSuite/bitfld-6.s.expected create mode 100644 tests/GCCTestSuite/builtin-strstr.c create mode 100644 tests/GCCTestSuite/builtin-strstr.c.expected create mode 100644 tests/GCCTestSuite/builtin-strstr.hex.expected create mode 100644 tests/GCCTestSuite/builtin-strstr.s.expected create mode 100644 tests/GCCTestSuite/builtins-35.c create mode 100644 tests/GCCTestSuite/builtins-35.c.expected create mode 100644 tests/GCCTestSuite/builtins-35.hex.expected create mode 100644 tests/GCCTestSuite/builtins-35.s.expected create mode 100644 tests/GCCTestSuite/c90-array-lval-5.c create mode 100644 tests/GCCTestSuite/c90-array-lval-5.c.expected create mode 100644 tests/GCCTestSuite/c90-array-lval-5.hex.expected create mode 100644 tests/GCCTestSuite/c90-array-lval-5.s.expected create mode 100644 tests/GCCTestSuite/c90-array-lval-6.c create mode 100644 tests/GCCTestSuite/c90-array-lval-6.c.expected create mode 100644 tests/GCCTestSuite/c90-array-lval-6.hex.expected create mode 100644 tests/GCCTestSuite/c90-array-lval-6.s.expected create mode 100644 tests/GCCTestSuite/c90-array-lval-7.c create mode 100644 tests/GCCTestSuite/c90-array-lval-7.c.expected create mode 100644 tests/GCCTestSuite/c90-array-lval-7.hex.expected create mode 100644 tests/GCCTestSuite/c90-array-lval-7.s.expected create mode 100644 tests/GCCTestSuite/c90-array-quals-2.c create mode 100644 tests/GCCTestSuite/c90-array-quals-2.c.expected create mode 100644 tests/GCCTestSuite/c90-array-quals-2.hex.expected create mode 100644 tests/GCCTestSuite/c90-array-quals-2.s.expected create mode 100644 tests/GCCTestSuite/c90-array-quals.c create mode 100644 tests/GCCTestSuite/c90-array-quals.c.expected create mode 100644 tests/GCCTestSuite/c90-array-quals.hex.expected create mode 100644 tests/GCCTestSuite/c90-array-quals.s.expected create mode 100644 tests/GCCTestSuite/c90-const-expr-1.c create mode 100644 tests/GCCTestSuite/c90-const-expr-1.c.expected create mode 100644 tests/GCCTestSuite/c90-const-expr-1.hex.expected create mode 100644 tests/GCCTestSuite/c90-const-expr-1.s.expected create mode 100644 tests/GCCTestSuite/c90-dupqual-1.c create mode 100644 tests/GCCTestSuite/c90-dupqual-1.c.expected create mode 100644 tests/GCCTestSuite/c90-dupqual-1.hex.expected create mode 100644 tests/GCCTestSuite/c90-dupqual-1.s.expected create mode 100644 tests/GCCTestSuite/c90-enum-comma-1.c create mode 100644 tests/GCCTestSuite/c90-enum-comma-1.c.expected create mode 100644 tests/GCCTestSuite/c90-enum-comma-1.hex.expected create mode 100644 tests/GCCTestSuite/c90-enum-comma-1.s.expected create mode 100644 tests/GCCTestSuite/c90-flex-array-1.c create mode 100644 tests/GCCTestSuite/c90-flex-array-1.c.expected create mode 100644 tests/GCCTestSuite/c90-flex-array-1.hex.expected create mode 100644 tests/GCCTestSuite/c90-flex-array-1.s.expected create mode 100644 tests/GCCTestSuite/c90-idem-qual-1.c create mode 100644 tests/GCCTestSuite/c90-idem-qual-1.c.expected create mode 100644 tests/GCCTestSuite/c90-idem-qual-1.hex.expected create mode 100644 tests/GCCTestSuite/c90-idem-qual-1.s.expected create mode 100644 tests/GCCTestSuite/c90-idem-qual-2.c create mode 100644 tests/GCCTestSuite/c90-idem-qual-2.c.expected create mode 100644 tests/GCCTestSuite/c90-idem-qual-2.hex.expected create mode 100644 tests/GCCTestSuite/c90-idem-qual-2.s.expected create mode 100644 tests/GCCTestSuite/c90-idem-qual-3.c create mode 100644 tests/GCCTestSuite/c90-idem-qual-3.c.expected create mode 100644 tests/GCCTestSuite/c90-idem-qual-3.hex.expected create mode 100644 tests/GCCTestSuite/c90-idem-qual-3.s.expected create mode 100644 tests/GCCTestSuite/c90-impl-int-1.c create mode 100644 tests/GCCTestSuite/c90-impl-int-1.c.expected create mode 100644 tests/GCCTestSuite/c90-impl-int-1.hex.expected create mode 100644 tests/GCCTestSuite/c90-impl-int-1.s.expected create mode 100644 tests/GCCTestSuite/c90-impl-int-2.c create mode 100644 tests/GCCTestSuite/c90-impl-int-2.c.expected create mode 100644 tests/GCCTestSuite/c90-impl-int-2.hex.expected create mode 100644 tests/GCCTestSuite/c90-impl-int-2.s.expected create mode 100644 tests/GCCTestSuite/c90-longlong-1.c create mode 100644 tests/GCCTestSuite/c90-longlong-1.c.expected create mode 100644 tests/GCCTestSuite/c90-longlong-1.hex.expected create mode 100644 tests/GCCTestSuite/c90-longlong-1.s.expected create mode 100644 tests/GCCTestSuite/c90-mixdecl-1.c create mode 100644 tests/GCCTestSuite/c90-mixdecl-1.c.expected create mode 100644 tests/GCCTestSuite/c90-mixdecl-1.hex.expected create mode 100644 tests/GCCTestSuite/c90-mixdecl-1.s.expected create mode 100644 tests/GCCTestSuite/c90-restrict-1.c create mode 100644 tests/GCCTestSuite/c90-restrict-1.c.expected create mode 100644 tests/GCCTestSuite/c90-restrict-1.hex.expected create mode 100644 tests/GCCTestSuite/c90-restrict-1.s.expected create mode 100644 tests/GCCTestSuite/c90-static-1.c create mode 100644 tests/GCCTestSuite/c90-static-1.c.expected create mode 100644 tests/GCCTestSuite/c90-static-1.hex.expected create mode 100644 tests/GCCTestSuite/c90-static-1.s.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-1.c create mode 100644 tests/GCCTestSuite/c99-array-lval-1.c.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-1.hex.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-1.s.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-5.c create mode 100644 tests/GCCTestSuite/c99-array-lval-5.c.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-5.hex.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-5.s.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-6.c create mode 100644 tests/GCCTestSuite/c99-array-lval-6.c.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-6.hex.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-6.s.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-7.c create mode 100644 tests/GCCTestSuite/c99-array-lval-7.c.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-7.hex.expected create mode 100644 tests/GCCTestSuite/c99-array-lval-7.s.expected create mode 100644 tests/GCCTestSuite/c99-array-nonobj-1.c create mode 100644 tests/GCCTestSuite/c99-array-nonobj-1.c.expected create mode 100644 tests/GCCTestSuite/c99-array-nonobj-1.hex.expected create mode 100644 tests/GCCTestSuite/c99-array-nonobj-1.s.expected create mode 100644 tests/GCCTestSuite/c99-const-expr-1.c create mode 100644 tests/GCCTestSuite/c99-const-expr-1.c.expected create mode 100644 tests/GCCTestSuite/c99-const-expr-1.hex.expected create mode 100644 tests/GCCTestSuite/c99-const-expr-1.s.expected create mode 100644 tests/GCCTestSuite/c99-dupqual-1.c create mode 100644 tests/GCCTestSuite/c99-dupqual-1.c.expected create mode 100644 tests/GCCTestSuite/c99-dupqual-1.hex.expected create mode 100644 tests/GCCTestSuite/c99-dupqual-1.s.expected create mode 100644 tests/GCCTestSuite/c99-enum-comma-1.c create mode 100644 tests/GCCTestSuite/c99-enum-comma-1.c.expected create mode 100644 tests/GCCTestSuite/c99-enum-comma-1.hex.expected create mode 100644 tests/GCCTestSuite/c99-enum-comma-1.s.expected create mode 100644 tests/GCCTestSuite/c99-flex-array-3.c create mode 100644 tests/GCCTestSuite/c99-flex-array-3.c.expected create mode 100644 tests/GCCTestSuite/c99-flex-array-3.hex.expected create mode 100644 tests/GCCTestSuite/c99-flex-array-3.s.expected create mode 100644 tests/GCCTestSuite/c99-func-2.c create mode 100644 tests/GCCTestSuite/c99-func-2.c.expected create mode 100644 tests/GCCTestSuite/c99-func-2.hex.expected create mode 100644 tests/GCCTestSuite/c99-func-2.s.expected create mode 100644 tests/GCCTestSuite/c99-idem-qual-1.c create mode 100644 tests/GCCTestSuite/c99-idem-qual-1.c.expected create mode 100644 tests/GCCTestSuite/c99-idem-qual-1.hex.expected create mode 100644 tests/GCCTestSuite/c99-idem-qual-1.s.expected create mode 100644 tests/GCCTestSuite/c99-idem-qual-2.c create mode 100644 tests/GCCTestSuite/c99-idem-qual-2.c.expected create mode 100644 tests/GCCTestSuite/c99-idem-qual-2.hex.expected create mode 100644 tests/GCCTestSuite/c99-idem-qual-2.s.expected create mode 100644 tests/GCCTestSuite/c99-idem-qual-3.c create mode 100644 tests/GCCTestSuite/c99-idem-qual-3.c.expected create mode 100644 tests/GCCTestSuite/c99-idem-qual-3.hex.expected create mode 100644 tests/GCCTestSuite/c99-idem-qual-3.s.expected create mode 100644 tests/GCCTestSuite/c99-impl-int-1.c create mode 100644 tests/GCCTestSuite/c99-impl-int-1.c.expected create mode 100644 tests/GCCTestSuite/c99-impl-int-1.hex.expected create mode 100644 tests/GCCTestSuite/c99-impl-int-1.s.expected create mode 100644 tests/GCCTestSuite/c99-impl-int-2.c create mode 100644 tests/GCCTestSuite/c99-impl-int-2.c.expected create mode 100644 tests/GCCTestSuite/c99-impl-int-2.hex.expected create mode 100644 tests/GCCTestSuite/c99-impl-int-2.s.expected create mode 100644 tests/GCCTestSuite/c99-longlong-1.c create mode 100644 tests/GCCTestSuite/c99-longlong-1.c.expected create mode 100644 tests/GCCTestSuite/c99-longlong-1.hex.expected create mode 100644 tests/GCCTestSuite/c99-longlong-1.s.expected create mode 100644 tests/GCCTestSuite/c99-main-1.c create mode 100644 tests/GCCTestSuite/c99-main-1.c.expected create mode 100644 tests/GCCTestSuite/c99-main-1.hex.expected create mode 100644 tests/GCCTestSuite/c99-main-1.s.expected create mode 100644 tests/GCCTestSuite/c99-restrict-1.c create mode 100644 tests/GCCTestSuite/c99-restrict-1.c.expected create mode 100644 tests/GCCTestSuite/c99-restrict-1.hex.expected create mode 100644 tests/GCCTestSuite/c99-restrict-1.s.expected create mode 100644 tests/GCCTestSuite/c99-restrict-2.c create mode 100644 tests/GCCTestSuite/c99-restrict-2.c.expected create mode 100644 tests/GCCTestSuite/c99-restrict-2.hex.expected create mode 100644 tests/GCCTestSuite/c99-restrict-2.s.expected create mode 100644 tests/GCCTestSuite/c99-tag-2.c create mode 100644 tests/GCCTestSuite/c99-tag-2.c.expected create mode 100644 tests/GCCTestSuite/c99-tag-2.hex.expected create mode 100644 tests/GCCTestSuite/c99-tag-2.s.expected create mode 100644 tests/GCCTestSuite/cast-qual-1.c create mode 100644 tests/GCCTestSuite/cast-qual-1.c.expected create mode 100644 tests/GCCTestSuite/cast-qual-1.hex.expected create mode 100644 tests/GCCTestSuite/cast-qual-1.s.expected create mode 100644 tests/GCCTestSuite/cleanup-3.c create mode 100644 tests/GCCTestSuite/cleanup-3.c.expected create mode 100644 tests/GCCTestSuite/cleanup-3.hex.expected create mode 100644 tests/GCCTestSuite/cleanup-3.s.expected create mode 100644 tests/GCCTestSuite/cleanup-6.c create mode 100644 tests/GCCTestSuite/cleanup-6.c.expected create mode 100644 tests/GCCTestSuite/cleanup-6.hex.expected create mode 100644 tests/GCCTestSuite/cleanup-6.s.expected create mode 100644 tests/GCCTestSuite/comp-return-1.c create mode 100644 tests/GCCTestSuite/comp-return-1.c.expected create mode 100644 tests/GCCTestSuite/comp-return-1.hex.expected create mode 100644 tests/GCCTestSuite/comp-return-1.s.expected create mode 100644 tests/GCCTestSuite/compare1.c create mode 100644 tests/GCCTestSuite/compare1.c.expected create mode 100644 tests/GCCTestSuite/compare1.hex.expected create mode 100644 tests/GCCTestSuite/compare1.s.expected create mode 100644 tests/GCCTestSuite/compare3.c create mode 100644 tests/GCCTestSuite/compare3.c.expected create mode 100644 tests/GCCTestSuite/compare3.hex.expected create mode 100644 tests/GCCTestSuite/compare3.s.expected create mode 100644 tests/GCCTestSuite/compare5.c create mode 100644 tests/GCCTestSuite/compare5.c.expected create mode 100644 tests/GCCTestSuite/compare5.hex.expected create mode 100644 tests/GCCTestSuite/compare5.s.expected create mode 100644 tests/GCCTestSuite/compare6.c create mode 100644 tests/GCCTestSuite/compare6.c.expected create mode 100644 tests/GCCTestSuite/compare6.hex.expected create mode 100644 tests/GCCTestSuite/compare6.s.expected create mode 100644 tests/GCCTestSuite/compare7.c create mode 100644 tests/GCCTestSuite/compare7.c.expected create mode 100644 tests/GCCTestSuite/compare7.hex.expected create mode 100644 tests/GCCTestSuite/compare7.s.expected create mode 100644 tests/GCCTestSuite/compare8.c create mode 100644 tests/GCCTestSuite/compare8.c.expected create mode 100644 tests/GCCTestSuite/compare8.hex.expected create mode 100644 tests/GCCTestSuite/compare8.s.expected create mode 100644 tests/GCCTestSuite/compare9.c create mode 100644 tests/GCCTestSuite/compare9.c.expected create mode 100644 tests/GCCTestSuite/compare9.hex.expected create mode 100644 tests/GCCTestSuite/compare9.s.expected create mode 100644 tests/GCCTestSuite/concat.c create mode 100644 tests/GCCTestSuite/concat.c.expected create mode 100644 tests/GCCTestSuite/concat.hex.expected create mode 100644 tests/GCCTestSuite/concat.s.expected create mode 100644 tests/GCCTestSuite/concat2.c create mode 100644 tests/GCCTestSuite/concat2.c.expected create mode 100644 tests/GCCTestSuite/concat2.hex.expected create mode 100644 tests/GCCTestSuite/concat2.s.expected create mode 100644 tests/GCCTestSuite/const-compare.c create mode 100644 tests/GCCTestSuite/const-compare.c.expected create mode 100644 tests/GCCTestSuite/const-compare.hex.expected create mode 100644 tests/GCCTestSuite/const-compare.s.expected create mode 100644 tests/GCCTestSuite/const-elim-2.c create mode 100644 tests/GCCTestSuite/const-elim-2.c.expected create mode 100644 tests/GCCTestSuite/conv-3.c create mode 100644 tests/GCCTestSuite/conv-3.c.expected create mode 100644 tests/GCCTestSuite/conv-3.hex.expected create mode 100644 tests/GCCTestSuite/conv-3.s.expected create mode 100644 tests/GCCTestSuite/cris-peep2-andu1.c create mode 100644 tests/GCCTestSuite/cris-peep2-andu1.c.expected create mode 100644 tests/GCCTestSuite/cris-peep2-andu1.hex.expected create mode 100644 tests/GCCTestSuite/cris-peep2-andu1.s.expected create mode 100644 tests/GCCTestSuite/cris-peep2-andu2.c create mode 100644 tests/GCCTestSuite/cris-peep2-andu2.c.expected create mode 100644 tests/GCCTestSuite/cris-peep2-andu2.hex.expected create mode 100644 tests/GCCTestSuite/cris-peep2-andu2.s.expected create mode 100644 tests/GCCTestSuite/cris-peep2-xsrand.c create mode 100644 tests/GCCTestSuite/cris-peep2-xsrand.c.expected create mode 100644 tests/GCCTestSuite/cris-peep2-xsrand2.c create mode 100644 tests/GCCTestSuite/cris-peep2-xsrand2.c.expected create mode 100644 tests/GCCTestSuite/darwin-20040809-2.c create mode 100644 tests/GCCTestSuite/darwin-20040809-2.c.expected create mode 100644 tests/GCCTestSuite/darwin-20040809-2.hex.expected create mode 100644 tests/GCCTestSuite/darwin-20040809-2.s.expected create mode 100644 tests/GCCTestSuite/darwin-20040812-1.c create mode 100644 tests/GCCTestSuite/darwin-20040812-1.c.expected create mode 100644 tests/GCCTestSuite/darwin-20040812-1.hex.expected create mode 100644 tests/GCCTestSuite/darwin-20040812-1.s.expected create mode 100644 tests/GCCTestSuite/darwin-ld-1.c create mode 100644 tests/GCCTestSuite/darwin-ld-1.c.expected create mode 100644 tests/GCCTestSuite/darwin-ld-1.hex.expected create mode 100644 tests/GCCTestSuite/darwin-ld-1.s.expected create mode 100644 tests/GCCTestSuite/darwin-ld-2.c create mode 100644 tests/GCCTestSuite/darwin-ld-2.c.expected create mode 100644 tests/GCCTestSuite/darwin-ld-2.hex.expected create mode 100644 tests/GCCTestSuite/darwin-ld-2.s.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040809-1.c create mode 100644 tests/GCCTestSuite/darwin-ld-20040809-1.c.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040809-1.hex.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040809-1.s.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040809-2.c create mode 100644 tests/GCCTestSuite/darwin-ld-20040809-2.c.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040809-2.hex.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040809-2.s.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-1.c create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-1.c.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-1.hex.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-1.s.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-2.c create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-2.c.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-2.hex.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-2.s.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-3.c create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-3.c.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-3.hex.expected create mode 100644 tests/GCCTestSuite/darwin-ld-20040828-3.s.expected create mode 100644 tests/GCCTestSuite/darwin-ld-3.c create mode 100644 tests/GCCTestSuite/darwin-ld-3.c.expected create mode 100644 tests/GCCTestSuite/darwin-ld-3.hex.expected create mode 100644 tests/GCCTestSuite/darwin-ld-3.s.expected create mode 100644 tests/GCCTestSuite/darwin-ld-4.c create mode 100644 tests/GCCTestSuite/darwin-ld-4.c.expected create mode 100644 tests/GCCTestSuite/darwin-ld-4.hex.expected create mode 100644 tests/GCCTestSuite/darwin-ld-4.s.expected create mode 100644 tests/GCCTestSuite/darwin-ld-5.c create mode 100644 tests/GCCTestSuite/darwin-ld-5.c.expected create mode 100644 tests/GCCTestSuite/darwin-ld-5.hex.expected create mode 100644 tests/GCCTestSuite/darwin-ld-5.s.expected create mode 100644 tests/GCCTestSuite/darwin-ld-6.c create mode 100644 tests/GCCTestSuite/darwin-ld-6.c.expected create mode 100644 tests/GCCTestSuite/darwin-ld-6.hex.expected create mode 100644 tests/GCCTestSuite/darwin-ld-6.s.expected create mode 100644 tests/GCCTestSuite/darwin-version-1.c create mode 100644 tests/GCCTestSuite/darwin-version-1.c.expected create mode 100644 tests/GCCTestSuite/darwin-version-1.hex.expected create mode 100644 tests/GCCTestSuite/darwin-version-1.s.expected create mode 100644 tests/GCCTestSuite/darwin-weakimport-1.c create mode 100644 tests/GCCTestSuite/darwin-weakimport-1.c.expected create mode 100644 tests/GCCTestSuite/darwin-weakimport-1.hex.expected create mode 100644 tests/GCCTestSuite/darwin-weakimport-1.s.expected create mode 100644 tests/GCCTestSuite/decl-4.c create mode 100644 tests/GCCTestSuite/decl-4.c.expected create mode 100644 tests/GCCTestSuite/decl-4.hex.expected create mode 100644 tests/GCCTestSuite/decl-4.s.expected create mode 100644 tests/GCCTestSuite/decl-6.c create mode 100644 tests/GCCTestSuite/decl-6.c.expected create mode 100644 tests/GCCTestSuite/decl-6.hex.expected create mode 100644 tests/GCCTestSuite/decl-6.s.expected create mode 100644 tests/GCCTestSuite/declspec-12.c create mode 100644 tests/GCCTestSuite/declspec-12.c.expected create mode 100644 tests/GCCTestSuite/declspec-12.hex.expected create mode 100644 tests/GCCTestSuite/declspec-12.s.expected create mode 100644 tests/GCCTestSuite/declspec-2.c create mode 100644 tests/GCCTestSuite/declspec-2.c.expected create mode 100644 tests/GCCTestSuite/declspec-2.hex.expected create mode 100644 tests/GCCTestSuite/declspec-2.s.expected create mode 100644 tests/GCCTestSuite/declspec-3.c create mode 100644 tests/GCCTestSuite/declspec-3.c.expected create mode 100644 tests/GCCTestSuite/declspec-3.hex.expected create mode 100644 tests/GCCTestSuite/declspec-3.s.expected create mode 100644 tests/GCCTestSuite/deprecated-3.c create mode 100644 tests/GCCTestSuite/deprecated-3.c.expected create mode 100644 tests/GCCTestSuite/deprecated-3.hex.expected create mode 100644 tests/GCCTestSuite/deprecated-3.s.expected create mode 100644 tests/GCCTestSuite/dll-2.c create mode 100644 tests/GCCTestSuite/dll-2.c.expected create mode 100644 tests/GCCTestSuite/dll-2.hex.expected create mode 100644 tests/GCCTestSuite/dll-2.s.expected create mode 100644 tests/GCCTestSuite/dll-4.c create mode 100644 tests/GCCTestSuite/dll-4.c.expected create mode 100644 tests/GCCTestSuite/dll-4.hex.expected create mode 100644 tests/GCCTestSuite/dll-4.s.expected create mode 100644 tests/GCCTestSuite/dollar.c create mode 100644 tests/GCCTestSuite/dollar.c.expected create mode 100644 tests/GCCTestSuite/dollar.hex.expected create mode 100644 tests/GCCTestSuite/dollar.s.expected create mode 100644 tests/GCCTestSuite/doloop-2.c create mode 100644 tests/GCCTestSuite/doloop-2.c.expected create mode 100644 tests/GCCTestSuite/doloop-2.hex.expected create mode 100644 tests/GCCTestSuite/doloop-2.s.expected create mode 100644 tests/GCCTestSuite/empty-source-1.c create mode 100644 tests/GCCTestSuite/empty-source-1.c.expected create mode 100644 tests/GCCTestSuite/empty-source-1.hex.expected create mode 100644 tests/GCCTestSuite/empty-source-1.s.expected create mode 100644 tests/GCCTestSuite/empty-source-2.c create mode 100644 tests/GCCTestSuite/empty-source-2.c.expected create mode 100644 tests/GCCTestSuite/empty-source-2.hex.expected create mode 100644 tests/GCCTestSuite/empty-source-2.s.expected create mode 100644 tests/GCCTestSuite/empty-source-3.c create mode 100644 tests/GCCTestSuite/empty-source-3.c.expected create mode 100644 tests/GCCTestSuite/empty-source-3.hex.expected create mode 100644 tests/GCCTestSuite/empty-source-3.s.expected create mode 100644 tests/GCCTestSuite/enum2.c create mode 100644 tests/GCCTestSuite/enum2.c.expected create mode 100644 tests/GCCTestSuite/enum2.hex.expected create mode 100644 tests/GCCTestSuite/enum2.s.expected create mode 100644 tests/GCCTestSuite/enum3.c create mode 100644 tests/GCCTestSuite/enum3.c.expected create mode 100644 tests/GCCTestSuite/enum3.hex.expected create mode 100644 tests/GCCTestSuite/enum3.s.expected create mode 100644 tests/GCCTestSuite/extra-semi-1.c create mode 100644 tests/GCCTestSuite/extra-semi-1.c.expected create mode 100644 tests/GCCTestSuite/extra-semi-1.hex.expected create mode 100644 tests/GCCTestSuite/extra-semi-1.s.expected create mode 100644 tests/GCCTestSuite/extra-semi-2.c create mode 100644 tests/GCCTestSuite/extra-semi-2.c.expected create mode 100644 tests/GCCTestSuite/extra-semi-2.hex.expected create mode 100644 tests/GCCTestSuite/extra-semi-2.s.expected create mode 100644 tests/GCCTestSuite/extra-semi-3.c create mode 100644 tests/GCCTestSuite/extra-semi-3.c.expected create mode 100644 tests/GCCTestSuite/extra-semi-3.hex.expected create mode 100644 tests/GCCTestSuite/extra-semi-3.s.expected create mode 100644 tests/GCCTestSuite/fdata-sections-1.c create mode 100644 tests/GCCTestSuite/fdata-sections-1.c.expected create mode 100644 tests/GCCTestSuite/fdata-sections-1.hex.expected create mode 100644 tests/GCCTestSuite/fdata-sections-1.s.expected create mode 100644 tests/GCCTestSuite/fold-abs-1.c create mode 100644 tests/GCCTestSuite/fold-abs-1.c.expected create mode 100644 tests/GCCTestSuite/fold-abs-1.hex.expected create mode 100644 tests/GCCTestSuite/fold-abs-1.s.expected create mode 100644 tests/GCCTestSuite/fold-abs-3.c create mode 100644 tests/GCCTestSuite/fold-abs-3.c.expected create mode 100644 tests/GCCTestSuite/fold-abs-3.hex.expected create mode 100644 tests/GCCTestSuite/fold-abs-3.s.expected create mode 100644 tests/GCCTestSuite/fold-mod-1.c create mode 100644 tests/GCCTestSuite/fold-mod-1.c.expected create mode 100644 tests/GCCTestSuite/fold-mod-1.hex.expected create mode 100644 tests/GCCTestSuite/fold-mod-1.s.expected create mode 100644 tests/GCCTestSuite/fold-xor-1.c create mode 100644 tests/GCCTestSuite/fold-xor-1.c.expected create mode 100644 tests/GCCTestSuite/fold-xor-1.hex.expected create mode 100644 tests/GCCTestSuite/fold-xor-1.s.expected create mode 100644 tests/GCCTestSuite/fold-xor-2.c create mode 100644 tests/GCCTestSuite/fold-xor-2.c.expected create mode 100644 tests/GCCTestSuite/fold-xor-2.hex.expected create mode 100644 tests/GCCTestSuite/fold-xor-2.s.expected create mode 100644 tests/GCCTestSuite/ftrapv-1.c create mode 100644 tests/GCCTestSuite/ftrapv-1.c.expected create mode 100644 tests/GCCTestSuite/ftrapv-1.hex.expected create mode 100644 tests/GCCTestSuite/ftrapv-1.s.expected create mode 100644 tests/GCCTestSuite/funcdef-attr-1.c create mode 100644 tests/GCCTestSuite/funcdef-attr-1.c.expected create mode 100644 tests/GCCTestSuite/funcdef-attr-1.hex.expected create mode 100644 tests/GCCTestSuite/funcdef-attr-1.s.expected create mode 100644 tests/GCCTestSuite/funcdef-var-2.c create mode 100644 tests/GCCTestSuite/funcdef-var-2.c.expected create mode 100644 tests/GCCTestSuite/funcdef-var-2.hex.expected create mode 100644 tests/GCCTestSuite/funcdef-var-2.s.expected create mode 100644 tests/GCCTestSuite/funroll-loops-all.c create mode 100644 tests/GCCTestSuite/funroll-loops-all.c.expected create mode 100644 tests/GCCTestSuite/funroll-loops-all.hex.expected create mode 100644 tests/GCCTestSuite/funroll-loops-all.s.expected create mode 100644 tests/GCCTestSuite/gnu89-dupqual-1.c create mode 100644 tests/GCCTestSuite/gnu89-dupqual-1.c.expected create mode 100644 tests/GCCTestSuite/gnu89-dupqual-1.hex.expected create mode 100644 tests/GCCTestSuite/gnu89-dupqual-1.s.expected create mode 100644 tests/GCCTestSuite/h8300-stack-1.c create mode 100644 tests/GCCTestSuite/h8300-stack-1.c.expected create mode 100644 tests/GCCTestSuite/h8300-stack-1.hex.expected create mode 100644 tests/GCCTestSuite/h8300-stack-1.s.expected create mode 100644 tests/GCCTestSuite/if-empty-1.c create mode 100644 tests/GCCTestSuite/if-empty-1.c.expected create mode 100644 tests/GCCTestSuite/if-empty-1.hex.expected create mode 100644 tests/GCCTestSuite/if-empty-1.s.expected create mode 100644 tests/GCCTestSuite/inline-1.c create mode 100644 tests/GCCTestSuite/inline-1.c.expected create mode 100644 tests/GCCTestSuite/inline-1.hex.expected create mode 100644 tests/GCCTestSuite/inline-1.s.expected create mode 100644 tests/GCCTestSuite/inline-10.c create mode 100644 tests/GCCTestSuite/inline-10.c.expected create mode 100644 tests/GCCTestSuite/inline-10.hex.expected create mode 100644 tests/GCCTestSuite/inline-10.s.expected create mode 100644 tests/GCCTestSuite/inline-17.c create mode 100644 tests/GCCTestSuite/inline-17.c.expected create mode 100644 tests/GCCTestSuite/inline-17.hex.expected create mode 100644 tests/GCCTestSuite/inline-17.s.expected create mode 100644 tests/GCCTestSuite/inline-18.c create mode 100644 tests/GCCTestSuite/inline-18.c.expected create mode 100644 tests/GCCTestSuite/inline-18.hex.expected create mode 100644 tests/GCCTestSuite/inline-18.s.expected create mode 100644 tests/GCCTestSuite/inline-19.c create mode 100644 tests/GCCTestSuite/inline-19.c.expected create mode 100644 tests/GCCTestSuite/inline-19.hex.expected create mode 100644 tests/GCCTestSuite/inline-19.s.expected create mode 100644 tests/GCCTestSuite/inline-2.c create mode 100644 tests/GCCTestSuite/inline-2.c.expected create mode 100644 tests/GCCTestSuite/inline-2.hex.expected create mode 100644 tests/GCCTestSuite/inline-2.s.expected create mode 100644 tests/GCCTestSuite/inline-21.c create mode 100644 tests/GCCTestSuite/inline-21.c.expected create mode 100644 tests/GCCTestSuite/inline-21.hex.expected create mode 100644 tests/GCCTestSuite/inline-21.s.expected create mode 100644 tests/GCCTestSuite/inline-4.c create mode 100644 tests/GCCTestSuite/inline-4.c.expected create mode 100644 tests/GCCTestSuite/inline-4.hex.expected create mode 100644 tests/GCCTestSuite/inline-4.s.expected create mode 100644 tests/GCCTestSuite/inline-5.c create mode 100644 tests/GCCTestSuite/inline-5.c.expected create mode 100644 tests/GCCTestSuite/inline-5.hex.expected create mode 100644 tests/GCCTestSuite/inline-5.s.expected create mode 100644 tests/GCCTestSuite/inline-6.c create mode 100644 tests/GCCTestSuite/inline-6.c.expected create mode 100644 tests/GCCTestSuite/inline-6.hex.expected create mode 100644 tests/GCCTestSuite/inline-6.s.expected create mode 100644 tests/GCCTestSuite/inline-7.c create mode 100644 tests/GCCTestSuite/inline-7.c.expected create mode 100644 tests/GCCTestSuite/inline-7.hex.expected create mode 100644 tests/GCCTestSuite/inline-7.s.expected create mode 100644 tests/GCCTestSuite/inline-8.c create mode 100644 tests/GCCTestSuite/inline-8.c.expected create mode 100644 tests/GCCTestSuite/inline-8.hex.expected create mode 100644 tests/GCCTestSuite/inline-8.s.expected create mode 100644 tests/GCCTestSuite/inline-9.c create mode 100644 tests/GCCTestSuite/inline-9.c.expected create mode 100644 tests/GCCTestSuite/inline-9.hex.expected create mode 100644 tests/GCCTestSuite/inline-9.s.expected create mode 100644 tests/GCCTestSuite/inline-mcpy.c create mode 100644 tests/GCCTestSuite/inline-mcpy.c.expected create mode 100644 tests/GCCTestSuite/inline1.c create mode 100644 tests/GCCTestSuite/inline1.c.expected create mode 100644 tests/GCCTestSuite/inline1.hex.expected create mode 100644 tests/GCCTestSuite/inline1.s.expected create mode 100644 tests/GCCTestSuite/inline2.c create mode 100644 tests/GCCTestSuite/inline2.c.expected create mode 100644 tests/GCCTestSuite/inline2.hex.expected create mode 100644 tests/GCCTestSuite/inline2.s.expected create mode 100644 tests/GCCTestSuite/inline4.c create mode 100644 tests/GCCTestSuite/inline4.c.expected create mode 100644 tests/GCCTestSuite/inline4.hex.expected create mode 100644 tests/GCCTestSuite/inline4.s.expected create mode 100644 tests/GCCTestSuite/inline5.c create mode 100644 tests/GCCTestSuite/inline5.c.expected create mode 100644 tests/GCCTestSuite/inline5.hex.expected create mode 100644 tests/GCCTestSuite/inline5.s.expected create mode 100644 tests/GCCTestSuite/intermod-1.c create mode 100644 tests/GCCTestSuite/intermod-1.c.expected create mode 100644 tests/GCCTestSuite/intermod-1.hex.expected create mode 100644 tests/GCCTestSuite/intermod-1.s.expected create mode 100644 tests/GCCTestSuite/intmax_t-1.c create mode 100644 tests/GCCTestSuite/intmax_t-1.c.expected create mode 100644 tests/GCCTestSuite/intmax_t-1.hex.expected create mode 100644 tests/GCCTestSuite/intmax_t-1.s.expected create mode 100644 tests/GCCTestSuite/kpice1.c create mode 100644 tests/GCCTestSuite/kpice1.c.expected create mode 100644 tests/GCCTestSuite/kpice1.hex.expected create mode 100644 tests/GCCTestSuite/kpice1.s.expected create mode 100644 tests/GCCTestSuite/label-compound-stmt-1.c create mode 100644 tests/GCCTestSuite/label-compound-stmt-1.c.expected create mode 100644 tests/GCCTestSuite/label-compound-stmt-1.hex.expected create mode 100644 tests/GCCTestSuite/label-compound-stmt-1.s.expected create mode 100644 tests/GCCTestSuite/local1.c create mode 100644 tests/GCCTestSuite/local1.c.expected create mode 100644 tests/GCCTestSuite/local1.hex.expected create mode 100644 tests/GCCTestSuite/local1.s.expected create mode 100644 tests/GCCTestSuite/loop-5.c create mode 100644 tests/GCCTestSuite/loop-5.c.expected create mode 100644 tests/GCCTestSuite/loop-5.hex.expected create mode 100644 tests/GCCTestSuite/loop-5.s.expected create mode 100644 tests/GCCTestSuite/m-un-1.c create mode 100644 tests/GCCTestSuite/m-un-1.c.expected create mode 100644 tests/GCCTestSuite/m-un-1.hex.expected create mode 100644 tests/GCCTestSuite/m-un-1.s.expected create mode 100644 tests/GCCTestSuite/merge-all-constants-1.c create mode 100644 tests/GCCTestSuite/merge-all-constants-1.c.expected create mode 100644 tests/GCCTestSuite/merge-all-constants-1.hex.expected create mode 100644 tests/GCCTestSuite/merge-all-constants-1.s.expected create mode 100644 tests/GCCTestSuite/nested-redef-1.c create mode 100644 tests/GCCTestSuite/nested-redef-1.c.expected create mode 100644 tests/GCCTestSuite/nested-redef-1.hex.expected create mode 100644 tests/GCCTestSuite/nested-redef-1.s.expected create mode 100644 tests/GCCTestSuite/nonnull-1.c create mode 100644 tests/GCCTestSuite/nonnull-1.c.expected create mode 100644 tests/GCCTestSuite/nonnull-1.hex.expected create mode 100644 tests/GCCTestSuite/nonnull-1.s.expected create mode 100644 tests/GCCTestSuite/nonnull-2.c create mode 100644 tests/GCCTestSuite/nonnull-2.c.expected create mode 100644 tests/GCCTestSuite/nonnull-2.hex.expected create mode 100644 tests/GCCTestSuite/nonnull-2.s.expected create mode 100644 tests/GCCTestSuite/noreturn-1.c create mode 100644 tests/GCCTestSuite/noreturn-1.c.expected create mode 100644 tests/GCCTestSuite/noreturn-1.hex.expected create mode 100644 tests/GCCTestSuite/noreturn-1.s.expected create mode 100644 tests/GCCTestSuite/noreturn-2.c create mode 100644 tests/GCCTestSuite/noreturn-2.c.expected create mode 100644 tests/GCCTestSuite/noreturn-2.hex.expected create mode 100644 tests/GCCTestSuite/noreturn-2.s.expected create mode 100644 tests/GCCTestSuite/noreturn-5.c create mode 100644 tests/GCCTestSuite/noreturn-5.c.expected create mode 100644 tests/GCCTestSuite/noreturn-5.hex.expected create mode 100644 tests/GCCTestSuite/noreturn-5.s.expected create mode 100644 tests/GCCTestSuite/noreturn-6.c create mode 100644 tests/GCCTestSuite/noreturn-6.c.expected create mode 100644 tests/GCCTestSuite/noreturn-6.hex.expected create mode 100644 tests/GCCTestSuite/noreturn-6.s.expected create mode 100644 tests/GCCTestSuite/noreturn-7.c create mode 100644 tests/GCCTestSuite/noreturn-7.c.expected create mode 100644 tests/GCCTestSuite/noreturn-7.hex.expected create mode 100644 tests/GCCTestSuite/noreturn-7.s.expected create mode 100644 tests/GCCTestSuite/null-pointer-1.c create mode 100644 tests/GCCTestSuite/null-pointer-1.c.expected create mode 100644 tests/GCCTestSuite/null-pointer-1.hex.expected create mode 100644 tests/GCCTestSuite/null-pointer-1.s.expected create mode 100644 tests/GCCTestSuite/old-style-then-proto-1.c create mode 100644 tests/GCCTestSuite/old-style-then-proto-1.c.expected create mode 100644 tests/GCCTestSuite/old-style-then-proto-1.hex.expected create mode 100644 tests/GCCTestSuite/old-style-then-proto-1.s.expected create mode 100644 tests/GCCTestSuite/overflow-1.c create mode 100644 tests/GCCTestSuite/overflow-1.c.expected create mode 100644 tests/GCCTestSuite/overflow-1.hex.expected create mode 100644 tests/GCCTestSuite/overflow-1.s.expected create mode 100644 tests/GCCTestSuite/pack-test-2.c create mode 100644 tests/GCCTestSuite/pack-test-2.c.expected create mode 100644 tests/GCCTestSuite/pack-test-2.hex.expected create mode 100644 tests/GCCTestSuite/pack-test-2.s.expected create mode 100644 tests/GCCTestSuite/pack-test-3.c create mode 100644 tests/GCCTestSuite/pack-test-3.c.expected create mode 100644 tests/GCCTestSuite/pack-test-3.hex.expected create mode 100644 tests/GCCTestSuite/pack-test-3.s.expected create mode 100644 tests/GCCTestSuite/parm-mismatch-1.c create mode 100644 tests/GCCTestSuite/parm-mismatch-1.c.expected create mode 100644 tests/GCCTestSuite/parm-mismatch-1.hex.expected create mode 100644 tests/GCCTestSuite/parm-mismatch-1.s.expected create mode 100644 tests/GCCTestSuite/postincr-1.c create mode 100644 tests/GCCTestSuite/postincr-1.c.expected create mode 100644 tests/GCCTestSuite/postincr-1.hex.expected create mode 100644 tests/GCCTestSuite/postincr-1.s.expected create mode 100644 tests/GCCTestSuite/pr11459-1.c create mode 100644 tests/GCCTestSuite/pr11459-1.c.expected create mode 100644 tests/GCCTestSuite/pr11459-1.hex.expected create mode 100644 tests/GCCTestSuite/pr11459-1.s.expected create mode 100644 tests/GCCTestSuite/pr11864-1.c create mode 100644 tests/GCCTestSuite/pr11864-1.c.expected create mode 100644 tests/GCCTestSuite/pr11864-1.hex.expected create mode 100644 tests/GCCTestSuite/pr11864-1.s.expected create mode 100644 tests/GCCTestSuite/pr14092-1.c create mode 100644 tests/GCCTestSuite/pr14092-1.c.expected create mode 100644 tests/GCCTestSuite/pr14092-1.hex.expected create mode 100644 tests/GCCTestSuite/pr14092-1.s.expected create mode 100644 tests/GCCTestSuite/pr14475.c create mode 100644 tests/GCCTestSuite/pr14475.c.expected create mode 100644 tests/GCCTestSuite/pr14475.hex.expected create mode 100644 tests/GCCTestSuite/pr14475.s.expected create mode 100644 tests/GCCTestSuite/pr14796-1.c create mode 100644 tests/GCCTestSuite/pr14796-1.c.expected create mode 100644 tests/GCCTestSuite/pr14796-2.c create mode 100644 tests/GCCTestSuite/pr14796-2.c.expected create mode 100644 tests/GCCTestSuite/pr15443-2.c create mode 100644 tests/GCCTestSuite/pr15443-2.c.expected create mode 100644 tests/GCCTestSuite/pr15443-2.hex.expected create mode 100644 tests/GCCTestSuite/pr15443-2.s.expected create mode 100644 tests/GCCTestSuite/pr15698-3.c create mode 100644 tests/GCCTestSuite/pr15698-3.c.expected create mode 100644 tests/GCCTestSuite/pr15698-3.hex.expected create mode 100644 tests/GCCTestSuite/pr15698-3.s.expected create mode 100644 tests/GCCTestSuite/pr15698-4.c create mode 100644 tests/GCCTestSuite/pr15698-4.c.expected create mode 100644 tests/GCCTestSuite/pr15698-4.hex.expected create mode 100644 tests/GCCTestSuite/pr15698-4.s.expected create mode 100644 tests/GCCTestSuite/pr15698-6.c create mode 100644 tests/GCCTestSuite/pr15698-6.c.expected create mode 100644 tests/GCCTestSuite/pr15698-6.hex.expected create mode 100644 tests/GCCTestSuite/pr15698-6.s.expected create mode 100644 tests/GCCTestSuite/pr15698-7.c create mode 100644 tests/GCCTestSuite/pr15698-7.c.expected create mode 100644 tests/GCCTestSuite/pr15698-7.hex.expected create mode 100644 tests/GCCTestSuite/pr15698-7.s.expected create mode 100644 tests/GCCTestSuite/pr15784-4.c create mode 100644 tests/GCCTestSuite/pr15784-4.c.expected create mode 100644 tests/GCCTestSuite/pr15784-4.hex.expected create mode 100644 tests/GCCTestSuite/pr15784-4.s.expected create mode 100644 tests/GCCTestSuite/pr15825-1.c create mode 100644 tests/GCCTestSuite/pr15825-1.c.expected create mode 100644 tests/GCCTestSuite/pr15825-1.hex.expected create mode 100644 tests/GCCTestSuite/pr15825-1.s.expected create mode 100644 tests/GCCTestSuite/pr17036-1.c create mode 100644 tests/GCCTestSuite/pr17036-1.c.expected create mode 100644 tests/GCCTestSuite/pr17036-1.hex.expected create mode 100644 tests/GCCTestSuite/pr17036-1.s.expected create mode 100644 tests/GCCTestSuite/pr17319.c create mode 100644 tests/GCCTestSuite/pr17319.c.expected create mode 100644 tests/GCCTestSuite/pr17319.hex.expected create mode 100644 tests/GCCTestSuite/pr17319.s.expected create mode 100644 tests/GCCTestSuite/pr17581-1.c create mode 100644 tests/GCCTestSuite/pr17581-1.c.expected create mode 100644 tests/GCCTestSuite/pr17581-1.hex.expected create mode 100644 tests/GCCTestSuite/pr17581-1.s.expected create mode 100644 tests/GCCTestSuite/pr17635.c create mode 100644 tests/GCCTestSuite/pr17635.c.expected create mode 100644 tests/GCCTestSuite/pr17635.hex.expected create mode 100644 tests/GCCTestSuite/pr17635.s.expected create mode 100644 tests/GCCTestSuite/pr17957.c create mode 100644 tests/GCCTestSuite/pr17957.c.expected create mode 100644 tests/GCCTestSuite/pr17957.hex.expected create mode 100644 tests/GCCTestSuite/pr17957.s.expected create mode 100644 tests/GCCTestSuite/pr18241-5.c create mode 100644 tests/GCCTestSuite/pr18241-5.c.expected create mode 100644 tests/GCCTestSuite/pr18241-5.hex.expected create mode 100644 tests/GCCTestSuite/pr18241-5.s.expected create mode 100644 tests/GCCTestSuite/pr18479.c create mode 100644 tests/GCCTestSuite/pr18479.c.expected create mode 100644 tests/GCCTestSuite/pr18479.hex.expected create mode 100644 tests/GCCTestSuite/pr18479.s.expected create mode 100644 tests/GCCTestSuite/pr18809-1.c create mode 100644 tests/GCCTestSuite/pr18809-1.c.expected create mode 100644 tests/GCCTestSuite/pr18809-1.hex.expected create mode 100644 tests/GCCTestSuite/pr18809-1.s.expected create mode 100644 tests/GCCTestSuite/pr18921-1.c create mode 100644 tests/GCCTestSuite/pr18921-1.c.expected create mode 100644 tests/GCCTestSuite/pr18921-1.hex.expected create mode 100644 tests/GCCTestSuite/pr18921-1.s.expected create mode 100644 tests/GCCTestSuite/pr18928-1.c create mode 100644 tests/GCCTestSuite/pr18928-1.c.expected create mode 100644 tests/GCCTestSuite/pr18928-1.hex.expected create mode 100644 tests/GCCTestSuite/pr18928-1.s.expected create mode 100644 tests/GCCTestSuite/pr20017.c create mode 100644 tests/GCCTestSuite/pr20017.c.expected create mode 100644 tests/GCCTestSuite/pr20017.hex.expected create mode 100644 tests/GCCTestSuite/pr20017.s.expected create mode 100644 tests/GCCTestSuite/pr20115-1.c create mode 100644 tests/GCCTestSuite/pr20115-1.c.expected create mode 100644 tests/GCCTestSuite/pr20115-1.hex.expected create mode 100644 tests/GCCTestSuite/pr20115-1.s.expected create mode 100644 tests/GCCTestSuite/pr20115.c create mode 100644 tests/GCCTestSuite/pr20115.c.expected create mode 100644 tests/GCCTestSuite/pr20115.hex.expected create mode 100644 tests/GCCTestSuite/pr20115.s.expected create mode 100644 tests/GCCTestSuite/pr20130-1.c create mode 100644 tests/GCCTestSuite/pr20130-1.c.expected create mode 100644 tests/GCCTestSuite/pr20130-1.hex.expected create mode 100644 tests/GCCTestSuite/pr20130-1.s.expected create mode 100644 tests/GCCTestSuite/pr21085.c create mode 100644 tests/GCCTestSuite/pr21085.c.expected create mode 100644 tests/GCCTestSuite/pr21085.hex.expected create mode 100644 tests/GCCTestSuite/pr21085.s.expected create mode 100644 tests/GCCTestSuite/pr22308-1.c create mode 100644 tests/GCCTestSuite/pr22308-1.c.expected create mode 100644 tests/GCCTestSuite/pr22308-1.hex.expected create mode 100644 tests/GCCTestSuite/pr22308-1.s.expected create mode 100644 tests/GCCTestSuite/pr22311-1.c create mode 100644 tests/GCCTestSuite/pr22311-1.c.expected create mode 100644 tests/GCCTestSuite/pr22311-1.hex.expected create mode 100644 tests/GCCTestSuite/pr22311-1.s.expected create mode 100644 tests/GCCTestSuite/pr22329.c create mode 100644 tests/GCCTestSuite/pr22329.c.expected create mode 100644 tests/GCCTestSuite/pr22329.hex.expected create mode 100644 tests/GCCTestSuite/pr22329.s.expected create mode 100644 tests/GCCTestSuite/pr22335-1.c create mode 100644 tests/GCCTestSuite/pr22335-1.c.expected create mode 100644 tests/GCCTestSuite/pr22335-1.hex.expected create mode 100644 tests/GCCTestSuite/pr22335-1.s.expected create mode 100644 tests/GCCTestSuite/pr22335-2.c create mode 100644 tests/GCCTestSuite/pr22335-2.c.expected create mode 100644 tests/GCCTestSuite/pr22335-2.hex.expected create mode 100644 tests/GCCTestSuite/pr22335-2.s.expected create mode 100644 tests/GCCTestSuite/pr23049.c create mode 100644 tests/GCCTestSuite/pr23049.c.expected create mode 100644 tests/GCCTestSuite/pr23165.c create mode 100644 tests/GCCTestSuite/pr23165.c.expected create mode 100644 tests/GCCTestSuite/pr23165.hex.expected create mode 100644 tests/GCCTestSuite/pr23165.s.expected create mode 100644 tests/GCCTestSuite/pr23584.c create mode 100644 tests/GCCTestSuite/pr23584.c.expected create mode 100644 tests/GCCTestSuite/pr23584.hex.expected create mode 100644 tests/GCCTestSuite/pr23584.s.expected create mode 100644 tests/GCCTestSuite/pr23625.c create mode 100644 tests/GCCTestSuite/pr23625.c.expected create mode 100644 tests/GCCTestSuite/pr23625.hex.expected create mode 100644 tests/GCCTestSuite/pr23625.s.expected create mode 100644 tests/GCCTestSuite/pr24367.c create mode 100644 tests/GCCTestSuite/pr24367.c.expected create mode 100644 tests/GCCTestSuite/pr24367.hex.expected create mode 100644 tests/GCCTestSuite/pr24367.s.expected create mode 100644 tests/GCCTestSuite/pr24445.c create mode 100644 tests/GCCTestSuite/pr24445.c.expected create mode 100644 tests/GCCTestSuite/pr24445.hex.expected create mode 100644 tests/GCCTestSuite/pr24445.s.expected create mode 100644 tests/GCCTestSuite/pr24600.c create mode 100644 tests/GCCTestSuite/pr24600.c.expected create mode 100644 tests/GCCTestSuite/pr24600.hex.expected create mode 100644 tests/GCCTestSuite/pr24600.s.expected create mode 100644 tests/GCCTestSuite/pr24615.c create mode 100644 tests/GCCTestSuite/pr24615.c.expected create mode 100644 tests/GCCTestSuite/pr24615.hex.expected create mode 100644 tests/GCCTestSuite/pr24615.s.expected create mode 100644 tests/GCCTestSuite/pr24620.c create mode 100644 tests/GCCTestSuite/pr24620.c.expected create mode 100644 tests/GCCTestSuite/pr24620.hex.expected create mode 100644 tests/GCCTestSuite/pr24620.s.expected create mode 100644 tests/GCCTestSuite/pr24683.c create mode 100644 tests/GCCTestSuite/pr24683.c.expected create mode 100644 tests/GCCTestSuite/pr25196.c create mode 100644 tests/GCCTestSuite/pr25196.c.expected create mode 100644 tests/GCCTestSuite/pr25196.hex.expected create mode 100644 tests/GCCTestSuite/pr25196.s.expected create mode 100644 tests/GCCTestSuite/pr25559.c create mode 100644 tests/GCCTestSuite/pr25559.c.expected create mode 100644 tests/GCCTestSuite/pr25559.hex.expected create mode 100644 tests/GCCTestSuite/pr25559.s.expected create mode 100644 tests/GCCTestSuite/pr25795-1.c create mode 100644 tests/GCCTestSuite/pr25795-1.c.expected create mode 100644 tests/GCCTestSuite/pr25795-1.hex.expected create mode 100644 tests/GCCTestSuite/pr25795-1.s.expected create mode 100644 tests/GCCTestSuite/pr25795.c create mode 100644 tests/GCCTestSuite/pr25795.c.expected create mode 100644 tests/GCCTestSuite/pr25795.hex.expected create mode 100644 tests/GCCTestSuite/pr25795.s.expected create mode 100644 tests/GCCTestSuite/pr25993.c create mode 100644 tests/GCCTestSuite/pr25993.c.expected create mode 100644 tests/GCCTestSuite/pr25993.hex.expected create mode 100644 tests/GCCTestSuite/pr25993.s.expected create mode 100644 tests/GCCTestSuite/pr26004.c create mode 100644 tests/GCCTestSuite/pr26004.c.expected create mode 100644 tests/GCCTestSuite/pr26004.hex.expected create mode 100644 tests/GCCTestSuite/pr26004.s.expected create mode 100644 tests/GCCTestSuite/pr26570.c create mode 100644 tests/GCCTestSuite/pr26570.c.expected create mode 100644 tests/GCCTestSuite/pr26570.hex.expected create mode 100644 tests/GCCTestSuite/pr26570.s.expected create mode 100644 tests/GCCTestSuite/pr26961-1.c create mode 100644 tests/GCCTestSuite/pr26961-1.c.expected create mode 100644 tests/GCCTestSuite/pr26961-1.hex.expected create mode 100644 tests/GCCTestSuite/pr26961-1.s.expected create mode 100644 tests/GCCTestSuite/pr28187.c create mode 100644 tests/GCCTestSuite/pr28187.c.expected create mode 100644 tests/GCCTestSuite/pr28187.hex.expected create mode 100644 tests/GCCTestSuite/pr28187.s.expected create mode 100644 tests/GCCTestSuite/pr28402.c create mode 100644 tests/GCCTestSuite/pr28402.c.expected create mode 100644 tests/GCCTestSuite/pr29581-1.c create mode 100644 tests/GCCTestSuite/pr29581-1.c.expected create mode 100644 tests/GCCTestSuite/pr29581-1.hex.expected create mode 100644 tests/GCCTestSuite/pr29581-1.s.expected create mode 100644 tests/GCCTestSuite/pr29581-3.c create mode 100644 tests/GCCTestSuite/pr29581-3.c.expected create mode 100644 tests/GCCTestSuite/pr29581-3.hex.expected create mode 100644 tests/GCCTestSuite/pr29581-3.s.expected create mode 100644 tests/GCCTestSuite/pr29637.c create mode 100644 tests/GCCTestSuite/pr29637.c.expected create mode 100644 tests/GCCTestSuite/pr29637.hex.expected create mode 100644 tests/GCCTestSuite/pr29637.s.expected create mode 100644 tests/GCCTestSuite/pr29736.c create mode 100644 tests/GCCTestSuite/pr29736.c.expected create mode 100644 tests/GCCTestSuite/pr29736.hex.expected create mode 100644 tests/GCCTestSuite/pr29736.s.expected create mode 100644 tests/GCCTestSuite/pr3074-1.c create mode 100644 tests/GCCTestSuite/pr3074-1.c.expected create mode 100644 tests/GCCTestSuite/pr3074-1.hex.expected create mode 100644 tests/GCCTestSuite/pr3074-1.s.expected create mode 100644 tests/GCCTestSuite/pr32450.c create mode 100644 tests/GCCTestSuite/pr32450.c.expected create mode 100644 tests/GCCTestSuite/pr32450.hex.expected create mode 100644 tests/GCCTestSuite/pr32450.s.expected create mode 100644 tests/GCCTestSuite/pragma-ep-2.c create mode 100644 tests/GCCTestSuite/pragma-ep-2.c.expected create mode 100644 tests/GCCTestSuite/pragma-ep-2.hex.expected create mode 100644 tests/GCCTestSuite/pragma-ep-2.s.expected create mode 100644 tests/GCCTestSuite/pragma-ep-3.c create mode 100644 tests/GCCTestSuite/pragma-ep-3.c.expected create mode 100644 tests/GCCTestSuite/pragma-ep-3.hex.expected create mode 100644 tests/GCCTestSuite/pragma-ep-3.s.expected create mode 100644 tests/GCCTestSuite/pragma-isr-trap_exit.c create mode 100644 tests/GCCTestSuite/pragma-isr-trap_exit.c.expected create mode 100644 tests/GCCTestSuite/pragma-isr-trap_exit.hex.expected create mode 100644 tests/GCCTestSuite/pragma-isr-trap_exit.s.expected create mode 100644 tests/GCCTestSuite/pragma-isr2.c create mode 100644 tests/GCCTestSuite/pragma-isr2.c.expected create mode 100644 tests/GCCTestSuite/pragma-isr2.hex.expected create mode 100644 tests/GCCTestSuite/pragma-isr2.s.expected create mode 100644 tests/GCCTestSuite/pragma-pack-4.c create mode 100644 tests/GCCTestSuite/pragma-pack-4.c.expected create mode 100644 tests/GCCTestSuite/pragma-pack-4.hex.expected create mode 100644 tests/GCCTestSuite/pragma-pack-4.s.expected create mode 100644 tests/GCCTestSuite/pragma-re-2.c create mode 100644 tests/GCCTestSuite/pragma-re-2.c.expected create mode 100644 tests/GCCTestSuite/pragma-re-2.hex.expected create mode 100644 tests/GCCTestSuite/pragma-re-2.s.expected create mode 100644 tests/GCCTestSuite/profile-generate-2.c create mode 100644 tests/GCCTestSuite/profile-generate-2.c.expected create mode 100644 tests/GCCTestSuite/profile-generate-2.hex.expected create mode 100644 tests/GCCTestSuite/profile-generate-2.s.expected create mode 100644 tests/GCCTestSuite/pure-1.c create mode 100644 tests/GCCTestSuite/pure-1.c.expected create mode 100644 tests/GCCTestSuite/pure-1.hex.expected create mode 100644 tests/GCCTestSuite/pure-1.s.expected create mode 100644 tests/GCCTestSuite/qual-return-1.c create mode 100644 tests/GCCTestSuite/qual-return-1.c.expected create mode 100644 tests/GCCTestSuite/qual-return-1.hex.expected create mode 100644 tests/GCCTestSuite/qual-return-1.s.expected create mode 100644 tests/GCCTestSuite/qual-return-2.c create mode 100644 tests/GCCTestSuite/qual-return-2.c.expected create mode 100644 tests/GCCTestSuite/qual-return-2.hex.expected create mode 100644 tests/GCCTestSuite/qual-return-2.s.expected create mode 100644 tests/GCCTestSuite/qual-return-3.c create mode 100644 tests/GCCTestSuite/qual-return-3.c.expected create mode 100644 tests/GCCTestSuite/qual-return-3.hex.expected create mode 100644 tests/GCCTestSuite/qual-return-3.s.expected create mode 100644 tests/GCCTestSuite/qual-return-4.c create mode 100644 tests/GCCTestSuite/qual-return-4.c.expected create mode 100644 tests/GCCTestSuite/qual-return-4.hex.expected create mode 100644 tests/GCCTestSuite/qual-return-4.s.expected create mode 100644 tests/GCCTestSuite/redecl-13.c create mode 100644 tests/GCCTestSuite/redecl-13.c.expected create mode 100644 tests/GCCTestSuite/redecl-13.hex.expected create mode 100644 tests/GCCTestSuite/redecl-13.s.expected create mode 100644 tests/GCCTestSuite/redecl-16.c create mode 100644 tests/GCCTestSuite/redecl-16.c.expected create mode 100644 tests/GCCTestSuite/redecl-16.hex.expected create mode 100644 tests/GCCTestSuite/redecl-16.s.expected create mode 100644 tests/GCCTestSuite/redecl-6.c create mode 100644 tests/GCCTestSuite/redecl-6.c.expected create mode 100644 tests/GCCTestSuite/redecl-6.hex.expected create mode 100644 tests/GCCTestSuite/redecl-6.s.expected create mode 100644 tests/GCCTestSuite/redecl-8.c create mode 100644 tests/GCCTestSuite/redecl-8.c.expected create mode 100644 tests/GCCTestSuite/redecl-8.hex.expected create mode 100644 tests/GCCTestSuite/redecl-8.s.expected create mode 100644 tests/GCCTestSuite/redecl-9.c create mode 100644 tests/GCCTestSuite/redecl-9.c.expected create mode 100644 tests/GCCTestSuite/redecl-9.hex.expected create mode 100644 tests/GCCTestSuite/redecl-9.s.expected create mode 100644 tests/GCCTestSuite/reg-vol-struct-1.c create mode 100644 tests/GCCTestSuite/reg-vol-struct-1.c.expected create mode 100644 tests/GCCTestSuite/reg-vol-struct-1.hex.expected create mode 100644 tests/GCCTestSuite/reg-vol-struct-1.s.expected create mode 100644 tests/GCCTestSuite/register-var-1.c create mode 100644 tests/GCCTestSuite/register-var-1.c.expected create mode 100644 tests/GCCTestSuite/register-var-1.hex.expected create mode 100644 tests/GCCTestSuite/register-var-1.s.expected create mode 100644 tests/GCCTestSuite/register-var-2.c create mode 100644 tests/GCCTestSuite/register-var-2.c.expected create mode 100644 tests/GCCTestSuite/register-var-2.hex.expected create mode 100644 tests/GCCTestSuite/register-var-2.s.expected create mode 100644 tests/GCCTestSuite/return-type-1.c create mode 100644 tests/GCCTestSuite/return-type-1.c.expected create mode 100644 tests/GCCTestSuite/return-type-1.hex.expected create mode 100644 tests/GCCTestSuite/return-type-1.s.expected create mode 100644 tests/GCCTestSuite/return-type-2.c create mode 100644 tests/GCCTestSuite/return-type-2.c.expected create mode 100644 tests/GCCTestSuite/return-type-2.hex.expected create mode 100644 tests/GCCTestSuite/return-type-2.s.expected create mode 100644 tests/GCCTestSuite/return-type-3.c create mode 100644 tests/GCCTestSuite/return-type-3.c.expected create mode 100644 tests/GCCTestSuite/return-type-3.hex.expected create mode 100644 tests/GCCTestSuite/return-type-3.s.expected create mode 100644 tests/GCCTestSuite/section1.c create mode 100644 tests/GCCTestSuite/section1.c.expected create mode 100644 tests/GCCTestSuite/section1.hex.expected create mode 100644 tests/GCCTestSuite/section1.s.expected create mode 100644 tests/GCCTestSuite/simd-1b.c create mode 100644 tests/GCCTestSuite/simd-1b.c.expected create mode 100644 tests/GCCTestSuite/simd-1b.hex.expected create mode 100644 tests/GCCTestSuite/simd-1b.s.expected create mode 100644 tests/GCCTestSuite/simd-3.c create mode 100644 tests/GCCTestSuite/simd-3.c.expected create mode 100644 tests/GCCTestSuite/simd-3.hex.expected create mode 100644 tests/GCCTestSuite/simd-3.s.expected create mode 100644 tests/GCCTestSuite/sparc-constant-1.c create mode 100644 tests/GCCTestSuite/sparc-constant-1.c.expected create mode 100644 tests/GCCTestSuite/sparc-constant-1.hex.expected create mode 100644 tests/GCCTestSuite/sparc-constant-1.s.expected create mode 100644 tests/GCCTestSuite/struct-empty-1.c create mode 100644 tests/GCCTestSuite/struct-empty-1.c.expected create mode 100644 tests/GCCTestSuite/struct-empty-1.hex.expected create mode 100644 tests/GCCTestSuite/struct-empty-1.s.expected create mode 100644 tests/GCCTestSuite/struct-empty-2.c create mode 100644 tests/GCCTestSuite/struct-empty-2.c.expected create mode 100644 tests/GCCTestSuite/struct-empty-2.hex.expected create mode 100644 tests/GCCTestSuite/struct-empty-2.s.expected create mode 100644 tests/GCCTestSuite/struct-empty-3.c create mode 100644 tests/GCCTestSuite/struct-empty-3.c.expected create mode 100644 tests/GCCTestSuite/struct-empty-3.hex.expected create mode 100644 tests/GCCTestSuite/struct-empty-3.s.expected create mode 100644 tests/GCCTestSuite/struct-ret-2.c create mode 100644 tests/GCCTestSuite/struct-ret-2.c.expected create mode 100644 tests/GCCTestSuite/struct-ret-2.hex.expected create mode 100644 tests/GCCTestSuite/struct-ret-2.s.expected create mode 100644 tests/GCCTestSuite/switch-1.c create mode 100644 tests/GCCTestSuite/switch-1.c.expected create mode 100644 tests/GCCTestSuite/switch-1.hex.expected create mode 100644 tests/GCCTestSuite/switch-1.s.expected create mode 100644 tests/GCCTestSuite/switch-4.c create mode 100644 tests/GCCTestSuite/switch-4.c.expected create mode 100644 tests/GCCTestSuite/switch-4.hex.expected create mode 100644 tests/GCCTestSuite/switch-4.s.expected create mode 100644 tests/GCCTestSuite/symbian1.c create mode 100644 tests/GCCTestSuite/symbian1.c.expected create mode 100644 tests/GCCTestSuite/symbian1.hex.expected create mode 100644 tests/GCCTestSuite/symbian1.s.expected create mode 100644 tests/GCCTestSuite/symbian3.c create mode 100644 tests/GCCTestSuite/symbian3.c.expected create mode 100644 tests/GCCTestSuite/symbian3.hex.expected create mode 100644 tests/GCCTestSuite/symbian3.s.expected create mode 100644 tests/GCCTestSuite/symbian4.c create mode 100644 tests/GCCTestSuite/symbian4.c.expected create mode 100644 tests/GCCTestSuite/symbian4.hex.expected create mode 100644 tests/GCCTestSuite/symbian4.s.expected create mode 100644 tests/GCCTestSuite/symbian5.c create mode 100644 tests/GCCTestSuite/symbian5.c.expected create mode 100644 tests/GCCTestSuite/symbian5.hex.expected create mode 100644 tests/GCCTestSuite/symbian5.s.expected create mode 100644 tests/GCCTestSuite/transparent-union-2.c create mode 100644 tests/GCCTestSuite/transparent-union-2.c.expected create mode 100644 tests/GCCTestSuite/transparent-union-2.hex.expected create mode 100644 tests/GCCTestSuite/transparent-union-2.s.expected create mode 100644 tests/GCCTestSuite/transparent-union-3.c create mode 100644 tests/GCCTestSuite/transparent-union-3.c.expected create mode 100644 tests/GCCTestSuite/transparent-union-3.hex.expected create mode 100644 tests/GCCTestSuite/transparent-union-3.s.expected create mode 100644 tests/GCCTestSuite/trunc-1.c create mode 100644 tests/GCCTestSuite/trunc-1.c.expected create mode 100644 tests/GCCTestSuite/trunc-1.hex.expected create mode 100644 tests/GCCTestSuite/trunc-1.s.expected create mode 100644 tests/GCCTestSuite/typedef-init.c create mode 100644 tests/GCCTestSuite/typedef-init.c.expected create mode 100644 tests/GCCTestSuite/typedef-init.hex.expected create mode 100644 tests/GCCTestSuite/typedef-init.s.expected create mode 100644 tests/GCCTestSuite/ultrasp1.c create mode 100644 tests/GCCTestSuite/ultrasp1.c.expected create mode 100644 tests/GCCTestSuite/ultrasp1.hex.expected create mode 100644 tests/GCCTestSuite/ultrasp1.s.expected create mode 100644 tests/GCCTestSuite/ultrasp10.c create mode 100644 tests/GCCTestSuite/ultrasp10.c.expected create mode 100644 tests/GCCTestSuite/ultrasp2.c create mode 100644 tests/GCCTestSuite/ultrasp2.c.expected create mode 100644 tests/GCCTestSuite/ultrasp2.hex.expected create mode 100644 tests/GCCTestSuite/ultrasp2.s.expected create mode 100644 tests/GCCTestSuite/ultrasp4.c create mode 100644 tests/GCCTestSuite/ultrasp4.c.expected create mode 100644 tests/GCCTestSuite/ultrasp4.hex.expected create mode 100644 tests/GCCTestSuite/ultrasp4.s.expected create mode 100644 tests/GCCTestSuite/uninit-1.c create mode 100644 tests/GCCTestSuite/uninit-1.c.expected create mode 100644 tests/GCCTestSuite/uninit-1.hex.expected create mode 100644 tests/GCCTestSuite/uninit-1.s.expected create mode 100644 tests/GCCTestSuite/uninit-11.c create mode 100644 tests/GCCTestSuite/uninit-11.c.expected create mode 100644 tests/GCCTestSuite/uninit-11.hex.expected create mode 100644 tests/GCCTestSuite/uninit-11.s.expected create mode 100644 tests/GCCTestSuite/uninit-2.c create mode 100644 tests/GCCTestSuite/uninit-2.c.expected create mode 100644 tests/GCCTestSuite/uninit-2.hex.expected create mode 100644 tests/GCCTestSuite/uninit-2.s.expected create mode 100644 tests/GCCTestSuite/uninit-3.c create mode 100644 tests/GCCTestSuite/uninit-3.c.expected create mode 100644 tests/GCCTestSuite/uninit-4.c create mode 100644 tests/GCCTestSuite/uninit-4.c.expected create mode 100644 tests/GCCTestSuite/uninit-4.hex.expected create mode 100644 tests/GCCTestSuite/uninit-4.s.expected create mode 100644 tests/GCCTestSuite/uninit-5.c create mode 100644 tests/GCCTestSuite/uninit-5.c.expected create mode 100644 tests/GCCTestSuite/uninit-5.hex.expected create mode 100644 tests/GCCTestSuite/uninit-5.s.expected create mode 100644 tests/GCCTestSuite/uninit-6.c create mode 100644 tests/GCCTestSuite/uninit-6.c.expected create mode 100644 tests/GCCTestSuite/uninit-6.hex.expected create mode 100644 tests/GCCTestSuite/uninit-6.s.expected create mode 100644 tests/GCCTestSuite/uninit-8.c create mode 100644 tests/GCCTestSuite/uninit-8.c.expected create mode 100644 tests/GCCTestSuite/uninit-8.hex.expected create mode 100644 tests/GCCTestSuite/uninit-8.s.expected create mode 100644 tests/GCCTestSuite/uninit-B.c create mode 100644 tests/GCCTestSuite/uninit-B.c.expected create mode 100644 tests/GCCTestSuite/uninit-B.hex.expected create mode 100644 tests/GCCTestSuite/uninit-B.s.expected create mode 100644 tests/GCCTestSuite/uninit-C.c create mode 100644 tests/GCCTestSuite/uninit-C.c.expected create mode 100644 tests/GCCTestSuite/uninit-C.hex.expected create mode 100644 tests/GCCTestSuite/uninit-C.s.expected create mode 100644 tests/GCCTestSuite/uninit-D.c create mode 100644 tests/GCCTestSuite/uninit-D.c.expected create mode 100644 tests/GCCTestSuite/uninit-D.hex.expected create mode 100644 tests/GCCTestSuite/uninit-D.s.expected create mode 100644 tests/GCCTestSuite/uninit-E.c create mode 100644 tests/GCCTestSuite/uninit-E.c.expected create mode 100644 tests/GCCTestSuite/uninit-E.hex.expected create mode 100644 tests/GCCTestSuite/uninit-E.s.expected create mode 100644 tests/GCCTestSuite/uninit-F.c create mode 100644 tests/GCCTestSuite/uninit-F.c.expected create mode 100644 tests/GCCTestSuite/uninit-F.hex.expected create mode 100644 tests/GCCTestSuite/uninit-F.s.expected create mode 100644 tests/GCCTestSuite/uninit-G.c create mode 100644 tests/GCCTestSuite/uninit-G.c.expected create mode 100644 tests/GCCTestSuite/uninit-G.hex.expected create mode 100644 tests/GCCTestSuite/uninit-G.s.expected create mode 100644 tests/GCCTestSuite/uninit-H.c create mode 100644 tests/GCCTestSuite/uninit-H.c.expected create mode 100644 tests/GCCTestSuite/uninit-H.hex.expected create mode 100644 tests/GCCTestSuite/uninit-H.s.expected create mode 100644 tests/GCCTestSuite/uninit-I.c create mode 100644 tests/GCCTestSuite/uninit-I.c.expected create mode 100644 tests/GCCTestSuite/uninit-I.hex.expected create mode 100644 tests/GCCTestSuite/uninit-I.s.expected create mode 100644 tests/GCCTestSuite/unroll-1.c create mode 100644 tests/GCCTestSuite/unroll-1.c.expected create mode 100644 tests/GCCTestSuite/unroll-1.hex.expected create mode 100644 tests/GCCTestSuite/unroll-1.s.expected create mode 100644 tests/GCCTestSuite/unused-1.c create mode 100644 tests/GCCTestSuite/unused-1.c.expected create mode 100644 tests/GCCTestSuite/unused-1.hex.expected create mode 100644 tests/GCCTestSuite/unused-1.s.expected create mode 100644 tests/GCCTestSuite/unused-2.c create mode 100644 tests/GCCTestSuite/unused-2.c.expected create mode 100644 tests/GCCTestSuite/unused-2.hex.expected create mode 100644 tests/GCCTestSuite/unused-2.s.expected create mode 100644 tests/GCCTestSuite/unused-3.c create mode 100644 tests/GCCTestSuite/unused-3.c.expected create mode 100644 tests/GCCTestSuite/unused-3.hex.expected create mode 100644 tests/GCCTestSuite/unused-3.s.expected create mode 100644 tests/GCCTestSuite/unused-4.c create mode 100644 tests/GCCTestSuite/unused-4.c.expected create mode 100644 tests/GCCTestSuite/unused-4.hex.expected create mode 100644 tests/GCCTestSuite/unused-4.s.expected create mode 100644 tests/GCCTestSuite/unused-5.c create mode 100644 tests/GCCTestSuite/unused-5.c.expected create mode 100644 tests/GCCTestSuite/unused-5.hex.expected create mode 100644 tests/GCCTestSuite/unused-5.s.expected create mode 100644 tests/GCCTestSuite/unused-6.c create mode 100644 tests/GCCTestSuite/unused-6.c.expected create mode 100644 tests/GCCTestSuite/unused-6.hex.expected create mode 100644 tests/GCCTestSuite/unused-6.s.expected create mode 100644 tests/GCCTestSuite/unused-7.c create mode 100644 tests/GCCTestSuite/unused-7.c.expected create mode 100644 tests/GCCTestSuite/unused-7.hex.expected create mode 100644 tests/GCCTestSuite/unused-7.s.expected create mode 100644 tests/GCCTestSuite/verbose-asm.c create mode 100644 tests/GCCTestSuite/verbose-asm.c.expected create mode 100644 tests/GCCTestSuite/verbose-asm.hex.expected create mode 100644 tests/GCCTestSuite/verbose-asm.s.expected create mode 100644 tests/GCCTestSuite/visibility-1.c create mode 100644 tests/GCCTestSuite/visibility-1.c.expected create mode 100644 tests/GCCTestSuite/visibility-1.hex.expected create mode 100644 tests/GCCTestSuite/visibility-1.s.expected create mode 100644 tests/GCCTestSuite/visibility-10.c create mode 100644 tests/GCCTestSuite/visibility-10.c.expected create mode 100644 tests/GCCTestSuite/visibility-10.hex.expected create mode 100644 tests/GCCTestSuite/visibility-10.s.expected create mode 100644 tests/GCCTestSuite/visibility-2.c create mode 100644 tests/GCCTestSuite/visibility-2.c.expected create mode 100644 tests/GCCTestSuite/visibility-2.hex.expected create mode 100644 tests/GCCTestSuite/visibility-2.s.expected create mode 100644 tests/GCCTestSuite/visibility-3.c create mode 100644 tests/GCCTestSuite/visibility-3.c.expected create mode 100644 tests/GCCTestSuite/visibility-3.hex.expected create mode 100644 tests/GCCTestSuite/visibility-3.s.expected create mode 100644 tests/GCCTestSuite/visibility-4.c create mode 100644 tests/GCCTestSuite/visibility-4.c.expected create mode 100644 tests/GCCTestSuite/visibility-4.hex.expected create mode 100644 tests/GCCTestSuite/visibility-4.s.expected create mode 100644 tests/GCCTestSuite/visibility-5.c create mode 100644 tests/GCCTestSuite/visibility-5.c.expected create mode 100644 tests/GCCTestSuite/visibility-5.hex.expected create mode 100644 tests/GCCTestSuite/visibility-5.s.expected create mode 100644 tests/GCCTestSuite/visibility-6.c create mode 100644 tests/GCCTestSuite/visibility-6.c.expected create mode 100644 tests/GCCTestSuite/visibility-6.hex.expected create mode 100644 tests/GCCTestSuite/visibility-6.s.expected create mode 100644 tests/GCCTestSuite/visibility-7.c create mode 100644 tests/GCCTestSuite/visibility-7.c.expected create mode 100644 tests/GCCTestSuite/visibility-7.hex.expected create mode 100644 tests/GCCTestSuite/visibility-7.s.expected create mode 100644 tests/GCCTestSuite/visibility-8.c create mode 100644 tests/GCCTestSuite/visibility-8.c.expected create mode 100644 tests/GCCTestSuite/visibility-8.hex.expected create mode 100644 tests/GCCTestSuite/visibility-8.s.expected create mode 100644 tests/GCCTestSuite/visibility-9.c create mode 100644 tests/GCCTestSuite/visibility-9.c.expected create mode 100644 tests/GCCTestSuite/visibility-9.hex.expected create mode 100644 tests/GCCTestSuite/visibility-9.s.expected create mode 100644 tests/GCCTestSuite/visibility-a.c create mode 100644 tests/GCCTestSuite/visibility-a.c.expected create mode 100644 tests/GCCTestSuite/visibility-a.hex.expected create mode 100644 tests/GCCTestSuite/visibility-a.s.expected create mode 100644 tests/GCCTestSuite/visibility-b.c create mode 100644 tests/GCCTestSuite/visibility-b.c.expected create mode 100644 tests/GCCTestSuite/visibility-b.hex.expected create mode 100644 tests/GCCTestSuite/visibility-b.s.expected create mode 100644 tests/GCCTestSuite/visibility-c.c create mode 100644 tests/GCCTestSuite/visibility-c.c.expected create mode 100644 tests/GCCTestSuite/visibility-c.hex.expected create mode 100644 tests/GCCTestSuite/visibility-c.s.expected create mode 100644 tests/GCCTestSuite/visibility-d.c create mode 100644 tests/GCCTestSuite/visibility-d.c.expected create mode 100644 tests/GCCTestSuite/visibility-d.hex.expected create mode 100644 tests/GCCTestSuite/visibility-d.s.expected create mode 100644 tests/GCCTestSuite/void-cast-1.c create mode 100644 tests/GCCTestSuite/void-cast-1.c.expected create mode 100644 tests/GCCTestSuite/void-cast-1.hex.expected create mode 100644 tests/GCCTestSuite/void-cast-1.s.expected create mode 100644 tests/GCCTestSuite/void-cast-2.c create mode 100644 tests/GCCTestSuite/void-cast-2.c.expected create mode 100644 tests/GCCTestSuite/void-cast-2.hex.expected create mode 100644 tests/GCCTestSuite/void-cast-2.s.expected create mode 100644 tests/GCCTestSuite/volatile1.c create mode 100644 tests/GCCTestSuite/volatile1.c.expected create mode 100644 tests/GCCTestSuite/volatile1.hex.expected create mode 100644 tests/GCCTestSuite/volatile1.s.expected create mode 100644 tests/GCCTestSuite/warn-1.c create mode 100644 tests/GCCTestSuite/warn-1.c.expected create mode 100644 tests/GCCTestSuite/warn-1.hex.expected create mode 100644 tests/GCCTestSuite/warn-1.s.expected create mode 100644 tests/GCCTestSuite/wchar_t-1.c create mode 100644 tests/GCCTestSuite/wchar_t-1.c.expected create mode 100644 tests/GCCTestSuite/wchar_t-1.hex.expected create mode 100644 tests/GCCTestSuite/wchar_t-1.s.expected create mode 100644 tests/GCCTestSuite/wchar_t-2.c create mode 100644 tests/GCCTestSuite/wchar_t-2.c.expected create mode 100644 tests/GCCTestSuite/wchar_t-2.hex.expected create mode 100644 tests/GCCTestSuite/wchar_t-2.s.expected create mode 100644 tests/GCCTestSuite/winline-1.c create mode 100644 tests/GCCTestSuite/winline-1.c.expected create mode 100644 tests/GCCTestSuite/winline-1.hex.expected create mode 100644 tests/GCCTestSuite/winline-1.s.expected create mode 100644 tests/GCCTestSuite/winline-2.c create mode 100644 tests/GCCTestSuite/winline-2.c.expected create mode 100644 tests/GCCTestSuite/winline-2.hex.expected create mode 100644 tests/GCCTestSuite/winline-2.s.expected create mode 100644 tests/GCCTestSuite/winline-3.c create mode 100644 tests/GCCTestSuite/winline-3.c.expected create mode 100644 tests/GCCTestSuite/winline-3.hex.expected create mode 100644 tests/GCCTestSuite/winline-3.s.expected create mode 100644 tests/GCCTestSuite/winline-5.c create mode 100644 tests/GCCTestSuite/winline-5.c.expected create mode 100644 tests/GCCTestSuite/winline-5.hex.expected create mode 100644 tests/GCCTestSuite/winline-5.s.expected create mode 100644 tests/GCCTestSuite/winline-6.c create mode 100644 tests/GCCTestSuite/winline-6.c.expected create mode 100644 tests/GCCTestSuite/winline-6.hex.expected create mode 100644 tests/GCCTestSuite/winline-6.s.expected create mode 100644 tests/GCCTestSuite/winline-7.c create mode 100644 tests/GCCTestSuite/winline-7.c.expected create mode 100644 tests/GCCTestSuite/winline-7.hex.expected create mode 100644 tests/GCCTestSuite/winline-7.s.expected create mode 100644 tests/GCCTestSuite/wint_t-1.c create mode 100644 tests/GCCTestSuite/wint_t-1.c.expected create mode 100644 tests/GCCTestSuite/wint_t-1.hex.expected create mode 100644 tests/GCCTestSuite/wint_t-1.s.expected create mode 100644 tests/GCCTestSuite/wtr-escape-1.c create mode 100644 tests/GCCTestSuite/wtr-escape-1.c.expected create mode 100644 tests/GCCTestSuite/wtr-escape-1.hex.expected create mode 100644 tests/GCCTestSuite/wtr-escape-1.s.expected create mode 100644 tests/GCCTestSuite/wtr-static-1.c create mode 100644 tests/GCCTestSuite/wtr-static-1.c.expected create mode 100644 tests/GCCTestSuite/wtr-static-1.hex.expected create mode 100644 tests/GCCTestSuite/wtr-static-1.s.expected create mode 100644 tests/GCCTestSuite/wtr-switch-1.c create mode 100644 tests/GCCTestSuite/wtr-switch-1.c.expected create mode 100644 tests/GCCTestSuite/wtr-switch-1.hex.expected create mode 100644 tests/GCCTestSuite/wtr-switch-1.s.expected create mode 100644 tests/GCCTestSuite/wtr-unary-plus-1.c create mode 100644 tests/GCCTestSuite/wtr-unary-plus-1.c.expected create mode 100644 tests/GCCTestSuite/wtr-unary-plus-1.hex.expected create mode 100644 tests/GCCTestSuite/wtr-unary-plus-1.s.expected create mode 100644 tests/GCCTestSuite/wtr-union-init-1.c create mode 100644 tests/GCCTestSuite/wtr-union-init-1.c.expected create mode 100644 tests/GCCTestSuite/wtr-union-init-1.hex.expected create mode 100644 tests/GCCTestSuite/wtr-union-init-1.s.expected create mode 100644 tests/Makefile create mode 100644 tests/benchs/Makefile create mode 100755 tests/benchs/acc.run create mode 100644 tests/benchs/badsort.c create mode 100644 tests/benchs/fib.c create mode 100644 tests/benchs/mat_det.c create mode 100755 tests/benchs/meantime.sh create mode 100644 tests/benchs/min.c create mode 100644 tests/benchs/quicksort.c create mode 100644 tests/benchs/search.c create mode 100644 tests/clight/Makefile create mode 100644 tests/clight/array.ASM.expected create mode 100644 tests/clight/array.Clight.expected create mode 100644 tests/clight/array.Cminor.expected create mode 100644 tests/clight/array.ERTL.expected create mode 100644 tests/clight/array.LIN.expected create mode 100644 tests/clight/array.LTL.expected create mode 100644 tests/clight/array.RTL.expected create mode 100644 tests/clight/array.RTLabs.expected create mode 100644 tests/clight/array.c create mode 100644 tests/clight/array.c.expected create mode 100644 tests/clight/array.log.expected create mode 100644 tests/clight/binop.ASM.expected create mode 100644 tests/clight/binop.Clight.expected create mode 100644 tests/clight/binop.Cminor.expected create mode 100644 tests/clight/binop.ERTL.expected create mode 100644 tests/clight/binop.LIN.expected create mode 100644 tests/clight/binop.LTL.expected create mode 100644 tests/clight/binop.RTL.expected create mode 100644 tests/clight/binop.RTLabs.expected create mode 100644 tests/clight/binop.c create mode 100644 tests/clight/binop.c.expected create mode 100644 tests/clight/binop.log.expected create mode 100644 tests/clight/complets.ASM.expected create mode 100644 tests/clight/complets.Clight.expected create mode 100644 tests/clight/complets.Cminor.expected create mode 100644 tests/clight/complets.ERTL.expected create mode 100644 tests/clight/complets.LIN.expected create mode 100644 tests/clight/complets.LTL.expected create mode 100644 tests/clight/complets.RTL.expected create mode 100644 tests/clight/complets.RTLabs.expected create mode 100644 tests/clight/complets.c create mode 100644 tests/clight/complets.c.expected create mode 100644 tests/clight/complets.log.expected create mode 100644 tests/clight/fib.ASM.expected create mode 100644 tests/clight/fib.Clight.expected create mode 100644 tests/clight/fib.Cminor.expected create mode 100644 tests/clight/fib.ERTL.expected create mode 100644 tests/clight/fib.LIN.expected create mode 100644 tests/clight/fib.LTL.expected create mode 100644 tests/clight/fib.RTL.expected create mode 100644 tests/clight/fib.RTLabs.expected create mode 100644 tests/clight/fib.c create mode 100644 tests/clight/fib.c.expected create mode 100644 tests/clight/fib.log.expected create mode 100644 tests/clight/fib.s.expected create mode 100644 tests/clight/fir4.ASM.expected create mode 100644 tests/clight/fir4.Clight.expected create mode 100644 tests/clight/fir4.Cminor.expected create mode 100644 tests/clight/fir4.ERTL.expected create mode 100644 tests/clight/fir4.LIN.expected create mode 100644 tests/clight/fir4.LTL.expected create mode 100644 tests/clight/fir4.RTL.expected create mode 100644 tests/clight/fir4.RTLabs.expected create mode 100644 tests/clight/fir4.c create mode 100644 tests/clight/fir4.c.expected create mode 100644 tests/clight/fir4.log.expected create mode 100644 tests/clight/fir_complexe.ASM.expected create mode 100644 tests/clight/fir_complexe.Clight.expected create mode 100644 tests/clight/fir_complexe.Cminor.expected create mode 100644 tests/clight/fir_complexe.ERTL.expected create mode 100644 tests/clight/fir_complexe.LIN.expected create mode 100644 tests/clight/fir_complexe.LTL.expected create mode 100644 tests/clight/fir_complexe.RTL.expected create mode 100644 tests/clight/fir_complexe.RTLabs.expected create mode 100644 tests/clight/fir_complexe.c create mode 100644 tests/clight/fir_complexe.c.expected create mode 100644 tests/clight/fir_complexe.log.expected create mode 100644 tests/clight/for.ASM.expected create mode 100644 tests/clight/for.Clight.expected create mode 100644 tests/clight/for.Cminor.expected create mode 100644 tests/clight/for.ERTL.expected create mode 100644 tests/clight/for.LIN.expected create mode 100644 tests/clight/for.LTL.expected create mode 100644 tests/clight/for.RTL.expected create mode 100644 tests/clight/for.RTLabs.expected create mode 100644 tests/clight/for.c create mode 100644 tests/clight/for.c.expected create mode 100644 tests/clight/for.log.expected create mode 100644 tests/clight/ifthenelse.ASM.expected create mode 100644 tests/clight/ifthenelse.Clight.expected create mode 100644 tests/clight/ifthenelse.Cminor.expected create mode 100644 tests/clight/ifthenelse.ERTL.expected create mode 100644 tests/clight/ifthenelse.LIN.expected create mode 100644 tests/clight/ifthenelse.LTL.expected create mode 100644 tests/clight/ifthenelse.RTL.expected create mode 100644 tests/clight/ifthenelse.RTLabs.expected create mode 100644 tests/clight/ifthenelse.c create mode 100644 tests/clight/ifthenelse.c.expected create mode 100644 tests/clight/ifthenelse.log.expected create mode 100644 tests/clight/testCOMP_tri.ASM.expected create mode 100644 tests/clight/testCOMP_tri.Clight.expected create mode 100644 tests/clight/testCOMP_tri.Cminor.expected create mode 100644 tests/clight/testCOMP_tri.ERTL.expected create mode 100644 tests/clight/testCOMP_tri.LIN.expected create mode 100644 tests/clight/testCOMP_tri.LTL.expected create mode 100644 tests/clight/testCOMP_tri.RTL.expected create mode 100644 tests/clight/testCOMP_tri.RTLabs.expected create mode 100644 tests/clight/testCOMP_tri.c create mode 100644 tests/clight/testCOMP_tri.c.expected create mode 100644 tests/clight/testCOMP_tri.log.expected create mode 100644 tests/clight/testTB_Array_LE.ASM.expected create mode 100644 tests/clight/testTB_Array_LE.Clight.expected create mode 100644 tests/clight/testTB_Array_LE.Cminor.expected create mode 100644 tests/clight/testTB_Array_LE.ERTL.expected create mode 100644 tests/clight/testTB_Array_LE.LIN.expected create mode 100644 tests/clight/testTB_Array_LE.LTL.expected create mode 100644 tests/clight/testTB_Array_LE.RTL.expected create mode 100644 tests/clight/testTB_Array_LE.RTLabs.expected create mode 100644 tests/clight/testTB_Array_LE.c create mode 100644 tests/clight/testTB_Array_LE.c.expected create mode 100644 tests/clight/testTB_Array_LE.log.expected create mode 100644 tests/clight/testTB_Array_double.ASM.expected create mode 100644 tests/clight/testTB_Array_double.Clight.expected create mode 100644 tests/clight/testTB_Array_double.Cminor.expected create mode 100644 tests/clight/testTB_Array_double.ERTL.expected create mode 100644 tests/clight/testTB_Array_double.LIN.expected create mode 100644 tests/clight/testTB_Array_double.LTL.expected create mode 100644 tests/clight/testTB_Array_double.RTL.expected create mode 100644 tests/clight/testTB_Array_double.RTLabs.expected create mode 100644 tests/clight/testTB_Array_double.c create mode 100644 tests/clight/testTB_Array_double.c.expected create mode 100644 tests/clight/testTB_Array_double.log.expected create mode 100644 tests/clight/testTB_Array_ecriture.ASM.expected create mode 100644 tests/clight/testTB_Array_ecriture.Clight.expected create mode 100644 tests/clight/testTB_Array_ecriture.Cminor.expected create mode 100644 tests/clight/testTB_Array_ecriture.ERTL.expected create mode 100644 tests/clight/testTB_Array_ecriture.LIN.expected create mode 100644 tests/clight/testTB_Array_ecriture.LTL.expected create mode 100644 tests/clight/testTB_Array_ecriture.RTL.expected create mode 100644 tests/clight/testTB_Array_ecriture.RTLabs.expected create mode 100644 tests/clight/testTB_Array_ecriture.c create mode 100644 tests/clight/testTB_Array_ecriture.c.expected create mode 100644 tests/clight/testTB_Array_ecriture.log.expected create mode 100644 tests/clight/testTB_Array_lecture.ASM.expected create mode 100644 tests/clight/testTB_Array_lecture.Clight.expected create mode 100644 tests/clight/testTB_Array_lecture.Cminor.expected create mode 100644 tests/clight/testTB_Array_lecture.ERTL.expected create mode 100644 tests/clight/testTB_Array_lecture.LIN.expected create mode 100644 tests/clight/testTB_Array_lecture.LTL.expected create mode 100644 tests/clight/testTB_Array_lecture.RTL.expected create mode 100644 tests/clight/testTB_Array_lecture.RTLabs.expected create mode 100644 tests/clight/testTB_Array_lecture.c create mode 100644 tests/clight/testTB_Array_lecture.c.expected create mode 100644 tests/clight/testTB_Array_lecture.log.expected create mode 100644 tests/clight/testTB_boucle.ASM.expected create mode 100644 tests/clight/testTB_boucle.Clight.expected create mode 100644 tests/clight/testTB_boucle.Cminor.expected create mode 100644 tests/clight/testTB_boucle.ERTL.expected create mode 100644 tests/clight/testTB_boucle.LIN.expected create mode 100644 tests/clight/testTB_boucle.LTL.expected create mode 100644 tests/clight/testTB_boucle.RTL.expected create mode 100644 tests/clight/testTB_boucle.RTLabs.expected create mode 100644 tests/clight/testTB_boucle.c create mode 100644 tests/clight/testTB_boucle.c.expected create mode 100644 tests/clight/testTB_boucle.log.expected create mode 100644 tests/review1/bubble_sort.c create mode 100644 tests/review1/search.c create mode 100644 tests/tmp_tests/Backend/array_copy.c create mode 100644 tests/tmp_tests/Backend/array_copy_u.c create mode 100644 tests/tmp_tests/Backend/bubble_sort.c create mode 100644 tests/tmp_tests/Backend/bubble_sort_u.c create mode 100644 tests/tmp_tests/Backend/quicksort.c create mode 100644 tests/tmp_tests/Backend/quicksort_u.c create mode 100644 tests/tmp_tests/Backend/search.c create mode 100644 tests/tmp_tests/Backend/struct_and_ptr_and_fact.c create mode 100644 tests/tmp_tests/Backend/struct_and_ptr_and_fact_u.c create mode 100644 tests/tmp_tests/Frontend/array_copy.RTLabs create mode 100644 tests/tmp_tests/Frontend/array_copy.c create mode 100644 tests/tmp_tests/Frontend/bubble_sort.RTLabs create mode 100644 tests/tmp_tests/Frontend/bubble_sort.c create mode 100644 tests/tmp_tests/Frontend/call.c create mode 100644 tests/tmp_tests/Frontend/quicksort.RTLabs create mode 100644 tests/tmp_tests/Frontend/quicksort.c create mode 100644 tests/tmp_tests/Frontend/search.RTLabs create mode 100644 tests/tmp_tests/Frontend/search.c create mode 100644 tests/tmp_tests/Frontend/struct_and_ptr_and_fact.RTLabs create mode 100644 tests/tmp_tests/Frontend/struct_and_ptr_and_fact.c create mode 100644 web/accweb.html create mode 100644 web/fetopen.png create mode 100755 web/make-cerco-input.sh diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..ca9f018 --- /dev/null +++ b/Makefile @@ -0,0 +1,15 @@ +include Makefile.variables +include Makefile.local +include Makefile.generic +include Makefile.config + +.PHONY: web + +ifeq ($(HAVE_OCLOSURE), yes) +web: webconfig + @ echo 'module Int = IntByInt64' > src/common/intValueConfig.ml + @ $(OCAMLBUILD) src/accweb.byte + @ js_of_ocaml accweb.byte + @ oclosure_req accweb.js + @ mv *.js web +endif diff --git a/Makefile.config b/Makefile.config new file mode 100644 index 0000000..435e0c0 --- /dev/null +++ b/Makefile.config @@ -0,0 +1,30 @@ +# -*- Makefile -*- + +-include Makefile.local + +.PHONY: announce cparserlib webconfig configure + +announce: + @ echo "Source configuration ..." + @ echo 'module Int = IntByBig_int' > src/common/intValueConfig.ml + +cparserlib: + @ echo "CIL parser compilation ..." + @ $(MAKE) --silent -C cparser all install + +ifeq ($(HAVE_OCLOSURE), yes) +webconfig: + @ echo "Configuring O'Closure support." + @ cat _tags.common > _tags + @ cat _tags.js_of_ocaml >> _tags +else +webconfig: + @ echo "Skipping O'Closure support." +endif + +configure: announce cparserlib + @ cat _tags.common > _tags + @ cat _tags.compiler >> _tags + + + diff --git a/Makefile.generic b/Makefile.generic new file mode 100644 index 0000000..5da718d --- /dev/null +++ b/Makefile.generic @@ -0,0 +1,118 @@ +# -*- Makefile -*- +BTARGET = $(TARGET).byte +JTARGET = $(TARGET).js +OTARGET = $(TARGET).native +BLTARGET = $(TARGET).cma +BNTARGET = $(TARGET).cmxa +STARGET = $(shell if `which ocamlopt`; then \ + echo $(OTARGET); \ + else echo $(BTARGET); fi) + +PREFIX ?= /usr/local + +TESTDIR = tests + +######################### +## Tools configuration ## +######################### + +# Menhir can be told to produce a parser that explains what +# it is doing. +ifeq ($(DEBUGPARSING), yes) + MENHIROPT=-yaccflag --explain -yaccflag --trace +else + MENHIROPT=-yaccflag --explain +endif + +# In Emacs, use classic display to enable error jumping. +TERM = $(shell echo $$TERM) +ifeq ($(TERM), dumb) + OCAMLBUILD = $(OCAMLBUILDCMD) -use-ocamlfind -cflag "-dtypes" -tag debug -classic-display -no-hygiene $(MENHIROPT) +else + OCAMLBUILD = $(OCAMLBUILDCMD) -use-ocamlfind -no-hygiene $(MENHIROPT) -lflags -I,`pwd`/lib +endif + +ifeq ($(PROFILE), 1) + OCAMLBUILD += -tag profile +endif + + +OCAMLDOC = ocamldoc +HEADACHE = headache + +######### +# Rules # +######### + +.PHONY: configure all-generic byte opt doc clean dist install uninstall headers clear + +all-generic: configure clear $(STARGET) $(TARGET) + +$(TARGET): + ln -s $(STARGET) $(TARGET) + +clear: + @ rm -f $(STARGET) + +opt: $(OTARGET) + +byte: $(BTARGET) + +%: + @ $(OCAMLBUILD) src/$@ + +$(JTARGET): + @ $(OCAMLBUILD) -use-ocamlfind -tag "use-nums" -tag "package(js_of_ocaml)" src/$(BTARGET) + js_of_ocaml $(BTARGET) + +byte-debug: + $(OCAMLBUILD) -tag debug src/$(BTARGET) + +ifeq ($(strip $(PREFIX)),) +install uninstall: + @echo "Cannot (un)install $(EXECUTABLE): the PREFIX variable is undefined." && false +else +install: $(EXECUTABLE) + mkdir -p $(PREFIX)/bin/ + install $(STARGET) $(PREFIX)/bin/$(TARGET) +uninstall: + /bin/rm -f $(PREFIX)/bin/$(TARGET) +endif + +####################### +# Administrative part # +####################### + +headers: + for i in src/*.ml src/*.mli src/*.mly; do \ + $(HEADACHE) -h admin/header -c admin/headache.cfg $$i; \ + done + +clean: + @ $(OCAMLBUILD) -clean + make -C cparser clean + make -C $(TESTDIR) clean + find -name '*~' -exec rm '{}' \; + rm -fr config.log config.status *~ $(TARGET) $(PACKAGE) $(PACKAGE).tar.gz + +doc: byte + $(OCAMLBUILD) $(TARGET).docdir/index.html + mkdir -p doc/html + rm -f $(TARGET).docdir/style.css 2> /dev/null + mv $(TARGET).docdir/* doc/html + rm $(TARGET).docdir + +dist: + rm -fr $(PACKAGE) + mkdir $(PACKAGE) + for i in `cat distributed_files` doc/html/*.html; do \ + if test -f $$i; then \ + cp -fr --parents $$i $(PACKAGE); \ + else \ + mkdir -p $$i; \ + fi; \ + done + tar cvfz $(PACKAGE).tar.gz $(PACKAGE) + +check: all + $(MAKE) -C $(TESTDIR) check diff --git a/Makefile.in b/Makefile.in new file mode 100644 index 0000000..a1f3265 --- /dev/null +++ b/Makefile.in @@ -0,0 +1,15 @@ +include Makefile.variables +include Makefile.local +include Makefile.generic +include Makefile.config + +.PHONY: web + +ifeq ($(HAVE_OCLOSURE), yes) +web: webconfig + @ echo 'module Int = IntByInt64' > src/common/intValueConfig.ml + @ $(OCAMLBUILD) src/accweb.byte + @ js_of_ocaml accweb.byte + @ oclosure_req accweb.js + @ mv *.js web +endif \ No newline at end of file diff --git a/Makefile.local b/Makefile.local new file mode 100644 index 0000000..9085b18 --- /dev/null +++ b/Makefile.local @@ -0,0 +1,12 @@ +########################### +## Package configuration ## +########################### +.PHONY: all + +all: all-generic + +VERSION = 0.2 +TARGET = acc +TARGETEXT = acc +PACKAGE = acc-$(VERSION) + diff --git a/Makefile.variables.in b/Makefile.variables.in new file mode 100644 index 0000000..5955aa0 --- /dev/null +++ b/Makefile.variables.in @@ -0,0 +1,9 @@ +# -*- Makefile -*- +# +# Local configuration file. +# + +JS_OF_OCAML = @JS_OF_OCAML@ +OCAMLBUILDCMD = @OCAMLBUILD@ +HAVE_OCLOSURE = @HAVE_OCLOSURE@ +PREFIX = @prefix@ \ No newline at end of file diff --git a/README b/README new file mode 100644 index 0000000..8432d5d --- /dev/null +++ b/README @@ -0,0 +1,106 @@ + Description +------------- + + This is an experimental annotating C compiler that was built upon + the CIL parser[1], Xavier Leroy's translation from C to Clight, and + an existing back-end compiler for a register transfer language to a + subset of the MIPS assembly language[2]. + + We wrote 3 compiler passes: one from Clight to Cminor, another from + Cminor to an abstract register transfer language (RTLabs), and a + last one from RTLabs to an RTL that uses MIPS instructions. We + extended interpreters for the intermediate languages to output a + list of labels which denote key control points of the program that + have been crossed during the interpretation. These labels are the + places where the code can be instrumented to obtain a precise cost + annotation. Thus, in that experiment, the annotation function is the + composition of a labelling function followed by an instrumentation + function. + + The architecture of the compiler is described in full details in the + documentation of this development, which can be found in this source + tree at doc/html/index.html. + +[1] http://cil-parser.sourceforge.net/ +[2] http://www.enseignement.polytechnique.fr/informatique/INF564/petit.tar.gz + + Licence +--------- + + This piece of code must not be distributed. It is addressed to the + CerCo partners only. + + Requirements +-------------- + + - ocaml (>= 3.12) + - menhir (>= 20090505) + - CIL (included in the distribution) + - GNU Make (>= 3.8) + - gcc + + Compilation +------------- + + You can compile this compiler using the following command: + + % make + + (assuming that you are located at the root of the source tree) + + Installation +-------------- + + To install the compiler in your favorite system hierarchy, use: + + % PREFIX=your-directory make install + + The executable "acc" will be installed in the subdirectory "bin/" of + "your-directory". If PREFIX is not provided, the default directory used will + be "/usr/local/bin/". + + Usage +------- + +Usage: acc.native [options] file... + -s Choose the source language between: + Clight, Cminor + [default is C] + -l Choose the target language between: + Clight, Cminor, RTLabs, RTL, ERTL, LTL, LIN, ASM + [default is ASM] + -a Add cost annotations on the source code. + -i Interpret the compiled code. + -d Debugging mode. + -dev Playground for developers. + -help Display this list of options + --help Display this list of options + + Test-suite +------------ + + You can optionnally check that compilation went well by confronting + the freshly built compiler to our test-suite. At the root of the + source tree, use: + + % make check + + mcu8051ide +------------ + + The object code can be simulated using the mcu8051ide[3] emulator. The code + makes use of an external memory and that the usage of such memory is not the + default option in mcu8051ide. In order to enable this option, click on the + 'Project' menu, and then on 'Edit project'. There is a box to enable 'External + RAM (XDATA)' and a scrolling bar to specify its size (we suggest to use the + maximum possible). Also, since the produced code might be too big for standard + memory, it is recommended to enable 'External ROM/FLASH (XCODE)' to its + maximum size. + +[3] http://mcu8051ide.sourceforge.net/ + + Known bugs +------------ + + - shift operations between [int] and [unsigned int] + - accessing an array initialized by a string diff --git a/_tags.common b/_tags.common new file mode 100644 index 0000000..871dca0 --- /dev/null +++ b/_tags.common @@ -0,0 +1,17 @@ +: pkg_menhirLib, use_str, use_cparser +: use_unix, pkg_menhirLib, use_str, use_cparser + +: include +: include +: include +: include +: include +: include +: include +: include +: include +: include +: include +: include + +<*>: use_unix, use_menhir, use_cparser diff --git a/_tags.compiler b/_tags.compiler new file mode 100644 index 0000000..85f5c77 --- /dev/null +++ b/_tags.compiler @@ -0,0 +1,2 @@ +: use_nums + diff --git a/_tags.js_of_ocaml b/_tags.js_of_ocaml new file mode 100644 index 0000000..17b59c7 --- /dev/null +++ b/_tags.js_of_ocaml @@ -0,0 +1,4 @@ + + : package(js_of_ocaml.syntax), package(js_of_ocaml), syntax(camlp4o), package(oclosure) + : package(js_of_ocaml.syntax), package(js_of_ocaml), syntax(camlp4o), package(oclosure) +<*>: package(js_of_ocaml.syntax), package(js_of_ocaml), syntax(camlp4o), package(oclosure) diff --git a/acc.odocl b/acc.odocl new file mode 100644 index 0000000..5f661a0 --- /dev/null +++ b/acc.odocl @@ -0,0 +1,84 @@ +Acc +Options +AnnotationOptions +Languages +Checker +OptionsParsing +Position +ASMCompute_costs +ASMInterpret +ASM +ASMPrinter +MIPSInterpret +MIPS +MIPSOps +PrintOps +ClightAnnotator +ClightInterpret +ClightLabelling +Clight +ClightParser +ClightPrinter +ClightToCminor +CminorAnnotator +CminorInterpret +CminorLabelling +Cminor +CminorPrinter +CminorToRTLabs +AST +Atom +AtomSig +CostLabel +Label +Memory +Primitive +PrintPrimitive +Register +Value +Build +ERTLInterpret +ERTL +ERTLPrinter +ERTLToLTLI +ERTLToLTL +Liveness +Uses +Zero +LINInterpret +LIN +LINPrinter +LINToASM +Branch +LTLInterpret +LTL +LTLPrinter +LTLToLINI +LTLToLIN +RTLabsInterpret +RTLabs +RTLabsPrinter +RTLabsToRTL +RTLInterpret +RTL +RTLPrinter +RTLToERTLI +RTLToERTL +Coloring +Error +Fix +Integer +Interference +Misc +MiscPottier +MyMap +PrintCFG +Print +PrintPottier +PrioritySet +SetMap +Spill +StringSig +StringTools +SyntacticAnalysis +UnionFind diff --git a/admin/myocamldoc b/admin/myocamldoc new file mode 100755 index 0000000..08858f4 --- /dev/null +++ b/admin/myocamldoc @@ -0,0 +1,50 @@ +#!/usr/bin/env ocaml + +(* This script is a wrapper for ocamldoc. + + This is a simple workaround for the defaults ocamldoc rules of + ocamlbuild. *) + +(* We assume that the command line arguments are given in the + following order: + + ocamldoc [options] FILE.(ml|mli) + + where FILE is either an implementation or an interface. + + This script rewrites this command line into something of + the shape: + + ocamldoc [options] -intf FILE.mli -impl FILE.ml + + provided that FILE.mli and FILE.ml exist (otherwise, one of these + two options is dropped out). + +*) + +open List + +let nb = Array.length Sys.argv +let args = List.tl (Array.to_list Sys.argv) +let file = Filename.chop_extension (Sys.argv.(nb - 1)) +let file_is = Filename.check_suffix Sys.argv.(nb - 1) +let impl = file ^ ".ml" +let opt what f = if Sys.file_exists f then what ^ " " ^ f else "" + +let cmd = + match args with + | [] -> "ocamlfind ocamldoc" + | _ -> + if file_is ".ml" || file_is ".mli" then + let options = rev (tl (rev args)) in + Printf.sprintf "ocamlfind ocamldoc %s %s %s" + (opt "-impl" (file ^ ".ml")) + (opt "-intf" (file ^ ".mli")) + (String.concat " " options) + else + Printf.sprintf "ocamlfind ocamldoc %s" + (String.concat " " args) + +let _ = + exit (Sys.command cmd) + diff --git a/configure b/configure new file mode 100755 index 0000000..2dda61a --- /dev/null +++ b/configure @@ -0,0 +1,4098 @@ +#! /bin/sh +# Guess values for system-dependent variables and create Makefiles. +# Generated by GNU Autoconf 2.69. +# +# +# Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc. +# +# +# This configure script is free software; the Free Software Foundation +# gives unlimited permission to copy, distribute and modify it. +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +# Use a proper internal environment variable to ensure we don't fall + # into an infinite loop, continuously re-executing ourselves. + if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then + _as_can_reexec=no; export _as_can_reexec; + # We cannot yet assume a decent shell, so we have to provide a +# neutralization value for shells without unset; and this also +# works around shells that cannot unset nonexistent variables. +# Preserve -v and -x to the replacement shell. +BASH_ENV=/dev/null +ENV=/dev/null +(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV +case $- in # (((( + *v*x* | *x*v* ) as_opts=-vx ;; + *v* ) as_opts=-v ;; + *x* ) as_opts=-x ;; + * ) as_opts= ;; +esac +exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} +# Admittedly, this is quite paranoid, since all the known shells bail +# out after a failed `exec'. +$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 +as_fn_exit 255 + fi + # We don't want this to propagate to other subprocesses. + { _as_can_reexec=; unset _as_can_reexec;} +if test "x$CONFIG_SHELL" = x; then + as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which + # is contrary to our usage. Disable this feature. + alias -g '\${1+\"\$@\"}'='\"\$@\"' + setopt NO_GLOB_SUBST +else + case \`(set -o) 2>/dev/null\` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi +" + as_required="as_fn_return () { (exit \$1); } +as_fn_success () { as_fn_return 0; } +as_fn_failure () { as_fn_return 1; } +as_fn_ret_success () { return 0; } +as_fn_ret_failure () { return 1; } + +exitcode=0 +as_fn_success || { exitcode=1; echo as_fn_success failed.; } +as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } +as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } +as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } +if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : + +else + exitcode=1; echo positional parameters were not saved. +fi +test x\$exitcode = x0 || exit 1 +test -x / || exit 1" + as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO + as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO + eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && + test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1" + if (eval "$as_required") 2>/dev/null; then : + as_have_required=yes +else + as_have_required=no +fi + if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : + +else + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +as_found=false +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + as_found=: + case $as_dir in #( + /*) + for as_base in sh bash ksh sh5; do + # Try only shells that exist, to save several forks. + as_shell=$as_dir/$as_base + if { test -f "$as_shell" || test -f "$as_shell.exe"; } && + { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : + CONFIG_SHELL=$as_shell as_have_required=yes + if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : + break 2 +fi +fi + done;; + esac + as_found=false +done +$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && + { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : + CONFIG_SHELL=$SHELL as_have_required=yes +fi; } +IFS=$as_save_IFS + + + if test "x$CONFIG_SHELL" != x; then : + export CONFIG_SHELL + # We cannot yet assume a decent shell, so we have to provide a +# neutralization value for shells without unset; and this also +# works around shells that cannot unset nonexistent variables. +# Preserve -v and -x to the replacement shell. +BASH_ENV=/dev/null +ENV=/dev/null +(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV +case $- in # (((( + *v*x* | *x*v* ) as_opts=-vx ;; + *v* ) as_opts=-v ;; + *x* ) as_opts=-x ;; + * ) as_opts= ;; +esac +exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} +# Admittedly, this is quite paranoid, since all the known shells bail +# out after a failed `exec'. +$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 +exit 255 +fi + + if test x$as_have_required = xno; then : + $as_echo "$0: This script requires a shell more modern than all" + $as_echo "$0: the shells that I found on your system." + if test x${ZSH_VERSION+set} = xset ; then + $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" + $as_echo "$0: be upgraded to zsh 4.3.4 or later." + else + $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, +$0: including any error possibly output before this +$0: message. Then install a modern shell, or manually run +$0: the script under such a shell if you do have one." + fi + exit 1 +fi +fi +fi +SHELL=${CONFIG_SHELL-/bin/sh} +export SHELL +# Unset more variables known to interfere with behavior of common tools. +CLICOLOR_FORCE= GREP_OPTIONS= +unset CLICOLOR_FORCE GREP_OPTIONS + +## --------------------- ## +## M4sh Shell Functions. ## +## --------------------- ## +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + + + as_lineno_1=$LINENO as_lineno_1a=$LINENO + as_lineno_2=$LINENO as_lineno_2a=$LINENO + eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && + test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { + # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) + sed -n ' + p + /[$]LINENO/= + ' <$as_myself | + sed ' + s/[$]LINENO.*/&-/ + t lineno + b + :lineno + N + :loop + s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ + t loop + s/-\n.*// + ' >$as_me.lineno && + chmod +x "$as_me.lineno" || + { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } + + # If we had to re-execute with $CONFIG_SHELL, we're ensured to have + # already done that, so ensure we don't try to do so again and fall + # in an infinite loop. This has already happened in practice. + _as_can_reexec=no; export _as_can_reexec + # Don't try to exec as it changes $[0], causing all sort of problems + # (the dirname of $[0] is not the place where we might find the + # original and so on. Autoconf is especially sensitive to this). + . "./$as_me.lineno" + # Exit status is that of the last command. + exit +} + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +test -n "$DJDIR" || exec 7<&0 &1 + +# Name of the host. +# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, +# so uname gets run too. +ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` + +# +# Initializations. +# +ac_default_prefix=/usr/local +ac_clean_files= +ac_config_libobj_dir=. +LIBOBJS= +cross_compiling=no +subdirs= +MFLAGS= +MAKEFLAGS= + +# Identity of this package. +PACKAGE_NAME= +PACKAGE_TARNAME= +PACKAGE_VERSION= +PACKAGE_STRING= +PACKAGE_BUGREPORT= +PACKAGE_URL= + +ac_unique_file="configure.ac" +ac_subst_vars='LTLIBOBJS +LIBOBJS +HAVE_OCLOSURE +JS_OF_OCAML +OCAMLBUILD +target_alias +host_alias +build_alias +LIBS +ECHO_T +ECHO_N +ECHO_C +DEFS +mandir +localedir +libdir +psdir +pdfdir +dvidir +htmldir +infodir +docdir +oldincludedir +includedir +localstatedir +sharedstatedir +sysconfdir +datadir +datarootdir +libexecdir +sbindir +bindir +program_transform_name +prefix +exec_prefix +PACKAGE_URL +PACKAGE_BUGREPORT +PACKAGE_STRING +PACKAGE_VERSION +PACKAGE_TARNAME +PACKAGE_NAME +PATH_SEPARATOR +SHELL' +ac_subst_files='' +ac_user_opts=' +enable_option_checking +with_webapp +' + ac_precious_vars='build_alias +host_alias +target_alias' + + +# Initialize some variables set by options. +ac_init_help= +ac_init_version=false +ac_unrecognized_opts= +ac_unrecognized_sep= +# The variables have the same names as the options, with +# dashes changed to underlines. +cache_file=/dev/null +exec_prefix=NONE +no_create= +no_recursion= +prefix=NONE +program_prefix=NONE +program_suffix=NONE +program_transform_name=s,x,x, +silent= +site= +srcdir= +verbose= +x_includes=NONE +x_libraries=NONE + +# Installation directory options. +# These are left unexpanded so users can "make install exec_prefix=/foo" +# and all the variables that are supposed to be based on exec_prefix +# by default will actually change. +# Use braces instead of parens because sh, perl, etc. also accept them. +# (The list follows the same order as the GNU Coding Standards.) +bindir='${exec_prefix}/bin' +sbindir='${exec_prefix}/sbin' +libexecdir='${exec_prefix}/libexec' +datarootdir='${prefix}/share' +datadir='${datarootdir}' +sysconfdir='${prefix}/etc' +sharedstatedir='${prefix}/com' +localstatedir='${prefix}/var' +includedir='${prefix}/include' +oldincludedir='/usr/include' +docdir='${datarootdir}/doc/${PACKAGE}' +infodir='${datarootdir}/info' +htmldir='${docdir}' +dvidir='${docdir}' +pdfdir='${docdir}' +psdir='${docdir}' +libdir='${exec_prefix}/lib' +localedir='${datarootdir}/locale' +mandir='${datarootdir}/man' + +ac_prev= +ac_dashdash= +for ac_option +do + # If the previous option needs an argument, assign it. + if test -n "$ac_prev"; then + eval $ac_prev=\$ac_option + ac_prev= + continue + fi + + case $ac_option in + *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; + *=) ac_optarg= ;; + *) ac_optarg=yes ;; + esac + + # Accept the important Cygnus configure options, so we can diagnose typos. + + case $ac_dashdash$ac_option in + --) + ac_dashdash=yes ;; + + -bindir | --bindir | --bindi | --bind | --bin | --bi) + ac_prev=bindir ;; + -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) + bindir=$ac_optarg ;; + + -build | --build | --buil | --bui | --bu) + ac_prev=build_alias ;; + -build=* | --build=* | --buil=* | --bui=* | --bu=*) + build_alias=$ac_optarg ;; + + -cache-file | --cache-file | --cache-fil | --cache-fi \ + | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) + ac_prev=cache_file ;; + -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ + | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) + cache_file=$ac_optarg ;; + + --config-cache | -C) + cache_file=config.cache ;; + + -datadir | --datadir | --datadi | --datad) + ac_prev=datadir ;; + -datadir=* | --datadir=* | --datadi=* | --datad=*) + datadir=$ac_optarg ;; + + -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ + | --dataroo | --dataro | --datar) + ac_prev=datarootdir ;; + -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ + | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) + datarootdir=$ac_optarg ;; + + -disable-* | --disable-*) + ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid feature name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=no ;; + + -docdir | --docdir | --docdi | --doc | --do) + ac_prev=docdir ;; + -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) + docdir=$ac_optarg ;; + + -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) + ac_prev=dvidir ;; + -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) + dvidir=$ac_optarg ;; + + -enable-* | --enable-*) + ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid feature name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=\$ac_optarg ;; + + -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ + | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ + | --exec | --exe | --ex) + ac_prev=exec_prefix ;; + -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ + | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ + | --exec=* | --exe=* | --ex=*) + exec_prefix=$ac_optarg ;; + + -gas | --gas | --ga | --g) + # Obsolete; use --with-gas. + with_gas=yes ;; + + -help | --help | --hel | --he | -h) + ac_init_help=long ;; + -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) + ac_init_help=recursive ;; + -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) + ac_init_help=short ;; + + -host | --host | --hos | --ho) + ac_prev=host_alias ;; + -host=* | --host=* | --hos=* | --ho=*) + host_alias=$ac_optarg ;; + + -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) + ac_prev=htmldir ;; + -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ + | --ht=*) + htmldir=$ac_optarg ;; + + -includedir | --includedir | --includedi | --included | --include \ + | --includ | --inclu | --incl | --inc) + ac_prev=includedir ;; + -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ + | --includ=* | --inclu=* | --incl=* | --inc=*) + includedir=$ac_optarg ;; + + -infodir | --infodir | --infodi | --infod | --info | --inf) + ac_prev=infodir ;; + -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) + infodir=$ac_optarg ;; + + -libdir | --libdir | --libdi | --libd) + ac_prev=libdir ;; + -libdir=* | --libdir=* | --libdi=* | --libd=*) + libdir=$ac_optarg ;; + + -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ + | --libexe | --libex | --libe) + ac_prev=libexecdir ;; + -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ + | --libexe=* | --libex=* | --libe=*) + libexecdir=$ac_optarg ;; + + -localedir | --localedir | --localedi | --localed | --locale) + ac_prev=localedir ;; + -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) + localedir=$ac_optarg ;; + + -localstatedir | --localstatedir | --localstatedi | --localstated \ + | --localstate | --localstat | --localsta | --localst | --locals) + ac_prev=localstatedir ;; + -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ + | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) + localstatedir=$ac_optarg ;; + + -mandir | --mandir | --mandi | --mand | --man | --ma | --m) + ac_prev=mandir ;; + -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) + mandir=$ac_optarg ;; + + -nfp | --nfp | --nf) + # Obsolete; use --without-fp. + with_fp=no ;; + + -no-create | --no-create | --no-creat | --no-crea | --no-cre \ + | --no-cr | --no-c | -n) + no_create=yes ;; + + -no-recursion | --no-recursion | --no-recursio | --no-recursi \ + | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) + no_recursion=yes ;; + + -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ + | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ + | --oldin | --oldi | --old | --ol | --o) + ac_prev=oldincludedir ;; + -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ + | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ + | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) + oldincludedir=$ac_optarg ;; + + -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) + ac_prev=prefix ;; + -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) + prefix=$ac_optarg ;; + + -program-prefix | --program-prefix | --program-prefi | --program-pref \ + | --program-pre | --program-pr | --program-p) + ac_prev=program_prefix ;; + -program-prefix=* | --program-prefix=* | --program-prefi=* \ + | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) + program_prefix=$ac_optarg ;; + + -program-suffix | --program-suffix | --program-suffi | --program-suff \ + | --program-suf | --program-su | --program-s) + ac_prev=program_suffix ;; + -program-suffix=* | --program-suffix=* | --program-suffi=* \ + | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) + program_suffix=$ac_optarg ;; + + -program-transform-name | --program-transform-name \ + | --program-transform-nam | --program-transform-na \ + | --program-transform-n | --program-transform- \ + | --program-transform | --program-transfor \ + | --program-transfo | --program-transf \ + | --program-trans | --program-tran \ + | --progr-tra | --program-tr | --program-t) + ac_prev=program_transform_name ;; + -program-transform-name=* | --program-transform-name=* \ + | --program-transform-nam=* | --program-transform-na=* \ + | --program-transform-n=* | --program-transform-=* \ + | --program-transform=* | --program-transfor=* \ + | --program-transfo=* | --program-transf=* \ + | --program-trans=* | --program-tran=* \ + | --progr-tra=* | --program-tr=* | --program-t=*) + program_transform_name=$ac_optarg ;; + + -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) + ac_prev=pdfdir ;; + -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) + pdfdir=$ac_optarg ;; + + -psdir | --psdir | --psdi | --psd | --ps) + ac_prev=psdir ;; + -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) + psdir=$ac_optarg ;; + + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + silent=yes ;; + + -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) + ac_prev=sbindir ;; + -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ + | --sbi=* | --sb=*) + sbindir=$ac_optarg ;; + + -sharedstatedir | --sharedstatedir | --sharedstatedi \ + | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ + | --sharedst | --shareds | --shared | --share | --shar \ + | --sha | --sh) + ac_prev=sharedstatedir ;; + -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ + | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ + | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ + | --sha=* | --sh=*) + sharedstatedir=$ac_optarg ;; + + -site | --site | --sit) + ac_prev=site ;; + -site=* | --site=* | --sit=*) + site=$ac_optarg ;; + + -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) + ac_prev=srcdir ;; + -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) + srcdir=$ac_optarg ;; + + -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ + | --syscon | --sysco | --sysc | --sys | --sy) + ac_prev=sysconfdir ;; + -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ + | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) + sysconfdir=$ac_optarg ;; + + -target | --target | --targe | --targ | --tar | --ta | --t) + ac_prev=target_alias ;; + -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) + target_alias=$ac_optarg ;; + + -v | -verbose | --verbose | --verbos | --verbo | --verb) + verbose=yes ;; + + -version | --version | --versio | --versi | --vers | -V) + ac_init_version=: ;; + + -with-* | --with-*) + ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid package name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=\$ac_optarg ;; + + -without-* | --without-*) + ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid package name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=no ;; + + --x) + # Obsolete; use --with-x. + with_x=yes ;; + + -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ + | --x-incl | --x-inc | --x-in | --x-i) + ac_prev=x_includes ;; + -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ + | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) + x_includes=$ac_optarg ;; + + -x-libraries | --x-libraries | --x-librarie | --x-librari \ + | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) + ac_prev=x_libraries ;; + -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ + | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) + x_libraries=$ac_optarg ;; + + -*) as_fn_error $? "unrecognized option: \`$ac_option' +Try \`$0 --help' for more information" + ;; + + *=*) + ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` + # Reject names that are not valid shell variable names. + case $ac_envvar in #( + '' | [0-9]* | *[!_$as_cr_alnum]* ) + as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; + esac + eval $ac_envvar=\$ac_optarg + export $ac_envvar ;; + + *) + # FIXME: should be removed in autoconf 3.0. + $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 + expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && + $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 + : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" + ;; + + esac +done + +if test -n "$ac_prev"; then + ac_option=--`echo $ac_prev | sed 's/_/-/g'` + as_fn_error $? "missing argument to $ac_option" +fi + +if test -n "$ac_unrecognized_opts"; then + case $enable_option_checking in + no) ;; + fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; + *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; + esac +fi + +# Check all directory arguments for consistency. +for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ + datadir sysconfdir sharedstatedir localstatedir includedir \ + oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ + libdir localedir mandir +do + eval ac_val=\$$ac_var + # Remove trailing slashes. + case $ac_val in + */ ) + ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` + eval $ac_var=\$ac_val;; + esac + # Be sure to have absolute directory names. + case $ac_val in + [\\/$]* | ?:[\\/]* ) continue;; + NONE | '' ) case $ac_var in *prefix ) continue;; esac;; + esac + as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" +done + +# There might be people who depend on the old broken behavior: `$host' +# used to hold the argument of --host etc. +# FIXME: To remove some day. +build=$build_alias +host=$host_alias +target=$target_alias + +# FIXME: To remove some day. +if test "x$host_alias" != x; then + if test "x$build_alias" = x; then + cross_compiling=maybe + elif test "x$build_alias" != "x$host_alias"; then + cross_compiling=yes + fi +fi + +ac_tool_prefix= +test -n "$host_alias" && ac_tool_prefix=$host_alias- + +test "$silent" = yes && exec 6>/dev/null + + +ac_pwd=`pwd` && test -n "$ac_pwd" && +ac_ls_di=`ls -di .` && +ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || + as_fn_error $? "working directory cannot be determined" +test "X$ac_ls_di" = "X$ac_pwd_ls_di" || + as_fn_error $? "pwd does not report name of working directory" + + +# Find the source files, if location was not specified. +if test -z "$srcdir"; then + ac_srcdir_defaulted=yes + # Try the directory containing this script, then the parent directory. + ac_confdir=`$as_dirname -- "$as_myself" || +$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_myself" : 'X\(//\)[^/]' \| \ + X"$as_myself" : 'X\(//\)$' \| \ + X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_myself" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + srcdir=$ac_confdir + if test ! -r "$srcdir/$ac_unique_file"; then + srcdir=.. + fi +else + ac_srcdir_defaulted=no +fi +if test ! -r "$srcdir/$ac_unique_file"; then + test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." + as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" +fi +ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" +ac_abs_confdir=`( + cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" + pwd)` +# When building in place, set srcdir=. +if test "$ac_abs_confdir" = "$ac_pwd"; then + srcdir=. +fi +# Remove unnecessary trailing slashes from srcdir. +# Double slashes in file names in object file debugging info +# mess up M-x gdb in Emacs. +case $srcdir in +*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; +esac +for ac_var in $ac_precious_vars; do + eval ac_env_${ac_var}_set=\${${ac_var}+set} + eval ac_env_${ac_var}_value=\$${ac_var} + eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} + eval ac_cv_env_${ac_var}_value=\$${ac_var} +done + +# +# Report the --help message. +# +if test "$ac_init_help" = "long"; then + # Omit some internal or obsolete options to make the list less imposing. + # This message is too long to be a string in the A/UX 3.1 sh. + cat <<_ACEOF +\`configure' configures this package to adapt to many kinds of systems. + +Usage: $0 [OPTION]... [VAR=VALUE]... + +To assign environment variables (e.g., CC, CFLAGS...), specify them as +VAR=VALUE. See below for descriptions of some of the useful variables. + +Defaults for the options are specified in brackets. + +Configuration: + -h, --help display this help and exit + --help=short display options specific to this package + --help=recursive display the short help of all the included packages + -V, --version display version information and exit + -q, --quiet, --silent do not print \`checking ...' messages + --cache-file=FILE cache test results in FILE [disabled] + -C, --config-cache alias for \`--cache-file=config.cache' + -n, --no-create do not create output files + --srcdir=DIR find the sources in DIR [configure dir or \`..'] + +Installation directories: + --prefix=PREFIX install architecture-independent files in PREFIX + [$ac_default_prefix] + --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX + [PREFIX] + +By default, \`make install' will install all the files in +\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify +an installation prefix other than \`$ac_default_prefix' using \`--prefix', +for instance \`--prefix=\$HOME'. + +For better control, use the options below. + +Fine tuning of the installation directories: + --bindir=DIR user executables [EPREFIX/bin] + --sbindir=DIR system admin executables [EPREFIX/sbin] + --libexecdir=DIR program executables [EPREFIX/libexec] + --sysconfdir=DIR read-only single-machine data [PREFIX/etc] + --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] + --localstatedir=DIR modifiable single-machine data [PREFIX/var] + --libdir=DIR object code libraries [EPREFIX/lib] + --includedir=DIR C header files [PREFIX/include] + --oldincludedir=DIR C header files for non-gcc [/usr/include] + --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] + --datadir=DIR read-only architecture-independent data [DATAROOTDIR] + --infodir=DIR info documentation [DATAROOTDIR/info] + --localedir=DIR locale-dependent data [DATAROOTDIR/locale] + --mandir=DIR man documentation [DATAROOTDIR/man] + --docdir=DIR documentation root [DATAROOTDIR/doc/PACKAGE] + --htmldir=DIR html documentation [DOCDIR] + --dvidir=DIR dvi documentation [DOCDIR] + --pdfdir=DIR pdf documentation [DOCDIR] + --psdir=DIR ps documentation [DOCDIR] +_ACEOF + + cat <<\_ACEOF +_ACEOF +fi + +if test -n "$ac_init_help"; then + + cat <<\_ACEOF + +Optional Packages: + --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] + --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) + --with-webapp support the generation of a WEB application using + js_of_ocaml + +Report bugs to the package provider. +_ACEOF +ac_status=$? +fi + +if test "$ac_init_help" = "recursive"; then + # If there are subdirs, report their specific --help. + for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue + test -d "$ac_dir" || + { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || + continue + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + cd "$ac_dir" || { ac_status=$?; continue; } + # Check for guested configure. + if test -f "$ac_srcdir/configure.gnu"; then + echo && + $SHELL "$ac_srcdir/configure.gnu" --help=recursive + elif test -f "$ac_srcdir/configure"; then + echo && + $SHELL "$ac_srcdir/configure" --help=recursive + else + $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 + fi || ac_status=$? + cd "$ac_pwd" || { ac_status=$?; break; } + done +fi + +test -n "$ac_init_help" && exit $ac_status +if $ac_init_version; then + cat <<\_ACEOF +configure +generated by GNU Autoconf 2.69 + +Copyright (C) 2012 Free Software Foundation, Inc. +This configure script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it. +_ACEOF + exit +fi + +## ------------------------ ## +## Autoconf initialization. ## +## ------------------------ ## +cat >config.log <<_ACEOF +This file contains any messages produced by compilers while +running configure, to aid debugging if configure makes a mistake. + +It was created by $as_me, which was +generated by GNU Autoconf 2.69. Invocation command line was + + $ $0 $@ + +_ACEOF +exec 5>>config.log +{ +cat <<_ASUNAME +## --------- ## +## Platform. ## +## --------- ## + +hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` +uname -m = `(uname -m) 2>/dev/null || echo unknown` +uname -r = `(uname -r) 2>/dev/null || echo unknown` +uname -s = `(uname -s) 2>/dev/null || echo unknown` +uname -v = `(uname -v) 2>/dev/null || echo unknown` + +/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` +/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` + +/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` +/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` +/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` +/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` +/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` +/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` +/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` + +_ASUNAME + +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + $as_echo "PATH: $as_dir" + done +IFS=$as_save_IFS + +} >&5 + +cat >&5 <<_ACEOF + + +## ----------- ## +## Core tests. ## +## ----------- ## + +_ACEOF + + +# Keep a trace of the command line. +# Strip out --no-create and --no-recursion so they do not pile up. +# Strip out --silent because we don't want to record it for future runs. +# Also quote any args containing shell meta-characters. +# Make two passes to allow for proper duplicate-argument suppression. +ac_configure_args= +ac_configure_args0= +ac_configure_args1= +ac_must_keep_next=false +for ac_pass in 1 2 +do + for ac_arg + do + case $ac_arg in + -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + continue ;; + *\'*) + ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + case $ac_pass in + 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; + 2) + as_fn_append ac_configure_args1 " '$ac_arg'" + if test $ac_must_keep_next = true; then + ac_must_keep_next=false # Got value, back to normal. + else + case $ac_arg in + *=* | --config-cache | -C | -disable-* | --disable-* \ + | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ + | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ + | -with-* | --with-* | -without-* | --without-* | --x) + case "$ac_configure_args0 " in + "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; + esac + ;; + -* ) ac_must_keep_next=true ;; + esac + fi + as_fn_append ac_configure_args " '$ac_arg'" + ;; + esac + done +done +{ ac_configure_args0=; unset ac_configure_args0;} +{ ac_configure_args1=; unset ac_configure_args1;} + +# When interrupted or exit'd, cleanup temporary files, and complete +# config.log. We remove comments because anyway the quotes in there +# would cause problems or look ugly. +# WARNING: Use '\'' to represent an apostrophe within the trap. +# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. +trap 'exit_status=$? + # Save into config.log some information that might help in debugging. + { + echo + + $as_echo "## ---------------- ## +## Cache variables. ## +## ---------------- ##" + echo + # The following way of writing the cache mishandles newlines in values, +( + for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do + eval ac_val=\$$ac_var + case $ac_val in #( + *${as_nl}*) + case $ac_var in #( + *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + esac + case $ac_var in #( + _ | IFS | as_nl) ;; #( + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; + esac ;; + esac + done + (set) 2>&1 | + case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( + *${as_nl}ac_space=\ *) + sed -n \ + "s/'\''/'\''\\\\'\'''\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" + ;; #( + *) + sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" + ;; + esac | + sort +) + echo + + $as_echo "## ----------------- ## +## Output variables. ## +## ----------------- ##" + echo + for ac_var in $ac_subst_vars + do + eval ac_val=\$$ac_var + case $ac_val in + *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + esac + $as_echo "$ac_var='\''$ac_val'\''" + done | sort + echo + + if test -n "$ac_subst_files"; then + $as_echo "## ------------------- ## +## File substitutions. ## +## ------------------- ##" + echo + for ac_var in $ac_subst_files + do + eval ac_val=\$$ac_var + case $ac_val in + *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + esac + $as_echo "$ac_var='\''$ac_val'\''" + done | sort + echo + fi + + if test -s confdefs.h; then + $as_echo "## ----------- ## +## confdefs.h. ## +## ----------- ##" + echo + cat confdefs.h + echo + fi + test "$ac_signal" != 0 && + $as_echo "$as_me: caught signal $ac_signal" + $as_echo "$as_me: exit $exit_status" + } >&5 + rm -f core *.core core.conftest.* && + rm -f -r conftest* confdefs* conf$$* $ac_clean_files && + exit $exit_status +' 0 +for ac_signal in 1 2 13 15; do + trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal +done +ac_signal=0 + +# confdefs.h avoids OS command line length limits that DEFS can exceed. +rm -f -r conftest* confdefs.h + +$as_echo "/* confdefs.h */" > confdefs.h + +# Predefined preprocessor variables. + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_NAME "$PACKAGE_NAME" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_TARNAME "$PACKAGE_TARNAME" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_VERSION "$PACKAGE_VERSION" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_STRING "$PACKAGE_STRING" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_URL "$PACKAGE_URL" +_ACEOF + + +# Let the site file select an alternate cache file if it wants to. +# Prefer an explicitly selected file to automatically selected ones. +ac_site_file1=NONE +ac_site_file2=NONE +if test -n "$CONFIG_SITE"; then + # We do not want a PATH search for config.site. + case $CONFIG_SITE in #(( + -*) ac_site_file1=./$CONFIG_SITE;; + */*) ac_site_file1=$CONFIG_SITE;; + *) ac_site_file1=./$CONFIG_SITE;; + esac +elif test "x$prefix" != xNONE; then + ac_site_file1=$prefix/share/config.site + ac_site_file2=$prefix/etc/config.site +else + ac_site_file1=$ac_default_prefix/share/config.site + ac_site_file2=$ac_default_prefix/etc/config.site +fi +for ac_site_file in "$ac_site_file1" "$ac_site_file2" +do + test "x$ac_site_file" = xNONE && continue + if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 +$as_echo "$as_me: loading site script $ac_site_file" >&6;} + sed 's/^/| /' "$ac_site_file" >&5 + . "$ac_site_file" \ + || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "failed to load site script $ac_site_file +See \`config.log' for more details" "$LINENO" 5; } + fi +done + +if test -r "$cache_file"; then + # Some versions of bash will fail to source /dev/null (special files + # actually), so we avoid doing that. DJGPP emulates it as a regular file. + if test /dev/null != "$cache_file" && test -f "$cache_file"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 +$as_echo "$as_me: loading cache $cache_file" >&6;} + case $cache_file in + [\\/]* | ?:[\\/]* ) . "$cache_file";; + *) . "./$cache_file";; + esac + fi +else + { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 +$as_echo "$as_me: creating cache $cache_file" >&6;} + >$cache_file +fi + +# Check that the precious variables saved in the cache have kept the same +# value. +ac_cache_corrupted=false +for ac_var in $ac_precious_vars; do + eval ac_old_set=\$ac_cv_env_${ac_var}_set + eval ac_new_set=\$ac_env_${ac_var}_set + eval ac_old_val=\$ac_cv_env_${ac_var}_value + eval ac_new_val=\$ac_env_${ac_var}_value + case $ac_old_set,$ac_new_set in + set,) + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 +$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,set) + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 +$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,);; + *) + if test "x$ac_old_val" != "x$ac_new_val"; then + # differences in whitespace do not lead to failure. + ac_old_val_w=`echo x $ac_old_val` + ac_new_val_w=`echo x $ac_new_val` + if test "$ac_old_val_w" != "$ac_new_val_w"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 +$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} + ac_cache_corrupted=: + else + { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 +$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} + eval $ac_var=\$ac_old_val + fi + { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 +$as_echo "$as_me: former value: \`$ac_old_val'" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 +$as_echo "$as_me: current value: \`$ac_new_val'" >&2;} + fi;; + esac + # Pass precious variables to config.status. + if test "$ac_new_set" = set; then + case $ac_new_val in + *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; + *) ac_arg=$ac_var=$ac_new_val ;; + esac + case " $ac_configure_args " in + *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. + *) as_fn_append ac_configure_args " '$ac_arg'" ;; + esac + fi +done +if $ac_cache_corrupted; then + { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 +$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} + as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 +fi +## -------------------- ## +## Main body of script. ## +## -------------------- ## + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + + +for ac_prog in ocamlbuild +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_OCAMLBUILD+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$OCAMLBUILD"; then + ac_cv_prog_OCAMLBUILD="$OCAMLBUILD" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_OCAMLBUILD="$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +OCAMLBUILD=$ac_cv_prog_OCAMLBUILD +if test -n "$OCAMLBUILD"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OCAMLBUILD" >&5 +$as_echo "$OCAMLBUILD" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$OCAMLBUILD" && break +done + + + + +# Check whether --with-webapp was given. +if test "${with_webapp+set}" = set; then : + withval=$with_webapp; +else + with_webapp=check +fi + + +echo "let parser_lib = \"`pwd`/lib\"" > myocamlbuild_config.ml + +if test "x$with_webapp" != xno; then : + for ac_prog in js_of_ocaml +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if ${ac_cv_prog_JS_OF_OCAML+:} false; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$JS_OF_OCAML"; then + ac_cv_prog_JS_OF_OCAML="$JS_OF_OCAML" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + ac_cv_prog_JS_OF_OCAML="$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +JS_OF_OCAML=$ac_cv_prog_JS_OF_OCAML +if test -n "$JS_OF_OCAML"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $JS_OF_OCAML" >&5 +$as_echo "$JS_OF_OCAML" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$JS_OF_OCAML" && break +done + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for oclosure" >&5 +$as_echo_n "checking for oclosure... " >&6; } + if sh configure-oclosure.sh; then + HAVE_OCLOSURE=yes + + { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } + fi +fi + +ac_config_files="$ac_config_files Makefile.variables" + +cat >confcache <<\_ACEOF +# This file is a shell script that caches the results of configure +# tests run on this system so they can be shared between configure +# scripts and configure runs, see configure's option --config-cache. +# It is not useful on other systems. If it contains results you don't +# want to keep, you may remove or edit it. +# +# config.status only pays attention to the cache file if you give it +# the --recheck option to rerun configure. +# +# `ac_cv_env_foo' variables (set or unset) will be overridden when +# loading this file, other *unset* `ac_cv_foo' will be assigned the +# following values. + +_ACEOF + +# The following way of writing the cache mishandles newlines in values, +# but we know of no workaround that is simple, portable, and efficient. +# So, we kill variables containing newlines. +# Ultrix sh set writes to stderr and can't be redirected directly, +# and sets the high bit in the cache file unless we assign to the vars. +( + for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do + eval ac_val=\$$ac_var + case $ac_val in #( + *${as_nl}*) + case $ac_var in #( + *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + esac + case $ac_var in #( + _ | IFS | as_nl) ;; #( + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; + esac ;; + esac + done + + (set) 2>&1 | + case $as_nl`(ac_space=' '; set) 2>&1` in #( + *${as_nl}ac_space=\ *) + # `set' does not quote correctly, so add quotes: double-quote + # substitution turns \\\\ into \\, and sed turns \\ into \. + sed -n \ + "s/'/'\\\\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" + ;; #( + *) + # `set' quotes correctly as required by POSIX, so do not add quotes. + sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" + ;; + esac | + sort +) | + sed ' + /^ac_cv_env_/b end + t clear + :clear + s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ + t end + s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ + :end' >>confcache +if diff "$cache_file" confcache >/dev/null 2>&1; then :; else + if test -w "$cache_file"; then + if test "x$cache_file" != "x/dev/null"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 +$as_echo "$as_me: updating cache $cache_file" >&6;} + if test ! -f "$cache_file" || test -h "$cache_file"; then + cat confcache >"$cache_file" + else + case $cache_file in #( + */* | ?:*) + mv -f confcache "$cache_file"$$ && + mv -f "$cache_file"$$ "$cache_file" ;; #( + *) + mv -f confcache "$cache_file" ;; + esac + fi + fi + else + { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 +$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} + fi +fi +rm -f confcache + +test "x$prefix" = xNONE && prefix=$ac_default_prefix +# Let make expand exec_prefix. +test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' + +# Transform confdefs.h into DEFS. +# Protect against shell expansion while executing Makefile rules. +# Protect against Makefile macro expansion. +# +# If the first sed substitution is executed (which looks for macros that +# take arguments), then branch to the quote section. Otherwise, +# look for a macro that doesn't take arguments. +ac_script=' +:mline +/\\$/{ + N + s,\\\n,, + b mline +} +t clear +:clear +s/^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*([^)]*)\)[ ]*\(.*\)/-D\1=\2/g +t quote +s/^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)/-D\1=\2/g +t quote +b any +:quote +s/[ `~#$^&*(){}\\|;'\''"<>?]/\\&/g +s/\[/\\&/g +s/\]/\\&/g +s/\$/$$/g +H +:any +${ + g + s/^\n// + s/\n/ /g + p +} +' +DEFS=`sed -n "$ac_script" confdefs.h` + + +ac_libobjs= +ac_ltlibobjs= +U= +for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue + # 1. Remove the extension, and $U if already installed. + ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' + ac_i=`$as_echo "$ac_i" | sed "$ac_script"` + # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR + # will be set to the directory where LIBOBJS objects are built. + as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" + as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' +done +LIBOBJS=$ac_libobjs + +LTLIBOBJS=$ac_ltlibobjs + + + +: "${CONFIG_STATUS=./config.status}" +ac_write_fail=0 +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files $CONFIG_STATUS" +{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 +$as_echo "$as_me: creating $CONFIG_STATUS" >&6;} +as_write_fail=0 +cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 +#! $SHELL +# Generated by $as_me. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=\${CONFIG_SHELL-$SHELL} +export SHELL +_ASEOF +cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +_ASEOF +test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by $as_me, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +_ACEOF + +case $ac_config_files in *" +"*) set x $ac_config_files; shift; ac_config_files=$*;; +esac + + + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +# Files that config.status was made for. +config_files="$ac_config_files" + +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + +Configuration files: +$config_files + +Report bugs to the package provider." + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" +ac_cs_version="\\ +config.status +configured by $0, generated by GNU Autoconf 2.69, + with options \\"\$ac_cs_config\\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='$ac_pwd' +srcdir='$srcdir' +test -n "\$AWK" || AWK=awk +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h | --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +if \$ac_cs_recheck; then + set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion + shift + \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 + CONFIG_SHELL='$SHELL' + export CONFIG_SHELL + exec "\$@" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "Makefile.variables") CONFIG_FILES="$CONFIG_FILES Makefile.variables" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +_ACEOF + + +{ + echo "cat >conf$$subs.awk <<_ACEOF" && + echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && + echo "_ACEOF" +} >conf$$subs.sh || + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 +ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` +ac_delim='%!_!# ' +for ac_last_try in false false false false false :; do + . ./conf$$subs.sh || + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 + + ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` + if test $ac_delim_n = $ac_delim_num; then + break + elif $ac_last_try; then + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 + else + ac_delim="$ac_delim!$ac_delim _$ac_delim!! " + fi +done +rm -f conf$$subs.sh + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK && +_ACEOF +sed -n ' +h +s/^/S["/; s/!.*/"]=/ +p +g +s/^[^!]*!// +:repl +t repl +s/'"$ac_delim"'$// +t delim +:nl +h +s/\(.\{148\}\)..*/\1/ +t more1 +s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ +p +n +b repl +:more1 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t nl +:delim +h +s/\(.\{148\}\)..*/\1/ +t more2 +s/["\\]/\\&/g; s/^/"/; s/$/"/ +p +b +:more2 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t delim +' >$CONFIG_STATUS || ac_write_fail=1 +rm -f conf$$subs.awk +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +_ACAWK +cat >>"\$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +_ACEOF + +# VPATH may cause trouble with some makes, so we remove sole $(srcdir), +# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and +# trailing colons and then remove the whole line if VPATH becomes empty +# (actually we leave an empty line to preserve line numbers). +if test "x$srcdir" = x.; then + ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ +h +s/// +s/^/:/ +s/[ ]*$/:/ +s/:\$(srcdir):/:/g +s/:\${srcdir}:/:/g +s/:@srcdir@:/:/g +s/^:*// +s/:*$// +x +s/\(=[ ]*\).*/\1/ +G +s/\n// +s/^[^=]*=[ ]*$// +}' +fi + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +fi # test -n "$CONFIG_FILES" + + +eval set X " :F $CONFIG_FILES " +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 + ac_datarootdir_hack=' + s&@datadir@&$datadir&g + s&@docdir@&$docdir&g + s&@infodir@&$infodir&g + s&@localedir@&$localedir&g + s&@mandir@&$mandir&g + s&\\\${datarootdir}&$datarootdir&g' ;; +esac +_ACEOF + +# Neutralize VPATH when `$srcdir' = `.'. +# Shell code in configure.ac might set extrasub. +# FIXME: do we really want to maintain this feature? +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_sed_extra="$ac_vpsub +$extrasub +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + + + + esac + +done # for ac_tag + + +as_fn_exit 0 +_ACEOF +ac_clean_files=$ac_clean_files_save + +test $ac_write_fail = 0 || + as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 + + +# configure is writing to config.log, and then calls config.status. +# config.status does its own redirection, appending to config.log. +# Unfortunately, on DOS this fails, as config.log is still kept open +# by configure, so config.status won't be able to write to it; its +# output is simply discarded. So we exec the FD to /dev/null, +# effectively closing config.log, so it can be properly (re)opened and +# appended to by config.status. When coming back to configure, we +# need to make the FD available again. +if test "$no_create" != yes; then + ac_cs_success=: + ac_config_status_args= + test "$silent" = yes && + ac_config_status_args="$ac_config_status_args --quiet" + exec 5>/dev/null + $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false + exec 5>>config.log + # Use ||, not &&, to avoid exiting from the if with $? = 1, which + # would make configure fail if this is the last instruction. + $ac_cs_success || as_fn_exit 1 +fi +if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 +$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} +fi + +ac_config_files="$ac_config_files Makefile" + +cat >confcache <<\_ACEOF +# This file is a shell script that caches the results of configure +# tests run on this system so they can be shared between configure +# scripts and configure runs, see configure's option --config-cache. +# It is not useful on other systems. If it contains results you don't +# want to keep, you may remove or edit it. +# +# config.status only pays attention to the cache file if you give it +# the --recheck option to rerun configure. +# +# `ac_cv_env_foo' variables (set or unset) will be overridden when +# loading this file, other *unset* `ac_cv_foo' will be assigned the +# following values. + +_ACEOF + +# The following way of writing the cache mishandles newlines in values, +# but we know of no workaround that is simple, portable, and efficient. +# So, we kill variables containing newlines. +# Ultrix sh set writes to stderr and can't be redirected directly, +# and sets the high bit in the cache file unless we assign to the vars. +( + for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do + eval ac_val=\$$ac_var + case $ac_val in #( + *${as_nl}*) + case $ac_var in #( + *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + esac + case $ac_var in #( + _ | IFS | as_nl) ;; #( + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; + esac ;; + esac + done + + (set) 2>&1 | + case $as_nl`(ac_space=' '; set) 2>&1` in #( + *${as_nl}ac_space=\ *) + # `set' does not quote correctly, so add quotes: double-quote + # substitution turns \\\\ into \\, and sed turns \\ into \. + sed -n \ + "s/'/'\\\\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" + ;; #( + *) + # `set' quotes correctly as required by POSIX, so do not add quotes. + sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" + ;; + esac | + sort +) | + sed ' + /^ac_cv_env_/b end + t clear + :clear + s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ + t end + s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ + :end' >>confcache +if diff "$cache_file" confcache >/dev/null 2>&1; then :; else + if test -w "$cache_file"; then + if test "x$cache_file" != "x/dev/null"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 +$as_echo "$as_me: updating cache $cache_file" >&6;} + if test ! -f "$cache_file" || test -h "$cache_file"; then + cat confcache >"$cache_file" + else + case $cache_file in #( + */* | ?:*) + mv -f confcache "$cache_file"$$ && + mv -f "$cache_file"$$ "$cache_file" ;; #( + *) + mv -f confcache "$cache_file" ;; + esac + fi + fi + else + { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 +$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} + fi +fi +rm -f confcache + +test "x$prefix" = xNONE && prefix=$ac_default_prefix +# Let make expand exec_prefix. +test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' + +# Transform confdefs.h into DEFS. +# Protect against shell expansion while executing Makefile rules. +# Protect against Makefile macro expansion. +# +# If the first sed substitution is executed (which looks for macros that +# take arguments), then branch to the quote section. Otherwise, +# look for a macro that doesn't take arguments. +ac_script=' +:mline +/\\$/{ + N + s,\\\n,, + b mline +} +t clear +:clear +s/^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*([^)]*)\)[ ]*\(.*\)/-D\1=\2/g +t quote +s/^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)/-D\1=\2/g +t quote +b any +:quote +s/[ `~#$^&*(){}\\|;'\''"<>?]/\\&/g +s/\[/\\&/g +s/\]/\\&/g +s/\$/$$/g +H +:any +${ + g + s/^\n// + s/\n/ /g + p +} +' +DEFS=`sed -n "$ac_script" confdefs.h` + + +ac_libobjs= +ac_ltlibobjs= +U= +for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue + # 1. Remove the extension, and $U if already installed. + ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' + ac_i=`$as_echo "$ac_i" | sed "$ac_script"` + # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR + # will be set to the directory where LIBOBJS objects are built. + as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" + as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' +done +LIBOBJS=$ac_libobjs + +LTLIBOBJS=$ac_ltlibobjs + + + +: "${CONFIG_STATUS=./config.status}" +ac_write_fail=0 +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files $CONFIG_STATUS" +{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 +$as_echo "$as_me: creating $CONFIG_STATUS" >&6;} +as_write_fail=0 +cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 +#! $SHELL +# Generated by $as_me. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=\${CONFIG_SHELL-$SHELL} +export SHELL +_ASEOF +cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +_ASEOF +test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by $as_me, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +_ACEOF + +case $ac_config_files in *" +"*) set x $ac_config_files; shift; ac_config_files=$*;; +esac + + + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +# Files that config.status was made for. +config_files="$ac_config_files" + +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + +Configuration files: +$config_files + +Report bugs to the package provider." + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" +ac_cs_version="\\ +config.status +configured by $0, generated by GNU Autoconf 2.69, + with options \\"\$ac_cs_config\\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='$ac_pwd' +srcdir='$srcdir' +test -n "\$AWK" || AWK=awk +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h | --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +if \$ac_cs_recheck; then + set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion + shift + \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 + CONFIG_SHELL='$SHELL' + export CONFIG_SHELL + exec "\$@" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "Makefile.variables") CONFIG_FILES="$CONFIG_FILES Makefile.variables" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +_ACEOF + + +{ + echo "cat >conf$$subs.awk <<_ACEOF" && + echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && + echo "_ACEOF" +} >conf$$subs.sh || + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 +ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` +ac_delim='%!_!# ' +for ac_last_try in false false false false false :; do + . ./conf$$subs.sh || + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 + + ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` + if test $ac_delim_n = $ac_delim_num; then + break + elif $ac_last_try; then + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 + else + ac_delim="$ac_delim!$ac_delim _$ac_delim!! " + fi +done +rm -f conf$$subs.sh + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK && +_ACEOF +sed -n ' +h +s/^/S["/; s/!.*/"]=/ +p +g +s/^[^!]*!// +:repl +t repl +s/'"$ac_delim"'$// +t delim +:nl +h +s/\(.\{148\}\)..*/\1/ +t more1 +s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ +p +n +b repl +:more1 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t nl +:delim +h +s/\(.\{148\}\)..*/\1/ +t more2 +s/["\\]/\\&/g; s/^/"/; s/$/"/ +p +b +:more2 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t delim +' >$CONFIG_STATUS || ac_write_fail=1 +rm -f conf$$subs.awk +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +_ACAWK +cat >>"\$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +_ACEOF + +# VPATH may cause trouble with some makes, so we remove sole $(srcdir), +# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and +# trailing colons and then remove the whole line if VPATH becomes empty +# (actually we leave an empty line to preserve line numbers). +if test "x$srcdir" = x.; then + ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ +h +s/// +s/^/:/ +s/[ ]*$/:/ +s/:\$(srcdir):/:/g +s/:\${srcdir}:/:/g +s/:@srcdir@:/:/g +s/^:*// +s/:*$// +x +s/\(=[ ]*\).*/\1/ +G +s/\n// +s/^[^=]*=[ ]*$// +}' +fi + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +fi # test -n "$CONFIG_FILES" + + +eval set X " :F $CONFIG_FILES " +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 + ac_datarootdir_hack=' + s&@datadir@&$datadir&g + s&@docdir@&$docdir&g + s&@infodir@&$infodir&g + s&@localedir@&$localedir&g + s&@mandir@&$mandir&g + s&\\\${datarootdir}&$datarootdir&g' ;; +esac +_ACEOF + +# Neutralize VPATH when `$srcdir' = `.'. +# Shell code in configure.ac might set extrasub. +# FIXME: do we really want to maintain this feature? +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_sed_extra="$ac_vpsub +$extrasub +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + + + + esac + +done # for ac_tag + + +as_fn_exit 0 +_ACEOF +ac_clean_files=$ac_clean_files_save + +test $ac_write_fail = 0 || + as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 + + +# configure is writing to config.log, and then calls config.status. +# config.status does its own redirection, appending to config.log. +# Unfortunately, on DOS this fails, as config.log is still kept open +# by configure, so config.status won't be able to write to it; its +# output is simply discarded. So we exec the FD to /dev/null, +# effectively closing config.log, so it can be properly (re)opened and +# appended to by config.status. When coming back to configure, we +# need to make the FD available again. +if test "$no_create" != yes; then + ac_cs_success=: + ac_config_status_args= + test "$silent" = yes && + ac_config_status_args="$ac_config_status_args --quiet" + exec 5>/dev/null + $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false + exec 5>>config.log + # Use ||, not &&, to avoid exiting from the if with $? = 1, which + # would make configure fail if this is the last instruction. + $ac_cs_success || as_fn_exit 1 +fi +if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 +$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} +fi + + diff --git a/configure-oclosure.sh b/configure-oclosure.sh new file mode 100755 index 0000000..88ff844 --- /dev/null +++ b/configure-oclosure.sh @@ -0,0 +1,8 @@ +#!/usr/bin/env sh + +rm -f _tags +cat _tags.compiler > _tags +cat _tags.js_of_ocaml >> _tags +ocamlbuild -use-ocamlfind -no-hygiene src/utilities/checkOClosure.byte -quiet || true +ocamlbuild -clean -quiet +rm -f _tags \ No newline at end of file diff --git a/configure.ac b/configure.ac new file mode 100644 index 0000000..032b373 --- /dev/null +++ b/configure.ac @@ -0,0 +1,28 @@ +# +# Autoconf +# +AC_INIT(configure.ac) + +AC_CHECK_PROGS([OCAMLBUILD],[ocamlbuild]) +AC_SUBST(OCAMLBUILD) + +AC_ARG_WITH([webapp], + [AS_HELP_STRING([--with-webapp], + [support the generation of a WEB application using js_of_ocaml])], + [], + [with_webapp=check]) + +echo "let parser_lib = \"`pwd`/lib\"" > myocamlbuild_config.ml + +AS_IF([test "x$with_webapp" != xno], + [AC_CHECK_PROGS([JS_OF_OCAML],[js_of_ocaml]) + AC_SUBST(JS_OF_OCAML) + AC_MSG_CHECKING([for oclosure]) + if sh configure-oclosure.sh; then + AC_SUBST(HAVE_OCLOSURE, yes) + AC_MSG_RESULT(yes) + fi]) + +AC_OUTPUT(Makefile.variables) +AC_OUTPUT(Makefile) + diff --git a/cparser/.depend b/cparser/.depend new file mode 100644 index 0000000..9f12718 --- /dev/null +++ b/cparser/.depend @@ -0,0 +1,81 @@ +AddCasts.cmi: C.cmi +Bitfields.cmi: C.cmi +Builtins.cmi: Env.cmi C.cmi +Ceval.cmi: Env.cmi C.cmi +Cleanup.cmi: C.cmi +C.cmi: +Cprint.cmi: C.cmi +Cutil.cmi: Env.cmi C.cmi +Elab.cmi: C.cmi +Env.cmi: C.cmi +Errors.cmi: +GCC.cmi: Builtins.cmi +Lexer.cmi: Parser.cmi +Machine.cmi: +Parse_aux.cmi: +Parse.cmi: C.cmi +Parser.cmi: Cabs.cmo +Rename.cmi: C.cmi +SimplExpr.cmi: C.cmi +StructAssign.cmi: C.cmi +StructByValue.cmi: C.cmi +Transform.cmi: Env.cmi C.cmi +Unblock.cmi: C.cmi +AddCasts.cmo: Transform.cmi Cutil.cmi C.cmi AddCasts.cmi +AddCasts.cmx: Transform.cmx Cutil.cmx C.cmi AddCasts.cmi +Bitfields.cmo: Transform.cmi Machine.cmi Cutil.cmi C.cmi Bitfields.cmi +Bitfields.cmx: Transform.cmx Machine.cmx Cutil.cmx C.cmi Bitfields.cmi +Builtins.cmo: Env.cmi Cutil.cmi C.cmi Builtins.cmi +Builtins.cmx: Env.cmx Cutil.cmx C.cmi Builtins.cmi +Cabshelper.cmo: Cabs.cmo +Cabshelper.cmx: Cabs.cmx +Cabs.cmo: +Cabs.cmx: +Ceval.cmo: Machine.cmi Cutil.cmi C.cmi Ceval.cmi +Ceval.cmx: Machine.cmx Cutil.cmx C.cmi Ceval.cmi +Cleanup.cmo: Cutil.cmi C.cmi Cleanup.cmi +Cleanup.cmx: Cutil.cmx C.cmi Cleanup.cmi +Cprint.cmo: C.cmi Cprint.cmi +Cprint.cmx: C.cmi Cprint.cmi +Cutil.cmo: Machine.cmi Errors.cmi Env.cmi Cprint.cmi C.cmi Cutil.cmi +Cutil.cmx: Machine.cmx Errors.cmx Env.cmx Cprint.cmx C.cmi Cutil.cmi +Elab.cmo: Parser.cmi Machine.cmi Lexer.cmi Errors.cmi Env.cmi Cutil.cmi \ + Cprint.cmi Cleanup.cmi Ceval.cmi Cabshelper.cmo Cabs.cmo C.cmi \ + Builtins.cmi Elab.cmi +Elab.cmx: Parser.cmx Machine.cmx Lexer.cmx Errors.cmx Env.cmx Cutil.cmx \ + Cprint.cmx Cleanup.cmx Ceval.cmx Cabshelper.cmx Cabs.cmx C.cmi \ + Builtins.cmx Elab.cmi +Env.cmo: C.cmi Env.cmi +Env.cmx: C.cmi Env.cmi +Errors.cmo: Errors.cmi +Errors.cmx: Errors.cmi +GCC.cmo: Cutil.cmi C.cmi Builtins.cmi GCC.cmi +GCC.cmx: Cutil.cmx C.cmi Builtins.cmx GCC.cmi +Lexer.cmo: Parser.cmi Parse_aux.cmi Cabshelper.cmo Lexer.cmi +Lexer.cmx: Parser.cmx Parse_aux.cmx Cabshelper.cmx Lexer.cmi +Machine.cmo: Machine.cmi +Machine.cmx: Machine.cmi +Main.cmo: Parse.cmi GCC.cmi Cprint.cmi Builtins.cmi +Main.cmx: Parse.cmx GCC.cmx Cprint.cmx Builtins.cmx +Parse_aux.cmo: Errors.cmi Cabshelper.cmo Parse_aux.cmi +Parse_aux.cmx: Errors.cmx Cabshelper.cmx Parse_aux.cmi +Parse.cmo: Unblock.cmi StructByValue.cmi StructAssign.cmi SimplExpr.cmi \ + Rename.cmi Errors.cmi Elab.cmi Bitfields.cmi AddCasts.cmi Parse.cmi +Parse.cmx: Unblock.cmx StructByValue.cmx StructAssign.cmx SimplExpr.cmx \ + Rename.cmx Errors.cmx Elab.cmx Bitfields.cmx AddCasts.cmx Parse.cmi +Parser.cmo: Parse_aux.cmi Cabshelper.cmo Cabs.cmo Parser.cmi +Parser.cmx: Parse_aux.cmx Cabshelper.cmx Cabs.cmx Parser.cmi +Rename.cmo: Errors.cmi Cutil.cmi C.cmi Builtins.cmi Rename.cmi +Rename.cmx: Errors.cmx Cutil.cmx C.cmi Builtins.cmx Rename.cmi +SimplExpr.cmo: Transform.cmi Errors.cmi Cutil.cmi C.cmi SimplExpr.cmi +SimplExpr.cmx: Transform.cmx Errors.cmx Cutil.cmx C.cmi SimplExpr.cmi +StructAssign.cmo: Transform.cmi Errors.cmi Env.cmi Cutil.cmi C.cmi \ + StructAssign.cmi +StructAssign.cmx: Transform.cmx Errors.cmx Env.cmx Cutil.cmx C.cmi \ + StructAssign.cmi +StructByValue.cmo: Transform.cmi Env.cmi Cutil.cmi C.cmi StructByValue.cmi +StructByValue.cmx: Transform.cmx Env.cmx Cutil.cmx C.cmi StructByValue.cmi +Transform.cmo: Env.cmi Cutil.cmi C.cmi Builtins.cmi Transform.cmi +Transform.cmx: Env.cmx Cutil.cmx C.cmi Builtins.cmx Transform.cmi +Unblock.cmo: Transform.cmi Errors.cmi Cutil.cmi C.cmi Unblock.cmi +Unblock.cmx: Transform.cmx Errors.cmx Cutil.cmx C.cmi Unblock.cmi diff --git a/cparser/AddCasts.ml b/cparser/AddCasts.ml new file mode 100644 index 0000000..9ec128d --- /dev/null +++ b/cparser/AddCasts.ml @@ -0,0 +1,242 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Materialize implicit casts *) + +(* Assumes: simplified code + Produces: simplified code + Preserves: unblocked code *) + +open C +open Cutil +open Transform + +(* We have the option of materializing all casts or leave "widening" + casts implicit. Widening casts are: +- from a small integer type to a larger integer type, +- from a small float type to a larger float type, +- from a pointer type to void *. +*) + +let omit_widening_casts = ref false + +let widening_cast env tfrom tto = + begin match unroll env tfrom, unroll env tto with + | TInt(k1, _), TInt(k2, _) -> + let r1 = integer_rank k1 and r2 = integer_rank k2 in + r1 < r2 || (r1 = r2 && is_signed_ikind k1 = is_signed_ikind k2) + | TFloat(k1, _), TFloat(k2, _) -> + float_rank k1 <= float_rank k2 + | TPtr(ty1, _), TPtr(ty2, _) -> is_void_type env ty2 + | _, _ -> false + end + +let cast_not_needed env tfrom tto = + let tfrom = pointer_decay env tfrom + and tto = pointer_decay env tto in + compatible_types env tfrom tto + || (!omit_widening_casts && widening_cast env tfrom tto) + +let cast env e tto = + if cast_not_needed env e.etyp tto + then e + else {edesc = ECast(tto, e); etyp = tto} + +(* Note: this pass applies only to simplified expressions + because casts cannot be materialized in op= expressions... *) + +let rec add_expr env e = + match e.edesc with + | EConst _ -> e + | EVar _ -> e + | ESizeof _ -> e + | EUnop(op, e1) -> + let e1' = add_expr env e1 in + let desc = + match op with + | Ominus | Oplus | Onot -> + EUnop(op, cast env e1' e.etyp) + | Olognot | Oderef | Oaddrof + | Odot _ | Oarrow _ -> + EUnop(op, e1') + | Opreincr | Opredecr | Opostincr | Opostdecr -> + assert false (* not simplified *) + in { edesc = desc; etyp = e.etyp } + | EBinop(op, e1, e2, ty) -> + let e1' = add_expr env e1 in + let e2' = add_expr env e2 in + let desc = + match op with + | Oadd -> + if is_pointer_type env ty + then EBinop(Oadd, e1', e2', ty) + else EBinop(Oadd, cast env e1' ty, cast env e2' ty, ty) + | Osub -> + if is_pointer_type env ty + then EBinop(Osub, e1', e2', ty) + else EBinop(Osub, cast env e1' ty, cast env e2' ty, ty) + | Omul|Odiv|Omod|Oand|Oor|Oxor|Oeq|One|Olt|Ogt|Ole|Oge -> + EBinop(op, cast env e1' ty, cast env e2' ty, ty) + | Oshl|Oshr -> + EBinop(op, cast env e1' ty, e2', ty) + | Oindex | Ologand | Ologor | Ocomma -> + EBinop(op, e1', e2', ty) + | Oassign + | Oadd_assign|Osub_assign|Omul_assign|Odiv_assign|Omod_assign + | Oand_assign|Oor_assign|Oxor_assign|Oshl_assign|Oshr_assign -> + assert false (* not simplified *) + in { edesc = desc; etyp = e.etyp } + | EConditional(e1, e2, e3) -> + { edesc = + EConditional(add_expr env e1, add_expr env e2, add_expr env e3); + etyp = e.etyp } + | ECast(ty, e1) -> + { edesc = ECast(ty, add_expr env e1); etyp = e.etyp } + | ECall(e1, el) -> + assert false (* not simplified *) + +(* Arguments to a prototyped function *) + +let rec add_proto env args params = + match args, params with + | [], _ -> [] + | _::_, [] -> add_noproto env args + | arg1 :: argl, (_, ty_p) :: paraml -> + cast env (add_expr env arg1) ty_p :: + add_proto env argl paraml + +(* Arguments to a non-prototyped function *) + +and add_noproto env args = + match args with + | [] -> [] + | arg1 :: argl -> + cast env (add_expr env arg1) (default_argument_conversion env arg1.etyp) :: + add_noproto env argl + +(* Arguments to function calls in general *) + +let add_arguments env ty_fun args = + let ty_args = + match unroll env ty_fun with + | TFun(res, args, vararg, a) -> args + | TPtr(ty, a) -> + begin match unroll env ty with + | TFun(res, args, vararg, a) -> args + | _ -> assert false + end + | _ -> assert false in + match ty_args with + | None -> add_noproto env args + | Some targs -> add_proto env args targs + +(* Toplevel expressions (appearing in Sdo statements) *) + +let add_topexpr env loc e = + match e.edesc with + | EBinop(Oassign, lhs, {edesc = ECall(e1, el); etyp = ty}, _) -> + let ecall = + {edesc = ECall(add_expr env e1, add_arguments env e1.etyp el); + etyp = ty} in + if cast_not_needed env ty lhs.etyp then + sassign loc (add_expr env lhs) ecall + else begin + let tmp = new_temp (erase_attributes_type env ty) in + sseq loc (sassign loc tmp ecall) + (sassign loc (add_expr env lhs) (cast env tmp lhs.etyp)) + end + | EBinop(Oassign, lhs, rhs, _) -> + sassign loc (add_expr env lhs) (cast env (add_expr env rhs) lhs.etyp) + | ECall(e1, el) -> + let ecall = + {edesc = ECall(add_expr env e1, add_arguments env e1.etyp el); + etyp = e.etyp} in + {sdesc = Sdo ecall; sloc = loc} + | _ -> + assert false + +(* Initializers *) + +let rec add_init env tto = function + | Init_single e -> + Init_single (cast env (add_expr env e) tto) + | Init_array il -> + let ty_elt = + match unroll env tto with + | TArray(ty, _, _) -> ty | _ -> assert false in + Init_array (List.map (add_init env ty_elt) il) + | Init_struct(id, fil) -> + Init_struct (id, List.map + (fun (fld, i) -> (fld, add_init env fld.fld_typ i)) + fil) + | Init_union(id, fld, i) -> + Init_union(id, fld, add_init env fld.fld_typ i) + +(* Declarations *) + +let add_decl env (sto, id, ty, optinit) = + (sto, id, ty, + begin match optinit with + | None -> None + | Some init -> Some(add_init env ty init) + end) + +(* Statements *) + +let rec add_stmt env f s = + match s.sdesc with + | Sskip -> s + | Sdo e -> add_topexpr env s.sloc e + | Sseq(s1, s2) -> + {sdesc = Sseq(add_stmt env f s1, add_stmt env f s2); sloc = s.sloc } + | Sif(e, s1, s2) -> + {sdesc = Sif(add_expr env e, add_stmt env f s1, add_stmt env f s2); + sloc = s.sloc} + | Swhile(e, s1) -> + {sdesc = Swhile(add_expr env e, add_stmt env f s1); + sloc = s.sloc} + | Sdowhile(s1, e) -> + {sdesc = Sdowhile(add_stmt env f s1, add_expr env e); + sloc = s.sloc} + | Sfor(s1, e, s2, s3) -> + {sdesc = Sfor(add_stmt env f s1, add_expr env e, add_stmt env f s2, + add_stmt env f s3); + sloc = s.sloc} + | Sbreak -> s + | Scontinue -> s + | Sswitch(e, s1) -> + {sdesc = Sswitch(add_expr env e, add_stmt env f s1); sloc = s.sloc} + | Slabeled(lbl, s) -> + {sdesc = Slabeled(lbl, add_stmt env f s); sloc = s.sloc} + | Sgoto lbl -> s + | Sreturn None -> s + | Sreturn (Some e) -> + {sdesc = Sreturn(Some(cast env (add_expr env e) f.fd_ret)); sloc = s.sloc} + | Sblock sl -> + {sdesc = Sblock(List.map (add_stmt env f) sl); sloc = s.sloc} + | Sdecl d -> + {sdesc = Sdecl(add_decl env d); sloc = s.sloc} + +let add_fundef env f = + reset_temps(); + let body' = add_stmt env f f.fd_body in + let temps = get_temps () in + (* fd_locals have no initializers, so no need to transform them *) + { f with fd_locals = f.fd_locals @ temps; fd_body = body' } + + +let program ?(all = false) p = + omit_widening_casts := not all; + Transform.program ~decl:add_decl ~fundef:add_fundef p diff --git a/cparser/AddCasts.mli b/cparser/AddCasts.mli new file mode 100644 index 0000000..318ecc6 --- /dev/null +++ b/cparser/AddCasts.mli @@ -0,0 +1,16 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +val program: ?all: bool -> C.program -> C.program diff --git a/cparser/Bitfields.ml b/cparser/Bitfields.ml new file mode 100644 index 0000000..dea1862 --- /dev/null +++ b/cparser/Bitfields.ml @@ -0,0 +1,396 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Elimination of bit fields in structs *) + +(* Assumes: unblocked, simplified code. + Preserves: unblocked, simplified code. *) + +open Printf +open Machine +open C +open Cutil +open Transform + +(* Info associated to each bitfield *) + +type bitfield_info = + { bf_carrier: string; (* name of underlying regular field *) + bf_carrier_typ: typ; (* type of underlying regular field *) + bf_pos: int; (* start bit *) + bf_size: int; (* size in bit *) + bf_signed: bool } (* signed or unsigned *) + +(* invariants: + 0 <= pos < bitsizeof(int) + 0 < sz <= bitsizeof(int) + 0 < pos + sz <= bitsizeof(int) +*) + +(* Mapping (struct identifier, bitfield name) -> bitfield info *) + +let bitfield_table = + (Hashtbl.create 57: (ident * string, bitfield_info) Hashtbl.t) + +(* Packing algorithm -- keep consistent with [Cutil.pack_bitfield]! *) + +let unsigned_ikind_for_carrier nbits = + if nbits <= 8 then IUChar else + if nbits <= 8 * !config.sizeof_short then IUShort else + if nbits <= 8 * !config.sizeof_int then IUInt else + if nbits <= 8 * !config.sizeof_long then IULong else + if nbits <= 8 * !config.sizeof_longlong then IULongLong else + assert false + +let pack_bitfields env id ml = + let rec pack accu pos = function + | [] -> + (pos, accu, []) + | m :: ms as ml -> + match m.fld_bitfield with + | None -> (pos, accu, ml) + | Some n -> + if n = 0 then + (pos, accu, ms) (* bit width 0 means end of pack *) + else if pos + n > 8 * !config.sizeof_int then + (pos, accu, ml) (* doesn't fit in current word *) + else begin + let signed = + match unroll env m.fld_typ with + | TInt(ik, _) -> is_signed_ikind ik + | _ -> assert false (* should never happen, checked in Elab *) in + pack ((m.fld_name, pos, n, signed) :: accu) (pos + n) ms + end + in pack [] 0 ml + +let rec transf_members env id count = function + | [] -> [] + | m :: ms as ml -> + if m.fld_bitfield = None then + m :: transf_members env id count ms + else begin + let (nbits, bitfields, ml') = pack_bitfields env id ml in + let carrier = sprintf "__bf%d" count in + let carrier_typ = TInt(unsigned_ikind_for_carrier nbits, []) in + List.iter + (fun (name, pos, sz, signed) -> + Hashtbl.add bitfield_table + (id, name) + {bf_carrier = carrier; bf_carrier_typ = carrier_typ; + bf_pos = pos; bf_size = sz; bf_signed = signed}) + bitfields; + { fld_name = carrier; fld_typ = carrier_typ; fld_bitfield = None} + :: transf_members env id (count + 1) ml' + end + +let transf_composite env su id ml = + match su with + | Struct -> transf_members env id 1 ml + | Union -> ml + +(* Bitfield manipulation expressions *) + +let left_shift_count bf = + intconst + (Int64.of_int (8 * !config.sizeof_int - (bf.bf_pos + bf.bf_size))) + IInt + +let right_shift_count bf = + intconst + (Int64.of_int (8 * !config.sizeof_int - bf.bf_size)) + IInt + +let insertion_mask bf = + let m = + Int64.shift_left + (Int64.pred (Int64.shift_left 1L bf.bf_size)) + bf.bf_pos in + (* Give the mask an hexadecimal string representation, nicer to read *) + {edesc = EConst(CInt(m, IUInt, sprintf "0x%LXU" m)); etyp = TInt(IUInt, [])} + +(* Extract the value of a bitfield *) + +(* Reference C code: + +unsigned int bitfield_unsigned_extract(unsigned int x, int ofs, int sz) +{ + return (x << (BITSIZE_UINT - (ofs + sz))) >> (BITSIZE_UINT - sz); +} + +signed int bitfield_signed_extract(unsigned int x, int ofs, int sz) +{ + return ((signed int) (x << (BITSIZE_UINT - (ofs + sz)))) + >> (BITSIZE_UINT - sz); +} + +*) + +let bitfield_extract bf carrier = + let e1 = + {edesc = EBinop(Oshl, carrier, left_shift_count bf, TInt(IUInt, [])); + etyp = carrier.etyp} in + let ty = TInt((if bf.bf_signed then IInt else IUInt), []) in + let e2 = + {edesc = ECast(ty, e1); etyp = ty} in + {edesc = EBinop(Oshr, e2, right_shift_count bf, e2.etyp); + etyp = e2.etyp} + +(* Assign a bitfield within a carrier *) + +(* Reference C code: + +unsigned int bitfield_insert(unsigned int x, int ofs, int sz, unsigned int y) +{ + unsigned int mask = ((1U << sz) - 1) << ofs; + return (x & ~mask) | ((y << ofs) & mask); +} + +*) + +let bitfield_assign bf carrier newval = + let msk = insertion_mask bf in + let notmsk = {edesc = EUnop(Onot, msk); etyp = msk.etyp} in + let newval_shifted = + {edesc = EBinop(Oshl, newval, intconst (Int64.of_int bf.bf_pos) IUInt, + TInt(IUInt,[])); + etyp = TInt(IUInt,[])} in + let newval_masked = + {edesc = EBinop(Oand, newval_shifted, msk, TInt(IUInt,[])); + etyp = TInt(IUInt,[])} + and oldval_masked = + {edesc = EBinop(Oand, carrier, notmsk, TInt(IUInt,[])); + etyp = TInt(IUInt,[])} in + {edesc = EBinop(Oor, oldval_masked, newval_masked, TInt(IUInt,[])); + etyp = TInt(IUInt,[])} + +(* Expressions *) + +let transf_expr env e = + + let is_bitfield_access ty fieldname = + match unroll env ty with + | TStruct(id, _) -> + (try Some(Hashtbl.find bitfield_table (id, fieldname)) + with Not_found -> None) + | _ -> None in + + let is_bitfield_access_ptr ty fieldname = + match unroll env ty with + | TPtr(ty', _) -> is_bitfield_access ty' fieldname + | _ -> None in + + let rec texp e = + match e.edesc with + | EConst _ -> e + | ESizeof _ -> e + | EVar _ -> e + + | EUnop(Odot fieldname, e1) -> + let e1' = texp e1 in + begin match is_bitfield_access e1.etyp fieldname with + | None -> + {edesc = EUnop(Odot fieldname, e1'); etyp = e.etyp} + | Some bf -> + bitfield_extract bf + {edesc = EUnop(Odot bf.bf_carrier, e1'); + etyp = bf.bf_carrier_typ} + end + + | EUnop(Oarrow fieldname, e1) -> + let e1' = texp e1 in + begin match is_bitfield_access_ptr e1.etyp fieldname with + | None -> + {edesc = EUnop(Oarrow fieldname, e1'); etyp = e.etyp} + | Some bf -> + bitfield_extract bf + {edesc = EUnop(Oarrow bf.bf_carrier, e1'); + etyp = bf.bf_carrier_typ} + end + + | EUnop(op, e1) -> + (* Note: simplified expr, so no ++/-- *) + {edesc = EUnop(op, texp e1); etyp = e.etyp} + + | EBinop(Oassign, e1, e2, ty) -> + begin match e1.edesc with + | EUnop(Odot fieldname, e11) -> + let lhs = texp e11 in let rhs = texp e2 in + begin match is_bitfield_access e11.etyp fieldname with + | None -> + {edesc = EBinop(Oassign, + {edesc = EUnop(Odot fieldname, lhs); + etyp = e1.etyp}, + rhs, ty); + etyp = e.etyp} + | Some bf -> + let carrier = + {edesc = EUnop(Odot bf.bf_carrier, lhs); + etyp = bf.bf_carrier_typ} in + {edesc = EBinop(Oassign, carrier, + bitfield_assign bf carrier rhs, + carrier.etyp); + etyp = carrier.etyp} + end + | EUnop(Oarrow fieldname, e11) -> + let lhs = texp e11 in let rhs = texp e2 in + begin match is_bitfield_access_ptr e11.etyp fieldname with + | None -> + {edesc = EBinop(Oassign, + {edesc = EUnop(Oarrow fieldname, lhs); + etyp = e1.etyp}, + rhs, ty); + etyp = e.etyp} + | Some bf -> + let carrier = + {edesc = EUnop(Oarrow bf.bf_carrier, lhs); + etyp = bf.bf_carrier_typ} in + {edesc = EBinop(Oassign, carrier, + bitfield_assign bf carrier rhs, + carrier.etyp); + etyp = carrier.etyp} + end + | _ -> + {edesc = EBinop(Oassign, texp e1, texp e2, e1.etyp); etyp = e1.etyp} + end + + | EBinop(op, e1, e2, ty) -> + (* Note: simplified expr assumed, so no assign-op *) + {edesc = EBinop(op, texp e1, texp e2, ty); etyp = e.etyp} + | EConditional(e1, e2, e3) -> + {edesc = EConditional(texp e1, texp e2, texp e3); etyp = e.etyp} + | ECast(ty, e1) -> + {edesc = ECast(ty, texp e1); etyp = e.etyp} + | ECall(e1, el) -> + {edesc = ECall(texp e1, List.map texp el); etyp = e.etyp} + + in texp e + +(* Statements *) + +let rec transf_stmt env s = + match s.sdesc with + | Sskip -> s + | Sdo e -> + {sdesc = Sdo(transf_expr env e); sloc = s.sloc} + | Sseq(s1, s2) -> + {sdesc = Sseq(transf_stmt env s1, transf_stmt env s2); sloc = s.sloc } + | Sif(e, s1, s2) -> + {sdesc = Sif(transf_expr env e, transf_stmt env s1, transf_stmt env s2); + sloc = s.sloc} + | Swhile(e, s1) -> + {sdesc = Swhile(transf_expr env e, transf_stmt env s1); + sloc = s.sloc} + | Sdowhile(s1, e) -> + {sdesc = Sdowhile(transf_stmt env s1, transf_expr env e); + sloc = s.sloc} + | Sfor(s1, e, s2, s3) -> + {sdesc = Sfor(transf_stmt env s1, transf_expr env e, transf_stmt env s2, + transf_stmt env s3); + sloc = s.sloc} + | Sbreak -> s + | Scontinue -> s + | Sswitch(e, s1) -> + {sdesc = Sswitch(transf_expr env e, transf_stmt env s1); sloc = s.sloc} + | Slabeled(lbl, s) -> + {sdesc = Slabeled(lbl, transf_stmt env s); sloc = s.sloc} + | Sgoto lbl -> s + | Sreturn None -> s + | Sreturn (Some e) -> + {sdesc = Sreturn(Some(transf_expr env e)); sloc = s.sloc} + | Sblock _ | Sdecl _ -> + assert false (* should not occur in unblocked code *) + +(* Functions *) + +let transf_fundef env f = + { f with fd_body = transf_stmt env f.fd_body } + +(* Initializers *) + +let bitfield_initializer bf i = + match i with + | Init_single e -> + let m = Int64.pred (Int64.shift_left 1L bf.bf_size) in + let e_mask = + {edesc = EConst(CInt(m, IUInt, sprintf "0x%LXU" m)); + etyp = TInt(IUInt, [])} in + let e_and = + {edesc = EBinop(Oand, e, e_mask, TInt(IUInt,[])); + etyp = TInt(IUInt,[])} in + {edesc = EBinop(Oshl, e_and, intconst (Int64.of_int bf.bf_pos) IInt, + TInt(IUInt, [])); + etyp = TInt(IUInt, [])} + | _ -> assert false + +let rec pack_bitfield_init id carrier fld_init_list = + match fld_init_list with + | [] -> ([], []) + | (fld, i) :: rem -> + try + let bf = Hashtbl.find bitfield_table (id, fld.fld_name) in + if bf.bf_carrier <> carrier then + ([], fld_init_list) + else begin + let (el, rem') = pack_bitfield_init id carrier rem in + (bitfield_initializer bf i :: el, rem') + end + with Not_found -> + ([], fld_init_list) + +let rec or_expr_list = function + | [] -> assert false + | [e] -> e + | e1 :: el -> + {edesc = EBinop(Oor, e1, or_expr_list el, TInt(IUInt,[])); + etyp = TInt(IUInt,[])} + +let rec transf_struct_init id fld_init_list = + match fld_init_list with + | [] -> [] + | (fld, i) :: rem -> + try + let bf = Hashtbl.find bitfield_table (id, fld.fld_name) in + let (el, rem') = + pack_bitfield_init id bf.bf_carrier fld_init_list in + ({fld_name = bf.bf_carrier; fld_typ = bf.bf_carrier_typ; + fld_bitfield = None}, + Init_single {edesc = ECast(bf.bf_carrier_typ, or_expr_list el); + etyp = bf.bf_carrier_typ}) + :: transf_struct_init id rem' + with Not_found -> + (fld, i) :: transf_struct_init id rem + +let rec transf_init env i = + match i with + | Init_single e -> Init_single (transf_expr env e) + | Init_array il -> Init_array (List.map (transf_init env) il) + | Init_struct(id, fld_init_list) -> + let fld_init_list' = + List.map (fun (f, i) -> (f, transf_init env i)) fld_init_list in + Init_struct(id, transf_struct_init id fld_init_list') + | Init_union(id, fld, i) -> Init_union(id, fld, transf_init env i) + +let transf_decl env (sto, id, ty, init_opt) = + (sto, id, ty, + match init_opt with None -> None | Some i -> Some(transf_init env i)) + +(* Programs *) + +let program p = + Transform.program + ~composite:transf_composite + ~decl: transf_decl + ~fundef:transf_fundef + p diff --git a/cparser/Bitfields.mli b/cparser/Bitfields.mli new file mode 100644 index 0000000..45899a4 --- /dev/null +++ b/cparser/Bitfields.mli @@ -0,0 +1,16 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +val program: C.program -> C.program diff --git a/cparser/Builtins.ml b/cparser/Builtins.ml new file mode 100644 index 0000000..8eb1abf --- /dev/null +++ b/cparser/Builtins.ml @@ -0,0 +1,54 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Compiler built-ins *) + +open C +open Cutil + +let env = ref Env.empty +let idents = ref [] +let decls = ref [] + +let environment () = !env +let identifiers () = !idents +let declarations () = List.rev !decls + +let add_typedef (s, ty) = + let (id, env') = Env.enter_typedef !env s ty in + env := env'; + idents := id :: !idents; + decls := {gdesc = Gtypedef(id, ty); gloc = no_loc} :: !decls + +let add_function (s, (res, args, va)) = + let ty = + TFun(res, + Some (List.map (fun ty -> (Env.fresh_ident "", ty)) args), + va, []) in + let (id, env') = Env.enter_ident !env s Storage_extern ty in + env := env'; + idents := id :: !idents; + decls := {gdesc = Gdecl(Storage_extern, id, ty, None); gloc = no_loc} :: !decls + +type t = { + typedefs: (string * C.typ) list; + functions: (string * (C.typ * C.typ list * bool)) list +} + +let set blt = + env := Env.empty; + idents := []; + List.iter add_typedef blt.typedefs; + List.iter add_function blt.functions diff --git a/cparser/Builtins.mli b/cparser/Builtins.mli new file mode 100644 index 0000000..7f9d78a --- /dev/null +++ b/cparser/Builtins.mli @@ -0,0 +1,25 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +val environment: unit -> Env.t +val identifiers: unit -> C.ident list +val declarations: unit -> C.globdecl list + +type t = { + typedefs: (string * C.typ) list; + functions: (string * (C.typ * C.typ list * bool)) list +} + +val set: t -> unit diff --git a/cparser/C.mli b/cparser/C.mli new file mode 100644 index 0000000..d477acd --- /dev/null +++ b/cparser/C.mli @@ -0,0 +1,232 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* C abstract syntax after elaboration *) + +(* Locations *) + +type location = string * int (* filename, line number *) + +(* Identifiers *) + +type ident = + { name: string; (* name as in the source *) + stamp: int } (* unique ID *) + +(* kinds of integers *) + +type ikind = + | IBool (** [_Bool] *) + | IChar (** [char] *) + | ISChar (** [signed char] *) + | IUChar (** [unsigned char] *) + | IInt (** [int] *) + | IUInt (** [unsigned int] *) + | IShort (** [short] *) + | IUShort (** [unsigned short] *) + | ILong (** [long] *) + | IULong (** [unsigned long] *) + | ILongLong (** [long long] (or [_int64] on Microsoft Visual C) *) + | IULongLong (** [unsigned long long] (or [unsigned _int64] on Microsoft + Visual C) *) + +(** Kinds of floating-point numbers*) + +type fkind = + FFloat (** [float] *) + | FDouble (** [double] *) + | FLongDouble (** [long double] *) + + +(** Constants *) + +type constant = + | CInt of int64 * ikind * string (* as it appeared in the source *) + | CFloat of float * fkind * string (* as it appeared in the source *) + | CStr of string + | CWStr of int64 list + | CEnum of ident * int64 (* enum tag, integer value *) + +(** Attributes *) + +type attribute = AConst | AVolatile | ARestrict + +type attributes = attribute list + +(** Storage classes *) + +type storage = + | Storage_default + | Storage_extern + | Storage_static + | Storage_register + +(** Unary operators *) + +type unary_operator = + | Ominus (* unary "-" *) + | Oplus (* unary "+" *) + | Olognot (* "!" *) + | Onot (* "~" *) + | Oderef (* unary "*" *) + | Oaddrof (* "&" *) + | Opreincr (* "++" prefix *) + | Opredecr (* "--" prefix *) + | Opostincr (* "++" postfix *) + | Opostdecr (* "--" postfix *) + | Odot of string (* ".field" *) + | Oarrow of string (* "->field" *) + +type binary_operator = + | Oadd (* binary "+" *) + | Osub (* binary "-" *) + | Omul (* binary "*" *) + | Odiv (* "/" *) + | Omod (* "%" *) + | Oand (* "&" *) + | Oor (* "|" *) + | Oxor (* "^" *) + | Oshl (* "<<" *) + | Oshr (* ">>" *) + | Oeq (* "==" *) + | One (* "!=" *) + | Olt (* "<" *) + | Ogt (* ">" *) + | Ole (* "<=" *) + | Oge (* ">=" *) + | Oindex (* "a[i]" *) + | Oassign (* "=" *) + | Oadd_assign (* "+=" *) + | Osub_assign (* "-=" *) + | Omul_assign (* "*=" *) + | Odiv_assign (* "/=" *) + | Omod_assign (* "%=" *) + | Oand_assign (* "&=" *) + | Oor_assign (* "|=" *) + | Oxor_assign (* "^=" *) + | Oshl_assign (* "<<=" *) + | Oshr_assign (* ">>=" *) + | Ocomma (* "," *) + | Ologand (* "&&" *) + | Ologor (* "||" *) + +(** Types *) + +type typ = + | TVoid of attributes + | TInt of ikind * attributes + | TFloat of fkind * attributes + | TPtr of typ * attributes + | TArray of typ * int64 option * attributes + | TFun of typ * (ident * typ) list option * bool * attributes + | TNamed of ident * attributes + | TStruct of ident * attributes + | TUnion of ident * attributes + +(** Expressions *) + +type exp = { edesc: exp_desc; etyp: typ } + +and exp_desc = + | EConst of constant + | ESizeof of typ + | EVar of ident + | EUnop of unary_operator * exp + | EBinop of binary_operator * exp * exp * typ + (* the type at which the operation is performed *) + | EConditional of exp * exp * exp + | ECast of typ * exp + | ECall of exp * exp list + +(** Statements *) + +type stmt = { sdesc: stmt_desc; sloc: location } + +and stmt_desc = + | Sskip + | Sdo of exp + | Sseq of stmt * stmt + | Sif of exp * stmt * stmt + | Swhile of exp * stmt + | Sdowhile of stmt * exp + | Sfor of stmt * exp * stmt * stmt + | Sbreak + | Scontinue + | Sswitch of exp * stmt + | Slabeled of slabel * stmt + | Sgoto of string + | Sreturn of exp option + | Sblock of stmt list + | Sdecl of decl + +and slabel = + | Slabel of string + | Scase of exp + | Sdefault + +(** Declarations *) + +and decl = + storage * ident * typ * init option + +(** Initializers *) + +and init = + | Init_single of exp + | Init_array of init list + | Init_struct of ident * (field * init) list + | Init_union of ident * field * init + +(** Struct or union field *) + +and field = { + fld_name: string; + fld_typ: typ; + fld_bitfield: int option +} + +type struct_or_union = + | Struct + | Union + +(** Function definitions *) + +type fundef = { + fd_storage: storage; + fd_inline: bool; + fd_name: ident; + fd_ret: typ; (* return type *) + fd_params: (ident * typ) list; (* formal parameters *) + fd_vararg: bool; (* variable arguments? *) + fd_locals: decl list; (* local variables *) + fd_body: stmt +} + +(** Global declarations *) + +type globdecl = + { gdesc: globdecl_desc; gloc: location } + +and globdecl_desc = + | Gdecl of decl (* variable declaration, function prototype *) + | Gfundef of fundef (* function definition *) + | Gcompositedecl of struct_or_union * ident (* struct/union declaration *) + | Gcompositedef of struct_or_union * ident * field list + (* struct/union definition *) + | Gtypedef of ident * typ (* typedef *) + | Genumdef of ident * (ident * exp option) list (* enum definition *) + | Gpragma of string (* #pragma directive *) + +type program = globdecl list diff --git a/cparser/CBuiltins.ml b/cparser/CBuiltins.ml new file mode 100644 index 0000000..da90d12 --- /dev/null +++ b/cparser/CBuiltins.ml @@ -0,0 +1 @@ +include GCC diff --git a/cparser/Cabs.ml b/cparser/Cabs.ml new file mode 100644 index 0000000..a2bb512 --- /dev/null +++ b/cparser/Cabs.ml @@ -0,0 +1,299 @@ +(* + * + * Copyright (c) 2001-2002, + * George C. Necula + * Scott McPeak + * Wes Weimer + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions are + * met: + * + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * 3. The names of the contributors may not be used to endorse or promote + * products derived from this software without specific prior written + * permission. + * + * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS + * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED + * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A + * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER + * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, + * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, + * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR + * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF + * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING + * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS + * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + * + *) + +(** This file was originally part of Hugues Casee's frontc 2.0, and has been + * extensively changed since. +** +** 1.0 3.22.99 Hugues Cassé First version. +** 2.0 George Necula 12/12/00: Many extensions + **) + +(* +** Types +*) + +type cabsloc = { + lineno : int; + filename: string; + byteno: int; + ident : int; +} + +type typeSpecifier = (* Merge all specifiers into one type *) + Tvoid (* Type specifier ISO 6.7.2 *) + | Tchar + | Tshort + | Tint + | Tlong + | Tint64 + | T_Bool + | Tfloat + | Tdouble + | Tsigned + | Tunsigned + | Tnamed of string + (* each of the following three kinds of specifiers contains a field + * or item list iff it corresponds to a definition (as opposed to + * a forward declaration or simple reference to the type); they + * also have a list of __attribute__s that appeared between the + * keyword and the type name (definitions only) *) + | Tstruct of string * field_group list option * attribute list + | Tunion of string * field_group list option * attribute list + | Tenum of string * enum_item list option * attribute list + | TtypeofE of expression (* GCC __typeof__ *) + | TtypeofT of specifier * decl_type (* GCC __typeof__ *) + +and storage = + NO_STORAGE | AUTO | STATIC | EXTERN | REGISTER + +and funspec = + INLINE | VIRTUAL | EXPLICIT + +and cvspec = + CV_CONST | CV_VOLATILE | CV_RESTRICT + +(* Type specifier elements. These appear at the start of a declaration *) +(* Everywhere they appear in this file, they appear as a 'spec_elem list', *) +(* which is not interpreted by cabs -- rather, this "word soup" is passed *) +(* on to the compiler. Thus, we can represent e.g. 'int long float x' even *) +(* though the compiler will of course choke. *) +and spec_elem = + SpecTypedef + | SpecCV of cvspec (* const/volatile *) + | SpecAttr of attribute (* __attribute__ *) + | SpecStorage of storage + | SpecInline + | SpecType of typeSpecifier + +(* decided to go ahead and replace 'spec_elem list' with specifier *) +and specifier = spec_elem list + + +(* Declarator type. They modify the base type given in the specifier. Keep + * them in the order as they are printed (this means that the top level + * constructor for ARRAY and PTR is the inner-level in the meaning of the + * declared type) *) +and decl_type = + | JUSTBASE (* Prints the declared name *) + | PARENTYPE of attribute list * decl_type * attribute list + (* Prints "(attrs1 decl attrs2)". + * attrs2 are attributes of the + * declared identifier and it is as + * if they appeared at the very end + * of the declarator. attrs1 can + * contain attributes for the + * identifier or attributes for the + * enclosing type. *) + | ARRAY of decl_type * attribute list * expression + (* Prints "decl [ attrs exp ]". + * decl is never a PTR. *) + | PTR of attribute list * decl_type (* Prints "* attrs decl" *) + | PROTO of decl_type * single_name list * bool + (* Prints "decl (args[, ...])". + * decl is never a PTR.*) + +(* The base type and the storage are common to all names. Each name might + * contain type or storage modifiers *) +(* e.g.: int x, y; *) +and name_group = specifier * name list + +(* The optional expression is the bitfield *) +and field_group = specifier * (name * expression option) list + +(* like name_group, except the declared variables are allowed to have initializers *) +(* e.g.: int x=1, y=2; *) +and init_name_group = specifier * init_name list + +(* The decl_type is in the order in which they are printed. Only the name of + * the declared identifier is pulled out. The attributes are those that are + * printed after the declarator *) +(* e.g: in "int *x", "*x" is the declarator; "x" will be pulled out as *) +(* the string, and decl_type will be PTR([], JUSTBASE) *) +and name = string * decl_type * attribute list * cabsloc + +(* A variable declarator ("name") with an initializer *) +and init_name = name * init_expression + +(* Single names are for declarations that cannot come in groups, like + * function parameters and functions *) +and single_name = specifier * name + + +and enum_item = string * expression * cabsloc + +(* +** Declaration definition (at toplevel) +*) +and definition = + FUNDEF of single_name * block * cabsloc * cabsloc + | DECDEF of init_name_group * cabsloc (* global variable(s), or function prototype *) + | TYPEDEF of name_group * cabsloc + | ONLYTYPEDEF of specifier * cabsloc + | GLOBASM of string * cabsloc + | PRAGMA of string * cabsloc + | LINKAGE of string * cabsloc * definition list (* extern "C" { ... } *) + +(* the string is a file name, and then the list of toplevel forms *) +and file = string * definition list + + +(* +** statements +*) + +(* A block contains a list of local label declarations ( GCC's ({ __label__ + * l1, l2; ... }) ) , a list of definitions and a list of statements *) +and block = + { blabels: string list; + battrs: attribute list; + bstmts: statement list + } + +(* GCC asm directives have lots of extra information to guide the optimizer *) +and asm_details = + { aoutputs: (string option * string * expression) list; (* optional name, constraints and expressions for outputs *) + ainputs: (string option * string * expression) list; (* optional name, constraints and expressions for inputs *) + aclobbers: string list (* clobbered registers *) + } + +and statement = + NOP of cabsloc + | COMPUTATION of expression * cabsloc + | BLOCK of block * cabsloc +(* | SEQUENCE of statement * statement * cabsloc *) + | IF of expression * statement * statement * cabsloc + | WHILE of expression * statement * cabsloc + | DOWHILE of expression * statement * cabsloc + | FOR of for_clause * expression * expression * statement * cabsloc + | BREAK of cabsloc + | CONTINUE of cabsloc + | RETURN of expression * cabsloc + | SWITCH of expression * statement * cabsloc + | CASE of expression * statement * cabsloc + | CASERANGE of expression * expression * statement * cabsloc + | DEFAULT of statement * cabsloc + | LABEL of string * statement * cabsloc + | GOTO of string * cabsloc + | COMPGOTO of expression * cabsloc (* GCC's "goto *exp" *) + | DEFINITION of definition (*definition or declaration of a variable or type*) + + | ASM of attribute list * (* typically only volatile and const *) + string list * (* template *) + asm_details option * (* extra details to guide GCC's optimizer *) + cabsloc + + (** MS SEH *) + | TRY_EXCEPT of block * expression * block * cabsloc + | TRY_FINALLY of block * block * cabsloc + +and for_clause = + FC_EXP of expression + | FC_DECL of definition + +(* +** Expressions +*) +and binary_operator = + ADD | SUB | MUL | DIV | MOD + | AND | OR + | BAND | BOR | XOR | SHL | SHR + | EQ | NE | LT | GT | LE | GE + | ASSIGN + | ADD_ASSIGN | SUB_ASSIGN | MUL_ASSIGN | DIV_ASSIGN | MOD_ASSIGN + | BAND_ASSIGN | BOR_ASSIGN | XOR_ASSIGN | SHL_ASSIGN | SHR_ASSIGN + +and unary_operator = + MINUS | PLUS | NOT | BNOT | MEMOF | ADDROF + | PREINCR | PREDECR | POSINCR | POSDECR + +and expression = + NOTHING + | UNARY of unary_operator * expression + | LABELADDR of string (* GCC's && Label *) + | BINARY of binary_operator * expression * expression + | QUESTION of expression * expression * expression + + (* A CAST can actually be a constructor expression *) + | CAST of (specifier * decl_type) * init_expression + + (* There is a special form of CALL in which the function called is + __builtin_va_arg and the second argument is sizeof(T). This + should be printed as just T *) + | CALL of expression * expression list + | COMMA of expression list + | CONSTANT of constant + | PAREN of expression + | VARIABLE of string + | EXPR_SIZEOF of expression + | TYPE_SIZEOF of specifier * decl_type + | EXPR_ALIGNOF of expression + | TYPE_ALIGNOF of specifier * decl_type + | INDEX of expression * expression + | MEMBEROF of expression * string + | MEMBEROFPTR of expression * string + | GNU_BODY of block + +and constant = + | CONST_INT of string (* the textual representation *) + | CONST_FLOAT of string (* the textual representaton *) + | CONST_CHAR of int64 list + | CONST_WCHAR of int64 list + | CONST_STRING of string + | CONST_WSTRING of int64 list + (* ww: wstrings are stored as an int64 list at this point because + * we might need to feed the wide characters piece-wise into an + * array initializer (e.g., wchar_t foo[] = L"E\xabcd";). If that + * doesn't happen we will convert it to an (escaped) string before + * passing it to Cil. *) + +and init_expression = + | NO_INIT + | SINGLE_INIT of expression + | COMPOUND_INIT of (initwhat * init_expression) list + +and initwhat = + NEXT_INIT + | INFIELD_INIT of string * initwhat + | ATINDEX_INIT of expression * initwhat + | ATINDEXRANGE_INIT of expression * expression + + + (* Each attribute has a name and some + * optional arguments *) +and attribute = string * expression list + + diff --git a/cparser/Cabshelper.ml b/cparser/Cabshelper.ml new file mode 100644 index 0000000..2dc1a91 --- /dev/null +++ b/cparser/Cabshelper.ml @@ -0,0 +1,126 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + + +open Cabs + +let nextident = ref 0 +let getident () = + nextident := !nextident + 1; + !nextident + +let currentLoc_lexbuf lb = + let p = Lexing.lexeme_start_p lb in + { lineno = p.Lexing.pos_lnum; + filename = p.Lexing.pos_fname; + byteno = p.Lexing.pos_cnum; + ident = getident ();} + +let currentLoc () = + let p = Parsing.symbol_start_pos() in + { lineno = p.Lexing.pos_lnum; + filename = p.Lexing.pos_fname; + byteno = p.Lexing.pos_cnum; + ident = getident ();} + +let cabslu = {lineno = -10; + filename = "cabs loc unknown"; + byteno = -10; + ident = 0} + +(*********** HELPER FUNCTIONS **********) + +let missingFieldDecl = ("___missing_field_name", JUSTBASE, [], cabslu) + +let rec isStatic = function + [] -> false + | (SpecStorage STATIC) :: _ -> true + | _ :: rest -> isStatic rest + +let rec isExtern = function + [] -> false + | (SpecStorage EXTERN) :: _ -> true + | _ :: rest -> isExtern rest + +let rec isInline = function + [] -> false + | SpecInline :: _ -> true + | _ :: rest -> isInline rest + +let rec isTypedef = function + [] -> false + | SpecTypedef :: _ -> true + | _ :: rest -> isTypedef rest + + +let get_definitionloc (d : definition) : cabsloc = + match d with + | FUNDEF(_, _, l, _) -> l + | DECDEF(_, l) -> l + | TYPEDEF(_, l) -> l + | ONLYTYPEDEF(_, l) -> l + | GLOBASM(_, l) -> l + | PRAGMA(_, l) -> l + | LINKAGE (_, l, _) -> l + +let get_statementloc (s : statement) : cabsloc = +begin + match s with + | NOP(loc) -> loc + | COMPUTATION(_,loc) -> loc + | BLOCK(_,loc) -> loc +(* | SEQUENCE(_,_,loc) -> loc *) + | IF(_,_,_,loc) -> loc + | WHILE(_,_,loc) -> loc + | DOWHILE(_,_,loc) -> loc + | FOR(_,_,_,_,loc) -> loc + | BREAK(loc) -> loc + | CONTINUE(loc) -> loc + | RETURN(_,loc) -> loc + | SWITCH(_,_,loc) -> loc + | CASE(_,_,loc) -> loc + | CASERANGE(_,_,_,loc) -> loc + | DEFAULT(_,loc) -> loc + | LABEL(_,_,loc) -> loc + | GOTO(_,loc) -> loc + | COMPGOTO (_, loc) -> loc + | DEFINITION d -> get_definitionloc d + | ASM(_,_,_,loc) -> loc + | TRY_EXCEPT(_, _, _, loc) -> loc + | TRY_FINALLY(_, _, loc) -> loc +end + + +let explodeStringToInts (s: string) : int64 list = + let rec allChars i acc = + if i < 0 then acc + else allChars (i - 1) (Int64.of_int (Char.code (String.get s i)) :: acc) + in + allChars (-1 + String.length s) [] + +let valueOfDigit chr = + let int_value = + match chr with + '0'..'9' -> (Char.code chr) - (Char.code '0') + | 'a'..'z' -> (Char.code chr) - (Char.code 'a') + 10 + | 'A'..'Z' -> (Char.code chr) - (Char.code 'A') + 10 + | _ -> assert false in + Int64.of_int int_value + +let string_of_cabsloc l = + Printf.sprintf "%s:%d" l.filename l.lineno + +let format_cabsloc pp l = + Format.fprintf pp "%s:%d" l.filename l.lineno diff --git a/cparser/Ceval.ml b/cparser/Ceval.ml new file mode 100644 index 0000000..0e22852 --- /dev/null +++ b/cparser/Ceval.ml @@ -0,0 +1,277 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Evaluation of compile-time constants *) + +open C +open Cutil +open Machine + +(* Extra arith on int64 *) + +external int64_unsigned_to_float: int64 -> float + = "cparser_int64_unsigned_to_float" +external int64_unsigned_div: int64 -> int64 -> int64 + = "cparser_int64_unsigned_div" +external int64_unsigned_mod: int64 -> int64 -> int64 + = "cparser_int64_unsigned_mod" +external int64_unsigned_compare: int64 -> int64 -> int + = "cparser_int64_unsigned_compare" + +exception Notconst + +(* Reduce n to the range of representable integers of the given kind *) + +let normalize_int n ik = + if ik = IBool then + if n = 0L then 0L else 1L + else begin + let bitsize = sizeof_ikind ik * 8 + and signed = is_signed_ikind ik in + if bitsize >= 64 then n else begin + let a = 64 - bitsize in + let p = Int64.shift_left n a in + if signed + then Int64.shift_right p a + else Int64.shift_right_logical p a + end + end + +(* Reduce n to the range of representable floats of the given kind *) + +let normalize_float f fk = + match fk with + | FFloat -> Int32.float_of_bits (Int32.bits_of_float f) + | FDouble -> f + | FLongDouble -> raise Notconst (* cannot accurately compute on this type *) + +type value = + | I of int64 + | F of float + | S of string + | WS of int64 list + +let boolean_value v = + match v with + | I n -> n <> 0L + | F n -> n <> 0.0 + | S _ | WS _ -> true + +let constant = function + | CInt(v, ik, _) -> I (normalize_int v ik) + | CFloat(v, fk, _) -> F (normalize_float v fk) + | CStr s -> S s + | CWStr s -> WS s + | CEnum(id, v) -> I v + +let is_signed env ty = + match unroll env ty with + | TInt(ik, _) -> is_signed_ikind ik + | _ -> false + +let cast env ty_to ty_from v = + match unroll env ty_to, v with + | TInt(IBool, _), _ -> + if boolean_value v then I 1L else I 0L + | TInt(ik, _), I n -> + I(normalize_int n ik) + | TInt(ik, _), F n -> + I(normalize_int (Int64.of_float n) ik) + | TInt(ik, _), (S _ | WS _) -> + if sizeof_ikind ik >= !config.sizeof_ptr + then v + else raise Notconst + | TFloat(fk, _), F n -> + F(normalize_float n fk) + | TFloat(fk, _), I n -> + if is_signed env ty_from + then F(normalize_float (Int64.to_float n) fk) + else F(normalize_float (int64_unsigned_to_float n) fk) + | TPtr(ty, _), I n -> + I (normalize_int n ptr_t_ikind) + | TPtr(ty, _), F n -> + if n = 0.0 then I 0L else raise Notconst + | TPtr(ty, _), (S _ | WS _) -> + v + | _, _ -> + raise Notconst + +let unop env op tyres ty v = + let res = + match op, tyres, v with + | Ominus, TInt _, I n -> I (Int64.neg n) + | Ominus, TFloat _, F n -> F (-. n) + | Oplus, TInt _, I n -> I n + | Oplus, TFloat _, F n -> F n + | Olognot, _, _ -> if boolean_value v then I 0L else I 1L + | _ -> raise Notconst + in cast env ty tyres res + +let comparison env direction ptraction tyop ty1 v1 ty2 v2 = + (* tyop = type at which the comparison is done *) + let b = + match cast env tyop ty1 v1, cast env tyop ty2 v2 with + | I n1, I n2 -> + if is_signed env tyop + then direction (compare n1 n2) 0 + else direction (int64_unsigned_compare n1 n2) 0 (* including pointers *) + | F n1, F n2 -> + direction (compare n1 n2) 0 + | (S _ | WS _), I 0L -> + begin match ptraction with None -> raise Notconst | Some b -> b end + | I 0L, (S _ | WS _) -> + begin match ptraction with None -> raise Notconst | Some b -> b end + | _, _ -> + raise Notconst + in if b then I 1L else I 0L + +let binop env op tyop tyres ty1 v1 ty2 v2 = + (* tyop = type at which the computation is done + tyres = expected result type *) + let res = + match op with + | Oadd -> + if is_arith_type env ty1 && is_arith_type env ty2 then begin + match cast env tyop ty1 v1, cast env tyop ty2 v2 with + | I n1, I n2 -> I (Int64.add n1 n2) + | F n1, F n2 -> F (n1 +. n2) + | _, _ -> raise Notconst + end else + raise Notconst + | Osub -> + if is_arith_type env ty1 && is_arith_type env ty2 then begin + match cast env tyop ty1 v1, cast env tyop ty2 v2 with + | I n1, I n2 -> I (Int64.sub n1 n2) + | F n1, F n2 -> F (n1 -. n2) + | _, _ -> raise Notconst + end else + raise Notconst + | Omul -> + begin match cast env tyop ty1 v1, cast env tyop ty2 v2 with + | I n1, I n2 -> I (Int64.mul n1 n2) + | F n1, F n2 -> F (n1 *. n2) + | _, _ -> raise Notconst + end + | Odiv -> + begin match cast env tyop ty1 v1, cast env tyop ty2 v2 with + | I n1, I n2 -> + if n2 = 0L then raise Notconst else + if is_signed env tyop then I (Int64.div n1 n2) + else I (int64_unsigned_div n1 n2) + | F n1, F n2 -> F (n1 /. n2) + | _, _ -> raise Notconst + end + | Omod -> + begin match v1, v2 with + | I n1, I n2 -> + if n2 = 0L then raise Notconst else + if is_signed env tyop then I (Int64.rem n1 n2) + else I (int64_unsigned_mod n1 n2) + | _, _ -> raise Notconst + end + | Oand -> + begin match v1, v2 with + | I n1, I n2 -> I (Int64.logand n1 n2) + | _, _ -> raise Notconst + end + | Oor -> + begin match v1, v2 with + | I n1, I n2 -> I (Int64.logor n1 n2) + | _, _ -> raise Notconst + end + | Oxor -> + begin match v1, v2 with + | I n1, I n2 -> I (Int64.logxor n1 n2) + | _, _ -> raise Notconst + end + | Oshl -> + begin match v1, v2 with + | I n1, I n2 when n2 >= 0L && n2 < 64L -> + I (Int64.shift_left n1 (Int64.to_int n2)) + | _, _ -> raise Notconst + end + | Oshr -> + begin match v1, v2 with + | I n1, I n2 when n2 >= 0L && n2 < 64L -> + if is_signed env tyop + then I (Int64.shift_right n1 (Int64.to_int n2)) + else I (Int64.shift_right_logical n1 (Int64.to_int n2)) + | _, _ -> raise Notconst + end + | Oeq -> + comparison env (=) (Some false) tyop ty1 v1 ty2 v2 + | One -> + comparison env (<>) (Some true) tyop ty1 v1 ty2 v2 + | Olt -> + comparison env (<) None tyop ty1 v1 ty2 v2 + | Ogt -> + comparison env (>) None tyop ty1 v1 ty2 v2 + | Ole -> + comparison env (<=) None tyop ty1 v1 ty2 v2 + | Oge -> + comparison env (>=) None tyop ty1 v1 ty2 v2 + | Ocomma -> + v2 + | Ologand -> + if boolean_value v1 + then if boolean_value v2 then I 1L else I 0L + else I 0L + | Ologor -> + if boolean_value v1 + then I 1L + else if boolean_value v2 then I 1L else I 0L + | _ -> raise Notconst + (* force normalization of result, e.g. of double to float *) + in cast env tyres tyres res + +let rec expr env e = + match e.edesc with + | EConst c -> + constant c + | ESizeof ty -> + begin match sizeof env ty with + | None -> raise Notconst + | Some n -> I(Int64.of_int n) + end + | EVar _ -> + raise Notconst + | EUnop(op, e1) -> + unop env op e.etyp e1.etyp (expr env e1) + | EBinop(op, e1, e2, ty) -> + binop env op ty e.etyp e1.etyp (expr env e1) e2.etyp (expr env e2) + | EConditional(e1, e2, e3) -> + if boolean_value (expr env e1) then expr env e2 else expr env e3 + | ECast(ty, e1) -> + cast env e1.etyp ty (expr env e1) + | ECall _ -> + raise Notconst + +let integer_expr env e = + try + match cast env e.etyp (TInt(ILongLong, [])) (expr env e) with + | I n -> Some n + | _ -> None + with Notconst -> None + +let constant_expr env ty e = + try + match unroll env ty, cast env e.etyp ty (expr env e) with + | TInt(ik, _), I n -> Some(CInt(n, ik, "")) + | TFloat(fk, _), F n -> Some(CFloat(n, fk, "")) + | TPtr(_, _), I 0L -> Some(CInt(0L, IInt, "")) + | TPtr(_, _), S s -> Some(CStr s) + | TPtr(_, _), WS s -> Some(CWStr s) + | _ -> None + with Notconst -> None diff --git a/cparser/Ceval.mli b/cparser/Ceval.mli new file mode 100644 index 0000000..c7f7aa8 --- /dev/null +++ b/cparser/Ceval.mli @@ -0,0 +1,17 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +val integer_expr : Env.t -> C.exp -> int64 option +val constant_expr : Env.t -> C.typ -> C.exp -> C.constant option diff --git a/cparser/Cleanup.ml b/cparser/Cleanup.ml new file mode 100644 index 0000000..be28989 --- /dev/null +++ b/cparser/Cleanup.ml @@ -0,0 +1,196 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Removing unused declarations *) + +open C +open Cutil + +(* The set of all identifiers referenced so far *) +let referenced = ref IdentSet.empty + +(* Record that a new identifier was added to this set *) +let ref_changed = ref false + +(* Record a reference to an identifier. If seen for the first time, + add it to worklist. *) + +let addref id = + if not (IdentSet.mem id !referenced) then begin +(* Printf.printf "Referenced: %s$%d\n" id.name id.stamp; *) + referenced := IdentSet.add id !referenced; + ref_changed := true + end + +let needed id = + IdentSet.mem id !referenced + +(* Iterate [addref] on all syntactic categories. *) + +let rec add_typ = function + | TPtr(ty, _) -> add_typ ty + | TArray(ty, _, _) -> add_typ ty + | TFun(res, None, _, _) -> add_typ res + | TFun(res, Some params, _, _) -> add_typ res; add_vars params + | TNamed(id, _) -> addref id + | TStruct(id, _) -> addref id + | TUnion(id, _) -> addref id + | _ -> () + +and add_vars vl = + List.iter (fun (id, ty) -> add_typ ty) vl + +let rec add_exp e = + add_typ e.etyp; (* perhaps not necessary but play it safe *) + match e.edesc with + | EConst (CEnum(id, v)) -> addref id + | EConst _ -> () + | ESizeof ty -> add_typ ty + | EVar id -> addref id + | EUnop(op, e1) -> add_exp e1 + | EBinop(op, e1, e2, ty) -> add_exp e1; add_exp e2 + | EConditional(e1, e2, e3) -> add_exp e1; add_exp e2; add_exp e3 + | ECast(ty, e1) -> add_typ ty; add_exp e1 + | ECall(e1, el) -> add_exp e1; List.iter add_exp el + +let rec add_init = function + | Init_single e -> add_exp e + | Init_array il -> List.iter add_init il + | Init_struct(id, il) -> addref id; List.iter (fun (_, i) -> add_init i) il + | Init_union(id, _, i) -> addref id; add_init i + +let add_decl (sto, id, ty, init) = + add_typ ty; + match init with None -> () | Some i -> add_init i + +let rec add_stmt s = + match s.sdesc with + | Sskip -> () + | Sdo e -> add_exp e + | Sseq(s1, s2) -> add_stmt s1; add_stmt s2 + | Sif(e, s1, s2) -> add_exp e; add_stmt s1; add_stmt s2 + | Swhile(e, s1) -> add_exp e; add_stmt s1 + | Sdowhile(s1, e) -> add_stmt s1; add_exp e + | Sfor(e1, e2, e3, s1) -> add_stmt e1; add_exp e2; add_stmt e3; add_stmt s1 + | Sbreak -> () + | Scontinue -> () + | Sswitch(e, s1) -> add_exp e; add_stmt s1 + | Slabeled(lbl, s) -> + begin match lbl with Scase e -> add_exp e | _ -> () end; + add_stmt s + | Sgoto lbl -> () + | Sreturn None -> () + | Sreturn(Some e) -> add_exp e + | Sblock sl -> List.iter add_stmt sl + | Sdecl d -> add_decl d + +let add_fundef f = + add_typ f.fd_ret; + add_vars f.fd_params; + List.iter add_decl f.fd_locals; + add_stmt f.fd_body + +let add_field f = add_typ f.fld_typ + +let add_enum e = + List.iter + (fun (id, opt_e) -> match opt_e with Some e -> add_exp e | None -> ()) + e + +(* Saturate the set of referenced identifiers, starting with externally + visible global declarations *) + +let visible_decl (sto, id, ty, init) = + sto = Storage_default && + match ty with TFun _ -> false | _ -> true + +let rec add_init_globdecls accu = function + | [] -> accu + | g :: rem -> + match g.gdesc with + | Gdecl decl when visible_decl decl -> + add_decl decl; add_init_globdecls accu rem + | Gfundef({fd_storage = Storage_default} as f) -> + add_fundef f; add_init_globdecls accu rem + | Gdecl _ | Gfundef _ | Gcompositedef _ | Gtypedef _ | Genumdef _ -> + (* Keep for later iterations *) + add_init_globdecls (g :: accu) rem + | Gcompositedecl _ | Gpragma _ -> + (* Discard, since these cannot introduce more references later *) + add_init_globdecls accu rem + +let rec add_needed_globdecls accu = function + | [] -> accu + | g :: rem -> + match g.gdesc with + | Gdecl((sto, id, ty, init) as decl) -> + if needed id + then (add_decl decl; add_needed_globdecls accu rem) + else add_needed_globdecls (g :: accu) rem + | Gfundef f -> + if needed f.fd_name + then (add_fundef f; add_needed_globdecls accu rem) + else add_needed_globdecls (g :: accu) rem + | Gcompositedef(_, id, flds) -> + if needed id + then (List.iter add_field flds; add_needed_globdecls accu rem) + else add_needed_globdecls (g :: accu) rem + | Gtypedef(id, ty) -> + if needed id + then (add_typ ty; add_needed_globdecls accu rem) + else add_needed_globdecls (g :: accu) rem + | Genumdef(id, enu) -> + if List.exists (fun (id, _) -> needed id) enu + then (add_enum enu; add_needed_globdecls accu rem) + else add_needed_globdecls (g :: accu) rem + | _ -> + assert false + +let saturate p = + let rec loop p = + if !ref_changed then begin + ref_changed := false; + loop (add_needed_globdecls [] p) + end in + ref_changed := false; + loop (add_init_globdecls [] p) + +(* Remove unreferenced definitions *) + +let rec simpl_globdecls accu = function + | [] -> accu + | g :: rem -> + let need = + match g.gdesc with + | Gdecl((sto, id, ty, init) as decl) -> visible_decl decl || needed id + | Gfundef f -> f.fd_storage = Storage_default || needed f.fd_name + | Gcompositedecl(_, id) -> needed id + | Gcompositedef(_, id, flds) -> needed id + | Gtypedef(id, ty) -> needed id + | Genumdef(id, enu) -> List.exists (fun (id, _) -> needed id) enu + | Gpragma s -> true in + if need + then simpl_globdecls (g :: accu) rem + else simpl_globdecls accu rem + +let program p = + referenced := IdentSet.empty; + saturate p; + let p' = simpl_globdecls [] p in + referenced := IdentSet.empty; + p' + + + diff --git a/cparser/Cleanup.mli b/cparser/Cleanup.mli new file mode 100644 index 0000000..818a51b --- /dev/null +++ b/cparser/Cleanup.mli @@ -0,0 +1,16 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +val program : C.program -> C.program diff --git a/cparser/Cprint.ml b/cparser/Cprint.ml new file mode 100644 index 0000000..7d8f2b3 --- /dev/null +++ b/cparser/Cprint.ml @@ -0,0 +1,492 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Pretty-printer for C abstract syntax *) + +open Format +open C + +let print_idents_in_full = ref false + +let print_line_numbers = ref false + +let location pp (file, lineno) = + if !print_line_numbers && lineno >= 0 then + fprintf pp "# %d \"%s\"@ " lineno file + +let ident pp i = + if !print_idents_in_full + then fprintf pp "%s$%d" i.name i.stamp + else fprintf pp "%s" i.name + +let attribute pp = function + | AConst -> fprintf pp "const" + | AVolatile -> fprintf pp "volatile" + | ARestrict -> fprintf pp "restrict" + +let attributes pp = function + | [] -> () + | al -> List.iter (fun a -> fprintf pp " %a" attribute a) al + +let name_of_ikind = function + | IBool -> "_Bool" + | IChar -> "char" + | ISChar -> "signed char" + | IUChar -> "unsigned char" + | IInt -> "int" + | IUInt -> "unsigned int" + | IShort -> "short" + | IUShort -> "unsigned short" + | ILong -> "long" + | IULong -> "unsigned long" + | ILongLong -> "long long" + | IULongLong -> "unsigned long long" + +let name_of_fkind = function + | FFloat -> "float" + | FDouble -> "double" + | FLongDouble -> "long double" + +let rec dcl pp ty n = + match ty with + | TVoid a -> + fprintf pp "void%a%t" attributes a n + | TInt(k, a) -> + fprintf pp "%s%a%t" (name_of_ikind k) attributes a n + | TFloat(k, a) -> + fprintf pp "%s%a%t" (name_of_fkind k) attributes a n + | TPtr(t, a) -> + let n' pp = + match t with + | TFun _ | TArray _ -> fprintf pp " (*%a%t)" attributes a n + | _ -> fprintf pp " *%a%t" attributes a n in + dcl pp t n' + | TArray(t, sz, a) -> + let n' pp = + begin match a with + | [] -> n pp + | _ -> fprintf pp " (%a%t)" attributes a n + end; + begin match sz with + | None -> fprintf pp "[]" + | Some i -> fprintf pp "[%Ld]" i + end in + dcl pp t n' + | TFun(tres, args, vararg, a) -> + let param (id, ty) = + dcl pp ty + (fun pp -> fprintf pp " %a" ident id) in + let n' pp = + begin match a with + | [] -> n pp + | _ -> fprintf pp " (%a%t)" attributes a n + end; + fprintf pp "(@["; + begin match args with + | None -> () + | Some [] -> if vararg then fprintf pp "..." else fprintf pp "void" + | Some (a1 :: al) -> + param a1; + List.iter (fun a -> fprintf pp ",@ "; param a) al; + if vararg then fprintf pp ",@ ..." + end; + fprintf pp "@])" in + dcl pp tres n' + | TNamed(id, a) -> + fprintf pp "%a%a%t" ident id attributes a n + | TStruct(id, a) -> + fprintf pp "struct %a%a%t" ident id attributes a n + | TUnion(id, a) -> + fprintf pp "union %a%a%t" ident id attributes a n + +let typ pp ty = + dcl pp ty (fun _ -> ()) + +let const pp = function + | CInt(v, ik, s) -> + if s <> "" then + fprintf pp "%s" s + else begin + fprintf pp "%Ld" v; + match ik with + | IULongLong -> fprintf pp "ULL" + | ILongLong -> fprintf pp "LL" + | IULong -> fprintf pp "UL" + | ILong -> fprintf pp "L" + | IUInt -> fprintf pp "U" + | _ -> () + end + | CFloat(v, fk, s) -> + if s <> "" then + fprintf pp "%s" s + else begin + fprintf pp "%.18g" v; + match fk with + | FFloat -> fprintf pp "F" + | FLongDouble -> fprintf pp "L" + | _ -> () + end + | CStr s -> + fprintf pp "\""; + for i = 0 to String.length s - 1 do + match s.[i] with + | '\009' -> fprintf pp "\\t" + | '\010' -> fprintf pp "\\n" + | '\013' -> fprintf pp "\\r" + | '\"' -> fprintf pp "\\\"" + | '\\' -> fprintf pp "\\\\" + | c -> + if c >= ' ' && c <= '~' + then fprintf pp "%c" c + else fprintf pp "\\%03o" (Char.code c) + done; + fprintf pp "\"" + | CWStr l -> + fprintf pp "L\""; + List.iter + (fun c -> + if c >= 32L && c <= 126L && c <> 34L && c <>92L + then fprintf pp "%c" (Char.chr (Int64.to_int c)) + else fprintf pp "\" \"\\x%02Lx\" \"" c) + l; + fprintf pp "\"" + | CEnum(id, v) -> + ident pp id + +type associativity = LtoR | RtoL | NA + +let precedence = function (* H&S section 7.2 *) + | EConst _ -> (16, NA) + | ESizeof _ -> (15, RtoL) + | EVar _ -> (16, NA) + | EBinop(Oindex, _, _, _) -> (16, LtoR) + | ECall _ -> (16, LtoR) + | EUnop((Odot _|Oarrow _), _) -> (16, LtoR) + | EUnop((Opostincr|Opostdecr), _) -> (16, LtoR) + | EUnop((Opreincr|Opredecr|Onot|Olognot|Ominus|Oplus|Oaddrof|Oderef), _) -> (15, RtoL) + | ECast _ -> (14, RtoL) + | EBinop((Omul|Odiv|Omod), _, _, _) -> (13, LtoR) + | EBinop((Oadd|Osub), _, _, _) -> (12, LtoR) + | EBinop((Oshl|Oshr), _, _, _) -> (11, LtoR) + | EBinop((Olt|Ogt|Ole|Oge), _, _, _) -> (10, LtoR) + | EBinop((Oeq|One), _, _, _) -> (9, LtoR) + | EBinop(Oand, _, _, _) -> (8, LtoR) + | EBinop(Oxor, _, _, _) -> (7, LtoR) + | EBinop(Oor, _, _, _) -> (6, LtoR) + | EBinop(Ologand, _, _, _) -> (5, LtoR) + | EBinop(Ologor, _, _, _) -> (4, LtoR) + | EConditional _ -> (3, RtoL) + | EBinop((Oassign|Oadd_assign|Osub_assign|Omul_assign|Odiv_assign|Omod_assign|Oand_assign|Oor_assign|Oxor_assign|Oshl_assign|Oshr_assign), _, _, _) -> (2, RtoL) + | EBinop(Ocomma, _, _, _) -> (1, LtoR) + +let rec exp pp (prec, a) = + let (prec', assoc) = precedence a.edesc in + let (prec1, prec2) = + if assoc = LtoR + then (prec', prec' + 1) + else (prec' + 1, prec') in + if prec' < prec + then fprintf pp "@[(" + else fprintf pp "@["; + begin match a.edesc with + | EConst cst -> const pp cst + | EVar id -> ident pp id + | ESizeof ty -> fprintf pp "sizeof(%a)" typ ty + | EUnop(Ominus, a1) -> + fprintf pp "-%a" exp (prec', a1) + | EUnop(Oplus, a1) -> + fprintf pp "+%a" exp (prec', a1) + | EUnop(Olognot, a1) -> + fprintf pp "!%a" exp (prec', a1) + | EUnop(Onot, a1) -> + fprintf pp "~%a" exp (prec', a1) + | EUnop(Oderef, a1) -> + fprintf pp "*%a" exp (prec', a1) + | EUnop(Oaddrof, a1) -> + fprintf pp "&%a" exp (prec', a1) + | EUnop(Opreincr, a1) -> + fprintf pp "++%a" exp (prec', a1) + | EUnop(Opredecr, a1) -> + fprintf pp "--%a" exp (prec', a1) + | EUnop(Opostincr, a1) -> + fprintf pp "%a++" exp (prec', a1) + | EUnop(Opostdecr, a1) -> + fprintf pp "%a--" exp (prec', a1) + | EUnop(Odot s, a1) -> + fprintf pp "%a.%s" exp (prec', a1)s + | EUnop(Oarrow s, a1) -> + fprintf pp "%a->%s" exp (prec', a1)s + | EBinop(Oadd, a1, a2, _) -> + fprintf pp "%a@ + %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Osub, a1, a2, _) -> + fprintf pp "%a@ - %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Omul, a1, a2, _) -> + fprintf pp "%a@ * %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Odiv, a1, a2, _) -> + fprintf pp "%a@ / %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Omod, a1, a2, _) -> + fprintf pp "%a@ %% %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oand, a1, a2, _) -> + fprintf pp "%a@ & %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oor, a1, a2, _) -> + fprintf pp "%a@ | %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oxor, a1, a2, _) -> + fprintf pp "%a@ ^ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oshl, a1, a2, _) -> + fprintf pp "%a@ << %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oshr, a1, a2, _) -> + fprintf pp "%a@ >> %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oeq, a1, a2, _) -> + fprintf pp "%a@ == %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(One, a1, a2, _) -> + fprintf pp "%a@ != %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Olt, a1, a2, _) -> + fprintf pp "%a@ < %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Ogt, a1, a2, _) -> + fprintf pp "%a@ > %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Ole, a1, a2, _) -> + fprintf pp "%a@ <= %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oge, a1, a2, _) -> + fprintf pp "%a@ >= %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oindex, a1, a2, _) -> + fprintf pp "%a[%a]" exp (prec1, a1) exp (0, a2) + | EBinop(Oassign, a1, a2, _) -> + fprintf pp "%a =@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oadd_assign, a1, a2, _) -> + fprintf pp "%a +=@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Osub_assign, a1, a2, _) -> + fprintf pp "%a -=@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Omul_assign, a1, a2, _) -> + fprintf pp "%a *=@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Odiv_assign, a1, a2, _) -> + fprintf pp "%a /=@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Omod_assign, a1, a2, _) -> + fprintf pp "%a %%=@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oand_assign, a1, a2, _) -> + fprintf pp "%a &=@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oor_assign, a1, a2, _) -> + fprintf pp "%a |=@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oxor_assign, a1, a2, _) -> + fprintf pp "%a ^=@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oshl_assign, a1, a2, _) -> + fprintf pp "%a <<=@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Oshr_assign, a1, a2, _) -> + fprintf pp "%a >>=@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Ocomma, a1, a2, _) -> + fprintf pp "%a,@ %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Ologand, a1, a2, _) -> + fprintf pp "%a@ && %a" exp (prec1, a1) exp (prec2, a2) + | EBinop(Ologor, a1, a2, _) -> + fprintf pp "%a@ || %a" exp (prec1, a1) exp (prec2, a2) + | EConditional(a1, a2, a3) -> + fprintf pp "%a@ ? %a@ : %a" exp (4, a1) exp (4, a2) exp (4, a3) + | ECast(ty, a1) -> + fprintf pp "(%a) %a" typ ty exp (prec', a1) + | ECall({edesc = EVar {name = "__builtin_va_start"}}, + [a1; {edesc = EUnop(Oaddrof, a2)}]) -> + fprintf pp "__builtin_va_start@[(%a,@ %a)@]" + exp (2, a1) exp (2, a2) + | ECall({edesc = EVar {name = "__builtin_va_arg"}}, + [a1; {edesc = ESizeof ty}]) -> + fprintf pp "__builtin_va_arg@[(%a,@ %a)@]" + exp (2, a1) typ ty + | ECall(a1, al) -> + fprintf pp "%a@[(" exp (prec', a1); + begin match al with + | [] -> () + | a1 :: al -> + fprintf pp "%a" exp (2, a1); + List.iter (fun a -> fprintf pp ",@ %a" exp (2, a)) al + end; + fprintf pp ")@]" + end; + if prec' < prec then fprintf pp ")@]" else fprintf pp "@]" + +let rec init pp = function + | Init_single e -> + exp pp (2, e) + | Init_array il -> + fprintf pp "@[{"; + List.iter (fun i -> fprintf pp "%a,@ " init i) il; + fprintf pp "}@]" + | Init_struct(id, il) -> + fprintf pp "@[{"; + List.iter (fun (fld, i) -> fprintf pp "%a,@ " init i) il; + fprintf pp "}@]" + | Init_union(id, fld, i) -> + fprintf pp "@[{%a}@]" init i + +let simple_decl pp (id, ty) = + dcl pp ty (fun pp -> fprintf pp " %a" ident id) + +let storage pp = function + | Storage_default -> () + | Storage_extern -> fprintf pp "extern " + | Storage_static -> fprintf pp "static " + | Storage_register -> fprintf pp "register " + +let full_decl pp (sto, id, ty, int) = + fprintf pp "@[%a" storage sto; + dcl pp ty (fun pp -> fprintf pp " %a" ident id); + begin match int with + | None -> () + | Some i -> fprintf pp " =@ %a" init i + end; + fprintf pp ";@]" + +exception Not_expr + +let rec exp_of_stmt s = + match s.sdesc with + | Sdo e -> e + | Sseq(s1, s2) -> + {edesc = EBinop(Ocomma, exp_of_stmt s1, exp_of_stmt s2, TVoid []); + etyp = TVoid []} + | Sif(e, s1, s2) -> + {edesc = EConditional(e, exp_of_stmt s1, exp_of_stmt s2); + etyp = TVoid []} + | _ -> + raise Not_expr + +let rec stmt pp s = + location pp s.sloc; + match s.sdesc with + | Sskip -> + fprintf pp "/*skip*/;" + | Sdo e -> + fprintf pp "%a;" exp (0, e) + | Sseq(s1, s2) -> + fprintf pp "%a@ %a" stmt s1 stmt s2 + | Sif(e, s1, {sdesc = Sskip}) -> + fprintf pp "@[if (%a) {@ %a@;<0 -2>}@]" + exp (0, e) stmt_block s1 + | Sif(e, {sdesc = Sskip}, s2) -> + let not_e = {edesc = EUnop(Olognot, e); etyp = TInt(IInt, [])} in + fprintf pp "@[if (%a) {@ %a@;<0 -2>}@]" + exp (0, not_e) stmt_block s2 + | Sif(e, s1, s2) -> + fprintf pp "@[if (%a) {@ %a@;<0 -2>} else {@ %a@;<0 -2>}@]" + exp (0, e) stmt_block s1 stmt_block s2 + | Swhile(e, s1) -> + fprintf pp "@[while (%a) {@ %a@;<0 -2>}@]" + exp (0, e) stmt_block s1 + | Sdowhile(s1, e) -> + fprintf pp "@[do {@ %a@;<0 -2>} while(%a);@]" + stmt_block s1 exp (0, e) + | Sfor(e1, e2, e3, s1) -> + fprintf pp "@[for (@[%a;@ %a;@ %a) {@]@ %a@;<0 -2>}@]" + opt_exp e1 + exp (0, e2) + opt_exp e3 + stmt_block s1 + | Sbreak -> + fprintf pp "break;" + | Scontinue -> + fprintf pp "continue;" + | Sswitch(e, s1) -> + fprintf pp "@[switch (%a) {@ %a@;<0 -2>}@]" + exp (0, e) + stmt_block s1 + | Slabeled(lbl, s1) -> + fprintf pp "%a:@ %a" slabel lbl stmt s1 + | Sgoto lbl -> + fprintf pp "goto %s;" lbl + | Sreturn None -> + fprintf pp "return;" + | Sreturn (Some e) -> + fprintf pp "return %a;" exp (0, e) + | Sblock sl -> + fprintf pp "@[{@ %a@;<0 -2>}@]" stmt_block s + | Sdecl d -> + full_decl pp d + +and slabel pp = function + | Slabel s -> + fprintf pp "%s" s + | Scase e -> + fprintf pp "case %a" exp (0, e) + | Sdefault -> + fprintf pp "default" + +and stmt_block pp s = + match s.sdesc with + | Sblock [] -> () + | Sblock (s1 :: sl) -> + stmt pp s1; + List.iter (fun s -> fprintf pp "@ %a" stmt s) sl + | _ -> + stmt pp s + +and opt_exp pp s = + if s.sdesc = Sskip then fprintf pp "/*nothing*/" else + try + exp pp (0, exp_of_stmt s) + with Not_expr -> + fprintf pp "@[({ %a })@]" stmt s + +let fundef pp f = + fprintf pp "@[%s%a" + (if f.fd_inline then "inline " else "") + storage f.fd_storage; + simple_decl pp (f.fd_name, TFun(f.fd_ret, Some f.fd_params, f.fd_vararg, [])); + fprintf pp "@]@ @[{@ "; + List.iter (fun d -> fprintf pp "%a@ " full_decl d) f.fd_locals; + stmt_block pp f.fd_body; + fprintf pp "@;<0 -2>}@]@ @ " + +let field pp f = + simple_decl pp ({name = f.fld_name; stamp = 0}, f.fld_typ); + match f.fld_bitfield with + | None -> () + | Some n -> fprintf pp " : %d" n + +let globdecl pp g = + location pp g.gloc; + match g.gdesc with + | Gdecl d -> + fprintf pp "%a@ @ " full_decl d + | Gfundef f -> + fundef pp f + | Gcompositedecl(kind, id) -> + fprintf pp "%s %a;@ @ " + (match kind with Struct -> "struct" | Union -> "union") + ident id + | Gcompositedef(kind, id, flds) -> + fprintf pp "@[%s %a {" + (match kind with Struct -> "struct" | Union -> "union") + ident id; + List.iter (fun fld -> fprintf pp "@ %a;" field fld) flds; + fprintf pp "@;<0 -2>};@]@ @ " + | Gtypedef(id, ty) -> + fprintf pp "@[typedef %a;@]@ @ " simple_decl (id, ty) + | Genumdef(id, fields) -> + fprintf pp "@[enum %a {" ident id; + List.iter + (fun (name, opt_e) -> + fprintf pp "@ %a" ident name; + begin match opt_e with + | None -> () + | Some e -> fprintf pp " = %a" exp (0, e) + end; + fprintf pp ",") + fields; + fprintf pp "@;<0 -2>};@]@ @ " + | Gpragma s -> + fprintf pp "#pragma %s@ @ " s + +let program pp prog = + fprintf pp "@["; + List.iter (globdecl pp) prog; + fprintf pp "@]@." diff --git a/cparser/Cprint.mli b/cparser/Cprint.mli new file mode 100644 index 0000000..ce5fb18 --- /dev/null +++ b/cparser/Cprint.mli @@ -0,0 +1,32 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +val print_idents_in_full : bool ref +val print_line_numbers : bool ref + +val location : Format.formatter -> C.location -> unit +val typ : Format.formatter -> C.typ -> unit +val simple_decl : Format.formatter -> C.ident * C.typ -> unit +val full_decl: Format.formatter -> C.decl -> unit +val const : Format.formatter -> C.constant -> unit +val exp : Format.formatter -> int * C.exp -> unit +val opt_exp : Format.formatter -> C.stmt -> unit +val stmt : Format.formatter -> C.stmt -> unit +val fundef : Format.formatter -> C.fundef -> unit +val init : Format.formatter -> C.init -> unit +val storage : Format.formatter -> C.storage -> unit +val field : Format.formatter -> C.field -> unit +val globdecl : Format.formatter -> C.globdecl -> unit +val program : Format.formatter -> C.program -> unit diff --git a/cparser/Cutil.ml b/cparser/Cutil.ml new file mode 100644 index 0000000..49b25a2 --- /dev/null +++ b/cparser/Cutil.ml @@ -0,0 +1,691 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Operations on C types and abstract syntax *) + +open Printf +open Errors +open C +open Env +open Machine + +(* Set and Map structures over identifiers *) + +module Ident = struct + type t = ident + let compare id1 id2 = Pervasives.compare id1.stamp id2.stamp +end + +module IdentSet = Set.Make(Ident) +module IdentMap = Map.Make(Ident) + +(* Operations on attributes *) + +(* Lists of attributes are kept sorted in increasing order *) + +let rec add_attributes (al1: attributes) (al2: attributes) = + match al1, al2 with + | [], _ -> al2 + | _, [] -> al1 + | a1 :: al1', a2 :: al2' -> + if a1 < a2 then a1 :: add_attributes al1' al2 + else if a1 > a2 then a2 :: add_attributes al1 al2' + else a1 :: add_attributes al1' al2' + +let rec remove_attributes (al1: attributes) (al2: attributes) = + (* viewed as sets: al1 \ al2 *) + match al1, al2 with + | [], _ -> [] + | _, [] -> al1 + | a1 :: al1', a2 :: al2' -> + if a1 < a2 then a1 :: remove_attributes al1' al2 + else if a1 > a2 then remove_attributes al1 al2' + else remove_attributes al1' al2' + +let rec incl_attributes (al1: attributes) (al2: attributes) = + match al1, al2 with + | [], _ -> true + | _ :: _, [] -> false + | a1 :: al1', a2 :: al2' -> + if a1 < a2 then false + else if a1 > a2 then incl_attributes al1 al2' + else incl_attributes al1' al2' + +(* Adding top-level attributes to a type. Doesn't need to unroll defns. *) +(* Array types cannot carry attributes, so add them to the element type. *) + +let rec add_attributes_type attr t = + match t with + | TVoid a -> TVoid (add_attributes attr a) + | TInt(ik, a) -> TInt(ik, add_attributes attr a) + | TFloat(fk, a) -> TFloat(fk, add_attributes attr a) + | TPtr(ty, a) -> TPtr(ty, add_attributes attr a) + | TArray(ty, sz, a) -> TArray(add_attributes_type attr ty, sz, a) + | TFun(ty, params, vararg, a) -> TFun(ty, params, vararg, add_attributes attr +a) + | TNamed(s, a) -> TNamed(s, add_attributes attr a) + | TStruct(s, a) -> TStruct(s, add_attributes attr a) + | TUnion(s, a) -> TUnion(s, add_attributes attr a) + +(* Unrolling of typedef *) + +let rec unroll env t = + match t with + | TNamed(name, attr) -> + let ty = Env.find_typedef env name in + unroll env (add_attributes_type attr ty) + | _ -> t + +(* Extracting the attributes of a type *) + +let rec attributes_of_type env t = + match t with + | TVoid a -> a + | TInt(ik, a) -> a + | TFloat(fk, a) -> a + | TPtr(ty, a) -> a + | TArray(ty, sz, a) -> a (* correct? *) + | TFun(ty, params, vararg, a) -> a + | TNamed(s, a) -> attributes_of_type env (unroll env t) + | TStruct(s, a) -> a + | TUnion(s, a) -> a + +(* Changing the attributes of a type (at top-level) *) +(* Same hack as above for array types. *) + +let rec change_attributes_type env (f: attributes -> attributes) t = + match t with + | TVoid a -> TVoid (f a) + | TInt(ik, a) -> TInt(ik, f a) + | TFloat(fk, a) -> TFloat(fk, f a) + | TPtr(ty, a) -> TPtr(ty, f a) + | TArray(ty, sz, a) -> + TArray(change_attributes_type env f ty, sz, a) + | TFun(ty, params, vararg, a) -> TFun(ty, params, vararg, f a) + | TNamed(s, a) -> + let t1 = unroll env t in + let t2 = change_attributes_type env f t1 in + if t2 = t1 then t else t2 (* avoid useless expansion *) + | TStruct(s, a) -> TStruct(s, f a) + | TUnion(s, a) -> TUnion(s, f a) + +let remove_attributes_type env attr t = + change_attributes_type env (fun a -> remove_attributes a attr) t + +let erase_attributes_type env t = + change_attributes_type env (fun a -> []) t + +(* Type compatibility *) + +exception Incompat + +let combine_types ?(noattrs = false) env t1 t2 = + + let comp_attr a1 a2 = + if a1 = a2 then a2 + else if noattrs then add_attributes a1 a2 + else raise Incompat + and comp_base x1 x2 = + if x1 = x2 then x2 else raise Incompat + and comp_array_size sz1 sz2 = + match sz1, sz2 with + | None, _ -> sz2 + | _, None -> sz1 + | Some n1, Some n2 -> if n1 = n2 then Some n2 else raise Incompat + and comp_conv (id, ty) = + match unroll env ty with + | TInt(kind, attr) -> + begin match kind with + | IBool | IChar | ISChar | IUChar | IShort | IUShort -> raise Incompat + | _ -> () + end + | TFloat(kind, attr) -> + begin match kind with + | FFloat -> raise Incompat + | _ -> () + end + | _ -> () in + + let rec comp t1 t2 = + match t1, t2 with + | TVoid a1, TVoid a2 -> + TVoid(comp_attr a1 a2) + | TInt(ik1, a1), TInt(ik2, a2) -> + TInt(comp_base ik1 ik2, comp_attr a1 a2) + | TFloat(fk1, a1), TFloat(fk2, a2) -> + TFloat(comp_base fk1 fk2, comp_attr a1 a2) + | TPtr(ty1, a1), TPtr(ty2, a2) -> + TPtr(comp ty1 ty2, comp_attr a1 a2) + | TArray(ty1, sz1, a1), TArray(ty2, sz2, a2) -> + TArray(comp ty1 ty2, comp_array_size sz1 sz2, comp_attr a1 a2) + | TFun(ty1, params1, vararg1, a1), TFun(ty2, params2, vararg2, a2) -> + let (params, vararg) = + match params1, params2 with + | None, None -> None, false + | None, Some l2 -> List.iter comp_conv l2; (params2, vararg2) + | Some l1, None -> List.iter comp_conv l1; (params1, vararg1) + | Some l1, Some l2 -> + if List.length l1 <> List.length l2 then raise Incompat; + (Some(List.map2 (fun (id1, ty1) (id2, ty2) -> (id2, comp ty1 ty2)) + l1 l2), + comp_base vararg1 vararg2) + in + TFun(comp ty1 ty2, params, vararg, comp_attr a1 a2) + | TNamed _, _ -> comp (unroll env t1) t2 + | _, TNamed _ -> comp t1 (unroll env t2) + | TStruct(s1, a1), TStruct(s2, a2) -> + TStruct(comp_base s1 s2, comp_attr a1 a2) + | TUnion(s1, a1), TUnion(s2, a2) -> + TUnion(comp_base s1 s2, comp_attr a1 a2) + | _, _ -> + raise Incompat + + in try Some(comp t1 t2) with Incompat -> None + +let compatible_types ?noattrs env t1 t2 = + match combine_types ?noattrs env t1 t2 with Some _ -> true | None -> false + +(* Naive placement algorithm for bit fields, might not match that + of the compiler. *) + +let pack_bitfields ml = + let rec pack nbits = function + | [] -> + (nbits, []) + | m :: ms as ml -> + match m.fld_bitfield with + | None -> (nbits, ml) + | Some n -> + if n = 0 then + (nbits, ms) (* bit width 0 means end of pack *) + else if nbits + n > 8 * !config.sizeof_int then + (nbits, ml) (* doesn't fit in current word *) + else + pack (nbits + n) ms (* add to current word *) + in + let (nbits, ml') = pack 0 ml in + let sz = + if nbits <= 8 then 1 else + if nbits <= 16 then 2 else + if nbits <= 32 then 4 else + if nbits <= 64 then 8 else assert false in + (sz, ml') + +(* Natural alignment, in bytes *) + +let alignof_ikind = function + | IBool | IChar | ISChar | IUChar -> 1 + | IInt | IUInt -> !config.alignof_int + | IShort | IUShort -> !config.alignof_short + | ILong | IULong -> !config.alignof_long + | ILongLong | IULongLong -> !config.alignof_longlong + +let alignof_fkind = function + | FFloat -> !config.alignof_float + | FDouble -> !config.alignof_double + | FLongDouble -> !config.alignof_longdouble + +(* Return natural alignment of given type, or None if the type is incomplete *) + +let rec alignof env t = + match t with + | TVoid _ -> !config.alignof_void + | TInt(ik, _) -> Some(alignof_ikind ik) + | TFloat(fk, _) -> Some(alignof_fkind fk) + | TPtr(_, _) -> Some(!config.alignof_ptr) + | TArray(ty, _, _) -> alignof env ty + | TFun(_, _, _, _) -> !config.alignof_fun + | TNamed(_, _) -> alignof env (unroll env t) + | TStruct(name, _) -> + let ci = Env.find_struct env name in ci.ci_alignof + | TUnion(name, _) -> + let ci = Env.find_union env name in ci.ci_alignof + +(* Compute the natural alignment of a struct or union. *) + +let alignof_struct_union env members = + let rec align_rec al = function + | [] -> Some al + | m :: rem as ml -> + if m.fld_bitfield = None then begin + match alignof env m.fld_typ with + | None -> None + | Some a -> align_rec (max a al) rem + end else begin + let (sz, ml') = pack_bitfields ml in + align_rec (max sz al) ml' + end + in align_rec 1 members + +let align x boundary = + (* boundary must be a power of 2 *) + (x + boundary - 1) land (lnot (boundary - 1)) + +(* Size of, in bytes *) + +let sizeof_ikind = function + | IBool | IChar | ISChar | IUChar -> 1 + | IInt | IUInt -> !config.sizeof_int + | IShort | IUShort -> !config.sizeof_short + | ILong | IULong -> !config.sizeof_long + | ILongLong | IULongLong -> !config.sizeof_longlong + +let sizeof_fkind = function + | FFloat -> !config.sizeof_float + | FDouble -> !config.sizeof_double + | FLongDouble -> !config.sizeof_longdouble + +(* Overflow-avoiding multiplication of an int64 and an int, with + result in type int. *) + +let cautious_mul (a: int64) (b: int) = + if b = 0 || a <= Int64.of_int (max_int / b) + then Some(Int64.to_int a * b) + else None + +(* Return size of type, in bytes, or [None] if the type is incomplete *) + +let rec sizeof env t = + match t with + | TVoid _ -> !config.sizeof_void + | TInt(ik, _) -> Some(sizeof_ikind ik) + | TFloat(fk, _) -> Some(sizeof_fkind fk) + | TPtr(_, _) -> Some(!config.sizeof_ptr) + | TArray(ty, None, _) -> None + | TArray(ty, Some n, _) as t' -> + begin match sizeof env ty with + | None -> None + | Some s -> + match cautious_mul n s with + | Some sz -> Some sz + | None -> error "sizeof(%a) overflows" Cprint.typ t'; Some 1 + end + | TFun(_, _, _, _) -> !config.sizeof_fun + | TNamed(_, _) -> sizeof env (unroll env t) + | TStruct(name, _) -> + let ci = Env.find_struct env name in ci.ci_sizeof + | TUnion(name, _) -> + let ci = Env.find_union env name in ci.ci_sizeof + +(* Compute the size of a union. + It is the size is the max of the sizes of fields, rounded up to the + natural alignment. *) + +let sizeof_union env members = + let rec sizeof_rec sz = function + | [] -> + begin match alignof_struct_union env members with + | None -> None (* should not happen? *) + | Some al -> Some (align sz al) + end + | m :: rem -> + begin match sizeof env m.fld_typ with + | None -> None + | Some s -> sizeof_rec (max sz s) rem + end + in sizeof_rec 0 members + +(* Compute the size of a struct. + We lay out fields consecutively, inserting padding to preserve + their natural alignment. *) + +let sizeof_struct env members = + let rec sizeof_rec ofs = function + | [] | [ { fld_typ = TArray(_, None, _) } ] -> + (* C99: ty[] allowed as last field *) + begin match alignof_struct_union env members with + | None -> None (* should not happen? *) + | Some al -> Some (align ofs al) + end + | m :: rem as ml -> + if m.fld_bitfield = None then begin + match alignof env m.fld_typ, sizeof env m.fld_typ with + | Some a, Some s -> sizeof_rec (align ofs a + s) rem + | _, _ -> None + end else begin + let (sz, ml') = pack_bitfields ml in + sizeof_rec (align ofs sz + sz) ml' + end + in sizeof_rec 0 members + +(* Determine whether a type is incomplete *) + +let incomplete_type env t = + match sizeof env t with None -> true | Some _ -> false + +(* Computing composite_info records *) + +let composite_info_decl env su = + { ci_kind = su; ci_members = []; ci_alignof = None; ci_sizeof = None } + +let composite_info_def env su m = + { ci_kind = su; ci_members = m; + ci_alignof = alignof_struct_union env m; + ci_sizeof = + match su with + | Struct -> sizeof_struct env m + | Union -> sizeof_union env m } + +(* Type of a function definition *) + +let fundef_typ fd = + TFun(fd.fd_ret, Some fd.fd_params, fd.fd_vararg, []) + +(* Signedness of integer kinds *) + +let is_signed_ikind = function + | IBool -> false + | IChar -> !config.char_signed + | ISChar -> true + | IUChar -> false + | IInt -> true + | IUInt -> false + | IShort -> true + | IUShort -> false + | ILong -> true + | IULong -> false + | ILongLong -> true + | IULongLong -> false + +(* Conversion to unsigned ikind *) + +let unsigned_ikind_of = function + | IBool -> IBool + | IChar | ISChar | IUChar -> IUChar + | IInt | IUInt -> IUInt + | IShort | IUShort -> IUShort + | ILong | IULong -> IULong + | ILongLong | IULongLong -> IULongLong + +(* Some classification functions over types *) + +let is_void_type env t = + match unroll env t with + | TVoid _ -> true + | _ -> false + +let is_integer_type env t = + match unroll env t with + | TInt(_, _) -> true + | _ -> false + +let is_arith_type env t = + match unroll env t with + | TInt(_, _) -> true + | TFloat(_, _) -> true + | _ -> false + +let is_pointer_type env t = + match unroll env t with + | TPtr _ -> true + | _ -> false + +let is_scalar_type env t = + match unroll env t with + | TInt(_, _) -> true + | TFloat(_, _) -> true + | TPtr _ -> true + | TArray _ -> true (* assume implicit decay *) + | TFun _ -> true (* assume implicit decay *) + | _ -> false + +let is_composite_type env t = + match unroll env t with + | TStruct _ | TUnion _ -> true + | _ -> false + +let is_function_type env t = + match unroll env t with + | TFun _ -> true + | _ -> false + +(* Ranking of integer kinds *) + +let integer_rank = function + | IBool -> 1 + | IChar | ISChar | IUChar -> 2 + | IShort | IUShort -> 3 + | IInt | IUInt -> 4 + | ILong | IULong -> 5 + | ILongLong | IULongLong -> 6 + +(* Ranking of float kinds *) + +let float_rank = function + | FFloat -> 1 + | FDouble -> 2 + | FLongDouble -> 3 + +(* Array and function types "decay" to pointer types in many cases *) + +let pointer_decay env t = + match unroll env t with + | TArray(ty, _, _) -> TPtr(ty, []) + | TFun _ as ty -> TPtr(ty, []) + | t -> t + +(* The usual unary conversions (H&S 6.3.3) *) + +let unary_conversion env t = + match unroll env t with + (* Promotion of small integer types *) + | TInt(kind, attr) -> + begin match kind with + | IBool | IChar | ISChar | IUChar | IShort | IUShort -> + TInt(IInt, attr) + | IInt | IUInt | ILong | IULong | ILongLong | IULongLong -> + TInt(kind, attr) + end + (* Arrays and functions decay automatically to pointers *) + | TArray(ty, _, _) -> TPtr(ty, []) + | TFun _ as ty -> TPtr(ty, []) + (* Other types are not changed *) + | t -> t + +(* The usual binary conversions (H&S 6.3.4). + Applies only to arithmetic types. + Return the type to which both sides are to be converted. *) + +let binary_conversion env t1 t2 = + let t1 = unary_conversion env t1 in + let t2 = unary_conversion env t2 in + match unroll env t1, unroll env t2 with + | TFloat(FLongDouble, _), (TInt _ | TFloat _) -> t1 + | (TInt _ | TFloat _), TFloat(FLongDouble, _) -> t2 + | TFloat(FDouble, _), (TInt _ | TFloat _) -> t1 + | (TInt _ | TFloat _), TFloat(FDouble, _) -> t2 + | TFloat(FFloat, _), (TInt _ | TFloat _) -> t1 + | (TInt _), TFloat(FFloat, _) -> t2 + | TInt(k1, _), TInt(k2, _) -> + if k1 = k2 then t1 else begin + match is_signed_ikind k1, is_signed_ikind k2 with + | true, true | false, false -> + (* take the bigger of the two types *) + if integer_rank k1 >= integer_rank k2 then t1 else t2 + | false, true -> + (* if rank (unsigned type) >= rank (signed type), + take the unsigned type *) + if integer_rank k1 >= integer_rank k2 then t1 + (* if rank (unsigned type) < rank (signed type) + and all values of the unsigned type can be represented + in the signed type, take the signed type *) + else if sizeof_ikind k2 > sizeof_ikind k1 then t2 + (* if rank (unsigned type) < rank (signed type) + and some values of the unsigned type cannot be represented + in the signed type, + take the unsigned type corresponding to the signed type *) + else TInt(unsigned_ikind_of k2, []) + | true, false -> + if integer_rank k2 >= integer_rank k1 then t2 + else if sizeof_ikind k1 > sizeof_ikind k2 then t1 + else TInt(unsigned_ikind_of k1, []) + end + | _, _ -> assert false + +(* Conversion on function arguments (with protoypes) *) + +let argument_conversion env t = + (* Arrays and functions degrade automatically to pointers *) + (* Other types are not changed *) + match unroll env t with + | TArray(ty, _, _) -> TPtr(ty, []) + | TFun _ as ty -> TPtr(ty, []) + | _ -> t (* preserve typedefs *) + +(* Conversion on function arguments (old-style unprototyped, or vararg *) +(* H&S 6.3.5 *) + +let default_argument_conversion env t = + match unary_conversion env t with + | TFloat(FFloat, attr) -> TFloat(FDouble, attr) + | t' -> t' + +(** Is the type Tptr(ty, a) appropriate for pointer arithmetic? *) + +let pointer_arithmetic_ok env ty = + match unroll env ty with + | TVoid _ | TFun _ -> false + | _ -> not (incomplete_type env ty) + +(** Special types *) + +let find_matching_unsigned_ikind sz = + if sz = !config.sizeof_int then IUInt + else if sz = !config.sizeof_long then IULong + else if sz = !config.sizeof_longlong then IULongLong + else assert false + +let find_matching_signed_ikind sz = + if sz = !config.sizeof_int then IInt + else if sz = !config.sizeof_long then ILong + else if sz = !config.sizeof_longlong then ILongLong + else assert false + +let wchar_ikind = find_matching_unsigned_ikind !config.sizeof_wchar +let size_t_ikind = find_matching_unsigned_ikind !config.sizeof_size_t +let ptr_t_ikind = find_matching_unsigned_ikind !config.sizeof_ptr +let ptrdiff_t_ikind = find_matching_signed_ikind !config.sizeof_ptrdiff_t +let enum_ikind = IInt + +(** The type of a constant *) + +let type_of_constant = function + | CInt(_, ik, _) -> TInt(ik, []) + | CFloat(_, fk, _) -> TFloat(fk, []) + | CStr _ -> TPtr(TInt(IChar, []), []) (* XXX or array? const? *) + | CWStr _ -> TPtr(TInt(wchar_ikind, []), []) (* XXX or array? const? *) + | CEnum(_, _) -> TInt(IInt, []) + +(* Check that a C expression is a lvalue *) + +let rec is_lvalue env e = + (* Type must not be array or function *) + match unroll env e.etyp with + | TFun _ | TArray _ -> false + | _ -> + match e.edesc with + | EVar id -> true + | EUnop((Oderef | Oarrow _), _) -> true + | EUnop(Odot _, e') -> is_lvalue env e' + | EBinop(Oindex, _, _, _) -> true + | _ -> false + +(* Check that a C expression is the literal "0", which can be used + as a pointer. *) + +let is_literal_0 e = + match e.edesc with + | EConst(CInt(0L, _, _)) -> true + | _ -> false + +(* Check that an assignment is allowed *) + +let valid_assignment env from tto = + match pointer_decay env from.etyp, pointer_decay env tto with + | (TInt _ | TFloat _), (TInt _ | TFloat _) -> true + | TInt _, TPtr _ -> is_literal_0 from + | TPtr(ty, _), TPtr(ty', _) -> + incl_attributes (attributes_of_type env ty) (attributes_of_type env ty') + && (is_void_type env ty || is_void_type env ty' + || compatible_types env + (erase_attributes_type env ty) + (erase_attributes_type env ty')) + | TStruct(s, _), TStruct(s', _) -> s = s' + | TUnion(s, _), TUnion(s', _) -> s = s' + | _, _ -> false + +(* Check that a cast is allowed *) + +let valid_cast env tfrom tto = + compatible_types ~noattrs:true env tfrom tto || + begin match unroll env tfrom, unroll env tto with + | _, TVoid _ -> true + (* from any int-or-pointer (with array and functions decaying to pointers) + to any int-or-pointer *) + | (TInt _ | TPtr _ | TArray _ | TFun _), (TInt _ | TPtr _) -> true + (* between int and float types *) + | (TInt _ | TFloat _), (TInt _ | TFloat _) -> true + | _, _ -> false + end + +(* Construct an integer constant *) + +let intconst v ik = + { edesc = EConst(CInt(v, ik, "")); etyp = TInt(ik, []) } + +(* Construct a float constant *) + +let floatconst v fk = + { edesc = EConst(CFloat(v, fk, "")); etyp = TFloat(fk, []) } + +(* Construct the literal "0" with void * type *) + +let nullconst = + { edesc = EConst(CInt(0L, ptr_t_ikind, "0")); etyp = TPtr(TVoid [], []) } + +(* Construct a sequence *) + +let sseq loc s1 s2 = + match s1.sdesc, s2.sdesc with + | Sskip, _ -> s2 + | _, Sskip -> s1 + | _, Sblock sl -> { sdesc = Sblock(s1 :: sl); sloc = loc } + | _, _ -> { sdesc = Sseq(s1, s2); sloc = loc } + +(* Construct an assignment statement *) + +let sassign loc lv rv = + { sdesc = Sdo {edesc = EBinop(Oassign, lv, rv, lv.etyp); etyp = lv.etyp}; + sloc = loc } + +(* Empty location *) + +let no_loc = ("", -1) + +(* Dummy skip statement *) + +let sskip = { sdesc = Sskip; sloc = no_loc } + +(* Print a location *) + +let printloc oc (filename, lineno) = + if filename <> "" then Printf.fprintf oc "%s:%d: " filename lineno + +(* Format a location *) + +let formatloc pp (filename, lineno) = + if filename <> "" then Format.fprintf pp "%s:%d: " filename lineno + + diff --git a/cparser/Cutil.mli b/cparser/Cutil.mli new file mode 100644 index 0000000..9587c57 --- /dev/null +++ b/cparser/Cutil.mli @@ -0,0 +1,174 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Useful functions to manipulate C abstract syntax *) + +open C + +(* Sets and maps over identifiers *) +module IdentSet : Set.S with type elt = ident +module IdentMap : Map.S with type key = ident + +(* Typedef handling *) +val unroll : Env.t -> typ -> typ + (* Expand typedefs at head of type. Returned type is not [TNamed]. *) + +(* Attributes *) + +val add_attributes : attributes -> attributes -> attributes + (* Union of two sets of attributes *) +val remove_attributes : attributes -> attributes -> attributes + (* Difference [attr1 \ attr2] between two sets of attributes *) +val incl_attributes : attributes -> attributes -> bool + (* Check that first set of attributes is a subset of second set. *) +val attributes_of_type : Env.t -> typ -> attributes + (* Return the attributes of the given type, expanding typedefs if needed. *) +val add_attributes_type : attributes -> typ -> typ + (* Add the given set of attributes to those of the given type. *) +val remove_attributes_type : Env.t -> attributes -> typ -> typ + (* Remove the given set of attributes to those of the given type. *) +val erase_attributes_type : Env.t -> typ -> typ + (* Erase the attributes of the given type. *) + +(* Type compatibility *) +val compatible_types : ?noattrs: bool -> Env.t -> typ -> typ -> bool + (* Check that the two given types are compatible. + If [noattrs], ignore attributes (recursively). *) +val combine_types : ?noattrs: bool -> Env.t -> typ -> typ -> typ option + (* Like [compatible_types], but if the two types are compatible, + return the most precise type compatible with both. *) + +(* Size and alignment *) + +val sizeof : Env.t -> typ -> int option + (* Return the size alignment of the given type, in bytes. + Machine-dependent. [None] is returned if the type is incomplete. *) +val alignof : Env.t -> typ -> int option + (* Return the natural alignment of the given type, in bytes. + Machine-dependent. [None] is returned if the type is incomplete. *) +val sizeof_ikind: ikind -> int + (* Return the size of the given integer kind. *) +val incomplete_type : Env.t -> typ -> bool + (* Return true if the given type is incomplete, e.g. + declared but not defined struct or union, or array type without a size. *) + +(* Computing composite_info records *) + +val composite_info_decl: Env.t -> struct_or_union -> Env.composite_info +val composite_info_def: Env.t -> struct_or_union -> field list -> Env.composite_info + +(* Type classification functions *) + +val is_void_type : Env.t -> typ -> bool + (* Is type [void]? *) +val is_integer_type : Env.t -> typ -> bool + (* Is type integer? *) +val is_arith_type : Env.t -> typ -> bool + (* Is type integer or float? *) +val is_pointer_type : Env.t -> typ -> bool + (* Is type a pointer type? *) +val is_scalar_type : Env.t -> typ -> bool + (* Is type integer, float or pointer? *) +val is_composite_type : Env.t -> typ -> bool + (* Is type a struct or union? *) +val is_function_type : Env.t -> typ -> bool + (* Is type a function type? (not pointer to function) *) +val pointer_arithmetic_ok : Env.t -> typ -> bool + (* Is the type [*ty] appropriate for pointer arithmetic? + [ty] must not be void, nor a function type, nor an incomplete type. *) +val is_signed_ikind : ikind -> bool + (* Return true if the given integer kind is a signed type. *) +val unsigned_ikind_of : ikind -> ikind + (* Return the unsigned integer kind corresponding to the given + integer kind. *) +val integer_rank : ikind -> int + (* Order integer kinds from smaller to bigger *) +val float_rank : fkind -> int + (* Order float kinds from smaller to bigger *) + +(* Usual conversions over types *) + +val pointer_decay : Env.t -> typ -> typ + (* Transform (decay) array and function types to pointer types. *) +val unary_conversion : Env.t -> typ -> typ + (* The usual unary conversions: + small integer types are promoted to [int] + array and function types decay *) +val binary_conversion : Env.t -> typ -> typ -> typ + (* The usual binary conversions. Applies only to arithmetic types. + Return the arithmetic type to which both operands of the binop + are converted. *) +val argument_conversion : Env.t -> typ -> typ + (* Conversion applied to the argument of a prototyped function. + Equivalent to [pointer_decay]. *) +val default_argument_conversion : Env.t -> typ -> typ + (* Conversion applied to the argument of a nonprototyped or variadic + function. Like unary conversion, plus [float] becomes [double]. *) + +(* Special types *) +val enum_ikind : ikind + (* Integer kind for enum values. Always [IInt]. *) +val wchar_ikind : ikind + (* Integer kind for wchar_t type. Unsigned. *) +val size_t_ikind : ikind + (* Integer kind for size_t type. Unsigned. *) +val ptr_t_ikind : ikind + (* Integer kind for ptr_t type. Smallest unsigned kind large enough + to contain a pointer without information loss. *) +val ptrdiff_t_ikind : ikind + (* Integer kind for ptrdiff_t type. Smallest signed kind large enough + to contain the difference between two pointers. *) + +(* Helpers for type-checking *) + +val type_of_constant : constant -> typ + (* Return the type of the given constant. *) +val is_literal_0 : exp -> bool + (* Is the given expression the integer literal "0"? *) +val is_lvalue : Env.t -> exp -> bool + (* Is the given expression a l-value? *) +val valid_assignment : Env.t -> exp -> typ -> bool + (* Check that an assignment of the given expression to a l-value of + the given type is allowed. *) +val valid_cast : Env.t -> typ -> typ -> bool + (* Check that a cast from the first type to the second is allowed. *) +val fundef_typ: fundef -> typ + (* Return the function type for the given function definition. *) + +(* Constructors *) + +val intconst : int64 -> ikind -> exp + (* Build expression for given integer constant. *) +val floatconst : float -> fkind -> exp + (* Build expression for given float constant. *) +val nullconst : exp + (* Expression for [(void * ) 0] *) +val sskip: stmt + (* The [skip] statement. No location. *) +val sseq : location -> stmt -> stmt -> stmt + (* Return the statement [s1; s2], optimizing the cases + where [s1] or [s2] is [skip], or [s2] is a block. *) +val sassign : location -> exp -> exp -> stmt + (* Return the statement [exp1 = exp2;] *) + +(* Locations *) + +val no_loc: location + (* Denotes an unknown location. *) +val printloc: out_channel -> location -> unit + (* Printer for locations (for Printf) *) +val formatloc: Format.formatter -> location -> unit + (* Printer for locations (for Format) *) + diff --git a/cparser/Elab.ml b/cparser/Elab.ml new file mode 100644 index 0000000..a685aef --- /dev/null +++ b/cparser/Elab.ml @@ -0,0 +1,1760 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Elaboration from Cabs parse tree to C simplified, typed syntax tree *) + +open Format +open Errors +open Machine +open Cabs +open Cabshelper +open C +open Cutil +open Env + +(** * Utility functions *) + +(* Error reporting *) + +let fatal_error loc fmt = + Errors.fatal_error ("%a: Error:@ " ^^ fmt) format_cabsloc loc + +let error loc fmt = + Errors.error ("%a: Error:@ " ^^ fmt) format_cabsloc loc + +let warning loc fmt = + Errors.warning ("%a: Warning:@ " ^^ fmt) format_cabsloc loc + +(* Error reporting for Env functions *) + +let wrap fn loc env arg = + try fn env arg + with Env.Error msg -> fatal_error loc "%s" (Env.error_message msg) + +(* Translation of locations *) + +let elab_loc l = (l.filename, l.lineno) + +(* Buffering of the result (a list of topdecl *) + +let top_declarations = ref ([] : globdecl list) + +let emit_elab loc td = + top_declarations := { gdesc = td; gloc = loc } :: !top_declarations + +let reset() = top_declarations := [] + +let elaborated_program () = + let p = !top_declarations in + top_declarations := []; + (* Reverse it and eliminate unreferenced declarations *) + Cleanup.program p + +(* Location stuff *) + +let loc_of_name (_, _, _, loc) = loc + +let loc_of_namelist = function [] -> cabslu | name :: _ -> loc_of_name name + +let loc_of_init_name_list = + function [] -> cabslu | (name, init) :: _ -> loc_of_name name + +(* Monadic map for functions env -> 'a -> 'b * env *) + +let rec mmap f env = function + | [] -> ([], env) + | hd :: tl -> + let (hd', env1) = f env hd in + let (tl', env2) = mmap f env1 tl in + (hd' :: tl', env2) + +(* To detect redefinitions within the same scope *) + +let redef fn env arg = + try + let (id, info) = fn env arg in + if Env.in_current_scope env id then Some(id, info) else None + with Env.Error _ -> + None + +(* Forward declarations *) + +let elab_expr_f : (cabsloc -> Env.t -> Cabs.expression -> C.exp) ref + = ref (fun _ _ _ -> assert false) + +let elab_block_f : (cabsloc -> C.typ -> Env.t -> Cabs.block -> C.stmt) ref + = ref (fun _ _ _ _ -> assert false) + + +(** * Elaboration of constants *) + +let has_suffix s suff = + let ls = String.length s and lsuff = String.length suff in + ls >= lsuff && String.sub s (ls - lsuff) lsuff = suff + +let chop_last s n = + assert (String.length s >= n); + String.sub s 0 (String.length s - n) + +let has_prefix s pref = + let ls = String.length s and lpref = String.length pref in + ls >= lpref && String.sub s 0 lpref = pref + +let chop_first s n = + assert (String.length s >= n); + String.sub s n (String.length s - n) + +exception Overflow +exception Bad_digit + +let parse_int base s = + let max_val = (* (2^64-1) / base, unsigned *) + match base with + | 8 -> 2305843009213693951L + | 10 -> 1844674407370955161L + | 16 -> 1152921504606846975L + | _ -> assert false in + let v = ref 0L in + for i = 0 to String.length s - 1 do + if !v > max_val then raise Overflow; + v := Int64.mul !v (Int64.of_int base); + let c = s.[i] in + let digit = + if c >= '0' && c <= '9' then Char.code c - 48 + else if c >= 'A' && c <= 'F' then Char.code c - 55 + else raise Bad_digit in + if digit >= base then raise Bad_digit; + v := Int64.add !v (Int64.of_int digit) + done; + !v + +let integer_representable v ik = + let bitsize = sizeof_ikind ik * 8 + and signed = is_signed_ikind ik in + if bitsize >= 64 then + (not signed) || (v >= 0L && v <= 0x7FFF_FFFF_FFFF_FFFFL) + else if not signed then + v >= 0L && v < Int64.shift_left 1L bitsize + else + v >= 0L && v < Int64.shift_left 1L (bitsize - 1) + +let elab_int_constant loc s0 = + let s = String.uppercase s0 in + (* Determine possible types and chop type suffix *) + let (s, dec_kinds, hex_kinds) = + if has_suffix s "ULL" || has_suffix s "LLU" then + (chop_last s 3, [IULongLong], [IULongLong]) + else if has_suffix s "LL" then + (chop_last s 2, [ILongLong], [ILongLong; IULongLong]) + else if has_suffix s "UL" || has_suffix s "LU" then + (chop_last s 2, [IULong; IULongLong], [IULong; IULongLong]) + else if has_suffix s "L" then + (chop_last s 1, [ILong; ILongLong], + [ILong; IULong; ILongLong; IULongLong]) + else if has_suffix s "U" then + (chop_last s 1, [IUInt; IULong; IULongLong], + [IUInt; IULong; IULongLong]) + else + (s, [IInt; ILong; IULong; ILongLong], + [IInt; IUInt; ILong; IULong; ILongLong; IULongLong]) + in + (* Determine base *) + let (s, base) = + if has_prefix s "0X" then + (chop_first s 2, 16) + else if has_prefix s "0" then + (chop_first s 1, 8) + else + (s, 10) + in + (* Parse digits *) + let v = + try parse_int base s + with + | Overflow -> + error loc "integer literal '%s' is too large" s0; + 0L + | Bad_digit -> + error loc "bad digit in integer literal '%s'" s0; + 0L + in + (* Find smallest allowable type that fits *) + let ty = + try List.find (fun ty -> integer_representable v ty) + (if base = 10 then dec_kinds else hex_kinds) + with Not_found -> + error loc "integer literal '%s' cannot be represented" s0; + IInt + in + (v, ty) + +let elab_float_constant loc s0 = + let s = String.uppercase s0 in + (* Determine type and chop suffix *) + let (s, ty) = + if has_suffix s "L" then + (chop_last s 1, FLongDouble) + else if has_suffix s "F" then + (chop_last s 1, FFloat) + else + (s, FDouble) in + (* Convert to Caml float - XXX loss of precision for long double *) + let v = + try float_of_string s + with Failure _ -> error loc "bad float literal '%s'" s0; 0.0 in + (v, ty) + +let elab_char_constant loc sz cl = + let nbits = 8 * sz in + (* Treat multi-char constants as a number in base 2^nbits *) + let max_val = Int64.shift_left 1L (64 - nbits) in + let v = + List.fold_left + (fun acc d -> + if acc >= max_val then begin + error loc "character literal overflows"; + end; + Int64.add (Int64.shift_left acc nbits) d) + 0L cl in + let ty = + if v < 256L then IInt + else if v < Int64.shift_left 1L (8 * sizeof_ikind IULong) then IULong + else IULongLong in + (v, ty) + +let elab_constant loc = function + | CONST_INT s -> + let (v, ik) = elab_int_constant loc s in + CInt(v, ik, s) + | CONST_FLOAT s -> + let (v, fk) = elab_float_constant loc s in + CFloat(v, fk, s) + | CONST_CHAR cl -> + let (v, ik) = elab_char_constant loc 1 cl in + CInt(v, ik, "") + | CONST_WCHAR cl -> + let (v, ik) = elab_char_constant loc !config.sizeof_wchar cl in + CInt(v, ik, "") + | CONST_STRING s -> CStr s + | CONST_WSTRING s -> CWStr s + + +(** * Elaboration of type expressions, type specifiers, name declarations *) + +(* Elaboration of attributes *) + +let elab_attribute loc = function + | ("const", []) -> Some AConst + | ("restrict", []) -> Some ARestrict + | ("volatile", []) -> Some AVolatile + | (name, args) -> + (* warning loc "ignoring '%s' attribute" name; *) + None + +let rec elab_attributes loc = function + | [] -> [] + | a1 :: al -> + match elab_attribute loc a1 with + | None -> elab_attributes loc al + | Some a -> add_attributes [a] (elab_attributes loc al) + +(* Auxiliary for typespec elaboration *) + +let typespec_rank = function (* Don't change this *) + | Cabs.Tvoid -> 0 + | Cabs.Tsigned -> 1 + | Cabs.Tunsigned -> 2 + | Cabs.Tchar -> 3 + | Cabs.Tshort -> 4 + | Cabs.Tlong -> 5 + | Cabs.Tint -> 6 + | Cabs.Tint64 -> 7 + | Cabs.Tfloat -> 8 + | Cabs.Tdouble -> 9 + | Cabs.T_Bool -> 10 + | _ -> 11 (* There should be at most one of the others *) + +let typespec_order t1 t2 = compare (typespec_rank t1) (typespec_rank t2) + +(* Elaboration of a type specifier. Returns 4-tuple: + (storage class, "inline" flag, elaborated type, new env) + Optional argument "only" is true if this is a standalone + struct or union declaration, without variable names. +*) + +let rec elab_specifier ?(only = false) loc env specifier = + (* We first divide the parts of the specifier as follows: + - a storage class + - a set of attributes (const, volatile, restrict) + - a list of type specifiers *) + let sto = ref Storage_default + and inline = ref false + and attr = ref [] + and tyspecs = ref [] in + + let do_specifier = function + | SpecTypedef -> () + | SpecCV cv -> + let a = + match cv with + | CV_CONST -> AConst + | CV_VOLATILE -> AVolatile + | CV_RESTRICT -> ARestrict in + attr := add_attributes [a] !attr + | SpecAttr a -> + attr := add_attributes (elab_attributes loc [a]) !attr + | SpecStorage st -> + if !sto <> Storage_default then + error loc "multiple storage specifiers"; + begin match st with + | NO_STORAGE -> () + | AUTO -> () + | STATIC -> sto := Storage_static + | EXTERN -> sto := Storage_extern + | REGISTER -> sto := Storage_register + end + | SpecInline -> inline := true + | SpecType tys -> tyspecs := tys :: !tyspecs in + + List.iter do_specifier specifier; + + let simple ty = (!sto, !inline, add_attributes_type !attr ty, env) in + + (* Now interpret the list of type specifiers. Much of this code + is stolen from CIL. *) + match List.stable_sort typespec_order (List.rev !tyspecs) with + | [Cabs.Tvoid] -> simple (TVoid []) + + | [Cabs.T_Bool] -> simple (TInt(IBool, [])) + | [Cabs.Tchar] -> simple (TInt(IChar, [])) + | [Cabs.Tsigned; Cabs.Tchar] -> simple (TInt(ISChar, [])) + | [Cabs.Tunsigned; Cabs.Tchar] -> simple (TInt(IUChar, [])) + + | [Cabs.Tshort] -> simple (TInt(IShort, [])) + | [Cabs.Tsigned; Cabs.Tshort] -> simple (TInt(IShort, [])) + | [Cabs.Tshort; Cabs.Tint] -> simple (TInt(IShort, [])) + | [Cabs.Tsigned; Cabs.Tshort; Cabs.Tint] -> simple (TInt(IShort, [])) + + | [Cabs.Tunsigned; Cabs.Tshort] -> simple (TInt(IUShort, [])) + | [Cabs.Tunsigned; Cabs.Tshort; Cabs.Tint] -> simple (TInt(IUShort, [])) + + | [] -> simple (TInt(IInt, [])) + | [Cabs.Tint] -> simple (TInt(IInt, [])) + | [Cabs.Tsigned] -> simple (TInt(IInt, [])) + | [Cabs.Tsigned; Cabs.Tint] -> simple (TInt(IInt, [])) + + | [Cabs.Tunsigned] -> simple (TInt(IUInt, [])) + | [Cabs.Tunsigned; Cabs.Tint] -> simple (TInt(IUInt, [])) + + | [Cabs.Tlong] -> simple (TInt(ILong, [])) + | [Cabs.Tsigned; Cabs.Tlong] -> simple (TInt(ILong, [])) + | [Cabs.Tlong; Cabs.Tint] -> simple (TInt(ILong, [])) + | [Cabs.Tsigned; Cabs.Tlong; Cabs.Tint] -> simple (TInt(ILong, [])) + + | [Cabs.Tunsigned; Cabs.Tlong] -> simple (TInt(IULong, [])) + | [Cabs.Tunsigned; Cabs.Tlong; Cabs.Tint] -> simple (TInt(IULong, [])) + + | [Cabs.Tlong; Cabs.Tlong] -> simple (TInt(ILongLong, [])) + | [Cabs.Tsigned; Cabs.Tlong; Cabs.Tlong] -> simple (TInt(ILongLong, [])) + | [Cabs.Tlong; Cabs.Tlong; Cabs.Tint] -> simple (TInt(ILongLong, [])) + | [Cabs.Tsigned; Cabs.Tlong; Cabs.Tlong; Cabs.Tint] -> simple (TInt(ILongLong, [])) + + | [Cabs.Tunsigned; Cabs.Tlong; Cabs.Tlong] -> simple (TInt(IULongLong, [])) + | [Cabs.Tunsigned; Cabs.Tlong; Cabs.Tlong; Cabs.Tint] -> simple (TInt(IULongLong, [])) + + (* int64 is a MSVC extension *) + | [Cabs.Tint64] -> simple (TInt(ILongLong, [])) + | [Cabs.Tsigned; Cabs.Tint64] -> simple (TInt(ILongLong, [])) + | [Cabs.Tunsigned; Cabs.Tint64] -> simple (TInt(IULongLong, [])) + + | [Cabs.Tfloat] -> simple (TFloat(FFloat, [])) + | [Cabs.Tdouble] -> simple (TFloat(FDouble, [])) + + | [Cabs.Tlong; Cabs.Tdouble] -> simple (TFloat(FLongDouble, [])) + + (* Now the other type specifiers *) + + | [Cabs.Tnamed id] -> + let (id', info) = wrap Env.lookup_typedef loc env id in + simple (TNamed(id', [])) + + | [Cabs.Tstruct(id, optmembers, a)] -> + let (id', env') = + elab_struct_or_union only Struct loc id optmembers env in + let attr' = add_attributes !attr (elab_attributes loc a) in + (!sto, !inline, TStruct(id', attr'), env') + + | [Cabs.Tunion(id, optmembers, a)] -> + let (id', env') = + elab_struct_or_union only Union loc id optmembers env in + let attr' = add_attributes !attr (elab_attributes loc a) in + (!sto, !inline, TUnion(id', attr'), env') + + | [Cabs.Tenum(id, optmembers, a)] -> + let env' = + elab_enum loc id optmembers env in + let attr' = add_attributes !attr (elab_attributes loc a) in + (!sto, !inline, TInt(enum_ikind, attr'), env') + + | [Cabs.TtypeofE _] -> + fatal_error loc "GCC __typeof__ not supported" + | [Cabs.TtypeofT _] -> + fatal_error loc "GCC __typeof__ not supported" + + (* Specifier doesn't make sense *) + | _ -> + fatal_error loc "illegal combination of type specifiers" + +(* Elaboration of a type declarator. *) + +and elab_type_declarator loc env ty = function + | Cabs.JUSTBASE -> + (ty, env) + | Cabs.PARENTYPE(attr1, d, attr2) -> + (* XXX ignoring the distinction between attrs after and before *) + let a = elab_attributes loc (attr1 @ attr2) in + elab_type_declarator loc env (add_attributes_type a ty) d + | Cabs.ARRAY(d, attr, sz) -> + let a = elab_attributes loc attr in + let sz' = + match sz with + | Cabs.NOTHING -> + None + | _ -> + match Ceval.integer_expr env (!elab_expr_f loc env sz) with + | Some n -> + if n < 0L then error loc "array size is negative"; + Some n + | None -> + error loc "array size is not a compile-time constant"; + Some 1L in (* produces better error messages later *) + elab_type_declarator loc env (TArray(ty, sz', a)) d + | Cabs.PTR(attr, d) -> + let a = elab_attributes loc attr in + elab_type_declarator loc env (TPtr(ty, a)) d + | Cabs.PROTO(d, params, vararg) -> + begin match unroll env ty with + | TArray _ | TFun _ -> + error loc "illegal function return type@ %a" Cprint.typ ty + | _ -> () + end; + let params' = elab_parameters env params in + elab_type_declarator loc env (TFun(ty, params', vararg, [])) d + +(* Elaboration of parameters in a prototype *) + +and elab_parameters env params = + match params with + | [] -> (* old-style K&R prototype *) + None + | _ -> + (* Prototype introduces a new scope *) + let (vars, _) = mmap elab_parameter (Env.new_scope env) params in + (* Catch special case f(void) *) + match vars with + | [ ( {name=""}, TVoid _) ] -> Some [] + | _ -> Some vars + +(* Elaboration of a function parameter *) + +and elab_parameter env (spec, name) = + let (id, sto, inl, ty, env1) = elab_name env spec name in + if sto <> Storage_default && sto <> Storage_register then + error (loc_of_name name) + "'extern' or 'static' storage not supported for function parameter"; + (* replace array and function types by pointer types *) + let ty1 = argument_conversion env1 ty in + let (id', env2) = Env.enter_ident env1 id sto ty1 in + ( (id', ty1) , env2 ) + +(* Elaboration of a (specifier, Cabs "name") pair *) + +and elab_name env spec (id, decl, attr, loc) = + let (sto, inl, bty, env') = elab_specifier loc env spec in + let (ty, env'') = elab_type_declarator loc env' bty decl in + let a = elab_attributes loc attr in + (id, sto, inl, add_attributes_type a ty, env'') + +(* Elaboration of a name group *) + +and elab_name_group env (spec, namelist) = + let (sto, inl, bty, env') = + elab_specifier (loc_of_namelist namelist) env spec in + let elab_one_name env (id, decl, attr, loc) = + let (ty, env1) = + elab_type_declarator loc env bty decl in + let a = elab_attributes loc attr in + ((id, sto, add_attributes_type a ty), env1) in + mmap elab_one_name env' namelist + +(* Elaboration of an init-name group *) + +and elab_init_name_group env (spec, namelist) = + let (sto, inl, bty, env') = + elab_specifier (loc_of_init_name_list namelist) env spec in + let elab_one_name env ((id, decl, attr, loc), init) = + let (ty, env1) = + elab_type_declarator loc env bty decl in + let a = elab_attributes loc attr in + ((id, sto, add_attributes_type a ty, init), env1) in + mmap elab_one_name env' namelist + +(* Elaboration of a field group *) + +and elab_field_group env (spec, fieldlist) = + let (names, env') = + elab_name_group env (spec, List.map fst fieldlist) in + + let elab_bitfield ((_, _, _, loc), optbitsize) (id, sto, ty) = + if sto <> Storage_default then + error loc "member '%s' has non-default storage" id; + let optbitsize' = + match optbitsize with + | None -> None + | Some sz -> + let ik = + match unroll env' ty with + | TInt(ik, _) -> ik + | _ -> ILongLong (* trigger next error message *) in + if integer_rank ik > integer_rank IInt then + error loc + "the type of a bit field must be an integer type \ + no bigger than 'int'"; + match Ceval.integer_expr env' (!elab_expr_f loc env sz) with + | Some n -> + if n < 0L then begin + error loc "bit size of member (%Ld) is negative" n; + None + end else + if n > Int64.of_int(sizeof_ikind ik * 8) then begin + error loc "bit size of member (%Ld) is too large" n; + None + end else + Some(Int64.to_int n) + | None -> + error loc "bit size of member is not a compile-time constant"; + None in + { fld_name = id; fld_typ = ty; fld_bitfield = optbitsize' } + in + (List.map2 elab_bitfield fieldlist names, env') + +(* Elaboration of a struct or union *) + +and elab_struct_or_union_info kind loc env members = + let (m, env') = mmap elab_field_group env members in + let m = List.flatten m in + (* Check for incomplete types *) + let rec check_incomplete = function + | [] -> () + | [ { fld_typ = TArray(ty_elt, None, _) } ] when kind = Struct -> () + (* C99: ty[] allowed as last field of a struct *) + | fld :: rem -> + if incomplete_type env' fld.fld_typ then + error loc "member '%s' has incomplete type" fld.fld_name; + check_incomplete rem in + check_incomplete m; + (composite_info_def env' kind m, env') + +(* Elaboration of a struct or union *) + +and elab_struct_or_union only kind loc tag optmembers env = + let optbinding = + if tag = "" then None else Env.lookup_composite env tag in + match optbinding, optmembers with + | Some(tag', ci), None + when (not only) || Env.in_current_scope env tag' -> + (* Reference to an already declared struct or union. + Special case: if this is an "only" declaration (without variable names) + and the composite was bound in another scope, + create a new incomplete composite instead via the case + "_, None" below. *) + (tag', env) + | Some(tag', ({ci_sizeof = None} as ci)), Some members + when Env.in_current_scope env tag' -> + if ci.ci_kind <> kind then + error loc "struct/union mismatch on tag '%s'" tag; + (* finishing the definition of an incomplete struct or union *) + let (ci', env') = elab_struct_or_union_info kind loc env members in + (* Emit a global definition for it *) + emit_elab (elab_loc loc) + (Gcompositedef(kind, tag', ci'.ci_members)); + (* Replace infos but keep same ident *) + (tag', Env.add_composite env' tag' ci') + | Some(tag', {ci_sizeof = Some _}), Some _ + when Env.in_current_scope env tag' -> + error loc "redefinition of struct or union '%s'" tag; + (tag', env) + | _, None -> + (* declaration of an incomplete struct or union *) + if tag = "" then + error loc "anonymous, incomplete struct or union"; + let ci = composite_info_decl env kind in + (* enter it with a new name *) + let (tag', env') = Env.enter_composite env tag ci in + (* emit it *) + emit_elab (elab_loc loc) + (Gcompositedecl(kind, tag')); + (tag', env') + | _, Some members -> + (* definition of a complete struct or union *) + let ci1 = composite_info_decl env kind in + (* enter it, incomplete, with a new name *) + let (tag', env') = Env.enter_composite env tag ci1 in + (* emit a declaration so that inner structs and unions can refer to it *) + emit_elab (elab_loc loc) + (Gcompositedecl(kind, tag')); + (* elaborate the members *) + let (ci2, env'') = elab_struct_or_union_info kind loc env' members in + (* emit a definition *) + emit_elab (elab_loc loc) + (Gcompositedef(kind, tag', ci2.ci_members)); + (* Replace infos but keep same ident *) + (tag', Env.add_composite env'' tag' ci2) + +(* Elaboration of an enum item *) + +and elab_enum_item env (s, exp, loc) nextval = + let (v, exp') = + match exp with + | NOTHING -> + (nextval, None) + | _ -> + let exp' = !elab_expr_f loc env exp in + match Ceval.integer_expr env exp' with + | Some n -> (n, Some exp') + | None -> + error loc + "value of enumerator '%s' is not a compile-time constant" s; + (nextval, Some exp') in + if redef Env.lookup_ident env s <> None then + error loc "redefinition of enumerator '%s'" s; + let (id, env') = Env.enter_enum_item env s v in + ((id, exp'), Int64.succ v, env') + +(* Elaboration of an enumeration declaration *) + +and elab_enum loc tag optmembers env = + match optmembers with + | None -> env + | Some members -> + let rec elab_members env nextval = function + | [] -> ([], env) + | hd :: tl -> + let (dcl1, nextval1, env1) = elab_enum_item env hd nextval in + let (dcl2, env2) = elab_members env1 nextval1 tl in + (dcl1 :: dcl2, env2) in + let (dcls, env') = elab_members env 0L members in + let tag' = Env.fresh_ident tag in + emit_elab (elab_loc loc) (Genumdef(tag', dcls)); + env' + +(* Elaboration of a naked type, e.g. in a cast *) + +let elab_type loc env spec decl = + let (sto, inl, bty, env') = elab_specifier loc env spec in + let (ty, env'') = elab_type_declarator loc env' bty decl in + if sto <> Storage_default || inl then + error loc "'extern', 'static', 'register' and 'inline' are meaningless in cast"; + ty + + +(* Elaboration of expressions *) + +let elab_expr loc env a = + + let err fmt = error loc fmt in (* non-fatal error *) + let error fmt = fatal_error loc fmt in + let warning fmt = warning loc fmt in + + let rec elab = function + + | NOTHING -> + error "empty expression" + +(* 7.3 Primary expressions *) + + | VARIABLE s -> + begin match wrap Env.lookup_ident loc env s with + | (id, II_ident(sto, ty)) -> + { edesc = EVar id; etyp = ty } + | (id, II_enum v) -> + { edesc = EConst(CEnum(id, v)); etyp = TInt(enum_ikind, []) } + end + + | CONSTANT cst -> + let cst' = elab_constant loc cst in + { edesc = EConst cst'; etyp = type_of_constant cst' } + + | PAREN e -> + elab e + +(* 7.4 Postfix expressions *) + + | INDEX(a1, a2) -> (* e1[e2] *) + let b1 = elab a1 in let b2 = elab a2 in + let tres = + match (unroll env b1.etyp, unroll env b2.etyp) with + | (TPtr(t, _) | TArray(t, _, _)), TInt _ -> t + | TInt _, (TPtr(t, _) | TArray(t, _, _)) -> t + | t1, t2 -> error "incorrect types for array subscripting" in + { edesc = EBinop(Oindex, b1, b2, TPtr(tres, [])); etyp = tres } + + | MEMBEROF(a1, fieldname) -> + let b1 = elab a1 in + let (fld, attrs) = + match unroll env b1.etyp with + | TStruct(id, attrs) -> + (wrap Env.find_struct_member loc env (id, fieldname), attrs) + | TUnion(id, attrs) -> + (wrap Env.find_union_member loc env (id, fieldname), attrs) + | _ -> + error "left-hand side of '.' is not a struct or union" in + (* A field of a const/volatile struct or union is itself const/volatile *) + { edesc = EUnop(Odot fieldname, b1); + etyp = add_attributes_type attrs fld.fld_typ } + + | MEMBEROFPTR(a1, fieldname) -> + let b1 = elab a1 in + let (fld, attrs) = + match unroll env b1.etyp with + | TPtr(t, _) -> + begin match unroll env t with + | TStruct(id, attrs) -> + (wrap Env.find_struct_member loc env (id, fieldname), attrs) + | TUnion(id, attrs) -> + (wrap Env.find_union_member loc env (id, fieldname), attrs) + | _ -> + error "left-hand side of '->' is not a pointer to a struct or union" + end + | _ -> + error "left-hand side of '->' is not a pointer " in + { edesc = EUnop(Oarrow fieldname, b1); + etyp = add_attributes_type attrs fld.fld_typ } + +(* Hack to treat vararg.h functions the GCC way. Helps with testing. + va_start(ap,n) + (preprocessing) --> __builtin_va_start(ap, arg) + (elaboration) --> __builtin_va_start(ap, &arg) + va_arg(ap, ty) + (preprocessing) --> __builtin_va_arg(ap, ty) + (parsing) --> __builtin_va_arg(ap, sizeof(ty)) +*) + | CALL((VARIABLE "__builtin_va_start" as a1), [a2; a3]) -> + let b1 = elab a1 and b2 = elab a2 and b3 = elab a3 in + { edesc = ECall(b1, [b2; {edesc = EUnop(Oaddrof, b3); + etyp = TPtr(b3.etyp, [])}]); + etyp = TVoid [] } + | CALL((VARIABLE "__builtin_va_arg" as a1), + [a2; (TYPE_SIZEOF _) as a3]) -> + let b1 = elab a1 and b2 = elab a2 and b3 = elab a3 in + let ty = match b3.edesc with ESizeof ty -> ty | _ -> assert false in + { edesc = ECall(b1, [b2; b3]); etyp = ty } + + | CALL(a1, al) -> + let b1 = + (* Catch the old-style usage of calling a function without + having declared it *) + match a1 with + | VARIABLE n when not (Env.ident_is_bound env n) -> + let ty = TFun(TInt(IInt, []), None, false, []) in + (* Emit an extern declaration for it *) + let id = Env.fresh_ident n in + emit_elab (elab_loc loc) (Gdecl(Storage_extern, id, ty, None)); + { edesc = EVar id; etyp = ty } + | _ -> elab a1 in + let bl = List.map elab al in + (* Extract type information *) + let (res, args, vararg) = + match unroll env b1.etyp with + | TFun(res, args, vararg, a) -> (res, args, vararg) + | TPtr(ty, a) -> + begin match unroll env ty with + | TFun(res, args, vararg, a) -> (res, args, vararg) + | _ -> error "the function part of a call does not have a function type" + end + | _ -> error "the function part of a call does not have a function type" + in + (* Type-check the arguments against the prototype *) + let bl' = + match args with + | None -> bl + | Some proto -> elab_arguments 1 bl proto vararg in + { edesc = ECall(b1, bl'); etyp = res } + + | UNARY(POSINCR, a1) -> + elab_pre_post_incr_decr Opostincr "postfix '++'" a1 + | UNARY(POSDECR, a1) -> + elab_pre_post_incr_decr Opostdecr "postfix '--'" a1 + +(* 7.5 Unary expressions *) + + | CAST ((spec, dcl), SINGLE_INIT a1) -> + let ty = elab_type loc env spec dcl in + let b1 = elab a1 in + if not (valid_cast env b1.etyp ty) then + err "illegal cast from %a@ to %a" Cprint.typ b1.etyp Cprint.typ ty; + { edesc = ECast(ty, b1); etyp = ty } + + | CAST ((spec, dcl), _) -> + error "cast of initializer expression is not supported" + + | EXPR_SIZEOF(CONSTANT(CONST_STRING s)) -> + let cst = CInt(Int64.of_int (String.length s), size_t_ikind, "") in + { edesc = EConst cst; etyp = type_of_constant cst } + + | EXPR_SIZEOF a1 -> + let b1 = elab a1 in + if sizeof env b1.etyp = None then + err "incomplete type %a" Cprint.typ b1.etyp; + { edesc = ESizeof b1.etyp; etyp = TInt(size_t_ikind, []) } + + | TYPE_SIZEOF (spec, dcl) -> + let ty = elab_type loc env spec dcl in + if sizeof env ty = None then + err "incomplete type %a" Cprint.typ ty; + { edesc = ESizeof ty; etyp = TInt(size_t_ikind, []) } + + | UNARY(PLUS, a1) -> + let b1 = elab a1 in + if not (is_arith_type env b1.etyp) then + error "argument of unary '+' is not an arithmetic type"; + { edesc = EUnop(Oplus, b1); etyp = unary_conversion env b1.etyp } + + | UNARY(MINUS, a1) -> + let b1 = elab a1 in + if not (is_arith_type env b1.etyp) then + error "argument of unary '-' is not an arithmetic type"; + { edesc = EUnop(Ominus, b1); etyp = unary_conversion env b1.etyp } + + | UNARY(BNOT, a1) -> + let b1 = elab a1 in + if not (is_integer_type env b1.etyp) then + error "argument of '~' is not an integer type"; + { edesc = EUnop(Onot, b1); etyp = unary_conversion env b1.etyp } + + | UNARY(NOT, a1) -> + let b1 = elab a1 in + if not (is_scalar_type env b1.etyp) then + error "argument of '!' is not a scalar type"; + { edesc = EUnop(Olognot, b1); etyp = TInt(IInt, []) } + + | UNARY(ADDROF, a1) -> + let b1 = elab a1 in + begin match unroll env b1.etyp with + | TArray _ | TFun _ -> () + | _ -> + if not (is_lvalue env b1) then err "argument of '&' is not a l-value" + end; + { edesc = EUnop(Oaddrof, b1); etyp = TPtr(b1.etyp, []) } + + | UNARY(MEMOF, a1) -> + let b1 = elab a1 in + begin match unroll env b1.etyp with + (* '*' applied to a function type has no effect *) + | TFun _ -> b1 + | TPtr(ty, _) | TArray(ty, _, _) -> + { edesc = EUnop(Oderef, b1); etyp = ty } + | _ -> + error "argument of unary '*' is not a pointer" + end + + | UNARY(PREINCR, a1) -> + elab_pre_post_incr_decr Opreincr "prefix '++'" a1 + | UNARY(PREDECR, a1) -> + elab_pre_post_incr_decr Opredecr "prefix '--'" a1 + +(* 7.6 Binary operator expressions *) + + | BINARY(MUL, a1, a2) -> + elab_binary_arithmetic "*" Omul a1 a2 + + | BINARY(DIV, a1, a2) -> + elab_binary_arithmetic "/" Odiv a1 a2 + + | BINARY(MOD, a1, a2) -> + elab_binary_integer "/" Omod a1 a2 + + | BINARY(ADD, a1, a2) -> + let b1 = elab a1 in + let b2 = elab a2 in + let tyres = + if is_arith_type env b1.etyp && is_arith_type env b2.etyp then + binary_conversion env b1.etyp b2.etyp + else begin + let (ty, attr) = + match unroll env b1.etyp, unroll env b2.etyp with + | (TPtr(ty, a) | TArray(ty, _, a)), TInt _ -> (ty, a) + | TInt _, (TPtr(ty, a) | TArray(ty, _, a)) -> (ty, a) + | _, _ -> error "type error in binary '+'" in + if not (pointer_arithmetic_ok env ty) then + err "illegal pointer arithmetic in binary '+'"; + TPtr(ty, attr) + end in + { edesc = EBinop(Oadd, b1, b2, tyres); etyp = tyres } + + | BINARY(SUB, a1, a2) -> + let b1 = elab a1 in + let b2 = elab a2 in + let (tyop, tyres) = + if is_arith_type env b1.etyp && is_arith_type env b2.etyp then begin + let tyres = binary_conversion env b1.etyp b2.etyp in + (tyres, tyres) + end else begin + match unroll env b1.etyp, unroll env b2.etyp with + | (TPtr(ty, a) | TArray(ty, _, a)), TInt _ -> + if not (pointer_arithmetic_ok env ty) then + err "illegal pointer arithmetic in binary '-'"; + (TPtr(ty, a), TPtr(ty, a)) + | TInt _, (TPtr(ty, a) | TArray(ty, _, a)) -> + if not (pointer_arithmetic_ok env ty) then + err "illegal pointer arithmetic in binary '-'"; + (TPtr(ty, a), TPtr(ty, a)) + | (TPtr(ty1, a1) | TArray(ty1, _, a1)), + (TPtr(ty2, a2) | TArray(ty2, _, a2)) -> + if not (compatible_types ~noattrs:true env ty1 ty2) then + err "mismatch between pointer types in binary '-'"; + if not (pointer_arithmetic_ok env ty1) then + err "illegal pointer arithmetic in binary '-'"; + (TPtr(ty1, []), TInt(ptrdiff_t_ikind, [])) + | _, _ -> error "type error in binary '-'" + end in + { edesc = EBinop(Osub, b1, b2, tyop); etyp = tyres } + + | BINARY(SHL, a1, a2) -> + elab_shift "<<" Oshl a1 a2 + + | BINARY(SHR, a1, a2) -> + elab_shift ">>" Oshr a1 a2 + + | BINARY(EQ, a1, a2) -> + elab_comparison Oeq a1 a2 + | BINARY(NE, a1, a2) -> + elab_comparison One a1 a2 + | BINARY(LT, a1, a2) -> + elab_comparison Olt a1 a2 + | BINARY(GT, a1, a2) -> + elab_comparison Ogt a1 a2 + | BINARY(LE, a1, a2) -> + elab_comparison Ole a1 a2 + | BINARY(GE, a1, a2) -> + elab_comparison Oge a1 a2 + + | BINARY(BAND, a1, a2) -> + elab_binary_integer "&" Oand a1 a2 + | BINARY(BOR, a1, a2) -> + elab_binary_integer "|" Oor a1 a2 + | BINARY(XOR, a1, a2) -> + elab_binary_integer "^" Oxor a1 a2 + +(* 7.7 Logical operator expressions *) + + | BINARY(AND, a1, a2) -> + elab_logical_operator "&&" Ologand a1 a2 + | BINARY(OR, a1, a2) -> + elab_logical_operator "||" Ologor a1 a2 + +(* 7.8 Conditional expressions *) + | QUESTION(a1, a2, a3) -> + let b1 = elab a1 in + let b2 = elab a2 in + let b3 = elab a3 in + if not (is_scalar_type env b1.etyp) then + err ("the first argument of '? :' is not a scalar type"); + begin match pointer_decay env b2.etyp, pointer_decay env b3.etyp with + | (TInt _ | TFloat _), (TInt _ | TFloat _) -> + { edesc = EConditional(b1, b2, b3); + etyp = binary_conversion env b2.etyp b3.etyp } + | TPtr(ty1, a1), TPtr(ty2, a2) -> + let tyres = + if is_void_type env ty1 || is_void_type env ty2 then + TPtr(TVoid [], add_attributes a1 a2) + else + match combine_types ~noattrs:true env + (TPtr(ty1, a1)) (TPtr(ty2, a2)) with + | None -> + error "the second and third arguments of '? :' \ + have incompatible pointer types" + | Some ty -> ty + in + { edesc = EConditional(b1, b2, b3); etyp = tyres } + | TPtr(ty1, a1), TInt _ when is_literal_0 b3 -> + { edesc = EConditional(b1, b2, nullconst); etyp = TPtr(ty1, a1) } + | TInt _, TPtr(ty2, a2) when is_literal_0 b2 -> + { edesc = EConditional(b1, nullconst, b3); etyp = TPtr(ty2, a2) } + | ty1, ty2 -> + match combine_types env ty1 ty2 with + | None -> + error ("the second and third arguments of '? :' have incompatible types") + | Some tyres -> + { edesc = EConditional(b1, b2, b3); etyp = tyres } + end + +(* 7.9 Assignment expressions *) + + | BINARY(ASSIGN, a1, a2) -> + let b1 = elab a1 in + let b2 = elab a2 in + if not (is_lvalue env b1) then + err "left-hand side of assignment is not a l-value"; + if List.mem AConst (attributes_of_type env b1.etyp) then + err "left-hand side of assignment has 'const' type"; + if not (valid_assignment env b2 b1.etyp) then begin + if valid_cast env b2.etyp b1.etyp then + warning "assigning a value of type@ %a@ to a lvalue of type@ %a" + Cprint.typ b2.etyp Cprint.typ b1.etyp + else + err "assigning a value of type@ %a@ to a lvalue of type@ %a" + Cprint.typ b2.etyp Cprint.typ b1.etyp; + end; + { edesc = EBinop(Oassign, b1, b2, b1.etyp); etyp = b1.etyp } + + | BINARY((ADD_ASSIGN | SUB_ASSIGN | MUL_ASSIGN | DIV_ASSIGN | MOD_ASSIGN + | BAND_ASSIGN | BOR_ASSIGN | XOR_ASSIGN | SHL_ASSIGN | SHR_ASSIGN + as op), a1, a2) -> + let (sop, top) = + match op with + | ADD_ASSIGN -> (ADD, Oadd_assign) + | SUB_ASSIGN -> (SUB, Osub_assign) + | MUL_ASSIGN -> (MUL, Omul_assign) + | DIV_ASSIGN -> (DIV, Odiv_assign) + | MOD_ASSIGN -> (MOD, Omod_assign) + | BAND_ASSIGN -> (BAND, Oand_assign) + | BOR_ASSIGN -> (BOR, Oor_assign) + | XOR_ASSIGN -> (XOR, Oxor_assign) + | SHL_ASSIGN -> (SHL, Oshl_assign) + | SHR_ASSIGN -> (SHR, Oshr_assign) + | _ -> assert false in + begin match elab (BINARY(sop, a1, a2)) with + | { edesc = EBinop(_, b1, b2, _); etyp = ty } as b -> + if not (is_lvalue env b1) then + err ("left-hand side of assignment is not a l-value"); + if List.mem AConst (attributes_of_type env b1.etyp) then + err "left-hand side of assignment has 'const' type"; + if not (valid_assignment env b b1.etyp) then begin + if valid_cast env ty b1.etyp then + warning "assigning a value of type@ %a@ to a lvalue of type@ %a" + Cprint.typ ty Cprint.typ b1.etyp + else + err "assigning a value of type@ %a@ to a lvalue of type@ %a" + Cprint.typ ty Cprint.typ b1.etyp; + end; + { edesc = EBinop(top, b1, b2, ty); etyp = b1.etyp } + | _ -> assert false + end + +(* 7.10 Sequential expressions *) + + | COMMA [] -> + error "empty sequential expression" + | COMMA (a1 :: al) -> (* watch for left associativity *) + let rec elab_comma accu = function + | [] -> accu + | a :: l -> + let b = elab a in + elab_comma { edesc = EBinop(Ocomma, accu, b, b.etyp); etyp = b.etyp } l + in elab_comma (elab a1) al + +(* Extensions that we do not handle *) + + | LABELADDR _ -> + error "GCC's &&label construct is not supported" + | GNU_BODY _ -> + error "GCC's statements within expressions are not supported" + | EXPR_ALIGNOF _ | TYPE_ALIGNOF _ -> + error "GCC's __alignof__ construct is not supported" + +(* + | EXPR_ALIGNOF a1 -> + warning "nonstandard `alignof' expression, turned into a constant"; + let b1 = elab a1 in + begin match alignof env b1.etyp with + | None -> error "incomplete type %a" Cprint.typ b1.etyp + | Some al -> intconst (Int64.of_int al) size_t_ikind + end + | TYPE_ALIGNOF (spec, dcl) -> + warning "nonstandard `alignof' expression, turned into a constant"; + let ty = elab_type loc env spec dcl in + begin match alignof env ty with + | None -> error "incomplete type %a" Cprint.typ ty + | Some al -> intconst (Int64.of_int al) size_t_ikind + end +*) + +(* Elaboration of pre- or post- increment/decrement *) + and elab_pre_post_incr_decr op msg a1 = + let b1 = elab a1 in + if not (is_lvalue env b1) then + err "the argument of %s is not a l-value" msg; + if not (is_scalar_type env b1.etyp) then + err "the argument of %s must be an arithmetic or pointer type" msg; + { edesc = EUnop(op, b1); etyp = b1.etyp } + +(* Elaboration of binary operators over integers *) + and elab_binary_integer msg op a1 a2 = + let b1 = elab a1 in + if not (is_integer_type env b1.etyp) then + error "the first argument of '%s' is not an integer type" msg; + let b2 = elab a2 in + if not (is_integer_type env b2.etyp) then + error "the second argument of '%s' is not an integer type" msg; + let tyres = binary_conversion env b1.etyp b2.etyp in + { edesc = EBinop(op, b1, b2, tyres); etyp = tyres } + +(* Elaboration of binary operators over arithmetic types *) + and elab_binary_arithmetic msg op a1 a2 = + let b1 = elab a1 in + if not (is_arith_type env b1.etyp) then + error "the first argument of '%s' is not an arithmetic type" msg; + let b2 = elab a2 in + if not (is_arith_type env b2.etyp) then + error "the second argument of '%s' is not an arithmetic type" msg; + let tyres = binary_conversion env b1.etyp b2.etyp in + { edesc = EBinop(op, b1, b2, tyres); etyp = tyres } + +(* Elaboration of shift operators *) + and elab_shift msg op a1 a2 = + let b1 = elab a1 in + if not (is_integer_type env b1.etyp) then + error "the first argument of '%s' is not an integer type" msg; + let b2 = elab a2 in + if not (is_integer_type env b2.etyp) then + error "the second argument of '%s' is not an integer type" msg; + let tyres = unary_conversion env b1.etyp in + { edesc = EBinop(op, b1, b2, tyres); etyp = tyres } + +(* Elaboration of comparisons *) + and elab_comparison op a1 a2 = + let b1 = elab a1 in + let b2 = elab a2 in + let resdesc = + match pointer_decay env b1.etyp, pointer_decay env b2.etyp with + | (TInt _ | TFloat _), (TInt _ | TFloat _) -> + EBinop(op, b1, b2, binary_conversion env b1.etyp b2.etyp) + | TInt _, TPtr(ty, _) when is_literal_0 b1 -> + EBinop(op, nullconst, b2, TPtr(ty, [])) + | TPtr(ty, _), TInt _ when is_literal_0 b2 -> + EBinop(op, b1, nullconst, TPtr(ty, [])) + | TPtr(ty1, _), TPtr(ty2, _) + when is_void_type env ty1 -> + EBinop(op, b1, b2, TPtr(ty2, [])) + | TPtr(ty1, _), TPtr(ty2, _) + when is_void_type env ty2 -> + EBinop(op, b1, b2, TPtr(ty1, [])) + | TPtr(ty1, _), TPtr(ty2, _) -> + if not (compatible_types ~noattrs:true env ty1 ty2) then + warning "comparison between incompatible pointer types"; + EBinop(op, b1, b2, TPtr(ty1, [])) + | TPtr _, TInt _ + | TInt _, TPtr _ -> + warning "comparison between integer and pointer"; + EBinop(op, b1, b2, TPtr(TVoid [], [])) + | ty1, ty2 -> + error "illegal comparison between types@ %a@ and %a" + Cprint.typ b1.etyp Cprint.typ b2.etyp in + { edesc = resdesc; etyp = TInt(IInt, []) } + +(* Elaboration of && and || *) + and elab_logical_operator msg op a1 a2 = + let b1 = elab a1 in + if not (is_scalar_type env b1.etyp) then + err "the first argument of '%s' is not a scalar type" msg; + let b2 = elab a2 in + if not (is_scalar_type env b2.etyp) then + err "the second argument of '%s' is not a scalar type" msg; + { edesc = EBinop(op, b1, b2, TInt(IInt, [])); etyp = TInt(IInt, []) } + +(* Type-checking of function arguments *) + and elab_arguments argno args params vararg = + match args, params with + | [], [] -> [] + | [], _::_ -> err "not enough arguments in function call"; [] + | _::_, [] -> + if vararg + then args + else (err "too many arguments in function call"; args) + | arg1 :: argl, (_, ty_p) :: paraml -> + let ty_a = argument_conversion env arg1.etyp in + if not (valid_assignment env {arg1 with etyp = ty_a} ty_p) then begin + if valid_cast env ty_a ty_p then + warning + "argument #%d of function call has type@ %a@ \ + instead of the expected type@ %a" + argno Cprint.typ ty_a Cprint.typ ty_p + else + err + "argument #%d of function call has type@ %a@ \ + instead of the expected type@ %a" + argno Cprint.typ ty_a Cprint.typ ty_p + end; + arg1 :: elab_arguments (argno + 1) argl paraml vararg + + in elab a + +(* Filling in forward declaration *) +let _ = elab_expr_f := elab_expr + +let elab_opt_expr loc env = function + | NOTHING -> None + | a -> Some (elab_expr loc env a) + +let elab_for_expr loc env = function + | NOTHING -> { sdesc = Sskip; sloc = elab_loc loc } + | a -> { sdesc = Sdo (elab_expr loc env a); sloc = elab_loc loc } + + +(* Elaboration of initializers *) + +(* Initializers are first elaborated to the following type: *) + +let project_init loc il = + List.map + (fun (what, i) -> + if what <> NEXT_INIT then + error loc "C99 initializers are not supported"; + i) + il + +let below_optsize n opt_sz = + match opt_sz with None -> true | Some sz -> n < sz + +let init_char_array_string opt_size s = + let init = ref [] + and len = ref 0L in + let enter x = + if below_optsize !len opt_size then begin + init := Init_single (intconst x IChar) :: !init; + len := Int64.succ !len + end in + for i = 0 to String.length s - 1 do + enter (Int64.of_int (Char.code s.[i])) + done; + enter 0L; + Init_array (List.rev !init) + +let init_int_array_wstring opt_size s = + let init = ref [] + and len = ref 0L in + let enter x = + if below_optsize !len opt_size then begin + init := Init_single (intconst x IInt) :: !init; + len := Int64.succ !len + end in + List.iter enter s; + enter 0L; + Init_array (List.rev !init) + +let check_init_type loc env a ty = + if valid_assignment env a ty then () + else if valid_cast env a.etyp ty then + warning loc + "initializer has type@ %a@ instead of the expected type @ %a" + Cprint.typ a.etyp Cprint.typ ty + else + error loc + "initializer has type@ %a@ instead of the expected type @ %a" + Cprint.typ a.etyp Cprint.typ ty + +(* Build an initializer for type [ty], consuming initialization items + from the list [ile]. Return a pair (initializer, items not consumed). *) + +let rec elab_init loc env ty ile = + match unroll env ty with + | TArray(ty_elt, opt_sz, _) -> + let rec elab_init_array n accu rem = + match opt_sz, rem with + | Some sz, _ when n >= sz -> + (Init_array(List.rev accu), rem) + | None, [] -> + (Init_array(List.rev accu), rem) + | _, _ -> + let (i, rem') = elab_init loc env ty_elt rem in + elab_init_array (Int64.succ n) (i :: accu) rem' in + begin match ile with + (* char array = "string literal" *) + | (SINGLE_INIT (CONSTANT (CONST_STRING s)) + | COMPOUND_INIT [_, SINGLE_INIT(CONSTANT (CONST_STRING s))]) :: ile1 + when (match unroll env ty_elt with + | TInt((IChar|IUChar|ISChar), _) -> true + | _ -> false) -> + (init_char_array_string opt_sz s, ile1) + (* wchar array = L"wide string literal" *) + | (SINGLE_INIT (CONSTANT (CONST_WSTRING s)) + | COMPOUND_INIT [_, SINGLE_INIT(CONSTANT (CONST_WSTRING s))]) :: ile1 + when (match unroll env ty_elt with + | TInt _ -> true + | _ -> false) -> + (init_int_array_wstring opt_sz s, ile1) + (* array = { elt, ..., elt } *) + | COMPOUND_INIT ile1 :: ile2 -> + let (ie, rem) = elab_init_array 0L [] (project_init loc ile1) in + if rem <> [] then + warning loc "excess elements at end of array initializer"; + (ie, ile2) + (* array = elt, ..., elt (within a bigger compound initializer) *) + | _ -> + elab_init_array 0L [] ile + end + | TStruct(id, _) -> + let ci = wrap Env.find_struct loc env id in + let rec elab_init_fields fld accu rem = + match fld with + | [] -> + (Init_struct(id, List.rev accu), rem) + | fld1 :: fld' -> + let (i, rem') = elab_init loc env fld1.fld_typ rem in + elab_init_fields fld' ((fld1, i) :: accu) rem' in + begin match ile with + (* struct = { elt, ..., elt } *) + | COMPOUND_INIT ile1 :: ile2 -> + let (ie, rem) = + elab_init_fields ci.ci_members [] (project_init loc ile1) in + if rem <> [] then + warning loc "excess elements at end of struct initializer"; + (ie, ile2) + (* struct = elt, ..., elt (within a bigger compound initializer) *) + | _ -> + elab_init_fields ci.ci_members [] ile + end + | TUnion(id, _) -> + let ci = wrap Env.find_union loc env id in + let fld1 = + match ci.ci_members with [] -> assert false | hd :: tl -> hd in + begin match ile with + (* union = { elt } *) + | COMPOUND_INIT ile1 :: ile2 -> + let (i, rem) = + elab_init loc env fld1.fld_typ (project_init loc ile1) in + if rem <> [] then + warning loc "excess elements at end of union initializer"; + (Init_union(id, fld1, i), ile2) + (* union = elt (within a bigger compound initializer) *) + | _ -> + let (i, rem) = elab_init loc env fld1.fld_typ ile in + (Init_union(id, fld1, i), rem) + end + | TInt _ | TFloat _ | TPtr _ -> + begin match ile with + (* scalar = elt *) + | SINGLE_INIT a :: ile1 -> + let a' = elab_expr loc env a in + check_init_type loc env a' ty; + (Init_single a', ile1) + (* scalar = nothing (within a bigger compound initializer) *) + | (NO_INIT :: ile1) | ([] as ile1) -> + begin match unroll env ty with + | TInt _ -> (Init_single (intconst 0L IInt), ile1) + | TFloat _ -> (Init_single (floatconst 0.0 FDouble), ile1) + | TPtr _ -> (Init_single nullconst, ile1) + | _ -> assert false + end + | COMPOUND_INIT _ :: ile1 -> + fatal_error loc "compound initializer for type@ %a" Cprint.typ ty + end + | _ -> + fatal_error loc "impossible to initialize at type@ %a" Cprint.typ ty + +let elab_initial loc env ty ie = + match unroll env ty, ie with + | _, NO_INIT -> None + (* scalar or composite = expr *) + | (TInt _ | TFloat _ | TPtr _ | TStruct _ | TUnion _), SINGLE_INIT a -> + let a' = elab_expr loc env a in + check_init_type loc env a' ty; + Some (Init_single a') + (* array = expr or + array or struct or union = { elt, ..., elt } *) + | (TArray _, SINGLE_INIT _) + | ((TArray _ | TStruct _ | TUnion _), COMPOUND_INIT _) -> + let (i, rem) = elab_init loc env ty [ie] in + if rem <> [] then + warning loc "excess elements at end of compound initializer"; + Some i + | _, _ -> + error loc "ill-formed initializer for type@ %a" Cprint.typ ty; + None + +(* Complete an array type with the size obtained from the initializer: + "int x[] = { 1, 2, 3 }" becomes "int x[3] = ..." *) + +let fixup_typ env ty init = + match unroll env ty, init with + | TArray(ty_elt, None, attr), Init_array il -> + TArray(ty_elt, Some(Int64.of_int(List.length il)), attr) + | _ -> ty + +(* Entry point *) + +let elab_initializer loc env ty ie = + match elab_initial loc env ty ie with + | None -> + (ty, None) + | Some init -> + (fixup_typ env ty init, Some init) + + +(* Elaboration of top-level and local definitions *) + +let enter_typedef loc env (s, sto, ty) = + if sto <> Storage_default then + error loc "Non-default storage on 'typedef' definition"; + if redef Env.lookup_typedef env s <> None then + error loc "Redefinition of typedef '%s'" s; + let (id, env') = + Env.enter_typedef env s ty in + emit_elab (elab_loc loc) (Gtypedef(id, ty)); + env' + +let enter_or_refine_ident local loc env s sto ty = + match redef Env.lookup_ident env s with + | Some(id, II_ident(old_sto, old_ty)) -> + let new_ty = + if local then begin + error loc "redefinition of local variable '%s'" s; + ty + end else begin + match combine_types env old_ty ty with + | Some new_ty -> + new_ty + | None -> + warning loc "redefinition of '%s' with incompatible type" s; ty + end in + let new_sto = + if old_sto = Storage_extern then sto else + if sto = Storage_extern then old_sto else + if old_sto = sto then sto else begin + warning loc "redefinition of '%s' with incompatible storage class" s; + sto + end in + (id, Env.add_ident env id new_sto new_ty) + | Some(id, II_enum v) -> + error loc "illegal redefinition of enumerator '%s'" s; + (id, Env.add_ident env id sto ty) + | _ -> + Env.enter_ident env s sto ty + +let rec enter_decdefs local loc env = function + | [] -> + ([], env) + | (s, sto, ty, init) :: rem -> + (* Sanity checks on storage class *) + begin match sto with + | Storage_extern -> + if init <> NO_INIT then error loc + "'extern' declaration cannot have an initializer" + | Storage_register -> + if not local then error loc "'register' on global declaration" + | _ -> () + end; + (* function declarations are always extern *) + let sto' = + match unroll env ty with TFun _ -> Storage_extern | _ -> sto in + (* enter ident in environment with declared type, because + initializer can refer to the ident *) + let (id, env1) = enter_or_refine_ident local loc env s sto' ty in + (* process the initializer *) + let (ty', init') = elab_initializer loc env1 ty init in + (* update environment with refined type *) + let env2 = Env.add_ident env1 id sto' ty' in + (* check for incomplete type *) + if sto' <> Storage_extern && incomplete_type env ty' then + warning loc "'%s' has incomplete type" s; + if local && sto <> Storage_extern && sto <> Storage_static then begin + (* Local definition *) + let (decls, env3) = enter_decdefs local loc env2 rem in + ((sto', id, ty', init') :: decls, env3) + end else begin + (* Global definition *) + emit_elab (elab_loc loc) (Gdecl(sto, id, ty', init')); + enter_decdefs local loc env2 rem + end + +let elab_fundef env (spec, name) body loc1 loc2 = + let (s, sto, inline, ty, env1) = elab_name env spec name in + if sto = Storage_register then + error loc1 "a function definition cannot have 'register' storage class"; + (* Fix up the type. We can have params = None but only for an + old-style parameterless function "int f() {...}" *) + let ty = + match ty with + | TFun(ty_ret, None, vararg, attr) -> TFun(ty_ret, Some [], vararg, attr) + | _ -> ty in + (* Extract info from type *) + let (ty_ret, params, vararg) = + match ty with + | TFun(ty_ret, Some params, vararg, attr) -> (ty_ret, params, vararg) + | _ -> fatal_error loc1 "wrong type for function definition" in + (* Enter function in the environment, for recursive references *) + let (fun_id, env1) = enter_or_refine_ident false loc1 env s sto ty in + (* Enter parameters in the environment *) + let env2 = + List.fold_left (fun e (id, ty) -> Env.add_ident e id Storage_default ty) + (Env.new_scope env1) params in + (* Elaborate function body *) + let body' = !elab_block_f loc2 ty_ret env2 body in + (* Build and emit function definition *) + let fn = + { fd_storage = sto; + fd_inline = inline; + fd_name = fun_id; + fd_ret = ty_ret; + fd_params = params; + fd_vararg = vararg; + fd_locals = []; + fd_body = body' } in + emit_elab (elab_loc loc1) (Gfundef fn); + env1 + +let rec elab_definition (local: bool) (env: Env.t) (def: Cabs.definition) + : decl list * Env.t = + match def with + (* "int f(int x) { ... }" *) + | FUNDEF(spec_name, body, loc1, loc2) -> + if local then error loc1 "local definition of a function"; + let env1 = elab_fundef env spec_name body loc1 loc2 in + ([], env1) + + (* "int x = 12, y[10], *z" *) + | DECDEF(init_name_group, loc) -> + let (dl, env1) = elab_init_name_group env init_name_group in + enter_decdefs local loc env1 dl + + (* "typedef int * x, y[10]; " *) + | TYPEDEF(namegroup, loc) -> + let (dl, env1) = elab_name_group env namegroup in + let env2 = List.fold_left (enter_typedef loc) env1 dl in + ([], env2) + + (* "struct s { ...};" or "union u;" *) + | ONLYTYPEDEF(spec, loc) -> + let (sto, inl, ty, env') = elab_specifier ~only:true loc env spec in + if sto <> Storage_default || inl then + error loc "Non-default storage or 'inline' on 'struct' or 'union' declaration"; + ([], env') + + (* global asm statement *) + | GLOBASM(_, loc) -> + error loc "Top-level 'asm' statement is not supported"; + ([], env) + + (* pragma *) + | PRAGMA(s, loc) -> + emit_elab (elab_loc loc) (Gpragma s); + ([], env) + + (* extern "C" { ... } *) + | LINKAGE(_, loc, defs) -> + elab_definitions local env defs + +and elab_definitions local env = function + | [] -> ([], env) + | d1 :: dl -> + let (decl1, env1) = elab_definition local env d1 in + let (decl2, env2) = elab_definitions local env1 dl in + (decl1 @ decl2, env2) + + +(* Elaboration of statements *) + +(* Extract list of Cabs statements from a Cabs block *) + +let block_body loc b = + if b.blabels <> [] then + error loc "GCC's '__label__' declaration is not supported"; + if b.battrs <> [] then + warning loc "ignoring attributes on this block"; + b.bstmts + +(* Elaboration of a block. Return the corresponding C statement. *) + +let elab_block loc return_typ env b = + +let rec elab_stmt env s = + + match s with + +(* 8.2 Expression statements *) + + | COMPUTATION(a, loc) -> + { sdesc = Sdo (elab_expr loc env a); sloc = elab_loc loc } + +(* 8.3 Labeled statements *) + + | LABEL(lbl, s1, loc) -> + { sdesc = Slabeled(Slabel lbl, elab_stmt env s1); sloc = elab_loc loc } + + | CASE(a, s1, loc) -> + let a' = elab_expr loc env a in + begin match Ceval.integer_expr env a' with + | None -> + error loc "argument of 'case' must be an integer compile-time constant" + | Some n -> () + end; + { sdesc = Slabeled(Scase a', elab_stmt env s1); sloc = elab_loc loc } + + | CASERANGE(_, _, _, loc) -> + error loc "GCC's 'case' with range of values is not supported"; + sskip + + | DEFAULT(s1, loc) -> + { sdesc = Slabeled(Sdefault, elab_stmt env s1); sloc = elab_loc loc } + +(* 8.4 Compound statements *) + + | BLOCK(b, loc) -> + elab_blk loc env b + +(* 8.5 Conditional statements *) + + | IF(a, s1, s2, loc) -> + let a' = elab_expr loc env a in + if not (is_scalar_type env a'.etyp) then + error loc "the condition of 'if' does not have scalar type"; + let s1' = elab_stmt env s1 in + let s2' = elab_stmt env s2 in + { sdesc = Sif(a', s1', s2'); sloc = elab_loc loc } + +(* 8.6 Iterative statements *) + + | WHILE(a, s1, loc) -> + let a' = elab_expr loc env a in + if not (is_scalar_type env a'.etyp) then + error loc "the condition of 'while' does not have scalar type"; + let s1' = elab_stmt env s1 in + { sdesc = Swhile(a', s1'); sloc = elab_loc loc } + + | DOWHILE(a, s1, loc) -> + let s1' = elab_stmt env s1 in + let a' = elab_expr loc env a in + if not (is_scalar_type env a'.etyp) then + error loc "the condition of 'while' does not have scalar type"; + { sdesc = Sdowhile(s1', a'); sloc = elab_loc loc } + + | FOR(fc, a2, a3, s1, loc) -> + let a1' = + match fc with + | FC_EXP a1 -> + elab_for_expr loc env a1 + | FC_DECL def -> + error loc "C99 declaration within `for' not supported"; + sskip in + let a2' = + if a2 = NOTHING + then intconst 1L IInt + else elab_expr loc env a2 in + if not (is_scalar_type env a2'.etyp) then + error loc "the condition of 'for' does not have scalar type"; + let a3' = elab_for_expr loc env a3 in + let s1' = elab_stmt env s1 in + { sdesc = Sfor(a1', a2', a3', s1'); sloc = elab_loc loc } + +(* 8.7 Switch statement *) + | SWITCH(a, s1, loc) -> + let a' = elab_expr loc env a in + if not (is_arith_type env a'.etyp) then + error loc "the argument of 'switch' does not have arithmetic type"; + let s1' = elab_stmt env s1 in + { sdesc = Sswitch(a', s1'); sloc = elab_loc loc } + +(* 8,8 Break and continue statements *) + | BREAK loc -> + { sdesc = Sbreak; sloc = elab_loc loc } + | CONTINUE loc -> + { sdesc = Scontinue; sloc = elab_loc loc } + +(* 8.9 Return statements *) + | RETURN(a, loc) -> + let a' = elab_opt_expr loc env a in + begin match (unroll env return_typ, a') with + | TVoid _, None -> () + | TVoid _, Some _ -> + error loc + "'return' with a value in a function of return type 'void'" + | _, None -> + warning loc + "'return' without a value in a function of return type@ %a" + Cprint.typ return_typ + | _, Some b -> + if not (valid_assignment env b return_typ) then begin + if valid_cast env b.etyp return_typ then + warning loc + "return value has type@ %a@ \ + instead of the expected type@ %a" + Cprint.typ b.etyp Cprint.typ return_typ + else + error loc + "return value has type@ %a@ \ + instead of the expected type@ %a" + Cprint.typ b.etyp Cprint.typ return_typ + end + end; + { sdesc = Sreturn a'; sloc = elab_loc loc } + +(* 8.10 Goto statements *) + | GOTO(lbl, loc) -> + { sdesc = Sgoto lbl; sloc = elab_loc loc } + +(* 8.11 Null statements *) + | NOP loc -> + { sdesc = Sskip; sloc = elab_loc loc } + +(* Unsupported *) + | DEFINITION def -> + error (get_definitionloc def) "ill-placed definition"; + sskip + | COMPGOTO(a, loc) -> + error loc "GCC's computed 'goto' is not supported"; + sskip + | ASM(_, _, _, loc) -> + error loc "'asm' statement is not supported"; + sskip + | TRY_EXCEPT(_, _, _, loc) -> + error loc "'try ... except' statement is not supported"; + sskip + | TRY_FINALLY(_, _, loc) -> + error loc "'try ... finally' statement is not supported"; + sskip + +and elab_blk loc env b = + let b' = elab_blk_body (Env.new_scope env) (block_body loc b) in + { sdesc = Sblock b'; sloc = elab_loc loc } + +and elab_blk_body env sl = + match sl with + | [] -> + [] + | DEFINITION def :: sl1 -> + let (dcl, env') = elab_definition true env def in + let loc = elab_loc (get_definitionloc def) in + List.map (fun d -> {sdesc = Sdecl d; sloc = loc}) dcl + @ elab_blk_body env' sl1 + | s :: sl1 -> + let s' = elab_stmt env s in + s' :: elab_blk_body env sl1 + +in elab_blk loc env b + +(* Filling in forward declaration *) +let _ = elab_block_f := elab_block + + +(** * Entry point *) + +let elab_preprocessed_file lb = + let lb = Lexer.init lb in + reset(); + ignore (elab_definitions false (Builtins.environment()) + (Parser.file Lexer.initial lb)); + Lexer.finish(); + elaborated_program() diff --git a/cparser/Elab.mli b/cparser/Elab.mli new file mode 100644 index 0000000..0715c51 --- /dev/null +++ b/cparser/Elab.mli @@ -0,0 +1,16 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +val elab_preprocessed_file : Lexing.lexbuf -> C.program diff --git a/cparser/Env.ml b/cparser/Env.ml new file mode 100644 index 0000000..777b3e1 --- /dev/null +++ b/cparser/Env.ml @@ -0,0 +1,248 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Typing environment *) + +open C + +type error = + | Unbound_identifier of string + | Unbound_tag of string * string + | Tag_mismatch of string * string * string + | Unbound_typedef of string + | No_member of string * string * string + +exception Error of error + +(* Maps over ident, accessible both by name or by name + stamp *) + +module StringMap = Map.Make(String) + +module IdentMap = struct + type 'a t = (ident * 'a) list StringMap.t + let empty : 'a t = StringMap.empty + + (* Search by name and return topmost binding *) + let lookup s m = + match StringMap.find s m with + | id_data :: _ -> id_data + | [] -> assert false + + (* Search by identifier and return associated binding *) + let find id m = + let rec lookup_in = function + | [] -> raise Not_found + | (id', data) :: rem -> + if id'.stamp = id.stamp then data else lookup_in rem in + lookup_in (StringMap.find id.name m) + + (* Insert by identifier *) + let add id data m = + let l = try StringMap.find id.name m with Not_found -> [] in + StringMap.add id.name ((id, data) :: l) m +end + +let gensym = ref 0 + +let fresh_ident s = incr gensym; { name = s; stamp = !gensym } + +(* Infos associated with structs or unions *) + +type composite_info = { + ci_kind: struct_or_union; + ci_members: field list; (* members, in order *) + ci_alignof: int option; (* alignment; None if incomplete *) + ci_sizeof: int option; (* size; None if incomplete *) +} + +(* Infos associated with an ordinary identifier *) + +type ident_info = + | II_ident of storage * typ + | II_enum of int64 (* value of the enum *) + +(* Infos associated with a typedef *) + +type typedef_info = typ + +(* Environments *) + +type t = { + env_scope: int; + env_ident: ident_info IdentMap.t; + env_tag: composite_info IdentMap.t; + env_typedef: typedef_info IdentMap.t +} + +let empty = { + env_scope = 0; + env_ident = IdentMap.empty; + env_tag = IdentMap.empty; + env_typedef = IdentMap.empty +} + +(* Enter a new scope. *) + +let new_scope env = + { env with env_scope = !gensym + 1 } + +let in_current_scope env id = id.stamp >= env.env_scope + +(* Looking up things by source name *) + +let lookup_ident env s = + try + IdentMap.lookup s env.env_ident + with Not_found -> + raise(Error(Unbound_identifier s)) + +let lookup_tag env s = + try + IdentMap.lookup s env.env_tag + with Not_found -> + raise(Error(Unbound_tag(s, "tag"))) + +let lookup_struct env s = + try + let (id, ci as res) = IdentMap.lookup s env.env_tag in + if ci.ci_kind <> Struct then + raise(Error(Tag_mismatch(s, "struct", "union"))); + res + with Not_found -> + raise(Error(Unbound_tag(s, "struct"))) + +let lookup_union env s = + try + let (id, ci as res) = IdentMap.lookup s env.env_tag in + if ci.ci_kind <> Union then + raise(Error(Tag_mismatch(s, "union", "struct"))); + res + with Not_found -> + raise(Error(Unbound_tag(s, "union"))) + +let lookup_composite env s = + try Some (IdentMap.lookup s env.env_tag) + with Not_found -> None + +let lookup_typedef env s = + try + IdentMap.lookup s env.env_typedef + with Not_found -> + raise(Error(Unbound_typedef s)) + +(* Checking if a source name is bound *) + +let ident_is_bound env s = StringMap.mem s env.env_ident + +(* Finding things by translated identifier *) + +let find_ident env id = + try IdentMap.find id env.env_ident + with Not_found -> + raise(Error(Unbound_identifier(id.name))) + +let find_tag env id = + try IdentMap.find id env.env_tag + with Not_found -> + raise(Error(Unbound_tag(id.name, "tag"))) + +let find_struct env id = + try + let ci = IdentMap.find id env.env_tag in + if ci.ci_kind <> Struct then + raise(Error(Tag_mismatch(id.name, "struct", "union"))); + ci + with Not_found -> + raise(Error(Unbound_tag(id.name, "struct"))) + +let find_union env id = + try + let ci = IdentMap.find id env.env_tag in + if ci.ci_kind <> Union then + raise(Error(Tag_mismatch(id.name, "union", "struct"))); + ci + with Not_found -> + raise(Error(Unbound_tag(id.name, "union"))) + +let find_member ci m = + List.find (fun f -> f.fld_name = m) ci + +let find_struct_member env (id, m) = + try + let ci = find_struct env id in + find_member ci.ci_members m + with Not_found -> + raise(Error(No_member(id.name, "struct", m))) + +let find_union_member env (id, m) = + try + let ci = find_union env id in + find_member ci.ci_members m + with Not_found -> + raise(Error(No_member(id.name, "union", m))) + +let find_typedef env id = + try + IdentMap.find id env.env_typedef + with Not_found -> + raise(Error(Unbound_typedef(id.name))) + +(* Inserting things by source name, with generation of a translated name *) + +let enter_ident env s sto ty = + let id = fresh_ident s in + (id, + { env with env_ident = IdentMap.add id (II_ident(sto, ty)) env.env_ident }) + +let enter_composite env s ci = + let id = fresh_ident s in + (id, { env with env_tag = IdentMap.add id ci env.env_tag }) + +let enter_enum_item env s v = + let id = fresh_ident s in + (id, { env with env_ident = IdentMap.add id (II_enum v) env.env_ident }) + +let enter_typedef env s info = + let id = fresh_ident s in + (id, { env with env_typedef = IdentMap.add id info env.env_typedef }) + +(* Inserting things by translated name *) + +let add_ident env id sto ty = + { env with env_ident = IdentMap.add id (II_ident(sto, ty)) env.env_ident } + +let add_composite env id ci = + { env with env_tag = IdentMap.add id ci env.env_tag } + +let add_typedef env id info = + { env with env_typedef = IdentMap.add id info env.env_typedef } + +(* Error reporting *) + +open Printf + +let error_message = function + | Unbound_identifier name -> + sprintf "Unbound identifier '%s'" name + | Unbound_tag(name, kind) -> + sprintf "Unbound %s '%s'" kind name + | Tag_mismatch(name, expected, actual) -> + sprintf "'%s' was declared as a %s but is used as a %s" + name actual expected + | Unbound_typedef name -> + sprintf "Unbound typedef '%s'" name + | No_member(compname, compkind, memname) -> + sprintf "%s '%s' has no member named '%s'" + compkind compname memname diff --git a/cparser/Env.mli b/cparser/Env.mli new file mode 100644 index 0000000..e7a74af --- /dev/null +++ b/cparser/Env.mli @@ -0,0 +1,70 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +type error = + Unbound_identifier of string + | Unbound_tag of string * string + | Tag_mismatch of string * string * string + | Unbound_typedef of string + | No_member of string * string * string +val error_message : error -> string +exception Error of error + +val fresh_ident : string -> C.ident + +type composite_info = { + ci_kind: C.struct_or_union; + ci_members: C.field list; (* members, in order *) + ci_alignof: int option; (* alignment; None if incomplete *) + ci_sizeof: int option; (* size; None if incomplete *) +} + +type ident_info = II_ident of C.storage * C.typ | II_enum of int64 + +type typedef_info = C.typ + +type t + +val empty : t + +val new_scope : t -> t +val in_current_scope : t -> C.ident -> bool + +val lookup_ident : t -> string -> C.ident * ident_info +val lookup_tag : t -> string -> C.ident * composite_info +val lookup_struct : t -> string -> C.ident * composite_info +val lookup_union : t -> string -> C.ident * composite_info +val lookup_composite : t -> string -> (C.ident * composite_info) option +val lookup_typedef : t -> string -> C.ident * typedef_info + +val ident_is_bound : t -> string -> bool + +val find_ident : t -> C.ident -> ident_info +val find_tag : t -> C.ident -> composite_info +val find_struct : t -> C.ident -> composite_info +val find_union : t -> C.ident -> composite_info +val find_member : C.field list -> string -> C.field +val find_struct_member : t -> C.ident * string -> C.field +val find_union_member : t -> C.ident * string -> C.field +val find_typedef : t -> C.ident -> typedef_info + +val enter_ident : t -> string -> C.storage -> C.typ -> C.ident * t +val enter_composite : t -> string -> composite_info -> C.ident * t +val enter_enum_item : t -> string -> int64 -> C.ident * t +val enter_typedef : t -> string -> typedef_info -> C.ident * t + +val add_ident : t -> C.ident -> C.storage -> C.typ -> t +val add_composite : t -> C.ident -> composite_info -> t +val add_typedef : t -> C.ident -> typedef_info -> t diff --git a/cparser/Errors.ml b/cparser/Errors.ml new file mode 100644 index 0000000..188531e --- /dev/null +++ b/cparser/Errors.ml @@ -0,0 +1,55 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Management of errors and warnings *) + +open Format + +let warn_error = ref false + +let num_errors = ref 0 +let num_warnings = ref 0 + +let reset () = num_errors := 0; num_warnings := 0 + +exception Abort + +let fatal_error fmt = + incr num_errors; + kfprintf + (fun _ -> raise Abort) + err_formatter + ("@[" ^^ fmt ^^ ".@]@.@[Fatal error.@]@.") + +let error fmt = + incr num_errors; + eprintf ("@[" ^^ fmt ^^ ".@]@.") + +let warning fmt = + incr num_warnings; + eprintf ("@[" ^^ fmt ^^ ".@]@.") + +let check_errors () = + if !num_errors > 0 then + eprintf "@[%d error%s detected.@]@." + !num_errors + (if !num_errors = 1 then "" else "s"); + if !warn_error && !num_warnings > 0 then + eprintf "@[%d error-enabled warning%s detected.@]@." + !num_warnings + (if !num_warnings = 1 then "" else "s"); + !num_errors > 0 || (!warn_error && !num_warnings > 0) + + diff --git a/cparser/Errors.mli b/cparser/Errors.mli new file mode 100644 index 0000000..557fb14 --- /dev/null +++ b/cparser/Errors.mli @@ -0,0 +1,22 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +val warn_error : bool ref +val reset : unit -> unit +exception Abort +val fatal_error : ('a, Format.formatter, unit, unit, unit, 'b) format6 -> 'a +val error : ('a, Format.formatter, unit, unit, unit, unit) format6 -> 'a +val warning : ('a, Format.formatter, unit, unit, unit, unit) format6 -> 'a +val check_errors : unit -> bool diff --git a/cparser/GCC.ml b/cparser/GCC.ml new file mode 100644 index 0000000..9f864dc --- /dev/null +++ b/cparser/GCC.ml @@ -0,0 +1,230 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* GCC built-ins *) + +open C +open Cutil + +(* Code adapted from CIL *) + +let voidType = TVoid [] +let charType = TInt(IChar, []) +let intType = TInt(IInt, []) +let uintType = TInt(IUInt, []) +let longType = TInt(ILong, []) +let ulongType = TInt(IULong, []) +let ulongLongType = TInt(IULongLong, []) +let floatType = TFloat(FFloat, []) +let doubleType = TFloat(FDouble, []) +let longDoubleType = TFloat (FLongDouble, []) +let voidPtrType = TPtr(TVoid [], []) +let voidConstPtrType = TPtr(TVoid [AConst], []) +let charPtrType = TPtr(TInt(IChar, []), []) +let charConstPtrType = TPtr(TInt(IChar, [AConst]), []) +let intPtrType = TPtr(TInt(IInt, []), []) +let sizeType = TInt(size_t_ikind, []) + +let builtins = { + Builtins.typedefs = [ + "__builtin_va_list", voidPtrType +]; + Builtins.functions = [ + "__builtin___fprintf_chk", (intType, [ voidPtrType; intType; charConstPtrType ], true) (* first argument is really FILE*, not void*, but we don't want to build in the definition for FILE *); + "__builtin___memcpy_chk", (voidPtrType, [ voidPtrType; voidConstPtrType; sizeType; sizeType ], false); + "__builtin___memmove_chk", (voidPtrType, [ voidPtrType; voidConstPtrType; sizeType; sizeType ], false); + "__builtin___mempcpy_chk", (voidPtrType, [ voidPtrType; voidConstPtrType; sizeType; sizeType ], false); + "__builtin___memset_chk", (voidPtrType, [ voidPtrType; intType; sizeType; sizeType ], false); + "__builtin___printf_chk", (intType, [ intType; charConstPtrType ], true); + "__builtin___snprintf_chk", (intType, [ charPtrType; sizeType; intType; sizeType; charConstPtrType ], true); + "__builtin___sprintf_chk", (intType, [ charPtrType; intType; sizeType; charConstPtrType ], true); + "__builtin___stpcpy_chk", (charPtrType, [ charPtrType; charConstPtrType; sizeType ], false); + "__builtin___strcat_chk", (charPtrType, [ charPtrType; charConstPtrType; sizeType ], false); + "__builtin___strcpy_chk", (charPtrType, [ charPtrType; charConstPtrType; sizeType ], false); + "__builtin___strncat_chk", (charPtrType, [ charPtrType; charConstPtrType; sizeType; sizeType ], false); + "__builtin___strncpy_chk", (charPtrType, [ charPtrType; charConstPtrType; sizeType; sizeType ], false); + "__builtin___vfprintf_chk", (intType, [ voidPtrType; intType; charConstPtrType; voidPtrType ], false) (* first argument is really FILE*, not void*, but we don't want to build in the definition for FILE *); + "__builtin___vprintf_chk", (intType, [ intType; charConstPtrType; voidPtrType ], false); + "__builtin___vsnprintf_chk", (intType, [ charPtrType; sizeType; intType; sizeType; charConstPtrType; voidPtrType ], false); + "__builtin___vsprintf_chk", (intType, [ charPtrType; intType; sizeType; charConstPtrType; voidPtrType ], false); + + "__builtin_acos", (doubleType, [ doubleType ], false); + "__builtin_acosf", (floatType, [ floatType ], false); + "__builtin_acosl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_alloca", (voidPtrType, [ uintType ], false); + + "__builtin_asin", (doubleType, [ doubleType ], false); + "__builtin_asinf", (floatType, [ floatType ], false); + "__builtin_asinl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_atan", (doubleType, [ doubleType ], false); + "__builtin_atanf", (floatType, [ floatType ], false); + "__builtin_atanl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_atan2", (doubleType, [ doubleType; doubleType ], false); + "__builtin_atan2f", (floatType, [ floatType; floatType ], false); + "__builtin_atan2l", (longDoubleType, [ longDoubleType; + longDoubleType ], false); + + "__builtin_ceil", (doubleType, [ doubleType ], false); + "__builtin_ceilf", (floatType, [ floatType ], false); + "__builtin_ceill", (longDoubleType, [ longDoubleType ], false); + + "__builtin_cos", (doubleType, [ doubleType ], false); + "__builtin_cosf", (floatType, [ floatType ], false); + "__builtin_cosl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_cosh", (doubleType, [ doubleType ], false); + "__builtin_coshf", (floatType, [ floatType ], false); + "__builtin_coshl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_clz", (intType, [ uintType ], false); + "__builtin_clzl", (intType, [ ulongType ], false); + "__builtin_clzll", (intType, [ ulongLongType ], false); + "__builtin_constant_p", (intType, [ intType ], false); + "__builtin_ctz", (intType, [ uintType ], false); + "__builtin_ctzl", (intType, [ ulongType ], false); + "__builtin_ctzll", (intType, [ ulongLongType ], false); + + "__builtin_exp", (doubleType, [ doubleType ], false); + "__builtin_expf", (floatType, [ floatType ], false); + "__builtin_expl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_expect", (longType, [ longType; longType ], false); + + "__builtin_fabs", (doubleType, [ doubleType ], false); + "__builtin_fabsf", (floatType, [ floatType ], false); + "__builtin_fabsl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_ffs", (intType, [ uintType ], false); + "__builtin_ffsl", (intType, [ ulongType ], false); + "__builtin_ffsll", (intType, [ ulongLongType ], false); + "__builtin_frame_address", (voidPtrType, [ uintType ], false); + + "__builtin_floor", (doubleType, [ doubleType ], false); + "__builtin_floorf", (floatType, [ floatType ], false); + "__builtin_floorl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_huge_val", (doubleType, [], false); + "__builtin_huge_valf", (floatType, [], false); + "__builtin_huge_vall", (longDoubleType, [], false); + "__builtin_inf", (doubleType, [], false); + "__builtin_inff", (floatType, [], false); + "__builtin_infl", (longDoubleType, [], false); + "__builtin_memcpy", (voidPtrType, [ voidPtrType; voidConstPtrType; uintType ], false); + "__builtin_mempcpy", (voidPtrType, [ voidPtrType; voidConstPtrType; sizeType ], false); + + "__builtin_fmod", (doubleType, [ doubleType ], false); + "__builtin_fmodf", (floatType, [ floatType ], false); + "__builtin_fmodl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_frexp", (doubleType, [ doubleType; intPtrType ], false); + "__builtin_frexpf", (floatType, [ floatType; intPtrType ], false); + "__builtin_frexpl", (longDoubleType, [ longDoubleType; + intPtrType ], false); + + "__builtin_ldexp", (doubleType, [ doubleType; intType ], false); + "__builtin_ldexpf", (floatType, [ floatType; intType ], false); + "__builtin_ldexpl", (longDoubleType, [ longDoubleType; + intType ], false); + + "__builtin_log", (doubleType, [ doubleType ], false); + "__builtin_logf", (floatType, [ floatType ], false); + "__builtin_logl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_log10", (doubleType, [ doubleType ], false); + "__builtin_log10f", (floatType, [ floatType ], false); + "__builtin_log10l", (longDoubleType, [ longDoubleType ], false); + + "__builtin_modff", (floatType, [ floatType; + TPtr(floatType,[]) ], false); + "__builtin_modfl", (longDoubleType, [ longDoubleType; + TPtr(longDoubleType, []) ], + false); + + "__builtin_nan", (doubleType, [ charConstPtrType ], false); + "__builtin_nanf", (floatType, [ charConstPtrType ], false); + "__builtin_nanl", (longDoubleType, [ charConstPtrType ], false); + "__builtin_nans", (doubleType, [ charConstPtrType ], false); + "__builtin_nansf", (floatType, [ charConstPtrType ], false); + "__builtin_nansl", (longDoubleType, [ charConstPtrType ], false); + "__builtin_next_arg", (voidPtrType, [], false); + "__builtin_object_size", (sizeType, [ voidPtrType; intType ], false); + + "__builtin_parity", (intType, [ uintType ], false); + "__builtin_parityl", (intType, [ ulongType ], false); + "__builtin_parityll", (intType, [ ulongLongType ], false); + + "__builtin_popcount", (intType, [ uintType ], false); + "__builtin_popcountl", (intType, [ ulongType ], false); + "__builtin_popcountll", (intType, [ ulongLongType ], false); + + "__builtin_powi", (doubleType, [ doubleType; intType ], false); + "__builtin_powif", (floatType, [ floatType; intType ], false); + "__builtin_powil", (longDoubleType, [ longDoubleType; intType ], false); + "__builtin_prefetch", (voidType, [ voidConstPtrType ], true); + "__builtin_return", (voidType, [ voidConstPtrType ], false); + "__builtin_return_address", (voidPtrType, [ uintType ], false); + + "__builtin_sin", (doubleType, [ doubleType ], false); + "__builtin_sinf", (floatType, [ floatType ], false); + "__builtin_sinl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_sinh", (doubleType, [ doubleType ], false); + "__builtin_sinhf", (floatType, [ floatType ], false); + "__builtin_sinhl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_sqrt", (doubleType, [ doubleType ], false); + "__builtin_sqrtf", (floatType, [ floatType ], false); + "__builtin_sqrtl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_stpcpy", (charPtrType, [ charPtrType; charConstPtrType ], false); + "__builtin_strchr", (charPtrType, [ charPtrType; charType ], false); + "__builtin_strcmp", (intType, [ charConstPtrType; charConstPtrType ], false); + "__builtin_strcpy", (charPtrType, [ charPtrType; charConstPtrType ], false); + "__builtin_strcspn", (uintType, [ charConstPtrType; charConstPtrType ], false); + "__builtin_strncat", (charPtrType, [ charPtrType; charConstPtrType; sizeType ], false); + "__builtin_strncmp", (intType, [ charConstPtrType; charConstPtrType; sizeType ], false); + "__builtin_strncpy", (charPtrType, [ charPtrType; charConstPtrType; sizeType ], false); + "__builtin_strspn", (intType, [ charConstPtrType; charConstPtrType ], false); + "__builtin_strpbrk", (charPtrType, [ charConstPtrType; charConstPtrType ], false); + (* When we parse builtin_types_compatible_p, we change its interface *) + "__builtin_types_compatible_p", + (intType, [ uintType; (* Sizeof the type *) + uintType (* Sizeof the type *) ], + false); + "__builtin_tan", (doubleType, [ doubleType ], false); + "__builtin_tanf", (floatType, [ floatType ], false); + "__builtin_tanl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_tanh", (doubleType, [ doubleType ], false); + "__builtin_tanhf", (floatType, [ floatType ], false); + "__builtin_tanhl", (longDoubleType, [ longDoubleType ], false); + + "__builtin_va_end", (voidType, [ voidPtrType ], false); + "__builtin_varargs_start", + (voidType, [ voidPtrType ], false); + (* When we elaborate builtin_stdarg_start/builtin_va_start, + second argument is passed by address *) + "__builtin_va_start", (voidType, [ voidPtrType; voidPtrType ], false); + "__builtin_stdarg_start", (voidType, [ voidPtrType ], false); + (* When we parse builtin_va_arg, type argument becomes sizeof type *) + "__builtin_va_arg", (voidType, [ voidPtrType; sizeType ], false); + "__builtin_va_copy", (voidType, [ voidPtrType; + voidPtrType ], + false) +] +} diff --git a/cparser/GCC.mli b/cparser/GCC.mli new file mode 100644 index 0000000..76f4037 --- /dev/null +++ b/cparser/GCC.mli @@ -0,0 +1,18 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* GCC built-ins *) + +val builtins: Builtins.t diff --git a/cparser/Lexer.mli b/cparser/Lexer.mli new file mode 100644 index 0000000..5238c54 --- /dev/null +++ b/cparser/Lexer.mli @@ -0,0 +1,56 @@ +(* + * + * Copyright (c) 2001-2002, + * George C. Necula + * Scott McPeak + * Wes Weimer + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions are + * met: + * + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * 3. The names of the contributors may not be used to endorse or promote + * products derived from this software without specific prior written + * permission. + * + * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS + * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED + * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A + * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER + * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, + * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, + * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR + * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF + * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING + * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS + * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + * + *) + + +(* This interface is generated manually. The corresponding .ml file is + * generated automatically and is placed in ../obj/clexer.ml. The reason we + * want this interface is to avoid confusing make with freshly generated + * interface files *) + + +val init: Lexing.lexbuf -> Lexing.lexbuf +val finish: unit -> unit + +(* This is the main parser function *) +val initial: Lexing.lexbuf -> Parser.token + + +val push_context: unit -> unit (* Start a context *) +val add_type: string -> unit (* Add a new string as a type name *) +val add_identifier: string -> unit (* Add a new string as a variable name *) +val pop_context: unit -> unit (* Remove all names added in this context *) + diff --git a/cparser/Lexer.mll b/cparser/Lexer.mll new file mode 100644 index 0000000..f7809e7 --- /dev/null +++ b/cparser/Lexer.mll @@ -0,0 +1,604 @@ +(* + * + * Copyright (c) 2001-2003, + * George C. Necula + * Scott McPeak + * Wes Weimer + * Ben Liblit + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions are + * met: + * + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * 3. The names of the contributors may not be used to endorse or promote + * products derived from this software without specific prior written + * permission. + * + * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS + * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED + * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A + * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER + * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, + * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, + * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR + * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF + * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING + * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS + * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + * + *) +(* FrontC -- lexical analyzer +** +** 1.0 3.22.99 Hugues Cassé First version. +** 2.0 George Necula 12/12/00: Many extensions +*) +{ +open Lexing +open Parse_aux +open Parser + +exception Eof + +module H = Hashtbl + +let newline lb = + let cp = lb.lex_curr_p in + lb.lex_curr_p <- { cp with pos_lnum = 1 + cp.pos_lnum } + +let setCurrentLine lb lineno = + let cp = lb.lex_curr_p in + lb.lex_curr_p <- { cp with pos_lnum = lineno } + +let setCurrentFile lb file = + let cp = lb.lex_curr_p in + lb.lex_curr_p <- { cp with pos_fname = file } + +let matchingParsOpen = ref 0 + +let currentLoc = Cabshelper.currentLoc_lexbuf + +let int64_to_char value = + assert (value <= 255L && value >= 0L); + Char.chr (Int64.to_int value) + +(* takes a not-nul-terminated list, and converts it to a string. *) +let rec intlist_to_string (str: int64 list):string = + match str with + [] -> "" (* add nul-termination *) + | value::rest -> + let this_char = int64_to_char value in + (String.make 1 this_char) ^ (intlist_to_string rest) + +(* +** Keyword hashtable +*) +let lexicon = H.create 211 +let init_lexicon _ = + H.clear lexicon; + List.iter + (fun (key, builder) -> H.add lexicon key builder) + [ ("_Bool", fun loc -> UNDERSCORE_BOOL loc); + ("auto", fun loc -> AUTO loc); + ("const", fun loc -> CONST loc); + ("__const", fun loc -> CONST loc); + ("__const__", fun loc -> CONST loc); + ("static", fun loc -> STATIC loc); + ("extern", fun loc -> EXTERN loc); + ("long", fun loc -> LONG loc); + ("short", fun loc -> SHORT loc); + ("register", fun loc -> REGISTER loc); + ("signed", fun loc -> SIGNED loc); + ("__signed", fun loc -> SIGNED loc); + ("unsigned", fun loc -> UNSIGNED loc); + ("volatile", fun loc -> VOLATILE loc); + ("__volatile", fun loc -> VOLATILE loc); + (* WW: see /usr/include/sys/cdefs.h for why __signed and __volatile + * are accepted GCC-isms *) + ("char", fun loc -> CHAR loc); + ("int", fun loc -> INT loc); + ("float", fun loc -> FLOAT loc); + ("double", fun loc -> DOUBLE loc); + ("void", fun loc -> VOID loc); + ("enum", fun loc -> ENUM loc); + ("struct", fun loc -> STRUCT loc); + ("typedef", fun loc -> TYPEDEF loc); + ("union", fun loc -> UNION loc); + ("break", fun loc -> BREAK loc); + ("continue", fun loc -> CONTINUE loc); + ("goto", fun loc -> GOTO loc); + ("return", fun loc -> RETURN loc); + ("switch", fun loc -> SWITCH loc); + ("case", fun loc -> CASE loc); + ("default", fun loc -> DEFAULT loc); + ("while", fun loc -> WHILE loc); + ("do", fun loc -> DO loc); + ("for", fun loc -> FOR loc); + ("if", fun loc -> IF loc); + ("else", fun _ -> ELSE); + (*** Implementation specific keywords ***) + ("__signed__", fun loc -> SIGNED loc); + ("__inline__", fun loc -> INLINE loc); + ("inline", fun loc -> INLINE loc); + ("__inline", fun loc -> INLINE loc); + ("_inline", fun loc -> + if !msvcMode then + INLINE loc + else + IDENT ("_inline", loc)); + ("__attribute__", fun loc -> ATTRIBUTE loc); + ("__attribute", fun loc -> ATTRIBUTE loc); +(* + ("__attribute_used__", fun loc -> ATTRIBUTE_USED loc); +*) + ("__blockattribute__", fun _ -> BLOCKATTRIBUTE); + ("__blockattribute", fun _ -> BLOCKATTRIBUTE); + ("__asm__", fun loc -> ASM loc); + ("asm", fun loc -> ASM loc); + ("__typeof__", fun loc -> TYPEOF loc); + ("__typeof", fun loc -> TYPEOF loc); + ("typeof", fun loc -> TYPEOF loc); + ("__alignof", fun loc -> ALIGNOF loc); + ("__alignof__", fun loc -> ALIGNOF loc); + ("__volatile__", fun loc -> VOLATILE loc); + ("__volatile", fun loc -> VOLATILE loc); + + ("__FUNCTION__", fun loc -> FUNCTION__ loc); + ("__func__", fun loc -> FUNCTION__ loc); (* ISO 6.4.2.2 *) + ("__PRETTY_FUNCTION__", fun loc -> PRETTY_FUNCTION__ loc); + ("__label__", fun _ -> LABEL__); + (*** weimer: GCC arcana ***) + ("__restrict", fun loc -> RESTRICT loc); + ("restrict", fun loc -> RESTRICT loc); +(* ("__extension__", EXTENSION); *) + (**** MS VC ***) + ("__int64", fun loc -> INT64 loc); + ("__int32", fun loc -> INT loc); + ("_cdecl", fun loc -> MSATTR ("_cdecl", loc)); + ("__cdecl", fun loc -> MSATTR ("__cdecl", loc)); + ("_stdcall", fun loc -> MSATTR ("_stdcall", loc)); + ("__stdcall", fun loc -> MSATTR ("__stdcall", loc)); + ("_fastcall", fun loc -> MSATTR ("_fastcall", loc)); + ("__fastcall", fun loc -> MSATTR ("__fastcall", loc)); + ("__w64", fun loc -> MSATTR("__w64", loc)); + ("__declspec", fun loc -> DECLSPEC loc); + ("__forceinline", fun loc -> INLINE loc); (* !! we turn forceinline + * into inline *) + ("__try", fun loc -> TRY loc); + ("__except", fun loc -> EXCEPT loc); + ("__finally", fun loc -> FINALLY loc); + (* weimer: some files produced by 'GCC -E' expect this type to be + * defined *) + ("__builtin_va_list", fun loc -> NAMED_TYPE ("__builtin_va_list", loc)); + ("__builtin_va_arg", fun loc -> BUILTIN_VA_ARG loc); + ("__builtin_types_compatible_p", fun loc -> BUILTIN_TYPES_COMPAT loc); + ("__builtin_offsetof", fun loc -> BUILTIN_OFFSETOF loc); + (* On some versions of GCC __thread is a regular identifier *) + ("__thread", fun loc -> THREAD loc) + ] + +(* Mark an identifier as a type name. The old mapping is preserved and will + * be reinstated when we exit this context *) +let add_type name = + (* ignore (print_string ("adding type name " ^ name ^ "\n")); *) + H.add lexicon name (fun loc -> NAMED_TYPE (name, loc)) + +let context : string list list ref = ref [] + +let push_context _ = context := []::!context + +let pop_context _ = + match !context with + [] -> assert false + | con::sub -> + (context := sub; + List.iter (fun name -> + (* ignore (print_string ("removing lexicon for " ^ name ^ "\n")); *) + H.remove lexicon name) con) + +(* Mark an identifier as a variable name. The old mapping is preserved and + * will be reinstated when we exit this context *) +let add_identifier name = + match !context with + [] -> () (* Just ignore raise (InternalError "Empty context stack") *) + | con::sub -> + context := (name::con)::sub; + H.add lexicon name (fun loc -> IDENT (name, loc)) + + +(* +** Useful primitives +*) +let scan_ident lb id = + let here = currentLoc lb in + try (H.find lexicon id) here + (* default to variable name, as opposed to type *) + with Not_found -> IDENT (id, here) + + +(* +** Buffer processor +*) + + +let init source = + init_lexicon (); + (* Inititialize the pointer in Errormsg *) + Parse_aux.add_type := add_type; + Parse_aux.push_context := push_context; + Parse_aux.pop_context := pop_context; + Parse_aux.add_identifier := add_identifier; + (* Build lexbuf *) + let lb = source in + let cp = lb.lex_curr_p in + lb.lex_curr_p <- {cp with pos_lnum = 1}; + lb + +let finish () = + () + +(*** Error handling ***) +let error = parse_error + + +(*** escape character management ***) +let scan_escape (char: char) : int64 = + let result = match char with + 'n' -> '\n' + | 'r' -> '\r' + | 't' -> '\t' + | 'b' -> '\b' + | 'f' -> '\012' (* ASCII code 12 *) + | 'v' -> '\011' (* ASCII code 11 *) + | 'a' -> '\007' (* ASCII code 7 *) + | 'e' | 'E' -> '\027' (* ASCII code 27. This is a GCC extension *) + | '\'' -> '\'' + | '"'-> '"' (* '"' *) + | '?' -> '?' + | '(' when not !msvcMode -> '(' + | '{' when not !msvcMode -> '{' + | '[' when not !msvcMode -> '[' + | '%' when not !msvcMode -> '%' + | '\\' -> '\\' + | other -> error ("Unrecognized escape sequence: \\" ^ (String.make 1 other)); raise Parsing.Parse_error + in + Int64.of_int (Char.code result) + +let scan_hex_escape str = + let radix = Int64.of_int 16 in + let the_value = ref Int64.zero in + (* start at character 2 to skip the \x *) + for i = 2 to (String.length str) - 1 do + let thisDigit = Cabshelper.valueOfDigit (String.get str i) in + (* the_value := !the_value * 16 + thisDigit *) + the_value := Int64.add (Int64.mul !the_value radix) thisDigit + done; + !the_value + +let scan_oct_escape str = + let radix = Int64.of_int 8 in + let the_value = ref Int64.zero in + (* start at character 1 to skip the \x *) + for i = 1 to (String.length str) - 1 do + let thisDigit = Cabshelper.valueOfDigit (String.get str i) in + (* the_value := !the_value * 8 + thisDigit *) + the_value := Int64.add (Int64.mul !the_value radix) thisDigit + done; + !the_value + +let lex_hex_escape remainder lexbuf = + let prefix = scan_hex_escape (Lexing.lexeme lexbuf) in + prefix :: remainder lexbuf + +let lex_oct_escape remainder lexbuf = + let prefix = scan_oct_escape (Lexing.lexeme lexbuf) in + prefix :: remainder lexbuf + +let lex_simple_escape remainder lexbuf = + let lexchar = Lexing.lexeme_char lexbuf 1 in + let prefix = scan_escape lexchar in + prefix :: remainder lexbuf + +let lex_unescaped remainder lexbuf = + let prefix = Int64.of_int (Char.code (Lexing.lexeme_char lexbuf 0)) in + prefix :: remainder lexbuf + +let lex_comment remainder lexbuf = + let ch = Lexing.lexeme_char lexbuf 0 in + let prefix = Int64.of_int (Char.code ch) in + if ch = '\n' then newline lexbuf; + prefix :: remainder lexbuf + +let make_char (i:int64):char = + let min_val = Int64.zero in + let max_val = Int64.of_int 255 in + (* if i < 0 || i > 255 then error*) + if compare i min_val < 0 || compare i max_val > 0 then begin + let msg = Printf.sprintf "clexer:make_char: character 0x%Lx too big" i in + error msg + end; + Char.chr (Int64.to_int i) + + +(* ISO standard locale-specific function to convert a wide character + * into a sequence of normal characters. Here we work on strings. + * We convert L"Hi" to "H\000i\000" + matth: this seems unused. +let wbtowc wstr = + let len = String.length wstr in + let dest = String.make (len * 2) '\000' in + for i = 0 to len-1 do + dest.[i*2] <- wstr.[i] ; + done ; + dest +*) + +(* This function converst the "Hi" in L"Hi" to { L'H', L'i', L'\0' } + matth: this seems unused. +let wstr_to_warray wstr = + let len = String.length wstr in + let res = ref "{ " in + for i = 0 to len-1 do + res := !res ^ (Printf.sprintf "L'%c', " wstr.[i]) + done ; + res := !res ^ "}" ; + !res +*) + +} + +let decdigit = ['0'-'9'] +let octdigit = ['0'-'7'] +let hexdigit = ['0'-'9' 'a'-'f' 'A'-'F'] +let letter = ['a'- 'z' 'A'-'Z'] + + +let usuffix = ['u' 'U'] +let lsuffix = "l"|"L"|"ll"|"LL" +let intsuffix = lsuffix | usuffix | usuffix lsuffix | lsuffix usuffix + | usuffix ? "i64" + + +let hexprefix = '0' ['x' 'X'] + +let intnum = decdigit+ intsuffix? +let octnum = '0' octdigit+ intsuffix? +let hexnum = hexprefix hexdigit+ intsuffix? + +let exponent = ['e' 'E']['+' '-']? decdigit+ +let fraction = '.' decdigit+ +let decfloat = (intnum? fraction) + |(intnum exponent) + |(intnum? fraction exponent) + | (intnum '.') + | (intnum '.' exponent) + +let hexfraction = hexdigit* '.' hexdigit+ | hexdigit+ +let binexponent = ['p' 'P'] ['+' '-']? decdigit+ +let hexfloat = hexprefix hexfraction binexponent + | hexprefix hexdigit+ binexponent + +let floatsuffix = ['f' 'F' 'l' 'L'] +let floatnum = (decfloat | hexfloat) floatsuffix? + +let ident = (letter|'_'|'$')(letter|decdigit|'_'|'$')* +let blank = [' ' '\t' '\012' '\r']+ +let escape = '\\' _ +let hex_escape = '\\' ['x' 'X'] hexdigit+ +let oct_escape = '\\' octdigit octdigit? octdigit? + +rule initial = + parse "/*" { comment lexbuf; + initial lexbuf} +| "//" { onelinecomment lexbuf; + newline lexbuf; + initial lexbuf + } +| blank { initial lexbuf} +| '\n' { newline lexbuf; + initial lexbuf } +| '\\' '\r' * '\n' { newline lexbuf; + initial lexbuf + } +| '#' { hash lexbuf} +(* +| "_Pragma" { PRAGMA (currentLoc lexbuf) } +*) +| '\'' { CST_CHAR (chr lexbuf, currentLoc lexbuf)} +| "L'" { CST_WCHAR (chr lexbuf, currentLoc lexbuf) } +| '"' { (* '"' *) +(* matth: BUG: this could be either a regular string or a wide string. + * e.g. if it's the "world" in + * L"Hello, " "world" + * then it should be treated as wide even though there's no L immediately + * preceding it. See test/small1/wchar5.c for a failure case. *) + CST_STRING (str lexbuf, currentLoc lexbuf) } +| "L\"" { (* weimer: wchar_t string literal *) + CST_WSTRING(str lexbuf, currentLoc lexbuf) } +| floatnum {CST_FLOAT (Lexing.lexeme lexbuf, currentLoc lexbuf)} +| hexnum {CST_INT (Lexing.lexeme lexbuf, currentLoc lexbuf)} +| octnum {CST_INT (Lexing.lexeme lexbuf, currentLoc lexbuf)} +| intnum {CST_INT (Lexing.lexeme lexbuf, currentLoc lexbuf)} +| "!quit!" {EOF} +| "..." {ELLIPSIS} +| "+=" {PLUS_EQ} +| "-=" {MINUS_EQ} +| "*=" {STAR_EQ} +| "/=" {SLASH_EQ} +| "%=" {PERCENT_EQ} +| "|=" {PIPE_EQ} +| "&=" {AND_EQ} +| "^=" {CIRC_EQ} +| "<<=" {INF_INF_EQ} +| ">>=" {SUP_SUP_EQ} +| "<<" {INF_INF} +| ">>" {SUP_SUP} +| "==" {EQ_EQ} +| "!=" {EXCLAM_EQ} +| "<=" {INF_EQ} +| ">=" {SUP_EQ} +| "=" {EQ} +| "<" {INF} +| ">" {SUP} +| "++" {PLUS_PLUS (currentLoc lexbuf)} +| "--" {MINUS_MINUS (currentLoc lexbuf)} +| "->" {ARROW} +| '+' {PLUS (currentLoc lexbuf)} +| '-' {MINUS (currentLoc lexbuf)} +| '*' {STAR (currentLoc lexbuf)} +| '/' {SLASH} +| '%' {PERCENT} +| '!' {EXCLAM (currentLoc lexbuf)} +| "&&" {AND_AND (currentLoc lexbuf)} +| "||" {PIPE_PIPE} +| '&' {AND (currentLoc lexbuf)} +| '|' {PIPE} +| '^' {CIRC} +| '?' {QUEST} +| ':' {COLON} +| '~' {TILDE (currentLoc lexbuf)} + +| '{' {LBRACE (currentLoc lexbuf)} +| '}' {RBRACE (currentLoc lexbuf)} +| '[' {LBRACKET} +| ']' {RBRACKET} +| '(' { (LPAREN (currentLoc lexbuf)) } +| ')' {RPAREN} +| ';' { (SEMICOLON (currentLoc lexbuf)) } +| ',' {COMMA} +| '.' {DOT} +| "sizeof" {SIZEOF (currentLoc lexbuf)} +| "__asm" { if !msvcMode then + MSASM (msasm lexbuf, currentLoc lexbuf) + else (ASM (currentLoc lexbuf)) } + +(* If we see __pragma we eat it and the matching parentheses as well *) +| "__pragma" { matchingParsOpen := 0; + let _ = matchingpars lexbuf in + initial lexbuf + } + +(* __extension__ is a black. The parser runs into some conflicts if we let it + * pass *) +| "__extension__" {initial lexbuf } +| ident {scan_ident lexbuf (Lexing.lexeme lexbuf)} +| eof {EOF} +| _ {parse_error "Invalid symbol"; raise Parsing.Parse_error } +and comment = + parse + "*/" { () } +| eof { () } +| '\n' { newline lexbuf; comment lexbuf } +| _ { comment lexbuf } + + +and onelinecomment = parse + '\n'|eof { () } +| _ { onelinecomment lexbuf } + +and matchingpars = parse + '\n' { newline lexbuf; matchingpars lexbuf } +| blank { matchingpars lexbuf } +| '(' { incr matchingParsOpen; matchingpars lexbuf } +| ')' { decr matchingParsOpen; + if !matchingParsOpen = 0 then + () + else + matchingpars lexbuf + } +| "/*" { comment lexbuf; matchingpars lexbuf} +| '"' { (* '"' *) + let _ = str lexbuf in + matchingpars lexbuf + } +| _ { matchingpars lexbuf } + +(* # ... *) +and hash = parse + '\n' { newline lexbuf; initial lexbuf} +| blank { hash lexbuf} +| intnum { (* We are seeing a line number. This is the number for the + * next line *) + let s = Lexing.lexeme lexbuf in + begin try + setCurrentLine lexbuf (int_of_string s - 1) + with Failure ("int_of_string") -> + (* the int is too big. *) + () + end; + (* A file name may follow *) + file lexbuf } +| "line" { hash lexbuf } (* MSVC line number info *) +| "pragma" blank + { let here = currentLoc lexbuf in + PRAGMA_LINE (pragma lexbuf, here) + } +| _ { endline lexbuf} + +and file = parse + '\n' { newline lexbuf; initial lexbuf} +| blank { file lexbuf} +| '"' [^ '\012' '\t' '"']* '"' { (* '"' *) + let n = Lexing.lexeme lexbuf in + let n1 = String.sub n 1 + ((String.length n) - 2) in + setCurrentFile lexbuf n1; + endline lexbuf} + +| _ { endline lexbuf} + +and endline = parse + '\n' { newline lexbuf; initial lexbuf} +| eof { EOF } +| _ { endline lexbuf} + +and pragma = parse + '\n' { newline lexbuf; "" } +| _ { let cur = Lexing.lexeme lexbuf in + cur ^ (pragma lexbuf) } + +and str = parse + '"' {[]} (* no nul terminiation in CST_STRING '"' *) +| hex_escape { lex_hex_escape str lexbuf} +| oct_escape { lex_oct_escape str lexbuf} +| escape { lex_simple_escape str lexbuf} +| _ { lex_unescaped str lexbuf} + +and chr = parse + '\'' {[]} +| hex_escape {lex_hex_escape chr lexbuf} +| oct_escape {lex_oct_escape chr lexbuf} +| escape {lex_simple_escape chr lexbuf} +| _ {lex_unescaped chr lexbuf} + +and msasm = parse + blank { msasm lexbuf } +| '{' { msasminbrace lexbuf } +| _ { let cur = Lexing.lexeme lexbuf in + cur ^ (msasmnobrace lexbuf) } + +and msasminbrace = parse + '}' { "" } +| _ { let cur = Lexing.lexeme lexbuf in + cur ^ (msasminbrace lexbuf) } +and msasmnobrace = parse + ['}' ';' '\n'] { lexbuf.Lexing.lex_curr_pos <- + lexbuf.Lexing.lex_curr_pos - 1; + "" } +| "__asm" { lexbuf.Lexing.lex_curr_pos <- + lexbuf.Lexing.lex_curr_pos - 5; + "" } +| _ { let cur = Lexing.lexeme lexbuf in + + cur ^ (msasmnobrace lexbuf) } + +{ + +} diff --git a/cparser/Machine.ml b/cparser/Machine.ml new file mode 100644 index 0000000..3783712 --- /dev/null +++ b/cparser/Machine.ml @@ -0,0 +1,136 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Machine-dependent aspects *) + +type t = { + char_signed: bool; + sizeof_ptr: int; + sizeof_short: int; + sizeof_int: int; + sizeof_long: int; + sizeof_longlong: int; + sizeof_float: int; + sizeof_double: int; + sizeof_longdouble: int; + sizeof_void: int option; + sizeof_fun: int option; + sizeof_wchar: int; + sizeof_size_t: int; + sizeof_ptrdiff_t: int; + alignof_ptr: int; + alignof_short: int; + alignof_int: int; + alignof_long: int; + alignof_longlong: int; + alignof_float: int; + alignof_double: int; + alignof_longdouble: int; + alignof_void: int option; + alignof_fun: int option +} + +let ilp32ll64 = { + char_signed = false; + sizeof_ptr = 4; + sizeof_short = 2; + sizeof_int = 4; + sizeof_long = 4; + sizeof_longlong = 8; + sizeof_float = 4; + sizeof_double = 8; + sizeof_longdouble = 16; + sizeof_void = None; + sizeof_fun = None; + sizeof_wchar = 4; + sizeof_size_t = 4; + sizeof_ptrdiff_t = 4; + alignof_ptr = 4; + alignof_short = 2; + alignof_int = 4; + alignof_long = 4; + alignof_longlong = 8; + alignof_float = 4; + alignof_double = 8; + alignof_longdouble = 16; + alignof_void = None; + alignof_fun = None +} + +let i32lpll64 = { + char_signed = false; + sizeof_ptr = 8; + sizeof_short = 2; + sizeof_int = 4; + sizeof_long = 8; + sizeof_longlong = 8; + sizeof_float = 4; + sizeof_double = 8; + sizeof_longdouble = 16; + sizeof_void = None; + sizeof_fun = None; + sizeof_wchar = 4; + sizeof_size_t = 8; + sizeof_ptrdiff_t = 8; + alignof_ptr = 8; + alignof_short = 2; + alignof_int = 4; + alignof_long = 8; + alignof_longlong = 8; + alignof_float = 4; + alignof_double = 8; + alignof_longdouble = 16; + alignof_void = None; + alignof_fun = None +} + +let il32pll64 = { + char_signed = false; + sizeof_ptr = 8; + sizeof_short = 2; + sizeof_int = 4; + sizeof_long = 4; + sizeof_longlong = 8; + sizeof_float = 4; + sizeof_double = 8; + sizeof_longdouble = 16; + sizeof_void = None; + sizeof_fun = None; + sizeof_wchar = 4; + sizeof_size_t = 8; + sizeof_ptrdiff_t = 8; + alignof_ptr = 8; + alignof_short = 2; + alignof_int = 4; + alignof_long = 4; + alignof_longlong = 8; + alignof_float = 4; + alignof_double = 8; + alignof_longdouble = 16; + alignof_void = None; + alignof_fun = None +} + +let make_char_signed c = {c with char_signed = true} + +let gcc_extensions c = + { c with sizeof_void = Some 1; sizeof_fun = Some 1; + alignof_void = Some 1; alignof_fun = Some 1 } + +let config = + ref (match Sys.word_size with + | 32 -> ilp32ll64 + | 64 -> if Sys.os_type = "Win32" then il32pll64 else i32lpll64 + | _ -> assert false) diff --git a/cparser/Machine.mli b/cparser/Machine.mli new file mode 100644 index 0000000..bd3f357 --- /dev/null +++ b/cparser/Machine.mli @@ -0,0 +1,51 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Machine-dependent aspects *) + +type t = { + char_signed: bool; + sizeof_ptr: int; + sizeof_short: int; + sizeof_int: int; + sizeof_long: int; + sizeof_longlong: int; + sizeof_float: int; + sizeof_double: int; + sizeof_longdouble: int; + sizeof_void: int option; + sizeof_fun: int option; + sizeof_wchar: int; + sizeof_size_t: int; + sizeof_ptrdiff_t: int; + alignof_ptr: int; + alignof_short: int; + alignof_int: int; + alignof_long: int; + alignof_longlong: int; + alignof_float: int; + alignof_double: int; + alignof_longdouble: int; + alignof_void: int option; + alignof_fun: int option +} + +val ilp32ll64 : t +val i32lpll64 : t +val il32pll64 : t +val make_char_signed : t -> t +val gcc_extensions : t -> t + +val config : t ref diff --git a/cparser/Main.ml b/cparser/Main.ml new file mode 100644 index 0000000..49b8659 --- /dev/null +++ b/cparser/Main.ml @@ -0,0 +1,89 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Wrapper around gcc to parse, transform, pretty-print, and call gcc on result *) + +let transfs = ref "" + +let safe_remove name = + try Sys.remove name with Sys_error _ -> () + +let process_c_file prepro_opts name = + let ppname = Filename.temp_file "cparser" ".i" in + let cpname = Filename.chop_suffix name ".c" ^ ".i" in + let rc = + Sys.command + (Printf.sprintf "gcc -E -U__GNUC__ %s %s > %s" + (String.concat " " (List.map Filename.quote prepro_opts)) + (Filename.quote name) (Filename.quote ppname)) in + if rc <> 0 then begin + safe_remove ppname; + exit 2 + end; + let ic = open_in ppname in + let lexbuf = Lexing.from_channel ic in + lexbuf.Lexing.lex_curr_p <- { lexbuf.Lexing.lex_curr_p with Lexing.pos_fname = ppname }; + let r = Parse.preprocessed_file !transfs name lexbuf in + close_in ic; + safe_remove ppname; + match r with + | None -> exit 2 + | Some p -> + let oc = open_out cpname in + let oform = Format.formatter_of_out_channel oc in + Cprint.program oform p; + close_out oc; + cpname + +let starts_with pref s = + String.length s >= String.length pref + && String.sub s 0 (String.length pref) = pref + +let ends_with suff s = + String.length s >= String.length suff + && String.sub s (String.length s - String.length suff) (String.length suff) + = suff + +let rec parse_cmdline prepro args i = + if i >= Array.length Sys.argv then List.rev args else begin + (* should skip arguments more cleanly... *) + let s = Sys.argv.(i) in + if s = "-Xsimplif" && i + 1 < Array.length Sys.argv then begin + transfs := Sys.argv.(i+1); + parse_cmdline prepro args (i+2) + end else if (s = "-I" || s = "-D" || s = "-U") + && i + 1 < Array.length Sys.argv then + parse_cmdline (Sys.argv.(i+1) :: s :: prepro) args (i+2) + else if starts_with "-I" s + || starts_with "-D" s + || starts_with "-U" s then + parse_cmdline (s :: prepro) args (i + 1) + else if s = "-Wall" then + parse_cmdline prepro ("-Wno-parentheses" :: "-Wall" :: args) (i+1) + else if ends_with ".c" s then begin + let s' = process_c_file (List.rev prepro) s in + parse_cmdline prepro (s' :: args) (i + 1) + end else + parse_cmdline prepro (s :: args) (i + 1) + end + + +let _ = + Builtins.set GCC.builtins; + let args = parse_cmdline [] [] 1 in + let cmd = "gcc " ^ String.concat " " (List.map Filename.quote args) in + let rc = Sys.command cmd in + exit rc + diff --git a/cparser/Makefile b/cparser/Makefile new file mode 100644 index 0000000..9b331b9 --- /dev/null +++ b/cparser/Makefile @@ -0,0 +1,86 @@ +OCAMLC=ocamlc -g +OCAMLOPT=ocamlopt -g +OCAMLLEX=ocamllex +OCAMLYACC=ocamlyacc -v +OCAMLDEP=ocamldep +OCAMLMKLIB=ocamlmklib + +LIBDIR=../lib + +INTFS=C.mli + +SRCS=Errors.ml Cabs.ml Cabshelper.ml Parse_aux.ml Parser.ml Lexer.ml \ + Machine.ml \ + Env.ml Cprint.ml Cutil.ml Ceval.ml \ + Builtins.ml GCC.ml CBuiltins.ml \ + Cleanup.ml Elab.ml Rename.ml \ + Transform.ml \ + Unblock.ml SimplExpr.ml AddCasts.ml StructByValue.ml StructAssign.ml \ + Bitfields.ml \ + Parse.ml + +COBJS=uint64.o +BOBJS=$(SRCS:.ml=.cmo) +NOBJS=$(SRCS:.ml=.cmx) +IOBJS=$(INTFS:.mli=.cmi) +NATIVETARGETS=$(shell if `which ocamlopt`; \ + then echo "cparser.cmxa cparser cparser.a libcparser.a dllcparser.so"; fi) + +all: $(NATIVETARGETS) cparser.cma cparser.byte + +install: + mkdir -p $(LIBDIR) + cp -p Cparser.cmi cparser.cma $(NATIVETARGETS) $(LIBDIR) + +cparser: $(COBJS) $(NOBJS) Main.cmx + $(OCAMLOPT) -o cparser $(COBJS) $(NOBJS) Main.cmx + +cparser.byte: $(COBJS) $(BOBJS) Main.cmo + $(OCAMLC) -custom -o cparser.byte $(COBJS) $(BOBJS) Main.cmo + +cparser.cma libcparser.a: uint64.o Cparser.cmo + $(OCAMLMKLIB) -o cparser uint64.o Cparser.cmo + +cparser.cmxa: uint64.o Cparser.cmx + $(OCAMLMKLIB) -o cparser uint64.o Cparser.cmx + +Cparser.cmo Cparser.cmi: $(IOBJS) $(BOBJS) + $(OCAMLC) -pack -o Cparser.cmo $(IOBJS) $(BOBJS) + +Cparser.cmx: $(IOBJS) $(NOBJS) + $(OCAMLOPT) -pack -o Cparser.cmx $(IOBJS) $(NOBJS) + +Parser.ml Parser.mli: Parser.mly + $(OCAMLYACC) Parser.mly + +clean:: + rm -f Parser.ml Parser.mli Parser.output + +beforedepend:: Parser.ml Parser.mli + +Lexer.ml: Lexer.mll + $(OCAMLLEX) Lexer.mll + +clean:: + rm -f Lexer.ml + +beforedepend:: Lexer.ml + +.SUFFIXES: .ml .mli .cmi .cmo .cmx + +.mli.cmi: + $(OCAMLC) -c $*.mli +.ml.cmo: + $(OCAMLC) -c $*.ml +.ml.cmx: + $(OCAMLOPT) -c -for-pack Cparser $*.ml +.c.o: + $(OCAMLC) -c $*.c + +clean:: + rm -f *.cm? *.o *.so *.a *.cmxa *.byte cparser + +depend: beforedepend + $(OCAMLDEP) *.mli *.ml > .depend + +include .depend diff --git a/cparser/Parse.ml b/cparser/Parse.ml new file mode 100644 index 0000000..b3ac524 --- /dev/null +++ b/cparser/Parse.ml @@ -0,0 +1,57 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Entry point for the library: parse, elaborate, and transform *) + +module CharSet = Set.Make(struct type t = char let compare = compare end) + +let transform_program t p = + let run_pass pass flag p = if CharSet.mem flag t then pass p else p in + Rename.program + (run_pass (AddCasts.program ~all:(CharSet.mem 'C' t)) 'c' + (run_pass StructAssign.program 'S' + (run_pass StructByValue.program 's' + (run_pass Bitfields.program 'f' + (run_pass (SimplExpr.program ~volatile:(CharSet.mem 'v' t)) 'e' + (run_pass Unblock.program 'b' + p)))))) + +let parse_transformations s = + let t = ref CharSet.empty in + let set s = String.iter (fun c -> t := CharSet.add c !t) s in + String.iter + (function 'b' -> set "b" + | 'e' -> set "e" + | 'c' -> set "ec" + | 'C' -> set "ecC" + | 's' -> set "s" + | 'S' -> set "esS" + | 'v' -> set "ev" + | 'f' -> set "bef" + | _ -> ()) + s; + !t + +let preprocessed_file transfs name lb = + Errors.reset(); + let t = parse_transformations transfs in + let p = + try + Rename.program (transform_program t (Elab.elab_preprocessed_file lb)) + with Parsing.Parse_error -> + Errors.error "Error during parsing"; [] + | Errors.Abort -> + [] in + if Errors.check_errors() then None else Some p diff --git a/cparser/Parse.mli b/cparser/Parse.mli new file mode 100644 index 0000000..f1c6c53 --- /dev/null +++ b/cparser/Parse.mli @@ -0,0 +1,22 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Entry point for the library: parse, elaborate, and transform *) + +val preprocessed_file: string -> string -> Lexing.lexbuf -> C.program option + +(* first arg: desired transformations + second arg: source file name before preprocessing + third arg: file after preprocessing *) diff --git a/cparser/Parse_aux.ml b/cparser/Parse_aux.ml new file mode 100755 index 0000000..6592245 --- /dev/null +++ b/cparser/Parse_aux.ml @@ -0,0 +1,46 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +open Format +open Errors +open Cabshelper + +(* Report parsing errors *) + +let parse_error msg = + error "%a: %s" format_cabsloc (currentLoc()) msg + +(* Are we parsing msvc syntax? *) + +let msvcMode = ref false + +(* We provide here a pointer to a function. It will be set by the lexer and + * used by the parser. In Ocaml lexers depend on parsers, so we we have put + * such functions in a separate module. *) +let add_identifier: (string -> unit) ref = + ref (fun _ -> assert false) + +let add_type: (string -> unit) ref = + ref (fun _ -> assert false) + +let push_context: (unit -> unit) ref = + ref (fun _ -> assert false) + +let pop_context: (unit -> unit) ref = + ref (fun _ -> assert false) + +(* Keep here the current pattern for formatparse *) +let currentPattern = ref "" + diff --git a/cparser/Parse_aux.mli b/cparser/Parse_aux.mli new file mode 100644 index 0000000..7366aed --- /dev/null +++ b/cparser/Parse_aux.mli @@ -0,0 +1,22 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +val parse_error : string -> unit +val msvcMode : bool ref +val add_identifier : (string -> unit) ref +val add_type : (string -> unit) ref +val push_context : (unit -> unit) ref +val pop_context : (unit -> unit) ref +val currentPattern : string ref diff --git a/cparser/Parser.mly b/cparser/Parser.mly new file mode 100644 index 0000000..0eebb84 --- /dev/null +++ b/cparser/Parser.mly @@ -0,0 +1,1490 @@ +/*(* + * + * Copyright (c) 2001-2003, + * George C. Necula + * Scott McPeak + * Wes Weimer + * Ben Liblit + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions are + * met: + * + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * 3. The names of the contributors may not be used to endorse or promote + * products derived from this software without specific prior written + * permission. + * + * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS + * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED + * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A + * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER + * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, + * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, + * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR + * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF + * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING + * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS + * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + * + **) +(** +** 1.0 3.22.99 Hugues Cassé First version. +** 2.0 George Necula 12/12/00: Practically complete rewrite. +*) +*/ +%{ +open Cabs +open Cabshelper +open Parse_aux + +(* +** Expression building +*) +let smooth_expression lst = + match lst with + [] -> NOTHING + | [expr] -> expr + | _ -> COMMA (lst) + + +let currentFunctionName = ref "" + +let announceFunctionName ((n, decl, _, _):name) = + !add_identifier n; + (* Start a context that includes the parameter names and the whole body. + * Will pop when we finish parsing the function body *) + !push_context (); + (* Go through all the parameter names and mark them as identifiers *) + let rec findProto = function + PROTO (d, args, _) when isJUSTBASE d -> + List.iter (fun (_, (an, _, _, _)) -> !add_identifier an) args + + | PROTO (d, _, _) -> findProto d + | PARENTYPE (_, d, _) -> findProto d + | PTR (_, d) -> findProto d + | ARRAY (d, _, _) -> findProto d + | _ -> parse_error "Cannot find the prototype in a function definition"; + raise Parsing.Parse_error + + and isJUSTBASE = function + JUSTBASE -> true + | PARENTYPE (_, d, _) -> isJUSTBASE d + | _ -> false + in + findProto decl; + currentFunctionName := n + + + +let applyPointer (ptspecs: attribute list list) (dt: decl_type) + : decl_type = + (* Outer specification first *) + let rec loop = function + [] -> dt + | attrs :: rest -> PTR(attrs, loop rest) + in + loop ptspecs + +let doDeclaration (loc: cabsloc) (specs: spec_elem list) (nl: init_name list) : definition = + if isTypedef specs then begin + (* Tell the lexer about the new type names *) + List.iter (fun ((n, _, _, _), _) -> !add_type n) nl; + TYPEDEF ((specs, List.map (fun (n, _) -> n) nl), loc) + end else + if nl = [] then + ONLYTYPEDEF (specs, loc) + else begin + (* Tell the lexer about the new variable names *) + List.iter (fun ((n, _, _, _), _) -> !add_identifier n) nl; + DECDEF ((specs, nl), loc) + end + + +let doFunctionDef (loc: cabsloc) + (lend: cabsloc) + (specs: spec_elem list) + (n: name) + (b: block) : definition = + let fname = (specs, n) in + FUNDEF (fname, b, loc, lend) + + +let doOldParDecl (names: string list) + ((pardefs: name_group list), (isva: bool)) + : single_name list * bool = + let findOneName n = + (* Search in pardefs for the definition for this parameter *) + let rec loopGroups = function + [] -> ([SpecType Tint], (n, JUSTBASE, [], cabslu)) + | (specs, names) :: restgroups -> + let rec loopNames = function + [] -> loopGroups restgroups + | ((n',_, _, _) as sn) :: _ when n' = n -> (specs, sn) + | _ :: restnames -> loopNames restnames + in + loopNames names + in + loopGroups pardefs + in + let args = List.map findOneName names in + (args, isva) + +let int64_to_char value = + if (compare value (Int64.of_int 255) > 0) || (compare value Int64.zero < 0) then + begin + let msg = Printf.sprintf "cparser:intlist_to_string: character 0x%Lx too big" value in + parse_error msg; + raise Parsing.Parse_error + end + else + Char.chr (Int64.to_int value) + +(* takes a not-nul-terminated list, and converts it to a string. *) +let rec intlist_to_string (str: int64 list):string = + match str with + [] -> "" (* add nul-termination *) + | value::rest -> + let this_char = int64_to_char value in + (String.make 1 this_char) ^ (intlist_to_string rest) + +let fst3 (result, _, _) = result +let snd3 (_, result, _) = result +let trd3 (_, _, result) = result + + +(* + transform: __builtin_offsetof(type, member) + into : (size_t) (&(type * ) 0)->member + *) + +let transformOffsetOf (speclist, dtype) member = + let rec addPointer = function + | JUSTBASE -> + PTR([], JUSTBASE) + | PARENTYPE (attrs1, dtype, attrs2) -> + PARENTYPE (attrs1, addPointer dtype, attrs2) + | ARRAY (dtype, attrs, expr) -> + ARRAY (addPointer dtype, attrs, expr) + | PTR (attrs, dtype) -> + PTR (attrs, addPointer dtype) + | PROTO (dtype, names, variadic) -> + PROTO (addPointer dtype, names, variadic) + in + let nullType = (speclist, addPointer dtype) in + let nullExpr = CONSTANT (CONST_INT "0") in + let castExpr = CAST (nullType, SINGLE_INIT nullExpr) in + + let rec replaceBase = function + | VARIABLE field -> + MEMBEROFPTR (castExpr, field) + | MEMBEROF (base, field) -> + MEMBEROF (replaceBase base, field) + | INDEX (base, index) -> + INDEX (replaceBase base, index) + | _ -> + parse_error "malformed offset expression in __builtin_offsetof"; + raise Parsing.Parse_error + in + let memberExpr = replaceBase member in + let addrExpr = UNARY (ADDROF, memberExpr) in + (* slight cheat: hard-coded assumption that size_t == unsigned int *) + let sizeofType = [SpecType Tunsigned], JUSTBASE in + let resultExpr = CAST (sizeofType, SINGLE_INIT addrExpr) in + resultExpr + +%} + +%token IDENT +%token CST_CHAR +%token CST_WCHAR +%token CST_INT +%token CST_FLOAT +%token NAMED_TYPE + +/* Each character is its own list element, and the terminating nul is not + included in this list. */ +%token CST_STRING +%token CST_WSTRING + +%token EOF +%token CHAR INT DOUBLE FLOAT VOID INT64 INT32 UNDERSCORE_BOOL +%token ENUM STRUCT TYPEDEF UNION +%token SIGNED UNSIGNED LONG SHORT +%token VOLATILE EXTERN STATIC CONST RESTRICT AUTO REGISTER +%token THREAD + +%token SIZEOF ALIGNOF + +%token EQ PLUS_EQ MINUS_EQ STAR_EQ SLASH_EQ PERCENT_EQ +%token AND_EQ PIPE_EQ CIRC_EQ INF_INF_EQ SUP_SUP_EQ +%token ARROW DOT + +%token EQ_EQ EXCLAM_EQ INF SUP INF_EQ SUP_EQ +%token PLUS MINUS STAR +%token SLASH PERCENT +%token TILDE AND +%token PIPE CIRC +%token EXCLAM AND_AND +%token PIPE_PIPE +%token INF_INF SUP_SUP +%token PLUS_PLUS MINUS_MINUS + +%token RPAREN +%token LPAREN RBRACE +%token LBRACE +%token LBRACKET RBRACKET +%token COLON +%token SEMICOLON +%token COMMA ELLIPSIS QUEST + +%token BREAK CONTINUE GOTO RETURN +%token SWITCH CASE DEFAULT +%token WHILE DO FOR +%token IF TRY EXCEPT FINALLY +%token ELSE + +%token ATTRIBUTE INLINE ASM TYPEOF FUNCTION__ PRETTY_FUNCTION__ +%token LABEL__ +%token BUILTIN_VA_ARG ATTRIBUTE_USED +%token BUILTIN_VA_LIST +%token BLOCKATTRIBUTE +%token BUILTIN_TYPES_COMPAT BUILTIN_OFFSETOF +%token DECLSPEC +%token MSASM MSATTR +%token PRAGMA_LINE +%token PRAGMA_EOL + +/* operator precedence */ +%nonassoc IF +%nonassoc ELSE + + +%left COMMA +%right EQ PLUS_EQ MINUS_EQ STAR_EQ SLASH_EQ PERCENT_EQ + AND_EQ PIPE_EQ CIRC_EQ INF_INF_EQ SUP_SUP_EQ +%right QUEST COLON +%left PIPE_PIPE +%left AND_AND +%left PIPE +%left CIRC +%left AND +%left EQ_EQ EXCLAM_EQ +%left INF SUP INF_EQ SUP_EQ +%left INF_INF SUP_SUP +%left PLUS MINUS +%left STAR SLASH PERCENT CONST RESTRICT VOLATILE +%right EXCLAM TILDE PLUS_PLUS MINUS_MINUS CAST RPAREN ADDROF SIZEOF ALIGNOF +%left LBRACKET +%left DOT ARROW LPAREN LBRACE +%right NAMED_TYPE /* We'll use this to handle redefinitions of + * NAMED_TYPE as variables */ +%left IDENT + +/* Non-terminals informations */ +%start interpret file +%type file interpret globals + +%type global + + +%type attributes attributes_with_asm asmattr +%type statement +%type constant +%type string_constant +%type expression +%type opt_expression +%type init_expression +%type comma_expression +%type paren_comma_expression +%type arguments +%type bracket_comma_expression +%type string_list +%type wstring_list + +%type initializer +%type <(Cabs.initwhat * Cabs.init_expression) list> initializer_list +%type init_designators init_designators_opt + +%type decl_spec_list +%type type_spec +%type struct_decl_list + + +%type old_proto_decl +%type parameter_decl +%type enumerator +%type enum_list +%type declaration function_def +%type function_def_start +%type type_name +%type block +%type block_element_list +%type local_labels local_label_names +%type old_parameter_list_ne + +%type init_declarator +%type init_declarator_list +%type declarator +%type field_decl +%type <(Cabs.name * expression option) list> field_decl_list +%type direct_decl +%type abs_direct_decl abs_direct_decl_opt +%type abstract_decl + + /* (* Each element is a "* ". *) */ +%type pointer pointer_opt +%type location +%type cvspec +%% + +interpret: + file EOF {$1} +; +file: globals {$1} +; +globals: + /* empty */ { [] } +| global globals { $1 :: $2 } +| SEMICOLON globals { $2 } +; + +location: + /* empty */ { currentLoc () } %prec IDENT + + +/*** Global Definition ***/ +global: +| declaration { $1 } +| function_def { $1 } +/*(* Some C header files ar shared with the C++ compiler and have linkage + * specification *)*/ +| EXTERN string_constant declaration { LINKAGE (fst $2, (*handleLoc*) (snd $2), [ $3 ]) } +| EXTERN string_constant LBRACE globals RBRACE + { LINKAGE (fst $2, (*handleLoc*) (snd $2), $4) } +| ASM LPAREN string_constant RPAREN SEMICOLON + { GLOBASM (fst $3, (*handleLoc*) $1) } +| pragma { $1 } +/* (* Old-style function prototype. This should be somewhere else, like in + * "declaration". For now we keep it at global scope only because in local + * scope it looks too much like a function call *) */ +| IDENT LPAREN old_parameter_list_ne RPAREN old_pardef_list SEMICOLON + { (* Convert pardecl to new style *) + let pardecl, isva = doOldParDecl $3 $5 in + (* Make the function declarator *) + doDeclaration ((*handleLoc*) (snd $1)) [] + [((fst $1, PROTO(JUSTBASE, pardecl,isva), [], cabslu), + NO_INIT)] + } +/* (* Old style function prototype, but without any arguments *) */ +| IDENT LPAREN RPAREN SEMICOLON + { (* Make the function declarator *) + doDeclaration ((*handleLoc*)(snd $1)) [] + [((fst $1, PROTO(JUSTBASE,[],false), [], cabslu), + NO_INIT)] + } +/* | location error SEMICOLON { PRAGMA (VARIABLE "parse_error", $1) } */ +; + +id_or_typename: + IDENT {fst $1} +| NAMED_TYPE {fst $1} +; + +maybecomma: + /* empty */ { () } +| COMMA { () } +; + +/* *** Expressions *** */ + +primary_expression: /*(* 6.5.1. *)*/ +| IDENT + {VARIABLE (fst $1), snd $1} +| constant + {CONSTANT (fst $1), snd $1} +| paren_comma_expression + {PAREN (smooth_expression (fst $1)), snd $1} +| LPAREN block RPAREN + { GNU_BODY (fst3 $2), $1 } +; + +postfix_expression: /*(* 6.5.2 *)*/ +| primary_expression + { $1 } +| postfix_expression bracket_comma_expression + {INDEX (fst $1, smooth_expression $2), snd $1} +| postfix_expression LPAREN arguments RPAREN + {CALL (fst $1, $3), snd $1} +| BUILTIN_VA_ARG LPAREN expression COMMA type_name RPAREN + { let b, d = $5 in + CALL (VARIABLE "__builtin_va_arg", + [fst $3; TYPE_SIZEOF (b, d)]), $1 } +| BUILTIN_TYPES_COMPAT LPAREN type_name COMMA type_name RPAREN + { let b1,d1 = $3 in + let b2,d2 = $5 in + CALL (VARIABLE "__builtin_types_compatible_p", + [TYPE_SIZEOF(b1,d1); TYPE_SIZEOF(b2,d2)]), $1 } +| BUILTIN_OFFSETOF LPAREN type_name COMMA offsetof_member_designator RPAREN + { transformOffsetOf $3 $5, $1 } +| postfix_expression DOT id_or_typename + {MEMBEROF (fst $1, $3), snd $1} +| postfix_expression ARROW id_or_typename + {MEMBEROFPTR (fst $1, $3), snd $1} +| postfix_expression PLUS_PLUS + {UNARY (POSINCR, fst $1), snd $1} +| postfix_expression MINUS_MINUS + {UNARY (POSDECR, fst $1), snd $1} +/* (* We handle GCC constructor expressions *) */ +| LPAREN type_name RPAREN LBRACE initializer_list_opt RBRACE + { CAST($2, COMPOUND_INIT $5), $1 } +; + +offsetof_member_designator: /* GCC extension for __builtin_offsetof */ +| id_or_typename + { VARIABLE ($1) } +| offsetof_member_designator DOT IDENT + { MEMBEROF ($1, fst $3) } +| offsetof_member_designator bracket_comma_expression + { INDEX ($1, smooth_expression $2) } +; + +unary_expression: /*(* 6.5.3 *)*/ +| postfix_expression + { $1 } +| PLUS_PLUS unary_expression + {UNARY (PREINCR, fst $2), $1} +| MINUS_MINUS unary_expression + {UNARY (PREDECR, fst $2), $1} +| SIZEOF unary_expression + {EXPR_SIZEOF (fst $2), $1} +| SIZEOF LPAREN type_name RPAREN + {let b, d = $3 in TYPE_SIZEOF (b, d), $1} +| ALIGNOF unary_expression + {EXPR_ALIGNOF (fst $2), $1} +| ALIGNOF LPAREN type_name RPAREN + {let b, d = $3 in TYPE_ALIGNOF (b, d), $1} +| PLUS cast_expression + {UNARY (PLUS, fst $2), $1} +| MINUS cast_expression + {UNARY (MINUS, fst $2), $1} +| STAR cast_expression + {UNARY (MEMOF, fst $2), $1} +| AND cast_expression + {UNARY (ADDROF, fst $2), $1} +| EXCLAM cast_expression + {UNARY (NOT, fst $2), $1} +| TILDE cast_expression + {UNARY (BNOT, fst $2), $1} +| AND_AND IDENT { LABELADDR (fst $2), $1 } +; + +cast_expression: /*(* 6.5.4 *)*/ +| unary_expression + { $1 } +| LPAREN type_name RPAREN cast_expression + { CAST($2, SINGLE_INIT (fst $4)), $1 } +; + +multiplicative_expression: /*(* 6.5.5 *)*/ +| cast_expression + { $1 } +| multiplicative_expression STAR cast_expression + {BINARY(MUL, fst $1, fst $3), snd $1} +| multiplicative_expression SLASH cast_expression + {BINARY(DIV, fst $1, fst $3), snd $1} +| multiplicative_expression PERCENT cast_expression + {BINARY(MOD, fst $1, fst $3), snd $1} +; + +additive_expression: /*(* 6.5.6 *)*/ +| multiplicative_expression + { $1 } +| additive_expression PLUS multiplicative_expression + {BINARY(ADD, fst $1, fst $3), snd $1} +| additive_expression MINUS multiplicative_expression + {BINARY(SUB, fst $1, fst $3), snd $1} +; + +shift_expression: /*(* 6.5.7 *)*/ +| additive_expression + { $1 } +| shift_expression INF_INF additive_expression + {BINARY(SHL, fst $1, fst $3), snd $1} +| shift_expression SUP_SUP additive_expression + {BINARY(SHR, fst $1, fst $3), snd $1} +; + + +relational_expression: /*(* 6.5.8 *)*/ +| shift_expression + { $1 } +| relational_expression INF shift_expression + {BINARY(LT, fst $1, fst $3), snd $1} +| relational_expression SUP shift_expression + {BINARY(GT, fst $1, fst $3), snd $1} +| relational_expression INF_EQ shift_expression + {BINARY(LE, fst $1, fst $3), snd $1} +| relational_expression SUP_EQ shift_expression + {BINARY(GE, fst $1, fst $3), snd $1} +; + +equality_expression: /*(* 6.5.9 *)*/ +| relational_expression + { $1 } +| equality_expression EQ_EQ relational_expression + {BINARY(EQ, fst $1, fst $3), snd $1} +| equality_expression EXCLAM_EQ relational_expression + {BINARY(NE, fst $1, fst $3), snd $1} +; + + +bitwise_and_expression: /*(* 6.5.10 *)*/ +| equality_expression + { $1 } +| bitwise_and_expression AND equality_expression + {BINARY(BAND, fst $1, fst $3), snd $1} +; + +bitwise_xor_expression: /*(* 6.5.11 *)*/ +| bitwise_and_expression + { $1 } +| bitwise_xor_expression CIRC bitwise_and_expression + {BINARY(XOR, fst $1, fst $3), snd $1} +; + +bitwise_or_expression: /*(* 6.5.12 *)*/ +| bitwise_xor_expression + { $1 } +| bitwise_or_expression PIPE bitwise_xor_expression + {BINARY(BOR, fst $1, fst $3), snd $1} +; + +logical_and_expression: /*(* 6.5.13 *)*/ +| bitwise_or_expression + { $1 } +| logical_and_expression AND_AND bitwise_or_expression + {BINARY(AND, fst $1, fst $3), snd $1} +; + +logical_or_expression: /*(* 6.5.14 *)*/ +| logical_and_expression + { $1 } +| logical_or_expression PIPE_PIPE logical_and_expression + {BINARY(OR, fst $1, fst $3), snd $1} +; + +conditional_expression: /*(* 6.5.15 *)*/ +| logical_or_expression + { $1 } +| logical_or_expression QUEST opt_expression COLON conditional_expression + {QUESTION (fst $1, $3, fst $5), snd $1} +; + +/*(* The C spec says that left-hand sides of assignment expressions are unary + * expressions. GCC allows cast expressions in there ! *)*/ + +assignment_expression: /*(* 6.5.16 *)*/ +| conditional_expression + { $1 } +| cast_expression EQ assignment_expression + {BINARY(ASSIGN, fst $1, fst $3), snd $1} +| cast_expression PLUS_EQ assignment_expression + {BINARY(ADD_ASSIGN, fst $1, fst $3), snd $1} +| cast_expression MINUS_EQ assignment_expression + {BINARY(SUB_ASSIGN, fst $1, fst $3), snd $1} +| cast_expression STAR_EQ assignment_expression + {BINARY(MUL_ASSIGN, fst $1, fst $3), snd $1} +| cast_expression SLASH_EQ assignment_expression + {BINARY(DIV_ASSIGN, fst $1, fst $3), snd $1} +| cast_expression PERCENT_EQ assignment_expression + {BINARY(MOD_ASSIGN, fst $1, fst $3), snd $1} +| cast_expression AND_EQ assignment_expression + {BINARY(BAND_ASSIGN, fst $1, fst $3), snd $1} +| cast_expression PIPE_EQ assignment_expression + {BINARY(BOR_ASSIGN, fst $1, fst $3), snd $1} +| cast_expression CIRC_EQ assignment_expression + {BINARY(XOR_ASSIGN, fst $1, fst $3), snd $1} +| cast_expression INF_INF_EQ assignment_expression + {BINARY(SHL_ASSIGN, fst $1, fst $3), snd $1} +| cast_expression SUP_SUP_EQ assignment_expression + {BINARY(SHR_ASSIGN, fst $1, fst $3), snd $1} +; + +expression: /*(* 6.5.17 *)*/ + assignment_expression + { $1 } +; + + +constant: + CST_INT {CONST_INT (fst $1), snd $1} +| CST_FLOAT {CONST_FLOAT (fst $1), snd $1} +| CST_CHAR {CONST_CHAR (fst $1), snd $1} +| CST_WCHAR {CONST_WCHAR (fst $1), snd $1} +| string_constant {CONST_STRING (fst $1), snd $1} +| wstring_list {CONST_WSTRING (fst $1), snd $1} +; + +string_constant: +/* Now that we know this constant isn't part of a wstring, convert it + back to a string for easy viewing. */ + string_list { + let queue, location = $1 in + let buffer = Buffer.create (Queue.length queue) in + Queue.iter + (List.iter + (fun value -> + let char = int64_to_char value in + Buffer.add_char buffer char)) + queue; + Buffer.contents buffer, location + } +; +one_string_constant: +/* Don't concat multiple strings. For asm templates. */ + CST_STRING {intlist_to_string (fst $1) } +; +string_list: + one_string { + let queue = Queue.create () in + Queue.add (fst $1) queue; + queue, snd $1 + } +| string_list one_string { + Queue.add (fst $2) (fst $1); + $1 + } +; + +wstring_list: + CST_WSTRING { $1 } +| wstring_list one_string { (fst $1) @ (fst $2), snd $1 } +| wstring_list CST_WSTRING { (fst $1) @ (fst $2), snd $1 } +/* Only the first string in the list needs an L, so L"a" "b" is the same + * as L"ab" or L"a" L"b". */ + +one_string: + CST_STRING {$1} +| FUNCTION__ {(Cabshelper.explodeStringToInts + !currentFunctionName), $1} +| PRETTY_FUNCTION__ {(Cabshelper.explodeStringToInts + !currentFunctionName), $1} +; + +init_expression: + expression { SINGLE_INIT (fst $1) } +| LBRACE initializer_list_opt RBRACE + { COMPOUND_INIT $2} + +initializer_list: /* ISO 6.7.8. Allow a trailing COMMA */ + initializer { [$1] } +| initializer COMMA initializer_list_opt { $1 :: $3 } +; +initializer_list_opt: + /* empty */ { [] } +| initializer_list { $1 } +; +initializer: + init_designators eq_opt init_expression { ($1, $3) } +| gcc_init_designators init_expression { ($1, $2) } +| init_expression { (NEXT_INIT, $1) } +; +eq_opt: + EQ { () } + /*(* GCC allows missing = *)*/ +| /*(* empty *)*/ { () } +; +init_designators: + DOT id_or_typename init_designators_opt { INFIELD_INIT($2, $3) } +| LBRACKET expression RBRACKET init_designators_opt + { ATINDEX_INIT(fst $2, $4) } +| LBRACKET expression ELLIPSIS expression RBRACKET + { ATINDEXRANGE_INIT(fst $2, fst $4) } +; +init_designators_opt: + /* empty */ { NEXT_INIT } +| init_designators { $1 } +; + +gcc_init_designators: /*(* GCC supports these strange things *)*/ + id_or_typename COLON { INFIELD_INIT($1, NEXT_INIT) } +; + +arguments: + /* empty */ { [] } +| comma_expression { fst $1 } +; + +opt_expression: + /* empty */ + {NOTHING} +| comma_expression + {smooth_expression (fst $1)} +; + +comma_expression: + expression {[fst $1], snd $1} +| expression COMMA comma_expression { fst $1 :: fst $3, snd $1 } +| error COMMA comma_expression { $3 } +; + +comma_expression_opt: + /* empty */ { NOTHING } +| comma_expression { smooth_expression (fst $1) } +; + +paren_comma_expression: + LPAREN comma_expression RPAREN { $2 } +| LPAREN error RPAREN { [], $1 } +; + +bracket_comma_expression: + LBRACKET comma_expression RBRACKET { fst $2 } +| LBRACKET error RBRACKET { [] } +; + + +/*** statements ***/ +block: /* ISO 6.8.2 */ + block_begin local_labels block_attrs block_element_list RBRACE + {!pop_context(); + { blabels = $2; + battrs = $3; + bstmts = $4 }, + $1, $5 + } +| error location RBRACE { { blabels = []; + battrs = []; + bstmts = [] }, + $2, $3 + } +; +block_begin: + LBRACE {!push_context (); $1} +; + +block_attrs: + /* empty */ { [] } +| BLOCKATTRIBUTE paren_attr_list_ne + { [("__blockattribute__", $2)] } +; + +/* statements and declarations in a block, in any order (for C99 support) */ +block_element_list: + /* empty */ { [] } +| declaration block_element_list { DEFINITION($1) :: $2 } +| statement block_element_list { $1 :: $2 } +/*(* GCC accepts a label at the end of a block *)*/ +| IDENT COLON { [ LABEL (fst $1, NOP (snd $1), + snd $1)] } +| pragma block_element_list { $2 } +; + +local_labels: + /* empty */ { [] } +| LABEL__ local_label_names SEMICOLON local_labels { $2 @ $4 } +; +local_label_names: + IDENT { [ fst $1 ] } +| IDENT COMMA local_label_names { fst $1 :: $3 } +; + + + +statement: + SEMICOLON {NOP ((*handleLoc*) $1) } +| comma_expression SEMICOLON + {COMPUTATION (smooth_expression (fst $1), (*handleLoc*)(snd $1))} +| block {BLOCK (fst3 $1, (*handleLoc*)(snd3 $1))} +| IF paren_comma_expression statement %prec IF + {IF (smooth_expression (fst $2), $3, NOP $1, $1)} +| IF paren_comma_expression statement ELSE statement + {IF (smooth_expression (fst $2), $3, $5, (*handleLoc*) $1)} +| SWITCH paren_comma_expression statement + {SWITCH (smooth_expression (fst $2), $3, (*handleLoc*) $1)} +| WHILE paren_comma_expression statement + {WHILE (smooth_expression (fst $2), $3, (*handleLoc*) $1)} +| DO statement WHILE paren_comma_expression SEMICOLON + {DOWHILE (smooth_expression (fst $4), $2, (*handleLoc*) $1)} +| FOR LPAREN for_clause opt_expression + SEMICOLON opt_expression RPAREN statement + {FOR ($3, $4, $6, $8, (*handleLoc*) $1)} +| IDENT COLON attribute_nocv_list statement + {(* The only attribute that should appear here + is "unused". For now, we drop this on the + floor, since unused labels are usually + removed anyways by Rmtmps. *) + LABEL (fst $1, $4, (snd $1))} +| CASE expression COLON statement + {CASE (fst $2, $4, (*handleLoc*) $1)} +| CASE expression ELLIPSIS expression COLON statement + {CASERANGE (fst $2, fst $4, $6, (*handleLoc*) $1)} +| DEFAULT COLON + {DEFAULT (NOP $1, (*handleLoc*) $1)} +| RETURN SEMICOLON {RETURN (NOTHING, (*handleLoc*) $1)} +| RETURN comma_expression SEMICOLON + {RETURN (smooth_expression (fst $2), (*handleLoc*) $1)} +| BREAK SEMICOLON {BREAK ((*handleLoc*) $1)} +| CONTINUE SEMICOLON {CONTINUE ((*handleLoc*) $1)} +| GOTO IDENT SEMICOLON + {GOTO (fst $2, (*handleLoc*) $1)} +| GOTO STAR comma_expression SEMICOLON + { COMPGOTO (smooth_expression (fst $3), (*handleLoc*) $1) } +| ASM asmattr LPAREN asmtemplate asmoutputs RPAREN SEMICOLON + { ASM ($2, $4, $5, (*handleLoc*) $1) } +| MSASM { ASM ([], [fst $1], None, (*handleLoc*)(snd $1))} +| TRY block EXCEPT paren_comma_expression block + { let b, _, _ = $2 in + let h, _, _ = $5 in + if not !msvcMode then + parse_error "try/except in GCC code"; + TRY_EXCEPT (b, COMMA (fst $4), h, (*handleLoc*) $1) } +| TRY block FINALLY block + { let b, _, _ = $2 in + let h, _, _ = $4 in + if not !msvcMode then + parse_error "try/finally in GCC code"; + TRY_FINALLY (b, h, (*handleLoc*) $1) } + +| error location SEMICOLON { (NOP $2)} +; + + +for_clause: + opt_expression SEMICOLON { FC_EXP $1 } +| declaration { FC_DECL $1 } +; + +declaration: /* ISO 6.7.*/ + decl_spec_list init_declarator_list SEMICOLON + { doDeclaration ((*handleLoc*)(snd $1)) (fst $1) $2 } +| decl_spec_list SEMICOLON + { doDeclaration ((*handleLoc*)(snd $1)) (fst $1) [] } +; +init_declarator_list: /* ISO 6.7 */ + init_declarator { [$1] } +| init_declarator COMMA init_declarator_list { $1 :: $3 } + +; +init_declarator: /* ISO 6.7 */ + declarator { ($1, NO_INIT) } +| declarator EQ init_expression + { ($1, $3) } +; + +decl_spec_list: /* ISO 6.7 */ + /* ISO 6.7.1 */ +| TYPEDEF decl_spec_list_opt { SpecTypedef :: $2, $1 } +| EXTERN decl_spec_list_opt { SpecStorage EXTERN :: $2, $1 } +| STATIC decl_spec_list_opt { SpecStorage STATIC :: $2, $1 } +| AUTO decl_spec_list_opt { SpecStorage AUTO :: $2, $1 } +| REGISTER decl_spec_list_opt { SpecStorage REGISTER :: $2, $1} + /* ISO 6.7.2 */ +| type_spec decl_spec_list_opt_no_named { SpecType (fst $1) :: $2, snd $1 } + /* ISO 6.7.4 */ +| INLINE decl_spec_list_opt { SpecInline :: $2, $1 } +| cvspec decl_spec_list_opt { (fst $1) :: $2, snd $1 } +| attribute_nocv decl_spec_list_opt { SpecAttr (fst $1) :: $2, snd $1 } +; +/* (* In most cases if we see a NAMED_TYPE we must shift it. Thus we declare + * NAMED_TYPE to have right associativity *) */ +decl_spec_list_opt: + /* empty */ { [] } %prec NAMED_TYPE +| decl_spec_list { fst $1 } +; +/* (* We add this separate rule to handle the special case when an appearance + * of NAMED_TYPE should not be considered as part of the specifiers but as + * part of the declarator. IDENT has higher precedence than NAMED_TYPE *) + */ +decl_spec_list_opt_no_named: + /* empty */ { [] } %prec IDENT +| decl_spec_list { fst $1 } +; +type_spec: /* ISO 6.7.2 */ + VOID { Tvoid, $1} +| UNDERSCORE_BOOL { T_Bool, $1 } +| CHAR { Tchar, $1 } +| SHORT { Tshort, $1 } +| INT { Tint, $1 } +| LONG { Tlong, $1 } +| INT64 { Tint64, $1 } +| FLOAT { Tfloat, $1 } +| DOUBLE { Tdouble, $1 } +| SIGNED { Tsigned, $1 } +| UNSIGNED { Tunsigned, $1 } +| STRUCT id_or_typename + { Tstruct ($2, None, []), $1 } +| STRUCT just_attributes id_or_typename + { Tstruct ($3, None, $2), $1 } +| STRUCT id_or_typename LBRACE struct_decl_list RBRACE + { Tstruct ($2, Some $4, []), $1 } +| STRUCT LBRACE struct_decl_list RBRACE + { Tstruct ("", Some $3, []), $1 } +| STRUCT just_attributes id_or_typename LBRACE struct_decl_list RBRACE + { Tstruct ($3, Some $5, $2), $1 } +| STRUCT just_attributes LBRACE struct_decl_list RBRACE + { Tstruct ("", Some $4, $2), $1 } +| UNION id_or_typename + { Tunion ($2, None, []), $1 } +| UNION id_or_typename LBRACE struct_decl_list RBRACE + { Tunion ($2, Some $4, []), $1 } +| UNION LBRACE struct_decl_list RBRACE + { Tunion ("", Some $3, []), $1 } +| UNION just_attributes id_or_typename LBRACE struct_decl_list RBRACE + { Tunion ($3, Some $5, $2), $1 } +| UNION just_attributes LBRACE struct_decl_list RBRACE + { Tunion ("", Some $4, $2), $1 } +| ENUM id_or_typename + { Tenum ($2, None, []), $1 } +| ENUM id_or_typename LBRACE enum_list maybecomma RBRACE + { Tenum ($2, Some $4, []), $1 } +| ENUM LBRACE enum_list maybecomma RBRACE + { Tenum ("", Some $3, []), $1 } +| ENUM just_attributes id_or_typename LBRACE enum_list maybecomma RBRACE + { Tenum ($3, Some $5, $2), $1 } +| ENUM just_attributes LBRACE enum_list maybecomma RBRACE + { Tenum ("", Some $4, $2), $1 } +| NAMED_TYPE { Tnamed (fst $1), snd $1 } +| TYPEOF LPAREN expression RPAREN { TtypeofE (fst $3), $1 } +| TYPEOF LPAREN type_name RPAREN { let s, d = $3 in + TtypeofT (s, d), $1 } +; +struct_decl_list: /* (* ISO 6.7.2. Except that we allow empty structs. We + * also allow missing field names. *) + */ + /* empty */ { [] } +| decl_spec_list SEMICOLON struct_decl_list + { (fst $1, + [(missingFieldDecl, None)]) :: $3 } +/*(* GCC allows extra semicolons *)*/ +| SEMICOLON struct_decl_list + { $2 } +| decl_spec_list field_decl_list SEMICOLON struct_decl_list + { (fst $1, $2) + :: $4 } +/*(* MSVC allows pragmas in strange places *)*/ +| pragma struct_decl_list { $2 } + +| error SEMICOLON struct_decl_list + { $3 } +; +field_decl_list: /* (* ISO 6.7.2 *) */ + field_decl { [$1] } +| field_decl COMMA field_decl_list { $1 :: $3 } +; +field_decl: /* (* ISO 6.7.2. Except that we allow unnamed fields. *) */ +| declarator { ($1, None) } +| declarator COLON expression attributes + { let (n,decl,al,loc) = $1 in + let al' = al @ $4 in + ((n,decl,al',loc), Some (fst $3)) } +| COLON expression { (missingFieldDecl, Some (fst $2)) } +; + +enum_list: /* (* ISO 6.7.2.2 *) */ + enumerator {[$1]} +| enum_list COMMA enumerator {$1 @ [$3]} +| enum_list COMMA error { $1 } +; +enumerator: + IDENT {(fst $1, NOTHING, snd $1)} +| IDENT EQ expression {(fst $1, fst $3, snd $1)} +; + + +declarator: /* (* ISO 6.7.5. Plus Microsoft declarators.*) */ + pointer_opt direct_decl attributes_with_asm + { let (n, decl) = $2 in + (n, applyPointer (fst $1) decl, $3, (snd $1)) } +; + + +direct_decl: /* (* ISO 6.7.5 *) */ + /* (* We want to be able to redefine named + * types as variable names *) */ +| id_or_typename { ($1, JUSTBASE) } + +| LPAREN attributes declarator RPAREN + { let (n,decl,al,loc) = $3 in + (n, PARENTYPE($2,decl,al)) } + +| direct_decl LBRACKET attributes comma_expression_opt RBRACKET + { let (n, decl) = $1 in + (n, ARRAY(decl, $3, $4)) } +| direct_decl LBRACKET attributes error RBRACKET + { let (n, decl) = $1 in + (n, ARRAY(decl, $3, NOTHING)) } +| direct_decl parameter_list_startscope rest_par_list RPAREN + { let (n, decl) = $1 in + let (params, isva) = $3 in + !pop_context (); + (n, PROTO(decl, params, isva)) + } +; +parameter_list_startscope: + LPAREN { !push_context () } +; +rest_par_list: +| /* empty */ { ([], false) } +| parameter_decl rest_par_list1 { let (params, isva) = $2 in + ($1 :: params, isva) + } +; +rest_par_list1: + /* empty */ { ([], false) } +| COMMA ELLIPSIS { ([], true) } +| COMMA parameter_decl rest_par_list1 { let (params, isva) = $3 in + ($2 :: params, isva) + } +; + + +parameter_decl: /* (* ISO 6.7.5 *) */ + decl_spec_list declarator { (fst $1, $2) } +| decl_spec_list abstract_decl { let d, a = $2 in + (fst $1, ("", d, a, cabslu)) } +| decl_spec_list { (fst $1, ("", JUSTBASE, [], cabslu)) } +| LPAREN parameter_decl RPAREN { $2 } +; + +/* (* Old style prototypes. Like a declarator *) */ +old_proto_decl: + pointer_opt direct_old_proto_decl { let (n, decl, a) = $2 in + (n, applyPointer (fst $1) decl, + a, snd $1) + } + +; + +direct_old_proto_decl: + direct_decl LPAREN old_parameter_list_ne RPAREN old_pardef_list + { let par_decl, isva = doOldParDecl $3 $5 in + let n, decl = $1 in + (n, PROTO(decl, par_decl, isva), []) + } +| direct_decl LPAREN RPAREN + { let n, decl = $1 in + (n, PROTO(decl, [], false), []) + } + +/* (* appears sometimesm but generates a shift-reduce conflict. *) +| LPAREN STAR direct_decl LPAREN old_parameter_list_ne RPAREN RPAREN LPAREN RPAREN old_pardef_list + { let par_decl, isva + = doOldParDecl $5 $10 in + let n, decl = $3 in + (n, PROTO(decl, par_decl, isva), []) + } +*/ +; + +old_parameter_list_ne: +| IDENT { [fst $1] } +| IDENT COMMA old_parameter_list_ne { let rest = $3 in + (fst $1 :: rest) } +; + +old_pardef_list: + /* empty */ { ([], false) } +| decl_spec_list old_pardef SEMICOLON ELLIPSIS + { ([(fst $1, $2)], true) } +| decl_spec_list old_pardef SEMICOLON old_pardef_list + { let rest, isva = $4 in + ((fst $1, $2) :: rest, isva) + } +; + +old_pardef: + declarator { [$1] } +| declarator COMMA old_pardef { $1 :: $3 } +| error { [] } +; + + +pointer: /* (* ISO 6.7.5 *) */ + STAR attributes pointer_opt { $2 :: fst $3, $1 } +; +pointer_opt: + /**/ { let l = currentLoc () in + ([], l) } +| pointer { $1 } +; + +type_name: /* (* ISO 6.7.6 *) */ + decl_spec_list abstract_decl { let d, a = $2 in + if a <> [] then begin + parse_error "attributes in type name"; + raise Parsing.Parse_error + end; + (fst $1, d) + } +| decl_spec_list { (fst $1, JUSTBASE) } +; +abstract_decl: /* (* ISO 6.7.6. *) */ + pointer_opt abs_direct_decl attributes { applyPointer (fst $1) $2, $3 } +| pointer { applyPointer (fst $1) JUSTBASE, [] } +; + +abs_direct_decl: /* (* ISO 6.7.6. We do not support optional declarator for + * functions. Plus Microsoft attributes. See the + * discussion for declarator. *) */ +| LPAREN attributes abstract_decl RPAREN + { let d, a = $3 in + PARENTYPE ($2, d, a) + } + +| LPAREN error RPAREN + { JUSTBASE } + +| abs_direct_decl_opt LBRACKET comma_expression_opt RBRACKET + { ARRAY($1, [], $3) } +/*(* The next should be abs_direct_decl_opt but we get conflicts *)*/ +| abs_direct_decl parameter_list_startscope rest_par_list RPAREN + { let (params, isva) = $3 in + !pop_context (); + PROTO ($1, params, isva) + } +; +abs_direct_decl_opt: + abs_direct_decl { $1 } +| /* empty */ { JUSTBASE } +; +function_def: /* (* ISO 6.9.1 *) */ + function_def_start block + { let (loc, specs, decl) = $1 in + currentFunctionName := "<__FUNCTION__ used outside any functions>"; + !pop_context (); (* The context pushed by + * announceFunctionName *) + doFunctionDef ((*handleLoc*) loc) (trd3 $2) specs decl (fst3 $2) + } + + +function_def_start: /* (* ISO 6.9.1 *) */ + decl_spec_list declarator + { announceFunctionName $2; + (snd $1, fst $1, $2) + } + +/* (* Old-style function prototype *) */ +| decl_spec_list old_proto_decl + { announceFunctionName $2; + (snd $1, fst $1, $2) + } +/* (* New-style function that does not have a return type *) */ +| IDENT parameter_list_startscope rest_par_list RPAREN + { let (params, isva) = $3 in + let fdec = + (fst $1, PROTO(JUSTBASE, params, isva), [], snd $1) in + announceFunctionName fdec; + (* Default is int type *) + let defSpec = [SpecType Tint] in + (snd $1, defSpec, fdec) + } + +/* (* No return type and old-style parameter list *) */ +| IDENT LPAREN old_parameter_list_ne RPAREN old_pardef_list + { (* Convert pardecl to new style *) + let pardecl, isva = doOldParDecl $3 $5 in + (* Make the function declarator *) + let fdec = (fst $1, + PROTO(JUSTBASE, pardecl,isva), + [], snd $1) in + announceFunctionName fdec; + (* Default is int type *) + let defSpec = [SpecType Tint] in + (snd $1, defSpec, fdec) + } +/* (* No return type and no parameters *) */ +| IDENT LPAREN RPAREN + { (* Make the function declarator *) + let fdec = (fst $1, + PROTO(JUSTBASE, [], false), + [], snd $1) in + announceFunctionName fdec; + (* Default is int type *) + let defSpec = [SpecType Tint] in + (snd $1, defSpec, fdec) + } +; + +/* const/volatile as type specifier elements */ +cvspec: + CONST { SpecCV(CV_CONST), $1 } +| VOLATILE { SpecCV(CV_VOLATILE), $1 } +| RESTRICT { SpecCV(CV_RESTRICT), $1 } +; + +/*** GCC attributes ***/ +attributes: + /* empty */ { []} +| attribute attributes { fst $1 :: $2 } +; + +/* (* In some contexts we can have an inline assembly to specify the name to + * be used for a global. We treat this as a name attribute *) */ +attributes_with_asm: + /* empty */ { [] } +| attribute attributes_with_asm { fst $1 :: $2 } +| ASM LPAREN string_constant RPAREN attributes + { ("__asm__", + [CONSTANT(CONST_STRING (fst $3))]) :: $5 } +; + +/* things like __attribute__, but no const/volatile */ +attribute_nocv: + ATTRIBUTE LPAREN paren_attr_list RPAREN + { ("__attribute__", $3), $1 } +/*(* +| ATTRIBUTE_USED { ("__attribute__", + [ VARIABLE "used" ]), $1 } +*)*/ +| DECLSPEC paren_attr_list_ne { ("__declspec", $2), $1 } +| MSATTR { (fst $1, []), snd $1 } + /* ISO 6.7.3 */ +| THREAD { ("__thread",[]), $1 } +; + +attribute_nocv_list: + /* empty */ { []} +| attribute_nocv attribute_nocv_list { fst $1 :: $2 } +; + +/* __attribute__ plus const/volatile */ +attribute: + attribute_nocv { $1 } +| CONST { ("const", []), $1 } +| RESTRICT { ("restrict",[]), $1 } +| VOLATILE { ("volatile",[]), $1 } +; + +/* (* sm: I need something that just includes __attribute__ and nothing more, + * to support them appearing between the 'struct' keyword and the type name. + * Actually, a declspec can appear there as well (on MSVC) *) */ +just_attribute: + ATTRIBUTE LPAREN paren_attr_list RPAREN + { ("__attribute__", $3) } +| DECLSPEC paren_attr_list_ne { ("__declspec", $2) } +; + +/* this can't be empty, b/c I folded that possibility into the calling + * productions to avoid some S/R conflicts */ +just_attributes: + just_attribute { [$1] } +| just_attribute just_attributes { $1 :: $2 } +; + +/** (* PRAGMAS and ATTRIBUTES *) ***/ +pragma: +| PRAGMA_LINE { PRAGMA (fst $1, snd $1) } +; + +/* (* We want to allow certain strange things that occur in pragmas, so we + * cannot use directly the language of expressions *) */ +primary_attr: + IDENT { VARIABLE (fst $1) } + /*(* The NAMED_TYPE here creates conflicts with IDENT *)*/ +| NAMED_TYPE { VARIABLE (fst $1) } +| LPAREN attr RPAREN { $2 } +| IDENT IDENT { CALL(VARIABLE (fst $1), [VARIABLE (fst $2)]) } +| CST_INT { CONSTANT(CONST_INT (fst $1)) } +| string_constant { CONSTANT(CONST_STRING (fst $1)) } + /*(* Const when it appears in + * attribute lists, is translated + * to aconst *)*/ +| CONST { VARIABLE "aconst" } + +| IDENT COLON CST_INT { VARIABLE (fst $1 ^ ":" ^ fst $3) } + +/*(* The following rule conflicts with the ? : attributes. We give it a very + * low priority *)*/ +| CST_INT COLON CST_INT { VARIABLE (fst $1 ^ ":" ^ fst $3) } + +| DEFAULT COLON CST_INT { VARIABLE ("default:" ^ fst $3) } + + /*(** GCC allows this as an + * attribute for functions, + * synonim for noreturn **)*/ +| VOLATILE { VARIABLE ("__noreturn__") } +; + +postfix_attr: + primary_attr { $1 } + /* (* use a VARIABLE "" so that the + * parentheses are printed *) */ +| IDENT LPAREN RPAREN { CALL(VARIABLE (fst $1), [VARIABLE ""]) } +| IDENT paren_attr_list_ne { CALL(VARIABLE (fst $1), $2) } + +| postfix_attr ARROW id_or_typename {MEMBEROFPTR ($1, $3)} +| postfix_attr DOT id_or_typename {MEMBEROF ($1, $3)} +| postfix_attr LBRACKET attr RBRACKET {INDEX ($1, $3) } +; + +/*(* Since in attributes we use both IDENT and NAMED_TYPE as indentifiers, + * that leads to conflicts for SIZEOF and ALIGNOF. In those cases we require + * that their arguments be expressions, not attributes *)*/ +unary_attr: + postfix_attr { $1 } +| SIZEOF unary_expression {EXPR_SIZEOF (fst $2) } +| SIZEOF LPAREN type_name RPAREN + {let b, d = $3 in TYPE_SIZEOF (b, d)} + +| ALIGNOF unary_expression {EXPR_ALIGNOF (fst $2) } +| ALIGNOF LPAREN type_name RPAREN {let b, d = $3 in TYPE_ALIGNOF (b, d)} +| PLUS cast_attr {UNARY (PLUS, $2)} +| MINUS cast_attr {UNARY (MINUS, $2)} +| STAR cast_attr {UNARY (MEMOF, $2)} +| AND cast_attr + {UNARY (ADDROF, $2)} +| EXCLAM cast_attr {UNARY (NOT, $2)} +| TILDE cast_attr {UNARY (BNOT, $2)} +; + +cast_attr: + unary_attr { $1 } +; + +multiplicative_attr: + cast_attr { $1 } +| multiplicative_attr STAR cast_attr {BINARY(MUL ,$1 , $3)} +| multiplicative_attr SLASH cast_attr {BINARY(DIV ,$1 , $3)} +| multiplicative_attr PERCENT cast_attr {BINARY(MOD ,$1 , $3)} +; + + +additive_attr: + multiplicative_attr { $1 } +| additive_attr PLUS multiplicative_attr {BINARY(ADD ,$1 , $3)} +| additive_attr MINUS multiplicative_attr {BINARY(SUB ,$1 , $3)} +; + +shift_attr: + additive_attr { $1 } +| shift_attr INF_INF additive_attr {BINARY(SHL ,$1 , $3)} +| shift_attr SUP_SUP additive_attr {BINARY(SHR ,$1 , $3)} +; + +relational_attr: + shift_attr { $1 } +| relational_attr INF shift_attr {BINARY(LT ,$1 , $3)} +| relational_attr SUP shift_attr {BINARY(GT ,$1 , $3)} +| relational_attr INF_EQ shift_attr {BINARY(LE ,$1 , $3)} +| relational_attr SUP_EQ shift_attr {BINARY(GE ,$1 , $3)} +; + +equality_attr: + relational_attr { $1 } +| equality_attr EQ_EQ relational_attr {BINARY(EQ ,$1 , $3)} +| equality_attr EXCLAM_EQ relational_attr {BINARY(NE ,$1 , $3)} +; + + +bitwise_and_attr: + equality_attr { $1 } +| bitwise_and_attr AND equality_attr {BINARY(BAND ,$1 , $3)} +; + +bitwise_xor_attr: + bitwise_and_attr { $1 } +| bitwise_xor_attr CIRC bitwise_and_attr {BINARY(XOR ,$1 , $3)} +; + +bitwise_or_attr: + bitwise_xor_attr { $1 } +| bitwise_or_attr PIPE bitwise_xor_attr {BINARY(BOR ,$1 , $3)} +; + +logical_and_attr: + bitwise_or_attr { $1 } +| logical_and_attr AND_AND bitwise_or_attr {BINARY(AND ,$1 , $3)} +; + +logical_or_attr: + logical_and_attr { $1 } +| logical_or_attr PIPE_PIPE logical_and_attr {BINARY(OR ,$1 , $3)} +; + +conditional_attr: + logical_or_attr { $1 } +/* This is in conflict for now */ +| logical_or_attr QUEST conditional_attr COLON conditional_attr + { QUESTION($1, $3, $5) } + + +attr: conditional_attr { $1 } +; + +attr_list_ne: +| attr { [$1] } +| attr COMMA attr_list_ne { $1 :: $3 } +| error COMMA attr_list_ne { $3 } +; +attr_list: + /* empty */ { [] } +| attr_list_ne { $1 } +; +paren_attr_list_ne: + LPAREN attr_list_ne RPAREN { $2 } +| LPAREN error RPAREN { [] } +; +paren_attr_list: + LPAREN attr_list RPAREN { $2 } +| LPAREN error RPAREN { [] } +; +/*** GCC ASM instructions ***/ +asmattr: + /* empty */ { [] } +| VOLATILE asmattr { ("volatile", []) :: $2 } +| CONST asmattr { ("const", []) :: $2 } +; +asmtemplate: + one_string_constant { [$1] } +| one_string_constant asmtemplate { $1 :: $2 } +; +asmoutputs: + /* empty */ { None } +| COLON asmoperands asminputs + { let (ins, clobs) = $3 in + Some {aoutputs = $2; ainputs = ins; aclobbers = clobs} } +; +asmoperands: + /* empty */ { [] } +| asmoperandsne { List.rev $1 } +; +asmoperandsne: + asmoperand { [$1] } +| asmoperandsne COMMA asmoperand { $3 :: $1 } +; +asmoperand: + asmopname string_constant LPAREN expression RPAREN { ($1, fst $2, fst $4) } +| asmopname string_constant LPAREN error RPAREN { ($1, fst $2, NOTHING ) } +; +asminputs: + /* empty */ { ([], []) } +| COLON asmoperands asmclobber + { ($2, $3) } +; +asmopname: + /* empty */ { None } +| LBRACKET IDENT RBRACKET { Some (fst $2) } +; + +asmclobber: + /* empty */ { [] } +| COLON asmcloberlst_ne { $2 } +; +asmcloberlst_ne: + one_string_constant { [$1] } +| one_string_constant COMMA asmcloberlst_ne { $1 :: $3 } +; + +%% + + + diff --git a/cparser/Rename.ml b/cparser/Rename.ml new file mode 100644 index 0000000..4b2f350 --- /dev/null +++ b/cparser/Rename.ml @@ -0,0 +1,254 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Renaming of identifiers *) + +open C +open Cutil + +module StringSet = Set.Make(String) + +type rename_env = { + re_id: ident IdentMap.t; + re_used: StringSet.t +} + +let empty_env = { re_id = IdentMap.empty; re_used = StringSet.empty } + +(* For public global identifiers, we must keep their names *) + +let enter_global env id = + { re_id = IdentMap.add id id env.re_id; + re_used = StringSet.add id.name env.re_used } + +(* For static or local identifiers, we make up a new name if needed *) +(* If the same identifier has already been declared, + don't rename a second time *) + +let rename env id = + if IdentMap.mem id env.re_id then (id, env) else begin + let basename = + if id.name = "" then Printf.sprintf "_%d" id.stamp else id.name in + let newname = + if not (StringSet.mem basename env.re_used) then basename else begin + let rec find_name n = + let s = Printf.sprintf "%s__%d" basename n in + if StringSet.mem s env.re_used + then find_name (n+1) + else s + in find_name 1 + end in + let newid = {name = newname; stamp = id.stamp } in + ( newid, + { re_id = IdentMap.add id newid env.re_id; + re_used = StringSet.add newname env.re_used } ) + end + +(* Monadic map to thread an environment *) + +let rec mmap (f: rename_env -> 'a -> 'b * rename_env) env = function + | [] -> ([], env) + | hd :: tl -> + let (hd', env1) = f env hd in + let (tl', env2) = mmap f env1 tl in + (hd' :: tl', env2) + +(* Renaming *) + +let ident env id = + try + IdentMap.find id env.re_id + with Not_found -> + Errors.fatal_error "Internal error: Rename: %s__%d unbound" + id.name id.stamp + +let rec typ env = function + | TPtr(ty, a) -> TPtr(typ env ty, a) + | TArray(ty, sz, a) -> TArray(typ env ty, sz, a) + | TFun(res, None, va, a) -> TFun(typ env res, None, va, a) + | TFun(res, Some p, va, a) -> + let (p', _) = mmap param env p in + TFun(typ env res, Some p', va, a) + | TNamed(id, a) -> TNamed(ident env id, a) + | TStruct(id, a) -> TStruct(ident env id, a) + | TUnion(id, a) -> TUnion(ident env id, a) + | ty -> ty + +and param env (id, ty) = + if id.name = "" then + ((id, typ env ty), env) + else + let (id', env') = rename env id in ((id', typ env' ty), env') + +let constant env = function + | CEnum(id, v) -> CEnum(ident env id, v) + | cst -> cst + +let rec exp env e = + { edesc = exp_desc env e.edesc; etyp = typ env e.etyp } + +and exp_desc env = function + | EConst cst -> EConst(constant env cst) + | ESizeof ty -> ESizeof(typ env ty) + | EVar id -> EVar(ident env id) + | EUnop(op, a) -> EUnop(op, exp env a) + | EBinop(op, a, b, ty) -> EBinop(op, exp env a, exp env b, typ env ty) + | EConditional(a, b, c) -> EConditional(exp env a, exp env b, exp env c) + | ECast(ty, a) -> ECast(typ env ty, exp env a) + | ECall(a, al) -> ECall(exp env a, List.map (exp env) al) + +let optexp env = function + | None -> None + | Some a -> Some (exp env a) + +let field env f = + { fld_name = f.fld_name; + fld_typ = typ env f.fld_typ; + fld_bitfield = f.fld_bitfield } + +let rec init env = function + | Init_single e -> Init_single(exp env e) + | Init_array il -> Init_array (List.map (init env) il) + | Init_struct(id, il) -> + Init_struct(ident env id, + List.map (fun (f, i) -> (field env f, init env i)) il) + | Init_union(id, f, i) -> + Init_union(ident env id, field env f, init env i) + +let decl env (sto, id, ty, int) = + let (id', env') = rename env id in + ((sto, + id', + typ env' ty, + match int with None -> None | Some i -> Some(init env' i)), + env') + +let rec stmt env s = + { sdesc = stmt_desc env s.sdesc; sloc = s.sloc } + +and stmt_desc env = function + | Sskip -> Sskip + | Sdo a -> Sdo (exp env a) + | Sseq(s1, s2) -> Sseq(stmt env s1, stmt env s2) + | Sif(a, s1, s2) -> Sif(exp env a, stmt env s1, stmt env s2) + | Swhile(a, s) -> Swhile(exp env a, stmt env s) + | Sdowhile(s, a) -> Sdowhile(stmt env s, exp env a) + | Sfor(a1, a2, a3, s) -> + Sfor(stmt env a1, exp env a2, stmt env a3, stmt env s) + | Sbreak -> Sbreak + | Scontinue -> Scontinue + | Sswitch(a, s) -> Sswitch(exp env a, stmt env s) + | Slabeled(lbl, s) -> Slabeled(slabel env lbl, stmt env s) + | Sgoto lbl -> Sgoto lbl + | Sreturn a -> Sreturn (optexp env a) + | Sblock sl -> let (sl', _) = mmap stmt_or_decl env sl in Sblock sl' + | Sdecl d -> assert false + +and stmt_or_decl env s = + match s.sdesc with + | Sdecl d -> + let (d', env') = decl env d in + ({ sdesc = Sdecl d'; sloc = s.sloc}, env') + | _ -> + (stmt env s, env) + +and slabel env = function + | Scase e -> Scase(exp env e) + | sl -> sl + +let fundef env f = + let (name', env0) = rename env f.fd_name in + let (params', env1) = mmap param env0 f.fd_params in + let (locals', env2) = mmap decl env1 f.fd_locals in + ( { fd_storage = f.fd_storage; + fd_inline = f.fd_inline; + fd_name = name'; + fd_ret = typ env0 f.fd_ret; + fd_params = params'; + fd_vararg = f.fd_vararg; + fd_locals = locals'; + fd_body = stmt env2 f.fd_body }, + env0 ) + +let enum env (id, opte) = + let (id', env') = rename env id in + ((id', optexp env' opte), env') + +let rec globdecl env g = + let (desc', env') = globdecl_desc env g.gdesc in + ( { gdesc = desc'; gloc = g.gloc }, env' ) + +and globdecl_desc env = function + | Gdecl d -> + let (d', env') = decl env d in + (Gdecl d', env') + | Gfundef fd -> + let (fd', env') = fundef env fd in + (Gfundef fd', env') + | Gcompositedecl(kind, id) -> + let (id', env') = rename env id in + (Gcompositedecl(kind, id'), env') + | Gcompositedef(kind, id, members) -> + (Gcompositedef(kind, ident env id, List.map (field env) members), env) + | Gtypedef(id, ty) -> + let (id', env') = rename env id in + (Gtypedef(id', typ env' ty), env') + | Genumdef(id, members) -> + let (id', env') = rename env id in + let (members', env'') = mmap enum env' members in + (Genumdef(id', members'), env'') + | Gpragma s -> + (Gpragma s, env) + +let rec globdecls env accu = function + | [] -> List.rev accu + | dcl :: rem -> + let (dcl', env') = globdecl env dcl in + globdecls env' (dcl' :: accu) rem + +(* Reserve names of builtins *) + +let reserve_builtins () = + List.fold_left enter_global empty_env (Builtins.identifiers()) + +(* Reserve global declarations with public visibility *) + +let rec reserve_public env = function + | [] -> env + | dcl :: rem -> + let env' = + match dcl.gdesc with + | Gdecl(sto, id, _, _) -> + begin match sto with + | Storage_default | Storage_extern -> enter_global env id + | Storage_static -> env + | _ -> assert false + end + | Gfundef f -> + begin match f.fd_storage with + | Storage_default | Storage_extern -> enter_global env f.fd_name + | Storage_static -> env + | _ -> assert false + end + | _ -> env in + reserve_public env' rem + +(* Rename the program *) + +let program p = + globdecls + (reserve_public (reserve_builtins()) p) + [] p + diff --git a/cparser/Rename.mli b/cparser/Rename.mli new file mode 100644 index 0000000..818a51b --- /dev/null +++ b/cparser/Rename.mli @@ -0,0 +1,16 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +val program : C.program -> C.program diff --git a/cparser/SimplExpr.ml b/cparser/SimplExpr.ml new file mode 100644 index 0000000..330b184 --- /dev/null +++ b/cparser/SimplExpr.ml @@ -0,0 +1,568 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Pulling side-effects out of expressions *) + +(* Assumes: nothing + Produces: simplified code *) + +open C +open Cutil +open Transform + +(* Grammar of simplified expressions: + e ::= EConst cst + | ESizeof ty + | EVar id + | EUnop pure-unop e + | EBinop pure-binop e e + | EConditional e e e + | ECast ty e + + Grammar of statements produced to reflect side-effects in expressions: + s ::= Sskip + | Sdo (EBinop Oassign e e) + | Sdo (EBinop Oassign e (ECall e e* )) + | Sdo (Ecall e el) + | Sseq s s + | Sif e s s +*) + +let rec is_simpl_expr e = + match e.edesc with + | EConst cst -> true + | ESizeof ty -> true + | EVar id -> true + | EUnop((Ominus|Oplus|Olognot|Onot|Oderef|Oaddrof), e1) -> + is_simpl_expr e1 + | EBinop((Oadd|Osub|Omul|Odiv|Omod|Oand|Oor|Oxor|Oshl|Oshr| + Oeq|One|Olt|Ogt|Ole|Oge|Oindex|Ologand|Ologor), e1, e2, _) -> + is_simpl_expr e1 && is_simpl_expr e2 + | EConditional(e1, e2, e3) -> + is_simpl_expr e1 && is_simpl_expr e2 && is_simpl_expr e3 + | ECast(ty, e1) -> + is_simpl_expr e1 + | _ -> + false + +(* "Destination" of a simplified expression *) + +type exp_destination = + | RHS (* evaluate as a r-value *) + | LHS (* evaluate as a l-value *) + | Drop (* drop its value, we only need the side-effects *) + | Set of exp (* assign it to the given simplified l.h.s. *) + +let voidconst = { nullconst with etyp = TVoid [] } + +(* Reads from volatile lvalues are also considered as side-effects if + [volatilize] is true. *) + +let volatilize = ref false + +(* [simpl_expr loc env e act] returns a pair [s, e'] of + a statement that performs the side-effects present in [e] and + a simplified, side-effect-free expression [e']. + If [act] is [RHS], [e'] evaluates to the same value as [e]. + If [act] is [LHS], [e'] evaluates to the same location as [e]. + If [act] is [Drop], [e'] is not meaningful and must be ignored. + If [act] is [Set lhs], [s] also performs an assignment + equivalent to [lhs = e]. [e'] is not meaningful. *) + +let simpl_expr loc env e act = + + (* Temporaries should not be [const] because we assign into them, + and need not be [volatile] because no one else is writing into them. + As for [restrict] it doesn't make sense anyway. *) + + let new_temp ty = + Transform.new_temp (erase_attributes_type env ty) in + + let eboolvalof e = + { edesc = EBinop(One, e, intconst 0L IInt, TInt(IInt, [])); + etyp = TInt(IInt, []) } in + + let sseq s1 s2 = Cutil.sseq loc s1 s2 in + + let sassign e1 e2 = + { sdesc = Sdo {edesc = EBinop(Oassign, e1, e2, e1.etyp); etyp = e1.etyp}; + sloc = loc } in + + let sif e s1 s2 = + { sdesc = Sif(e, s1, s2); sloc = loc } in + + let is_volatile_read e = + !volatilize + && List.mem AVolatile (attributes_of_type env e.etyp) + && is_lvalue env e in + + let lhs_to_rhs e = + if is_volatile_read e + then (let t = new_temp e.etyp in (sassign t e, t)) + else (sskip, e) in + + let finish act s e = + match act with + | RHS -> + if is_volatile_read e + then (let t = new_temp e.etyp in (sseq s (sassign t e), t)) + else (s, e) + | LHS -> + (s, e) + | Drop -> + if is_volatile_read e + then (let t = new_temp e.etyp in (sseq s (sassign t e), voidconst)) + else (s, voidconst) + | Set lhs -> + if is_volatile_read e + then (let t = new_temp e.etyp in + (sseq s (sseq (sassign t e) (sassign lhs t)), voidconst)) + else (sseq s (sassign lhs e), voidconst) in + + let rec simpl e act = + match e.edesc with + + | EConst cst -> + finish act sskip e + + | ESizeof ty -> + finish act sskip e + + | EVar id -> + finish act sskip e + + | EUnop(op, e1) -> + + begin match op with + + | Ominus | Oplus | Olognot | Onot | Oderef | Oarrow _ -> + let (s1, e1') = simpl e1 RHS in + finish act s1 {edesc = EUnop(op, e1'); etyp = e.etyp} + + | Oaddrof -> + let (s1, e1') = simpl e1 LHS in + finish act s1 {edesc = EUnop(op, e1'); etyp = e.etyp} + + | Odot _ -> + let (s1, e1') = simpl e1 (if act = LHS then LHS else RHS) in + finish act s1 {edesc = EUnop(op, e1'); etyp = e.etyp} + + | Opreincr | Opredecr -> + let (s1, e1') = simpl e1 LHS in + let (s2, e2') = lhs_to_rhs e1' in + let op' = match op with Opreincr -> Oadd | _ -> Osub in + let ty = unary_conversion env e.etyp in + let e3 = + {edesc = EBinop(op', e2', intconst 1L IInt, ty); etyp = ty} in + begin match act with + | Drop -> + (sseq s1 (sseq s2 (sassign e1' e3)), voidconst) + | _ -> + let tmp = new_temp e.etyp in + finish act (sseq s1 (sseq s2 (sseq (sassign tmp e3) + (sassign e1' tmp)))) + tmp + end + + | Opostincr | Opostdecr -> + let (s1, e1') = simpl e1 LHS in + let op' = match op with Opostincr -> Oadd | _ -> Osub in + let ty = unary_conversion env e.etyp in + begin match act with + | Drop -> + let (s2, e2') = lhs_to_rhs e1' in + let e3 = + {edesc = EBinop(op', e2', intconst 1L IInt, ty); etyp = ty} in + (sseq s1 (sseq s2 (sassign e1' e3)), voidconst) + | _ -> + let tmp = new_temp e.etyp in + let e3 = + {edesc = EBinop(op', tmp, intconst 1L IInt, ty); etyp = ty} in + finish act (sseq s1 (sseq (sassign tmp e1') (sassign e1' e3))) + tmp + end + + end + + | EBinop(op, e1, e2, ty) -> + + begin match op with + + | Oadd | Osub | Omul | Odiv | Omod | Oand | Oor | Oxor + | Oshl | Oshr | Oeq | One | Olt | Ogt | Ole | Oge | Oindex -> + let (s1, e1') = simpl e1 RHS in + let (s2, e2') = simpl e2 RHS in + finish act (sseq s1 s2) + {edesc = EBinop(op, e1', e2', ty); etyp = e.etyp} + + | Oassign -> + if act = Drop && is_simpl_expr e1 then + simpl e2 (Set e1) + else begin + match act with + | Drop -> + let (s1, e1') = simpl e1 LHS in + let (s2, e2') = simpl e2 RHS in + (sseq s1 (sseq s2 (sassign e1' e2')), voidconst) + | _ -> + let tmp = new_temp e.etyp in + let (s1, e1') = simpl e1 LHS in + let (s2, e2') = simpl e2 (Set tmp) in + finish act (sseq s1 (sseq s2 (sassign e1' tmp))) + tmp + end + + | Oadd_assign | Osub_assign | Omul_assign | Odiv_assign + | Omod_assign | Oand_assign | Oor_assign | Oxor_assign + | Oshl_assign | Oshr_assign -> + let (s1, e1') = simpl e1 LHS in + let (s11, e11') = lhs_to_rhs e1' in + let (s2, e2') = simpl e2 RHS in + let op' = + match op with + | Oadd_assign -> Oadd | Osub_assign -> Osub + | Omul_assign -> Omul | Odiv_assign -> Odiv + | Omod_assign -> Omod | Oand_assign -> Oand + | Oor_assign -> Oor | Oxor_assign -> Oxor + | Oshl_assign -> Oshl | Oshr_assign -> Oshr + | _ -> assert false in + let e3 = + { edesc = EBinop(op', e11', e2', ty); etyp = ty } in + begin match act with + | Drop -> + (sseq s1 (sseq s11 (sseq s2 (sassign e1' e3))), voidconst) + | _ -> + let tmp = new_temp e.etyp in + finish act (sseq s1 (sseq s11 (sseq s2 + (sseq (sassign tmp e3) (sassign e1' tmp))))) + tmp + end + + | Ocomma -> + let (s1, _) = simpl e1 Drop in + let (s2, e2') = simpl e2 act in + (sseq s1 s2, e2') + + | Ologand -> + let (s1, e1') = simpl e1 RHS in + if is_simpl_expr e2 then begin + finish act s1 + {edesc = EBinop(Ologand, e1', e2, ty); etyp = e.etyp} + end else begin + match act with + | Drop -> + let (s2, _) = simpl e2 Drop in + (sseq s1 (sif e1' s2 sskip), voidconst) + | RHS | LHS -> (* LHS should not happen *) + let (s2, e2') = simpl e2 RHS in + let tmp = new_temp e.etyp in + (sseq s1 (sif e1' + (sseq s2 (sassign tmp (eboolvalof e2'))) + (sassign tmp (intconst 0L IInt))), + tmp) + | Set lv -> + let (s2, e2') = simpl e2 RHS in + (sseq s1 (sif e1' + (sseq s2 (sassign lv (eboolvalof e2'))) + (sassign lv (intconst 0L IInt))), + voidconst) + end + + | Ologor -> + let (s1, e1') = simpl e1 RHS in + if is_simpl_expr e2 then begin + finish act s1 + {edesc = EBinop(Ologor, e1', e2, ty); etyp = e.etyp} + end else begin + match act with + | Drop -> + let (s2, _) = simpl e2 Drop in + (sseq s1 (sif e1' sskip s2), voidconst) + | RHS | LHS -> (* LHS should not happen *) + let (s2, e2') = simpl e2 RHS in + let tmp = new_temp e.etyp in + (sseq s1 (sif e1' + (sassign tmp (intconst 1L IInt)) + (sseq s2 (sassign tmp (eboolvalof e2')))), + tmp) + | Set lv -> + let (s2, e2') = simpl e2 RHS in + (sseq s1 (sif e1' + (sassign lv (intconst 1L IInt)) + (sseq s2 (sassign lv (eboolvalof e2')))), + voidconst) + end + + end + + | EConditional(e1, e2, e3) -> + let (s1, e1') = simpl e1 RHS in + if is_simpl_expr e2 && is_simpl_expr e3 then begin + finish act s1 {edesc = EConditional(e1', e2, e3); etyp = e.etyp} + end else begin + match act with + | Drop -> + let (s2, _) = simpl e2 Drop in + let (s3, _) = simpl e3 Drop in + (sseq s1 (sif e1' s2 s3), voidconst) + | RHS | LHS -> (* LHS should not happen *) + let tmp = new_temp e.etyp in + let (s2, _) = simpl e2 (Set tmp) in + let (s3, _) = simpl e3 (Set tmp) in + (sseq s1 (sif e1' s2 s3), tmp) + | Set lv -> + let (s2, _) = simpl e2 (Set lv) in + let (s3, _) = simpl e3 (Set lv) in + (sseq s1 (sif e1' s2 s3), voidconst) + end + + | ECast(ty, e1) -> + if is_void_type env ty then begin + if act <> Drop then + Errors.warning "%acast to 'void' in a context expecting a value\n" + formatloc loc; + simpl e1 act + end else begin + let (s1, e1') = simpl e1 RHS in + finish act s1 {edesc = ECast(ty, e1'); etyp = e.etyp} + end + + | ECall(e1, el) -> + let (s1, e1') = simpl e1 RHS in + let (s2, el') = simpl_list el in + let e2 = { edesc = ECall(e1', el'); etyp = e.etyp } in + begin match act with + | Drop -> + (sseq s1 (sseq s2 {sdesc = Sdo e2; sloc=loc}), voidconst) + | Set({edesc = EVar _} as lhs) -> + (* CompCert wants the destination of a call to be a variable, + not a more complex lhs. In the latter case, we + fall through the catch-all case below *) + (sseq s1 (sseq s2 (sassign lhs e2)), voidconst) + | _ -> + let tmp = new_temp e.etyp in + finish act (sseq s1 (sseq s2 (sassign tmp e2))) tmp + end + + and simpl_list = function + | [] -> (sskip, []) + | e1 :: el -> + let (s1, e1') = simpl e1 RHS in + let (s2, el') = simpl_list el in + (sseq s1 s2, e1' :: el') + + in simpl e act + +(* Simplification of an initializer *) + +let simpl_initializer loc env i = + + let rec simpl_init = function + | Init_single e -> + let (s, e') = simpl_expr loc env e RHS in + (s, Init_single e) + | Init_array il -> + let rec simpl = function + | [] -> (sskip, []) + | i1 :: il -> + let (s1, i1') = simpl_init i1 in + let (s2, il') = simpl il in + (sseq loc s1 s2, i1' :: il') in + let (s, il') = simpl il in + (s, Init_array il') + | Init_struct(id, il) -> + let rec simpl = function + | [] -> (sskip, []) + | (f1, i1) :: il -> + let (s1, i1') = simpl_init i1 in + let (s2, il') = simpl il in + (sseq loc s1 s2, (f1, i1') :: il') in + let (s, il') = simpl il in + (s, Init_struct(id, il')) + | Init_union(id, f, i) -> + let (s, i') = simpl_init i in + (s, Init_union(id, f, i')) + + in simpl_init i + +(* Construct a simplified statement equivalent to [if (e) s1; else s2;]. + Optimizes the case where e contains [&&] or [||] or [?]. + [s1] or [s2] can be duplicated, so use only for small [s1] and [s2] + that do not define any labels. *) + +let rec simpl_if loc env e s1 s2 = + match e.edesc with + | EUnop(Olognot, e1) -> + simpl_if loc env e1 s2 s1 + | EBinop(Ologand, e1, e2, _) -> + simpl_if loc env e1 + (simpl_if loc env e2 s1 s2) + s2 + | EBinop(Ologor, e1, e2, _) -> + simpl_if loc env e1 + s1 + (simpl_if loc env e2 s1 s2) + | EConditional(e1, e2, e3) -> + simpl_if loc env e1 + (simpl_if loc env e2 s1 s2) + (simpl_if loc env e3 s1 s2) + | _ -> + let (s, e') = simpl_expr loc env e RHS in + sseq loc s {sdesc = Sif(e', s1, s2); sloc = loc} + +(* Trivial statements for which [simpl_if] is applicable *) + +let trivial_stmt s = + match s.sdesc with + | Sskip | Scontinue | Sbreak | Sgoto _ -> true + | _ -> false + +(* Construct a simplified statement equivalent to [if (!e) exit; ]. *) + +let break_if_false loc env e = + simpl_if loc env e + {sdesc = Sskip; sloc = loc} + {sdesc = Sbreak; sloc = loc} + +(* Simplification of a statement *) + +let simpl_statement env s = + + let rec simpl_stmt s = + match s.sdesc with + + | Sskip -> + s + + | Sdo e -> + let (s', _) = simpl_expr s.sloc env e Drop in + s' + + | Sseq(s1, s2) -> + {sdesc = Sseq(simpl_stmt s1, simpl_stmt s2); sloc = s.sloc} + + | Sif(e, s1, s2) -> + if trivial_stmt s1 && trivial_stmt s2 then + simpl_if s.sloc env e (simpl_stmt s1) (simpl_stmt s2) + else begin + let (s', e') = simpl_expr s.sloc env e RHS in + sseq s.sloc s' + {sdesc = Sif(e', simpl_stmt s1, simpl_stmt s2); + sloc = s.sloc} + end + + | Swhile(e, s1) -> + if is_simpl_expr e then + {sdesc = Swhile(e, simpl_stmt s1); sloc = s.sloc} + else + {sdesc = + Swhile(intconst 1L IInt, + sseq s.sloc (break_if_false s.sloc env e) + (simpl_stmt s1)); + sloc = s.sloc} + + | Sdowhile(s1, e) -> + if is_simpl_expr e then + {sdesc = Sdowhile(simpl_stmt s1, e); sloc = s.sloc} + else begin + let tmp = new_temp (TInt(IInt, [])) in + let (s', _) = simpl_expr s.sloc env e (Set tmp) in + let s_init = + {sdesc = Sdo {edesc = EBinop(Oassign, tmp, intconst 1L IInt, tmp.etyp); + etyp = tmp.etyp}; + sloc = s.sloc} in + {sdesc = Sfor(s_init, tmp, s', simpl_stmt s1); sloc = s.sloc} + end +(*** Alternate translation that unfortunately puts a "break" in the + "next" part of a "for", something that is not supported + by Clight semantics, and has unknown behavior in gcc. + {sdesc = + Sfor(sskip, + intconst 1L IInt, + break_if_false s.sloc env e, + simpl_stmt s1); + sloc = s.sloc} +***) + + | Sfor(s1, e, s2, s3) -> + if is_simpl_expr e then + {sdesc = Sfor(simpl_stmt s1, + e, + simpl_stmt s2, + simpl_stmt s3); + sloc = s.sloc} + else + let (s', e') = simpl_expr s.sloc env e RHS in + {sdesc = Sfor(sseq s.sloc (simpl_stmt s1) s', + e', + sseq s.sloc (simpl_stmt s2) s', + simpl_stmt s3); + sloc = s.sloc} + + | Sbreak -> + s + | Scontinue -> + s + + | Sswitch(e, s1) -> + let (s', e') = simpl_expr s.sloc env e RHS in + sseq s.sloc s' {sdesc = Sswitch(e', simpl_stmt s1); sloc = s.sloc} + + | Slabeled(lbl, s1) -> + {sdesc = Slabeled(lbl, simpl_stmt s1); sloc = s.sloc} + + | Sgoto lbl -> + s + + | Sreturn None -> + s + + | Sreturn (Some e) -> + let (s', e') = simpl_expr s.sloc env e RHS in + sseq s.sloc s' {sdesc = Sreturn(Some e'); sloc = s.sloc} + + | Sblock sl -> + {sdesc = Sblock(simpl_block sl); sloc = s.sloc} + + | Sdecl d -> assert false + + and simpl_block = function + | [] -> [] + | ({sdesc = Sdecl(sto, id, ty, None)} as s) :: sl -> + s :: simpl_block sl + | ({sdesc = Sdecl(sto, id, ty, Some i)} as s) :: sl -> + let (s', i') = simpl_initializer s.sloc env i in + let sl' = + {sdesc = Sdecl(sto, id, ty, Some i'); sloc = s.sloc} + :: simpl_block sl in + if s'.sdesc = Sskip then sl' else s' :: sl' + | s :: sl -> + simpl_stmt s :: simpl_block sl + + in simpl_stmt s + +(* Simplification of a function definition *) + +let simpl_fundef env f = + reset_temps(); + let body' = simpl_statement env f.fd_body in + let temps = get_temps() in + { f with fd_locals = f.fd_locals @ temps; fd_body = body' } + +(* Entry point *) + +let program ?(volatile = false) p = + volatilize := volatile; + Transform.program ~fundef:simpl_fundef p diff --git a/cparser/SimplExpr.mli b/cparser/SimplExpr.mli new file mode 100644 index 0000000..cdeb30c --- /dev/null +++ b/cparser/SimplExpr.mli @@ -0,0 +1,20 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Pulling side effects out of expressions. + If [volatile] is [true], treats reads from volatile rvalues + as side-effects *) + +val program: ?volatile: bool -> C.program -> C.program diff --git a/cparser/StructAssign.ml b/cparser/StructAssign.ml new file mode 100644 index 0000000..f5cecfc --- /dev/null +++ b/cparser/StructAssign.ml @@ -0,0 +1,157 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Expand assignments between structs and between unions *) + +(* Assumes: simplified code. + Preserves: simplified code, unblocked code *) + +open C +open Cutil +open Env +open Errors + +let maxsize = ref 8 + +let need_memcpy = ref (None: ident option) + +let memcpy_type = + TFun(TPtr(TVoid [], []), + Some [(Env.fresh_ident "", TPtr(TVoid [], [])); + (Env.fresh_ident "", TPtr(TVoid [AConst], [])); + (Env.fresh_ident "", TInt(size_t_ikind, []))], + false, []) + +let memcpy_ident () = + match !need_memcpy with + | None -> + let id = Env.fresh_ident "memcpy" in + need_memcpy := Some id; + id + | Some id -> + id + +let transf_assign env loc lhs rhs = + + let num_assign = ref 0 in + + let assign l r = + incr num_assign; + if !num_assign > !maxsize + then raise Exit + else sassign loc l r in + + let rec transf l r = + match unroll env l.etyp with + | TStruct(id, attr) -> + let ci = Env.find_struct env id in + if ci.ci_sizeof = None then + error "%a: Error: incomplete struct '%s'" formatloc loc id.name; + transf_struct l r ci.ci_members + | TUnion(id, attr) -> + raise Exit + | TArray(ty_elt, Some sz, attr) -> + transf_array l r ty_elt 0L sz + | TArray(ty_elt, None, attr) -> + error "%a: Error: array of unknown size" formatloc loc; + sskip (* will be ignored later *) + | _ -> + assign l r + + and transf_struct l r = function + | [] -> sskip + | f :: fl -> + sseq loc (transf {edesc = EUnop(Odot f.fld_name, l); etyp = f.fld_typ} + {edesc = EUnop(Odot f.fld_name, r); etyp = f.fld_typ}) + (transf_struct l r fl) + + and transf_array l r ty idx sz = + if idx >= sz then sskip else begin + let e = intconst idx size_t_ikind in + sseq loc (transf {edesc = EBinop(Oindex, l, e, ty); etyp = ty} + {edesc = EBinop(Oindex, r, e, ty); etyp = ty}) + (transf_array l r ty (Int64.add idx 1L) sz) + end + in + + try + transf lhs rhs + with Exit -> + let memcpy = {edesc = EVar(memcpy_ident()); etyp = memcpy_type} in + let e_lhs = {edesc = EUnop(Oaddrof, lhs); etyp = TPtr(lhs.etyp, [])} in + let e_rhs = {edesc = EUnop(Oaddrof, rhs); etyp = TPtr(rhs.etyp, [])} in + let e_size = {edesc = ESizeof(lhs.etyp); etyp = TInt(size_t_ikind, [])} in + {sdesc = Sdo {edesc = ECall(memcpy, [e_lhs; e_rhs; e_size]); + etyp = TVoid[]}; + sloc = loc} + +let rec transf_stmt env s = + match s.sdesc with + | Sskip -> s + | Sdo {edesc = EBinop(Oassign, lhs, rhs, _)} + when is_composite_type env lhs.etyp -> + transf_assign env s.sloc lhs rhs + | Sdo _ -> s + | Sseq(s1, s2) -> + {s with sdesc = Sseq(transf_stmt env s1, transf_stmt env s2)} + | Sif(e, s1, s2) -> + {s with sdesc = Sif(e, transf_stmt env s1, transf_stmt env s2)} + | Swhile(e, s1) -> + {s with sdesc = Swhile(e, transf_stmt env s1)} + | Sdowhile(s1, e) -> + {s with sdesc = Sdowhile(transf_stmt env s1, e)} + | Sfor(s1, e, s2, s3) -> + {s with sdesc = Sfor(transf_stmt env s1, e, + transf_stmt env s2, transf_stmt env s3)} + | Sbreak -> s + | Scontinue -> s + | Sswitch(e, s1) -> + {s with sdesc = Sswitch(e, transf_stmt env s1)} + | Slabeled(lbl, s1) -> + {s with sdesc = Slabeled(lbl, transf_stmt env s1)} + | Sgoto lbl -> s + | Sreturn _ -> s + | Sblock sl -> + {s with sdesc = Sblock(List.map (transf_stmt env) sl)} + | Sdecl d -> s + +let transf_fundef env fd = + {fd with fd_body = transf_stmt env fd.fd_body} + +let program p = + need_memcpy := None; + let p' = Transform.program ~fundef:transf_fundef p in + match !need_memcpy with + | None -> p' + | Some id -> + {gdesc = Gdecl(Storage_extern, id, memcpy_type, None); gloc = no_loc} + :: p' + +(* Horrible hack *) +(*** + let has_memcpy = ref false in + need_memcpy := None; + List.iter + (function {gdesc = Gdecl(_, ({name = "memcpy"} as id), _, _)} -> + need_memcpy := Some id; has_memcpy := true + | _ -> ()) + p; + let p' = Transform.program ~fundef:transf_fundef p in + match !need_memcpy with + | Some id when not !has_memcpy -> + {gdesc = Gdecl(Storage_extern, id, memcpy_type, None); gloc = no_loc} + :: p' + | _ -> p' +***) diff --git a/cparser/StructAssign.mli b/cparser/StructAssign.mli new file mode 100644 index 0000000..5549282 --- /dev/null +++ b/cparser/StructAssign.mli @@ -0,0 +1,18 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Expand assignments between structs and between unions *) + +val program: C.program -> C.program diff --git a/cparser/StructByValue.ml b/cparser/StructByValue.ml new file mode 100644 index 0000000..de79737 --- /dev/null +++ b/cparser/StructByValue.ml @@ -0,0 +1,235 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Eliminate by-value passing of structs and unions. *) + +(* Assumes: nothing. + Preserves: simplified code, unblocked code *) + +open C +open Cutil +open Transform + +(* In function argument types, struct s -> struct s * + In function result types, struct s -> void + add 1st parameter struct s * + Try to preserve original typedef names when no change. +*) + +let rec transf_type env t = + match unroll env t with + | TFun(tres, None, vararg, attr) -> + let tres' = transf_type env tres in + TFun((if is_composite_type env tres then TVoid [] else tres'), + None, vararg, attr) + | TFun(tres, Some args, vararg, attr) -> + let args' = List.map (transf_funarg env) args in + let tres' = transf_type env tres in + if is_composite_type env tres then begin + let res = Env.fresh_ident "_res" in + TFun(TVoid [], Some((res, TPtr(tres', [])) :: args'), vararg, attr) + end else + TFun(tres', Some args', vararg, attr) + | TPtr(t1, attr) -> + let t1' = transf_type env t1 in + if t1' = t1 then t else TPtr(transf_type env t1, attr) + | TArray(t1, sz, attr) -> + let t1' = transf_type env t1 in + if t1' = t1 then t else TArray(transf_type env t1, sz, attr) + | _ -> t + +and transf_funarg env (id, t) = + let t = transf_type env t in + if is_composite_type env t + then (id, TPtr(add_attributes_type [AConst] t, [])) + else (id, t) + +(* Simple exprs: no change in structure, since calls cannot occur within, + but need to rewrite the types. *) + +let rec transf_expr env e = + { etyp = transf_type env e.etyp; + edesc = match e.edesc with + | EConst c -> EConst c + | ESizeof ty -> ESizeof (transf_type env ty) + | EVar x -> EVar x + | EUnop(op, e1) -> EUnop(op, transf_expr env e1) + | EBinop(op, e1, e2, ty) -> + EBinop(op, transf_expr env e1, transf_expr env e2, transf_type env ty) + | EConditional(e1, e2, e3) -> + assert (not (is_composite_type env e.etyp)); + EConditional(transf_expr env e1, transf_expr env e2, transf_expr env e3) + | ECast(ty, e1) -> ECast(transf_type env ty, transf_expr env e1) + | ECall(e1, el) -> assert false + } + +(* Initializers *) + +let rec transf_init env = function + | Init_single e -> + Init_single (transf_expr env e) + | Init_array il -> + Init_array (List.map (transf_init env) il) + | Init_struct(id, fil) -> + Init_struct (id, List.map (fun (fld, i) -> (fld, transf_init env i)) fil) + | Init_union(id, fld, i) -> + Init_union(id, fld, transf_init env i) + +(* Declarations *) + +let transf_decl env (sto, id, ty, init) = + (sto, id, transf_type env ty, + match init with None -> None | Some i -> Some (transf_init env i)) + +(* Transformation of statements and function bodies *) + +let transf_funbody env body optres = + +let transf_type t = transf_type env t +and transf_expr e = transf_expr env e in + +(* Function arguments: pass by reference those having struct/union type *) + +let transf_arg e = + let e' = transf_expr e in + if is_composite_type env e'.etyp + then {edesc = EUnop(Oaddrof, e'); etyp = TPtr(e'.etyp, [])} + else e' +in + +(* Function calls: if return type is struct or union, + lv = f(...) -> f(&lv, ...) + f(...) -> f(&newtemp, ...) + Returns: if return type is struct or union, + return x -> _res = x; return +*) + +let rec transf_stmt s = + match s.sdesc with + | Sskip -> s + | Sdo {edesc = ECall(fn, args); etyp = ty} -> + let fn = transf_expr fn in + let args = List.map transf_arg args in + if is_composite_type env ty then begin + let tmp = new_temp ~name:"_res" ty in + let arg0 = {edesc = EUnop(Oaddrof, tmp); etyp = TPtr(ty, [])} in + {s with sdesc = Sdo {edesc = ECall(fn, arg0 :: args); etyp = TVoid []}} + end else + {s with sdesc = Sdo {edesc = ECall(fn, args); etyp = ty}} + | Sdo {edesc = EBinop(Oassign, dst, {edesc = ECall(fn, args); etyp = ty}, _)} -> + let dst = transf_expr dst in + let fn = transf_expr fn in + let args = List.map transf_arg args in + let ty = transf_type ty in + if is_composite_type env ty then begin + let arg0 = {edesc = EUnop(Oaddrof, dst); etyp = TPtr(dst.etyp, [])} in + {s with sdesc = Sdo {edesc = ECall(fn, arg0 :: args); etyp = TVoid []}} + end else + sassign s.sloc dst {edesc = ECall(fn, args); etyp = ty} + | Sdo e -> + {s with sdesc = Sdo(transf_expr e)} + | Sseq(s1, s2) -> + {s with sdesc = Sseq(transf_stmt s1, transf_stmt s2)} + | Sif(e, s1, s2) -> + {s with sdesc = Sif(transf_expr e, transf_stmt s1, transf_stmt s2)} + | Swhile(e, s1) -> + {s with sdesc = Swhile(transf_expr e, transf_stmt s1)} + | Sdowhile(s1, e) -> + {s with sdesc = Sdowhile(transf_stmt s1, transf_expr e)} + | Sfor(s1, e, s2, s3) -> + {s with sdesc = Sfor(transf_stmt s1, transf_expr e, + transf_stmt s2, transf_stmt s3)} + | Sbreak -> s + | Scontinue -> s + | Sswitch(e, s1) -> + {s with sdesc = Sswitch(transf_expr e, transf_stmt s1)} + | Slabeled(lbl, s1) -> + {s with sdesc = Slabeled(lbl, transf_stmt s1)} + | Sgoto lbl -> s + | Sreturn None -> s + | Sreturn(Some e) -> + let e = transf_expr e in + begin match optres with + | None -> + {s with sdesc = Sreturn(Some e)} + | Some dst -> + sseq s.sloc + (sassign s.sloc dst e) + {sdesc = Sreturn None; sloc = s.sloc} + end + | Sblock sl -> + {s with sdesc = Sblock(List.map transf_stmt sl)} + | Sdecl d -> + {s with sdesc = Sdecl(transf_decl env d)} + +in + transf_stmt body + +let transf_params loc env params = + let rec transf_prm = function + | [] -> + ([], [], sskip) + | (id, ty) :: params -> + let ty = transf_type env ty in + if is_composite_type env ty then begin + let id' = Env.fresh_ident id.name in + let ty' = TPtr(add_attributes_type [AConst] ty, []) in + let (params', decls, init) = transf_prm params in + ((id', ty') :: params', + (Storage_default, id, ty, None) :: decls, + sseq loc + (sassign loc {edesc = EVar id; etyp = ty} + {edesc = EUnop(Oderef, {edesc = EVar id'; etyp = ty'}); + etyp = ty}) + init) + end else begin + let (params', decls, init) = transf_prm params in + ((id, ty) :: params', decls, init) + end + in transf_prm params + +let transf_fundef env f = + reset_temps(); + let ret = transf_type env f.fd_ret in + let (params, newdecls, init) = transf_params f.fd_body.sloc env f.fd_params in + let (ret1, params1, body1) = + if is_composite_type env ret then begin + let vres = Env.fresh_ident "_res" in + let tres = TPtr(ret, []) in + let eres = {edesc = EVar vres; etyp = tres} in + let eeres = {edesc = EUnop(Oderef, eres); etyp = ret} in + (TVoid [], + (vres, tres) :: params, + transf_funbody env f.fd_body (Some eeres)) + end else + (ret, params, transf_funbody env f.fd_body None) in + let body2 = sseq body1.sloc init body1 in + let temps = get_temps() in + {f with fd_ret = ret1; fd_params = params1; + fd_locals = newdecls @ f.fd_locals @ temps; fd_body = body2} + +(* Composites *) + +let transf_composite env su id fl = + List.map (fun f -> {f with fld_typ = transf_type env f.fld_typ}) fl + +(* Entry point *) + +let program p = + Transform.program + ~decl:transf_decl + ~fundef:transf_fundef + ~composite:transf_composite + ~typedef:(fun env id ty -> transf_type env ty) + p diff --git a/cparser/StructByValue.mli b/cparser/StructByValue.mli new file mode 100644 index 0000000..45899a4 --- /dev/null +++ b/cparser/StructByValue.mli @@ -0,0 +1,16 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +val program: C.program -> C.program diff --git a/cparser/Transform.ml b/cparser/Transform.ml new file mode 100644 index 0000000..b7f57f3 --- /dev/null +++ b/cparser/Transform.ml @@ -0,0 +1,79 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Generic program transformation *) + +open C +open Cutil +open Env + +(* Recording fresh temporaries *) + +let temporaries = ref ([]: decl list) + +let reset_temps () = + temporaries := [] + +let new_temp_var ?(name = "t") ty = + let id = Env.fresh_ident name in + temporaries := (Storage_default, id, ty, None) :: !temporaries; + id + +let new_temp ?(name = "t") ty = + let id = new_temp_var ~name ty in + { edesc = EVar id; etyp = ty } + +let get_temps () = + let temps = !temporaries in + temporaries := []; + List.rev temps + +(* Generic transformation *) + +let program + ?(decl = fun env d -> d) + ?(fundef = fun env fd -> fd) + ?(composite = fun env su id fl -> fl) + ?(typedef = fun env id ty -> ty) + p = + +(* In all transformations of interest so far, the environment is used only + for its type definitions and struct/union definitions, + so we do not update it for other definitions. *) + + let rec transf_globdecls env accu = function + | [] -> List.rev accu + | g :: gl -> + let (desc', env') = + match g.gdesc with + | Gdecl((sto, id, ty, init) as d) -> + (Gdecl(decl env d), Env.add_ident env id sto ty) + | Gfundef f -> + (Gfundef(fundef env f), + Env.add_ident env f.fd_name f.fd_storage (fundef_typ f)) + | Gcompositedecl(su, id) -> + (Gcompositedecl(su, id), + Env.add_composite env id (composite_info_decl env su)) + | Gcompositedef(su, id, fl) -> + (Gcompositedef(su, id, composite env su id fl), + Env.add_composite env id (composite_info_def env su fl)) + | Gtypedef(id, ty) -> + (Gtypedef(id, typedef env id ty), Env.add_typedef env id ty) + | Genumdef _ as gd -> (gd, env) + | Gpragma _ as gd -> (gd, env) + in + transf_globdecls env' ({g with gdesc = desc'} :: accu) gl + + in transf_globdecls (Builtins.environment()) [] p diff --git a/cparser/Transform.mli b/cparser/Transform.mli new file mode 100644 index 0000000..960d890 --- /dev/null +++ b/cparser/Transform.mli @@ -0,0 +1,30 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Generic program transformation *) + +val reset_temps : unit -> unit +val new_temp_var : ?name:string -> C.typ -> C.ident +val new_temp : ?name:string -> C.typ -> C.exp +val get_temps : unit -> C.decl list + +val program : + ?decl:(Env.t -> C.decl -> C.decl) -> + ?fundef:(Env.t -> C.fundef -> C.fundef) -> + ?composite:(Env.t -> + C.struct_or_union -> C.ident -> C.field list -> C.field list) -> + ?typedef:(Env.t -> C.ident -> Env.typedef_info -> Env.typedef_info) -> + C.program -> + C.program diff --git a/cparser/Unblock.ml b/cparser/Unblock.ml new file mode 100644 index 0000000..fa304b7 --- /dev/null +++ b/cparser/Unblock.ml @@ -0,0 +1,133 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Simplification of blocks and initializers within functions *) + +(* Assumes: nothing + Produces: unblocked code *) + +open C +open Cutil +open Errors + +(* Convert an initializer to a list of assignments. + Prepend those assignments to the given statement. *) + +let sdoseq loc e s = + sseq loc {sdesc = Sdo e; sloc = loc} s + +let rec local_initializer loc env path init k = + match init with + | Init_single e -> + sdoseq loc + { edesc = EBinop(Oassign, path, e, path.etyp); etyp = path.etyp } + k + | Init_array il -> + let ty_elt = + match unroll env path.etyp with + | TArray(ty_elt, _, _) -> ty_elt + | _ -> fatal_error "%aWrong type for array initializer" + formatloc loc in + let rec array_init pos = function + | [] -> k + | i :: il -> + local_initializer loc env + { edesc = EBinop(Oindex, path, intconst pos IInt, TPtr(ty_elt, [])); + etyp = ty_elt } + i + (array_init (Int64.succ pos) il) in + array_init 0L il + | Init_struct(id, fil) -> + let field_init (fld, i) k = + local_initializer loc env + { edesc = EUnop(Odot fld.fld_name, path); etyp = fld.fld_typ } + i k in + List.fold_right field_init fil k + | Init_union(id, fld, i) -> + local_initializer loc env + { edesc = EUnop(Odot fld.fld_name, path); etyp = fld.fld_typ } + i k + +(* Record new variables to be locally defined *) + +let local_variables = ref ([]: decl list) + +(* Note: "const int x = y - 1;" is legal, but we turn it into + "const int x; x = y - 1;", which is not. Therefore, remove + top-level 'const' attribute. Also remove it on element type of + array type. *) + +let remove_const env ty = remove_attributes_type env [AConst] ty + +(* Process a variable declaration. + The variable is entered in [local_variables]. + The initializer, if any, is converted into assignments and + prepended to [k]. *) + +let process_decl loc env (sto, id, ty, optinit) k = + let ty' = remove_const env ty in + local_variables := (sto, id, ty', None) :: !local_variables; + match optinit with + | None -> k + | Some init -> + local_initializer loc env { edesc = EVar id; etyp = ty' } init k + +(* Simplification of blocks within a statement *) + +let rec unblock_stmt env s = + match s.sdesc with + | Sskip -> s + | Sdo e -> s + | Sseq(s1, s2) -> + {s with sdesc = Sseq(unblock_stmt env s1, unblock_stmt env s2)} + | Sif(e, s1, s2) -> + {s with sdesc = Sif(e, unblock_stmt env s1, unblock_stmt env s2)} + | Swhile(e, s1) -> + {s with sdesc = Swhile(e, unblock_stmt env s1)} + | Sdowhile(s1, e) -> + {s with sdesc = Sdowhile(unblock_stmt env s1, e)} + | Sfor(s1, e, s2, s3) -> + {s with sdesc = Sfor(unblock_stmt env s1, e, unblock_stmt env s2, unblock_stmt env s3)} + | Sbreak -> s + | Scontinue -> s + | Sswitch(e, s1) -> + {s with sdesc = Sswitch(e, unblock_stmt env s1)} + | Slabeled(lbl, s1) -> + {s with sdesc = Slabeled(lbl, unblock_stmt env s1)} + | Sgoto lbl -> s + | Sreturn opte -> s + | Sblock sl -> unblock_block env sl + | Sdecl d -> assert false + +and unblock_block env = function + | [] -> sskip + | {sdesc = Sdecl d; sloc = loc} :: sl -> + process_decl loc env d (unblock_block env sl) + | s :: sl -> + sseq s.sloc (unblock_stmt env s) (unblock_block env sl) + +(* Simplification of blocks within a function *) + +let unblock_fundef env f = + local_variables := []; + let body = unblock_stmt env f.fd_body in + let decls = !local_variables in + local_variables := []; + { f with fd_locals = f.fd_locals @ decls; fd_body = body } + +(* Entry point *) + +let program p = + Transform.program ~fundef:unblock_fundef p diff --git a/cparser/Unblock.mli b/cparser/Unblock.mli new file mode 100644 index 0000000..e6bea9e --- /dev/null +++ b/cparser/Unblock.mli @@ -0,0 +1,18 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Simplification of blocks and initializers within functions *) + +val program: C.program -> C.program diff --git a/cparser/uint64.c b/cparser/uint64.c new file mode 100644 index 0000000..5396617 --- /dev/null +++ b/cparser/uint64.c @@ -0,0 +1,42 @@ +/* *********************************************************************/ +/* */ +/* The Compcert verified compiler */ +/* */ +/* Xavier Leroy, INRIA Paris-Rocquencourt */ +/* */ +/* Copyright Institut National de Recherche en Informatique et en */ +/* Automatique. All rights reserved. This file is distributed */ +/* under the terms of the GNU General Public License as published by */ +/* the Free Software Foundation, either version 2 of the License, or */ +/* (at your option) any later version. This file is also distributed */ +/* under the terms of the INRIA Non-Commercial License Agreement. */ +/* */ +/* *********************************************************************/ + +#include +#include + +value cparser_int64_unsigned_to_float(value v) +{ + return caml_copy_double((double)((uint64) Int64_val(v))); +} + +value cparser_int64_unsigned_div(value v1, value v2) +{ + return caml_copy_int64((uint64) Int64_val(v1) / (uint64) Int64_val(v2)); +} + +value cparser_int64_unsigned_mod(value v1, value v2) +{ + return caml_copy_int64((uint64) Int64_val(v1) % (uint64) Int64_val(v2)); +} + +value cparser_int64_unsigned_compare(value v1, value v2) +{ + uint64 n1 = (uint64) Int64_val(v1); + uint64 n2 = (uint64) Int64_val(v2); + if (n1 < n2) return Val_int(-1); + if (n1 > n2) return Val_int(1); + return Val_int(0); +} + diff --git a/distributed_files b/distributed_files new file mode 100644 index 0000000..384b29f --- /dev/null +++ b/distributed_files @@ -0,0 +1,1950 @@ +. +./_tags +./configure +./Makefile.in +./README +./_tags.common +./Makefile.local +./myocamlbuild.ml +./Makefile.config +./distributed_files +./Makefile.variables.in +./_tags.compiler +./cparser +./cparser/SimplExpr.ml +./cparser/Env.mli +./cparser/C.mli +./cparser/Builtins.mli +./cparser/CBuiltins.ml +./cparser/Lexer.mli +./cparser/Elab.mli +./cparser/StructAssign.mli +./cparser/Parse.mli +./cparser/Bitfields.ml +./cparser/Machine.mli +./cparser/Unblock.ml +./cparser/Cleanup.mli +./cparser/Ceval.mli +./cparser/StructByValue.ml +./cparser/Unblock.mli +./cparser/Cabshelper.ml +./cparser/AddCasts.ml +./cparser/.depend +./cparser/Main.ml +./cparser/Cprint.ml +./cparser/Machine.ml +./cparser/StructByValue.mli +./cparser/GCC.ml +./cparser/uint64.c +./cparser/Cabs.ml +./cparser/Cutil.ml +./cparser/Env.ml +./cparser/Rename.ml +./cparser/Bitfields.mli +./cparser/Transform.ml +./cparser/Errors.ml +./cparser/Parse_aux.ml +./cparser/Elab.ml +./cparser/Cleanup.ml +./cparser/Ceval.ml +./cparser/Parser.mly +./cparser/Makefile +./cparser/Cutil.mli +./cparser/Parse_aux.mli +./cparser/GCC.mli +./cparser/AddCasts.mli +./cparser/SimplExpr.mli +./cparser/Parse.ml +./cparser/Errors.mli +./cparser/Rename.mli +./cparser/StructAssign.ml +./cparser/Builtins.ml +./cparser/Lexer.mll +./cparser/Cprint.mli +./cparser/Transform.mli +./Makefile.generic +./web +./web/fetopen.png +./web/accweb.js +./web/make-cerco-input.sh +./web/cerco_input.xml +./web/accweb.html +./web/accweb_oclosure.js +./configure.ac +./tests +./tests/review1 +./tests/review1/bubble_sort.c +./tests/review1/search.c +./tests/tmp_tests +./tests/tmp_tests/Backend +./tests/tmp_tests/Backend/struct_and_ptr_and_fact_u.c +./tests/tmp_tests/Backend/bubble_sort_u.c +./tests/tmp_tests/Backend/quicksort.c +./tests/tmp_tests/Backend/bubble_sort.c +./tests/tmp_tests/Backend/array_copy_u.c +./tests/tmp_tests/Backend/array_copy.c +./tests/tmp_tests/Backend/struct_and_ptr_and_fact.c +./tests/tmp_tests/Backend/search.c +./tests/tmp_tests/Backend/quicksort_u.c +./tests/tmp_tests/Frontend +./tests/tmp_tests/Frontend/bubble_sort.RTLabs +./tests/tmp_tests/Frontend/call.c +./tests/tmp_tests/Frontend/struct_and_ptr_and_fact.RTLabs +./tests/tmp_tests/Frontend/quicksort.RTLabs +./tests/tmp_tests/Frontend/array_copy.RTLabs +./tests/tmp_tests/Frontend/quicksort.c +./tests/tmp_tests/Frontend/cparser294ccc9.i +./tests/tmp_tests/Frontend/bubble_sort.c +./tests/tmp_tests/Frontend/array_copy.c +./tests/tmp_tests/Frontend/struct_and_ptr_and_fact.c +./tests/tmp_tests/Frontend/cparser19c05bb.c +./tests/tmp_tests/Frontend/search.RTLabs +./tests/tmp_tests/Frontend/search.c +./tests/GCCTestSuite +./tests/GCCTestSuite/label-compound-stmt-1.c +./tests/GCCTestSuite/wchar_t-2.s.expected +./tests/GCCTestSuite/intermod-1.hex.expected +./tests/GCCTestSuite/pr22335-1.c +./tests/GCCTestSuite/pack-test-2.hex.expected +./tests/GCCTestSuite/pr26570.s.expected +./tests/GCCTestSuite/darwin-ld-3.s.expected +./tests/GCCTestSuite/decl-4.hex.expected +./tests/GCCTestSuite/attr-used.c.expected +./tests/GCCTestSuite/c90-impl-int-1.hex.expected +./tests/GCCTestSuite/arm-scd42-1.s.expected +./tests/GCCTestSuite/declspec-12.s.expected +./tests/GCCTestSuite/darwin-ld-20040828-2.s.expected +./tests/GCCTestSuite/arm-scd42-3.s.expected +./tests/GCCTestSuite/symbian4.c +./tests/GCCTestSuite/compare8.hex.expected +./tests/GCCTestSuite/visibility-4.c.expected +./tests/GCCTestSuite/c90-dupqual-1.s.expected +./tests/GCCTestSuite/profile-generate-1.s.expected +./tests/GCCTestSuite/register-var-2.c.expected +./tests/GCCTestSuite/array-quals-2.hex.expected +./tests/GCCTestSuite/winline-7.s.expected +./tests/GCCTestSuite/pr11459-1.hex.expected +./tests/GCCTestSuite/pragma-isr-trap_exit.s.expected +./tests/GCCTestSuite/uninit-6.c.expected +./tests/GCCTestSuite/inline-8.hex.expected +./tests/GCCTestSuite/pr11864-1.c +./tests/GCCTestSuite/bitfld-5.c +./tests/GCCTestSuite/void-cast-1.c +./tests/GCCTestSuite/darwin-ld-5.hex.expected +./tests/GCCTestSuite/darwin-ld-20040828-1.c.expected +./tests/GCCTestSuite/local1.hex.expected +./tests/GCCTestSuite/qual-return-4.hex.expected +./tests/GCCTestSuite/noreturn-7.c.expected +./tests/GCCTestSuite/951130-1.hex.expected +./tests/GCCTestSuite/empty-source-3.hex.expected +./tests/GCCTestSuite/pr22308-1.s.expected +./tests/GCCTestSuite/pr23584.s.expected +./tests/GCCTestSuite/winline-3.hex.expected +./tests/GCCTestSuite/concat2.c.expected +./tests/GCCTestSuite/pr17635.hex.expected +./tests/GCCTestSuite/empty-source-1.c +./tests/GCCTestSuite/visibility-8.s.expected +./tests/GCCTestSuite/parm-mismatch-1.c.expected +./tests/GCCTestSuite/980502-1.c.expected +./tests/GCCTestSuite/profile-generate-2.hex.expected +./tests/GCCTestSuite/wchar_t-1.hex.expected +./tests/GCCTestSuite/symbian1.c.expected +./tests/GCCTestSuite/noreturn-2.c +./tests/GCCTestSuite/pr15825-1.hex.expected +./tests/GCCTestSuite/inline2.c +./tests/GCCTestSuite/c90-idem-qual-3.c +./tests/GCCTestSuite/pr29581-1.hex.expected +./tests/GCCTestSuite/anon-struct-6.c.expected +./tests/GCCTestSuite/inline-17.s.expected +./tests/GCCTestSuite/pr25795-1.c +./tests/GCCTestSuite/c99-main-1.s.expected +./tests/GCCTestSuite/pr30473.c +./tests/GCCTestSuite/arm-scd42-3.hex.expected +./tests/GCCTestSuite/darwin-ld-4.s.expected +./tests/GCCTestSuite/c99-idem-qual-3.c.expected +./tests/GCCTestSuite/register-var-1.c +./tests/GCCTestSuite/section1.c +./tests/GCCTestSuite/inline-7.c.expected +./tests/GCCTestSuite/funroll-loops-all.c.expected +./tests/GCCTestSuite/inline-18.hex.expected +./tests/GCCTestSuite/c90-mixdecl-1.c.expected +./tests/GCCTestSuite/attr-mode-1.c.expected +./tests/GCCTestSuite/c90-flex-array-1.c +./tests/GCCTestSuite/c90-impl-int-1.c +./tests/GCCTestSuite/pr18241-5.hex.expected +./tests/GCCTestSuite/uninit-D.s.expected +./tests/GCCTestSuite/pr17036-1.hex.expected +./tests/GCCTestSuite/cris-peep2-andu2.hex.expected +./tests/GCCTestSuite/c99-tag-2.c +./tests/GCCTestSuite/c90-array-quals-2.c +./tests/GCCTestSuite/bitfld-6.c.expected +./tests/GCCTestSuite/void-cast-2.hex.expected +./tests/GCCTestSuite/pr24367.hex.expected +./tests/GCCTestSuite/c99-array-lval-6.hex.expected +./tests/GCCTestSuite/noreturn-7.hex.expected +./tests/GCCTestSuite/const-elim-2.c +./tests/GCCTestSuite/c90-idem-qual-2.c +./tests/GCCTestSuite/940409-1.c +./tests/GCCTestSuite/pr21085.s.expected +./tests/GCCTestSuite/c99-array-lval-6.c.expected +./tests/GCCTestSuite/align-1.s.expected +./tests/GCCTestSuite/volatile1.s.expected +./tests/GCCTestSuite/uninit-C.c.expected +./tests/GCCTestSuite/decl-4.c +./tests/GCCTestSuite/winline-1.s.expected +./tests/GCCTestSuite/always_inline2.c.expected +./tests/GCCTestSuite/simd-1b.hex.expected +./tests/GCCTestSuite/winline-2.c +./tests/GCCTestSuite/c99-tag-2.s.expected +./tests/GCCTestSuite/pr22335-2.s.expected +./tests/GCCTestSuite/attr-mode-1.hex.expected +./tests/GCCTestSuite/inline-8.c.expected +./tests/GCCTestSuite/c99-array-nonobj-1.s.expected +./tests/GCCTestSuite/compare7.c +./tests/GCCTestSuite/darwin-ld-20040809-2.c +./tests/GCCTestSuite/pr23625.s.expected +./tests/GCCTestSuite/uninit-5.c.expected +./tests/GCCTestSuite/const-elim-2.hex.expected +./tests/GCCTestSuite/pr15698-3.c.expected +./tests/GCCTestSuite/pr25559.c.expected +./tests/GCCTestSuite/pr26004.c +./tests/GCCTestSuite/always_inline3.c +./tests/GCCTestSuite/inline-21.c +./tests/GCCTestSuite/always_inline3.s.expected +./tests/GCCTestSuite/empty-source-2.hex.expected +./tests/GCCTestSuite/pr11459-1.s.expected +./tests/GCCTestSuite/inline-6.c.expected +./tests/GCCTestSuite/unused-3.s.expected +./tests/GCCTestSuite/wtr-switch-1.s.expected +./tests/GCCTestSuite/pr18921-1.s.expected +./tests/GCCTestSuite/empty-source-3.c +./tests/GCCTestSuite/inline-10.c +./tests/GCCTestSuite/nonnull-1.c +./tests/GCCTestSuite/dll-4.c +./tests/GCCTestSuite/cleanup-6.c.expected +./tests/GCCTestSuite/pr17957.hex.expected +./tests/GCCTestSuite/unused-4.s.expected +./tests/GCCTestSuite/winline-5.hex.expected +./tests/GCCTestSuite/inline2.c.expected +./tests/GCCTestSuite/pragma-ep-2.c.expected +./tests/GCCTestSuite/cast-qual-1.hex.expected +./tests/GCCTestSuite/uninit-F.c.expected +./tests/GCCTestSuite/uninit-H.hex.expected +./tests/GCCTestSuite/visibility-9.c.expected +./tests/GCCTestSuite/winline-7.c.expected +./tests/GCCTestSuite/ultrasp4.hex.expected +./tests/GCCTestSuite/unused-5.c.expected +./tests/GCCTestSuite/redecl-9.hex.expected +./tests/GCCTestSuite/c99-impl-int-2.c.expected +./tests/GCCTestSuite/dollar.c.expected +./tests/GCCTestSuite/fold-xor-2.c.expected +./tests/GCCTestSuite/deprecated-3.c +./tests/GCCTestSuite/c90-array-lval-5.c +./tests/GCCTestSuite/pr15784-4.c +./tests/GCCTestSuite/anon-struct-6.s.expected +./tests/GCCTestSuite/c99-restrict-2.c +./tests/GCCTestSuite/null-pointer-1.s.expected +./tests/GCCTestSuite/inline-18.s.expected +./tests/GCCTestSuite/comp-return-1.s.expected +./tests/GCCTestSuite/cleanup-6.s.expected +./tests/GCCTestSuite/alias-8.c.expected +./tests/GCCTestSuite/c90-array-quals-2.c.expected +./tests/GCCTestSuite/uninit-11.c.expected +./tests/GCCTestSuite/c99-dupqual-1.c.expected +./tests/GCCTestSuite/pr22329.c +./tests/GCCTestSuite/fold-abs-3.c +./tests/GCCTestSuite/pr3074-1.s.expected +./tests/GCCTestSuite/pr15698-4.c.expected +./tests/GCCTestSuite/pragma-ep-3.s.expected +./tests/GCCTestSuite/pr15698-6.s.expected +./tests/GCCTestSuite/struct-ret-2.c.expected +./tests/GCCTestSuite/inline5.s.expected +./tests/GCCTestSuite/redecl-13.c +./tests/GCCTestSuite/inline1.s.expected +./tests/GCCTestSuite/sparc-constant-1.c +./tests/GCCTestSuite/pr15698-6.c.expected +./tests/GCCTestSuite/darwin-ld-1.s.expected +./tests/GCCTestSuite/funcdef-var-2.hex.expected +./tests/GCCTestSuite/unused-5.hex.expected +./tests/GCCTestSuite/pr29581-3.hex.expected +./tests/GCCTestSuite/always_inline3.c.expected +./tests/GCCTestSuite/parm-mismatch-1.hex.expected +./tests/GCCTestSuite/fdata-sections-1.hex.expected +./tests/GCCTestSuite/label-compound-stmt-1.c.expected +./tests/GCCTestSuite/ultrasp2.c.expected +./tests/GCCTestSuite/c99-func-2.c +./tests/GCCTestSuite/alias-2.c.expected +./tests/GCCTestSuite/struct-empty-2.hex.expected +./tests/GCCTestSuite/attr-isr-trap_exit.c.expected +./tests/GCCTestSuite/assign-warn-3.c +./tests/GCCTestSuite/c99-array-lval-7.c +./tests/GCCTestSuite/pr18921-1.c +./tests/GCCTestSuite/uninit-2.c +./tests/GCCTestSuite/visibility-b.c.expected +./tests/GCCTestSuite/c90-enum-comma-1.s.expected +./tests/GCCTestSuite/profile-generate-1.hex.expected +./tests/GCCTestSuite/winline-2.s.expected +./tests/GCCTestSuite/null-pointer-1.hex.expected +./tests/GCCTestSuite/always_inline2.hex.expected +./tests/GCCTestSuite/visibility-1.c.expected +./tests/GCCTestSuite/990213-1.s.expected +./tests/GCCTestSuite/void-cast-2.c.expected +./tests/GCCTestSuite/uninit-11.hex.expected +./tests/GCCTestSuite/redecl-8.hex.expected +./tests/GCCTestSuite/pr24445.c.expected +./tests/GCCTestSuite/nrv2.hex.expected +./tests/GCCTestSuite/uninit-B.c +./tests/GCCTestSuite/pr24683.c.expected +./tests/GCCTestSuite/c99-array-lval-1.c.expected +./tests/GCCTestSuite/pr14796-1.c.expected +./tests/GCCTestSuite/990213-1.c +./tests/GCCTestSuite/if-empty-1.c.expected +./tests/GCCTestSuite/register-var-2.hex.expected +./tests/GCCTestSuite/funcdef-attr-1.c +./tests/GCCTestSuite/uninit-D.hex.expected +./tests/GCCTestSuite/inline4.s.expected +./tests/GCCTestSuite/winline-7.c +./tests/GCCTestSuite/pr15698-7.c +./tests/GCCTestSuite/c90-static-1.c +./tests/GCCTestSuite/transparent-union-3.s.expected +./tests/GCCTestSuite/visibility-9.c +./tests/GCCTestSuite/pr15698-4.hex.expected +./tests/GCCTestSuite/builtin-strstr.s.expected +./tests/GCCTestSuite/assign-warn-3.hex.expected +./tests/GCCTestSuite/darwin-ld-20040828-3.c +./tests/GCCTestSuite/uninit-G.hex.expected +./tests/GCCTestSuite/pr15784-4.hex.expected +./tests/GCCTestSuite/pr24683.c +./tests/GCCTestSuite/attr-isr-trap_exit.c +./tests/GCCTestSuite/c99-func-2.s.expected +./tests/GCCTestSuite/enum3.s.expected +./tests/GCCTestSuite/uninit-2.c.expected +./tests/GCCTestSuite/pragma-ep-3.c.expected +./tests/GCCTestSuite/darwin-ld-20040809-2.c.expected +./tests/GCCTestSuite/visibility-5.c +./tests/GCCTestSuite/dll-2.hex.expected +./tests/GCCTestSuite/if-empty-1.c +./tests/GCCTestSuite/pr28402.c +./tests/GCCTestSuite/pr22308-1.hex.expected +./tests/GCCTestSuite/darwin-20040809-2.c.expected +./tests/GCCTestSuite/array-1.s.expected +./tests/GCCTestSuite/pr22308-1.c.expected +./tests/GCCTestSuite/old-style-then-proto-1.s.expected +./tests/GCCTestSuite/bitfld-14.c.expected +./tests/GCCTestSuite/anon-struct-7.c.expected +./tests/GCCTestSuite/old-style-then-proto-1.c +./tests/GCCTestSuite/pr20017.c.expected +./tests/GCCTestSuite/visibility-a.s.expected +./tests/GCCTestSuite/inline-4.c +./tests/GCCTestSuite/920413-1.hex.expected +./tests/GCCTestSuite/profile-generate-1.c +./tests/GCCTestSuite/declspec-12.hex.expected +./tests/GCCTestSuite/c99-tag-2.c.expected +./tests/GCCTestSuite/cast-qual-1.c +./tests/GCCTestSuite/cris-peep2-xsrand.s.expected +./tests/GCCTestSuite/merge-all-constants-1.c +./tests/GCCTestSuite/c90-impl-int-2.c +./tests/GCCTestSuite/visibility-b.c +./tests/GCCTestSuite/pragma-pack-4.s.expected +./tests/GCCTestSuite/declspec-3.c.expected +./tests/GCCTestSuite/qual-return-3.hex.expected +./tests/GCCTestSuite/compare8.c +./tests/GCCTestSuite/compare9.s.expected +./tests/GCCTestSuite/c90-static-1.s.expected +./tests/GCCTestSuite/980502-1.c +./tests/GCCTestSuite/wtr-strcat-1.hex.expected +./tests/GCCTestSuite/nested-redef-1.s.expected +./tests/GCCTestSuite/c90-dupqual-1.hex.expected +./tests/GCCTestSuite/pr24620.c +./tests/GCCTestSuite/doloop-2.s.expected +./tests/GCCTestSuite/compare8.s.expected +./tests/GCCTestSuite/merge-all-constants-1.c.expected +./tests/GCCTestSuite/simd-1b.c.expected +./tests/GCCTestSuite/warn-1.s.expected +./tests/GCCTestSuite/920413-1.c.expected +./tests/GCCTestSuite/cris-peep2-andu1.hex.expected +./tests/GCCTestSuite/doloop-2.c.expected +./tests/GCCTestSuite/c90-static-1.hex.expected +./tests/GCCTestSuite/uninit-1.s.expected +./tests/GCCTestSuite/fold-abs-3.hex.expected +./tests/GCCTestSuite/uninit-1.c +./tests/GCCTestSuite/winline-1.c +./tests/GCCTestSuite/struct-empty-2.s.expected +./tests/GCCTestSuite/struct-empty-3.s.expected +./tests/GCCTestSuite/winline-1.c.expected +./tests/GCCTestSuite/pr15784-4.c.expected +./tests/GCCTestSuite/ultrasp10.c.expected +./tests/GCCTestSuite/dll-4.hex.expected +./tests/GCCTestSuite/fold-abs-1.hex.expected +./tests/GCCTestSuite/typedef-init.hex.expected +./tests/GCCTestSuite/declspec-3.hex.expected +./tests/GCCTestSuite/uninit-1.hex.expected +./tests/GCCTestSuite/compare6.s.expected +./tests/GCCTestSuite/label-compound-stmt-1.s.expected +./tests/GCCTestSuite/pr14796-1.hex.expected +./tests/GCCTestSuite/cris-peep2-andu2.s.expected +./tests/GCCTestSuite/pr14475.c.expected +./tests/GCCTestSuite/h8300-stack-1.c.expected +./tests/GCCTestSuite/fold-mod-1.c.expected +./tests/GCCTestSuite/asm-fs-1.c.expected +./tests/GCCTestSuite/pr24615.s.expected +./tests/GCCTestSuite/pr24615.c +./tests/GCCTestSuite/pr23165.hex.expected +./tests/GCCTestSuite/inline-1.c +./tests/GCCTestSuite/local1.s.expected +./tests/GCCTestSuite/m-un-1.s.expected +./tests/GCCTestSuite/postincr-1.c.expected +./tests/GCCTestSuite/pr24445.c +./tests/GCCTestSuite/wtr-strcat-1.s.expected +./tests/GCCTestSuite/anon-struct-3.c +./tests/GCCTestSuite/inline-6.s.expected +./tests/GCCTestSuite/c90-impl-int-2.hex.expected +./tests/GCCTestSuite/warn-1.c.expected +./tests/GCCTestSuite/wtr-unary-plus-1.c.expected +./tests/GCCTestSuite/kpice1.hex.expected +./tests/GCCTestSuite/pr23625.hex.expected +./tests/GCCTestSuite/c90-restrict-1.c.expected +./tests/GCCTestSuite/uninit-F.c +./tests/GCCTestSuite/return-type-1.hex.expected +./tests/GCCTestSuite/visibility-3.s.expected +./tests/GCCTestSuite/pragma-isr-trap_exit.c +./tests/GCCTestSuite/pr22335-2.hex.expected +./tests/GCCTestSuite/warn-1.c +./tests/GCCTestSuite/pr25993.s.expected +./tests/GCCTestSuite/struct-ret-2.hex.expected +./tests/GCCTestSuite/pr15698-7.s.expected +./tests/GCCTestSuite/align-1.c +./tests/GCCTestSuite/pr28402.hex.expected +./tests/GCCTestSuite/fold-abs-1.s.expected +./tests/GCCTestSuite/uninit-3.c +./tests/GCCTestSuite/nested-calls-1.s.expected +./tests/GCCTestSuite/inline-mcpy.c.expected +./tests/GCCTestSuite/cris-peep2-andu2.c.expected +./tests/GCCTestSuite/bitfld-10.c +./tests/GCCTestSuite/uninit-I.c +./tests/GCCTestSuite/pr22311-1.s.expected +./tests/GCCTestSuite/attr-alwaysinline.s.expected +./tests/GCCTestSuite/funroll-loops-all.hex.expected +./tests/GCCTestSuite/951130-1.c +./tests/GCCTestSuite/empty-source-1.hex.expected +./tests/GCCTestSuite/pr15443-2.hex.expected +./tests/GCCTestSuite/uninit-I.c.expected +./tests/GCCTestSuite/c99-flex-array-3.c +./tests/GCCTestSuite/anon-struct-7.s.expected +./tests/GCCTestSuite/pr24620.hex.expected +./tests/GCCTestSuite/typedef-init.c.expected +./tests/GCCTestSuite/uninit-9.hex.expected +./tests/GCCTestSuite/pragma-ep-3.c +./tests/GCCTestSuite/wtr-escape-1.hex.expected +./tests/GCCTestSuite/attr-used-2.c +./tests/GCCTestSuite/uninit-8.c.expected +./tests/GCCTestSuite/anon-struct-5.s.expected +./tests/GCCTestSuite/c99-array-lval-7.s.expected +./tests/GCCTestSuite/symbian5.c +./tests/GCCTestSuite/visibility-3.hex.expected +./tests/GCCTestSuite/inline-10.hex.expected +./tests/GCCTestSuite/array-quals-2.c +./tests/GCCTestSuite/darwin-ld-3.hex.expected +./tests/GCCTestSuite/pr15698-3.c +./tests/GCCTestSuite/pr17957.c.expected +./tests/GCCTestSuite/struct-ret-2.s.expected +./tests/GCCTestSuite/visibility-c.c +./tests/GCCTestSuite/compare7.hex.expected +./tests/GCCTestSuite/null-pointer-1.c.expected +./tests/GCCTestSuite/funcdef-attr-1.hex.expected +./tests/GCCTestSuite/940409-1.s.expected +./tests/GCCTestSuite/visibility-7.s.expected +./tests/GCCTestSuite/fold-abs-1.c.expected +./tests/GCCTestSuite/void-cast-2.c +./tests/GCCTestSuite/pr29736.c +./tests/GCCTestSuite/darwin-ld-3.c +./tests/GCCTestSuite/wint_t-1.c +./tests/GCCTestSuite/darwin-ld-5.s.expected +./tests/GCCTestSuite/cris-peep2-andu1.c +./tests/GCCTestSuite/compare6.c +./tests/GCCTestSuite/label-compound-stmt-1.hex.expected +./tests/GCCTestSuite/unroll-1.c.expected +./tests/GCCTestSuite/redecl-8.c +./tests/GCCTestSuite/c99-impl-int-1.c +./tests/GCCTestSuite/uninit-9.c +./tests/GCCTestSuite/bitfld-6.hex.expected +./tests/GCCTestSuite/pr14475.hex.expected +./tests/GCCTestSuite/pr18809-1.c.expected +./tests/GCCTestSuite/funcdef-var-2.c +./tests/GCCTestSuite/c99-array-nonobj-1.hex.expected +./tests/GCCTestSuite/c90-array-lval-6.c +./tests/GCCTestSuite/uninit-E.c.expected +./tests/GCCTestSuite/wtr-union-init-1.c.expected +./tests/GCCTestSuite/visibility-10.hex.expected +./tests/GCCTestSuite/ftrapv-1.c.expected +./tests/GCCTestSuite/visibility-4.hex.expected +./tests/GCCTestSuite/darwin-ld-20040809-1.hex.expected +./tests/GCCTestSuite/inline-8.s.expected +./tests/GCCTestSuite/uninit-C.c +./tests/GCCTestSuite/c90-longlong-1.hex.expected +./tests/GCCTestSuite/pr24683.s.expected +./tests/GCCTestSuite/pr32450.c +./tests/GCCTestSuite/c90-enum-comma-1.c +./tests/GCCTestSuite/inline-mcpy.s.expected +./tests/GCCTestSuite/inline1.c +./tests/GCCTestSuite/visibility-8.c.expected +./tests/GCCTestSuite/inline-7.s.expected +./tests/GCCTestSuite/pr23625.c +./tests/GCCTestSuite/noreturn-6.hex.expected +./tests/GCCTestSuite/postincr-1.s.expected +./tests/GCCTestSuite/visibility-a.c.expected +./tests/GCCTestSuite/reg-vol-struct-1.c.expected +./tests/GCCTestSuite/concat2.c +./tests/GCCTestSuite/pragma-isr-trap_exit.c.expected +./tests/GCCTestSuite/winline-3.c.expected +./tests/GCCTestSuite/merge-all-constants-1.s.expected +./tests/GCCTestSuite/c99-array-lval-1.c +./tests/GCCTestSuite/pr22329.s.expected +./tests/GCCTestSuite/nested-redef-1.c +./tests/GCCTestSuite/enum3.c.expected +./tests/GCCTestSuite/profile-generate-2.s.expected +./tests/GCCTestSuite/pr17581-1.c +./tests/GCCTestSuite/c90-dupqual-1.c.expected +./tests/GCCTestSuite/winline-6.c.expected +./tests/GCCTestSuite/pr15698-3.hex.expected +./tests/GCCTestSuite/pr29581-3.c +./tests/GCCTestSuite/winline-5.c +./tests/GCCTestSuite/unused-2.c +./tests/GCCTestSuite/if-empty-1.hex.expected +./tests/GCCTestSuite/concat.c.expected +./tests/GCCTestSuite/c90-array-quals.c +./tests/GCCTestSuite/return-type-3.c +./tests/GCCTestSuite/darwin-ld-1.hex.expected +./tests/GCCTestSuite/postincr-1.hex.expected +./tests/GCCTestSuite/c90-impl-int-2.s.expected +./tests/GCCTestSuite/doloop-2.hex.expected +./tests/GCCTestSuite/cast-qual-1.c.expected +./tests/GCCTestSuite/inline5.c +./tests/GCCTestSuite/bitfld-10.hex.expected +./tests/GCCTestSuite/darwin-ld-3.c.expected +./tests/GCCTestSuite/void-cast-1.s.expected +./tests/GCCTestSuite/pr26004.hex.expected +./tests/GCCTestSuite/assign-warn-3.s.expected +./tests/GCCTestSuite/align-1.hex.expected +./tests/GCCTestSuite/return-type-1.s.expected +./tests/GCCTestSuite/pr25196.hex.expected +./tests/GCCTestSuite/unused-6.hex.expected +./tests/GCCTestSuite/section1.s.expected +./tests/GCCTestSuite/c90-array-lval-5.s.expected +./tests/GCCTestSuite/c99-tag-2.hex.expected +./tests/GCCTestSuite/pr26004.c.expected +./tests/GCCTestSuite/switch-1.c +./tests/GCCTestSuite/c99-restrict-1.c +./tests/GCCTestSuite/uninit-E.hex.expected +./tests/GCCTestSuite/uninit-D.c +./tests/GCCTestSuite/c99-idem-qual-1.s.expected +./tests/GCCTestSuite/alias-8.c +./tests/GCCTestSuite/struct-empty-3.c +./tests/GCCTestSuite/nrv2.c +./tests/GCCTestSuite/c90-array-lval-7.c +./tests/GCCTestSuite/intmax_t-1.s.expected +./tests/GCCTestSuite/anon-struct-8.c.expected +./tests/GCCTestSuite/asm-fs-1.s.expected +./tests/GCCTestSuite/c99-func-4.s.expected +./tests/GCCTestSuite/nonnull-2.s.expected +./tests/GCCTestSuite/c99-func-2.hex.expected +./tests/GCCTestSuite/qual-return-2.c +./tests/GCCTestSuite/darwin-ld-20040828-2.c +./tests/GCCTestSuite/compare8.c.expected +./tests/GCCTestSuite/c99-idem-qual-2.c +./tests/GCCTestSuite/void-cast-1.c.expected +./tests/GCCTestSuite/pr3074-1.c.expected +./tests/GCCTestSuite/pr20115.s.expected +./tests/GCCTestSuite/c99-restrict-1.hex.expected +./tests/GCCTestSuite/gnu89-dupqual-1.s.expected +./tests/GCCTestSuite/unused-6.s.expected +./tests/GCCTestSuite/old-style-then-proto-1.hex.expected +./tests/GCCTestSuite/m-un-1.hex.expected +./tests/GCCTestSuite/verbose-asm.c +./tests/GCCTestSuite/return-type-2.c +./tests/GCCTestSuite/attr-used.s.expected +./tests/GCCTestSuite/always_inline2.s.expected +./tests/GCCTestSuite/pr20130-1.c +./tests/GCCTestSuite/builtin-strstr.hex.expected +./tests/GCCTestSuite/cris-peep2-xsrand.c.expected +./tests/GCCTestSuite/nested-redef-1.hex.expected +./tests/GCCTestSuite/pr18928-1.c +./tests/GCCTestSuite/fdata-sections-1.c.expected +./tests/GCCTestSuite/darwin-ld-20040828-2.c.expected +./tests/GCCTestSuite/uninit-3.s.expected +./tests/GCCTestSuite/darwin-ld-20040828-3.s.expected +./tests/GCCTestSuite/pr17036-1.c.expected +./tests/GCCTestSuite/ftrapv-1.c +./tests/GCCTestSuite/if-empty-1.s.expected +./tests/GCCTestSuite/uninit-9.c.expected +./tests/GCCTestSuite/c99-longlong-1.c +./tests/GCCTestSuite/uninit-4.c +./tests/GCCTestSuite/qual-return-4.c +./tests/GCCTestSuite/dll-4.c.expected +./tests/GCCTestSuite/visibility-7.c.expected +./tests/GCCTestSuite/pack-test-2.s.expected +./tests/GCCTestSuite/redecl-9.s.expected +./tests/GCCTestSuite/uninit-G.c +./tests/GCCTestSuite/c99-impl-int-1.hex.expected +./tests/GCCTestSuite/doloop-2.c +./tests/GCCTestSuite/inline4.c +./tests/GCCTestSuite/h8300-stack-1.c +./tests/GCCTestSuite/c99-array-lval-5.c +./tests/GCCTestSuite/bitfld-5.c.expected +./tests/GCCTestSuite/unused-1.c +./tests/GCCTestSuite/empty-source-1.s.expected +./tests/GCCTestSuite/pr12625-1.c.expected +./tests/GCCTestSuite/bitfld-10.c.expected +./tests/GCCTestSuite/transparent-union-2.c.expected +./tests/GCCTestSuite/return-type-3.s.expected +./tests/GCCTestSuite/pr32450.c.expected +./tests/GCCTestSuite/visibility-11.c +./tests/GCCTestSuite/intermod-1.c.expected +./tests/GCCTestSuite/c90-idem-qual-1.hex.expected +./tests/GCCTestSuite/pure-1.c.expected +./tests/GCCTestSuite/extra-semi-1.s.expected +./tests/GCCTestSuite/visibility-9.s.expected +./tests/GCCTestSuite/inline-9.hex.expected +./tests/GCCTestSuite/pr17635.c.expected +./tests/GCCTestSuite/darwin-ld-1.c.expected +./tests/GCCTestSuite/pr28402.s.expected +./tests/GCCTestSuite/pr15825-1.c.expected +./tests/GCCTestSuite/pr26570.c +./tests/GCCTestSuite/const-elim-2.c.expected +./tests/GCCTestSuite/pr25993.c.expected +./tests/GCCTestSuite/arm-scd42-1.c.expected +./tests/GCCTestSuite/visibility-10.s.expected +./tests/GCCTestSuite/profile-generate-2.c +./tests/GCCTestSuite/c90-longlong-1.c +./tests/GCCTestSuite/unused-6.c.expected +./tests/GCCTestSuite/pr28187.s.expected +./tests/GCCTestSuite/uninit-C.hex.expected +./tests/GCCTestSuite/c99-idem-qual-2.c.expected +./tests/GCCTestSuite/attr-isr-trap_exit.hex.expected +./tests/GCCTestSuite/c90-longlong-1.s.expected +./tests/GCCTestSuite/c99-flex-array-3.s.expected +./tests/GCCTestSuite/pr11864-1.c.expected +./tests/GCCTestSuite/qual-return-4.c.expected +./tests/GCCTestSuite/unused-1.s.expected +./tests/GCCTestSuite/pr30473.c.expected +./tests/GCCTestSuite/pr14796-1.c +./tests/GCCTestSuite/verbose-asm.c.expected +./tests/GCCTestSuite/enum2.c +./tests/GCCTestSuite/pragma-isr2.c +./tests/GCCTestSuite/winline-6.hex.expected +./tests/GCCTestSuite/darwin-weakimport-1.s.expected +./tests/GCCTestSuite/pure-1.hex.expected +./tests/GCCTestSuite/noreturn-6.c.expected +./tests/GCCTestSuite/inline5.hex.expected +./tests/GCCTestSuite/pr18479.s.expected +./tests/GCCTestSuite/winline-2.hex.expected +./tests/GCCTestSuite/kpice1.s.expected +./tests/GCCTestSuite/visibility-5.s.expected +./tests/GCCTestSuite/enum2.s.expected +./tests/GCCTestSuite/compare1.c.expected +./tests/GCCTestSuite/winline-3.c +./tests/GCCTestSuite/noreturn-6.s.expected +./tests/GCCTestSuite/redecl-6.hex.expected +./tests/GCCTestSuite/decl-6.hex.expected +./tests/GCCTestSuite/symbian1.c +./tests/GCCTestSuite/pr24367.c +./tests/GCCTestSuite/wtr-static-1.s.expected +./tests/GCCTestSuite/c90-array-quals.hex.expected +./tests/GCCTestSuite/noreturn-2.c.expected +./tests/GCCTestSuite/cleanup-3.s.expected +./tests/GCCTestSuite/pr18809-1.hex.expected +./tests/GCCTestSuite/unused-7.s.expected +./tests/GCCTestSuite/c99-longlong-1.hex.expected +./tests/GCCTestSuite/ultrasp2.hex.expected +./tests/GCCTestSuite/local1.c.expected +./tests/GCCTestSuite/pr22335-1.hex.expected +./tests/GCCTestSuite/builtins-35.c.expected +./tests/GCCTestSuite/unused-5.s.expected +./tests/GCCTestSuite/c99-func-4.c +./tests/GCCTestSuite/wtr-unary-plus-1.c +./tests/GCCTestSuite/fold-abs-3.c.expected +./tests/GCCTestSuite/qual-return-2.hex.expected +./tests/GCCTestSuite/anon-struct-3.s.expected +./tests/GCCTestSuite/visibility-c.s.expected +./tests/GCCTestSuite/pr23584.c +./tests/GCCTestSuite/pr24620.s.expected +./tests/GCCTestSuite/visibility-b.hex.expected +./tests/GCCTestSuite/sparc-constant-1.c.expected +./tests/GCCTestSuite/noreturn-1.s.expected +./tests/GCCTestSuite/pr14796-2.c +./tests/GCCTestSuite/switch-1.c.expected +./tests/GCCTestSuite/h8300-stack-1.hex.expected +./tests/GCCTestSuite/c99-restrict-1.c.expected +./tests/GCCTestSuite/simd-3.c +./tests/GCCTestSuite/noreturn-1.c +./tests/GCCTestSuite/pr25196.s.expected +./tests/GCCTestSuite/register-var-1.c.expected +./tests/GCCTestSuite/transparent-union-2.c +./tests/GCCTestSuite/arm-scd42-1.c +./tests/GCCTestSuite/wtr-switch-1.c +./tests/GCCTestSuite/c99-impl-int-2.c +./tests/GCCTestSuite/cleanup-3.c.expected +./tests/GCCTestSuite/arm-g2.c +./tests/GCCTestSuite/c99-const-expr-1.c +./tests/GCCTestSuite/uninit-11.c +./tests/GCCTestSuite/wchar_t-1.c +./tests/GCCTestSuite/pr20130-1.c.expected +./tests/GCCTestSuite/anon-struct-3.c.expected +./tests/GCCTestSuite/conv-3.hex.expected +./tests/GCCTestSuite/pr24600.s.expected +./tests/GCCTestSuite/pr25559.s.expected +./tests/GCCTestSuite/c99-flex-array-3.c.expected +./tests/GCCTestSuite/pragma-isr2.s.expected +./tests/GCCTestSuite/attr-mode-1.s.expected +./tests/GCCTestSuite/visibility-5.hex.expected +./tests/GCCTestSuite/uninit-6.s.expected +./tests/GCCTestSuite/bitfld-14.c +./tests/GCCTestSuite/extra-semi-3.c +./tests/GCCTestSuite/990213-1.hex.expected +./tests/GCCTestSuite/gnu89-dupqual-1.hex.expected +./tests/GCCTestSuite/uninit-6.c +./tests/GCCTestSuite/kpice1.c.expected +./tests/GCCTestSuite/builtins-35.hex.expected +./tests/GCCTestSuite/inline-19.c +./tests/GCCTestSuite/uninit-B.s.expected +./tests/GCCTestSuite/visibility-a.hex.expected +./tests/GCCTestSuite/inline-1.s.expected +./tests/GCCTestSuite/pack-test-3.c.expected +./tests/GCCTestSuite/bitfld-5.s.expected +./tests/GCCTestSuite/c99-idem-qual-3.hex.expected +./tests/GCCTestSuite/uninit-B.c.expected +./tests/GCCTestSuite/funroll-loops-all.s.expected +./tests/GCCTestSuite/funcdef-var-2.c.expected +./tests/GCCTestSuite/c90-idem-qual-2.c.expected +./tests/GCCTestSuite/darwin-ld-2.c.expected +./tests/GCCTestSuite/inline5.c.expected +./tests/GCCTestSuite/extra-semi-2.s.expected +./tests/GCCTestSuite/pr20115.hex.expected +./tests/GCCTestSuite/uninit-G.s.expected +./tests/GCCTestSuite/asm-fs-1.c +./tests/GCCTestSuite/align-1.c.expected +./tests/GCCTestSuite/pr26961-1.hex.expected +./tests/GCCTestSuite/pragma-ep-2.s.expected +./tests/GCCTestSuite/darwin-ld-20040809-1.c.expected +./tests/GCCTestSuite/pr21085.hex.expected +./tests/GCCTestSuite/alias-8.hex.expected +./tests/GCCTestSuite/pr28402.c.expected +./tests/GCCTestSuite/pr22311-1.c.expected +./tests/GCCTestSuite/symbian3.c +./tests/GCCTestSuite/inline-2.c.expected +./tests/GCCTestSuite/pr20115-1.hex.expected +./tests/GCCTestSuite/pack-test-3.hex.expected +./tests/GCCTestSuite/visibility-8.hex.expected +./tests/GCCTestSuite/darwin-ld-4.hex.expected +./tests/GCCTestSuite/darwin-ld-6.c.expected +./tests/GCCTestSuite/pr11459-1.c +./tests/GCCTestSuite/redecl-6.c +./tests/GCCTestSuite/noreturn-7.c +./tests/GCCTestSuite/wtr-unary-plus-1.hex.expected +./tests/GCCTestSuite/unused-4.c +./tests/GCCTestSuite/pr18928-1.hex.expected +./tests/GCCTestSuite/symbian1.s.expected +./tests/GCCTestSuite/attr-alwaysinline.c +./tests/GCCTestSuite/pr14475.c +./tests/GCCTestSuite/pr17957.s.expected +./tests/GCCTestSuite/smod-1.c.expected +./tests/GCCTestSuite/pr25993.c +./tests/GCCTestSuite/c99-main-1.c.expected +./tests/GCCTestSuite/uninit-3.c.expected +./tests/GCCTestSuite/pr25196.c.expected +./tests/GCCTestSuite/c90-idem-qual-3.s.expected +./tests/GCCTestSuite/visibility-7.hex.expected +./tests/GCCTestSuite/wtr-escape-1.c +./tests/GCCTestSuite/smod-1.hex.expected +./tests/GCCTestSuite/c90-idem-qual-3.hex.expected +./tests/GCCTestSuite/qual-return-1.s.expected +./tests/GCCTestSuite/visibility-b.s.expected +./tests/GCCTestSuite/m-un-1.c.expected +./tests/GCCTestSuite/pr24600.c.expected +./tests/GCCTestSuite/pr18809-1.s.expected +./tests/GCCTestSuite/c90-static-1.c.expected +./tests/GCCTestSuite/return-type-3.c.expected +./tests/GCCTestSuite/compare7.c.expected +./tests/GCCTestSuite/c90-array-lval-5.c.expected +./tests/GCCTestSuite/c90-array-lval-7.hex.expected +./tests/GCCTestSuite/section1.c.expected +./tests/GCCTestSuite/inline-5.c.expected +./tests/GCCTestSuite/anon-struct-7.hex.expected +./tests/GCCTestSuite/trunc-1.hex.expected +./tests/GCCTestSuite/cast-qual-1.s.expected +./tests/GCCTestSuite/attr-invalid.c.expected +./tests/GCCTestSuite/anon-struct-4.hex.expected +./tests/GCCTestSuite/pr18921-1.c.expected +./tests/GCCTestSuite/c99-impl-int-2.s.expected +./tests/GCCTestSuite/c99-flex-array-3.hex.expected +./tests/GCCTestSuite/c99-array-nonobj-1.c +./tests/GCCTestSuite/inline-4.hex.expected +./tests/GCCTestSuite/cris-peep2-xsrand2.s.expected +./tests/GCCTestSuite/declspec-2.s.expected +./tests/GCCTestSuite/c99-enum-comma-1.hex.expected +./tests/GCCTestSuite/pr29736.c.expected +./tests/GCCTestSuite/c90-const-expr-1.s.expected +./tests/GCCTestSuite/nested-redef-1.c.expected +./tests/GCCTestSuite/null-pointer-1.c +./tests/GCCTestSuite/c99-const-expr-1.s.expected +./tests/GCCTestSuite/verbose-asm.s.expected +./tests/GCCTestSuite/pragma-isr-trap_exit.hex.expected +./tests/GCCTestSuite/c90-restrict-1.s.expected +./tests/GCCTestSuite/980502-1.hex.expected +./tests/GCCTestSuite/anon-struct-5.c.expected +./tests/GCCTestSuite/struct-empty-1.c.expected +./tests/GCCTestSuite/pragma-isr2.hex.expected +./tests/GCCTestSuite/declspec-12.c +./tests/GCCTestSuite/inline-mcpy.c +./tests/GCCTestSuite/pr17319.c.expected +./tests/GCCTestSuite/wtr-union-init-1.s.expected +./tests/GCCTestSuite/inline-5.hex.expected +./tests/GCCTestSuite/decl-4.s.expected +./tests/GCCTestSuite/pure-1.c +./tests/GCCTestSuite/kpice1.c +./tests/GCCTestSuite/c99-restrict-2.s.expected +./tests/GCCTestSuite/pr15698-3.s.expected +./tests/GCCTestSuite/darwin-ld-20040809-2.hex.expected +./tests/GCCTestSuite/winline-5.s.expected +./tests/GCCTestSuite/wint_t-1.s.expected +./tests/GCCTestSuite/uninit-F.s.expected +./tests/GCCTestSuite/uninit-D.c.expected +./tests/GCCTestSuite/arm-scd42-3.c +./tests/GCCTestSuite/compare6.c.expected +./tests/GCCTestSuite/inline-mcpy.hex.expected +./tests/GCCTestSuite/typedef-init.c +./tests/GCCTestSuite/pr17635.c +./tests/GCCTestSuite/pr17581-1.s.expected +./tests/GCCTestSuite/inline-1.hex.expected +./tests/GCCTestSuite/inline-6.c +./tests/GCCTestSuite/struct-empty-1.c +./tests/GCCTestSuite/inline-9.c.expected +./tests/GCCTestSuite/pr22335-2.c +./tests/GCCTestSuite/smod-1.s.expected +./tests/GCCTestSuite/darwin-ld-4.c.expected +./tests/GCCTestSuite/uninit-4.hex.expected +./tests/GCCTestSuite/wint_t-1.c.expected +./tests/GCCTestSuite/darwin-ld-2.s.expected +./tests/GCCTestSuite/intermod-1.c +./tests/GCCTestSuite/c99-restrict-2.c.expected +./tests/GCCTestSuite/pr29581-1.c.expected +./tests/GCCTestSuite/extra-semi-2.hex.expected +./tests/GCCTestSuite/string-opt-1.s.expected +./tests/GCCTestSuite/darwin-weakimport-1.c.expected +./tests/GCCTestSuite/visibility-d.hex.expected +./tests/GCCTestSuite/inline-6.hex.expected +./tests/GCCTestSuite/pr22311-1.c +./tests/GCCTestSuite/darwin-20040812-1.c.expected +./tests/GCCTestSuite/visibility-11.c.expected +./tests/GCCTestSuite/uninit-I.hex.expected +./tests/GCCTestSuite/pr22335-1.s.expected +./tests/GCCTestSuite/pr3074-1.c +./tests/GCCTestSuite/pr23165.c.expected +./tests/GCCTestSuite/pr18809-1.c +./tests/GCCTestSuite/compare1.c +./tests/GCCTestSuite/register-var-1.s.expected +./tests/GCCTestSuite/array-1.c.expected +./tests/GCCTestSuite/funcdef-attr-1.c.expected +./tests/GCCTestSuite/string-opt-1.c.expected +./tests/GCCTestSuite/return-type-2.hex.expected +./tests/GCCTestSuite/unused-7.c +./tests/GCCTestSuite/alias-2.c +./tests/GCCTestSuite/pr17581-1.hex.expected +./tests/GCCTestSuite/unused-7.hex.expected +./tests/GCCTestSuite/pr14475.s.expected +./tests/GCCTestSuite/redecl-9.c +./tests/GCCTestSuite/dollar.hex.expected +./tests/GCCTestSuite/c99-array-lval-5.hex.expected +./tests/GCCTestSuite/const-compare.c.expected +./tests/GCCTestSuite/pr17581-1.c.expected +./tests/GCCTestSuite/inline-2.s.expected +./tests/GCCTestSuite/overflow-1.c.expected +./tests/GCCTestSuite/uninit-E.c +./tests/GCCTestSuite/inline-21.s.expected +./tests/GCCTestSuite/pr24600.hex.expected +./tests/GCCTestSuite/pr18241-5.c +./tests/GCCTestSuite/fold-mod-1.hex.expected +./tests/GCCTestSuite/volatile1.c.expected +./tests/GCCTestSuite/attr-mode-1.c +./tests/GCCTestSuite/wchar_t-1.c.expected +./tests/GCCTestSuite/pr29637.hex.expected +./tests/GCCTestSuite/fold-mod-1.c +./tests/GCCTestSuite/extra-semi-1.hex.expected +./tests/GCCTestSuite/wtr-escape-1.c.expected +./tests/GCCTestSuite/pr29581-3.s.expected +./tests/GCCTestSuite/declspec-2.hex.expected +./tests/GCCTestSuite/return-type-3.hex.expected +./tests/GCCTestSuite/990213-1.c.expected +./tests/GCCTestSuite/pr23584.hex.expected +./tests/GCCTestSuite/920413-1.c +./tests/GCCTestSuite/qual-return-1.c.expected +./tests/GCCTestSuite/declspec-2.c +./tests/GCCTestSuite/visibility-11.s.expected +./tests/GCCTestSuite/pr12625-1.hex.expected +./tests/GCCTestSuite/comp-return-1.hex.expected +./tests/GCCTestSuite/uninit-4.c.expected +./tests/GCCTestSuite/unused-4.c.expected +./tests/GCCTestSuite/attr-weakref-1a.c.expected +./tests/GCCTestSuite/const-compare.c +./tests/GCCTestSuite/attr-isr-trap_exit.s.expected +./tests/GCCTestSuite/pr22311-1.hex.expected +./tests/GCCTestSuite/darwin-20040812-1.c +./tests/GCCTestSuite/pr15698-6.c +./tests/GCCTestSuite/pr11459-1.c.expected +./tests/GCCTestSuite/nonnull-1.c.expected +./tests/GCCTestSuite/c90-array-quals.s.expected +./tests/GCCTestSuite/darwin-20040812-1.s.expected +./tests/GCCTestSuite/pr14092-1.c +./tests/GCCTestSuite/array-1.hex.expected +./tests/GCCTestSuite/decl-6.c.expected +./tests/GCCTestSuite/unroll-1.c +./tests/GCCTestSuite/pr17036-1.c +./tests/GCCTestSuite/pragma-re-2.c +./tests/GCCTestSuite/ultrasp1.hex.expected +./tests/GCCTestSuite/reg-vol-struct-1.c +./tests/GCCTestSuite/unused-4.hex.expected +./tests/GCCTestSuite/simd-3.c.expected +./tests/GCCTestSuite/switch-1.hex.expected +./tests/GCCTestSuite/c99-impl-int-1.s.expected +./tests/GCCTestSuite/attr-weakref-1a.c +./tests/GCCTestSuite/980502-1.s.expected +./tests/GCCTestSuite/c99-enum-comma-1.c +./tests/GCCTestSuite/pr26961-1.c.expected +./tests/GCCTestSuite/dll-2.c.expected +./tests/GCCTestSuite/pr20115-1.c +./tests/GCCTestSuite/c99-idem-qual-3.s.expected +./tests/GCCTestSuite/nested-calls-1.hex.expected +./tests/GCCTestSuite/compare5.c.expected +./tests/GCCTestSuite/pr24600.c +./tests/GCCTestSuite/fold-mod-1.s.expected +./tests/GCCTestSuite/darwin-ld-20040828-3.hex.expected +./tests/GCCTestSuite/noreturn-5.hex.expected +./tests/GCCTestSuite/struct-empty-3.hex.expected +./tests/GCCTestSuite/pr30473.hex.expected +./tests/GCCTestSuite/darwin-ld-1.c +./tests/GCCTestSuite/pr22329.c.expected +./tests/GCCTestSuite/c99-idem-qual-3.c +./tests/GCCTestSuite/c99-idem-qual-1.hex.expected +./tests/GCCTestSuite/darwin-ld-6.s.expected +./tests/GCCTestSuite/attr-invalid.c +./tests/GCCTestSuite/ultrasp1.c +./tests/GCCTestSuite/arm-scd42-2.hex.expected +./tests/GCCTestSuite/redecl-16.c +./tests/GCCTestSuite/pr26961-1.c +./tests/GCCTestSuite/compare5.c +./tests/GCCTestSuite/redecl-8.s.expected +./tests/GCCTestSuite/visibility-6.hex.expected +./tests/GCCTestSuite/parm-mismatch-1.s.expected +./tests/GCCTestSuite/wtr-union-init-1.c +./tests/GCCTestSuite/bitfld-14.hex.expected +./tests/GCCTestSuite/uninit-G.c.expected +./tests/GCCTestSuite/extra-semi-1.c +./tests/GCCTestSuite/darwin-ld-20040828-2.hex.expected +./tests/GCCTestSuite/struct-ret-2.c +./tests/GCCTestSuite/uninit-2.s.expected +./tests/GCCTestSuite/pack-test-3.c +./tests/GCCTestSuite/trunc-1.c.expected +./tests/GCCTestSuite/c90-impl-int-1.s.expected +./tests/GCCTestSuite/darwin-ld-5.c.expected +./tests/GCCTestSuite/pr15698-4.c +./tests/GCCTestSuite/940409-1.hex.expected +./tests/GCCTestSuite/visibility-11.hex.expected +./tests/GCCTestSuite/pr23049.s.expected +./tests/GCCTestSuite/cleanup-3.hex.expected +./tests/GCCTestSuite/asm-fs-1.hex.expected +./tests/GCCTestSuite/void-cast-2.s.expected +./tests/GCCTestSuite/pr20017.c +./tests/GCCTestSuite/string-opt-1.c +./tests/GCCTestSuite/uninit-8.c +./tests/GCCTestSuite/wtr-static-1.hex.expected +./tests/GCCTestSuite/nested-calls-1.c +./tests/GCCTestSuite/nonnull-2.c.expected +./tests/GCCTestSuite/pr20130-1.hex.expected +./tests/GCCTestSuite/compare5.hex.expected +./tests/GCCTestSuite/c99-restrict-1.s.expected +./tests/GCCTestSuite/pr24615.c.expected +./tests/GCCTestSuite/merge-all-constants-1.hex.expected +./tests/GCCTestSuite/c90-array-quals.c.expected +./tests/GCCTestSuite/arm-g2.hex.expected +./tests/GCCTestSuite/unused-6.c +./tests/GCCTestSuite/ultrasp10.c +./tests/GCCTestSuite/return-type-1.c +./tests/GCCTestSuite/visibility-6.s.expected +./tests/GCCTestSuite/pragma-ep-2.hex.expected +./tests/GCCTestSuite/wtr-switch-1.hex.expected +./tests/GCCTestSuite/noreturn-5.c.expected +./tests/GCCTestSuite/fold-xor-1.hex.expected +./tests/GCCTestSuite/pr22308-1.c +./tests/GCCTestSuite/c90-enum-comma-1.hex.expected +./tests/GCCTestSuite/wtr-strcat-1.c.expected +./tests/GCCTestSuite/compare9.hex.expected +./tests/GCCTestSuite/comp-return-1.c +./tests/GCCTestSuite/builtin-strstr.c.expected +./tests/GCCTestSuite/attr-used.hex.expected +./tests/GCCTestSuite/visibility-2.c.expected +./tests/GCCTestSuite/pr14796-2.hex.expected +./tests/GCCTestSuite/anon-struct-8.hex.expected +./tests/GCCTestSuite/declspec-2.c.expected +./tests/GCCTestSuite/wchar_t-2.hex.expected +./tests/GCCTestSuite/darwin-version-1.hex.expected +./tests/GCCTestSuite/switch-4.c.expected +./tests/GCCTestSuite/unroll-1.hex.expected +./tests/GCCTestSuite/darwin-20040812-1.hex.expected +./tests/GCCTestSuite/compare1.hex.expected +./tests/GCCTestSuite/nonnull-1.hex.expected +./tests/GCCTestSuite/string-opt-1.hex.expected +./tests/GCCTestSuite/anon-struct-7.c +./tests/GCCTestSuite/alias-2.hex.expected +./tests/GCCTestSuite/cris-peep2-xsrand2.c.expected +./tests/GCCTestSuite/bitfld-6.c +./tests/GCCTestSuite/ultrasp2.c +./tests/GCCTestSuite/pr23165.c +./tests/GCCTestSuite/nrv2.s.expected +./tests/GCCTestSuite/pr24615.hex.expected +./tests/GCCTestSuite/redecl-8.c.expected +./tests/GCCTestSuite/dollar.c +./tests/GCCTestSuite/pr3074-1.hex.expected +./tests/GCCTestSuite/switch-4.hex.expected +./tests/GCCTestSuite/inline-4.c.expected +./tests/GCCTestSuite/darwin-20040809-2.c +./tests/GCCTestSuite/sparc-constant-1.hex.expected +./tests/GCCTestSuite/declspec-3.c +./tests/GCCTestSuite/return-type-2.s.expected +./tests/GCCTestSuite/loop-5.c +./tests/GCCTestSuite/simd-1b.c +./tests/GCCTestSuite/arm-scd42-3.c.expected +./tests/GCCTestSuite/inline-9.s.expected +./tests/GCCTestSuite/pr23049.c.expected +./tests/GCCTestSuite/darwin-weakimport-1.c +./tests/GCCTestSuite/attr-used-2.hex.expected +./tests/GCCTestSuite/always_inline2.c +./tests/GCCTestSuite/redecl-16.s.expected +./tests/GCCTestSuite/enum2.c.expected +./tests/GCCTestSuite/attr-weakref-1a.s.expected +./tests/GCCTestSuite/concat.s.expected +./tests/GCCTestSuite/inline-21.hex.expected +./tests/GCCTestSuite/qual-return-3.c +./tests/GCCTestSuite/fold-abs-1.c +./tests/GCCTestSuite/uninit-2.hex.expected +./tests/GCCTestSuite/wchar_t-1.s.expected +./tests/GCCTestSuite/c99-idem-qual-1.c.expected +./tests/GCCTestSuite/pr17036-1.s.expected +./tests/GCCTestSuite/reg-vol-struct-1.s.expected +./tests/GCCTestSuite/intermod-1.s.expected +./tests/GCCTestSuite/inline-17.c.expected +./tests/GCCTestSuite/pr12625-1.s.expected +./tests/GCCTestSuite/wtr-static-1.c +./tests/GCCTestSuite/qual-return-3.s.expected +./tests/GCCTestSuite/typedef-init.s.expected +./tests/GCCTestSuite/inline-7.c +./tests/GCCTestSuite/pr30473.s.expected +./tests/GCCTestSuite/c90-longlong-1.c.expected +./tests/GCCTestSuite/builtin-strstr.c +./tests/GCCTestSuite/inline1.c.expected +./tests/GCCTestSuite/unroll-1.s.expected +./tests/GCCTestSuite/attr-weakref-1a.hex.expected +./tests/GCCTestSuite/c99-const-expr-1.hex.expected +./tests/GCCTestSuite/uninit-B.hex.expected +./tests/GCCTestSuite/c90-idem-qual-1.c.expected +./tests/GCCTestSuite/dollar.s.expected +./tests/GCCTestSuite/winline-7.hex.expected +./tests/GCCTestSuite/transparent-union-3.c +./tests/GCCTestSuite/c90-array-lval-5.hex.expected +./tests/GCCTestSuite/inline-9.c +./tests/GCCTestSuite/c99-impl-int-1.c.expected +./tests/GCCTestSuite/winline-1.hex.expected +./tests/GCCTestSuite/uninit-H.c.expected +./tests/GCCTestSuite/inline-1.c.expected +./tests/GCCTestSuite/c90-restrict-1.c +./tests/GCCTestSuite/register-var-2.s.expected +./tests/GCCTestSuite/c90-mixdecl-1.hex.expected +./tests/GCCTestSuite/compare6.hex.expected +./tests/GCCTestSuite/c90-enum-comma-1.c.expected +./tests/GCCTestSuite/profile-generate-1.c.expected +./tests/GCCTestSuite/darwin-ld-20040809-1.s.expected +./tests/GCCTestSuite/array-1.c +./tests/GCCTestSuite/anon-struct-8.c +./tests/GCCTestSuite/noreturn-7.s.expected +./tests/GCCTestSuite/dll-2.c +./tests/GCCTestSuite/loop-5.hex.expected +./tests/GCCTestSuite/trunc-1.c +./tests/GCCTestSuite/cris-peep2-andu1.s.expected +./tests/GCCTestSuite/pr14092-1.hex.expected +./tests/GCCTestSuite/anon-struct-3.hex.expected +./tests/GCCTestSuite/uninit-6.hex.expected +./tests/GCCTestSuite/pr15698-4.s.expected +./tests/GCCTestSuite/overflow-1.s.expected +./tests/GCCTestSuite/c99-array-lval-7.hex.expected +./tests/GCCTestSuite/anon-struct-5.hex.expected +./tests/GCCTestSuite/inline-7.hex.expected +./tests/GCCTestSuite/pr23049.c +./tests/GCCTestSuite/c90-dupqual-1.c +./tests/GCCTestSuite/bitfld-10.s.expected +./tests/GCCTestSuite/pr11864-1.hex.expected +./tests/GCCTestSuite/alias-8.s.expected +./tests/GCCTestSuite/visibility-5.c.expected +./tests/GCCTestSuite/pr15825-1.s.expected +./tests/GCCTestSuite/darwin-version-1.c +./tests/GCCTestSuite/winline-2.c.expected +./tests/GCCTestSuite/c99-func-4.c.expected +./tests/GCCTestSuite/sparc-constant-1.s.expected +./tests/GCCTestSuite/nested-calls-1.c.expected +./tests/GCCTestSuite/arm-scd42-2.c.expected +./tests/GCCTestSuite/Makefile +./tests/GCCTestSuite/arm-scd42-1.hex.expected +./tests/GCCTestSuite/visibility-c.hex.expected +./tests/GCCTestSuite/anon-struct-8.s.expected +./tests/GCCTestSuite/attr-alwaysinline.hex.expected +./tests/GCCTestSuite/inline-18.c +./tests/GCCTestSuite/pack-test-2.c.expected +./tests/GCCTestSuite/pack-test-3.s.expected +./tests/GCCTestSuite/darwin-version-1.c.expected +./tests/GCCTestSuite/inline4.hex.expected +./tests/GCCTestSuite/funcdef-attr-1.s.expected +./tests/GCCTestSuite/intmax_t-1.c.expected +./tests/GCCTestSuite/funcdef-var-2.s.expected +./tests/GCCTestSuite/enum3.c +./tests/GCCTestSuite/anon-struct-4.c.expected +./tests/GCCTestSuite/pr17957.c +./tests/GCCTestSuite/cris-peep2-xsrand.c +./tests/GCCTestSuite/intmax_t-1.c +./tests/GCCTestSuite/decl-6.s.expected +./tests/GCCTestSuite/c99-idem-qual-2.hex.expected +./tests/GCCTestSuite/qual-return-1.hex.expected +./tests/GCCTestSuite/visibility-1.c +./tests/GCCTestSuite/const-elim-2.s.expected +./tests/GCCTestSuite/section1.hex.expected +./tests/GCCTestSuite/redecl-13.hex.expected +./tests/GCCTestSuite/uninit-5.c +./tests/GCCTestSuite/pr25795.c +./tests/GCCTestSuite/switch-1.s.expected +./tests/GCCTestSuite/pr28187.hex.expected +./tests/GCCTestSuite/darwin-20040809-2.s.expected +./tests/GCCTestSuite/pragma-re-2.s.expected +./tests/GCCTestSuite/pr29637.c +./tests/GCCTestSuite/cris-peep2-andu2.c +./tests/GCCTestSuite/pr25559.c +./tests/GCCTestSuite/wtr-strcat-1.c +./tests/GCCTestSuite/const-compare.hex.expected +./tests/GCCTestSuite/redecl-13.s.expected +./tests/GCCTestSuite/cleanup-6.hex.expected +./tests/GCCTestSuite/fold-abs-3.s.expected +./tests/GCCTestSuite/c99-longlong-1.s.expected +./tests/GCCTestSuite/c99-idem-qual-2.s.expected +./tests/GCCTestSuite/c90-flex-array-1.hex.expected +./tests/GCCTestSuite/inline-18.c.expected +./tests/GCCTestSuite/c99-idem-qual-1.c +./tests/GCCTestSuite/c99-func-2.c.expected +./tests/GCCTestSuite/ultrasp4.s.expected +./tests/GCCTestSuite/unused-1.hex.expected +./tests/GCCTestSuite/decl-4.c.expected +./tests/GCCTestSuite/array-quals-2.s.expected +./tests/GCCTestSuite/pr18928-1.c.expected +./tests/GCCTestSuite/cris-peep2-andu1.c.expected +./tests/GCCTestSuite/pr14796-2.c.expected +./tests/GCCTestSuite/pr22335-2.c.expected +./tests/GCCTestSuite/pure-1.s.expected +./tests/GCCTestSuite/wint_t-1.hex.expected +./tests/GCCTestSuite/const-compare.s.expected +./tests/GCCTestSuite/volatile1.hex.expected +./tests/GCCTestSuite/fdata-sections-1.c +./tests/GCCTestSuite/c90-idem-qual-1.s.expected +./tests/GCCTestSuite/ultrasp1.c.expected +./tests/GCCTestSuite/redecl-9.c.expected +./tests/GCCTestSuite/inline-2.hex.expected +./tests/GCCTestSuite/empty-source-3.s.expected +./tests/GCCTestSuite/symbian4.c.expected +./tests/GCCTestSuite/simd-3.hex.expected +./tests/GCCTestSuite/inline-10.s.expected +./tests/GCCTestSuite/transparent-union-2.hex.expected +./tests/GCCTestSuite/951130-1.s.expected +./tests/GCCTestSuite/noreturn-1.hex.expected +./tests/GCCTestSuite/pr18479.c +./tests/GCCTestSuite/pr14092-1.c.expected +./tests/GCCTestSuite/transparent-union-3.c.expected +./tests/GCCTestSuite/nonnull-2.hex.expected +./tests/GCCTestSuite/pr21085.c.expected +./tests/GCCTestSuite/cris-peep2-xsrand.hex.expected +./tests/GCCTestSuite/c99-dupqual-1.hex.expected +./tests/GCCTestSuite/pr25559.hex.expected +./tests/GCCTestSuite/pr18479.c.expected +./tests/GCCTestSuite/pr12625-1.c +./tests/GCCTestSuite/fold-xor-2.hex.expected +./tests/GCCTestSuite/c99-array-nonobj-1.c.expected +./tests/GCCTestSuite/visibility-2.c +./tests/GCCTestSuite/anon-struct-5.c +./tests/GCCTestSuite/visibility-c.c.expected +./tests/GCCTestSuite/inline-19.s.expected +./tests/GCCTestSuite/qual-return-4.s.expected +./tests/GCCTestSuite/symbian5.s.expected +./tests/GCCTestSuite/pr23584.c.expected +./tests/GCCTestSuite/loop-5.c.expected +./tests/GCCTestSuite/inline-19.hex.expected +./tests/GCCTestSuite/ultrasp4.c.expected +./tests/GCCTestSuite/c99-array-lval-6.s.expected +./tests/GCCTestSuite/pr24367.c.expected +./tests/GCCTestSuite/pr29736.hex.expected +./tests/GCCTestSuite/c90-array-lval-7.c.expected +./tests/GCCTestSuite/pr21085.c +./tests/GCCTestSuite/attr-used-2.c.expected +./tests/GCCTestSuite/c99-main-1.c +./tests/GCCTestSuite/profile-generate-2.c.expected +./tests/GCCTestSuite/c99-array-lval-6.c +./tests/GCCTestSuite/verbose-asm.hex.expected +./tests/GCCTestSuite/inline-19.c.expected +./tests/GCCTestSuite/wtr-escape-1.s.expected +./tests/GCCTestSuite/arm-g2.c.expected +./tests/GCCTestSuite/pr15443-2.c +./tests/GCCTestSuite/wchar_t-2.c +./tests/GCCTestSuite/bitfld-5.hex.expected +./tests/GCCTestSuite/arm-scd42-2.c +./tests/GCCTestSuite/winline-3.s.expected +./tests/GCCTestSuite/ultrasp10.s.expected +./tests/GCCTestSuite/pr29637.c.expected +./tests/GCCTestSuite/comp-return-1.c.expected +./tests/GCCTestSuite/redecl-16.c.expected +./tests/GCCTestSuite/c90-impl-int-1.c.expected +./tests/GCCTestSuite/darwin-ld-20040828-1.hex.expected +./tests/GCCTestSuite/deprecated-3.s.expected +./tests/GCCTestSuite/pr18928-1.s.expected +./tests/GCCTestSuite/pr24445.s.expected +./tests/GCCTestSuite/c90-array-quals-2.s.expected +./tests/GCCTestSuite/noreturn-2.s.expected +./tests/GCCTestSuite/m-un-1.c +./tests/GCCTestSuite/pr22335-1.c.expected +./tests/GCCTestSuite/visibility-4.s.expected +./tests/GCCTestSuite/wtr-unary-plus-1.s.expected +./tests/GCCTestSuite/noreturn-2.hex.expected +./tests/GCCTestSuite/extra-semi-3.hex.expected +./tests/GCCTestSuite/uninit-C.s.expected +./tests/GCCTestSuite/c90-const-expr-1.c.expected +./tests/GCCTestSuite/attr-used-2.s.expected +./tests/GCCTestSuite/920413-1.s.expected +./tests/GCCTestSuite/darwin-ld-6.c +./tests/GCCTestSuite/dll-2.s.expected +./tests/GCCTestSuite/empty-source-2.c +./tests/GCCTestSuite/c90-array-lval-6.c.expected +./tests/GCCTestSuite/extra-semi-1.c.expected +./tests/GCCTestSuite/pr15443-2.s.expected +./tests/GCCTestSuite/pr23165.s.expected +./tests/GCCTestSuite/pr15825-1.c +./tests/GCCTestSuite/inline4.c.expected +./tests/GCCTestSuite/redecl-6.c.expected +./tests/GCCTestSuite/pr26004.s.expected +./tests/GCCTestSuite/inline-2.c +./tests/GCCTestSuite/register-var-1.hex.expected +./tests/GCCTestSuite/darwin-version-1.s.expected +./tests/GCCTestSuite/c99-array-lval-1.hex.expected +./tests/GCCTestSuite/unused-2.c.expected +./tests/GCCTestSuite/arm-g2.s.expected +./tests/GCCTestSuite/uninit-8.s.expected +./tests/GCCTestSuite/compare3.c.expected +./tests/GCCTestSuite/c90-flex-array-1.s.expected +./tests/GCCTestSuite/pr14092-1.s.expected +./tests/GCCTestSuite/inline2.s.expected +./tests/GCCTestSuite/darwin-ld-2.hex.expected +./tests/GCCTestSuite/c99-restrict-2.hex.expected +./tests/GCCTestSuite/pr25795.hex.expected +./tests/GCCTestSuite/cris-peep2-xsrand2.hex.expected +./tests/GCCTestSuite/gnu89-dupqual-1.c +./tests/GCCTestSuite/c90-array-lval-7.s.expected +./tests/GCCTestSuite/pragma-ep-2.c +./tests/GCCTestSuite/pr15698-7.c.expected +./tests/GCCTestSuite/cris-peep2-xsrand2.c +./tests/GCCTestSuite/c99-array-lval-7.c.expected +./tests/GCCTestSuite/overflow-1.hex.expected +./tests/GCCTestSuite/unused-1.c.expected +./tests/GCCTestSuite/c99-func-4.hex.expected +./tests/GCCTestSuite/pr25795.c.expected +./tests/GCCTestSuite/c99-dupqual-1.s.expected +./tests/GCCTestSuite/visibility-4.c +./tests/GCCTestSuite/compare3.c +./tests/GCCTestSuite/c90-const-expr-1.hex.expected +./tests/GCCTestSuite/pr17319.c +./tests/GCCTestSuite/pragma-pack-4.c +./tests/GCCTestSuite/cleanup-6.c +./tests/GCCTestSuite/return-type-2.c.expected +./tests/GCCTestSuite/enum3.hex.expected +./tests/GCCTestSuite/anon-struct-6.hex.expected +./tests/GCCTestSuite/darwin-ld-4.c +./tests/GCCTestSuite/redecl-6.s.expected +./tests/GCCTestSuite/concat2.hex.expected +./tests/GCCTestSuite/declspec-3.s.expected +./tests/GCCTestSuite/symbian4.hex.expected +./tests/GCCTestSuite/darwin-ld-20040809-1.c +./tests/GCCTestSuite/builtins-35.s.expected +./tests/GCCTestSuite/gnu89-dupqual-1.c.expected +./tests/GCCTestSuite/uninit-5.hex.expected +./tests/GCCTestSuite/local1.c +./tests/GCCTestSuite/symbian5.c.expected +./tests/GCCTestSuite/intmax_t-1.hex.expected +./tests/GCCTestSuite/c90-impl-int-2.c.expected +./tests/GCCTestSuite/switch-4.c +./tests/GCCTestSuite/symbian3.s.expected +./tests/GCCTestSuite/darwin-ld-6.hex.expected +./tests/GCCTestSuite/compare3.hex.expected +./tests/GCCTestSuite/pr20115-1.c.expected +./tests/GCCTestSuite/visibility-9.hex.expected +./tests/GCCTestSuite/pragma-pack-4.hex.expected +./tests/GCCTestSuite/struct-empty-2.c.expected +./tests/GCCTestSuite/pr20115.c.expected +./tests/GCCTestSuite/visibility-3.c.expected +./tests/GCCTestSuite/pr18479.hex.expected +./tests/GCCTestSuite/darwin-ld-20040809-2.s.expected +./tests/GCCTestSuite/pr25795-1.c.expected +./tests/GCCTestSuite/pr23049.hex.expected +./tests/GCCTestSuite/pr17319.hex.expected +./tests/GCCTestSuite/uninit-I.s.expected +./tests/GCCTestSuite/pr19967.c +./tests/GCCTestSuite/pr26570.c.expected +./tests/GCCTestSuite/pr24445.hex.expected +./tests/GCCTestSuite/visibility-d.c.expected +./tests/GCCTestSuite/pr32450.s.expected +./tests/GCCTestSuite/decl-6.c +./tests/GCCTestSuite/pr18241-5.s.expected +./tests/GCCTestSuite/return-type-1.c.expected +./tests/GCCTestSuite/redecl-13.c.expected +./tests/GCCTestSuite/ultrasp2.s.expected +./tests/GCCTestSuite/uninit-4.s.expected +./tests/GCCTestSuite/pr14796-1.s.expected +./tests/GCCTestSuite/anon-struct-6.c +./tests/GCCTestSuite/fold-xor-1.c +./tests/GCCTestSuite/c90-idem-qual-3.c.expected +./tests/GCCTestSuite/pr20017.hex.expected +./tests/GCCTestSuite/pr15698-6.hex.expected +./tests/GCCTestSuite/pragma-isr2.c.expected +./tests/GCCTestSuite/darwin-ld-20040828-1.c +./tests/GCCTestSuite/pr19967.hex.expected +./tests/GCCTestSuite/c90-mixdecl-1.s.expected +./tests/GCCTestSuite/pr25795.s.expected +./tests/GCCTestSuite/trunc-1.s.expected +./tests/GCCTestSuite/pr29581-3.c.expected +./tests/GCCTestSuite/ftrapv-1.s.expected +./tests/GCCTestSuite/winline-5.c.expected +./tests/GCCTestSuite/940409-1.c.expected +./tests/GCCTestSuite/winline-6.c +./tests/GCCTestSuite/pr25795-1.s.expected +./tests/GCCTestSuite/simd-3.s.expected +./tests/GCCTestSuite/uninit-H.c +./tests/GCCTestSuite/uninit-5.s.expected +./tests/GCCTestSuite/register-var-2.c +./tests/GCCTestSuite/unused-3.hex.expected +./tests/GCCTestSuite/concat2.s.expected +./tests/GCCTestSuite/extra-semi-2.c +./tests/GCCTestSuite/951130-1.c.expected +./tests/GCCTestSuite/visibility-3.c +./tests/GCCTestSuite/pragma-pack-4.c.expected +./tests/GCCTestSuite/bitfld-14.s.expected +./tests/GCCTestSuite/uninit-3.hex.expected +./tests/GCCTestSuite/c90-const-expr-1.c +./tests/GCCTestSuite/always_inline3.hex.expected +./tests/GCCTestSuite/declspec-12.c.expected +./tests/GCCTestSuite/bitfld-6.s.expected +./tests/GCCTestSuite/pr22329.hex.expected +./tests/GCCTestSuite/inline-5.s.expected +./tests/GCCTestSuite/attr-used.c +./tests/GCCTestSuite/qual-return-2.c.expected +./tests/GCCTestSuite/visibility-10.c.expected +./tests/GCCTestSuite/inline-5.c +./tests/GCCTestSuite/darwin-ld-5.c +./tests/GCCTestSuite/pr15443-2.c.expected +./tests/GCCTestSuite/warn-1.hex.expected +./tests/GCCTestSuite/pr25196.c +./tests/GCCTestSuite/c90-array-lval-6.hex.expected +./tests/GCCTestSuite/pr18921-1.hex.expected +./tests/GCCTestSuite/compare1.s.expected +./tests/GCCTestSuite/pack-test-2.c +./tests/GCCTestSuite/pr15698-7.hex.expected +./tests/GCCTestSuite/parm-mismatch-1.c +./tests/GCCTestSuite/overflow-1.c +./tests/GCCTestSuite/darwin-ld-20040828-3.c.expected +./tests/GCCTestSuite/array-quals-2.c.expected +./tests/GCCTestSuite/conv-3.c +./tests/GCCTestSuite/visibility-d.s.expected +./tests/GCCTestSuite/h8300-stack-1.s.expected +./tests/GCCTestSuite/qual-return-3.c.expected +./tests/GCCTestSuite/ultrasp1.s.expected +./tests/GCCTestSuite/visibility-7.c +./tests/GCCTestSuite/conv-3.c.expected +./tests/GCCTestSuite/symbian4.s.expected +./tests/GCCTestSuite/visibility-2.s.expected +./tests/GCCTestSuite/pr26961-1.s.expected +./tests/GCCTestSuite/attr-invalid.s.expected +./tests/GCCTestSuite/visibility-8.c +./tests/GCCTestSuite/symbian3.c.expected +./tests/GCCTestSuite/c99-array-lval-1.s.expected +./tests/GCCTestSuite/unused-5.c +./tests/GCCTestSuite/wtr-static-1.c.expected +./tests/GCCTestSuite/c90-restrict-1.hex.expected +./tests/GCCTestSuite/pr29581-1.s.expected +./tests/GCCTestSuite/pr24620.c.expected +./tests/GCCTestSuite/compare3.s.expected +./tests/GCCTestSuite/ftrapv-1.hex.expected +./tests/GCCTestSuite/c90-array-quals-2.hex.expected +./tests/GCCTestSuite/darwin-weakimport-1.hex.expected +./tests/GCCTestSuite/c90-mixdecl-1.c +./tests/GCCTestSuite/symbian1.hex.expected +./tests/GCCTestSuite/darwin-20040809-2.hex.expected +./tests/GCCTestSuite/c99-enum-comma-1.c.expected +./tests/GCCTestSuite/smod-1.c +./tests/GCCTestSuite/pr25993.hex.expected +./tests/GCCTestSuite/redecl-16.hex.expected +./tests/GCCTestSuite/struct-empty-2.c +./tests/GCCTestSuite/symbian3.hex.expected +./tests/GCCTestSuite/fold-xor-2.s.expected +./tests/GCCTestSuite/pr11864-1.s.expected +./tests/GCCTestSuite/c90-flex-array-1.c.expected +./tests/GCCTestSuite/pr17319.s.expected +./tests/GCCTestSuite/inline-21.c.expected +./tests/GCCTestSuite/c90-idem-qual-2.s.expected +./tests/GCCTestSuite/pragma-re-2.c.expected +./tests/GCCTestSuite/extra-semi-3.c.expected +./tests/GCCTestSuite/c99-longlong-1.c.expected +./tests/GCCTestSuite/inline1.hex.expected +./tests/GCCTestSuite/assign-warn-3.c.expected +./tests/GCCTestSuite/pr29637.s.expected +./tests/GCCTestSuite/fold-xor-1.c.expected +./tests/GCCTestSuite/deprecated-3.c.expected +./tests/GCCTestSuite/c90-idem-qual-2.hex.expected +./tests/GCCTestSuite/uninit-1.c.expected +./tests/GCCTestSuite/visibility-1.hex.expected +./tests/GCCTestSuite/uninit-11.s.expected +./tests/GCCTestSuite/anon-struct-4.s.expected +./tests/GCCTestSuite/noreturn-6.c +./tests/GCCTestSuite/c99-array-lval-5.s.expected +./tests/GCCTestSuite/visibility-a.c +./tests/GCCTestSuite/pr24683.hex.expected +./tests/GCCTestSuite/enum2.hex.expected +./tests/GCCTestSuite/visibility-6.c.expected +./tests/GCCTestSuite/unused-3.c.expected +./tests/GCCTestSuite/transparent-union-3.hex.expected +./tests/GCCTestSuite/pragma-ep-3.hex.expected +./tests/GCCTestSuite/pr19967.s.expected +./tests/GCCTestSuite/fold-xor-1.s.expected +./tests/GCCTestSuite/inline-17.c +./tests/GCCTestSuite/empty-source-1.c.expected +./tests/GCCTestSuite/inline2.hex.expected +./tests/GCCTestSuite/uninit-F.hex.expected +./tests/GCCTestSuite/nrv2.c.expected +./tests/GCCTestSuite/inline-4.s.expected +./tests/GCCTestSuite/wtr-union-init-1.hex.expected +./tests/GCCTestSuite/pr28187.c +./tests/GCCTestSuite/c99-enum-comma-1.s.expected +./tests/GCCTestSuite/c99-const-expr-1.c.expected +./tests/GCCTestSuite/inline-8.c +./tests/GCCTestSuite/pr15784-4.s.expected +./tests/GCCTestSuite/uninit-9.s.expected +./tests/GCCTestSuite/transparent-union-2.s.expected +./tests/GCCTestSuite/inline-10.c.expected +./tests/GCCTestSuite/empty-source-3.c.expected +./tests/GCCTestSuite/pr20017.s.expected +./tests/GCCTestSuite/alias-2.s.expected +./tests/GCCTestSuite/uninit-E.s.expected +./tests/GCCTestSuite/compare9.c +./tests/GCCTestSuite/pr20115-1.s.expected +./tests/GCCTestSuite/wtr-switch-1.c.expected +./tests/GCCTestSuite/arm-scd42-2.s.expected +./tests/GCCTestSuite/qual-return-1.c +./tests/GCCTestSuite/noreturn-5.c +./tests/GCCTestSuite/reg-vol-struct-1.hex.expected +./tests/GCCTestSuite/pr24367.s.expected +./tests/GCCTestSuite/compare5.s.expected +./tests/GCCTestSuite/pr23625.c.expected +./tests/GCCTestSuite/nonnull-2.c +./tests/GCCTestSuite/compare9.c.expected +./tests/GCCTestSuite/c90-array-lval-6.s.expected +./tests/GCCTestSuite/attr-alwaysinline.c.expected +./tests/GCCTestSuite/attr-invalid.hex.expected +./tests/GCCTestSuite/c99-impl-int-2.hex.expected +./tests/GCCTestSuite/struct-empty-3.c.expected +./tests/GCCTestSuite/pr17635.s.expected +./tests/GCCTestSuite/unused-2.s.expected +./tests/GCCTestSuite/pr20130-1.s.expected +./tests/GCCTestSuite/concat.hex.expected +./tests/GCCTestSuite/visibility-6.c +./tests/GCCTestSuite/dll-4.s.expected +./tests/GCCTestSuite/fdata-sections-1.s.expected +./tests/GCCTestSuite/unused-7.c.expected +./tests/GCCTestSuite/pr32450.hex.expected +./tests/GCCTestSuite/concat.c +./tests/GCCTestSuite/switch-4.s.expected +./tests/GCCTestSuite/darwin-ld-2.c +./tests/GCCTestSuite/unused-2.hex.expected +./tests/GCCTestSuite/pr25795-1.hex.expected +./tests/GCCTestSuite/winline-6.s.expected +./tests/GCCTestSuite/pr29581-1.c +./tests/GCCTestSuite/anon-struct-4.c +./tests/GCCTestSuite/visibility-10.c +./tests/GCCTestSuite/pragma-re-2.hex.expected +./tests/GCCTestSuite/empty-source-2.s.expected +./tests/GCCTestSuite/void-cast-1.hex.expected +./tests/GCCTestSuite/noreturn-5.s.expected +./tests/GCCTestSuite/visibility-2.hex.expected +./tests/GCCTestSuite/pr19967.c.expected +./tests/GCCTestSuite/empty-source-2.c.expected +./tests/GCCTestSuite/wchar_t-2.c.expected +./tests/GCCTestSuite/simd-1b.s.expected +./tests/GCCTestSuite/pr18241-5.c.expected +./tests/GCCTestSuite/struct-empty-1.hex.expected +./tests/GCCTestSuite/extra-semi-2.c.expected +./tests/GCCTestSuite/extra-semi-3.s.expected +./tests/GCCTestSuite/c90-idem-qual-1.c +./tests/GCCTestSuite/pr20115.c +./tests/GCCTestSuite/volatile1.c +./tests/GCCTestSuite/symbian5.hex.expected +./tests/GCCTestSuite/pr14796-2.s.expected +./tests/GCCTestSuite/noreturn-1.c.expected +./tests/GCCTestSuite/qual-return-2.s.expected +./tests/GCCTestSuite/compare7.s.expected +./tests/GCCTestSuite/visibility-d.c +./tests/GCCTestSuite/pr29736.s.expected +./tests/GCCTestSuite/c99-main-1.hex.expected +./tests/GCCTestSuite/pr28187.c.expected +./tests/GCCTestSuite/struct-empty-1.s.expected +./tests/GCCTestSuite/darwin-ld-20040828-1.s.expected +./tests/GCCTestSuite/old-style-then-proto-1.c.expected +./tests/GCCTestSuite/uninit-H.s.expected +./tests/GCCTestSuite/fold-xor-2.c +./tests/GCCTestSuite/conv-3.s.expected +./tests/GCCTestSuite/uninit-8.hex.expected +./tests/GCCTestSuite/ultrasp10.hex.expected +./tests/GCCTestSuite/cleanup-3.c +./tests/GCCTestSuite/c99-dupqual-1.c +./tests/GCCTestSuite/deprecated-3.hex.expected +./tests/GCCTestSuite/inline-17.hex.expected +./tests/GCCTestSuite/funroll-loops-all.c +./tests/GCCTestSuite/c99-array-lval-5.c.expected +./tests/GCCTestSuite/ultrasp4.c +./tests/GCCTestSuite/postincr-1.c +./tests/GCCTestSuite/nonnull-1.s.expected +./tests/GCCTestSuite/pr26570.hex.expected +./tests/GCCTestSuite/visibility-1.s.expected +./tests/GCCTestSuite/unused-3.c +./tests/GCCTestSuite/builtins-35.c +./tests/GCCTestSuite/loop-5.s.expected +./tests/clight +./tests/clight/binop.log.expected +./tests/clight/complets.c.expected +./tests/clight/array.RTLabs.expected +./tests/clight/ifthenelse.c.expected +./tests/clight/binop.RTLabs.expected +./tests/clight/complets.RTL.expected +./tests/clight/testTB_Array_ecriture.c +./tests/clight/testTB_Array_lecture.LIN.expected +./tests/clight/complets.c +./tests/clight/fib.Cminor.expected +./tests/clight/fir_complexe.RTL.expected +./tests/clight/array.c +./tests/clight/testTB_boucle.ASM.expected +./tests/clight/testTB_Array_LE.c +./tests/clight/fir4.ERTL.expected +./tests/clight/fib.RTLabs.expected +./tests/clight/fib.LIN.expected +./tests/clight/01-array.c +./tests/clight/complets.RTLabs.expected +./tests/clight/fir_complexe.LTL.expected +./tests/clight/testTB_Array_double.RTLabs.expected +./tests/clight/testTB_Array_lecture.ERTL.expected +./tests/clight/testTB_Array_ecriture.Clight.expected +./tests/clight/ifthenelse.Cminor.expected +./tests/clight/ifthenelse.Clight.expected +./tests/clight/testTB_Array_double.Clight.expected +./tests/clight/01-testTB_Array_ecriture.c +./tests/clight/testTB_boucle.ERTL.expected +./tests/clight/testCOMP_tri.Clight.expected +./tests/clight/testTB_Array_LE.Clight.expected +./tests/clight/fir4.ASM.expected +./tests/clight/testTB_Array_ecriture.RTL.expected +./tests/clight/testTB_boucle.LIN.expected +./tests/clight/testCOMP_tri.c +./tests/clight/testCOMP_tri.log.expected +./tests/clight/testCOMP_tri.LTL.expected +./tests/clight/testTB_Array_LE.LIN.expected +./tests/clight/for.Clight.expected +./tests/clight/testCOMP_tri.LIN.expected +./tests/clight/testTB_boucle.c +./tests/clight/for.ERTL.expected +./tests/clight/ifthenelse.LIN.expected +./tests/clight/complets.ERTL.expected +./tests/clight/array.LIN.expected +./tests/clight/01-testTB_Array_ecriture.hex +./tests/clight/testTB_Array_LE.c.expected +./tests/clight/testTB_Array_double.c +./tests/clight/fir_complexe.c.expected +./tests/clight/for.LTL.expected +./tests/clight/ifthenelse.ERTL.expected +./tests/clight/array.s +./tests/clight/fir_complexe.c +./tests/clight/fir4.c +./tests/clight/array.LTL.expected +./tests/clight/fib.c +./tests/clight/binop.c.expected +./tests/clight/fib.LTL.expected +./tests/clight/fir_complexe.RTLabs.expected +./tests/clight/array.Clight.expected +./tests/clight/for.RTL.expected +./tests/clight/for.LIN.expected +./tests/clight/testTB_Array_lecture.c +./tests/clight/fir4.c.expected +./tests/clight/for.ASM.expected +./tests/clight/testTB_Array_double.Cminor.expected +./tests/clight/fir4.Clight.expected +./tests/clight/ifthenelse.ASM.expected +./tests/clight/testTB_Array_double.RTL.expected +./tests/clight/testTB_Array_ecriture.LTL.expected +./tests/clight/testCOMP_tri.ERTL.expected +./tests/clight/fir_complexe.Clight.expected +./tests/clight/testTB_Array_LE.hex +./tests/clight/testCOMP_tri.RTLabs.expected +./tests/clight/complets.LTL.expected +./tests/clight/fib.ERTL.expected +./tests/clight/testTB_Array_double.c.expected +./tests/clight/array.ASM.expected +./tests/clight/fir4.LIN.expected +./tests/clight/binop.c +./tests/clight/testTB_boucle.RTLabs.expected +./tests/clight/testTB_Array_double.LTL.expected +./tests/clight/fir_complexe.ERTL.expected +./tests/clight/testTB_Array_LE.s +./tests/clight/for.Cminor.expected +./tests/clight/testTB_Array_ecriture.RTLabs.expected +./tests/clight/testTB_Array_ecriture.log.expected +./tests/clight/testTB_boucle.Clight.expected +./tests/clight/array.hex +./tests/clight/complets.Clight.expected +./tests/clight/binop.RTL.expected +./tests/clight/fir_complexe.log.expected +./tests/clight/complets.ASM.expected +./tests/clight/for.RTLabs.expected +./tests/clight/fir4.RTLabs.expected +./tests/clight/testTB_Array_lecture.RTL.expected +./tests/clight/binop.Clight.expected +./tests/clight/array.RTL.expected +./tests/clight/fir4.LTL.expected +./tests/clight/testTB_Array_LE.ASM.expected +./tests/clight/01-testTB_Array_LE.c +./tests/clight/testTB_boucle.log.expected +./tests/clight/testTB_Array_lecture.c.expected +./tests/clight/testTB_Array_lecture.Clight.expected +./tests/clight/ifthenelse.RTL.expected +./tests/clight/testTB_Array_double.ASM.expected +./tests/clight/fib.log.expected +./tests/clight/testTB_boucle.RTL.expected +./tests/clight/testTB_Array_lecture.ASM.expected +./tests/clight/testTB_Array_lecture.RTLabs.expected +./tests/clight/ok-counter +./tests/clight/testCOMP_tri.Cminor.expected +./tests/clight/for.c.expected +./tests/clight/binop.LIN.expected +./tests/clight/ifthenelse.LTL.expected +./tests/clight/fib.ASM.expected +./tests/clight/testTB_Array_ecriture.hex +./tests/clight/array.Cminor.expected +./tests/clight/ko-counter +./tests/clight/testTB_Array_ecriture.ERTL.expected +./tests/clight/for.log.expected +./tests/clight/testTB_Array_LE.Cminor.expected +./tests/clight/testTB_Array_LE.RTLabs.expected +./tests/clight/testTB_Array_ecriture.s +./tests/clight/fib.Clight.expected +./tests/clight/testTB_Array_double.log.expected +./tests/clight/testTB_Array_LE.RTL.expected +./tests/clight/Makefile +./tests/clight/testTB_Array_LE.LTL.expected +./tests/clight/testTB_boucle.c.expected +./tests/clight/02-testTB_Array_ecriture.c +./tests/clight/binop.ASM.expected +./tests/clight/testTB_Array_LE.log.expected +./tests/clight/01-testTB_Array_ecriture.s +./tests/clight/fib.c.expected +./tests/clight/testCOMP_tri.ASM.expected +./tests/clight/testTB_Array_ecriture.ASM.expected +./tests/clight/testTB_boucle.LTL.expected +./tests/clight/fib.RTL.expected +./tests/clight/testTB_Array_lecture.log.expected +./tests/clight/array.c.expected +./tests/clight/binop.Cminor.expected +./tests/clight/testTB_Array_ecriture.Cminor.expected +./tests/clight/fir4.log.expected +./tests/clight/testCOMP_tri.c.expected +./tests/clight/testCOMP_tri.RTL.expected +./tests/clight/testTB_Array_double.ERTL.expected +./tests/clight/complets.log.expected +./tests/clight/for.c +./tests/clight/array.log.expected +./tests/clight/ifthenelse.RTLabs.expected +./tests/clight/fir_complexe.LIN.expected +./tests/clight/testTB_Array_ecriture.LIN.expected +./tests/clight/ifthenelse.c +./tests/clight/ifthenelse.log.expected +./tests/clight/binop.ERTL.expected +./tests/clight/fir4.RTL.expected +./tests/clight/testTB_boucle.Cminor.expected +./tests/clight/testTB_Array_LE.ERTL.expected +./tests/clight/binop.LTL.expected +./tests/clight/testTB_Array_lecture.Cminor.expected +./tests/clight/fib.s.expected +./tests/clight/fir4.Cminor.expected +./tests/clight/array.ERTL.expected +./tests/clight/complets.Cminor.expected +./tests/clight/fir_complexe.Cminor.expected +./tests/clight/testTB_Array_lecture.LTL.expected +./tests/clight/complets.LIN.expected +./tests/clight/testTB_Array_ecriture.c.expected +./tests/clight/fir_complexe.ASM.expected +./tests/clight/testTB_Array_double.LIN.expected +./tests/Makefile +./tests/benchs +./tests/benchs/cparser18c1246.c +./tests/benchs/cparser162cc31.c +./tests/benchs/mat_det.c +./tests/benchs/cparser2ad371c.i +./tests/benchs/fib.c +./tests/benchs/min.c +./tests/benchs/badsort.c +./tests/benchs/cparser2dcc632.i +./tests/benchs/acc.run +./tests/benchs/meantime.sh +./tests/benchs/quicksort.c +./tests/benchs/cparser27e7643.i +./tests/benchs/cparser1ecc129.c +./tests/benchs/Makefile +./tests/benchs/cparser1b43f7a.c +./tests/benchs/cparser296cfe9.i +./tests/benchs/cparser1e57fb4.c +./tests/benchs/cparser23ae4e0.i +./tests/benchs/search.c +./acc.odocl +./Makefile +./doc +./doc/src +./doc/src/main +./doc/html +./doc/html/style.css +./src +./src/accweb.ml +./src/options.ml +./src/annotStackSize.ml +./src/ASM +./src/ASM/ASMInterpret.mli +./src/ASM/Parser.mli +./src/ASM/BitVectors.ml +./src/ASM/MIPSOps.mli +./src/ASM/printOps.ml +./src/ASM/Pretty.ml +./src/ASM/MIPS.ml +./src/ASM/ASMPrinter.mli +./src/ASM/BitVectors.mli +./src/ASM/MIPSInterpret.mli +./src/ASM/Physical.mli +./src/ASM/ASMCosts.ml +./src/ASM/Pretty.mli +./src/ASM/IntelHex.ml +./src/ASM/I8051.mli +./src/ASM/ASM.mli +./src/ASM/IntelHex.mli +./src/ASM/MIPS.mli +./src/ASM/MIPSInterpret.ml +./src/ASM/I8051.ml +./src/ASM/Util.ml +./src/ASM/ASMPrinter.ml +./src/ASM/ASMInterpret.ml +./src/ASM/printOps.mli +./src/ASM/arch.mli +./src/ASM/Parser.ml +./src/ASM/Physical.ml +./src/ASM/ASMCosts.mli +./src/driver.mli +./src/utilities +./src/utilities/option.ml +./src/utilities/webify.mli +./src/utilities/setMap.mli +./src/utilities/Fix.mli +./src/utilities/printPottier.ml +./src/utilities/print.ml +./src/utilities/syntacticAnalysis.ml +./src/utilities/unionFind.ml +./src/utilities/print.mli +./src/utilities/misc.mli +./src/utilities/unionFind.mli +./src/utilities/misc.ml +./src/utilities/checkOClosure.ml +./src/utilities/stringTools.mli +./src/utilities/bijection.mli +./src/utilities/printPottier.mli +./src/utilities/stringTools.ml +./src/utilities/optionsParsing.ml +./src/utilities/webify.ml +./src/utilities/interference.mli +./src/utilities/bijection.ml +./src/utilities/position.mli +./src/utilities/prioritySet.mli +./src/utilities/position.ml +./src/utilities/integer.mli +./src/utilities/stringSig.mli +./src/utilities/coloring.mli +./src/utilities/coloring.ml +./src/utilities/interference.ml +./src/utilities/prioritySet.ml +./src/utilities/Fix.ml +./src/utilities/printCFG.ml +./src/utilities/myMap.ml +./src/utilities/integer.ml +./src/utilities/printCFG.mli +./src/utilities/miscPottier.ml +./src/utilities/error.ml +./src/utilities/syntacticAnalysis.mli +./src/utilities/setMap.ml +./src/utilities/option.mli +./src/utilities/miscPottier.mli +./src/utilities/myMap.mli +./src/utilities/error.mli +./src/utilities/eformat.ml +./src/utilities/eformat.mli +./src/driver.ml +./src/RTL +./src/RTL/RTLInterpret.mli +./src/RTL/RTL.mli +./src/RTL/RTLPrinter.ml +./src/RTL/RTLtailcall.mli +./src/RTL/RTLToERTL.ml +./src/RTL/RTLPrinter.mli +./src/RTL/RTLtailcall.ml +./src/RTL/RTLInterpret.ml +./src/RTL/RTLToERTL.mli +./src/acc.mli +./src/dev_test.ml +./src/acc.ml +./src/clight +./src/clight/clightLustreMain.mli +./src/clight/clightToCminor.mli +./src/clight/runtime.ml +./src/clight/clightFromC.ml +./src/clight/clightFlags.ml +./src/clight/clightInterpret.ml +./src/clight/clightAnnotator.ml +./src/clight/clightParser.ml +./src/clight/clightUtils.mli +./src/clight/clightInterpret.mli +./src/clight/clight.mli +./src/clight/clightLustre.ml +./src/clight/clightFold.mli +./src/clight/clightAnnotator.mli +./src/clight/clightLabelling.mli +./src/clight/clightFold.ml +./src/clight/runtime.mli +./src/clight/clightLustreMain.ml +./src/clight/clightCasts.mli +./src/clight/clightParser.mli +./src/clight/clight32ToClight8.mli +./src/clight/clightUtils.ml +./src/clight/clightPrinter.mli +./src/clight/clight32ToClight8.ml +./src/clight/clightSwitch.mli +./src/clight/clightToCminor.ml +./src/clight/clightLustre.mli +./src/clight/clightSwitch.ml +./src/clight/clightLabelling.ml +./src/clight/clightPrinter.ml +./src/clight/clightCasts.ml +./src/checker.mli +./src/languages.ml +./src/ERTL +./src/ERTL/spill.ml +./src/ERTL/uses.mli +./src/ERTL/ERTLPrinter.mli +./src/ERTL/ERTLInterpret.mli +./src/ERTL/build.ml +./src/ERTL/spill.mli +./src/ERTL/ERTLInterpret.ml +./src/ERTL/liveness.ml +./src/ERTL/ERTLPrinter.ml +./src/ERTL/ERTLToLTL.mli +./src/ERTL/ERTLToLTLI.mli +./src/ERTL/liveness.mli +./src/ERTL/build.mli +./src/ERTL/ERTL.mli +./src/ERTL/ERTLToLTLI.ml +./src/ERTL/ERTLToLTL.ml +./src/ERTL/uses.ml +./src/options.mli +./src/checker.ml +./src/cminor +./src/cminor/cminorInterpret.mli +./src/cminor/cminorLexer.mll +./src/cminor/cminorPrinter.ml +./src/cminor/cminorLabelling.ml +./src/cminor/cminorPrinter.mli +./src/cminor/cminorAnnotator.ml +./src/cminor/cminorToRTLabs.ml +./src/cminor/cminorFold.ml +./src/cminor/cminorInterpret.ml +./src/cminor/cminorFold.mli +./src/cminor/cminorToRTLabs.mli +./src/cminor/cminorAnnotator.mli +./src/cminor/cminorLabelling.mli +./src/cminor/cminorParser.mly +./src/cminor/cminor.mli +./src/LIN +./src/LIN/LINPrinter.mli +./src/LIN/LINToASM.ml +./src/LIN/LINInterpret.ml +./src/LIN/LINInterpret.mli +./src/LIN/LIN.mli +./src/LIN/LINToASM.mli +./src/LIN/LINPrinter.ml +./src/common +./src/common/register.mli +./src/common/hdwRegister.ml +./src/common/intByBig_int.ml +./src/common/label.ml +./src/common/value.mli +./src/common/intValue.ml +./src/common/intValue.mli +./src/common/costLabel.ml +./src/common/primitive.mli +./src/common/register.ml +./src/common/costLabel.mli +./src/common/AST.mli +./src/common/label.mli +./src/common/atom.mli +./src/common/memory.mli +./src/common/atom.ml +./src/common/atomSig.mli +./src/common/intByInt64.ml +./src/common/primitive.ml +./src/common/hdwRegister.mli +./src/common/memory.ml +./src/common/intValue.in +./src/common/value.ml +./src/common/intValueConfig.ml +./src/languages.mli +./src/LTL +./src/LTL/branch.mli +./src/LTL/LTLToLIN.mli +./src/LTL/LTLPrinter.mli +./src/LTL/LTLPrinter.ml +./src/LTL/LTLToLINI.ml +./src/LTL/LTLInterpret.mli +./src/LTL/LTLToLIN.ml +./src/LTL/LTLInterpret.ml +./src/LTL/branch.ml +./src/LTL/LTLToLINI.mli +./src/LTL/LTL.mli +./src/RTLabs +./src/RTLabs/RTLabs.mli +./src/RTLabs/RTLabsPrinter.ml +./src/RTLabs/RTLabsInterpret.mli +./src/RTLabs/RTLabsInterpret.ml +./src/RTLabs/RTLabsToRTL.mli +./src/RTLabs/RTLabsPrinter.mli +./src/RTLabs/RTLabsToRTL.ml +./configure-oclosure.sh +./admin +./admin/_build +./admin/_build/_log +./admin/_build/_digests +./admin/configure-oclosure.sh +./admin/myocamldoc +./_tags.js_of_ocaml +./lib diff --git a/doc/html/style.css b/doc/html/style.css new file mode 100644 index 0000000..0b637e9 --- /dev/null +++ b/doc/html/style.css @@ -0,0 +1,196 @@ +/* FIXME: This style.css was automatically generated by ocamldoc. + FIXME: This should be customized. */ + +body { + margin-left : 5em; + margin-right : 5em; + padding-left : 5em; + padding-right: 5em; + border-left : solid 1px; + border-right : solid 1px; + border-bottom: 0px; +} + +a:visited { + color : #416DFF; + text-decoration : none; +} +a:link { + color : #416DFF; + text-decoration : none;} + +a:hover { + color : Red; + text-decoration : none; + background-color: #5FFF88} + +a:active { + color : Red; + text-decoration : underline; +} + +.keyword { + font-weight : bold ; + color : Black +} + +.keywordsign { + color : #C04600 +} + +.superscript { + font-size : 4 +} + +.subscript { + font-size : 4 +} + +.comment { + color : Green +} + +.constructor { + color : Blue +} + +.type { + color : #5C6585 +} + +.string { + color : Maroon +} + +.warning { + color : Red ; + font-weight : bold +} +.info { + margin-left : 0em; + margin-right : 0em ; + font-family : Verdana; + font-style: italic +} + +.param_info { + margin-top: 4px; + margin-left : 3em; + margin-right : 3em +} + +.code { + color : #465F91 ; +} + +h1 { + font-size : 30pt ; + text-align: right; + font-variant : small-caps; +} + +h2 { + font-size : 20pt ; + border-bottom: 1px solid #000000; + margin-top: 5px; + margin-bottom: 2px; + margin-left: 0px; + margin-right: 0px; + padding-left: 0px; + padding-right: 0px; + text-align: left; + padding-top: 1em; + font-variant : small-caps; +} + +h3 { font-size : 20pt ; + border: 1px solid #000000; + margin-top: 5px; + margin-bottom: 2px;t + ext-align: center; + background-color: #90DDFF ;p + adding: 2px; + } + +h4 { font-size : 20pt ; + border: 1px solid #000000; + margin-top: 5px; + margin-bottom: 2px;t + ext-align: center; + background-color: #90EDFF ;p + adding: 2px; + } + +h5 { font-size : 20pt ; + border: 1px solid #000000; + margin-top: 5px; + margin-bottom: 2px;t + ext-align: center; + background-color: #90FDFF ;p + adding: 2px; + } + +h6 { font-size : 20pt ; + border: 1px solid #000000; + margin-top: 5px; + margin-bottom: 2px;t + ext-align: center; + background-color: #C0FFFF ; + padding: 2px; + } + +div.h7 { font-size : 20pt ; + border: 1px solid #000000; + margin-top: 5px; + margin-bottom: 2px;t + ext-align: center; + background-color: #E0FFFF ; + padding: 2px; + } + +div.h8 { font-size : 20pt ; + border: 1px solid #000000; + margin-top: 5px; + margin-bottom: 2px;t + ext-align: center; + background-color: #F0FFFF ; + padding: 2px; + } + +div.h9 { font-size : 20pt ; + border: 1px solid #000000; + margin-top: 5px; + margin-bottom: 2px;t + ext-align: center; + background-color: #FFFFFF ; + padding: 2px; + } + +.typetable { border-style : hidden } + +.indextable { border-style : hidden } + +.paramstable { + border-style : hidden ; + padding: 5pt 5pt +} + +tr { + background-color : White + +} +td.typefieldcomment { + background-color : #FFFFFF ; + font-size: smaller ; +} + +pre { + margin-bottom: 4px; + margin-top: 2em; + margin-left: 0em; + font-size: 11pt; +} + +div.sig_block { + margin-left: 2em +} \ No newline at end of file diff --git a/doc/src/main b/doc/src/main new file mode 100644 index 0000000..209583f --- /dev/null +++ b/doc/src/main @@ -0,0 +1,56 @@ +{2 Driver} + +{!modules: Acc Checker Languages Options AnnotationOptions} + +{2 Cminor} + +{!modules: Cminor CminorAnnotator CminorInterpret CminorLabelling + CminorPrinter CminorToRTLabs +} + +{2 Clight} + +{!modules: Clight ClightAnnotator ClightInterpret ClightLabelling + ClightParser ClightPrinter ClightToCminor +} + +{2 RTLabs} + +{!modules: RTLabs RTLabsInterpret RTLabsPrinter RTLabsToRTL} + +{2 RTL} + +{!modules: RTL RTLInterpret RTLPrinter RTLToERTLI RTLToERTL} + +{2 ERTL} + +{!modules: ERTL ERTLInterpret Spill Coloring ERTLPrinter + ERTLToLTLI ERTLToLTL Liveness Uses Zero +} + +{2 LTL} + +{!modules: LTL LTLInterpret LTLPrinter LTLToLINI LTLToLIN} + +{2 LIN} + +{!modules: LIN LINInterpret LINPrinter LINToASM Branch} + +{2 ASM} + +{!modules: ASM ASMInterpret ASMCompute_costs ASMPrinter + MIPSInterpret MIPS MIPSOps PrintOps} + +{2 Language-independent modules} + +{!modules: AST Atom AtomSig CostLabel Label Memory + Primitive PrintPrimitive Register Value Build +} + +{2 General utilities} + +{!modules: OptionsParsing Position Misc Error + Error Fix Integer Interference Misc MiscPottier MyMap + Option Position PrintCFG Print PrintPottier PrioritySet SetMap + StringSig StringTools SyntacticAnalysis UnionFind +} \ No newline at end of file diff --git a/myocamlbuild.ml b/myocamlbuild.ml new file mode 100644 index 0000000..451a8fd --- /dev/null +++ b/myocamlbuild.ml @@ -0,0 +1,59 @@ +open Ocamlbuild_plugin +open Myocamlbuild_config + +let run_and_read = Ocamlbuild_pack.My_unix.run_and_read +let blank_sep_strings = Ocamlbuild_pack.Lexers.blank_sep_strings + +let find_packages () = + blank_sep_strings & + Lexing.from_string & + run_and_read "ocamlfind list | cut -d' ' -f1" + +let find_syntaxes () = ["camlp4o"; "camlp4r"] + +let ocamlfind x = S[A"ocamlfind"; x] + + +let _ = dispatch begin function + | Before_options -> + Options.ocamlc := ocamlfind & A"ocamlc"; + Options.ocamlopt := ocamlfind & A"ocamlopt"; + Options.ocamldep := ocamlfind & A"ocamldep"; + Options.ocamldoc := A"admin/myocamldoc.exe"; + Options.ocamlmktop := ocamlfind & A"ocamlmktop"; + + | After_rules -> + flag ["ocaml"; "link"; "program"] & A"-linkpkg"; + List.iter begin fun pkg -> + flag ["ocaml"; "compile"; "pkg_"^pkg] & S[A"-package"; A pkg]; + flag ["ocaml"; "ocamldep"; "pkg_"^pkg] & S[A"-package"; A pkg]; + flag ["ocaml"; "doc"; "pkg_"^pkg] & S[A"-package"; A pkg]; + flag ["ocaml"; "link"; "pkg_"^pkg] & S[A"-package"; A pkg]; + end (find_packages ()); + List.iter begin fun s -> + flag ["ocaml"; "compile"; "syntax_"^s] & S[A"-syntax"; A s]; + flag ["ocaml"; "ocamldep"; "syntax_"^s] & S[A"-syntax"; A s]; + flag ["ocaml"; "doc"; "syntax_"^s] & S[A"-syntax"; A s]; + end (find_syntaxes ()); + flag ["ocaml"; "pkg_threads"; "compile"] (S[A "-thread"]); + flag ["ocaml"; "pkg_threads"; "link"] (S[A "-thread"]); + + rule "admin/myocamldoc" + ~prod:"admin/myocamldoc.exe" + ~deps:["admin/myocamldoc"] + begin fun _ _ -> + Seq [ cp "admin/myocamldoc" "admin/myocamldoc.exe"; + chmod (A"+rx") "admin/myocamldoc.exe" ] + end; + + dep ["doc"] ["admin/myocamldoc.exe"]; + dep ["doc"; "docdir"; "extension:html"; "ocaml"] [ "doc/src/main" ]; + flag ["doc"; "docdir"; "extension:html"; "ocaml"] + (S[A "-intro"; A "doc/src/main" ]); + flag ["doc"] (S[A "-keep-code"]); + flag ["doc"] (S[A ("-I "^parser_lib)]); + + ocaml_lib ~extern:true ~dir:parser_lib "cparser"; + + | _ -> () +end diff --git a/src/ASM/ASM.mli b/src/ASM/ASM.mli new file mode 100644 index 0000000..46d7d17 --- /dev/null +++ b/src/ASM/ASM.mli @@ -0,0 +1,127 @@ +open BitVectors;; + +type ('a,'b) union2 = [ `U1 of 'a | `U2 of 'b ] +type ('a,'b,'c) union3 = [ `U1 of 'a | `U2 of 'b | `U3 of 'c ] +type ('a,'b,'c,'d,'e,'f) union6 = [ `U1 of 'a | `U2 of 'b | `U3 of 'c | `U4 of 'd | `U5 of 'e | `U6 of 'f ] + +type direct = [ `DIRECT of byte ] +type indirect = [ `INDIRECT of bit ] +type ext_indirect = [ `EXT_INDIRECT of bit ] +type reg = [ `REG of bit * bit * bit ] +type acc = [ `A ] +type b = [ `B ] +type dptr = [ `DPTR ] +type data = [ `DATA of byte ] +type data16 = [ `DATA16 of word ] +type acc_dptr = [ `A_DPTR ] +type acc_pc = [ `A_PC ] +type ext_indirect_dptr = [ `EXT_IND_DPTR ] +type indirect_dptr = [ `IND_DPTR ] +type carry = [ `C ] +type bit = [ `BIT of byte ] +type nbit = [ `NBIT of byte ] +type rel = [ `REL of byte ] +type addr11 = [ `ADDR11 of word11 ] +type addr16 = [ `ADDR16 of word ] + +type 'addr jump = + [ `JC of 'addr + | `JNC of 'addr + | `JB of bit * 'addr + | `JNB of bit * 'addr + | `JBC of bit * 'addr + | `JZ of 'addr + | `JNZ of 'addr + | `CJNE of (acc * [ direct | data ], [ reg | indirect ] * data) union2 * 'addr + | `DJNZ of [ reg | direct ] * 'addr + ] + +type 'addr preinstruction = + (* arithmetic operations *) + [ `ADD of acc * [ reg | direct | indirect | data ] + | `ADDC of acc * [ reg | direct | indirect | data ] + | `SUBB of acc * [ reg | direct | indirect | data ] + | `INC of [ acc | reg | direct | indirect | dptr ] + | `DEC of [ acc | reg | direct | indirect ] + | `MUL of acc * b + | `DIV of acc * b + | `DA of acc + + (* logical operations *) + | `ANL of + (acc * [ reg | direct | indirect | data ], + direct * [ acc | data ], + carry * [ bit | nbit]) union3 + | `ORL of + (acc * [ reg | data | direct | indirect ], + direct * [ acc | data ], + carry * [ bit | nbit]) union3 + | `XRL of + (acc * [ data | reg | direct | indirect ], + direct * [ acc | data ]) union2 + | `CLR of [ acc | carry | bit ] + | `CPL of [ acc | carry | bit ] + | `RL of acc + | `RLC of acc + | `RR of acc + | `RRC of acc + | `SWAP of acc + + (* data transfer *) + | `MOV of + (acc * [ reg | direct | indirect | data ], + [ reg | indirect ] * [ acc | direct | data ], + direct * [ acc | reg | direct | indirect | data ], + dptr * data16, + carry * bit, + bit * carry + ) union6 + | `MOVC of acc * [ acc_dptr | acc_pc ] + | `MOVX of (acc * [ ext_indirect | ext_indirect_dptr ], + [ ext_indirect | ext_indirect_dptr ] * acc) union2 + | `SETB of [ carry | bit ] + | `PUSH of direct + | `POP of direct + | `XCH of acc * [ reg | direct | indirect ] + | `XCHD of acc * indirect + + (* program branching *) + | 'addr jump + | `ACALL of addr11 + | `LCALL of addr16 + | `RET + | `RETI + | `AJMP of addr11 + | `LJMP of addr16 + | `SJMP of rel + | `JMP of indirect_dptr + | `NOP ] + +type instruction = rel preinstruction + +type labelled_instruction = + [ instruction + | `Cost of string + | `Label of string + | `Jmp of string + | `Call of string + | `Mov of dptr * string + | `WithLabel of [`Label of string] jump + ] + +(* pairs *) +type preamble = (string * int) list + +(* has_main currently unused *) +type 'a pretty_program = + { ppreamble : preamble ; + pexit_label : string ; + pcode : 'a list ; + phas_main : bool } + +type program = + { code : BitVectors.byte list ; + cost_labels : string BitVectors.WordMap.t ; + labels : BitVectors.word StringTools.Map.t ; + exit_addr : BitVectors.word ; + has_main : bool } diff --git a/src/ASM/ASMCosts.ml b/src/ASM/ASMCosts.ml new file mode 100644 index 0000000..1ace0ca --- /dev/null +++ b/src/ASM/ASMCosts.ml @@ -0,0 +1,120 @@ + +let error_prefix = "ASMCosts" +let warning s = prerr_endline (error_prefix ^ s) + + +type instruction_nature = + | Goto of BitVectors.word | Branch of BitVectors.word + | Direct_fun_call of BitVectors.word | Return + | Other + +let inst_infos mem pc = + let (inst, next_pc, inst_cost) = ASMInterpret.fetch mem pc in + let (nature, next_pcs) = match inst with + | `LCALL (`ADDR16 addr16) -> (Direct_fun_call addr16, [next_pc]) + | `ACALL (`ADDR11 addr11) -> + (Direct_fun_call (Physical.addr16_of_addr11 pc addr11), [next_pc]) + | `LJMP (`ADDR16 addr16) -> (Goto addr16, [addr16]) + | `AJMP (`ADDR11 addr11) -> + let addr = Physical.addr16_of_addr11 pc addr11 in + (Goto addr, [addr]) + | `SJMP (`REL addr) -> + let _, addr = + BitVectors.half_add next_pc (BitVectors.sign_extension addr) in + (Goto addr, [addr]) + | `JMP idptr -> + (Other, [next_pc]) (* Indirect jump; precondition: every possible + destination should start with its own label *) + | `JC addr + | `JNC addr + | `JB (_,addr) + | `JNB (_,addr) + | `JBC (_,addr) + | `JZ addr + | `JNZ addr + | `CJNE (_,addr) + | `DJNZ (_,addr) -> + let `REL addr = addr in + let _, addr = + BitVectors.half_add next_pc (BitVectors.sign_extension addr) in + (Branch addr, [next_pc ; addr]) + | `RET | `RETI -> (Return, []) + | _ -> (Other, [next_pc]) in + (nature, next_pc, next_pcs, inst_cost) + + +let rec compare = function + | [] -> assert false (* do not use an this argument *) + | [(_, cost)] -> cost + | (pc1, cost1) :: (pc2, cost2) :: l when cost1 <> cost2 -> + warning + (Printf.sprintf + "Warning: branching to %s has cost %d, branching to %s has cost %d" + (string_of_int (BitVectors.int_of_vect pc1)) cost1 + (string_of_int (BitVectors.int_of_vect pc2)) cost2) ; + max cost1 (compare ((pc2, cost2) :: l)) + | _ :: l -> compare l + +let rec block_costl mem costs = function + | [] -> 0 + | [pc] when BitVectors.WordMap.mem pc costs -> 0 + | [pc] -> block_cost mem costs pc + | next_pcs -> + compare (List.map (fun pc -> (pc, block_costl mem costs [pc])) next_pcs) + +and block_cost mem costs pc = + let (_, _, next_pcs, cost) = inst_infos mem pc in + cost + (block_costl mem costs next_pcs) + + +let traverse_code mem p = + let rec aux pc code = + let (_, newpc, _, _) = inst_infos mem pc in + match code with + | [] -> CostLabel.Map.empty + | _::tl when BitVectors.WordMap.mem pc p.ASM.cost_labels -> + let lbl = BitVectors.WordMap.find pc p.ASM.cost_labels in + let cost = block_cost mem p.ASM.cost_labels pc in + let costs_mapping = aux newpc tl in + CostLabel.Map.add lbl cost costs_mapping + | _::tl -> aux newpc tl + in + aux (BitVectors.zero `Sixteen) p.ASM.code + + +let first_cost_label mem costs = + let rec aux oldpc = + if BitVectors.WordMap.mem oldpc costs then + (BitVectors.WordMap.find oldpc costs, 0) + else + let (nature, pc, _, inst_cost) = inst_infos mem oldpc in + match nature with + | Direct_fun_call pc -> + let (lbl, cost) = aux pc in + (lbl, inst_cost + cost) + | Return + | Goto _ + | Branch _ -> + assert false (* no such instructions before calling main *) + | Other -> + let (lbl, cost) = aux pc in + (lbl, inst_cost + cost) + in + aux (BitVectors.zero `Sixteen) + + +let initialize_cost mem costs costs_mapping = + let (lbl, cost) = first_cost_label mem costs in + let old_cost = + if CostLabel.Map.mem lbl costs_mapping then + CostLabel.Map.find lbl costs_mapping + else 0 in + let new_cost = old_cost + cost in + CostLabel.Map.add lbl new_cost costs_mapping + + +let compute p = + let mem = ASMInterpret.load_code_memory p.ASM.code in + let costs_mapping = traverse_code mem p in + if p.ASM.has_main then initialize_cost mem p.ASM.cost_labels costs_mapping + else costs_mapping diff --git a/src/ASM/ASMCosts.mli b/src/ASM/ASMCosts.mli new file mode 100644 index 0000000..8c1917c --- /dev/null +++ b/src/ASM/ASMCosts.mli @@ -0,0 +1,5 @@ + +(** This module defines the cost increment associated to each cost + label of a [ASM] program. *) + +val compute : ASM.program -> int CostLabel.Map.t diff --git a/src/ASM/ASMInterpret.ml b/src/ASM/ASMInterpret.ml new file mode 100644 index 0000000..ae53f2d --- /dev/null +++ b/src/ASM/ASMInterpret.ml @@ -0,0 +1,2028 @@ +open BitVectors;; +open Physical;; +open ASM;; +open IntelHex;; +open Util;; +open Parser;; + +exception Fetch_exception of string;; +exception CodeTooLarge;; +exception Halt;; + +let extract = function + | Some a -> a + | None -> raise (Failure "ASMInterpret.extract") + +type time = int;; +type line = [ `P1 of byte + | `P3 of byte + | `SerialBuff of [ `Eight of byte | `Nine of BitVectors.bit * byte ]];; + +let string_of_line = + function + `P1 b -> + "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n" ^ + "P1 OUTPUT: " ^ hex_string_of_vect b ^ "\n" ^ + "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n" + | `P3 b -> + "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n" ^ + "P2 OUTPUT: " ^ hex_string_of_vect b ^ "\n" ^ + "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n" + | `SerialBuff (`Eight b) -> + "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n" ^ + "SERIAL 8b OUTPUT: " ^ string_of_vect b ^ "\n" ^ + "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n" + | `SerialBuff (`Nine (b, b')) -> + "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n" ^ + "SERIAL 9b OUTPUT: " ^ + (let i = int_of_vect b' in + if b then + string_of_int (128 + i) + else + string_of_int i) ^ + "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n" + +(* In: reception time, line of input, new continuation, + Out: transmission time, output line, expected duration until reply, + new continuation. +*) + +type epsilon = int + +type continuation = + [`In of time * line * epsilon * continuation] option * + [`Out of (time -> line -> time * continuation)] + +let rec debug_continuation = + (Some (`In (1, (`SerialBuff (`Eight (vect_of_int 5 `Eight))), 0, debug_continuation))), `Out ( + fun time line -> + (* let _ = prerr_endline <*> string_of_line $ line in *) + (time + 1),debug_continuation) + +(* no differentiation between internal and external code memory *) +type status = +{ + (* Memory *) + code_memory: Physical.WordMap.map; (* can be reduced *) + low_internal_ram: Byte7Map.map; + high_internal_ram: Byte7Map.map; + external_ram: Physical.WordMap.map; + + (* Program counter *) + pc: word; + + (* SFRs *) + sp: byte; + dpl: byte; + dph: byte; + pcon: byte; + tcon: byte; + tmod: byte; + tl0: byte; + tl1: byte; + th0: byte; + th1: byte; + p1: byte; + scon: byte; + sbuf: byte; + ie: byte; + p3: byte; + ip: byte; + psw: byte; + acc: byte; + b: byte; + t2con: byte; (* 8052 only *) + rcap2l: byte; (* 8052 only *) + rcap2h: byte; (* 8052 only *) + tl2: byte; (* 8052 only *) + th2: byte; (* 8052 only *) + + (* Latches for the output lines *) + p1_latch: byte; + p3_latch: byte; + + (* Fields for tracking the state of the processor. *) + + (* IO specific *) + previous_p1_val: bool; + previous_p3_val: bool; + + serial_epsilon_out: epsilon option; + serial_epsilon_in: epsilon option; + + io_epsilon: epsilon; + + serial_v_in: [`Eight of byte | `Nine of (BitVectors.bit * byte) ] option; + serial_v_out: [`Eight of byte | `Nine of (BitVectors.bit * byte) ] option; + + serial_k_out: continuation option; + + io: continuation; + expected_out_time: [ `None | `Now | `At of time ]; + + (* Timer and clock specific *) + clock: time; + timer0: word; + timer1: word; + timer2: word; (* can be missing *) + + esi_running: bool; + t0i_running: bool; + t1i_running: bool; + e0i_running: bool; + e1i_running: bool; + es_running: bool; + + exit_addr : BitVectors.word; + cost_labels : string BitVectors.WordMap.t +} + +(* Try to understand what DEC really does!!! *) +(* Try to understand I/O *) +let get_sfr status addr from_latch = + match int_of_vect addr with + (* I/O and timer ports *) + 0x80 -> assert false (* P0 not modeled *) + | 0x90 -> + if from_latch then + status.p1_latch + else status.p1 + | 0xA0 -> assert false (* P2 not modeled *) + | 0xB0 -> + if from_latch then + status.p3_latch + else status.p3 + | 0x99 -> status.sbuf + | 0x8A -> status.tl0 + | 0x8B -> status.tl1 + | 0x8C -> status.th0 + | 0x8D -> status.th1 + | 0xC8 -> status.t2con + | 0xCA -> status.rcap2l + | 0xCB -> status.rcap2h + | 0xCC -> status.tl2 + | 0xCD -> status.th2 + + (* control ports *) + | 0x87 -> status.pcon + | 0x88 -> status.tcon + | 0x89 -> status.tmod + | 0x98 -> status.scon + | 0xA8 -> status.ie + | 0xB8 -> status.ip + + (* registers *) + | 0x81 -> status.sp + | 0x82 -> status.dpl + | 0x83 -> status.dph + | 0xD0 -> status.psw + | 0xE0 -> status.acc + | 0xF0 -> status.b + | _ -> assert false +;; + +(* Try to understand I/O *) +let set_sfr status addr v = + match int_of_vect addr with + (* I/O and timer ports *) + 0x80 -> assert false (* P0 not modeled *) + | 0x90 -> { status with p1 = v; p1_latch = v } + | 0xA0 -> assert false (* P2 not modeled *) + | 0xB0 -> { status with p3 = v; p3_latch = v } + | 0x99 -> + if status.expected_out_time = `None then + { status with sbuf = v; expected_out_time = `Now } + else + (* a real assert false: trying to initiate a transmission whilst one is still active *) + assert false + | 0x8A -> { status with tl0 = v } + | 0x8B -> { status with tl1 = v } + | 0x8C -> { status with th0 = v } + | 0x8D -> { status with th1 = v } + | 0xC8 -> { status with t2con = v } + | 0xCA -> { status with rcap2l = v } + | 0xCB -> { status with rcap2h = v } + | 0xCD -> { status with tl2 = v } + | 0xCE -> { status with th2 = v } + + (* control ports *) + | 0x87 -> { status with pcon = v } + | 0x88 -> { status with tcon = v } + | 0x89 -> { status with tmod = v } + | 0x98 -> { status with scon = v } + | 0xA8 -> { status with ie = v } + | 0xB8 -> { status with ip = v } + + (* registers *) + | 0x81 -> { status with sp = v } + | 0x82 -> { status with dpl = v } + | 0x83 -> { status with dph = v } + | 0xD0 -> { status with psw = v } + | 0xE0 -> { status with acc = v } + | 0xF0 -> { status with b = v } + | _ -> assert false +;; + +let initialize = { + code_memory = Physical.WordMap.empty; + low_internal_ram = Byte7Map.empty; + high_internal_ram = Byte7Map.empty; + external_ram = Physical.WordMap.empty; + + pc = zero `Sixteen; + + sp = vect_of_int 7 `Eight; + dpl = zero `Eight; + dph = zero `Eight; + pcon = zero `Eight; + tcon = zero `Eight; + tmod = zero `Eight; + tl0 = zero `Eight; + tl1 = zero `Eight; + th0 = zero `Eight; + th1 = zero `Eight; + p1 = zero `Eight; + p1_latch = zero `Eight; + scon = zero `Eight; + sbuf = zero `Eight; + ie = zero `Eight; + p3 = zero `Eight; + p3_latch = zero `Eight; + ip = zero `Eight; + psw = zero `Eight; + acc = zero `Eight; + b = zero `Eight; + t2con = zero `Eight; + rcap2l = zero `Eight; + rcap2h = zero `Eight; + tl2 = zero `Eight; + th2 = zero `Eight; + + previous_p1_val = false; + previous_p3_val = false; + + serial_v_in = None; + serial_v_out = None; + serial_epsilon_in = None; + serial_epsilon_out = None; + serial_k_out = None; + + io_epsilon = 5; + + clock = 0; + timer0 = zero `Sixteen; + timer1 = zero `Sixteen; + timer2 = zero `Sixteen; + + expected_out_time = `None; + + io = debug_continuation; (* a real assert false: unprepared for i/o *) + + (* Initially no interrupts are executing *) + esi_running = false; + t0i_running = false; + t1i_running = false; + e0i_running = false; + e1i_running = false; + es_running = false; + + exit_addr = BitVectors.zero `Sixteen; + cost_labels = BitVectors.WordMap.empty +} + +let get_cy_flag status = + let (cy,_,_,_),(_,_,_,_) = bits_of_byte status.psw in cy +let get_ac_flag status = + let (_,ac,_,_),(_,_,_,_) = bits_of_byte status.psw in ac +let get_fo_flag status = + let (_,_,fo,_),(_,_,_,_) = bits_of_byte status.psw in fo +let get_rs1_flag status = + let (_,_,_,rs1),(_,_,_,_) = bits_of_byte status.psw in rs1 +let get_rs0_flag status = + let (_,_,_,_),(rs0,_,_,_) = bits_of_byte status.psw in rs0 +let get_ov_flag status = + let (_,_,_,_),(_,ov,_,_) = bits_of_byte status.psw in ov +let get_ud_flag status = + let (_,_,_,_),(_,_,ud,_) = bits_of_byte status.psw in ud +let get_p_flag status = + let (_,_,_,_),(_,_,_,p) = bits_of_byte status.psw in p + +let get_address_of_register status (b1,b2,b3) = + let bu,_bl = from_byte status.psw in + let (_,_,rs1,rs0) = from_nibble bu in + let base = + match rs1,rs0 with + false,false -> 0x00 + | false,true -> 0x08 + | true,false -> 0x10 + | true,true -> 0x18 + in + vect_of_int (base + int_of_vect (mk_nibble false b1 b2 b3)) `Seven +;; + +let get_register status reg = + let addr = get_address_of_register status reg in + Byte7Map.find addr status.low_internal_ram +;; + +let string_of_status status = + let acc_str = (string_of_int <*> int_of_vect $ status.acc) ^ " (" ^ string_of_vect status.acc ^ ")" in + let b_str = (string_of_int <*> int_of_vect $ status.b) ^ " (" ^ string_of_vect status.b ^ ")" in + let psw_str = (string_of_int <*> int_of_vect $ status.psw) ^ " (" ^ string_of_vect status.psw ^ ")" in + let sp_str = (string_of_int <*> int_of_vect $ status.sp) ^ " (" ^ string_of_vect status.sp ^ ")" in + let ip_str = (string_of_int <*> int_of_vect $ status.ip) ^ " (" ^ string_of_vect status.ip ^ ")" in + let pc_str = (string_of_int <*> int_of_vect $ status.pc) ^ " (" ^ string_of_vect status.pc ^ ")" in + let dpl_str = (string_of_int <*> int_of_vect $ status.dpl) ^ " (" ^ string_of_vect status.dpl ^ ")" in + let dph_str = (string_of_int <*> int_of_vect $ status.dph) ^ " (" ^ string_of_vect status.dph ^ ")" in + let scn_str = (string_of_int <*> int_of_vect $ status.scon) ^ " (" ^ string_of_vect status.scon ^ ")" in + let sbf_str = (string_of_int <*> int_of_vect $ status.sbuf) ^ " (" ^ string_of_vect status.sbuf ^ ")" in + let tcn_str = (string_of_int <*> int_of_vect $ status.tcon) ^ " (" ^ string_of_vect status.tcon ^ ")" in + let tmd_str = (string_of_int <*> int_of_vect $ status.tmod) ^ " (" ^ string_of_vect status.tmod ^ ")" in + let r0_str = (string_of_int <*> int_of_vect $ get_register status (false, false, false)) ^ " (" ^ (string_of_vect $ get_register status (false, false, false)) ^ ")" in + let r1_str = (string_of_int <*> int_of_vect $ get_register status (false, false, true)) ^ " (" ^ (string_of_vect $ get_register status (false, false, true)) ^ ")" in + let r2_str = (string_of_int <*> int_of_vect $ get_register status (false, true, false)) ^ " (" ^ (string_of_vect $ get_register status (false, true, false)) ^ ")" in + let r3_str = (string_of_int <*> int_of_vect $ get_register status (false, true, true)) ^ " (" ^ (string_of_vect $ get_register status (false, true, true)) ^ ")" in + let r4_str = (string_of_int <*> int_of_vect $ get_register status (true, false, false)) ^ " (" ^ (string_of_vect $ get_register status (true, false, false)) ^ ")" in + let r5_str = (string_of_int <*> int_of_vect $ get_register status (true, false, true)) ^ " (" ^ (string_of_vect $ get_register status (true, false, true)) ^ ")" in + let r6_str = (string_of_int <*> int_of_vect $ get_register status (true, true, false)) ^ " (" ^ (string_of_vect $ get_register status (true, true, false)) ^ ")" in + let r7_str = (string_of_int <*> int_of_vect $ get_register status (true, true, true)) ^ " (" ^ (string_of_vect $ get_register status (true, true, true)) ^ ")" in + "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n" ^ + " Processor status: \n" ^ + "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n" ^ + " ACC : " ^ acc_str ^ "\n" ^ + " B : " ^ b_str ^ "\n" ^ + " PSW : " ^ psw_str ^ "\n" ^ + " with flags set as \n" ^ + " CY : " ^ (string_of_bool <*> get_cy_flag $ status) ^ "\n" ^ + " AC : " ^ (string_of_bool <*> get_ac_flag $ status) ^ "\n" ^ + " FO : " ^ (string_of_bool <*> get_fo_flag $ status) ^ "\n" ^ + " RS1 : " ^ (string_of_bool <*> get_rs1_flag $ status) ^ "\n" ^ + " RS0 : " ^ (string_of_bool <*> get_rs0_flag $ status) ^ "\n" ^ + " OV : " ^ (string_of_bool <*> get_ov_flag $ status) ^ "\n" ^ + " UD : " ^ (string_of_bool <*> get_ud_flag $ status) ^ "\n" ^ + " P : " ^ (string_of_bool <*> get_p_flag $ status) ^ "\n" ^ + " SP : " ^ sp_str ^ "\n" ^ + " IP : " ^ ip_str ^ "\n" ^ + " PC : " ^ pc_str ^ "\n" ^ + " DPL : " ^ dpl_str ^ "\n" ^ + " DPH : " ^ dph_str ^ "\n" ^ + " SCON: " ^ scn_str ^ "\n" ^ + " SBUF: " ^ sbf_str ^ "\n" ^ + " TMOD: " ^ tmd_str ^ "\n" ^ + " TCON: " ^ tcn_str ^ "\n" ^ + " Registers: \n" ^ + " R0 : " ^ r0_str ^ "\n" ^ + " R1 : " ^ r1_str ^ "\n" ^ + " R2 : " ^ r2_str ^ "\n" ^ + " R3 : " ^ r3_str ^ "\n" ^ + " R4 : " ^ r4_str ^ "\n" ^ + " R5 : " ^ r5_str ^ "\n" ^ + " R6 : " ^ r6_str ^ "\n" ^ + " R7 : " ^ r7_str ^ "\n" ^ + "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\n" + +(* timings taken from SIEMENS *) + +let fetch pmem pc = + let next pc = + let _carry, res = half_add pc (vect_of_int 1 `Sixteen) in + res, Physical.WordMap.find pc pmem + in + let pc,instr = next pc in + let un, ln = from_byte instr in + let bits = (from_nibble un, from_nibble ln) in + match bits with + (a10,a9,a8,true),(false,false,false,true) -> + let pc,b1 = next pc in + `ACALL (`ADDR11 (mk_word11 a10 a9 a8 b1)), pc, 2 + | (false,false,true,false),(true,r1,r2,r3) -> + `ADD (`A,`REG (r1,r2,r3)), pc, 1 + | (false,false,true,false),(false,true,false,true) -> + let pc,b1 = next pc in + `ADD (`A,`DIRECT b1), pc, 1 + | (false,false,true,false),(false,true,true,i1) -> + `ADD (`A,`INDIRECT i1), pc, 1 + | (false,false,true,false),(false,true,false,false) -> + let pc,b1 = next pc in + `ADD (`A,`DATA b1), pc, 1 + | (false,false,true,true),(true,r1,r2,r3) -> + `ADDC (`A,`REG (r1,r2,r3)), pc, 1 + | (false,false,true,true),(false,true,false,true) -> + let pc,b1 = next pc in + `ADDC (`A,`DIRECT b1), pc, 1 + | (false,false,true,true),(false,true,true,i1) -> + `ADDC (`A,`INDIRECT i1), pc, 1 + | (false,false,true,true),(false,true,false,false) -> + let pc,b1 = next pc in + `ADDC (`A,`DATA b1), pc, 1 + | (a10,a9,a8,false),(false,false,false,true) -> + let pc,b1 = next pc in + `AJMP (`ADDR11 (mk_word11 a10 a9 a8 b1)), pc, 2 + | (false,true,false,true),(true,r1,r2,r3) -> + `ANL (`U1 (`A, `REG (r1,r2,r3))), pc, 1 + | (false,true,false,true),(false,true,false,true) -> + let pc,b1 = next pc in + `ANL (`U1 (`A, `DIRECT b1)), pc, 1 + | (false,true,false,true),(false,true,true,i1) -> + `ANL (`U1 (`A, `INDIRECT i1)), pc, 1 + | (false,true,false,true),(false,true,false,false) -> + let pc,b1 = next pc in + `ANL (`U1 (`A, `DATA b1)), pc, 1 + | (false,true,false,true),(false,false,true,false) -> + let pc,b1 = next pc in + `ANL (`U2 (`DIRECT b1,`A)), pc, 1 + | (false,true,false,true),(false,false,true,true) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `ANL (`U2 (`DIRECT b1,`DATA b2)), pc, 2 + | (true,false,false,false),(false,false,true,false) -> + let pc,b1 = next pc in + `ANL (`U3 (`C,`BIT b1)), pc, 2 + | (true,false,true,true),(false,false,false,false) -> + let pc,b1 = next pc in + `ANL (`U3 (`C,`NBIT b1)), pc, 2 + | (true,false,true,true),(false,true,false,true) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `CJNE (`U1 (`A, `DIRECT b1), `REL b2), pc, 2 + | (true,false,true,true),(false,true,false,false) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `CJNE (`U1 (`A, `DATA b1), `REL b2), pc, 2 + | (true,false,true,true),(true,r1,r2,r3) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `CJNE (`U2 (`REG(r1,r2,r3), `DATA b1), `REL b2), pc, 2 + | (true,false,true,true),(false,true,true,i1) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `CJNE (`U2 (`INDIRECT i1, `DATA b1), `REL b2), pc, 2 + | (true,true,true,false),(false,true,false,false) -> + `CLR `A, pc, 1 + | (true,true,false,false),(false,false,true,true) -> + `CLR `C, pc, 1 + | (true,true,false,false),(false,false,true,false) -> + let pc,b1 = next pc in + `CLR (`BIT b1), pc, 1 + | (true,true,true,true),(false,true,false,false) -> + `CPL `A, pc, 1 + | (true,false,true,true),(false,false,true,true) -> + `CPL `C, pc, 1 + | (true,false,true,true),(false,false,true,false) -> + let pc,b1 = next pc in + `CPL (`BIT b1), pc, 1 + | (true,true,false,true),(false,true,false,false) -> + `DA `A, pc, 1 + | (false,false,false,true),(false,true,false,false) -> + `DEC `A, pc, 1 + | (false,false,false,true),(true,r1,r2,r3) -> + `DEC (`REG(r1,r2,r3)), pc, 1 + | (false,false,false,true),(false,true,false,true) -> + let pc,b1 = next pc in + `DEC (`DIRECT b1), pc, 1 + | (false,false,false,true),(false,true,true,i1) -> + `DEC (`INDIRECT i1), pc, 1 + | (true,false,false,false),(false,true,false,false) -> + `DIV (`A, `B), pc, 4 + | (true,true,false,true),(true,r1,r2,r3) -> + let pc,b1 = next pc in + `DJNZ (`REG(r1,r2,r3), `REL b1), pc, 2 + | (true,true,false,true),(false,true,false,true) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `DJNZ (`DIRECT b1, `REL b2), pc, 2 + | (false,false,false,false),(false,true,false,false) -> + `INC `A, pc, 1 + | (false,false,false,false),(true,r1,r2,r3) -> + `INC (`REG(r1,r2,r3)), pc, 1 + | (false,false,false,false),(false,true,false,true) -> + let pc,b1 = next pc in + `INC (`DIRECT b1), pc, 1 + | (false,false,false,false),(false,true,true,i1) -> + `INC (`INDIRECT i1), pc, 1 + | (true,false,true,false),(false,false,true,true) -> + `INC `DPTR, pc, 2 + | (false,false,true,false),(false,false,false,false) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `JB (`BIT b1, `REL b2), pc, 2 + | (false,false,false,true),(false,false,false,false) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `JBC (`BIT b1, `REL b2), pc, 2 + | (false,true,false,false),(false,false,false,false) -> + let pc,b1 = next pc in + `JC (`REL b1), pc, 2 + | (false,true,true,true),(false,false,true,true) -> + `JMP `IND_DPTR, pc, 2 + | (false,false,true,true),(false,false,false,false) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `JNB (`BIT b1, `REL b2), pc, 2 + | (false,true,false,true),(false,false,false,false) -> + let pc,b1 = next pc in + `JNC (`REL b1), pc, 2 + | (false,true,true,true),(false,false,false,false) -> + let pc,b1 = next pc in + `JNZ (`REL b1), pc, 2 + | (false,true,true,false),(false,false,false,false) -> + let pc,b1 = next pc in + `JZ (`REL b1), pc, 2 + | (false,false,false,true),(false,false,true,false) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `LCALL (`ADDR16 (mk_word b1 b2)), pc, 2 + | (false,false,false,false),(false,false,true,false) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `LJMP (`ADDR16 (mk_word b1 b2)), pc, 2 + | (true,true,true,false),(true,r1,r2,r3) -> + `MOV (`U1 (`A, `REG(r1,r2,r3))), pc, 1 + | (true,true,true,false),(false,true,false,true) -> + let pc,b1 = next pc in + `MOV (`U1 (`A, `DIRECT b1)), pc, 1 + | (true,true,true,false),(false,true,true,i1) -> + `MOV (`U1 (`A, `INDIRECT i1)), pc, 1 + | (false,true,true,true),(false,true,false,false) -> + let pc,b1 = next pc in + `MOV (`U1 (`A, `DATA b1)), pc, 1 + | (true,true,true,true),(true,r1,r2,r3) -> + `MOV (`U2 (`REG(r1,r2,r3), `A)), pc, 1 + | (true,false,true,false),(true,r1,r2,r3) -> + let pc,b1 = next pc in + `MOV (`U2 (`REG(r1,r2,r3), (`DIRECT b1))), pc, 2 + | (false,true,true,true),(true,r1,r2,r3) -> + let pc,b1 = next pc in + `MOV (`U2 (`REG(r1,r2,r3), (`DATA b1))), pc, 1 + | (true,true,true,true),(false,true,false,true) -> + let pc,b1 = next pc in + `MOV (`U3 (`DIRECT b1, `A)), pc, 1 + | (true,false,false,false),(true,r1,r2,r3) -> + let pc,b1 = next pc in + `MOV (`U3 (`DIRECT b1, `REG(r1,r2,r3))), pc, 2 + | (true,false,false,false),(false,true,false,true) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `MOV (`U3 (`DIRECT b1, `DIRECT b2)), pc, 2 + | (true,false,false,false),(false,true,true,i1) -> + let pc,b1 = next pc in + `MOV (`U3 (`DIRECT b1, `INDIRECT i1)), pc, 2 + | (false,true,true,true),(false,true,false,true) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `MOV (`U3 (`DIRECT b1, `DATA b2)), pc, 3 + | (true,true,true,true),(false,true,true,i1) -> + `MOV (`U2 (`INDIRECT i1, `A)), pc, 1 + | (true,false,true,false),(false,true,true,i1) -> + let pc,b1 = next pc in + `MOV (`U2 (`INDIRECT i1, `DIRECT b1)), pc, 2 + | (false,true,true,true),(false,true,true,i1) -> + let pc,b1 = next pc in + `MOV (`U2 (`INDIRECT i1, `DATA b1)), pc, 1 + | (true,false,true,false),(false,false,true,false) -> + let pc,b1 = next pc in + `MOV (`U5 (`C, `BIT b1)), pc, 1 + | (true,false,false,true),(false,false,true,false) -> + let pc,b1 = next pc in + `MOV (`U6 (`BIT b1, `C)), pc, 2 + | (true,false,false,true),(false,false,false,false) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `MOV (`U4 (`DPTR, `DATA16(mk_word b1 b2))), pc, 2 + | (true,false,false,true),(false,false,true,true) -> + `MOVC (`A, `A_DPTR), pc, 2 + | (true,false,false,false),(false,false,true,true) -> + `MOVC (`A, `A_PC), pc, 2 + | (true,true,true,false),(false,false,true,i1) -> + `MOVX (`U1 (`A, `EXT_INDIRECT i1)), pc, 2 + | (true,true,true,false),(false,false,false,false) -> + `MOVX (`U1 (`A, `EXT_IND_DPTR)), pc, 2 + | (true,true,true,true),(false,false,true,i1) -> + `MOVX (`U2 (`EXT_INDIRECT i1, `A)), pc, 2 + | (true,true,true,true),(false,false,false,false) -> + `MOVX (`U2 (`EXT_IND_DPTR, `A)), pc, 2 + | (true,false,true,false),(false,true,false,false) -> + `MUL(`A, `B), pc, 4 + | (false,false,false,false),(false,false,false,false) -> + `NOP, pc, 1 + | (false,true,false,false),(true,r1,r2,r3) -> + `ORL (`U1(`A, `REG(r1,r2,r3))), pc, 1 + | (false,true,false,false),(false,true,false,true) -> + let pc,b1 = next pc in + `ORL (`U1(`A, `DIRECT b1)), pc, 1 + | (false,true,false,false),(false,true,true,i1) -> + `ORL (`U1(`A, `INDIRECT i1)), pc, 1 + | (false,true,false,false),(false,true,false,false) -> + let pc,b1 = next pc in + `ORL (`U1(`A, `DATA b1)), pc, 1 + | (false,true,false,false),(false,false,true,false) -> + let pc,b1 = next pc in + `ORL (`U2(`DIRECT b1, `A)), pc, 1 + | (false,true,false,false),(false,false,true,true) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `ORL (`U2 (`DIRECT b1, `DATA b2)), pc, 2 + | (false,true,true,true),(false,false,true,false) -> + let pc,b1 = next pc in + `ORL (`U3 (`C, `BIT b1)), pc, 2 + | (true,false,true,false),(false,false,false,false) -> + let pc,b1 = next pc in + `ORL (`U3 (`C, `NBIT b1)), pc, 2 + | (true,true,false,true),(false,false,false,false) -> + let pc,b1 = next pc in + `POP (`DIRECT b1), pc, 2 + | (true,true,false,false),(false,false,false,false) -> + let pc,b1 = next pc in + `PUSH (`DIRECT b1), pc, 2 + | (false,false,true,false),(false,false,true,false) -> + `RET, pc, 2 + | (false,false,true,true),(false,false,true,false) -> + `RETI, pc, 2 + | (false,false,true,false),(false,false,true,true) -> + `RL `A, pc, 1 + | (false,false,true,true),(false,false,true,true) -> + `RLC `A, pc, 1 + | (false,false,false,false),(false,false,true,true) -> + `RR `A, pc, 1 + | (false,false,false,true),(false,false,true,true) -> + `RRC `A, pc, 1 + | (true,true,false,true),(false,false,true,true) -> + `SETB `C, pc, 1 + | (true,true,false,true),(false,false,true,false) -> + let pc,b1 = next pc in + `SETB (`BIT b1), pc, 1 + | (true,false,false,false),(false,false,false,false) -> + let pc,b1 = next pc in + `SJMP (`REL b1), pc, 2 + | (true,false,false,true),(true,r1,r2,r3) -> + `SUBB (`A, `REG(r1,r2,r3)), pc, 1 + | (true,false,false,true),(false,true,false,true) -> + let pc,b1 = next pc in + `SUBB (`A, `DIRECT b1), pc, 1 + | (true,false,false,true),(false,true,true,i1) -> + `SUBB (`A, `INDIRECT i1), pc, 1 + | (true,false,false,true),(false,true,false,false) -> + let pc,b1 = next pc in + `SUBB (`A, `DATA b1), pc, 1 + | (true,true,false,false),(false,true,false,false) -> + `SWAP `A, pc, 1 + | (true,true,false,false),(true,r1,r2,r3) -> + `XCH (`A, `REG(r1,r2,r3)), pc, 1 + | (true,true,false,false),(false,true,false,true) -> + let pc,b1 = next pc in + `XCH (`A, `DIRECT b1), pc, 1 + | (true,true,false,false),(false,true,true,i1) -> + `XCH (`A, `INDIRECT i1), pc, 1 + | (true,true,false,true),(false,true,true,i1) -> + `XCHD(`A, `INDIRECT i1), pc, 1 + | (false,true,true,false),(true,r1,r2,r3) -> + `XRL(`U1(`A, `REG(r1,r2,r3))), pc, 1 + | (false,true,true,false),(false,true,false,true) -> + let pc,b1 = next pc in + `XRL(`U1(`A, `DIRECT b1)), pc, 1 + | (false,true,true,false),(false,true,true,i1) -> + `XRL(`U1(`A, `INDIRECT i1)), pc, 1 + | (false,true,true,false),(false,true,false,false) -> + let pc,b1 = next pc in + `XRL(`U1(`A, `DATA b1)), pc, 1 + | (false,true,true,false),(false,false,true,false) -> + let pc,b1 = next pc in + `XRL(`U2(`DIRECT b1, `A)), pc, 1 + | (false,true,true,false),(false,false,true,true) -> + let pc,b1 = next pc in + let pc,b2 = next pc in + `XRL(`U2(`DIRECT b1, `DATA b2)), pc, 2 + | (true,false,true,false),(false,true,false,true) -> + (* undefined opcode *) assert false +;; + +let assembly1 = + function + `ACALL (`ADDR11 w) -> + let (a10,a9,a8,b1) = from_word11 w in + [mk_byte_from_bits ((a10,a9,a8,true),(false,false,false,true)); b1] + | `ADD (`A,`REG (r1,r2,r3)) -> + [mk_byte_from_bits ((false,false,true,false),(true,r1,r2,r3))] + | `ADD (`A, `DIRECT b1) -> + [mk_byte_from_bits ((false,false,true,false),(false,true,false,true)); b1] + | `ADD (`A, `INDIRECT i1) -> + [mk_byte_from_bits ((false,false,true,false),(false,true,true,i1))] + | `ADD (`A, `DATA b1) -> + [mk_byte_from_bits ((false,false,true,false),(false,true,false,false)); b1] + | `ADDC (`A, `REG(r1,r2,r3)) -> + [mk_byte_from_bits ((false,false,true,true),(true,r1,r2,r3))] + | `ADDC (`A, `DIRECT b1) -> + [mk_byte_from_bits ((false,false,true,true),(false,true,false,true)); b1] + | `ADDC (`A,`INDIRECT i1) -> + [mk_byte_from_bits ((false,false,true,true),(false,true,true,i1))] + | `ADDC (`A,`DATA b1) -> + [mk_byte_from_bits ((false,false,true,true),(false,true,false,false)); b1] + | `AJMP (`ADDR11 w) -> + let (a10,a9,a8,b1) = from_word11 w in + [mk_byte_from_bits ((a10,a9,a8,false),(false,false,false,true)); b1] + | `ANL (`U1 (`A, `REG (r1,r2,r3))) -> + [mk_byte_from_bits ((false,true,false,true),(true,r1,r2,r3))] + | `ANL (`U1 (`A, `DIRECT b1)) -> + [mk_byte_from_bits ((false,true,false,true),(false,true,false,true)); b1] + | `ANL (`U1 (`A, `INDIRECT i1)) -> + [mk_byte_from_bits ((false,true,false,true),(false,true,true,i1))] + | `ANL (`U1 (`A, `DATA b1)) -> + [mk_byte_from_bits ((false,true,false,true),(false,true,false,false)); b1] + | `ANL (`U2 (`DIRECT b1,`A)) -> + [mk_byte_from_bits ((false,true,false,true),(false,false,true,false)); b1] + | `ANL (`U2 (`DIRECT b1,`DATA b2)) -> + [mk_byte_from_bits ((false,true,false,true),(false,false,true,true)); b1; b2] + | `ANL (`U3 (`C,`BIT b1)) -> + [mk_byte_from_bits ((true,false,false,false),(false,false,true,false)); b1] + | `ANL (`U3 (`C,`NBIT b1)) -> + [mk_byte_from_bits ((true,false,true,true),(false,false,false,false)); b1] + | `CJNE (`U1 (`A, `DIRECT b1), `REL b2) -> + [mk_byte_from_bits ((true,false,true,true),(false,true,false,true)); b1; b2] + | `CJNE (`U1 (`A, `DATA b1), `REL b2) -> + [mk_byte_from_bits ((true,false,true,true),(false,true,false,false)); b1; b2] + | `CJNE (`U2 (`REG(r1,r2,r3), `DATA b1), `REL b2) -> + [mk_byte_from_bits ((true,false,true,true),(true,r1,r2,r3)); b1; b2] + | `CJNE (`U2 (`INDIRECT i1, `DATA b1), `REL b2) -> + [mk_byte_from_bits ((true,false,true,true),(false,true,true,i1)); b1; b2] + | `CLR `A -> + [mk_byte_from_bits ((true,true,true,false),(false,true,false,false))] + | `CLR `C -> + [mk_byte_from_bits ((true,true,false,false),(false,false,true,true))] + | `CLR (`BIT b1) -> + [mk_byte_from_bits ((true,true,false,false),(false,false,true,false)); b1] + | `CPL `A -> + [mk_byte_from_bits ((true,true,true,true),(false,true,false,false))] + | `CPL `C -> + [mk_byte_from_bits ((true,false,true,true),(false,false,true,true))] + | `CPL (`BIT b1) -> + [mk_byte_from_bits ((true,false,true,true),(false,false,true,false)); b1] + | `DA `A -> + [mk_byte_from_bits ((true,true,false,true),(false,true,false,false))] + | `DEC `A -> + [mk_byte_from_bits ((false,false,false,true),(false,true,false,false))] + | `DEC (`REG(r1,r2,r3)) -> + [mk_byte_from_bits ((false,false,false,true),(true,r1,r2,r3))] + | `DEC (`DIRECT b1) -> + [mk_byte_from_bits ((false,false,false,true),(false,true,false,true)); b1] + | `DEC (`INDIRECT i1) -> + [mk_byte_from_bits ((false,false,false,true),(false,true,true,i1))] + | `DIV (`A, `B) -> + [mk_byte_from_bits ((true,false,false,false),(false,true,false,false))] + | `DJNZ (`REG(r1,r2,r3), `REL b1) -> + [mk_byte_from_bits ((true,true,false,true),(true,r1,r2,r3)); b1] + | `DJNZ (`DIRECT b1, `REL b2) -> + [mk_byte_from_bits ((true,true,false,true),(false,true,false,true)); b1; b2] + | `INC `A -> + [mk_byte_from_bits ((false,false,false,false),(false,true,false,false))] + | `INC (`REG(r1,r2,r3)) -> + [mk_byte_from_bits ((false,false,false,false),(true,r1,r2,r3))] + | `INC (`DIRECT b1) -> + [mk_byte_from_bits ((false,false,false,false),(false,true,false,true)); b1] + | `INC (`INDIRECT i1) -> + [mk_byte_from_bits ((false,false,false,false),(false,true,true,i1))] + | `INC `DPTR -> + [mk_byte_from_bits ((true,false,true,false),(false,false,true,true))] + | `JB (`BIT b1, `REL b2) -> + [mk_byte_from_bits ((false,false,true,false),(false,false,false,false)); b1; b2] + | `JBC (`BIT b1, `REL b2) -> + [mk_byte_from_bits ((false,false,false,true),(false,false,false,false)); b1; b2] + | `JC (`REL b1) -> + [mk_byte_from_bits ((false,true,false,false),(false,false,false,false)); b1] + | `JMP `IND_DPTR -> + [mk_byte_from_bits ((false,true,true,true),(false,false,true,true))] + | `JNB (`BIT b1, `REL b2) -> + [mk_byte_from_bits ((false,false,true,true),(false,false,false,false)); b1; b2] + | `JNC (`REL b1) -> + [mk_byte_from_bits ((false,true,false,true),(false,false,false,false)); b1] + | `JNZ (`REL b1) -> + [mk_byte_from_bits ((false,true,true,true),(false,false,false,false)); b1] + | `JZ (`REL b1) -> + [mk_byte_from_bits ((false,true,true,false),(false,false,false,false)); b1] + | `LCALL (`ADDR16 w) -> + let (b1,b2) = from_word w in + [mk_byte_from_bits ((false,false,false,true),(false,false,true,false)); b1; b2] + | `LJMP (`ADDR16 w) -> + let (b1,b2) = from_word w in + [mk_byte_from_bits ((false,false,false,false),(false,false,true,false)); b1; b2] + | `MOV (`U1 (`A, `REG(r1,r2,r3))) -> + [mk_byte_from_bits ((true,true,true,false),(true,r1,r2,r3))] + | `MOV (`U1 (`A, `DIRECT b1)) -> + [mk_byte_from_bits ((true,true,true,false),(false,true,false,true)); b1] + | `MOV (`U1 (`A, `INDIRECT i1)) -> + [mk_byte_from_bits ((true,true,true,false),(false,true,true,i1))] + | `MOV (`U1 (`A, `DATA b1)) -> + [mk_byte_from_bits ((false,true,true,true),(false,true,false,false)); b1] + | `MOV (`U2 (`REG(r1,r2,r3), `A)) -> + [mk_byte_from_bits ((true,true,true,true),(true,r1,r2,r3))] + | `MOV (`U2 (`REG(r1,r2,r3), (`DIRECT b1))) -> + [mk_byte_from_bits ((true,false,true,false),(true,r1,r2,r3)); b1] + | `MOV (`U2 (`REG(r1,r2,r3), (`DATA b1))) -> + [mk_byte_from_bits ((false,true,true,true),(true,r1,r2,r3)); b1] + | `MOV (`U3 (`DIRECT b1, `A)) -> + [mk_byte_from_bits ((true,true,true,true),(false,true,false,true)); b1] + | `MOV (`U3 (`DIRECT b1, `REG(r1,r2,r3))) -> + [mk_byte_from_bits ((true,false,false,false),(true,r1,r2,r3)); b1] + | `MOV (`U3 (`DIRECT b1, `DIRECT b2)) -> + [mk_byte_from_bits ((true,false,false,false),(false,true,false,true)); b1; b2] + | `MOV (`U3 (`DIRECT b1, `INDIRECT i1)) -> + [mk_byte_from_bits ((true,false,false,false),(false,true,true,i1)); b1] + | `MOV (`U3 (`DIRECT b1, `DATA b2)) -> + [mk_byte_from_bits ((false,true,true,true),(false,true,false,true)); b1; b2] + | `MOV (`U2 (`INDIRECT i1, `A)) -> + [mk_byte_from_bits ((true,true,true,true),(false,true,true,i1))] + | `MOV (`U2 (`INDIRECT i1, `DIRECT b1)) -> + [mk_byte_from_bits ((true,false,true,false),(false,true,true,i1)); b1] + | `MOV (`U2 (`INDIRECT i1, `DATA b1)) -> + [mk_byte_from_bits ((false,true,true,true),(false,true,true,i1)); b1] + | `MOV (`U5 (`C, `BIT b1)) -> + [mk_byte_from_bits ((true,false,true,false),(false,false,true,false)); b1] + | `MOV (`U6 (`BIT b1, `C)) -> + [mk_byte_from_bits ((true,false,false,true),(false,false,true,false)); b1] + | `MOV (`U4 (`DPTR, `DATA16 w)) -> + let (b1,b2) = from_word w in + [mk_byte_from_bits ((true,false,false,true),(false,false,false,false)); b1; b2] + | `MOVC (`A, `A_DPTR) -> + [mk_byte_from_bits ((true,false,false,true),(false,false,true,true))] + | `MOVC (`A, `A_PC) -> + [mk_byte_from_bits ((true,false,false,false),(false,false,true,true))] + | `MOVX (`U1 (`A, `EXT_INDIRECT i1)) -> + [mk_byte_from_bits ((true,true,true,false),(false,false,true,i1))] + | `MOVX (`U1 (`A, `EXT_IND_DPTR)) -> + [mk_byte_from_bits ((true,true,true,false),(false,false,false,false))] + | `MOVX (`U2 (`EXT_INDIRECT i1, `A)) -> + [mk_byte_from_bits ((true,true,true,true),(false,false,true,i1))] + | `MOVX (`U2 (`EXT_IND_DPTR, `A)) -> + [mk_byte_from_bits ((true,true,true,true),(false,false,false,false))] + | `MUL(`A, `B) -> + [mk_byte_from_bits ((true,false,true,false),(false,true,false,false))] + | `NOP -> + [mk_byte_from_bits ((false,false,false,false),(false,false,false,false))] + | `ORL (`U1(`A, `REG(r1,r2,r3))) -> + [mk_byte_from_bits ((false,true,false,false),(true,r1,r2,r3))] + | `ORL (`U1(`A, `DIRECT b1)) -> + [mk_byte_from_bits ((false,true,false,false),(false,true,false,true)); b1] + | `ORL (`U1(`A, `INDIRECT i1)) -> + [mk_byte_from_bits ((false,true,false,false),(false,true,true,i1))] + | `ORL (`U1(`A, `DATA b1)) -> + [mk_byte_from_bits ((false,true,false,false),(false,true,false,false)); b1] + | `ORL (`U2(`DIRECT b1, `A)) -> + [mk_byte_from_bits ((false,true,false,false),(false,false,true,false)); b1] + | `ORL (`U2 (`DIRECT b1, `DATA b2)) -> + [mk_byte_from_bits ((false,true,false,false),(false,false,true,true)); b1; b2] + | `ORL (`U3 (`C, `BIT b1)) -> + [mk_byte_from_bits ((false,true,true,true),(false,false,true,false)); b1] + | `ORL (`U3 (`C, `NBIT b1)) -> + [mk_byte_from_bits ((true,false,true,false),(false,false,false,false)); b1] + | `POP (`DIRECT b1) -> + [mk_byte_from_bits ((true,true,false,true),(false,false,false,false)); b1] + | `PUSH (`DIRECT b1) -> + [mk_byte_from_bits ((true,true,false,false),(false,false,false,false)); b1] + | `RET -> + [mk_byte_from_bits ((false,false,true,false),(false,false,true,false))] + | `RETI -> + [mk_byte_from_bits ((false,false,true,true),(false,false,true,false))] + | `RL `A -> + [mk_byte_from_bits ((false,false,true,false),(false,false,true,true))] + | `RLC `A -> + [mk_byte_from_bits ((false,false,true,true),(false,false,true,true))] + | `RR `A -> + [mk_byte_from_bits ((false,false,false,false),(false,false,true,true))] + | `RRC `A -> + [mk_byte_from_bits ((false,false,false,true),(false,false,true,true))] + | `SETB `C -> + [mk_byte_from_bits ((true,true,false,true),(false,false,true,true))] + | `SETB (`BIT b1) -> + [mk_byte_from_bits ((true,true,false,true),(false,false,true,false)); b1] + | `SJMP (`REL b1) -> + [mk_byte_from_bits ((true,false,false,false),(false,false,false,false)); b1] + | `SUBB (`A, `REG(r1,r2,r3)) -> + [mk_byte_from_bits ((true,false,false,true),(true,r1,r2,r3))] + | `SUBB (`A, `DIRECT b1) -> + [mk_byte_from_bits ((true,false,false,true),(false,true,false,true)); b1] + | `SUBB (`A, `INDIRECT i1) -> + [mk_byte_from_bits ((true,false,false,true),(false,true,true,i1))] + | `SUBB (`A, `DATA b1) -> + [mk_byte_from_bits ((true,false,false,true),(false,true,false,false)); b1] + | `SWAP `A -> + [mk_byte_from_bits ((true,true,false,false),(false,true,false,false))] + | `XCH (`A, `REG(r1,r2,r3)) -> + [mk_byte_from_bits ((true,true,false,false),(true,r1,r2,r3))] + | `XCH (`A, `DIRECT b1) -> + [mk_byte_from_bits ((true,true,false,false),(false,true,false,true)); b1] + | `XCH (`A, `INDIRECT i1) -> + [mk_byte_from_bits ((true,true,false,false),(false,true,true,i1))] + | `XCHD(`A, `INDIRECT i1) -> + [mk_byte_from_bits ((true,true,false,true),(false,true,true,i1))] + | `XRL(`U1(`A, `REG(r1,r2,r3))) -> + [mk_byte_from_bits ((false,true,true,false),(true,r1,r2,r3))] + | `XRL(`U1(`A, `DIRECT b1)) -> + [mk_byte_from_bits ((false,true,true,false),(false,true,false,true)); b1] + | `XRL(`U1(`A, `INDIRECT i1)) -> + [mk_byte_from_bits ((false,true,true,false),(false,true,true,i1))] + | `XRL(`U1(`A, `DATA b1)) -> + [mk_byte_from_bits ((false,true,true,false),(false,true,false,false)); b1] + | `XRL(`U2(`DIRECT b1, `A)) -> + [mk_byte_from_bits ((false,true,true,false),(false,false,true,false)); b1] + | `XRL(`U2(`DIRECT b1, `DATA b2)) -> + [mk_byte_from_bits ((false,true,true,false),(false,false,true,true)); b1; b2] +;; + +let load_code_memory = MiscPottier.foldi (fun i mem v -> Physical.WordMap.add (vect_of_int i `Sixteen) v mem) Physical.WordMap.empty + +let load_mem mem status = { status with code_memory = mem } +let load l = load_mem (load_code_memory l) + +let assembly_jump addr_of = + function + `JC a1 -> `JC (addr_of a1) + | `JNC a1 -> `JNC (addr_of a1) + | `JB (a1,a2) -> `JB (a1,addr_of a2) + | `JNB (a1,a2) -> `JNB (a1,addr_of a2) + | `JBC (a1,a2) -> `JBC (a1,addr_of a2) + | `JZ a1 -> `JZ (addr_of a1) + | `JNZ a1 -> `JNZ (addr_of a1) + | `CJNE (a1,a2) -> `CJNE (a1,addr_of a2) + | `DJNZ (a1,a2) -> `DJNZ (a1,addr_of a2) +;; + +let assembly p = + let datalabels,_ = + List.fold_left + (fun (datalabels,addr) (name,size) -> + let addr16 = vect_of_int addr `Sixteen in + StringTools.Map.add name addr16 datalabels, addr+size + ) (StringTools.Map.empty,0) p.ASM.ppreamble + in + let pc,exit_addr,labels,costs = + List.fold_left + (fun (pc,exit_addr,labels,costs) i -> + match i with + `Label s when s = p.ASM.pexit_label -> pc, pc, StringTools.Map.add s pc labels, costs + | `Label s -> pc, exit_addr, StringTools.Map.add s pc labels, costs + | `Cost s -> pc, exit_addr, labels, BitVectors.WordMap.add pc s costs + | `Mov (_,_) -> (snd (half_add pc (vect_of_int 3 `Sixteen))), exit_addr, labels, costs + | `Jmp _ + | `Call _ -> (snd (half_add pc (BitVectors.vect_of_int 3 `Sixteen))), exit_addr, labels, costs + (*CSC: very stupid: always expand to worst opcode *) + | `WithLabel i -> + let fake_addr _ = `REL (zero `Eight) in + let fake_jump = assembly_jump fake_addr i in + let i',pc',_ = fetch (load_code_memory (assembly1 fake_jump)) (vect_of_int 0 `Sixteen) in + assert (fake_jump = i'); + let pc' = snd (half_add pc' (vect_of_int 5 `Sixteen)) in + (snd (half_add pc pc'), exit_addr, labels, costs) + | #instruction as i -> + let i',pc',_ = fetch (load_code_memory (assembly1 i)) (vect_of_int 0 `Sixteen) in + assert (i = i'); + (snd (half_add pc pc'),exit_addr,labels, costs) + ) + (BitVectors.zero `Sixteen,BitVectors.zero `Sixteen, + StringTools.Map.empty, BitVectors.WordMap.empty) p.ASM.pcode + in + let code = + List.flatten (List.map + (function + `Label _ + | `Cost _ -> [] + | `WithLabel i -> + (* We need to expand a conditional jump to a label to a machine language + conditional jump. Suppose we have: + JC label + This should be expanded to: + JC 2 -- size of a short jump + SJMP 3 -- size of a long jump + LJMP offset -- offset = position of label in code + And, for ever label appearing after the location of the jump in code + memory, we must increment by 5, as we added two new instructions. *) + let to_ljmp = `REL (vect_of_int 2 `Eight) in + (* let offset = 5 in *) + let jmp_address, translated_jump = + match i with + `JC (`Label a) -> + let address = StringTools.Map.find a labels in + let reconstructed = `JC to_ljmp in + address, reconstructed + | `JNC (`Label a) -> + let address = StringTools.Map.find a labels in + let reconstructed = `JNC to_ljmp in + address, reconstructed + | `JB (b, `Label a) -> + let address = StringTools.Map.find a labels in + let reconstructed = `JB (b, to_ljmp) in + address, reconstructed + | `JNB (b, `Label a) -> + let address = StringTools.Map.find a labels in + let reconstructed = `JNB (b, to_ljmp) in + address, reconstructed + | `JBC (b, `Label a) -> + let address = StringTools.Map.find a labels in + let reconstructed = `JBC (b, to_ljmp) in + address, reconstructed + | `JZ (`Label a) -> + let address = StringTools.Map.find a labels in + let reconstructed = `JZ (to_ljmp) in + address, reconstructed + | `JNZ (`Label a) -> + let address = StringTools.Map.find a labels in + let reconstructed = `JNZ (to_ljmp) in + address, reconstructed + | `CJNE (args, `Label a) -> + let address = StringTools.Map.find a labels in + let reconstructed = `CJNE (args, to_ljmp) in + address, reconstructed + | `DJNZ (args, `Label a) -> + let address = StringTools.Map.find a labels in + let reconstructed = `DJNZ (args, to_ljmp) in + address, reconstructed + in + let sjmp, jmp = `SJMP (`REL (vect_of_int 3 `Eight)), `LJMP (`ADDR16 jmp_address) in + let translation = [ translated_jump; sjmp; jmp ] in + List.flatten (List.map assembly1 translation) + | `Mov (`DPTR,s) -> + (* let addr16 = StringTools.Map.find s datalabels in *) + let addrr16 = + try StringTools.Map.find s datalabels + with Not_found -> StringTools.Map.find s labels in + assembly1 (`MOV (`U4 (`DPTR,`DATA16 addrr16))) + | `Jmp s -> + let pc_offset = StringTools.Map.find s labels in + assembly1 (`LJMP (`ADDR16 pc_offset)) + | `Call s -> + let pc_offset = StringTools.Map.find s labels in + assembly1 (`LCALL (`ADDR16 pc_offset )) + | #instruction as i -> assembly1 i) p.ASM.pcode) in + { ASM.code = code ; ASM.cost_labels = costs ; + ASM.labels = StringTools.Map.empty ; + ASM.exit_addr = exit_addr ; ASM.has_main = p.ASM.phas_main } +;; + +let set_register status v reg = + let addr = get_address_of_register status reg in + { status with low_internal_ram = + Byte7Map.add addr v status.low_internal_ram } +;; + +let get_arg_8 status from_latch = + function + `DIRECT addr -> + let n0, n1 = from_byte addr in + (match from_nibble n0 with + (false,r1,r2,r3) -> + Byte7Map.find (mk_byte7 r1 r2 r3 n1) status.low_internal_ram + | _ -> get_sfr status addr from_latch) + | `INDIRECT b -> + let (b1, b2) = from_byte (get_register status (false,false,b)) in + (match (from_nibble b1, b2) with + (false,r1,r2,r3),b2 -> + Byte7Map.find (mk_byte7 r1 r2 r3 b2) status.low_internal_ram + | (true,r1,r2,r3),b2 -> + Byte7Map.find (mk_byte7 r1 r2 r3 b2) status.high_internal_ram) + | `REG (b1,b2,b3) -> get_register status (b1,b2,b3) + | `A -> status.acc + | `B -> status.b + | `DATA b -> b + | `A_DPTR -> + let dpr = mk_word status.dph status.dpl in + (* CSC: what is the right behaviour in case of overflow? + assert false for now. Try to understand what DEC really does *) + let cry,addr = half_add dpr (mk_word (vect_of_int 0 `Eight) status.acc) in + Physical.WordMap.find addr status.external_ram + | `A_PC -> + (* CSC: what is the right behaviour in case of overflow? + assert false for now *) + let cry,addr = half_add status.pc (mk_word (vect_of_int 0 `Eight) status.acc) in + Physical.WordMap.find addr status.external_ram + | `EXT_INDIRECT b -> + let addr = get_register status (false,false,b) in + Physical.WordMap.find (mk_word (zero `Eight) addr) status.external_ram + | `EXT_IND_DPTR -> + let dpr = mk_word status.dph status.dpl in + Physical.WordMap.find dpr status.external_ram +;; + +let get_arg_16 _status = function `DATA16 w -> w + +let get_arg_1 status from_latch = + function + `BIT addr + | `NBIT addr as x -> + let n1, n2 = from_byte addr in + let res = + (match from_nibble n1 with + (false,r1,r2,r3) -> + let addr = (int_of_vect (mk_byte7 r1 r2 r3 n2)) in + let addr' = vect_of_int ((addr / 8) + 32) `Seven in + get_bit (Byte7Map.find addr' status.low_internal_ram) (addr mod 8) + | (true,r1,r2,r3) -> + let addr = int_of_vect $ mk_byte7 r1 r2 r3 n2 in + let div = addr / 8 in + let rem = addr mod 8 in + get_bit (get_sfr status (vect_of_int ((div * 8) + 128) `Eight) from_latch) rem) + in (match x with `NBIT _ -> not res | _ -> res) + | `C -> get_cy_flag status + +let set_arg_1 status v = + function + `BIT addr -> + let n1, n2 = from_byte addr in + (match from_nibble n1 with + (false,r1,r2,r3) -> + let addr = (int_of_vect (mk_byte7 r1 r2 r3 n2)) in + let addr' = vect_of_int ((addr / 8) + 32) `Seven in + let n_bit = set_bit (Byte7Map.find addr' status.low_internal_ram) (addr mod 8) v in + { status with low_internal_ram = Byte7Map.add addr' n_bit status.low_internal_ram } + | (true,r1,r2,r3) -> + let addr = int_of_vect $ mk_byte7 r1 r2 r3 n2 in + let div = addr / 8 in + let rem = addr mod 8 in + let addr' = vect_of_int ((div * 8) + 128) `Eight in + let sfr = get_sfr status addr' true in (* are we reading from the latch here? *) + let sfr' = set_bit sfr rem v in + set_sfr status addr' sfr') + | `C -> + let (n1,n2) = from_byte status.psw in + let (_,b2,b3,b4) = from_nibble n1 in + { status with psw = (mk_byte (mk_nibble v b2 b3 b4) n2) } + +let set_arg_8 status v = + function + `DIRECT addr -> + let (b1, b2) = from_byte addr in + (match from_nibble b1 with + (false,r1,r2,r3) -> + { status with low_internal_ram = + Byte7Map.add (mk_byte7 r1 r2 r3 b2) v status.low_internal_ram } + | _ -> set_sfr status addr v) + | `INDIRECT b -> + let (b1, b2) = from_byte (get_register status (false,false,b)) in + (match (from_nibble b1, b2) with + (false,r1,r2,r3),n1 -> + { status with low_internal_ram = + Byte7Map.add (mk_byte7 r1 r2 r3 n1) v status.low_internal_ram } + | (true,r1,r2,r3),n1 -> + { status with high_internal_ram = + Byte7Map.add (mk_byte7 r1 r2 r3 n1) v status.high_internal_ram }) + | `REG (b1,b2,b3) -> + set_register status v (b1,b2,b3) + | `A -> { status with acc = v } + | `B -> { status with b = v } + | `EXT_IND_DPTR -> + let dpr = mk_word status.dph status.dpl in + { status with external_ram = + Physical.WordMap.add dpr v status.external_ram } + | `EXT_INDIRECT b -> + let addr = get_register status (false,false,b) in + { status with external_ram = + Physical.WordMap.add (mk_word (zero `Eight) addr) v status.external_ram } +;; + +let set_arg_16 status wrd = + function + `DPTR -> + let (dh, dl) = from_word wrd in + { status with dph = dh; dpl = dl } + +let set_flags status c ac ov = + { status with psw = + let bu,bl = from_byte status.psw in + let (_c,oac,fo,rs1),(rs0,_ov,ud,p) = from_nibble bu, from_nibble bl in + let ac = match ac with None -> oac | Some v -> v in + mk_byte (mk_nibble c ac fo rs1) (mk_nibble rs0 ov ud p) + } +;; + +let xor b1 b2 = + if b1 = true && b2 = true then + false + else if b1 = false && b2 = false then + false + else true +;; + +let read_at_sp status = + let n1,n2 = from_byte status.sp in + let m,r1,r2,r3 = from_nibble n1 in + Byte7Map.find (mk_byte7 r1 r2 r3 n2) + (if m then status.low_internal_ram else status.high_internal_ram) +;; + +let write_at_sp status v = + let n1,n2 = from_byte status.sp in + match from_nibble n1 with + true,r1,r2,r3 -> + let memory = + Byte7Map.add (mk_byte7 r1 r2 r3 n2) v status.low_internal_ram + in + { status with low_internal_ram = memory } + | false,r1,r2,r3 -> + let memory = + Byte7Map.add (mk_byte7 r1 r2 r3 n2) v status.high_internal_ram + in + { status with high_internal_ram = memory } +;; + +let timer0 status b1 b2 ticks = + let b = get_bit status.tcon 4 in + (* Timer0 first *) + (match b1,b2 with + true,true -> + (* Archaic 13 bit mode. *) + if b then + let res,_,_,_ = add8_with_c status.tl0 (vect_of_int ticks `Eight) false in + let res = int_of_vect res in + if res > 31 then + let res = res mod 32 in + let res',cy',ov',ac' = add8_with_c status.th0 (vect_of_int 1 `Eight) false in + if ov' then + let b = set_bit status.tcon 7 true in + { status with tcon = b; th0 = res'; tl0 = vect_of_int res `Eight } + else + { status with th0 = res'; tl0 = vect_of_int res `Eight } + else + { status with tl0 = vect_of_int res `Eight } + else + status + | false,false -> + (* 8 bit split timer mode. *) + let status = + (if b then + let res,cy,ov,ac = add8_with_c status.tl0 (vect_of_int ticks `Eight) false in + if ov then + let b = set_bit status.tcon 5 true in + { status with tcon = b; tl0 = res } + else + { status with tl0 = res } + else + status) + in + if get_bit status.tcon 6 then + let res,cy,ov,ac = add8_with_c status.th0 (vect_of_int ticks `Eight) false in + if ov then + let b = set_bit status.tcon 7 true in + { status with tcon = b; th0 = res } + else + { status with th0 = res } + else + status + | false,true -> + (* 16 bit timer mode. *) + if b then + let res,_,ov,_ = add16_with_c (mk_word status.th0 status.tl0) (vect_of_int ticks `Sixteen) false in + if ov then + let b = set_bit status.tcon 5 true in + let new_th0,new_tl0 = from_word res in + { status with tcon = b; th0 = new_th0; tl0 = new_tl0 } + else + let new_th0,new_tl0 = from_word res in + { status with th0 = new_th0; tl0 = new_tl0 } + else + status + | true,false -> + (* 8 bit single timer mode. *) + if b then + let res,_,ov,_ = add8_with_c status.tl0 (vect_of_int ticks `Eight) false in + if ov then + let b = set_bit status.tcon 5 true in + { status with tcon = b; tl0 = status.th0; } + else + { status with tl0 = res } + else + status) + +let timer1 status b3 b4 ticks = + let b = get_bit status.tcon 4 in + (match b3,b4 with + true,true -> + (* Archaic 13 bit mode. *) + if b then + let res,_,_,_ = add8_with_c status.tl1 (vect_of_int ticks `Eight) false in + let res = int_of_vect res in + if res > 31 then + let res = res mod 32 in + let res',cy',ov',ac' = add8_with_c status.th1 (vect_of_int 1 `Eight) false in + if ov' then + let b = set_bit status.tcon 7 true in + { status with tcon = b; th1 = res'; tl1 = vect_of_int res `Eight } + else + { status with th1 = res'; tl0 = vect_of_int res `Eight } + else + { status with tl1 = vect_of_int res `Eight } + else + status + | false,false -> + (* 8 bit split timer mode. *) + let status = + (if b then + let res,cy,ov,ac = add8_with_c status.tl1 (vect_of_int ticks `Eight) false in + if ov then + let b = set_bit status.tcon 5 true in + { status with tcon = b; tl1 = res } + else + { status with tl1 = res } + else + status) + in + if get_bit status.tcon 6 then + let res,cy,ov,ac = add8_with_c status.th1 (vect_of_int ticks `Eight) false in + if ov then + let b = set_bit status.tcon 7 true in + { status with tcon = b; th1 = res } + else + { status with th1 = res } + else + status + | false,true -> + (* 16 bit timer mode. *) + if b then + let res,_,ov,_ = add16_with_c (mk_word status.th0 status.tl1) (vect_of_int ticks `Sixteen) false in + if ov then + let b = set_bit status.tcon 5 true in + let new_th1,new_tl1 = from_word res in + { status with tcon = b; th1 = new_th1; tl1 = new_tl1 } + else + let new_th1,new_tl1 = from_word res in + { status with th1 = new_th1; tl1 = new_tl1 } + else + status + | true,false -> + (* 8 bit single timer mode. *) + if b then + let res,_,ov,_ = add8_with_c status.tl1 (vect_of_int ticks `Eight) false in + if ov then + let b = set_bit status.tcon 5 true in + { status with tcon = b; tl1 = status.th1; } + else + { status with tl1 = res } + else + status) +;; + +let timers status ticks = + (* DPM: Clock/Timer code follows. *) + match bits_of_byte status.tmod with + | (g1,c1,b1,b2),(g0,c0,b3,b4) -> + let status = + (if g0 then + if get_bit status.p3 2 then + if c0 then + if status.previous_p1_val && not $ get_bit status.p3 4 then + timer0 status b1 b2 ticks + else + status + else + timer0 status b1 b2 ticks + else + status + else + timer0 status b1 b2 ticks) in + (* Timer 1 follows. *) + let status = + (if g1 then + if get_bit status.p1 3 then + if c1 then + if status.previous_p3_val && not $ get_bit status.p3 5 then + timer1 status b3 b4 ticks + else + status + else + timer1 status b3 b4 ticks + else + status + else + timer1 status b3 b4 ticks) in + (* Timer 2 follows *) + let status = + (let (tf2,exf2,rclk,tclk),(exen2,tr2,ct2,cp2) = bits_of_byte status.t2con in + (* Timer2 is enabled *) + if tr2 then + (* Counter/interval mode *) + if ct2 && not cp2 then + let word = mk_word status.th2 status.tl2 in + let res,_,ov,_ = add16_with_c word (vect_of_int ticks `Sixteen) false in + if ov then + let new_th2 = status.rcap2h in + let new_tl2 = status.rcap2l in + (* Overflow flag not set if either of the following flags are set *) + if not rclk && not tclk then + let b = set_bit status.t2con 7 true in + { status with t2con = b; + th2 = new_th2; + tl2 = new_tl2 } + else + { status with th2 = new_th2; + tl2 = new_tl2 } + else + (* Reload also signalled when a 1-0 transition is detected *) + if status.previous_p1_val && not $ get_bit status.p1 1 then + (* In which case signal reload by setting T2CON.6 *) + let b = set_bit status.t2con 6 true in + { status with th2 = status.rcap2h; + tl2 = status.rcap2l; + t2con = b } + else + let new_th2, new_tl2 = from_word res in + { status with th2 = new_th2; + tl2 = new_tl2 } + (* Capture mode *) + else if cp2 && exen2 then + (* 1-0 transition detected *) + (* DPM: look at this: is the timer still running throughout? *) + if status.previous_p1_val && not $ get_bit status.p1 1 then + status (* Implement clock here *) + else + status (* Implement clock here *) + else + status + else + status) in status + +;; + +let serial_port_input status in_cont = + (* Serial port input *) + match in_cont with + Some (`In(time, line, epsilon, cont)) when get_bit status.scon 4 -> + (let status = + (match line with + `P1 b -> + if status.clock >= time then + { status with p1 = b; p1_latch = b; } + else + status + | `P3 b -> + if status.clock >= time then + { status with p3 = b; p3_latch = b; } + else + status + | `SerialBuff (`Eight b) -> + let sm0 = get_bit status.scon 7 in + let sm1 = get_bit status.scon 6 in + (match (sm0, sm1) with + (false, false) -> + (* Mode 0: shift register. No delay. *) + if status.clock >= time then + { status with scon = set_bit status.scon 0 true; + io = cont; + sbuf = b } + else + status + | (false, true) -> + (* Mode 1: 8-bit UART *) + (* Explanation: 8 bit asynchronous communication. There's a delay (epsilon) + which needs taking care of. If we're trying to communicate at the same time + an existing communication is occurring, we assert false (else clause of first + if). *) + if status.serial_epsilon_in = None && status.serial_v_in = None then + if status.clock >= time then + (* Waiting for nine bits, multiprocessor communication mode requires nine bits *) + if get_bit status.scon 5 then + assert false (* really: crash! *) + else + { status with serial_epsilon_in = Some (epsilon + time); + serial_v_in = Some (`Eight b) } + else + (* Warning about incomplete case analysis here, but safe as we've already tested for + None. *) + let e = extract status.serial_epsilon_in in + let v = extract status.serial_v_in in + if status.clock >= e then + match v with + `Eight v' -> + { status with sbuf = v'; + serial_v_in = None; + serial_epsilon_in = None; + scon = set_bit status.scon 0 true; + io = cont } + | _ -> assert false (* trying to read in 9 bits instead of 8 *) + else + status + else + assert false + | (true, false) | (true, true) -> + assert false (* only got eight bits on the line when in 9 bit mode *)) + | `SerialBuff (`Nine (b,b')) -> + let sm0 = get_bit status.scon 7 in + let sm1 = get_bit status.scon 6 in + match(sm0, sm1) with + (false, false) | (false, true) -> assert false + | (true, false) | (true, true) -> + (* Modes 2 and 3: 9-bit UART *) + (* Explanation: 9 bit asynchronous communication. There's a delay (epsilon) + which needs taking care of. If we're trying to communicate at the same time + an existing communication is occurring, we assert false (else claus of first + if). *) + if status.serial_epsilon_in = None && status.serial_v_in = None then + if status.clock >= time then + (* waiting for nine bits, multiprocessor communication mode requires nine bits *) + if get_bit status.scon 5 then + assert false (* really: crash! *) + else + { status with serial_epsilon_in = Some (epsilon + time); + serial_v_in = Some (`Nine (b, b')) } + else + (* Warning about incomplete case analysis here, but safe as we've already tested for + None. *) + let e = extract status.serial_epsilon_in in + let v = extract status.serial_v_in in + if status.clock >= e then + match v with + `Nine (v, v') -> + let scon' = set_bit status.scon 0 true in + { status with sbuf = v'; + serial_v_in = None; + serial_epsilon_in = None; + scon = set_bit scon' 2 b; + io = cont } + | _ -> assert false (* trying to read in 8 bits instead of 9 *) + else + status + else + assert false) + in + { status with io = cont }) + | _ -> status +;; + +let serial_port_output status out_cont = + (* Serial port output *) + (let status = { status with serial_epsilon_out = Some (status.clock + status.io_epsilon); + serial_v_out = Some (`Eight status.sbuf); + serial_k_out = Some (snd (out_cont (status.clock + status.io_epsilon) (`SerialBuff (`Eight status.sbuf)))) } in + match status.serial_epsilon_out with + Some s -> + if status.clock >= s then + match status.serial_k_out with + None -> assert false (* correct? *) + | Some k' -> { status with io = k'; + scon = set_bit status.scon 1 true; } + else + status + | _ -> assert false) +;; + +let external_serial_interrupt status esi = + (* Interrupt enabled *) + if esi then + (* If we're already running, then fine (todo: check for *another* interrupt + and add to a queue, or something? *) + if status.t1i_running then + status + else + (* If we should be running, but aren't... *) + if false then + assert false + else + status + else + status +;; + +let external0_interrupt status e0i = + (* Interrupt enabled *) + if e0i then + (* If we're already running, then fine (todo: check for *another* interrupt + and add to a queue, or something? *) + if status.t1i_running then + status + else + (* If we should be running, but aren't... *) + if false then + assert false + else + status + else + status +;; + +let external1_interrupt status e1i = + (* Interrupt enabled *) + if e1i then + (* If we're already running, then fine (todo: check for *another* interrupt + and add to a queue, or something? *) + if status.t1i_running then + status + else + (* If we should be running, but aren't... *) + if false then + assert false + else + status + else + status +;; + +let timer0_interrupt status t0i = + (* Interrupt enabled *) + if t0i then + (* If we're already running, then fine (todo: check for *another* interrupt + and add to a queue, or something? *) + if status.t1i_running then + status + else + (* If we should be running, but aren't... *) + if false then + assert false + else + status + else + status +;; + +let timer1_interrupt status t1i = + (* Interrupt enabled *) + if t1i then + (* If we're already running, then fine (todo: check for *another* interrupt + and add to a queue, or something? *) + if status.t1i_running then + status + else + (* If we should be running, but aren't... *) + if false then + assert false + else + status + else + status +;; + +let interrupts status = + let (ea,_,_,es), (et1,ex1,et0,ex0) = bits_of_byte status.ie in + let (_,_,_,ps), (pt1,px1,pt0,px0) = bits_of_byte status.ip in + (* DPM: are interrupts enabled? *) + if ea then + match (ps,pt1,px1,pt0,px0) with + _ -> assert false + else + status +;; + +let execute1 status = + let instr,pc,ticks = fetch status.code_memory status.pc in + let status = { status with clock = status.clock + ticks; pc = pc } in + let status = + (match instr with + `ADD (`A,d1) -> + let v,c,ac,ov = + add8_with_c (get_arg_8 status false `A) (get_arg_8 status false d1) false + in + set_flags (set_arg_8 status v `A) c (Some ac) ov + | `ADDC (`A,d1) -> + let v,c,ac,ov = + add8_with_c (get_arg_8 status false `A) (get_arg_8 status false d1) (get_cy_flag status) + in + set_flags (set_arg_8 status v `A) c (Some ac) ov + | `SUBB (`A,d1) -> + let v,c,ac,ov = + subb8_with_c (get_arg_8 status false `A) (get_arg_8 status false d1) (get_cy_flag status) + in + set_flags (set_arg_8 status v `A) c (Some ac) ov + | `INC `DPTR -> + let cry, low_order_byte = half_add status.dpl (vect_of_int 1 `Eight) in + let cry, high_order_byte = full_add status.dph (vect_of_int 0 `Eight) cry in + { status with dpl = low_order_byte; dph = high_order_byte } + | `INC ((`A | `REG _ | `DIRECT _ | `INDIRECT _) as d) -> + let b = get_arg_8 status true d in + let cry, res = half_add b (vect_of_int 1 `Eight) in + set_arg_8 status res d + | `DEC d -> + let b = get_arg_8 status true d in + let res,c,ac,ov = subb8_with_c b (vect_of_int 1 `Eight) false in + set_arg_8 status res d + | `MUL (`A,`B) -> + let acc = int_of_vect status.acc in + let b = int_of_vect status.b in + let prod = acc * b in + let ov = prod > 255 in + let l = vect_of_int (prod mod 256) `Eight in + let h = vect_of_int (prod / 256) `Eight in + let status = { status with acc = l ; b = h } in + (* DPM: Carry flag is always cleared. *) + set_flags status false None ov + | `DIV (`A,`B) -> + let acc = int_of_vect status.acc in + let b = int_of_vect status.b in + if b = 0 then + (* CSC: ACC and B undefined! We leave them as they are. *) + set_flags status false None true + else + let q = vect_of_int (acc / b) `Eight in + let r = vect_of_int (acc mod b) `Eight in + let status = { status with acc = q ; b = r } in + set_flags status false None false + | `DA `A -> + let acc_upper_nibble, acc_lower_nibble = from_byte status.acc in + if int_of_vect acc_lower_nibble > 9 or get_ac_flag status = true then + let acc,cy,_,_ = add8_with_c status.acc (vect_of_int 6 `Eight) false in + let acc_upper_nibble, acc_lower_nibble = from_byte acc in + if int_of_vect acc_upper_nibble > 9 or cy = true then + let cry,acc_upper_nibble = half_add acc_upper_nibble (vect_of_int 6 `Four) in + let status = { status with acc = mk_byte acc_upper_nibble acc_lower_nibble } in + set_flags status cry (Some (get_ac_flag status)) (get_ov_flag status) + else + status + else + status + | `ANL (`U1(`A, ag)) -> + let and_val = get_arg_8 status true `A -&- get_arg_8 status true ag in + set_arg_8 status and_val `A + | `ANL (`U2((`DIRECT d), ag)) -> + let and_val = get_arg_8 status true (`DIRECT d) -&- get_arg_8 status true ag in + set_arg_8 status and_val (`DIRECT d) + | `ANL (`U3 (`C, b)) -> + let and_val = get_cy_flag status && get_arg_1 status true b in + set_flags status and_val None (get_ov_flag status) + | `ORL (`U1(`A, ag)) -> + let or_val = get_arg_8 status true `A -|- get_arg_8 status true ag in + set_arg_8 status or_val `A + | `ORL (`U2((`DIRECT d), ag)) -> + let or_val = get_arg_8 status true (`DIRECT d) -|- get_arg_8 status true ag in + set_arg_8 status or_val (`DIRECT d) + | `ORL (`U3 (`C, b)) -> + let or_val = get_cy_flag status || get_arg_1 status true b in + set_flags status or_val None (get_ov_flag status) + | `XRL (`U1(`A, ag)) -> + let xor_val = get_arg_8 status true `A -^- get_arg_8 status true ag in + set_arg_8 status xor_val `A + | `XRL (`U2((`DIRECT d), ag)) -> + let xor_val = get_arg_8 status true (`DIRECT d) -^- get_arg_8 status true ag in + set_arg_8 status xor_val (`DIRECT d) + | `CLR `A -> set_arg_8 status (zero `Eight) `A + | `CLR `C -> set_arg_1 status false `C + | `CLR ((`BIT _) as a) -> set_arg_1 status false a + | `CPL `A -> { status with acc = complement status.acc } + | `CPL `C -> set_arg_1 status (not $ get_arg_1 status true `C) `C + | `CPL ((`BIT _) as b) -> set_arg_1 status (not $ get_arg_1 status true b) b + | `RL `A -> { status with acc = rotate_left status.acc } + | `RLC `A -> + let old_cy = get_cy_flag status in + let n1, n2 = from_byte status.acc in + let (b1,b2,b3,b4),(b5,b6,b7,b8) = from_nibble n1, from_nibble n2 in + let status = set_arg_1 status b1 `C in + { status with acc = mk_byte (mk_nibble b2 b3 b4 b5) (mk_nibble b6 b7 b8 old_cy) } + | `RR `A -> { status with acc = rotate_right status.acc } + | `RRC `A -> + let old_cy = get_cy_flag status in + let n1, n2 = from_byte status.acc in + let (b1,b2,b3,b4),(b5,b6,b7,b8) = from_nibble n1, from_nibble n2 in + let status = set_arg_1 status b8 `C in + { status with acc = mk_byte (mk_nibble old_cy b1 b2 b3) (mk_nibble b4 b5 b6 b7) } + | `SWAP `A -> + let (acc_nibble_upper, acc_nibble_lower) = from_byte status.acc in + { status with acc = mk_byte acc_nibble_lower acc_nibble_upper } + | `MOV(`U1(b1, b2)) -> set_arg_8 status (get_arg_8 status false b2) b1 + | `MOV(`U2(b1, b2)) -> set_arg_8 status (get_arg_8 status false b2) b1 + | `MOV(`U3(b1, b2)) -> set_arg_8 status (get_arg_8 status false b2) b1 + | `MOV(`U4(b1,b2)) -> set_arg_16 status (get_arg_16 status b2) b1 + | `MOV(`U5(b1,b2)) -> set_arg_1 status (get_arg_1 status false b2) b1 + | `MOV(`U6(b1,b2)) -> set_arg_1 status (get_arg_1 status false b2) b1 + | `MOVC (`A, `A_DPTR) -> + let big_acc = mk_word (zero `Eight) status.acc in + let dptr = mk_word status.dph status.dpl in + let cry, addr = half_add dptr big_acc in + let lookup = Physical.WordMap.find addr status.code_memory in + { status with acc = lookup } + | `MOVC (`A, `A_PC) -> + let big_acc = mk_word (zero `Eight) status.acc in + (* DPM: Under specified: does the carry from PC incrementation affect the *) + (* addition of the PC with the DPTR? At the moment, no. *) + let cry,inc_pc = half_add status.pc (vect_of_int 1 `Sixteen) in + let status = { status with pc = inc_pc } in + let cry,addr = half_add inc_pc big_acc in + let lookup = Physical.WordMap.find addr status.code_memory in + { status with acc = lookup } + (* data transfer *) + (* DPM: MOVX currently only implements the *copying* of data! *) + | `MOVX (`U1 (a1, a2)) -> set_arg_8 status (get_arg_8 status false a2) a1 + | `MOVX (`U2 (a1, a2)) -> set_arg_8 status (get_arg_8 status false a2) a1 + | `SETB b -> set_arg_1 status true b + | `PUSH a -> + (* DPM: What happens if we overflow? *) + let cry,new_sp = half_add status.sp (vect_of_int 1 `Eight) in + let status = { status with sp = new_sp } in + write_at_sp status (get_arg_8 status false a) + | `POP (`DIRECT b) -> + let contents = read_at_sp status in + let new_sp,_,_,_ = subb8_with_c status.sp (vect_of_int 1 `Eight) false in + let status = { status with sp = new_sp } in + let status = set_arg_8 status contents (`DIRECT b) in + status + | `XCH(`A, arg) -> + let old_arg = get_arg_8 status false arg in + let old_acc = status.acc in + let status = set_arg_8 status old_acc arg in + { status with acc = old_arg } + | `XCHD(`A, i) -> + let acc_upper_nibble, acc_lower_nibble = from_byte $ get_arg_8 status false `A in + let ind_upper_nibble, ind_lower_nibble = from_byte $ get_arg_8 status false i in + let new_acc = mk_byte acc_upper_nibble ind_lower_nibble in + let new_reg = mk_byte ind_upper_nibble acc_lower_nibble in + let status = { status with acc = new_acc } in + set_arg_8 status new_reg i + (* program branching *) + | `JC (`REL rel) -> + if get_cy_flag status then + let cry, new_pc = half_add status.pc (sign_extension rel) in + { status with pc = new_pc } + else + status + | `JNC (`REL rel) -> + if not $ get_cy_flag status then + let cry, new_pc = half_add status.pc (sign_extension rel) in + { status with pc = new_pc } + else + status + | `JB (b, (`REL rel)) -> + if get_arg_1 status false b then + let cry, new_pc = half_add status.pc (sign_extension rel) in + { status with pc = new_pc } + else + status + | `JNB (b, (`REL rel)) -> + if not $ get_arg_1 status false b then + let cry, new_pc = half_add status.pc (sign_extension rel) in + { status with pc = new_pc } + else + status + | `JBC (b, (`REL rel)) -> + let status = set_arg_1 status false b in + if get_arg_1 status false b then + let cry, new_pc = half_add status.pc (sign_extension rel) in + { status with pc = new_pc } + else + status + | `RET -> + (* DPM: What happens when we underflow? *) + let high_bits = read_at_sp status in + let new_sp,cy,_,_ = subb8_with_c status.sp (vect_of_int 1 `Eight) false in + let status = { status with sp = new_sp } in + let low_bits = read_at_sp status in + let new_sp,_,_,_ = subb8_with_c status.sp (vect_of_int 1 `Eight) cy in + let status = { status with sp = new_sp } in + { status with pc = mk_word high_bits low_bits } + | `RETI -> + let high_bits = read_at_sp status in + let new_sp,_,_,_ = subb8_with_c status.sp (vect_of_int 1 `Eight) false in + let status = { status with sp = new_sp } in + let low_bits = read_at_sp status in + let new_sp,_,_,_ = subb8_with_c status.sp (vect_of_int 1 `Eight) false in + let status = { status with sp = new_sp } in + { status with pc = mk_word high_bits low_bits } + | `ACALL (`ADDR11 a) -> + let cry, new_sp = half_add status.sp (vect_of_int 1 `Eight) in + let status = { status with sp = new_sp } in + let pc_upper_byte, pc_lower_byte = from_word status.pc in + let status = write_at_sp status pc_lower_byte in + let cry, new_sp = half_add status.sp (vect_of_int 1 `Eight) in + let status = { status with sp = new_sp } in + let status = write_at_sp status pc_upper_byte in + let addr = addr16_of_addr11 status.pc a in + { status with pc = addr } + | `LCALL (`ADDR16 addr) -> + let cry, new_sp = half_add status.sp (vect_of_int 1 `Eight) in + let status = { status with sp = new_sp } in + let pc_upper_byte, pc_lower_byte = from_word status.pc in + let status = write_at_sp status pc_lower_byte in + let cry, new_sp = half_add status.sp (vect_of_int 1 `Eight) in + let status = { status with sp = new_sp } in + let status = write_at_sp status pc_upper_byte in + { status with pc = addr } + | `AJMP (`ADDR11 a) -> + let addr = addr16_of_addr11 status.pc a in + { status with pc = addr } + | `LJMP (`ADDR16 a) -> + { status with pc = a } + | `SJMP (`REL rel) -> + let cry, new_pc = half_add status.pc (sign_extension rel) in + { status with pc = new_pc } + | `JMP `IND_DPTR -> + let dptr = mk_word status.dph status.dpl in + let big_acc = mk_word (zero `Eight) status.acc in + let cry, jmp_addr = half_add big_acc dptr in + let cry, new_pc = half_add status.pc jmp_addr in + { status with pc = new_pc } + | `JZ (`REL rel) -> + if status.acc = zero `Eight then + let cry, new_pc = half_add status.pc (sign_extension rel) in + { status with pc = new_pc } + else + status + | `JNZ (`REL rel) -> + if status.acc <> zero `Eight then + let cry, new_pc = half_add status.pc (sign_extension rel) in + { status with pc = new_pc } + else + status + | `CJNE ((`U1 (`A, ag)), `REL rel) -> + let new_carry = status.acc < get_arg_8 status false ag in + if get_arg_8 status false ag <> status.acc then + let cry, new_pc = half_add status.pc (sign_extension rel) in + let status = set_flags status new_carry None (get_ov_flag status) in + { status with pc = new_pc; } + else + set_flags status new_carry None (get_ov_flag status) + | `CJNE ((`U2 (ag, `DATA d)), `REL rel) -> + let new_carry = get_arg_8 status false ag < d in + if get_arg_8 status false ag <> d then + let cry, new_pc = half_add status.pc (sign_extension rel) in + let status = { status with pc = new_pc } in + set_flags status new_carry None (get_ov_flag status) + else + set_flags status new_carry None (get_ov_flag status) + | `DJNZ (ag, (`REL rel)) -> + let new_ag,_,_,_ = subb8_with_c (get_arg_8 status true ag) (vect_of_int 1 `Eight) false in + let status = set_arg_8 status new_ag ag in + if new_ag <> zero `Eight then + let cry, new_pc = half_add status.pc (sign_extension rel) in + { status with pc = new_pc } + else + status + | `NOP -> status) in + let status = timers status ticks in + let in_cont, `Out out_cont = status.io in + let status = serial_port_input status in_cont in + let status = serial_port_output status out_cont in + let status = interrupts status in + { status with previous_p1_val = get_bit status.p3 4; + previous_p3_val = get_bit status.p3 5 } +;; + +(* +OLD output routine: + (* Serial port output, part one *) + let status = + (match status.expected_out_time with + `At t when status.clock >= t -> + { status with scon = set_bit status.scon 1 true; expected_out_time = `None } + | _ -> status) in + + (if status.expected_out_time = `Now then + if get_bit status.scon 7 then + let exp_time, new_cont = out_cont status.clock (`SerialBuff (`Nine ((get_bit status.scon 3), status.sbuf))) in + { status with expected_out_time = `At exp_time; io = new_cont } + else + let exp_time, new_cont = out_cont status.clock (`SerialBuff (`Eight status.sbuf)) in + { status with expected_out_time = `At exp_time; io = new_cont } + else + status) in +*) + +let rec execute f s = + let cont = + try f s; true + with Halt -> false + in + if cont then execute f (execute1 s) + else s +;; + + +let load_program p = + let st = load p.ASM.code initialize in + { st with exit_addr = p.ASM.exit_addr ; cost_labels = p.ASM.cost_labels } + +let observe_trace trace_ref st = + let cost_label = + if BitVectors.WordMap.mem st.pc st.cost_labels then + [BitVectors.WordMap.find st.pc st.cost_labels] + else [] in + trace_ref := cost_label @ !trace_ref ; + if st.pc = st.exit_addr (* <=> end of program *) then raise Halt else st + +let result st = + let dpl = st.dpl in + let dpr = st.dph in + let addr i = BitVectors.vect_of_int i `Seven in + let get_ireg i = Physical.Byte7Map.find (addr i) st.low_internal_ram in + let r00 = get_ireg 0 in + let r01 = get_ireg 1 in + let is = [dpl ; dpr ; r00 ; r01] in + let f i = IntValue.Int32.of_int (BitVectors.int_of_vect i) in + IntValue.Int32.merge (List.map f is) + +let interpret debug p = + Printf.printf "*** 8051 interpret ***\n%!" ; + if p.ASM.has_main then + let st = load_program p in + let trace = ref [] in + let callback = observe_trace trace in + let st = execute callback st in + let res = result st in + if debug then + Printf.printf "Result = %s\n%!" (IntValue.Int32.to_string res) ; + (res, List.rev !trace) + else (IntValue.Int32.zero, []) + + +let size_of_instr instr = + let exit_lbl = "exit" in + let p = { ASM.ppreamble = [] ; ASM.pexit_label = exit_lbl ; + ASM.pcode = [instr ; `Label exit_lbl] ; ASM.phas_main = false } in + let p = assembly p in + let status = load_program p in + let addr_zero = BitVectors.vect_of_int 0 `Sixteen in + let (_, size, _) = fetch status.code_memory addr_zero in + BitVectors.int_of_vect size + +let size_of_instrs instrs = + let f res instr = res + (size_of_instr instr) in + List.fold_left f 0 instrs diff --git a/src/ASM/ASMInterpret.mli b/src/ASM/ASMInterpret.mli new file mode 100644 index 0000000..41441a5 --- /dev/null +++ b/src/ASM/ASMInterpret.mli @@ -0,0 +1,132 @@ +open BitVectors;; +open Physical;; + +exception CodeTooLarge + +type time = int;; +type line = [ `P1 of byte + | `P3 of byte + | `SerialBuff of [ `Eight of byte + | `Nine of BitVectors.bit * byte + ] + ];; + +val string_of_line: line -> string;; + +type epsilon = int;; + +(* In: reception time, line of input, new continuation, + Out: transmission time, output line, expected duration until reply, + new continuation. +*) +type continuation = + [`In of time * line * epsilon * continuation] option * + [`Out of (time -> line -> time * continuation) ];; + +type status = + { + (* Memory *) + code_memory: WordMap.map; (* can be reduced *) + low_internal_ram: Byte7Map.map; + high_internal_ram: Byte7Map.map; + external_ram: WordMap.map; + + (* Program counter *) + pc: word; + + (* SFRs *) + sp: byte; + dpl: byte; + dph: byte; + pcon: byte; + tcon: byte; + tmod: byte; + tl0: byte; + tl1: byte; + th0: byte; + th1: byte; + p1: byte; + scon: byte; + sbuf: byte; + ie: byte; + p3: byte; + ip: byte; + psw: byte; + acc: byte; + b: byte; + t2con: byte; (* 8052 only *) + rcap2l: byte; (* 8052 only *) + rcap2h: byte; (* 8052 only *) + tl2: byte; (* 8052 only *) + th2: byte; (* 8052 only *) + + (* Latches for the output lines *) + p1_latch: byte; + p3_latch: byte; + + (* Fields for tracking the state of the processor. *) + + (* IO specific *) + previous_p1_val: bool; + previous_p3_val: bool; + + serial_epsilon_out: epsilon option; + serial_epsilon_in: epsilon option; + + io_epsilon: epsilon; + + serial_v_in: [`Eight of byte | `Nine of (BitVectors.bit * byte) ] option; + serial_v_out: [`Eight of byte | `Nine of (BitVectors.bit * byte) ] option; + + serial_k_out: continuation option; + + io: continuation; + expected_out_time: [ `None | `Now | `At of time ]; + + (* Timer and clock specific *) + clock: time; + timer0: word; + timer1: word; + timer2: word; (* can be missing *) + + esi_running: bool; + t0i_running: bool; + t1i_running: bool; + e0i_running: bool; + e1i_running: bool; + es_running: bool; + + exit_addr : BitVectors.word; + cost_labels : string BitVectors.WordMap.t + } + +val string_of_status: status -> string + + +val assembly: + [< ASM.labelled_instruction] ASM.pretty_program -> ASM.program + +(* + val link: + (ASM.instruction list * symbol_table * cost_map) list -> BitVectors.byte list +*) + +val initialize: status + +val load_code_memory: BitVectors.byte list -> Physical.WordMap.map +val load_mem: Physical.WordMap.map -> status -> status +val load: BitVectors.byte list -> status -> status + +exception Halt (* to be raised to stop execution *) + +(* the callback function is used to observe the execution + trace; it can raise Hold to stop execution. Otherwise + the processor never halts. *) +val execute: (status -> unit) -> status -> status + +val fetch: Physical.WordMap.map -> word -> ASM.instruction * word * int + +val load_program : ASM.program -> status +val interpret : bool -> ASM.program -> AST.trace + +val size_of_instrs : ASM.labelled_instruction list -> int diff --git a/src/ASM/ASMPrinter.ml b/src/ASM/ASMPrinter.ml new file mode 100644 index 0000000..f7071da --- /dev/null +++ b/src/ASM/ASMPrinter.ml @@ -0,0 +1,7 @@ + +(** This module provides a function to print [ASM] programs. *) + +let print_program p = + let code_memory = ASMInterpret.load_code_memory p.ASM.code in + let intel_hex = IntelHex.pack_exported_code_memory 16 65535 code_memory in + IntelHex.string_of_intel_hex_format intel_hex diff --git a/src/ASM/ASMPrinter.mli b/src/ASM/ASMPrinter.mli new file mode 100644 index 0000000..99edc64 --- /dev/null +++ b/src/ASM/ASMPrinter.mli @@ -0,0 +1,4 @@ + +(** This module provides a function to print [ASM] programs. *) + +val print_program : ASM.program -> string diff --git a/src/ASM/BitVectors.ml b/src/ASM/BitVectors.ml new file mode 100644 index 0000000..0abac73 --- /dev/null +++ b/src/ASM/BitVectors.ml @@ -0,0 +1,159 @@ +open Util;; + +type bit = bool +type 'a vect = bit list +type nibble = [`Four] vect +type byte7 = [`Seven] vect +type byte = [`Eight] vect +type word = [`Sixteen] vect +type word11 = [`Eleven] vect + +type sizes = [ `Four | `Seven | `Eight | `Eleven | `Sixteen ] + +let mk_nibble b1 b2 b3 b4 = [b1; b2; b3; b4] +let from_nibble = + function + [b1; b2; b3; b4] -> b1,b2,b3,b4 + | _ -> assert false +let mk_byte n1 n2 = n1 @ n2 +let mk_byte_from_bits ((b1,b2,b3,b4),(b5,b6,b7,b8)) = ([b1;b2;b3;b4;b5;b6;b7;b8] : [`Eight] vect) +let from_byte = + function + b1::b2::b3::b4::r -> [b1;b2;b3;b4],r + | _ -> assert false +let bits_of_byte = + function + [b1;b2;b3;b4;b5;b6;b7;b8] -> (b1,b2,b3,b4),(b5,b6,b7,b8) + | _ -> assert false +let mk_byte7 b1 b2 b3 n1 = b1::b2::b3::n1 +let from_byte7 = + function + b1::b2::b3::r -> b1,b2,b3,r + | _ -> assert false +let mk_word = mk_byte +let from_word = + function + b1::b2::b3::b4::b5::b6::b7::b8::r -> [b1;b2;b3;b4;b5;b6;b7;b8],r + | _ -> assert false +let mk_word11 = mk_byte7 +let from_word11 = from_byte7 + +let get_bit l index = + try + List.nth (List.rev l) index + with (Failure _ | Invalid_argument _) -> assert false + +let set_bit l index new_val = + try + let rec aux index l = + match index, l with + _, [] -> raise (Invalid_argument "") + | 0,_::tl -> new_val::tl + | n,hd::tl -> hd::(aux (n-1) tl) in + List.rev (aux index (List.rev l)) + with Invalid_argument "" -> assert false + +let (-&-) l1 l2 = List.map2 (fun b1 b2 -> b1 & b2) l1 l2 +let (-|-) l1 l2 = List.map2 (fun b1 b2 -> b1 || b2) l1 l2 +let xor b1 b2 = b1 <> b2 +let (-^-) l1 l2 = List.map2 xor l1 l2 +let complement l1 = List.map (not) l1 + +let iter_bits f v = String.concat "" (List.map f v) +let map_bits = List.map +let map2_bits = List.map2 + +let string_of_bit = function false -> "0" | true -> "1" +let string_of_vect l = String.concat "" (List.map string_of_bit l) + +let full_add l r c = List.fold_right2 (fun b1 b2 (c,r) -> b1 & b2 || c & (b1 || b2),xor (xor b1 b2) c::r) l r (c,[]) +let half_add l r = full_add l r false + +let sign_extension = + function + [] -> assert false + | (he::_) as l -> + [he;he;he;he;he;he;he;he] @ l +;; + + +let rec split_last = + function + [] -> assert false + | [he] -> he,[] + | he::tl -> + let l,res = split_last tl in + l,he::res + +let shift_left = + function + [] -> assert false + | _::tl -> tl @ [false] +let shift_right l = false :: snd (split_last l) +let rotate_left = + function + [] -> assert false + | he::tl -> tl @ [he] +let rotate_right l = + let he,tl = split_last l in + he::tl + +(* CSC: can overflow!!! *) +let int_of_vect v = + let rec aux pow v = + match v with + [] -> 0 + | hd::tl -> + if hd = true then + pow + (aux (pow * 2) tl) + else + aux (pow * 2) tl + in + aux 1 (List.rev v) + +let size_lookup = + function + `Four -> 4 + | `Seven -> 7 + | `Eight -> 8 + | `Eleven -> 11 + | `Sixteen -> 16 + +let rec pow v p = + if p = 0 then + 1 + else + v * (pow v (p - 1)) + +let divide_with_remainder x y = (x / y, x mod y) + +let rec aux i = + if i < 0 then + raise (Invalid_argument "Negative index") + else + let (d, r) = divide_with_remainder i 2 in + if (d, r) = (0, 0) then + [] + else if r = 0 then + false :: aux d + else + true :: aux d + +let rec pad i l = if i = 0 then l else false :: (pad (i - 1) l) + +let vect_of_int i size = + let big_list = List.rev (aux i) in + if List.length big_list > size_lookup size then + raise (Invalid_argument "BitVectors.vect_of_int: size not big enough") + else + let diff = size_lookup size - List.length big_list in + pad diff big_list + +let zero size = pad (size_lookup size) [] + +(* CSC: can overflow!!! *) +(* CSC: only works properly with bytes!!! *) +let hex_string_of_vect v = Printf.sprintf "%0 2X" (int_of_vect v);; + +module WordMap = + Map.Make (struct type t = word let compare = compare end);; diff --git a/src/ASM/BitVectors.mli b/src/ASM/BitVectors.mli new file mode 100644 index 0000000..b9925c2 --- /dev/null +++ b/src/ASM/BitVectors.mli @@ -0,0 +1,57 @@ +type bit = bool + +type 'a vect + +type nibble = [`Four] vect +type byte7 = [`Seven] vect +type byte = [`Eight] vect +type word = [`Sixteen] vect +type word11 = [`Eleven] vect + +type sizes = [ `Four | `Seven | `Eight | `Eleven | `Sixteen ] + +val mk_nibble: bit -> bit -> bit -> bit -> nibble +val from_nibble: nibble -> bit * bit * bit * bit +val mk_byte7: bit -> bit -> bit -> nibble -> byte7 +val from_byte7: byte7 -> bit * bit * bit * nibble +val mk_byte: nibble -> nibble -> byte +val mk_byte_from_bits: ((bit * bit * bit * bit) * (bit * bit * bit * bit)) -> byte +val from_byte: byte -> nibble * nibble +val bits_of_byte: byte -> ((bit * bit * bit * bit) * (bit * bit * bit * bit)) +val mk_word: byte -> byte -> word +val from_word: word -> byte * byte +val mk_word11: bit -> bit -> bit -> byte -> word11 +val from_word11: word11 -> bit * bit * bit * byte + +val get_bit: 'a vect -> int -> bit +val set_bit: 'a vect -> int -> bit -> 'a vect + +val int_of_vect: 'a vect -> int +val vect_of_int: int -> ([< sizes] as 'a) -> 'a vect +val string_of_bit: bit -> string +val string_of_vect: 'a vect -> string +val hex_string_of_vect: 'a vect -> string + +val (-&-): 'a vect -> 'a vect -> 'a vect +val (-|-): 'a vect -> 'a vect -> 'a vect +val (-^-): 'a vect -> 'a vect -> 'a vect +val complement: 'a vect -> 'a vect + +val iter_bits: (bit -> string) -> 'a vect -> string +val map_bits: (bit -> bit) -> 'a vect -> 'a vect +val map2_bits: (bit -> bit -> bit) -> 'a vect -> 'a vect -> 'a vect + +val string_of_vect: 'a vect -> string + +val zero: [< `Four | `Seven | `Eight | `Eleven | `Sixteen ] -> [< `Four | `Seven | `Eight | `Eleven | `Sixteen ] vect + +val half_add: 'a vect -> 'a vect -> bit * 'a vect +val full_add: 'a vect -> 'a vect -> bit -> bit * 'a vect +val sign_extension: byte -> word + +val rotate_left : 'a vect -> 'a vect +val rotate_right : 'a vect -> 'a vect +val shift_right : 'a vect -> 'a vect +val shift_left : 'a vect -> 'a vect + +module WordMap: Map.S with type key = word diff --git a/src/ASM/I8051.ml b/src/ASM/I8051.ml new file mode 100644 index 0000000..5174ae1 --- /dev/null +++ b/src/ASM/I8051.ml @@ -0,0 +1,209 @@ + +let int_size = 1 +let ptr_size = 2 +let alignment = None + +type opaccs = + | Mul + | DivuModu + +type op1 = + | Cmpl + | Inc + +type op2 = + | Add + | Addc + | Sub + | And + | Or + | Xor + +let print_opaccs = function + | Mul -> "mul" + | DivuModu -> "divu" + +let print_op1 = function + | Cmpl -> "cmpl" + | Inc -> "inc" + +let print_op2 = function + | Add -> "add" + | Addc -> "addc" + | Sub -> "sub" + | And -> "and" + | Or -> "or" + | Xor -> "xor" + + +module Eval (Val : Value.S) = struct + + let eval_int_mul size i1 i2 = + let module Int = IntValue.Make (struct let size = 2 * size end) in + match Int.break (Int.mul i1 i2) 2 with + | res1 :: res2 :: _ -> (Val.of_int_repr res1, Val.of_int_repr res2) + | _ -> assert false (* should be impossible *) + + let eval_mul v1 v2 = + if Val.is_int v1 && Val.is_int v2 then + eval_int_mul Val.int_size (Val.to_int_repr v1) (Val.to_int_repr v2) + else (Val.undef, Val.undef) + + let opaccs op v1 v2 = match op with + | Mul -> eval_mul v1 v2 + | DivuModu -> (Val.divu v1 v2, Val.modulou v1 v2) + + let op1 = function + | Cmpl -> Val.cmpl + | Inc -> Val.succ + + let op2 carry op2 v1 v2 = match op2 with + | Add -> Val.add_and_of v1 v2 + | Addc -> + let (res1, of1) = Val.add_and_of v1 v2 in + let (res2, of2) = Val.add_and_of res1 carry in + (res2, Val.or_op of1 of2) + | Sub -> + let (res1, uf1) = Val.sub_and_uf v1 v2 in + let (res2, uf2) = Val.sub_and_uf res1 carry in + (res2, Val.or_op uf1 uf2) + | And -> (Val.and_op v1 v2, carry) + | Or -> (Val.or_op v1 v2, carry) + | Xor -> (Val.xor v1 v2, carry) + +end + + +type register = int +let compare_reg = Pervasives.compare +let eq_reg r1 r2 = r1 = r2 + +module OrdReg = struct type t = register let compare = compare_reg end +module RegisterSet = Set.Make (OrdReg) +module RegisterMap = Map.Make (OrdReg) + +let r00 = 0 +let r01 = 1 +let r02 = 2 +let r03 = 3 +let r04 = 4 +let r05 = 5 +let r06 = 6 +let r07 = 7 +let r10 = 8 +let r11 = 9 +let r12 = 10 +let r13 = 11 +let r14 = 12 +let r15 = 13 +let r16 = 14 +let r17 = 15 +let r20 = 16 +let r21 = 17 +let r22 = 18 +let r23 = 19 +let r24 = 20 +let r25 = 21 +let r26 = 22 +let r27 = 23 +let r30 = 24 +let r31 = 25 +let r32 = 26 +let r33 = 27 +let r34 = 28 +let r35 = 29 +let r36 = 30 +let r37 = 31 +let a = 224 +let b = 240 +let dpl = 130 +let dph = 131 +let carry = -1 (* only used for the liveness analysis. *) + +let print_register = function + | 0 -> "R00" + | 1 -> "R01" + | 2 -> "R02" + | 3 -> "R03" + | 4 -> "R04" + | 5 -> "R05" + | 6 -> "R06" + | 7 -> "R07" + | 8 -> "R10" + | 9 -> "R11" + | 10 -> "R12" + | 11 -> "R13" + | 12 -> "R14" + | 13 -> "R15" + | 14 -> "R16" + | 15 -> "R17" + | 16 -> "R20" + | 17 -> "R21" + | 18 -> "R22" + | 19 -> "R23" + | 20 -> "R24" + | 21 -> "R25" + | 22 -> "R26" + | 23 -> "R27" + | 24 -> "R30" + | 25 -> "R31" + | 26 -> "R32" + | 27 -> "R33" + | 28 -> "R34" + | 29 -> "R35" + | 30 -> "R36" + | 31 -> "R37" + | 224 -> "A" + | 240 -> "B" + | 130 -> "DPL" + | 131 -> "DPH" + | _ -> assert false (* impossible *) + +let sst = r10 +let st0 = r02 +let st1 = r03 +let st2 = r04 +let st3 = r05 +let sts = [st0 ; st1 ; st2 ; st3] +let spl = r06 +let sph = r07 +let rets = [dpl ; dph ; r00 ; r01] + +let spl_addr = spl +let spl_init = 255 +let sph_addr = sph +let sph_init = 255 +let isp_addr = 129 +let isp_init = 47 + +let set_of_list rl = List.fold_right RegisterSet.add rl RegisterSet.empty +let list_of_set rs = RegisterSet.fold (fun r l -> r :: l) rs [] + +let registers = + set_of_list [r00 ; r01 ; r02 ; r03 ; r04 ; r05 ; r06 ; r07 ; + r10 ; r11 ; r12 ; r13 ; r14 ; r15 ; r16 ; r17 ; + r20 ; r21 ; r22 ; r23 ; r24 ; r25 ; r26 ; r27 ; + r30 ; r31 ; r32 ; r33 ; r34 ; r35 ; r36 ; r37 ; + a ; b ; dpl ; dph ; spl ; sph ; st0 ; st1 ; sst] + +let forbidden = + set_of_list + [a ; b ; dpl ; dph ; spl ; sph ; st0 ; st1 ; st2 ; st3 ; sst] + +let parameters = + let params = set_of_list [r30 ; r31 ; r32 ; r33 ; r34 ; r35 ; r36 ; r37] in + list_of_set (RegisterSet.diff params forbidden) + +let callee_saved = + RegisterSet.diff (set_of_list [r20 ; r21 ; r22 ; r23 ; r24 ; r25 ; r26 ; r27]) + forbidden +let caller_saved = + RegisterSet.diff (RegisterSet.diff registers callee_saved) forbidden +let allocatable = RegisterSet.diff registers forbidden + +let reg_addr r = `DIRECT (BitVectors.vect_of_int r `Eight) + +(* External RAM size *) +let ext_ram_size = MiscPottier.pow 2 16 +(* Internal RAM size *) +let int_ram_size = MiscPottier.pow 2 8 diff --git a/src/ASM/I8051.mli b/src/ASM/I8051.mli new file mode 100644 index 0000000..420cb8d --- /dev/null +++ b/src/ASM/I8051.mli @@ -0,0 +1,76 @@ + +include Arch.S + +type opaccs = + | Mul + | DivuModu + +type op1 = + | Cmpl + | Inc + +type op2 = + | Add + | Addc + | Sub + | And + | Or + | Xor + +val print_opaccs : opaccs -> string +val print_op1 : op1 -> string +val print_op2 : op2 -> string + +module Eval (Val : Value.S) : sig + val opaccs : opaccs -> Val.t -> Val.t -> + (Val.t (* first result (ACC) *) * + Val.t (* second result (BACC) *)) + val op1 : op1 -> Val.t -> Val.t + val op2 : Val.t (* carry *) -> op2 -> Val.t -> Val.t -> + (Val.t (* returned value *) * Val.t (* new carry value *)) +end + +(* Not supported: signed division, signed modulo, shift operations. *) + +type register +val compare_reg : register -> register -> int +val eq_reg : register -> register -> bool + +module RegisterSet : Set.S with type elt = register +module RegisterMap : Map.S with type key = register + +val a : register +val b : register +val dpl : register +val dph : register +val spl : register +val sph : register +val st0 : register +val st1 : register +val st2 : register +val st3 : register +val sts : register list +val rets : register list +val sst : register +val carry : register (* only used for the liveness analysis *) + +val spl_addr : int +val spl_init : int +val sph_addr : int +val sph_init : int +val isp_addr : int +val isp_init : int + +val registers : RegisterSet.t +val parameters : register list +val callee_saved : RegisterSet.t +val caller_saved : RegisterSet.t +val allocatable : RegisterSet.t +val forbidden : RegisterSet.t + +val print_register : register -> string + +val reg_addr : register -> [> ASM.direct] + +val ext_ram_size : int +val int_ram_size : int diff --git a/src/ASM/IntelHex.ml b/src/ASM/IntelHex.ml new file mode 100644 index 0000000..b71289a --- /dev/null +++ b/src/ASM/IntelHex.ml @@ -0,0 +1,293 @@ +open BitVectors;; +open ASM;; +open Util;; +open Parser;; +open Printf;; + +exception WrongFormat of string + +type intel_hex_entry_type = + Data + | End + | ExtendedSeg + | ExtendedLinear +;; + +type intel_hex_entry = +{ + record_length: byte; + record_addr: word; + record_type: intel_hex_entry_type; + data_field: byte list; + data_checksum: byte +} +;; + +type intel_hex_format = intel_hex_entry list;; + +let hex_digit_of_char = + function + '0' -> 0 | '1' -> 1 | '2' -> 2 + | '3' -> 3 | '4' -> 4 | '5' -> 5 + | '6' -> 6 | '7' -> 7 | '8' -> 8 + | '9' -> 9 | 'A' -> 10 | 'B' -> 11 + | 'C' -> 12 | 'D' -> 13 | 'E' -> 14 + | 'F' -> 15 | 'a' -> 10 | 'b' -> 11 + | 'c' -> 12 | 'd' -> 13 | 'e' -> 14 + | 'f' -> 15 | _ -> assert false + +let intel_hex_entry_type_of_int = + function + 0 -> Data + | 1 -> End + | 2 -> ExtendedSeg + | 4 -> ExtendedLinear + | _ -> assert false +;; + +let int_of_intel_hex_entry_type = + function + Data -> 0 + | End -> 1 + | ExtendedSeg -> 2 + | ExtendedLinear -> 4 +;; + +let prs_nibble = + prs_hex_digit >>= +fun a -> return $ vect_of_int (hex_digit_of_char a) `Four +;; + +let prs_byte = + prs_nibble >>= +fun a -> prs_nibble >>= +fun b -> return $ mk_byte a b +;; + +let prs_word = + prs_byte >>= +fun a -> prs_byte >>= +fun b -> return $ mk_word a b +;; + +let prs_length = prs_byte;; +let prs_data len = prs_exact len prs_byte +let prs_checksum = prs_byte;; +let prs_addr = prs_word;; + +let prs_type = + prs_hex_digit >>= +fun a -> prs_hex_digit >>= +fun b -> + let a_as_hex = hex_digit_of_char a in + let b_as_hex = hex_digit_of_char b in +(*CSC: is next line correct??? *) + let total = a_as_hex + b_as_hex in + return $ intel_hex_entry_type_of_int total + +let add_bytes v = + let r = List.rev v in + let rec aux (cry, bs) = + function + [] -> (cry, bs) + | hd::tl -> + aux (half_add hd bs) tl + in + aux (false, (vect_of_int 0 `Eight)) r + +let calculate_checksum hex_entry = + let ty = (flip vect_of_int $ `Eight) $ int_of_intel_hex_entry_type hex_entry.record_type in + let addr1,addr2 = from_word hex_entry.record_addr in + let _, total = add_bytes (hex_entry.record_length :: addr1 :: addr2 :: ty :: hex_entry.data_field) in + let _,total = half_add (vect_of_int 1 `Eight) $ complement total in + total + +let checksum_valid hex_entry = + let total = calculate_checksum hex_entry in + hex_entry.data_checksum = total + +let prs_intel_hex_record = + prs_char ':' >>= +fun _ -> prs_length >>= +fun b -> prs_addr >>= +fun c -> prs_type >>= +fun d -> prs_data (int_of_vect b) >>= +fun e -> prs_checksum >>= +fun f -> prs_eof >>= +fun _ -> + let entry = + { record_length = b; + record_addr = c; + record_type = d; + data_field = e; + data_checksum = f } + in + if checksum_valid entry then + return entry + else + prs_zero +;; + +let prs_intel_hex_format = + prs_sep_by prs_intel_hex_record (prs_char '\n') +;; + +let intel_hex_format_of_string s = + let chars = char_list_of_string s in + match prs_intel_hex_format chars with + [] -> None + | (prs,_)::_ -> Some prs + +let string_of_intel_hex_entry entry = + let b = Buffer.create 655536 in + let length_string = hex_string_of_vect entry.record_length in + let addr_string = Printf.sprintf "%04X" (int_of_vect entry.record_addr) in + let checksum_string = Printf.sprintf "%02X" (int_of_vect entry.data_checksum) in + let type_string = Printf.sprintf "%02d" (int_of_intel_hex_entry_type entry.record_type) in + List.iter (Buffer.add_string b) + [ + ":"; length_string; addr_string; type_string + ]; + List.iter (fun e -> Buffer.add_string b (hex_string_of_vect e)) entry.data_field; + Buffer.add_string b checksum_string; + Buffer.contents b +;; + +let string_of_intel_hex_format f = + let strs = List.map string_of_intel_hex_entry f in + let rec aux = + function + [] -> "" + | [e] -> e + | hd::tl -> hd ^ "\n" ^ aux tl + in + aux strs + +let intel_hex_of_file path = + let fd = open_in path in + let rec aux () = + match try Some (input_line fd) with End_of_file -> None with + None -> [] + | Some txt -> + let read = prs_intel_hex_record (Parser.chars_of_string txt) in + let read = + match read with + [x,[]] -> x + | _ -> raise (WrongFormat txt) + in + read::aux () + in + aux () +;; + +let rec load_from mem addr = + function + [] -> mem + | he::tl -> + load_from (Physical.WordMap.add addr he mem) (snd (BitVectors.half_add addr (BitVectors.vect_of_int 1 `Sixteen))) tl +;; + +let process_intel_hex = + let rec aux mem = + function + [] -> assert false + | he::tl -> + match he.record_type with + End -> assert (tl = []); mem + | Data -> aux (load_from mem he.record_addr he.data_field) tl + | _ -> assert false + in + aux Physical.WordMap.empty +;; + +(* DPM: this needs some comment: + We aim to extract code memory into segmented lists of bytes, with a maximum + length (chunk_size). The code memory map has a fixed size (max_addressable) + on the 8051. Further, the chunks we extract get segmented when we find an + unitialized zone in the code memory. +*) +let export_code_memory chunk_size max_addressable code_mem = + let rec aux chunk address start_address rbuff lbuff = + if address = max_addressable then + (start_address, List.rev rbuff)::lbuff + else if chunk = 0 then + aux chunk_size address address [] ((start_address, List.rev rbuff)::lbuff) + else + let code = Physical.WordMap.find (vect_of_int address `Sixteen) code_mem in + aux (chunk - 1) (address + 1) start_address (code::rbuff) lbuff + in + List.rev (aux chunk_size 0 0 [] []) +;; + +let clean_exported_code_memory = List.filter (fun x -> snd x <> []) +;; + +let calculate_data_checksum (record_length, record_addr, record_type, data_field) = + let ty = (flip vect_of_int $ `Eight) $ int_of_intel_hex_entry_type record_type in + let addr1,addr2 = from_word record_addr in + let _, total = add_bytes (record_length :: addr1 :: addr2 :: ty :: data_field) in + let _,total = half_add (vect_of_int 0 `Eight) $ complement total in + total +;; + +let process_exported_code_memory = + List.map (fun x -> + let record_length = vect_of_int (List.length (snd x)) `Eight in + let record_addr = vect_of_int (fst x) `Sixteen in + let record_type = Data in + let data_field = snd x in + let temp_record = + { record_length = record_length; + record_addr = record_addr; + record_type = record_type; + data_field = data_field; + data_checksum = zero `Eight + } in + { temp_record with data_checksum = calculate_checksum temp_record }) +;; + +let rec zeros len = + if len = 0 then + [] + else + vect_of_int 0 `Eight :: zeros (len - 1) + +let post_process_exported_code_memory intel_hex = + let reversed = List.rev intel_hex in + let rec aux hex = + match hex with + [] -> [] + | he::tl -> + if he.record_type = End then + aux tl + else if he.record_type = Data then + if he.data_field = zeros (int_of_vect he.record_length) then + aux tl + else + he::(aux tl) + else + tl + in + List.rev (aux reversed) + +let pack_exported_code_memory chunk_size max_addressable code_mem = + let export = export_code_memory chunk_size max_addressable code_mem in + let cleaned = clean_exported_code_memory export in + let processed = process_exported_code_memory cleaned in + let postprocessed = post_process_exported_code_memory processed in + let end_buffer = + [{ record_length = zero `Eight; + record_addr = zero `Sixteen; + record_type = End; + data_field = []; + data_checksum = vect_of_int 255 `Eight + }] in + postprocessed @ end_buffer +;; + +let file_of_intel_hex path fmt = + let str_fmt = string_of_intel_hex_format fmt in + let channel = open_out path in + fprintf channel "%s\n" str_fmt; + close_out channel +;; diff --git a/src/ASM/IntelHex.mli b/src/ASM/IntelHex.mli new file mode 100644 index 0000000..85edb10 --- /dev/null +++ b/src/ASM/IntelHex.mli @@ -0,0 +1,17 @@ +open BitVectors;; +open ASM;; +open Parser;; + +exception WrongFormat of string + +type intel_hex_format + +val string_of_intel_hex_format: intel_hex_format -> string +val prs_intel_hex_format: intel_hex_format parser + +val intel_hex_of_file: string -> intel_hex_format +val file_of_intel_hex: string -> intel_hex_format -> unit +val process_intel_hex: intel_hex_format -> Physical.WordMap.map + +val pack_exported_code_memory: int -> int -> Physical.WordMap.map -> intel_hex_format +val file_of_intel_hex: string -> intel_hex_format -> unit diff --git a/src/ASM/MIPS.ml b/src/ASM/MIPS.ml new file mode 100644 index 0000000..10232a8 --- /dev/null +++ b/src/ASM/MIPS.ml @@ -0,0 +1,214 @@ + +let int_size = 4 +let ptr_size = 4 +let alignment = Some 4 + +let insts = [AST.IOp_notbool] + +(* +(* Adapted from Pottier's PP compiler *) + +(* A machine word is 4 bytes. *) + +let word = + 4l + +(* The MIPS CPU contains 32 general-purpose 32-bit registers + that are numbered 0 to 31. + + Register 0, known as [$0], always contains the hardwired value 0. + + Register 1, known as [$at], is conventionally reserved for use by + the assembler for expanding certain pseudo-instructions into actual + hardware instructions. This means that we cannot use it. + + Registers 2 and 3, known as [$v0] and [$v1], are normally used to + return values from functions. In our compiler, only [$v0] is used + for this purpose. We use [$v1] as a reserved register for spilling + and refer to it as [$st0]. + + Registers 4 to 7, known as [$a0] to [$a3], are used to pass the + first four arguments to functions. Remaining arguments are passed + on the stack. + + Registers 8 to 15, 24 and 25, known as [$t0] to [$t9], are + caller-saved registers. + + Registers 16 to 23, known as [$s0] to [$s7], are callee-saved + registers. + + Registers 26 and 27, known as [$k0] and [$k1], are reserved for use + by the operating system kernel. + + Register 28, known as [$gp] for global pointer, points into the + middle of a 64K block of memory in the heap that holds constants + and global variables. + + Register 29, known as [$sp] for stack pointer, points to the last + location in use on the stack. + + Register 30, known as [$fp] for frame pointer, is used in our + compiler as a reserved register for spilling. We refer to it as + [$st1]. + + Register 31, known as [$ra], contains the return address for the + current function. It is written by the [jal] instruction. *) + +type register = + int + +let equal : register -> register -> bool = (=) + +module RegisterSet = struct + + include Set.Make (struct + type t = register + let compare = (-) + end) + + let disjoint s1 s2 = + is_empty (inter s1 s2) + + let of_list rs = + List.fold_right add rs empty + +end + +module RegisterMap = struct + + include Map.Make (struct + type t = register + let compare = (-) + end) + + let lift f s = + RegisterSet.fold (fun x m -> + add x (f x) m + ) s empty + +end + +(* Naming convention. *) + +let zero = + 0 + +let v0, v1, a0, a1, a2, a3 = + 2, 3, 4, 5, 6, 7 + +let t0, t1, t2, t3, t4, t5, t6, t7, t8, t9 = + 8, 9, 10, 11, 12, 13, 14, 15, 24, 25 + +let s0, s1, s2, s3, s4, s5, s6 = + 16, 17, 18, 19, 20, 21, 22 + +let gp_mips = + 23 (* s7 *) + +let gp_gnu = + 28 + +let sp, fp = + 29, 30 + +let ra = + 31 + +let st0, st1 = + v1, fp + +let print = function + | 0 -> + "zero" + | 1 -> + "at" + | 2 -> + "v0" + | 3 -> + "v1" + | 4 -> + "a0" + | 5 -> + "a1" + | 6 -> + "a2" + | 7 -> + "a3" + | 8 -> + "t0" + | 9 -> + "t1" + | 10 -> + "t2" + | 11 -> + "t3" + | 12 -> + "t4" + | 13 -> + "t5" + | 14 -> + "t6" + | 15 -> + "t7" + | 24 -> + "t8" + | 25 -> + "t9" + | 16 -> + "s0" + | 17 -> + "s1" + | 18 -> + "s2" + | 19 -> + "s3" + | 20 -> + "s4" + | 21 -> + "s5" + | 22 -> + "s6" + | 23 -> + "s7" + | 28 -> + "gp" + | 29 -> + "sp" + | 30 -> + "fp" + | 31 -> + "ra" + | _ -> + assert false + +let print2 r = string_of_int r + +(* Calling convention. *) + +let parameters = + [ a0; a1; a2; a3 ] + +let result = + v0 + +let caller_saved = + RegisterSet.of_list ( + [ v0; a0; a1; a2; a3; t0; t1; t2; t3; t4; t5; t6; t7; t8; t9; ra ] + ) + +let callee_saved = + RegisterSet.of_list ( + [ s0; s1; s2; s3; s4; s5; s6 ] + ) + +let allocatable = + (* The register [$zero] can be viewed as allocatable, but this requires building + ad hoc interference edges -- see [Build]. In TD7, in order to simplify things, + this register is made non-allocatable. *) + RegisterSet.add zero (RegisterSet.union caller_saved callee_saved) + +let registers = + RegisterSet.union allocatable + (RegisterSet.of_list [ gp_mips; gp_gnu; sp; st0; st1 ]) + +*) diff --git a/src/ASM/MIPS.mli b/src/ASM/MIPS.mli new file mode 100644 index 0000000..3823802 --- /dev/null +++ b/src/ASM/MIPS.mli @@ -0,0 +1,105 @@ + +include Arch.S + +(* +(* Adapted from Pottier's PP compiler *) + +(** This module defines the physical registers of the MIPS processor + and their conventional use. *) + +(* This is the size of a machine word in bytes. *) + +val word: int32 + +(* This is the type of hardware registers. *) + +type register + +val equal: register -> register -> bool +(* Names *) +val print: register -> string +(* Number *) +val print2: register -> string + +(* A list of the registers used for passing function parameters. *) + +val parameters: register list + +(* The register used for returning function results. *) + +val result: register + +(* The return address register. It is best thought of as a register + that is used to pass a parameter (namely, the return address). *) + +val ra: register + +(* The zero register always holds the value 0. Although it is a + special register, it is considered allocatable; see module [Zero] + for an explanation. *) + +val zero: register + +(* Sets of hardware registers. *) + +module RegisterSet : sig + include Set.S with type elt = register + val disjoint: t -> t -> bool + val of_list: elt list -> t +end + +(* Maps over hardware registers. *) + +module RegisterMap : sig + + include Map.S with type key = register + + (* [lift f s] turns the set [s] into a map where every element [x] + is mapped to [f x]. *) + + val lift: (key -> 'a) -> RegisterSet.t -> 'a t + +end + +(* A set of all allocatable hardware registers, that is, of all + registers that are available for use by the register allocator -- + as opposed to reserved for some fixed use. *) + +val allocatable: RegisterSet.t + +(* A set of all allocatable ``caller-saved'' hardware registers, that + is, of all allocatable registers that might be overwritten during a + function call. This includes the so-called ``caller-saved temporary + registers'' [$t0-$t9] as well as the registers used to implement + the calling convention, namely [$a0-$a3], [$v0], and [$ra]. *) + +val caller_saved: RegisterSet.t + +(* A set of all allocatable ``callee-saved'' hardware registers, that + is, of all allocatable registers that must be preserved by function + calls. *) + +val callee_saved: RegisterSet.t + +(* Two non-allocatable registers, reserved for transferring spilled + pseudo-registers to and from the stack. *) + +val st0: register +val st1: register + +(* The stack pointer register. *) + +val sp: register + +(* The global pointer register. *) + +val gp_mips: register +val gp_gnu: register + +(* A set of all registers that are used in the code that we generate. + This includes all allocatable registers, plus the four special + registers mentioned above. *) + +val registers: RegisterSet.t + +*) diff --git a/src/ASM/MIPSInterpret.ml b/src/ASM/MIPSInterpret.ml new file mode 100644 index 0000000..174f2b1 --- /dev/null +++ b/src/ASM/MIPSInterpret.ml @@ -0,0 +1,51 @@ + +let error_prefix = "MIPS interpret" +let error s = Error.global_error error_prefix (s ^ "\n") + + +let unop = function + | MIPSOps.UOpAddi i -> Value.add (Value.Val_int i) + | MIPSOps.UOpSlti i -> (fun v -> Value.cmp_lt v (Value.Val_int i)) + | MIPSOps.UOpSltiu i -> (fun v -> Value.cmp_lt_u v (Value.Val_int i)) + | MIPSOps.UOpAndi i -> Value.and_op (Value.Val_int i) + | MIPSOps.UOpOri i -> Value.or_op (Value.Val_int i) + | MIPSOps.UOpXori i -> Value.xor (Value.Val_int i) + | MIPSOps.UOpNeg -> Value.negint + | MIPSOps.UOpNot -> Value.notint + +let binop = function + | MIPSOps.OpAdd -> Value.add + | MIPSOps.OpSub -> Value.sub + | MIPSOps.OpMul -> Value.mul + | MIPSOps.OpDiv -> Value.div + | MIPSOps.OpDivu -> Value.divu + | MIPSOps.OpModu -> Value.modulo + | MIPSOps.OpLt -> Value.cmp_lt + | MIPSOps.OpLtu -> Value.cmp_lt_u + | MIPSOps.OpLe -> Value.cmp_le + | MIPSOps.OpLeu -> Value.cmp_le_u + | MIPSOps.OpGt -> Value.cmp_gt + | MIPSOps.OpGtu -> Value.cmp_gt_u + | MIPSOps.OpGe -> Value.cmp_ge + | MIPSOps.OpGeu -> Value.cmp_ge_u + | MIPSOps.OpEq -> Value.cmp_eq + | MIPSOps.OpNe -> Value.cmp_ne + | MIPSOps.OpSllv -> Value.shl + | MIPSOps.OpSrav -> Value.shr + | MIPSOps.OpSrlv -> Value.shru + | MIPSOps.OpAnd -> Value.and_op + | MIPSOps.OpOr -> Value.or_op + | MIPSOps.OpXor -> Value.xor + +let fun_of_uncon = function + | MIPSOps.UConGez -> Value.cmp_ge + | MIPSOps.UConGtz -> Value.cmp_gt + | MIPSOps.UConLez -> Value.cmp_le + | MIPSOps.UConLtz -> Value.cmp_lt + +let uncon con = (fun_of_uncon con) (Value.Val_int 0l) + + +let bincon = function + | MIPSOps.ConEq -> Value.cmp_eq + | MIPSOps.ConNe -> Value.cmp_ne diff --git a/src/ASM/MIPSInterpret.mli b/src/ASM/MIPSInterpret.mli new file mode 100644 index 0000000..df81c2e --- /dev/null +++ b/src/ASM/MIPSInterpret.mli @@ -0,0 +1,10 @@ +(* Adapted from Pottier's PP compiler *) + +(** This module provides interpretations of the MIPS operators, for + use in building interpreters or in the compiler itself. *) + +val unop: MIPSOps.unop -> (Value.t -> Value.t) +val binop: MIPSOps.binop -> (Value.t -> Value.t -> Value.t) + +val uncon: MIPSOps.uncon -> (Value.t -> Value.t) +val bincon: MIPSOps.bincon -> (Value.t -> Value.t -> Value.t) diff --git a/src/ASM/MIPSOps.mli b/src/ASM/MIPSOps.mli new file mode 100644 index 0000000..b2f66cb --- /dev/null +++ b/src/ASM/MIPSOps.mli @@ -0,0 +1,113 @@ + +(** This module defines the operators and branch conditions of the + MIPS processor. *) + +(* Pasted from Pottier's PP compiler *) + +(* These type definitions document the target processor's operators + and branch conditions. Here, the target processor is the MIPS. *) + +(* The MIPS manual explains that some instructions are actual machine + instructions, while others are pseudo-instructions, which are + expanded away by the assembler. Do we need to be aware of the + distinction? + + Ignoring the distinction is interesting. There are several + processors in the MIPS family, and the distinction between actual + instructions and pseudo-instructions might vary with the + processor. For instance, a future member of the MIPS family might + implement more instructions in hardware than its predecessors. + + On the other hand, ignoring the distinction means that we cannot + use the hardware register [$at], which is reserved by the assembler + for translating some pseudo-instructions into actual instructions. + + Our approach is to follow standard practice and to exploit + pseudo-instructions when desired. This means that we cannot use + register [$at]. *) + +(* Immediate constants, used in the definition of some operators. They + must fit in 16 bits. *) + +type immediate16 = + int32 + +(* Offsets, used as part of addressing modes. They are measured in + bytes and must fit in 16 bits. *) + +type offset = + immediate16 + +(* Unary (integer arithmetic) operators. *) + +type unop = + | UOpAddi of immediate16 + | UOpSlti of immediate16 (* set on less than immediate *) + | UOpSltiu of immediate16 + | UOpAndi of immediate16 + | UOpOri of immediate16 + | UOpXori of immediate16 + | UOpNeg + | UOpNot + +(* Binary (integer arithmetic or integer comparison) operators. Among + the comparison operators, only [OpLt] corresponds to a MIPS binary + comparison instruction, namely [slt]. All others correspond to + pseudo-instructions. They are exploited because they are + convenient. *) + +type binop = + | OpAdd + | OpSub + | OpMul + | OpDiv + | OpDivu + | OpModu + | OpLt + | OpLtu + | OpLe + | OpLeu + | OpGt + | OpGtu + | OpGe + | OpGeu + | OpEq + | OpNe + | OpSllv + | OpSrav + | OpSrlv + | OpAnd + | OpOr + | OpXor + +(* Unary branch conditions. *) + +type uncon = + + (* Greater than or equal to zero. *) + + | UConGez + + (* Greater than zero. *) + + | UConGtz + + (* Less than or equal to zero. *) + + | UConLez + + (* Less than zero. *) + + | UConLtz + +(* Binary branch conditions. *) + +and bincon = + + (* Equal. *) + + | ConEq + + (* Not equal. *) + + | ConNe diff --git a/src/ASM/Parser.ml b/src/ASM/Parser.ml new file mode 100644 index 0000000..738900e --- /dev/null +++ b/src/ASM/Parser.ml @@ -0,0 +1,89 @@ +open Util;; +open BitVectors;; +open ASM;; + +let chars_of_string s = + let len = String.length s in + let rec aux n = + if n < len then + s.[n] :: aux (n + 1) + else + [] + in + aux 0 +;; + +type 'a parser = char list -> ('a * char list) list + +let return x = + fun y -> [(x, y)] + +let (>>=) f g = + fun x -> + let frst = f x in + List.concat $ List.map (fun (a, x') -> (g a) x') frst + +let prs_zero = fun _ -> [] +;; + +let prs_eof = function [] -> [(),[]] | _ -> [];; + +let prs_predicate p = + function + hd::tl -> + if p hd then + [(hd, tl)] + else + [] + | [] -> [] +;; + +let (++) f g = + fun x -> + f x @ g x +;; + +let (+++) f g = + fun x -> + match (f ++ g) x with + [] -> [] + | hd::_ -> [hd] +;; + +let rec prs_many p = + prs_many1 p +++ return [] +and prs_many1 p = + p >>= +fun a -> prs_many p >>= +fun b -> return $ a::b +;; + +let rec prs_exact i p = + if i = 0 then + return [] + else + p >>= +fun a -> prs_exact (i - 1) p >>= +fun b -> return $ a::b + +let rec prs_sep_by p s = + prs_sep_by1 p s +++ return [] +and prs_sep_by1 p s = + p >>= +fun a -> prs_many $ (s >>= fun _ -> p) >>= +fun b -> return $ a::b + + +let prs_char c = prs_predicate (fun x -> x = c) +;; + +let prs_hex_digit = + prs_predicate + (fun x -> + x = '0' || x = '1' || x = '2' || x = '3' || + x = '4' || x = '5' || x = '6' || x = '7' || + x = '8' || x = '9' || x = 'A' || x = 'B' || + x = 'C' || x = 'D' || x = 'E' || x = 'F' || + x = 'a' || x = 'b' || x = 'c' || x = 'd' || + x = 'e' || x = 'f') + diff --git a/src/ASM/Parser.mli b/src/ASM/Parser.mli new file mode 100644 index 0000000..a6a2ac5 --- /dev/null +++ b/src/ASM/Parser.mli @@ -0,0 +1,19 @@ +val chars_of_string: string -> char list + +type 'a parser = char list -> ('a * char list) list + +val return: 'a -> 'a parser +val (>>=): 'a parser -> ('a -> 'b parser) -> 'b parser +val prs_zero: 'a parser +val prs_eof: unit parser +val prs_predicate: (char -> bool) -> char parser;; +val prs_many1: 'a parser -> ('a list) parser;; +val prs_many: 'a parser -> ('a list) parser;; +val prs_exact: int -> 'a parser -> ('a list) parser;; +val prs_sep_by: 'a parser -> 'b parser -> ('a list) parser;; +val prs_sep_by1: 'a parser -> 'b parser -> ('a list) parser;; +val (++): 'a parser -> 'a parser -> 'a parser;; +val (+++): 'a parser -> 'a parser -> 'a parser;; + +val prs_char: char -> char parser;; +val prs_hex_digit: char parser;; diff --git a/src/ASM/Physical.ml b/src/ASM/Physical.ml new file mode 100644 index 0000000..39feafe --- /dev/null +++ b/src/ASM/Physical.ml @@ -0,0 +1,112 @@ +open BitVectors;; + +exception Byte7_conversion + +module type Map = + sig + type key + type map + val empty : map + val find : key -> map -> byte + val add : key -> byte -> map -> map + val fold : (key -> byte -> 'b -> 'b) -> map -> 'b -> 'b + val equal: (byte -> byte -> bool) -> map -> map -> bool + end +;; + +module Byte7Map : Map with type key = byte7 = +struct + include Map.Make (struct type t = byte7 let compare = Pervasives.compare end) + type map = byte t + let find k m = + try + find k m + with Not_found -> zero `Eight + let fold = fold + let equal = equal +end;; + +module WordMap : Map with type key = word = +struct + include Map.Make (struct type t = word let compare = Pervasives.compare end) + type map = byte t + let find k m = + try + find k m + with Not_found -> zero `Eight + let fold = fold + let equal = equal +end;; + +let int_of_bit = + function + false -> 0 + | true -> 1 + +let add8_with_c (b1 : [`Eight] vect) (b2 : [`Eight] vect) (c : bit) = + let n1 = int_of_vect b1 in + let n2 = int_of_vect b2 in + let c = int_of_bit c in + let res = n1 + n2 + c in + let ac = n1 mod 16 + n2 mod 16 + c >= 16 in + let c6 = n1 mod 128 + n2 mod 128 + c >= 128 in + let res,c = res mod 256, res >= 256 in + let ov = c <> c6 in + vect_of_int res `Eight,c,ac,ov +;; + +let add16_with_c (b1 : [`Sixteen] vect) (b2 : [`Sixteen] vect) (c : bit) = + let n1 = int_of_vect b1 in + let n2 = int_of_vect b2 in + let c = int_of_bit c in + let res = n1 + n2 + c in + let ac = n1 mod 256 + n2 mod 256 + c >= 256 in + let c6 = n1 mod 2097152 + n2 mod 2097152 + c >= 2097152 in + let res,c = res mod 4194304, res >= 4194304 in + let ov = c <> c6 in + vect_of_int res `Sixteen,c,ac,ov +;; + +let subb8_with_c (b1 : [`Eight] vect) (b2 : [`Eight] vect) (c : bit) = + let n1 = int_of_vect b1 in + let n2 = int_of_vect b2 in + let c = int_of_bit c in + let res = n1 - n2 - c in + let ac = n1 mod 16 - n2 mod 16 - c < 0 in + let c6 = n1 mod 128 - n2 mod 128 - c < 0 in + let res,c = + if res >= 0 then res,false + else n1 + 256 - n2 - c, true in + let ov = c <> c6 in + (vect_of_int res `Eight,c,ac,ov) +;; + +let dec b = + let res = int_of_vect b - 1 in + if res < 0 then vect_of_int 255 `Eight + else vect_of_int res `Eight +;; + +let inc b = + let res = int_of_vect b + 1 in + if res > 255 then (vect_of_int 0 `Eight : byte) + else (vect_of_int res `Eight : byte) +;; + +let byte7_of_bit b = + [false;false;false;false;false;false;b] +;; + +let byte_of_byte7 = + function + ([b1;b2;b3]::n) -> [false;b1;b2;b3]::n + | _ -> assert false +;; + +let addr16_of_addr11 pc a = + let pc_upper, _ = from_word pc in + let n1, n2 = from_byte pc_upper in + let (b1,b2,b3,b) = from_word11 a in + let (p1,p2,p3,p4),(p5,_,_,_) = from_nibble n1, from_nibble n2 in + mk_word (mk_byte (mk_nibble p1 p2 p3 p4) (mk_nibble p5 b1 b2 b3)) b +;; diff --git a/src/ASM/Physical.mli b/src/ASM/Physical.mli new file mode 100644 index 0000000..2dcccd2 --- /dev/null +++ b/src/ASM/Physical.mli @@ -0,0 +1,31 @@ +open BitVectors;; + +exception Byte7_conversion + +module type Map = + sig + type key + type map + val empty : map + val find : key -> map -> byte + val add : key -> byte -> map -> map + val fold : (key -> byte -> 'b -> 'b) -> map -> 'b -> 'b + val equal: (byte -> byte -> bool) -> map -> map -> bool + end +;; + +module Byte7Map : Map with type key = byte7 +module WordMap : Map with type key = word + +val int_of_bit: bit -> int + +val subb8_with_c: + byte -> byte -> bit -> byte * bit * bit * bit (* -, c, ac, ov *) +val add8_with_c: + byte -> byte -> bit -> byte * bit * bit * bit +val add16_with_c: + word -> word -> bit -> word * bit * bit * bit +val dec: byte -> byte (* with roll-over *) +val inc: byte -> byte (* with roll-over *) + +val addr16_of_addr11: word -> word11 -> word diff --git a/src/ASM/Pretty.ml b/src/ASM/Pretty.ml new file mode 100644 index 0000000..8af5c8a --- /dev/null +++ b/src/ASM/Pretty.ml @@ -0,0 +1,113 @@ +open BitVectors;; +open ASM;; + +let pp_arg = + function + `A -> "A" + | `B -> "B" + | `C -> "C" + | `DPTR -> "DPTR" + | `ADDR11 x -> hex_string_of_vect x + | `ADDR16 x -> hex_string_of_vect x + | `DATA x -> "#0" ^ hex_string_of_vect x ^ "h" + | `DATA16 x -> "#0" ^ hex_string_of_vect x ^ "h" + | `BIT x -> "bit " ^ hex_string_of_vect (x: byte) + | `NBIT x -> "nbit " ^ hex_string_of_vect (x: byte) + | `REG (r1, r2, r3) -> "R" ^ string_of_int (int_of_vect (mk_nibble false r1 r2 r3)) + | `REL x -> hex_string_of_vect x + | `A_DPTR -> "@DPTR" + | `A_PC -> "@PC" + | `DIRECT x -> "0" ^ (hex_string_of_vect (x: byte)) ^ "h" + | `EXT_INDIRECT x -> "ext_indirect " ^ string_of_bool x + | `EXT_IND_DPTR -> "@DPTR" +(* DPM: weird: this seems to be reversed in mcu8051ide: change made. *) + | `INDIRECT x -> if not x then "@R0" else "@R1" + | `IND_DPTR -> "@DPTR" + | `Label s -> s +;; + +let pp_jump = + function + `CJNE (`U1 (a1,a2),a3) -> "cjne " ^ pp_arg a1 ^ ", " ^ pp_arg a2 ^ ", " ^ pp_arg a3 + | `CJNE (`U2 (a1,a2),a3) -> "cjne " ^ pp_arg a1 ^ ", " ^ pp_arg a2 ^ ", " ^ pp_arg a3 + | `DJNZ (a1,a2) -> "djnz " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `JB (a1,a2) -> "jb " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `JBC (a1,a2) -> "jbc " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `JC a1 -> "jc " ^ pp_arg a1 + | `JNB (a1,a2) -> "jnb " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `JNC a1 -> "jnc " ^ pp_arg a1 + | `JNZ a1 -> "jnz " ^ pp_arg a1 + | `JZ a1 -> "jz " ^ pp_arg a1 + +let pp_instruction = + function + `Label l -> l ^ ":" + | `Cost l -> l ^ ":" + | `Jmp j -> "ljmp " ^ j + | `Call j -> "lcall " ^ j + | `WithLabel i -> pp_jump i + | (#jump as i) -> pp_jump i + | `Mov (a1,a2) -> "mov " ^ pp_arg a1 ^ ", " ^ a2 + | `ACALL a1 -> "acall " ^ pp_arg a1 + | `ADD (a1,a2) -> "add " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `ADDC (a1,a2) -> "addc " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `AJMP a1 -> "ajmp " ^ pp_arg a1 + | `ANL (`U1 (a1,a2)) -> "anl " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `ANL (`U2 (a1,a2)) -> "anl " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `ANL (`U3 (a1,a2)) -> "anl " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `CLR a1 -> "clr " ^ pp_arg a1 + | `CPL a1 -> "cpl " ^ pp_arg a1 + | `DA a1 -> "da " ^ pp_arg a1 + | `DEC a1 -> "dec " ^ pp_arg a1 + | `DIV (a1,a2) -> "div AB" + | `INC a1 -> "inc " ^ pp_arg a1 + | `JMP a1 -> "jmp " ^ pp_arg a1 + | `LCALL a1 -> "lcall " ^ pp_arg a1 + | `LJMP a1 -> "ljmp " ^ pp_arg a1 + | `MOV (`U1 (a1,a2)) -> "mov " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `MOV (`U2 (a1,a2)) -> "mov " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `MOV (`U3 (a1,a2)) -> "mov " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `MOV (`U4 (a1,a2)) -> "mov " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `MOV (`U5 (a1,a2)) -> "mov " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `MOV (`U6 (a1,a2)) -> "mov " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `MOVC (a1,a2) -> "movc " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `MOVX (`U1 (a1,a2)) -> "movx " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `MOVX (`U2 (a1,a2)) -> "movx " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `MUL(a1, a2) -> "mul AB" + | `NOP -> "nop" + | `ORL (`U1(a1,a2)) -> "orl " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `ORL (`U2(a1,a2)) -> "orl " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `ORL (`U3(a1,a2)) -> "orl " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `POP a1 -> "pop " ^ pp_arg a1 + | `PUSH a1 -> "push " ^ pp_arg a1 + | `RET -> "ret" + | `RETI -> "reti" + | `RL a1 -> "rl " ^ pp_arg a1 + | `RLC a1 -> "rlc " ^ pp_arg a1 + | `RR a1 -> "rr " ^ pp_arg a1 + | `RRC a1 -> "rrc " ^ pp_arg a1 + | `SETB a1 -> "setb " ^ pp_arg a1 + | `SJMP a1 -> "sjmp " ^ pp_arg a1 + | `SUBB (a1,a2) -> "subb " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `SWAP a1 -> "swap " ^ pp_arg a1 + | `XCH (a1,a2) -> "xch " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `XCHD(a1,a2) -> "xchd " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `XRL(`U1(a1,a2)) -> "xrl " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + | `XRL(`U2(a1,a2)) -> "xrl " ^ pp_arg a1 ^ ", " ^ pp_arg a2 + +let print_program p = + let eformat = Eformat.create () in + let printf = Eformat.printf eformat in + let mem = ASMInterpret.load_code_memory p.ASM.code in + let f pc _ = + let (inst, new_pc, cost) = ASMInterpret.fetch mem pc in + printf "% 6X: %- 18s ;; %d %s\n" + (BitVectors.int_of_vect pc) + (pp_instruction inst) + cost + (if BitVectors.WordMap.mem pc p.ASM.cost_labels then + (BitVectors.WordMap.find pc p.ASM.cost_labels) + else "") ; + new_pc in + let _ = List.fold_left f (BitVectors.zero `Sixteen) p.ASM.code in + Eformat.get eformat diff --git a/src/ASM/Pretty.mli b/src/ASM/Pretty.mli new file mode 100644 index 0000000..74a15d5 --- /dev/null +++ b/src/ASM/Pretty.mli @@ -0,0 +1,23 @@ +val pp_arg: + [< `A + | `ADDR11 of 'a BitVectors.vect + | `ADDR16 of 'b BitVectors.vect + | `A_DPTR + | `A_PC + | `B + | `BIT of BitVectors.byte + | `C + | `DATA of 'c BitVectors.vect + | `DATA16 of 'd BitVectors.vect + | `DIRECT of BitVectors.byte + | `DPTR + | `EXT_INDIRECT of bool + | `EXT_IND_DPTR + | `INDIRECT of bool + | `IND_DPTR + | `NBIT of BitVectors.byte + | `REG of BitVectors.bit * BitVectors.bit * BitVectors.bit + | `REL of 'e BitVectors.vect ] -> string +val pp_instruction: [< ASM.labelled_instruction] -> string + +val print_program : ASM.program -> string diff --git a/src/ASM/Util.ml b/src/ASM/Util.ml new file mode 100644 index 0000000..48da8cf --- /dev/null +++ b/src/ASM/Util.ml @@ -0,0 +1,30 @@ +let ($) f x = f x +;; + +let (<*>) f g x = f (g x) +;; + +let flip f a b = f b a +;; + +let fst (a, b) = a +;; + +let snd (a, b) = b +;; + +let rec pad v i l = + match i with + 0 -> l + | n -> v :: (pad v (i - 1) l) +;; + +let char_list_of_string s = + let str_length = String.length s in + let rec aux s l buff = + if l = str_length then + buff + else + aux s (l + 1) ((String.get s l)::buff) + in + List.rev $ aux s 0 [] diff --git a/src/ASM/arch.mli b/src/ASM/arch.mli new file mode 100644 index 0000000..09d56ea --- /dev/null +++ b/src/ASM/arch.mli @@ -0,0 +1,7 @@ + +module type S = +sig + val int_size : int + val ptr_size : int + val alignment : int option +end diff --git a/src/ASM/printOps.ml b/src/ASM/printOps.ml new file mode 100644 index 0000000..971beea --- /dev/null +++ b/src/ASM/printOps.ml @@ -0,0 +1,96 @@ +(* Pasted from Pottier's PP compiler *) + +open MIPSOps +open Printf + +(* Some of the instructions that we emit are in fact pseudo-instructions. *) + +(* We use [addu], [addiu], and [subu] instead of [add], [addi], and + [sub]. The only difference is that the former never generate + overflow exceptions. This is what we desire, since the semantics + of Pseudo-Pascal says nothing about overflow exceptions. Overflow + is silent. *) + +let unop reg f (op, dst, src) = + match op with + | UOpAddi 0l -> + sprintf "move %a, %a" reg dst reg src (* pseudo-instruction *) + | UOpAddi i -> + sprintf "addi %a, %a, %ld" reg dst reg src i + | UOpSlti i -> + sprintf "slti %a, %a, %ld" reg dst reg src i + | UOpSltiu i -> + sprintf "sltiu %a, %a, %ld" reg dst reg src i + | UOpAndi i -> + sprintf "andi %a, %a, %ld" reg dst reg src i + | UOpOri i -> + sprintf "ori %a, %a, %ld" reg dst reg src i + | UOpXori i -> + sprintf "xori %a, %a, %ld" reg dst reg src i + | UOpNeg -> + sprintf "neg %a, %a" reg dst reg src + | UOpNot -> + sprintf "not %a, %a" reg dst reg src + +let binop = function + | OpAdd -> + "add " + | OpSub -> + "sub " + | OpMul -> + "mulo " + | OpDiv -> + "div " (* pseudo-instruction *) + | OpDivu -> + "divu " (* pseudo-instruction *) + | OpModu -> + "remu " (* pseudo-instruction *) + | OpLt -> + "slt " + | OpLtu -> + "sltu " + | OpLe -> + "sle " (* pseudo-instruction *) + | OpLeu -> + "sleu " (* pseudo-instruction *) + | OpGt -> + "sgt " (* pseudo-instruction *) + | OpGtu -> + "sgtu " (* pseudo-instruction *) + | OpGe -> + "sge " (* pseudo-instruction *) + | OpGeu -> + "sgeu " (* pseudo-instruction *) + | OpEq -> + "seq " (* pseudo-instruction *) + | OpNe -> + "sne " (* pseudo-instruction *) + | OpSllv -> + "sllv " + | OpSrav -> + "srav " + | OpSrlv -> + "srlv " + | OpAnd -> + "and " + | OpOr -> + "or " + | OpXor -> + "xor " + +let uncon reg f (cond, src) = + match cond with + | UConGez -> + sprintf "bgez %a" reg src + | UConGtz -> + sprintf "bgtz %a" reg src + | UConLez -> + sprintf "blez %a" reg src + | UConLtz -> + sprintf "bltz %a" reg src + +let bincon = function + | ConEq -> + "beq " + | ConNe -> + "bne " diff --git a/src/ASM/printOps.mli b/src/ASM/printOps.mli new file mode 100644 index 0000000..9190bf2 --- /dev/null +++ b/src/ASM/printOps.mli @@ -0,0 +1,12 @@ + +(** This module provides functions to print the operators of the + MIPS processor. *) + +(* Pasted from Pottier's PP compiler *) + +open PrintPottier + +val unop: 'reg printer -> (MIPSOps.unop * 'reg * 'reg) printer +val binop: MIPSOps.binop -> string +val uncon: 'reg printer -> (MIPSOps.uncon * 'reg) printer +val bincon: MIPSOps.bincon -> string diff --git a/src/ERTL/ERTL.mli b/src/ERTL/ERTL.mli new file mode 100644 index 0000000..026ebb9 --- /dev/null +++ b/src/ERTL/ERTL.mli @@ -0,0 +1,191 @@ + +(** This module defines the abstract syntax tree of [RTL]. *) + +(* Adapted from Pottiers's Pseudo-Pascal pedagogical compiler *) + +(* This is the definition of the abstract syntax for the Explicit + Register Transfer Language (ERTL). + + This language is very much like RTL, except the calling convention + has been made explicit. That is, functions and procedures no longer + accept parameters and return results via a high-level mechanism; + instead, they do so via either hardware registers or stack + slots. + + Functions and procedures no longer magically return to their caller: instead, + a new [St_return] instruction appears, whose semantics is to transfer control + to the address stored in the return address registers. + + Functions and procedures are no longer explicitly distinguished: functions + are simply procedures that happen to write the hardware register. There only + remains a distinction at [St_return] instructions (see below). + + Two new instructions, [St_newframe] and [St_delframe], appear in order to + allocate and release stack frames. They will be translated, in the final + assembly code, to arithmetic on the stack pointer registers. *) + +(* Stack organization. + + The stack is going from top to bottom. Below is a schema of the stack + organization viewed by the function being executed. + + formal parameters (the first parameter is at the top) + spilled variables (the first spilled variable is a the top) + local variables (the first local variable is at the bottom) + stack pointer -> +*) + +type registers = Register.t list + +type statement = + + (* The empty statement. *) + | St_skip of Label.t + + (* Comment. *) + | St_comment of string * Label.t + + (* Emit a cost label. *) + | St_cost of CostLabel.t * Label.t + + (* Assign the content of a hardware register to a pseudo register. Parameters + are the destination pseudo register, the source hardware register, and the + label of the next statement. *) + | St_get_hdw of Register.t * I8051.register * Label.t + + (* Assign the content of a pseudo register to a hardware register. Parameters + are the destination hardware register, the source pseudo register, and the + label of the next statement. *) + | St_set_hdw of I8051.register * Register.t * Label.t + + (* Assign the content of a hardware register to a hardware + register. Parameters are the destination register, the source register, and + the label of the next statement. Only used to save the return value before + the epilogue and restore it right before leaving the function. *) + | St_hdw_to_hdw of I8051.register * I8051.register * Label.t + + (* Allocate required space on the stack for the function. Parameter is the + label of the next statement. *) + | St_newframe of Label.t + + (* Deallocate required space on the stack for the function. Parameter is the + label of the next statement. *) + | St_delframe of Label.t + + (* Assign the frame size to a register. Parameters are the destination + register, and the label of the next statement. *) + | St_framesize of Register.t * Label.t + + (* Pop a value from the IRAM to a register. Parameter are the destination + register, and the label of the next statement. *) + | St_pop of Register.t * Label.t + + (* Push a value from a register to the IRAM. Parameter are the source + register, and the label of the next statement. *) + | St_push of Register.t * Label.t + + (* Assign the most significant bits of the address of a symbol to a + register. Parameters are the destination register, the symbol and the label + of the next statement. *) + | St_addrH of Register.t * AST.ident * Label.t + + (* Assign the least significant bits of the address of a symbol to a + register. Parameters are the destination register, the symbol and the label + of the next statement. *) + | St_addrL of Register.t * AST.ident * Label.t + + (* Assign an integer constant to a register. Parameters are the destination + register, the integer and the label of the next statement. *) + | St_int of Register.t * int * Label.t + + (* Move the content of a register to another. Parameters are the destination + register, the source register, and the label of the next statement. *) + | St_move of Register.t * Register.t * Label.t + + (* Apply a binary operation that will later be translated in an operation on + the accumulators, keeping only the result in ACC. Parameters are the + operation, the destination register, the source registers, and the label of + the next statement. *) + | St_opaccsA of I8051.opaccs * Register.t * Register.t * Register.t * Label.t + + (* Apply a binary operation that will later be translated in an operation on + the accumulators, keeping only the result in BACC. Parameters are the + operation, the destination register, the source registers, and the label of + the next statement. *) + | St_opaccsB of I8051.opaccs * Register.t * Register.t * Register.t * Label.t + + (* Apply an unary operation. Parameters are the operation, the destination + register, the source register, and the label of the next statement. *) + | St_op1 of I8051.op1 * Register.t * Register.t * Label.t + + (* Apply a binary operation. Parameters are the operation, the destination + register, the source registers, and the label of the next statement. *) + | St_op2 of I8051.op2 * Register.t * Register.t * Register.t * Label.t + + (* Set the carry flag to zero. Parameter is the label of the next + statement. *) + | St_clear_carry of Label.t + + (* Set the carry flag to 1. Parameter is the label of the next statement. *) + | St_set_carry of Label.t + + (* Load from external memory. Parameters are the destination register, the + address registers (low bytes first), and the label of the next + statement. *) + | St_load of Register.t * Register.t * Register.t * Label.t + + (* Store to external memory. Parameters are the address registers (low bytes + first), the source register, and the label of the next statement. *) + | St_store of Register.t * Register.t * Register.t * Label.t + + (* Call to a function given its name. Parameters are the name of the function, + the number of arguments of the function, and the label of the next + statement. *) + | St_call_id of AST.ident * int * Label.t + + (* Call to a function given its address. Parameters are the registers holding + the address of the function, the number of arguments of the function, and + the label of the next statement. *) + | St_call_ptr of Register.t * Register.t * int * Label.t + +(* + (* Tail call to a function given its name. Parameters are the name of the + function, and the number of arguments of the function. *) + | St_tailcall_id of AST.ident * int + + (* Tail call to a function given its address. Parameters are registers holding + the address of the function, and the arguments of the function. *) + | St_tailcall_ptr of registers * register list +*) + + (* Branch. Parameters are the register holding the value for the branching, + the label to go to when the value is not 0, and the label to go to when the + value is 0. *) + | St_cond of Register.t * Label.t * Label.t + + (* Transfer control to the address stored in the return address registers. *) + | St_return of registers + +type graph = statement Label.Map.t + +type internal_function = + { f_luniverse : Label.Gen.universe ; + f_runiverse : Register.universe ; + f_params : int ; + f_locals : Register.Set.t ; + f_stacksize : int ; + f_graph : graph ; + f_entry : Label.t ; + f_exit : Label.t } + +type function_def = + | F_int of internal_function + | F_ext of AST.external_function + +(* A program is a list of global variables and their reserved space, a list of + function names and their definition, and the name of the main function. *) + +type program = + { vars : (AST.ident * int (* size *)) list ; + functs : (AST.ident * function_def) list ; + main : AST.ident option } diff --git a/src/ERTL/ERTLInterpret.ml b/src/ERTL/ERTLInterpret.ml new file mode 100644 index 0000000..6caa400 --- /dev/null +++ b/src/ERTL/ERTLInterpret.ml @@ -0,0 +1,509 @@ + +(** This module provides an interpreter for the ERTL language. *) + + +let error_prefix = "ERTL interpret" +let error s = Error.global_error error_prefix s + + +module Mem = Driver.ERTLMemory +module Val = Mem.Value +let chunk = Driver.ERTLMemory.int_size +module Eval = I8051.Eval (Val) + + +(* Memory *) + +type memory = ERTL.function_def Mem.memory + +(* Local environments. They associate a value to the pseudo-registers of the + function being executed. *) + +type local_env = Val.t Register.Map.t + +(* Hardware registers environments. They associate a value to each hardware + register. *) + +type hdw_reg_env = Val.t I8051.RegisterMap.t + +(* Call frames. The execution state has a call stack, each element of the stack + being composed of the local environment to resume the execution of the + caller. *) + +type stack_frame = local_env + +(* Execution states. *) + +type state = + { st_frs : stack_frame list ; + pc : Val.address ; + isp : Val.address ; + exit : Val.address ; + lenv : local_env ; + carry : Val.t ; + renv : hdw_reg_env ; + mem : memory ; + trace : CostLabel.t list } + + +(* Helpers *) + +let add_st_frs st frame = { st with st_frs = frame :: st.st_frs } +let pop_st_frs st = match st.st_frs with + | [] -> error "Empty stack frames." + | lenv :: st_frs -> { st with st_frs = st_frs ; lenv = lenv } +let change_pc st pc = { st with pc = pc } +let change_isp st isp = { st with isp = isp } +let change_exit st exit = { st with exit = exit } +let change_lenv st lenv = { st with lenv = lenv } +let change_carry st carry = { st with carry = carry } +let change_renv st renv = { st with renv = renv } +let change_mem st mem = { st with mem = mem } +let change_trace st trace = { st with trace = trace } +let add_trace st cost_lbl = change_trace st (cost_lbl :: st.trace) + +let empty_state = + { st_frs = [] ; + pc = Val.null ; + isp = Val.null ; + exit = Val.null ; + lenv = Register.Map.empty ; + carry = Val.undef ; + renv = I8051.RegisterMap.empty ; + mem = Mem.empty ; + trace = [] } + + +(* Each label of each function is associated an address. The base of this + address is the base of the function in memory. Inside a function, offsets are + bijectively associated to labels. *) + +module Labels_Offsets = Bijection.Make (Label) (Val.Offset) + +let labels_offsets_internal int_fun = + let f lbl _ (lbls_offs, i) = + (Labels_Offsets.add1 lbl i lbls_offs, Val.Offset.succ i) in + Label.Map.fold f int_fun.ERTL.f_graph + +(* [labels_offsets p] builds a bijection between the labels found in the + functions of [p] and some memory addresses. *) + +let labels_offsets p = + let f (lbls_offs, i) (_, def) = match def with + | ERTL.F_int int_fun -> labels_offsets_internal int_fun (lbls_offs, i) + | _ -> (lbls_offs, i) in + fst (List.fold_left f (Labels_Offsets.empty, Val.Offset.zero) p.ERTL.functs) + +let fun_def_of_ptr mem ptr = match Mem.find_fun_def mem ptr with + | ERTL.F_int def -> def + | _ -> error "Trying to fetch the definition of an external function." + +let fetch_stmt lbls_offs st = + let msg = + Printf.sprintf "%s does not point to a statement." + (Val.string_of_address st.pc) in + if Val.is_mem_address st.pc then + let off = Val.offset_of_address st.pc in + let def = fun_def_of_ptr st.mem st.pc in + let lbl = Labels_Offsets.find2 off lbls_offs in + Label.Map.find lbl def.ERTL.f_graph + else error msg + +let entry_pc lbls_offs ptr def = + let off = Labels_Offsets.find1 def.ERTL.f_entry lbls_offs in + Val.change_address_offset ptr off + +let init_fun_call lbls_offs st ptr def = + let f r lenv = Register.Map.add r Val.undef lenv in + let lenv = Register.Set.fold f def.ERTL.f_locals Register.Map.empty in + let pc = entry_pc lbls_offs ptr def in + change_lenv (change_pc st pc) lenv + +let next_pc lbls_offs st lbl = + let off = Labels_Offsets.find1 lbl lbls_offs in + change_pc st (Val.change_address_offset st.pc off) + +let framesize st = + if Val.is_mem_address st.pc then + let def = fun_def_of_ptr st.mem st.pc in + def.ERTL.f_stacksize + else error "No function at the given address." + +type register = Hdw of I8051.register | Psd of Register.t + +let add_reg r v st = match r with + | Hdw r -> + let renv = I8051.RegisterMap.add r v st.renv in + change_renv st renv + | Psd r -> + let lenv = Register.Map.add r v st.lenv in + change_lenv st lenv + +let get_reg r st = match r with + | Hdw r -> + if I8051.RegisterMap.mem r st.renv then I8051.RegisterMap.find r st.renv + else error ("Unknown hardware register " ^ (I8051.print_register r) ^ ".") + | Psd r -> + if Register.Map.mem r st.lenv then Register.Map.find r st.lenv + else error ("Unknown local register " ^ (Register.print r) ^ ".") + +let push st v = + let mem = Mem.store st.mem chunk st.isp v in + let isp = Val.add_address st.isp (Val.Offset.of_int chunk) in + change_mem (change_isp st isp) mem + +let pop st = + let isp = Val.add_address st.isp (Val.Offset.of_int (-chunk)) in + let st = change_isp st isp in + let v = Mem.load st.mem chunk st.isp in + (st, v) + +let get_ra st = + let (st, pch) = pop st in + let (st, pcl) = pop st in + [pcl ; pch] + +let save_ra lbls_offs st lbl = + let ra = + Val.change_address_offset st.pc (Labels_Offsets.find1 lbl lbls_offs) in + let st = push st (List.nth ra 0) in + let st = push st (List.nth ra 1) in + st + +let save_frame st = add_st_frs st st.lenv + +let label_of_pointer lbls_offs ptr = +(* + Printf.printf "Retrieving label of %s\n%!" (Val.to_string ptr) ; +*) + let off = Val.offset_of_address ptr in + Labels_Offsets.find2 off lbls_offs + +let pointer_of_label lbls_offs ptr lbl = + Val.change_address_offset ptr (Labels_Offsets.find1 lbl lbls_offs) + +let get_sp st = + List.map (fun r -> get_reg (Hdw r) st) [I8051.spl ; I8051.sph] + +let set_sp vs st = + let spl = List.nth vs 0 in + let sph = List.nth vs 1 in + let st = add_reg (Hdw I8051.spl) spl st in + let st = add_reg (Hdw I8051.sph) sph st in + st + +let make_addr st r1 r2 = List.map (fun r -> get_reg (Psd r) st) [r1 ; r2] + + +module InterpretExternal = Primitive.Interpret (Mem) + +let interpret_external mem f args = match InterpretExternal.t mem f args with + | (mem', InterpretExternal.V vs) -> (mem', vs) + | (mem', InterpretExternal.A addr) -> (mem', addr) + +let fetch_external_args f st = + let size = Mem.size_of_quantity (Primitive.args_byte_size f) in + let params = MiscPottier.prefix size I8051.parameters in + List.map (fun r -> get_reg (Hdw r) st) params + +let set_result st vs = + let f st (r, v) = add_reg (Hdw r) v st in + List.fold_left f st (MiscPottier.combine I8051.rets vs) + +let interpret_external_call st f next_pc = + let args = fetch_external_args f st in + let (mem, vs) = interpret_external st.mem f args in + let st = change_mem st mem in + let st = set_result st vs in + change_pc st next_pc + +let interpret_call lbls_offs st ptr ra = + (* let ptr = Mem.find_global st.mem f in *) + match Mem.find_fun_def st.mem ptr with + | ERTL.F_int def -> + let st = save_ra lbls_offs st ra in + let st = save_frame st in + init_fun_call lbls_offs st ptr def + | ERTL.F_ext def -> + let next_pc = + Val.change_address_offset st.pc (Labels_Offsets.find1 ra lbls_offs) in + interpret_external_call st def.AST.ef_tag next_pc + +let interpret_return lbls_offs st = + let st = pop_st_frs st in + let (st, pch) = pop st in + let (st, pcl) = pop st in + let pc = [pcl ; pch] in + change_pc st pc + + +(* Interpret statements. *) + +let interpret_stmt lbls_offs st stmt = + let next_pc = next_pc lbls_offs in + match stmt with + + | ERTL.St_skip lbl -> + next_pc st lbl + + | ERTL.St_comment (s, lbl) -> +(* + Printf.printf "*** %s ***\n\n%!" s ; +*) + next_pc st lbl + + | ERTL.St_cost (cost_lbl, lbl) -> + let st = add_trace st cost_lbl in + next_pc st lbl + + | ERTL.St_get_hdw (destr, srcr, lbl) -> + let st = add_reg (Psd destr) (get_reg (Hdw srcr) st) st in + next_pc st lbl + + | ERTL.St_set_hdw (destr, srcr, lbl) -> + let st = add_reg (Hdw destr) (get_reg (Psd srcr) st) st in + next_pc st lbl + + | ERTL.St_hdw_to_hdw (destr, srcr, lbl) -> + let st = add_reg (Hdw destr) (get_reg (Hdw srcr) st) st in + next_pc st lbl + + | ERTL.St_newframe lbl -> + let size = framesize st in + let sp = get_sp st in + let new_sp = Val.add_address sp (Val.Offset.of_int (-size)) in + let st = set_sp new_sp st in + next_pc st lbl + + | ERTL.St_delframe lbl -> + let size = framesize st in + let sp = get_sp st in + let new_sp = Val.add_address sp (Val.Offset.of_int size) in + let st = set_sp new_sp st in + next_pc st lbl + + | ERTL.St_framesize (destr, lbl) -> + let size = framesize st in + let st = add_reg (Psd destr) (Val.of_int size) st in + next_pc st lbl + + | ERTL.St_pop (destr, lbl) -> + let (st, v) = pop st in + let st = add_reg (Psd destr) v st in + next_pc st lbl + + | ERTL.St_push (srcr, lbl) -> + let v = get_reg (Psd srcr) st in + let st = push st v in + next_pc st lbl + + | ERTL.St_addrH (r, x, lbl) -> + let vs = Mem.find_global st.mem x in + let st = add_reg (Psd r) (List.nth vs 1) st in + next_pc st lbl + + | ERTL.St_addrL (r, x, lbl) -> + let vs = Mem.find_global st.mem x in + let st = add_reg (Psd r) (List.nth vs 0) st in + next_pc st lbl + + | ERTL.St_int (r, i, lbl) -> + let st = add_reg (Psd r) (Val.of_int i) st in + next_pc st lbl + + | ERTL.St_move (destr, srcr, lbl) -> + let st = add_reg (Psd destr) (get_reg (Psd srcr) st) st in + next_pc st lbl + + | ERTL.St_opaccsA (opaccs, destr, srcr1, srcr2, lbl) -> + let (v, _) = + Eval.opaccs opaccs + (get_reg (Psd srcr1) st) + (get_reg (Psd srcr2) st) in + let st = add_reg (Psd destr) v st in + next_pc st lbl + + | ERTL.St_opaccsB (opaccs, destr, srcr1, srcr2, lbl) -> + let (_, v) = + Eval.opaccs opaccs + (get_reg (Psd srcr1) st) + (get_reg (Psd srcr2) st) in + let st = add_reg (Psd destr) v st in + next_pc st lbl + + | ERTL.St_op1 (op1, destr, srcr, lbl) -> + let v = Eval.op1 op1 (get_reg (Psd srcr) st) in + let st = add_reg (Psd destr) v st in + next_pc st lbl + + | ERTL.St_op2 (op2, destr, srcr1, srcr2, lbl) -> + let (v, carry) = + Eval.op2 st.carry op2 + (get_reg (Psd srcr1) st) + (get_reg (Psd srcr2) st) in + let st = change_carry st carry in + let st = add_reg (Psd destr) v st in + next_pc st lbl + + | ERTL.St_clear_carry lbl -> + let st = change_carry st Val.zero in + next_pc st lbl + + | ERTL.St_set_carry lbl -> + let st = change_carry st (Val.of_int 1) in + next_pc st lbl + + | ERTL.St_load (destr, addr1, addr2, lbl) -> + let addr = make_addr st addr1 addr2 in + let v = Mem.load st.mem chunk addr in + let st = add_reg (Psd destr) v st in + next_pc st lbl + + | ERTL.St_store (addr1, addr2, srcr, lbl) -> + let addr = make_addr st addr1 addr2 in + let mem = Mem.store st.mem chunk addr (get_reg (Psd srcr) st) in + let st = change_mem st mem in + next_pc st lbl + + | ERTL.St_call_id (f, _, lbl) -> + interpret_call lbls_offs st (Mem.find_global st.mem f) lbl + + | ERTL.St_call_ptr (f1, f2, _, lbl) -> + interpret_call lbls_offs st (make_addr st f1 f2) lbl + + | ERTL.St_cond (srcr, lbl_true, lbl_false) -> + let v = get_reg (Psd srcr) st in + let lbl = + if Val.is_true v then lbl_true + else + if Val.is_false v then lbl_false + else error "Undecidable branchment." in + next_pc st lbl + + | ERTL.St_return _ -> + interpret_return lbls_offs st + + +let print_lenv lenv = + let f r v = + if not (Val.eq v Val.undef) then + Printf.printf "\n%s = %s%!" (Register.print r) (Val.to_string v) in + Register.Map.iter f lenv + +let print_renv renv = + let f r v = + if not (Val.eq v Val.undef) then + Printf.printf "\n%s = %s%!" (I8051.print_register r) (Val.to_string v) in + I8051.RegisterMap.iter f renv + +let current_label lbls_offs st = + Labels_Offsets.find2 (Val.offset_of_address st.pc) lbls_offs + +let print_state lbls_offs st = + Printf.printf "PC: %s (%s)\n%!" + (Val.string_of_address st.pc) (current_label lbls_offs st) ; + Printf.printf "SP: %s\n%!" (Val.string_of_address (get_sp st)) ; + Printf.printf "ISP: %s%!" (Val.string_of_address st.isp) ; + Printf.printf "Carry: %s%!" (Val.to_string st.carry) ; + print_lenv st.lenv ; + print_renv st.renv ; + Mem.print st.mem ; + Printf.printf "\n%!" + +let compute_result st ret_regs = + let vs = List.map (fun r -> get_reg (Psd r) st) ret_regs in + let f res v = res && (Val.is_int v) in + let is_int vs = (List.length vs > 0) && (List.fold_left f true vs) in + if is_int vs then + let chunks = + List.map (fun v -> IntValue.Int32.cast (Val.to_int_repr v)) vs in + IntValue.Int32.merge chunks + else IntValue.Int32.zero + +let rec iter_small_step debug lbls_offs st = + let print_and_return_result (res, cost_labels) = + if debug then Printf.printf "Result = %s\n%!" + (IntValue.Int32.to_string res) ; + (res, cost_labels) in + if debug then print_state lbls_offs st ; + match fetch_stmt lbls_offs st with + | ERTL.St_return ret_regs when Val.eq_address (get_ra st) st.exit -> + print_and_return_result (compute_result st ret_regs, List.rev st.trace) + | stmt -> + let st' = interpret_stmt lbls_offs st stmt in + iter_small_step debug lbls_offs st' + + +let add_global_vars = + List.fold_left + (fun mem (id, size) -> Mem.add_var mem id (AST.SQ (AST.QInt size)) None) + +let add_fun_defs = + List.fold_left (fun mem (f_id, f_def) -> Mem.add_fun_def mem f_id f_def) + +let init_prog (st : state) (p : ERTL.program) : state = + let mem = add_global_vars (add_fun_defs st.mem p.ERTL.functs) p.ERTL.vars in + change_mem st mem + +let init_sp st = + let (mem, sp) = Mem.alloc st.mem I8051.ext_ram_size in + let sp = + Val.change_address_offset sp (Val.Offset.of_int I8051.ext_ram_size) in + let st = change_mem st mem in + (st, sp) + +let init_isp st = + let (mem, isp) = Mem.alloc st.mem I8051.int_ram_size in + let st = change_mem (change_isp st isp) mem in + let (mem, exit) = Mem.alloc st.mem 1 in + let st = change_exit st exit in + let st = push st (List.nth exit 0) in + let st = push st (List.nth exit 1) in + st + +let init_renv st sp = + let f r renv = I8051.RegisterMap.add r Val.undef renv in + let renv = I8051.RegisterSet.fold f I8051.registers I8051.RegisterMap.empty in + let spl = List.nth sp 0 in + let sph = List.nth sp 1 in + let renv = I8051.RegisterMap.add I8051.sph sph renv in + let renv = I8051.RegisterMap.add I8051.spl spl renv in + change_renv st renv + +let init_main_call lbls_offs st main = + let ptr = Mem.find_global st.mem main in + match Mem.find_fun_def st.mem ptr with + | ERTL.F_int def -> + init_fun_call lbls_offs st ptr def + | _ -> error ("Cannot execute the main (\"" ^ main ^ "\"): it is external.") + + +(* Before interpreting, the environment is initialized: + - Build a bijection between the labels in the program and some values (taken + amongst the offsets). + - Add function definitions to the memory and reserve space for the globals. + - Allocate memory to emulate the external stack and initialize the external + stack pointer. + - Allocate memory to emulate the internal stack and initialize the internal + stack pointer. + - Initialiaze the physical register environment. All are set to 0, except for + the stack pointer registers that take the high and low bits of the external + stack pointer. + - Initialize a call to the main (set the current program counter to the + beginning of the function). + - Initialize the carry flag to 0. *) + +let interpret debug p = + Printf.printf "*** ERTL interpret ***\n%!" ; + match p.ERTL.main with + | None -> (IntValue.Int32.zero, []) + | Some main -> + let lbls_offs = labels_offsets p in + let st = empty_state in + let st = init_prog st p in + let (st, sp) = init_sp st in + let st = init_isp st in + let st = init_renv st sp in + let st = init_main_call lbls_offs st main in + let st = change_carry st Val.zero in + iter_small_step debug lbls_offs st diff --git a/src/ERTL/ERTLInterpret.mli b/src/ERTL/ERTLInterpret.mli new file mode 100644 index 0000000..a1fd123 --- /dev/null +++ b/src/ERTL/ERTLInterpret.mli @@ -0,0 +1,4 @@ + +(** This module provides an interpreter for the [ERTL] language. *) + +val interpret : bool -> ERTL.program -> AST.trace diff --git a/src/ERTL/ERTLPrinter.ml b/src/ERTL/ERTLPrinter.ml new file mode 100644 index 0000000..8232a4c --- /dev/null +++ b/src/ERTL/ERTLPrinter.ml @@ -0,0 +1,191 @@ + +(** This module provides a function to print [ERTL] programs. *) + + +let n_spaces n = String.make n ' ' + + +let print_global n (x, size) = + Printf.sprintf "%s\"%s\" [%d]" (n_spaces n) x size + +let print_globals eformat n globs = + Eformat.printf eformat "%sglobals:\n" (n_spaces n) ; + List.iter + (fun g -> Eformat.printf eformat "%s\n" (print_global (n+2) g)) globs + + +let reg_set_to_list rs = + let f r l = l @ [r] in + Register.Set.fold f rs [] + +let print_reg_list first last sep f rl = + Printf.sprintf "%s%s%s" + first (MiscPottier.string_of_list sep f rl) last + +let print_ptr rl = print_reg_list "[" "]" " ; " Register.print rl + +let print_args rl = print_reg_list "(" ")" ", " Register.print rl + +let print_return rl = print_reg_list "[" "]" " ; " Register.print rl + +let print_params rl = print_reg_list "(" ")" ", " Register.print rl + +let print_locals rs = + let rl = reg_set_to_list rs in + Printf.sprintf "%s" (print_reg_list "" "" ", " Register.print rl) + +let print_result rl = print_reg_list "[" "]" " ; " Register.print rl + + +let print_statement = function + | ERTL.St_skip lbl -> "--> " ^ lbl + | ERTL.St_comment (s, lbl) -> + Printf.sprintf "*** %s *** --> %s" s lbl + | ERTL.St_cost (cost_lbl, lbl) -> + Printf.sprintf "emit %s --> %s" cost_lbl lbl + | ERTL.St_get_hdw (r1, r2, lbl) -> + Printf.sprintf "move %s, %s --> %s" + (Register.print r1) (I8051.print_register r2) lbl + | ERTL.St_set_hdw (r1, r2, lbl) -> + Printf.sprintf "move %s, %s --> %s" + (I8051.print_register r1) (Register.print r2) lbl + | ERTL.St_hdw_to_hdw (r1, r2, lbl) -> + Printf.sprintf "move %s, %s --> %s" + (I8051.print_register r1) (I8051.print_register r2) lbl + | ERTL.St_newframe lbl -> + Printf.sprintf "newframe --> %s" lbl + | ERTL.St_delframe lbl -> + Printf.sprintf "delframe --> %s" lbl + | ERTL.St_framesize (r, lbl) -> + Printf.sprintf "imm %s, FRAMESIZE --> %s" (Register.print r) lbl + | ERTL.St_pop (r, lbl) -> + Printf.sprintf "pop %s --> %s" (Register.print r) lbl + | ERTL.St_push (r, lbl) -> + Printf.sprintf "push %s --> %s" (Register.print r) lbl + | ERTL.St_addrH (dstr, id, lbl) -> + Printf.sprintf "addrH %s, %s --> %s" (Register.print dstr) id lbl + | ERTL.St_addrL (dstr, id, lbl) -> + Printf.sprintf "addrL %s, %s --> %s" (Register.print dstr) id lbl + | ERTL.St_int (dstr, i, lbl) -> + Printf.sprintf "imm %s, %d --> %s" (Register.print dstr) i lbl + | ERTL.St_move (dstr, srcr, lbl) -> + Printf.sprintf "move %s, %s --> %s" + (Register.print dstr) (Register.print srcr) lbl + | ERTL.St_opaccsA (opaccs, dstr, srcr1, srcr2, lbl) -> + Printf.sprintf "%sA %s, %s, %s --> %s" + (I8051.print_opaccs opaccs) + (Register.print dstr) + (Register.print srcr1) + (Register.print srcr2) + lbl + | ERTL.St_opaccsB (opaccs, dstr, srcr1, srcr2, lbl) -> + Printf.sprintf "%sB %s, %s, %s --> %s" + (I8051.print_opaccs opaccs) + (Register.print dstr) + (Register.print srcr1) + (Register.print srcr2) + lbl + | ERTL.St_op1 (op1, dstr, srcr, lbl) -> + Printf.sprintf "%s %s, %s --> %s" + (I8051.print_op1 op1) + (Register.print dstr) + (Register.print srcr) + lbl + | ERTL.St_op2 (op2, dstr, srcr1, srcr2, lbl) -> + Printf.sprintf "%s %s, %s, %s --> %s" + (I8051.print_op2 op2) + (Register.print dstr) + (Register.print srcr1) + (Register.print srcr2) + lbl + | ERTL.St_clear_carry lbl -> + Printf.sprintf "clear CARRY --> %s" lbl + | ERTL.St_set_carry lbl -> + Printf.sprintf "set CARRY --> %s" lbl + | ERTL.St_load (dstr, addr1, addr2, lbl) -> + Printf.sprintf "load %s, (%s, %s) --> %s" + (Register.print dstr) + (Register.print addr1) + (Register.print addr2) + lbl + | ERTL.St_store (addr1, addr2, srcr, lbl) -> + Printf.sprintf "store (%s, %s), %s --> %s" + (Register.print addr1) + (Register.print addr2) + (Register.print srcr) + lbl + | ERTL.St_call_id (f, nb_args, lbl) -> + Printf.sprintf "call \"%s\", %d --> %s" f nb_args lbl + | ERTL.St_call_ptr (f1, f2, nb_args, lbl) -> + Printf.sprintf "call_ptr [%s ; %s], %d --> %s" + (Register.print f1) + (Register.print f2) + nb_args + lbl +(* + | ERTL.St_tailcall_id (f, nb_args) -> + Printf.sprintf "tailcall \"%s\", %d" + f + nb_args + | ERTL.St_tailcall_ptr (f, args) -> + Printf.sprintf "tailcall_ptr %s, %s" + (print_ptr f) + (print_args args) +*) + | ERTL.St_cond (srcr, lbl_true, lbl_false) -> + Printf.sprintf "branch %s <> 0 --> %s, %s" + (Register.print srcr) lbl_true lbl_false + | ERTL.St_return ret_regs -> + Printf.sprintf "return %s" (print_return ret_regs) + + +let print_graph eformat n c = + let f lbl stmt = + Eformat.printf eformat "%s%s: %s\n" + (n_spaces n) + lbl + (print_statement stmt) in + Label.Map.iter f c + + +let print_internal_decl eformat n f def = + Eformat.printf eformat + "%s\"%s\" %d\n%slocals: %s\n%sstacksize: %d\n%sentry: %s\n%sexit: %s\n\n" + (n_spaces n) + f + def.ERTL.f_params + (n_spaces (n+2)) + (print_locals def.ERTL.f_locals) + (n_spaces (n+2)) + def.ERTL.f_stacksize + (n_spaces (n+2)) + def.ERTL.f_entry + (n_spaces (n+2)) + def.ERTL.f_exit ; + print_graph eformat (n+2) def.ERTL.f_graph + + +let print_external_decl eformat n f def = + Eformat.printf eformat "%sextern \"%s\": %s\n" + (n_spaces n) + f + (Primitive.print_sig def.AST.ef_sig) + + +let print_fun_decl eformat n (f, def) = match def with + | ERTL.F_int def -> print_internal_decl eformat n f def + | ERTL.F_ext def -> print_external_decl eformat n f def + +let print_fun_decls eformat n functs = + List.iter + (fun f -> print_fun_decl eformat n f ; Eformat.printf eformat "\n\n") + functs + + +let print_program p = + let eformat = Eformat.create () in + Eformat.printf eformat "program:\n\n\n" ; + print_globals eformat 2 p.ERTL.vars ; + Eformat.printf eformat "\n\n" ; + print_fun_decls eformat 2 p.ERTL.functs ; + Eformat.get eformat diff --git a/src/ERTL/ERTLPrinter.mli b/src/ERTL/ERTLPrinter.mli new file mode 100644 index 0000000..7b56efd --- /dev/null +++ b/src/ERTL/ERTLPrinter.mli @@ -0,0 +1,4 @@ + +(** This module provides a function to print [ERTL] programs. *) + +val print_program : ERTL.program -> string diff --git a/src/ERTL/ERTLToLTL.ml b/src/ERTL/ERTLToLTL.ml new file mode 100644 index 0000000..9b287f2 --- /dev/null +++ b/src/ERTL/ERTLToLTL.ml @@ -0,0 +1,135 @@ + +(* This module provides a translation of ERTL programs to LTL + programs. *) + +(* Adapted from Pottier's PP compiler *) + +let translate_internal f (int_fun : ERTL.internal_function) + : LTL.internal_function = + + (* Allocate a reference that will hold the control flow + graph. Define a function that generates a statement at a fresh + label. *) + + let graph = ref Label.Map.empty in + + let fresh_label () = Label.Gen.fresh int_fun.ERTL.f_luniverse in + + let add_graph lbl stmt = graph := Label.Map.add lbl stmt !graph in + + let generate stmt = + let l = fresh_label () in + add_graph l stmt ; + l in + + (* Build an interference graph for this function, and color + it. Define a function that allows consulting the coloring. *) + + let module G = struct + let liveafter, graph = Build.build int_fun + let uses = Uses.examine_internal int_fun + let verbose = false + let () = + if verbose then + Printf.printf "Starting hardware register allocation for %s.\n" f + end in + + let module C = Coloring.Color (G) in + + let lookup r = + Interference.Vertex.Map.find (Interference.lookup G.graph r) C.coloring + in + + (* Restrict the interference graph to concern spilled vertices only, + and color it again, this time using stack slots as colors. *) + + let module H = struct + let graph = Interference.droph (Interference.restrict G.graph (fun v -> + match Interference.Vertex.Map.find v C.coloring with + | Coloring.Spill -> + true + | Coloring.Color _ -> + false + )) + let verbose = false + let () = + if verbose then + Printf.printf "Starting stack slot allocation for %s.\n" f + end in + + let module S = Spill.Color (H) in + + (* Define a new function that consults both colorings at once. *) + + let lookup r = + match lookup r with + | Coloring.Spill -> + ERTLToLTLI.Spill (Interference.Vertex.Map.find (Interference.lookup H.graph r) S.coloring) + | Coloring.Color color -> + ERTLToLTLI.Color color + in + + (* We are now ready to instantiate the functor that deals with the + translation of instructions. The reason why we make this a + separate functor is purely pedagogical. Smaller modules are + easier to understand. *) + + (* We add the additional stack size required for spilled register to the stack + size previously required for the function: this is the final stack size + required for the locals. *) + + let locals = S.locals + int_fun.ERTL.f_stacksize in + + (* The full stack size is then the size of the locals in the stack plus the + size of the formal parameters of the function. *) + + let stacksize = int_fun.ERTL.f_params + locals in + + let module I = ERTLToLTLI.Make (struct + let lookup = lookup + let generate = generate + let fresh_label = fresh_label + let add_graph = add_graph + let locals = locals + let stacksize = stacksize + end) in + + (* Translate the instructions in the existing control flow graph. + Pure instructions whose destination pseudo-register is dead are + eliminated on the fly. *) + + let () = + Label.Map.iter (fun label stmt -> + let stmt = + match Liveness.eliminable (G.liveafter label) stmt with + | Some successor -> + LTL.St_skip successor + | None -> + I.translate_statement stmt + in + graph := Label.Map.add label stmt !graph + ) int_fun.ERTL.f_graph + in + + AnnotStackSize.add_stack_size f stacksize; + (* Build a [LTL] function. *) + + { + LTL.f_luniverse = int_fun.ERTL.f_luniverse; + LTL.f_stacksize = stacksize ; + LTL.f_entry = int_fun.ERTL.f_entry; + LTL.f_exit = int_fun.ERTL.f_exit; + LTL.f_graph = !graph + } + + +let translate_funct (name, def) = + let def' = match def with + | ERTL.F_int def -> LTL.F_int (translate_internal name def) + | ERTL.F_ext def -> LTL.F_ext def in + (name, def') + +let translate (p : ERTL.program) : LTL.program = + { LTL.vars = p.ERTL.vars; + LTL.functs = List.map translate_funct p.ERTL.functs ; + LTL.main = p.ERTL.main } diff --git a/src/ERTL/ERTLToLTL.mli b/src/ERTL/ERTLToLTL.mli new file mode 100644 index 0000000..a6fbf27 --- /dev/null +++ b/src/ERTL/ERTLToLTL.mli @@ -0,0 +1,12 @@ + +(** This module is the external part of the translation of [ERTL] + programs into [LTL] programs. *) + +(** The translation consists in the following operations: + - Build an interference graph and color it. This process relies an a + liveness analysis and allows to associate a physical location to each + pseudo-register. + - Do the actual translation by removing the statements whose written + register is dead (using the results of the liveness analysis). *) + +val translate : ERTL.program -> LTL.program diff --git a/src/ERTL/ERTLToLTLI.ml b/src/ERTL/ERTLToLTLI.ml new file mode 100644 index 0000000..bea2c1d --- /dev/null +++ b/src/ERTL/ERTLToLTLI.ml @@ -0,0 +1,305 @@ +(* Pasted from Pottier's PP compiler *) + +(* This module translates [ERTL] statements into [LTL] statements. It is + parameterized over a module [Env], whose signature appears below, which + provides support for mapping pseudo-registers to stack slots or hardware + registers and for generating instructions (which requires allocating fresh + control flow graph labels). *) + +type decision = + | Spill of AST.immediate + | Color of I8051.register + +module Make (Env : sig + + val lookup: Register.t -> decision + + (* [generate stmt] returns a fresh statement label, which it associates with + [stmt] in the control flow graph. *) + + val generate: LTL.statement -> Label.t + + val fresh_label: unit -> Label.t + + val add_graph: Label.t -> LTL.statement -> unit + + val locals: int + + val stacksize: int + +end) = struct + + open Env + open I8051 + + let adjust off = locals - (off + I8051.int_size) + + let get_stack r off l = + let off = adjust off in + let l = generate (LTL.St_from_acc (r, l)) in + let l = generate (LTL.St_load l) in + let l = generate (LTL.St_from_acc (I8051.dph, l)) in + let l = generate (LTL.St_op2 (I8051.Addc, I8051.sph, l)) in + let l = generate (LTL.St_int (I8051.a, 0, l)) in + let l = generate (LTL.St_from_acc (I8051.dpl, l)) in + let l = generate (LTL.St_op2 (I8051.Add, I8051.spl, l)) in + LTL.St_int (I8051.a, off, l) + + let set_stack off r l = + let off = adjust off in + let l = generate (LTL.St_store l) in + let l = generate (LTL.St_to_acc (r, l)) in + let l = generate (LTL.St_from_acc (I8051.dph, l)) in + let l = generate (LTL.St_op2 (I8051.Addc, I8051.sph, l)) in + let l = generate (LTL.St_int (I8051.a, 0, l)) in + let l = generate (LTL.St_from_acc (I8051.dpl, l)) in + let l = generate (LTL.St_op2 (I8051.Add, I8051.spl, l)) in + LTL.St_int (I8051.a, off, l) + + + let write (r : Register.t) (l : Label.t) : (I8051.register * Label.t) = + match lookup r with + + | Color hwr -> + (* Pseudo-register [r] has been mapped to hardware register + [hwr]. Just write into [hwr] and branch to [l]. *) + (hwr, l) + + | Spill off -> + (* Pseudo-register [r] has been mapped to offset [off] in the local zone + of the stack. Then, write into [sst] (never allocated) and transfer + control to an instruction that copies [sst] in the designated + location of the stack before branching to [l]. *) + (I8051.sst, generate (set_stack off I8051.sst l)) + + + let read (r : Register.t) (stmt : I8051.register -> LTL.statement) = + match lookup r with + | Color hwr -> + (* Pseudo-register [r] has been mapped to hardware register [hwr]. Just + generate statement [stmt] with a reference to register [hwr]. *) + generate (stmt hwr) + + | Spill off -> + (* Pseudo-register [r] has been mapped to offset [off] in the local zone + of the stack. Issue a statement that copies the designated area in + the stack into the temporary unallocatable hardware register [sst], + then generate statement [stmt] with a reference to register + [sst]. *) + let temphwr = I8051.sst in + let l = generate (stmt temphwr) in + generate (get_stack temphwr off l) + + + let move (dest : decision) (src : decision) l = + match dest, src with + + (* Both pseudo-registers are translated to hardware registers. Issue move + statements, or no statement at all if both pseudo-registers reside in + the same hardware register. *) + | Color desthwr, Color sourcehwr when I8051.eq_reg desthwr sourcehwr -> + LTL.St_skip l + | Color desthwr, Color sourcehwr -> + let l = generate (LTL.St_from_acc (desthwr, l)) in + LTL.St_to_acc (sourcehwr, l) + + (* One pseudo-register is translated to a hardware register, while the + other is spilled. Issue a single stack access instruction. *) + | Color desthwr, Spill off -> get_stack desthwr off l + | Spill off, Color sourcehwr -> set_stack off sourcehwr l + + (* Both pseudo-registers are spilled. Combine the previous two cases. Of + course, if the two pseudo-registers have been spilled into the same + stack slot, there is nothing to do. *) + | Spill off1, Spill off2 when off1 = off2 -> + LTL.St_skip l + | Spill off1, Spill off2 -> + let temphwr = I8051.sst in + let l = generate (set_stack off1 temphwr l) in + get_stack temphwr off2 l + + + let newframe l = + if stacksize = 0 then LTL.St_skip l + else + let l = generate (LTL.St_from_acc (I8051.sph, l)) in + let l = generate (LTL.St_op2 (I8051.Sub, I8051.dph, l)) in + let l = generate (LTL.St_int (I8051.dph, 0, l)) in + let l = generate (LTL.St_to_acc (I8051.sph, l)) in + let l = generate (LTL.St_from_acc (I8051.spl, l)) in + let l = generate (LTL.St_op2 (I8051.Sub, I8051.dpl, l)) in + let l = generate (LTL.St_clear_carry l) in + let l = generate (LTL.St_int (I8051.dpl, stacksize, l)) in + LTL.St_to_acc (I8051.spl, l) + + let delframe l = + if stacksize = 0 then LTL.St_skip l + else + let l = generate (LTL.St_from_acc (I8051.sph, l)) in + let l = generate (LTL.St_op2 (I8051.Addc, I8051.sph, l)) in + let l = generate (LTL.St_int (I8051.a, 0, l)) in + let l = generate (LTL.St_from_acc (I8051.spl, l)) in + let l = generate (LTL.St_op2 (I8051.Add, I8051.spl, l)) in + LTL.St_int (I8051.a, stacksize, l) + + + (* ------------------------------------------------------------------------ *) + + (* [translate_statement] turns a [ERTL] statement into a [LTL] statement, or + sequence of statements, that transfers control to the same label(s). + + Existing statement labels are preserved, that is, the labels in the new + control flow graph form a superset of the labels in the existing control + flow graph. *) + + let translate_statement (stmt : ERTL.statement) : LTL.statement = + match stmt with + + | ERTL.St_skip l -> + LTL.St_skip l + + | ERTL.St_comment (s, l) -> + LTL.St_comment (s, l) + + | ERTL.St_cost (cost_lbl, l) -> + LTL.St_cost (cost_lbl, l) + + | ERTL.St_get_hdw (destr, sourcehwr, l) -> + move (lookup destr) (Color sourcehwr) l + + | ERTL.St_set_hdw (desthwr, sourcer, l) -> + move (Color desthwr) (lookup sourcer) l + + | ERTL.St_hdw_to_hdw (r1, r2, l) -> + let l = generate (LTL.St_from_acc (r1, l)) in + LTL.St_to_acc (r2, l) + + | ERTL.St_newframe l -> + newframe l + + | ERTL.St_delframe l -> + delframe l + + | ERTL.St_framesize (r, l) -> + let (hdw, l) = write r l in + LTL.St_int (hdw, stacksize, l) + + | ERTL.St_pop (r, l) -> + let (hdw, l) = write r l in + let l = generate (LTL.St_from_acc (hdw, l)) in + LTL.St_pop l + + | ERTL.St_push (r, l) -> + let l = generate (LTL.St_push l) in + let l = read r (fun hdw -> LTL.St_to_acc (hdw, l)) in + LTL.St_skip l + + | ERTL.St_addrH (r, x, l) -> + let (hdw, l) = write r l in + let l = generate (LTL.St_from_acc (hdw, l)) in + let l = generate (LTL.St_to_acc (I8051.dph, l)) in + LTL.St_addr (x, l) + + | ERTL.St_addrL (r, x, l) -> + let (hdw, l) = write r l in + let l = generate (LTL.St_from_acc (hdw, l)) in + let l = generate (LTL.St_to_acc (I8051.dpl, l)) in + LTL.St_addr (x, l) + + | ERTL.St_int (r, i, l) -> + let (hdw, l) = write r l in + LTL.St_int (hdw, i, l) + + | ERTL.St_move (r1, r2, l) -> + move (lookup r1) (lookup r2) l + + | ERTL.St_opaccsA (opaccs, destr, srcr1, srcr2, l) -> + let (hdw, l) = write destr l in + let l = generate (LTL.St_from_acc (hdw, l)) in + let l = generate (LTL.St_opaccs (opaccs, l)) in + let l = read srcr1 (fun hdw -> LTL.St_to_acc (hdw, l)) in + let l = generate (LTL.St_from_acc (I8051.b, l)) in + let l = read srcr2 (fun hdw -> LTL.St_to_acc (hdw, l)) in + LTL.St_skip l + + | ERTL.St_opaccsB (opaccs, destr, srcr1, srcr2, l) -> + let (hdw, l) = write destr l in + let l = generate (LTL.St_from_acc (hdw, l)) in + let l = generate (LTL.St_to_acc (I8051.b, l)) in + let l = generate (LTL.St_opaccs (opaccs, l)) in + let l = read srcr1 (fun hdw -> LTL.St_to_acc (hdw, l)) in + let l = generate (LTL.St_from_acc (I8051.b, l)) in + let l = read srcr2 (fun hdw -> LTL.St_to_acc (hdw, l)) in + LTL.St_skip l + + | ERTL.St_op1 (op1, destr, srcr, l) -> + let (hdw, l) = write destr l in + let l = generate (LTL.St_from_acc (hdw, l)) in + let l = generate (LTL.St_op1 (op1, l)) in + let l = read srcr (fun hdw -> LTL.St_to_acc (hdw, l)) in + LTL.St_skip l + + | ERTL.St_op2 (op2, destr, srcr1, srcr2, l) -> + let (hdw, l) = write destr l in + let l = generate (LTL.St_from_acc (hdw, l)) in + let l = generate (LTL.St_op2 (op2, I8051.b, l)) in + let l = read srcr1 (fun hdw -> LTL.St_to_acc (hdw, l)) in + let l = generate (LTL.St_from_acc (I8051.b, l)) in + let l = read srcr2 (fun hdw -> LTL.St_to_acc (hdw, l)) in + LTL.St_skip l + + | ERTL.St_clear_carry l -> + LTL.St_clear_carry l + + | ERTL.St_set_carry l -> + LTL.St_set_carry l + + | ERTL.St_load (destr, addr1, addr2, l) -> + let (hdw, l) = write destr l in + let l = generate (LTL.St_from_acc (hdw, l)) in + let l = generate (LTL.St_load l) in + let l = generate (LTL.St_from_acc (I8051.dph, l)) in + let l = generate (LTL.St_to_acc (I8051.st0, l)) in + let l = generate (LTL.St_from_acc (I8051.dpl, l)) in + let l = read addr1 (fun hdw -> LTL.St_to_acc (hdw, l)) in + let l = generate (LTL.St_from_acc (I8051.st0, l)) in + let l = read addr2 (fun hdw -> LTL.St_to_acc (hdw, l)) in + LTL.St_skip l + + | ERTL.St_store (addr1, addr2, srcr, l) -> + let l = generate (LTL.St_store l) in + let l = generate (LTL.St_to_acc (I8051.st1, l)) in + let l = generate (LTL.St_from_acc (I8051.dph, l)) in + let l = generate (LTL.St_to_acc (I8051.st0, l)) in + let l = generate (LTL.St_from_acc (I8051.dpl, l)) in + let l = read addr1 (fun hdw -> LTL.St_to_acc (hdw, l)) in + let l = generate (LTL.St_from_acc (I8051.st0, l)) in + let l = read addr2 (fun hdw -> LTL.St_to_acc (hdw, l)) in + let l = generate (LTL.St_from_acc (I8051.st1, l)) in + let l = read srcr (fun hdw -> LTL.St_to_acc (hdw, l)) in + LTL.St_skip l + + | ERTL.St_call_id (f, _, l) -> + LTL.St_call_id (f, l) + + | ERTL.St_call_ptr (f1, f2, _, l) -> + let l = generate (LTL.St_call_ptr l) in + let l = generate (LTL.St_from_acc (I8051.dph, l)) in + let l = generate (LTL.St_to_acc (I8051.st0, l)) in + let l = generate (LTL.St_from_acc (I8051.dpl, l)) in + let l = read f1 (fun hdw -> LTL.St_to_acc (hdw, l)) in + let l = generate (LTL.St_from_acc (I8051.st0, l)) in + let l = read f2 (fun hdw -> LTL.St_to_acc (hdw, l)) in + LTL.St_skip l + + | ERTL.St_cond (srcr, lbl_true, lbl_false) -> + let l = generate (LTL.St_condacc (lbl_true, lbl_false)) in + let l = read srcr (fun hdw -> LTL.St_to_acc (hdw, l)) in + LTL.St_skip l + + | ERTL.St_return _ -> + LTL.St_return + +(* ------------------------------------------------------------------------- *) + +end diff --git a/src/ERTL/ERTLToLTLI.mli b/src/ERTL/ERTLToLTLI.mli new file mode 100644 index 0000000..70ecefd --- /dev/null +++ b/src/ERTL/ERTLToLTLI.mli @@ -0,0 +1,46 @@ + +(** This module is the central part of the translation of [ERTL] + programs into [LTL] programs. *) + +(* Pasted from Pottier's PP compiler *) + +(* This module translates [ERTL] statements into [LTL] statements. It is + parameterized over a module [Env], whose signature appears below, which + provides support for mapping pseudo-registers to stack slots or hardware + registers and for generating instructions (which requires allocating fresh + control flow graph labels). *) + +type decision = + | Spill of AST.immediate + | Color of I8051.register + +module Make (Env : sig + + val lookup: Register.t -> decision + + (* [generate instruction] returns a fresh instruction label, which + it associates with [instruction] in the control flow graph. *) + + val generate: LTL.statement -> Label.t + + val fresh_label: unit -> Label.t + + val add_graph: Label.t -> LTL.statement -> unit + + val locals: int + + val stacksize: int + + end) : sig + + (* [translate_statement] turns a [ERTL] statement into a [LTL] statement, or + sequence of statements, that transfers control to the same label(s). + + Existing statement labels are preserved, that is, the labels in + the new control flow graph form a superset of the labels in the + existing control flow graph. *) + + val translate_statement: ERTL.statement -> LTL.statement + +end + diff --git a/src/ERTL/build.ml b/src/ERTL/build.ml new file mode 100644 index 0000000..a75188e --- /dev/null +++ b/src/ERTL/build.ml @@ -0,0 +1,131 @@ +(* Pasted from Pottier's PP compiler *) + +open ERTL +open Interference + +let build (int_fun : internal_function) = + + (* Perform liveness analysis. *) + + let liveafter = Liveness.analyze int_fun in + + (* Create an interference graph whose vertices are the procedure's + pseudo-registers. This graph initially has no edges. *) + + let graph = create int_fun.f_locals in + + (* Every pseudo register interferes with special forbidden registers. *) + + let graph = mkiph graph int_fun.f_locals I8051.forbidden in + + (* Iterate over all statements in the control flow graph and populate the + interference graph with interference and preference edges. *) + + let graph = + Label.Map.fold (fun label stmt graph -> + let live = liveafter label in + match Liveness.eliminable live stmt with + + | Some _ -> + + (* This statement is eliminable and should be ignored. Eliminable + statements have not been eliminated yet, because we are still + in between ERTL and LTL. They *will* be eliminated soon, though, + so there is no reason to take them into account while building + the interference graph. *) + + graph + + | None -> + + (* Create interference edges. The general rule is, every + pseudo-register or hardware register that is defined (written) by + a statement interferes with every pseudo-register or hardware + register (other than itself) that is live immediately after the + statement executes. + + An exception to the general rule can be made for move + statements. In a move statement, we do not need the source + and destination pseudo-registers to be assigned distinct hardware + registers, since they contain the same value -- in fact, we would + like them to be assigned the same hardware register. So, for a + move statement, we let the register that is defined (written) + interfere with every pseudo-register, other than itself *and + other than the source pseudo-register*, that is live immediately + after the statement executes. This optimization is explained in + Chapter 10 of Appel's book (p. 221). + + This special case is only a hack that works in many cases. There + are cases where it doesn't suffice. For instance, if two + successive move statements have the same source [r0], then + their destinations [r1] and [r2] *will* be considered as + interfering, even though it would in fact be correct and + desirable to map both of them to the same hardware register. A + more general solution would be to perform a static analysis that + determines, for every program point, which pseudo-registers + definitely hold the same value, and to exploit this information + to build fewer interference edges. *) + + let defined = Liveness.defined stmt in + let exceptions = + match stmt with + | St_move (_, sourcer, _) + | St_set_hdw (_, sourcer, _) -> + Liveness.L.psingleton sourcer + | St_get_hdw (_, sourcehwr, _) -> + Liveness.L.hsingleton sourcehwr + | _ -> + Liveness.L.bottom + in + let graph = + mki graph (Liveness.L.diff live exceptions) defined + in + +(* + (* Two registers written at the same time are interfering (they + obviously should not be associated the same address). + Only happens with St_addr. *) + + let graph = + match stmt with + | St_addr (r1, r2, _, _) -> + mki graph (Liveness.L.psingleton r1) (Liveness.L.psingleton r2) + | _ -> + graph + in +*) + + (* Create preference edges between pseudo-registers. Two registers + should preferably be assigned the same color when they are + related by a move statement, so that the move statement can + be eliminated. *) + + let graph = + match stmt with + | St_move (r1, r2, _) -> + mkppp graph r1 r2 + | St_get_hdw (r, hwr, _) + | St_set_hdw (hwr, r, _) -> + mkpph graph r hwr + | _ -> + graph + in + (* + + (* Add interference edges between the hardware register [$zero] + and every pseudo-register that the statement renders + nonzeroable. See [Zero] for an explanation. *) + + let graph = + mkiph graph (Zero.nonzeroable i) (MIPS.RegisterSet.singleton MIPS.zero) + in + *) + graph + + ) int_fun.f_graph graph + in + + (* Done. *) + + liveafter, graph + diff --git a/src/ERTL/build.mli b/src/ERTL/build.mli new file mode 100644 index 0000000..c4a6d92 --- /dev/null +++ b/src/ERTL/build.mli @@ -0,0 +1,9 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module builds an interference graph for an [ERTL] function. + This is done by running a liveness analysis and exploiting its + result. [build] returns both the result of the liveness analysis + and the interference graph. *) + +val build: ERTL.internal_function -> Liveness.valuation * Interference.graph + diff --git a/src/ERTL/liveness.ml b/src/ERTL/liveness.ml new file mode 100644 index 0000000..e01ffba --- /dev/null +++ b/src/ERTL/liveness.ml @@ -0,0 +1,329 @@ +(* Pasted from Pottier's PP compiler *) + +open ERTL + +(* In the following, a ``variable'' means a pseudo-register or an + allocatable hardware register. *) + +(* These functions allow turning an [ERTL] control flow graph into an + explicit graph, that is, making successor edges explicit. This is + useful in itself and facilitates the computation of predecessor + edges. *) + +let statement_successors (stmt : statement) = + match stmt with + | St_return _ -> + Label.Set.empty + | St_skip l + | St_comment (_, l) + | St_cost (_, l) + | St_set_hdw (_, _, l) + | St_get_hdw (_, _, l) + | St_hdw_to_hdw (_, _, l) + | St_newframe l + | St_delframe l + | St_framesize (_, l) + | St_push (_, l) + | St_pop (_, l) + | St_addrH (_, _, l) + | St_addrL (_, _, l) + | St_int (_, _, l) + | St_move (_, _, l) + | St_opaccsA (_, _, _, _, l) + | St_opaccsB (_, _, _, _, l) + | St_op1 (_, _, _, l) + | St_op2 (_, _, _, _, l) + | St_clear_carry l + | St_set_carry l + | St_load (_, _, _, l) + | St_store (_, _, _, l) + | St_call_id (_, _, l) + | St_call_ptr (_, _, _, l) -> + Label.Set.singleton l + | St_cond (_, l1, l2) -> + Label.Set.add l1 (Label.Set.singleton l2) + +(* The analysis uses the lattice of sets of variables. The lattice's + join operation is pointwise set union, which reflects the fact that + a variable is deemed live at a program point if and only if it is + live at any of the successors of that program point. *) + +module L = struct + + (* A set of variable is represented as a pair of a set of + pseudo-registers and a set of hardware registers. *) + + type t = + Register.Set.t * I8051.RegisterSet.t + + type property = + t + + let bottom = + Register.Set.empty, I8051.RegisterSet.empty + + let psingleton r = + Register.Set.singleton r, I8051.RegisterSet.empty + + let hsingleton hwr = + Register.Set.empty, I8051.RegisterSet.singleton hwr + + let join (rset1, hwrset1) (rset2, hwrset2) = + (Register.Set.union rset1 rset2, I8051.RegisterSet.union hwrset1 hwrset2) + + let diff (rset1, hwrset1) (rset2, hwrset2) = + (Register.Set.diff rset1 rset2, I8051.RegisterSet.diff hwrset1 hwrset2) + + let equal (rset1, hwrset1) (rset2, hwrset2) = + Register.Set.equal rset1 rset2 && I8051.RegisterSet.equal hwrset1 hwrset2 + + let is_maximal _ = + false + +end + +module Label_ImperativeMap = struct + + type key = + Label.Map.key + + type 'data t = + 'data Label.Map.t ref + + let create () = + ref Label.Map.empty + + let clear t = + t := Label.Map.empty + + let add k d t = + t := Label.Map.add k d !t + + let find k t = + Label.Map.find k !t + + let iter f t = + Label.Map.iter f !t + +end + +module F = Fix.Make (Label_ImperativeMap) (L) + +(* These are the sets of variables defined at (written by) a statement. *) + +let defined (stmt : statement) : L.t = + match stmt with + | St_skip _ + | St_comment _ + | St_cost _ + | St_push _ + | St_store _ + | St_cond _ + | St_return _ -> + L.bottom + | St_clear_carry _ + | St_set_carry _ -> + Register.Set.empty, I8051.RegisterSet.singleton I8051.carry + | St_op2 (I8051.Add, r, _, _, _) + | St_op2 (I8051.Addc, r, _, _, _) + | St_op2 (I8051.Sub, r, _, _, _) -> + L.join (L.hsingleton I8051.carry) (L.psingleton r) + | St_op1 (I8051.Inc, r, _, _) + | St_get_hdw (r, _, _) + | St_framesize (r, _) + | St_pop (r, _) + | St_int (r, _, _) + | St_addrH (r, _, _) + | St_addrL (r, _, _) + | St_move (r, _, _) + | St_opaccsA (_, r, _, _, _) + | St_opaccsB (_, r, _, _, _) + | St_op1 (_, r, _, _) + | St_op2 (_, r, _, _, _) + | St_load (r, _, _, _) -> + L.psingleton r + | St_set_hdw (r, _, _) + | St_hdw_to_hdw (r, _, _) -> + L.hsingleton r + | St_call_id _ | St_call_ptr _ -> + (* Potentially destroys all caller-save hardware registers. *) + Register.Set.empty, I8051.caller_saved + | St_newframe _ + | St_delframe _ -> + L.join (L.hsingleton I8051.spl) (L.hsingleton I8051.sph) + +let set_of_list rl = + List.fold_right I8051.RegisterSet.add rl I8051.RegisterSet.empty + +(* This is the set of variables used at (read by) a statement. *) + +let set_of_list = + let f set r = I8051.RegisterSet.add r set in + List.fold_left f I8051.RegisterSet.empty + +let ret_regs = set_of_list I8051.rets + +let used (stmt : statement) : L.t = + match stmt with + | St_skip _ + | St_comment _ + | St_cost _ + | St_framesize _ + | St_pop _ + | St_addrH _ + | St_addrL _ + | St_int _ + | St_clear_carry _ + | St_set_carry _ -> + L.bottom + | St_call_id (_, nparams, _) -> + (* Reads the hardware registers that are used to pass parameters. *) + Register.Set.empty, + set_of_list (MiscPottier.prefix nparams I8051.parameters) + | St_call_ptr (r1, r2, nparams, _) -> + (* Reads the hardware registers that are used to pass parameters. *) + Register.Set.of_list [r1 ; r2], + set_of_list (MiscPottier.prefix nparams I8051.parameters) + | St_get_hdw (_, r, _) + | St_hdw_to_hdw (_, r, _) -> + L.hsingleton r + | St_set_hdw (_, r, _) + | St_push (r, _) + | St_move (_, r, _) + | St_op1 (_, _, r, _) + | St_cond (r, _, _) -> + L.psingleton r + | St_op2 (I8051.Addc, _, r1, r2, _) -> + L.join (L.join (L.psingleton r1) (L.psingleton r2)) + (L.hsingleton I8051.carry) + | St_opaccsA (_, _, r1, r2, _) + | St_opaccsB (_, _, r1, r2, _) + | St_op2 (_, _, r1, r2, _) + | St_load (_, r1, r2, _) -> + L.join (L.psingleton r1) (L.psingleton r2) + | St_store (r1, r2, r3, _) -> + L.join (L.join (L.psingleton r1) (L.psingleton r2)) (L.psingleton r3) + | St_newframe _ + | St_delframe _ -> + L.join (L.hsingleton I8051.spl) (L.hsingleton I8051.sph) + | St_return _ -> + Register.Set.empty, I8051.RegisterSet.union I8051.callee_saved ret_regs + +(* A statement is considered pure if it has no side effect, that is, if + its only effect is to write a value to its destination variable. + + A pure statement whose destination is dead after the statement will + be eliminated during the translation of [ERTL] to [LTL]. This is done by + replacing the statement with an [St_skip] statement. + + [eliminable liveafter stmt] returns [Some l], where [l] is [stmt]'s single + successor, if statement [stmt] is eliminable. Otherwise, it returns + [None]. The parameter [liveafter] is the set of variables that are live + after the statement. *) + +let eliminable ((pliveafter, hliveafter) : L.t) (stmt : statement) = + match stmt with + | St_skip _ + | St_comment _ + | St_cost _ + | St_newframe _ + | St_delframe _ + | St_pop _ + | St_push _ + | St_clear_carry _ + | St_set_carry _ + | St_store _ + | St_call_id _ + | St_call_ptr _ + | St_cond _ + | St_return _ -> + None + | St_get_hdw (r, _, l) + | St_framesize (r, l) + | St_int (r, _, l) + | St_addrH (r, _, l) + | St_addrL (r, _, l) + | St_move (r, _, l) + | St_opaccsA (_, r, _, _, l) + | St_opaccsB (_, r, _, _, l) + | St_op1 (_, r, _, l) + | St_op2 (_, r, _, _, l) + | St_load (r, _, _, l) -> + if (Register.Set.mem r pliveafter) || + (I8051.RegisterSet.mem I8051.carry hliveafter) then None else Some l + | St_set_hdw (r, _, l) + | St_hdw_to_hdw (r, _, l) -> + if I8051.RegisterSet.mem r hliveafter then None else Some l + +(* This is the abstract semantics of instructions. It defines the + variables that are live before the instruction in terms of + those that are live after the instruction. *) + +(* The standard definition is: a variable is considered live + before the instruction if either (1) it is used by the instruction, + or (2) it is live after the instruction and not defined by the + instruction. + + As an exception to this rule, if the instruction is eliminable, + then a variable is considered live before the instruction + if and only if it is live after the instruction. This anticipates + on the instruction's elimination. + + This exception means that the source variables of a pure + instruction need not be considered live if the instruction's result + is unused. This allows a sequence of pure instructions whose end + result is dead to be considered entirely dead. + + It is a simple, but not entirely trivial, exercise to check that + this transfer function is monotone. *) + +let statement_semantics (stmt : statement) (liveafter : L.t) : L.t = + match eliminable liveafter stmt with + | None -> + L.join (L.diff liveafter (defined stmt)) (used stmt) + | Some _ -> + liveafter + +(* A valuation is a function that maps a program point (a control flow + graph label) to the set of variables that are live after that + point. *) + +type valuation = + Label.t -> L.t + +(* This is how we turn an [ERTL] procedure into a liveness analysis + problem and solve it. *) + +let analyze (int_fun : internal_function) : valuation = + + (* Formulate the problem. Construct a system (recursive) equations + that describe the live variables before and after each + instruction. *) + + (* The following two functions, [livebefore] and [liveafter], + define these equations. Both use an oracle, a valuation -- + also called [liveafter] -- which is supposed to tell us + which variables are live after each label. *) + + (* The live variables before an instruction are computed, using the + instruction's semantics, in terms of the live variables after the + instruction -- which are given by the oracle. *) + + let livebefore label (liveafter : valuation) : L.t = + let stmt : statement = Label.Map.find label int_fun.f_graph in + statement_semantics stmt (liveafter label) + in + + (* The live variables after an instruction are the union of the live + variables before each of the instruction's successors. *) + + let liveafter label (liveafter : valuation) : L.t = + let stmt : statement = Label.Map.find label int_fun.f_graph in + Label.Set.fold (fun successor accu -> + L.join (livebefore successor liveafter) accu + ) (statement_successors stmt) L.bottom + in + + (* Compute the least fixed point of these recursive equations. *) + + F.lfp liveafter diff --git a/src/ERTL/liveness.mli b/src/ERTL/liveness.mli new file mode 100644 index 0000000..f2a7046 --- /dev/null +++ b/src/ERTL/liveness.mli @@ -0,0 +1,51 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module performs liveness analysis over the control flow graph + of a single [ERTL] procedure. *) + +(* In the following, a ``variable'' means a pseudo-register or an + allocatable hardware register. *) + +(* We collect liveness information about variables. We are not interested in + collecting information about non-allocatable hardware registers such as the + stack pointer registers, etc. so they are considered never defined and never + used as far as [ERTL] is concerned. *) + +open ERTL + +(* This is the lattice of sets of variables. *) + +module L : sig + type t = Register.Set.t * I8051.RegisterSet.t + val bottom: t + val join: t -> t -> t + val equal: t -> t -> bool + val diff: t -> t -> t + val psingleton: Register.t -> t + val hsingleton: I8051.register -> t +end + +(* [defined i] is the set of variables defined at (written by) + statement [i]. *) + +val defined: statement -> L.t + +(* A valuation is a function that maps a program point (a control flow + graph label) to the set of variables that are live after that + point. *) + +type valuation = + Label.t -> L.t + +(* [analyze int_fun] analyzes the function [int_fun] and returns a valuation. *) + +val analyze: internal_function -> valuation + +(* Pure instructions whose destination pseudo-register is dead after the + instruction will be eliminated during the translation of [ERTL] to [LTL]. + [eliminable liveafter i] returns [Some successor], where [successor] is + [i]'s single successor, if instruction [i] is eliminable. Otherwise, it + returns [None]. *) + +val eliminable: L.t -> statement -> Label.t option + diff --git a/src/ERTL/spill.ml b/src/ERTL/spill.ml new file mode 100644 index 0000000..7e89afd --- /dev/null +++ b/src/ERTL/spill.ml @@ -0,0 +1,153 @@ +(* Pasted from Pottier's PP compiler *) + +open Interference +(* open Integer *) +open Printf + +(* ------------------------------------------------------------------------- *) +(* Colorings. *) + +(* This module performs graph coloring with an unlimited number of + colors and aggressive coalescing. It is used for assigning stack + slots to the pseudo-registers that have been spilled by register + allocation. *) + +(* A coloring is a partial function of graph vertices to stack + slots. Vertices that are not in the domain of the coloring are + waiting for a decision to be made. *) + +type decision = + AST.immediate + +type coloring = + decision Vertex.Map.t + +(* ------------------------------------------------------------------------- *) +(* Here is the coloring algorithm. *) + +module Color (G : sig + + val graph: graph + val verbose: bool + +end) = struct + + module SlotSet = + Set.Make(struct type t = int let compare = Pervasives.compare end) + + (* [forbidden_slots graph coloring v] is the set of stack slots that + cannot be assigned to [v] considering the (partial) coloring + [coloring]. This takes into account [v]'s possible interferences + with other spilled vertices. *) + + let add_slot coloring r slots = + SlotSet.add (Vertex.Map.find r coloring) slots + + let forbidden_slots graph coloring v = + Vertex.Set.fold (add_slot coloring) (ipp graph v) SlotSet.empty + + (* [allocate_slot forbidden] returns a stack slot that is not a + member of the set [forbidden]. Unlike hardware registers, stack + slots are infinitely many, so it is always possible to allocate a + new one. The reference [locals] holds the space that must be + reserved on the stack for locals. *) + + let locals = + ref 0 + + let allocate_slot forbidden = + let rec loop slot = + if SlotSet.mem slot forbidden then + loop (slot + I8051.int_size) + else + slot + in + let slot = loop 0 in + locals := max (slot + I8051.int_size) !locals; + slot + + (* Allocation is in two phases, implemented by [coalescing] and + [simplification]. Each of these functions produces a coloring of its + graph argument. *) + + (* [simplification] expects a graph that does not contain any preference + edges. It picks a vertex [v], removes it, colors the remaining graph, + then colors [v] using a color that is still available. Such a color must + exist, since there is an unlimited number of colors. *) + + (* Following Appel, [v] is chosen with lowest degree: this will make this + vertex easier to color and might (?) help use fewer colors. *) + + let rec simplification graph : coloring = + + match lowest graph with + | Some (v, _) -> + + if G.verbose then + printf "SPILL: Picking vertex: %s.\n" (print_vertex graph v); + + (* Remove [v] from the graph and color what remains. *) + + let coloring = simplification (Interference.remove graph v) in + + (* Choose a color for [v]. *) + + let decision = + allocate_slot (forbidden_slots graph coloring v) + in + + if G.verbose then + printf "SPILL: Decision concerning %s: offset %d.\n" (print_vertex graph v) decision; + + (* Record our decision and return. *) + + Vertex.Map.add v decision coloring + + | None -> + + (* The graph is empty. Return an empty coloring. *) + + Vertex.Map.empty + + (* [coalescing] looks for a preference edge, that is, for two vertices + [x] and [y] such that [x] and [y] are move-related. In that case, + [x] and [y] cannot interfere, because the [Interference] module + does not allow two vertices to be related by both an interference + edge and a preference edge. If [coalescing] finds such an edge, it + coalesces [x] and [y] and continues coalescing. Otherwise, it + invokes the next phase, [simplification]. + + This is aggressive coalescing: we coalesce all preference edges, + without fear of creating high-degree nodes. This is good because + a move between two pseudo-registers that have been spilled in + distinct stack slots is very expensive: one load followed by one + store. *) + + let rec coalescing graph : coloring = + + match pppick graph (fun _ -> true) with + | Some (x, y) -> + + if G.verbose then + printf "SPILL: Coalescing %s and %s.\n" (print_vertex graph x) (print_vertex graph y); + + let graph = Interference.coalesce graph x y in + let coloring = coalescing graph in + Vertex.Map.add x (Vertex.Map.find y coloring) coloring + + | None -> + + simplification graph + + (* Run the algorithm. [coalescing] runs first and calls [simplification] + when it is done. *) + + let coloring = + coalescing G.graph + + (* Report how much stack space was used. *) + + let locals = + !locals + +end diff --git a/src/ERTL/spill.mli b/src/ERTL/spill.mli new file mode 100644 index 0000000..1e1fe00 --- /dev/null +++ b/src/ERTL/spill.mli @@ -0,0 +1,36 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module performs graph coloring with an unlimited number of + colors and aggressive coalescing. It is used for assigning stack + slots to the pseudo-registers that have been spilled by register + allocation. *) + +(* A coloring is a partial function of graph vertices to stack + slots. Vertices that are not in the domain of the coloring are + waiting for a decision to be made. *) + +type decision = + AST.immediate + +type coloring = + decision Interference.Vertex.Map.t + +(* Here is the coloring algorithm. Out of an interference graph, it + produces a coloring and reports how many colors (stack slots) were + required. The graph is expected to contain interference and + preferences edges between vertices only -- no hardware registers + are involved. If the [verbose] flag is set, the algorithm prints + information messages to the standard output channel. *) + +module Color (G : sig + + val graph: Interference.graph + val verbose: bool + +end) : sig + + val coloring: coloring + val locals: int + +end + diff --git a/src/ERTL/uses.ml b/src/ERTL/uses.ml new file mode 100644 index 0000000..938e9c9 --- /dev/null +++ b/src/ERTL/uses.ml @@ -0,0 +1,56 @@ +(* Pasted from Pottier's PP compiler *) + +(* This module offers functions that count how many times each + pseudo-register is used within a piece of [ERTL] code. This + is used in [Coloring] to drive the spilling heuristics. *) + +open ERTL + +let lookup uses r = + try + Register.Map.find r uses + with Not_found -> + 0 + +let count r uses = Register.Map.add r (lookup uses r + 1) uses + +let examine_statement _ stmt uses = + match stmt with + | St_skip _ + | St_comment _ + | St_cost _ + | St_hdw_to_hdw _ + | St_newframe _ + | St_delframe _ + | St_clear_carry _ + | St_set_carry _ + | St_call_id _ + | St_return _ -> + uses + | St_get_hdw (r, _, _) + | St_set_hdw (_, r, _) + | St_framesize (r, _) + | St_pop (r, _) + | St_push (r, _) + | St_int (r, _, _) + | St_addrH (r, _, _) + | St_addrL (r, _, _) + | St_cond (r, _, _) -> + count r uses + | St_move (r1, r2, _) + | St_op1 (_, r1, r2, _) + | St_call_ptr (r1, r2, _, _) -> + count r1 (count r2 uses) + | St_opaccsA (_, r1, r2, r3, _) + | St_opaccsB (_, r1, r2, r3, _) + | St_op2 (_, r1, r2, r3, _) + | St_load (r1, r2, r3, _) + | St_store (r1, r2, r3, _) -> + count r1 (count r2 (count r3 uses)) + +let examine_internal int_fun = + let uses = + Label.Map.fold examine_statement int_fun.f_graph Register.Map.empty + in + lookup uses + diff --git a/src/ERTL/uses.mli b/src/ERTL/uses.mli new file mode 100644 index 0000000..5e86531 --- /dev/null +++ b/src/ERTL/uses.mli @@ -0,0 +1,12 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module offers functions that count how many times each + pseudo-register is used within a piece of [ERTL] code. This is used + in [Coloring] to drive the spilling heuristics. *) + +(* [examine_procedure int_fun] counts how many times each pseudo-register + is used within procedure [int_fun]. It returns a function that maps + pseudo-registers to integer use counts. *) + +val examine_internal: ERTL.internal_function -> (Register.t -> int) + diff --git a/src/LIN/LIN.mli b/src/LIN/LIN.mli new file mode 100644 index 0000000..685e180 --- /dev/null +++ b/src/LIN/LIN.mli @@ -0,0 +1,91 @@ + +(** This module defines the abstract syntax tree of [LIN]. *) + +(** Compared to LTL where functions were graphs, the functions of a LIN program + are sequential instructions. *) + +type statement = + + (* Unconditional branch. *) + | St_goto of Label.t + + (* Label a statement. *) + | St_label of Label.t + + (* Comment. *) + | St_comment of string + + (* Emit a cost label. *) + | St_cost of CostLabel.t + + (* Assign an integer constant to a register. Parameters are the destination + register, and the integer. *) + | St_int of I8051.register * int + + (* Pop a value from the IRAM to the accumulator. *) + | St_pop + + (* Push a value from the accumulator to the IRAM. *) + | St_push + + (* Assign the address of a symbol to DPTR. Parameter is the symbol. *) + | St_addr of AST.ident + + (* Move the content of the accumulator to a register. Parameters is the + destination register. *) + | St_from_acc of I8051.register + + (* Move the content of a register to the accumulator. Parameters is the source + register. *) + | St_to_acc of I8051.register + + (* Apply an operation on the accumulators. Parameter is the operation. *) + | St_opaccs of I8051.opaccs + + (* Apply an unary operation on the A accumulator. Parameter is the + operation. *) + | St_op1 of I8051.op1 + + (* Apply a binary operation on the A accumulator. Parameters are the + operation, and the other source register. *) + | St_op2 of I8051.op2 * I8051.register + + (* Set the carry flag to zero. *) + | St_clear_carry + + (* Set the carry flag to 1. *) + | St_set_carry + + (* Load from external memory (address in DPTR) to the accumulator. *) + | St_load + + (* Store to external memory (address in DPTR) from the accumulator. *) + | St_store + + (* Call to a function given its name. Parameter is the name of the + function. *) + | St_call_id of AST.ident + + (* Call to a function given its address in DPTR. *) + | St_call_ptr + + (* Branch on A accumulator. Parameter is the label to go to when the A + accumulator is not 0. *) + | St_condacc of Label.t + + (* Transfer control to the address stored in the return address registers. *) + | St_return + +type internal_function = statement list + +type function_def = + | F_int of internal_function + | F_ext of AST.external_function + +(* A program is a list of global variables and their reserved space, a list of + function names and their definition, and the name of the main function. *) + +type program = + { vars : (AST.ident * int (* size *)) list ; + functs : (AST.ident * function_def) list ; + main : AST.ident option } diff --git a/src/LIN/LINInterpret.ml b/src/LIN/LINInterpret.ml new file mode 100644 index 0000000..cc870ed --- /dev/null +++ b/src/LIN/LINInterpret.ml @@ -0,0 +1,381 @@ + +(** This module provides an interpreter for the LIN language. *) + + +let error_prefix = "LIN interpret" +let error s = Error.global_error error_prefix s + + +module Mem = Driver.LINMemory +module Val = Mem.Value +let chunk = Driver.LINMemory.int_size +module Eval = I8051.Eval (Val) + + +(* Memory *) + +type memory = LIN.function_def Mem.memory + +(* Hardware registers environments. They associate a value to each hardware + register. *) + +type hdw_reg_env = Val.t I8051.RegisterMap.t + +(* Execution states. *) + +type state = + { pc : Val.address ; + isp : Val.address ; + exit : Val.address ; + carry : Val.t ; + renv : hdw_reg_env ; + mem : memory ; + trace : CostLabel.t list } + + +(* Helpers *) + +let change_pc st pc = { st with pc = pc } +let change_isp st isp = { st with isp = isp } +let change_exit st exit = { st with exit = exit } +let change_carry st carry = { st with carry = carry } +let change_renv st renv = { st with renv = renv } +let change_mem st mem = { st with mem = mem } +let change_trace st trace = { st with trace = trace } +let add_trace st cost_lbl = change_trace st (cost_lbl :: st.trace) + +let empty_state = + { pc = Val.null ; + isp = Val.null ; + exit = Val.null ; + carry = Val.undef ; + renv = I8051.RegisterMap.empty ; + mem = Mem.empty ; + trace = [] } + + +let int_fun_of_ptr mem ptr = match Mem.find_fun_def mem ptr with + | LIN.F_int def -> def + | _ -> error "Trying to fetch the definition of an external function." + +let current_int_fun st = int_fun_of_ptr st.mem st.pc + +let fetch_stmt st = + let msg = + Printf.sprintf "%s does not point to a statement." + (Val.string_of_address st.pc) in + if Val.is_mem_address st.pc then + let off = Val.offset_of_address st.pc in + let def = int_fun_of_ptr st.mem st.pc in + List.nth def (Val.Offset.to_int off) + else error msg + +let init_fun_call st ptr = + change_pc st (Val.change_address_offset ptr Val.Offset.zero) + +let next_pc st = + change_pc st (Val.add_address st.pc Val.Offset.one) + +let add_reg r v st = + let renv = I8051.RegisterMap.add r v st.renv in + change_renv st renv + +let get_reg r st = + if I8051.RegisterMap.mem r st.renv then I8051.RegisterMap.find r st.renv + else error ("Unknown hardware register " ^ (I8051.print_register r) ^ ".") + +let push st v = + let mem = Mem.store st.mem chunk st.isp v in + let isp = Val.add_address st.isp (Val.Offset.of_int chunk) in + change_mem (change_isp st isp) mem + +let pop st = + let isp = Val.add_address st.isp (Val.Offset.of_int (-chunk)) in + let st = change_isp st isp in + let v = Mem.load st.mem chunk st.isp in + (st, v) + +let save_ra st = + let ra = Val.add_address st.pc Val.Offset.one in + let st = push st (List.nth ra 0) in + let st = push st (List.nth ra 1) in + st + +let find_label lbl = + let rec aux i = function + | [] -> error (Printf.sprintf "Unknown label %s." lbl) + | LIN.St_label lbl' :: _ when lbl' = lbl -> i + | _ :: code -> aux (i+1) code + in + aux 0 + +let pointer_of_label st lbl = + let code = current_int_fun st in + let off = find_label lbl code in + Val.change_address_offset st.pc (Val.Offset.of_int off) + +let goto st lbl = + change_pc st (pointer_of_label st lbl) + +let return_pc st = + let (st, pch) = pop st in + let (st, pcl) = pop st in + (st, [pcl ; pch]) + +let dptr st = List.map (fun r -> get_reg r st) [I8051.dpl ; I8051.dph] + + +(* State pretty-printing *) + +let print_renv renv = + let f r v = + if not (Val.eq v Val.undef) then + Printf.printf "\n%s = %s%!" (I8051.print_register r) (Val.to_string v) in + I8051.RegisterMap.iter f renv + +let print_state st = + Printf.printf "PC: %s\n%!" (Val.string_of_address st.pc) ; + Printf.printf "SP: %s\n%!" + (Val.string_of_address [get_reg I8051.spl st ; get_reg I8051.sph st]) ; + Printf.printf "ISP: %s%!" (Val.string_of_address st.isp) ; + print_renv st.renv ; + Printf.printf "\nC = %s%!" (Val.to_string st.carry) ; + Mem.print st.mem ; + Printf.printf "\n%!" + + +module InterpretExternal = Primitive.Interpret (Mem) + +let interpret_external mem f args = match InterpretExternal.t mem f args with + | (mem', InterpretExternal.V vs) -> (mem', vs) + | (mem', InterpretExternal.A addr) -> (mem', addr) + +let fetch_external_args f st = + let size = Mem.size_of_quantity (Primitive.args_byte_size f) in + let params = MiscPottier.prefix size I8051.parameters in + List.map (fun r -> get_reg r st) params + +let set_result st vs = + let f st (r, v) = add_reg r v st in + List.fold_left f st (MiscPottier.combine I8051.rets vs) + +let interpret_external_call st f = + let args = fetch_external_args f st in + let (mem, vs) = interpret_external st.mem f args in + let st = change_mem st mem in + set_result st vs + +let interpret_call st ptr = + match Mem.find_fun_def st.mem ptr with + | LIN.F_int def -> + let st = save_ra st in + init_fun_call st ptr + | LIN.F_ext def -> + let st = next_pc st in + interpret_external_call st def.AST.ef_tag + +let interpret_return st = + let (st, pc) = return_pc st in + change_pc st pc + +let interpret_stmt st stmt = + match stmt with + + | LIN.St_goto lbl -> + goto st lbl + + | LIN.St_label _ -> + next_pc st + + | LIN.St_comment s -> +(* + Printf.printf "*** %s ***\n\n%!" s ; +*) + next_pc st + + | LIN.St_cost cost_lbl -> + let st = add_trace st cost_lbl in + next_pc st + + | LIN.St_int (r, i) -> + let st = add_reg r (Val.of_int i) st in + next_pc st + + | LIN.St_pop -> + let (st, v) = pop st in + let st = add_reg I8051.a v st in + next_pc st + + | LIN.St_push -> + let v = get_reg I8051.a st in + let st = push st v in + next_pc st + + | LIN.St_addr x -> + let vs = Mem.find_global st.mem x in + let st = add_reg I8051.dpl (List.nth vs 0) st in + let st = add_reg I8051.dph (List.nth vs 1) st in + next_pc st + + | LIN.St_from_acc destr -> + let st = add_reg destr (get_reg I8051.a st) st in + next_pc st + + | LIN.St_to_acc srcr -> + let st = add_reg I8051.a (get_reg srcr st) st in + next_pc st + + | LIN.St_opaccs opaccs -> + let (a, b) = + Eval.opaccs opaccs + (get_reg I8051.a st) + (get_reg I8051.b st) in + let st = add_reg I8051.a a st in + let st = add_reg I8051.b b st in + next_pc st + + | LIN.St_op1 op1 -> + let v = Eval.op1 op1 (get_reg I8051.a st) in + let st = add_reg I8051.a v st in + next_pc st + + | LIN.St_op2 (op2, srcr) -> + let (v, carry) = + Eval.op2 st.carry op2 + (get_reg I8051.a st) + (get_reg srcr st) in + let st = change_carry st carry in + let st = add_reg I8051.a v st in + next_pc st + + | LIN.St_clear_carry -> + let st = change_carry st Val.zero in + next_pc st + + | LIN.St_set_carry -> + let st = change_carry st (Val.of_int 1) in + next_pc st + + | LIN.St_load -> + let addr = dptr st in + let v = Mem.load st.mem chunk addr in + let st = add_reg I8051.a v st in + next_pc st + + | LIN.St_store -> + let addr = dptr st in + let mem = Mem.store st.mem chunk addr (get_reg I8051.a st) in + let st = change_mem st mem in + next_pc st + + | LIN.St_call_id f -> + interpret_call st (Mem.find_global st.mem f) + + | LIN.St_call_ptr -> + interpret_call st (dptr st) + + | LIN.St_condacc lbl_true -> + let v = get_reg I8051.a st in + if Val.is_true v then goto st lbl_true + else + if Val.is_false v then next_pc st + else error "Undecidable branchment." + + | LIN.St_return -> + interpret_return st + + +let compute_result st = + let vs = List.map (fun r -> get_reg r st) I8051.rets in + let f res v = res && (Val.is_int v) in + let is_int vs = (List.length vs > 0) && (List.fold_left f true vs) in + if is_int vs then + let chunks = + List.map (fun v -> IntValue.Int32.cast (Val.to_int_repr v)) vs in + IntValue.Int32.merge chunks + else IntValue.Int32.zero + +let rec iter_small_step debug st = + let print_and_return_result (res, cost_labels) = + if debug then Printf.printf "Result = %s\n%!" + (IntValue.Int32.to_string res) ; + (res, cost_labels) in + if debug then print_state st ; + match fetch_stmt st with + | LIN.St_return when Val.eq_address (snd (return_pc st)) st.exit -> + print_and_return_result (compute_result st, List.rev st.trace) + | stmt -> + let st' = interpret_stmt st stmt in + iter_small_step debug st' + + +let add_global_vars = + List.fold_left + (fun mem (id, size) -> Mem.add_var mem id (AST.SQ (AST.QInt size)) None) + +let add_fun_defs = + List.fold_left (fun mem (f_id, f_def) -> Mem.add_fun_def mem f_id f_def) + +let init_prog (st : state) (p : LIN.program) : state = + let mem = add_global_vars (add_fun_defs st.mem p.LIN.functs) p.LIN.vars in + change_mem st mem + +let init_sp st = + let (mem, sp) = Mem.alloc st.mem I8051.ext_ram_size in + let sp = + Val.change_address_offset sp (Val.Offset.of_int I8051.ext_ram_size) in + let st = change_mem st mem in + (st, sp) + +let init_isp st = + let (mem, isp) = Mem.alloc st.mem I8051.int_ram_size in + let st = change_mem (change_isp st isp) mem in + let (mem, exit) = Mem.alloc st.mem 1 in + let st = change_exit st exit in + let st = push st (List.nth exit 0) in + let st = push st (List.nth exit 1) in + st + +let init_renv st sp = + let f r st = add_reg r Val.undef st in + let st = I8051.RegisterSet.fold f I8051.registers st in + let spl = List.nth sp 0 in + let sph = List.nth sp 1 in + let st = add_reg I8051.spl spl st in + let st = add_reg I8051.sph sph st in + st + +let init_main_call st main = + let ptr = Mem.find_global st.mem main in + match Mem.find_fun_def st.mem ptr with + | LIN.F_int def -> + init_fun_call st ptr + | _ -> error ("Cannot execute the main (\"" ^ main ^ "\"): it is external.") + + +(* Before interpreting, the environment is initialized: + - Add function definitions to the memory and reserve space for the globals. + - Allocate memory to emulate the external stack and initialize the external + stack pointer. + - Allocate memory to emulate the internal stack and initialize the internal + stack pointer. + - Initialiaze the physical register environment. All are set to 0, except for + the stack pointer registers that take the high and low bits of the external + stack pointer. + - Initialize a call to the main (set the current program counter to the + beginning of the function). + - Initialize the carry flag to 0. *) + +let interpret debug p = + Printf.printf "*** LIN interpret ***\n%!" ; + match p.LIN.main with + | None -> (IntValue.Int32.zero, []) + | Some main -> + let st = empty_state in + let st = init_prog st p in + let (st, sp) = init_sp st in + let st = init_isp st in + let st = init_renv st sp in + let st = init_main_call st main in + let st = change_carry st Val.zero in + iter_small_step debug st diff --git a/src/LIN/LINInterpret.mli b/src/LIN/LINInterpret.mli new file mode 100644 index 0000000..4faa205 --- /dev/null +++ b/src/LIN/LINInterpret.mli @@ -0,0 +1,5 @@ + +(** This module provides a function to interpret a [LIN] program and + return the trace of cost labels encountered. *) + +val interpret: bool -> LIN.program -> AST.trace diff --git a/src/LIN/LINPrinter.ml b/src/LIN/LINPrinter.ml new file mode 100644 index 0000000..abd4aec --- /dev/null +++ b/src/LIN/LINPrinter.ml @@ -0,0 +1,96 @@ + +(** This module provides a function to print [LIN] programs. *) + + +let n_spaces n = String.make n ' ' + + +let print_global n (x, size) = + Printf.sprintf "%s\"%s\" [%d]" (n_spaces n) x size + +let print_globals eformat n globs = + Eformat.printf eformat "%sglobals:\n" (n_spaces n) ; + List.iter + (fun g -> Eformat.printf eformat "%s\n" (print_global (n+2) g)) globs + + +let print_reg = I8051.print_register + +let print_a = print_reg I8051.a + + +let print_statement = function + | LIN.St_goto lbl -> "goto " ^ lbl + | LIN.St_label lbl -> lbl ^ ":" + | LIN.St_comment s -> + Printf.sprintf "*** %s ***" s + | LIN.St_cost cost_lbl -> + Printf.sprintf "emit %s" cost_lbl + | LIN.St_int (dstr, i) -> + Printf.sprintf "imm %s, %d" (print_reg dstr) i + | LIN.St_pop -> + Printf.sprintf "pop %s" print_a + | LIN.St_push -> + Printf.sprintf "push %s" print_a + | LIN.St_addr id -> + Printf.sprintf "addr DPTR, %s" id + | LIN.St_from_acc dstr -> + Printf.sprintf "move %s, %s" (print_reg dstr) print_a + | LIN.St_to_acc srcr -> + Printf.sprintf "move %s, %s" print_a (print_reg srcr) + | LIN.St_opaccs opaccs -> + Printf.sprintf "%s %s, %s" + (I8051.print_opaccs opaccs) print_a (print_reg I8051.b) + | LIN.St_op1 op1 -> + Printf.sprintf "%s %s" (I8051.print_op1 op1) print_a + | LIN.St_op2 (op2, srcr) -> + Printf.sprintf "%s %s, %s" + (I8051.print_op2 op2) print_a (print_reg srcr) + | LIN.St_clear_carry -> "clear CARRY" + | LIN.St_set_carry -> "set CARRY" + | LIN.St_load -> + Printf.sprintf "movex %s, @DPTR" print_a + | LIN.St_store -> + Printf.sprintf "movex @DPTR, %s" print_a + | LIN.St_call_id f -> Printf.sprintf "call \"%s\"" f + | LIN.St_call_ptr -> + Printf.sprintf "call_ptr DPTR" + | LIN.St_condacc lbl_true -> + Printf.sprintf "branch %s <> 0, %s" print_a lbl_true + | LIN.St_return -> "return" + + +let print_code eformat n c = + let f stmt = + Eformat.printf eformat "\n%s%s" (n_spaces n) (print_statement stmt) in + List.iter f c + + +let print_internal_decl eformat n f def = + Eformat.printf eformat "%s\"%s\"\n\n" (n_spaces n) f ; + print_code eformat (n+2) def + + +let print_external_decl eformat n f def = + Eformat.printf eformat "%sextern \"%s\": %s\n" + (n_spaces n) + f + (Primitive.print_sig def.AST.ef_sig) + + +let print_fun_decl eformat n (f, def) = match def with + | LIN.F_int def -> print_internal_decl eformat n f def + | LIN.F_ext def -> print_external_decl eformat n f def + +let print_fun_decls eformat n functs = + List.iter + (fun f -> print_fun_decl eformat n f ; Eformat.printf eformat "\n\n") functs + + +let print_program p = + let eformat = Eformat.create () in + Eformat.printf eformat "program:\n\n\n" ; + print_globals eformat 2 p.LIN.vars ; + Eformat.printf eformat "\n\n" ; + print_fun_decls eformat 2 p.LIN.functs ; + Eformat.get eformat diff --git a/src/LIN/LINPrinter.mli b/src/LIN/LINPrinter.mli new file mode 100644 index 0000000..7e1f192 --- /dev/null +++ b/src/LIN/LINPrinter.mli @@ -0,0 +1,4 @@ + +(** This module provides a function to print [LIN] programs. *) + +val print_program: LIN.program -> string diff --git a/src/LIN/LINToASM.ml b/src/LIN/LINToASM.ml new file mode 100644 index 0000000..e3fabb7 --- /dev/null +++ b/src/LIN/LINToASM.ml @@ -0,0 +1,192 @@ + +(** This module translates a [LIN] program into a [ASM] program. *) + + +let error_prefix = "LIN to ASM" +let error s = Error.global_error error_prefix s + + +(* Translation environment *) + +type env = + { externals : AST.ident list ; + exit_lbl : Label.t ; + fresh : unit -> string } + +let make_env externals exit_lbl fresh = + { externals = externals ; + exit_lbl = exit_lbl ; + fresh = fresh } + + +(* Fetch the labels found in a LIN program. *) + +let statement_labels = function + | LIN.St_goto lbl + | LIN.St_label lbl + | LIN.St_cost lbl + | LIN.St_condacc lbl -> Label.Set.singleton lbl + | _ -> Label.Set.empty + +let funct_labels (_, fun_def) = match fun_def with + | LIN.F_int stmts -> + let f labels stmt = Label.Set.union labels (statement_labels stmt) in + List.fold_left f Label.Set.empty stmts + | _ -> Label.Set.empty + +let prog_labels p = + let f labels funct = Label.Set.union labels (funct_labels funct) in + List.fold_left f Label.Set.empty p.LIN.functs + + +let size_of_vect_size = function + | `Four -> 4 + | `Seven -> 7 + | `Eight -> 8 + | `Eleven -> 11 + | `Sixteen -> 16 + +let vect_of_int i size = + let i' = + if i < 0 then (MiscPottier.pow 2 (size_of_vect_size size)) + i else i in + try BitVectors.vect_of_int i' size + with Invalid_argument _ (* "BitVectors.vect_of_int: size not big enough" *) -> + error + (Printf.sprintf "integer %d is too big to convert using %d bits. Maybe the stack frame of a function is too big." + i (size_of_vect_size size)) + +let byte_of_int i = vect_of_int i `Eight +let data_of_int i = `DATA (byte_of_int i) +let data16_of_int i = `DATA16 (vect_of_int i `Sixteen) +let acc_addr = I8051.reg_addr I8051.a +let dpl_addr = I8051.reg_addr I8051.dpl +let dph_addr = I8051.reg_addr I8051.dph +let st0_addr = I8051.reg_addr I8051.st0 +let st1_addr = I8051.reg_addr I8051.st1 + + +let translate_statement env = function + | LIN.St_goto lbl -> [`Jmp lbl] + | LIN.St_label lbl -> [`Label lbl] + | LIN.St_comment _ -> [] + | LIN.St_cost lbl -> + (* TODO: hack! Need to make the difference between cost labels and regular + labels. *) + [`Cost lbl ; `NOP] + | LIN.St_int (r, i) -> + [`MOV (`U3 (I8051.reg_addr r, data_of_int i))] + | LIN.St_pop -> + [`POP acc_addr] + | LIN.St_push -> + [`PUSH acc_addr] + | LIN.St_addr x when List.mem x env.externals -> + (* HACK! for Lustre support: externals appears in the code but are not + used. *) + [`MOV (`U4 (`DPTR, data16_of_int 0))] + (* error ("Primitive or external " ^ x ^ " is not supported.") *) + | LIN.St_addr x -> + [`Mov (`DPTR, x)] + | LIN.St_from_acc r -> + [`MOV (`U3 (I8051.reg_addr r, `A))] + | LIN.St_to_acc r -> + [`MOV (`U1 (`A, I8051.reg_addr r))] + | LIN.St_opaccs I8051.Mul -> + [`MUL (`A, `B)] + | LIN.St_opaccs I8051.DivuModu -> + [`DIV (`A, `B)] + | LIN.St_op1 I8051.Cmpl -> + [`CPL `A] + | LIN.St_op1 I8051.Inc -> + [`INC `A] + | LIN.St_op2 (I8051.Add, r) -> + [`ADD (`A, I8051.reg_addr r)] + | LIN.St_op2 (I8051.Addc, r) -> + [`ADDC (`A, I8051.reg_addr r)] + | LIN.St_op2 (I8051.Sub, r) -> + [`SUBB (`A, I8051.reg_addr r)] + | LIN.St_op2 (I8051.And, r) -> + [`ANL (`U1 (`A, I8051.reg_addr r))] + | LIN.St_op2 (I8051.Or, r) -> + [`ORL (`U1 (`A, I8051.reg_addr r))] + | LIN.St_op2 (I8051.Xor, r) -> + [`XRL (`U1 (`A, I8051.reg_addr r))] + | LIN.St_clear_carry -> + [`CLR `C] + | LIN.St_set_carry -> + [`SETB `C] + | LIN.St_load -> + [`MOVX (`U1 (`A, `EXT_IND_DPTR))] + | LIN.St_store -> + [`MOVX (`U2 (`EXT_IND_DPTR, `A))] + | LIN.St_call_id x when List.mem x env.externals -> + (* HACK! for Lustre support: externals appears in the code but are not + used. *) + [] + (* error ("Primitive or external " ^ x ^ " is not supported.") *) + | LIN.St_call_id f -> + [`Call f] + | LIN.St_call_ptr -> + let lbl = env.fresh () in + [`MOV (`U3 (st0_addr, dpl_addr)) ; (* save DPL *) + `MOV (`U3 (st1_addr, dph_addr)) ; (* save DPH *) + `Mov (`DPTR, lbl) ; (* DPTR <- return address *) + `PUSH dpl_addr ; (* push DPL *) + `PUSH dph_addr ; (* push DPH *) + `MOV (`U3 (dpl_addr, st0_addr)) ; (* restore DPL *) + `MOV (`U3 (dph_addr, st1_addr)) ; (* restore DPH *) + `MOV (`U1 (`A, data_of_int 0)) ; (* A <- 0 *) + `JMP `IND_DPTR ; (* jump to A+DPTR *) + `Label lbl] (* return address *) + | LIN.St_condacc lbl -> + [`WithLabel (`JNZ (`Label lbl))] + | LIN.St_return -> + [`RET] + +let translate_code env code = + List.flatten (List.map (translate_statement env) code) + + +let translate_fun_def env (id, def) = + let code = match def with + | LIN.F_int code -> translate_code env code + | LIN.F_ext ext -> [`NOP] in + ((`Label id) :: code) + +let translate_functs env main functs = + let preamble = match main with + | None -> [] + | Some main -> + [`MOV (`U3 (`DIRECT (byte_of_int I8051.isp_addr), + data_of_int I8051.isp_init)) ; + `MOV (`U3 (`DIRECT (byte_of_int I8051.spl_addr), + data_of_int I8051.spl_init)) ; + `MOV (`U3 (`DIRECT (byte_of_int I8051.sph_addr), + data_of_int I8051.sph_init)) ; + `Call main ; + `Label env.exit_lbl ; `Jmp env.exit_lbl] in + preamble @ (List.flatten (List.map (translate_fun_def env) functs)) + + +let init_env p = + let f_externals (id, def) = match def with LIN.F_ext _ -> [id] | _ -> [] in + let externals = + List.fold_left (fun res def -> res @ (f_externals def)) [] p.LIN.functs in + let prog_lbls = prog_labels p in + let exit_lbl = Label.Gen.fresh_prefix prog_lbls "_exit" in + let fresh = Label.make_fresh prog_lbls "_call_ret" in + make_env externals exit_lbl fresh + + +(* Translating programs. + + Global variables are associated an offset from the base of the external + memory. *) + +let translate p = + let env = init_env p in + let p = + { ASM.ppreamble = p.LIN.vars ; + ASM.pexit_label = env.exit_lbl ; + ASM.pcode = translate_functs env p.LIN.main p.LIN.functs ; + ASM.phas_main = p.LIN.main <> None } in + ASMInterpret.assembly p diff --git a/src/LIN/LINToASM.mli b/src/LIN/LINToASM.mli new file mode 100644 index 0000000..a7f88d7 --- /dev/null +++ b/src/LIN/LINToASM.mli @@ -0,0 +1,16 @@ + +(** This module translates a [LIN] program into a [ASM] program. *) + +(** Very few work here: + + The globals are associated an offset from the bottom of the memory and + depending on there size. + + The instruction that loads the address of a global into a register + actually loads the offset associated to the global. + + In 8051, a program is supposed to run forever. A preamble that contains + two instructions is added: the first calls the main, and the second + infinitely jumps to itself once the main has returned. *) + +val translate : LIN.program -> ASM.program diff --git a/src/LTL/LTL.mli b/src/LTL/LTL.mli new file mode 100644 index 0000000..dafa303 --- /dev/null +++ b/src/LTL/LTL.mli @@ -0,0 +1,108 @@ + +(** This module defines the abstract syntax tree of [LTL]. *) + +(** The main difference with ERTL is that only physical registers are present in + LTL (no more pseudo-registers). Pseudo-registers are associated either a + physical register or a location on the stack. This is done by a coloring + algorithm. Actually, this coloring algorithm relies on the result of a + liveness analysis that will also allow to remove dead code. *) + +type statement = + + (* The empty statement. *) + | St_skip of Label.t + + (* Comment. *) + | St_comment of string * Label.t + + (* Emit a cost label. *) + | St_cost of CostLabel.t * Label.t + + (* Assign an integer constant to a register. Parameters are the destination + register, the integer and the label of the next statement. *) + | St_int of I8051.register * int * Label.t + + (* Pop a value from the IRAM to the accumulator. Parameter is the label of the + next statement. *) + | St_pop of Label.t + + (* Push a value from the accumulator to the IRAM. Parameter is the label of + the next statement. *) + | St_push of Label.t + + (* Assign the address of a symbol to a DPTR. Parameters are the symbol, and + the label of the next statement. *) + | St_addr of AST.ident * Label.t + + (* Move the content of the accumulator to a register. Parameters are the + destination register, and the label of the next statement. *) + | St_from_acc of I8051.register * Label.t + + (* Move the content of a register to the accumulator. Parameters are the + source register, and the label of the next statement. *) + | St_to_acc of I8051.register * Label.t + + (* Apply an operation on the accumulators. Parameters are the operation, and + the label of the next statement. *) + | St_opaccs of I8051.opaccs * Label.t + + (* Apply an unary operation on the A accumulator. Parameters are the + operation, and the label of the next statement. *) + | St_op1 of I8051.op1 * Label.t + + (* Apply a binary operation on the A accumulator. Parameters are the + operation, the other source register, and the label of the next + statement. *) + | St_op2 of I8051.op2 * I8051.register * Label.t + + (* Set the carry flag to zero. Parameter is the label of the next + statement. *) + | St_clear_carry of Label.t + + (* Set the carry flag to 1. Parameter is the label of the next statement. *) + | St_set_carry of Label.t + + (* Load from external memory (address in DPTR) to the accumulator. Parameter + is the label of the next statement. *) + | St_load of Label.t + + (* Store to external memory (address in DPTR) from the accumulator. Parameter + is the label of the next statement. *) + | St_store of Label.t + + (* Call to a function given its name. Parameters are the name of the function, + and the label of the next statement. *) + | St_call_id of AST.ident * Label.t + + (* Call to a function given its address in DPTR. Parameter is the label of the + next statement. *) + | St_call_ptr of Label.t + + (* Branch on A accumulator. Parameters are the label to go to when the A + accumulator is not 0, and the label to go to when the A accumulator is + 0. *) + | St_condacc of Label.t * Label.t + + (* Transfer control to the address stored in the return address registers. *) + | St_return + +type graph = statement Label.Map.t + +type internal_function = + { f_luniverse : Label.Gen.universe ; + f_stacksize : int ; + f_graph : graph ; + f_entry : Label.t ; + f_exit : Label.t } + +type function_def = + | F_int of internal_function + | F_ext of AST.external_function + +(* A program is a list of global variables and their reserved space, a list of + function names and their definition, and the name of the main function. *) + +type program = + { vars : (AST.ident * int (* size *)) list ; + functs : (AST.ident * function_def) list ; + main : AST.ident option } diff --git a/src/LTL/LTLInterpret.ml b/src/LTL/LTLInterpret.ml new file mode 100644 index 0000000..7f45f9b --- /dev/null +++ b/src/LTL/LTLInterpret.ml @@ -0,0 +1,418 @@ + +(** This module provides an interpreter for the LTL language. *) + + +let error_prefix = "LTL interpret" +let error s = Error.global_error error_prefix s + + +module Mem = Driver.LTLMemory +module Val = Mem.Value +let chunk = Driver.LTLMemory.int_size +module Eval = I8051.Eval (Val) + + +(* Memory *) + +type memory = LTL.function_def Mem.memory + +(* Hardware registers environments. They associate a value to the each hardware + register. *) + +type hdw_reg_env = Val.t I8051.RegisterMap.t + +(* Execution states. *) + +type state = + { pc : Val.address ; + isp : Val.address ; + exit : Val.address ; + carry : Val.t ; + renv : hdw_reg_env ; + mem : memory ; + trace : CostLabel.t list } + + +(* Helpers *) + +let change_pc st pc = { st with pc = pc } +let change_isp st isp = { st with isp = isp } +let change_exit st exit = { st with exit = exit } +let change_carry st carry = { st with carry = carry } +let change_renv st renv = { st with renv = renv } +let change_mem st mem = { st with mem = mem } +let change_trace st trace = { st with trace = trace } +let add_trace st cost_lbl = change_trace st (cost_lbl :: st.trace) + +let empty_state = + { pc = Val.null ; + isp = Val.null ; + exit = Val.null ; + carry = Val.undef ; + renv = I8051.RegisterMap.empty ; + mem = Mem.empty ; + trace = [] } + + +(* Each label of each function is associated a pointer. The base of this pointer + is the base of the function in memory. Inside a function, offsets are + bijectively associated to labels. *) + +module Labels_Offsets = Bijection.Make (Label) (Val.Offset) + +let labels_offsets_internal int_fun = + let f lbl _ (lbls_offs, i) = + (Labels_Offsets.add1 lbl i lbls_offs, Val.Offset.succ i) in + Label.Map.fold f int_fun.LTL.f_graph + +(* [labels_offsets p] builds a bijection between the labels found in the + functions of [p] and some offsets. *) + +let labels_offsets p = + let f (lbls_offs, i) (_, def) = match def with + | LTL.F_int int_fun -> labels_offsets_internal int_fun (lbls_offs, i) + | _ -> (lbls_offs, i) in + fst (List.fold_left f (Labels_Offsets.empty, Val.Offset.zero) p.LTL.functs) + +let fun_def_of_ptr mem ptr = match Mem.find_fun_def mem ptr with + | LTL.F_int def -> def + | _ -> error "Trying to fetch the definition of an external function." + +let fetch_stmt lbls_offs st = + let msg = + Printf.sprintf "%s does not point to a statement." + (Val.string_of_address st.pc) in + if Val.is_mem_address st.pc then + let off = Val.offset_of_address st.pc in + let def = fun_def_of_ptr st.mem st.pc in + let lbl = Labels_Offsets.find2 off lbls_offs in + Label.Map.find lbl def.LTL.f_graph + else error msg + +let entry_pc lbls_offs ptr def = + Val.change_address_offset ptr (Labels_Offsets.find1 def.LTL.f_entry lbls_offs) + +let init_fun_call lbls_offs st ptr def = + let pc = entry_pc lbls_offs ptr def in + change_pc st pc + +let next_pc lbls_offs st lbl = + let off = Labels_Offsets.find1 lbl lbls_offs in + change_pc st (Val.change_address_offset st.pc off) + +let framesize st = + if Val.is_mem_address st.pc then + let def = fun_def_of_ptr st.mem st.pc in + def.LTL.f_stacksize + else error "Trying to load the stack size of an external function." + +let add_reg r v st = + let renv = I8051.RegisterMap.add r v st.renv in + change_renv st renv + +let get_reg r st = + if I8051.RegisterMap.mem r st.renv then I8051.RegisterMap.find r st.renv + else error ("Unknown hardware register " ^ (I8051.print_register r) ^ ".") + +let push st v = + let mem = Mem.store st.mem chunk st.isp v in + let isp = Val.add_address st.isp (Val.Offset.of_int chunk) in + change_mem (change_isp st isp) mem + +let pop st = + let isp = Val.add_address st.isp (Val.Offset.of_int (-chunk)) in + let st = change_isp st isp in + let v = Mem.load st.mem chunk st.isp in + (st, v) + +let save_ra lbls_offs st lbl = + let ra = + Val.change_address_offset st.pc (Labels_Offsets.find1 lbl lbls_offs) in + let st = push st (List.nth ra 0) in + let st = push st (List.nth ra 1) in + st + +let label_of_pointer lbls_offs ptr = +(* + Printf.printf "Retrieving label of %s\n%!" (Val.to_string ptr) ; +*) + let off = Val.offset_of_address ptr in + Labels_Offsets.find2 off lbls_offs + +let pointer_of_label lbls_offs ptr lbl = + Val.change_address_offset ptr (Labels_Offsets.find1 lbl lbls_offs) + +let return_pc st = + let (st, pch) = pop st in + let (st, pcl) = pop st in + (st, [pcl ; pch]) + +let dptr st = List.map (fun r -> get_reg r st) [I8051.dpl ; I8051.dph] + + +(* State pretty-printing *) + +let current_label lbls_offs st = + Labels_Offsets.find2 (Val.offset_of_address st.pc) lbls_offs + +let print_renv renv = + let f r v = + if not (Val.eq v Val.undef) then + Printf.printf "\n%s = %s%!" (I8051.print_register r) (Val.to_string v) in + I8051.RegisterMap.iter f renv + +let print_state lbls_offs st = + Printf.printf "PC: %s (%s)\n%!" + (Val.string_of_address st.pc) (current_label lbls_offs st) ; + Printf.printf "SP: %s\n%!" + (Val.string_of_address [get_reg I8051.spl st ; get_reg I8051.sph st]) ; + Printf.printf "ISP: %s%!" (Val.string_of_address st.isp) ; + print_renv st.renv ; + Printf.printf "\nC = %s%!" (Val.to_string st.carry) ; + Mem.print st.mem ; + Printf.printf "\n%!" + + +module InterpretExternal = Primitive.Interpret (Mem) + +let interpret_external mem f args = match InterpretExternal.t mem f args with + | (mem', InterpretExternal.V vs) -> (mem', vs) + | (mem', InterpretExternal.A addr) -> (mem', addr) + +let fetch_external_args f st = + let size = Mem.size_of_quantity (Primitive.args_byte_size f) in + let params = MiscPottier.prefix size I8051.parameters in + List.map (fun r -> get_reg r st) params + +let set_result st vs = + let f st (r, v) = add_reg r v st in + List.fold_left f st (MiscPottier.combine I8051.rets vs) + +let interpret_external_call st f next_pc = + let args = fetch_external_args f st in + let (mem, vs) = interpret_external st.mem f args in + let st = change_mem st mem in + let st = set_result st vs in + change_pc st next_pc + +let interpret_call lbls_offs st ptr ra = + match Mem.find_fun_def st.mem ptr with + | LTL.F_int def -> + let st = save_ra lbls_offs st ra in + init_fun_call lbls_offs st ptr def + | LTL.F_ext def -> + let next_pc = + Val.change_address_offset st.pc (Labels_Offsets.find1 ra lbls_offs) in + interpret_external_call st def.AST.ef_tag next_pc + +let interpret_return lbls_offs st = + let (st, pc) = return_pc st in + change_pc st pc + + +(* Interpret statements. *) + +let interpret_stmt lbls_offs st stmt = + let next_pc = next_pc lbls_offs in + match stmt with + + | LTL.St_skip lbl -> + next_pc st lbl + + | LTL.St_comment (s, lbl) -> +(* + Printf.printf "*** %s ***\n\n%!" s ; +*) + next_pc st lbl + + | LTL.St_cost (cost_lbl, lbl) -> + let st = add_trace st cost_lbl in + next_pc st lbl + + | LTL.St_int (r, i, lbl) -> + let st = add_reg r (Val.of_int i) st in + next_pc st lbl + + | LTL.St_pop lbl -> + let (st, v) = pop st in + let st = add_reg I8051.a v st in + next_pc st lbl + + | LTL.St_push lbl -> + let v = get_reg I8051.a st in + let st = push st v in + next_pc st lbl + + | LTL.St_addr (x, lbl) -> + let vs = Mem.find_global st.mem x in + let st = add_reg I8051.dpl (List.nth vs 0) st in + let st = add_reg I8051.dph (List.nth vs 1) st in + next_pc st lbl + + | LTL.St_from_acc (destr, lbl) -> + let st = add_reg destr (get_reg (I8051.a) st) st in + next_pc st lbl + + | LTL.St_to_acc (srcr, lbl) -> + let st = add_reg I8051.a (get_reg srcr st) st in + next_pc st lbl + + | LTL.St_opaccs (opaccs, lbl) -> + let (a, b) = + Eval.opaccs opaccs + (get_reg I8051.a st) + (get_reg I8051.b st) in + let st = add_reg I8051.a a st in + let st = add_reg I8051.b b st in + next_pc st lbl + + | LTL.St_op1 (op1, lbl) -> + let v = Eval.op1 op1 (get_reg I8051.a st) in + let st = add_reg I8051.a v st in + next_pc st lbl + + | LTL.St_op2 (op2, srcr, lbl) -> + let (v, carry) = + Eval.op2 st.carry op2 + (get_reg I8051.a st) + (get_reg srcr st) in + let st = change_carry st carry in + let st = add_reg I8051.a v st in + next_pc st lbl + + | LTL.St_clear_carry lbl -> + let st = change_carry st Val.zero in + next_pc st lbl + + | LTL.St_set_carry lbl -> + let st = change_carry st (Val.of_int 1) in + next_pc st lbl + + | LTL.St_load lbl -> + let addr = dptr st in + let v = Mem.load st.mem chunk addr in + let st = add_reg I8051.a v st in + next_pc st lbl + + | LTL.St_store lbl -> + let addr = dptr st in + let mem = Mem.store st.mem chunk addr (get_reg I8051.a st) in + let st = change_mem st mem in + next_pc st lbl + + | LTL.St_call_id (f, lbl) -> + interpret_call lbls_offs st (Mem.find_global st.mem f) lbl + + | LTL.St_call_ptr lbl -> + interpret_call lbls_offs st (dptr st) lbl + + | LTL.St_condacc (lbl_true, lbl_false) -> + let v = get_reg I8051.a st in + let lbl = + if Val.is_true v then lbl_true + else + if Val.is_false v then lbl_false + else error "Undecidable branchment." in + next_pc st lbl + + | LTL.St_return -> + interpret_return lbls_offs st + + +let compute_result st = + let vs = List.map (fun r -> get_reg r st) I8051.rets in + let f res v = res && (Val.is_int v) in + let is_int vs = (List.length vs > 0) && (List.fold_left f true vs) in + if is_int vs then + let chunks = + List.map (fun v -> IntValue.Int32.cast (Val.to_int_repr v)) vs in + IntValue.Int32.merge chunks + else IntValue.Int32.zero + +let rec iter_small_step debug lbls_offs st = + let print_and_return_result (res, cost_labels) = + if debug then Printf.printf "Result = %s\n%!" + (IntValue.Int32.to_string res) ; + (res, cost_labels) in + if debug then print_state lbls_offs st ; + match fetch_stmt lbls_offs st with + | LTL.St_return when Val.eq_address (snd (return_pc st)) st.exit -> + print_and_return_result (compute_result st, List.rev st.trace) + | stmt -> + let st' = interpret_stmt lbls_offs st stmt in + iter_small_step debug lbls_offs st' + + +let add_global_vars = + List.fold_left + (fun mem (id, size) -> Mem.add_var mem id (AST.SQ (AST.QInt size)) None) + +let add_fun_defs = + List.fold_left (fun mem (f_id, f_def) -> Mem.add_fun_def mem f_id f_def) + +let init_prog (st : state) (p : LTL.program) : state = + let mem = add_global_vars (add_fun_defs st.mem p.LTL.functs) p.LTL.vars in + change_mem st mem + +let init_sp st = + let (mem, sp) = Mem.alloc st.mem I8051.ext_ram_size in + let sp = + Val.change_address_offset sp (Val.Offset.of_int I8051.ext_ram_size) in + let st = change_mem st mem in + (st, sp) + +let init_isp st = + let (mem, isp) = Mem.alloc st.mem I8051.int_ram_size in + let st = change_mem (change_isp st isp) mem in + let (mem, exit) = Mem.alloc st.mem 1 in + let st = change_exit st exit in + let st = push st (List.nth exit 0) in + let st = push st (List.nth exit 1) in + st + +let init_renv st sp = + let f r st = add_reg r Val.undef st in + let st = I8051.RegisterSet.fold f I8051.registers st in + let spl = List.nth sp 0 in + let sph = List.nth sp 1 in + let st = add_reg I8051.spl spl st in + let st = add_reg I8051.sph sph st in + st + +let init_main_call lbls_offs st main = + let ptr = Mem.find_global st.mem main in + match Mem.find_fun_def st.mem ptr with + | LTL.F_int def -> + init_fun_call lbls_offs st ptr def + | _ -> error ("Cannot execute the main (\"" ^ main ^ "\"): it is external.") + + +(* Before interpreting, the environment is initialized: + - Build a bijection between the labels in the program and some values (taken + amongst the offsets). + - Add function definitions to the memory and reserve space for the globals. + - Allocate memory to emulate the external stack and initialize the external + stack pointer. + - Allocate memory to emulate the internal stack and initialize the internal + stack pointer. + - Initialiaze the physical register environment. All are set to 0, except for + the stack pointer registers that take the high and low bits of the external + stack pointer. + - Initialize a call to the main (set the current program counter to the + beginning of the function). + - Initialize the carry flag to 0. *) + +let interpret debug p = + Printf.printf "*** LTL interpret ***\n%!" ; + match p.LTL.main with + | None -> (IntValue.Int8.zero, []) + | Some main -> + let lbls_offs = labels_offsets p in + let st = empty_state in + let st = init_prog st p in + let (st, sp) = init_sp st in + let st = init_isp st in + let st = init_renv st sp in + let st = init_main_call lbls_offs st main in + let st = change_carry st Val.zero in + iter_small_step debug lbls_offs st diff --git a/src/LTL/LTLInterpret.mli b/src/LTL/LTLInterpret.mli new file mode 100644 index 0000000..7a50a62 --- /dev/null +++ b/src/LTL/LTLInterpret.mli @@ -0,0 +1,5 @@ + +(** This module provides a function to interpret a [LTL] program and + return the trace of cost labels encountered. *) + +val interpret: bool -> LTL.program -> AST.trace diff --git a/src/LTL/LTLPrinter.ml b/src/LTL/LTLPrinter.ml new file mode 100644 index 0000000..2c7d6b2 --- /dev/null +++ b/src/LTL/LTLPrinter.ml @@ -0,0 +1,110 @@ + +(** This module provides a function to print [LTL] programs. *) + + +let n_spaces n = String.make n ' ' + + +let print_global n (x, size) = + Printf.sprintf "%s\"%s\" [%d]" (n_spaces n) x size + +let print_globals eformat n globs = + Eformat.printf eformat "%sglobals:\n" (n_spaces n) ; + List.iter + (fun g -> Eformat.printf eformat "%s\n" (print_global (n+2) g)) globs + + +let print_reg = I8051.print_register + +let print_a = print_reg I8051.a + + +let print_statement = function + | LTL.St_skip lbl -> "--> " ^ lbl + | LTL.St_comment (s, lbl) -> + Printf.sprintf "*** %s *** --> %s" s lbl + | LTL.St_cost (cost_lbl, lbl) -> + Printf.sprintf "emit %s --> %s" cost_lbl lbl + | LTL.St_int (dstr, i, lbl) -> + Printf.sprintf "imm %s, %d --> %s" (print_reg dstr) i lbl + | LTL.St_pop lbl -> + Printf.sprintf "pop %s --> %s" print_a lbl + | LTL.St_push lbl -> + Printf.sprintf "push %s --> %s" print_a lbl + | LTL.St_addr (id, lbl) -> + Printf.sprintf "addr DPTR, %s --> %s" id lbl + | LTL.St_from_acc (dstr, lbl) -> + Printf.sprintf "move %s, %s --> %s" (print_reg dstr) print_a lbl + | LTL.St_to_acc (srcr, lbl) -> + Printf.sprintf "move %s, %s --> %s" print_a (print_reg srcr) lbl + | LTL.St_opaccs (opaccs, lbl) -> + Printf.sprintf "%s %s, %s --> %s" + (I8051.print_opaccs opaccs) print_a (print_reg I8051.b) lbl + | LTL.St_op1 (op1, lbl) -> + Printf.sprintf "%s %s --> %s" (I8051.print_op1 op1) print_a lbl + | LTL.St_op2 (op2, srcr, lbl) -> + Printf.sprintf "%s %s, %s --> %s" + (I8051.print_op2 op2) print_a (print_reg srcr) lbl + | LTL.St_clear_carry lbl -> + Printf.sprintf "clear CARRY --> %s" lbl + | LTL.St_set_carry lbl -> + Printf.sprintf "set CARRY --> %s" lbl + | LTL.St_load lbl -> + Printf.sprintf "movex %s, @DPTR --> %s" print_a lbl + | LTL.St_store lbl -> + Printf.sprintf "movex @DPTR, %s --> %s" print_a lbl + | LTL.St_call_id (f, lbl) -> Printf.sprintf "call \"%s\" --> %s" f lbl + | LTL.St_call_ptr lbl -> + Printf.sprintf "call_ptr DPTR --> %s" lbl + | LTL.St_condacc (lbl_true, lbl_false) -> + Printf.sprintf "branch %s <> 0 --> %s, %s" print_a lbl_true lbl_false + | LTL.St_return -> Printf.sprintf "return" + + +let print_graph eformat n c = + let f lbl stmt = + Eformat.printf eformat "%s%s: %s\n" + (n_spaces n) + lbl + (print_statement stmt) in + Label.Map.iter f c + + +let print_internal_decl eformat n f def = + Eformat.printf eformat + "%s\"%s\"\n%sstacksize: %d\n%sentry: %s\n%sexit: %s\n\n" + (n_spaces n) + f + (n_spaces (n+2)) + def.LTL.f_stacksize + (n_spaces (n+2)) + def.LTL.f_entry + (n_spaces (n+2)) + def.LTL.f_exit ; + print_graph eformat (n+2) def.LTL.f_graph + + +let print_external_decl eformat n f def = + Eformat.printf eformat "%sextern \"%s\": %s\n" + (n_spaces n) + f + (Primitive.print_sig def.AST.ef_sig) + + +let print_fun_decl eformat n (f, def) = match def with + | LTL.F_int def -> print_internal_decl eformat n f def + | LTL.F_ext def -> print_external_decl eformat n f def + +let print_fun_decls eformat n functs = + List.iter + (fun f -> print_fun_decl eformat n f ; Eformat.printf eformat "\n\n") + functs + + +let print_program p = + let eformat = Eformat.create () in + Eformat.printf eformat "program:\n\n\n" ; + print_globals eformat 2 p.LTL.vars ; + Eformat.printf eformat "\n\n" ; + print_fun_decls eformat 2 p.LTL.functs ; + Eformat.get eformat diff --git a/src/LTL/LTLPrinter.mli b/src/LTL/LTLPrinter.mli new file mode 100644 index 0000000..82794d1 --- /dev/null +++ b/src/LTL/LTLPrinter.mli @@ -0,0 +1,6 @@ + + +(** This module provides a function to print [LTL] programs. *) + +val print_program : LTL.program -> string + diff --git a/src/LTL/LTLToLIN.ml b/src/LTL/LTLToLIN.ml new file mode 100644 index 0000000..07ca892 --- /dev/null +++ b/src/LTL/LTLToLIN.ml @@ -0,0 +1,133 @@ +(* This module provides a translation of LTL programs to LIN programs. *) + +(* Adapted from Pottier's PP compiler *) + +(* ------------------------------------------------------------------------- *) + +(* [translate_statement] translates an [LTL] statement into a [LIN] + statement. *) + +let translate_statement = function + + (* Because [Branch.compress] has been called before, no [St_skip] + statement can be reached. *) + + | LTL.St_skip lbl -> + LIN.St_goto lbl + + (* Sequential statements. *) + + | LTL.St_comment (s, _) -> + LIN.St_comment s + | LTL.St_cost (lbl, _) -> + LIN.St_cost lbl + | LTL.St_int (r, i, _) -> + LIN.St_int (r, i) + | LTL.St_addr (x, _) -> + LIN.St_addr x + | LTL.St_pop _ -> + LIN.St_pop + | LTL.St_push _ -> + LIN.St_push + | LTL.St_clear_carry _ -> + LIN.St_clear_carry + | LTL.St_set_carry _ -> + LIN.St_set_carry + | LTL.St_from_acc (r, _) -> + LIN.St_from_acc (r) + | LTL.St_to_acc (r, _) -> + LIN.St_to_acc r + | LTL.St_opaccs (opaccs, _) -> + LIN.St_opaccs opaccs + | LTL.St_op1 (op1, _) -> + LIN.St_op1 op1 + | LTL.St_op2 (op2, r, _) -> + LIN.St_op2 (op2, r) + | LTL.St_load _ -> + LIN.St_load + | LTL.St_store _ -> + LIN.St_store + | LTL.St_call_id (f, _) -> + LIN.St_call_id f + | LTL.St_call_ptr _ -> + LIN.St_call_ptr + + (* Conditional branch statement. In [LIN], control implicitly + falls through to the second successor, so only the first + successor is explicitly mentioned in the statement. *) + + | LTL.St_condacc (lbl_true, _) -> + LIN.St_condacc lbl_true + + (* Statement without a successor. *) + + | LTL.St_return -> + LIN.St_return + +(* ------------------------------------------------------------------------- *) + +(* [translate entry graph] turns an [LTL] control flow graph into + a [LIN] sequence of statements. *) + +let translate_graph entry graph = + + (* Keep track of the labels that have been visited (initially none), of the + labels that must exist within the [LIN] code (initially only the graph's + entry point) and of the list of [LIN] statements that are being + generated (initially empty). Statements are held in the list in reverse + order, for efficiency. The list is reversed once generation is over. *) + + let visited, required, statements = + ref Label.Set.empty, ref (Label.Set.singleton entry), ref [] + in + + (* Instantiate the functor. *) + + let module V = LTLToLINI.Visit (struct + let fetch label = + Label.Map.find label graph + let translate_statement = + translate_statement + let generate statement = + statements := statement :: !statements + let require label = + required := Label.Set.add label !required + let mark label = + visited := Label.Set.add label !visited + let marked label = + Label.Set.mem label !visited + end) in + + (* Traverse the control flow graph. *) + + V.visit entry; + + (* Now, get rid of the labels that do not need to exist. Also, + reverse the list to re-establish the correct order. *) + + List.filter (function + | LIN.St_label l -> + Label.Set.mem l !required + | _ -> + true + ) (List.rev !statements) + +(* ------------------------------------------------------------------------- *) + +(* Extend the translation to procedures and programs. *) + +let translate_internal int_fun = + (* Compress the graph to eliminate gotos (St_skip) statements. *) + let entry, graph = Branch.compress int_fun.LTL.f_entry int_fun.LTL.f_graph in + translate_graph entry graph + +let translate_funct (name, def) = + let def' = match def with + | LTL.F_int def -> LIN.F_int (translate_internal def) + | LTL.F_ext def -> LIN.F_ext def in + (name, def') + +let translate (p : LTL.program) : LIN.program = + { LIN.vars = p.LTL.vars; + LIN.functs = List.map translate_funct p.LTL.functs ; + LIN.main = p.LTL.main } diff --git a/src/LTL/LTLToLIN.mli b/src/LTL/LTLToLIN.mli new file mode 100644 index 0000000..c3b8e9b --- /dev/null +++ b/src/LTL/LTLToLIN.mli @@ -0,0 +1,9 @@ + +(** This module is the external part of the translation of [LTL] + programs into [LIN] programs. *) + +(** The translation mainly consists in compressing the graph (remove all gotos + statements) and then transform the graph structure in a sequence of + statements. *) + +val translate : LTL.program -> LIN.program diff --git a/src/LTL/LTLToLINI.ml b/src/LTL/LTLToLINI.ml new file mode 100644 index 0000000..07bc56d --- /dev/null +++ b/src/LTL/LTLToLINI.ml @@ -0,0 +1,172 @@ +(* Adapted from Pottier's PP compiler *) + +open MIPSOps + +(* ------------------------------------------------------------------------- *) + +(* The functor [Visit] implements the core of the translation of + [LTL] to [LIN]. *) + +module Visit (S : sig + + (* [fetch l] is the statement found at label [l] in the source + program. *) + + val fetch: Label.t -> LTL.statement + + (* [translate_statement stmt] translates the [LTL] statement [stmt] to + a [LIN] statement. [LTL] statements that have one explicit + successor are turned into [LIN] statements with an implicit + successor. [LTL] statements that have two explicit successors + are turned into [LIN] statements where the first successor is + explicit and the second successor is implicit. *) + + val translate_statement: LTL.statement -> LIN.statement + + (* [generate stmt] generates statement [stmt]. Statements are + generated sequentially. *) + + val generate: LIN.statement -> unit + + (* [require l] records the fact that the label [l] should explicitly + exist in the [LIN] program. It must be used whenever a [LIN] + branch statement is issued. *) + + val require: Label.t -> unit + + (* [mark l] marks the label [l]. [marked l] tells whether [l] is + marked. *) + + val mark: Label.t -> unit + val marked: Label.t -> bool + +end) = struct + + open S + + let rec visit l = + + if marked l then begin + + (* Label [l] has been visited before. This implies that an [St_label l] + statement has been issued already. We must now generate an + [St_goto] statement that transfers control to this place. Because + [l] is the target of a branch statement, we require it to exist + in the [LIN] code. *) + + require l; + generate (LIN.St_goto l) + + end + else begin + + (* Label [l] has never been visited before. First, record that it + now has been visited, so as to avoid looping. *) + + mark l; + + (* Then, generate an [St_label l] statement. This statement + will be useless if [l] turns out not to be the target of a + branch: this is taken care of later. *) + + generate (LIN.St_label l); + + (* Fetch the statement found at label [l] in the source program. *) + + let statement = fetch l in + + (* As an optional optimization, check if this is a conditional branch + whose implicit successor has been visited before and whose explicit + successor has not. In that case, if we did nothing special, we would + produce a conditional branch immediately followed with an + unconditional one, like this: + + bgtz $t1, find24 + j find42 + find24: + ... + + This can be avoided simply by reversing the condition: + + blez $t1, find42 + ... + + *) + + (* But in fact, there is only a unique conditional branch statement in + LTL for the 8051, so this is optimization is not used. *) + + (* Translate the statement. *) + + generate (translate_statement statement); + + (* Note that [translate_statement] never produces an [St_goto] + statement. As a result, the code above never generates an [St_label] + statement immediately followed with an [St_goto] statement. This + proves that we never generate a (conditional or unconditional) branch + towards an [St_goto] statement. *) + + (* There now remains to visit the statement's successors. *) + + match statement with + + (* Sequential statements. There is only one successor, with implicit + fallthrough. *) + + | LTL.St_skip l + | LTL.St_comment (_, l) + | LTL.St_cost (_, l) + | LTL.St_int (_, _, l) + | LTL.St_pop l + | LTL.St_push l + | LTL.St_addr (_, l) + | LTL.St_from_acc (_, l) + | LTL.St_to_acc (_, l) + | LTL.St_opaccs (_, l) + | LTL.St_op1 (_, l) + | LTL.St_op2 (_, _, l) + | LTL.St_clear_carry l + | LTL.St_set_carry l + | LTL.St_load l + | LTL.St_store l + | LTL.St_call_id (_, l) + | LTL.St_call_ptr l -> + + visit l + + (* Conditional branch statement. The label that is reached by + falling through in [LIN] is [l2], which means that it must be + translated first, so that its statements are contiguous with the + [LIN] branch statement. The label [l1], on the other hand, + becomes the target of a jump, so it is required to exist in the + [LIN] code. + + Code for [l1] is generated, if necessary, after we are done dealing + with [l2]. If [l1] has already been visited at this point, no code + needs be produced, so the second call to visit is made only if [l1] + has not been visited yet. *) + + | LTL.St_condacc (l1, l2) -> + + visit l2; + require l1; + if not (marked l1) then + visit l1 + + (* Statement without a successor. *) + + (* We would prefer to duplicate, rather than share, these + statements. Indeed, it is inefficient to generate a jump towards + one of these statements. Unfortunately, it is not easy to achieve + this, for two reasons. First, frame deletion is in the way. Second, + and worse, we must not generate duplicate labels. Maybe I will find + a fix in the future. *) + + | LTL.St_return -> + + () + + end + +end + diff --git a/src/LTL/LTLToLINI.mli b/src/LTL/LTLToLINI.mli new file mode 100644 index 0000000..48fa782 --- /dev/null +++ b/src/LTL/LTLToLINI.mli @@ -0,0 +1,57 @@ + +(** This module is the central part of the translation of [LTL] + programs into [LIN] programs. *) + +(* Adapted from Pottier's PP compiler *) + +(* The functor [Visit] implements the core of the translation of + [LTL] to [LIN]. *) + +module Visit (S : sig + + (* [fetch l] is the statement found at label [l] in the source + program. *) + + val fetch: Label.t -> LTL.statement + + (* [translate_statement stmt] translates the [LTL] statement [stmt] to + a [LIN] statement. [LTL] statements that have one explicit + successor are turned into [LIN] statements with an implicit + successor. [LTL] statements that have two explicit successors + are turned into [LIN] statements where the first successor is + explicit and the second successor is implicit. *) + + val translate_statement: LTL.statement -> LIN.statement + + (* [generate stmt] generates statement [stmt]. Statements are + generated sequentially. *) + + val generate: LIN.statement -> unit + + (* [require l] records the fact that the label [l] should explicitly + exist in the [LIN] program. It must be used whenever a [LIN] + branch statement is issued. *) + + val require: Label.t -> unit + + (* [mark l] marks the label [l]. [marked l] tells whether [l] is + marked. *) + + val mark: Label.t -> unit + val marked: Label.t -> bool + +end) : sig + + (* [visit] implements a depth-first traversal of the control flow graph, + generating statements as new nodes are being discovered. + + If label [l] has already been discovered, then [visit l] issues + an [St_goto] statement towards [l]. If [l] has not been + discovered yet, [visit l] marks [l] as discovered, issues an + [St_label] statement, translates the statement found at [l] in + the source program, and visits its successors. *) + + val visit: Label.t -> unit + +end + diff --git a/src/LTL/branch.ml b/src/LTL/branch.ml new file mode 100644 index 0000000..a76a96b --- /dev/null +++ b/src/LTL/branch.ml @@ -0,0 +1,88 @@ +(* Pasted from Pottier's PP compiler *) + +open LTL + +let compress entry graph = + + (* Build a table that maps every graph label to a distinct ``point'' + in the sense of [UnionFind]. *) + + let points = + Label.Map.mapi (fun label _ -> + UnionFind.fresh label + ) graph + in + + let lookup label = + try + Label.Map.find label points + with Not_found -> + assert false + in + + (* For every [St_skip] statement, make the source label an alias for + the target label, unless the former is already an alias for the + latter (which means that the graph contains a cycle of [St_skip] + statements). *) + + Label.Map.iter (fun src stmt -> + let source = lookup src in + match stmt with + | St_skip trgt -> + let target = lookup trgt in + if UnionFind.equivalent source target then + assert false (* can happen if the program contains an empty infinite loop, but let's ignore that *) + else + UnionFind.union source target + | _ -> + () + ) graph; + + (* Transform the graph by replacing every label with its representative. *) + + let rep label = + UnionFind.find (lookup label) + in + + rep entry, Label.Map.map (function + | LTL.St_skip l -> + LTL.St_skip (rep l) (* statement will be unreachable *) + | LTL.St_comment (s, l) -> + LTL.St_comment (s, rep l) + | LTL.St_cost (lbl, l) -> + LTL.St_cost (lbl, rep l) + | LTL.St_int (r, i, l) -> + LTL.St_int (r, i, rep l) + | LTL.St_addr (x, l) -> + LTL.St_addr (x, rep l) + | LTL.St_pop l -> + LTL.St_pop (rep l) + | LTL.St_push l -> + LTL.St_push (rep l) + | LTL.St_clear_carry l -> + LTL.St_clear_carry (rep l) + | LTL.St_set_carry l -> + LTL.St_set_carry (rep l) + | LTL.St_from_acc (r, l) -> + LTL.St_from_acc (r, rep l) + | LTL.St_to_acc (r, l) -> + LTL.St_to_acc (r, rep l) + | LTL.St_opaccs (opaccs, l) -> + LTL.St_opaccs (opaccs, rep l) + | LTL.St_op1 (op1, l) -> + LTL.St_op1 (op1, rep l) + | LTL.St_op2 (op2, r, l) -> + LTL.St_op2 (op2, r, rep l) + | LTL.St_load l -> + LTL.St_load (rep l) + | LTL.St_store l -> + LTL.St_store (rep l) + | LTL.St_call_id (f, l) -> + LTL.St_call_id (f, rep l) + | LTL.St_call_ptr l -> + LTL.St_call_ptr (rep l) + | LTL.St_condacc (lbl_true, lbl_false) -> + LTL.St_condacc (rep lbl_true, rep lbl_false) + | LTL.St_return -> + LTL.St_return + ) graph diff --git a/src/LTL/branch.mli b/src/LTL/branch.mli new file mode 100644 index 0000000..9038b19 --- /dev/null +++ b/src/LTL/branch.mli @@ -0,0 +1,14 @@ + +(** This module optimizes [LTL] code by suppressing all empty + statements. *) + +(* Pasted from Pottier's PP compiler *) + +(* This module optimizes [LTL] code by suppressing all [St_skip] statements. In + short, every statement whose successor is a [St_skip] statement is modified + so that its successor is the successor of the [St_skip] statement, and this + is repeated until no reachable [St_skip] statements remain. Unreachable + [St_skip] statements remain in the graph, but will be implicitly eliminated + in the translation of [LTL] to [LIN]. *) + +val compress: Label.t -> LTL.graph -> (Label.t * LTL.graph) diff --git a/src/RTL/RTL.mli b/src/RTL/RTL.mli new file mode 100644 index 0000000..e6689ba --- /dev/null +++ b/src/RTL/RTL.mli @@ -0,0 +1,120 @@ + +(** This module defines the abstract syntax tree of [RTL]. *) + +(* The main differences between RTLabs and RTL is instruction selection. + + Also, since addresses in 8051 are two words long, the instructions involving + addresses use two registers to represent them. *) + +type registers = Register.t list + +type statement = + + (* The empty statement. *) + | St_skip of Label.t + + (* Emit a cost label. *) + | St_cost of CostLabel.t * Label.t + + (* Assign the address of a symbol to registers. Parameters are the destination + registers (low bytes first), the symbol and the label of the next + statement. *) + | St_addr of Register.t * Register.t * AST.ident * Label.t + + (* Assign the stack pointer to registers. Parameters are the destination + registers (low bytes first), and the label of the next statement. *) + | St_stackaddr of Register.t * Register.t * Label.t + + (* Assign an integer constant to a register. Parameters are the destination + register, the integer and the label of the next statement. *) + | St_int of Register.t * int * Label.t + + (* Move the content of a register to another. Parameters are the destination + register, the source register, and the label of the next statement. *) + | St_move of Register.t * Register.t * Label.t + + (* Apply a binary operation that will later be translated in an operation on + the accumulators. Parameters are the operation, the destination registers + (ACC first, BACC second), the source registers, and the label of the next + statement. *) + | St_opaccs of I8051.opaccs * Register.t * Register.t * + Register.t * Register.t * Label.t + + (* Apply an unary operation. Parameters are the operation, the destination + register, the source register, and the label of the next statement. *) + | St_op1 of I8051.op1 * Register.t * Register.t * Label.t + + (* Apply a binary operation. Parameters are the operation, the destination + register, the source registers, and the label of the next statement. *) + | St_op2 of I8051.op2 * Register.t * Register.t * Register.t * Label.t + + (* Set the carry flag to zero. Parameter is the label of the next + statement. *) + | St_clear_carry of Label.t + + (* Set the carry flag to 1. Parameter is the label of the next statement. *) + | St_set_carry of Label.t + + (* Load from external memory. Parameters are the destination register, the + address registers (low bytes first), and the label of the next + statement. *) + | St_load of Register.t * Register.t * Register.t * Label.t + + (* Store to external memory. Parameters are the address registers (low bytes + first), the source register, and the label of the next statement. *) + | St_store of Register.t * Register.t * Register.t * Label.t + + (* Call to a function given its name. Parameters are the name of the function, + the arguments of the function, the destination registers, and the label of + the next statement. *) + | St_call_id of AST.ident * Register.t list * registers * Label.t + + (* Call to a function given its address. Parameters are the registers holding + the address of the function (low bytes first), the arguments of the + function, the destination registers, and the label of the next + statement. *) + | St_call_ptr of Register.t * Register.t * Register.t list * registers * + Label.t + + (* Tail call to a function given its name. Parameters are the name of the + function, and the arguments of the function. *) + | St_tailcall_id of AST.ident * Register.t list + + (* Tail call to a function given its address. Parameters are the registers + holding the address of the function (low bytes first), and the arguments of + the function. *) + | St_tailcall_ptr of Register.t * Register.t * Register.t list + + (* Branch. Parameters are the register holding the value for the branching, + the label to go to when the value is not 0, and the label to go to when the + value is 0. *) + | St_cond of Register.t * Label.t * Label.t + + (* Return the value of some registers (low bytes first). *) + | St_return of registers + + +type graph = statement Label.Map.t + +type internal_function = + { f_luniverse : Label.Gen.universe ; + f_runiverse : Register.universe ; + f_result : Register.t list (* low byte first *) ; + f_params : Register.t list ; + f_locals : Register.Set.t ; + f_stacksize : int ; + f_graph : graph ; + f_entry : Label.t ; + f_exit : Label.t } + +type function_def = + | F_int of internal_function + | F_ext of AST.external_function + +(* A program is a list of global variables and their reserved space, a list of + function names and their definition, and the name of the main function. *) + +type program = + { vars : (AST.ident * int (* size *)) list ; + functs : (AST.ident * function_def) list ; + main : AST.ident option } diff --git a/src/RTL/RTLInterpret.ml b/src/RTL/RTLInterpret.ml new file mode 100644 index 0000000..705a9a6 --- /dev/null +++ b/src/RTL/RTLInterpret.ml @@ -0,0 +1,324 @@ + +(** This module provides an interpreter for the RTL language. *) + + +let error_prefix = "RTL interpret" +let error s = Error.global_error error_prefix s + + +module Mem = Driver.RTLMemory +module Val = Mem.Value +let chunk = Driver.RTLMemory.int_size +module Eval = I8051.Eval (Val) + + +type memory = RTL.function_def Mem.memory + + +(* Local environments. They associate a value to the registers of the function + being executed. *) + +type local_env = Val.t Register.Map.t + +(* Call frames. The execution state has a call stack, each element of the stack + being composed of the return registers to store the result of the callee, the + graph, the node, the local environment and the value of the carry to resume + the execution of the caller. *) + +type stack_frame = + { ret_regs : Register.t list ; + graph : RTL.graph ; + pc : Label.t ; + sp : Val.address ; + lenv : local_env ; + carry : Val.t } + +(* Execution states. There are three possible states : + - The constructor [State] represents a state when executing a function + - The constructor [CallState] represents a state when calling a function + - The constructor [ReturnState] represents a state when leaving a function *) + +type state = + | State of stack_frame list * RTL.graph * Label.t * Val.address (* sp *) * + local_env * Val.t (* carry *) * memory * CostLabel.t list + | CallState of stack_frame list * RTL.function_def * + Val.t list (* args *) * memory * CostLabel.t list + | ReturnState of stack_frame list * Val.t list (* return values *) * + memory * CostLabel.t list + +let string_of_local_env lenv = + let f x v s = + s ^ + (if Val.eq v Val.undef then "" + else (Register.print x) ^ " = " ^ (Val.to_string v) ^ " ") in + Register.Map.fold f lenv "" + +let string_of_args args = + let f s v = s ^ " " ^ (Val.to_string v) in + List.fold_left f "" args + +let print_state = function + | State (_, _, lbl, sp, lenv, carry, mem, _) -> + Printf.printf "Stack pointer: %s\n\nCarry: %s\n\nLocal environment:\n%s\n\nMemory:%s\nRegular state: %s\n\n%!" + (Val.string_of_address sp) + (Val.to_string carry) + (string_of_local_env lenv) + (Mem.to_string mem) + lbl + | CallState (_, _, args, mem, _) -> + Printf.printf "Memory:%s\nCall state: %s\n\n%!" + (Mem.to_string mem) + (string_of_args args) + | ReturnState (_, vs, mem, _) -> + Printf.printf "Memory:%s\nReturn state: %s\n\n%!" + (Mem.to_string mem) + (string_of_args vs) + + +let find_function mem f = + let addr = Mem.find_global mem f in + Mem.find_fun_def mem addr + +let get_local_value (lenv : local_env) (r : Register.t) : Val.t = + if Register.Map.mem r lenv then Register.Map.find r lenv + else error ("Unknown local register \"" ^ (Register.print r) ^ "\".") +let get_arg_values lenv args = List.map (get_local_value lenv) args + +let get_local_addr lenv f1 f2 = + List.map (get_local_value lenv) [f1 ; f2] + + +let adds rs vs lenv = + let f lenv r v = Register.Map.add r v lenv in + List.fold_left2 f lenv rs vs + + +(* Assign a value to some destinations registers. *) + +let assign_state sfrs graph lbl sp lenv carry mem trace destrs vs = + let lenv = adds destrs vs lenv in + State (sfrs, graph, lbl, sp, lenv, carry, mem, trace) + +(* Branch on a value. *) + +let branch_state sfrs graph lbl_true lbl_false sp lenv carry mem trace v = + let next_lbl = + if Val.is_true v then lbl_true + else + if Val.is_false v then lbl_false + else error "Undefined conditional value." in + State (sfrs, graph, next_lbl, sp, lenv, carry, mem, trace) + + +(* Interpret statements. *) + +let interpret_statement + (sfrs : stack_frame list) + (graph : RTL.graph) + (sp : Val.address) + (lenv : local_env) + (carry : Val.t) + (mem : memory) + (stmt : RTL.statement) + (trace : CostLabel.t list) : + state = match stmt with + + | RTL.St_skip lbl -> + State (sfrs, graph, lbl, sp, lenv, carry, mem, trace) + + | RTL.St_cost (cost_lbl, lbl) -> + State (sfrs, graph, lbl, sp, lenv, carry, mem, cost_lbl :: trace) + + | RTL.St_addr (r1, r2, x, lbl) -> + assign_state sfrs graph lbl sp lenv carry mem trace [r1 ; r2] + (Mem.find_global mem x) + + | RTL.St_stackaddr (r1, r2, lbl) -> + assign_state sfrs graph lbl sp lenv carry mem trace [r1 ; r2] sp + + | RTL.St_int (r, i, lbl) -> + assign_state sfrs graph lbl sp lenv carry mem trace [r] [Val.of_int i] + + | RTL.St_move (destr, srcr, lbl) -> + assign_state sfrs graph lbl sp lenv carry mem trace [destr] + [get_local_value lenv srcr] + + | RTL.St_opaccs (opaccs, destr1, destr2, srcr1, srcr2, lbl) -> + let (v1, v2) = + Eval.opaccs opaccs + (get_local_value lenv srcr1) + (get_local_value lenv srcr2) in + assign_state sfrs graph lbl sp lenv carry mem trace + [destr1 ; destr2] [v1 ; v2] + + | RTL.St_op1 (op1, destr, srcr, lbl) -> + let v = Eval.op1 op1 (get_local_value lenv srcr) in + assign_state sfrs graph lbl sp lenv carry mem trace [destr] [v] + + | RTL.St_op2 (op2, destr, srcr1, srcr2, lbl) -> + let (v, carry) = + Eval.op2 carry op2 + (get_local_value lenv srcr1) + (get_local_value lenv srcr2) in + assign_state sfrs graph lbl sp lenv carry mem trace [destr] [v] + + | RTL.St_clear_carry lbl -> + State (sfrs, graph, lbl, sp, lenv, Val.zero, mem, trace) + + | RTL.St_set_carry lbl -> + State (sfrs, graph, lbl, sp, lenv, Val.of_int 1, mem, trace) + + | RTL.St_load (destr, addr1, addr2, lbl) -> + let addr = get_local_addr lenv addr1 addr2 in + let v = Mem.load mem chunk addr in + assign_state sfrs graph lbl sp lenv carry mem trace [destr] [v] + + | RTL.St_store (addr1, addr2, srcr, lbl) -> + let addr = get_local_addr lenv addr1 addr2 in + let mem = Mem.store mem chunk addr (get_local_value lenv srcr) in + State (sfrs, graph, lbl, sp, lenv, carry, mem, trace) + + | RTL.St_call_id (f, args, ret_regs, lbl) -> + let f_def = find_function mem f in + let args = get_arg_values lenv args in + let sf = + { ret_regs = ret_regs ; graph = graph ; pc = lbl ; + sp = sp ; lenv = lenv ; carry = carry } + in + CallState (sf :: sfrs, f_def, args, mem, trace) + + | RTL.St_call_ptr (f1, f2, args, ret_regs, lbl) -> + let addr = get_local_addr lenv f1 f2 in + let f_def = Mem.find_fun_def mem addr in + let args = get_arg_values lenv args in + let sf = { ret_regs = ret_regs ; graph = graph ; pc = lbl ; + sp = sp ; lenv = lenv ; carry = carry } in + CallState (sf :: sfrs, f_def, args, mem, trace) + + | RTL.St_tailcall_id (f, args) -> + let f_def = find_function mem f in + let args = get_arg_values lenv args in + let mem = Mem.free mem sp in + CallState (sfrs, f_def, args, mem, trace) + + | RTL.St_tailcall_ptr (f1, f2, args) -> + let addr = get_local_addr lenv f1 f2 in + let f_def = Mem.find_fun_def mem addr in + let args = get_arg_values lenv args in + let mem = Mem.free mem sp in + CallState (sfrs, f_def, args, mem, trace) + + | RTL.St_cond (srcr, lbl_true, lbl_false) -> + let v = get_local_value lenv srcr in + branch_state sfrs graph lbl_true lbl_false sp lenv carry mem trace v + + | RTL.St_return rl -> + let vl = List.map (get_local_value lenv) rl in + let mem = Mem.free mem sp in + ReturnState (sfrs, vl, mem, trace) + + +module InterpretExternal = Primitive.Interpret (Mem) + +let interpret_external mem f args = match InterpretExternal.t mem f args with + | (mem', InterpretExternal.V vs) -> (mem', vs) + | (mem', InterpretExternal.A addr) -> (mem', addr) + +let init_locals + (locals : Register.Set.t) + (params : Register.t list) + (args : Val.t list) : + local_env = + let f r lenv = Register.Map.add r Val.undef lenv in + let lenv = Register.Set.fold f locals Register.Map.empty in + let f lenv r v = Register.Map.add r v lenv in + List.fold_left2 f lenv params args + +let state_after_call + (sfrs : stack_frame list) + (f_def : RTL.function_def) + (args : Val.t list) + (mem : memory) + (trace : CostLabel.t list) : + state = + match f_def with + | RTL.F_int def -> + let (mem', sp) = Mem.alloc mem def.RTL.f_stacksize in + State (sfrs, def.RTL.f_graph, def.RTL.f_entry, sp, + init_locals def.RTL.f_locals def.RTL.f_params args, + Val.undef, mem', trace) + | RTL.F_ext def -> + let (mem', vs) = interpret_external mem def.AST.ef_tag args in + ReturnState (sfrs, vs, mem', trace) + +let state_after_return + (sf : stack_frame) + (sfrs : stack_frame list) + (ret_vals : Val.t list) + (mem : memory) + (trace : CostLabel.t list) : + state = + let f i lenv r = Register.Map.add r (List.nth ret_vals i) lenv in + let lenv = MiscPottier.foldi f sf.lenv sf.ret_regs in + State (sfrs, sf.graph, sf.pc, sf.sp, lenv, sf.carry, mem, trace) + + +let small_step (st : state) : state = match st with + | State (sfrs, graph, pc, sp, lenv, carry, mem, trace) -> + let stmt = Label.Map.find pc graph in + interpret_statement sfrs graph sp lenv carry mem stmt trace + | CallState (sfrs, f_def, args, mem, trace) -> + state_after_call sfrs f_def args mem trace + | ReturnState ([], ret_vals, mem, trace) -> + assert false (* End of execution; handled in iter_small_step. *) + | ReturnState (sf :: sfrs, ret_vals, mem, trace) -> + state_after_return sf sfrs ret_vals mem trace + + +let compute_result vs = + let f res v = res && (Val.is_int v) in + let is_int vs = (List.length vs > 0) && (List.fold_left f true vs) in + if is_int vs then + let chunks = + List.map (fun v -> IntValue.Int32.cast (Val.to_int_repr v)) vs in + IntValue.Int32.merge chunks + else IntValue.Int32.zero + +let rec iter_small_step debug st = + let print_and_return_result (res, cost_labels) = + if debug then Printf.printf "Result = %s\n%!" + (IntValue.Int32.to_string res) ; + (res, cost_labels) in + if debug then print_state st ; + match small_step st with + | ReturnState ([], vs, mem, trace) -> + print_and_return_result (compute_result vs, List.rev trace) + | st' -> iter_small_step debug st' + + +let add_global_vars = + List.fold_left + (fun mem (id, size) -> Mem.add_var mem id (AST.SQ (AST.QInt size)) None) + +let add_fun_defs = + List.fold_left (fun mem (f_id, f_def) -> Mem.add_fun_def mem f_id f_def) + + +(* The memory is initialized by loading the code into it, and by reserving space + for the global variables. *) + +let init_mem (p : RTL.program) : memory = + add_global_vars (add_fun_defs Mem.empty p.RTL.functs) p.RTL.vars + + +(* Interpret the program only if it has a main. *) + +let interpret debug p = + Printf.printf "*** RTL interpret ***\n%!" ; + match p.RTL.main with + | None -> (IntValue.Int32.zero, []) + | Some main -> + let mem = init_mem p in + let main_def = find_function mem main in + let st = CallState ([], main_def, [], mem, []) in + iter_small_step debug st diff --git a/src/RTL/RTLInterpret.mli b/src/RTL/RTLInterpret.mli new file mode 100644 index 0000000..eb2a263 --- /dev/null +++ b/src/RTL/RTLInterpret.mli @@ -0,0 +1,5 @@ + +(** This module provides a function to interpret a [RTL] program + and return the trace of cost labels encountered. *) + +val interpret : bool -> RTL.program -> AST.trace diff --git a/src/RTL/RTLPrinter.ml b/src/RTL/RTLPrinter.ml new file mode 100644 index 0000000..21484c3 --- /dev/null +++ b/src/RTL/RTLPrinter.ml @@ -0,0 +1,171 @@ + +(** This module provides a function to print [RTL] programs. *) + + +let n_spaces n = String.make n ' ' + + +let print_global n (x, size) = + Printf.sprintf "%s\"%s\" [%d]" (n_spaces n) x size + +let print_globals eformat n globs = + Eformat.printf eformat "%sglobals:\n" (n_spaces n) ; + List.iter + (fun g -> Eformat.printf eformat "%s\n" (print_global (n+2) g)) globs + +let print_reg = Register.print + +let reg_set_to_list rs = + let e = ref [] in + Register.Set.iter (fun r -> e := r :: !e) rs; + List.rev !e + +let print_reg_list first last sep f rl = + Printf.sprintf "%s%s%s" + first (MiscPottier.string_of_list sep f rl) last + +let print_ptr rl = print_reg_list "[" "]" " ; " print_reg rl + +let print_args rl = print_reg_list "(" ")" ", " print_reg rl + +let print_return rl = print_reg_list "[" "]" " ; " print_reg rl + +let print_params rl = print_reg_list "(" ")" ", " Register.print rl + +let print_locals rs = + let rl = reg_set_to_list rs in + Printf.sprintf "%s" (print_reg_list "" "" ", " Register.print rl) + +let print_result rl = print_reg_list "[" "]" " ; " Register.print rl + + +let print_statement = function + | RTL.St_skip lbl -> "--> " ^ lbl + | RTL.St_cost (cost_lbl, lbl) -> + Printf.sprintf "emit %s --> %s" cost_lbl lbl + | RTL.St_addr (dstr1, dstr2, id, lbl) -> + Printf.sprintf "imm (%s, %s), %s --> %s" + (print_reg dstr1) (print_reg dstr2) id lbl + | RTL.St_stackaddr (dstr1, dstr2, lbl) -> + Printf.sprintf "imm (%s, %s), STACK --> %s" + (print_reg dstr1) (print_reg dstr2) lbl + | RTL.St_int (dstr, i, lbl) -> + Printf.sprintf "imm %s, %d --> %s" (print_reg dstr) i lbl + | RTL.St_move (dstr, srcr, lbl) -> + Printf.sprintf "move %s, %s --> %s" + (print_reg dstr) (print_reg srcr) lbl + | RTL.St_opaccs (opaccs, dstr1, dstr2, srcr1, srcr2, lbl) -> + Printf.sprintf "%s (%s, %s) %s, %s --> %s" + (I8051.print_opaccs opaccs) + (print_reg dstr1) + (print_reg dstr2) + (print_reg srcr1) + (print_reg srcr2) + lbl + | RTL.St_op1 (op1, dstr, srcr, lbl) -> + Printf.sprintf "%s %s, %s --> %s" + (I8051.print_op1 op1) (print_reg dstr) (print_reg srcr) lbl + | RTL.St_op2 (op2, dstr, srcr1, srcr2, lbl) -> + Printf.sprintf "%s %s, %s, %s --> %s" + (I8051.print_op2 op2) + (print_reg dstr) + (print_reg srcr1) + (print_reg srcr2) + lbl + | RTL.St_clear_carry lbl -> + Printf.sprintf "clear CARRY --> %s" lbl + | RTL.St_set_carry lbl -> + Printf.sprintf "set CARRY --> %s" lbl + | RTL.St_load (dstr, addr1, addr2, lbl) -> + Printf.sprintf "load %s, (%s, %s) --> %s" + (print_reg dstr) + (print_reg addr1) + (print_reg addr2) + lbl + | RTL.St_store (addr1, addr2, srcr, lbl) -> + Printf.sprintf "store (%s, %s), %s --> %s" + (print_reg addr1) + (print_reg addr2) + (print_reg srcr) + lbl + | RTL.St_call_id (f, args, dstrs, lbl) -> + Printf.sprintf "call \"%s\", %s, %s --> %s" + f + (print_args args) + (print_return dstrs) + lbl + | RTL.St_call_ptr (f1, f2, args, dstrs, lbl) -> + Printf.sprintf "call_ptr [%s ; %s], %s, %s --> %s" + (print_reg f1) + (print_reg f2) + (print_args args) + (print_return dstrs) + lbl + | RTL.St_tailcall_id (f, args) -> + Printf.sprintf "tailcall \"%s\", %s" + f + (print_args args) + | RTL.St_tailcall_ptr (f1, f2, args) -> + Printf.sprintf "tailcall_ptr [%s ; %s], %s" + (print_reg f1) + (print_reg f2) + (print_args args) + | RTL.St_cond (srcr, lbl_true, lbl_false) -> + Printf.sprintf "branch %s <> 0 --> %s, %s" + (print_reg srcr) lbl_true lbl_false + | RTL.St_return regs -> + Printf.sprintf "return %s" (print_return regs) + + +let print_graph eformat n c = + let f lbl stmt = + Eformat.printf eformat "%s%s: %s\n" + (n_spaces n) + lbl + (print_statement stmt) in + Label.Map.iter f c + + +let print_internal_decl eformat n f def = + Eformat.printf eformat + "%s\"%s\"%s\n%slocals: %s\n%sresult: %s\n%sstacksize: %d\n%sentry: %s\n%sexit: %s\n\n" + (n_spaces n) + f + (print_params def.RTL.f_params) + (n_spaces (n+2)) + (print_locals def.RTL.f_locals) + (n_spaces (n+2)) + (print_result def.RTL.f_result) + (n_spaces (n+2)) + def.RTL.f_stacksize + (n_spaces (n+2)) + def.RTL.f_entry + (n_spaces (n+2)) + def.RTL.f_exit ; + print_graph eformat (n+2) def.RTL.f_graph + + +let print_external_decl eformat n f def = + Eformat.printf eformat "%sextern \"%s\": %s\n" + (n_spaces n) + f + (Primitive.print_sig def.AST.ef_sig) + + +let print_fun_decl eformat n (f, def) = match def with + | RTL.F_int def -> print_internal_decl eformat n f def + | RTL.F_ext def -> print_external_decl eformat n f def + +let print_fun_decls eformat n functs = + List.iter + (fun f -> print_fun_decl eformat n f ; Eformat.printf eformat "\n\n") + functs + + +let print_program p = + let eformat = Eformat.create () in + Eformat.printf eformat "program:\n\n\n" ; + print_globals eformat 2 p.RTL.vars ; + Eformat.printf eformat "\n\n" ; + print_fun_decls eformat 2 p.RTL.functs ; + Eformat.get eformat diff --git a/src/RTL/RTLPrinter.mli b/src/RTL/RTLPrinter.mli new file mode 100644 index 0000000..dbcfff8 --- /dev/null +++ b/src/RTL/RTLPrinter.mli @@ -0,0 +1,4 @@ + +(** This module provides a function to print [RTL] programs. *) + +val print_program : RTL.program -> string diff --git a/src/RTL/RTLToERTL.ml b/src/RTL/RTLToERTL.ml new file mode 100644 index 0000000..0589176 --- /dev/null +++ b/src/RTL/RTLToERTL.ml @@ -0,0 +1,500 @@ + +(** This module provides a translation of [RTL] programs to [ERTL] + programs. *) + + +let error_prefix = "RTL to ERTL" +let error = Error.global_error error_prefix + + +(* Helper functions *) + +let change_exit_label lbl def = + { def with ERTL.f_exit = lbl } + +let add_graph lbl stmt def = + { def with ERTL.f_graph = Label.Map.add lbl stmt def.ERTL.f_graph } + +let fresh_label def = Label.Gen.fresh def.ERTL.f_luniverse + +let change_label lbl = function + | ERTL.St_skip _ -> ERTL.St_skip lbl + | ERTL.St_comment (s, _) -> ERTL.St_comment (s, lbl) + | ERTL.St_cost (cost_lbl, _) -> ERTL.St_cost (cost_lbl, lbl) + | ERTL.St_get_hdw (r1, r2, _) -> ERTL.St_get_hdw (r1, r2, lbl) + | ERTL.St_set_hdw (r1, r2, _) -> ERTL.St_set_hdw (r1, r2, lbl) + | ERTL.St_hdw_to_hdw (r1, r2, _) -> ERTL.St_hdw_to_hdw (r1, r2, lbl) + | ERTL.St_newframe _ -> ERTL.St_newframe lbl + | ERTL.St_delframe _ -> ERTL.St_delframe lbl + | ERTL.St_framesize (r, _) -> ERTL.St_framesize (r, lbl) + | ERTL.St_pop (r, _) -> ERTL.St_pop (r, lbl) + | ERTL.St_push (r, _) -> ERTL.St_push (r, lbl) + | ERTL.St_addrH (r, id, _) -> ERTL.St_addrH (r, id, lbl) + | ERTL.St_addrL (r, id, _) -> ERTL.St_addrL (r, id, lbl) + | ERTL.St_int (r, i, _) -> ERTL.St_int (r, i, lbl) + | ERTL.St_move (r1, r2, _) -> ERTL.St_move (r1, r2, lbl) + | ERTL.St_opaccsA (opaccs, dstr, srcr1, srcr2, _) -> + ERTL.St_opaccsA (opaccs, dstr, srcr1, srcr2, lbl) + | ERTL.St_opaccsB (opaccs, dstr, srcr1, srcr2, _) -> + ERTL.St_opaccsB (opaccs, dstr, srcr1, srcr2, lbl) + | ERTL.St_op1 (op1, dstr, srcr, _) -> ERTL.St_op1 (op1, dstr, srcr, lbl) + | ERTL.St_op2 (op2, dstr, srcr1, srcr2, _) -> + ERTL.St_op2 (op2, dstr, srcr1, srcr2, lbl) + | ERTL.St_clear_carry _ -> ERTL.St_clear_carry lbl + | ERTL.St_set_carry _ -> ERTL.St_set_carry lbl + | ERTL.St_load (dstrs, addr1, addr2, _) -> + ERTL.St_load (dstrs, addr1, addr2, lbl) + | ERTL.St_store (addr1, addr2, srcrs, _) -> + ERTL.St_store (addr1, addr2, srcrs, lbl) + | ERTL.St_call_id (f, nb_args, _) -> ERTL.St_call_id (f, nb_args, lbl) + | ERTL.St_call_ptr (f1, f2, nb_args, _) -> + ERTL.St_call_ptr (f1, f2, nb_args, lbl) + | ERTL.St_cond _ as inst -> inst + | ERTL.St_return _ as inst -> inst + +(* Process a list of function that adds a list of instructions to a graph, from + one label to another, and by creating fresh labels inbetween. *) + +let rec add_translates translate_list start_lbl dest_lbl def = + match translate_list with + | [] -> add_graph start_lbl (ERTL.St_skip dest_lbl) def + | [trans] -> trans start_lbl dest_lbl def + | trans :: translate_list -> + let tmp_lbl = fresh_label def in + let def = trans start_lbl tmp_lbl def in + add_translates translate_list tmp_lbl dest_lbl def + +(* Add a sequence of instruction in a graph, from one label to another, by creating + fresh labels inbetween. *) + +(* FIXME: Clean this up by factorizing with the previous function. *) +let rec adds_graph stmt_list start_lbl dest_lbl def = + match stmt_list with + | [] -> add_graph start_lbl (ERTL.St_skip dest_lbl) def + | [stmt] -> + add_graph start_lbl (change_label dest_lbl stmt) def + | stmt :: stmt_list -> + let tmp_lbl = fresh_label def in + let stmt = change_label tmp_lbl stmt in + let def = add_graph start_lbl stmt def in + adds_graph stmt_list tmp_lbl dest_lbl def + +let fresh_reg def = + let r = Register.fresh def.ERTL.f_runiverse in + let locals = Register.Set.add r def.ERTL.f_locals in + ({ def with ERTL.f_locals = locals }, r) + +let rec fresh_regs def n = + if n = 0 then (def, []) + else + let (def, res) = fresh_regs def (n-1) in + let (def, r) = fresh_reg def in + (def, r :: res) + + +(* Translation *) + +let save_hdws l = + let f (destr, srcr) start_lbl = + adds_graph [ERTL.St_get_hdw (destr, srcr, start_lbl)] start_lbl in + List.map f l + +let restore_hdws l = + let f (destr, srcr) start_lbl = + adds_graph [ERTL.St_set_hdw (destr, srcr, start_lbl)] start_lbl in + List.map f (List.map (fun (x, y) -> (y, x)) l) + +let get_params_hdw params = + if List.length params = 0 then + [fun start_lbl -> adds_graph [ERTL.St_skip start_lbl] start_lbl] + else + let l = MiscPottier.combine params I8051.parameters in + save_hdws l + +let get_param_stack off destr start_lbl dest_lbl def = + let (def, addr1) = fresh_reg def in + let (def, addr2) = fresh_reg def in + let (def, tmpr) = fresh_reg def in + adds_graph + [ERTL.St_framesize (addr1, start_lbl) ; + ERTL.St_int (tmpr, off+I8051.int_size, start_lbl) ; + ERTL.St_op2 (I8051.Sub, addr1, addr1, tmpr, start_lbl) ; + ERTL.St_get_hdw (tmpr, I8051.spl, start_lbl) ; + ERTL.St_op2 (I8051.Add, addr1, addr1, tmpr, start_lbl) ; + ERTL.St_int (addr2, 0, start_lbl) ; + ERTL.St_get_hdw (tmpr, I8051.sph, start_lbl) ; + ERTL.St_op2 (I8051.Addc, addr2, addr2, tmpr, start_lbl) ; + ERTL.St_load (destr, addr1, addr2, start_lbl)] + start_lbl dest_lbl def + +let get_params_stack params = + if List.length params = 0 then + [fun start_lbl -> adds_graph [ERTL.St_skip start_lbl] start_lbl] + else + let f i r = get_param_stack i r in + MiscPottier.mapi f params + +(* Parameters are taken from the physical parameter registers first. If there + are not enough such of these, then the remaining parameters are taken from + the stack. *) + +let get_params params = + let n = min (List.length params) (List.length I8051.parameters) in + let (hdw_params, stack_params) = MiscPottier.split params n in + (get_params_hdw hdw_params) @ (get_params_stack stack_params) + +let add_prologue params sral srah sregs def = + let start_lbl = def.ERTL.f_entry in + let tmp_lbl = fresh_label def in + let last_stmt = Label.Map.find start_lbl def.ERTL.f_graph in + let def = + add_translates + ([adds_graph [ERTL.St_comment ("Prologue", start_lbl)]] @ + (* new frame *) + (adds_graph [ERTL.St_comment ("New frame", start_lbl) ; + ERTL.St_newframe start_lbl]) :: + (* save the return address *) + (adds_graph [ERTL.St_comment ("Save return address", start_lbl) ; + ERTL.St_pop (sral, start_lbl) ; + ERTL.St_pop (srah, start_lbl)]) :: + (* save callee-saved registers *) + [adds_graph [ERTL.St_comment ("Save callee-saved registers", + start_lbl)]] @ + (save_hdws sregs) @ + (* fetch parameters *) + [adds_graph [ERTL.St_comment ("Fetch parameters", start_lbl)]] @ + (get_params params) @ + [adds_graph [ERTL.St_comment ("End Prologue", start_lbl)]]) + start_lbl tmp_lbl def in + add_graph tmp_lbl last_stmt def + + +(* Save the result of a function in a place that cannot be written, even after + register allocation. This way, the cleaning sequence of returning from a + function will not interfere with the result value, that can be restored right + before jumping out of the function. *) + +(* L'existence de cette fonction résulte du choix d'utiliser DPTR à la fois + pour effectuer l'arithmétique de pointeur sur la pile et le retour des + fonctions. On aurait probablement pu faire un autre choix. *) +let save_return ret_regs start_lbl dest_lbl def = + let (def, tmpr) = fresh_reg def in + (* Sépare les registres utiles pour le stockage effectif des valeurs + des registres de retour de ceux qui ne seront pas utilisés, et + donc mis à zéro. *) + let ((common1, rest1), (common2, rest2)) = + (* I8051.sts are registers that are reserved in order to store the + result of functions. *) + MiscPottier.reduce I8051.sts ret_regs + in + assert (rest2 = []); (* parce qu'on suppose que la valeur de retour + tient dans l'ensemble des registres réservés + pour la stocker. *) + + (* Met a zero les registres utilisés pour le retour car la valeur + de retour pourrait être plus petite que la capacité totale de + stockage des registres physiques de retour conventionnels. *) + + (* FIXME: Nicolas pense qu'en vérité cette mise à zéro ne sert à + rien car plus tard (cf. FIXME plus loin dans la fonction + fetch_result), ces registres à zéro ne seront pas considérés. *) + let init_tmpr = ERTL.St_int (tmpr, 0, start_lbl) in + + (* Sauvegarde temporairement la valeur des registres de retour + dans des registres frais car ces registres de retour peuvent + être utilisés pour faire de l'arithmétique de pointeurs sur + le pointeur de pile lors du dépilement. *) + let f_save st r = ERTL.St_set_hdw (st, r, start_lbl) in + let saves = List.map2 f_save common1 common2 in + (* Le reste est mis à zéro. *) + let f_default st = ERTL.St_set_hdw (st, tmpr, start_lbl) in + let defaults = List.map f_default rest1 in + adds_graph (init_tmpr :: saves @ defaults) start_lbl dest_lbl def + +(* Après avoir travaillé sur la pile, on sait que l'on peut sans danger + copier le contenu sauvegardé dans les registres temporaires vers + les registres de retour. *) +let assign_result start_lbl = + let ((common1, rest1), (common2, rest2)) = MiscPottier.reduce I8051.rets I8051.sts in + assert (rest1 = [] && rest2 = []); + (* parce qu'on suppose que |I8051.rets| = |I8051.sts|. *) + let f ret st = ERTL.St_hdw_to_hdw (ret, st, start_lbl) in + let insts = List.map2 f common1 common2 in + adds_graph insts start_lbl + +let add_epilogue ret_regs sral srah sregs def = + let start_lbl = def.ERTL.f_exit in + let tmp_lbl = fresh_label def in + let last_stmt = Label.Map.find start_lbl def.ERTL.f_graph in + let def = + add_translates + ([adds_graph [ERTL.St_comment ("Epilogue", start_lbl)]] @ + (* save return value *) + [save_return ret_regs] @ + (* restore callee-saved registers *) + [adds_graph [ERTL.St_comment ("Restore callee-saved registers", + start_lbl)]] @ + (restore_hdws sregs) @ + (* restore the return address *) + [adds_graph [ERTL.St_comment ("Restore return address", start_lbl) ; + ERTL.St_push (srah, start_lbl) ; + ERTL.St_push (sral, start_lbl)]] @ + (* delete frame *) + [adds_graph [ERTL.St_comment ("Delete frame", start_lbl) ; + ERTL.St_delframe start_lbl]] @ + (* assign the result to actual return registers *) + [adds_graph [ERTL.St_comment ("Set result", start_lbl)]] @ + [assign_result] @ + [adds_graph [ERTL.St_comment ("End Epilogue", start_lbl)]]) + start_lbl tmp_lbl def in + let def = add_graph tmp_lbl last_stmt def in + change_exit_label tmp_lbl def + + +let allocate_regs saved def = + let f r (def, sregs) = + let (def, r') = fresh_reg def in + (def, (r', r) :: sregs) in + I8051.RegisterSet.fold f saved (def, []) + +let add_pro_and_epilogue params ret_regs def = + (* Allocate registers to hold the return address. *) + let (def, sra) = fresh_regs def 2 in + let sral = List.nth sra 0 in + let srah = List.nth sra 1 in + (* Allocate registers to save callee-saved registers. *) + let (def, sregs) = allocate_regs I8051.callee_saved def in + (* Add a prologue and a epilogue. *) + let def = add_prologue params sral srah sregs def in + let def = add_epilogue ret_regs sral srah sregs def in + def + + +let set_params_hdw params = + if List.length params = 0 then + [fun start_lbl -> adds_graph [ERTL.St_skip start_lbl] start_lbl] + else + let l = MiscPottier.combine params I8051.parameters in + restore_hdws l + +let set_param_stack off srcr start_lbl dest_lbl def = + let (def, addr1) = fresh_reg def in + let (def, addr2) = fresh_reg def in + let (def, tmpr) = fresh_reg def in + adds_graph + [ERTL.St_int (addr1, off+I8051.int_size, start_lbl) ; + ERTL.St_get_hdw (tmpr, I8051.spl, start_lbl) ; + ERTL.St_clear_carry start_lbl ; + ERTL.St_op2 (I8051.Sub, addr1, tmpr, addr1, start_lbl) ; + ERTL.St_get_hdw (tmpr, I8051.sph, start_lbl) ; + ERTL.St_int (addr2, 0, start_lbl) ; + ERTL.St_op2 (I8051.Sub, addr2, tmpr, addr2, start_lbl) ; + ERTL.St_store (addr1, addr2, srcr, start_lbl)] + start_lbl dest_lbl def + +let set_params_stack params = + if List.length params = 0 then + [fun start_lbl -> adds_graph [ERTL.St_skip start_lbl] start_lbl] + else + let f i r = set_param_stack i r in + MiscPottier.mapi f params + +(* Parameters are put in the physical parameter registers first. If there are + not enough such of these, then the remaining parameters are passed on the + stack. *) + +let set_params params = + let n = min (List.length params) (List.length I8051.parameters) in + let (hdw_params, stack_params) = MiscPottier.split params n in + (set_params_hdw hdw_params) @ (set_params_stack stack_params) + +(* Fetching the result depends on the type of the function, or say, the number + of registers that are waiting for a value. Temporary non allocatable + registers are used. Indeed, moving directly from DPL to a pseudo-register may + cause a bug: DPL might be used to compute the address of the + pseudo-register. *) + +let fetch_result ret_regs start_lbl = + let ((common1, rest1), (common2, rest2)) = MiscPottier.reduce I8051.sts I8051.rets in + assert (rest1 = [] && rest2 = []); + let f_save st ret = ERTL.St_hdw_to_hdw (st, ret, start_lbl) in + let saves = List.map2 f_save common1 common2 in + let ((common1, rest1), (common2, rest2)) = MiscPottier.reduce ret_regs I8051.sts in + (* FIXME: [rest2] est ignoré mais ce n'est pas grave car ils ne + contiennent pas des données significatives. Du coup, il n'était + probablement pas nécessaire de les mettre à zéro. *) + let f_restore r st = ERTL.St_get_hdw (r, st, start_lbl) in + let restores = List.map2 f_restore common1 common2 in + adds_graph (saves @ restores) start_lbl + +(* When calling a function, we need to set its parameters in specific locations: + the physical parameter registers as much as possible, and then the stack + below. When the called function returns, we put the result where the calling + function expect it to be. *) +let translate_call stmt args ret_regs start_lbl dest_lbl def = + let nb_args = List.length args in + add_translates + ([adds_graph [ERTL.St_comment ("Starting a call", start_lbl)] ; + adds_graph [ERTL.St_comment ("Setting up parameters", start_lbl)]] @ + set_params args @ + [adds_graph [stmt nb_args] ; + adds_graph [ERTL.St_comment ("Fetching result", start_lbl)] ; + fetch_result ret_regs ; + adds_graph [ERTL.St_comment ("End of call sequence", start_lbl)]]) + start_lbl dest_lbl def + +let translate_stmt lbl stmt def = match stmt with + | RTL.St_skip lbl' -> + add_graph lbl (ERTL.St_skip lbl') def + + | RTL.St_cost (cost_lbl, lbl') -> + add_graph lbl (ERTL.St_cost (cost_lbl, lbl')) def + + | RTL.St_addr (r1, r2, x, lbl') -> + adds_graph + [ERTL.St_addrL (r1, x, lbl) ; ERTL.St_addrH (r2, x, lbl) ;] + lbl lbl' def + + | RTL.St_stackaddr (r1, r2, lbl') -> + adds_graph + [ERTL.St_get_hdw (r1, I8051.spl, lbl) ; + ERTL.St_get_hdw (r2, I8051.sph, lbl)] + lbl lbl' def + + | RTL.St_int (r, i, lbl') -> + add_graph lbl (ERTL.St_int (r, i, lbl')) def + + | RTL.St_move (r1, r2, lbl') -> + add_graph lbl (ERTL.St_move (r1, r2, lbl')) def + + | RTL.St_opaccs (op, destr1, destr2, srcr1, srcr2, lbl') -> + adds_graph [ERTL.St_opaccsA (op, destr1, srcr1, srcr2, lbl) ; + ERTL.St_opaccsB (op, destr2, srcr1, srcr2, lbl) ;] + lbl lbl' def + + | RTL.St_op1 (op1, destr, srcr, lbl') -> + add_graph lbl (ERTL.St_op1 (op1, destr, srcr, lbl')) def + + | RTL.St_op2 (op2, destr, srcr1, srcr2, lbl') -> + add_graph lbl (ERTL.St_op2 (op2, destr, srcr1, srcr2, lbl')) def + + | RTL.St_clear_carry lbl' -> + add_graph lbl (ERTL.St_clear_carry lbl') def + + | RTL.St_set_carry lbl' -> + add_graph lbl (ERTL.St_set_carry lbl') def + + | RTL.St_load (destr, addr1, addr2, lbl') -> + add_graph lbl (ERTL.St_load (destr, addr1, addr2, lbl')) def + + | RTL.St_store (addr1, addr2, srcr, lbl') -> + add_graph lbl (ERTL.St_store (addr1, addr2, srcr, lbl')) def + + | RTL.St_call_id (f, args, ret_regs, lbl') -> + let stmt nb_args = ERTL.St_call_id (f, nb_args, lbl) in + translate_call stmt args ret_regs lbl lbl' def + + | RTL.St_call_ptr (f1, f2, args, ret_regs, lbl') -> + let stmt nb_args = ERTL.St_call_ptr (f1, f2, nb_args, lbl) in + translate_call stmt args ret_regs lbl lbl' def + + | RTL.St_cond (srcr, lbl_true, lbl_false) -> + add_graph lbl (ERTL.St_cond (srcr, lbl_true, lbl_false)) def + + | RTL.St_return ret_regs -> + add_graph lbl (ERTL.St_return ret_regs) def + + | RTL.St_tailcall_id _ | RTL.St_tailcall_ptr _ -> + assert false + (* Impossible: the RTL program is supposed to be simplified: + no tailcalls. *) + +let translate_internal def = + let nb_params = List.length (def.RTL.f_params) in + (* The stack size is augmented by the number of parameters that cannot fit + into physical registers. *) + let added_stacksize = max 0 (nb_params - (List.length I8051.parameters)) in + let def' = + { ERTL.f_luniverse = def.RTL.f_luniverse ; + ERTL.f_runiverse = def.RTL.f_runiverse ; + ERTL.f_params = nb_params ; + (* ERTL does not know about parameter registers. We need to add them to + the locals. *) + ERTL.f_locals = Register.Set.union def.RTL.f_locals + (Register.Set.of_list def.RTL.f_params) ; + ERTL.f_stacksize = def.RTL.f_stacksize + added_stacksize ; + ERTL.f_graph = Label.Map.empty ; + ERTL.f_entry = def.RTL.f_entry ; + ERTL.f_exit = def.RTL.f_exit } in + let def' = Label.Map.fold translate_stmt def.RTL.f_graph def' in + let def' = add_pro_and_epilogue def.RTL.f_params def.RTL.f_result def' in + def' + + +let translate_funct (id, def) = + let def' = match def with + | RTL.F_int def -> ERTL.F_int (translate_internal def) + | RTL.F_ext def -> ERTL.F_ext def + in + (id, def') + + +(* Move the first cost label of each function at the beginning of the + function. Indeed, the instructions for calling conventions (stack allocation + for example) are added at the very beginning of the function, thus before the + first cost label. *) + +let generate stmt def = + let entry = Label.Gen.fresh def.ERTL.f_luniverse in + { def with + ERTL.f_graph = Label.Map.add entry stmt def.ERTL.f_graph; + ERTL.f_entry = entry + } + +let find_and_remove_first_cost_label def = + let rec aux lbl = match Label.Map.find lbl def.ERTL.f_graph with + | ERTL.St_cost (cost_label, next_lbl) -> + let graph = Label.Map.add lbl (ERTL.St_skip next_lbl) def.ERTL.f_graph in + (cost_label, { def with ERTL.f_graph = graph }) + | ERTL.St_skip lbl | ERTL.St_comment (_, lbl) | ERTL.St_get_hdw (_, _, lbl) + | ERTL.St_set_hdw (_, _, lbl) | ERTL.St_hdw_to_hdw (_, _, lbl) + | ERTL.St_pop (_, lbl) | ERTL.St_push (_, lbl) | ERTL.St_addrH (_, _, lbl) + | ERTL.St_addrL (_, _, lbl) | ERTL.St_int (_, _, lbl) + | ERTL.St_move (_, _, lbl) | ERTL.St_opaccsA (_, _, _, _, lbl) + | ERTL.St_opaccsB (_, _, _, _, lbl) + | ERTL.St_op1 (_, _, _, lbl) | ERTL.St_op2 (_, _, _, _, lbl) + | ERTL.St_clear_carry lbl | ERTL.St_set_carry lbl + | ERTL.St_load (_, _, _, lbl) + | ERTL.St_store (_, _, _, lbl) | ERTL.St_call_id (_, _, lbl) + | ERTL.St_call_ptr (_, _, _, lbl) + | ERTL.St_newframe lbl | ERTL.St_delframe lbl | ERTL.St_framesize (_, lbl) + -> + aux lbl + | ERTL.St_cond _ | ERTL.St_return _ -> + (* No cost label found (no labelling performed). Indeed, the first cost + label must after some linear instructions. *) + assert false + in + aux def.ERTL.f_entry + +let move_first_cost_label_up_internal def = + let (cost_label, def) = find_and_remove_first_cost_label def in + generate (ERTL.St_cost (cost_label, def.ERTL.f_entry)) def + +let move_first_cost_label_up (id, def) = + let def' = match def with + | ERTL.F_int int_fun -> + ERTL.F_int (move_first_cost_label_up_internal int_fun) + | _ -> def + in + (id, def') + +let translate p = + (* We simplify tail calls as regular calls for now. *) + let p = RTLtailcall.simplify p in + (* The tranformation on each RTL function: create an ERTL function and move + its first cost label at the very beginning. *) + let f funct = move_first_cost_label_up (translate_funct funct) in + { ERTL.vars = p.RTL.vars ; + ERTL.functs = List.map f p.RTL.functs ; + ERTL.main = p.RTL.main } diff --git a/src/RTL/RTLToERTL.mli b/src/RTL/RTLToERTL.mli new file mode 100644 index 0000000..fe0a12c --- /dev/null +++ b/src/RTL/RTLToERTL.mli @@ -0,0 +1,26 @@ + +(** This module provides a translation of [RTL] programs to [ERTL] programs. *) + +(** The work consists in expliciting the calling convention. + + Function call instructions will be expanded so has to explicitely pass + arguments on dedicated physical registers, and then on specific places in + the stack if there are not enough registers. + + We add a prologue at the beginning of each function that does the following + things: + - Allocate enough space on the stack for the function to execute. + - Save the return address. + - Save callee-saved registers. + - Fetch parameters from physical registers and potentially from the stack. + + Also, we add an epilogue which pretty much reverses the effects of the + prologue: + - Save the return value in physical registers that can only be used for + this. + - Restore callee-saved register. + - Restore the return address. + - Free the allocated space on the stack. + - Assign the return value to the physical return registers. *) + +val translate : RTL.program -> ERTL.program diff --git a/src/RTL/RTLtailcall.ml b/src/RTL/RTLtailcall.ml new file mode 100644 index 0000000..bc05573 --- /dev/null +++ b/src/RTL/RTLtailcall.ml @@ -0,0 +1,25 @@ + +(** Temporary issue backdoor: tranform tail calls into regular calls *) + +let simplify_stmt exit lbl stmt graph = match stmt with + | RTL.St_tailcall_id (f, args) -> + Label.Map.add lbl (RTL.St_call_id (f, args, [], exit)) graph + | RTL.St_tailcall_ptr (f1, f2, args) -> + Label.Map.add lbl (RTL.St_call_ptr (f1, f2, args, [], exit)) graph + | _ -> graph + +let simplify_graph exit graph = + Label.Map.fold (simplify_stmt exit) graph graph + +let simplify_internal def = + { def with RTL.f_graph = simplify_graph def.RTL.f_exit def.RTL.f_graph } + +let simplify_funct (id, def) = + let def' = match def with + | RTL.F_int def -> RTL.F_int (simplify_internal def) + | RTL.F_ext def -> RTL.F_ext def + in + (id, def') + +let simplify p = + { p with RTL.functs = List.map simplify_funct p.RTL.functs } diff --git a/src/RTL/RTLtailcall.mli b/src/RTL/RTLtailcall.mli new file mode 100644 index 0000000..3985ec5 --- /dev/null +++ b/src/RTL/RTLtailcall.mli @@ -0,0 +1,4 @@ + +(** Temporary issue backdoor: tranform tail calls into regular calls *) + +val simplify : RTL.program -> RTL.program diff --git a/src/RTLabs/RTLabs.mli b/src/RTLabs/RTLabs.mli new file mode 100644 index 0000000..ef978fb --- /dev/null +++ b/src/RTLabs/RTLabs.mli @@ -0,0 +1,113 @@ + +(** This module defines the abstract syntax tree of [RTLabs]. *) + +(* A program in RTLabs associates to each function of the program a + Control Flow Graph. Pseudo-registers are used to represent the + variables. The operations and instructions of the language are + those of Cminor. + + RTLabs is the last language of the frontend. It is intended to + ease retargetting. *) + + +(* A function in RTLabs is a mapping from labels to + statements. Statements explicitely mention their successors. *) + +type statement = + + (* The empty statement. *) + | St_skip of Label.t + + (* Emit a cost label. *) + | St_cost of CostLabel.t * Label.t + + (* Assign a constant to registers. Parameters are the destination register, + the constant and the label of the next statement. *) + | St_cst of Register.t * AST.cst * Label.t + + (* Application of an unary operation. Parameters are the operation, the + destination register, the argument register and the label of the next + statement. *) + | St_op1 of AST.op1 * Register.t * Register.t * Label.t + + (* Application of a binary operation. Parameters are the operation, the + destination register, the two argument registers and the label of the next + statement. *) + | St_op2 of AST.op2 * Register.t * Register.t * Register.t * Label.t + + (* Memory load. Parameters are the size in bytes of what to load, the + register containing the address, the destination register and the label + of the next statement. *) + | St_load of AST.quantity * Register.t * Register.t * Label.t + + (* Memory store. Parameters are the size in bytes of what to store, the + register containing the address, the source register and the label of the + next statement. *) + | St_store of AST.quantity * Register.t * Register.t * Label.t + + (* Call to a function given its name. Parameters are the name of the + function, the arguments of the function, the destination + register, the signature of the function and the label of the next + statement. *) + | St_call_id of AST.ident * Register.t list * Register.t option * + AST.signature * Label.t + + (* Call to a function given its address. Parameters are the register + holding the address of the function, the arguments of the + function, the destination register, the signature of the function + and the label of the next statement. This statement with an + [St_op] before can represent a [St_call_id]. However, we + differenciate the two to allow translation to a formalism with no + function pointer. *) + | St_call_ptr of Register.t * Register.t list * Register.t option * + AST.signature * Label.t + + (* Tail call to a function given its name. Parameters are the name of the + function, the arguments of the function, the signature of the function and + the label of the next statement. *) + | St_tailcall_id of AST.ident * Register.t list * AST.signature + + (* Tail call to a function given its address. Parameters are a register + holding the address of the function, the arguments of the function, the + signature of the function and the label of the next statement. Same remark + as for the [St_call_ptr]. *) + | St_tailcall_ptr of Register.t * Register.t list * AST.signature + + (* Branch. Parameters are the register holding the value to branch on, the + label to go to when the value evaluates to true (not 0), and the label + to go to when the value evaluates to false (0). *) + | St_cond of Register.t * Label.t * Label.t + + (* Jump statement. Parameters are a register and a list of + labels. The execution will go to the [n]th label of the list of + labels, where [n] is the natural value held in the register. *) + | St_jumptable of Register.t * Label.t list + + (* Return statement. *) + | St_return of Register.t option + + +type graph = statement Label.Map.t + +type internal_function = + { f_luniverse : Label.Gen.universe ; + f_runiverse : Register.universe ; + f_result : (Register.t * AST.sig_type) option ; + f_params : (Register.t * AST.sig_type) list ; + f_locals : (Register.t * AST.sig_type) list ; + f_stacksize : AST.abstract_size ; + f_graph : graph ; + f_entry : Label.t ; + f_exit : Label.t } + +type function_def = + | F_int of internal_function + | F_ext of AST.external_function + +(* A program is a list of global variables and their reserved space, a list of + function names and their definition, and the name of the main function. *) + +type program = + { vars : (AST.ident * AST.abstract_size * AST.data list option) list ; + functs : (AST.ident * function_def) list ; + main : AST.ident option } diff --git a/src/RTLabs/RTLabsInterpret.ml b/src/RTLabs/RTLabsInterpret.ml new file mode 100644 index 0000000..528c395 --- /dev/null +++ b/src/RTLabs/RTLabsInterpret.ml @@ -0,0 +1,326 @@ + +(** This module provides an interpreter for the RTLabs language. *) + + +let error_prefix = "RTLabs interpret" +let error s = Error.global_error error_prefix s + + +module Mem = Driver.RTLabsMemory +module Val = Mem.Value + +let error_float () = error "float not supported" + + +type memory = RTLabs.function_def Mem.memory + + +(* Local environments. They associate a value and a type to the registers of the + function being executed. *) + +type local_env = (Val.t * AST.sig_type) Register.Map.t + +(* Call frames. The execution state has a call stack, each element of the stack + being composed of the return registers to store the result of the callee, the + graph, the stack pointer, the node, the local environment and the typing + environments to resume the execution of the caller. *) + +type stack_frame = + { ret_reg : Register.t option ; + graph : RTLabs.graph ; + sp : Val.address ; + pc : Label.t ; + lenv : local_env } + +(* Execution states. There are three possible states : + - The constructor [State] represents a state when executing a function + - The constructor [CallState] represents a state when calling a function + - The constructor [ReturnState] represents a state when leaving a function *) + +type state = + | State of stack_frame list * RTLabs.graph * Val.address (* stack pointer *) * + Label.t * local_env * memory * CostLabel.t list + | CallState of stack_frame list * RTLabs.function_def * + Val.t list (* args *) * memory * CostLabel.t list + | ReturnState of stack_frame list * Val.t (* return value *) * + memory * CostLabel.t list + +let string_of_local_env lenv = + let f x (v, _) s = + s ^ + (if Val.eq v Val.undef then "" + else (Register.print x) ^ " = " ^ (Val.to_string v) ^ " ") in + Register.Map.fold f lenv "" + +let string_of_args args = + let f s v = s ^ " " ^ (Val.to_string v) in + List.fold_left f "" args + +let print_state = function + | State (_, _, sp, lbl, lenv, mem, _) -> + Printf.printf "Stack pointer: %s\n\nLocal environment:\n%s\n\nMemory:%s\nRegular state: %s\n\n%!" + (Val.string_of_address sp) + (string_of_local_env lenv) + (Mem.to_string mem) + lbl + | CallState (_, _, args, mem, _) -> + Printf.printf "Memory:%s\nCall state: %s\n\n%!" + (Mem.to_string mem) + (string_of_args args) + | ReturnState (_, v, mem, _) -> + Printf.printf "Memory:%s\nReturn state: %s\n\n%!" + (Mem.to_string mem) + (Val.to_string v) + + +let find_function mem f = + let addr = Mem.find_global mem f in + Mem.find_fun_def mem addr + +let get_local_env f lenv r = + if Register.Map.mem r lenv then f (Register.Map.find r lenv) + else error ("Unknown local register \"" ^ (Register.print r) ^ "\".") + +let get_value = get_local_env fst +let get_args lenv args = List.map (get_value lenv) args + +let get_type = get_local_env snd + +let update_local r v lenv = + let f (_, t) = Register.Map.add r (v, t) lenv in + get_local_env f lenv r + +let update_locals rs vs lenv = + let f lenv r v = update_local r v lenv in + List.fold_left2 f lenv rs vs + +let value_of_address = List.hd +let address_of_value v = [v] + + +module Eval = CminorInterpret.Eval_op (Mem) + +let concrete_stacksize = Eval.concrete_stacksize + + +(* Assign a value to some destinations registers. *) + +let assign_state sfrs graph sp lbl lenv mem trace destr v = + let lenv = update_local destr v lenv in + State (sfrs, graph, sp, lbl, lenv, mem, trace) + +(* Branch on a value. *) + +let branch_state sfrs graph sp lbl_true lbl_false lenv mem trace v = + let next_lbl = + if Val.is_true v then lbl_true + else + if Val.is_false v then lbl_false + else error "Undefined conditional value." in + State (sfrs, graph, sp, next_lbl, lenv, mem, trace) + + +(* Interpret statements. *) + +let interpret_statement + (sfrs : stack_frame list) + (graph : RTLabs.graph) + (sp : Val.address) + (lenv : local_env) + (mem : memory) + (stmt : RTLabs.statement) + (trace : CostLabel.t list) : + state = match stmt with + + | RTLabs.St_skip lbl -> + State (sfrs, graph, sp, lbl, lenv, mem, trace) + + | RTLabs.St_cost (cost_lbl, lbl) -> + State (sfrs, graph, sp, lbl, lenv, mem, cost_lbl :: trace) + + | RTLabs.St_cst (destr, cst, lbl) -> + let v = Eval.cst mem sp (get_type lenv destr) cst in + assign_state sfrs graph sp lbl lenv mem trace destr v + + | RTLabs.St_op1 (op1, destr, srcr, lbl) -> + let v = + Eval.op1 (get_type lenv destr) (get_type lenv srcr) op1 + (get_value lenv srcr) in + assign_state sfrs graph sp lbl lenv mem trace destr v + + | RTLabs.St_op2 (op2, destr, srcr1, srcr2, lbl) -> + let v = + Eval.op2 + (get_type lenv destr) (get_type lenv srcr1) (get_type lenv srcr2) + op2 + (get_value lenv srcr1) + (get_value lenv srcr2) in + assign_state sfrs graph sp lbl lenv mem trace destr v + + | RTLabs.St_load (q, addr, destr, lbl) -> + let addr = address_of_value (get_value lenv addr) in + let v = Mem.loadq mem q addr in + assign_state sfrs graph sp lbl lenv mem trace destr v + + | RTLabs.St_store (q, addr, srcr, lbl) -> + let addr = address_of_value (get_value lenv addr) in + let v = get_value lenv srcr in + let mem = Mem.storeq mem q addr v in + State (sfrs, graph, sp, lbl, lenv, mem, trace) + + | RTLabs.St_call_id (f, args, destr, sg, lbl) -> + let f_def = find_function mem f in + let args = get_args lenv args in + (* Save the stack frame. *) + let sf = + { ret_reg = destr ; graph = graph ; sp = sp ; pc = lbl ; lenv = lenv } + in + CallState (sf :: sfrs, f_def, args, mem, trace) + + | RTLabs.St_call_ptr (r, args, destr, sg, lbl) -> + let addr = get_value lenv r in + let f_def = Mem.find_fun_def mem (address_of_value addr) in + let args = get_args lenv args in + (* Save the stack frame. *) + let sf = + { ret_reg = destr ; graph = graph ; sp = sp ; pc = lbl ; lenv = lenv } + in + CallState (sf :: sfrs, f_def, args, mem, trace) + + | RTLabs.St_tailcall_id (f, args, sg) -> + let f_def = find_function mem f in + let args = get_args lenv args in + (* No need to save the stack frame. But free the stack. *) + let mem = Mem.free mem sp in + CallState (sfrs, f_def, args, mem, trace) + + | RTLabs.St_tailcall_ptr (r, args, sg) -> + let addr = get_value lenv r in + let f_def = Mem.find_fun_def mem (address_of_value addr) in + let args = get_args lenv args in + (* No need to save the stack frame. But free the stack. *) + let mem = Mem.free mem sp in + CallState (sfrs, f_def, args, mem, trace) + + | RTLabs.St_cond (srcr, lbl_true, lbl_false) -> + let v = get_value lenv srcr in + branch_state sfrs graph sp lbl_true lbl_false lenv mem trace v + + | RTLabs.St_jumptable (r, table) -> + assert false (* TODO: jumptable *) + + | RTLabs.St_return None -> + let mem = Mem.free mem sp in + ReturnState (sfrs, Val.undef, mem, trace) + + | RTLabs.St_return (Some r) -> + let v = get_value lenv r in + let mem = Mem.free mem sp in + ReturnState (sfrs, v, mem, trace) + + +module InterpretExternal = Primitive.Interpret (Mem) + +let interpret_external mem f args = match InterpretExternal.t mem f args with + | (mem', InterpretExternal.V vs) -> + let v = if List.length vs = 0 then Val.undef else List.hd vs in + (mem', v) + | (mem', InterpretExternal.A addr) -> (mem', value_of_address addr) + + +let init_locals + (locals : (Register.t * AST.sig_type) list) + (params : (Register.t * AST.sig_type) list) + (args : Val.t list) : + local_env = + let f_param lenv (r, t) v = Register.Map.add r (v, t) lenv in + let f_local lenv (r, t) = Register.Map.add r (Val.undef, t) lenv in + let lenv = List.fold_left2 f_param Register.Map.empty params args in + List.fold_left f_local lenv locals + +let state_after_call + (sfrs : stack_frame list) + (f_def : RTLabs.function_def) + (args : Val.t list) + (mem : memory) + (trace : CostLabel.t list) : + state = + match f_def with + | RTLabs.F_int def -> + let (mem', sp) = + Mem.alloc mem (concrete_stacksize def.RTLabs.f_stacksize) in + let lenv = init_locals def.RTLabs.f_locals def.RTLabs.f_params args in + State (sfrs, def.RTLabs.f_graph, sp, def.RTLabs.f_entry, lenv, mem', + trace) + | RTLabs.F_ext def -> + let (mem', v) = interpret_external mem def.AST.ef_tag args in + ReturnState (sfrs, v, mem', trace) + + +let state_after_return + (sf : stack_frame) + (sfrs : stack_frame list) + (ret_val : Val.t) + (mem : memory) + (trace : CostLabel.t list) : + state = + let lenv = match sf.ret_reg with + | None -> sf.lenv + | Some ret_reg -> update_local ret_reg ret_val sf.lenv in + State (sfrs, sf.graph, sf.sp, sf.pc, lenv, mem, trace) + + +let small_step (st : state) : state = match st with + | State (sfrs, graph, sp, pc, lenv, mem, trace) -> + let stmt = Label.Map.find pc graph in + interpret_statement sfrs graph sp lenv mem stmt trace + | CallState (sfrs, f_def, args, mem, trace) -> + state_after_call sfrs f_def args mem trace + | ReturnState ([], ret_val, mem, trace) -> + assert false (* End of execution; handled in iter_small_step. *) + | ReturnState (sf :: sfrs, ret_val, mem, trace) -> + state_after_return sf sfrs ret_val mem trace + + +let compute_result v = + if Val.is_int v then IntValue.Int32.cast (Val.to_int_repr v) + else IntValue.Int32.zero + +let rec iter_small_step debug st = + let print_and_return_result (res, cost_labels) = + if debug then Printf.printf "Result = %s\n%!" + (IntValue.Int32.to_string res) ; + (res, cost_labels) in + if debug then print_state st ; + match small_step st with + | ReturnState ([], v, mem, trace) -> + print_and_return_result (compute_result v, List.rev trace) + | st' -> iter_small_step debug st' + + +let add_global_vars = + List.fold_left + (fun mem (id, size, inits_opt) -> Mem.add_var mem id size inits_opt) + +let add_fun_defs = + List.fold_left (fun mem (f_id, f_def) -> Mem.add_fun_def mem f_id f_def) + + +(* The memory is initialized by loading the code into it, and by reserving space + for the global variables. *) + +let init_mem (p : RTLabs.program) : memory = + add_global_vars (add_fun_defs Mem.empty p.RTLabs.functs) p.RTLabs.vars + + +(* Interpret the program only if it has a main. *) + +let interpret debug p = + Printf.printf "*** RTLabs interpret ***\n%!" ; + match p.RTLabs.main with + | None -> (IntValue.Int32.zero, []) + | Some main -> + let mem = init_mem p in + let main_def = find_function mem main in + let st = CallState ([], main_def, [], mem, []) in + iter_small_step debug st diff --git a/src/RTLabs/RTLabsInterpret.mli b/src/RTLabs/RTLabsInterpret.mli new file mode 100644 index 0000000..833186e --- /dev/null +++ b/src/RTLabs/RTLabsInterpret.mli @@ -0,0 +1,5 @@ + +(** This module provides a function to interpret a [RTLabs] program + and return the trace of cost labels encountered. *) + +val interpret : bool -> RTLabs.program -> AST.trace diff --git a/src/RTLabs/RTLabsPrinter.ml b/src/RTLabs/RTLabsPrinter.ml new file mode 100644 index 0000000..f6d6c49 --- /dev/null +++ b/src/RTLabs/RTLabsPrinter.ml @@ -0,0 +1,301 @@ + +let n_spaces n = String.make n ' ' + + +let rec print_size = function + | AST.SQ q -> Memory.string_of_quantity q + | AST.SProd l -> "struct {" ^ (print_size_list l) ^ "}" + | AST.SSum l -> "union {" ^ (print_size_list l) ^ "}" + | AST.SArray (i, se) -> + (print_size se) ^ "[" ^ (string_of_int i) ^ "]" +and print_size_list l = + MiscPottier.string_of_list ", " print_size l + +let print_global_size = print_size + +let print_data = function +(* + | Data_reserve n -> Printf.sprintf "[%d]" n +*) + | AST.Data_int8 i -> Printf.sprintf "(int8) %d" i + | AST.Data_int16 i -> Printf.sprintf "(int16) %d" i + | AST.Data_int32 i -> Printf.sprintf "%d" i + | AST.Data_float32 f -> Printf.sprintf "%f" f + | AST.Data_float64 f -> Printf.sprintf "(float64) %f" f + +let print_datas init = + let rec aux = function + | [] -> "" + | [data] -> print_data data + | data :: datas -> Printf.sprintf "%s, %s" (print_data data) (aux datas) + in + Printf.sprintf "{%s}" (aux init) + +let print_datas_opt = function + | None -> "" + | Some init -> " = " ^ (print_datas init) + +let print_global n (id, size, init_opt) = + Printf.sprintf "%s\"%s\" : %s%s;\n" + (n_spaces n) id (print_global_size size) (print_datas_opt init_opt) + +let print_globals eformat n = + List.iter (fun v -> Eformat.printf eformat "%s" (print_global n v)) + + +let print_reg = Register.print + +let print_oreg = function + | None -> "_" + | Some r -> print_reg r + +let print_decl (r, t) = + (Primitive.print_type t) ^ " " ^ (Register.print r) + +let rec print_args args = + Printf.sprintf "[%s]" (MiscPottier.string_of_list ", " print_reg args) + +let print_result = function + | None -> "_" + | Some (r, t) -> (Primitive.print_type t) ^ " " ^ (Register.print r) + +let print_params r = + Printf.sprintf "(%s)" (MiscPottier.string_of_list ", " print_decl r) + +let print_locals r = + Printf.sprintf "%s" (MiscPottier.string_of_list ", " print_decl r) + + +let print_cmp = function + | AST.Cmp_eq -> "eq" + | AST.Cmp_ne -> "ne" + | AST.Cmp_gt -> "gt" + | AST.Cmp_ge -> "ge" + | AST.Cmp_lt -> "lt" + | AST.Cmp_le -> "le" + +let rec print_size = function + | AST.SQ q -> Memory.string_of_quantity q + | AST.SProd l -> "struct {" ^ (print_size_list l) ^ "}" + | AST.SSum l -> "union {" ^ (print_size_list l) ^ "}" + | AST.SArray (i, se) -> + (print_size se) ^ "[" ^ (string_of_int i) ^ "]" +and print_size_list l = + MiscPottier.string_of_list ", " print_size l + +let print_stacksize = print_size + +let print_offset (size, depth) = + (print_size size) ^ ", " ^ (string_of_int depth) + +let print_sizeof = print_size + +let print_cst = function + | AST.Cst_int i -> Printf.sprintf "imm_int %d" i + | AST.Cst_float f -> Printf.sprintf "imm_float %f" f + | AST.Cst_addrsymbol id -> Printf.sprintf "imm_addr \"%s\"" id + | AST.Cst_stack -> "imm_addr STACK" + | AST.Cst_offset off -> Printf.sprintf "imm_offset { %s }" (print_offset off) + | AST.Cst_sizeof t -> "imm_sizeof (" ^ (print_size t) ^ ")" + +let string_of_signedness = function + | AST.Signed -> "s" + | AST.Unsigned -> "u" + +let string_of_int_type (size, sign) = + Printf.sprintf "%d%s" size (string_of_signedness sign) + +let print_op1 = function + | AST.Op_cast (int_type, dest_size) -> + Printf.sprintf "int%sto%d" (string_of_int_type int_type) dest_size + | AST.Op_negint -> "negint" + | AST.Op_notbool -> "notbool" + | AST.Op_notint -> "notint" + | AST.Op_id -> "id" + | AST.Op_ptrofint -> "ptrofint" + | AST.Op_intofptr -> "intofptr" + +let print_op2 = function + | AST.Op_add -> "add" + | AST.Op_sub -> "sub" + | AST.Op_mul -> "mul" + | AST.Op_div -> "div" + | AST.Op_divu -> "/u" + | AST.Op_mod -> "mod" + | AST.Op_modu -> "modu" + | AST.Op_and -> "and" + | AST.Op_or -> "or" + | AST.Op_xor -> "xor" + | AST.Op_shl -> "shl" + | AST.Op_shr -> "shr" + | AST.Op_shru -> "shru" + | AST.Op_cmp cmp -> print_cmp cmp + | AST.Op_addp -> "addp" + | AST.Op_subp -> "subp" + | AST.Op_subpp -> "subpp" + | AST.Op_cmpp cmp -> (print_cmp cmp) ^ "p" + | AST.Op_cmpu cmp -> (print_cmp cmp) ^ "u" + + +(* +let print_addressing = function + | RTLabs.Aindexed off -> Printf.sprintf "{ %s }" (print_offset off) + | RTLabs.Aindexed2 -> "add" + | RTLabs.Aglobal (id, off) -> + Printf.sprintf "{ %s }(\"%s\")" (print_offset off) id + | RTLabs.Abased (id, off) -> + Printf.sprintf "add, { %s }(\"%s\")" (print_offset off) id + | RTLabs.Ainstack off -> Printf.sprintf "{ %s }(STACK)" (print_offset off) +*) + + +let rec print_table = function + | [] -> "" + | [lbl] -> lbl + | lbl :: tbl -> lbl ^ ", " ^ (print_table tbl) + + +let print_statement = function + | RTLabs.St_skip lbl -> "--> " ^ lbl + | RTLabs.St_cost (cost_lbl, lbl) -> + Printf.sprintf "emit %s --> %s" cost_lbl lbl + | RTLabs.St_cst (destr, cst, lbl) -> + Printf.sprintf "imm %s, %s --> %s" + (print_reg destr) + (print_cst cst) + lbl + | RTLabs.St_op1 (op1, destr, srcr, lbl) -> + Printf.sprintf "%s %s, %s --> %s" + (print_op1 op1) + (print_reg destr) + (print_reg srcr) + lbl + | RTLabs.St_op2 (op2, destr, srcr1, srcr2, lbl) -> + Printf.sprintf "%s %s, %s, %s --> %s" + (print_op2 op2) + (print_reg destr) + (print_reg srcr1) + (print_reg srcr2) + lbl + | RTLabs.St_load (q, addr, destr, lbl) -> + Printf.sprintf "load %s, %s, %s --> %s" + (Memory.string_of_quantity q) + (print_reg addr) + (print_reg destr) + lbl + | RTLabs.St_store (q, addr, srcr, lbl) -> + Printf.sprintf "store %s, %s, %s --> %s" + (Memory.string_of_quantity q) + (print_reg addr) + (print_reg srcr) + lbl + | RTLabs.St_call_id (f, args, res, sg, lbl) -> + Printf.sprintf "call \"%s\", %s, %s: %s --> %s" + f + (print_args args) + (print_oreg res) + (Primitive.print_sig sg) + lbl + | RTLabs.St_call_ptr (f, args, res, sg, lbl) -> + Printf.sprintf "call_ptr %s, %s, %s: %s --> %s" + (print_reg f) + (print_args args) + (print_oreg res) + (Primitive.print_sig sg) + lbl + | RTLabs.St_tailcall_id (f, args, sg) -> + Printf.sprintf "tailcall \"%s\", %s: %s" + f + (print_args args) + (Primitive.print_sig sg) + | RTLabs.St_tailcall_ptr (f, args, sg) -> + Printf.sprintf "tailcall_ptr \"%s\", %s: %s" + (print_reg f) + (print_args args) + (Primitive.print_sig sg) + | RTLabs.St_cond (r, lbl_true, lbl_false) -> + Printf.sprintf "%s? --> %s, %s" + (print_reg r) + lbl_true + lbl_false +(* + | RTLabs.St_condcst (cst, t, lbl_true, lbl_false) -> + Printf.sprintf "(%s) %s --> %s, %s" + (Primitive.print_type t) + (print_cst cst) + lbl_true + lbl_false + | RTLabs.St_cond1 (op1, srcr, lbl_true, lbl_false) -> + Printf.sprintf "%s %s --> %s, %s" + (print_op1 op1) + (print_reg srcr) + lbl_true + lbl_false + | RTLabs.St_cond2 (op2, srcr1, srcr2, lbl_true, lbl_false) -> + Printf.sprintf "%s %s, %s --> %s, %s" + (print_op2 op2) + (print_reg srcr1) + (print_reg srcr2) + lbl_true + lbl_false +*) + | RTLabs.St_jumptable (r, tbl) -> + Printf.sprintf "j_tbl %s --> %s" + (print_reg r) + (print_table tbl) + | RTLabs.St_return None -> Printf.sprintf "return" + | RTLabs.St_return (Some r) -> Printf.sprintf "return %s" (print_reg r) + + +let print_graph eformat n c = + let f lbl stmt = + Eformat.printf eformat "%s%s: %s\n" + (n_spaces n) + lbl + (print_statement stmt) in + Label.Map.iter f c + + +let print_internal_decl eformat n f def = + Eformat.printf eformat + "%s\"%s\"%s\n%slocals: %s\n%sresult: %s\n%sstacksize: %s\n%sentry: %s\n%sexit: %s\n\n" + (n_spaces n) + f + (print_params def.RTLabs.f_params) + (n_spaces (n+2)) + (print_locals def.RTLabs.f_locals) + (n_spaces (n+2)) + (print_result def.RTLabs.f_result) + (n_spaces (n+2)) + (print_stacksize def.RTLabs.f_stacksize) + (n_spaces (n+2)) + def.RTLabs.f_entry + (n_spaces (n+2)) + def.RTLabs.f_exit ; + print_graph eformat (n+2) def.RTLabs.f_graph + + +let print_external_decl eformat n f def = + Eformat.printf eformat "%sextern \"%s\": %s\n" + (n_spaces n) + f + (Primitive.print_sig def.AST.ef_sig) + + +let print_fun_decl eformat n (f, def) = match def with + | RTLabs.F_int def -> print_internal_decl eformat n f def + | RTLabs.F_ext def -> print_external_decl eformat n f def + +let print_fun_decls eformat n functs = + List.iter + (fun f -> print_fun_decl eformat n f ; Eformat.printf eformat "\n\n") + functs + + +let print_program p = + let eformat = Eformat.create () in + Eformat.printf eformat "program:\n\n\n" ; + print_globals eformat 2 p.RTLabs.vars ; + Eformat.printf eformat "\n\n" ; + print_fun_decls eformat 2 p.RTLabs.functs ; + Eformat.get eformat diff --git a/src/RTLabs/RTLabsPrinter.mli b/src/RTLabs/RTLabsPrinter.mli new file mode 100644 index 0000000..a131d09 --- /dev/null +++ b/src/RTLabs/RTLabsPrinter.mli @@ -0,0 +1,6 @@ + +(** This module provides a function to print [RTLabs] programs. *) + +val print_statement : RTLabs.statement -> string + +val print_program : RTLabs.program -> string diff --git a/src/RTLabs/RTLabsToRTL.ml b/src/RTLabs/RTLabsToRTL.ml new file mode 100644 index 0000000..13a0aae --- /dev/null +++ b/src/RTLabs/RTLabsToRTL.ml @@ -0,0 +1,967 @@ + +(** This module provides a translation of [RTLabs] programs to [RTL] + programs. *) + + +let error_prefix = "RTLabs to RTL" +let error = Error.global_error error_prefix + +let error_int () = error "int16 and int32 not supported." +let error_float () = error "float not supported." +let error_shift () = error "Shift operations not supported." + + +let change_entry def f_entry = { def with RTL.f_entry } + +let add_graph lbl stmt def = + { def with RTL.f_graph = Label.Map.add lbl stmt def.RTL.f_graph } + +let fresh_label def = Label.Gen.fresh def.RTL.f_luniverse + +let fresh_reg def = + let r = Register.fresh def.RTL.f_runiverse in + let locals = Register.Set.add r def.RTL.f_locals in + ({ def with RTL.f_locals = locals }, r) + +let rec fresh_regs def n = + if n = 0 then (def, []) + else + let (def, res) = fresh_regs def (n-1) in + let (def, r) = fresh_reg def in + (def, r :: res) + +let addr_regs regs = match regs with + | r1 :: r2 :: _ -> (r1, r2) + | _ -> error "registers are not an address." + +let rec register_freshes runiverse n = + if n <= 0 then [] + else (Register.fresh runiverse) :: (register_freshes runiverse (n-1)) + +let choose_rest rest1 rest2 = match rest1, rest2 with + | [], _ -> rest2 + | _, [] -> rest1 + | _ -> assert false (* do not use on these arguments *) + +let complete_regs def srcrs1 srcrs2 = + let nb_added = (List.length srcrs1) - (List.length srcrs2) in + let (def, added_regs) = fresh_regs def nb_added in + if nb_added > 0 then (srcrs1, srcrs2 @ added_regs, added_regs) + else (srcrs1 @ added_regs, srcrs2, added_regs) + + +let size_of_sig_type = function + | AST.Sig_int (i, _) -> i / Driver.TargetArch.int_size + | AST.Sig_float _ -> error_float () + | AST.Sig_offset -> Driver.TargetArch.int_size + | AST.Sig_ptr -> Driver.TargetArch.ptr_size + +let concrete_size = Driver.RTLMemory.concrete_size + +let concrete_offset = Driver.RTLMemory.concrete_offset + + +(* Local environments *) + +type local_env = Register.t list Register.Map.t + +let mem_local_env = Register.Map.mem +let add_local_env = Register.Map.add +let find_local_env = Register.Map.find + +let initialize_local_env runiverse registers result = + let registers = + registers @ (match result with None -> [] | Some (r, t) -> [(r, t)]) in + let f lenv (r, t) = + let rs = register_freshes runiverse (size_of_sig_type t) in + add_local_env r rs lenv in + List.fold_left f Register.Map.empty registers + +let map_list_local_env lenv regs = + let f res r = res @ (find_local_env r lenv) in + List.fold_left f [] regs + +let make_addr = function + | r1 :: r2 :: _ -> (r1, r2) + | _ -> assert false (* do not use on these arguments *) + +let find_and_addr r lenv = make_addr (find_local_env r lenv) + +let rtl_args regs_list lenv = + List.flatten (List.map (fun r -> find_local_env r lenv) regs_list) + + +let change_label lbl = function + | RTL.St_skip _ -> RTL.St_skip lbl + | RTL.St_cost (cost_lbl, _) -> RTL.St_cost (cost_lbl, lbl) + | RTL.St_addr (r1, r2, id, _) -> RTL.St_addr (r1, r2, id, lbl) + | RTL.St_stackaddr (r1, r2, _) -> RTL.St_stackaddr (r1, r2, lbl) + | RTL.St_int (r, i, _) -> RTL.St_int (r, i, lbl) + | RTL.St_move (r1, r2, _) -> RTL.St_move (r1, r2, lbl) + | RTL.St_opaccs (opaccs, dstr1, dstr2, srcr1, srcr2, _) -> + RTL.St_opaccs (opaccs, dstr1, dstr2, srcr1, srcr2, lbl) + | RTL.St_op1 (op1, dstr, srcr, _) -> RTL.St_op1 (op1, dstr, srcr, lbl) + | RTL.St_op2 (op2, dstr, srcr1, srcr2, _) -> + RTL.St_op2 (op2, dstr, srcr1, srcr2, lbl) + | RTL.St_clear_carry _ -> RTL.St_clear_carry lbl + | RTL.St_set_carry _ -> RTL.St_set_carry lbl + | RTL.St_load (dstrs, addr1, addr2, _) -> + RTL.St_load (dstrs, addr1, addr2, lbl) + | RTL.St_store (addr1, addr2, srcrs, _) -> + RTL.St_store (addr1, addr2, srcrs, lbl) + | RTL.St_call_id (f, args, retrs, _) -> RTL.St_call_id (f, args, retrs, lbl) + | RTL.St_call_ptr (f1, f2, args, retrs, _) -> + RTL.St_call_ptr (f1, f2, args, retrs, lbl) + | RTL.St_tailcall_id (f, args) -> RTL.St_tailcall_id (f, args) + | RTL.St_tailcall_ptr (f1, f2, args) -> RTL.St_tailcall_ptr (f1, f2, args) + | RTL.St_cond _ as inst -> inst + | RTL.St_return regs -> RTL.St_return regs + +(* Add a list of instruction in a graph, from one label to another, by creating + fresh labels inbetween. *) + +let rec adds_graph stmt_list start_lbl dest_lbl def = match stmt_list with + | [] -> + add_graph start_lbl (RTL.St_skip dest_lbl) def + | [stmt] -> + add_graph start_lbl (change_label dest_lbl stmt) def + | stmt :: stmt_list -> + let tmp_lbl = fresh_label def in + let stmt = change_label tmp_lbl stmt in + let def = add_graph start_lbl stmt def in + adds_graph stmt_list tmp_lbl dest_lbl def + +let generates_graph stmt_list def = + let start_lbl = fresh_label def in + let dest_lbl = def.RTL.f_entry in + change_entry (adds_graph stmt_list start_lbl dest_lbl def) start_lbl + +(* Process a list of function that adds a list of instructions to a graph, from + one label to another, and by creating fresh labels inbetween. *) + +let rec add_translates translate_list start_lbl dest_lbl def = + match translate_list with + | [] -> + add_graph start_lbl (RTL.St_skip dest_lbl) def + | [trans] -> + trans start_lbl dest_lbl def + | trans :: translate_list -> + let tmp_lbl = fresh_label def in + let def = trans start_lbl tmp_lbl def in + add_translates translate_list tmp_lbl dest_lbl def + + +let rec translate_cst cst destrs start_lbl dest_lbl def = match cst with + + | AST.Cst_int _ when destrs = [] -> + add_graph start_lbl (RTL.St_skip dest_lbl) def + + | AST.Cst_int i -> + let size = List.length destrs in + let module M = IntValue.Make (struct let size = size end) in + let is = List.map M.to_int (M.break (M.of_int i) size) in + let f r i = RTL.St_int (r, i, dest_lbl) in + let l = List.map2 f destrs is in + adds_graph l start_lbl dest_lbl def + + | AST.Cst_float _ -> error_float () + + | AST.Cst_addrsymbol id -> + let (r1, r2) = make_addr destrs in + add_graph start_lbl (RTL.St_addr (r1, r2, id, dest_lbl)) def + + | AST.Cst_stack -> + let (r1, r2) = make_addr destrs in + add_graph start_lbl (RTL.St_stackaddr (r1, r2, dest_lbl)) def + + | AST.Cst_offset off -> + let i = concrete_offset off in + translate_cst (AST.Cst_int i) destrs start_lbl dest_lbl def + + | AST.Cst_sizeof size -> + let i = concrete_size size in + translate_cst (AST.Cst_int i) destrs start_lbl dest_lbl def + + +(** Adds zeros if destination is bigger than source, or truncates if source is + bigger than destination. *) + +let translate_move destrs srcrs start_lbl = + let ((common1, rest1), (common2, rest2)) = MiscPottier.reduce destrs srcrs in + let f_common destr srcr = RTL.St_move (destr, srcr, start_lbl) in + let translates1 = adds_graph (List.map2 f_common common1 common2) in + let translates2 = translate_cst (AST.Cst_int 0) rest1 in + add_translates [translates1 ; translates2] start_lbl + +let translate_cast_unsigned destrs start_lbl dest_lbl def = + let (def, tmp_zero) = fresh_reg def in + let zeros = MiscPottier.make tmp_zero (List.length destrs) in + add_translates + [adds_graph [RTL.St_int (tmp_zero, 0, start_lbl)] ; + translate_move destrs zeros] + start_lbl dest_lbl def + +(** [srcr] will be copied in the first register of [destrs]. The remaining + registers of [destrs] needs to be set either to zeros or to ones, depending + on the most significant bit of [srcr]. Since 8051 is a 8 bits architecture, + we fetch the most significant bit with [src & 10000000]. Let [tmpr] be the + result. Then we build zeros or ones with [tmpr * 11111111]. *) + +let translate_cast_signed destrs srcr start_lbl dest_lbl def = + let (def, tmp_128) = fresh_reg def in + let (def, tmp_255) = fresh_reg def in + let (def, tmpr) = fresh_reg def in + let (def, dummy) = fresh_reg def in + let insts = + [RTL.St_int (tmp_128, 128, start_lbl) ; + RTL.St_op2 (I8051.And, tmpr, tmp_128, srcr, start_lbl) ; + RTL.St_opaccs (I8051.DivuModu, tmpr, dummy, tmpr, tmp_128, start_lbl) ; + RTL.St_int (tmp_255, 255, start_lbl) ; + RTL.St_opaccs (I8051.Mul, tmpr, dummy, tmpr, tmp_255, start_lbl)] in + let srcrs = MiscPottier.make tmpr (List.length destrs) in + add_translates [adds_graph insts ; translate_move destrs srcrs] + start_lbl dest_lbl def + +(** Depending on [src_sign], perform either a signed or an unsigned cast. For + the signed case, we need the most significant bit of the source. *) + +let translate_cast src_size src_sign dest_size destrs srcrs = + if List.length srcrs = 0 then adds_graph [] + else + if dest_size < src_size then translate_move destrs srcrs + else + let ((common1, rest1), (common2, rest2)) = + MiscPottier.reduce destrs srcrs in + (* dest_size >= src_size, so there will be no rest2 *) + assert (rest2 = []) ; + let insts_common = translate_move common1 common2 in + let sign_reg = MiscPottier.last srcrs in + let insts_sign = match src_sign with + | AST.Unsigned -> translate_cast_unsigned rest1 + | AST.Signed -> translate_cast_signed rest1 sign_reg in + add_translates [insts_common ; insts_sign] + + +(** [-x] is [~x] (the complement of [x]), and then propagating the carry if some + register of the result is greater or equal to 128 (10000000 in binary). *) + +(** FIXME Nicolas: why is this correct? *) + +let translate_negint destrs srcrs start_lbl dest_lbl def = + assert (List.length destrs = List.length srcrs) ; + let (def, tmpr) = fresh_reg def in + let f_cmpl destr srcr = RTL.St_op1 (I8051.Cmpl, destr, srcr, start_lbl) in + let insts_cmpl = List.map2 f_cmpl destrs srcrs in + let insts_init = + [RTL.St_set_carry start_lbl ; + RTL.St_int (tmpr, 0, start_lbl)] in + let f_add destr = RTL.St_op2 (I8051.Addc, destr, destr, tmpr, start_lbl) in + let insts_add = List.map f_add destrs in + adds_graph (insts_cmpl @ insts_init @ insts_add) + start_lbl dest_lbl def + + +(** In order to know if a register is different from 0 or not, we can simply + substract it from 0 and fetch the carry bit: it is 0 if the register + contains 0, and 1 otherwise. By doing a | on the result of + the previous operation on every source register and starting with 0, the + result is either 0 if all the source registers contained 0, and 1 + otherwise. Let [tmp_res] be this number; then, the result of [notbool] is + simply [tmp_res ^ 1]. *) + +let translate_notbool destrs srcrs start_lbl dest_lbl def = match destrs with + | [] -> add_graph start_lbl (RTL.St_skip dest_lbl) def + | destr :: destrs -> + (* [destr] will be set to either 0 or 1 (depending on [srcrs]), the + remaining destination registers [destrs] will be set to 0. *) + let (def, tmpr) = fresh_reg def in + let (def, tmp_srcrs) = fresh_regs def (List.length srcrs) in + let save_srcrs = translate_move tmp_srcrs srcrs in + let prologue = translate_cst (AST.Cst_int 0) (destr :: destrs) in + let f tmp_srcr = + [RTL.St_clear_carry start_lbl ; + RTL.St_int (tmpr, 0, start_lbl) ; + RTL.St_op2 (I8051.Sub, tmpr, tmpr, tmp_srcr, start_lbl) ; + RTL.St_int (tmpr, 0, start_lbl) ; + RTL.St_op2 (I8051.Addc, tmpr, tmpr, tmpr, start_lbl) ; + RTL.St_op2 (I8051.Or, destr, destr, tmpr, start_lbl)] in + let insts = List.flatten (List.map f tmp_srcrs) in + let epilogue = + [RTL.St_int (tmpr, 1, start_lbl) ; + RTL.St_op2 (I8051.Xor, destr, destr, tmpr, start_lbl)] in + add_translates + [save_srcrs ; prologue ; adds_graph insts ; adds_graph epilogue] + start_lbl dest_lbl def + + +let translate_op1 op1 destrs srcrs start_lbl dest_lbl def = match op1 with + + | AST.Op_cast ((src_size, src_sign), dest_size) -> + translate_cast src_size src_sign dest_size destrs srcrs start_lbl dest_lbl + def + + | AST.Op_negint -> + translate_negint destrs srcrs start_lbl dest_lbl def + + | AST.Op_notbool -> + translate_notbool destrs srcrs start_lbl dest_lbl def + + | AST.Op_notint -> + let f destr srcr = RTL.St_op1 (I8051.Cmpl, destr, srcr, start_lbl) in + let l = List.map2 f destrs srcrs in + adds_graph l start_lbl dest_lbl def + + | AST.Op_ptrofint | AST.Op_intofptr | AST.Op_id -> + translate_move destrs srcrs start_lbl dest_lbl def + + +(** Apply a binary operation. The sources and destination registers may not have + the same size. When they do not, zero registers will be considered if + needed. Considers given a temporary register [tmpr] that plays the role of + the zero register. The destination registers can be one of the sources + registers. *) + +let translate_op_ tmpr op destrs srcrs1 srcrs2 start_lbl dest_lbl def = + (* The next few instructions allows to decompose the sources and destination + registers in sub-lists of the same size, and creating the remainings at + the same time. *) + let ((srcrs1_common, srcrs1_rest), (srcrs2_common, srcrs2_rest)) = + MiscPottier.reduce srcrs1 srcrs2 in + let srcrs_rest = choose_rest srcrs1_rest srcrs2_rest in + let ((destrs_common, destrs_rest), _) = + MiscPottier.reduce destrs srcrs1_common in + (* srcrs1_common and srcrs2_common have the same size, which is exactly the + one of the shortest list between srcrs1 and srcrs2. destrs_common and + destrs_rest are either destrs and empty if destrs is bigger than + srcrs1_common (and thus srcrs2_common), or destrs_common has the size of + srcrs1_common (and srcrs2_common) and destrs_rest is the remainings of + destrs. *) + let ((destrs_cted, destrs_rest), (srcrs_cted, _)) = + MiscPottier.reduce destrs_rest srcrs_rest in + (* destrs_cted is either empty or is the remainings of destrs that has the + same size of the remainings between the srcrs1 and srcrs2 when removed the + number of elements of the size of the shortest one. destrs_rest are the + remainings, if any. *) + let insts_init = + [RTL.St_clear_carry start_lbl ; + RTL.St_int (tmpr, 0, start_lbl)] in + let f_op destr srcr1 srcr2 = + RTL.St_op2 (op, destr, srcr1, srcr2, start_lbl) in + let insts_op = + MiscPottier.map3 f_op destrs_common srcrs1_common srcrs2_common in + let f_op_cted destr srcr = + RTL.St_op2 (op, destr, srcr, tmpr, start_lbl) in + let insts_op_cted = List.map2 f_op_cted destrs_cted srcrs_cted in + let f_rest destr = + RTL.St_op2 (op, destr, tmpr, tmpr, start_lbl) in + let insts_rest = List.map f_rest destrs_rest in + adds_graph (insts_init @ insts_op @ insts_op_cted @ insts_rest) + start_lbl dest_lbl def + +(** Same as [translate_op], but creates the zero register. *) + +let translate_op op destrs srcrs1 srcrs2 start_lbl dest_lbl def = + let (def, tmpr) = fresh_reg def in + translate_op_ tmpr op destrs srcrs1 srcrs2 start_lbl dest_lbl def + + +(** Multiply a list of registers (list significant bits first) by a + register. The multiplication in 8051 of two registers is two registers: the + least and most significant bits of the result. When pultiplying a list of + registers with one register, we need to propagate the most significant bits + of an operation to the next one for addition. Example: + + (i1 i2) * j = res11 (res12 + res21) + + where (res11, res12) = i1 * j and (res21, res22) = i2 * j. The result is + truncated by just forgetting about res22. *) + +(* [dummy] is used to discard the most significant bits *) + +let rec translate_mul1 dummy tmpr destrs srcrs1 srcr2 start_lbl = + match destrs, srcrs1 with + | [], _ -> adds_graph [RTL.St_skip start_lbl] start_lbl + | [destr], [] -> + (* if there are no source register left, and only one destination + register, simply add the carry bit of a potential previous addition *) + adds_graph [RTL.St_int (tmpr, 0, start_lbl) ; + RTL.St_op2 (I8051.Addc, destr, destr, tmpr, start_lbl)] + start_lbl + | destr1 :: destr2 :: _, [] -> + (* if there are no source register left, but at least two destination + registers, adding the carry of the potential previous addition + may lead to another carry that needs to be propagated *) + add_translates + [adds_graph [RTL.St_int (tmpr, 0, start_lbl) ; + RTL.St_op2 (I8051.Addc, destr1, destr1, tmpr, start_lbl) ; + RTL.St_op2 (I8051.Addc, destr2, tmpr, tmpr, start_lbl)]] + start_lbl + | [destr], srcr1 :: _ -> + (* if there are at least one source register, but only one destination + register, discard the most significant bits of the multiplication *) + adds_graph + [RTL.St_opaccs (I8051.Mul, tmpr, dummy, srcr2, srcr1, start_lbl) ; + RTL.St_op2 (I8051.Addc, destr, destr, tmpr, start_lbl)] + start_lbl + | destr1 :: destr2 :: destrs, srcr1 :: srcrs1 -> + (* if there are at least one source register, and at least two destination + registers, the first destination register should hold the most + significant bits of the previous atomic multiplication. We need to add + to it the least significant bits of the current operation, and store + the most significant bits in the next destination register for the next + multiplication. *) + add_translates + [adds_graph + [RTL.St_opaccs + (I8051.Mul, tmpr, destr2, srcr2, srcr1, start_lbl) ; + RTL.St_op2 (I8051.Addc, destr1, destr1, tmpr, start_lbl)] ; + translate_mul1 dummy tmpr (destr2 :: destrs) srcrs1 srcr2] + start_lbl + +(** Multiply the ith register of some source registers. The registers up to the + ith of the result should be set to 0, and the multiplication really starts + at the next one. The result of this operation is then added to the current + result of the full multiplication. *) + +let translate_muli + dummy tmpr destrs tmp_destrs srcrs1 dummy_lbl i translates srcr2i = + let (tmp_destrs1, tmp_destrs2) = MiscPottier.split tmp_destrs i in + translates @ + (match tmp_destrs2 with + | [] -> [] + | tmp_destr2 :: tmp_destrs2 -> + [adds_graph [RTL.St_clear_carry dummy_lbl] ; + translate_cst (AST.Cst_int 0) [tmpr] ; + translate_cst (AST.Cst_int 0) tmp_destrs ; + translate_mul1 dummy tmpr (tmp_destr2 :: tmp_destrs2) srcrs1 srcr2i ; + translate_cst (AST.Cst_int 0) tmp_destrs1 ; + adds_graph [RTL.St_clear_carry dummy_lbl] ; + translate_op I8051.Addc destrs destrs tmp_destrs]) + +(** Multiplication, school-style: + + i1n ... i11 * j1m ... j11 = + i1n ... i11 * j11 + + i1n ... i12 0 * j12 + + i1n ... i13 0 0 * j13 + + ... *) + +let translate_mul destrs srcrs1 srcrs2 start_lbl dest_lbl def = + (* dummy will be used to discard some unused results *) + let (def, dummy) = fresh_reg def in + let (def, tmpr) = fresh_reg def in + (* One line of the multiplication is stored in tmp_destrs. The result of the + full multiplication is accumulated in destrs. *) + let (def, tmp_destrs) = fresh_regs def (List.length destrs) in + (* Source registers are copied into fresh source registers to avoid + overwriting if one of them is also the destination registers. *) + let (def, fresh_srcrs1) = fresh_regs def (List.length srcrs1) in + let (def, fresh_srcrs2) = fresh_regs def (List.length srcrs2) in + let insts_init = + [translate_move fresh_srcrs1 srcrs1 ; + translate_move fresh_srcrs2 srcrs2 ; + translate_cst (AST.Cst_int 0) destrs] in + let f = translate_muli dummy tmpr destrs tmp_destrs fresh_srcrs1 start_lbl in + let insts_mul = MiscPottier.foldi f [] fresh_srcrs2 in + add_translates (insts_init @ insts_mul) start_lbl dest_lbl def + + +(** The 8051 performs division and modulo in a single operation. Depending on + the one we need (boolean [order]), we discard the other. *) + +let translate_divumodu8 order destrs srcr1 srcr2 start_lbl dest_lbl def = + match destrs with + | [] -> add_graph start_lbl (RTL.St_skip dest_lbl) def + | destr :: destrs -> + let (def, dummy) = fresh_reg def in + let (destr1, destr2) = if order then (destr, dummy) else (dummy, destr) in + let inst_div = + adds_graph [RTL.St_opaccs (I8051.DivuModu, destr1, destr2, + srcr1, srcr2, start_lbl)] in + let insts_rest = translate_cst (AST.Cst_int 0) destrs in + add_translates [inst_div ; insts_rest] start_lbl dest_lbl def + + +(** Only the first register of [destrs] will be used, the others will be set to + 0. We compare in order the registers of both source registers and accumulate + the results in the first register of [destrs], with a | and initially set to + 0. Two registers are equal if and only if substracting one with the other + and substracting the other with the one both lead to no carry. If one of the + source registers is bigger than the other, we compare the remainings with + 0. We first copy the source registers into fresh ones, in case the + destination registers share some source registers. Example: + + srcr11 ... srcr1n != srcr21 ... srcr2m = + carry(srcr11 - srcr21) | carry (srcr21 - srcr11) | + carry(srcr12 - srcr22) | carry (srcr22 - srcr12) | + ... *) + +let translate_ne destrs srcrs1 srcrs2 start_lbl dest_lbl def = + match destrs with + | [] -> add_graph start_lbl (RTL.St_skip dest_lbl) def + | destr :: destrs -> + let (def, dummy) = fresh_reg def in + let (def, tmp_zero) = fresh_reg def in + let (def, tmp_srcrs1) = fresh_regs def (List.length srcrs1) in + let save_srcrs1 = translate_move tmp_srcrs1 srcrs1 in + let (def, tmp_srcrs2) = fresh_regs def (List.length srcrs2) in + let save_srcrs2 = translate_move tmp_srcrs2 srcrs2 in + let ((common1, rest1), (common2, rest2)) = + MiscPottier.reduce tmp_srcrs1 tmp_srcrs2 in + let rest = choose_rest rest1 rest2 in + let inits = + [RTL.St_int (destr, 0, start_lbl) ; + RTL.St_int (tmp_zero, 0, start_lbl)] in + let f tmp_srcr1 tmp_srcr2 = + [RTL.St_clear_carry start_lbl ; + RTL.St_op2 (I8051.Sub, dummy, tmp_srcr1, tmp_srcr2, start_lbl) ; + RTL.St_op2 (I8051.Or, destr, destr, tmp_zero, start_lbl) ; + RTL.St_op2 (I8051.Sub, dummy, tmp_srcr2, tmp_srcr1, start_lbl) ; + RTL.St_op2 (I8051.Or, destr, destr, tmp_zero, start_lbl)] in + let insts_common = List.flatten (List.map2 f common1 common2) in + let insts_rest = List.flatten (List.map (f tmp_zero) rest) in + let insts = inits @ insts_common @ insts_rest in + let epilogue = translate_cst (AST.Cst_int 0) destrs in + add_translates [save_srcrs1 ; save_srcrs2 ; adds_graph insts ; epilogue] + start_lbl dest_lbl def + + +(** Are two given registers equal? We substract the one with the other, and then + the other with the one. They are equal if and only if both carry are 0, + i.e., a bitwise 'or' on the carries is 1 if and only if they are + different. We simply do a bitwise xor with this result and 1 to have our + answer: + + r1 == r2 = (carry(r1 - r2) | carry(r2 - r1)) ^ 1 *) + +let translate_eq_reg + tmp_zero tmp_one tmpr1 tmpr2 destr dummy_lbl (srcr1, srcr2) = + [RTL.St_clear_carry dummy_lbl ; + RTL.St_op2 (I8051.Sub, tmpr1, srcr1, srcr2, dummy_lbl) ; + RTL.St_op2 (I8051.Addc, tmpr1, tmp_zero, tmp_zero, dummy_lbl) ; + RTL.St_clear_carry dummy_lbl ; + RTL.St_op2 (I8051.Sub, tmpr2, srcr2, srcr1, dummy_lbl) ; + RTL.St_op2 (I8051.Addc, tmpr2, tmp_zero, tmp_zero, dummy_lbl) ; + RTL.St_op2 (I8051.Or, tmpr1, tmpr1, tmpr2, dummy_lbl) ; + RTL.St_op2 (I8051.Xor, tmpr1, tmpr1, tmp_one, dummy_lbl) ; + RTL.St_op2 (I8051.And, destr, destr, tmpr1, dummy_lbl)] + +let translate_eq_list tmp_zero tmp_one tmpr1 tmpr2 destr leq dummy_lbl = + let f = translate_eq_reg tmp_zero tmp_one tmpr1 tmpr2 destr dummy_lbl in + (RTL.St_int (destr, 1, dummy_lbl)) :: (List.flatten (List.map f leq)) + +(** Translation of unsigned LT: we proceed by successively comparing the source + registers most significant bits first (if one of the two source lists is + smaller than the other, we complete it with zeros). At each step, a register + ([tmpr3]) holds 1 if the previous registers are all equal, and 0 + otherwise. The result of the comparison is 1 if there is a step where all + the previous registers are equal and the first current register is lower + than the second (which is checked by substracting the second to the first + and fetching the carry). *) + +let translate_atom + tmp_zero tmp_one tmpr1 tmpr2 tmpr3 destr dummy_lbl leq srcr1 srcr2 = + (translate_eq_list tmp_zero tmp_one tmpr1 tmpr2 tmpr3 leq dummy_lbl) @ + [RTL.St_clear_carry dummy_lbl ; + RTL.St_op2 (I8051.Sub, tmpr1, srcr1, srcr2, dummy_lbl) ; + RTL.St_op2 (I8051.Addc, tmpr1, tmp_zero, tmp_zero, dummy_lbl) ; + RTL.St_op2 (I8051.And, tmpr3, tmpr3, tmpr1, dummy_lbl) ; + RTL.St_op2 (I8051.Or, destr, destr, tmpr3, dummy_lbl)] + +let translate_lt_main tmp_zero tmp_one tmpr1 tmpr2 tmpr3 destr dummy_lbl + srcrs1 srcrs2 = + let f (insts, leq) srcr1 srcr2 = + let added_insts = + translate_atom tmp_zero tmp_one tmpr1 tmpr2 tmpr3 destr dummy_lbl leq + srcr1 srcr2 in + (insts @ added_insts, leq @ [(srcr1, srcr2)]) in + fst (List.fold_left2 f ([], []) srcrs1 srcrs2) + +let translate_lt destrs srcrs1 srcrs2 start_lbl dest_lbl def = + match destrs with + | [] -> add_graph start_lbl (RTL.St_skip dest_lbl) def + | _ -> + let (def, tmp_destrs) = fresh_regs def (List.length destrs) in + let tmp_destr = List.hd tmp_destrs in + let (def, tmp_zero) = fresh_reg def in + let (def, tmp_one) = fresh_reg def in + let (def, tmpr1) = fresh_reg def in + let (def, tmpr2) = fresh_reg def in + let (def, tmpr3) = fresh_reg def in + let (srcrs1, srcrs2, added) = complete_regs def srcrs1 srcrs2 in + let srcrs1 = List.rev srcrs1 in + let srcrs2 = List.rev srcrs2 in + let insts_init = + [translate_cst (AST.Cst_int 0) tmp_destrs ; + translate_cst (AST.Cst_int 0) added ; + adds_graph [RTL.St_int (tmp_zero, 0, start_lbl) ; + RTL.St_int (tmp_one, 1, start_lbl)]] in + let insts_main = + translate_lt_main tmp_zero tmp_one tmpr1 tmpr2 tmpr3 tmp_destr start_lbl + srcrs1 srcrs2 in + let insts_main = [adds_graph insts_main] in + let insts_exit = [translate_move destrs tmp_destrs] in + add_translates (insts_init @ insts_main @ insts_exit ) + start_lbl dest_lbl def + + +(** Translation of signed LT: exactly unsigned LT when the signed bit is + changed: positive numbers become greater than the half bound as unsigned, + negative numbers become between 0 and the half bound as unsigned. The sign + bit is changed with a bitwise xor between the register holding the bit sign + (the most significant register, i.e. the last register in the list of + registers) and 10000000. *) + +let add_128_to_last tmp_128 rs start_lbl = match rs with + | [] -> adds_graph [] start_lbl + | _ -> + let r = MiscPottier.last rs in + adds_graph [RTL.St_op2 (I8051.Xor, r, r, tmp_128, start_lbl)] start_lbl + +let translate_lts destrs srcrs1 srcrs2 start_lbl dest_lbl def = + let (def, tmp_srcrs1) = fresh_regs def (List.length srcrs1) in + let (def, tmp_srcrs2) = fresh_regs def (List.length srcrs2) in + let (def, tmp_128) = fresh_reg def in + add_translates + [translate_move tmp_srcrs1 srcrs1 ; + translate_move tmp_srcrs2 srcrs2 ; + adds_graph [RTL.St_int (tmp_128, 128, start_lbl)] ; + add_128_to_last tmp_128 tmp_srcrs1 ; + add_128_to_last tmp_128 tmp_srcrs2 ; + translate_lt destrs tmp_srcrs1 tmp_srcrs2] + start_lbl dest_lbl def + + +let rec translate_op2 op2 destrs srcrs1 srcrs2 start_lbl dest_lbl def = + match op2 with + + | AST.Op_add | AST.Op_addp -> + translate_op I8051.Addc destrs srcrs1 srcrs2 start_lbl dest_lbl def + + | AST.Op_sub | AST.Op_subp | AST.Op_subpp -> + translate_op I8051.Sub destrs srcrs1 srcrs2 start_lbl dest_lbl def + + | AST.Op_mul -> + translate_mul destrs srcrs1 srcrs2 start_lbl dest_lbl def + + | AST.Op_divu when List.length srcrs1 = 1 && List.length srcrs2 = 1 -> + translate_divumodu8 true destrs (List.hd srcrs1) (List.hd srcrs2) + start_lbl dest_lbl def + + | AST.Op_modu when List.length srcrs1 = 1 && List.length srcrs2 = 1 -> + translate_divumodu8 false destrs (List.hd srcrs1) (List.hd srcrs2) + start_lbl dest_lbl def + + | AST.Op_and -> + translate_op I8051.And destrs srcrs1 srcrs2 start_lbl dest_lbl def + + | AST.Op_or -> + translate_op I8051.Or destrs srcrs1 srcrs2 start_lbl dest_lbl def + + | AST.Op_xor -> + translate_op I8051.Xor destrs srcrs1 srcrs2 start_lbl dest_lbl def + + | AST.Op_cmp AST.Cmp_eq + | AST.Op_cmpu AST.Cmp_eq + | AST.Op_cmpp AST.Cmp_eq -> + add_translates + [translate_op2 (AST.Op_cmpu AST.Cmp_ne) destrs srcrs1 srcrs2 ; + translate_op1 AST.Op_notbool destrs destrs] + start_lbl dest_lbl def + + | AST.Op_cmp AST.Cmp_ne + | AST.Op_cmpu AST.Cmp_ne + | AST.Op_cmpp AST.Cmp_ne -> + translate_ne destrs srcrs1 srcrs2 start_lbl dest_lbl def + + | AST.Op_cmp AST.Cmp_lt -> + translate_lts destrs srcrs1 srcrs2 start_lbl dest_lbl def + + | AST.Op_cmpu AST.Cmp_lt | AST.Op_cmpp AST.Cmp_lt -> + translate_lt destrs srcrs1 srcrs2 start_lbl dest_lbl def + + | AST.Op_cmp AST.Cmp_le -> + add_translates + [translate_op2 (AST.Op_cmp AST.Cmp_lt) destrs srcrs2 srcrs1 ; + translate_op1 AST.Op_notbool destrs destrs] + start_lbl dest_lbl def + + | AST.Op_cmpu AST.Cmp_le -> + add_translates + [translate_op2 (AST.Op_cmpu AST.Cmp_lt) destrs srcrs2 srcrs1 ; + translate_op1 AST.Op_notbool destrs destrs] + start_lbl dest_lbl def + + | AST.Op_cmpp AST.Cmp_le -> + add_translates + [translate_op2 (AST.Op_cmpp AST.Cmp_lt) destrs srcrs2 srcrs1 ; + translate_op1 AST.Op_notbool destrs destrs] + start_lbl dest_lbl def + + | AST.Op_cmp AST.Cmp_gt -> + translate_op2 (AST.Op_cmp AST.Cmp_lt) + destrs srcrs2 srcrs1 start_lbl dest_lbl def + + | AST.Op_cmpu AST.Cmp_gt -> + translate_op2 (AST.Op_cmpu AST.Cmp_lt) + destrs srcrs2 srcrs1 start_lbl dest_lbl def + + | AST.Op_cmpp AST.Cmp_gt -> + translate_op2 (AST.Op_cmpp AST.Cmp_lt) + destrs srcrs2 srcrs1 start_lbl dest_lbl def + + | AST.Op_cmp AST.Cmp_ge -> + add_translates + [translate_op2 (AST.Op_cmp AST.Cmp_lt) destrs srcrs1 srcrs2 ; + translate_op1 AST.Op_notbool destrs destrs] + start_lbl dest_lbl def + + | AST.Op_cmpu AST.Cmp_ge -> + add_translates + [translate_op2 (AST.Op_cmpu AST.Cmp_lt) destrs srcrs1 srcrs2 ; + translate_op1 AST.Op_notbool destrs destrs] + start_lbl dest_lbl def + + | AST.Op_cmpp AST.Cmp_ge -> + add_translates + [translate_op2 (AST.Op_cmpp AST.Cmp_lt) destrs srcrs1 srcrs2 ; + translate_op1 AST.Op_notbool destrs destrs] + start_lbl dest_lbl def + + | AST.Op_div | AST.Op_divu | AST.Op_modu | AST.Op_mod | AST.Op_shl + | AST.Op_shr | AST.Op_shru -> + (* Unsupported, should have been replaced by a runtime function. *) + assert false + + +(** The RTL.St_cond construction is based on a single register. We accumulate + with a bitwise or the value of the source registers. In the end, the result + is 0 if and only if all registers contained 0. *) + +let translate_cond srcrs start_lbl lbl_true lbl_false def = + let (def, tmpr) = fresh_reg def in + let tmp_lbl = fresh_label def in + let init = RTL.St_int (tmpr, 0, start_lbl) in + let f srcr = RTL.St_op2 (I8051.Or, tmpr, tmpr, srcr, start_lbl) in + let def = adds_graph (init :: (List.map f srcrs)) start_lbl tmp_lbl def in + add_graph tmp_lbl (RTL.St_cond (tmpr, lbl_true, lbl_false)) def + + +(** Loading or storing may ask to load or store several memory cells. We + consider the base address shifted by successive offsets until every data has + been loaded or stored. *) + +let translate_load addr destrs start_lbl dest_lbl def = + let (def, save_addr) = fresh_regs def (List.length addr) in + let (def, tmp_addr) = fresh_regs def (List.length addr) in + let (tmp_addr1, tmp_addr2) = make_addr tmp_addr in + let (def, tmpr) = fresh_reg def in + let insts_save_addr = translate_move save_addr addr in + let f (translates, off) r = + let translates = + translates @ + [adds_graph [RTL.St_int (tmpr, off, start_lbl)] ; + translate_op2 AST.Op_addp tmp_addr save_addr [tmpr] ; + adds_graph [RTL.St_load (r, tmp_addr1, tmp_addr2, dest_lbl)]] in + (translates, off + Driver.TargetArch.int_size) in + let (translates, _) = List.fold_left f ([], 0) destrs in + add_translates (insts_save_addr :: translates) start_lbl dest_lbl def + + +let translate_store addr srcrs start_lbl dest_lbl def = + let (def, tmp_addr) = fresh_regs def (List.length addr) in + let (tmp_addr1, tmp_addr2) = make_addr tmp_addr in + let (def, tmpr) = fresh_reg def in + let f (translates, off) srcr = + let translates = + translates @ + [adds_graph [RTL.St_int (tmpr, off, start_lbl)] ; + translate_op2 AST.Op_addp tmp_addr addr [tmpr] ; + adds_graph [RTL.St_store (tmp_addr1, tmp_addr2, srcr, dest_lbl)]] in + (translates, off + Driver.TargetArch.int_size) in + let (translates, _) = List.fold_left f ([], 0) srcrs in + add_translates translates start_lbl dest_lbl def + + +let translate_stmt lenv lbl stmt def = match stmt with + + | RTLabs.St_skip lbl' -> + add_graph lbl (RTL.St_skip lbl') def + + | RTLabs.St_cost (cost_lbl, lbl') -> + add_graph lbl (RTL.St_cost (cost_lbl, lbl')) def + + | RTLabs.St_cst (destr, cst, lbl') -> + translate_cst cst (find_local_env destr lenv) lbl lbl' def + + | RTLabs.St_op1 (op1, destr, srcr, lbl') -> + translate_op1 op1 (find_local_env destr lenv) (find_local_env srcr lenv) + lbl lbl' def + + | RTLabs.St_op2 (op2, destr, srcr1, srcr2, lbl') -> + translate_op2 op2 (find_local_env destr lenv) + (find_local_env srcr1 lenv) (find_local_env srcr2 lenv) lbl lbl' def + + | RTLabs.St_load (_, addr, destr, lbl') -> + translate_load (find_local_env addr lenv) (find_local_env destr lenv) + lbl lbl' def + + | RTLabs.St_store (_, addr, srcr, lbl') -> + translate_store (find_local_env addr lenv) (find_local_env srcr lenv) + lbl lbl' def + + | RTLabs.St_call_id (f, args, None, _, lbl') -> + add_graph lbl (RTL.St_call_id (f, rtl_args args lenv, [], lbl')) def + + | RTLabs.St_call_id (f, args, Some retr, _, lbl') -> + add_graph lbl (RTL.St_call_id (f, rtl_args args lenv, + find_local_env retr lenv, lbl')) def + + | RTLabs.St_call_ptr (f, args, None, _, lbl') -> + let (f1, f2) = find_and_addr f lenv in + add_graph lbl (RTL.St_call_ptr (f1, f2, rtl_args args lenv, [], lbl')) def + + | RTLabs.St_call_ptr (f, args, Some retr, _, lbl') -> + let (f1, f2) = find_and_addr f lenv in + add_graph lbl + (RTL.St_call_ptr + (f1, f2, rtl_args args lenv, find_local_env retr lenv, lbl')) def + + | RTLabs.St_tailcall_id (f, args, _) -> + add_graph lbl (RTL.St_tailcall_id (f, rtl_args args lenv)) def + + | RTLabs.St_tailcall_ptr (f, args, _) -> + let (f1, f2) = find_and_addr f lenv in + add_graph lbl (RTL.St_tailcall_ptr (f1, f2, rtl_args args lenv)) def + + | RTLabs.St_cond (r, lbl_true, lbl_false) -> + translate_cond (find_local_env r lenv) lbl lbl_true lbl_false def + + | RTLabs.St_jumptable _ -> + error "Jump tables not supported yet." + + | RTLabs.St_return None -> + add_graph lbl (RTL.St_return []) def + + | RTLabs.St_return (Some r) -> + add_graph lbl (RTL.St_return (find_local_env r lenv)) def + + +let translate_internal def = + let runiverse = def.RTLabs.f_runiverse in + let lenv = + initialize_local_env runiverse + (def.RTLabs.f_params @ def.RTLabs.f_locals) def.RTLabs.f_result in + let set_of_list l = List.fold_right Register.Set.add l Register.Set.empty in + let params = map_list_local_env lenv (List.map fst def.RTLabs.f_params) in + let locals = map_list_local_env lenv (List.map fst def.RTLabs.f_locals) in + let locals = set_of_list locals in + let result = match def.RTLabs.f_result with + | None -> [] + | Some (r, _) -> find_local_env r lenv in + let res = + { RTL.f_luniverse = def.RTLabs.f_luniverse ; + RTL.f_runiverse = runiverse ; + RTL.f_result = result ; + RTL.f_params = params ; + RTL.f_locals = locals ; + RTL.f_stacksize = concrete_size def.RTLabs.f_stacksize ; + RTL.f_graph = Label.Map.empty ; + RTL.f_entry = def.RTLabs.f_entry ; + RTL.f_exit = def.RTLabs.f_exit } in + Label.Map.fold (translate_stmt lenv) def.RTLabs.f_graph res + + +let translate_fun_def = function + | RTLabs.F_int def -> RTL.F_int (translate_internal def) + | RTLabs.F_ext def -> RTL.F_ext def + + +(* Add global initializations *) + +let sum_offsets = + let f res off = res + (concrete_offset off) in + List.fold_left f 0 + +let assign_data addr1 addr2 addr1' addr2' off_r data_r tmpr def (offset, data) = + if offset < 256 then + let def = + generates_graph + [RTL.St_store (addr1', addr2', data_r, Label.dummy)] def in + let start_lbl = fresh_label def in + let dest_lbl = def.RTL.f_entry in + let def = + translate_op_ tmpr I8051.Addc + [addr1' ; addr2'] [addr1 ; addr2] [off_r] start_lbl dest_lbl def in + let def = change_entry def start_lbl in + generates_graph + [RTL.St_int (off_r, offset, Label.dummy) ; + RTL.St_int (data_r, data, Label.dummy)] def + else error ("offset too big to fit in a register when initializing globals.") + +let assign_datas + addr1 addr2 addr1' addr2' off_r data_r tmpr x def (offsets, data) = + let base_offset = sum_offsets offsets in + let (data, quantity) = match data with + | AST.Data_int8 i -> (i, 1) + | AST.Data_int16 i -> (i, 2) + | AST.Data_int32 i -> (i, 4) + | AST.Data_float32 f | AST.Data_float64 f -> error_float () in + let data = IntValue.Int32.of_int data in + let datas = IntValue.Int32.break data quantity in + let datas = List.map IntValue.Int8.to_int datas in + let added_offs = MiscPottier.make 0 (List.length datas) in + let offs = MiscPottier.mapi (fun i _ -> base_offset + i) added_offs in + assert (List.length offs = List.length datas) ; + let offs_datas = List.combine offs datas in + let def = + List.fold_left (assign_data addr1 addr2 addr1' addr2' off_r data_r tmpr) + def offs_datas in + generates_graph [RTL.St_addr (addr1, addr2, x, Label.dummy)] def + +let add_global_initializations_def globals def = + let (def, addr1, addr2, addr1', addr2', off_r, data_r, tmpr) = + match fresh_regs def 7 with + | (def, [addr1 ; addr2 ; addr1' ; addr2' ; off_r ; data_r ; tmpr]) -> + (def, addr1, addr2, addr1', addr2', off_r, data_r, tmpr) + | _ -> + (* should be impossible: [fresh_regs _ 7] returns 7 regs *) + assert false in + let f def (x, size, datas_opt) = match datas_opt with + | None -> def + | Some datas -> + let offsets = Memory.all_offsets size in + if List.length offsets <> List.length datas then + error "bad global initialization style." + else + let offs_datas = List.combine offsets datas in + List.fold_left + (assign_datas addr1 addr2 addr1' addr2' off_r data_r tmpr x) + def offs_datas in + List.fold_left f def globals + +let add_global_initializations_funct globals = function + | RTL.F_int def -> + let def = add_global_initializations_def globals def in + RTL.F_int def + | def -> def + +(* [add_global_initializations p] moves the initializations of the globals of + [p] to the beginning of the main function, if any. *) + +let add_global_initializations globals main functs = match main with + | None -> functs + | Some main -> + let main_def = List.assoc main functs in + let main_def = add_global_initializations_funct globals main_def in + MiscPottier.update_list_assoc main main_def functs + + +let translate p = + let f_global (id, size, _) = (id, concrete_size size) in + let f_funct (id, fun_def) = (id, translate_fun_def fun_def) in + let functs = List.map f_funct p.RTLabs.functs in + let functs = add_global_initializations p.RTLabs.vars p.RTLabs.main functs in + { RTL.vars = List.map f_global p.RTLabs.vars ; + RTL.functs = functs ; + RTL.main = p.RTLabs.main } diff --git a/src/RTLabs/RTLabsToRTL.mli b/src/RTLabs/RTLabsToRTL.mli new file mode 100644 index 0000000..f432ec3 --- /dev/null +++ b/src/RTLabs/RTLabsToRTL.mli @@ -0,0 +1,8 @@ + +(** This module provides a translation of [RTLabs] programs to [RTL] + programs. *) + +(** Most of the work consists in the instruction selection. We target the 8051 + processor, which has addresses coded on two machine words. *) + +val translate : RTLabs.program -> RTL.program diff --git a/src/acc.ml b/src/acc.ml new file mode 100644 index 0000000..52989d1 --- /dev/null +++ b/src/acc.ml @@ -0,0 +1,180 @@ +open Options +open Misc.Timed + +(** Parse the command line. *) +let input_files = + if not (Options.is_web_mode ()) then + OptionsParsing.results () + else + [] + +(** For each input file of the source language: + + 1. Parse. + + 2. Add runtime functions. + + 3. Labelize. + + 4. Compile to the target language. + (And keep track of annotations if required). + + 5. Annotate the input program with collected costs. + + 6. Save the annotated input program. + + Optionnally, we can interpret the intermediate programs + if {!Options.interpretation_requested}. +*) +let process ?(step=fun step over -> ()) source = + (** Set source and target languages. *) + let src_language = Options.get_source_language () in + let tgt_language = Options.get_target_language () in + + let next_step = + let nb_step = 10 in + let c = ref 0 in + fun () -> incr c; step !c nb_step + in + + (** These variables are related to the lustre mode of the compiler. *) + let is_lustre_file = Options.is_lustre_file () in + let remove_lustre_externals = Options.is_remove_lustre_externals () in + + (** Parse. *) + let input_ast = + profile "Parsing" + (Languages.parse ~is_lustre_file ~remove_lustre_externals src_language) + source + in + + next_step (); + + (** Embed the runtime functions in the abstract syntax tree. *) + let input_ast = Languages.add_runtime input_ast in + + (** Labelling pass. *) + let input_ast = + profile "Labelling" + Languages.labelize input_ast + in + + next_step (); + + (** Compilation. *) + let target_asts = + (** If debugging is enabled, the compilation function returns all + the intermediate programs. *) + profile "Compilation" + (Languages.compile + (Options.is_debug_enabled ()) + src_language tgt_language) + input_ast + in + + next_step (); + + let final_ast, intermediate_asts = Misc.ListExt.cut_last target_asts in + + (** Instrument the source file with cost annotations. *) + let (annotated_input_ast, cost_id, cost_incr, extern_cost_variables) = + profile "Annotation" + (Languages.annotate input_ast) + final_ast + in + + (** Instrument the source file with cost annotations. *) + let (annotated_input_ast, stack_id, stack_max_id, + stack_incr, extern_stack_variables) = + profile "Annotation Stack" + Languages.annotate_stack_size cost_incr annotated_input_ast + in + + next_step (); + + (** Combine the output asts. *) + let output = (target_asts, annotated_input_ast) in + + (** Finally save these output if we are not in a web mode. *) + let _ = + if not (Options.is_web_mode ()) then + let filename = match source with `Filename f -> f | _ -> assert false in + let (exact_output, output_filename) = match Options.get_output_files () with + | None -> (false, filename) + | Some filename' -> (true, filename') in + let save ?(suffix="") ast = + Languages.save + (Options.is_asm_pretty ()) exact_output output_filename suffix ast + in + begin + save final_ast; + save ~suffix:"-instrumented" annotated_input_ast; + Languages.save_cost exact_output output_filename cost_id cost_incr + extern_cost_variables; + Languages.save_stack + exact_output output_filename + stack_id stack_max_id stack_incr extern_stack_variables; + if Options.is_debug_enabled () then + List.iter save intermediate_asts; + end; + + (** Interpret all the intermediate ASTs if requested. *) + if Options.interpretations_requested () then + begin + Printf.printf "Interpret\n%!" ; + let asts = target_asts in + let debug = Options.is_debug_enabled () in + let label_traces = List.map (Languages.interpret debug) asts in + Misc.IOExt.eprintf "Checking execution traces...%!"; + Checker.same_traces (List.combine asts label_traces); + Misc.IOExt.eprintf "OK.\n%!"; + end; + + (** Interpret the final AST if requested. *) + if Options.interpretation_requested () then + ignore (Languages.interpret (Options.is_debug_enabled ()) final_ast) + in + (** Return the output ASTs. *) + output + +let lustre_test (filename : string) = + let lustre_test = match Options.get_lustre_test () with + | None -> assert false (* do not use on this argument *) + | Some lustre_test -> lustre_test in + let lustre_test_cases = Options.get_lustre_test_cases () in + let lustre_test_cycles = Options.get_lustre_test_cycles () in + let lustre_test_min_int = Options.get_lustre_test_min_int () in + let lustre_test_max_int = Options.get_lustre_test_max_int () in + let src_language = Languages.Clight in + let tgt_language = Languages.Clight in + let input_ast = Languages.parse src_language (`Filename filename) in + let input_ast = + Languages.add_lustre_main lustre_test lustre_test_cases lustre_test_cycles + lustre_test_min_int lustre_test_max_int input_ast in + let (exact_output, output_filename) = match Options.get_output_files () with + | None -> (false, filename) + | Some filename' -> (true, filename') + in + let save ast = + Languages.save + (Options.is_asm_pretty ()) exact_output output_filename "" ast in + let target_asts = + Languages.compile false src_language tgt_language input_ast + in + let final_ast, _ = Misc.ListExt.cut_last target_asts in + save input_ast ; + save final_ast + +let _ = + Misc.Timed.set_profiling_flag (Options.is_debug_enabled () || Options.is_web_mode ()); + if not (Options.is_web_mode ()) then + begin + set_now (fun () -> 0.); (* Unix.gettimeofday () *. 1000.); *) + if Options.is_dev_test_enabled () then + Dev_test.do_dev_test input_files + else + if Options.get_lustre_test () <> None then + List.iter lustre_test input_files + else + ignore (List.map process (List.map (fun f -> `Filename f) input_files)) + end diff --git a/src/acc.mli b/src/acc.mli new file mode 100644 index 0000000..097d1fb --- /dev/null +++ b/src/acc.mli @@ -0,0 +1,9 @@ +(** This module realizes the compiler as a command line program + if {!Options.web_mode} is disabled. Otherwise, the compiler can + be used as an API. + + @author Yann Regis-Gianas +*) + +val process : ?step:(int -> int -> unit) -> Languages.source -> Languages.ast list * Languages.ast + diff --git a/src/accweb.ml b/src/accweb.ml new file mode 100644 index 0000000..9932b57 --- /dev/null +++ b/src/accweb.ml @@ -0,0 +1,53 @@ +(* let installation_path = "http://www.pps.jussieu.fr/~yrg/cerco" *) + +let installation_path = + "http://0.0.0.0:8000" + +let inputs = [ +(* For the moment: + Webify.Direct ("Scratch", + (fun () -> "/* Type your source code here in C. */")); +*) + Webify.Url (installation_path ^ "/cerco_input.xml") +] + +let processor step (title, contents) = + let to_output title a = + let lang = Languages.to_string (Languages.language_of_ast a) in + ("[" + ^ title + ^ lang + ^ "]", + (Misc.Timed.profile (Printf.sprintf "Print %s" lang) Languages.print a)) + in + let terminal title s = ("[" ^ title ^ "]", s) in + let (intermediate_asts, annotated_ast) = + Acc.process ~step (`Source (title, contents)) + in + let intermediate_asts = + snd (Misc.ListExt.cut_last intermediate_asts) + in + let pasts = + to_output "Annotated " annotated_ast + :: List.map (to_output "") intermediate_asts + in + let (out, err) = Misc.IOExt.get_buffers () in + let terminals = [ + terminal "Standard output" out; + terminal "Standard error" err + ] + in + pasts @ terminals + +let now () : float = + let date = jsnew Js.date_now () in + Js.to_float (date##getTime ()) + +let _ = + Options.set_web_mode (); + Misc.Timed.set_profiling_flag true; + Misc.Timed.set_now now; + Misc.IOExt.set_buffered_mode (); + Webify.from_function inputs processor + + diff --git a/src/annotStackSize.ml b/src/annotStackSize.ml new file mode 100644 index 0000000..97b2a30 --- /dev/null +++ b/src/annotStackSize.ml @@ -0,0 +1,197 @@ + + +let error_prefix = "Clight Stack Size Annotator" +let error = Error.global_error error_prefix + + +let stack_id_prefix = "__stack_size" +let stack_max_id_prefix = "__stack_size_max" +let stack_incr_prefix = "__stack_size_incr" + + +let fun_stack_size = Hashtbl.create 10 + +let add_stack_size s i = + Hashtbl.add fun_stack_size s i + +let get_stack_size s = + try + Hashtbl.find fun_stack_size s + with Not_found -> + Printf.eprintf + "get_stack_size: the function %s has not a stack size associated\n%!" + s; + exit 1 + +(* Instrumentation *) + +let int_typ = Clight.Tint (Clight.I32, AST.Signed) + +let const_int i = Clight.Expr (Clight.Econst_int i, int_typ) + +(* Instrument a statement. *) + +let rec instrument_body stack_incr stack_size stmt = match stmt with + | Clight.Sskip | Clight.Sbreak | Clight.Scontinue + | Clight.Sgoto _ -> + stmt + | Clight.Sassign (e1, e2) -> Clight.Sassign (e1, e2) + | Clight.Scall (eopt, f, args) -> stmt + | Clight.Ssequence (s1, s2) -> + Clight.Ssequence (instrument_body stack_incr stack_size s1, + instrument_body stack_incr stack_size s2) + | Clight.Sifthenelse (e, s1, s2) -> + let s1' = instrument_body stack_incr stack_size s1 in + let s2' = instrument_body stack_incr stack_size s2 in + Clight.Sifthenelse (e, s1', s2') + | Clight.Swhile (e, s) -> + let s' = instrument_body stack_incr stack_size s in + Clight.Swhile (e, s') + | Clight.Sdowhile (e, s) -> + let s' = instrument_body stack_incr stack_size s in + Clight.Sdowhile (e, s') + | Clight.Sfor (s1, e, s2, s3) -> + let s1' = instrument_body stack_incr stack_size s1 in + let s2' = instrument_body stack_incr stack_size s2 in + let s3' = instrument_body stack_incr stack_size s3 in + Clight.Sfor (s1', e, s2', s3') + | Clight.Sreturn _ -> + let fun_typ = Clight.Tfunction ([int_typ], Clight.Tvoid) in + let f = Clight.Expr (Clight.Evar stack_incr, fun_typ) in + let ss = Clight.Expr (Clight.Econst_int stack_size, int_typ) in + let args = [Clight.Expr (Clight.Eunop(Clight.Oneg,ss),int_typ)] in + Clight.Ssequence (Clight.Scall (None, f, args), stmt) + | Clight.Sswitch (e, ls) -> + let ls' = instrument_ls stack_incr stack_size ls in + Clight.Sswitch (e, ls') + | Clight.Slabel (lbl, s) -> + let s' = instrument_body stack_incr stack_size s in + Clight.Slabel (lbl, s') + | Clight.Scost (lbl, s) -> + (* Keep the cost label in the code. *) + let s' = instrument_body stack_incr stack_size s in + Clight.Scost (lbl, s') + (* + instrument_body stack_incr s + *) +and instrument_ls stack_incr stack_size = function + | Clight.LSdefault s -> + let s' = instrument_body stack_incr stack_size s in + Clight.LSdefault s' + | Clight.LScase (i, s, ls) -> + let s' = instrument_body stack_incr stack_size s in + let ls' = instrument_ls stack_incr stack_size ls in + Clight.LScase (i, s', ls') + +(* Instrument a function. *) + +let instrument_funct stack_incr (id, def) = + let def = match def with + | Clight.Internal def -> + let stack_size = get_stack_size id in + let body = instrument_body stack_incr + stack_size def.Clight.fn_body in + let body = + let fun_typ = Clight.Tfunction ([int_typ], Clight.Tvoid) in + let f = Clight.Expr (Clight.Evar stack_incr, fun_typ) in + let args = [Clight.Expr (Clight.Econst_int stack_size, int_typ)] in + Clight.Ssequence (Clight.Scall (None, f, args), body) in + Clight.Internal { def with Clight.fn_body = body } + | Clight.External _ -> def + in + (id, def) + +(* This is the declaration of the cost variable. *) + +let add_stack_decl stack_id = + let init = [Clight.Init_int32 0] in + ((stack_id, init), int_typ) + +(* This is the definition of the increment cost function. *) + +let stack_incr_def stack_id_max stack_id stack_incr = + let int_var x = Clight.Expr (Clight.Evar x, int_typ) in + let param = "incr" in + let cost = int_var stack_id in + let cost_max = int_var stack_id_max in + let increment = int_var param in + let stack_increment = + Clight.Expr (Clight.Ebinop (Clight.Oadd, cost, increment), int_typ) in + let stmt1 = Clight.Sassign (cost, stack_increment) in + let stack_max = + Clight.Expr ( + Clight.Econdition( + Clight.Expr (Clight.Ebinop (Clight.Olt, cost_max, cost), int_typ), + cost,cost_max), int_typ) in + let stmt2 = Clight.Sassign (cost_max, stack_max) in + let cfun = + { Clight.fn_return = Clight.Tvoid ; + Clight.fn_params = [(param, int_typ)] ; + Clight.fn_vars = [] ; + Clight.fn_body = Clight.Ssequence(stmt1,stmt2) } in + (stack_incr, Clight.Internal cfun) + +(* Create a fresh uninitialized cost variable for each external function. This + will be used by the Cost plug-in of the Frama-C platform. *) + +let extern_stack_variables make_unique functs = + let prefix = "_stack_of_" in + let f (decls, map) (_, def) = match def with + | Clight.Internal _ -> (decls, map) + | Clight.External (id, _, _) -> + let new_var = make_unique (prefix ^ id) in + (decls @ [add_stack_decl new_var], StringTools.Map.add id new_var map) in + List.fold_left f ([], StringTools.Map.empty) functs + +let save_tmp tmp_file s = + let cout = open_out tmp_file in + output_string cout s ; + flush cout ; + close_out cout + +(** [instrument prog stack_map] instruments the program [prog]. First a fresh + global variable --- the so-called cost variable --- is added to the program. + Then, each cost label in the program is replaced by an increment of the cost + variable, following the mapping [stack_map]. The function also returns the + name of the cost variable and the name of the cost increment function. *) + +let instrument cost_incr p = + + (* Create a fresh 'cost' variable. *) + let names = ClightAnnotator.names p in + let make_unique = StringTools.make_unique names in + let stack_id = make_unique stack_id_prefix in + let stack_max_id = make_unique stack_max_id_prefix in + let stack_decl = add_stack_decl stack_id in + let stack_max_decl = add_stack_decl stack_max_id in + + (* Create a fresh uninitialized global variable for each extern function. *) + let (extern_stack_decls, extern_stack_variables) = + extern_stack_variables make_unique p.Clight.prog_funct in + + (* Define an increment function for the cost variable. *) + let stack_incr = + StringTools.Gen.fresh_prefix (StringTools.Set.add stack_id names) + stack_incr_prefix in + let stack_incr_def = stack_incr_def stack_max_id stack_id stack_incr in + + (* Instrument each function *) + let prog_funct = + List.map (fun ((id,_) as a) -> + if id = cost_incr then a else instrument_funct stack_incr a) + p.Clight.prog_funct in + + (* Glue all this together. *) + let prog_vars = stack_decl :: stack_max_decl + :: extern_stack_decls @ p.Clight.prog_vars in + let prog_funct = stack_incr_def :: prog_funct in + let p' = + { p with Clight.prog_vars = prog_vars ; Clight.prog_funct = prog_funct } in + + (* Save the resulted program. Then re-parse it. + Indeed, the instrumentation may add side-effects in expressions, which is + not Clight compliant. Re-parsing the result with CIL will remove these + side-effects in expressions to obtain a Clight program. *) + let output = ClightPrinter.print_program p' in + let res = ClightParser.process (`Source ("annotated", output)) in + (res, stack_id, stack_max_id, stack_incr, extern_stack_variables) diff --git a/src/checker.ml b/src/checker.ml new file mode 100644 index 0000000..6677da1 --- /dev/null +++ b/src/checker.ml @@ -0,0 +1,31 @@ +let same_traces (traces : ((Languages.ast * AST.trace) list)) = + let compare_trace trace1 trace2 = + let occs_trace1 = Misc.ListExt.multi_set_of_list trace1 + and occs_trace2 = Misc.ListExt.multi_set_of_list trace2 in + Misc.ListExt.assoc_diff occs_trace1 occs_trace2 + in + let check_trace (_, (_, trace1)) (_, (_, trace2)) = + compare_trace trace1 trace2 = [] + in + let print_trace lang1 lang2 ds = + let string_of_value = function + | None -> "is not present" + | Some v -> Printf.sprintf "appears %d times" v + in + let sentence (k, (v1, v2)) = + Printf.sprintf " Label %s %s in language `%s' \ + whereas it %s in language `%s'." + k (string_of_value v1) lang1 (string_of_value v2) lang2 + in + String.concat "\n" (List.map sentence ds) + in + match Misc.ListExt.transitive_forall2 check_trace traces with + | None -> () + | Some ((ast1, (res1, trace1)), (ast2, (res2, trace2))) -> + let lang1 = Languages.to_string (Languages.language_of_ast ast1) + and lang2 = Languages.to_string (Languages.language_of_ast ast2) in + let diff = compare_trace trace1 trace2 in + Error.global_error "during trace comparison" + (Printf.sprintf + "The traces of two intermediate programs differ:\n%s" + (print_trace lang1 lang2 diff)) diff --git a/src/checker.mli b/src/checker.mli new file mode 100644 index 0000000..85ff2d7 --- /dev/null +++ b/src/checker.mli @@ -0,0 +1,5 @@ +(** This module offers functions for dynamic verification of invariants. *) + +(** [same_traces ts] checks that the collected execution traces are + identical (modulo permutation). *) +val same_traces : (Languages.ast * AST.trace) list -> unit diff --git a/src/clight/clight.mli b/src/clight/clight.mli new file mode 100644 index 0000000..54dd7d8 --- /dev/null +++ b/src/clight/clight.mli @@ -0,0 +1,193 @@ +(** This module defines the abstract syntax tree of [Clight]. + + This is a (quasi-)direct translation of the Coq definition that + can be found in the CompCert development. *) + +open AST + +(** ** Types *) + +type intsize = I8 | I16 | I32 + +type floatsize = F32 | F64 + +(** The syntax of type expressions. Some points to note: + - Array types [Tarray n] carry the size [n] of the array. + Arrays with unknown sizes are represented by pointer types. + - Function types [Tfunction targs tres] specify the number and types + of the function arguments (list [targs]), and the type of the + function result ([tres]). Variadic functions and old-style unprototyped + functions are not supported. + - In C, struct and union types are named and compared by name. + This enables the definition of recursive struct types such as + {[ + struct s1 { int n; struct * s1 next; }; + ]} + Note that recursion within types must go through a pointer type. + For instance, the following is not allowed in C. + {[ + struct s2 { int n; struct s2 next; }; + ]} + In Clight, struct and union types [Tstruct id fields] and + [Tunion id fields] are compared by structure: the [fields] + argument gives the names and types of the members. The AST_common.identifier + [id] is a local name which can be used in conjuction with the + [Tcomp_ptr] constructor to express recursive types. [Tcomp_ptr id] + stands for a pointer type to the nearest enclosing [Tstruct] + or [Tunion] type named [id]. For instance. the structure [s1] + defined above in C is expressed by + {[ + Tstruct "s1" (Fcons "n" (Tint I32 Signed) + (Fcons "next" (Tcomp_ptr "s1") + Fnil)) + ]} + Note that the incorrect structure [s2] above cannot be expressed at + all, since [Tcomp_ptr] lets us refer to a pointer to an enclosing + structure or union, but not to the structure or union directly. + *) + +type ctype = + | Tvoid (**r the [void] type *) + | Tint of intsize*signedness (**r integer types *) + | Tfloat of floatsize (**r floating-point types *) + | Tpointer of ctype (**r pointer types ([*ty]) *) + | Tarray of ctype*int (**r array types ([ty[len]]) *) + | Tfunction of ctype list*ctype (**r function types *) + | Tstruct of ident*(ident*ctype) list + (**r struct types *) + | Tunion of ident*(ident*ctype) list + (**r union types *) + | Tcomp_ptr of ident (**r pointer to named struct or union *) + +(** ** Expressions *) + +(** Arithmetic and logical operators. *) + +type unary_operation = + | Onotbool (**r boolean negation ([!] in C) *) + | Onotint (**r integer complement ([~] in C) *) + | Oneg (**r opposite (unary [-]) *) + +type binary_operation = + | Oadd (**r addition (binary [+]) *) + | Osub (**r subtraction (binary [-]) *) + | Omul (**r multiplication (binary [*]) *) + | Odiv (**r division ([/]) *) + | Omod (**r remainder ([%]) *) + | Oand (**r bitwise and ([&]) *) + | Oor (**r bitwise or ([|]) *) + | Oxor (**r bitwise xor ([^]) *) + | Oshl (**r left shift ([<<]) *) + | Oshr (**r right shift ([>>]) *) + | Oeq (**r comparison ([==]) *) + | One (**r comparison ([!=]) *) + | Olt (**r comparison ([<]) *) + | Ogt (**r comparison ([>]) *) + | Ole (**r comparison ([<=]) *) + | Oge (**r comparison ([>=]) *) + +(** Clight expressions are a large subset of those of C. + The main omissions are string literals and assignment operators + ([=], [+=], [++], etc). In Clight, assignment is a statement, + not an expression. + + All expressions are annotated with their types. An expression + (type [expr]) is therefore a pair of a type and an expression + description (type [expr_descr]). + *) + +type expr = + | Expr of expr_descr*ctype + + and expr_descr = + | Econst_int of int (**r integer literal *) + | Econst_float of float (**r float literal *) + | Evar of ident (**r variable *) + | Ederef of expr (**r pointer dereference (unary [*]) *) + | Eaddrof of expr (**r address-of operator ([&]) *) + | Eunop of unary_operation*expr (**r unary operation *) + | Ebinop of binary_operation*expr*expr (**r binary operation *) + | Ecast of ctype*expr (**r type cast ([(ty) e]) *) + | Econdition of expr*expr*expr (**r conditional ([e1 ? e2 : e3]) *) + | Eandbool of expr*expr (**r sequential and ([&&]) *) + | Eorbool of expr*expr (**r sequential or ([||]) *) + | Esizeof of ctype (**r size of a type *) + | Efield of expr*ident (**r access to a member of a struct or union *) + + (** The following constructors are used by the annotation process only. *) + + | Ecost of CostLabel.t*expr (**r cost label. *) + | Ecall of ident * expr * expr + + +(** ** Statements *) + +(** Clight statements include all C statements. + Only structured forms of [switch] are supported; moreover, + the [default] case must occur last. Blocks and block-scoped declarations + are not supported. *) + +type label = Label.t + +type statement = + | Sskip (**r do nothing *) + | Sassign of expr*expr (**r assignment [lvalue = rvalue] *) + | Scall of expr option*expr*expr list (**r function call *) + | Ssequence of statement*statement (**r sequence *) + | Sifthenelse of expr*statement*statement (**r conditional *) + | Swhile of expr*statement (**r [while] loop *) + | Sdowhile of expr*statement (**r [do] loop *) + | Sfor of statement*expr*statement*statement (**r [for] loop *) + | Sbreak (**r [break] statement *) + | Scontinue (**r [continue] statement *) + | Sreturn of expr option (**r [return] statement *) + | Sswitch of expr*labeled_statements (**r [switch] statement *) + | Slabel of label*statement + | Sgoto of label + | Scost of CostLabel.t * statement + +and labeled_statements = (**r cases of a [switch] *) + | LSdefault of statement + | LScase of int*statement*labeled_statements + +(** ** Functions *) + +(** A function definition is composed of its return type ([fn_return]), + the names and types of its parameters ([fn_params]), the names + and types of its local variables ([fn_vars]), and the body of the + function (a statement, [fn_body]). *) + +type cfunction = { + fn_return : ctype ; + fn_params : (ident*ctype) list ; + fn_vars : (ident * ctype) list ; + fn_body : statement +} + +(** Functions can either be defined ([Internal]) or declared as + external functions ([External]). *) + +type fundef = + | Internal of cfunction + | External of ident*ctype list*ctype + +(** ** Programs *) + +(** A program is a collection of named functions, plus a collection + of named global variables, carrying their types and optional initialization + data. See module [AST] for more details. *) + +type init_data = + | Init_int8 of int + | Init_int16 of int + | Init_int32 of int + | Init_float32 of float + | Init_float64 of float + | Init_space of int + | Init_addrof of ident*int (**r address of symbol + offset *) + +type program = { + prog_funct: (ident * fundef) list ; + prog_main: ident option; + prog_vars: ((ident * init_data list) * ctype) list +} diff --git a/src/clight/clight32ToClight8.ml b/src/clight/clight32ToClight8.ml new file mode 100644 index 0000000..491ba74 --- /dev/null +++ b/src/clight/clight32ToClight8.ml @@ -0,0 +1,675 @@ + +(** This module performs a transformation of a [Clight] program with potentially + 32 and 16 bits integers to an equivalent [Clight] program that only uses 8 + bits integers. + + The main changes are: defining two types that represent 32 and 16 bits + integers with a structure of 8 bits integers, making the substitution, + replacing primitive integer operations on 32 and 16 bits integers with new + functions emulating them on the new types, and finally defining a global + variable for each 32 and 16 bits integer constant, which is then replaced by + its associated variable. *) + + +let error_prefix = "Clight32 to Clight8" +let error s = Error.global_error error_prefix s + + +let cint32s = Clight.Tint (Clight.I32, AST.Signed) +let cint32u = Clight.Tint (Clight.I32, AST.Unsigned) +let cint8s = Clight.Tint (Clight.I8, AST.Signed) +let cint8u = Clight.Tint (Clight.I8, AST.Unsigned) + + +(* Change the main so that it returns a 8 bits integer. Indeed, 32 bits integers + will be replaced by structures, and returning a structure from the main is + not Clight compliant. *) + +let main_ret_type = function + | Clight.Tint (_, AST.Signed) -> cint8s + | Clight.Tint (_, AST.Unsigned) -> cint8u + | _ -> error "The main should return an integer which is not the case." + +let f_ctype ctype _ = ctype +let f_expr e _ _ = e +let f_expr_descr ed _ _ = ed + +let f_stmt ret_type stmt sub_exprs_res sub_stmts_res = + match stmt, sub_exprs_res with + | Clight.Sreturn (Some _), e :: _ -> + let e' = Clight.Expr (Clight.Ecast (ret_type, e), ret_type) in + Clight.Sreturn (Some e') + | _ -> ClightFold.statement_fill_subs stmt sub_exprs_res sub_stmts_res + +let body_returns ret_type = + ClightFold.statement f_ctype f_expr f_expr_descr (f_stmt ret_type) + +let fundef_returns_char = function + | Clight.Internal cfun -> + let ret_type = main_ret_type cfun.Clight.fn_return in + let body = body_returns ret_type cfun.Clight.fn_body in + Clight.Internal {cfun with Clight.fn_return = ret_type ; + Clight.fn_body = body } + | Clight.External _ as fundef -> fundef + +let main_returns_char p = match p.Clight.prog_main with + | None -> p + | Some main -> + let main_def = List.assoc main p.Clight.prog_funct in + let main_def = fundef_returns_char main_def in + let prog_funct = + MiscPottier.update_list_assoc main main_def p.Clight.prog_funct in + { p with Clight.prog_funct = prog_funct } + + +(* Replacement *) + +let seq = + List.fold_left + (fun stmt1 stmt2 -> Clight.Ssequence (stmt1, stmt2)) + Clight.Sskip + +let is_complex = function + | Clight.Tstruct _ | Clight.Tunion _ -> true + | _ -> false + +let is_subst_complex type_substitutions res_type = + if List.mem_assoc res_type type_substitutions then + is_complex (List.assoc res_type type_substitutions) + else false + +let addrof_with_type e ctype = + let ctype = Clight.Tpointer ctype in + (Clight.Expr (Clight.Eaddrof e, ctype), ctype) + +let address_if_subst_complex type_substitutions = + let f l (e, ctype) = + let arg_and_type = + if is_subst_complex type_substitutions ctype then addrof_with_type e ctype + else (e, ctype) in + l @ [arg_and_type] in + List.fold_left f [] + +let make_call_struct tmpe res_type f_var args args_types = + let (res_e, res_type) = addrof_with_type tmpe res_type in + let f_type = Clight.Tfunction (res_type :: args_types, Clight.Tvoid) in + let f = Clight.Expr (f_var, f_type) in + Clight.Scall (None, f, res_e :: args) + +let make_call_wo_struct tmpe res_type f_var args args_types = + let f_type = Clight.Tfunction (args_types, res_type) in + let f = Clight.Expr (f_var, f_type) in + Clight.Scall (Some tmpe, f, args) + +let make_call type_substitutions tmp f_id args_with_types res_type = + let tmpe = Clight.Expr (Clight.Evar tmp, res_type) in + let args_with_types = + address_if_subst_complex type_substitutions args_with_types in + let (args, args_types) = List.split args_with_types in + let f_var = Clight.Evar f_id in + let call = + if is_subst_complex type_substitutions res_type then make_call_struct + else make_call_wo_struct in + (tmpe, call tmpe res_type f_var args args_types) + +let call fresh replaced type_substitutions replacement_assoc + args added_stmt added_tmps ret_type = + let tmp = fresh () in + let replacement_fun_name = List.assoc replaced replacement_assoc in + let (tmpe, call) = + make_call type_substitutions tmp replacement_fun_name args ret_type in + let stmt = seq (added_stmt @ [call]) in + (tmpe, stmt, added_tmps @ [(tmp, ret_type)]) + +let replace_ident replacement_assoc x t = + let new_name = match t with + | Clight.Tfunction _ + when List.mem_assoc (Runtime.Fun x) replacement_assoc -> + let replacement_fun_name = List.assoc (Runtime.Fun x) replacement_assoc in + replacement_fun_name + | _ -> x in + (Clight.Expr (Clight.Evar new_name, t), Clight.Sskip, []) + +let replace_expression fresh type_substitutions replacement_assoc e = + + let rec aux (Clight.Expr (ed, t) as e) = + let expr ed = Clight.Expr (ed, t) in + match ed with + + | Clight.Econst_int _ | Clight.Econst_float _ | Clight.Esizeof _ -> + (e, Clight.Sskip, []) + + | Clight.Evar x -> replace_ident replacement_assoc x t + + | Clight.Ederef e' -> + let (e', stmt, tmps) = aux e' in + (expr (Clight.Ederef e'), stmt, tmps) + + | Clight.Eaddrof e' -> + let (e', stmt, tmps) = aux e' in + (expr (Clight.Eaddrof e'), stmt, tmps) + + | Clight.Eunop (unop, (Clight.Expr (ed', t') as e')) + when List.mem_assoc (Runtime.Unary (unop, t')) replacement_assoc -> + let (e', stmt, tmps) = aux e' in + call fresh (Runtime.Unary (unop, t')) + type_substitutions replacement_assoc [(e', t')] + [stmt] tmps t + + | Clight.Eunop (unop, e') -> + let (e', stmt, tmps) = aux e' in + (expr (Clight.Eunop (unop, e')), stmt, tmps) + + | Clight.Ebinop (binop, + (Clight.Expr (ed1, t1) as e1), + (Clight.Expr (ed2, t2) as e2)) + when + List.mem_assoc (Runtime.Binary (binop, t1, t2)) replacement_assoc -> + let (e1, stmt1, tmps1) = aux e1 in + let (e2, stmt2, tmps2) = aux e2 in + call fresh (Runtime.Binary (binop, t1, t2)) + type_substitutions replacement_assoc + [(e1, t1) ; (e2, t2)] [stmt1 ; stmt2] (tmps1 @ tmps2) t + + | Clight.Ebinop (binop, e1, e2) -> + let (e1, stmt1, tmps1) = aux e1 in + let (e2, stmt2, tmps2) = aux e2 in + let stmt = seq [stmt1 ; stmt2] in + (expr (Clight.Ebinop (binop, e1, e2)), stmt, tmps1 @ tmps2) + + | Clight.Ecast (t, (Clight.Expr (_, t') as e')) + when List.mem_assoc (Runtime.Cast (t, t')) replacement_assoc -> + let (e', stmt, tmps) = aux e' in + call fresh (Runtime.Cast (t, t')) + type_substitutions replacement_assoc [(e', t')] [stmt] + tmps t + + | Clight.Ecast (t', e') -> + let (e', stmt, tmps) = aux e' in + (expr (Clight.Ecast (t', e')), stmt, tmps) + + | Clight.Econdition (e1, e2, e3) -> + let (e1, stmt1, tmps1) = aux e1 in + let (e2, stmt2, tmps2) = aux e2 in + let (e3, stmt3, tmps3) = aux e3 in + let stmt = seq [stmt1 ; stmt2 ; stmt3] in + (expr (Clight.Econdition (e1, e2, e3)), stmt, tmps1 @ tmps2 @ tmps3) + + | Clight.Eandbool (e1, e2) -> + let (e1, stmt1, tmps1) = aux e1 in + let (e2, stmt2, tmps2) = aux e2 in + let stmt = seq [stmt1 ; stmt2] in + (expr (Clight.Eandbool (e1, e2)), stmt, tmps1 @ tmps2) + + | Clight.Eorbool (e1, e2) -> + let (e1, stmt1, tmps1) = aux e1 in + let (e2, stmt2, tmps2) = aux e2 in + let stmt = seq [stmt1 ; stmt2] in + (expr (Clight.Eorbool (e1, e2)), stmt, tmps1 @ tmps2) + + | Clight.Efield (e', field) -> + let (e', stmt, tmps) = aux e' in + (expr (Clight.Efield (e', field)), stmt, tmps) + + | Clight.Ecost (lbl, e') -> + let (e', stmt, tmps) = aux e' in + (expr (Clight.Ecost (lbl, e')), stmt, tmps) + + | Clight.Ecall (id, e1, e2) -> + let (e1, stmt1, tmps1) = aux e1 in + let (e2, stmt2, tmps2) = aux e2 in + let stmt = seq [stmt1 ; stmt2] in + (expr (Clight.Ecall (id, e1, e2)), stmt, tmps1 @ tmps2) + + in + aux e + + +let replace_expression_list fresh type_substitutions replacement_assoc = + let f (l, stmt, tmps) e = + let (e', stmt', tmps') = + replace_expression fresh type_substitutions replacement_assoc e in + (l @ [e'], seq [stmt ; stmt'], tmps @ tmps') in + List.fold_left f ([], Clight.Sskip, []) + + +let replace_statement fresh type_substitutions replacement_assoc = + let aux_exp = + replace_expression fresh type_substitutions replacement_assoc in + let aux_exp_list = + replace_expression_list fresh type_substitutions replacement_assoc in + + let rec aux = function + + | Clight.Sskip | Clight.Sbreak | Clight.Scontinue | Clight.Sgoto _ + | Clight.Sreturn None + as stmt -> (stmt, []) + + | Clight.Slabel (lbl, stmt) -> + let (stmt', tmps) = aux stmt in + (Clight.Slabel (lbl, stmt'), tmps) + + | Clight.Scost (lbl, stmt) -> + let (stmt', tmps) = aux stmt in + (Clight.Scost (lbl, stmt'), tmps) + + | Clight.Sassign (e1, e2) -> + let (e1', stmt1, tmps1) = aux_exp e1 in + let (e2', stmt2, tmps2) = aux_exp e2 in + let stmt = seq [stmt1 ; stmt2 ; Clight.Sassign (e1', e2')] in + (stmt, tmps1 @ tmps2) + + | Clight.Scall (None, f, args) -> + let (f', stmt1, tmps1) = aux_exp f in + let (args', stmt2, tmps2) = aux_exp_list args in + let stmt = seq [stmt1 ; stmt2 ; Clight.Scall (None, f', args')] in + (stmt, tmps1 @ tmps2) + + | Clight.Scall (Some e, f, args) -> + let (e', stmt1, tmps1) = aux_exp e in + let (f', stmt2, tmps2) = aux_exp f in + let (args', stmt3, tmps3) = aux_exp_list args in + let stmt = seq [stmt1 ; stmt2 ; stmt3 ; + Clight.Scall (Some e', f', args')] in + (stmt, tmps1 @ tmps2 @ tmps3) + + | Clight.Sifthenelse (e, stmt1, stmt2) -> + let (e', stmte, tmpse) = aux_exp e in + let (stmt1', tmps1) = aux stmt1 in + let (stmt2', tmps2) = aux stmt2 in + let stmt = seq [stmte ; Clight.Sifthenelse (e', stmt1', stmt2')] in + (stmt, tmpse @ tmps1 @ tmps2) + + | Clight.Swhile (e, stmt) -> + let (e', stmte, tmpse) = aux_exp e in + let (stmt', tmps) = aux stmt in + let stmt = seq [stmte ; Clight.Swhile (e', seq [stmt' ; stmte])] in + (stmt, tmpse @ tmps) + + | Clight.Sdowhile (e, stmt) -> + let (e', stmte, tmpse) = aux_exp e in + let (stmt', tmps) = aux stmt in + let stmt = seq [Clight.Sdowhile (e', seq [stmt' ; stmte])] in + (stmt, tmpse @ tmps) + + | Clight.Sfor (stmt1, e, stmt2, stmt3) -> + let (e', stmte, tmpse) = aux_exp e in + let (stmt1', tmps1) = aux stmt1 in + let (stmt2', tmps2) = aux stmt2 in + let (stmt3', tmps3) = aux stmt3 in + let stmt = seq [stmt1' ; stmte ; + Clight.Swhile (e', seq [stmt3' ; stmt2' ; stmte])] in + (stmt, tmpse @ tmps1 @ tmps2 @ tmps3) + + | Clight.Sswitch (e, lbl_stmts) -> + let (e', stmte, tmpse) = aux_exp e in + let (lbl_stmts', tmps) = aux_lbl_stmts lbl_stmts in + let stmt = seq [stmte ; Clight.Sswitch (e', lbl_stmts')] in + (stmt, tmpse @ tmps) + + | Clight.Sreturn (Some e) -> + let (e', stmte, tmpse) = aux_exp e in + let stmt = seq [stmte ; Clight.Sreturn (Some e')] in + (stmt, tmpse) + + | Clight.Ssequence (stmt1, stmt2) -> + let (stmt1', tmps1) = aux stmt1 in + let (stmt2', tmps2) = aux stmt2 in + let stmt = seq [stmt1' ; stmt2'] in + (stmt, tmps1 @ tmps2) + + and aux_lbl_stmts = function + + | Clight.LSdefault stmt -> + let (stmt', tmps) = aux stmt in + (Clight.LSdefault stmt', tmps) + + | Clight.LScase (i, stmt, lbl_stmts) -> + let (stmt', tmps1) = aux stmt in + let (lbl_stmts', tmps2) = aux_lbl_stmts lbl_stmts in + (Clight.LScase (i, stmt', lbl_stmts'), tmps1 @ tmps2) + + in + + aux + + +let f_ctype type_substitutions ctype sub_ctypes_res = match ctype with + | _ when List.mem_assoc ctype type_substitutions -> + List.assoc ctype type_substitutions + | _ -> ClightFold.ctype_fill_subs ctype sub_ctypes_res + +let replace_ctype type_substitutions = + ClightFold.ctype (f_ctype type_substitutions) + +let f_expr = ClightFold.expr_fill_subs + +let f_expr_descr = ClightFold.expr_descr_fill_subs + +let f_stmt = ClightFold.statement_fill_subs + +let statement_replace_ctype type_substitutions = + ClightFold.statement (f_ctype type_substitutions) f_expr f_expr_descr f_stmt + + +let replace_internal fresh type_substitutions replacement_assoc def = + let (new_body, tmps) = + replace_statement fresh type_substitutions replacement_assoc + def.Clight.fn_body in + let new_body = statement_replace_ctype type_substitutions new_body in + let f (x, t) = (x, replace_ctype type_substitutions t) in + let params = List.map f def.Clight.fn_params in + let vars = List.map f (def.Clight.fn_vars @ tmps) in + { Clight.fn_return = replace_ctype type_substitutions def.Clight.fn_return ; + Clight.fn_params = params ; + Clight.fn_vars = vars ; + Clight.fn_body = new_body } + +let replace_funct fresh type_substitutions replacement_assoc (id, fundef) = + let fundef' = match fundef with + | Clight.Internal def -> + Clight.Internal + (replace_internal fresh type_substitutions replacement_assoc def) + | _ -> fundef in + (id, fundef') + +let replace fresh type_substitutions replacement_assoc p = + let prog_funct = + List.map (replace_funct fresh type_substitutions replacement_assoc) + p.Clight.prog_funct in + { p with Clight.prog_funct = prog_funct } + + +(* The constant replacement replaces each 32 bits and 16 bits integer constant + by a global variable of the same value. They will be replaced by the + appropriate structural value by the global replacement that comes + afterwards. *) + +module CstMap = + Map.Make + (struct + type t = (int * Clight.intsize * Clight.ctype) + let compare = Pervasives.compare + end) + +let f_subs fresh replace subs map = + let f (l, map) x = + let (x, map) = replace fresh map x in + (l @ [x], map) in + List.fold_left f ([], map) subs + +let rec replace_constant_expr fresh map (Clight.Expr (ed, t) as e) = + match ed, t with + | Clight.Econst_int i, Clight.Tint (Clight.I8, _) -> + (e, map) + | Clight.Econst_int i, Clight.Tint (size, _) + when CstMap.mem (i, size, t) map -> + let id = CstMap.find (i, size, t) map in + (Clight.Expr (Clight.Evar id, t), map) + | Clight.Econst_int i, Clight.Tint (size, _) -> + let id = fresh () in + let map = CstMap.add (i, size, t) id map in + let id = CstMap.find (i, size, t) map in + (Clight.Expr (Clight.Evar id, t), map) + | _ -> + let (sub_ctypes, sub_exprs) = ClightFold.expr_descr_subs ed in + let (sub_exprs, map) = f_subs fresh replace_constant_expr sub_exprs map in + let ed = ClightFold.expr_descr_fill_subs ed sub_ctypes sub_exprs in + (Clight.Expr (ed, t), map) + +let rec replace_constant_stmt fresh map stmt = + let (sub_exprs, sub_stmts) = ClightFold.statement_subs stmt in + let (sub_exprs, map) = + f_subs fresh replace_constant_expr sub_exprs map in + let (sub_stmts, map) = + f_subs fresh replace_constant_stmt sub_stmts map in + (ClightFold.statement_fill_subs stmt sub_exprs sub_stmts, map) + +let replace_constant_fundef fresh (functs, map) (id, fundef) = + match fundef with + | Clight.Internal cfun -> + let (body, map) = replace_constant_stmt fresh map cfun.Clight.fn_body in + let fundef = Clight.Internal { cfun with Clight.fn_body = body } in + (functs @ [(id, fundef)], map) + | Clight.External _ -> (functs @ [(id, fundef)], map) + +let init_datas i size = + [match size with + | Clight.I8 -> Clight.Init_int8 i + | Clight.I16 -> Clight.Init_int16 i + | Clight.I32 -> Clight.Init_int32 i] + +let globals_of_map map = + let f (i, size, t) id l = l @ [((id, init_datas i size), t)] in + CstMap.fold f map [] + +let replace_constant p = + let tmp_universe = ClightAnnotator.fresh_universe "_cst" p in + let fresh () = StringTools.Gen.fresh tmp_universe in + let (functs, map) = + List.fold_left (replace_constant_fundef fresh) + ([], CstMap.empty) p.Clight.prog_funct in + let csts = globals_of_map map in + { p with + Clight.prog_funct = functs ; Clight.prog_vars = p.Clight.prog_vars @ csts } + + +(* Globals replacement *) + +let expand_int size i = + let i = Big_int.big_int_of_int i in + let i = + if Big_int.ge_big_int i Big_int.zero_big_int then i + else Big_int.add_big_int i (Big_int.power_int_positive_int 2 size) in + let bound = Big_int.power_int_positive_int 2 8 in + let rec aux n i = + if n >= size then [] + else + let (next, chunk) = Big_int.quomod_big_int i bound in + chunk :: (aux (n+1) next) in + List.map (fun i -> Clight.Init_int8 (Big_int.int_of_big_int i)) (aux 0 i) + +let expand_init_data = function + | Clight.Init_int16 i -> expand_int 2 i + | Clight.Init_int32 i -> expand_int 4 i + | init_data -> [init_data] + +let expand_init_datas init_datas = + List.flatten (List.map expand_init_data init_datas) + +let replace_global type_substitutions ((id, init_datas), t) = + let init_datas = expand_init_datas init_datas in + ((id, init_datas), replace_ctype type_substitutions t) + +let replace_globals type_substitutions p = + let vars = List.map (replace_global type_substitutions) p.Clight.prog_vars in + { p with Clight.prog_vars = vars } + + +(* Unsupported operations by the 8051. *) + +(* 8 bits signed division *) + +let divs_fun s _ = + "signed char " ^ s ^ " (signed char x, signed char y) {\n" ^ + " unsigned char x1 = (unsigned char) x;\n" ^ + " unsigned char y1 = (unsigned char) y;\n" ^ + " signed char sign = 1;\n" ^ + " if (x < 0) { x1 = (unsigned char) (-x); sign = -sign; }\n" ^ + " if (y < 0) { y1 = (unsigned char) (-y); sign = -sign; }\n" ^ + " return (sign * ((signed char) (x1/y1)));\n" ^ + "}\n\n" + +let divs = + (Runtime.Binary (Clight.Odiv, cint8s, cint8s), "_divs", [], divs_fun, []) + + +(* 8 bits signed modulo *) + +let mods_fun s _ = + "signed char " ^ s ^ " (signed char x, signed char y) {\n" ^ + " return (x - (x/y) * y);\n" ^ + "}\n\n" + +let mods = + (Runtime.Binary (Clight.Omod, cint8s, cint8s), "_mods", [], mods_fun, + [Runtime.Binary (Clight.Odiv, cint8s, cint8s)]) + + +(* Shifts *) + +let sh_fun signedness op s _ = + signedness ^ " char " ^ s ^ " (" ^ signedness ^ " char x, " ^ + signedness ^ " char y) {\n" ^ + " " ^ signedness ^ " char res = x, i;\n" ^ + " for (i = 0 ; i < y ; i++) res = res " ^ op ^ " 2;\n" ^ + " return res;\n" ^ + "}\n\n" + +(* 8 bits shifts left *) + +let shls_fun = sh_fun "signed" "*" + +let shls = + (Runtime.Binary (Clight.Oshl, cint8s, cint8s), "_shls", [], shls_fun, []) + +let shlu_fun s _ = + "unsigned char " ^ s ^ " (unsigned char x, unsigned char y) {\n" ^ + " return ((unsigned char) ((signed char) x << (signed char) y));\n" ^ + "}\n\n" + +let shlu = + (Runtime.Binary (Clight.Oshl, cint8u, cint8u), "_shlu", [], shlu_fun, + [Runtime.Binary (Clight.Oshl, cint8s, cint8s)]) + +(* 8 bits shifts right *) + +let shrs_fun s _ = + "signed char " ^ s ^ " (signed char x, signed char y) {\n" ^ + " signed char res = x, i;\n" ^ + " for (i = 0 ; i < y ; i++) {\n" ^ + " res = ((unsigned char) res) / 2;\n" ^ + " res = res + ((signed char) 128);\n" ^ + " }\n" ^ + " return res;\n" ^ + "}\n\n" + +let shrs = + (Runtime.Binary (Clight.Oshr, cint8s, cint8s), "_shrs", [], shrs_fun, []) + +let shru_fun = sh_fun "unsigned" "/" + +let shru = + (Runtime.Binary (Clight.Oshr, cint8u, cint8u), "_shru", [], shru_fun, []) + + +(* int32 *) + +let struct_int32 name fields = match fields with + | lolo :: lohi :: hilo :: hihi :: _ -> + Clight.Tstruct + (name, + [(lolo, cint8u) ; (lohi, cint8u) ; (hilo, cint8u) ; (hihi, cint8u)]) + | _ -> error ("bad field names when defining type " ^ name ^ ".") + +let struct_int32_name = "struct _int32_" + +let new_int32 int32 = + let lolo = "lolo" in + let lohi = "lohi" in + let hilo = "hilo" in + let hihi = "hihi" in + (int32, struct_int32_name, [lolo ; lohi ; hilo ; hihi], struct_int32) + +let int32s = new_int32 (Clight.Tint (Clight.I32, AST.Signed)) +let int32u = new_int32 (Clight.Tint (Clight.I32, AST.Unsigned)) + +(* 32 bits operations *) + +(* 32 bits equality *) + +let eq_int32s_fun s l = + let (int32, lolo, lohi, hilo, hihi) = match l with + | (int32, lolo :: lohi :: hilo :: hihi :: _) :: _ -> + (int32, lolo, lohi, hilo, hihi) + | _ -> error ("new type definition not coherent in function " ^ s ^ ".") in + int32 ^ " " ^ s ^ " (" ^ int32 ^ " x, " ^ int32 ^ " y) {\n" ^ + " " ^ int32 ^ " res;\n" ^ + " res." ^ lolo ^ " = 1;\n" ^ + " if (x." ^ lolo ^ " != y." ^ lolo ^ ") res." ^ lolo ^ " = 0;\n" ^ + " if (x." ^ lohi ^ " != y." ^ lohi ^ ") res." ^ lolo ^ " = 0;\n" ^ + " if (x." ^ hilo ^ " != y." ^ hilo ^ ") res." ^ lolo ^ " = 0;\n" ^ + " if (x." ^ hihi ^ " != y." ^ hihi ^ ") res." ^ lolo ^ " = 0;\n" ^ + " res." ^ lohi ^ " = 0;\n" ^ + " res." ^ hilo ^ " = 0;\n" ^ + " res." ^ hihi ^ " = 0;\n" ^ + " return (res);\n" ^ + "}\n\n" + +let eq32s = + (Runtime.Binary (Clight.Oeq, cint32s, cint32s), "eq_int32s", + [struct_int32_name], eq_int32s_fun, []) + +(* 32 bits casts *) + +let int32s_to_int8s_fun s l = + let (int32, lolo, lohi, hilo, hihi) = match l with + | (int32, lolo :: lohi :: hilo :: hihi :: _) :: _ -> + (int32, lolo, lohi, hilo, hihi) + | _ -> error ("new type definition not coherent in function " ^ s ^ ".") in + "signed char " ^ s ^ " (" ^ int32 ^ " x) {\n" ^ + " return ((signed char) x." ^ lolo ^ ");\n" ^ + "}\n\n" + +let int32s_to_int8s = + (Runtime.Cast (cint8s, cint32s), "int32s_to_int8s", [struct_int32_name], + int32s_to_int8s_fun, []) + + +(* int16 *) + +let struct_int16 name fields = match fields with + | lo :: hi :: _ -> + Clight.Tstruct (name, [(lo, cint8u) ; (hi, cint8u)]) + | _ -> error ("bad field names when defining type " ^ name ^ ".") + +let struct_int16_name = "struct _int16_" + +let new_int16 int16 = + let lo = "lo" in + let hi = "hi" in + (int16, struct_int16_name, [lo ; hi], struct_int16) + +let int16s = new_int16 (Clight.Tint (Clight.I16, AST.Signed)) +let int16u = new_int16 (Clight.Tint (Clight.I16, AST.Unsigned)) + + +(* int32 and int16 *) + +let int32_and_int16_types = [int32s ; int32u ; int16s ; int16u] +let int32_and_int16_replacements = [eq32s ; int32s_to_int8s] + +let unsupported = [divs ; mods ; shls ; shlu ; shrs ; shru] + +let save_and_parse p = + ClightParser.process (`Source ("32to8", ClightPrinter.print_program p)) + +let add_replacements p new_types replacements = + let p = ClightCasts.simplify p in + let (p, type_substitutions, replacement_assoc) = + Runtime.add p new_types replacements in + let p = ClightCasts.simplify p in + let tmp_universe = ClightAnnotator.fresh_universe "_tmp" p in + let fresh () = StringTools.Gen.fresh tmp_universe in + let p = replace fresh type_substitutions replacement_assoc p in + let p = replace_globals type_substitutions p in + (* Printf.printf "%s\n%!" (ClightPrinter.print_program p) ; *) + let p = save_and_parse p in + ClightCasts.simplify p + +let translate p = + let p = main_returns_char p in + let p = replace_constant p in + let p = + add_replacements p int32_and_int16_types int32_and_int16_replacements in + add_replacements p [] unsupported diff --git a/src/clight/clight32ToClight8.mli b/src/clight/clight32ToClight8.mli new file mode 100644 index 0000000..0d912e6 --- /dev/null +++ b/src/clight/clight32ToClight8.mli @@ -0,0 +1,13 @@ + +(** This module performs a transformation of a [Clight] program with potentially + 32 and 16 bits integers to an equivalent [Clight] program that only uses 8 + bits integers. + + The main changes are: defining two types that represent 32 and 16 bits + integers with a structure of 8 bits integers, making the substitution, + replacing primitive integer operations on 32 and 16 bits integers with new + functions emulating them on the new types, and finally defining a global + variable for each 32 and 16 bits integer constant, which is then replaced by + its associated variable. *) + +val translate : Clight.program -> Clight.program diff --git a/src/clight/clightAnnotator.ml b/src/clight/clightAnnotator.ml new file mode 100644 index 0000000..bf479a5 --- /dev/null +++ b/src/clight/clightAnnotator.ml @@ -0,0 +1,362 @@ +(* This module provides an annotation function for Clight programs + when given the cost associated to each cost labels of the + program. *) + + +let error_prefix = "Clight Annotator" +let error = Error.global_error error_prefix + + +let cost_id_prefix = "__cost" +let cost_incr_prefix = "__cost_incr" + + +(* Program var and fun names, cost labels and labels *) + +let string_set_of_list l = + List.fold_left (fun res s -> StringTools.Set.add s res) + StringTools.Set.empty l + +let triple_union + (names1, cost_labels1, user_labels1) + (names2, cost_labels2, user_labels2) = + (StringTools.Set.union names1 names2, + CostLabel.Set.union cost_labels1 cost_labels2, + Label.Set.union user_labels1 user_labels2) + +let empty_triple = (StringTools.Set.empty, CostLabel.Set.empty, Label.Set.empty) + +let name_singleton id = + (StringTools.Set.singleton id, CostLabel.Set.empty, Label.Set.empty) + +let cost_label_singleton cost_lbl = + (StringTools.Set.empty, CostLabel.Set.singleton cost_lbl, Label.Set.empty) + +let label_singleton lbl = + (StringTools.Set.empty, CostLabel.Set.empty, Label.Set.singleton lbl) + +let list_union l = List.fold_left triple_union empty_triple l + +let f_ctype ctype sub_ctypes_res = + let res = match ctype with + | Clight.Tstruct (id, fields) | Clight.Tunion (id, fields) -> + (string_set_of_list (id :: (List.map fst fields)), + CostLabel.Set.empty, Label.Set.empty) + | Clight.Tcomp_ptr id -> name_singleton id + | _ -> empty_triple in + list_union (res :: sub_ctypes_res) + +let f_expr _ sub_ctypes_res sub_expr_descrs_res = + list_union (sub_ctypes_res @ sub_expr_descrs_res) + +let f_expr_descr ed sub_ctypes_res sub_exprs_res = + let res = match ed with + | Clight.Evar id | Clight.Efield (_, id) | Clight.Ecall (id, _, _) -> + name_singleton id + | Clight.Ecost (cost_lbl, _) -> cost_label_singleton cost_lbl + | _ -> empty_triple in + list_union (res :: (sub_ctypes_res @ sub_exprs_res)) + +let f_stmt stmt sub_exprs_res sub_stmts_res = + let stmt_res = match stmt with + | Clight.Slabel (lbl, _) | Clight.Sgoto lbl -> label_singleton lbl + | Clight.Scost (cost_lbl, _) -> cost_label_singleton cost_lbl + | _ -> empty_triple in + list_union (stmt_res :: (sub_exprs_res @ sub_stmts_res)) + +let body_idents = ClightFold.statement f_ctype f_expr f_expr_descr f_stmt + +let prog_idents p = + let def_idents = function + | Clight.Internal def -> + let vars = + string_set_of_list + (List.map fst (def.Clight.fn_params @ def.Clight.fn_vars)) in + let (names, cost_labels, user_labels) = + body_idents def.Clight.fn_body in + (StringTools.Set.union vars names, cost_labels, user_labels) + | Clight.External (id, _, _) -> + (StringTools.Set.singleton id, CostLabel.Set.empty, Label.Set.empty) in + let fun_idents (id, f_def) = + let (names, cost_labels, user_labels) = def_idents f_def in + (StringTools.Set.add id names, cost_labels, user_labels) in + let f idents def = triple_union idents (fun_idents def) in + List.fold_left f empty_triple p.Clight.prog_funct + +let names p = + let (names, _, _) = prog_idents p in names +let cost_labels p = + let (_, cost_labels, _) = prog_idents p in cost_labels +let user_labels p = + let (_, _, user_labels) = prog_idents p in user_labels + +let all_labels p = + let (_, cost_labels, user_labels) = prog_idents p in + let all = + CostLabel.Set.fold (fun lbl lbls -> StringTools.Set.add lbl lbls) + cost_labels StringTools.Set.empty in + Label.Set.fold (fun lbl lbls -> StringTools.Set.add lbl lbls) user_labels all + +let all_idents p = + let (names, cost_labels, user_labels) = prog_idents p in + let to_string_set fold set = + fold (fun lbl idents -> StringTools.Set.add lbl idents) set + StringTools.Set.empty in + let cost_labels = to_string_set CostLabel.Set.fold cost_labels in + let user_labels = to_string_set Label.Set.fold user_labels in + StringTools.Set.union names (StringTools.Set.union cost_labels user_labels) + +let fresh_ident base p = + StringTools.Gen.fresh_prefix (all_idents p) base + +let fresh_universe base p = + let universe = fresh_ident base p in + StringTools.Gen.new_universe universe + +let make_fresh base p = + let universe = fresh_universe base p in + (fun () -> StringTools.Gen.fresh universe) + + +(* Instrumentation *) + +let int_typ = Clight.Tint (Clight.I32, AST.Signed) + +let const_int i = Clight.Expr (Clight.Econst_int i, int_typ) + +(* Instrument an expression. *) + +let rec instrument_expr cost_mapping cost_incr e = + let Clight.Expr (e, t) = e in + match e with + | Clight.Ecost (lbl, e) + when CostLabel.Map.mem lbl cost_mapping && + CostLabel.Map.find lbl cost_mapping = 0 -> + e + | _ -> + let e' = instrument_expr_descr cost_mapping cost_incr e in + Clight.Expr (e', t) +and instrument_expr_descr cost_mapping cost_incr e = match e with + | Clight.Econst_int _ | Clight.Econst_float _ | Clight.Evar _ + | Clight.Esizeof _ -> e + | Clight.Ederef e -> + let e' = instrument_expr cost_mapping cost_incr e in + Clight.Ederef e' + | Clight.Eaddrof e -> + let e' = instrument_expr cost_mapping cost_incr e in + Clight.Eaddrof e' + | Clight.Eunop (op, e) -> + let e' = instrument_expr cost_mapping cost_incr e in + Clight.Eunop (op, e') + | Clight.Ebinop (op, e1, e2) -> + let e1' = instrument_expr cost_mapping cost_incr e1 in + let e2' = instrument_expr cost_mapping cost_incr e2 in + Clight.Ebinop (op, e1', e2') + | Clight.Ecast (t, e) -> + let e' = instrument_expr cost_mapping cost_incr e in + Clight.Ecast (t, e') + | Clight.Econdition (e1, e2, e3) -> + let e1' = instrument_expr cost_mapping cost_incr e1 in + let e2' = instrument_expr cost_mapping cost_incr e2 in + let e3' = instrument_expr cost_mapping cost_incr e3 in + Clight.Econdition (e1', e2', e3') + | Clight.Eandbool (e1, e2) -> + let e1' = instrument_expr cost_mapping cost_incr e1 in + let e2' = instrument_expr cost_mapping cost_incr e2 in + Clight.Eandbool (e1', e2') + | Clight.Eorbool (e1, e2) -> + let e1' = instrument_expr cost_mapping cost_incr e1 in + let e2' = instrument_expr cost_mapping cost_incr e2 in + Clight.Eorbool (e1', e2') + | Clight.Efield (e, x) -> + let e' = instrument_expr cost_mapping cost_incr e in + Clight.Efield (e', x) + | Clight.Ecost (lbl, e) when CostLabel.Map.mem lbl cost_mapping -> + let e' = instrument_expr cost_mapping cost_incr e in + let incr = CostLabel.Map.find lbl cost_mapping in + if incr = 0 then let Clight.Expr (e'', _) = e' in e'' + else Clight.Ecall (cost_incr, const_int incr, e') + | Clight.Ecost (_, e) -> + let Clight.Expr (e', _) = instrument_expr cost_mapping cost_incr e in + e' + | Clight.Ecall (x, e1, e2) -> assert false (* Should not happen. *) + +(* Instrument a statement. *) + +let rec instrument_body cost_mapping cost_incr stmt = match stmt with + | Clight.Sskip | Clight.Sbreak | Clight.Scontinue | Clight.Sreturn None + | Clight.Sgoto _ -> + stmt + | Clight.Sassign (e1, e2) -> + let e1' = instrument_expr cost_mapping cost_incr e1 in + let e2' = instrument_expr cost_mapping cost_incr e2 in + Clight.Sassign (e1', e2') + | Clight.Scall (eopt, f, args) -> + let eopt' = match eopt with + | None -> None + | Some e -> Some (instrument_expr cost_mapping cost_incr e) in + let f' = instrument_expr cost_mapping cost_incr f in + let args' = List.map (instrument_expr cost_mapping cost_incr) args in + Clight.Scall (eopt', f', args') + | Clight.Ssequence (s1, s2) -> + Clight.Ssequence (instrument_body cost_mapping cost_incr s1, + instrument_body cost_mapping cost_incr s2) + | Clight.Sifthenelse (e, s1, s2) -> + let e' = instrument_expr cost_mapping cost_incr e in + let s1' = instrument_body cost_mapping cost_incr s1 in + let s2' = instrument_body cost_mapping cost_incr s2 in + Clight.Sifthenelse (e', s1', s2') + | Clight.Swhile (e, s) -> + let e' = instrument_expr cost_mapping cost_incr e in + let s' = instrument_body cost_mapping cost_incr s in + Clight.Swhile (e', s') + | Clight.Sdowhile (e, s) -> + let e' = instrument_expr cost_mapping cost_incr e in + let s' = instrument_body cost_mapping cost_incr s in + Clight.Sdowhile (e', s') + | Clight.Sfor (s1, e, s2, s3) -> + let s1' = instrument_body cost_mapping cost_incr s1 in + let e' = instrument_expr cost_mapping cost_incr e in + let s2' = instrument_body cost_mapping cost_incr s2 in + let s3' = instrument_body cost_mapping cost_incr s3 in + Clight.Sfor (s1', e', s2', s3') + | Clight.Sreturn (Some e) -> + let e' = instrument_expr cost_mapping cost_incr e in + Clight.Sreturn (Some e') + | Clight.Sswitch (e, ls) -> + let e' = instrument_expr cost_mapping cost_incr e in + let ls' = instrument_ls cost_mapping cost_incr ls in + Clight.Sswitch (e', ls') + | Clight.Slabel (lbl, s) -> + let s' = instrument_body cost_mapping cost_incr s in + Clight.Slabel (lbl, s') + | Clight.Scost (lbl, s) when CostLabel.Map.mem lbl cost_mapping -> + (* Keep the cost label in the code. *) + let s' = instrument_body cost_mapping cost_incr s in + let incr = CostLabel.Map.find lbl cost_mapping in + let fun_typ = Clight.Tfunction ([int_typ], Clight.Tvoid) in + let f = Clight.Expr (Clight.Evar cost_incr, fun_typ) in + let args = [Clight.Expr (Clight.Econst_int incr, int_typ)] in + Clight.Scost (lbl, Clight.Ssequence (Clight.Scall (None, f, args), s')) + (* + let s' = instrument_body cost_mapping cost_incr s in + let incr = CostLabel.Map.find lbl cost_mapping in + if incr = 0 then s' + else + let fun_typ = Clight.Tfunction ([int_typ], Clight.Tvoid) in + let f = Clight.Expr (Clight.Evar cost_incr, fun_typ) in + let args = [Clight.Expr (Clight.Econst_int incr, int_typ)] in + Clight.Ssequence (Clight.Scall (None, f, args), s') + *) + | Clight.Scost (lbl, s) -> + (* Keep the cost label in the code and show the increment of 0. *) + let s' = instrument_body cost_mapping cost_incr s in + let fun_typ = Clight.Tfunction ([int_typ], Clight.Tvoid) in + let f = Clight.Expr (Clight.Evar cost_incr, fun_typ) in + let args = [Clight.Expr (Clight.Econst_int 0, int_typ)] in + Clight.Scost (lbl, Clight.Ssequence (Clight.Scall (None, f, args), s')) + (* + instrument_body cost_mapping cost_incr s + *) +and instrument_ls cost_mapping cost_incr = function + | Clight.LSdefault s -> + let s' = instrument_body cost_mapping cost_incr s in + Clight.LSdefault s' + | Clight.LScase (i, s, ls) -> + let s' = instrument_body cost_mapping cost_incr s in + let ls' = instrument_ls cost_mapping cost_incr ls in + Clight.LScase (i, s', ls') + +(* Instrument a function. *) + +let instrument_funct cost_mapping cost_incr (id, def) = + let def = match def with + | Clight.Internal def -> + let body = instrument_body cost_mapping cost_incr def.Clight.fn_body in + Clight.Internal { def with Clight.fn_body = body } + | Clight.External _ -> def + in + (id, def) + +(* This is the declaration of the cost variable. *) + +let cost_decl cost_id = + let init = [Clight.Init_int32 0] in + ((cost_id, init), int_typ) + +(* This is the definition of the increment cost function. *) + +let cost_incr_def cost_id cost_incr = + let int_var x = Clight.Expr (Clight.Evar x, int_typ) in + let param = "incr" in + let cost = int_var cost_id in + let increment = int_var param in + let cost_increment = + Clight.Expr (Clight.Ebinop (Clight.Oadd, cost, increment), int_typ) in + let stmt = Clight.Sassign (cost, cost_increment) in + let cfun = + { Clight.fn_return = Clight.Tvoid ; + Clight.fn_params = [(param, int_typ)] ; + Clight.fn_vars = [] ; + Clight.fn_body = stmt } in + (cost_incr, Clight.Internal cfun) + +(* Create a fresh uninitialized cost variable for each external function. This + will be used by the Cost plug-in of the Frama-C platform. *) + +let extern_cost_variables make_unique functs = + let prefix = "_cost_of_" in + let f (decls, map) (_, def) = match def with + | Clight.Internal _ -> (decls, map) + | Clight.External (id, _, _) -> + let new_var = make_unique (prefix ^ id) in + (decls @ [cost_decl new_var], StringTools.Map.add id new_var map) in + List.fold_left f ([], StringTools.Map.empty) functs + +let save_tmp tmp_file s = + let cout = open_out tmp_file in + output_string cout s ; + flush cout ; + close_out cout + +(** [instrument prog cost_map] instruments the program [prog]. First a fresh + global variable --- the so-called cost variable --- is added to the program. + Then, each cost label in the program is replaced by an increment of the cost + variable, following the mapping [cost_map]. The function also returns the + name of the cost variable and the name of the cost increment function. *) + +let instrument p cost_mapping = + + (* Create a fresh 'cost' variable. *) + let names = names p in + let make_unique = StringTools.make_unique names in + let cost_id = make_unique cost_id_prefix in + let cost_decl = cost_decl cost_id in + + (* Create a fresh uninitialized global variable for each extern function. *) + let (extern_cost_decls, extern_cost_variables) = + extern_cost_variables make_unique p.Clight.prog_funct in + + (* Define an increment function for the cost variable. *) + let cost_incr = + StringTools.Gen.fresh_prefix (StringTools.Set.add cost_id names) + cost_incr_prefix in + let cost_incr_def = cost_incr_def cost_id cost_incr in + + (* Instrument each function *) + let prog_funct = + List.map (instrument_funct cost_mapping cost_incr) p.Clight.prog_funct in + + (* Glue all this together. *) + let prog_vars = cost_decl :: extern_cost_decls @ p.Clight.prog_vars in + let prog_funct = cost_incr_def :: prog_funct in + let p' = + { p with Clight.prog_vars = prog_vars ; Clight.prog_funct = prog_funct } in + + (* Save the resulted program. Then re-parse it. + Indeed, the instrumentation may add side-effects in expressions, which is + not Clight compliant. Re-parsing the result with CIL will remove these + side-effects in expressions to obtain a Clight program. *) + let output = ClightPrinter.print_program p' in + let res = ClightParser.process (`Source ("annotated", output)) in + (res, cost_id, cost_incr, extern_cost_variables) diff --git a/src/clight/clightAnnotator.mli b/src/clight/clightAnnotator.mli new file mode 100644 index 0000000..4d25d31 --- /dev/null +++ b/src/clight/clightAnnotator.mli @@ -0,0 +1,30 @@ + +(** This module defines the instrumentation of a [Clight] program. *) + +(** [instrument prog cost_map] instruments the program [prog]. First a fresh + global variable --- the so-called cost variable --- is added to the program. + Then, each cost label in the program is replaced by an increment of the cost + variable, following the mapping [cost_map]. The function also returns the + name of the cost variable, the name of the cost increment function, and a + fresh uninitialized global (cost) variable associated to each extern + function. *) + +val instrument : Clight.program -> int CostLabel.Map.t -> + Clight.program * string * string * string StringTools.Map.t + +val cost_labels : Clight.program -> CostLabel.Set.t +val user_labels : Clight.program -> Label.Set.t +val all_labels : Clight.program -> StringTools.Set.t +val all_idents : Clight.program -> StringTools.Set.t + +val fresh_ident : string (* base *) -> Clight.program -> string + +val fresh_universe : + string (* prefix *) -> Clight.program -> StringTools.Gen.universe + +val make_fresh : + string (* prefix *) -> Clight.program -> (unit -> string) + + +(** utils *) +val names : Clight.program -> StringTools.Set.t diff --git a/src/clight/clightCasts.ml b/src/clight/clightCasts.ml new file mode 100644 index 0000000..8a3875a --- /dev/null +++ b/src/clight/clightCasts.ml @@ -0,0 +1,274 @@ + +(** [simplify p] removes unnecessary casts in the Clight program [p]. + + Example: [(char) ((int)x + (int)y)] where [x] and [y] are of type [char] + will be transformed into [x + y]. Primitive operations are thus supposed to + be polymorphic, but working only on homogene types. *) + + +let error_prefix = "Clight casts simplification" +let error = Error.global_error error_prefix +let error_float () = error "float not supported." + + +(* Int sizes *) + +let int_of_intsize = function + | Clight.I8 -> 8 + | Clight.I16 -> 16 + | Clight.I32 -> 32 + +let intsize_of_int = function + | i when i <= 8 -> Clight.I8 + | i when i <= 16 -> Clight.I16 + | _ -> Clight.I32 + +let op_intsize_no_cast op size1 size2 = + op (int_of_intsize size1) (int_of_intsize size2) + +let cmp_intsize cmp size1 size2 = op_intsize_no_cast cmp size1 size2 + +let op_intsize op size1 size2 = + intsize_of_int (op_intsize_no_cast op size1 size2) + +let max_intsize size1 size2 = op_intsize max size1 size2 + +let intsize_union size1 size2 = op_intsize (+) size1 size2 + +let pow2 = MiscPottier.pow 2 + +let belongs_to_int_type size sign i = match size, sign with + | Clight.I8, AST.Unsigned -> 0 <= i && i <= (pow2 8) - 1 + | Clight.I8, AST.Signed -> -(pow2 7) <= i && i <= (pow2 7) - 1 + | Clight.I16, AST.Unsigned -> 0 <= i && i <= (pow2 16) - 1 + | Clight.I16, AST.Signed -> -(pow2 15) <= i && i <= (pow2 15) - 1 + | Clight.I32, AST.Unsigned -> 0 <= i + | Clight.I32, AST.Signed -> + let pow2_30 = pow2 30 in + (-(pow2_30 + pow2_30)) <= i && + i <= ((pow2_30 - 1) + pow2_30) (* = 2^31 - 1 *) + +let smallest_int_type i = + let (size, sign) = match i with + | _ when belongs_to_int_type Clight.I8 AST.Signed i -> + (Clight.I8, AST.Signed) + | _ when belongs_to_int_type Clight.I8 AST.Unsigned i -> + (Clight.I8, AST.Unsigned) + | _ when belongs_to_int_type Clight.I16 AST.Signed i -> + (Clight.I16, AST.Signed) + | _ when belongs_to_int_type Clight.I16 AST.Unsigned i -> + (Clight.I16, AST.Unsigned) + | _ when belongs_to_int_type Clight.I32 AST.Unsigned i -> + (Clight.I32, AST.Unsigned) + | _ -> + (Clight.I32, AST.Signed) in + Clight.Tint (size, sign) + +let le_int_type size1 sign1 size2 sign2 = match sign1, sign2 with + | AST.Unsigned, AST.Signed -> cmp_intsize (<) size1 size2 + | AST.Signed, AST.Unsigned -> false + | _ -> cmp_intsize (<=) size1 size2 + +let int_type_union size1 sign1 size2 sign2 = + if sign1 = sign2 then (max_intsize size1 size2, sign1) + else (intsize_union size1 size2, AST.Signed) + + +(* C types *) + +let type_of_expr (Clight.Expr (_, t)) = t + +let cast_if_needed t (Clight.Expr (ed, t') as e) = match t, ed with + | _ when t = t' -> e + | Clight.Tint (size, sign), Clight.Econst_int i + when belongs_to_int_type size sign i -> + Clight.Expr (Clight.Econst_int i, t) + | _ -> Clight.Expr (Clight.Ecast (t, e), t) + +let cast_if_needed_opt opt_t e = match opt_t with + | None -> e + | Some t -> cast_if_needed t e + +let is_int_type = function + | Clight.Tint _ -> true + | _ -> false + +let le_ctype t1 t2 = match t1, t2 with + | Clight.Tint (size1, sign1), Clight.Tint (size2, sign2) -> + le_int_type size1 sign1 size2 sign2 + | _ -> t1 = t2 + +let ctype_union t1 t2 = match t1, t2 with + | Clight.Tint (size1, sign1), Clight.Tint (size2, sign2) -> + let (size, sign) = int_type_union size1 sign1 size2 sign2 in + Clight.Tint (size, sign) + | _ -> assert false (* only use on int types *) + +let belongs_to_ctype t i = match t with + | Clight.Tint (size, sign) -> belongs_to_int_type size sign i + | _ -> false + + +(* Simplification *) + +let rec is_const_int (Clight.Expr (ed, _)) = match ed with + | Clight.Econst_int _ -> true + | Clight.Ecast (_, e) | Clight.Ecost (_, e) -> is_const_int e + | _ -> false + +let rec simplify_bool_op f_bool target_t e1 e2 = + let (e1', e2', t') = simplify_and_same_type target_t e1 e2 in + Clight.Expr (f_bool e1' e2', t') + +and simplify_and_same_type target_t e1 e2 = match target_t with + + | None when is_const_int e1 && is_const_int e2 -> + let e1' = simplify_expr target_t e1 in + let t1 = type_of_expr e1' in + let e2' = simplify_expr target_t e2 in + let t2 = type_of_expr e2' in + if is_int_type t1 && is_int_type t2 then + let t = ctype_union t1 t2 in + let e1' = cast_if_needed t e1' in + let e2' = cast_if_needed t e2' in + (e1', e2', t) + else (e1, e2, type_of_expr e1) + + | None when is_const_int e1 -> + let e2 = simplify_expr target_t e2 in + let t2 = type_of_expr e2 in + let e1 = simplify_expr (Some t2) e1 in + (e1, e2, t2) + + | None when is_const_int e2 -> + let e1 = simplify_expr target_t e1 in + let t1 = type_of_expr e1 in + let e2 = simplify_expr (Some t1) e2 in + (e1, e2, t1) + + | _ -> + let e1' = simplify_expr target_t e1 in + let t1 = type_of_expr e1' in + let e2' = simplify_expr target_t e2 in + let t2 = type_of_expr e2' in + if t1 = t2 then (e1', e2', t1) + else (e1, e2, type_of_expr e1) + +and simplify_expr target_t (Clight.Expr (ed, t) as e) = match target_t, ed with + + | None, Clight.Econst_int i -> + let t' = smallest_int_type i in + Clight.Expr (ed, t') + + | Some t', Clight.Econst_int i when belongs_to_ctype t' i -> + Clight.Expr (ed, t') + + | Some t', Clight.Econst_int _ -> cast_if_needed t' e + + | _, Clight.Evar _ -> cast_if_needed_opt target_t e + + | _, Clight.Esizeof _ -> + let i = Driver.TargetArch.int_size * 8 in + let t = smallest_int_type i in + cast_if_needed_opt target_t (Clight.Expr (ed, t)) + + | _, Clight.Econst_float _ -> error_float () + + | _, Clight.Ederef e -> + let e' = simplify_expr (Some (Clight.Tpointer t)) e in + cast_if_needed_opt target_t (Clight.Expr (Clight.Ederef e', t)) + + | _, Clight.Eaddrof e -> + let e' = simplify_expr None e in + let e' = + Clight.Expr (Clight.Eaddrof e', Clight.Tpointer (type_of_expr e')) in + cast_if_needed_opt target_t e' + + | _, Clight.Eunop (unop, e) -> + let e' = simplify_expr target_t e in + Clight.Expr (Clight.Eunop (unop, e'), type_of_expr e') + + (* Particular case: shifts. The first argument will always be casted to int by + CIL (except for unsigned int, treated in another pattern). *) + (* TODO: is above really true?! *) + (* [(_) e1 >> e2], when [e1] and [e2] simplified have the same type, is + simplified to [e1 >> e2] (and respectively with [<<]). *) + | _, Clight.Ebinop ((Clight.Oshl | Clight.Oshr) as binop, + Clight.Expr (Clight.Ecast (_, e1), _), e2) -> + let e1 = simplify_expr target_t e1 in + let t1 = type_of_expr e1 in + let e2 = simplify_expr target_t e2 in + let t2 = type_of_expr e2 in + if t1 = t2 then Clight.Expr (Clight.Ebinop (binop, e1, e2), t1) + else cast_if_needed_opt target_t e + + | _, Clight.Ebinop (binop, e1, e2) + when is_int_type (type_of_expr e1) && is_int_type (type_of_expr e2) -> + let (e1, e2, t) = simplify_and_same_type target_t e1 e2 in + cast_if_needed_opt target_t (Clight.Expr (Clight.Ebinop (binop, e1, e2), t)) + + | _, Clight.Ebinop (binop, e1, e2) -> + let e1' = cast_if_needed (type_of_expr e1) (simplify_expr None e1) in + let e2' = cast_if_needed (type_of_expr e2) (simplify_expr None e2) in + Clight.Expr (Clight.Ebinop (binop, e1', e2'), t) + + | _, Clight.Ecast (_, e) -> simplify_expr target_t e + + | _, Clight.Econdition (e1, e2, e3) -> + let e1' = simplify_expr None e1 in + let (e2', e3', t') = simplify_and_same_type target_t e2 e3 in + Clight.Expr (Clight.Econdition (e1', e2', e3'), t') + + | _, Clight.Eandbool (e1, e2) -> + simplify_bool_op (fun e1' e2' -> Clight.Eandbool (e1', e2')) target_t e1 e2 + + | _, Clight.Eorbool (e1, e2) -> + simplify_bool_op (fun e1' e2' -> Clight.Eorbool (e1', e2')) target_t e1 e2 + + | _, Clight.Efield (e, field) -> + let e' = simplify_expr (Some (type_of_expr e)) e in + cast_if_needed_opt target_t (Clight.Expr (Clight.Efield (e', field), t)) + + | _, Clight.Ecost (lbl, e) -> + let e' = simplify_expr target_t e in + Clight.Expr (Clight.Ecost (lbl, e'), type_of_expr e') + + | _, Clight.Ecall _ -> + assert false (* should be impossible *) + + +let f_ctype ctype _ = ctype + +let f_expr e _ _ = e + +let f_expr_descr e _ _ = e + +let f_statement stmt _ sub_stmts_res = + let f_expr b e = + simplify_expr (if b then Some (type_of_expr e) else None) e in + let f_exprs b = List.map (f_expr b) in + let f_sub_exprs = match stmt with + | Clight.Sassign _ | Clight.Scall _ | Clight.Sreturn _ -> f_exprs true + | _ -> f_exprs false in + let sub_exprs = f_sub_exprs (ClightFold.statement_sub_exprs stmt) in + ClightFold.statement_fill_subs stmt sub_exprs sub_stmts_res + +let simplify_stmt = ClightFold.statement f_ctype f_expr f_expr_descr f_statement + +let simplify_funct (id, fundef) = + let fundef' = match fundef with + | Clight.Internal cfun -> + Clight.Internal + { cfun with Clight.fn_body = simplify_stmt cfun.Clight.fn_body } + | _ -> fundef in + (id, fundef') + +let simplify p = + { p with Clight.prog_funct = List.map simplify_funct p.Clight.prog_funct } + +(* TODO: restore above, but buggy with + (unsigned int) (-x) -> - ((unsigned int) x) *) + +(* +let simplify p = p +*) diff --git a/src/clight/clightCasts.mli b/src/clight/clightCasts.mli new file mode 100644 index 0000000..098059b --- /dev/null +++ b/src/clight/clightCasts.mli @@ -0,0 +1,8 @@ + +(** [simplify p] removes unnecessary casts in the Clight program [p]. + + Example: [(char) ((int)x + (int)y)] where [x] and [y] are of type [char] + will be transformed into [x + y]. Primitive operations are thus supposed to + be polymorphic, but working only on homogene types. *) + +val simplify : Clight.program -> Clight.program diff --git a/src/clight/clightFlags.ml b/src/clight/clightFlags.ml new file mode 100644 index 0000000..badd04a --- /dev/null +++ b/src/clight/clightFlags.ml @@ -0,0 +1,30 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(* Command-line flags *) + +let prepro_options = ref ([]: string list) +let linker_options = ref ([]: string list) +let exe_name = ref "a.out" +let option_flonglong = ref true +let option_fstruct_passing = ref false +let option_fstruct_assign = ref false +let option_fbitfields = ref false +let option_fvararg_calls = ref true +let option_fmadd = ref false +let option_dparse = ref false +let option_dclight = ref false +let option_dasm = ref false +let option_E = ref false +let option_S = ref false +let option_c = ref false +let option_v = ref false diff --git a/src/clight/clightFold.ml b/src/clight/clightFold.ml new file mode 100644 index 0000000..afd12e7 --- /dev/null +++ b/src/clight/clightFold.ml @@ -0,0 +1,171 @@ + +(** This module provides folding functions over the constructors of the + [Clight]'s AST. *) + + +let ctype_subs = function + | Clight.Tvoid | Clight.Tint _ | Clight.Tfloat _ | Clight.Tcomp_ptr _ -> [] + | Clight.Tpointer ctype | Clight.Tarray (ctype, _) -> [ctype] + | Clight.Tfunction (args, res) -> args @ [res] + | Clight.Tstruct (_, fields) | Clight.Tunion (_, fields) -> + List.map snd fields + +let ctype_fill_subs ctype sub_ctypes = match ctype, sub_ctypes with + | Clight.Tvoid, _ | Clight.Tint _, _ | Clight.Tfloat _, _ + | Clight.Tcomp_ptr _, _ -> ctype + | Clight.Tpointer _, ctype :: _ -> Clight.Tpointer ctype + | Clight.Tarray (_, size), ctype :: _ -> Clight.Tarray (ctype, size) + | Clight.Tfunction _, _ -> + let (args, res) = MiscPottier.split_last sub_ctypes in + Clight.Tfunction (args, res) + | Clight.Tstruct (name, fields), _ -> + let fields = List.map2 (fun (x, _) ctype -> (x, ctype)) fields sub_ctypes in + Clight.Tstruct (name, fields) + | Clight.Tunion (name, fields), _ -> + let fields = List.map2 (fun (x, _) ctype -> (x, ctype)) fields sub_ctypes in + Clight.Tunion (name, fields) + | _ -> assert false (* wrong arguments, do not use on these values *) + +let rec ctype f t = + let sub_ctypes_res = List.map (ctype f) (ctype_subs t) in + f t sub_ctypes_res + + +let expr_subs = function + | Clight.Expr (expr_descr, ctype) -> ([ctype], [expr_descr]) + +let expr_descr_subs = function + | Clight.Econst_int _ | Clight.Econst_float _ | Clight.Evar _ -> ([], []) + | Clight.Ederef e | Clight.Eaddrof e | Clight.Eunop (_, e) + | Clight.Efield (e, _) -> ([], [e]) + | Clight.Ebinop (_, e1, e2) | Clight.Eandbool (e1, e2) + | Clight.Eorbool (e1, e2) -> ([], [e1 ; e2]) + | Clight.Ecast (ctype, e) -> ([ctype], [e]) + | Clight.Econdition (e1, e2, e3) -> ([], [e1 ; e2 ; e3]) + | Clight.Esizeof ctype -> ([ctype], []) + | Clight.Ecost (_, e) -> ([], [e]) + | Clight.Ecall (_, e1, e2) -> ([], [e1 ; e2]) + +let expr_fill_subs e sub_ctypes sub_expr_descrs = + match e, sub_ctypes, sub_expr_descrs with + | Clight.Expr _, ctype :: _, expr_descr :: _ -> + Clight.Expr (expr_descr, ctype) + | _ -> assert false (* wrong arguments, do not use on these values *) + +let expr_descr_fill_subs e sub_ctypes sub_exprs = + match e, sub_ctypes, sub_exprs with + | Clight.Econst_int _, _, _ | Clight.Econst_float _, _, _ + | Clight.Evar _, _, _ -> e + | Clight.Ederef _, _, e :: _ -> Clight.Ederef e + | Clight.Eaddrof _, _, e :: _ -> Clight.Eaddrof e + | Clight.Eunop (unop, _), _, e :: _ -> Clight.Eunop (unop, e) + | Clight.Ebinop (binop, _, _), _, e1 :: e2 :: _ -> + Clight.Ebinop (binop, e1, e2) + | Clight.Ecast _, ctype :: _, e :: _ -> Clight.Ecast (ctype, e) + | Clight.Econdition _, _, e1 :: e2 :: e3 :: _ -> + Clight.Econdition (e1, e2, e3) + | Clight.Eandbool (_, _), _, e1 :: e2 :: _ -> + Clight.Eandbool (e1, e2) + | Clight.Eorbool (_, _), _, e1 :: e2 :: _ -> + Clight.Eorbool (e1, e2) + | Clight.Esizeof _, ctype :: _, _ -> Clight.Esizeof ctype + | Clight.Efield (_, field_name), _, e :: _ -> Clight.Efield (e, field_name) + | Clight.Ecost (lbl, _), _, e :: _ -> Clight.Ecost (lbl, e) + | Clight.Ecall (id, _, _), _, e1 :: e2 :: _ -> Clight.Ecall (id, e1, e2) + | _ -> assert false (* wrong arguments, do not use on these values *) + +let expr_fill_exprs (Clight.Expr (ed, t)) exprs = + let (sub_ctypes, _) = expr_descr_subs ed in + let ed = expr_descr_fill_subs ed sub_ctypes exprs in + Clight.Expr (ed, t) + +let rec expr f_ctype f_expr f_expr_descr e = + let (sub_ctypes, sub_expr_descrs) = expr_subs e in + let sub_expr_descrs_res = + List.map (expr_descr f_ctype f_expr f_expr_descr) sub_expr_descrs in + let sub_ctypes_res = List.map (ctype f_ctype) sub_ctypes in + f_expr e sub_ctypes_res sub_expr_descrs_res + +and expr_descr f_ctype f_expr f_expr_descr e = + let (sub_ctypes, sub_exprs) = expr_descr_subs e in + let sub_exprs_res = + List.map (expr f_ctype f_expr f_expr_descr) sub_exprs in + let sub_ctypes_res = List.map (ctype f_ctype) sub_ctypes in + f_expr_descr e sub_ctypes_res sub_exprs_res + + +let expr_subs2 e = + let (_, expr_descrs) = expr_subs e in + let l = List.map expr_descr_subs expr_descrs in + List.flatten (List.map snd l) + +let rec expr2 f e = f e (List.map (expr2 f) (expr_subs2 e)) + + +let rec labeled_statements_subs = function + | Clight.LSdefault stmt -> [stmt] + | Clight.LScase (_, stmt, lbl_stmts) -> + stmt :: (labeled_statements_subs lbl_stmts) + +let statement_subs = function + | Clight.Sskip | Clight.Sbreak | Clight.Scontinue | Clight.Sreturn None + | Clight.Sgoto _ -> ([], []) + | Clight.Sassign (e1, e2) -> ([e1 ; e2], []) + | Clight.Scall (None, e, args) -> (e :: args, []) + | Clight.Scall (Some e1, e2, args) -> (e1 :: e2 :: args, []) + | Clight.Ssequence (stmt1, stmt2) -> ([], [stmt1 ; stmt2]) + | Clight.Sifthenelse (e, stmt1, stmt2) -> ([e], [stmt1 ; stmt2]) + | Clight.Swhile (e, stmt) | Clight.Sdowhile (e, stmt) -> ([e], [stmt]) + | Clight.Sfor (stmt1, e, stmt2, stmt3) -> ([e], [stmt1 ; stmt2 ; stmt3]) + | Clight.Sreturn (Some e) -> ([e], []) + | Clight.Sswitch (e, lbl_stmts) -> ([e], labeled_statements_subs lbl_stmts) + | Clight.Slabel (_, stmt) | Clight.Scost (_, stmt) -> ([], [stmt]) + +let statement_sub_exprs stmt = fst (statement_subs stmt) + +let rec labeled_statements_fill_subs lbl_stmts sub_statements = + match lbl_stmts, sub_statements with + | Clight.LSdefault _, stmt :: _ -> Clight.LSdefault stmt + | Clight.LScase (i, _, lbl_stmts), stmt :: sub_statements -> + Clight.LScase (i, stmt, + labeled_statements_fill_subs lbl_stmts sub_statements) + | _ -> assert false (* wrong arguments, do not use on these values *) + +let statement_fill_subs statement sub_exprs sub_statements = + match statement, sub_exprs, sub_statements with + | Clight.Sskip, _, _ | Clight.Sbreak, _, _ | Clight.Scontinue, _, _ + | Clight.Sreturn None, _, _ | Clight.Sgoto _, _, _ -> statement + | Clight.Sassign _, e1 :: e2 :: _, _ -> Clight.Sassign (e1, e2) + | Clight.Scall (None, _, _), e :: args, _ -> + Clight.Scall (None, e, args) + | Clight.Scall (Some _, _, _), e1 :: e2 :: args, _ -> + Clight.Scall (Some e1, e2, args) + | Clight.Ssequence _, _, stmt1 :: stmt2 :: _ -> + Clight.Ssequence (stmt1, stmt2) + | Clight.Sifthenelse _, e :: _, stmt1 :: stmt2 :: _ -> + Clight.Sifthenelse (e, stmt1, stmt2) + | Clight.Swhile _, e :: _, stmt :: _ -> + Clight.Swhile (e, stmt) + | Clight.Sdowhile _, e :: _, stmt :: _ -> + Clight.Sdowhile (e, stmt) + | Clight.Sfor _, e :: _, stmt1 :: stmt2 :: stmt3 :: _ -> + Clight.Sfor (stmt1, e, stmt2, stmt3) + | Clight.Sreturn (Some _), e :: _, _ -> Clight.Sreturn (Some e) + | Clight.Sswitch (_, lbl_stmts), e :: _, _ -> + Clight.Sswitch (e, labeled_statements_fill_subs lbl_stmts sub_statements) + | Clight.Slabel (lbl, _), _, stmt :: _ -> Clight.Slabel (lbl, stmt) + | Clight.Scost (lbl, _), _, stmt :: _ -> Clight.Scost (lbl, stmt) + | _ -> assert false (* wrong arguments, do not use on these values *) + +let rec statement f_ctype f_expr f_expr_descr f_statement stmt = + let (sub_exprs, sub_stmts) = statement_subs stmt in + let sub_exprs_res = List.map (expr f_ctype f_expr f_expr_descr) sub_exprs in + let sub_stmts_res = + List.map (statement f_ctype f_expr f_expr_descr f_statement) sub_stmts in + f_statement stmt sub_exprs_res sub_stmts_res + +let rec statement2 f_expr f_statement stmt = + let (sub_exprs, sub_stmts) = statement_subs stmt in + let sub_exprs_res = List.map (expr2 f_expr) sub_exprs in + let sub_stmts_res = List.map (statement2 f_expr f_statement) sub_stmts in + f_statement stmt sub_exprs_res sub_stmts_res diff --git a/src/clight/clightFold.mli b/src/clight/clightFold.mli new file mode 100644 index 0000000..7eb33c2 --- /dev/null +++ b/src/clight/clightFold.mli @@ -0,0 +1,62 @@ + +(** This module provides folding functions over the constructors of the + [Clight]'s AST. *) + +val ctype_fill_subs : Clight.ctype -> Clight.ctype list -> Clight.ctype + +val ctype : (Clight.ctype -> 'a list -> 'a) -> Clight.ctype -> 'a + +val expr_fill_subs : + Clight.expr -> Clight.ctype list -> Clight.expr_descr list -> + Clight.expr + +val expr_fill_exprs : + Clight.expr -> Clight.expr list -> Clight.expr + +val expr : + (Clight.ctype -> 'a list -> 'a) -> + (Clight.expr -> 'a list -> 'b list -> 'c) -> + (Clight.expr_descr -> 'a list -> 'c list -> 'b) -> + Clight.expr -> + 'c + +val expr2 : + (Clight.expr -> 'a list -> 'a) -> Clight.expr -> 'a + +val expr_descr_subs : + Clight.expr_descr -> Clight.ctype list * Clight.expr list + +val expr_descr_fill_subs : + Clight.expr_descr -> Clight.ctype list -> Clight.expr list -> + Clight.expr_descr + +val expr_descr : + (Clight.ctype -> 'a list -> 'a) -> + (Clight.expr -> 'a list -> 'b list -> 'c) -> + (Clight.expr_descr -> 'a list -> 'c list -> 'b) -> + Clight.expr_descr -> + 'b + +val statement_subs : + Clight.statement -> + (Clight.expr list * Clight.statement list) + +val statement_sub_exprs : Clight.statement -> Clight.expr list + +val statement_fill_subs : + Clight.statement -> Clight.expr list -> Clight.statement list -> + Clight.statement + +val statement : + (Clight.ctype -> 'a list -> 'a) -> + (Clight.expr -> 'a list -> 'b list -> 'c) -> + (Clight.expr_descr -> 'a list -> 'c list -> 'b) -> + (Clight.statement -> 'c list -> 'd list -> 'd) -> + Clight.statement -> + 'd + +val statement2 : + (Clight.expr -> 'a list -> 'a) -> + (Clight.statement -> 'a list -> 'b list -> 'b) -> + Clight.statement -> + 'b diff --git a/src/clight/clightFromC.ml b/src/clight/clightFromC.ml new file mode 100644 index 0000000..f6c274d --- /dev/null +++ b/src/clight/clightFromC.ml @@ -0,0 +1,902 @@ +open Printf + +open Cparser +open Cparser.C +open Cparser.Env + +open Clight + +(** Extract the type part of a type-annotated Clight expression. *) + +let typeof e = match e with Expr(_,te) -> te + +(** Natural alignment of a type, in bytes. *) +let rec alignof = function + | Tvoid -> 1 + | Tint (I8,_) -> 1 + | Tint (I16,_) -> 2 + | Tint (I32,_) -> 4 + | Tfloat F32 -> 4 + | Tfloat F64 -> 8 + | Tpointer _ -> 4 + | Tarray (t',n) -> alignof t' + | Tfunction (_,_) -> 1 + | Tstruct (_,fld) -> alignof_fields fld + | Tunion (_,fld) -> alignof_fields fld + | Tcomp_ptr _ -> 4 +and alignof_fields = function + | [] -> 1 + | (id,t)::f' -> max (alignof t) (alignof_fields f') + +(** Size of a type, in bytes. *) + +let align n amount = + ((n + amount - 1) / amount) * amount + +let rec sizeof t = + match t with + | Tvoid -> 1 + | Tint (I8,_) -> 1 + | Tint (I16,_) -> 2 + | Tint (I32,_) -> 4 + | Tfloat F32 -> 4 + | Tfloat F64 -> 8 + | Tpointer _ -> 4 + | Tarray (t',n) -> sizeof t' * max 1 n + | Tfunction (_,_) -> 1 + | Tstruct (_,fld) -> align (max 1 (sizeof_struct fld 0)) (alignof t) + | Tunion (_,fld) -> align (max 1 (sizeof_union fld)) (alignof t) + | Tcomp_ptr _ -> 4 +and sizeof_struct fld pos = + match fld with + | [] -> pos + | (id,t)::fld' -> sizeof_struct fld' (align pos (alignof t) + sizeof t) +and sizeof_union = function + | [] -> 0 + | (id,t)::fld' -> max (sizeof t) (sizeof_union fld') + +(** Record the declarations of global variables and associate them + with the corresponding atom. *) + +let decl_atom : (AST.ident, Env.t * C.decl) Hashtbl.t = Hashtbl.create 103 + +(** Hooks -- overriden in machine-dependent CPragmas module *) + +let process_pragma_hook = ref (fun (s: string) -> false) +let define_variable_hook = ref (fun (id: AST.ident) (d: C.decl) -> ()) +let define_function_hook = ref (fun (id: AST.ident) (d: C.decl) -> ()) +let define_stringlit_hook = ref (fun (id: AST.ident) -> ()) + +(** ** Error handling *) + +let currentLocation = ref Cutil.no_loc + +let updateLoc l = currentLocation := l + +let numErrors = ref 0 + +let error msg = + incr numErrors; + eprintf "%aError: %s\n" Cutil.printloc !currentLocation msg + +let unsupported msg = + incr numErrors; + eprintf "%aUnsupported feature: %s\n" Cutil.printloc !currentLocation msg + +let warning msg = + eprintf "%aWarning: %s\n" Cutil.printloc !currentLocation msg + + +(** ** Functions used to handle string literals *) + +let stringNum = ref 0 (* number of next global for string literals *) +let stringTable = Hashtbl.create 47 + +let name_for_string_literal env s = + try + Hashtbl.find stringTable s + with Not_found -> + incr stringNum; + let name = Printf.sprintf "__stringlit_%d" !stringNum in + let id = name in + Hashtbl.add decl_atom id + (env, (C.Storage_static, + Env.fresh_ident name, + C.TPtr(C.TInt(C.IChar,[C.AConst]),[]), + None)); + !define_stringlit_hook id; + Hashtbl.add stringTable s id; + id + +let typeStringLiteral s = + Tarray(Tint(I8, AST.Unsigned), String.length s + 1) + +let global_for_string s id = + let init = ref [] in + let add_char c = + init := + Init_int8(Char.code c) + :: !init in + add_char '\000'; + for i = String.length s - 1 downto 0 do add_char s.[i] done; + ((id, !init), typeStringLiteral s) + +let globals_for_strings globs = + Hashtbl.fold + (fun s id l -> global_for_string s id :: l) + stringTable globs + +(** ** Handling of stubs for variadic functions *) + +let stub_function_table = Hashtbl.create 47 + +let register_stub_function name tres targs = + let rec letters_of_type = function + | [] -> [] + | Tfloat(_)::tl -> "f" :: letters_of_type tl + | _::tl -> "i" :: letters_of_type tl in + let stub_name = + name ^ "$" ^ String.concat "" (letters_of_type targs) in + try + (stub_name, Hashtbl.find stub_function_table stub_name) + with Not_found -> + let rec types_of_types = function + | [] -> [] + | Tfloat(_)::tl -> Tfloat(F64)::(types_of_types tl) + | _::tl -> Tpointer(Tvoid)::(types_of_types tl) in + let stub_type = Tfunction (types_of_types targs, tres) in + Hashtbl.add stub_function_table stub_name stub_type; + (stub_name, stub_type) + +let declare_stub_function stub_name stub_type = + match stub_type with + | Tfunction(targs, tres) -> + (stub_name, + External(stub_name, targs, tres)) + | _ -> assert false + +let declare_stub_functions k = + Hashtbl.fold + (fun n i k -> declare_stub_function n i :: k) + stub_function_table k + +(** ** Translation functions *) + +(** Constants *) + +let convertInt n = Int64.to_int n + +(** Types *) + +let convertIkind = function + | C.IBool -> unsupported "'_Bool' type"; (AST.Unsigned, I8) + | C.IChar -> (AST.Unsigned, I8) + | C.ISChar -> (AST.Signed, I8) + | C.IUChar -> (AST.Unsigned, I8) + | C.IInt -> (AST.Signed, I32) + | C.IUInt -> (AST.Unsigned, I32) + | C.IShort -> (AST.Signed, I16) + | C.IUShort -> (AST.Unsigned, I16) + | C.ILong -> (AST.Signed, I32) + | C.IULong -> (AST.Unsigned, I32) + | C.ILongLong -> + if not !ClightFlags.option_flonglong then unsupported "'long long' type"; + (AST.Signed, I32) + | C.IULongLong -> + if not !ClightFlags.option_flonglong then unsupported "'unsigned long long' type"; + (AST.Unsigned, I32) + +let convertFkind = function + | C.FFloat -> F32 + | C.FDouble -> F64 + | C.FLongDouble -> + if not !ClightFlags.option_flonglong then unsupported "'long double' type"; + F64 + +let convertTyp env t = + + let rec convertTyp seen t = + match Cutil.unroll env t with + | C.TVoid a -> Tvoid + | C.TInt(ik, a) -> + let (sg, sz) = convertIkind ik in Tint(sz, sg) + | C.TFloat(fk, a) -> + Tfloat(convertFkind fk) + | C.TPtr(C.TStruct(id, _), _) when List.mem id seen -> + Tcomp_ptr("struct " ^ id.name) + | C.TPtr(C.TUnion(id, _), _) when List.mem id seen -> + Tcomp_ptr("union " ^ id.name) + | C.TPtr(ty, a) -> + Tpointer(convertTyp seen ty) + | C.TArray(ty, None, a) -> + (* Cparser verified that the type ty[] occurs only in + contexts that are safe for Clight, so just treat as ty[0]. *) + (* warning "array type of unspecified size"; *) + Tarray(convertTyp seen ty, 0) + | C.TArray(ty, Some sz, a) -> + Tarray(convertTyp seen ty, convertInt sz ) + | C.TFun(tres, targs, va, a) -> + if va then unsupported "variadic function type"; + if Cutil.is_composite_type env tres then + unsupported "return type is a struct or union"; + Tfunction(begin match targs with + | None -> warning "un-prototyped function type"; [] + | Some tl -> convertParams seen tl + end, + convertTyp seen tres) + | C.TNamed _ -> + assert false + | C.TStruct(id, a) -> + let flds = + try + convertFields (id :: seen) (Env.find_struct env id) + with Env.Error e -> + error (Env.error_message e); [] in + Tstruct("struct " ^ id.name, flds) + | C.TUnion(id, a) -> + let flds = + try + convertFields (id :: seen) (Env.find_union env id) + with Env.Error e -> + error (Env.error_message e); [] in + Tunion("union " ^ id.name, flds) + + and convertParams seen = function + | [] -> [] + | (id, ty) :: rem -> + if Cutil.is_composite_type env ty then + unsupported "function parameter of struct or union type"; + (convertTyp seen ty)::(convertParams seen rem) + + and convertFields seen ci = + convertFieldList seen ci.Env.ci_members + + and convertFieldList seen = function + | [] -> [] + | f :: fl -> + if f.fld_bitfield <> None then + unsupported "bit field in struct or union"; + (f.fld_name, convertTyp seen f.fld_typ)::( + convertFieldList seen fl) + + in convertTyp [] t + +let rec convertTypList env = function + | [] -> [] + | t1 :: tl -> (convertTyp env t1 )::( convertTypList env tl) + +(** Expressions *) + +let ezero = Expr(Econst_int(0), Tint(I32, AST.Signed)) + +let rec convertExpr env e = + let ty = convertTyp env e.etyp in + match e.edesc with + | C.EConst(C.CInt(i, _, _)) -> + Expr(Econst_int( convertInt i), ty) + | C.EConst(C.CFloat(f, _, _)) -> + Expr(Econst_float f, ty) + | C.EConst(C.CStr s) -> + Expr(Evar(name_for_string_literal env s), typeStringLiteral s) + | C.EConst(C.CWStr s) -> + unsupported "wide string literal"; ezero + | C.EConst(C.CEnum(id, i)) -> + Expr(Econst_int(convertInt i), ty) + + | C.ESizeof ty1 -> + Expr(Esizeof(convertTyp env ty1), ty) + | C.EVar id -> + Expr(Evar(id.name), ty) + + | C.EUnop(C.Oderef, e1) -> + Expr(Ederef(convertExpr env e1), ty) + | C.EUnop(C.Oaddrof, e1) -> + Expr(Eaddrof(convertExpr env e1), ty) + | C.EUnop(C.Odot id, e1) -> + Expr(Efield(convertExpr env e1, id), ty) + | C.EUnop(C.Oarrow id, e1) -> + let e1' = convertExpr env e1 in + let ty1 = + match typeof e1' with + | Tpointer t -> t + | _ -> error ("wrong type for ->" ^ id ^ " access"); Tvoid in + Expr(Efield(Expr(Ederef(convertExpr env e1), ty1), + id), ty) + | C.EUnop(C.Oplus, e1) -> + convertExpr env e1 + | C.EUnop(C.Ominus, e1) -> + Expr(Eunop(Oneg, convertExpr env e1), ty) + | C.EUnop(C.Olognot, e1) -> + Expr(Eunop(Onotbool, convertExpr env e1), ty) + | C.EUnop(C.Onot, e1) -> + Expr(Eunop(Onotint, convertExpr env e1), ty) + | C.EUnop(_, _) -> + unsupported "pre/post increment/decrement operator"; ezero + + | C.EBinop(C.Oindex, e1, e2, _) -> + Expr(Ederef(Expr(Ebinop(Oadd, convertExpr env e1, convertExpr env e2), + Tpointer ty)), ty) + | C.EBinop(C.Ologand, e1, e2, _) -> + Expr(Eandbool(convertExpr env e1, convertExpr env e2), ty) + | C.EBinop(C.Ologor, e1, e2, _) -> + Expr(Eorbool(convertExpr env e1, convertExpr env e2), ty) + | C.EBinop(op, e1, e2, _) -> + let op' = + match op with + | C.Oadd -> Oadd + | C.Osub -> Osub + | C.Omul -> Omul + | C.Odiv -> Odiv + | C.Omod -> Omod + | C.Oand -> Oand + | C.Oor -> Oor + | C.Oxor -> Oxor + | C.Oshl -> Oshl + | C.Oshr -> Oshr + | C.Oeq -> Oeq + | C.One -> One + | C.Olt -> Olt + | C.Ogt -> Ogt + | C.Ole -> Ole + | C.Oge -> Oge + | C.Ocomma -> unsupported "sequence operator"; Oadd + | _ -> unsupported "assignment operator"; Oadd in + Expr(Ebinop(op', convertExpr env e1, convertExpr env e2), ty) + | C.EConditional(e1, e2, e3) -> + Expr(Econdition(convertExpr env e1, convertExpr env e2, convertExpr env e3), ty) + | C.ECast(ty1, e1) -> + Expr(Ecast(convertTyp env ty1, convertExpr env e1), ty) + | C.ECall _ -> + unsupported "function call within expression"; ezero + +(* Function calls *) + +let rec projFunType env ty = + match Cutil.unroll env ty with + | TFun(res, args, vararg, attr) -> Some(res, vararg) + | TPtr(ty', attr) -> projFunType env ty' + | _ -> None + +let convertFuncall env lhs fn args = + match projFunType env fn.etyp with + | None -> + error "wrong type for function part of a call"; Sskip + | Some(res, false) -> + (* Non-variadic function *) + Scall(lhs, convertExpr env fn, List.map (convertExpr env) args) + | Some(res, true) -> + (* Variadic function: generate a call to a stub function with + the appropriate number and types of arguments. Works only if + the function expression e is a global variable. *) + let fun_name = + match fn with + | {edesc = C.EVar id} when !ClightFlags.option_fvararg_calls -> + (*warning "emulating call to variadic function"; *) + id.name + | _ -> + unsupported "call to variadic function"; + "" in + let targs = convertTypList env (List.map (fun e -> e.etyp) args) in + let tres = convertTyp env res in + let (stub_fun_name, stub_fun_typ) = + register_stub_function fun_name tres targs in + Scall(lhs, + Expr(Evar( stub_fun_name), stub_fun_typ), + List.map (convertExpr env) args) + +(* Handling of volatile *) + +let is_volatile_access env e = + List.mem C.AVolatile (Cutil.attributes_of_type env e.etyp) + && Cutil.is_lvalue env e + +let volatile_fun_suffix_type ty = + match ty with + | Tint(I8, AST.Unsigned) -> ("int8unsigned", ty) + | Tint(I8, AST.Signed) -> ("int8signed", ty) + | Tint(I16, AST.Unsigned) -> ("int16unsigned", ty) + | Tint(I16, AST.Signed) -> ("int16signed", ty) + | Tint(I32, _) -> ("int32", Tint(I32, AST.Signed)) + | Tfloat F32 -> ("float32", ty) + | Tfloat F64 -> ("float64", ty) + | Tpointer _ | Tarray _ | Tfunction _ | Tcomp_ptr _ -> + ("pointer", Tpointer Tvoid) + | _ -> + unsupported "operation on volatile struct or union"; ("", Tvoid) + +let volatile_read_fun ty = + let (suffix, ty') = volatile_fun_suffix_type ty in + Expr(Evar( ("__builtin_volatile_read_" ^ suffix)), + Tfunction((Tpointer Tvoid)::[], ty')) + +let volatile_write_fun ty = + let (suffix, ty') = volatile_fun_suffix_type ty in + Expr(Evar( ("__builtin_volatile_write_" ^ suffix)), + Tfunction((Tpointer Tvoid)::(ty'::[]), Tvoid)) + +(* Toplevel expression, argument of an Sdo *) + +let convertTopExpr env e = + match e.edesc with + | C.EBinop(C.Oassign, lhs, {edesc = C.ECall(fn, args)}, _) -> + convertFuncall env (Some (convertExpr env lhs)) fn args + | C.EBinop(C.Oassign, lhs, rhs, _) -> + if Cutil.is_composite_type env lhs.etyp then + unsupported "assignment between structs or between unions"; + let lhs' = convertExpr env lhs + and rhs' = convertExpr env rhs in + begin match (is_volatile_access env lhs, is_volatile_access env rhs) with + | true, true -> (* should not happen *) + unsupported "volatile-to-volatile assignment"; + Sskip + | false, true -> (* volatile read *) + Scall(Some lhs', + volatile_read_fun (typeof rhs'), + [ Expr (Eaddrof rhs', Tpointer (typeof rhs')) ]) + | true, false -> (* volatile write *) + Scall(None, + volatile_write_fun (typeof lhs'), + [ Expr(Eaddrof lhs', Tpointer (typeof lhs')); rhs' ]) + | false, false -> (* regular assignment *) + Sassign(convertExpr env lhs, convertExpr env rhs) + end + | C.ECall(fn, args) -> + convertFuncall env None fn args + | _ -> + unsupported "illegal toplevel expression"; Sskip + +(* Separate the cases of a switch statement body *) + +type switchlabel = + | Case of C.exp + | Default + +type switchbody = + | Label of switchlabel + | Stmt of C.stmt + +let rec flattenSwitch = function + | {sdesc = C.Sseq(s1, s2)} -> + flattenSwitch s1 @ flattenSwitch s2 + | {sdesc = C.Slabeled(C.Scase e, s1)} -> + Label(Case e) :: flattenSwitch s1 + | {sdesc = C.Slabeled(C.Sdefault, s1)} -> + Label Default :: flattenSwitch s1 + | s -> + [Stmt s] + +let rec groupSwitch = function + | [] -> + (Cutil.sskip, []) + | Label case :: rem -> + let (fst, cases) = groupSwitch rem in + (Cutil.sskip, (case, fst) :: cases) + | Stmt s :: rem -> + let (fst, cases) = groupSwitch rem in + (Cutil.sseq s.sloc s fst, cases) + +(* Statement *) + +let rec convertStmt env s = + updateLoc s.sloc; + match s.sdesc with + | C.Sskip -> + Sskip + | C.Sdo e -> + convertTopExpr env e + | C.Sseq(s1, s2) -> + Ssequence(convertStmt env s1, convertStmt env s2) + | C.Sif(e, s1, s2) -> + Sifthenelse(convertExpr env e, convertStmt env s1, convertStmt env s2) + | C.Swhile(e, s1) -> + Swhile(convertExpr env e, convertStmt env s1) + | C.Sdowhile(s1, e) -> + Sdowhile(convertExpr env e, convertStmt env s1) + | C.Sfor(s1, e, s2, s3) -> + Sfor(convertStmt env s1, convertExpr env e, convertStmt env s2, + convertStmt env s3) + | C.Sbreak -> + Sbreak + | C.Scontinue -> + Scontinue + | C.Sswitch(e, s1) -> + let (init, cases) = groupSwitch (flattenSwitch s1) in + if cases = [] then + unsupported "ill-formed 'switch' statement"; + if init.sdesc <> C.Sskip then + warning "ignored code at beginning of 'switch'"; + Sswitch(convertExpr env e, convertSwitch env cases) + | C.Slabeled(C.Slabel lbl, s1) -> + Slabel( lbl, convertStmt env s1) + | C.Slabeled(C.Scase _, _) -> + unsupported "'case' outside of 'switch'"; Sskip + | C.Slabeled(C.Sdefault, _) -> + unsupported "'default' outside of 'switch'"; Sskip + | C.Sgoto lbl -> + Sgoto( lbl) + | C.Sreturn None -> + Sreturn None + | C.Sreturn(Some e) -> + Sreturn(Some(convertExpr env e)) + | C.Sblock _ -> + unsupported "nested blocks"; Sskip + | C.Sdecl _ -> + unsupported "inner declarations"; Sskip + +and convertSwitch env = function + | [] -> + LSdefault Sskip + | [Default, s] -> + LSdefault (convertStmt env s) + | (Default, s) :: _ -> + updateLoc s.sloc; + unsupported "'default' case must occur last"; + LSdefault Sskip + | (Case e, s) :: rem -> + updateLoc s.sloc; + let v = + match Ceval.integer_expr env e with + | None -> unsupported "'case' label is not a compile-time integer"; 0L + | Some v -> v in + LScase(convertInt v, + convertStmt env s, + convertSwitch env rem) + +(** Function definitions *) + +let convertFundef env fd = + if Cutil.is_composite_type env fd.fd_ret then + unsupported "function returning a struct or union"; + let ret = + convertTyp env fd.fd_ret in + let params = + List.map + (fun (id, ty) -> + if Cutil.is_composite_type env ty then + unsupported "function parameter of struct or union type"; + ( id.name, convertTyp env ty)) + fd.fd_params in + let vars = + List.map + (fun (sto, id, ty, init) -> + if sto = Storage_extern || sto = Storage_static then + unsupported "'static' or 'extern' local variable"; + if init <> None then + unsupported "initialized local variable"; + ( id.name, convertTyp env ty)) + fd.fd_locals in + let body' = convertStmt env fd.fd_body in + let id' = fd.fd_name.name in + let decl = + (fd.fd_storage, fd.fd_name, Cutil.fundef_typ fd, None) in + Hashtbl.add decl_atom id' (env, decl); + !define_function_hook id' decl; + (id', + Internal {fn_return = ret; fn_params = params; + fn_vars = vars; fn_body = body'}) + +(** External function declaration *) + +let convertFundecl env (sto, id, ty, optinit) = + match convertTyp env ty with + | Tfunction(args, res) -> + let id' = id.name in + (id', External(id', args, res)) + | _ -> + assert false + +(** Initializers *) + +let init_data_of_string s = + let id = ref [] in + let enter_char c = + let n = (Char.code c) in + id := Init_int8 n :: !id in + enter_char '\000'; + for i = String.length s - 1 downto 0 do enter_char s.[i] done; + !id + +let convertInit env ty init = + + let k = ref [] + and pos = ref 0 in + let emit size datum = + k := datum :: !k; + pos := !pos + size in + let emit_space size = + emit size (Init_space size) in + let align size = + let n = !pos land (size - 1) in + if n > 0 then emit_space (size - n) in + let check_align size = + assert (!pos land (size - 1) = 0) in + + let rec reduceInitExpr = function + | { edesc = C.EVar id; etyp = ty } -> + begin match Cutil.unroll env ty with + | C.TArray _ | C.TFun _ -> Some id + | _ -> None + end + | {edesc = C.EUnop(C.Oaddrof, {edesc = C.EVar id})} -> Some id + | {edesc = C.ECast(ty, e)} -> reduceInitExpr e + | _ -> None in + + let rec cvtInit ty = function + | Init_single e -> + begin match reduceInitExpr e with + | Some id -> + check_align 4; + emit 4 (Init_addrof( id.name, 0)) + | None -> + match Ceval.constant_expr env ty e with + | Some(C.CInt(v, ik, _)) -> + begin match convertIkind ik with + | (_, I8) -> + emit 1 (Init_int8(convertInt v)) + | (_, I16) -> + check_align 2; + emit 2 (Init_int16(convertInt v)) + | (_, I32) -> + check_align 4; + emit 4 (Init_int32(convertInt v)) + end + | Some(C.CFloat(v, fk, _)) -> + begin match convertFkind fk with + | F32 -> + check_align 4; + emit 4 (Init_float32 v) + | F64 -> + check_align 8; + emit 8 (Init_float64 v) + end + | Some(C.CStr s) -> + check_align 4; + let id = name_for_string_literal env s in + emit 4 (Init_addrof(id, 0)) + | Some(C.CWStr _) -> + unsupported "wide character strings" + | Some(C.CEnum _) -> + error "enum tag after constant folding" + | None -> + error "initializer is not a compile-time constant" + end + | Init_array il -> + let ty_elt = + match Cutil.unroll env ty with + | C.TArray(t, _, _) -> t + | _ -> error "array type expected in initializer"; C.TVoid [] in + List.iter (cvtInit ty_elt) il + | Init_struct(_, flds) -> + cvtPadToSizeof ty (fun () -> List.iter cvtFieldInit flds) + | Init_union(_, fld, i) -> + cvtPadToSizeof ty (fun () -> cvtFieldInit (fld,i)) + + and cvtFieldInit (fld, i) = + let ty' = convertTyp env fld.fld_typ in + let al = alignof ty' in + align al; + cvtInit fld.fld_typ i + + and cvtPadToSizeof ty fn = + let ty' = convertTyp env ty in + let sz = sizeof ty' in + let pos0 = !pos in + fn(); + let pos1 = !pos in + assert (pos1 <= pos0 + sz); + if pos1 < pos0 + sz then emit_space (pos0 + sz - pos1) + + in cvtInit ty init; List.rev !k + +(** Global variable *) + +let convertGlobvar env (sto, id, ty, optinit as decl) = + let id' = id.name in + let ty' = convertTyp env ty in + let init' = + match optinit with + | None -> + if sto = C.Storage_extern then [] else [Init_space(sizeof ty')] + | Some i -> + convertInit env ty i in + Hashtbl.add decl_atom id' (env, decl); + !define_variable_hook id' decl; + ((id', init'), ty') + +(** Convert a list of global declarations. + Result is a pair [(funs, vars)] where [funs] are + the function definitions (internal and external) + and [vars] the variable declarations. *) + +let rec convertGlobdecls env funs vars gl = + match gl with + | [] -> (List.rev funs, List.rev vars) + | g :: gl' -> + updateLoc g.gloc; + match g.gdesc with + | C.Gdecl((sto, id, ty, optinit) as d) -> + (* Prototyped functions become external declarations. + Variadic functions are skipped. + Other types become variable declarations. *) + begin match Cutil.unroll env ty with + | TFun(_, Some _, false, _) -> + convertGlobdecls env (convertFundecl env d :: funs) vars gl' + | TFun(_, None, false, _) -> + error "function declaration without prototype"; + convertGlobdecls env funs vars gl' + | TFun(_, _, true, _) -> + convertGlobdecls env funs vars gl' + | _ -> + convertGlobdecls env funs (convertGlobvar env d :: vars) gl' + end + | C.Gfundef fd -> + convertGlobdecls env (convertFundef env fd :: funs) vars gl' + | C.Gcompositedecl _ | C.Gcompositedef _ + | C.Gtypedef _ | C.Genumdef _ -> + (* typedefs are unrolled, structs are expanded inline, and + enum tags are folded. So we just skip their declarations. *) + convertGlobdecls env funs vars gl' + | C.Gpragma s -> + if not (!process_pragma_hook s) then + warning ("'#pragma " ^ s ^ "' directive ignored"); + convertGlobdecls env funs vars gl' + +(** Build environment of typedefs and structs *) + +let rec translEnv env = function + | [] -> env + | g :: gl -> + let env' = + match g.gdesc with + | C.Gcompositedecl(su, id) -> + Env.add_composite env id (Cutil.composite_info_decl env su) + | C.Gcompositedef(su, id, fld) -> + Env.add_composite env id (Cutil.composite_info_def env su fld) + | C.Gtypedef(id, ty) -> + Env.add_typedef env id ty + | _ -> + env in + translEnv env' gl + +(** Eliminate forward declarations of globals that are defined later. *) + +module IdentSet = Set.Make(struct type t = C.ident let compare = compare end) + +let cleanupGlobals p = + + let rec clean defs accu = function + | [] -> accu + | g :: gl -> + updateLoc g.gloc; + match g.gdesc with + | C.Gdecl(sto, id, ty, None) -> + if IdentSet.mem id defs + then clean defs accu gl + else clean (IdentSet.add id defs) (g :: accu) gl + | C.Gdecl(_, id, ty, _) -> + if IdentSet.mem id defs then + error ("multiple definitions of " ^ id.name); + clean (IdentSet.add id defs) (g :: accu) gl + | C.Gfundef fd -> + if IdentSet.mem fd.fd_name defs then + error ("multiple definitions of " ^ fd.fd_name.name); + clean (IdentSet.add fd.fd_name defs) (g :: accu) gl + | _ -> + clean defs (g :: accu) gl + + in clean IdentSet.empty [] (List.rev p) + +(** Convert a [C.program] into a [Csyntax.program] *) + +let convertProgram p = + numErrors := 0; + stringNum := 0; + Hashtbl.clear decl_atom; + Hashtbl.clear stringTable; + Hashtbl.clear stub_function_table; + (* Hack: externals are problematic for Cerco. TODO *) + let p = (* Builtins.declarations() @ *) p in + try + let (funs1, vars1) = + convertGlobdecls (translEnv Env.empty p) [] [] (cleanupGlobals p) in + let funs2 = declare_stub_functions funs1 in + let main = if List.mem_assoc "main" funs2 then Some "main" else None in + let vars2 = globals_for_strings vars1 in + if !numErrors > 0 + then None + else Some { prog_funct = funs2; + prog_vars = vars2; + prog_main = main } + with Env.Error msg -> + error (Env.error_message msg); None + +(** ** Extracting information about global variables from their atom *) + +let rec type_is_readonly env t = + let a = Cutil.attributes_of_type env t in + if List.mem C.AVolatile a then false else + if List.mem C.AConst a then true else + match Cutil.unroll env t with + | C.TArray(t', _, _) -> type_is_readonly env t' + | _ -> false + +let atom_is_static a = + try + let (env, (sto, id, ty, init)) = Hashtbl.find decl_atom a in + sto = C.Storage_static + with Not_found -> + false + +let atom_is_readonly a = + try + let (env, (sto, id, ty, init)) = Hashtbl.find decl_atom a in + type_is_readonly env ty + with Not_found -> + false + +let atom_sizeof a = + try + let (env, (sto, id, ty, init)) = Hashtbl.find decl_atom a in + Cutil.sizeof env ty + with Not_found -> + None + +let atom_alignof a = + try + let (env, (sto, id, ty, init)) = Hashtbl.find decl_atom a in + Cutil.alignof env ty + with Not_found -> + None + +(** ** The builtin environment *) + +open Builtins + +let builtins_generic = { + typedefs = [ + (* keeps GCC-specific headers happy, harmless for others *) + "__builtin_va_list", C.TPtr(C.TVoid [], []) + ]; + functions = [ + (* The volatile read/volatile write functions *) + "__builtin_volatile_read_int8unsigned", + (TInt(IUChar, []), [TPtr(TVoid [], [])], false); + "__builtin_volatile_read_int8signed", + (TInt(ISChar, []), [TPtr(TVoid [], [])], false); + "__builtin_volatile_read_int16unsigned", + (TInt(IUShort, []), [TPtr(TVoid [], [])], false); + "__builtin_volatile_read_int16signed", + (TInt(IShort, []), [TPtr(TVoid [], [])], false); + "__builtin_volatile_read_int32", + (TInt(IInt, []), [TPtr(TVoid [], [])], false); + "__builtin_volatile_read_float32", + (TFloat(FFloat, []), [TPtr(TVoid [], [])], false); + "__builtin_volatile_read_float64", + (TFloat(FDouble, []), [TPtr(TVoid [], [])], false); + "__builtin_volatile_read_pointer", + (TPtr(TVoid [], []), [TPtr(TVoid [], [])], false); + "__builtin_volatile_write_int8unsigned", + (TVoid [], [TPtr(TVoid [], []); TInt(IUChar, [])], false); + "__builtin_volatile_write_int8signed", + (TVoid [], [TPtr(TVoid [], []); TInt(ISChar, [])], false); + "__builtin_volatile_write_int16unsigned", + (TVoid [], [TPtr(TVoid [], []); TInt(IUShort, [])], false); + "__builtin_volatile_write_int16signed", + (TVoid [], [TPtr(TVoid [], []); TInt(IShort, [])], false); + "__builtin_volatile_write_int32", + (TVoid [], [TPtr(TVoid [], []); TInt(IInt, [])], false); + "__builtin_volatile_write_float32", + (TVoid [], [TPtr(TVoid [], []); TFloat(FFloat, [])], false); + "__builtin_volatile_write_float64", + (TVoid [], [TPtr(TVoid [], []); TFloat(FDouble, [])], false); + "__builtin_volatile_write_pointer", + (TVoid [], [TPtr(TVoid [], []); TPtr(TVoid [], [])], false) + ] +} + +(* Add processor-dependent builtins *) + +let builtins = + { typedefs = builtins_generic.typedefs @ CBuiltins.builtins.typedefs; + functions = builtins_generic.functions @ CBuiltins.builtins.functions + } diff --git a/src/clight/clightInterpret.ml b/src/clight/clightInterpret.ml new file mode 100644 index 0000000..119f6e3 --- /dev/null +++ b/src/clight/clightInterpret.ml @@ -0,0 +1,621 @@ +module Mem = Driver.ClightMemory +module Value = Driver.ClightMemory.Value +module LocalEnv = Map.Make(String) +type localEnv = Value.address LocalEnv.t +type memory = Clight.fundef Mem.memory + +open Clight +open AST + + +let error_prefix = "Clight interpret" +let error s = Error.global_error error_prefix s +let warning s = Error.warning error_prefix s +let error_float () = error "float not supported." + + +(* Helpers *) + +let value_of_address = List.hd +let address_of_value v = [v] + + +(* State of execution *) + +type continuation = + | Kstop + | Kseq of statement*continuation + | Kwhile of expr*statement*continuation + | Kdowhile of expr*statement*continuation + | Kfor2 of expr*statement*statement*continuation + | Kfor3 of expr*statement*statement*continuation + | Kswitch of continuation + | Kcall of (Value.address*ctype) option*cfunction*localEnv*continuation + +type state = + | State of cfunction*statement*continuation*localEnv*memory + | Callstate of fundef*Value.t list*continuation*memory + | Returnstate of Value.t*continuation*memory + +let string_of_unop = function + | Onotbool -> "!" + | Onotint -> "~" + | Oneg -> "-" + +let string_of_binop = function + | Oadd -> "+" + | Osub -> "-" + | Omul -> "*" + | Odiv -> "/" + | Omod -> "%" + | Oand -> "&" + | Oor -> "|" + | Oxor -> "^" + | Oshl -> "<<" + | Oshr -> ">>" + | Oeq -> "==" + | One -> "!=" + | Olt -> "<" + | Ogt -> ">" + | Ole -> "<=" + | Oge -> ">=" + +let string_of_signedness = function + | Signed -> "signed" + | Unsigned -> "unsigned" + +let string_of_sized_int = function + | I8 -> "char" + | I16 -> "short" + | I32 -> "int" + +let rec string_of_ctype = function + | Tvoid -> "void" + | Tint (size, sign) -> + (string_of_signedness sign) ^ " " ^ (string_of_sized_int size) + | Tfloat _ -> error_float () + | Tpointer ty -> (string_of_ctype ty) ^ "*" + | Tarray (ty, _) -> (string_of_ctype ty) ^ "[]" + | Tfunction _ -> assert false (* do not cast to a function type *) + | Tstruct (id, _) + | Tunion (id, _) -> id + | Tcomp_ptr id -> id ^ "*" + +let rec string_of_expr (Expr (e, _)) = string_of_expr_descr e +and string_of_expr_descr = function + | Econst_int i -> string_of_int i + | Econst_float _ -> error_float () + | Evar x -> x + | Ederef e -> "*(" ^ (string_of_expr e) ^ ")" + | Eaddrof e -> "&(" ^ (string_of_expr e) ^ ")" + | Eunop (unop, e) -> (string_of_unop unop) ^ "(" ^ (string_of_expr e) ^ ")" + | Ebinop (binop, e1, e2) -> + "(" ^ (string_of_expr e1) ^ ")" ^ (string_of_binop binop) ^ + "(" ^ (string_of_expr e2) ^ ")" + | Ecast (ty, e) -> + "(" ^ (string_of_ctype ty) ^ ") (" ^ (string_of_expr e) ^ ")" + | Econdition (e1, e2, e3) -> + "(" ^ (string_of_expr e1) ^ ") ? (" ^ (string_of_expr e2) ^ + ") : (" ^ (string_of_expr e3) ^ ")" + | Eandbool (e1, e2) -> + "(" ^ (string_of_expr e1) ^ ") && (" ^ (string_of_expr e2) ^ ")" + | Eorbool (e1, e2) -> + "(" ^ (string_of_expr e1) ^ ") || (" ^ (string_of_expr e2) ^ ")" + | Esizeof ty -> "sizeof(" ^ (string_of_ctype ty) ^ ")" + | Efield (e, field) -> "(" ^ (string_of_expr e) ^ ")." ^ field + | Ecost (cost_lbl, e) -> "/* " ^ cost_lbl ^ " */ " ^ (string_of_expr e) + | Ecall (f, arg, e) -> + "(" ^ f ^ "(" ^ (string_of_expr arg) ^ "), " ^ (string_of_expr e) ^ ")" + +let string_of_args args = + "(" ^ (MiscPottier.string_of_list ", " string_of_expr args) ^ ")" + +let rec string_of_statement = function + | Sskip -> "skip" + | Sassign (e1, e2) -> (string_of_expr e1) ^ " = " ^ (string_of_expr e2) + | Scall (None, f, args) -> (string_of_expr f) ^ (string_of_args args) + | Scall (Some e, f, args) -> + (string_of_expr e) ^ " = " ^ (string_of_expr f) ^ (string_of_args args) + | Ssequence _ -> "sequence" + | Sifthenelse (e, _, _) -> "if (" ^ (string_of_expr e) ^ ")" + | Swhile (e, _) -> "while (" ^ (string_of_expr e) ^ ")" + | Sdowhile _ -> "dowhile" + | Sfor (s, _, _, _) -> "for (" ^ (string_of_statement s) ^ "; ...)" + | Sbreak -> "break" + | Scontinue -> "continue" + | Sreturn None -> "return" + | Sreturn (Some e) -> "return (" ^ (string_of_expr e) ^ ")" + | Sswitch (e, _) -> "switch (" ^ (string_of_expr e) ^ ")" + | Slabel (lbl, _) -> "label " ^ lbl + | Sgoto lbl -> "goto " ^ lbl + | Scost (lbl, _) -> "cost " ^ lbl + +let string_of_local_env lenv = + let f x addr s = + s ^ x ^ " = " ^ (Value.to_string (value_of_address addr)) ^ " " in + LocalEnv.fold f lenv "" + +let print_state = function + | State (_, stmt, _, lenv, mem) -> + Printf.printf "Local environment:\n%s\n\nMemory:%s\nRegular state: %s\n\n%!" + (string_of_local_env lenv) + (Mem.to_string mem) + (string_of_statement stmt) + | Callstate (_, args, _, mem) -> + Printf.printf "Memory:%s\nCall state\n\nArguments:\n%s\n\n%!" + (Mem.to_string mem) + (MiscPottier.string_of_list " " Value.to_string args) + | Returnstate (v, _, mem) -> + Printf.printf "Memory:%s\nReturn state: %s\n\n%!" + (Mem.to_string mem) + (Value.to_string v) + + +(* Continuations and labels *) + +let rec call_cont = function + | Kseq (_,k) | Kwhile (_,_,k) | Kdowhile (_,_,k) + | Kfor2 (_,_,_,k) | Kfor3 (_,_,_,k) | Kswitch k -> call_cont k + | k -> k + +let rec seq_of_labeled_statement = function + | LSdefault s -> s + | LScase (c,s,sl') -> Ssequence (s,(seq_of_labeled_statement sl')) + +let rec find_label1 lbl s k = match s with + | Ssequence (s1,s2) -> + (match find_label1 lbl s1 (Kseq (s2,k)) with + | Some sk -> Some sk + | None -> find_label1 lbl s2 k + ) + | Sifthenelse (a,s1,s2) -> + (match find_label1 lbl s1 k with + | Some sk -> Some sk + | None -> find_label1 lbl s2 k + ) + | Swhile (a,s1) -> find_label1 lbl s1 (Kwhile(a,s1,k)) + | Sdowhile (a,s1) -> find_label1 lbl s1 (Kdowhile(a,s1,k)) + | Sfor (a1,a2,a3,s1) -> + (match find_label1 lbl a1 (Kseq ((Sfor(Sskip,a2,a3,s1)),k)) with + | Some sk -> Some sk + | None -> + (match find_label1 lbl s1 (Kfor2(a2,a3,s1,k)) with + | Some sk -> Some sk + | None -> find_label1 lbl a3 (Kfor3(a2,a3,s1,k)) + )) + | Sswitch (e,sl) -> find_label_ls lbl sl (Kswitch k) + | Slabel (lbl',s') -> if lbl=lbl' then Some(s', k) else find_label1 lbl s' k + | Scost (_,s') -> find_label1 lbl s' k + | Sskip | Sassign (_,_) | Scall (_,_,_) | Sbreak + | Scontinue | Sreturn _ | Sgoto _ -> None + +and find_label_ls lbl sl k = match sl with + | LSdefault s -> find_label1 lbl s k + | LScase (_,s,sl') -> + (match find_label1 lbl s (Kseq((seq_of_labeled_statement sl'),k)) with + | Some sk -> Some sk + | None -> find_label_ls lbl sl' k + ) + +let find_label lbl s k = match find_label1 lbl s k with + | Some res -> res + | _ -> assert false (* should be impossible *) + +let rec select_switch i = function + | LSdefault d -> LSdefault d + | LScase (c,s,sl') when c=i-> LScase (c,s,sl') + | LScase (_,_,sl') -> select_switch i sl' + + +(* ctype functions *) + +let sizeof ctype = Mem.concrete_size (ClightToCminor.sizeof_ctype ctype) + +let size_of_ctype = function + | Tint (I8, _) -> 1 + | Tint (I16, _) -> 2 + | Tint (I32, _) -> 4 + | Tfloat _ -> error_float () + | Tcomp_ptr _ + | Tpointer _ + | Tarray _ + | Tstruct _ + | Tunion _ -> Mem.ptr_size + | _ -> assert false (* do not use on these arguments *) + +let is_function_type = function + | Tfunction _ -> true + | _ -> false + +let is_array_type = function + | Tarray _ -> true + | _ -> false + +let is_complex_type = function + | Tstruct _ | Tunion _ -> true + | _ -> false + +let is_big_type t = (is_array_type t) || (is_complex_type t) + +let dest_type = function + | Tpointer ty | Tarray (ty, _) -> ty + | _ -> assert false (* do not use on these arguments *) + + +(* Global and local environment management *) + +let find_local x lenv = + if LocalEnv.mem x lenv then LocalEnv.find x lenv + else error ("Unknown local variable " ^ x ^ ".") + +let find_global x mem = + if Mem.mem_global mem x then Mem.find_global mem x + else error ("Unknown global variable " ^ x ^ ".") + +let find_symbol lenv mem x = + if LocalEnv.mem x lenv then LocalEnv.find x lenv + else + if Mem.mem_global mem x then Mem.find_global mem x + else error ("Unknown variable " ^ x ^ ".") + +let find_fundef f mem = + let addr = Mem.find_global mem f in + Mem.find_fun_def mem addr + + +(* Interpret *) + +let byte_of_intsize = function + | I8 -> 1 + | I16 -> 2 + | I32 -> 4 + +let choose_cast sign n m v = + let f = match sign with + | Signed -> Value.sign_ext + | Unsigned -> Value.zero_ext in + f v n m + +let eval_cast = function + (* Cast Integer *) + | (v,Tint(isize,sign),Tint(isize',_)) -> + choose_cast sign (byte_of_intsize isize) (byte_of_intsize isize') v + | (v,_,_) -> v + +let to_int32 (v, t) = eval_cast (v, t, Tint (I32, Signed)) + +let eval_unop ret_ctype ((_, t) as e) op = + let v = to_int32 e in + let v = match op with + | Onotbool -> Value.notbool v + | Onotint -> Value.notint v + | Oneg -> Value.negint v in + eval_cast (v, t, ret_ctype) + +let eval_add (v1,t1) (v2,t2) = match t1, t2 with + | Tpointer ty, Tint _ | Tarray (ty, _), Tint _ -> + let v = Value.mul (Value.of_int (sizeof ty)) v2 in + Value.add v1 v + | Tint _, Tpointer ty | Tint _, Tarray (ty, _) -> + let v = Value.mul (Value.of_int (sizeof ty)) v1 in + Value.add v2 v + | _ -> Value.add v1 v2 + +let eval_sub (v1,t1) (v2,t2) = match t1, t2 with + | Tpointer ty, Tint _ | Tarray (ty, _), Tint _ -> + let v = Value.mul (Value.of_int (sizeof ty)) v2 in + Value.sub v1 v + | _ -> Value.sub v1 v2 + +let choose_sign op_signed op_unsigned v1 v2 t = + let op = match t with + | Tint (_, Signed) -> op_signed + | Tint (_, Unsigned) -> op_unsigned + | _ -> op_unsigned in + op v1 v2 + +let eval_binop ret_ctype ((_, t1) as e1) ((_, t2) as e2) op = + let v1 = to_int32 e1 in + let v2 = to_int32 e2 in + let e1 = (v1, t1) in + let e2 = (v2, t2) in + let v = match op with + | Oadd -> eval_add e1 e2 + | Osub -> eval_sub e1 e2 + | Omul -> Value.mul v1 v2 + | Odiv -> choose_sign Value.div Value.divu v1 v2 t1 + | Omod -> choose_sign Value.modulo Value.modulou v1 v2 t1 + | Oand -> Value.and_op v1 v2 + | Oor -> Value.or_op v1 v2 + | Oxor -> Value.xor v1 v2 + | Oshl-> Value.shl v1 v2 + | Oshr-> Value.shr v1 v2 + | Oeq -> choose_sign Value.cmp_eq Value.cmp_eq_u v1 v2 t1 + | One -> choose_sign Value.cmp_ne Value.cmp_ne_u v1 v2 t1 + | Olt -> choose_sign Value.cmp_lt Value.cmp_lt_u v1 v2 t1 + | Ole -> choose_sign Value.cmp_le Value.cmp_le_u v1 v2 t1 + | Ogt -> choose_sign Value.cmp_gt Value.cmp_gt_u v1 v2 t1 + | Oge -> choose_sign Value.cmp_ge Value.cmp_ge_u v1 v2 t1 in + eval_cast (v, t1, ret_ctype) + +let rec get_offset_struct v size id fields = + let offsets = fst (Mem.concrete_offsets_size size) in + let fields = List.combine (List.map fst fields) offsets in + let off = Value.of_int (List.assoc id fields) in + Value.add v off + +let get_offset v id = function + | Tstruct (_, fields) as t -> + let size = ClightToCminor.sizeof_ctype t in + get_offset_struct v size id fields + | Tunion _ -> v + | _ -> assert false (* do not use on these arguments *) + +let is_true (v, _) = Value.is_true v +let is_false (v, _) = Value.is_false v + +let rec eval_expr localenv m (Expr (ee, tt)) = + match ee with + | Econst_int i -> + let v = eval_cast (Value.of_int i, Tint(I32, Signed), tt) in + ((v, tt),[]) + | Econst_float _ -> error_float () + | Evar id when is_function_type tt || is_big_type tt -> + let v = value_of_address (find_symbol localenv m id) in + ((v, tt), []) + | Evar id -> + let addr = find_symbol localenv m id in + let v = Mem.load m (size_of_ctype tt) addr in + ((v, tt), []) + | Ederef e when is_function_type tt || is_big_type tt -> + let ((v1,_),l1) = eval_expr localenv m e in + ((v1,tt),l1) + | Ederef e -> + let ((v1,_),l1) = eval_expr localenv m e in + let addr = address_of_value v1 in + let v = Mem.load m (size_of_ctype tt) addr in + ((v,tt),l1) + | Eaddrof exp -> + let ((addr,_),l) = eval_lvalue localenv m exp in + ((value_of_address addr,tt),l) + | Ebinop (op,exp1,exp2) -> + let (v1,l1) = eval_expr localenv m exp1 in + let (v2,l2) = eval_expr localenv m exp2 in + ((eval_binop tt v1 v2 op,tt),l1@l2) + | Eunop (op,exp) -> + let (e1,l1) = eval_expr localenv m exp in + ((eval_unop tt e1 op,tt),l1) + | Econdition (e1,e2,e3) -> + let (v1,l1) = eval_expr localenv m e1 in + if is_true v1 then let (v2,l2) = eval_expr localenv m e2 in (v2,l1@l2) + else + if is_false v1 then let (v3,l3) = eval_expr localenv m e3 in (v3,l1@l3) + else (v1,l1) + | Eandbool (e1,e2) -> + let (v1,l1) = eval_expr localenv m e1 in + if is_true v1 then let (v2,l2) = eval_expr localenv m e2 in (v2,l1@l2) + else (v1,l1) + | Eorbool (e1,e2) -> + let (v1,l1) = eval_expr localenv m e1 in + if is_false v1 then let (v2,l2) = eval_expr localenv m e2 in (v2,l1@l2) + else (v1,l1) + | Esizeof cty -> ((Value.of_int (sizeof cty),tt),[]) + | Efield (e1,id) -> + let ((v1,t1),l1) = eval_expr localenv m e1 in + let addr = address_of_value (get_offset v1 id t1) in + ((Mem.load m (size_of_ctype tt) addr, tt), l1) + | Ecost (lbl,e1) -> + let (v1,l1) = eval_expr localenv m e1 in + (v1,lbl::l1) + | Ecall _ -> assert false (* only used by the annotation process *) + | Ecast (cty,exp) -> + let ((v,ty),l1) = eval_expr localenv m exp in + ((eval_cast (v,ty,cty),tt),l1) + +and eval_lvalue localenv m (Expr (e,t)) = match e with + | Econst_int _ | Econst_float _ | Eaddrof _ | Eunop (_,_) | Ebinop (_,_,_) + | Ecast (_,_) | Econdition (_,_,_) | Eandbool (_,_) | Eorbool (_,_) + | Esizeof _ -> assert false (*Not allowed in left side of assignement*) + | Evar id -> ((find_symbol localenv m id,t),[]) + | Ederef ee -> + let ((v,_),l1) = eval_expr localenv m ee in + ((address_of_value v,t),l1) + | Efield (ee,id) -> + let ((v,tt),l1) = eval_expr localenv m ee in + let v' = get_offset v id tt in + ((address_of_value v', t), l1) + | Ecost (lbl,ee) -> + let (v,l) = eval_lvalue localenv m ee in + (v,lbl::l) + | Ecall _ -> assert false (* only used in the annotation process *) + +let eval_exprlist lenv mem es = + let f (vs, cost_lbls) e = + let ((v, _), cost_lbls') = eval_expr lenv mem e in + (vs @ [v], cost_lbls @ cost_lbls') in + List.fold_left f ([], []) es + + +let bind (mem, lenv) (x, ty) v = + let (mem, addr) = Mem.alloc mem (sizeof ty) in + let mem = Mem.store mem (sizeof ty) addr v in + let lenv = LocalEnv.add x addr lenv in + (mem, lenv) + +let bind_var (mem, lenv) (x, ty) = bind (mem, lenv) (x, ty) Value.undef + +let init_fun_env mem params args vars = + let lenv = LocalEnv.empty in + let (mem, lenv) = + try List.fold_left2 bind (mem, lenv) params args + with Invalid_argument _ -> error "wrong size of arguments." in + List.fold_left bind_var (mem, lenv) vars + +let assign m v ty ptr = Mem.store m (size_of_ctype ty) ptr v + + +let free_local_env mem lenv = + let f _ addr mem = Mem.free mem addr in + LocalEnv.fold f lenv mem + +let condition v a_true a_false = + if Value.is_false v then a_false + else if Value.is_true v then a_true + else error "undefined condition guard value." + +let eval_stmt f k e m s = match s, k with + | Sskip, Kseq(s,k) -> (State(f,s,k,e,m),[]) + | Sskip, Kwhile(a,s,k) -> (State(f,Swhile(a,s),k,e,m),[]) + | Sskip, Kdowhile(a,s,k) -> + let ((v1, _),l1) = eval_expr e m a in + let a_false = (State(f,Sskip,k,e,m),l1) in + let a_true = (State(f,Sdowhile(a,s),k,e,m),l1) in + condition v1 a_true a_false + | Sskip, Kfor3(a2,a3,s,k) -> (State(f,Sfor(Sskip,a2,a3,s),k,e,m),[]) + | Sskip, Kfor2(a2,a3,s,k) -> (State(f,a3,Kfor3(a2,a3,s,k),e,m),[]) + | Sskip, Kswitch k -> (State(f,Sskip,k,e,m),[]) + | Sskip, Kcall _ -> + let m' = free_local_env m e in + (Returnstate(Value.undef,k,m'),[]) + | Sassign(a1, a2), _ -> + let ((v1,t1),l1) = (eval_lvalue e m a1) in + let ((v2,t2),l2) = eval_expr e m a2 in + (State(f,Sskip,k,e,assign m v2 t1 v1),l1@l2) + | Scall(None,a,al), _ -> + let ((v1,_),l1) = eval_expr e m a in + let fd = Mem.find_fun_def m (address_of_value v1) in + let (vargs,l2) = eval_exprlist e m al in + (Callstate(fd,vargs,Kcall(None,f,e,k),m),l1@l2) + | Scall(Some lhs,a,al), _ -> + let ((v1,_),l1) = eval_expr e m a in + let fd = Mem.find_fun_def m (address_of_value v1) in + let (vargs,l2) = eval_exprlist e m al in + let (vt3,l3) = eval_lvalue e m lhs in + (Callstate(fd,vargs,Kcall(Some vt3,f,e,k),m),l1@l2@l3) + | Ssequence(s1,s2), _ -> (State(f,s1,Kseq(s2,k),e,m),[]) + | Sifthenelse(a,s1,s2), _ -> + let ((v1,_),l1) = eval_expr e m a in + let a_true = (State(f,s1,k,e,m),l1) in + let a_false = (State(f,s2,k,e,m),l1) in + condition v1 a_true a_false + | Swhile(a,s), _ -> + let ((v1,_),l1) = eval_expr e m a in + let a_false = (State(f,Sskip,k,e,m),l1) in + let a_true = (State(f,s,Kwhile(a,s,k),e,m),l1) in + condition v1 a_true a_false + | Sdowhile(a,s), _ -> (State(f,s,Kdowhile(a,s,k),e,m),[]) + | Sfor(Sskip,a2,a3,s), _ -> + let ((v1,_),l1) = eval_expr e m a2 in + let a_false = (State(f,Sskip,k,e,m),l1) in + let a_true = (State(f,s,Kfor2(a2,a3,s,k),e,m),l1) in + condition v1 a_true a_false + | Sfor(a1,a2,a3,s), _ -> (State(f,a1,Kseq(Sfor(Sskip,a2,a3,s),k),e,m),[]) + | Sbreak, Kseq(s,k) -> (State(f,Sbreak,k,e,m),[]) + | Sbreak, Kwhile(_,_,k) -> (State(f,Sskip,k,e,m),[]) + | Sbreak, Kdowhile(_,_,k) -> (State(f,Sskip,k,e,m),[]) + | Sbreak, Kfor2(_,_,_,k) -> (State(f,Sskip,k,e,m),[]) + | Sbreak, Kswitch k -> (State(f,Sskip,k,e,m),[]) + | Scontinue, Kseq(_,k) -> (State(f,Scontinue,k,e,m),[]) + | Scontinue, Kwhile(a,s,k) -> (State(f,Swhile(a,s),k,e,m),[]) + | Scontinue, Kdowhile(a,s,k) -> + let ((v1,_),l1) = eval_expr e m a in + let a_false = (State(f,Sskip,k,e,m),l1) in + let a_true = (State(f,Sdowhile(a,s),k,e,m),l1) in + condition v1 a_true a_false + | Scontinue, Kfor2(a2,a3,s,k) -> (State(f,a3,Kfor3(a2,a3,s,k),e,m),[]) + | Scontinue, Kswitch k -> (State(f,Scontinue,k,e,m),[]) + | Sreturn None, _ -> + let m' = free_local_env m e in + (Returnstate(Value.undef,(call_cont k),m'),[]) + | Sreturn (Some a), _ -> + let ((v1,_),l1) = eval_expr e m a in + let m' = free_local_env m e in + (Returnstate(v1,call_cont k,m'),l1) + | Sswitch(a,sl), _ -> + let ((v,_),l) = eval_expr e m a in + let n = Value.to_int v in + (State(f,(seq_of_labeled_statement (select_switch n sl)),Kswitch k,e,m),l) + | Slabel(lbl,s), _ -> (State(f,s,k,e,m),[]) + | Scost(lbl,s), _ -> (State(f,s,k,e,m),[lbl]) + | Sgoto lbl, _ -> + let (s', k') = find_label lbl f.fn_body (call_cont k) in + (State(f,s',k',e,m),[]) + | _ -> assert false (* should be impossible *) + + +module InterpretExternal = Primitive.Interpret (Mem) + +let interpret_external k mem f args = + let (mem', v) = match InterpretExternal.t mem f args with + | (mem', InterpretExternal.V vs) -> + let v = if List.length vs = 0 then Value.undef else List.hd vs in + (mem', v) + | (mem', InterpretExternal.A addr) -> (mem', value_of_address addr) in + Returnstate (v, k, mem') + +let step_call args cont mem = function + | Internal f -> + let (mem', e) = init_fun_env mem f.fn_params args f.fn_vars in + State (f, f.fn_body, cont, e, mem') + | External(id,targs,tres) when List.length targs = List.length args -> + interpret_external cont mem id args + | External(id,_,_) -> + error ("wrong size of arguments when calling external " ^ id ^ ".") + +let step = function + | State(f,stmt,k,e,m) -> eval_stmt f k e m stmt + | Callstate(fun_def,vargs,k,m) -> (step_call vargs k m fun_def,[]) + | Returnstate(v,Kcall(None,f,e,k),m) -> (State(f,Sskip,k,e,m),[]) + | Returnstate(v,Kcall((Some(vv, ty)),f,e,k),m) -> + let m' = assign m v ty vv in + (State(f,Sskip,k,e,m'),[]) + | _ -> error "state malformation." + + +let data_of_init_data = function + | Init_int8 i -> Data_int8 i + | Init_int16 i -> Data_int16 i + | Init_int32 i -> Data_int32 i + | Init_float32 f -> error_float () + | Init_float64 f -> error_float () + | Init_space i -> error "bad global initialization style." + | Init_addrof (x,off) -> assert false (* TODO: need the size of [x]'s cells *) + +let datas_of_init_datas = function + | [Init_space _] -> None + | l -> Some (List.map data_of_init_data l) + +let init_mem prog = + let f_var mem ((x, init_datas), ty) = + Mem.add_var mem x (ClightToCminor.sizeof_ctype ty) + (datas_of_init_datas init_datas) in + let mem = List.fold_left f_var Mem.empty prog.prog_vars in + let f_fun_def mem (f, def) = Mem.add_fun_def mem f def in + List.fold_left f_fun_def mem prog.prog_funct + +let compute_result v = + if Value.is_int v then IntValue.Int32.cast (Value.to_int_repr v) + else IntValue.Int32.zero + +let rec exec debug trace (state, l) = + let cost_labels = l @ trace in + let print_and_return_result res = + if debug then Printf.printf "Result = %s\n%!" + (IntValue.Int32.to_string res) ; + (res, cost_labels) in + if debug then print_state state ; + match state with + | Returnstate(v,Kstop,_) -> (* Explicit return in main *) + print_and_return_result (compute_result v) + | State(_,Sskip,Kstop,_,_) -> (* Implicit return in main *) + print_and_return_result IntValue.Int32.zero + | state -> exec debug cost_labels (step state) + +let interpret debug prog = + Printf.printf "*** Clight interpret ***\n%!" ; + match prog.prog_main with + | None -> (IntValue.Int32.zero, []) + | Some main -> + let mem = init_mem prog in + let first_state = (Callstate (find_fundef main mem,[],Kstop,mem),[]) in + exec debug [] first_state diff --git a/src/clight/clightInterpret.mli b/src/clight/clightInterpret.mli new file mode 100644 index 0000000..93e0163 --- /dev/null +++ b/src/clight/clightInterpret.mli @@ -0,0 +1,7 @@ +(** This module provides a function to interpret a [Clight] program + and return the trace of cost labels encountered. This function + can also print debug informations. *) + +(** [interpret debug p] returns the trace of execution of program [p]. *) + +val interpret: bool -> Clight.program -> AST.trace diff --git a/src/clight/clightLabelling.ml b/src/clight/clightLabelling.ml new file mode 100644 index 0000000..fa2f1dc --- /dev/null +++ b/src/clight/clightLabelling.ml @@ -0,0 +1,165 @@ + +(** This module defines the labelling of a [Clight] program. *) + +open Clight +open CostLabel + + +(* Add a cost label in front of a statement. *) + +let add_starting_cost_label cost_universe stmt = + Clight.Scost (CostLabel.Gen.fresh cost_universe, stmt) + +(* Add a cost label at the end of a statement. *) + +let add_ending_cost_label cost_universe stmt = + Clight.Ssequence (stmt, add_starting_cost_label cost_universe Clight.Sskip) + + +let int_type = Tint (I32, AST.Signed) +let const_int i = Expr (Econst_int i, int_type) + + +let typeof e = let Expr (_,t) = e in t + + +let add_cost_label_e cost_universe e = + Expr (Ecost (CostLabel.Gen.fresh cost_universe, e), typeof e) + + +(* Add cost labels to an expression. *) + +let rec add_cost_labels_e cost_universe = function + | Expr (exp,cty) -> Expr (add_cost_labels_expr cost_universe exp,cty) + +and add_cost_labels_expr cost_universe exp = match exp with + | Econst_int _ | Econst_float _ | Evar _ | Esizeof _ -> exp + | Ederef e -> Ederef (add_cost_labels_e cost_universe e) + | Eaddrof e -> Eaddrof (add_cost_labels_e cost_universe e) + | Eunop (op,e) -> Eunop (op,(add_cost_labels_e cost_universe e)) + | Ebinop (op,e1,e2) -> + Ebinop (op, + add_cost_labels_e cost_universe e1, + add_cost_labels_e cost_universe e2) + | Ecast (t,e) -> Ecast (t, add_cost_labels_e cost_universe e) + | Eandbool (e1,e2) -> + let e1' = add_cost_labels_e cost_universe e1 in + let e2' = add_cost_labels_e cost_universe e2 in + let b1 = add_cost_label_e cost_universe (const_int 1) in + let b2 = add_cost_label_e cost_universe (const_int 0) in + let e2' = Expr (Econdition (e2', b1, b2), int_type) in + let e2' = add_cost_label_e cost_universe e2' in + let e3' = add_cost_label_e cost_universe (const_int 0) in + Econdition (e1', e2', e3') + | Eorbool (e1,e2) -> + let e1' = add_cost_labels_e cost_universe e1 in + let e2' = add_cost_label_e cost_universe (const_int 1) in + let e3' = add_cost_labels_e cost_universe e2 in + let b1 = add_cost_label_e cost_universe (const_int 1) in + let b2 = add_cost_label_e cost_universe (const_int 0) in + let e3' = Expr (Econdition (e3', b1, b2), int_type) in + let e3' = add_cost_label_e cost_universe e3' in + Econdition (e1', e2', e3') + | Efield (e,id) -> Efield (add_cost_labels_e cost_universe e,id) + | Econdition (e1,e2,e3) -> + let e1' = add_cost_labels_e cost_universe e1 in + let e2' = add_cost_labels_e cost_universe e2 in + let e2' = add_cost_label_e cost_universe e2' in + let e3' = add_cost_labels_e cost_universe e3 in + let e3' = add_cost_label_e cost_universe e3' in + Econdition (e1', e2', e3') + | Ecost (_,_) | Ecall _ -> assert false (* Should not happen *) + +let add_cost_labels_opt cost_universe = function + | None -> None + | Some e -> Some (add_cost_labels_e cost_universe e) + +let add_cost_labels_lst cost_universe l = + List.map (add_cost_labels_e cost_universe) l + + +(* Add cost labels to a statement. *) + +let rec add_cost_labels_st cost_universe = function + | Sskip -> Sskip + | Sassign (e1,e2) -> + Sassign (add_cost_labels_e cost_universe e1, + add_cost_labels_e cost_universe e2) + | Scall (e1,e2,lst) -> + Scall (add_cost_labels_opt cost_universe e1, + add_cost_labels_e cost_universe e2, + add_cost_labels_lst cost_universe lst) + | Ssequence (s1,s2) -> + Ssequence (add_cost_labels_st cost_universe s1, + add_cost_labels_st cost_universe s2) + | Sifthenelse (e,s1,s2) -> + let s1' = add_cost_labels_st cost_universe s1 in + let s1' = add_starting_cost_label cost_universe s1' in + let s2' = add_cost_labels_st cost_universe s2 in + let s2' = add_starting_cost_label cost_universe s2' in + Sifthenelse (add_cost_labels_e cost_universe e, s1', s2') + | Swhile (e,s) -> + let s' = add_cost_labels_st cost_universe s in + let s' = add_starting_cost_label cost_universe s' in + add_ending_cost_label cost_universe + (Swhile (add_cost_labels_e cost_universe e, s')) + | Sdowhile (e,s) -> + let s = add_cost_labels_st cost_universe s in + let s' = add_starting_cost_label cost_universe s in + add_ending_cost_label cost_universe + (Sdowhile (add_cost_labels_e cost_universe e, s')) + | Sfor (s1,e,s2,s3) -> + let s1' = add_cost_labels_st cost_universe s1 in + let s2' = add_cost_labels_st cost_universe s2 in + let s3' = add_cost_labels_st cost_universe s3 in + let s3' = add_starting_cost_label cost_universe s3' in + add_ending_cost_label cost_universe + (Sfor (s1', add_cost_labels_e cost_universe e, s2', s3')) + | Sreturn e -> Sreturn (add_cost_labels_opt cost_universe e) + | Sswitch (e,ls) -> + Sswitch (add_cost_labels_e cost_universe e, + add_cost_labels_ls cost_universe ls) + | Slabel (lbl,s) -> + let s' = add_cost_labels_st cost_universe s in + let s' = add_starting_cost_label cost_universe s' in + Slabel (lbl,s') + | Scost (_,_) -> assert false + | _ as stmt -> stmt + +and add_cost_labels_ls cost_universe = function + | LSdefault s -> + let s' = add_cost_labels_st cost_universe s in + let s' = add_starting_cost_label cost_universe s' in + LSdefault s' + | LScase (i,s,ls) -> + let s' = add_cost_labels_st cost_universe s in + let s' = add_starting_cost_label cost_universe s' in + LScase (i, s', add_cost_labels_ls cost_universe ls) + + +(* Add cost labels to a function. *) + +let add_cost_labels_f cost_universe = function + | (id,Internal fd) -> (id,Internal { + fn_return = fd.fn_return ; + fn_params = fd.fn_params ; + fn_vars = fd.fn_vars ; + fn_body = add_starting_cost_label cost_universe + (add_cost_labels_st cost_universe fd.fn_body) + }) + | (id,External (a,b,c)) -> (id,External (a,b,c)) + + +(** [add_cost_labels prog] inserts some labels to enable + cost annotation. *) + +let add_cost_labels p = + let labs = ClightAnnotator.all_labels p in + let labs = StringTools.Set.fold CostLabel.Set.add labs CostLabel.Set.empty in + let cost_prefix = CostLabel.Gen.fresh_prefix labs "__cost" in + let cost_universe = CostLabel.Gen.new_universe cost_prefix in + { + prog_funct = List.map (add_cost_labels_f cost_universe) p.prog_funct; + prog_main = p.prog_main; + prog_vars = p.prog_vars + } diff --git a/src/clight/clightLabelling.mli b/src/clight/clightLabelling.mli new file mode 100644 index 0000000..83c8e74 --- /dev/null +++ b/src/clight/clightLabelling.mli @@ -0,0 +1,22 @@ +(** This module defines the labelling of a [Clight] program. *) + +(** [add_cost_labels prog] inserts some labels to enable + cost annotation. + + The labelling of a function proceeds as follows: + + - A label is added at the beginning of the function. + + - For each branching instruction in the function, a cost label is added at + the beginning of each branch. The concerned instructions are: + - ternary expressions (includind boolean 'and' and 'or' operators that are + transformed at this point); + - conditionals; + - loops; + - switches. + + - For each label instruction in the function, a cost label is added after + the label, in order to capture loops potentially created by gotos. +*) + +val add_cost_labels : Clight.program -> Clight.program diff --git a/src/clight/clightLustre.ml b/src/clight/clightLustre.ml new file mode 100644 index 0000000..e8a2a87 --- /dev/null +++ b/src/clight/clightLustre.ml @@ -0,0 +1,44 @@ + + +let f_expr set locals e sub_exprs_res = + let e_res = match e with + | Clight.Expr (Clight.Evar id, _) -> + StringTools.Set.mem id set && not (List.mem id locals) + | _ -> false in + List.fold_left (||) false (e_res :: sub_exprs_res) + +let f_stmt _ sub_exprs_res sub_stmts_res = + List.fold_left (||) false (sub_exprs_res @ sub_stmts_res) + +let references_stmt set locals stmt = + ClightFold.statement2 (f_expr set locals) f_stmt stmt + +let references_funct set (id, def) = match def with + | Clight.Internal def -> + let locals = List.map fst (def.Clight.fn_params @ def.Clight.fn_vars) in + if references_stmt set locals def.Clight.fn_body then + StringTools.Set.add id set + else set + | _ -> set + +let references set p = + List.fold_left references_funct set p.Clight.prog_funct + + +let unsupported_functions p = + let rec fixpoint set = + let set' = references set p in + if StringTools.Set.equal set set' then set + else fixpoint set' in + fixpoint (StringTools.Set.of_list ["calloc" ; "memcpy"]) + + +let remove_functions functions p = + let f (id, _) = not (StringTools.Set.mem id functions) in + let functs = List.filter f p.Clight.prog_funct in + { p with Clight.prog_funct = functs } + + +let simplify p = + let unsupported = unsupported_functions p in + remove_functions unsupported p diff --git a/src/clight/clightLustre.mli b/src/clight/clightLustre.mli new file mode 100644 index 0000000..13488bf --- /dev/null +++ b/src/clight/clightLustre.mli @@ -0,0 +1,5 @@ + +(** [simplify p] removes in the Clight program [p] references to external + functions generated by the Lustre compiler and that we do not know of. *) + +val simplify : Clight.program -> Clight.program diff --git a/src/clight/clightLustreMain.ml b/src/clight/clightLustreMain.ml new file mode 100644 index 0000000..da864d7 --- /dev/null +++ b/src/clight/clightLustreMain.ml @@ -0,0 +1,197 @@ + +let error_prefix = "Clight-Lustre main" +let error s = Error.global_error error_prefix s + + +let extract_info lustre_test = + let error () = error ("bad format of file " ^ lustre_test) in + try + let ic = open_in lustre_test in + let step_fun = input_line ic in + let step_cost = input_line ic in + let cost_var = input_line ic in + let cost_incr = input_line ic in + let rec aux_external_costs () = + try + let s = input_line ic in + if s = "" then StringTools.Map.empty + else + if String.contains s ' ' then + let i = String.index s ' ' in + let extern_name = String.sub s 0 i in + let cost = String.sub s (i+1) ((String.length s) - (i+1)) in + StringTools.Map.add extern_name cost (aux_external_costs ()) + else error () + with End_of_file -> error () in + let rec aux_inputs () = + try + let s = input_line ic in + if s = "" then [] + else s :: (aux_inputs ()) + with End_of_file -> error () in + let rec aux_booleans () = + try + let s = input_line ic in + s :: (aux_booleans ()) + with End_of_file -> [] in + let external_costs = aux_external_costs () in + let inputs = aux_inputs () in + let booleans = aux_booleans () in + (booleans, inputs, step_fun, step_cost, + cost_var, cost_incr, external_costs) + with Sys_error _ | End_of_file -> error () + + +let define_void_external cost_incr arg_types ret_type cost_var = + let fresh = StringTools.make_fresh StringTools.Set.empty "x" in + let fn_return = ret_type in + let fn_params = List.map (fun t -> (fresh (), t)) arg_types in + let fn_vars = [] in + let int_type = Clight.Tint (Clight.I32, AST.Signed) in + let f_type = Clight.Tfunction ([int_type], Clight.Tvoid) in + let f = Clight.Expr (Clight.Evar cost_incr, f_type) in + let args = [Clight.Expr (Clight.Evar cost_var, int_type)] in + let fn_body = Clight.Scall (None, f, args) in + { Clight.fn_return = fn_return ; Clight.fn_params = fn_params ; + Clight.fn_vars = fn_vars ; Clight.fn_body = fn_body } + +let define_void_externals_funct cost_incr external_costs (id, def) = + let def' = match def with + | Clight.External (_, args, Clight.Tvoid) + when StringTools.Map.mem id external_costs -> + Clight.Internal + (define_void_external cost_incr args Clight.Tvoid + (StringTools.Map.find id external_costs)) + | _ -> def in + (id, def') + +let define_void_externals cost_incr external_costs p = + let prog_funct = + List.map + (define_void_externals_funct cost_incr external_costs) + p.Clight.prog_funct in + { p with Clight.prog_funct = prog_funct } + + +let get_struct_arg fun_name p = + let error () = + error ("could not fetch the structure of the context of function " ^ + fun_name ^ ".") in + if List.mem_assoc fun_name p.Clight.prog_funct then + match List.assoc fun_name p.Clight.prog_funct with + | Clight.Internal def when List.length def.Clight.fn_params = 1 -> + (match snd (List.hd def.Clight.fn_params) with + | Clight.Tpointer (Clight.Tstruct (struct_name, fields)) -> + (struct_name, fields) + | _ -> error ()) + | _ -> error () + else error () + +let first_init_field ctx (id, t) = match t with + | Clight.Tint _ -> ctx ^ "." ^ id ^ " = 0;\n" + | _ when id = "client_data" -> "" + | _ -> error ("unsupported type " ^ (ClightPrinter.string_of_ctype t) ^ ".") + +let init_fields ctx fields = + let f res field = res ^ (first_init_field ctx field) in + List.fold_left f "" fields + +let init_field + lustre_test_min_int lustre_test_max_int booleans inputs ctx (id, t) = + let lustre_full_range = (lustre_test_max_int - lustre_test_min_int) + 1 in + match t with + | Clight.Tint _ when List.mem id inputs && List.mem id booleans -> + ctx ^ "." ^ id ^ " = rand_bool();\n" + | Clight.Tint _ when List.mem id inputs -> + ctx ^ "." ^ id ^ " = rand_int(" ^ (string_of_int lustre_full_range) ^ + ") - " ^ (string_of_int lustre_test_min_int) ^ ";\n" + | _ when id = "client_data" || not (List.mem id inputs) -> "" + | _ -> error ("unsupported type " ^ (ClightPrinter.string_of_ctype t) ^ ".") + +let main_fields + lustre_test_min_int lustre_test_max_int booleans inputs ctx fields = + let f res field = + res ^ + (init_field + lustre_test_min_int lustre_test_max_int booleans inputs ctx field) in + List.fold_left f "" fields + +let main_def + lustre_test_cases lustre_test_cycles lustre_test_min_int lustre_test_max_int + (struct_name, fields) booleans inputs step_fun step_cost cost_var = + let ctx = "ctx" in + let reset_fun = Str.global_replace (Str.regexp "_step") "_reset" step_fun in + let big_init = init_fields ctx fields in + let init_inputs = + main_fields lustre_test_min_int lustre_test_max_int booleans inputs ctx + fields in + + "int main () {\n" ^ + (* Initializations *) + " " ^ struct_name ^ " " ^ ctx ^ ";\n" ^ + " int wcet = " ^ step_cost ^ ";\n" ^ + " int old_cost;\n" ^ + " int et = 0;\n" ^ + " int min = -1, max = -1, nb_cycles = 0\n;" ^ + " int i_case, i_cycle;\n" ^ + + (* Body *) + big_init ^ + " for (i_case = 0 ; i_case < " ^ (string_of_int lustre_test_cases) ^ + " ; i_case++) {\n" ^ + " old_cost = " ^ cost_var ^ ";\n" ^ + " " ^ reset_fun ^ "(&" ^ ctx ^ ");\n" ^ + " " ^ cost_var ^ " = old_cost;\n" ^ + " for (i_cycle = 0 ; i_cycle < " ^ (string_of_int lustre_test_cycles) ^ + " ; i_cycle++) {\n" ^ + init_inputs ^ + " old_cost = " ^ cost_var ^ ";\n" ^ + " " ^ step_fun ^ "(&" ^ ctx ^ ");\n" ^ + " et = " ^ cost_var ^ " - old_cost;\n" ^ + " if ((min == -1) || (et < min)) min = et;\n" ^ + " if ((max == -1) || (et > max)) max = et;\n" ^ + " nb_cycles++;\n" ^ + " }\n" ^ + " }\n" ^ + + (* Printing the results *) + " print_sint(wcet);\n" ^ + " newline();\n" ^ + " print_sint(min);\n" ^ + " newline();\n" ^ + " print_sint(max);\n" ^ + " newline();\n" ^ + " if (nb_cycles == 0) print_sint(-1);\n" ^ + " else print_sint(" ^ cost_var ^ "/nb_cycles);\n" ^ + " newline();\n" ^ + " return(0);\n" ^ + "}\n" + +let add_main_def + lustre_test_cases lustre_test_cycles lustre_test_min_int + lustre_test_max_int booleans inputs step_fun step_cost cost_var p = + let tmp_file = Filename.temp_file "lustre_add_main" ".c" in + try + let struct_arg = get_struct_arg step_fun p in + let s = + (ClightPrinter.print_program p) ^ + (main_def + lustre_test_cases lustre_test_cycles lustre_test_min_int + lustre_test_max_int struct_arg booleans inputs + step_fun step_cost cost_var) in + let oc = open_out tmp_file in + output_string oc s ; + close_out oc ; + ClightParser.process (`Filename tmp_file) + with Sys_error _ -> + error ("could not save temporary file " ^ tmp_file ^ " with main.") + + +let add lustre_test lustre_test_cases lustre_test_cycles + lustre_test_min_int lustre_test_max_int p = + let (booleans, inputs, step_fun, step_cost, + cost_var, cost_incr, external_costs) = + extract_info lustre_test in + let p = define_void_externals cost_incr external_costs p in + add_main_def lustre_test_cases lustre_test_cycles lustre_test_min_int + lustre_test_max_int booleans inputs step_fun step_cost cost_var p diff --git a/src/clight/clightLustreMain.mli b/src/clight/clightLustreMain.mli new file mode 100644 index 0000000..8108407 --- /dev/null +++ b/src/clight/clightLustreMain.mli @@ -0,0 +1,11 @@ + +(** [add_lustre_main lustre_test lustre_test_cases lustre_test_cycles + lustre_test_min_int lustre_test_max_int ast] adds a main function that tests + a Lustre step function to a Clight AST. The file [lustre_test] contains + CerCo information (e.g. the name of the cost variable). The integer + [lustre_test_cases] is the number of test cases that are performed, and the + integer [lustre_test_cycles] is the number of cycles per test + case. [lustre_test_min_int] (resp. [lustre_test_max_int]) is the minimum + (resp. maximum) integer value randomly generated during testing, and. *) + +val add : string -> int -> int -> int -> int -> Clight.program -> Clight.program diff --git a/src/clight/clightParser.ml b/src/clight/clightParser.ml new file mode 100644 index 0000000..1f33665 --- /dev/null +++ b/src/clight/clightParser.ml @@ -0,0 +1,72 @@ + +let process_filename ?is_lustre_file ?remove_lustre_externals file = + let temp_dir = Filename.dirname file in + let tmp_file1 = Filename.temp_file ~temp_dir "cparser1" ".c" + and tmp_file2 = Filename.temp_file ~temp_dir "cparser2" ".i" + and prepro_opts = [] in + + (* Add CerCo's primitives *) + let _ = + try + let oc = open_out tmp_file1 in + if is_lustre_file = Some true || remove_lustre_externals = Some true then + output_string oc "#include"; + output_string oc Primitive.prototypes ; + close_out oc + with Sys_error _ -> failwith "Error adding primitive prototypes." in + let rc = Sys.command + (Printf.sprintf "cat %s >> %s" + (Filename.quote file) (Filename.quote tmp_file1)) in + if rc <> 0 then ( + Misc.SysExt.safe_remove tmp_file1; + failwith "Error adding primitive prototypes." + ); + + (* Preprocessing *) + Cparser.Builtins.set Cparser.GCC.builtins; + let rc = Sys.command + (Printf.sprintf "gcc -E -U__GNUC__ %s %s > %s" + (String.concat " " (List.map Filename.quote prepro_opts)) + (Filename.quote tmp_file1) (Filename.quote tmp_file2)) in + if rc <> 0 then ( + Misc.SysExt.safe_remove tmp_file1; + Misc.SysExt.safe_remove tmp_file2; + failwith "Error calling gcc." + ); + + (* C to Cil *) + let ic = open_in tmp_file2 in + let lexbuf = Lexing.from_channel ic in + lexbuf.Lexing.lex_curr_p <- { lexbuf.Lexing.lex_curr_p with Lexing.pos_fname = tmp_file2 }; + let r = Cparser.Parse.preprocessed_file "CSf" file lexbuf in + close_in ic; + match r with + | None -> failwith "Error during C parsing." + | Some p -> + (* Cil to Clight *) + (match ClightFromC.convertProgram p with + | None -> failwith "Error during C to Clight pass." + | Some(pp) -> + Misc.SysExt.safe_remove tmp_file1; + Misc.SysExt.safe_remove tmp_file2; + if remove_lustre_externals = Some true then ClightLustre.simplify pp + else pp) + +let process_source name contents = + let lexbuf = Lexing.from_string contents in + let r = Cparser.Parse.preprocessed_file "CSf" name lexbuf in + match r with + | None -> failwith "Error during C parsing." + | Some p -> + (* Cil to Clight *) + (match ClightFromC.convertProgram p with + | None -> failwith "Error during C to Clight pass." + | Some (pp) -> + pp) + +let process ?is_lustre_file ?remove_lustre_externals = function + | `Filename file -> + process_filename ?is_lustre_file ?remove_lustre_externals file + | `Source (name, contents) -> + process_source name contents + diff --git a/src/clight/clightParser.mli b/src/clight/clightParser.mli new file mode 100644 index 0000000..f8c41a0 --- /dev/null +++ b/src/clight/clightParser.mli @@ -0,0 +1,10 @@ + +(** This module implements a parser for [C] based on [gcc] and + [CIL]. *) + +(** [process ?is_lustre_file ?remove_lustre_externals filename] parses the + contents of [filename] to obtain an abstract syntax tree that represents a + Clight program. *) +val process : + ?is_lustre_file:bool -> ?remove_lustre_externals:bool -> + [`Filename of string | `Source of string * string] -> Clight.program diff --git a/src/clight/clightPrinter.ml b/src/clight/clightPrinter.ml new file mode 100644 index 0000000..89ce4a3 --- /dev/null +++ b/src/clight/clightPrinter.ml @@ -0,0 +1,562 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +(** Pretty-printer for Csyntax *) + +open Format +open AST +open Clight + +let name_unop = function + | Onotbool -> "!" + | Onotint -> "~" + | Oneg -> "-" + + +let name_binop = function + | Oadd -> "+" + | Osub -> "-" + | Omul -> "*" + | Odiv -> "/" + | Omod -> "%" + | Oand -> "&" + | Oor -> "|" + | Oxor -> "^" + | Oshl -> "<<" + | Oshr -> ">>" + | Oeq -> "==" + | One -> "!=" + | Olt -> "<" + | Ogt -> ">" + | Ole -> "<=" + | Oge -> ">=" + +let name_inttype sz sg = + match sz, sg with + | I8, Signed -> "signed char" + | I8, Unsigned -> "unsigned char" + | I16, Signed -> "short" + | I16, Unsigned -> "unsigned short" + | I32, Signed -> "int" + | I32, Unsigned -> "unsigned int" + +let name_floattype sz = + match sz with + | F32 -> "float" + | F64 -> "double" + +(* Collecting the names and fields of structs and unions *) + +module StructUnionSet = Set.Make(struct + type t = string * (ident*ctype) list + let compare (n1, _ : t) (n2, _ : t) = compare n1 n2 +end) + +let struct_unions = ref StructUnionSet.empty + +let register_struct_union id fld = + struct_unions := StructUnionSet.add (id, fld) !struct_unions + +(* Declarator (identifier + type) *) + +let name_optid id = + if id = "" then "" else " " ^ id + +let parenthesize_if_pointer id = + if String.length id > 0 && id.[0] = '*' then "(" ^ id ^ ")" else id + +let rec name_cdecl id ty = + match ty with + | Tvoid -> + "void" ^ name_optid id + | Tint(sz, sg) -> + name_inttype sz sg ^ name_optid id + | Tfloat sz -> + name_floattype sz ^ name_optid id + | Tpointer t -> + name_cdecl ("*" ^ id) t + | Tarray(t, n) -> + name_cdecl + (sprintf "%s[%ld]" (parenthesize_if_pointer id) (Int32.of_int n)) + t + | Tfunction(args, res) -> + let b = Buffer.create 20 in + if id = "" + then Buffer.add_string b "(*)" + else Buffer.add_string b (parenthesize_if_pointer id); + Buffer.add_char b '('; + begin match args with + | [] -> + Buffer.add_string b "void" + | _ -> + let rec add_args first = function + | [] -> () + | t1::tl -> + if not first then Buffer.add_string b ", "; + Buffer.add_string b (name_cdecl "" t1); + add_args false tl in + add_args true args + end; + Buffer.add_char b ')'; + name_cdecl (Buffer.contents b) res + | Tstruct(name, fld) -> + name ^ name_optid id + | Tunion(name, fld) -> + name ^ name_optid id + | Tcomp_ptr name -> + name ^ " *" ^ id + +(* Type *) + +let name_type ty = name_cdecl "" ty + +(* Expressions *) + +let parenthesis_level (Expr (e, ty)) = + match e with + | Econst_int _ -> 0 + | Econst_float _ -> 0 + | Evar _ -> 0 + | Eunop(_, _) -> 30 + | Ederef _ -> 20 + | Eaddrof _ -> 30 + | Ebinop(op, _, _) -> + begin match op with + | Oand | Oor | Oxor -> 75 + | Oeq | One | Olt | Ogt | Ole | Oge -> 70 + | Oadd | Osub | Oshl | Oshr -> 60 + | Omul | Odiv | Omod -> 40 + end + | Ecast _ -> 30 + | Econdition(_, _, _) -> 80 + | Eandbool(_, _) -> 80 + | Eorbool(_, _) -> 80 + | Esizeof _ -> 20 + | Efield _ -> 20 + | Ecost (_,_) -> 20 + | Ecall (_,_,_) -> 20 + +let rec print_expr p (Expr (eb, ty) as e) = + let level = parenthesis_level e in + match eb with + | Econst_int n -> + fprintf p "%ld" (Int32.of_int n) + | Econst_float f -> + fprintf p "%F" f + | Evar id -> + fprintf p "%s" id + | Eunop(op, e1) -> + fprintf p "%s%a" (name_unop op) print_expr_prec (level, e1) + | Ederef (Expr (Ebinop(Oadd, e1, e2), _)) -> + fprintf p "@[%a@,[%a]@]" + print_expr_prec (level, e1) + print_expr_prec (level, e2) + | Ederef (Expr (Efield(e1, id), _)) -> + fprintf p "%a->%s" print_expr_prec (level, e1) id + | Ederef e -> + fprintf p "*%a" print_expr_prec (level, e) + | Eaddrof e -> + fprintf p "&%a" print_expr_prec (level, e) + | Ebinop(op, e1, e2) -> + fprintf p "@[%a@ %s %a@]" + print_expr_prec (level, e1) + (name_binop op) + print_expr_prec (level, e2) + | Ecast(ty, e1) -> + fprintf p "@[(%s)@,%a@]" + (name_type ty) + print_expr_prec (level, e1) + | Econdition(e1, e2, e3) -> + fprintf p "@[%a@ ? %a@ : %a@]" + print_expr_prec (level, e1) + print_expr_prec (level, e2) + print_expr_prec (level, e3) + | Eandbool(e1, e2) -> + fprintf p "@[%a@ && %a@]" + print_expr_prec (level, e1) + print_expr_prec (level, e2) + | Eorbool(e1, e2) -> + fprintf p "@[%a@ || %a@]" + print_expr_prec (level, e1) + print_expr_prec (level, e2) + | Esizeof ty -> + fprintf p "sizeof(%s)" (name_type ty) + | Efield(e1, id) -> + fprintf p "%a.%s" print_expr_prec (level, e1) id + | Ecost (lbl,e1) -> + fprintf p "(/* %s */ %a)" lbl print_expr e1 + | Ecall (f, arg, e) -> + fprintf p "(%s(%a), %a)" f print_expr arg print_expr e + +and print_expr_prec p (context_prec, e) = + let this_prec = parenthesis_level e in + if this_prec >= context_prec + then fprintf p "(%a)" print_expr e + else print_expr p e + +let rec print_expr_list p (first, el) = + match el with + | [] -> () + | e1 :: et -> + if not first then fprintf p ",@ "; + print_expr p e1; + print_expr_list p (false, et) + +let rec print_stmt p s = + match s with + | Sskip -> + fprintf p "/*skip*/;" + | Sassign(e1, e2) -> + fprintf p "@[%a =@ %a;@]" print_expr e1 print_expr e2 + | Scall(None, e1, el) -> + fprintf p "@[%a@,(@[%a@]);@]" + print_expr e1 + print_expr_list (true, el) + | Scall(Some lhs, e1, el) -> + fprintf p "@[%a =@ %a@,(@[%a@]);@]" + print_expr lhs + print_expr e1 + print_expr_list (true, el) + | Ssequence(s1, s2) -> + fprintf p "%a@ %a" print_stmt s1 print_stmt s2 + | Sifthenelse(e, s1, Sskip) -> + fprintf p "@[if (%a) {@ %a@;<0 -2>}@]" + print_expr e + print_stmt s1 + | Sifthenelse(e, s1, s2) -> + fprintf p "@[if (%a) {@ %a@;<0 -2>} else {@ %a@;<0 -2>}@]" + print_expr e + print_stmt s1 + print_stmt s2 + | Swhile(e, s) -> + fprintf p "@[while (%a) {@ %a@;<0 -2>}@]" + print_expr e + print_stmt s + | Sdowhile(e, s) -> + fprintf p "@[do {@ %a@;<0 -2>} while(%a);@]" + print_stmt s + print_expr e + | Sfor(s_init, e, s_iter, s_body) -> + fprintf p "@[for (@[%a;@ %a;@ %a) {@]@ %a@;<0 -2>}@]" + print_stmt_for s_init + print_expr e + print_stmt_for s_iter + print_stmt s_body + | Sbreak -> + fprintf p "break;" + | Scontinue -> + fprintf p "continue;" + | Sswitch(e, cases) -> + fprintf p "@[switch (%a) {@ %a@;<0 -2>}@]" + print_expr e + print_cases cases + | Sreturn None -> + fprintf p "return;" + | Sreturn (Some e) -> + fprintf p "return %a;" print_expr e + | Slabel(lbl, s1) -> + fprintf p "%s:@ %a" lbl print_stmt s1 + | Sgoto lbl -> + fprintf p "goto %s;" lbl + | Scost (lbl,s1) -> + fprintf p "%s:@ %a" lbl print_stmt s1 + +and print_cases p cases = + match cases with + | LSdefault Sskip -> + () + | LSdefault s -> + fprintf p "@[default:@ %a@]" print_stmt s + | LScase(lbl, Sskip, rem) -> + fprintf p "case %ld:@ %a" + (Int32.of_int lbl) + print_cases rem + | LScase(lbl, s, rem) -> + fprintf p "@[case %ld:@ %a@]@ %a" + (Int32.of_int lbl) + print_stmt s + print_cases rem + +and print_stmt_for p s = + match s with + | Sskip -> + fprintf p "/*nothing*/" + | Sassign(e1, e2) -> + fprintf p "%a = %a" print_expr e1 print_expr e2 + | Ssequence(s1, s2) -> + fprintf p "%a, %a" print_stmt_for s1 print_stmt_for s2 + | Scall(None, e1, el) -> + fprintf p "@[%a@,(@[%a@])@]" + print_expr e1 + print_expr_list (true, el) + | Scall(Some lhs, e1, el) -> + fprintf p "@[%a =@ %a@,(@[%a@])@]" + print_expr lhs + print_expr e1 + print_expr_list (true, el) + | _ -> + fprintf p "({ %a })" print_stmt s + +let name_function_parameters fun_name params = + let b = Buffer.create 20 in + Buffer.add_string b fun_name; + Buffer.add_char b '('; + begin match params with + | [] -> + Buffer.add_string b "void" + | _ -> + let rec add_params first = function + | [] -> () + | (id, ty) :: rem -> + if not first then Buffer.add_string b ", "; + Buffer.add_string b (name_cdecl id ty); + add_params false rem in + add_params true params + end; + Buffer.add_char b ')'; + Buffer.contents b + +let print_function p id f = + fprintf p "%s@ " + (name_cdecl (name_function_parameters id f.fn_params) + f.fn_return); + fprintf p "@[{@ "; + List.iter + (fun ((id, ty)) -> + fprintf p "%s;@ " (name_cdecl id ty)) + f.fn_vars; + print_stmt p f.fn_body; + fprintf p "@;<0 -2>}@]@ @ " + +let print_fundef p (id, fd) = + match fd with + | External(_, args, res) -> + fprintf p "extern %s;@ @ " + (name_cdecl id (Tfunction(args, res))) + | Internal f -> + print_function p id f + +let string_of_init id = + let b = Buffer.create (List.length id) in + let add_init = function + | Init_int8 n -> + if n >= 32 && n <= 126 && n <> Char.code '\"' && n <> Char.code '\\' + then Buffer.add_char b (Char.chr n) + else Buffer.add_string b (Printf.sprintf "\\%03o" n) + | _ -> + assert false + in List.iter add_init id; Buffer.contents b + +let chop_last_nul id = + match List.rev id with + | Init_int8 0 :: tl -> List.rev tl + | _ -> id + +let print_init p = function + | Init_int8 n -> fprintf p "%ld,@ " (Int32.of_int n) + | Init_int16 n -> fprintf p "%ld,@ " (Int32.of_int n) + | Init_int32 n -> fprintf p "%ld,@ " (Int32.of_int n) + | Init_float32 n -> fprintf p "%F,@ " n + | Init_float64 n -> fprintf p "%F,@ " n + | Init_space n -> fprintf p "/* skip %ld, */@ " (Int32.of_int n) + | Init_addrof(symb, ofs) -> + let ofs = Int32.of_int ofs in + if ofs = Int32.zero + then fprintf p "&%s,@ " symb + else fprintf p "(void *)((char *)&%s + %ld),@ " symb ofs + +let print_init1 p = function + | Init_int8 n -> fprintf p "%ld" (Int32.of_int n) + | Init_int16 n -> fprintf p "%ld" (Int32.of_int n) + | Init_int32 n -> fprintf p "%ld" (Int32.of_int n) + | Init_float32 n -> fprintf p "%F" n + | Init_float64 n -> fprintf p "%F" n + | Init_space n -> fprintf p "/* skip %ld */" (Int32.of_int n) + | Init_addrof(symb, ofs) -> + let ofs = Int32.of_int ofs in + if ofs = Int32.zero + then fprintf p "&%s" symb + else fprintf p "(void *)((char *)&%s + %ld)" symb ofs + +let match_string_literal s pos = + let s_len = String.length s - 1 in + let prefix = "__stringlit_" in + let len_prefix = String.length prefix in + s_len >= len_prefix + && String.sub s 0 len_prefix = prefix && + match Misc.LexingExt.lex_num s len_prefix with + | None -> false + | Some (pos, pos', v) -> pos' = String.length s - 1 + +let print_globvar p (((id, init), ty)) = + match init with + | [] -> + fprintf p "extern %s;@ @ " + (name_cdecl id ty) + | [Init_space _] -> + fprintf p "%s;@ @ " + (name_cdecl id ty) + | [init] -> + fprintf p "@[%s = %a;@]@ @ " + (name_cdecl id ty) print_init1 init + | _ -> + fprintf p "@[%s = " + (name_cdecl id ty); + if match_string_literal id 0 + && List.for_all (function Init_int8 _ -> true | _ -> false) init + then + fprintf p "\"%s\"" (string_of_init (chop_last_nul init)) + else begin + fprintf p "{@ "; + List.iter (print_init p) init; + fprintf p "}" + end; + fprintf p ";@]@ @ " + +(* Collect struct and union types *) + +let rec collect_type = function + | Tvoid -> () + | Tint(sz, sg) -> () + | Tfloat sz -> () + | Tpointer t -> collect_type t + | Tarray(t, n) -> collect_type t + | Tfunction(args, res) -> collect_type_list args; collect_type res + | Tstruct(id, fld) -> register_struct_union id fld; collect_fields fld + | Tunion(id, fld) -> register_struct_union id fld; collect_fields fld + | Tcomp_ptr _ -> () + +and collect_type_list = function + | [] -> () + | hd::tl -> collect_type hd; collect_type_list tl + +and collect_fields = function + | [] -> () + | (id, hd)::tl -> collect_type hd; collect_fields tl + +let rec collect_expr (Expr(ed, ty)) = + match ed with + | Econst_int n -> () + | Econst_float f -> () + | Evar id -> () + | Eunop(op, e1) -> collect_expr e1 + | Ederef e -> collect_expr e + | Eaddrof e -> collect_expr e + | Ebinop(op, e1, e2) -> collect_expr e1; collect_expr e2 + | Ecast(ty, e1) -> collect_type ty; collect_expr e1 + | Econdition(e1, e2, e3) -> collect_expr e1; collect_expr e2; collect_expr e3 + | Eandbool(e1, e2) -> collect_expr e1; collect_expr e2 + | Eorbool(e1, e2) -> collect_expr e1; collect_expr e2 + | Esizeof ty -> collect_type ty + | Efield(e1, id) -> collect_expr e1 + | Ecost(_, e) -> collect_expr e + | Ecall(_, arg, e) -> collect_expr arg; collect_expr e + +let rec collect_expr_list = function + | [] -> () + | hd :: tl -> collect_expr hd; collect_expr_list tl + +let rec collect_stmt = function + | Sskip -> () + | Sassign(e1, e2) -> collect_expr e1; collect_expr e2 + | Scall(None, e1, el) -> collect_expr e1; collect_expr_list el + | Scall(Some lhs, e1, el) -> collect_expr lhs; collect_expr e1; collect_expr_list el + | Ssequence(s1, s2) -> collect_stmt s1; collect_stmt s2 + | Sifthenelse(e, s1, s2) -> collect_expr e; collect_stmt s1; collect_stmt s2 + | Swhile(e, s) -> collect_expr e; collect_stmt s + | Sdowhile(e, s) -> collect_stmt s; collect_expr e + | Sfor(s_init, e, s_iter, s_body) -> + collect_stmt s_init; collect_expr e; + collect_stmt s_iter; collect_stmt s_body + | Sbreak -> () + | Scontinue -> () + | Sswitch(e, cases) -> collect_expr e; collect_cases cases + | Sreturn None -> () + | Sreturn (Some e) -> collect_expr e + | Slabel(lbl, s) -> collect_stmt s + | Sgoto lbl -> () + | Scost (_,s1) -> collect_stmt s1 + +and collect_cases = function + | LSdefault s -> collect_stmt s + | LScase(lbl, s, rem) -> collect_stmt s; collect_cases rem + +let collect_function f = + collect_type f.fn_return; + List.iter (fun ((id, ty)) -> collect_type ty) f.fn_params; + List.iter (fun ((id, ty)) -> collect_type ty) f.fn_vars; + collect_stmt f.fn_body + +let collect_fundef ((id, fd)) = + match fd with + | External(_, args, res) -> collect_type_list args; collect_type res + | Internal f -> collect_function f + +let collect_globvar (((id, init), ty)) = + collect_type ty + +let collect_program p = + List.iter collect_globvar p.prog_vars; + List.iter collect_fundef p.prog_funct + +let declare_struct_or_union p (name, fld) = + fprintf p "%s;@ @ " name + +let print_struct_or_union p (name, fld) = + fprintf p "@[%s {" name; + let rec print_fields = function + | [] -> () + | (id, ty)::rem -> + fprintf p "@ %s;" (name_cdecl id ty); + print_fields rem in + print_fields fld; + fprintf p "@;<0 -2>};@]@ " + +let print_program_2 p prog = + struct_unions := StructUnionSet.empty; + collect_program prog; + fprintf p "@["; + StructUnionSet.iter (declare_struct_or_union p) !struct_unions; + StructUnionSet.iter (print_struct_or_union p) !struct_unions; + List.iter (print_globvar p) prog.prog_vars; + List.iter (print_fundef p) prog.prog_funct; + fprintf p "@]@." + +let print_program prog = + print_program_2 str_formatter prog; + flush_str_formatter () + +let string_of_ctype = name_type + +let print_expression e = + print_expr str_formatter e; + flush_str_formatter () + +let print_statement s = + print_stmt str_formatter s; + flush_str_formatter () + +let print_ctype_prot = name_type + +let print_ctype_def = function + | Tstruct (name, fld) | Tunion (name, fld) -> + let f_fld s (id, t) = s ^ " " ^ (print_ctype_prot t) ^ " " ^ id ^ ";\n" in + let s_fld = List.fold_left f_fld "" in + name ^ " {\n" ^ (s_fld fld) ^ "};\n" + | _ -> "" (* no definition associated to the other types *) + +let string_of_unop = name_unop + +let string_of_binop = name_binop diff --git a/src/clight/clightPrinter.mli b/src/clight/clightPrinter.mli new file mode 100644 index 0000000..32952bf --- /dev/null +++ b/src/clight/clightPrinter.mli @@ -0,0 +1,18 @@ +(** This module provides functions to print elements of [Clight] + programs. *) + +val print_program: Clight.program -> string + +val print_expression: Clight.expr -> string + +val string_of_ctype: Clight.ctype -> string + +val print_statement: Clight.statement -> string + +val print_ctype_prot: Clight.ctype -> string + +val print_ctype_def: Clight.ctype -> string + +val string_of_unop : Clight.unary_operation -> string + +val string_of_binop : Clight.binary_operation -> string diff --git a/src/clight/clightSwitch.ml b/src/clight/clightSwitch.ml new file mode 100644 index 0000000..159c278 --- /dev/null +++ b/src/clight/clightSwitch.ml @@ -0,0 +1,71 @@ + +(** This module performs a switch simplification: they are replaced by + equivalent if-then-else statements. This is a temporary hack before + implementing switch tables. *) + +let type_of (Clight.Expr (_, t)) = t + + +let f_expr e _ = e + +let f_stmt lbl stmt sub_exprs_res sub_stmts_res = + match stmt, sub_stmts_res with + | Clight.Sbreak, _ -> Clight.Sgoto lbl + | Clight.Swhile _, _ | Clight.Sdowhile _, _ + | Clight.Sfor _, _ | Clight.Sswitch _, _ -> stmt + | _ -> ClightFold.statement_fill_subs stmt sub_exprs_res sub_stmts_res + +let replace_undeep_break lbl = ClightFold.statement2 f_expr (f_stmt lbl) + + +let add_starting_lbl fresh stmt = + let lbl = fresh () in + (lbl, Clight.Slabel (lbl, stmt)) + +let add_starting_lbl_list fresh stmts = List.map (add_starting_lbl fresh) stmts + +let add_ending_goto lbl stmt = + Clight.Ssequence (stmt, Clight.Slabel (lbl, Clight.Sskip)) + +let make_sequence stmts = + let f sequence stmt = Clight.Ssequence (sequence, stmt) in + List.fold_left f Clight.Sskip stmts + +let simplify_switch fresh e cases stmts = + let exit_lbl = fresh () in + let (lbls, stmts) = List.split (add_starting_lbl_list fresh stmts) in + let stmts = List.map (replace_undeep_break exit_lbl) stmts in + let rec aux cases lbls = match cases, lbls with + | Clight.LSdefault _, lbl :: _ -> [Clight.Sgoto lbl] + | Clight.LScase (i, _, cases), lbl :: lbls -> + let next_cases = aux cases lbls in + let ret_type = Clight.Tint (Clight.I32, AST.Signed) in + let cst_i = Clight.Expr (Clight.Econst_int i, type_of e) in + let test = Clight.Expr (Clight.Ebinop (Clight.Oeq, e, cst_i), ret_type) in + Clight.Sifthenelse (test, Clight.Sgoto lbl, Clight.Sskip) :: next_cases + | _ -> + (* Do not use on these arguments: wrong list size. *) + assert false in + add_ending_goto exit_lbl (make_sequence ((aux cases lbls) @ stmts)) + +let f_expr e _ = e + +let f_stmt fresh stmt sub_exprs_res sub_stmts_res = + match stmt, sub_stmts_res with + | Clight.Sswitch (e, cases), sub_stmts -> + simplify_switch fresh e cases sub_stmts + | _ -> ClightFold.statement_fill_subs stmt sub_exprs_res sub_stmts_res + +let simplify_statement fresh = ClightFold.statement2 f_expr (f_stmt fresh) + +let simplify_fundef fresh = function + | Clight.Internal cfun -> + let fn_body = simplify_statement fresh cfun.Clight.fn_body in + Clight.Internal { cfun with Clight.fn_body = fn_body } + | fundef -> fundef + +let simplify p = + let labels = ClightAnnotator.all_labels p in + let fresh = StringTools.make_fresh labels "_tmp_switch" in + let f (id, fundef) = (id, simplify_fundef fresh fundef) in + { p with Clight.prog_funct = List.map f p.Clight.prog_funct } diff --git a/src/clight/clightSwitch.mli b/src/clight/clightSwitch.mli new file mode 100644 index 0000000..2de5c4d --- /dev/null +++ b/src/clight/clightSwitch.mli @@ -0,0 +1,6 @@ + +(** This module performs a switch simplification: they are replaced by + equivalent if-then-else statements. This is a temporary hack before + implementing switch tables. *) + +val simplify : Clight.program -> Clight.program diff --git a/src/clight/clightToCminor.ml b/src/clight/clightToCminor.ml new file mode 100644 index 0000000..5d19dbb --- /dev/null +++ b/src/clight/clightToCminor.ml @@ -0,0 +1,626 @@ + + +let error_prefix = "Clight to Cminor" +let error = Error.global_error error_prefix +let error_float () = error "float not supported." + + +(* General helpers *) + +let clight_type_of (Clight.Expr (_, t)) = t + +let cminor_type_of (Cminor.Expr (_, t)) = t + + +(* Translate types *) + +let byte_size_of_intsize = function + | Clight.I8 -> 1 + | Clight.I16 -> 2 + | Clight.I32 -> 4 + +let sig_type_of_ctype = function + | Clight.Tvoid -> assert false (* do not use on this argument *) + | Clight.Tint (intsize, sign) -> + AST.Sig_int (byte_size_of_intsize intsize, sign) + | Clight.Tfloat _ -> error_float () + | Clight.Tfunction _ | Clight.Tstruct _ | Clight.Tunion _ + | Clight.Tpointer _ | Clight.Tarray _ | Clight.Tcomp_ptr _ -> AST.Sig_ptr + +let translate_args_types = List.map sig_type_of_ctype + +let type_return_of_ctype = function + | Clight.Tvoid -> AST.Type_void + | t -> AST.Type_ret (sig_type_of_ctype t) + +let quantity_of_sig_type = function + | AST.Sig_int (size, _) -> AST.QInt size + | AST.Sig_float _ -> error_float () + | AST.Sig_offset -> AST.QOffset + | AST.Sig_ptr -> AST.QPtr + +let quantity_of_ctype t = quantity_of_sig_type (sig_type_of_ctype t) + +let rec sizeof_ctype = function + | Clight.Tvoid | Clight.Tfunction _ -> AST.SQ (AST.QInt 1) + | Clight.Tfloat _ -> error_float () + | Clight.Tint (size, _) -> AST.SQ (AST.QInt (byte_size_of_intsize size)) + | Clight.Tpointer _ + | Clight.Tcomp_ptr _ -> AST.SQ AST.QPtr + | Clight.Tarray (t, n) -> AST.SArray (n, sizeof_ctype t) + | Clight.Tstruct (_, fields) -> + AST.SProd (List.map sizeof_ctype (List.map snd fields)) + | Clight.Tunion (_, fields) -> + AST.SSum (List.map sizeof_ctype (List.map snd fields)) + +let global_size_of_ctype = sizeof_ctype + + +(** Helpers on abstract sizes and offsets *) + +let max_stacksize size1 size2 = match size1, size2 with + | AST.SProd l1, AST.SProd l2 when List.length l1 > List.length l2 -> size1 + | AST.SProd l1, AST.SProd l2 -> size2 + | _ -> raise (Failure "ClightToCminor.max_stacksize") + +(** Hypothesis: [offset1] is a prefix of [offset2] or vice-versa. *) +let max_offset offset1 offset2 = + if List.length offset1 > List.length offset2 then offset1 + else offset2 + +let next_depth = function + | AST.SProd l -> List.length l + | _ -> raise (Failure "ClightToCminor.next_offset") + +let add_stack offset = + let e1 = Cminor.Expr (Cminor.Cst AST.Cst_stack, AST.Sig_ptr) in + let e2 = Cminor.Expr (Cminor.Cst (AST.Cst_offset offset), AST.Sig_offset) in + Cminor.Op2 (AST.Op_addp, e1, e2) + +let add_stacksize t = function + | AST.SProd l -> AST.SProd (l @ [sizeof_ctype t]) + | _ -> raise (Failure "ClightToCminor.add_stacksize") + +let struct_depth field fields = + let rec aux i = function + | [] -> error ("unknown field " ^ field ^ ".") + | (field', t) :: _ when field' = field -> i + | (_, t) :: fields -> aux (i+1) fields in + aux 0 fields + +let struct_offset t field fields = + let size = sizeof_ctype t in + let depth = struct_depth field fields in + let offset = (size, depth) in + let t = AST.Sig_offset in + Cminor.Expr (Cminor.Cst (AST.Cst_offset offset), t) + + +(** Sort variables: locals, parameters, globals, in stack. *) + +type location = + | Local + | LocalStack of AST.abstract_offset + | Param + | ParamStack of AST.abstract_offset + | Global + +(** Below are some helper definitions to ease the manipulation of a translation + environment for variables. *) + +type var_locations = (location * Clight.ctype) StringTools.Map.t + +let empty_var_locs : var_locations = StringTools.Map.empty + +let add_var_locs : AST.ident -> (location * Clight.ctype) -> var_locations -> + var_locations = + StringTools.Map.add + +let mem_var_locs : AST.ident -> var_locations -> bool = StringTools.Map.mem + +let find_var_locs : AST.ident -> var_locations -> (location * Clight.ctype) = + StringTools.Map.find + +let fold_var_locs : (AST.ident -> (location * Clight.ctype) -> 'a -> 'a) -> + var_locations -> 'a -> 'a = + StringTools.Map.fold + + +let is_local_or_param id var_locs = match find_var_locs id var_locs with + | (Local, _) | (Param, _) -> true + | _ -> false + +let get_locals var_locs = + let f id (location, ctype) locals = + let added = match location with + | Local -> [(id, sig_type_of_ctype ctype)] + | _ -> [] in + locals @ added in + fold_var_locs f var_locs [] + +let get_stacksize var_locs = + let f _ (location, _) res = match location with + | LocalStack (stacksize, _) | ParamStack (stacksize, _) -> + max_stacksize res stacksize + | _ -> res in + fold_var_locs f var_locs (AST.SProd []) + + +(* Variables of a function that will go in stack: variables of a complex type + (array, structure or union) and variables whose address is evaluated. *) + +let is_function_ctype = function + | Clight.Tfunction _ -> true + | _ -> false + +let is_scalar_ctype : Clight.ctype -> bool = function + | Clight.Tint _ | Clight.Tfloat _ | Clight.Tpointer _ -> true + | _ -> false + +let is_complex_ctype : Clight.ctype -> bool = function + | Clight.Tarray _ | Clight.Tstruct _ | Clight.Tunion _ | Clight.Tfunction _ -> + true + | _ -> false + +let complex_ctype_vars cfun = + let f set (x, t) = + if is_complex_ctype t then StringTools.Set.add x set else set in + (* Because of CIL, parameters should not have a complex type, but let's add + them just in case. *) + List.fold_left f StringTools.Set.empty + (cfun.Clight.fn_params @ cfun.Clight.fn_vars) + +let union_list = List.fold_left StringTools.Set.union StringTools.Set.empty + +let f_expr (Clight.Expr (ed, _)) sub_exprs_res = + let res_ed = match ed with + | Clight.Eaddrof (Clight.Expr (Clight.Evar id, _)) -> + StringTools.Set.singleton id + | _ -> StringTools.Set.empty in + union_list (res_ed :: sub_exprs_res) + +let f_stmt _ sub_exprs_res sub_stmts_res = + union_list (sub_exprs_res @ sub_stmts_res) + +let addr_vars_fun cfun = ClightFold.statement2 f_expr f_stmt cfun.Clight.fn_body + +let stack_vars cfun = + StringTools.Set.union (complex_ctype_vars cfun) (addr_vars_fun cfun) + + +let sort_stacks stack_location vars var_locs = + let stacksize = get_stacksize var_locs in + let f (current_stacksize, var_locs) (id, t) = + let depth = next_depth current_stacksize in + let current_stacksize = add_stacksize t current_stacksize in + let offset = (current_stacksize, depth) in + let var_locs = add_var_locs id (stack_location offset, t) var_locs in + (current_stacksize, var_locs) in + snd (List.fold_left f (stacksize, var_locs) vars) + +let sort_normals normal_location vars var_locs = + let f var_locs (id, ctype) = + add_var_locs id (normal_location, ctype) var_locs in + List.fold_left f var_locs vars + +let sort_vars normal_location stack_location_opt stack_vars vars var_locs = + let f_stack (x, _) = StringTools.Set.mem x stack_vars in + let (f_normal, var_locs) = match stack_location_opt with + | None -> ((fun _ -> true), var_locs) + | Some stack_location -> + ((fun var -> not (f_stack var)), + sort_stacks stack_location (List.filter f_stack vars) var_locs) in + sort_normals normal_location (List.filter f_normal vars) var_locs + +let sort_locals = sort_vars Local (Some (fun offset -> LocalStack offset)) + +let sort_params = sort_vars Param (Some (fun offset -> ParamStack offset)) + +let sort_globals stack_vars globals functs var_locs = + let globals = List.map (fun ((id, _), ctype) -> (id, ctype)) globals in + let f_functs (id, fundef) = + let (params, return) = match fundef with + | Clight.Internal cfun -> + (List.map snd cfun.Clight.fn_params, cfun.Clight.fn_return) + | Clight.External (_, params, return) -> (params, return) in + (id, Clight.Tfunction (params, return)) in + let functs = List.map f_functs functs in + let globals = globals @ functs in + sort_vars Global None stack_vars globals var_locs + +(* The order of insertion in the sorting environment is important: it follows + the scope conventions of C. Local variables hide parameters that hide + globals. *) + +let sort_variables globals functs cfun = + let stack_vars = stack_vars cfun in + let var_locs = empty_var_locs in + let var_locs = sort_globals stack_vars globals functs var_locs in + let var_locs = sort_params stack_vars cfun.Clight.fn_params var_locs in + let var_locs = sort_locals stack_vars cfun.Clight.fn_vars var_locs in + var_locs + + +(* Translate globals *) + +let init_to_data = function + | [Clight.Init_space _] -> None + | l -> Some (List.map ( + function + | Clight.Init_int8 i -> AST.Data_int8 i + | Clight.Init_int16 i -> AST.Data_int16 i + | Clight.Init_int32 i -> AST.Data_int32 i + | Clight.Init_float32 _ + | Clight.Init_float64 _ -> error_float () + | Clight.Init_space n -> error "bad global initialization style." + | Clight.Init_addrof (_,_) -> assert false (*TODO*) +) l) + +let translate_global ((id,lst),t) = (id,global_size_of_ctype t,init_to_data lst) + + +(* Translate expression *) + +let translate_unop = function + | Clight.Onotbool -> AST.Op_notbool + | Clight.Onotint -> AST.Op_notint + | Clight.Oneg -> AST.Op_negint + +let esizeof_ctype res_type t = + Cminor.Expr (Cminor.Cst (AST.Cst_sizeof (sizeof_ctype t)), res_type) + +let translate_add res_type ctype1 ctype2 e1 e2 = match ctype1, ctype2 with + | Clight.Tint _, Clight.Tint _ -> + Cminor.Expr (Cminor.Op2 (AST.Op_add, e1, e2), res_type) + | Clight.Tfloat _, Clight.Tfloat _ -> error_float () + | Clight.Tpointer t, Clight.Tint _ + | Clight.Tarray (t, _), Clight.Tint _ -> + let t2 = cminor_type_of e2 in + let size = esizeof_ctype t2 t in + let index = Cminor.Expr (Cminor.Op2 (AST.Op_mul, e2, size), t2) in + Cminor.Expr (Cminor.Op2 (AST.Op_addp, e1, index), res_type) + | Clight.Tint _, Clight.Tpointer t + | Clight.Tint _, Clight.Tarray (t, _) -> + let t1 = cminor_type_of e1 in + let size = esizeof_ctype t1 t in + let index = Cminor.Expr (Cminor.Op2 (AST.Op_mul, e1, size), t1) in + Cminor.Expr (Cminor.Op2 (AST.Op_addp, e2, index), res_type) + | _ -> error "type error." + +let translate_sub res_type ctype1 ctype2 e1 e2 = match ctype1, ctype2 with + | Clight.Tint _, Clight.Tint _ -> + Cminor.Expr (Cminor.Op2 (AST.Op_sub, e1, e2), res_type) + | Clight.Tfloat _, Clight.Tfloat _ -> error_float () + | Clight.Tpointer t, Clight.Tint _ + | Clight.Tarray (t, _), Clight.Tint _ -> + let t2 = cminor_type_of e2 in + let size = esizeof_ctype t2 t in + let index = Cminor.Expr (Cminor.Op2 (AST.Op_mul, e2, size), t2) in + Cminor.Expr (Cminor.Op2 (AST.Op_subp, e1, index), res_type) + | Clight.Tpointer _, Clight.Tpointer _ + | Clight.Tarray _, Clight.Tpointer _ + | Clight.Tpointer _, Clight.Tarray _ + | Clight.Tarray _, Clight.Tarray _ -> + Cminor.Expr (Cminor.Op2 (AST.Op_subpp, e1, e2), res_type) + | _ -> error "type error." + +let is_signed = function + | Clight.Tint (_, AST.Signed) -> true + | _ -> false + +let is_pointer = function + | Clight.Tpointer _ | Clight.Tarray _ -> true + | _ -> false + +let cmp_of_clight_binop = function + | Clight.Oeq -> AST.Cmp_eq + | Clight.One -> AST.Cmp_ne + | Clight.Olt -> AST.Cmp_lt + | Clight.Ole -> AST.Cmp_le + | Clight.Ogt -> AST.Cmp_gt + | Clight.Oge -> AST.Cmp_ge + | _ -> assert false (* do not use on these arguments *) + +let translate_simple_binop t = function + | Clight.Omul -> AST.Op_mul + | Clight.Odiv when is_signed t -> AST.Op_div + | Clight.Odiv -> AST.Op_divu + | Clight.Omod when is_signed t -> AST.Op_mod + | Clight.Omod -> AST.Op_modu + | Clight.Oand -> AST.Op_and + | Clight.Oor -> AST.Op_or + | Clight.Oxor -> AST.Op_xor + | Clight.Oshl -> AST.Op_shl + | Clight.Oshr when is_signed t -> AST.Op_shr + | Clight.Oshr -> AST.Op_shru + | binop when is_pointer t -> AST.Op_cmpp (cmp_of_clight_binop binop) + | binop when is_signed t -> AST.Op_cmp (cmp_of_clight_binop binop) + | binop -> AST.Op_cmpu (cmp_of_clight_binop binop) + +let translate_binop res_type ctype1 ctype2 e1 e2 binop = + match binop with + | Clight.Oadd -> translate_add res_type ctype1 ctype2 e1 e2 + | Clight.Osub -> translate_sub res_type ctype1 ctype2 e1 e2 + | _ -> + let cminor_binop = translate_simple_binop ctype1 binop in + Cminor.Expr (Cminor.Op2 (cminor_binop, e1, e2), res_type) + +let translate_ident var_locs res_type x = + let ed = match find_var_locs x var_locs with + | (Local, _) | (Param, _) -> Cminor.Id x + | (LocalStack off, t) | (ParamStack off, t) when is_scalar_ctype t -> + let addr = Cminor.Expr (add_stack off, AST.Sig_ptr) in + Cminor.Mem (quantity_of_ctype t, addr) + | (LocalStack off, _) | (ParamStack off, _) -> + add_stack off + | (Global, t) when is_scalar_ctype t -> + let addr = Cminor.Expr (Cminor.Cst (AST.Cst_addrsymbol x), AST.Sig_ptr) in + Cminor.Mem (quantity_of_ctype t, addr) + | (Global, _) -> Cminor.Cst (AST.Cst_addrsymbol x) in + Cminor.Expr (ed, res_type) + +let translate_field res_type t e field = + let (fields, offset) = match t with + | Clight.Tstruct (_, fields) -> (fields, struct_offset t field fields) + | Clight.Tunion (_, fields) -> + (fields, Cminor.Expr (Cminor.Cst (AST.Cst_int 0), AST.Sig_offset)) + | _ -> assert false (* type error *) in + let addr = Cminor.Expr (Cminor.Op2 (AST.Op_addp, e, offset), AST.Sig_ptr) in + let quantity = quantity_of_ctype (List.assoc field fields) in + Cminor.Expr (Cminor.Mem (quantity, addr), res_type) + +let translate_cast e src_type dest_type = + let res_type = sig_type_of_ctype dest_type in + match src_type, dest_type with + | Clight.Tint (size1, sign1), Clight.Tint (size2, _) -> + let t1 = (byte_size_of_intsize size1, sign1) in + let t2 = byte_size_of_intsize size2 in + Cminor.Expr (Cminor.Op1 (AST.Op_cast (t1, t2), e), res_type) + | Clight.Tint _, Clight.Tpointer _ + | Clight.Tint _, Clight.Tarray _ -> + Cminor.Expr (Cminor.Op1 (AST.Op_ptrofint, e), res_type) + | Clight.Tpointer _, Clight.Tint _ + | Clight.Tarray _, Clight.Tint _ -> + Cminor.Expr (Cminor.Op1 (AST.Op_intofptr, e), res_type) + | _ -> e + +let rec f_expr var_locs (Clight.Expr (ed, t)) sub_exprs_res = + let t_cminor = sig_type_of_ctype t in + let cst_int i t = Cminor.Expr (Cminor.Cst (AST.Cst_int i), t) in + match ed, sub_exprs_res with + + | Clight.Econst_int i, _ -> + Cminor.Expr (Cminor.Cst (AST.Cst_int i), t_cminor) + + | Clight.Econst_float _, _ -> error_float () + + | Clight.Evar x, _ when is_function_ctype t -> + Cminor.Expr (Cminor.Cst (AST.Cst_addrsymbol x), t_cminor) + + | Clight.Evar x, _ -> translate_ident var_locs t_cminor x + + | Clight.Ederef _, e :: _ when is_scalar_ctype t -> + Cminor.Expr (Cminor.Mem (quantity_of_ctype t, e), t_cminor) + + | Clight.Ederef _, e :: _ -> + (* When dereferencing something pointing to a struct for instance, the + result is the address of the struct. *) + e + + | Clight.Eaddrof e, _ -> translate_addrof var_locs e + + | Clight.Eunop (unop, _), e :: _ -> + Cminor.Expr (Cminor.Op1 (translate_unop unop, e), t_cminor) + + | Clight.Ebinop (binop, e1, e2), e1' :: e2' :: _ -> + translate_binop t_cminor (clight_type_of e1) (clight_type_of e2) e1' e2' + binop + + | Clight.Ecast (t, Clight.Expr (_, t')), e :: _ -> translate_cast e t' t + + | Clight.Econdition _, e1 :: e2 :: e3 :: _ -> + Cminor.Expr (Cminor.Cond (e1, e2, e3), t_cminor) + + | Clight.Eandbool _, e1 :: e2 :: _ -> + let zero = cst_int 0 t_cminor in + let one = cst_int 1 t_cminor in + let e2_cond = Cminor.Expr (Cminor.Cond (e2, one, zero), t_cminor) in + Cminor.Expr (Cminor.Cond (e1, e2_cond, zero), t_cminor) + + | Clight.Eorbool _, e1 :: e2 :: _ -> + let zero = cst_int 0 t_cminor in + let one = cst_int 1 t_cminor in + let e2_cond = Cminor.Expr (Cminor.Cond (e2, one, zero), t_cminor) in + Cminor.Expr (Cminor.Cond (e1, one, e2_cond), t_cminor) + + | Clight.Esizeof t, _ -> esizeof_ctype t_cminor t + + | Clight.Ecost (lbl, _), e :: _ -> + Cminor.Expr (Cminor.Exp_cost (lbl, e), t_cminor) + + | Clight.Ecall _, _ -> assert false (* only for annotations *) + + | Clight.Efield (Clight.Expr (_, t), field), e :: _ -> + translate_field t_cminor t e field + + | _ -> assert false (* wrong number of arguments *) + +and translate_addrof_ident res_type var_locs id = + assert (mem_var_locs id var_locs) ; + match find_var_locs id var_locs with + | (Local, _) | (Param, _) -> assert false (* location error *) + | (LocalStack off, _) | (ParamStack off, _) -> + Cminor.Expr (add_stack off, res_type) + | (Global, _) -> + Cminor.Expr (Cminor.Cst (AST.Cst_addrsymbol id), res_type) + +and translate_addrof_field res_type t field e = + let (fields, offset) = match t with + | Clight.Tstruct (_, fields) -> (fields, struct_offset t field fields) + | Clight.Tunion (_, fields) -> + (fields, Cminor.Expr (Cminor.Cst (AST.Cst_int 0), AST.Sig_offset)) + | _ -> assert false (* type error *) in + Cminor.Expr (Cminor.Op2 (AST.Op_addp, e, offset), res_type) + +and translate_addrof var_locs (Clight.Expr (ed, _)) = + let res_type = AST.Sig_ptr in + match ed with + + | Clight.Evar id -> translate_addrof_ident res_type var_locs id + + | Clight.Ederef e -> translate_expr var_locs e + + | Clight.Efield ((Clight.Expr (_, t) as e), field) -> + let e = translate_expr var_locs e in + translate_addrof_field res_type t field e + + | _ -> assert false (* not a lvalue *) + +and translate_expr var_locs e = ClightFold.expr2 (f_expr var_locs) e + + +(* Translate statement *) + +let assign var_locs (Clight.Expr (ed, t) as e_res_clight) e_arg_cminor = + match ed with + | Clight.Evar id when is_local_or_param id var_locs -> + Cminor.St_assign (id, e_arg_cminor) + | _ -> + let quantity = quantity_of_ctype t in + let addr = translate_addrof var_locs e_res_clight in + Cminor.St_store (quantity, addr, e_arg_cminor) + +let call_sig ret_type args = + { AST.args = List.map cminor_type_of args ; + AST.res = ret_type } + +let f_stmt fresh var_locs stmt sub_exprs_res sub_stmts_res = + let (tmps, sub_stmts_res) = List.split sub_stmts_res in + let tmps = List.flatten tmps in + + let (added_tmps, stmt) = match stmt, sub_exprs_res, sub_stmts_res with + + | Clight.Sskip, _, _ -> ([], Cminor.St_skip) + + | Clight.Sassign (e1, _), _ :: e2 :: _, _ -> + ([], assign var_locs e1 e2) + + | Clight.Scall (None, _, _), f :: args, _ -> + ([], Cminor.St_call (None, f, args, call_sig AST.Type_void args)) + + | Clight.Scall (Some e, _, _), _ :: f :: args, _ -> + let t = sig_type_of_ctype (clight_type_of e) in + let tmp = fresh () in + let tmpe = Cminor.Expr (Cminor.Id tmp, t) in + let stmt_call = + Cminor.St_call (Some tmp, f, args, call_sig (AST.Type_ret t) args) in + let stmt_assign = assign var_locs e tmpe in + ([(tmp, t)], Cminor.St_seq (stmt_call, stmt_assign)) + + | Clight.Swhile _, e :: _, stmt :: _ -> + let econd = + Cminor.Expr (Cminor.Op1 (AST.Op_notbool, e), cminor_type_of e) in + let scond = + Cminor.St_ifthenelse (econd, Cminor.St_exit 0, Cminor.St_skip) in + ([], + Cminor.St_block (Cminor.St_loop (Cminor.St_seq (scond, + Cminor.St_block stmt)))) + + | Clight.Sdowhile _, e :: _, stmt :: _ -> + let econd = + Cminor.Expr (Cminor.Op1 (AST.Op_notbool, e), cminor_type_of e) in + let scond = + Cminor.St_ifthenelse (econd, Cminor.St_exit 0, Cminor.St_skip) in + ([], + Cminor.St_block (Cminor.St_loop (Cminor.St_seq (Cminor.St_block stmt, + scond)))) + + | Clight.Sfor _, e :: _, stmt1 :: stmt2 :: stmt3 :: _ -> + let econd = + Cminor.Expr (Cminor.Op1 (AST.Op_notbool, e), cminor_type_of e) in + let scond = + Cminor.St_ifthenelse (econd, Cminor.St_exit 0, Cminor.St_skip) in + let body = Cminor.St_seq (Cminor.St_block stmt3, stmt2) in + ([], + Cminor.St_seq (stmt1, + Cminor.St_block + (Cminor.St_loop (Cminor.St_seq (scond, body))))) + + | Clight.Sifthenelse _, e :: _, stmt1 :: stmt2 :: _ -> + ([], Cminor.St_ifthenelse (e, stmt1, stmt2)) + + | Clight.Ssequence _, _, stmt1 :: stmt2 :: _ -> + ([], Cminor.St_seq (stmt1, stmt2)) + + | Clight.Sbreak, _, _ -> ([], Cminor.St_exit 1) + + | Clight.Scontinue, _, _ -> ([], Cminor.St_exit 0) + + | Clight.Sswitch _, _, _ -> + (* Should not appear because of switch transformation performed + beforehand. *) + assert false + + | Clight.Sreturn None, _, _ -> ([], Cminor.St_return None) + + | Clight.Sreturn (Some _), e :: _, _ -> ([], Cminor.St_return (Some e)) + + | Clight.Slabel (lbl, _), _, stmt :: _ -> ([], Cminor.St_label (lbl, stmt)) + + | Clight.Sgoto lbl, _, _ -> ([], Cminor.St_goto lbl) + + | Clight.Scost (lbl, _), _, stmt :: _ -> ([], Cminor.St_cost (lbl, stmt)) + + | _ -> assert false (* type error *) in + + (tmps @ added_tmps, stmt) + +let translate_statement fresh var_locs = + ClightFold.statement2 (f_expr var_locs) (f_stmt fresh var_locs) + + +(* Translate functions and programs *) + +let add_stack_parameter_initialization x t off body = + let addr = Cminor.Expr (add_stack off, AST.Sig_ptr) in + let e = Cminor.Expr (Cminor.Id x, sig_type_of_ctype t) in + let stmt = Cminor.St_store (quantity_of_ctype t, addr, e) in + Cminor.St_seq (stmt, body) + +let add_stack_parameters_initialization var_locs body = + let f x (location, t) body = match location with + | ParamStack offset -> add_stack_parameter_initialization x t offset body + | _ -> body in + fold_var_locs f var_locs body + +let translate_internal fresh globals functs cfun = + let var_locs = sort_variables globals functs cfun in + let params = + List.map (fun (x, t) -> (x, sig_type_of_ctype t)) cfun.Clight.fn_params in + let (tmps, body) = translate_statement fresh var_locs cfun.Clight.fn_body in + let body = add_stack_parameters_initialization var_locs body in + { Cminor.f_return = type_return_of_ctype cfun.Clight.fn_return ; + Cminor.f_params = params ; + Cminor.f_vars = (get_locals var_locs) @ tmps ; + Cminor.f_stacksize = get_stacksize var_locs ; + Cminor.f_body = body } + +let translate_external id params return = + { AST.ef_tag = id ; + AST.ef_sig = { AST.args = translate_args_types params ; + AST.res = type_return_of_ctype return } } + +let translate_funct fresh globals functs (id, def) = + let def = match def with + | Clight.Internal ff -> + Cminor.F_int (translate_internal fresh globals functs ff) + | Clight.External (i,p,r) -> Cminor.F_ext (translate_external i p r) in + (id, def) + +let translate p = + let fresh = ClightAnnotator.make_fresh "_tmp" p in + let translate_funct = + translate_funct fresh p.Clight.prog_vars p.Clight.prog_funct in + { Cminor.vars = List.map translate_global p.Clight.prog_vars ; + Cminor.functs = List.map translate_funct p.Clight.prog_funct ; + Cminor.main = p.Clight.prog_main } diff --git a/src/clight/clightToCminor.mli b/src/clight/clightToCminor.mli new file mode 100644 index 0000000..a011a09 --- /dev/null +++ b/src/clight/clightToCminor.mli @@ -0,0 +1,9 @@ +(** This module translates a {!Clight} program into a {!Cminor} + program. *) + +val sizeof_ctype : Clight.ctype -> AST.abstract_size + +(** [translate cp] compiles a Clight program into a Cminor program. *) +(* Translation simplifies control structures and explicits memory operations *) + +val translate : Clight.program -> Cminor.program diff --git a/src/clight/clightUtils.ml b/src/clight/clightUtils.ml new file mode 100644 index 0000000..0e70709 --- /dev/null +++ b/src/clight/clightUtils.ml @@ -0,0 +1,73 @@ + +open Clight + + +(* TODO: Alignment constraints? *) +let rec size_of_ctype = function + | Tvoid -> 0 + | Tint (I8,_) -> 1 + | Tint (I16,_) -> 2 + | Tint (I32,_) -> 4 + | Tfloat _ -> assert false (* Not supported *) + | Tpointer (sp,_) -> Memory.size_of_region sp + | Tarray (sp,t,s) -> s*(size_of_ctype t) + | Tfunction (_,_) -> assert false (* Not supported *) + | Tstruct (_,lst) -> + List.fold_left (fun n (_,ty) -> n + (size_of_ctype ty)) 0 lst + | Tunion (_,lst) -> + List.fold_left + (fun n (_,ty) -> + let sz = (size_of_ctype ty) in (if n>sz then n else sz) + ) 0 lst + | Tcomp_ptr (sp,_) -> Memory.size_of_region sp + + +let rec memory_q_of_ctype = function + | Tvoid -> assert false + | Tint (I8,Signed) -> Memory.MQ_int8signed + | Tint (I8,Unsigned) -> Memory.MQ_int8unsigned + | Tint (I16,Signed) -> Memory.MQ_int16signed + | Tint (I16,Unsigned) -> Memory.MQ_int16unsigned + | Tint (I32,Signed) -> Memory.MQ_int32 + | Tint (I32,Unsigned) -> assert false (* Not supported *) + | Tfloat _ -> assert false (* Not supported *) + | Tpointer (sp,_) -> Memory.mq_of_region sp + | Tarray (sp,c,s) -> Memory.mq_of_region sp + | Tfunction (_,_) -> assert false (* should not happen thanks to CIL *) + | Tstruct (_,_) -> assert false (* should not happen thanks to CIL *) + | Tunion (_,_) -> assert false (* should not happen thanks to CIL *) + | Tcomp_ptr (sp,_) -> Memory.mq_of_region sp + + +let is_int_type = function + | Tint (_,_) -> true + | _ -> false + +let is_float_type = function + | Tfloat _ -> true + | _ -> false + +let is_pointer_type = function + | Tpointer _ | Tarray _ | Tcomp_ptr _ -> true + | _ -> false + +let is_stack_type = function + | Tarray _ | Tstruct _ | Tunion _ -> true + | _ -> false + +let is_struct = function + | Tstruct _ | Tunion _ -> true + | _ -> false + +let is_ptr_to_struct = function + | Tpointer (_,t) when is_struct t -> true + | Tcomp_ptr _ -> true + | _ -> false + +let is_function = function + | Tfunction _ -> true + | _ -> false + +let region_of_pointer_type = function + | Tpointer (sp,_) | Tarray (sp,_,_) | Tcomp_ptr (sp,_) -> sp + | _ -> assert false (* do not use on those arguments *) diff --git a/src/clight/clightUtils.mli b/src/clight/clightUtils.mli new file mode 100644 index 0000000..8aa593e --- /dev/null +++ b/src/clight/clightUtils.mli @@ -0,0 +1,14 @@ + +val size_of_ctype : Clight.ctype -> int + +val memory_q_of_ctype : Clight.ctype -> Memory.memory_q + +val is_int_type : Clight.ctype -> bool +val is_float_type : Clight.ctype -> bool +val is_pointer_type : Clight.ctype -> bool +val is_stack_type : Clight.ctype -> bool +val is_struct : Clight.ctype -> bool +val is_ptr_to_struct : Clight.ctype -> bool +val is_function : Clight.ctype -> bool + +val region_of_pointer_type : Clight.ctype -> AST.region diff --git a/src/clight/runtime.ml b/src/clight/runtime.ml new file mode 100644 index 0000000..8dbcbcf --- /dev/null +++ b/src/clight/runtime.ml @@ -0,0 +1,509 @@ + +(** This module adds runtime functions in a [Clight] program. These functions + implement unsupported functions by the target architecture that introduce a + branch. We need to define them at the [Clight] level in order to have a + correct labelling. *) + + +let error_prefix = "Adding runtime functions" +let error = Error.global_error error_prefix + +let add_program p s = + let output = s ^ (ClightPrinter.print_program p) in + ClightParser.process (`Source ("add_program", output)) + +type operation = + | Unary of Clight.unary_operation * Clight.ctype + | Binary of Clight.binary_operation * Clight.ctype * Clight.ctype + | Cast of Clight.ctype (* destination type *) * Clight.ctype (* source type *) + | Fun of string (* name of the function *) + +type op_replacement = + (* operation to be replaced *) + operation * + (* base name of the replacement function *) + string * + (* C definition of the replacement function, provided a name for the + function *) + (string -> string) * + (* dependencies *) + operation list + +let string_of_operation = function + | Unary (unop, ctype) -> + (ClightPrinter.string_of_unop unop) ^ "(" ^ + (ClightPrinter.string_of_ctype ctype) ^ ")" + | Binary (binop, ctype1, ctype2) -> + (ClightPrinter.string_of_binop binop) ^ "(" ^ + (ClightPrinter.string_of_ctype ctype1) ^ ", " ^ + (ClightPrinter.string_of_ctype ctype1) ^ ")" + | Cast (ctype1, ctype2) -> + "Cast " ^ (ClightPrinter.string_of_ctype ctype1) ^ " " ^ + (ClightPrinter.string_of_ctype ctype2) + | Fun fun_name -> "Fun " ^ fun_name + +let string_of_op_replacement (replaced, base_name, c_def, _) = + Printf.sprintf "Replaced: %s\n%s\n" + (string_of_operation replaced) (c_def base_name) + +module CtypeSet = + Set.Make (struct type t = Clight.ctype let compare = Pervasives.compare end) + + +let deps op replacements = + let f res (op', _, _, deps) = if op' = op then deps else res in + List.fold_left f [] replacements + + +(* Filter used operations only *) + +module OperationSet = + Set.Make (struct type t = operation let compare = Pervasives.compare end) + +let union_list l = List.fold_left OperationSet.union OperationSet.empty l + +let f_ctype ctype _ = ctype + +let f_expr e _ sub_expr_descrs_res = + let res_e = match e with + | Clight.Expr (Clight.Evar x, Clight.Tfunction _) -> + OperationSet.singleton (Fun x) + | _ -> OperationSet.empty in + union_list (res_e :: sub_expr_descrs_res) + +let f_expr_descr ed _ sub_exprs_res = + let res_ed = match ed with + | Clight.Eunop (unop, Clight.Expr (_, t)) -> + OperationSet.singleton (Unary (unop, t)) + | Clight.Ebinop (binop, Clight.Expr (_, t1), Clight.Expr (_, t2)) -> + OperationSet.singleton (Binary (binop, t1, t2)) + | Clight.Ecast (t, Clight.Expr (_, t')) -> + OperationSet.singleton (Cast (t, t')) + | _ -> OperationSet.empty in + union_list (res_ed :: sub_exprs_res) + +let f_stmt _ sub_exprs_res sub_stmts_res = + OperationSet.union (union_list sub_exprs_res) (union_list sub_stmts_res) + +let used_ops_stmt = ClightFold.statement f_ctype f_expr f_expr_descr f_stmt + +let used_ops_fundef = function + | Clight.Internal cfun -> used_ops_stmt cfun.Clight.fn_body + | Clight.External _ -> OperationSet.empty + +let used_ops p = + let f ops (_, fundef) = OperationSet.union ops (used_ops_fundef fundef) in + List.fold_left f OperationSet.empty p.Clight.prog_funct + + +let mem_replacements op = + let f res (op', _, _, _) = res || (op' = op) in + List.fold_left f false + +let rec fix equal next x = + let y = next x in + if equal x y then x + else fix equal next y + +let needed_replacements used_ops replacements = + let f op = mem_replacements op replacements in + let reduced_used_ops = OperationSet.filter f used_ops in + let next_ops ops = + let add ops op = OperationSet.add op ops in + let f op next_ops = List.fold_left add next_ops (deps op replacements) in + OperationSet.fold f ops ops in + let needed_ops = fix OperationSet.equal next_ops reduced_used_ops in + let f (op, _, _, _) = OperationSet.mem op needed_ops in + List.filter f replacements + + +let map_fresh_name unique map base_name = + if StringTools.Map.mem base_name map then + (map, StringTools.Map.find base_name map) + else + let fresh_name = unique base_name in + (StringTools.Map.add base_name fresh_name map, fresh_name) + +let fresh_replacements unique replacements = + let f (map, l) (op, base_name, new_fun, deps) = + let (map, fresh_name) = map_fresh_name unique map base_name in + (map, l @ [(op, fresh_name, new_fun fresh_name, deps)]) in + snd (List.fold_left f (StringTools.Map.empty, []) replacements) + + +let add_replacements replacements p = + let f_replacements s (_, _, new_fun, _) = s ^ "\n" ^ new_fun in + let added_string = List.fold_left f_replacements "" replacements in + add_program p added_string + + +let make_replacement_assoc = List.map (fun (op, name, _, _) -> (op, name)) + + +let add p replacements = + let used_ops = used_ops p in + let needed_replacements = needed_replacements used_ops replacements in + let unique = StringTools.make_unique (ClightAnnotator.all_idents p) in + let replacements = fresh_replacements unique needed_replacements in + let p = add_replacements replacements p in + (p, make_replacement_assoc replacements) + + +(* Replacement *) + +let seq = + List.fold_left + (fun stmt1 stmt2 -> + if stmt1 = Clight.Sskip then stmt2 + else + if stmt2 = Clight.Sskip then stmt1 + else Clight.Ssequence (stmt1, stmt2)) + Clight.Sskip + +let f_ctype ctype _ = ctype + +let call fresh replaced replacement_assoc args ret_type = + let tmp = fresh () in + let replacement_fun_name = List.assoc replaced replacement_assoc in + let tmpe = Clight.Expr (Clight.Evar tmp, ret_type) in + let (args, args_types) = List.split args in + let f_type = Clight.Tfunction (args_types, ret_type) in + let f = Clight.Expr (Clight.Evar replacement_fun_name, f_type) in + let call = Clight.Scall (Some tmpe, f, args) in + (tmpe, call, [(tmp, ret_type)]) + +let replace_ident replacement_assoc x t = + let new_name = match t with + | Clight.Tfunction _ + when List.mem_assoc (Fun x) replacement_assoc -> + let replacement_fun_name = List.assoc (Fun x) replacement_assoc in + replacement_fun_name + | _ -> x in + (Clight.Expr (Clight.Evar new_name, t), Clight.Sskip, []) + +let f_expr fresh replacement_assoc e _ _ = + + let f (Clight.Expr (ed, t) as e) sub_exprs_res = + let f_sub_exprs (es, stmt, tmps) (e, stmt', tmps') = + (es @ [e], seq [stmt ; stmt'], tmps @ tmps') in + let (sub_exprs, stmt1, tmps1) = + List.fold_left f_sub_exprs ([], Clight.Sskip, []) sub_exprs_res in + let (e, stmt2, tmps2) = match ed, sub_exprs with + | Clight.Evar x, _ -> replace_ident replacement_assoc x t + | Clight.Eunop (unop, Clight.Expr (_, t')), e' :: _ + when List.mem_assoc (Unary (unop, t')) replacement_assoc -> + call fresh (Unary (unop, t')) replacement_assoc [(e', t')] t + | Clight.Ebinop (binop, Clight.Expr (_, t1), Clight.Expr (_, t2)), + e1 :: e2 :: _ + when List.mem_assoc (Binary (binop, t1, t2)) replacement_assoc -> + call fresh (Binary (binop, t1, t2)) replacement_assoc + [(e1, t1) ; (e2, t2)] t + | Clight.Ecast (t, Clight.Expr (_, t')), e' :: _ + when List.mem_assoc (Cast (t, t')) replacement_assoc -> + call fresh (Cast (t, t')) replacement_assoc [(e', t')] t + | _ -> (e, Clight.Sskip, []) in + (ClightFold.expr_fill_exprs e sub_exprs, + seq [stmt1 ; stmt2], + tmps1 @ tmps2) in + + ClightFold.expr2 f e + +let f_expr_descr ed _ _ _ = ed + +let f_stmt stmt sub_exprs_res sub_stmts_res = + let f_sub_exprs (es, stmt, tmps) (e, stmt', tmps') = + (es @ [e], seq [stmt ; stmt'], tmps @ tmps') in + let (sub_exprs, added_stmt, tmps1) = + List.fold_left f_sub_exprs ([], Clight.Sskip, []) sub_exprs_res in + let f_sub_stmts (stmts, tmps) (stmt, tmps') = + (stmts @ [stmt], tmps @ tmps') in + let (sub_stmts, tmps2) = List.fold_left f_sub_stmts ([], []) sub_stmts_res in + let stmt' = ClightFold.statement_fill_subs stmt sub_exprs sub_stmts in + (seq [added_stmt ; stmt'], tmps1 @ tmps2) + +let replace_statement fresh replacement_assoc = + ClightFold.statement f_ctype (f_expr fresh replacement_assoc) + f_expr_descr f_stmt + +let replace_internal fresh replacement_assoc def = + let (new_body, tmps) = + replace_statement fresh replacement_assoc def.Clight.fn_body in + { def with + Clight.fn_vars = def.Clight.fn_vars @ tmps ; Clight.fn_body = new_body } + +let replace_funct fresh replacement_assoc (id, fundef) = + let fundef' = match fundef with + | Clight.Internal def -> + Clight.Internal (replace_internal fresh replacement_assoc def) + | _ -> fundef in + (id, fundef') + +let replace fresh replacement_assoc p = + let prog_funct = + List.map (replace_funct fresh replacement_assoc) p.Clight.prog_funct in + { p with Clight.prog_funct = prog_funct } + + +let save_and_parse p = + try + ClightParser.process (`Source ("replaced", ClightPrinter.print_program p)) + with Sys_error _ -> failwith "Error reparsing Clight8 transformation." + +let add_replacements p replacements = + let p = ClightCasts.simplify p in + let (p, replacement_assoc) = add p replacements in + let p = ClightCasts.simplify p in + let tmp_universe = ClightAnnotator.fresh_universe "_tmp" p in + let fresh () = StringTools.Gen.fresh tmp_universe in + let p = replace fresh replacement_assoc p in + let p = save_and_parse p in + ClightCasts.simplify p + + +(* Unsupported operations by the 8051. *) + +let cint size sign = Clight.Tint (size, sign) + +let cints size = cint size AST.Signed +let cintu size = cint size AST.Unsigned + +let cint8s = cints Clight.I8 +let cint8u = cintu Clight.I8 +let cint16s = cints Clight.I16 +let cint16u = cintu Clight.I16 +let cint32s = cints Clight.I32 +let cint32u = cintu Clight.I32 + +let byte_size_of_intsize = function + | Clight.I8 -> 1 + | Clight.I16 -> 2 + | Clight.I32 -> 4 + +let bit_size_of_intsize size = (byte_size_of_intsize size) * 8 + +let string_of_intsize size = string_of_int (bit_size_of_intsize size) + +let ctype_of_intsize = function + | Clight.I8 -> "char" + | Clight.I16 -> "short" + | Clight.I32 -> "int" + + +(* Unsigned divisions and modulos *) + +let divumodu_fun res t s = + "unsigned " ^ t ^ " " ^ s ^ " (unsigned " ^ t ^ " x, unsigned " ^ t ^ " y)" ^ + "{\n" ^ + " unsigned " ^ t ^ " quo = 0;\n" ^ + " unsigned " ^ t ^ " rem = x;\n" ^ + " while (rem >= y) {\n" ^ + " quo = quo + 1;\n" ^ + " rem = rem - y;\n" ^ + " }\n" ^ + " return (" ^ res ^ ");\n" ^ + "}\n\n" + +let divumodu op sizes sizec t = + let (prefix, res) = match op with + | Clight.Odiv -> ("div", "quo") + | Clight.Omod -> ("mod", "rem") + | _ -> assert false (* do not use on these arguments *) in + let cu = cintu sizec in + (Binary (op, cu, cu), "_" ^ prefix ^ sizes ^ "u", divumodu_fun res t, []) + +let divu = divumodu Clight.Odiv +let modu = divumodu Clight.Omod + + +(* Unsigned divisions *) + +(* 16 bits unsigned division *) + +let div16u = divu "16" Clight.I16 "short" + +(* 32 bits unsigned division *) + +let div32u = divu "32" Clight.I32 "int" + +(* Signed divisions *) + +let divs_fun t s = + "signed " ^ t ^ " " ^ s ^ " (signed " ^ t ^ " x, signed " ^ t ^ " y) {\n" ^ + " unsigned " ^ t ^ " x1 = (unsigned " ^ t ^ ") x;\n" ^ + " unsigned " ^ t ^ " y1 = (unsigned " ^ t ^ ") y;\n" ^ + " signed " ^ t ^ " sign = 1;\n" ^ + " if (x < 0) { x1 = (unsigned " ^ t ^ ") (-x); sign = -sign; }\n" ^ + " if (y < 0) { y1 = (unsigned " ^ t ^ ") (-y); sign = -sign; }\n" ^ + " unsigned " ^ t ^ " res = (x1/y1);\n" ^ + " return (sign * ((signed " ^ t ^ ") res));\n" ^ + "}\n\n" + +let divs sizes sizec t = + let cs = cints sizec in + let cu = cintu sizec in + (Binary (Clight.Odiv, cs, cs), "_div" ^ sizes ^ "s", divs_fun t, + [Binary (Clight.Odiv, cu, cu)]) + +(* 8 bits signed division *) + +let div8s = divs "8" Clight.I8 "char" + +(* 16 bits signed division *) + +let div16s = divs "16" Clight.I16 "short" + +(* 32 bits signed division *) + +let div32s = divs "32" Clight.I32 "int" + + +(* Unsigned modulos *) + +(* 16 bits unsigned modulo *) + +let mod16u = modu "16" Clight.I16 "short" + +(* 32 bits unsigned modulo *) + +let mod32u = modu "32" Clight.I32 "int" + +(* Signed modulos *) + +let mods_fun t s = + "signed " ^ t ^ " " ^ s ^ " (signed " ^ t ^ " x, signed " ^ t ^ " y) {\n" ^ + " return (x - (x/y) * y);\n" ^ + "}\n\n" + +let mods size ct t = + (Binary (Clight.Omod, ct, ct), "_mod" ^ size ^ "s", mods_fun t, + [Binary (Clight.Odiv, ct, ct)]) + +(* 8 bits signed modulo *) + +let mod8s = mods "8" cint8s "char" + +(* 16 bits signed modulo *) + +let mod16s = mods "16" cint16s "short" + +(* 32 bits signed modulo *) + +let mod32s = mods "32" cint32s "int" + + +(* Shifts *) + +let sh_fun op t s = + t ^ " " ^ s ^ " (" ^ t ^ " x, " ^ t ^ " y) {\n" ^ + " " ^ t ^ " res = x, i;\n" ^ + " for (i = 0 ; i < y ; i++) res = res " ^ op ^ " 2;\n" ^ + " return res;\n" ^ + "}\n\n" + +let sh cop sop direction deps size sign = + let sizes = string_of_intsize size in + let ct = Clight.Tint (size, sign) in + let (short_sign, long_sign) = match sign with + | AST.Signed -> ("s", "signed ") + | AST.Unsigned -> ("u", "unsigned ") in + let t = long_sign ^ (ctype_of_intsize size) in + (Binary (cop, ct, ct), "_sh" ^ direction ^ sizes ^ short_sign, + sh_fun sop t, deps) + + +(* Shift lefts *) + +let shl = sh Clight.Oshl "*" "l" [] + +(* Signed shift lefts *) + +(* 8 bits signed shift left *) + +let shl8s = shl Clight.I8 AST.Signed + +(* 16 bits signed shift left *) + +let shl16s = shl Clight.I16 AST.Signed + +(* 32 bits signed shift left *) + +let shl32s = shl Clight.I32 AST.Signed + +(* Unsigned shift lefts *) + +(* 8 bits unsigned shift left *) + +let shl8u = shl Clight.I8 AST.Unsigned + +(* 16 bits unsigned shift left *) + +let shl16u = shl Clight.I16 AST.Unsigned + +(* 32 bits unsigned shift left *) + +let shl32u = shl Clight.I32 AST.Unsigned + + +(* Shift rights *) + +(* Signed shift rights *) + +let shrs_fun size t s = + "signed " ^ t ^ " " ^ s ^ " (signed " ^ t ^ " x, signed " ^ t ^ " y) {\n" ^ + " unsigned " ^ t ^ " x1, y1, to_add, res, i;\n" ^ + " if (y < 0) return 0;\n" ^ + " x1 = x; y1 = y; to_add = 1; res = x1;" ^ + " for (i = 0 ; i < " ^ size ^ " ; i++) to_add = to_add * 2;\n" ^ + " to_add = to_add & x1;\n" ^ + " for (i = 0 ; i < y1 ; i++) res = (res / 2) + to_add;\n" ^ + " return ((signed " ^ t ^ ") res);\n" ^ + "}\n\n" + +let shrs size = + let sizes = string_of_int (bit_size_of_intsize size) in + let op_sizes = string_of_int ((bit_size_of_intsize size) - 1) in + let t = ctype_of_intsize size in + let ct = Clight.Tint (size, AST.Signed) in + let ctdep = Clight.Tint (size, AST.Unsigned) in + (Binary (Clight.Oshr, ct, ct), "_shr" ^ sizes ^ "s", shrs_fun op_sizes t, + [Binary (Clight.Odiv, ctdep, ctdep)]) + +(* 8 bits signed shift right *) + +let shr8s = shrs Clight.I8 + +(* 16 bits signed shift right *) + +let shr16s = shrs Clight.I16 + +(* 32 bits signed shift right *) + +let shr32s = shrs Clight.I32 + +(* Unsigned shift rights *) + +let shru size = + let t_dep = Clight.Tint (size, AST.Unsigned) in + sh Clight.Oshr "/" "r" [Binary (Clight.Odiv, t_dep, t_dep)] size AST.Unsigned + +(* 8 bits unsigned shift right *) + +let shr8u = shru Clight.I8 + +(* 16 bits unsigned shift right *) + +let shr16u = shru Clight.I16 + +(* 32 bits unsigned shift right *) + +let shr32u = shru Clight.I32 + + +let unsupported = + [div16u ; div32u ; div8s ; div16s ; div32s ; + mod16u ; mod32u ; mod8s ; mod16s ; mod32s ; + shl8s ; shl16s ; shl32s ; shl8u ; shl16u ; shl32u ; + shr8s ; shr16s ; shr32s ; shr8u ; shr16u ; shr32u] + + +let replace_unsupported p = add_replacements p unsupported diff --git a/src/clight/runtime.mli b/src/clight/runtime.mli new file mode 100644 index 0000000..1dcba1f --- /dev/null +++ b/src/clight/runtime.mli @@ -0,0 +1,28 @@ + +(** This module adds runtime functions in a [Clight] program. These functions + implement unsupported functions by the target architecture that introduce a + branch. We need to define them at the [Clight] level in order to have a + correct labelling. *) + +type operation = + | Unary of Clight.unary_operation * Clight.ctype + | Binary of Clight.binary_operation * Clight.ctype * Clight.ctype + | Cast of Clight.ctype (* destination type *) * Clight.ctype (* source type *) + | Fun of string (* name of the function *) + +type op_replacement = + (* operation to be replaced *) + operation * + (* base name of the replacement function *) + string * + (* C definition of the replacement function, provided a name for the + function *) + (string -> string) * + (* dependences *) + operation list + +val add : + Clight.program -> op_replacement list -> + (Clight.program * (operation * string) list (* operation association *)) + +val replace_unsupported : Clight.program -> Clight.program diff --git a/src/cminor/cminor.mli b/src/cminor/cminor.mli new file mode 100644 index 0000000..1c1485e --- /dev/null +++ b/src/cminor/cminor.mli @@ -0,0 +1,69 @@ + +(** This module defines the abstract syntax tree of [Cminor]. *) + +(* This file describes the abstract syntax of the Cminor language. + Only types are: int8, int16, int32 and void. *) + +type etype = AST.sig_type + +type expression = Expr of expr_descr * etype +and expr_descr = + | Id of AST.ident + | Cst of AST.cst + | Op1 of AST.op1 * expression + | Op2 of AST.op2 * expression * expression + | Mem of AST.quantity * expression (* Memory read *) + | Cond of expression * expression * expression (* Ternary expression *) + | Exp_cost of CostLabel.t * expression (* Labelled expression *) + +type statement = + | St_skip + | St_assign of AST.ident * expression + | St_store of AST.quantity * expression * expression + + (* Function call. Parameters are an optional variable to store the + result of the function, the name of the function, the arguments, + and finally its signature. *) + | St_call of AST.ident option * expression * expression list * AST.signature + + (* Tail call to a function, that is, a call to a function following + by a return statement. Parameters are the name of the function, + the arguments and its signature. *) + | St_tailcall of expression * expression list * AST.signature + + | St_seq of statement * statement + | St_ifthenelse of expression * statement * statement + | St_loop of statement + | St_block of statement + | St_exit of int + + (* Switch. Parameters are the expression whose value is switch, a + table of cases and their corresponding number of blocks to exit, + and the number of block to exit in the default case. *) + | St_switch of expression * (int*int) list * int + + | St_return of expression option + | St_label of AST.ident * statement + | St_goto of string + | St_cost of CostLabel.t * statement + + +type internal_function = + { f_return : AST.type_return ; + f_params : (AST.ident * etype) list ; + f_vars : (AST.ident * etype) list ; + f_stacksize : AST.abstract_size ; + f_body : statement } + +type function_def = + | F_int of internal_function + | F_ext of AST.external_function + +(* A program is a list of global variables and their initialization + datas, a list of function names and their definition, and the name + of the main function. *) + +type program = + { vars : (AST.ident * AST.abstract_size * AST.data list option) list ; + functs : (AST.ident * function_def) list ; + main : AST.ident option } diff --git a/src/cminor/cminorAnnotator.ml b/src/cminor/cminorAnnotator.ml new file mode 100644 index 0000000..634087f --- /dev/null +++ b/src/cminor/cminorAnnotator.ml @@ -0,0 +1,209 @@ + +let int_size = Driver.CminorMemory.int_size + +let funct_vars (id, fun_def) = match fun_def with + | Cminor.F_int def -> + id :: (List.map fst (def.Cminor.f_params @ def.Cminor.f_vars)) + | _ -> [id] + +let prog_idents p = + let vars = List.map (fun (x, _, _) -> x) p.Cminor.vars in + let f vars funct = vars @ (funct_vars funct) in + let vars = List.fold_left f vars p.Cminor.functs in + let f vars var = StringTools.Set.add var vars in + List.fold_left f StringTools.Set.empty vars + +let fresh_cost_id prefix p = + let vars = prog_idents p in + StringTools.Gen.fresh_prefix vars prefix + + +(* +let increment cost_id incr = + let cost = + Cminor.Expr (Cminor.Cst (AST.Cst_addrsymbol cost_id), AST.Sig_ptr) in + let load = Cminor.Expr (Cminor.Mem (Memory.QInt 4, cost), AST.Sig_int 4) in + let incr = Cminor.Expr (Cminor.Cst (AST.Cst_int incr), AST.Sig_int 4) in + let incr = Cminor.Expr (Cminor.Op2 (AST.Op_add, load, incr), AST.Sig_int 4) in + Cminor.St_store (Memory.QInt 4, cost, incr) + + +let f_remove_cost_labels_exp e subexp_res = match e, subexp_res with + | Cminor.Id _, _ | Cminor.Cst _, _ -> e + | Cminor.Op1 (op, _), [e1] -> Cminor.Op1 (op, e1) + | Cminor.Op2 (op, _, _), [e1 ; e2] -> Cminor.Op2 (op, e1, e2) + | Cminor.Mem (chunk, _), [e] -> Cminor.Mem (chunk, e) + | Cminor.Cond (_, _, _), [e1 ; e2 ; e3] -> Cminor.Cond (e1, e2, e3) + | Cminor.Exp_cost _, [e] -> e + | _ -> assert false (* wrong number of arguments *) + +let remove_cost_labels_exp e = + CminorFold.expression f_remove_cost_labels_exp e + +let remove_cost_labels_exps exps = + List.map remove_cost_labels_exp exps + + +let list_seq l = + let f res stmt = Cminor.St_seq (res, stmt) in + List.fold_left f Cminor.St_skip l + +let f_update_cost_exp costs_mapping cost_id e subexp_res = + match e, subexp_res with + | Cminor.Cond (e1, _, _), [stmt1 ; stmt2 ; stmt3] -> + Cminor.St_seq (stmt1, Cminor.St_ifthenelse (e1, stmt2, stmt3)) + | Cminor.Exp_cost (lbl, _), [stmt2] -> + let incr = + if CostLabel.Map.mem lbl costs_mapping then + CostLabel.Map.find lbl costs_mapping + else 0 in + let stmt1 = increment cost_id incr in + Cminor.St_seq (stmt1, stmt2) + | _ -> list_seq subexp_res + +let update_cost_exp costs_mapping cost_id e = + CminorFold.expression (f_update_cost_exp costs_mapping cost_id) e + +let update_cost_exps costs_mapping cost_id exps = + let l = List.map (update_cost_exp costs_mapping cost_id) exps in + let f stmt upd = Cminor.St_seq (stmt, upd) in + List.fold_left f Cminor.St_skip l + + +let rec instrument_stmt costs_mapping cost_id body = match body with + | Cminor.St_skip | Cminor.St_exit _ | Cminor.St_return None -> body + | Cminor.St_assign (x, e) -> + let upd = update_cost_exp costs_mapping cost_id e in + let e = remove_cost_labels_exp e in + Cminor.St_seq (upd, Cminor.St_assign (x, e)) + | Cminor.St_store (chunk, e1, e2) -> + let upd = update_cost_exps costs_mapping cost_id [e1 ; e2] in + let e1 = remove_cost_labels_exp e1 in + let e2 = remove_cost_labels_exp e2 in + Cminor.St_seq (upd, Cminor.St_store (chunk, e1, e2)) + | Cminor.St_call (ox, f, args, sg) -> + let upd = update_cost_exps costs_mapping cost_id (f :: args) in + let f = remove_cost_labels_exp f in + let args = remove_cost_labels_exps args in + Cminor.St_seq (upd, Cminor.St_call (ox, f, args, sg)) + | Cminor.St_tailcall (f, args, sg) -> + let upd = update_cost_exps costs_mapping cost_id (f :: args) in + let f = remove_cost_labels_exp f in + let args = remove_cost_labels_exps args in + Cminor.St_seq (upd, Cminor.St_tailcall (f, args, sg)) + | Cminor.St_seq (stmt1, stmt2) -> + let stmt1 = instrument_stmt costs_mapping cost_id stmt1 in + let stmt2 = instrument_stmt costs_mapping cost_id stmt2 in + Cminor.St_seq (stmt1, stmt2) + | Cminor.St_ifthenelse (e, stmt1, stmt2) -> + let upd = update_cost_exp costs_mapping cost_id e in + let e = remove_cost_labels_exp e in + let stmt1 = instrument_stmt costs_mapping cost_id stmt1 in + let stmt2 = instrument_stmt costs_mapping cost_id stmt2 in + Cminor.St_seq (upd, Cminor.St_ifthenelse (e, stmt1, stmt2)) + | Cminor.St_loop stmt -> + Cminor.St_loop (instrument_stmt costs_mapping cost_id stmt) + | Cminor.St_block stmt -> + Cminor.St_block (instrument_stmt costs_mapping cost_id stmt) + | Cminor.St_switch (e, tbl, dflt) -> + let upd = update_cost_exp costs_mapping cost_id e in + let e = remove_cost_labels_exp e in + Cminor.St_seq (upd, Cminor.St_switch (e, tbl, dflt)) + | Cminor.St_label (lbl, stmt) -> + Cminor.St_label (lbl, instrument_stmt costs_mapping cost_id stmt) + | Cminor.St_goto lbl -> body + | Cminor.St_return (Some e) -> + let upd = update_cost_exp costs_mapping cost_id e in + let e = remove_cost_labels_exp e in + Cminor.St_seq (upd, Cminor.St_return (Some e)) + | Cminor.St_cost (lbl, stmt) -> + let incr = + if CostLabel.Map.mem lbl costs_mapping then + CostLabel.Map.find lbl costs_mapping + else 0 in + let stmt = instrument_stmt costs_mapping cost_id stmt in + if incr = 0 then stmt + else Cminor.St_seq (increment cost_id incr, stmt) + + +let instrument_function costs_mapping cost_id = function + | Cminor.F_int int_def -> + let body = instrument_stmt costs_mapping cost_id int_def.Cminor.f_body in + let def = { int_def with Cminor.f_body = body} in + Cminor.F_int def + | def -> def + + +(** [instrument prog cost_map] instruments the program [prog]. First a fresh + global variable --- the so-called cost variable --- is added to the program. + Then, each cost label in the program is replaced by an increment of the cost + variable, following the mapping [cost_map]. The function also returns the + name of the cost variable and the name of the cost increment function. *) + +let instrument p costs_mapping = + let cost_id = fresh_cost_id "_cost" p in + let vars = (cost_id, [AST.Data_int32 0]) :: p.Cminor.vars in + let f (f_name, f_def) = + (f_name, instrument_function costs_mapping cost_id f_def) in + let functs = List.map f p.Cminor.functs in + ({ Cminor.vars = vars ; + Cminor.functs = functs ; + Cminor.main = p.Cminor.main }, + "" (* TODO *), + "" (* TODO *)) +*) + + +(* Program cost labels and labels *) + +let labels_empty = (CostLabel.Set.empty, Label.Set.empty) + +let add_cost_label lbl (cost_label, user_label) = + (CostLabel.Set.add lbl cost_label, user_label) + +let add_label lbl (cost_label, user_label) = + (cost_label, Label.Set.add lbl user_label) + +let labels_union (cost_labels1, user_labels1) (cost_labels2, user_labels2) = + (CostLabel.Set.union cost_labels1 cost_labels2, + Label.Set.union user_labels1 user_labels2) + +let labels_union_list l = + let f res labels = labels_union res labels in + List.fold_left f labels_empty l + +let f_exp_labels (Cminor.Expr (ed, _)) subexp_res = + let labels1 = labels_union_list subexp_res in + let labels2 = match ed with + | Cminor.Exp_cost (lbl, _) -> add_cost_label lbl labels_empty + | _ -> labels_empty in + labels_union labels1 labels2 + +let f_body_labels stmt subexp_res substmt_res = + let labels1 = labels_union_list subexp_res in + let labels2 = labels_union_list substmt_res in + let labels = labels_union labels1 labels2 in + let labels3 = match stmt with + | Cminor.St_label (lbl, _) -> add_label lbl labels_empty + | Cminor.St_cost (lbl, _) -> add_cost_label lbl labels_empty + | _ -> labels_empty in + labels_union labels labels3 + +let body_labels stmt = CminorFold.statement f_exp_labels f_body_labels stmt + +let prog_labels p = + let f lbls (_, f_def) = match f_def with + | Cminor.F_int def -> + labels_union lbls (body_labels def.Cminor.f_body) + | _ -> lbls in + List.fold_left f (CostLabel.Set.empty, Label.Set.empty) p.Cminor.functs + +let cost_labels p = fst (prog_labels p) +let user_labels p = snd (prog_labels p) + +let all_labels p = + let (cost_labels, user_labels) = prog_labels p in + let all = + CostLabel.Set.fold (fun lbl lbls -> StringTools.Set.add lbl lbls) + cost_labels StringTools.Set.empty in + Label.Set.fold (fun lbl lbls -> StringTools.Set.add lbl lbls) user_labels all diff --git a/src/cminor/cminorAnnotator.mli b/src/cminor/cminorAnnotator.mli new file mode 100644 index 0000000..9b3b4d1 --- /dev/null +++ b/src/cminor/cminorAnnotator.mli @@ -0,0 +1,19 @@ + +(** This module defines the instrumentation of a [Cminor] program. *) + +(* +(** [instrument prog cost_map] instruments the program [prog]. First a fresh + global variable --- the so-called cost variable --- is added to the program. + Then, each cost label in the program is replaced by an increment of the cost + variable, following the mapping [cost_map]. The function also returns the + name of the cost variable and the name of the cost increment function. *) + +val instrument : Cminor.program -> int CostLabel.Map.t -> + Cminor.program * string * string +*) + +val cost_labels : Cminor.program -> CostLabel.Set.t +val user_labels : Cminor.program -> Label.Set.t +val all_labels : Cminor.program -> StringTools.Set.t + +val prog_idents : Cminor.program -> StringTools.Set.t diff --git a/src/cminor/cminorFold.ml b/src/cminor/cminorFold.ml new file mode 100644 index 0000000..eee130e --- /dev/null +++ b/src/cminor/cminorFold.ml @@ -0,0 +1,88 @@ + +(** This module provides folding functions over the constructors of the + [Cminor]'s AST. *) + + +let expression_subs (Cminor.Expr (ed, _)) = match ed with + | Cminor.Id _ | Cminor.Cst _ -> [] + | Cminor.Op1 (_, e) | Cminor.Mem (_, e) | Cminor.Exp_cost (_, e) -> [e] + | Cminor.Op2 (_, e1, e2) -> [e1 ; e2] + | Cminor.Cond (e1, e2, e3) -> [e1 ; e2 ; e3] + +let expression_fill_subs (Cminor.Expr (ed, t)) subs = + let ed = match ed, subs with + | Cminor.Id _, _ | Cminor.Cst _, _ -> ed + | Cminor.Op1 (op1, _), e :: _ -> Cminor.Op1 (op1, e) + | Cminor.Op2 (op2, _, _), e1 :: e2 :: _ -> Cminor.Op2 (op2, e1, e2) + | Cminor.Mem (size, _), e :: _ -> Cminor.Mem (size, e) + | Cminor.Cond _, e1 :: e2 :: e3 :: _ -> Cminor.Cond (e1, e2, e3) + | Cminor.Exp_cost (lbl, _), e :: _ -> Cminor.Exp_cost (lbl, e) + | _ -> assert false (* wrong parameter size *) in + Cminor.Expr (ed, t) + + +(* In [expression f e], [f]'s second argument is the list of + [expression]'s results on [e]'s sub-expressions. *) + +let rec expression f_expr e = + let sub_es_res = List.map (expression f_expr) (expression_subs e) in + f_expr e sub_es_res + + +let statement_subs = function + | Cminor.St_skip | Cminor.St_exit _ | Cminor.St_return None + | Cminor.St_goto _ -> ([], []) + | Cminor.St_assign (_, e) | Cminor.St_switch (e, _, _) + | Cminor.St_return (Some e) -> ([e], []) + | Cminor.St_store (_, e1, e2) -> + ([e1 ; e2], []) + | Cminor.St_call (_, f, args, _) | Cminor.St_tailcall (f, args, _) -> + (f :: args, []) + | Cminor.St_seq (stmt1, stmt2) -> + ([], [stmt1 ; stmt2]) + | Cminor.St_ifthenelse (e, stmt1, stmt2) -> + ([e], [stmt1 ; stmt2]) + | Cminor.St_loop stmt | Cminor.St_block stmt + | Cminor.St_label (_, stmt) | Cminor.St_cost (_, stmt) -> + ([], [stmt]) + +let statement_fill_subs stmt sub_es sub_stmts = + match stmt, sub_es, sub_stmts with + | ( Cminor.St_skip | Cminor.St_exit _ | Cminor.St_return None + | Cminor.St_goto _), _, _ -> stmt + | Cminor.St_assign (x, _), e :: _, _ -> + Cminor.St_assign (x, e) + | Cminor.St_switch (_, cases, dflt), e :: _, _ -> + Cminor.St_switch (e, cases, dflt) + | Cminor.St_return _, e :: _, _ -> + Cminor.St_return (Some e) + | Cminor.St_store (size, _, _), e1 :: e2 :: _, _ -> + Cminor.St_store (size, e1, e2) + | Cminor.St_call (x_opt, _, _, sg), f :: args, _ -> + Cminor.St_call (x_opt, f, args, sg) + | Cminor.St_tailcall (_, _, sg), f :: args, _ -> + Cminor.St_tailcall (f, args, sg) + | Cminor.St_seq _, _, stmt1 :: stmt2 :: _ -> + Cminor.St_seq (stmt1, stmt2) + | Cminor.St_ifthenelse _, e :: _, stmt1 :: stmt2 :: _ -> + Cminor.St_ifthenelse (e, stmt1, stmt2) + | Cminor.St_loop _, _, stmt :: _ -> + Cminor.St_loop stmt + | Cminor.St_block _, _, stmt :: _ -> + Cminor.St_block stmt + | Cminor.St_label (lbl, _), _, stmt :: _ -> + Cminor.St_label (lbl, stmt) + | Cminor.St_cost (lbl, _), _, stmt :: _ -> + Cminor.St_cost (lbl, stmt) + | _ -> assert false (* do not use on these arguments *) + +(* In [statement f_expr f_stmt stmt], [f_stmt]'s second argument is the + list of [expression f_expr]'s results on [stmt]'s sub-expressions, and + [f_stmt]'s third argument is the list of [statement]'s results + on [stmt]'s sub-statements. *) + +let rec statement f_expr f_stmt stmt = + let (sub_es, sub_stmts) = statement_subs stmt in + let sub_es_res = List.map (expression f_expr) sub_es in + let sub_stmts_res = List.map (statement f_expr f_stmt) sub_stmts in + f_stmt stmt sub_es_res sub_stmts_res diff --git a/src/cminor/cminorFold.mli b/src/cminor/cminorFold.mli new file mode 100644 index 0000000..7e724d4 --- /dev/null +++ b/src/cminor/cminorFold.mli @@ -0,0 +1,33 @@ + +(** This module provides folding functions over the constructors of the + [Cminor]'s AST. *) + +val expression_subs : Cminor.expression -> Cminor.expression list + +val expression_fill_subs : Cminor.expression -> Cminor.expression list -> + Cminor.expression + +(* In [expression f e], [f]'s second argument is the list of + [expression]'s results on [e]'s sub-expressions. *) + +val expression : (Cminor.expression -> 'a list -> 'a) -> + Cminor.expression -> + 'a + +val statement_subs : Cminor.statement -> + (Cminor.expression list * Cminor.statement list) + +val statement_fill_subs : Cminor.statement -> + Cminor.expression list -> + Cminor.statement list -> + Cminor.statement + +(* In [statement f_expr f_stmt stmt], [f_stmt]'s second argument is the + list of [expression f_expr]'s results on [stmt]'s sub-expressions, and + [f_stmt]'s third argument is the list of [statement]'s results + on [stmt]'s sub-statements. *) + +val statement : (Cminor.expression -> 'a list -> 'a) -> + (Cminor.statement -> 'a list -> 'b list -> 'b) -> + Cminor.statement -> + 'b diff --git a/src/cminor/cminorInterpret.ml b/src/cminor/cminorInterpret.ml new file mode 100644 index 0000000..6e70555 --- /dev/null +++ b/src/cminor/cminorInterpret.ml @@ -0,0 +1,382 @@ +open AST +open Cminor + +module Mem = Driver.CminorMemory +module Val = Mem.Value +module LocalEnv = Map.Make(String) +type local_env = Val.t LocalEnv.t +type memory = Cminor.function_def Mem.memory + + +let error_prefix = "Cminor interpret" +let error s = Error.global_error error_prefix s +let warning s = Error.warning error_prefix s +let error_float () = error "float not supported." + + +(* Helpers *) + +let value_of_address = List.hd +let address_of_value v = [v] + + +(* State of execution *) + +type continuation = + Ct_stop + | Ct_cont of statement*continuation + | Ct_endblock of continuation + | Ct_returnto of + ident option*internal_function*Val.address*local_env*continuation + +type state = + State_regular of + internal_function*statement*continuation*Val.address*local_env*(function_def Mem.memory) + | State_call of function_def*Val.t list*continuation*(function_def Mem.memory) + | State_return of Val.t*continuation*(function_def Mem.memory) + +let string_of_local_env lenv = + let f x v s = s ^ x ^ " = " ^ (Val.to_string v) ^ " " in + LocalEnv.fold f lenv "" + +let string_of_expr = CminorPrinter.print_expression + +let string_of_args args = + "(" ^ (MiscPottier.string_of_list ", " string_of_expr args) ^ ")" + +let rec string_of_statement = function + | St_skip -> "skip" + | St_assign (x, e) -> x ^ " = " ^ (string_of_expr e) + | St_store (q, e1, e2) -> + Printf.sprintf "%s[%s] = %s" + (Memory.string_of_quantity q) (string_of_expr e1) (string_of_expr e2) + | St_call (None, f, args, _) + | St_tailcall (f, args, _) -> (string_of_expr f) ^ (string_of_args args) + | St_call (Some x, f, args, _) -> + x ^ " = " ^ (string_of_expr f) ^ (string_of_args args) + | St_seq _ -> "sequence" + | St_ifthenelse (e, _, _) -> "if (" ^ (string_of_expr e) ^ ")" + | St_loop _ -> "loop" + | St_block _ -> "block" + | St_exit n -> "exit " ^ (string_of_int n) + | St_switch (e, _, _) -> "switch (" ^ (string_of_expr e) ^ ")" + | St_return None -> "return" + | St_return (Some e) -> "return (" ^ (string_of_expr e) ^ ")" + | St_label (lbl, _) -> "label " ^ lbl + | St_goto lbl -> "goto " ^ lbl + | St_cost (lbl, _) -> "cost " ^ lbl + +let print_state = function + | State_regular (_, stmt, _, sp, lenv, mem) -> + Printf.printf "Local environment:\n%s\n\nMemory:%s\nStack pointer: %s\n\nRegular state: %s\n\n%!" + (string_of_local_env lenv) + (Mem.to_string mem) + (Val.to_string (value_of_address sp)) + (string_of_statement stmt) + | State_call (_, args, _, mem) -> + Printf.printf "Memory:%s\nCall state\n\nArguments:\n%s\n\n%!" + (Mem.to_string mem) + (MiscPottier.string_of_list " " Val.to_string args) + | State_return (v, _, mem) -> + Printf.printf "Memory:%s\nReturn state: %s\n\n%!" + (Mem.to_string mem) + (Val.to_string v) + + +(* Global and local environment management *) + +let init_local_env args params vars = + let f_param lenv (x, _) v = LocalEnv.add x v lenv in + let f_var lenv (x, _) = LocalEnv.add x Val.undef lenv in + let lenv = List.fold_left2 f_param LocalEnv.empty params args in + List.fold_left f_var lenv vars + +let find_fundef f mem = + let addr = Mem.find_global mem f in + Mem.find_fun_def mem addr + + +(* Expression evaluation *) + +module Eval_op (M : Memory.S) = struct + + let concrete_stacksize = M.concrete_size + + let ext_fun_of_sign = function + | AST.Signed -> M.Value.sign_ext + | AST.Unsigned -> M.Value.zero_ext + + let cast_to_std t v = match t with + | AST.Sig_int (size, sign) -> (ext_fun_of_sign sign) v size M.int_size + | AST.Sig_float _ -> error_float () + | AST.Sig_offset | AST.Sig_ptr -> v + + let cast_from_std t v = match t with + | AST.Sig_int (size, _) -> (ext_fun_of_sign AST.Unsigned) v M.int_size size + | AST.Sig_float _ -> error_float () + | AST.Sig_offset | AST.Sig_ptr -> v + + let cst mem sp t = function + | Cst_int i -> cast_to_std t (M.Value.of_int i) + | Cst_float _ -> error_float () + | Cst_addrsymbol id when M.mem_global mem id -> + value_of_address (M.find_global mem id) + | Cst_addrsymbol id -> error ("unknown global variable " ^ id ^ ".") + | Cst_stack -> value_of_address sp + | Cst_offset off -> M.Value.of_int (M.concrete_offset off) + | Cst_sizeof t' -> cast_to_std t (M.Value.of_int (M.concrete_size t')) + + let fun_of_op1 = function + | Op_cast ((from_size, from_sign), to_size) -> + (fun v -> (ext_fun_of_sign from_sign) v from_size to_size) + | Op_negint -> M.Value.negint + | Op_notbool -> M.Value.notbool + | Op_notint -> M.Value.negint + | Op_id -> (fun v -> v) + | Op_ptrofint + | Op_intofptr -> + error "conversion between integers and pointers not supported yet." + + let op1 ret_type t op v = + cast_from_std ret_type ((fun_of_op1 op) (cast_to_std t v)) + + let fun_of_op2 = function + | Op_add | Op_addp -> M.Value.add + | Op_sub | Op_subp | Op_subpp -> M.Value.sub + | Op_mul -> M.Value.mul + | Op_div -> M.Value.div + | Op_divu -> M.Value.divu + | Op_mod -> M.Value.modulo + | Op_modu -> M.Value.modulou + | Op_and -> M.Value.and_op + | Op_or -> M.Value.or_op + | Op_xor -> M.Value.xor + | Op_shl -> M.Value.shl + | Op_shr -> M.Value.shr + | Op_shru -> M.Value.shru + | Op_cmp Cmp_eq | Op_cmpp Cmp_eq -> M.Value.cmp_eq + | Op_cmp Cmp_ne | Op_cmpp Cmp_ne -> M.Value.cmp_ne + | Op_cmp Cmp_gt | Op_cmpp Cmp_gt -> M.Value.cmp_gt + | Op_cmp Cmp_ge | Op_cmpp Cmp_ge -> M.Value.cmp_ge + | Op_cmp Cmp_lt | Op_cmpp Cmp_lt -> M.Value.cmp_lt + | Op_cmp Cmp_le | Op_cmpp Cmp_le -> M.Value.cmp_le + | Op_cmpu Cmp_eq -> M.Value.cmp_eq_u + | Op_cmpu Cmp_ne -> M.Value.cmp_ne_u + | Op_cmpu Cmp_gt -> M.Value.cmp_gt_u + | Op_cmpu Cmp_ge -> M.Value.cmp_ge_u + | Op_cmpu Cmp_lt -> M.Value.cmp_lt_u + | Op_cmpu Cmp_le -> M.Value.cmp_le_u + + let op2 ret_type t1 t2 op2 v1 v2 = + let v1 = cast_to_std t1 v1 in + let v2 = cast_to_std t2 v2 in + cast_from_std ret_type ((fun_of_op2 op2) v1 v2) +end + +module Eval = Eval_op (Mem) + +let concrete_stacksize = Eval.concrete_stacksize +let eval_constant = Eval.cst +let eval_unop = Eval.op1 +let eval_binop = Eval.op2 + +let type_of_expr (Cminor.Expr (_, t)) = t + +let rec eval_expression stack local_env memory (Cminor.Expr (ed, t)) = + match ed with + | Id x when LocalEnv.mem x local_env -> (LocalEnv.find x local_env,[]) + | Id x -> error ("unknown local variable " ^ x ^ ".") + | Cst(c) -> (eval_constant memory stack t c,[]) + | Op1(op,arg) -> + let (v,l) = eval_expression stack local_env memory arg in + (eval_unop t (type_of_expr arg) op v,l) + | Op2(op, arg1, arg2) -> + let (v1,l1) = eval_expression stack local_env memory arg1 in + let (v2,l2) = eval_expression stack local_env memory arg2 in + (eval_binop t (type_of_expr arg1) (type_of_expr arg2) op v1 v2,l1@l2) + | Mem(q,a) -> + let (v,l) = eval_expression stack local_env memory a in + (Mem.loadq memory q (address_of_value v),l) + | Cond(a1,a2,a3) -> + let (v1,l1) = eval_expression stack local_env memory a1 in + if Val.is_true v1 then + let (v2,l2) = eval_expression stack local_env memory a2 in + (v2,l1@l2) + else + if Val.is_false v1 then + let (v3,l3) = eval_expression stack local_env memory a3 in + (v3,l1@l3) + else error "undefined conditional value." + | Exp_cost(lbl,e) -> + let (v,l) = eval_expression stack local_env memory e in + (v,l@[lbl]) + +let eval_exprlist sp lenv mem es = + let f (vs, cost_lbls) e = + let (v, cost_lbls') = eval_expression sp lenv mem e in + (vs @ [v], cost_lbls @ cost_lbls') in + List.fold_left f ([], []) es + +(* State transition *) + +let rec callcont = function + Ct_stop -> Ct_stop + | Ct_cont(_,k) -> callcont k + | Ct_endblock(k) -> callcont k + | Ct_returnto(a,b,c,d,e) -> Ct_returnto(a,b,c,d,e) + +let findlabel lbl st k = + let rec fdlbl k = function + St_skip -> None + | St_assign(_,_) -> None + | St_store(_,_,_) -> None + | St_call(_,_,_,_) -> None + | St_tailcall(_,_,_) -> None + | St_seq(s1,s2) -> + (match fdlbl (Ct_cont(s2,k)) s1 with + None -> fdlbl k s2 + | Some(v) -> Some(v) + ) + | St_ifthenelse(_,s1,s2) -> + (match fdlbl k s1 with + None -> fdlbl k s2 + | Some(v) -> Some(v) + ) + | St_loop(s) -> fdlbl (Ct_cont(St_loop(s),k)) s + | St_block(s) -> fdlbl (Ct_endblock(k)) s + | St_exit(_) -> None + | St_switch(_,_,_) -> None + | St_return(_) -> None + | St_label(l,s) when l = lbl -> Some((s,k)) + | St_goto(_) -> None + | St_cost (_,s) | St_label (_,s) -> fdlbl k s + in match fdlbl k st with + None -> assert false (*Wrong label*) + | Some(v) -> v + + +let call_state sigma e m f params cont = + let (addr,l1) = eval_expression sigma e m f in + let fun_def = Mem.find_fun_def m (address_of_value addr) in + let (args,l2) = eval_exprlist sigma e m params in + (State_call(fun_def,args,cont,m),l1@l2) + +let eval_stmt f k sigma e m s = match s, k with + | St_skip,Ct_cont(s,k) -> (State_regular(f, s, k, sigma, e, m),[]) + | St_skip,Ct_endblock(k) -> (State_regular(f, St_skip, k, sigma, e, m),[]) + | St_skip, (Ct_returnto _ as k) -> + (State_return (Val.undef,k,Mem.free m sigma),[]) + | St_skip,Ct_stop -> + (State_return (Val.undef,Ct_stop,Mem.free m sigma),[]) + | St_assign(x,exp),_ -> + let (v,l) = eval_expression sigma e m exp in + let e = LocalEnv.add x v e in + (State_regular(f, St_skip, k, sigma, e, m),l) + | St_store(q,a1,a2),_ -> + let (v1,l1) = eval_expression sigma e m a1 in + let (v2,l2) = eval_expression sigma e m a2 in + let m = Mem.storeq m q (address_of_value v1) v2 in + (State_regular(f, St_skip, k, sigma, e, m),l1@l2) + | St_call(xopt,f',params,_),_ -> + call_state sigma e m f' params (Ct_returnto(xopt,f,sigma,e,k)) + | St_tailcall(f',params,_),_ -> + call_state sigma e m f' params (callcont k) + | St_seq(s1,s2),_ -> (State_regular(f, s1, Ct_cont(s2, k), sigma, e, m),[]) + | St_ifthenelse(exp,s1,s2),_ -> + let (v,l) = eval_expression sigma e m exp in + let next_stmt = + if Val.is_true v then s1 + else + if Val.is_false v then s2 + else error "undefined conditional value." in + (State_regular(f,next_stmt,k,sigma,e,m),l) + | St_loop(s),_ -> (State_regular(f,s,Ct_cont((St_loop s),k),sigma,e,m),[]) + | St_block(s),_ -> (State_regular(f,s,(Ct_endblock k),sigma,e,m),[]) + | St_exit(n),Ct_cont(s,k) -> (State_regular(f,(St_exit n),k,sigma,e,m),[]) + | St_exit(0),Ct_endblock(k) -> (State_regular(f,St_skip,k,sigma,e,m),[]) + | St_exit(n),Ct_endblock(k) -> + (State_regular(f,(St_exit (n-1)),k,sigma,e,m),[]) + | St_label(_,s),_ -> (State_regular(f,s,k,sigma,e,m),[]) + | St_goto(lbl),_ -> + let (s2,k2) = findlabel lbl f.f_body (callcont k) in + (State_regular(f,s2,k2,sigma,e,m),[]) + | St_switch(exp,lst,def),_ -> + let (v,l) = eval_expression sigma e m exp in + if Val.is_int v then + try + let i = Val.to_int v in + let nb_exit = + if List.mem_assoc i lst then List.assoc i lst + else def in + (State_regular(f, St_exit nb_exit,k, sigma, e, m),l) + with _ -> error "int value too big." + else error "undefined switch value." + | St_return(None),_ -> + (State_return (Val.undef,callcont k,Mem.free m sigma),[]) + | St_return(Some(a)),_ -> + let (v,l) = eval_expression sigma e m a in + (State_return (v,callcont k,Mem.free m sigma),l) + | St_cost(lbl,s),_ -> (State_regular(f,s,k,sigma,e,m),[lbl]) + | _ -> error "state malformation." + + +module InterpretExternal = Primitive.Interpret (Mem) + +let interpret_external k mem f args = + let (mem', v) = match InterpretExternal.t mem f args with + | (mem', InterpretExternal.V vs) -> + let v = if List.length vs = 0 then Val.undef else List.hd vs in + (mem', v) + | (mem', InterpretExternal.A addr) -> (mem', value_of_address addr) in + State_return (v, k, mem') + +let step_call vargs k m = function + | F_int f -> + let (m, sp) = Mem.alloc m (concrete_stacksize f.f_stacksize) in + let lenv = init_local_env vargs f.f_params f.f_vars in + State_regular(f,f.f_body,k,sp,lenv,m) + | F_ext f -> interpret_external k m f.ef_tag vargs + +let step = function + | State_regular(f,stmt,k,sp,e,m) -> eval_stmt f k sp e m stmt + | State_call(fun_def,vargs,k,m) -> (step_call vargs k m fun_def,[]) + | State_return(v,Ct_returnto(None,f,sigma,e,k),m) -> + (State_regular(f,St_skip,k,sigma,e,m),[]) + | State_return(v,Ct_returnto(Some x,f,sigma,e,k),m) -> + let e = LocalEnv.add x v e in + (State_regular(f,St_skip,k,sigma,e,m),[]) + | _ -> error "state malformation." + + +let init_mem prog = + let f_var mem (x, size, init_datas) = Mem.add_var mem x size init_datas in + let mem = List.fold_left f_var Mem.empty prog.vars in + let f_fun_def mem (f, def) = Mem.add_fun_def mem f def in + List.fold_left f_fun_def mem prog.functs + +let compute_result v = + if Val.is_int v then IntValue.Int32.cast (Val.to_int_repr v) + else IntValue.Int32.zero + +let rec exec debug trace (state, l) = + let cost_labels = l @ trace in + let print_and_return_result res = + if debug then Printf.printf "Result = %s\n%!" + (IntValue.Int32.to_string res) ; + (res, cost_labels) in + if debug then print_state state ; + match state with + | State_return(v,Ct_stop,_) -> (* Explicit return in main *) + print_and_return_result (compute_result v) + | State_regular(_,St_skip,Ct_stop,_,_,_) -> (* Implicit return in main *) + print_and_return_result IntValue.Int32.zero + | state -> exec debug cost_labels (step state) + +let interpret debug prog = + Printf.printf "*** Cminor interpret ***\n%!" ; + match prog.main with + | None -> (IntValue.Int32.zero, []) + | Some main -> + let mem = init_mem prog in + let first_state = (State_call (find_fundef main mem,[],Ct_stop,mem),[]) in + exec debug [] first_state diff --git a/src/cminor/cminorInterpret.mli b/src/cminor/cminorInterpret.mli new file mode 100644 index 0000000..2c092aa --- /dev/null +++ b/src/cminor/cminorInterpret.mli @@ -0,0 +1,17 @@ +(** This module provides a function to interpret a [Cminor] program and + return the trace of cost labels encountered. This function can + also print debug informations. *) + +module Eval_op (M : Memory.S) : sig + val concrete_stacksize : AST.abstract_size -> int + val cst : + 'a M.memory -> M.Value.address -> AST.sig_type -> AST.cst -> M.Value.t + val op1 : + AST.sig_type (* returned type *) -> AST.sig_type -> AST.op1 -> M.Value.t -> + M.Value.t + val op2 : + AST.sig_type (* returned type *) -> AST.sig_type -> AST.sig_type -> + AST.op2 -> M.Value.t -> M.Value.t -> M.Value.t +end + +val interpret : bool -> Cminor.program -> AST.trace diff --git a/src/cminor/cminorLabelling.ml b/src/cminor/cminorLabelling.ml new file mode 100644 index 0000000..157922e --- /dev/null +++ b/src/cminor/cminorLabelling.ml @@ -0,0 +1,101 @@ + +(** This module defines the labelling of a [Cminor] program. *) + + +let prefix = "_cost" + + +(* Add a cost label in front of a statement. *) + +let add_starting_cost_label cost_universe stmt = + Cminor.St_cost (CostLabel.Gen.fresh cost_universe, stmt) + +(* Add a cost label at the end of a statement. *) + +let add_ending_cost_label cost_universe stmt = + Cminor.St_seq (stmt, add_starting_cost_label cost_universe Cminor.St_skip) + + +(* This function adds cost labels to an expression, given the result on its + sub-expressions. *) + +let f_add_cost_labels_exp cost_universe e subexp_res = match e, subexp_res with + | Cminor.Id _, _ | Cminor.Cst _, _ -> e + | Cminor.Op1 (op1, _), [e] -> Cminor.Op1 (op1, e) + | Cminor.Op2 (op2, _, _), [e1 ; e2] -> Cminor.Op2 (op2, e1, e2) + | Cminor.Mem (chunk, _), [e] -> Cminor.Mem (chunk, e) + | Cminor.Cond _, [e1 ; e2 ; e3] -> + let e2 = Cminor.Exp_cost (CostLabel.Gen.fresh cost_universe, e2) in + let e3 = Cminor.Exp_cost (CostLabel.Gen.fresh cost_universe, e3) in + Cminor.Cond (e1, e2, e3) + | Cminor.Exp_cost (lab, _), [e] -> Cminor.Exp_cost (lab, e) + | _ -> assert false (* wrong number of arguments *) + +(* This function adds cost labels to a statement, given the result on its + sub-expressions and sub-statements. *) + +let f_add_cost_labels_body cost_universe stmt subexp_res substmt_res = + match stmt, subexp_res, substmt_res with + | Cminor.St_skip, _, _ | Cminor.St_exit _, _, _ + | Cminor.St_goto _, _, _ | Cminor.St_return None, _, _ -> + stmt + | Cminor.St_assign (x, _), [e], _ -> + Cminor.St_assign (x, e) + | Cminor.St_store (chunk, _, _), [e1 ; e2], _ -> + Cminor.St_store (chunk, e1, e2) + | Cminor.St_call (x, _, _, sg), f :: args, _ -> + Cminor.St_call (x, f, args, sg) + | Cminor.St_tailcall (_, _, sg), f :: args, _ -> + Cminor.St_tailcall (f, args, sg) + | Cminor.St_seq _, _, [stmt1 ; stmt2] -> + Cminor.St_seq (stmt1, stmt2) + | Cminor.St_ifthenelse _, [e], [stmt1 ; stmt2] -> + let stmt1 = add_starting_cost_label cost_universe stmt1 in + let stmt2 = add_starting_cost_label cost_universe stmt2 in + Cminor.St_ifthenelse (e, stmt1, stmt2) + | Cminor.St_loop _, _, [stmt] -> + let stmt = add_starting_cost_label cost_universe stmt in + add_ending_cost_label cost_universe (Cminor.St_loop stmt) + | Cminor.St_block _, _, [stmt] -> + Cminor.St_block stmt + | Cminor.St_switch (_, tbl, dflt), [e], _ -> + add_ending_cost_label cost_universe (Cminor.St_switch (e, tbl, dflt)) + | Cminor.St_return _, [e], _ -> + Cminor.St_return (Some e) + | Cminor.St_label (lab, _), _, [stmt] -> + let stmt = add_starting_cost_label cost_universe stmt in + Cminor.St_label (lab, stmt) + | Cminor.St_cost (lab, _), _, [stmt] -> + Cminor.St_cost (lab, stmt) + | _ -> assert false (* wrong number of arguments *) + +(* Add cost labels to a statement. *) + +let add_cost_labels_body cost_universe stmt = + CminorFold.statement + (f_add_cost_labels_exp cost_universe) + (f_add_cost_labels_body cost_universe) + stmt + +(* Add cost labels to a function definition. *) + +let add_cost_labels_functs cost_universe functs (f_id, f_def) = + match f_def with + | Cminor.F_int def -> + let body = add_cost_labels_body cost_universe def.Cminor.f_body in + let body = add_starting_cost_label cost_universe body in + let def' = { def with Cminor.f_body = body } in + functs @ [(f_id, Cminor.F_int def')] + | Cminor.F_ext _ -> functs @ [(f_id, f_def)] + +(** [add_cost_labels prog] inserts some labels to enable cost annotation. *) + +let add_cost_labels prog = + let labs = CminorAnnotator.all_labels prog in + let labs = StringTools.Set.fold CostLabel.Set.add labs CostLabel.Set.empty in + let cost_prefix = CostLabel.Gen.fresh_prefix labs prefix in + let cost_universe = CostLabel.Gen.new_universe cost_prefix in + let functs = + List.fold_left (add_cost_labels_functs cost_universe) [] + prog.Cminor.functs in + { prog with Cminor.functs = functs } diff --git a/src/cminor/cminorLabelling.mli b/src/cminor/cminorLabelling.mli new file mode 100644 index 0000000..16a3c2d --- /dev/null +++ b/src/cminor/cminorLabelling.mli @@ -0,0 +1,22 @@ + +(** This module defines the labelling of a [Cminor] program. *) + +(** [add_cost_labels prog] inserts some labels to enable + cost annotation. + + The labelling of a function proceeds as follows: + + - A label is added at the beginning of the function. + + - For each branching instruction in the function, a cost label is added at + the beginning of each branch. The concerned instructions are: + - ternary expressions; + - conditionals; + - loops; + - switches. + + - For each label instruction in the function, a cost label is added after + the label, in order to capture loops potentially created by gotos. +*) + +val add_cost_labels : Cminor.program -> Cminor.program diff --git a/src/cminor/cminorLexer.mll b/src/cminor/cminorLexer.mll new file mode 100644 index 0000000..8b87e7d --- /dev/null +++ b/src/cminor/cminorLexer.mll @@ -0,0 +1,150 @@ +(* *********************************************************************) +(* *) +(* The Compcert verified compiler *) +(* *) +(* Xavier Leroy, INRIA Paris-Rocquencourt *) +(* *) +(* Copyright Institut National de Recherche en Informatique et en *) +(* Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU General Public License as published by *) +(* the Free Software Foundation, either version 2 of the License, or *) +(* (at your option) any later version. This file is also distributed *) +(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* *) +(* *********************************************************************) + +{ + open CminorParser + exception Error of string +} + +let ret = ['\010'] +let blank = [' ' '\009' '\012' '\013'] +let floatlit = + ['0'-'9'] ['0'-'9' '_']* + ('.' ['0'-'9' '_']* )? + (['e' 'E'] ['+' '-']? ['0'-'9'] ['0'-'9' '_']*)? +let ident = ['A'-'Z' 'a'-'z' '_'] ['A'-'Z' 'a'-'z' '_' '0'-'9']* +let intlit = "-"? ( ['0'-'9']+ | "0x" ['0'-'9' 'a'-'f' 'A'-'F']+ + | "0o" ['0'-'7']+ | "0b" ['0'-'1']+ ) +let stringlit = "\"" [ ^ '"' ] * '"' + +rule token = parse + | ret { Misc.LexingExt.new_line lexbuf ; token lexbuf } + | blank + { token lexbuf } + | "/*" { comment lexbuf; token lexbuf } + | "absf" { ABSF } + | "&" { AMPERSAND } + | "&&" { AMPERSANDAMPERSAND } + | "!" { BANG } + | "!=" { BANGEQUAL } + | "!=f" { BANGEQUALF } + | "!=u" { BANGEQUALU } + | "|" { BAR } + | "||" { BARBAR } + | "^" { CARET } + | "case" { CASE } + | ":" { COLON } + | "," { COMMA } + | "default" { DEFAULT } +(* | "$" { DOLLAR } *) + | "else" { ELSE } + | "=" { EQUAL } + | "==" { EQUALEQUAL } + | "==f" { EQUALEQUALF } + | "==u" { EQUALEQUALU } + | "exit" { EXIT } + | "extern" { EXTERN } + | "float" { FLOAT } + | "float32" { FLOAT32 } + | "float64" { FLOAT64 } + | "floatofint" { FLOATOFINT } + | "floatofintu" { FLOATOFINTU } + | ">" { GREATER } + | ">f" { GREATERF } + | ">u" { GREATERU } + | ">=" { GREATEREQUAL } + | ">=f" { GREATEREQUALF } + | ">=u" { GREATEREQUALU } + | ">>" { GREATERGREATER } + | ">>u" { GREATERGREATERU } + | "if" { IF } +(* | "in" { IN } *) + | "int" { INT } + | "int8" { INT8 } + | "int16" { INT16 } + | "int32" { INT32 } + | "int8sto8" { INT8STO8 } + | "int8sto16" { INT8STO16 } + | "int8sto32" { INT8STO32 } + | "int8uto8" { INT8UTO8 } + | "int8uto16" { INT8UTO16 } + | "int8uto32" { INT8UTO32 } + | "int16sto8" { INT16STO8 } + | "int16sto16" { INT16STO16 } + | "int16sto32" { INT16STO32 } + | "int16uto8" { INT16UTO8 } + | "int16uto16" { INT16UTO16 } + | "int16uto32" { INT16UTO32 } + | "int32sto8" { INT32STO8 } + | "int32sto16" { INT32STO16 } + | "int32sto32" { INT32STO32 } + | "int32uto8" { INT32UTO8 } + | "int32uto16" { INT32UTO16 } + | "int32uto32" { INT32UTO32 } + | "intoffloat" { INTOFFLOAT } + | "intuoffloat" { INTUOFFLOAT } + | "ptr" { PTR } + | "{" { LBRACE } +(* | "{{" { LBRACELBRACE } *) + | "[" { LBRACKET } + | "<" { LESS } + | "" { MINUSGREATER } + | "-f" { MINUSF } + | "%" { PERCENT } + | "%u" { PERCENTU } + | "+" { PLUS } + | "+f" { PLUSF } + | "?" { QUESTION } + | "}" { RBRACE } +(* | "}}" { RBRACERBRACE } *) + | "]" { RBRACKET } + | "return" { RETURN } + | ")" { RPAREN } + | ";" { SEMICOLON } + | "/" { SLASH } + | "/f" { SLASHF } + | "/u" { SLASHU } + | "stack" { STACK } + | "*" { STAR } + | "*f" { STARF } + | "switch" { SWITCH } + | "tailcall" { TAILCALL } + | "~" { TILDE } + | "var" { VAR } + | "void" { VOID } + | "goto" { GOTO } + | "block" { BLOCK } + | intlit { INTLIT(int_of_string(Lexing.lexeme lexbuf)) } + | floatlit { FLOATLIT(float_of_string(Lexing.lexeme lexbuf)) } + | stringlit { let s = Lexing.lexeme lexbuf in + STRINGLIT(String.sub s 1 (String.length s - 2)) } + | ident { IDENT(Lexing.lexeme lexbuf) } + | eof { EOF } + | _ { raise(Error("illegal character `" ^ Char.escaped (Lexing.lexeme_char lexbuf 0) ^ "'")) } + +and comment = parse + "*/" { () } + | eof { raise(Error "unterminated comment") } + | _ { comment lexbuf } diff --git a/src/cminor/cminorParser.mly b/src/cminor/cminorParser.mly new file mode 100644 index 0000000..86d023e --- /dev/null +++ b/src/cminor/cminorParser.mly @@ -0,0 +1,632 @@ +/* Adapted from Leroy's CompCert */ +/* TODO: check coherence with CminorPrinter */ + +/* tokens ALLOC, DOLLAR, IN, LET, p_let were unused and have been removed */ +/* precedence levels unused were also removed */ + +/* *********************************************************************/ +/* */ +/* The Compcert verified compiler */ +/* */ +/* Xavier Leroy, INRIA Paris-Rocquencourt */ +/* */ +/* Copyright Institut National de Recherche en Informatique et en */ +/* Automatique. All rights reserved. This file is distributed */ +/* under the terms of the GNU General Public License as published by */ +/* the Free Software Foundation, either version 2 of the License, or */ +/* (at your option) any later version. This file is also distributed */ +/* under the terms of the INRIA Non-Commercial License Agreement. */ +/* */ +/* *********************************************************************/ + +%{ + + open AST + open Cminor + open Memory + + let error_prefix = "Cminor parser" + let error s = Error.global_error error_prefix s + let warning s = Error.warning error_prefix s + let error_float () = error "float not supported." + + let uint32 = (4, Unsigned) + let int32 = (4, Signed) + + (* Function calls are not allowed in the AST of expressions, but function + calls in the AST of statements have a special argument which can be used to + store the result of the function call in a side-effect manner. + Example: the statement + x = y + f(z,g(t)); + will be transformed into the (simplified syntax) AST statements + g(_t1,t) + f(_t2,y,_t1); + x = y + _t2 + where _t1 and _t2 are fresh temporary variables. *) + + + (* Thus, to deal with function calls in expressions, we need to create fresh + temporary variables *) + + let temp_counter = ref 0 + let temporaries = ref [] + + let mktemp () = + incr temp_counter; + let id = Printf.sprintf "_t%d" !temp_counter in + temporaries := id :: !temporaries; + id + + + (* Expressions with function calls *) + + type rexpr = + | RId of ident + | RCst of cst + | ROp1 of op1 * rexpr + | ROp2 of op2 * rexpr * rexpr + | RMem of Memory.quantity * rexpr + | RCond of rexpr * rexpr * rexpr + | RCall of rexpr * rexpr list * signature + + (* [convert_accu] stores the function calls of expressions with function + calls being converted to expressions without function calls *) + let convert_accu = ref [] + + (* [convert_rexpr rexpr] converts the expression with function calls [rexpr] + into an expression without function calls. The function calls in [rexpr] + are stored in [convert_accu] *) + let rec convert_rexpr = function + | RId id -> Id id + | RCst c -> Cst c + | ROp1 (op, e1) -> Op1 (op, convert_rexpr e1) + | ROp2 (op, e1, e2) -> Op2 (op, convert_rexpr e1, convert_rexpr e2) + | RMem (chunk, e1) -> Mem (chunk, convert_rexpr e1) + | RCond (e1, e2, e3) -> + Cond (convert_rexpr e1, convert_rexpr e2, convert_rexpr e3) + | RCall(e1, el, sg) -> + let c1 = convert_rexpr e1 in + let cl = convert_rexpr_list el in + let t = mktemp() in + convert_accu := St_call (Some t, c1, cl, sg) :: !convert_accu; + Id t + + and convert_rexpr_list el = List.map convert_rexpr el + + (* [prepend_seq stmts last] reverses and sequences the list of statements + [stmts] and puts [last] at the end *) + let rec prepend_seq stmts last = + match stmts with + | [] -> last + | s1 :: sl -> prepend_seq sl (St_seq (s1, last)) + + (* [mkeval e] creates the AST statement associated to the Cminor instruction + e; + where [e] is an expression with possible function calls *) + let mkeval e = + convert_accu := []; + match e with + | RCall (e1, el, sg) -> + let c1 = convert_rexpr e1 in + let cl = convert_rexpr_list el in + prepend_seq !convert_accu (St_call (None, c1, cl, sg)) + | _ -> + ignore (convert_rexpr e); + prepend_seq !convert_accu St_skip + + (* [mkeval id e] creates the AST statement associated to the Cminor + instruction + id = e; + where [e] is an expression with possible function calls *) + let mkassign id e = + convert_accu := []; + match e with + | RCall (e1, el, sg) -> + let c1 = convert_rexpr e1 in + let cl = convert_rexpr_list el in + prepend_seq !convert_accu (St_call (Some id, c1, cl, sg)) + | _ -> + let c = convert_rexpr e in + prepend_seq !convert_accu (St_assign (id, c)) + + (* [mkstore size e1 e2] creates the AST statement associated to the Cminor + instruction + size[e1] = e2; + where [e1] and [e2] are expressions with possible function calls *) + let mkstore size e1 e2 = + convert_accu := []; + let c1 = convert_rexpr e1 in + let c2 = convert_rexpr e2 in + prepend_seq !convert_accu (St_store (size, c1, c2)) + + (* [mkifthenelse e s1 s2] creates the AST statement associated to the Cminor + instruction + if (e) { s1 } else { s2 } + where [e] is an expression with possible function calls *) + let mkifthenelse e s1 s2 = + convert_accu := []; + let c = convert_rexpr e in + prepend_seq !convert_accu (St_ifthenelse (c, s1, s2)) + + (* [mkreturn_some e] creates the AST statement associated to the Cminor + instruction + return e; + where [e] is an expression with possible function calls *) + let mkreturn_some e = + convert_accu := []; + let c = convert_rexpr e in + prepend_seq !convert_accu (St_return (Some c)) + + (* [mkswitch e (cases, dfl)] creates the AST statement associated to the + Cminor instruction + switch (e) { + case i: exit j_i; + ... + default: exit j_default; } + where [e] is an expression with possible function calls *) + let mkswitch e (cases, dfl) = + convert_accu := []; + let c = convert_rexpr e in + prepend_seq !convert_accu (St_switch (c, cases, dfl)) + + (* The Cminor instruction + match (e) { + case 0: s0; + case 1: s1; + case 2: s2; } + is syntaxic sugar for the Cminor instruction + block { + block { + block { + block { + switch (e) { + case 0: exit 0; + case 1: exit 1; + default: exit 2; } + } s0; exit 2; + } s1; exit 1; + } s2; + } + Note that matches are assumed to be exhaustive *) + + let mkmatch_aux e cases = + let ncases = List.length cases in + let rec mktable n = function + | [] -> assert false + | [key, action] -> [] + | (key, action) :: rem -> (key, n) :: mktable (n+1) rem in + let sw = + St_switch (e, mktable 0 cases, pred ncases) in + let rec mkblocks body n = function + | [] -> assert false + | [key, action] -> St_block (St_seq (body, action)) + | (key, action) :: rem -> + mkblocks + (St_block (St_seq (body, St_seq (action, St_exit n)))) + (pred n) rem in + mkblocks (St_block sw) (pred ncases) cases + + (* [mkmatch e cases] creates the AST statement associated to the Cminor + instruction + match (e) { + case i: s_i; + ... } + where [e] is an expression with possible function calls *) + let mkmatch e cases = + convert_accu := []; + let c = convert_rexpr e in + let s = + match cases with + | [] -> St_skip (* ??? *) + | [key, action] -> action + | _ -> mkmatch_aux c cases in + prepend_seq !convert_accu s + + (* [mktailcall f [e1;e2;...] sig] creates the AST statement associated to the + Cminor instruction + tailcall f(e1,e2,...): sig + where [e], [e1], [e2], ... are expressions with possible function calls *) + let mktailcall e1 el sg = + convert_accu := []; + let c1 = convert_rexpr e1 in + let cl = convert_rexpr_list el in + prepend_seq !convert_accu (St_tailcall (c1, cl, sg)) + + (* Parse error handler *) + let raise_error (_, pos) s = Error.error "parse error" pos (s ^ "\n") + +%} + +%token ABSF +%token AMPERSAND +%token AMPERSANDAMPERSAND +%token BANG +%token BANGEQUAL +%token BANGEQUALF +%token BANGEQUALU +%token BAR +%token BARBAR +%token CARET +%token CASE +%token COLON +%token COMMA +%token DEFAULT +%token ELSE +%token EQUAL +%token EQUALEQUAL +%token EQUALEQUALF +%token EQUALEQUALU +%token EOF +%token EXIT +%token EXTERN +%token FLOAT +%token FLOAT32 +%token FLOAT64 +%token FLOATLIT +%token FLOATOFINT +%token FLOATOFINTU +%token GREATER +%token GREATERF +%token GREATERU +%token GREATEREQUAL +%token GREATEREQUALF +%token GREATEREQUALU +%token GREATERGREATER +%token GREATERGREATERU +%token IDENT +%token IF +%token INT +%token INT8 +%token INT16 +%token INT32 +%token INT8STO8 +%token INT8STO16 +%token INT8STO32 +%token INT8UTO8 +%token INT8UTO16 +%token INT8UTO32 +%token INT16STO8 +%token INT16STO16 +%token INT16STO32 +%token INT16UTO8 +%token INT16UTO16 +%token INT16UTO32 +%token INT32STO8 +%token INT32STO16 +%token INT32STO32 +%token INT32UTO8 +%token INT32UTO16 +%token INT32UTO32 +%token INTLIT +%token INTOFFLOAT +%token INTUOFFLOAT +%token LBRACE +/* %token LBRACELBRACE */ +%token LBRACKET +%token LESS +%token LESSU +%token LESSF +%token LESSEQUAL +%token LESSEQUALU +%token LESSEQUALF +%token LESSLESS +%token LOOP +%token LPAREN +%token MATCH +%token MINUS +%token MINUSF +%token MINUSGREATER +%token PERCENT +%token PERCENTU +%token PLUS +%token PLUSF +%token QUESTION +%token RBRACE +/* %token RBRACERBRACE */ +%token RBRACKET +%token RETURN +%token RPAREN +%token SEMICOLON +%token SLASH +%token SLASHF +%token SLASHU +%token STACK +%token STAR +%token STARF +%token STRINGLIT +%token SWITCH +%token TILDE +%token TAILCALL +%token VAR +%token VOID +%token GOTO BLOCK +%token PTR + +/* Unused */ +/* %token ALLOC DOLLAR IN LET p_let */ + +/* Precedences from low to high */ + +/* %left COMMA */ +/* %left p_let */ +/* %right EQUAL */ +%right QUESTION COLON +%left BARBAR +%left AMPERSANDAMPERSAND +%left BAR +%left CARET +%left AMPERSAND +%left EQUALEQUAL BANGEQUAL LESS LESSEQUAL GREATER GREATEREQUAL EQUALEQUALU BANGEQUALU LESSU LESSEQUALU GREATERU GREATEREQUALU EQUALEQUALF BANGEQUALF LESSF LESSEQUALF GREATERF GREATEREQUALF +%left LESSLESS GREATERGREATER GREATERGREATERU +%left PLUS PLUSF MINUS MINUSF +%left STAR SLASH PERCENT STARF SLASHF SLASHU PERCENTU +%nonassoc BANG TILDE p_uminus ABSF INTOFFLOAT INTUOFFLOAT FLOATOFINT FLOATOFINTU FLOAT32 /* ALLOC */ +%left LPAREN + +/* Entry point */ + +%start program +%type program + +%% + +%inline position(X): x = X { (x, Position.lex_join $startpos $endpos) } + +/* Programs */ + +program: + global_declarations proc_list EOF { { vars = List.rev $1 ; + functs = List.rev $2 ; + main = Some "main" } } +; + +global_declarations: + /* empty */ { [] } + | global_declarations global_declaration { $2 :: $1 } +; + +global_declaration: + VAR STRINGLIT init_datas { ($2, List.rev $3) } + | pos = position(error) { raise_error pos + "Global declaration syntax error" } +; + +init_datas: + /* empty */ { [] } + | init_data { [$1] } + | LBRACE init_data_list RBRACE { $2 } +; + +init_data: + INTLIT { AST.Data_int32 $1 } + | FLOATLIT { AST.Data_float32 $1 } + | LPAREN INT8 RPAREN INTLIT { AST.Data_int8 $4 } + | LPAREN INT16 RPAREN INTLIT { AST.Data_int16 $4 } + | LPAREN INT32 RPAREN INTLIT { AST.Data_int32 $4 } + | LPAREN FLOAT32 RPAREN FLOATLIT { AST.Data_float32 $4 } + | LPAREN FLOAT64 RPAREN FLOATLIT { AST.Data_float64 $4 } + | LBRACKET INTLIT RBRACKET { AST.Data_reserve $2 } +; + +quantity: + INTLIT { Memory.QInt $1 } + | PTR { Memory.QPtr } + +init_data_list: + init_data { [$1] } + | init_data COMMA init_data_list { $1 :: $3 } +; + +proc_list: + /* empty */ { [] } + | proc_list proc { $2 :: $1 } +; + +/* Procedures */ + +proc: + STRINGLIT LPAREN parameters RPAREN COLON signature + LBRACE + stack_declaration + var_declarations + stmt_list + RBRACE + { let tmp = !temporaries in + temporaries := []; + temp_counter := 0; + ($1, F_int { f_sig = $6 ; + f_params = List.rev $3 ; + f_vars = List.rev (tmp @ $9) ; + f_ptrs = [] (* TODO *) ; + f_stacksize = $8 ; + f_body = $10 }) } + | EXTERN STRINGLIT COLON signature { ($2, F_ext { ef_tag = $2 ; + ef_sig = $4 }) } + | pos = position(error) { raise_error pos + "Procedure or function declaration syntax error" } +; + +parameters: + /* empty */ { [] } + | parameter_list { $1 } +; + +parameter_list: + IDENT { $1 :: [] } + | parameter_list COMMA IDENT { $3 :: $1 } + | pos = position(error) { raise_error pos + "Parameter declaration syntax error" } +; + +signature: + type_ { { args = [] ; res = Type_ret $1 } } + | VOID + { { args = [] ; res = Type_void } } + | type_ MINUSGREATER signature + { let s = $3 in {s with args = $1 :: s.args } } + | pos = position(error) { raise_error pos "Signature syntax error" } +; + +stack_declaration: + /* empty */ { 0 } + | STACK INTLIT SEMICOLON { $2 } + | pos = position(error) { raise_error pos "Stack declaration syntax error" } +; + +var_declarations: + /* empty */ { [] } + | var_declarations var_declaration { $2 @ $1 } + | pos = position(error) { raise_error pos + "Variable declaration syntax error" } +; + +var_declaration: + VAR parameter_list SEMICOLON { $2 } +; + +/* Statements */ + +stmt: + expr SEMICOLON { mkeval $1 } + | IDENT EQUAL expr SEMICOLON { mkassign $1 $3 } + | quantity LBRACKET expr RBRACKET EQUAL expr SEMICOLON + { mkstore $1 $3 $6 } + | IF LPAREN expr RPAREN stmts ELSE stmts { mkifthenelse $3 $5 $7 } + | IF LPAREN expr RPAREN stmts { mkifthenelse $3 $5 St_skip } + | LOOP stmts { St_loop $2 } + | BLOCK LBRACE stmt_list RBRACE { St_block $3 } + | EXIT SEMICOLON { St_exit 0 } + | EXIT INTLIT SEMICOLON { St_exit $2 } + | RETURN SEMICOLON { St_return None } + | RETURN expr SEMICOLON { mkreturn_some $2 } + | GOTO IDENT SEMICOLON { St_goto $2 } + | IDENT COLON stmt { St_label ($1, $3) } + | SWITCH LPAREN expr RPAREN LBRACE switch_cases RBRACE + { mkswitch $3 $6 } + | MATCH LPAREN expr RPAREN LBRACE match_cases RBRACE + { mkmatch $3 $6 } + | TAILCALL expr LPAREN expr_list RPAREN COLON signature SEMICOLON + { mktailcall $2 $4 $7 } +; + +stmt_list: + /* empty */ { St_skip } + | stmt stmt_list { St_seq ($1, $2) } + | pos = position(error) { raise_error pos "Statement syntax error" } +; + +stmts: + LBRACE stmt_list RBRACE { $2 } + | stmt { $1 } +; + +switch_cases: + DEFAULT COLON EXIT INTLIT SEMICOLON + { ([], $4) } + | CASE INTLIT COLON EXIT INTLIT SEMICOLON switch_cases + { let (cases, dfl) = $7 in (($2, $5) :: cases, dfl) } + | pos = position(error) { raise_error pos "Syntax error in switch construct" } +; + +match_cases: + /* empty */ { [] } + | CASE INTLIT COLON stmt_list match_cases { ($2, $4) :: $5 } + | pos = position(error) { raise_error pos "Syntax error in match construct" } +; + +/* Expressions */ + +expr: + LPAREN expr RPAREN { $2 } + | IDENT { RId $1 } + | INTLIT { RCst (Cst_int $1) } + | FLOATLIT { RCst (Cst_float $1) } + | STRINGLIT { RCst (Cst_addrsymbol $1) } + | AMPERSAND INTLIT { RCst (Cst_stackoffset $2) } + | MINUS expr %prec p_uminus { ROp1 (Op_negint int32, $2) } + | MINUSF expr %prec p_uminus { error_float () } + | ABSF expr { error_float () } + | INTOFFLOAT expr { error_float () } + | INTUOFFLOAT expr { error_float () } + | FLOATOFINT expr { error_float () } + | FLOATOFINTU expr { error_float () } + | TILDE expr { ROp1 (Op_notint int32, $2) } + | BANG expr { ROp1 (Op_notbool, $2) } + | INT8STO8 expr { ROp1 (Op_cast ((8, Signed), 8), $2) } + | INT8STO16 expr { ROp1 (Op_cast ((8, Signed), 16), $2) } + | INT8STO32 expr { ROp1 (Op_cast ((8, Signed), 32), $2) } + | INT8UTO8 expr { ROp1 (Op_cast ((8, Unsigned), 8), $2) } + | INT8UTO16 expr { ROp1 (Op_cast ((8, Unsigned), 16), $2) } + | INT8UTO32 expr { ROp1 (Op_cast ((8, Unsigned), 32), $2) } + | INT16STO8 expr { ROp1 (Op_cast ((16, Signed), 16), $2) } + | INT16STO16 expr { ROp1 (Op_cast ((16, Signed), 16), $2) } + | INT16STO32 expr { ROp1 (Op_cast ((16, Signed), 32), $2) } + | INT16UTO8 expr { ROp1 (Op_cast ((16, Unsigned), 8), $2) } + | INT16UTO16 expr { ROp1 (Op_cast ((16, Unsigned), 16), $2) } + | INT16UTO32 expr { ROp1 (Op_cast ((16, Unsigned), 32), $2) } + | INT32STO8 expr { ROp1 (Op_cast ((32, Signed), 8), $2) } + | INT32STO16 expr { ROp1 (Op_cast ((32, Signed), 16), $2) } + | INT32STO32 expr { ROp1 (Op_cast ((32, Signed), 32), $2) } + | INT32UTO8 expr { ROp1 (Op_cast ((32, Unsigned), 8), $2) } + | INT32UTO16 expr { ROp1 (Op_cast ((32, Unsigned), 16), $2) } + | INT32UTO32 expr { ROp1 (Op_cast ((32, Unsigned), 32), $2) } + | FLOAT32 expr { error_float () } + | expr PLUS expr { ROp2 (Op_add int32, $1, $3) } + | expr MINUS expr { ROp2 (Op_sub int32, $1, $3) } + | expr STAR expr { ROp2 (Op_mul int32, $1, $3) } + | expr SLASH expr { ROp2 (Op_div int32, $1, $3) } + | expr PERCENT expr { ROp2 (Op_mod int32, $1, $3) } + | expr SLASHU expr { ROp2 (Op_div uint32, $1, $3) } + | expr PERCENTU expr { ROp2 (Op_mod uint32, $1, $3) } + | expr AMPERSAND expr { ROp2 (Op_and, $1, $3) } + | expr BAR expr { ROp2 (Op_or, $1, $3) } + | expr CARET expr { ROp2 (Op_xor, $1, $3) } + | expr LESSLESS expr { ROp2 (Op_shl int32, $1, $3) } + | expr GREATERGREATER expr { ROp2 (Op_shr int32, $1, $3) } + | expr GREATERGREATERU expr { ROp2 (Op_shr uint32, $1, $3) } + | expr PLUSF expr { error_float () } + | expr MINUSF expr { error_float () } + | expr STARF expr { error_float () } + | expr SLASHF expr { error_float () } + | expr EQUALEQUAL expr { ROp2 (Op_cmp (Cmp_eq, int32), $1, $3) } + | expr BANGEQUAL expr { ROp2 (Op_cmp (Cmp_ne, int32), $1, $3) } + | expr LESS expr { ROp2 (Op_cmp (Cmp_lt, int32), $1, $3) } + | expr LESSEQUAL expr { ROp2 (Op_cmp (Cmp_le, int32), $1, $3) } + | expr GREATER expr { ROp2 (Op_cmp (Cmp_gt, int32), $1, $3) } + | expr GREATEREQUAL expr { ROp2 (Op_cmp (Cmp_ge, int32), $1, $3) } + | expr EQUALEQUALU expr { ROp2 (Op_cmp (Cmp_eq, uint32), $1, $3) } + | expr BANGEQUALU expr { ROp2 (Op_cmp (Cmp_ne, uint32), $1, $3) } + | expr LESSU expr { ROp2 (Op_cmp (Cmp_lt, uint32), $1, $3) } + | expr LESSEQUALU expr { ROp2 (Op_cmp (Cmp_le, uint32), $1, $3) } + | expr GREATERU expr { ROp2 (Op_cmp (Cmp_gt, uint32), $1, $3) } + | expr GREATEREQUALU expr { ROp2 (Op_cmp (Cmp_ge, uint32), $1, $3) } + | expr EQUALEQUALF expr { error_float () } + | expr BANGEQUALF expr { error_float () } + | expr LESSF expr { error_float () } + | expr LESSEQUALF expr { error_float () } + | expr GREATERF expr { error_float () } + | expr GREATEREQUALF expr { error_float () } + | quantity LBRACKET expr RBRACKET { RMem ($1, $3) } + | expr AMPERSANDAMPERSAND expr { RCond ($1, $3, RCst (Cst_int 0)) } + | expr BARBAR expr { RCond ($1, RCst (Cst_int 1), $3) } + | expr QUESTION expr COLON expr { RCond ($1, $3, $5) } + | expr LPAREN expr_list RPAREN COLON signature + { RCall ($1, $3, $6) } + | pos = position(error) { raise_error pos "Expression syntax error" } +; + +expr_list: + /* empty */ { [] } + | expr_list_1 { $1 } +; + +expr_list_1: + expr /* %prec COMMA */ { $1 :: [] } + | expr COMMA expr_list_1 { $1 :: $3 } +; + +type_: + INT { Sig_int } + | FLOAT { Sig_float } +; + diff --git a/src/cminor/cminorPrinter.ml b/src/cminor/cminorPrinter.ml new file mode 100644 index 0000000..8733230 --- /dev/null +++ b/src/cminor/cminorPrinter.ml @@ -0,0 +1,255 @@ +open AST + + +let rec print_size = function + | AST.SQ q -> Memory.string_of_quantity q + | AST.SProd l -> "struct {" ^ (print_size_list l) ^ "}" + | AST.SSum l -> "union {" ^ (print_size_list l) ^ "}" + | AST.SArray (i, se) -> + (print_size se) ^ "[" ^ (string_of_int i) ^ "]" +and print_size_list l = + MiscPottier.string_of_list ", " print_size l + +let print_stacksize = print_size + +let print_offset (size, depth) = + "offset[" ^ (print_size size) ^ ", " ^ (string_of_int depth) ^ "]" + +let print_sizeof = print_size + +let print_global_size = print_size + +let print_data = function +(* + | Data_reserve n -> Printf.sprintf "[%d]" n +*) + | Data_int8 i -> Printf.sprintf "(int8) %d" i + | Data_int16 i -> Printf.sprintf "(int16) %d" i + | Data_int32 i -> Printf.sprintf "%d" i + | Data_float32 f -> Printf.sprintf "%f" f + | Data_float64 f -> Printf.sprintf "(float64) %f" f + +let print_datas init = + let rec aux = function + | [] -> "" + | [data] -> print_data data + | data :: datas -> Printf.sprintf "%s, %s" (print_data data) (aux datas) + in + Printf.sprintf "{%s}" (aux init) + +let print_datas_opt = function + | None -> "" + | Some init -> " = " ^ (print_datas init) + +let print_var (id, size, init_opt) = + Printf.sprintf "var \"%s\" : %s%s;\n" + id (print_global_size size) (print_datas_opt init_opt) + +let print_vars = List.fold_left (fun s v -> s ^ (print_var v)) "" + +let print_constant = function + | Cst_int i -> string_of_int i + | Cst_float f -> string_of_float f + | Cst_addrsymbol id -> "\"" ^ id ^ "\"" + | Cst_stack -> "&0" + | Cst_offset off -> "{" ^ (print_offset off) ^ "}" + | Cst_sizeof t -> "sizeof (" ^ (print_sizeof t) ^ ")" + +let print_cmp = function + | Cmp_eq -> "==" + | Cmp_ne -> "!=" + | Cmp_gt -> ">" + | Cmp_ge -> ">=" + | Cmp_lt -> "<" + | Cmp_le -> "<=" + +let print_op1 = function + | Op_cast ((src_size, sign), dest_size) -> + Printf.sprintf "int%s%sto%s" + (Primitive.print_size src_size) + (Primitive.print_signedness sign) + (Primitive.print_size dest_size) + | Op_negint -> "-" + | Op_notbool -> "!" + | Op_notint -> "~" + | Op_id -> "" + | Op_intofptr -> "intofptr" + | Op_ptrofint -> "ptrofint" + +let print_op2 = function + | Op_add -> "+" + | Op_sub -> "-" + | Op_mul -> "*" + | Op_div -> "/" + | Op_divu -> "/u" + | Op_mod -> "%" + | Op_modu -> "%u" + | Op_and -> "&&" + | Op_or -> "||" + | Op_xor -> "^" + | Op_shl -> "<<" + | Op_shr -> ">>" + | Op_shru -> ">>u" + | Op_cmp cmp -> print_cmp cmp + | Op_cmpu cmp -> (print_cmp cmp) ^ "u" + | Op_addp -> "+p" + | Op_subp -> "-p" + | Op_subpp -> "-pp" + | Op_cmpp cmp -> (print_cmp cmp) ^ "p" + +let rec print_expression (Cminor.Expr (ed, _)) = match ed with + | Cminor.Id id -> id + | Cminor.Cst cst -> print_constant cst + | Cminor.Op1 (op1, e) -> + Printf.sprintf "%s %s" (print_op1 op1) (add_parenthesis e) + | Cminor.Op2 (op2, e1, e2) -> + Printf.sprintf "%s %s %s" + (add_parenthesis e1) + (print_op2 op2) + (add_parenthesis e2) + | Cminor.Mem (q, e) -> + Printf.sprintf "%s[%s]" (Memory.string_of_quantity q) (print_expression e) + | Cminor.Cond (e1, e2, e3) -> + Printf.sprintf "%s ? %s : %s" + (add_parenthesis e1) + (add_parenthesis e2) + (add_parenthesis e3) + | Cminor.Exp_cost (lab, e) -> + Printf.sprintf "/* %s */ %s" lab (print_expression e) +and add_parenthesis (Cminor.Expr (ed, _) as e) = match ed with + | Cminor.Id _ | Cminor.Cst _ | Cminor.Mem _ -> print_expression e + | _ -> Printf.sprintf "(%s)" (print_expression e) + + +let print_args = + MiscPottier.string_of_list ", " print_expression + +let print_decl (x, t) = (Primitive.print_type t) ^ " " ^ x + +let print_decls vars = + MiscPottier.string_of_list ", " print_decl vars + + +let n_spaces n = String.make n ' ' + + +let print_table n = + let f s (case, exit) = + Printf.sprintf "%s%scase %d: exit %d;\n" s (n_spaces n) case exit + in + List.fold_left f "" + + +let rec print_body n = function + | Cminor.St_skip -> "" + | Cminor.St_assign (id, e) -> + Printf.sprintf "%s%s = %s;\n" (n_spaces n) id (print_expression e) + | Cminor.St_store (q, e1, e2) -> + Printf.sprintf "%s%s[%s] = %s;\n" + (n_spaces n) + (Memory.string_of_quantity q) + (print_expression e1) + (print_expression e2) + | Cminor.St_call (None, f, args, sg) -> + Printf.sprintf "%s%s(%s) : %s;\n" + (n_spaces n) + (print_expression f) + (print_args args) + (Primitive.print_sig sg) + | Cminor.St_call (Some id, f, args, sg) -> + Printf.sprintf "%s%s = %s(%s) : %s;\n" + (n_spaces n) + id + (print_expression f) + (print_args args) + (Primitive.print_sig sg) + | Cminor.St_tailcall (f, args, sg) -> + Printf.sprintf "%stailcall %s(%s) : %s;\n" + (n_spaces n) + (print_expression f) + (print_args args) + (Primitive.print_sig sg) + | Cminor.St_seq (s1, s2) -> (print_body n s1) ^ (print_body n s2) + | Cminor.St_ifthenelse (e, s1, s2) -> + Printf.sprintf "%sif (%s) {\n%s%s}\n%selse {\n%s%s}\n" + (n_spaces n) + (print_expression e) + (print_body (n+2) s1) + (n_spaces n) + (n_spaces n) + (print_body (n+2) s2) + (n_spaces n) + | Cminor.St_loop s -> + Printf.sprintf "%sloop {\n%s%s}\n" + (n_spaces n) + (print_body (n+2) s) + (n_spaces n) + | Cminor.St_block s -> + Printf.sprintf "%sblock {\n%s%s}\n" + (n_spaces n) + (print_body (n+2) s) + (n_spaces n) + | Cminor.St_exit i -> + Printf.sprintf "%sexit %d;\n" (n_spaces n) i + | Cminor.St_switch (e, tbl, dflt) -> + Printf.sprintf "%sswitch (%s) {\n%s%sdefault: exit %d;\n%s}\n" + (n_spaces n) + (print_expression e) + (print_table ( n+2) tbl) + (n_spaces (n+2)) + dflt + (n_spaces n) + | Cminor.St_return None -> Printf.sprintf "%sreturn;\n" (n_spaces n) + | Cminor.St_return (Some e) -> + Printf.sprintf "%sreturn %s;\n" (n_spaces n) (print_expression e) + | Cminor.St_label (lbl, s) -> + Printf.sprintf "%s%s:\n%s" (n_spaces n) lbl (print_body n s) + | Cminor.St_goto lbl -> + Printf.sprintf "%sgoto %s;\n" (n_spaces n) lbl + | Cminor.St_cost (lbl, s) -> + Printf.sprintf "%s%s:\n%s" + (n_spaces n) lbl (print_body n s) + +let print_internal f_name f_def = + Printf.sprintf "\"%s\" (%s) : %s {\n\n stack: %s\n\n vars: %s;\n\n%s}\n\n\n" + f_name + (print_decls f_def.Cminor.f_params) + (Primitive.print_type_return f_def.Cminor.f_return) + (print_stacksize f_def.Cminor.f_stacksize) + (print_decls f_def.Cminor.f_vars) + (print_body 2 f_def.Cminor.f_body) + + +let print_external f_name f_def = + Printf.sprintf "extern \"%s\" : %s\n\n\n" + f_name + (Primitive.print_sig f_def.ef_sig) + + +let print_funct (f_name, f_def) = match f_def with + | Cminor.F_int f_def -> print_internal f_name f_def + | Cminor.F_ext f_def -> print_external f_name f_def + +let print_functs = List.fold_left (fun s f -> s ^ (print_funct f)) "" + +let print_program p = + Printf.sprintf "\n%s\n\n%s" + (print_vars p.Cminor.vars) + (print_functs p.Cminor.functs) + +let string_of_statement s = match s with + Cminor.St_skip -> "skip" + | Cminor.St_assign(_,_) -> "assign" + | Cminor.St_store(_,_,_) -> "store" + | Cminor.St_call(_,_,_,_) -> "call" + | Cminor.St_tailcall(_,_,_) -> "tailcall" + | Cminor.St_seq(_,_) -> "seq" + | Cminor.St_ifthenelse(_,_,_) -> "ifthenelse" + | Cminor.St_loop(_) -> "loop" + | Cminor.St_block(_) -> "block" + | Cminor.St_exit(_) -> "exit" + | Cminor.St_switch(_,_,_) -> "switch" + | Cminor.St_return(_) -> "return" + | Cminor.St_label(_,_) -> "label" + | Cminor.St_goto(_) -> "goto" + | Cminor.St_cost(_,_) -> "cost" diff --git a/src/cminor/cminorPrinter.mli b/src/cminor/cminorPrinter.mli new file mode 100644 index 0000000..e71f0a0 --- /dev/null +++ b/src/cminor/cminorPrinter.mli @@ -0,0 +1,12 @@ + +(** This module provides functions to print elements of [Cminor] + programs. *) + +val print_expression : Cminor.expression -> string + +val print_body : int (* indentation *) -> Cminor.statement -> string + +val string_of_statement : Cminor.statement -> string + +val print_program : Cminor.program -> string + diff --git a/src/cminor/cminorToRTLabs.ml b/src/cminor/cminorToRTLabs.ml new file mode 100644 index 0000000..ba052d1 --- /dev/null +++ b/src/cminor/cminorToRTLabs.ml @@ -0,0 +1,538 @@ + +(** This module translates a [Cminor] program into a [RTLabs] program. *) + +open Driver + + +let error_prefix = "Cminor to RTLabs" +let error = Error.global_error error_prefix +let error_float () = error "float not supported." + + +(* Helper functions *) + +let allocate (rtlabs_fun : RTLabs.internal_function) (sig_type : AST.sig_type) + : RTLabs.internal_function * Register.t = + let r = Register.fresh rtlabs_fun.RTLabs.f_runiverse in + let locals = rtlabs_fun.RTLabs.f_locals @ [(r, sig_type)] in + let rtlabs_fun = + { rtlabs_fun with RTLabs.f_locals = locals } in + (rtlabs_fun, r) + +let type_of (Cminor.Expr (_, t)) = t + +let allocate_expr + (rtlabs_fun : RTLabs.internal_function) + (e : Cminor.expression) + : (RTLabs.internal_function * Register.t) = + allocate rtlabs_fun (type_of e) + +type local_env = Register.t StringTools.Map.t + +let find_local (lenv : local_env) (x : AST.ident) : Register.t = + if StringTools.Map.mem x lenv then StringTools.Map.find x lenv + else error ("Unknown local \"" ^ x ^ "\".") + +let find_olocal (lenv : local_env) (ox : AST.ident option) : Register.t option = + match ox with + | None -> None + | Some x -> Some (find_local lenv x) + +let choose_destination + (rtlabs_fun : RTLabs.internal_function) + (lenv : local_env) + (e : Cminor.expression) + : RTLabs.internal_function * Register.t = + match e with + | Cminor.Expr (Cminor.Id x, _) -> (rtlabs_fun, find_local lenv x) + | _ -> allocate_expr rtlabs_fun e + +let choose_destinations + (rtlabs_fun : RTLabs.internal_function) + (lenv : local_env) + (args : Cminor.expression list) + : RTLabs.internal_function * Register.t list = + let f (rtlabs_fun, regs) e = + let (rtlabs_fun, r) = choose_destination rtlabs_fun lenv e in + (rtlabs_fun, regs @ [r]) in + List.fold_left f (rtlabs_fun, []) args + +let fresh_label (rtlabs_fun : RTLabs.internal_function) : Label.t = + Label.Gen.fresh rtlabs_fun.RTLabs.f_luniverse + +let change_entry + (rtlabs_fun : RTLabs.internal_function) + (new_entry : Label.t) + : RTLabs.internal_function = + { rtlabs_fun with RTLabs.f_entry = new_entry } + + +(* Add a label and its associated instruction at the beginning of a function's + graph *) +let add_graph + (rtlabs_fun : RTLabs.internal_function) + (lbl : Label.t) + (stmt : RTLabs.statement) + : RTLabs.internal_function = + let graph = Label.Map.add lbl stmt rtlabs_fun.RTLabs.f_graph in + let rtlabs_fun = { rtlabs_fun with RTLabs.f_graph = graph } in + change_entry rtlabs_fun lbl + + +let generate + (rtlabs_fun : RTLabs.internal_function) + (stmt : RTLabs.statement) + : RTLabs.internal_function = + let lbl = fresh_label rtlabs_fun in + add_graph rtlabs_fun lbl stmt + + +(* +(* [addressing e] returns the type of address represented by [e], + along with its arguments *) + +let addressing (Cminor.Expr (ed, t) : Cminor.expression) + : (RTLabs.addressing * Cminor.expression list) = + match ed with + | Cminor.Cst (AST.Cst_addrsymbol id) -> (RTLabs.Aglobal (id, 0), []) + | Cminor.Cst (AST.Cst_stackoffset n) -> (RTLabs.Ainstack n, []) + | Cminor.Op2 (AST.Op_addp _, + Cminor.Cst (AST.Cst_addrsymbol id), + Cminor.Cst (AST.Cst_int n)) -> + (RTLabs.Aglobal (id, n), []) + | Cminor.Op2 (AST.Op_addp _, e1, Cminor.Cst (AST.Cst_int n)) -> + (RTLabs.Aindexed n, [e1]) + | Cminor.Op2 (AST.Op_addp _, + Cminor.Cst (AST.Cst_addrsymbol id), + e2) -> + (RTLabs.Abased (id, 0), [e2]) + | Cminor.Op2 (AST.Op_addp _, e1, e2) -> (RTLabs.Aindexed2, [e1 ; e2]) + | _ -> (RTLabs.Aindexed 0, [e]) +*) + + +(* Translating conditions *) + +let rec translate_branch + (rtlabs_fun : RTLabs.internal_function) + (lenv : local_env) + (e : Cminor.expression) + (lbl_true : Label.t) + (lbl_false : Label.t) + : RTLabs.internal_function = + let (rtlabs_fun, r) = choose_destination rtlabs_fun lenv e in + let stmt = RTLabs.St_cond (r, lbl_true, lbl_false) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_expr rtlabs_fun lenv r e + +(* + let Cminor.Expr (ed, t) = e in + match ed with + + | Cminor.Id x -> + let stmt = + RTLabs.St_cond1 (AST.Op_id, find_local lenv x, lbl_true, lbl_false) in + generate rtlabs_fun stmt + + | Cminor.Cst cst -> + generate rtlabs_fun (RTLabs.St_condcst (cst, t, lbl_true, lbl_false)) + + | Cminor.Op1 (op1, e) -> + let (rtlabs_fun, r) = choose_destination rtlabs_fun lenv e in + let stmt = RTLabs.St_cond1 (op1, r, lbl_true, lbl_false) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_expr rtlabs_fun lenv r e + + | Cminor.Op2 (op2, e1, e2) -> + let (rtlabs_fun, r1) = choose_destination rtlabs_fun lenv e1 in + let (rtlabs_fun, r2) = choose_destination rtlabs_fun lenv e2 in + let stmt = RTLabs.St_cond2 (op2, r1, r2, lbl_true, lbl_false) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_exprs rtlabs_fun lenv [r1 ; r2] [e1 ; e2] + + | _ -> + let (rtlabs_fun, r) = choose_destination rtlabs_fun lenv e in + let stmt = RTLabs.St_cond1 (AST.Op_id, r, lbl_true, lbl_false) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_expr rtlabs_fun lenv r e +*) + +(* Translating expressions *) + +and translate_expr + (rtlabs_fun : RTLabs.internal_function) + (lenv : local_env) + (destr : Register.t) + (e : Cminor.expression) + : RTLabs.internal_function = + let Cminor.Expr (ed, t) = e in + match ed with + + | Cminor.Id x -> + let xr = find_local lenv x in + (* If the destination and source are the same, just do nothing. *) + if Register.equal destr xr then rtlabs_fun + else + let old_entry = rtlabs_fun.RTLabs.f_entry in + let stmt = RTLabs.St_op1 (AST.Op_id, destr, xr, old_entry) in + generate rtlabs_fun stmt + + | Cminor.Cst cst -> + let old_entry = rtlabs_fun.RTLabs.f_entry in + let stmt = RTLabs.St_cst (destr, cst, old_entry) in + generate rtlabs_fun stmt + + | Cminor.Op1 (op1, e) -> + let (rtlabs_fun, r) = choose_destination rtlabs_fun lenv e in + let old_entry = rtlabs_fun.RTLabs.f_entry in + let stmt = RTLabs.St_op1 (op1, destr, r, old_entry) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_expr rtlabs_fun lenv r e + + | Cminor.Op2 (op2, e1, e2) -> + let (rtlabs_fun, r1) = choose_destination rtlabs_fun lenv e1 in + let (rtlabs_fun, r2) = choose_destination rtlabs_fun lenv e2 in + let old_entry = rtlabs_fun.RTLabs.f_entry in + let stmt = RTLabs.St_op2 (op2, destr, r1, r2, old_entry) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_exprs rtlabs_fun lenv [r1 ; r2] [e1 ; e2] + + | Cminor.Mem (chunk, e) -> + let (rtlabs_fun, r) = choose_destination rtlabs_fun lenv e in + let old_entry = rtlabs_fun.RTLabs.f_entry in + let stmt = RTLabs.St_load (chunk, r, destr, old_entry) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_expr rtlabs_fun lenv r e + + | Cminor.Cond (e1, e2, e3) -> + let old_entry = rtlabs_fun.RTLabs.f_entry in + let rtlabs_fun = translate_expr rtlabs_fun lenv destr e3 in + let lbl_false = rtlabs_fun.RTLabs.f_entry in + let rtlabs_fun = change_entry rtlabs_fun old_entry in + let rtlabs_fun = translate_expr rtlabs_fun lenv destr e2 in + let lbl_true = rtlabs_fun.RTLabs.f_entry in + translate_branch rtlabs_fun lenv e1 lbl_true lbl_false + + | Cminor.Exp_cost (lbl, e) -> + let rtlabs_fun = translate_expr rtlabs_fun lenv destr e in + let old_entry = rtlabs_fun.RTLabs.f_entry in + generate rtlabs_fun (RTLabs.St_cost (lbl, old_entry)) + +and translate_exprs + (rtlabs_fun : RTLabs.internal_function) + (lenv : local_env) + (regs : Register.t list) + (args : Cminor.expression list) + : RTLabs.internal_function = + let f destr e rtlabs_fun = translate_expr rtlabs_fun lenv destr e in + List.fold_right2 f regs args rtlabs_fun + + +(* +(* Switch transformation + + switch (e) { + case c0: exit i0; + case c1: exit i1; + ... + default: exit idfl; } + + is translated to + + if (e == c0) exit i0; + if (e == c1) exit i1; + ... + exit idfl; *) + +let transform_switch + (e : Cminor.expression) + (cases : (int * int) list) + (dfl : int) + : Cminor.statement = + let rec aux = function + | [] -> Cminor.St_skip + | (case, exit) :: cases -> + let c = + Cminor.Op2 (AST.Op_cmp (AST.Cmp_eq, uint), + e, Cminor.Cst (AST.Cst_int case)) in + let stmt = + Cminor.St_ifthenelse (c, Cminor.St_exit exit, Cminor.St_skip) in + Cminor.St_seq (stmt, aux cases) + in + Cminor.St_seq (aux cases, Cminor.St_exit dfl) +*) + + +(* Translating statements *) + +let rec translate_stmt + (rtlabs_fun : RTLabs.internal_function) + (lenv : local_env) + (exits : Label.t list) + (stmt : Cminor.statement) + : RTLabs.internal_function = + match stmt with + + | Cminor.St_skip -> rtlabs_fun + + | Cminor.St_assign (x, e) -> + translate_expr rtlabs_fun lenv (find_local lenv x) e + + | Cminor.St_store (chunk, e1, e2) -> + let (rtlabs_fun, addr) = choose_destination rtlabs_fun lenv e1 in + let (rtlabs_fun, r) = choose_destination rtlabs_fun lenv e2 in + let old_entry = rtlabs_fun.RTLabs.f_entry in + let stmt = RTLabs.St_store (chunk, addr, r, old_entry) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_exprs rtlabs_fun lenv [addr ; r] [e1 ; e2] + + | Cminor.St_call (oret, + Cminor.Expr (Cminor.Cst (AST.Cst_addrsymbol f), _), + args, sg) -> + let (rtlabs_fun, regs) = choose_destinations rtlabs_fun lenv args in + let oretr = find_olocal lenv oret in + let old_entry = rtlabs_fun.RTLabs.f_entry in + let stmt = RTLabs.St_call_id (f, regs, oretr, sg, old_entry) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_exprs rtlabs_fun lenv regs args + + | Cminor.St_call (oret, f, args, sg) -> + let (rtlabs_fun, fr) = choose_destination rtlabs_fun lenv f in + let (rtlabs_fun, regs) = choose_destinations rtlabs_fun lenv args in + let oretr = find_olocal lenv oret in + let old_entry = rtlabs_fun.RTLabs.f_entry in + let stmt = RTLabs.St_call_ptr (fr, regs, oretr, sg, old_entry) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_exprs rtlabs_fun lenv (fr :: regs) (f :: args) + + | Cminor.St_tailcall (Cminor.Expr (Cminor.Cst (AST.Cst_addrsymbol f), _), + args, sg) -> + let (rtlabs_fun, regs) = choose_destinations rtlabs_fun lenv args in + let stmt = RTLabs.St_tailcall_id (f, regs, sg) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_exprs rtlabs_fun lenv regs args + + | Cminor.St_tailcall (f, args, sg) -> + let (rtlabs_fun, fr) = choose_destination rtlabs_fun lenv f in + let (rtlabs_fun, regs) = choose_destinations rtlabs_fun lenv args in + let stmt = RTLabs.St_tailcall_ptr (fr, regs, sg) in + let rtlabs_fun = generate rtlabs_fun stmt in + translate_exprs rtlabs_fun lenv (fr :: regs) (f :: args) + + | Cminor.St_seq (s1, s2) -> + let rtlabs_fun = translate_stmt rtlabs_fun lenv exits s2 in + translate_stmt rtlabs_fun lenv exits s1 + + | Cminor.St_ifthenelse (e, s1, s2) -> + let old_entry = rtlabs_fun.RTLabs.f_entry in + let rtlabs_fun = translate_stmt rtlabs_fun lenv exits s2 in + let lbl_false = rtlabs_fun.RTLabs.f_entry in + let rtlabs_fun = change_entry rtlabs_fun old_entry in + let rtlabs_fun = translate_stmt rtlabs_fun lenv exits s1 in + let lbl_true = rtlabs_fun.RTLabs.f_entry in + translate_branch rtlabs_fun lenv e lbl_true lbl_false + + | Cminor.St_loop s -> + let loop_start = fresh_label rtlabs_fun in + let rtlabs_fun = change_entry rtlabs_fun loop_start in + let rtlabs_fun = translate_stmt rtlabs_fun lenv exits s in + let old_entry = rtlabs_fun.RTLabs.f_entry in + add_graph rtlabs_fun loop_start (RTLabs.St_skip old_entry) + + | Cminor.St_block s -> + let old_entry = rtlabs_fun.RTLabs.f_entry in + translate_stmt rtlabs_fun lenv (old_entry :: exits) s + + | Cminor.St_exit n -> + change_entry rtlabs_fun (List.nth exits n) + + | Cminor.St_return eopt -> + let rtlabs_fun = change_entry rtlabs_fun rtlabs_fun.RTLabs.f_exit in + (match eopt, rtlabs_fun.RTLabs.f_result with + | None, None -> rtlabs_fun + | Some e, Some (retr, _) -> translate_expr rtlabs_fun lenv retr e + | _ -> assert false (* should be impossible *)) + + | Cminor.St_switch (e, cases, dfl) -> + assert false (* should have been simplified before *) +(* + let stmt = transform_switch e cases dfl in + translate_stmt rtlabs_fun lenv exits stmt +*) + + | Cminor.St_label (lbl, s) -> + let rtlabs_fun = translate_stmt rtlabs_fun lenv exits s in + let old_entry = rtlabs_fun.RTLabs.f_entry in + add_graph rtlabs_fun lbl (RTLabs.St_skip old_entry) + + | Cminor.St_cost (lbl, s) -> + let rtlabs_fun = translate_stmt rtlabs_fun lenv exits s in + let old_entry = rtlabs_fun.RTLabs.f_entry in + generate rtlabs_fun (RTLabs.St_cost (lbl, old_entry)) + + | Cminor.St_goto lbl -> + change_entry rtlabs_fun lbl + + +(* Translating function definitions *) + +(* The translation consists in the following: + - Create a universe of pseudo-register names + - Create a universe of label names + - Create a local environment; that is, a mapping from local + variables to pseudo-registers + - Extract the registers representing the formal variables + - Extract the registers representing the local variables + - Allocate a fresh register to hold the result of the function + - Allocate a fresh label representing the exit point + - Initialize the graph with a return instruction at the end + - Complete the graph according to the function's body. + Instructions will be added from end to start following the flow of the + function. *) + +let translate_internal lbl_prefix f_def = + + (* Register names *) + let runiverse = Register.new_universe "%" in + + (* Labels of statements *) + let luniverse = Label.Gen.new_universe lbl_prefix in + + (* Local environment *) + let add_local lenv (x, _) = + StringTools.Map.add x (Register.fresh runiverse) lenv in + let lenv = StringTools.Map.empty in + let lenv = List.fold_left add_local lenv f_def.Cminor.f_params in + let lenv = List.fold_left add_local lenv f_def.Cminor.f_vars in + + let extract vars = + let f l (x, t) = l @ [(find_local lenv x, t)] in + List.fold_left f [] vars in + + (* Parameter registers *) + let params = extract f_def.Cminor.f_params in + + (* Local registers *) + let locals = extract f_def.Cminor.f_vars in + + (* [result] is the result of the body, if any. *) + let result = match f_def.Cminor.f_return with + | AST.Type_void -> None + | AST.Type_ret t -> Some (Register.fresh runiverse, t) in + + let locals = + locals @ (match result with None -> [] | Some (r, t) -> [(r, t)]) in + + (* Exit label of the graph *) + let exit = Label.Gen.fresh luniverse in + + (* The control flow graph: for now, it is only a return instruction at the + end. *) + let return = match result with + | None -> None + | Some (retr, _) -> Some retr in + let graph = Label.Map.add exit (RTLabs.St_return return) Label.Map.empty in + + let rtlabs_fun = + { RTLabs.f_luniverse = luniverse ; + RTLabs.f_runiverse = runiverse ; + RTLabs.f_result = result ; + RTLabs.f_params = params ; + RTLabs.f_locals = locals ; + RTLabs.f_stacksize = f_def.Cminor.f_stacksize ; + RTLabs.f_graph = graph ; + RTLabs.f_entry = exit ; + RTLabs.f_exit = exit } in + + (* Complete the graph *) + translate_stmt rtlabs_fun lenv [] f_def.Cminor.f_body + + +let translate_functions lbls (f_id, f_def) = match f_def with + | Cminor.F_int int_def -> + let lbl_prefix = StringTools.Gen.fresh_prefix lbls f_id in + let def = translate_internal lbl_prefix int_def in + (f_id, RTLabs.F_int def) + | Cminor.F_ext def -> (f_id, RTLabs.F_ext def) + + +(* Initialization of globals *) + +let sum_offsets = + let f res off = + let cst_off = + Cminor.Expr (Cminor.Cst (AST.Cst_offset off), AST.Sig_offset) in + Cminor.Expr (Cminor.Op2 (AST.Op_add, res, cst_off), AST.Sig_offset) in + List.fold_left f (Cminor.Expr (Cminor.Cst (AST.Cst_int 0), AST.Sig_offset)) + +let quantity_sig_of_data data = + let i = match data with + | AST.Data_int8 _ -> 1 + | AST.Data_int16 _ -> 2 + | AST.Data_int32 _ -> 4 + | _ -> assert false (* do not use on these arguments *) in + (AST.QInt i, AST.Sig_int (i, AST.Unsigned)) + +let assign_data x stmt (offsets, data) = + let off = sum_offsets offsets in + let addr = Cminor.Expr (Cminor.Cst (AST.Cst_addrsymbol x), AST.Sig_ptr) in + let e = Cminor.Expr (Cminor.Op2 (AST.Op_addp, addr, off), AST.Sig_ptr) in + let stmt' = match data with +(* + | AST.Data_reserve _ -> Cminor.St_skip +*) + | AST.Data_int8 i | AST.Data_int16 i | AST.Data_int32 i -> + let (quantity, etype) = quantity_sig_of_data data in + let cst = Cminor.Expr (Cminor.Cst (AST.Cst_int i), etype) in + Cminor.St_store (quantity, e, cst) + | AST.Data_float32 f | AST.Data_float64 f -> error_float () in + Cminor.St_seq (stmt, stmt') + +let add_global_initializations_body vars body = + let f stmt (x, size, datas_opt) = match datas_opt with + | None -> Cminor.St_skip + | Some datas -> + let offsets = Memory.all_offsets size in + if List.length offsets <> List.length datas then + error "bad global initialization style." + else + let offs_datas = List.combine offsets datas in + List.fold_left (assign_data x) stmt offs_datas in + Cminor.St_seq (List.fold_left f Cminor.St_skip vars, body) + +let add_global_initializations_funct vars = function + | Cminor.F_int def -> + let f_body = add_global_initializations_body vars def.Cminor.f_body in + Cminor.F_int { def with Cminor.f_body = f_body } + | def -> def + +(* [add_global_initializations p] moves the initializations of the globals of + [p] to the beginning of the main function, if any. *) + +let add_global_initializations p = match p.Cminor.main with + | None -> p.Cminor.functs + | Some main -> + let main_def = List.assoc main p.Cminor.functs in + let main_def = add_global_initializations_funct p.Cminor.vars main_def in + MiscPottier.update_list_assoc main main_def p.Cminor.functs + + +(* Translation of a Cminor program to a RTLabs program. *) + +let translate p = + + (* Fetch the labels already used in the program to create new ones. *) + let lbls = CminorAnnotator.all_labels p in + + (* The initialization of globals are moved at the beginning of the main. *) + let functs = p.Cminor.functs (* add_global_initializations p *) in + +(* + (* The globals are associated their size. *) + let f (id, size, _) = (id, size) in +*) + + (* Put all this together and translate each function. *) + { RTLabs.vars = p.Cminor.vars ; + RTLabs.functs = List.map (translate_functions lbls) functs ; + RTLabs.main = p.Cminor.main } diff --git a/src/cminor/cminorToRTLabs.mli b/src/cminor/cminorToRTLabs.mli new file mode 100644 index 0000000..6a229de --- /dev/null +++ b/src/cminor/cminorToRTLabs.mli @@ -0,0 +1,8 @@ + +(** This module translates a [Cminor] program into a [RTLabs] program. *) + +(** The main part of the translation is transforming a Cminor program into a + control flow graph. This is done from the end of the program and up to the + beginning. *) + +val translate : Cminor.program -> RTLabs.program diff --git a/src/common/AST.mli b/src/common/AST.mli new file mode 100644 index 0000000..199593b --- /dev/null +++ b/src/common/AST.mli @@ -0,0 +1,112 @@ + +(** This file defines some common structures of several languages. *) + +(** Types and Signatures *) + +type signedness = Signed | Unsigned + +type size = int (* in bytes *) + +type sig_type = + | Sig_int of size * signedness + | Sig_float of size * signedness + | Sig_offset + | Sig_ptr + +type type_return = Type_ret of sig_type | Type_void + +type signature = { args: sig_type list ; res: type_return } + + +type ident = string (* identifiers for variable and function names *) + +type immediate = int (* immediate values for assembler constants and offsets *) + + +(** Memory quantities is the size of what can fit in memory. *) + +type quantity = + | QInt of size (* concrete size in bytes *) + | QOffset (* size of an offset *) + | QPtr (* size of a pointer *) + +type abstract_size = + | SQ of quantity + | SProd of abstract_size list + | SSum of abstract_size list + | SArray of int * abstract_size + +type abstract_offset = abstract_size * int (* nth in size *) + + +(** Comparison between integers or floats *) + +type cmp = Cmp_eq | Cmp_ne | Cmp_gt | Cmp_ge | Cmp_lt | Cmp_le + +(** Constants in high level languages *) + +type cst = + | Cst_int of int (* integer constant *) + | Cst_float of float (* float constant *) + | Cst_addrsymbol of ident (* address of a global symbol *) + | Cst_stack (* address of the stack *) + | Cst_offset of abstract_offset (* offset *) + | Cst_sizeof of abstract_size (* size of a type *) + +(** Unary operations *) + +type op1 = + | Op_cast of (size * signedness) * size + | Op_negint (**r integer opposite *) + | Op_notbool (**r boolean negation *) + | Op_notint (**r bitwise complement *) + | Op_id (**r identity *) + | Op_ptrofint (**r int to pointer *) + | Op_intofptr (**r pointer to int *) + +(** Binary operations *) + +type op2 = + | Op_add (**r integer addition *) + | Op_sub (**r integer subtraction *) + | Op_mul (**r integer multiplication *) + | Op_div (**r integer division *) + | Op_divu (**r integer unsigned division *) + | Op_mod (**r integer modulus *) + | Op_modu (**r integer unsigned modulus *) + | Op_and (**r bitwise ``and'' *) + | Op_or (**r bitwise ``or'' *) + | Op_xor (**r bitwise ``xor'' *) + | Op_shl (**r left shift *) + | Op_shr (**r right shift *) + | Op_shru (**r unsigned right shift *) + | Op_cmp of cmp (**r integer comparison *) + | Op_cmpu of cmp (**r unsigned integer comparison *) + | Op_addp (**r addition for a pointer and an integer *) + | Op_subp (**r substraction for a pointer and a integer *) + | Op_subpp (**r substraction for two pointers *) + | Op_cmpp of cmp (**r pointer comparaison *) + +(* Datas are used to initialize the value of variables *) + +type data = +(* (* Disabled: needed abstraction. *) + | Data_reserve of int (* only reserve some space *) +*) + | Data_int8 of int + | Data_int16 of int + | Data_int32 of int + | Data_float32 of float + | Data_float64 of float + +type data_size = Byte | HalfWord | Word + +(* External functions. *) + +type external_function = { ef_tag: ident ; ef_sig: signature } + +(* Traces returned by interpreters: result and cost labels are observed. The + result is interpreted as an 8 bits integer for coherence between + languages. *) + +type trace = IntValue.int32 * CostLabel.t list diff --git a/src/common/atom.ml b/src/common/atom.ml new file mode 100644 index 0000000..cf0d9b4 --- /dev/null +++ b/src/common/atom.ml @@ -0,0 +1,387 @@ +(* Adapted from Pottier's PP compiler *) + +(* A universe is a record, whose address defines the identity of the + universe. The integer counter [next] holds the number of the next + fresh atom. The [name] field holds the name of the universe. *) + +type universe = { + mutable next: int; + name: string + } + +let new_universe name = { + next = 0; + name = name +} + +(* An atom is a pair of a universe and an integer. The latter defines + the atom's identity within its universe. *) + +type t = + universe * int + +let fresh u = + let id = u.next in + u.next <- id + 1; + u, id + +let equal (u1, id1) (u2, id2) = + assert (u1 == u2); + ((id1 : int) = (id2 : int)) + +let compare (u1, id1) (u2, id2) = + assert (u1 == u2); + compare (id1 : int) (id2 : int) + +let flex_compare (u1, id1) (u2, id2) = + if String.compare u1.name u2.name = 0 then Pervasives.compare id1 id2 + else String.compare u1.name u2.name + +let flex_equal l1 l2 = flex_compare l1 l2 = 0 + +let universe_of (u, _) = u + +let same_universe (u1, _) (u2, _) = u1 = u2 + +let ends_with_a_digit s = + let n = String.length s in + n > 0 && s.[n-1] >= '0' && s.[n-1] <= '9' + +(* This function is injective, that is, [u] and [id] can be recovered + out of [print (u, id)]. *) + +let print (u, id) = + Printf.sprintf "%s%s%d" u.name (if ends_with_a_digit u.name then "_" else "") id + +(* Added by Nicolas Ayache: more flexible maps and sets where atoms + from different universes can coexist. *) + +type label_t = t + +module OrderedLabel = struct + type t = label_t + let compare = flex_compare +end + +module FlexSet = Set.Make (OrderedLabel) + +module FlexMap = Map.Make (OrderedLabel) + + +module OrderedInt = struct + type t = int + let compare x1 x2 = x1 - x2 +end + +(* We internally rely upon Objective Caml's integer sets and maps. *) + +module ISet = Set.Make (OrderedInt) +module IMap = Map.Make (OrderedInt) + +(* Sets. *) + +module Set = struct + + (* A set is either empty or a pair of a universe and a (possibly + empty) internal set. The fact that we do not require the empty + set to be explicitly associated with a universe means that + [empty] can be a constant, as opposed to an operation that + expects a universe as a parameter. *) + + type elt = + t + + type t = + | E + | U of universe * ISet.t + + let empty = + E + + let is_empty = function + | E -> + true + | U (_, s) -> + ISet.is_empty s + + let mem (u1, x) = function + | E -> + false + | U (u2, s) -> + assert (u1 == u2); + (u1 = u2) && (ISet.mem x s) + + let add (u1, x) = function + | E -> + U (u1, ISet.singleton x) + | U (u2, s) -> + assert (u1 == u2); + U (u1, ISet.add x s) + + let remove (u1, x) = function + | E -> + E + | U (u2, s) -> + assert (u1 == u2); + (* set can become empty but retains its universe *) + U (u1, ISet.remove x s) + + let singleton x = + add x empty + + let couple x1 x2 = + add x1 (singleton x2) + + let of_list xs = + List.fold_right add xs empty + + let union s1 s2 = + match s1, s2 with + | E, s + | s, E -> + s + | U (u1, s1), U (u2, s2) -> + assert (u1 == u2); + U (u1, ISet.union s1 s2) + + let inter s1 s2 = + match s1, s2 with + | E, s + | s, E -> + E + | U (u1, s1), U (u2, s2) -> + assert (u1 == u2); + U (u1, ISet.inter s1 s2) + + let disjoint s1 s2 = + is_empty (inter s1 s2) + + let diff s1 s2 = + match s1, s2 with + | E, _ -> + E + | s, E -> + s + | U (u1, s1), U (u2, s2) -> + assert (u1 == u2); + U (u1, ISet.diff s1 s2) + + let iter f = function + | E -> + () + | U (u, s) -> + ISet.iter (fun x -> f (u, x)) s + + let fold f s accu = + match s with + | E -> + accu + | U (u, s) -> + ISet.fold (fun x accu -> f (u, x) accu) s accu + + let choose = function + | E -> + raise Not_found + | U (u, s) -> + u, ISet.choose s + + let equal s1 s2 = + match s1, s2 with + | E, s + | s, E -> + is_empty s + | U (u1, s1), U (u2, s2) -> + assert (u1 == u2); + ISet.equal s1 s2 + + let cardinal = function + | E -> + 0 + | U (_, s) -> + ISet.cardinal s + + let elements = function + | E -> + [] + | U (u, s) -> + List.map (fun x -> (u, x)) (ISet.elements s) + + let filter p = function + | E -> + E + | U (u, s) -> + U (u, ISet.filter (fun x -> p (u, x)) s) + + let pick s = + let x = choose s in + let s = remove x s in + x, s + + let rec exhaust s accu f = + if is_empty s then + accu + else + let x, s = pick s in + let s', accu = f x accu in + exhaust (union s s') accu f + + open Print + + let print s = + seplist comma (fun () x -> print x) () (elements s) + +end + +(* Maps. *) + +module Map = struct + + (* A map is either empty or a pair of a universe and a (possibly + empty) internal map. The fact that we do not require the empty + map to be explicitly associated with a universe means that + [empty] can be a constant, as opposed to an operation that + expects a universe as a parameter. *) + + type key = + t + + type 'a t = + | E + | U of universe * 'a IMap.t + + let empty = + E + + let is_empty = function + | E -> + true + | U (_, m) -> + IMap.is_empty m + + let mem (u1, x) = function + | E -> + false + | U (u2, m) -> + assert (u1 == u2); + IMap.mem x m + + let add (u1, x) d = function + | E -> + U (u1, IMap.add x d IMap.empty) + | U (u2, m) -> + assert (u1 == u2); + U (u1, IMap.add x d m) + + let remove (u1, x) = function + | E -> + E + | U (u2, m) -> + assert (u1 == u2); + U (u1, IMap.remove x m) + + let singleton x d = + add x d empty + + let find (u1, x) = function + | E -> + raise Not_found + | U (u2, m) -> + assert (u1 == u2); + IMap.find x m + + let iter f = function + | E -> + () + | U (u, m) -> + IMap.iter (fun x d -> f (u, x) d) m + + let fold f m accu = + match m with + | E -> + accu + | U (u, m) -> + IMap.fold (fun x d accu -> f (u, x) d accu) m accu + + let map f = function + | E -> + E + | U (u, m) -> + U (u, IMap.map f m) + + let mapi f = function + | E -> + E + | U (u, m) -> + U (u, IMap.mapi (fun x d -> f (u, x) d) m) + + let domain = function + | E -> + Set.E + | U (u, m) -> + Set.U (u, IMap.fold (fun x _ s -> + ISet.add x s + ) m ISet.empty + ) + + let lift f = function + | Set.E -> + E + | Set.U (u, s) -> + U (u, ISet.fold (fun x m -> + IMap.add x (f (u, x)) m + ) s IMap.empty + ) + + + let generator u = + let m = ref empty in + let generate d = + let label = fresh u in + m := add label d !m; + label + in + m, generate + + let addm m1 m2 = + fold add m1 m2 + + let restrict p m = + fold (fun x d m -> + if p x then + add x d m + else + m + ) m empty + +end + +(* An imperative interface to maps. *) + +module ImperativeMap = struct + + type key = + Map.key + + type 'data t = + 'data Map.t ref + + let create () = + ref Map.empty + + let clear t = + t := Map.empty + + let add k d t = + t := Map.add k d !t + + let find k t = + Map.find k !t + + let iter f t = + Map.iter f !t + +end + +(* Maps of atoms to sets of atoms. *) + +module SetMap = SetMap.MakeHomo(Set)(Map) diff --git a/src/common/atom.mli b/src/common/atom.mli new file mode 100644 index 0000000..051fb76 --- /dev/null +++ b/src/common/atom.mli @@ -0,0 +1,7 @@ + +(* Pasted from Pottier's PP compiler *) + +(** This module implements the signature [AtomSig.S]. *) + +include AtomSig.S + diff --git a/src/common/atomSig.mli b/src/common/atomSig.mli new file mode 100644 index 0000000..f062112 --- /dev/null +++ b/src/common/atomSig.mli @@ -0,0 +1,221 @@ +(* Pasted from Pottier's PP compiler *) + +(** This signature describes atoms, that is, abstract entities + equipped with a fresh element generation operation. *) + +module type S = sig + + (* ------------------------------------------------------------------------- *) + (* This is the type of atoms. *) + + type t + + (* Atoms do not exist in the ether -- they are taken from universes. + Creating a fresh atom requires specifying which universe it + should be taken from. Atoms that belong to distinct universes + cannot be mixed. *) + + type universe + + (* One can create as many universes as desired. A universe initially + contains no atoms. A universe carries a name (a string) that is + used when converting atoms to strings. *) + + val new_universe: string -> universe + + (* A universe is populated by creating fresh atoms. The atom produced + by [fresh u] is guaranteed to be distinct from all existing atoms + in the universe [u]. *) + + val fresh: universe -> t + + (* Comparison of atoms. Only atoms that belong to a common universe + can be compared. *) + + val equal: t -> t -> bool + val compare: t -> t -> int + + (* Added by Nicolas Ayache: flexible comparison. Atoms from + different universes can be compared. *) + val flex_compare: t -> t -> int + val flex_equal: t -> t -> bool + + (* Added by Nicolas Ayache. *) + val universe_of: t -> universe + val same_universe: t -> t -> bool + + (* [print a] converts the atom [a] to a string. The string + representation is unique within the universe that [a] belongs + to. It is globally unique if universe names are unique. *) + + val print: t -> string + + (* ------------------------------------------------------------------------- *) + + + (* Added by Nicolas Ayache: more flexible maps and sets where atoms + from different universes can coexist. *) + + module FlexSet : Set.S with type elt = t + + module FlexMap : Map.S with type key = t + + + (* Sets of atoms. *) + + module Set : sig + + type elt = t + + (* This is the type of sets of atoms. Every set of atoms is + implicitly and permanently associated with a universe, which + all members of the set inhabit. *) + + type t + + (* Operations over sets include those defined in Objective Caml's + standard [Set] module, with the restriction that operations + should never mix atoms, or sets of atoms, that inhabit distinct + universes. Consult [Set.S] in Objective Caml's + documentation. *) + + val empty: t + val is_empty: t -> bool + val mem: elt -> t -> bool + val add: elt -> t -> t + val remove: elt -> t -> t + val singleton: elt -> t + val union: t -> t -> t + val inter: t -> t -> t + val diff: t -> t -> t + val iter: (elt -> unit) -> t -> unit + val fold: (elt -> 'a -> 'a) -> t -> 'a -> 'a + val choose: t -> elt + val equal: t -> t -> bool + val cardinal: t -> int + val elements: t -> elt list + val filter: (elt -> bool) -> t -> t + + (* [disjoint s1 s2] tells whether the intersection of [s1] + and [s2] is empty. *) + + val disjoint: t -> t -> bool + + (* [couple x1 x2] is the set that contains [x1] and [x2]. It + can be a singleton set if [x1] and [x2] are equal. *) + + val couple: elt -> elt -> t + + (* [of_list xs] is the set whose members are the elements + of the list [xs]. *) + + val of_list: elt list -> t + + (* [pick s] returns a pair of an element [x] of [s] and of the + set [remove x s]. It raises [Not_found] if [s] is empty. *) + + val pick: t -> elt * t + + (* [exhaust s accu f] takes an element [x] off the set [s], and + applies [f] to [x] and [accu]. This yields a number of new + elements, which are added to [s], and a new accumulator [accu]. + This is repeated until [s] becomes empty, at which point the + final value of the accumulator is returned. In short, this is a + version of [fold] where the function [f] is allowed to produce + new set elements. *) + + val exhaust: t -> 'a -> (elt -> 'a -> t * 'a) -> 'a + + (* [print s] converts the set [s] to a string. *) + + val print: t -> string + + end + + (* ------------------------------------------------------------------------- *) + (* Maps over atoms. *) + + module Map : sig + + type key = t + + (* This is the type of maps over atoms. Every map over atoms is + implicitly and permanently associated with a universe, which + all keys inhabit. *) + + type +'a t + + (* Operations over maps include those defined in Objective Caml's + standard [Map] module, with the restriction that operations + should never mix atoms, or maps over atoms, that inhabit + distinct universes. Consult [Map.S] in Objective Caml's + documentation.*) + + val empty: 'a t + val is_empty: 'a t -> bool + val mem: key -> 'a t -> bool + val add: key -> 'a -> 'a t -> 'a t + val remove: key -> 'a t -> 'a t + val find: key -> 'a t -> 'a + val iter: (key -> 'a -> unit) -> 'a t -> unit + val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b + val map: ('a -> 'b) -> 'a t -> 'b t + val mapi: (key -> 'a -> 'b) -> 'a t -> 'b t + + (* [singleton x d] is the map that maps [x] to [d]. *) + + val singleton: key -> 'a -> 'a t + + (* [addm m1 m2] adds the bindings in the map [m1] to the map [m2], + overriding any previous binding if [m1] and [m2] have common + keys. *) + + val addm: 'a t -> 'a t -> 'a t + + (* [domain m] is the domain of the map [m]. *) + + val domain: 'a t -> Set.t + + (* [lift f s] lifts the set [s] into a map that maps every + member [x] of [s] to [f x]. *) + + val lift: (key -> 'a) -> Set.t -> 'a t + + (* [restrict p m] restricts the domain of the map [m] to those + keys that satisfy the predicate [p]. *) + + val restrict: (key -> bool) -> 'a t -> 'a t + + (* [generator u] creates a fresh reference [m] that holds an + initially empty map; defines a function [generate] such that + [generate d] generates a fresh atom [a], adds a mapping of [m] + to [d] to [m], and returns [a]; and returns a pair of [m] and + [generate]. *) + + val generator: universe -> 'a t ref * ('a -> key) + + end + + (* ------------------------------------------------------------------------- *) + (* An imperative interface to maps. *) + + module ImperativeMap : sig + type key = Map.key + type 'data t + val create: unit -> 'data t + val clear: 'data t -> unit + val add: key -> 'data -> 'data t -> unit + val find: key -> 'data t -> 'data + val iter: (key -> 'data -> unit) -> 'data t -> unit + end + + (* ------------------------------------------------------------------------- *) + (* Maps of atoms to sets of atoms. Consult the definition of + [SetMap.Homogeneous] for a list of operations. *) + + module SetMap : SetMap.Homogeneous with type key = t + and type item = t + and type itemset = Set.t + and type t = Set.t Map.t + +end diff --git a/src/common/costLabel.ml b/src/common/costLabel.ml new file mode 100644 index 0000000..eaebb12 --- /dev/null +++ b/src/common/costLabel.ml @@ -0,0 +1,5 @@ + +include StringTools + +let constant_map d x = + Set.fold (fun k accu -> Map.add k x accu) d Map.empty diff --git a/src/common/costLabel.mli b/src/common/costLabel.mli new file mode 100644 index 0000000..0b2d95d --- /dev/null +++ b/src/common/costLabel.mli @@ -0,0 +1,9 @@ + +(** This module provides functions to manipulate and create fresh cost + labels. *) + +include StringSig.S + +(** [constant_map d x] produces a finite map which associates + [x] to every element of the set [d]. *) +val constant_map : Set.t -> 'a -> 'a Map.t diff --git a/src/common/hdwRegister.ml b/src/common/hdwRegister.ml new file mode 100644 index 0000000..5483511 --- /dev/null +++ b/src/common/hdwRegister.ml @@ -0,0 +1,15 @@ + +(** Hardware registers. *) + +module OrdInt = +struct + type t = int + let compare = Pervasives.compare +end + +type t = OrdInt.t +let eq r1 r2 = OrdInt.compare r1 r2 = 0 + +module Set = Set.Make(OrdInt) + +module Map = Map.Make(OrdInt) diff --git a/src/common/hdwRegister.mli b/src/common/hdwRegister.mli new file mode 100644 index 0000000..eb86cf8 --- /dev/null +++ b/src/common/hdwRegister.mli @@ -0,0 +1,10 @@ + +(** Hardware registers. *) + +type t + +val eq : t -> t -> bool + +module Set : Set.S + +module Map : Map.S diff --git a/src/common/intByBig_int.ml b/src/common/intByBig_int.ml new file mode 100644 index 0000000..2f04a70 --- /dev/null +++ b/src/common/intByBig_int.ml @@ -0,0 +1,24 @@ +(** This module defines a suited representation for bounded integers. *) + +open Big_int +type t = big_int +let of_int = big_int_of_int +let to_int = int_of_big_int +let compare = compare_big_int +let to_string = string_of_big_int +let zero = zero_big_int +let one = unit_big_int +let succ = succ_big_int +let pred = pred_big_int +let neg = minus_big_int +let eq = eq_big_int +let add = add_big_int +let sub = sub_big_int +let mul = mult_big_int +let div = div_big_int +let modulo = mod_big_int +let lt = lt_big_int +let le = le_big_int +let gt = gt_big_int +let ge = ge_big_int + diff --git a/src/common/intByInt64.ml b/src/common/intByInt64.ml new file mode 100644 index 0000000..2683167 --- /dev/null +++ b/src/common/intByInt64.ml @@ -0,0 +1,12 @@ +(** This module defines a suited representation for bounded integers using + O'Caml Int64. *) + +include Int64 +let from_int_cmp cmp a b = cmp (compare a b) 0 +let eq = from_int_cmp (=) +let lt = from_int_cmp (<) +let le = from_int_cmp (<=) +let gt = from_int_cmp (>) +let ge = from_int_cmp (>=) +let modulo = rem + diff --git a/src/common/intValue.ml b/src/common/intValue.ml new file mode 100644 index 0000000..2a67b95 --- /dev/null +++ b/src/common/intValue.ml @@ -0,0 +1,332 @@ + +(** This module defines functions to manipulate bounded integers. They can be + used to represent sequences of bits. *) + +module Int = IntValueConfig.Int + +(* Integers, whatever their size, will be represented using the Big_int + module. This allows immediate conversion, and allows the representation of + any integer (that fits into memory). *) + +type int_repr = Int.t +let print_int_repr = Int.to_string + + +(* The parameter module. Bounded integers are characterized by the number of + bits used to represent them. *) + +module type INTTYPE = +sig + val size : int (* in bytes *) +end + +module type FULLINTTYPE = +sig + include INTTYPE + type t + val of_int : int -> t + val to_int : t -> int + val compare : t -> t -> int + val eq : t -> t -> bool + val to_string : t -> string + val zero : t + val one : t + val succ : t -> t + val pred : t -> t + val neg : t -> t + val add : t -> t -> t + val sub : t -> t -> t + val mul : t -> t -> t + val div : t -> t -> t + val modulo : t -> t -> t + val lt : t -> t -> bool + val gt : t -> t -> bool + val le : t -> t -> bool + val ge : t -> t -> bool +end + +(* The signature provided to manipulate bounded integers. *) + +module type S = sig + + type t + type repr + + val compare : t -> t -> int + val to_string : t -> string + val zero : t + val one : t + + val to_signed_repr : t -> repr + val to_unsigned_repr : t -> repr + + val succ : t -> t + val pred : t -> t + val add : t -> t -> t + (** [add_of i1 i2] returns [true] iff adding [i1] and [i2] overflows. *) + val add_of : t -> t -> bool + val sub : t -> t -> t + (** [sub_uf i1 i2] returns [true] iff substracting [i1] and [i2] + underflows. *) + val sub_uf : t -> t -> bool + val mul : t -> t -> t + val div : t -> t -> t + val divu : t -> t -> t + val modulo : t -> t -> t + val modulou : t -> t -> t + val eq : t -> t -> bool + val neq : t -> t -> bool + val lt : t -> t -> bool + val ltu : t -> t -> bool + val le : t -> t -> bool + val leu : t -> t -> bool + val gt : t -> t -> bool + val gtu : t -> t -> bool + val ge : t -> t -> bool + val geu : t -> t -> bool + val neg : t -> t + val lognot : t -> t + val logand : t -> t -> t + val logor : t -> t -> t + val logxor : t -> t -> t + val shl : t -> t -> t + val shr : t -> t -> t + val shrl : t -> t -> t + val max : t -> t -> t + val maxu : t -> t -> t + val min : t -> t -> t + val minu : t -> t -> t + val cast : repr -> t + val of_int : int -> t + val to_int : t -> int + + (** [zero_ext n a] performs zero extension on [a] where [n] bits are + significant. *) + val zero_ext : int -> t -> t + (** [sign_ext n a] performs sign extension on [a] where [n] bits are + significant. *) + val sign_ext : int -> t -> t + + (** [break i n] cuts [i] in [n] parts. In the resulting list, the first + element is the low bits, and the last is the high bits (little endian + representation). *) + val break : t -> int -> t list + (** [merge l] creates the integer where the first element of [l] is its low + bits, etc, and the last element of [l] is its high bits (little endian + representation). *) + val merge : t list -> t + +end + + +module FullMake (Int : FULLINTTYPE) + : S with type t = Int.t and type repr = Int.t = +struct + + type t = Int.t + type repr = Int.t + + let size = Int.size * 8 (* real size, i.e. in bits *) + + let compare = Int.compare + let to_string = Int.to_string + let zero = Int.zero + let one = Int.one + let two = Int.succ one + + let rec pow x n = + if Int.eq n zero then one + else Int.mul x (pow x (Int.pred n)) + + (* Integers will all be taken modulo the following value. *) + let _mod = pow two (Int.of_int size) + + (* The lower bound (inclusive). *) + let lower_bound = zero + + (* The upper bound (inclusive). *) + let upper_bound = Int.pred _mod + + (* [cast a] returns a modulo of [a] such that the result fits in the interval + of representation. *) + let cast a = Int.modulo a _mod + + (* Half bound (exclusive), i.e. upper bound of signed integers. *) + let half_bound = pow two (Int.of_int (size-1)) + + (* Signed value of [a]. *) + let signed a = + let a = cast a in + if Int.lt a half_bound then a + else Int.sub a _mod + + let to_signed_repr a = signed a + + let to_unsigned_repr a = a + + let signed_op op a b = op (signed a) (signed b) + + let succ a = cast (Int.succ a) + let pred a = cast (Int.pred a) + let add a b = cast (Int.add a b) + + (* [add_of i1 i2] returns [true] iff adding [i1] and [i2] overflows. *) + let add_of a b = Int.gt (Int.add a b) upper_bound + + let sub a b = cast (Int.sub a b) + + let cast_op op a b = op (cast a) (cast b) + + let mul a b = cast (Int.mul a b) + let div a b = cast (signed_op Int.div a b) + let divu = cast_op Int.div + let modulo a b = cast (signed_op Int.modulo a b) + let modulou = cast_op Int.modulo + + let eq = Int.eq + let neq a b = not (eq a b) + let lt = signed_op Int.lt + let le = signed_op Int.le + let gt = signed_op Int.gt + let ge = signed_op Int.ge + let ltu = cast_op Int.lt + let leu = cast_op Int.le + let gtu = cast_op Int.gt + let geu = cast_op Int.ge + + (* [sub_uf i1 i2] returns [true] iff substracting [i1] and [i2] underflows. *) + let sub_uf a b = Int.lt (Int.sub a b) zero + + let of_int i = cast (Int.of_int i) + let to_int i = Int.to_int (cast i) + + let neg a = cast (Int.neg a) + + let lognot = sub upper_bound + + let shl a b = + let pow = pow two (cast b) in + mul a pow + + let shr a b = + let a = cast a in + let b = cast b in + let added = + if ltu a half_bound then zero + else half_bound in + let rec aux acc b = + if eq b zero then acc + else + let cont_acc = add added (divu acc two) in + let cont_b = pred b in + aux cont_acc cont_b + in + cast (aux a b) + + let shrl a b = + let pow = pow two (cast b) in + cast (div (cast a) pow) + + let max a b = if lt a b then b else a + let min a b = if gt a b then b else a + let maxu a b = if ltu a b then b else a + let minu a b = if gtu a b then b else a + + let is_odd a = eq (modulou a two) one + (* [to_bits a] returns the list of bits (0 or 1) that [a] represents. *) + let to_bits a = + let rec aux acc a i = + if i >= size then acc + else aux ((is_odd a) :: acc) (divu a two) (i+1) + in + aux [] (cast a) 0 + + (* [from_bits bits] returns the integer that the list of bits [bits] + represents. *) + let from_bits bits = + let rec aux acc = function + | [] -> acc + | b :: bits -> + let next_acc = mul acc two in + let next_acc = if b then succ next_acc else next_acc in + aux next_acc bits + in + aux zero bits + + (* [binary_log_op f a b] applies the binary boolean operation [f] + pointwisely to the bits that [a] and [b] represent. *) + let binary_log_op f a b = + from_bits (List.map2 f (to_bits a) (to_bits b)) + + let xor a b = (a || b) && (not (a && b)) + + let logand = binary_log_op (&&) + let logor = binary_log_op (||) + let logxor = binary_log_op xor + + + (* [zero_ext n a] performs zero extension on [a] where [n] bits are + significant. *) + let zero_ext n a = + let pow2 = pow two (of_int n) in + modulo a pow2 + + (* [sign_ext n a] performs sign extension on [a] where [n] bits are + significant. *) + let sign_ext n a = + let a' = zero_ext n a in + let pow2 = pow two (of_int (n - 1)) in + let sign = divu a pow2 in + if is_odd sign then + let added = shr half_bound (of_int (n - 1)) in + add a' added + else a' + + + (* [break i n] cuts [i] in [n] parts. In the resulting list, the first element + is the low bits, and the last is the high bits (little endian + representation). *) + let break a n = + let chunk_size = size / n in + let pow2_chunk_size = pow two (of_int chunk_size) in + let rec aux acc a i = + if i = 0 then acc + else + let next = Int.div a pow2_chunk_size in + let chunk = Int.modulo a pow2_chunk_size in + aux ((cast chunk) :: acc) next (i-1) + in + List.rev (aux [] (cast a) n) + + (* [merge l] creates the integer where the first element of [l] is its low + bits, etc, and the last element of [l] is its high bits (little endian + representation). *) + let merge = function + | [] -> zero + | al -> + let nb_chunks = List.length al in + let chunk_size = size / nb_chunks in + let pow2_chunk_size = pow two (of_int chunk_size) in + let rec aux pow2 = function + | [] -> zero + | a :: al -> add (mul a pow2) (aux (mul pow2 pow2_chunk_size) al) + in + aux one al + +end + + +module type SRepr = S with type t = int_repr and type repr = int_repr + + +module Make (IntType : INTTYPE) : SRepr = + FullMake (struct include IntType include Int end) + + +module Int8 = Make (struct let size = 1 end) +module Int16 = Make (struct let size = 2 end) +module Int32 = Make (struct let size = 4 end) + +type int8 = Int8.t +type int16 = Int16.t +type int32 = Int32.t diff --git a/src/common/intValue.mli b/src/common/intValue.mli new file mode 100644 index 0000000..1fe507a --- /dev/null +++ b/src/common/intValue.mli @@ -0,0 +1,124 @@ + +(** This module defines functions to manipulate bounded integers. They can be + used to represent sequences of bits. *) + +(* Integers, whatever their size, will be represented using the Big_int + module. This allows immediate conversion, and allows the representation of + any integer (that fits into memory). *) + +type int_repr +val print_int_repr : int_repr -> string + +(* The parameter module. Bounded integers are characterized by the number of + bits used to represent them. *) + +module type INTTYPE = +sig + val size : int (* in bytes *) +end + +(* The signature provided to manipulate bounded integers. *) + +module type S = sig + + type t + type repr + + val compare : t -> t -> int + val to_string : t -> string + val zero : t + val one : t + + val to_signed_repr : t -> repr + val to_unsigned_repr : t -> repr + + val succ : t -> t + val pred : t -> t + val add : t -> t -> t + (** [add_of i1 i2] returns [true] iff adding [i1] and [i2] overflows. *) + val add_of : t -> t -> bool + val sub : t -> t -> t + (** [sub_uf i1 i2] returns [true] iff substracting [i1] and [i2] + underflows. *) + val sub_uf : t -> t -> bool + val mul : t -> t -> t + val div : t -> t -> t + val divu : t -> t -> t + val modulo : t -> t -> t + val modulou : t -> t -> t + val eq : t -> t -> bool + val neq : t -> t -> bool + val lt : t -> t -> bool + val ltu : t -> t -> bool + val le : t -> t -> bool + val leu : t -> t -> bool + val gt : t -> t -> bool + val gtu : t -> t -> bool + val ge : t -> t -> bool + val geu : t -> t -> bool + val neg : t -> t + val lognot : t -> t + val logand : t -> t -> t + val logor : t -> t -> t + val logxor : t -> t -> t + val shl : t -> t -> t + val shr : t -> t -> t + val shrl : t -> t -> t + val max : t -> t -> t + val maxu : t -> t -> t + val min : t -> t -> t + val minu : t -> t -> t + val cast : repr -> t + val of_int : int -> t + val to_int : t -> int + + (** [zero_ext n a] performs zero extension on [a] where [n] bits are + significant. *) + val zero_ext : int -> t -> t + (** [sign_ext n a] performs sign extension on [a] where [n] bits are + significant. *) + val sign_ext : int -> t -> t + + (** [break i n] cuts [i] in [n] parts. In the resulting list, the first + element is the low bits, and the last is the high bits (little endian + representation). *) + val break : t -> int -> t list + (** [merge l] creates the integer where the first element of [l] is its low + bits, etc, and the last element of [l] is its high bits (little endian + representation). *) + val merge : t list -> t + +end + +module type SRepr = S with type t = int_repr and type repr = int_repr + +(** The functor to create bounded integers from a size. *) + +module Make: functor (IntType: INTTYPE) -> SRepr + +module Int8 : SRepr +module Int16 : SRepr +module Int32 : SRepr + +type int8 = Int8.t +type int16 = Int16.t +type int32 = Int32.t + + +(* +module Int8s : S +module Int8u : S +module Int16s : S +module Int16u : S +module Int32 : S + +(** Unbounded integers. *) +module Integer : S + +type int8s = Int8s.t +type int8u = Int8u.t +type int16s = Int16s.t +type int16u = Int16u.t +type int32 = Int32.t +type integer = Integer.t +*) diff --git a/src/common/label.ml b/src/common/label.ml new file mode 100644 index 0000000..192cbe8 --- /dev/null +++ b/src/common/label.ml @@ -0,0 +1,2 @@ + +include StringTools diff --git a/src/common/label.mli b/src/common/label.mli new file mode 100644 index 0000000..cf075ac --- /dev/null +++ b/src/common/label.mli @@ -0,0 +1,5 @@ + +(** This module provides functions to manipulate and create fresh + regular labels. *) + +include StringSig.S diff --git a/src/common/memory.ml b/src/common/memory.ml new file mode 100644 index 0000000..39eb7f0 --- /dev/null +++ b/src/common/memory.ml @@ -0,0 +1,548 @@ + +(** This file gives a memory model that can be used by the interpreter + of various languages throughout the compilation process and + following the memory model of the CompCert compiler. *) + +(** In the module, every size is expressed in bytes. *) + + +let error_prefix = "Memory" +let error s = Error.global_error error_prefix s + + +let string_of_quantity = function + | AST.QInt i -> "int" ^ (string_of_int (i*8)) + | AST.QOffset -> "offset" + | AST.QPtr -> "ptr" + + +let size_of_data = function +(* + | AST.Data_reserve n -> n +*) + | AST.Data_int8 _ -> 1 + | AST.Data_int16 _ -> 2 + | AST.Data_int32 _ -> 4 + | AST.Data_float32 _ -> 4 + | AST.Data_float64 _ -> 8 + + +let rec all_offsets size = match size with + | AST.SQ _ -> [[]] + | AST.SProd sizes -> + let fi i offsets = (size, i) :: offsets in + let f i size = List.map (fi i) (all_offsets size) in + List.flatten (MiscPottier.mapi f sizes) + | AST.SSum _ -> [[(size, 0)]] + | AST.SArray (n, size') -> + let all_offsets = all_offsets size' in + let f i = List.map (fun offsets -> (size, i) :: offsets) all_offsets in + let rec aux i = + if i >= n then [] + else (f i) @ (aux (i+1)) in + aux 0 + + +(** This is the signature of the parameter module of the functor. *) + +module type DATA_SIZE = +sig + val int_size : int + val ptr_size : int + val alignment : int option +end + + +(** This is the signature of the module that provides functions and types to + manipulate memories. *) + +module type S = +sig + + val int_size : int + val ptr_size : int + val alignment : int option + + val size_of_quantity : AST.quantity -> int + + module Value : Value.S + + (* Memory. A memory contains values and function definitions. Since the memory + module will be used by the interpreters of the various languages of the + compilation chain, the type of memory is polymorphic with the type of + function definitions. *) + + type 'fun_def memory + + (* Memory manipulation *) + + val empty : 'fun_def memory + + (** [alloc mem size] allocates a block of [size] bytes in the memory [mem]. It + returns the new memory and the address of the beginning of the newly + allocated area. *) + val alloc : 'fun_def memory -> int -> 'fun_def memory * Value.address + + (* Memory free *) + + val free : 'fun_def memory -> Value.address -> 'fun_def memory + + (* Memory load and store *) + + (** [load mem size addr] reads [size] bytes from address [addr] in memory + [mem] and returns the value found. *) + val load : 'fun_def memory -> int -> Value.address -> Value.t + val loadq : 'fun_def memory -> AST.quantity -> Value.address -> Value.t + + (** [store mem size addr v] writes the [size] first bytes (little endian + representation) of value [v] at address [addr] in memory [mem]. *) + val store : 'fun_def memory -> int -> Value.address -> Value.t -> + 'fun_def memory + val storeq : 'fun_def memory -> AST.quantity -> Value.address -> Value.t -> + 'fun_def memory + + (* Globals management *) + + (** [add_var mem x offsets init_datas] stores the datas [init_datas] of + offsets [offsets] in a new block of memory [mem], and associates the + global variable [x] with the address of the block. *) + val add_var : + 'fun_def memory -> AST.ident -> AST.abstract_size -> AST.data list option -> + 'fun_def memory + + (** [add_fun_def mem f def] stores the function definition [def] in a new + block of memory [mem], and associates the function name [f] with the + address of the block. *) + val add_fun_def : 'fun_def memory -> AST.ident -> 'fun_def -> 'fun_def memory + + val mem_global : 'fun_def memory -> AST.ident -> bool + + (** [find_global mem x] returns the address associated with the global symbol + [x] in memory [mem]. [x] may be a global variable or the name of a + function. *) + val find_global : 'fun_def memory -> AST.ident -> Value.address + + (** [find_fun_def mem addr] returns the function definition found at address + [addr] in memory [mem]. Raises an error if no function definition is + found. *) + val find_fun_def : 'fun_def memory -> Value.address -> 'fun_def + + + (** [align off size] returns the aligned offsets (starting at [off]) of datas + of size [size]. *) + val align : int (* starting offset *) -> AST.abstract_size (* sizes *) -> + (int list (* resulting offsets *) * int (* full size *)) + + val concrete_offsets_size : AST.abstract_size -> int list * int + + val concrete_offsets : AST.abstract_size -> int list + + val concrete_size : AST.abstract_size -> int + + val concrete_offset : AST.abstract_offset -> int + +(* + val size_of_datas : AST.data list -> int + + (** [offsets_of_datas datas] returns the aligned offsets for the datas + [datas], starting at offset 0. *) + val offsets_of_datas : AST.data list -> (AST.data * int (* offset *)) list + + val alloc_datas : 'fun_def memory -> AST.data list -> + ('fun_def memory * Value.address) +*) + + val to_string : 'fun_def memory -> string + val print : 'fun_def memory -> unit + +end + + +(** The functor of a memory module. *) + +module Make (D : DATA_SIZE) = +struct + + module Value = Value.Make (D) + module Block = Value.Block + module Offset = Value.Offset + + let address_of_block_offset b off = + Value.of_mem_address (Value.make_mem_address b off) + + let int_size = D.int_size + let ptr_size = D.ptr_size + let alignment = D.alignment + + let size_of_quantity = function + | AST.QInt i -> i + | AST.QOffset -> int_size + | AST.QPtr -> ptr_size + + + module OffsetMap = Map.Make (Offset) + type offsetMap = Value.chunk OffsetMap.t + type offset = Offset.t + + (* Empty cells are interpreted as an undefined byte value. *) + + type contents = + { low : offset ; (* inclusive *) + high : offset ; (* inclusive *) + cells : offsetMap } + + let update_cells contents cells = { contents with cells = cells } + let add_cells contents off v = + update_cells contents (OffsetMap.add off v contents.cells) + let remove_cells contents off = + update_cells contents (OffsetMap.remove off contents.cells) + + (* Alignment *) + + let is_multiple n m = m mod n = 0 + + (** [align_off off size] returns the offset greater or equal to [off] that is + aligned for storing a value of size [size]. *) + let align_off off size = match D.alignment with + | None -> off + | Some alignment when (size <= alignment) && (is_multiple size alignment) -> + let size = Offset.of_int size in + let rem = Offset.modulou off size in + if Offset.eq rem Offset.zero then off + else Offset.add off (Offset.sub size rem) + | Some alignment -> + let size = Offset.of_int alignment in + let rem = Offset.modulou off size in + if Offset.eq rem Offset.zero then off + else Offset.add off (Offset.sub size rem) + + let is_aligned off size = Offset.eq off (align_off off size) + + (** [pad off] returns the offset that is obtained by adding some padding from + [off] and such that the result is aligned. *) + let pad off = match D.alignment with + | None -> off + | Some alignment -> align_off off alignment + + (** [pad_size off size] returns the offset that is obtained by adding [size] + to the offset [off] and then adding some extra padding such that the + result is aligned. *) + let pad_size off size = + Offset.to_int (pad (Offset.add off (Offset.of_int size))) + + + (* Contents in memory. The type of function definitions varies from a language + to another; thus, it is left generic. *) + + type 'fun_def content = + | Contents of contents + | Fun_def of 'fun_def + + + (* The mapping from blocks to contents. *) + + module BlockMap = Map.Make (Block) + type 'fun_def blockMap = 'fun_def content BlockMap.t + type block = Block.t + + (* The mapping from global identifiers to blocks (negative for function + definitions and positive for global variables). *) + + module GlobalMap = Map.Make (String) + type globalMap = Value.address GlobalMap.t + + (* The memory. + It is a mapping from blocks to contents, a mapping from global identifiers + (variables and functions) to pointers, a mapping from (negative) blocks to + function definition, the next free positive block and the next free + negative block. *) + + type 'fun_def memory = + { blocks : 'fun_def blockMap ; + addr_of_global : globalMap ; + next_block : block ; + next_fun_block : block } + + (* Pretty printing *) + + let to_string mem = + let i = ref 0 in + let string_of_cell off v s = + let s' = if !i mod 4 = 0 then (i := 0 ; "\n ") else "" in + i := !i+1 ; + let sv = + if Value.is_undef_byte v then "" + else Printf.sprintf "[%s]: %s" + (Offset.to_string off) (Value.string_of_chunk v) in + Printf.sprintf "%s%s %s" s s' sv in + let string_of_cells cells = OffsetMap.fold string_of_cell cells "" in + let string_of_block b content s = + (Printf.sprintf "%s\nBlock %s: " s (Block.to_string b)) ^ + (match content with + | Contents contents -> + i := 0 ; + Printf.sprintf "(%s -> %s)%s" + (Offset.to_string contents.low) + (Offset.to_string contents.high) + (string_of_cells contents.cells) + | Fun_def _ -> "function definition") in + Printf.sprintf "%s\n" (BlockMap.fold string_of_block mem.blocks "") + + let print mem = Printf.printf "%s%!" (to_string mem) + + + (* Memory manipulation *) + + let empty = + { blocks = BlockMap.empty ; + addr_of_global = GlobalMap.empty ; + next_block = Block.of_int 1 ; + next_fun_block = Block.of_int (-1) } + + (* Memory allocation *) + + (** [alloc2 mem low high] allocates in memory [mem] a new block whose readable + and writable offsets are the interval [low] (inclusive) [high] + (inclusive). *) + let alloc2 mem low high = + let b = mem.next_block in + let contents = { low = low ; high = high ; cells = OffsetMap.empty } in + let blocks = BlockMap.add b (Contents contents) mem.blocks in + let next_block = Block.succ mem.next_block in + let mem' = { mem with blocks = blocks ; next_block = next_block } in + (mem', address_of_block_offset b low) + + (** [alloc mem size] allocates a block of [size] bytes in the memory [mem]. It + returns the new memory and the address of the beginning of the newly + allocated area. *) + let alloc mem size = + if size = 0 then (mem, Value.null) + else alloc2 mem Offset.zero (Offset.of_int (size-1)) + + + (* The 'safe'-prefixed functions below raise an error when the argument is not + of the expected form. *) + + let safe_to_address msg vs = + if Value.is_mem_address vs then Value.to_mem_address vs + else error msg + + let safe_find not_found find a map = + try find a map + with Not_found -> not_found () + + let safe_find_err msg = safe_find (fun () -> error msg) + + let safe_find_block msg b mem = safe_find_err msg BlockMap.find b mem.blocks + + let safe_find_contents msg b mem = match safe_find_block msg b mem with + | Contents contents -> contents + | Fun_def _ -> error msg + + let safe_find_offset msg off contents = + if (Offset.leu contents.low off) && (Offset.leu off contents.high) then + safe_find (fun () -> Value.undef_byte) OffsetMap.find off contents.cells + else error msg + + let memory_find msg mem b off = + safe_find_offset msg off (safe_find_contents msg b mem) + + + (* Memory free *) + + let free mem vs = + let addr = safe_to_address "free: invalid memory address." vs in + let (b, _) = Value.decompose_mem_address addr in + { mem with blocks = BlockMap.remove b mem.blocks } + + + (* Memory load *) + + (** [load_bytes msg mem b off size] reads [size] bytes from the block [b] and + offset [off] in memory [mem] and returns the value found. If an error + occurs, [msg] will be printed. *) + let load_bytes msg mem b off size = + let shift_off n = Offset.add off (Offset.of_int n) in + let rec aux n = + if n >= size then [] + else (memory_find msg mem b (shift_off n)) :: (aux (n+1)) in + Value.merge (aux 0) + + (** [load mem size addr] reads [size] bytes from address [addr] in memory + [mem] and returns the value found. *) + let load mem size vs = + let msg = "load: invalid memory access." in + let addr = safe_to_address msg vs in + let (b, off) = Value.decompose_mem_address addr in + if not (is_aligned off size) then + error "Alignment constraint violated when loading value." + else load_bytes msg mem b off size + + let loadq mem q vs = load mem (size_of_quantity q) vs + + + (* Memory store *) + + (** [store_chunks msg mem size b off chunks] writes the [size] first chunks of + list [chunks] at the offset [off] of the block [b] in the memory [mem]. *) + let store_chunks msg mem size b off chunks = + let shift_off n = Offset.add off (Offset.of_int n) in + let f i contents chunk = + let off' = shift_off i in + if (Offset.leu contents.low off') && + (Offset.leu off' contents.high) then + if Value.is_undef_byte chunk then contents + else add_cells contents off' chunk + else error msg in + match safe_find_block msg b mem with + | Contents contents -> + let contents = MiscPottier.foldi_until size f contents chunks in + let blocks = BlockMap.add b (Contents contents) mem.blocks in + { mem with blocks = blocks } + | _ -> error msg + + (** [store mem size addr v] writes the [size] first bytes (little endian + representation) of value [v] at address [addr] in memory [mem]. *) + let store mem size vs v = + let msg = "store: invalid memory access." in + let addr = safe_to_address msg vs in + let (b, off) = Value.decompose_mem_address addr in + if not (is_aligned off size) then + error "Alignment constraint violated when storing value." + else store_chunks msg mem size b off (Value.break v) + + let storeq mem q vs v = store mem (size_of_quantity q) vs v + + + (* Data manipulation *) + + let value_of_data = function +(* + | AST.Data_reserve _ -> Value.undef +*) + | AST.Data_int8 i | AST.Data_int16 i | AST.Data_int32 i -> Value.of_int i + | AST.Data_float32 f | AST.Data_float64 f -> error "float not supported." + + type concrete_size = + | I of Offset.t + | C of concrete_size list + + let rec first_offset = function + | I off -> off + | C [] -> raise (Failure "Memory.first_offset") + | C (csize :: _) -> first_offset csize + + let first_offsets = function + | I off -> [off] + | C sizes -> List.map first_offset sizes + + let rec all_offsets = function + | I off -> [off] + | C sizes -> List.flatten (List.map all_offsets sizes) + + let rec full_align off = function + + | AST.SQ q -> + let size = size_of_quantity q in + let start_off = align_off off size in + let diff = Offset.to_int (Offset.sub start_off off) in + let full_size = size + diff in + (I start_off, full_size) + + | AST.SProd sizes -> + let f (l, off) size = + let (csize, added_size) = full_align off size in + (l @ [csize], Offset.add off (Offset.of_int added_size)) in + let start_off = pad off in + let (l, end_off) = List.fold_left f ([], start_off) sizes in + let end_off = pad end_off in + let full_size = Offset.to_int (Offset.sub end_off off) in + (C l, full_size) + + | AST.SSum sizes -> + let start_off = pad off in + let sizes = + List.map (fun size -> snd (full_align start_off size)) sizes in + let max = Offset.of_int (MiscPottier.max_list sizes) in + let end_off = pad (Offset.add start_off max) in + let full_size = Offset.to_int (Offset.sub end_off off) in + (I start_off, full_size) + + | AST.SArray (n, size) -> + let sizes = MiscPottier.make size n in + full_align off (AST.SProd sizes) + + let align off size = + let (offsets, full_size) = full_align (Offset.of_int off) size in + (List.map Offset.to_int (first_offsets offsets), full_size) + + let concrete_offsets_size = align 0 + + let concrete_offsets size = fst (concrete_offsets_size size) + + let concrete_size size = snd (concrete_offsets_size size) + + let concrete_offset (size, depth) = + let offsets = concrete_offsets size in + List.nth offsets depth + + + (* Globals manipulation *) + + let store_datas_opt mem addr offsets = function + | None -> mem + | Some datas -> + let f mem (offset, data) = + let addr = Value.add_address addr offset in + store mem (size_of_data data) addr (value_of_data data) in + let offsets = all_offsets offsets in + if List.length offsets <> List.length datas then + error "wrong sizes for global initializations (union type?)." + else + let offset_datas = List.combine offsets datas in + List.fold_left f mem offset_datas + + (** [add_var mem x size init_datas] stores the datas [init_datas] of offsets + [size] in a new block of memory [mem], and associates the global variable + [x] with the address of the block. *) + let add_var mem v_id size datas_opt = + let (offsets, size) = full_align Offset.zero size in + let (mem, addr) = alloc mem size in + let mem = store_datas_opt mem addr offsets datas_opt in + let addr_of_global = GlobalMap.add v_id addr mem.addr_of_global in + { mem with addr_of_global = addr_of_global } + + (** [add_fun_def mem f def] stores the function definition [def] in a new + block of memory [mem], and associates the function name [f] with the + address of the block. *) + let add_fun_def mem f_id f_def = + let b = mem.next_fun_block in + let next_fun_block = Block.pred mem.next_fun_block in + let vs = address_of_block_offset b Offset.zero in + let addr_of_global = GlobalMap.add f_id vs mem.addr_of_global in + let blocks = BlockMap.add b (Fun_def f_def) mem.blocks in + { mem with blocks = blocks ; + addr_of_global = addr_of_global ; + next_fun_block = next_fun_block } + + let mem_global mem id = GlobalMap.mem id mem.addr_of_global + + (** [find_global mem x] returns the address associated with the global symbol + [x] in memory [mem]. [x] may be a global variable or the name of a + function. *) + let find_global mem gid = + if GlobalMap.mem gid mem.addr_of_global then + GlobalMap.find gid mem.addr_of_global + else error ("Unknown global \"" ^ gid ^ "\"") + + (** [find_fun_def mem addr] returns the function definition found at address + [addr] in memory [mem]. Raises an error if no function definition is + found. *) + let find_fun_def mem vs = + let msg = "Invalid access to a function definition." in + let (b, _) = Value.decompose_mem_address (safe_to_address msg vs) in + match safe_find_block msg b mem with + | Contents _ -> error msg + | Fun_def def -> def + +end diff --git a/src/common/memory.mli b/src/common/memory.mli new file mode 100644 index 0000000..a3dab37 --- /dev/null +++ b/src/common/memory.mli @@ -0,0 +1,133 @@ + +(** This file gives a memory model that can be used by the interpreter + of various languages throughout the compilation process and + following the memory model of the CompCert compiler. *) + +(** In the module, every size is expressed in bytes. *) + + +val string_of_quantity : AST.quantity -> string + +val size_of_data : AST.data -> int + +val all_offsets : AST.abstract_size -> AST.abstract_offset list list + + +(** This is the signature of the parameter module of the functor. *) + +module type DATA_SIZE = +sig + val int_size : int + val ptr_size : int + val alignment : int option +end + + +(** This is the signature of the module that provides functions and types to + manipulate memories. *) + +module type S = +sig + + val int_size : int + val ptr_size : int + val alignment : int option + + val size_of_quantity : AST.quantity -> int + + module Value : Value.S + + (* Memory. A memory contains values and function definitions. Since the memory + module will be used by the interpreters of the various languages of the + compilation chain, the type of memory is polymorphic with the type of + function definitions. *) + + type 'fun_def memory + + (* Memory manipulation *) + + val empty : 'fun_def memory + + (** [alloc mem size] allocates a block of [size] bytes in the memory [mem]. It + returns the new memory and the address of the beginning of the newly + allocated area. *) + val alloc : 'fun_def memory -> int -> 'fun_def memory * Value.address + + (* Memory free *) + + val free : 'fun_def memory -> Value.address -> 'fun_def memory + + (* Memory load and store *) + + (** [load mem size addr] reads [size] bytes from address [addr] in memory + [mem] and returns the value found. *) + val load : 'fun_def memory -> int -> Value.address -> Value.t + val loadq : 'fun_def memory -> AST.quantity -> Value.address -> Value.t + + (** [store mem size addr v] writes the [size] first bytes (little endian + representation) of value [v] at address [addr] in memory [mem]. *) + val store : 'fun_def memory -> int -> Value.address -> Value.t -> + 'fun_def memory + val storeq : 'fun_def memory -> AST.quantity -> Value.address -> Value.t -> + 'fun_def memory + + (* Globals management *) + + (** [add_var mem x offsets init_datas] stores the datas [init_datas] of + offsets [offsets] in a new block of memory [mem], and associates the + global variable [x] with the address of the block. *) + val add_var : + 'fun_def memory -> AST.ident -> AST.abstract_size -> AST.data list option -> + 'fun_def memory + + (** [add_fun_def mem f def] stores the function definition [def] in a new + block of memory [mem], and associates the function name [f] with the + address of the block. *) + val add_fun_def : 'fun_def memory -> AST.ident -> 'fun_def -> 'fun_def memory + + val mem_global : 'fun_def memory -> AST.ident -> bool + + (** [find_global mem x] returns the address associated with the global symbol + [x] in memory [mem]. [x] may be a global variable or the name of a + function. *) + val find_global : 'fun_def memory -> AST.ident -> Value.address + + (** [find_fun_def mem addr] returns the function definition found at address + [addr] in memory [mem]. Raises an error if no function definition is + found. *) + val find_fun_def : 'fun_def memory -> Value.address -> 'fun_def + + + (** [align off size] returns the aligned offsets (starting at [off]) of datas + of size [size]. *) + val align : int (* starting offset *) -> AST.abstract_size (* sizes *) -> + (int list (* resulting offsets *) * int (* full size *)) + + val concrete_offsets_size : AST.abstract_size -> int list * int + + val concrete_offsets : AST.abstract_size -> int list + + val concrete_size : AST.abstract_size -> int + + val concrete_offset : AST.abstract_offset -> int + +(* + val size_of_datas : AST.data list -> int + + (** [offsets_of_datas datas] returns the aligned offsets for the datas + [datas], starting at offset 0. *) + val offsets_of_datas : AST.data list -> (AST.data * int (* offset *)) list + + val alloc_datas : 'fun_def memory -> AST.data list -> + ('fun_def memory * Value.address) +*) + + val to_string : 'fun_def memory -> string + val print : 'fun_def memory -> unit + +end + + +(** The functor to a memory module. *) + +module Make (D : DATA_SIZE) : S diff --git a/src/common/primitive.ml b/src/common/primitive.ml new file mode 100644 index 0000000..5ac9a4d --- /dev/null +++ b/src/common/primitive.ml @@ -0,0 +1,162 @@ + +(** These are the functions provided by the runtime system. *) + + +let error_prefix = "Primitives" +let error s = Error.global_error error_prefix s +let warning s = Error.warning error_prefix s + +let print_schar = + ("print_schar", "extern void print_schar(signed char);") +let print_uchar = + ("print_uchar", "extern void print_uchar(unsigned char);") +let print_sshort = + ("print_sshort", "extern void print_sshort(signed short);") +let print_ushort = + ("print_ushort", "extern void print_ushort(unsigned short);") +let print_sint = + ("print_sint", "extern void print_sint(signed int);") +let print_uint = + ("print_uint", "extern void print_uint(unsigned int);") +let scan_int = + ("scan_int", "extern int scan_int(void);") +let alloc = + ("alloc", "extern int* alloc(int);") +let newline = + ("newline", "extern void newline(void);") +let space = + ("space", "extern void space(void);") +let rand_bool = + ("rand_bool", "extern int rand_bool(void);") +let rand_int = + ("rand_int", "extern int rand_int(int);") + +let ident = fst + +let proto = snd + +let primitives_list = + [print_schar ; print_uchar ; print_sshort ; print_ushort ; + print_sint ; print_uint ; scan_int ; alloc ; newline ; space ; + rand_bool ; rand_int] + + +let args_byte_size = function + | s when s = ident print_schar || s = ident print_uchar -> AST.QInt 1 + | s when s = ident print_sshort || s = ident print_ushort -> AST.QInt 2 + | s when s = ident print_sint || s = ident print_uint || s = ident rand_int -> + AST.QInt 4 + | s when s = ident scan_int || s = ident newline || s = ident space || + s = ident rand_bool -> + AST.QInt 0 + | s when s = ident alloc -> AST.QPtr + | s -> error ("unknown primitive " ^ s ^ ".") + + +let primitives = + List.fold_left (fun res f -> StringTools.Set.add f res) StringTools.Set.empty + (List.map ident primitives_list) + +let is_primitive f = StringTools.Set.mem f primitives + + +module Interpret (M : Memory.S) = struct + + type res = V of M.Value.t list | A of M.Value.address + + let print_integer_primitives = + List.map ident + [print_schar ; print_uchar ; print_sshort ; print_ushort ; + print_sint ; print_uint] + + let is_print_integer_primitive f = List.mem f print_integer_primitives + + let print_integer_primitive_funs = function + | f when f = ident print_schar -> + (IntValue.Int8.cast, IntValue.Int8.to_signed_repr) + | f when f = ident print_uchar -> + (IntValue.Int8.cast, IntValue.Int8.to_unsigned_repr) + | f when f = ident print_sshort -> + (IntValue.Int16.cast, IntValue.Int16.to_signed_repr) + | f when f = ident print_ushort -> + (IntValue.Int16.cast, IntValue.Int16.to_unsigned_repr) + | f when f = ident print_sint -> + (IntValue.Int32.cast, IntValue.Int32.to_signed_repr) + | f when f = ident print_uint -> + (IntValue.Int32.cast, IntValue.Int32.to_unsigned_repr) + | f -> error ("unknown integer printing primitive " ^ f ^ ".") + + let make_int_value vs = IntValue.Int32.merge (List.map M.Value.to_int_repr vs) + + let print_integer f mem vs = + let (cast, to_int_repr) = print_integer_primitive_funs f in + let i = make_int_value vs in + let i = cast i in + let i = to_int_repr i in + Printf.printf "%s%!" (IntValue.print_int_repr i) ; + (mem, V []) + + let are_ints args = + let f res v = res && M.Value.is_int v in + List.fold_left f true args + + let res_of_int i = + let i = IntValue.Int32.of_int i in + let is = IntValue.Int32.break i (4 / M.Value.int_size) in + List.map M.Value.of_int_repr is + + let t mem f = function + | args when is_print_integer_primitive f && are_ints args -> + print_integer f mem args + | _ when f = ident scan_int -> + Printf.printf ": %!" ; + (mem, V (res_of_int (int_of_string (read_line ())))) + | args when f = ident alloc && are_ints args -> + let size = IntValue.Int32.to_int (make_int_value args) in + let (mem, addr) = M.alloc mem size in + (mem, A addr) + | _ when f = ident newline -> + Printf.printf "\n%!" ; + (mem, V []) + | _ when f = ident space -> + Printf.printf " %!" ; + (mem, V []) + | _ when f = ident rand_bool -> + (mem, V (res_of_int (Random.int 2))) + | args when f = ident rand_int && are_ints args -> + let i = IntValue.Int32.to_int (make_int_value args) in + (mem, V (res_of_int (Random.int i))) + | _ -> error ("unknown primitive " ^ f ^ " or bad arguments.") +end + + +let print_signedness = function + | AST.Signed -> "s" + | AST.Unsigned -> "u" + +let print_size = string_of_int + +let print_type = function + | AST.Sig_int (size, sign) -> + "int" ^ (print_size size) ^ (print_signedness sign) + | AST.Sig_float (size, sign) -> + "float" ^ (print_size size) ^ (print_signedness sign) + | AST.Sig_offset -> "offset" + | AST.Sig_ptr -> "ptr" + +let print_type_return = function + | AST.Type_ret t -> print_type t + | AST.Type_void -> "void" + +let rec print_arg_types = function + | [] -> "" + | t :: ts -> (print_type t) ^ " -> " ^ (print_arg_types ts) + +let print_sig sg = + Printf.sprintf "%s%s" + (print_arg_types sg.AST.args) + (print_type_return sg.AST.res) + +let prototypes = + let f res s = res ^ "\n" ^ s in + (List.fold_left f "" (List.map proto primitives_list)) ^ "\n\n" diff --git a/src/common/primitive.mli b/src/common/primitive.mli new file mode 100644 index 0000000..4d0dc8a --- /dev/null +++ b/src/common/primitive.mli @@ -0,0 +1,36 @@ + +(** These are the functions provided by the runtime system. *) + +val primitives : StringTools.Set.t + +val is_primitive : string -> bool + +(** Available primitives are : +extern void print_schar(signed char); +extern void print_uchar(unsigned char); +extern void print_sshort(signed short); +extern void print_ushort(unsigned short); +extern void print_sint(signed int); +extern void print_uint(unsigned int); +extern int scan_int(void); +extern int* alloc(int); +extern void newline(void); +extern void space(void); +(* The following functions only work from Clight to LIN (both included). *) +extern int rand_bool(); +extern int rand_int(int, int); *) + +val args_byte_size : string -> AST.quantity + +val print_type : AST.sig_type -> string +val print_type_return : AST.type_return -> string +val print_sig : AST.signature -> string +val print_signedness : AST.signedness -> string +val print_size : AST.size -> string + +module Interpret (M : Memory.S) : sig + type res = V of M.Value.t list | A of M.Value.address + val t : 'a M.memory -> string -> M.Value.t list -> 'a M.memory * res +end + +val prototypes : string diff --git a/src/common/register.ml b/src/common/register.ml new file mode 100644 index 0000000..0b0d171 --- /dev/null +++ b/src/common/register.ml @@ -0,0 +1,3 @@ +(* Pasted from Pottier's PP compiler *) + +include Atom diff --git a/src/common/register.mli b/src/common/register.mli new file mode 100644 index 0000000..721c0cb --- /dev/null +++ b/src/common/register.mli @@ -0,0 +1,11 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module offers an abstract type of pseudo-registers, used in + [RTL] and [ERTL]. + + This module really is a copy of module [Atom]. However, + [Register.t] is an abstract type -- it is not equal to [Atom.t] or + [Label.t]. *) + +include AtomSig.S + diff --git a/src/common/value.ml b/src/common/value.ml new file mode 100644 index 0000000..0e51ccf --- /dev/null +++ b/src/common/value.ml @@ -0,0 +1,583 @@ + +(** This module describes the values manipulated by high level + languages. *) + + +let error_prefix = "Value" +let error s = Error.global_error error_prefix s + +open IntValue + + +(** The representation of values depends on the size of integers and the size of + addresses. *) + +(** This is the signature of the parameter module. *) + +module type DATA_SIZE = +sig + val int_size : int + val ptr_size : int +end + +(** This is the signature of the module that provides types and functions to + manipulate values. *) + +module type S = +sig + + val int_size : int + val ptr_size : int + + (** The type of values. A value may be: a bounded integer, a chunk of an + address (exactly an address when they have the same size as a machine + register), or undefined. *) + type t + + val compare : t -> t -> int + val equal : t -> t -> bool + val eq : t -> t -> bool + val hash : t -> int + val to_string : t -> string + + (* The functions of this module may raise a Failure exception when + trying to convert them to their various representation. *) + + val is_int : t -> bool + val to_int : t -> int + val of_int : int -> t + + val of_int_repr : IntValue.int_repr -> t + val to_int_repr : t -> IntValue.int_repr + + val of_bool : bool -> t + val to_bool : t -> bool + + val zero : t + val val_true : t + val val_false : t + val is_true : t -> bool + val is_false : t -> bool + val undef : t + + (** The cast operations below returns the undefined value for non-integer + values. For integer values, it will return the integer value that + represents the same quantity, but using every bits (sign or zero + extension) of an integer value. For example, the function [cast8unsigned] + should be read as "cast from an 8 bits unsigned integer". *) + val cast8unsigned : t -> t + val cast8signed : t -> t + val cast16unsigned : t -> t + val cast16signed : t -> t + val cast32 : t -> t + + (** [zero_ext v n m] performs a zero extension on [v] where [n] bytes are + significant to a value where [m] bytes are significant. *) + val zero_ext : t -> int -> int -> t + (** [sign_ext v n m] performs a sign extension on [v] where [n] bytes are + significant to a value where [m] bytes are significant. *) + val sign_ext : t -> int -> int -> t + + (** Integer opposite *) + val negint : t -> t + (** Boolean negation *) + val notbool : t -> t + (** Bitwise not *) + val notint : t -> t + + val succ : t -> t + val pred : t -> t + val cmpl : t -> t + + (** [add_and_of v1 v2] returns the sum of [v1] and [v2], and whether this sum + overflows. *) + val add_and_of : t -> t -> (t * t) + val add : t -> t -> t + (** [add_of v1 v2] returns the [1] value if the sum of [v1] and [v2] + overflows, and [0] otherwise. *) + val add_of : t -> t -> t + (** [sub_and_uf v1 v2] returns the substraction of [v1] and [v2], and whether + this substraction underflows. *) + val sub_and_uf : t -> t -> (t * t) + val sub : t -> t -> t + (** [sub_uf v1 v2] returns the [1] value if the substraction of [v1] and [v2] + underflows, and [0] otherwise. *) + val sub_uf : t -> t -> t + val mul : t -> t -> t + val div : t -> t -> t + val divu : t -> t -> t + val modulo : t -> t -> t + val modulou : t -> t -> t + val and_op : t -> t -> t + val or_op : t -> t -> t + val xor : t -> t -> t + val shl : t -> t -> t + val shr : t -> t -> t + val shru : t -> t -> t + + (** Signed comparisions *) + val cmp_eq : t -> t -> t + val cmp_ne : t -> t -> t + val cmp_lt : t -> t -> t + val cmp_ge : t -> t -> t + val cmp_le : t -> t -> t + val cmp_gt : t -> t -> t + + (** Unsigned comparisions *) + val cmp_eq_u : t -> t -> t + val cmp_ne_u : t -> t -> t + val cmp_lt_u : t -> t -> t + val cmp_ge_u : t -> t -> t + val cmp_le_u : t -> t -> t + val cmp_gt_u : t -> t -> t + + (** A chunk is a part of a value that has the size of a memory cell. *) + + type chunk + val string_of_chunk : chunk -> string + val undef_byte : chunk + val is_undef_byte : chunk -> bool + + (** [break v] cuts [v] in chunks that each fits into a memory cell. In the + resulting list, the first element is the low bits, and the last is the + high bits (little endian representation). *) + val break : t -> chunk list + (** [merge l] creates the value where the first element of [l] is its low + bits, etc, and the last element of [l] is its high bits (little endian + representation). *) + val merge : chunk list -> t + + (** Addresses from the memory point of view. *) + + (** Some architectures have pointers bigger than integers. In this case, only + a chunk of pointer can fit into a machine register. Thus, an address is + represented by several values (little endian representation). *) + + type address = t list + val string_of_address : address -> string + val null : address + + (** Addresses from the memory point of view. Only use the functions below in + the Memory module.*) + + (** Addresses are represented by a block, i.e. a base address, and an offset + from this block. Both blocks and offsets are represented using bounded + integers. *) + module Block : IntValue.S + module Offset : IntValue.S + + type mem_address + val string_of_mem_address : mem_address -> string + + val is_mem_address : address -> bool + + val of_mem_address : mem_address -> address + val to_mem_address : address -> mem_address + val make_mem_address : Block.t -> Offset.t -> mem_address + val decompose_mem_address : mem_address -> Block.t * Offset.t + val block_of_address : address -> Block.t + val offset_of_address : address -> Offset.t + + val change_address_offset : address -> Offset.t -> address + val add_address : address -> Offset.t -> address + val eq_address : address -> address -> bool + +end + + +module Make (D : DATA_SIZE) = +struct + + let int_size = D.int_size + let ptr_size = D.ptr_size + + module BoundedInt = IntValue.Make (struct let size = D.int_size end) + + (* Integer values. *) + module ValInt = BoundedInt + + (* Addresses are represented by a block, i.e. a base address, and an offset + from this block. Both blocks and offsets are represented using bounded + integers. However, values must fit into a machine register. Some + architectures, like the 8051, have addresses bigger than registers. Pointer + values will only represent a part of a full pointer (or exactly a pointer + when addresses fit into a register). *) + + (* Blocks and offsets need [D.ptr_size] bits each to be represented. Indeed, + one may allocate 2^[D.ptr_size] blocks of size one byte, or one block of + size 2^[D.ptr_size] bytes. *) + + module ValBlock = BoundedInt + module ValOffset = BoundedInt + + type t = + | Val_int of ValInt.t + | Val_ptr of ValBlock.t * ValOffset.t + | Val_undef + + let compare a b = match a, b with + | Val_int i1, Val_int i2 -> ValInt.compare i1 i2 + | Val_ptr (b1, off1), Val_ptr (b2, off2) -> + let i1 = ValBlock.compare b1 b2 in + if i1 = 0 then ValOffset.compare off1 off2 + else i1 + | Val_undef, Val_undef -> 0 + | Val_int _, _ -> 1 + | _, Val_int _ -> -1 + | Val_ptr _, _ -> 1 + | _, Val_ptr _ -> -1 + + (* + let hash = function + | Val_int i -> ValInt.to_int i + | Val_float f -> int_of_float f + | Val_undef -> 0 + | Val_ptr (b,o) + | Val_ptrh (b,o) + | Val_ptrl (b,o) -> ValInt.to_int (ValInt.add b o) + *) + + let hash = Hashtbl.hash + + let equal a b = compare a b = 0 + let eq a b = compare a b = 0 + + let to_string = function + | Val_int i -> ValInt.to_string i + | Val_ptr (b, off) -> + "VPtr(" ^ (ValBlock.to_string b) ^ ", " ^ (ValOffset.to_string off) ^ ")" + | Val_undef -> "undef" + + let is_int = function + | Val_int _ -> true + | _ -> false + + let to_int = function + | Val_int i -> ValInt.to_int i + | _ -> raise (Failure "Value.to_int") + + let of_int i = Val_int (ValInt.of_int i) + let one = of_int 1 + + let of_int_repr i = Val_int i + + let to_int_repr = function + | Val_int i -> i + | _ -> raise (Failure "Value.to_int_repr") + + let zero = Val_int ValInt.zero + let val_true = Val_int ValInt.one + let val_false = Val_int ValInt.zero + + let is_true = function + | Val_int i -> ValInt.neq i ValInt.zero + | Val_ptr (b, off) -> + (ValBlock.neq b ValBlock.zero) || (ValOffset.neq off ValOffset.zero) + | _ -> false + + let is_false = function + | Val_int i -> ValInt.eq i ValInt.zero + | Val_ptr (b, off) -> + (ValBlock.eq b ValBlock.zero) && (ValOffset.eq off ValOffset.zero) + | _ -> false + + let of_bool = function + | true -> val_true + | false -> val_false + + let to_bool v = + if is_true v then true + else + if is_false v then false + else error "Undefined value." + + let undef = Val_undef + + let cast cast_fun = function + | Val_int i -> Val_int (cast_fun i) + | _ -> Val_undef + + (** Sign or 0 extensions from various bounded integers. *) + let cast8unsigned = cast (ValInt.zero_ext 8) + let cast8signed = cast (ValInt.sign_ext 8) + let cast16unsigned = cast (ValInt.zero_ext 16) + let cast16signed = cast (ValInt.sign_ext 16) + let cast32 = cast (ValInt.zero_ext 32) + + + let unary_int_op f = function + | Val_int i -> Val_int (f i) + | _ -> Val_undef + + let binary_int_op f v1 v2 = match v1, v2 with + | Val_int i1, Val_int i2 -> Val_int (f i1 i2) + | _ -> Val_undef + + let negint = unary_int_op ValInt.neg + + let notbool v = + if is_true v then val_false + else + if is_false v then val_true + else Val_undef + + let notint = unary_int_op ValInt.lognot + + let cmpl = unary_int_op ValInt.lognot + + (** [add_and_of v1 v2] returns the sum of [v1] and [v2], and whether this sum + overflows. *) + let add_and_of v1 v2 = match v1, v2 with + | Val_int i1, Val_int i2 -> + (Val_int (ValInt.add i1 i2), of_bool (ValInt.add_of i1 i2)) + | Val_int i, Val_ptr (b, off) + | Val_ptr (b, off), Val_int i -> + let i = ValOffset.cast i in + (Val_ptr (b, ValOffset.add off i), of_bool (ValOffset.add_of off i)) + | _, _ -> (Val_undef, Val_undef) + + let add v1 v2 = fst (add_and_of v1 v2) + let add_of v1 v2 = snd (add_and_of v1 v2) + + let succ v = add v (Val_int ValInt.one) + + (** [sub_and_uf v1 v2] returns the substraction of [v1] and [v2], and whether + this substraction underflows. *) + let sub_and_uf v1 v2 = match v1, v2 with + | Val_int i1, Val_int i2 -> + (Val_int (ValInt.sub i1 i2), of_bool (ValInt.sub_uf i1 i2)) + | Val_ptr (b, off), Val_int i -> + let i = ValOffset.cast i in + (Val_ptr (b, ValOffset.sub off i), of_bool (ValOffset.sub_uf off i)) + | Val_ptr (b1, off1), Val_ptr (b2, off2) when ValBlock.eq b1 b2 -> + (Val_int (ValInt.cast (ValOffset.sub off1 off2)), + of_bool (ValOffset.sub_uf off1 off2)) + | _, _ -> (Val_undef, Val_undef) + + let sub v1 v2 = fst (sub_and_uf v1 v2) + let sub_uf v1 v2 = snd (sub_and_uf v1 v2) + + let pred v = sub v (Val_int ValInt.one) + + let mul = binary_int_op ValInt.mul + + let is_zero = function + | Val_int i when ValInt.eq i ValInt.zero -> true + | _ -> false + + let error_if_zero op v1 v2 = + if is_zero v2 then error "Division by zero." + else binary_int_op op v1 v2 + + let div = error_if_zero ValInt.div + let divu = error_if_zero ValInt.divu + let modulo = error_if_zero ValInt.modulo + let modulou = error_if_zero ValInt.modulou + + let and_op = binary_int_op ValInt.logand + let or_op = binary_int_op ValInt.logor + let xor = binary_int_op ValInt.logxor + let shl = binary_int_op ValInt.shl + let shr = binary_int_op ValInt.shr + let shru = binary_int_op ValInt.shrl + + let ext sh v n m = + let n = n * 8 in + let m = m * 8 in + let real_size = D.int_size * 8 in + let int_sh sh v n = sh v (of_int n) in + if n >= m then + if m = real_size then v + else modulou v (shl one (of_int m)) + else + let v = int_sh shl v (real_size - n) in + let v = int_sh sh v (m - n) in + int_sh shru v (real_size - m) + + let zero_ext = ext shru + let sign_ext = ext shr + + let cmp f_int f_off v1 v2 = match v1, v2 with + | Val_int i1, Val_int i2 -> of_bool (f_int i1 i2) + | Val_ptr (b1, off1), Val_ptr (b2, off2) when ValBlock.eq b1 b2 -> + of_bool (f_off off1 off2) + | _ -> Val_undef + + let cmp_eq = cmp ValInt.eq ValOffset.eq + let cmp_ne = cmp ValInt.neq ValOffset.neq + let cmp_lt = cmp ValInt.lt ValOffset.lt + let cmp_ge = cmp ValInt.ge ValOffset.ge + let cmp_le = cmp ValInt.le ValOffset.le + let cmp_gt = cmp ValInt.gt ValOffset.gt + + let cmp_eq_u = cmp ValInt.eq ValOffset.eq + let cmp_ne_u = cmp ValInt.neq ValOffset.neq + let cmp_lt_u = cmp ValInt.ltu ValOffset.ltu + let cmp_ge_u = cmp ValInt.geu ValOffset.geu + let cmp_le_u = cmp ValInt.leu ValOffset.leu + let cmp_gt_u = cmp ValInt.gtu ValOffset.gtu + + + (* The memory is based on byte values. In order to be able to fit a bigger + integer or pointer value in memory, we need to be able to break this value + into several values of size a byte. An integer will be broken into multiple + 8 bits integers. A pointer will be broken into several couples of 8 bits + blocks and 8 bits offsets. *) + + module Int8 = IntValue.Int8 + + (* 8 bits integers *) + module IntChunk = Int8 + (* 8 bits blocks *) + module BlockChunk = Int8 + (* 8 bits offsets *) + module OffsetChunk = Int8 + + (** A chunk is a part of a value that has the size of a memory cell. *) + + type chunk = + | Byte_int of IntChunk.t + | Byte_ptr of BlockChunk.t * OffsetChunk.t + | Byte_undef + + let string_of_chunk = function + | Byte_int i -> IntChunk.to_string i + | Byte_ptr (b, off) -> + "BPtr(" ^ (BlockChunk.to_string b) ^ ", " ^ + (OffsetChunk.to_string off) ^ ")" + | Byte_undef -> "Bundef" + + let undef_byte = Byte_undef + + let is_undef_byte = function + | Byte_undef -> true + | _ -> false + + let break_and_cast break cast x n = + let ys = break x n in + List.map cast ys + + (** [break v] cuts [v] in chunks that each fits into a memory cell. In the + resulting list, the first element is the low bits, and the last is the + high bits (little endian representation). *) + let break v = + let nb_chunks = D.int_size in + match v with + | Val_ptr (b, off) -> + let bbs = break_and_cast ValBlock.break BlockChunk.cast b nb_chunks in + let boffs = + break_and_cast ValOffset.break OffsetChunk.cast off nb_chunks in + List.map2 (fun bb boff -> Byte_ptr (bb, boff)) bbs boffs + | Val_int i -> + let bis = break_and_cast ValInt.break IntChunk.cast i nb_chunks in + List.map (fun i' -> Byte_int i') bis + | _ -> MiscPottier.make Byte_undef nb_chunks + + (** [all_are_pointers l] returns [true] iff the values in the list [l] all are + pointers. *) + let all_are_pointers = + let f b v = b && (match v with Byte_ptr _ -> true | _ -> false) in + List.fold_left f true + + (** [all_are_integers l] returns [true] iff the values in the list [l] all are + integers. *) + let all_are_integers = + let f b v = b && (match v with Byte_int _ -> true | _ -> false) in + List.fold_left f true + + let bblock_of_chunk = function + | Byte_ptr (b, _) -> b + | _ -> assert false (* do not use on this argument *) + + let boffset_of_chunk = function + | Byte_ptr (_, off) -> off + | _ -> assert false (* do not use on this argument *) + + let bint_of_chunk = function + | Byte_int i -> i + | _ -> assert false (* do not use on this argument *) + + let cast_and_merge cast merge transform l = + merge (List.map (fun x -> cast (transform x)) l) + + (** [merge l] creates the value where the first element of [l] is its low + bits, etc, and the last element of [l] is its high bits (little endian + representation). *) + let merge = function + | l when all_are_pointers l -> + let b = cast_and_merge ValBlock.cast ValBlock.merge bblock_of_chunk l in + let off = + cast_and_merge ValOffset.cast ValOffset.merge boffset_of_chunk l in + Val_ptr (b, off) + | l when all_are_integers l -> + Val_int (cast_and_merge ValInt.cast ValInt.merge bint_of_chunk l) + | _ -> Val_undef + + + (** Addresses from the memory point of view. *) + + (** Some architectures have pointers bigger than integers. In this case, only + a chunk of pointer can fit into a machine register. Thus, an address is + represented by several values (little endian representation). *) + + type address = t list + + let string_of_address vs = + "[" ^ (MiscPottier.string_of_list " " to_string vs) ^ "]" + + + (** Addresses are represented by a block, i.e. a base address, and an offset + from this block. Both blocks and offsets are represented using bounded + integers. *) + + let ptr_int_size = max (D.ptr_size / D.int_size) 1 + + module Block = IntValue.Make (struct let size = D.ptr_size end) + module Offset = IntValue.Make (struct let size = D.ptr_size end) + + type mem_address = Block.t * Offset.t + + let string_of_mem_address (b, off) = + Printf.sprintf "(%s, %s)" (Block.to_string b) (Offset.to_string off) + + let is_mem_address = + let f b v = b && (match v with | Val_ptr _ -> true | _ -> false) in + List.fold_left f true + + let of_mem_address (b, off) = + let bs = Block.break b ptr_int_size in + let offs = Offset.break off ptr_int_size in + let f b off = Val_ptr (ValBlock.cast b, ValOffset.cast off) in + List.map2 f bs offs + + let decompose_Val_ptr = function + | Val_ptr (b, off) -> (b, off) + | _ -> error "Not an address." + + let to_mem_address vs = + let (bs, offs) = List.split (List.map decompose_Val_ptr vs) in + let b = Block.merge (List.map Block.cast bs) in + let off = Offset.merge (List.map Offset.cast offs) in + (b, off) + + let make_mem_address b off = (b, off) + let decompose_mem_address addr = addr + let block_of_address vs = fst (to_mem_address vs) + let offset_of_address vs = snd (to_mem_address vs) + + let null = of_mem_address (Block.zero, Offset.zero) + + let change_address_offset vs off = + let (b, _) = decompose_mem_address (to_mem_address vs) in + of_mem_address (make_mem_address b off) + + let add_address vs off' = + let (b, off) = decompose_mem_address (to_mem_address vs) in + let off = Offset.add off off' in + of_mem_address (make_mem_address b off) + + let eq_address addr1 addr2 = + let f b v1 v2 = b && (eq v1 v2) in + List.fold_left2 f true addr1 addr2 + +end diff --git a/src/common/value.mli b/src/common/value.mli new file mode 100644 index 0000000..e1b8cb8 --- /dev/null +++ b/src/common/value.mli @@ -0,0 +1,181 @@ + +(** This module describes the values manipulated by high level languages. *) + +(** The representation of values depends on the size of integers and the size of + addresses. *) + +(** This is the signature of the parameter module. *) + +module type DATA_SIZE = +sig + val int_size : int + val ptr_size : int +end + +(** This is the signature of the module that provides types and functions to + manipulate values. *) + +module type S = +sig + + val int_size : int + val ptr_size : int + + (** The type of values. A value may be: a bounded integer, a chunk of an + address (exactly an address when they have the same size as a machine + register), or undefined. *) + type t + + val compare : t -> t -> int + val equal : t -> t -> bool + val eq : t -> t -> bool + val hash : t -> int + val to_string : t -> string + + (* The functions of this module may raise a Failure exception when + trying to convert them to their various representation. *) + + val is_int : t -> bool + val to_int : t -> int + val of_int : int -> t + + val of_int_repr : IntValue.int_repr -> t + val to_int_repr : t -> IntValue.int_repr + + val of_bool : bool -> t + val to_bool : t -> bool + + val zero : t + val val_true : t + val val_false : t + val is_true : t -> bool + val is_false : t -> bool + val undef : t + + (** The cast operations below returns the undefined value for non-integer + values. For integer values, it will return the integer value that + represents the same quantity, but using every bits (sign or zero + extension) of an integer value. For example, the function [cast8unsigned] + should be read as "cast from an 8 bits unsigned integer". *) + val cast8unsigned : t -> t + val cast8signed : t -> t + val cast16unsigned : t -> t + val cast16signed : t -> t + val cast32 : t -> t + + (** [zero_ext v n m] performs a zero extension on [v] where [n] bytes are + significant to a value where [m] bytes are significant. *) + val zero_ext : t -> int -> int -> t + (** [sign_ext v n m] performs a sign extension on [v] where [n] bytes are + significant to a value where [m] bytes are significant. *) + val sign_ext : t -> int -> int -> t + + (** Integer opposite *) + val negint : t -> t + (** Boolean negation *) + val notbool : t -> t + (** Bitwise not *) + val notint : t -> t + + val succ : t -> t + val pred : t -> t + val cmpl : t -> t + + (** [add_and_of v1 v2] returns the sum of [v1] and [v2], and whether this sum + overflows. *) + val add_and_of : t -> t -> (t * t) + val add : t -> t -> t + (** [add_of v1 v2] returns the [1] value if the sum of [v1] and [v2] + overflows, and [0] otherwise. *) + val add_of : t -> t -> t + (** [sub_and_uf v1 v2] returns the substraction of [v1] and [v2], and whether + this substraction underflows. *) + val sub_and_uf : t -> t -> (t * t) + val sub : t -> t -> t + (** [sub_uf v1 v2] returns the [1] value if the substraction of [v1] and [v2] + underflows, and [0] otherwise. *) + val sub_uf : t -> t -> t + val mul : t -> t -> t + val div : t -> t -> t + val divu : t -> t -> t + val modulo : t -> t -> t + val modulou : t -> t -> t + val and_op : t -> t -> t + val or_op : t -> t -> t + val xor : t -> t -> t + val shl : t -> t -> t + val shr : t -> t -> t + val shru : t -> t -> t + + (** Signed comparisions *) + val cmp_eq : t -> t -> t + val cmp_ne : t -> t -> t + val cmp_lt : t -> t -> t + val cmp_ge : t -> t -> t + val cmp_le : t -> t -> t + val cmp_gt : t -> t -> t + + (** Unsigned comparisions *) + val cmp_eq_u : t -> t -> t + val cmp_ne_u : t -> t -> t + val cmp_lt_u : t -> t -> t + val cmp_ge_u : t -> t -> t + val cmp_le_u : t -> t -> t + val cmp_gt_u : t -> t -> t + + (** A chunk is a part of a value that has the size of a memory cell. *) + + type chunk + val string_of_chunk : chunk -> string + val undef_byte : chunk + val is_undef_byte : chunk -> bool + + (** [break v] cuts [v] in chunks that each fits into a memory cell. In the + resulting list, the first element is the low bits, and the last is the + high bits (little endian representation). *) + val break : t -> chunk list + (** [merge l] creates the value where the first element of [l] is its low + bits, etc, and the last element of [l] is its high bits (little endian + representation). *) + val merge : chunk list -> t + + (** Addresses from interpreters point of view. *) + + (** Some architectures have pointers bigger than integers. In this case, only + a chunk of pointer can fit into a machine register. Thus, an address is + represented by several values (little endian representation). *) + + type address = t list + val string_of_address : address -> string + val null : address + + (** Addresses from the memory point of view. *) + + (** Addresses are represented by a block, i.e. a base address, and an offset + from this block. Both blocks and offsets are represented using bounded + integers. *) + module Block : IntValue.S + module Offset : IntValue.S + + type mem_address + val string_of_mem_address : mem_address -> string + + val is_mem_address : address -> bool + + val of_mem_address : mem_address -> address + val to_mem_address : address -> mem_address + val make_mem_address : Block.t -> Offset.t -> mem_address + val decompose_mem_address : mem_address -> Block.t * Offset.t + val block_of_address : address -> Block.t + val offset_of_address : address -> Offset.t + + val change_address_offset : address -> Offset.t -> address + val add_address : address -> Offset.t -> address + val eq_address : address -> address -> bool + +end + + +(** The functor to create bounded values from a size and a signedness. *) + +module Make (D : DATA_SIZE) : S diff --git a/src/dev_test.ml b/src/dev_test.ml new file mode 100644 index 0000000..f0cd68d --- /dev/null +++ b/src/dev_test.ml @@ -0,0 +1,66 @@ + +(** A playground function for developers where they can test very specific + functionalities not available in the compiler. + It is called with the -dev option. + [filenames] are the file names given in the command line when calling + acc. *) + +let do_dev_test (filenames : string list) : unit = + + let main_lbl = "main" in + let exit_lbl = "exit" in + let lbl = "label" in + + let code = + [(* Prelude *) + `Call main_lbl ; (* call main *) + `Label exit_lbl ; (* when coming back from main, do an infinite + jump here *) + `Jmp exit_lbl ; + (* Main *) + `Label main_lbl ; + `Mov (`DPTR, lbl) ; (* fetch the address of lbl in DPTR *) + (* Push the address of lbl on the stack. *) + `PUSH (I8051.reg_addr I8051.dpl) ; (* low bytes first *) + `PUSH (I8051.reg_addr I8051.dph) ; (* then high bytes *) + `RET ; (* this should jump to lbl, i.e. right below *) + `Label lbl ; + `RET (* jump to the exit label *)] in + + (* Create a labelled ASM program with the code. *) + let prog = + { ASM.ppreamble = [] ; + ASM.pexit_label = exit_lbl ; + ASM.pcode = code ; + ASM.phas_main = true } in + + (* Assemble it. *) + let prog = Languages.AstASM (ASMInterpret.assembly prog) in + + (* Save the result in a fresh file prefixed by "yop" and whose extension is + "hex". *) + Languages.save false false "yop" "" prog + +(* + let f filename = + Printf.printf "Processing %s...\n%!" filename ; + let target = Languages.RTL in + let print = false in + let debug = true in + let interpret = true in + let p = Languages.parse Languages.Clight filename in + let p = Languages.add_runtime p in + let p = Languages.labelize p in + let ps = Languages.compile false Languages.Clight target p in + let f f' p = match Languages.language_of_ast p with + | l when l = target -> f' p + | _ -> () + in + let actions = + [(print, Languages.save false false filename "") ; + (interpret, (fun p -> ignore (Languages.interpret debug p)))] in + List.iter (fun (b, f') -> if b then List.iter (f f') ps else ()) actions + in + + List.iter f filenames +*) diff --git a/src/driver.ml b/src/driver.ml new file mode 100644 index 0000000..759eafd --- /dev/null +++ b/src/driver.ml @@ -0,0 +1,25 @@ + +(** This module defines the target architecture and instanciates the memory + functor for each intermediate language. *) + +module DataSize32 = +struct + let alignment = Some 4 + let int_size = 4 + let ptr_size = 4 +end + +(* The target architecture: the Intel 8051. *) + +module TargetArch = I8051 + +module Memory32 = Memory.Make (DataSize32) +module MemoryTarget = Memory.Make (TargetArch) + +module ClightMemory = Memory32 +module CminorMemory = Memory32 +module RTLabsMemory = Memory32 +module RTLMemory = MemoryTarget +module ERTLMemory = MemoryTarget +module LTLMemory = MemoryTarget +module LINMemory = MemoryTarget diff --git a/src/driver.mli b/src/driver.mli new file mode 100644 index 0000000..7b268a9 --- /dev/null +++ b/src/driver.mli @@ -0,0 +1,13 @@ + +(** This module defines the target architecture and instanciates the memory + functor for each intermediate language. *) + +module TargetArch : Arch.S + +module ClightMemory : Memory.S +module CminorMemory : Memory.S +module RTLabsMemory : Memory.S +module RTLMemory : Memory.S +module ERTLMemory : Memory.S +module LTLMemory : Memory.S +module LINMemory : Memory.S diff --git a/src/languages.ml b/src/languages.ml new file mode 100644 index 0000000..5dbb30a --- /dev/null +++ b/src/languages.ml @@ -0,0 +1,375 @@ +type name = + | Clight + | Cminor + | RTLabs + | RTL + | ERTL + | LTL + | LIN + | ASM + +let strings = [ + "Clight", Clight; + "Cminor", Cminor; + "RTLabs", RTLabs; + "RTL" , RTL; + "ERTL" , ERTL; + "LTL" , LTL; + "LIN" , LIN; + "ASM" , ASM; +] + +let from_string s = + List.assoc s strings + +let to_string l = + List.assoc l (Misc.ListExt.inv_assoc strings) + +type ast = + | AstClight of Clight.program + | AstCminor of Cminor.program + | AstRTLabs of RTLabs.program + | AstRTL of RTL.program + | AstERTL of ERTL.program + | AstLTL of LTL.program + | AstLIN of LIN.program + | AstASM of ASM.program + +let language_of_ast = function + | AstClight _ -> Clight + | AstCminor _ -> Cminor + | AstRTLabs _ -> RTLabs + | AstRTL _ -> RTL + | AstERTL _ -> ERTL + | AstLTL _ -> LTL + | AstLIN _ -> LIN + | AstASM _ -> ASM + +let extension = function + | ASM -> ["s" ; "hex"] + | Clight -> ["c"] + | language -> [to_string language] + +type source = [ + `Filename of string + | `Source of string * string +] + +let parse ?is_lustre_file ?remove_lustre_externals = function + | Clight -> + fun source -> + AstClight + (ClightParser.process ?is_lustre_file ?remove_lustre_externals source) + +(* + | Cminor -> + fun filename -> + AstCminor + (SyntacticAnalysis.process + ~lexer_init: (fun filename -> Lexing.from_channel (open_in filename)) + ~lexer_fun: CminorLexer.token + ~parser_fun: CminorParser.program + ~input: filename) +*) + + | _ -> + (* FIXME: Will be completed in the next commits. *) + assert false + +let print = function + | AstClight a -> ClightPrinter.print_program a + | AstCminor a -> CminorPrinter.print_program a + | AstRTLabs a -> RTLabsPrinter.print_program a + | AstRTL a -> RTLPrinter.print_program a + | AstERTL a -> ERTLPrinter.print_program a + | AstLTL a -> LTLPrinter.print_program a + | AstLIN a -> LINPrinter.print_program a + | AstASM a -> ASMPrinter.print_program a + +let labelize = function + | AstClight p -> + AstClight (ClightLabelling.add_cost_labels p) + +(* + | AstCminor p -> + AstCminor (CminorLabelling.add_cost_labels p) +*) + + | x -> + (* For the other languages, no labelling is defined. *) + x + + +let clight_to_cminor = function + | AstClight p -> + AstCminor (ClightToCminor.translate p) + | _ -> assert false + +let cminor_to_rtlabs = function + | AstCminor p -> + AstRTLabs (CminorToRTLabs.translate p) + | _ -> assert false + +let rtlabs_to_rtl = function + | AstRTLabs p -> + AstRTL (RTLabsToRTL.translate p) + | _ -> assert false + +let rtl_to_ertl = function + | AstRTL p -> + AstERTL (RTLToERTL.translate p) + | _ -> assert false + +let ertl_to_ltl = function + | AstERTL p -> + AstLTL (ERTLToLTL.translate p) + | _ -> assert false + +let ltl_to_lin = function + | AstLTL p -> + AstLIN (LTLToLIN.translate p) + | _ -> assert false + +let lin_to_asm = function + | AstLIN p -> + AstASM (LINToASM.translate p) + | _ -> assert false + +(* We explicitly denote the compilation chain as a list of + passes that must be composed to translate a program + from a source language to a target language. *) +let compilation_chain = [ + (* Source language | Target language | Compilation function *) + Clight, Cminor, clight_to_cminor; + Cminor, RTLabs, cminor_to_rtlabs; + RTLabs, RTL, rtlabs_to_rtl; + RTL, ERTL, rtl_to_ertl; + ERTL, LTL, ertl_to_ltl; + LTL, LIN, ltl_to_lin; + LIN, ASM, lin_to_asm; +] + +let compile debug src tgt = + (* Find the maximal suffix of the chain that starts with the + language [src]. *) + let rec subchain = function + | [] -> + (* The chain is assumed to be well-formed: such a suffix + exists. *) + assert false + | ((l, _, _) :: _) as chain when l = src -> chain + | _ :: chain -> subchain chain + in + (* Compose the atomic translations to build a compilation function + from [src] to [tgt]. Again, we assume that the compilation chain + is well-formed. Thus, if we cannot find [tgt] in the compilation + chain then the user must have made a mistake to ask for a + translation from [src] to [tgt]. *) + let rec compose iprogs src tgt chains ast = + if src = tgt then List.rev (ast :: iprogs) + else + match chains with + | [] -> + Error.global_error "During compilation configuration" + (Printf.sprintf "It is not possible to compile from `%s' to `%s'." + (to_string src) + (to_string tgt)) + + | (l1, l2, src_to_l2) :: chain -> + assert (l1 = src); + let l2_to_tgt = compose iprogs l2 tgt chain in + let iprog = + Misc.Timed.profile + (Printf.sprintf "%s -> %s" + (to_string l1) + (to_string l2)) + src_to_l2 ast + in + ast :: l2_to_tgt iprog + in + compose [] src tgt (subchain compilation_chain) + + +(** [add_runtime ast] adds runtime functions for the operations not supported by + the target processor. *) +let add_runtime = function + | AstClight p -> + AstClight (Runtime.replace_unsupported (ClightSwitch.simplify p)) + | x -> + (* For the other languages, no runtime functios are defined. *) + x + + +let compute_costs = function + | AstClight p -> + (* Computing costs on Clight programs cannot be done directly + because the control-flow is not explicit. Yet, for + incremental construction and test of the compiler, we + build a stupid mapping from labels to costs for a Clight + program that gives cost 1 to every label. *) + CostLabel.constant_map (ClightAnnotator.cost_labels p) 1 + + | AstCminor p -> + (* Computing costs on Cminor programs cannot be done directly + because the control-flow is not explicit. Yet, for + incremental construction and test of the compiler, we + build a stupid mapping from labels to costs for a Cminor + program that gives cost 1 to every label. *) + CostLabel.constant_map (CminorAnnotator.cost_labels p) 1 + + | AstASM p -> + ASMCosts.compute p + + | ast -> + Error.warning "during cost computing" + (Printf.sprintf + "Cost computing is not implemented for language `%s'. Please compile to ASM if you want to annotate the input." + (to_string (language_of_ast ast))) ; + CostLabel.Map.empty + + +(* FIXME *) +let instrument costs_mapping = function + | AstClight p -> + let (p', cost_id, cost_incr, extern_cost_variables) = + ClightAnnotator.instrument p costs_mapping in + (AstClight p', cost_id, cost_incr, extern_cost_variables) +(* + | AstCminor p -> + let (p', cost_id, cost_incr) = CminorAnnotator.instrument p costs_mapping in + (AstCminor p', cost_id, cost_incr) +*) + | p -> + Error.warning "during instrumentation" + (Printf.sprintf + "Instrumentation is not implemented for source language `%s'." + (to_string (language_of_ast p))); + (p, "", "", StringTools.Map.empty) + +let annotate input_ast final = + let costs_mapping = Misc.Timed.profile "Compute costs" compute_costs final in + Misc.Timed.profile "Instrument" (instrument costs_mapping) input_ast + +let string_output asm_pretty = function + | AstClight p -> + [ClightPrinter.print_program p] + | AstCminor p -> + [CminorPrinter.print_program p] + | AstRTLabs p -> + [RTLabsPrinter.print_program p] + | AstRTL p -> + [RTLPrinter.print_program p] + | AstERTL p -> + [ERTLPrinter.print_program p] + | AstLTL p -> + [LTLPrinter.print_program p] + | AstLIN p -> + [LINPrinter.print_program p] + | AstASM p -> + (if asm_pretty then [Pretty.print_program p] + else ["Pretty print not requested"]) @ + [ASMPrinter.print_program p] + +let save asm_pretty exact_output filename suffix ast = + let ext_chopped_filename = + if exact_output then filename + else + try Filename.chop_extension filename + with Invalid_argument ("Filename.chop_extension") -> filename in + let ext_chopped_filename = ext_chopped_filename ^ suffix in + let ext_filenames = + List.map (fun ext -> ext_chopped_filename ^ "." ^ ext) + (extension (language_of_ast ast)) in + let output_filenames = + if exact_output then ext_filenames + else List.map Misc.SysExt.alternative ext_filenames in + let output_strings = string_output asm_pretty ast in + let f filename s = + let cout = open_out filename in + output_string cout s; + flush cout; + close_out cout in + List.iter2 f output_filenames output_strings + +let save_cost exact_name filename cost_id cost_incr extern_cost_variables = + let filename = + if exact_name then filename + else + try Filename.chop_extension filename + with Invalid_argument ("Filename.chop_extension") -> filename in + let cout = open_out (filename ^ ".cerco") in + let f fun_name cost_var = + output_string cout (fun_name ^ " " ^ cost_var ^ "\n") in + output_string cout (cost_id ^ "\n"); + output_string cout (cost_incr ^ "\n"); + StringTools.Map.iter f extern_cost_variables; + flush cout; + close_out cout + +let save_stack exact_name filename stack_id + stack_max_id stack_incr extern_stack_variables = + let filename = + if exact_name then filename + else + try Filename.chop_extension filename + with Invalid_argument ("Filename.chop_extension") -> filename in + let cout = open_out (filename ^ ".stack_cerco") in + let f fun_name stack_var = + output_string cout (fun_name ^ " " ^ stack_var ^ "\n") in + output_string cout (stack_id ^ "\n"); + output_string cout (stack_max_id ^ "\n"); + output_string cout (stack_incr ^ "\n"); + StringTools.Map.iter f extern_stack_variables; + flush cout; + close_out cout + + +let interpret debug = function + | AstClight p -> + ClightInterpret.interpret debug p + | AstCminor p -> + CminorInterpret.interpret debug p + | AstRTLabs p -> + RTLabsInterpret.interpret debug p + | AstRTL p -> + RTLInterpret.interpret debug p + | AstERTL p -> + ERTLInterpret.interpret debug p + | AstLTL p -> + LTLInterpret.interpret debug p + | AstLIN p -> + LINInterpret.interpret debug p + | AstASM p -> + ASMInterpret.interpret debug p + +let add_lustre_main + lustre_test lustre_test_cases lustre_test_cycles + lustre_test_min_int lustre_test_max_int = function + | AstClight p -> + AstClight + (ClightLustreMain.add lustre_test lustre_test_cases lustre_test_cycles + lustre_test_min_int lustre_test_max_int p) + | _ -> + Error.global_error "during main generation" + "Lustre testing is only available with C programs." + + + + +(* FIXME *) +let annotate_stack_size cost_incr = function + | AstClight p -> + let (p', stack_id, stack_max_id, stack_incr, extern_stack_variables) = + AnnotStackSize.instrument cost_incr p in + (AstClight p', stack_id, stack_max_id, stack_incr, extern_stack_variables) +(* + | AstCminor p -> + let (p', stack_id, stack_incr) = CminorAnnotator.instrument p costs_mapping in + (AstCminor p', stack_id, stack_incr) +*) + | p -> + Error.warning "during instrumentation" + (Printf.sprintf + "Instrumentation is not implemented for source language `%s'." + (to_string (language_of_ast p))); + (p, "", "", "", StringTools.Map.empty) diff --git a/src/languages.mli b/src/languages.mli new file mode 100644 index 0000000..c1b047b --- /dev/null +++ b/src/languages.mli @@ -0,0 +1,126 @@ +(** This module defines the intermediate languages. + + This is a dispatching module that is aware of the whole + compilation chain. It can also be used as an homogeneous way to + deal with the intermediate languages functionalities. +*) + + +type name = + | Clight + | Cminor + | RTLabs + | RTL + | ERTL + | LTL + | LIN + | ASM + +(** {2 Abstract syntax trees} *) + +(** The types of abstract syntax trees of each language. *) +type ast = + | AstClight of Clight.program + | AstCminor of Cminor.program + | AstRTLabs of RTLabs.program + | AstRTL of RTL.program + | AstERTL of ERTL.program + | AstLTL of LTL.program + | AstLIN of LIN.program + | AstASM of ASM.program + +(** [language_of_ast ast] returns the programming language of the + abstract syntax tree [ast]. *) +val language_of_ast : ast -> name + +(** A source code can be loaded from a file or given in a string. *) +type source = [ + `Filename of string + | `Source of string * string +] + +(** [parse ?is_lustre_file ?remove_lustre_externals name] returns the parsing + function of the language [name]. *) +val parse : ?is_lustre_file:bool -> ?remove_lustre_externals:bool -> + name -> source -> ast + +(** [print a] pretty prints an AST. *) +val print : ast -> string + +(** {2 Compilation} *) + +(** [compile debug l1 l2] returns the compilation function that + translates the language [l1] to the language [l2]. This may be the + composition of several compilation functions. If [debug] is + [true], all the intermediate programs are inserted in the + output. *) +val compile : bool -> name -> name -> (ast -> ast list) + +(** [add_runtime ast] adds runtime functions for the operations not supported by + the target processor. *) +val add_runtime : ast -> ast + +(** {2 Annotation} + + Labelling consists in the insertion of so-called "cost labels" + which are useful control points in order to compute costs. + + The annotation process first computes cost of constant-time + execution path starting from each cost label on the lowest-level + language. Then, it instruments the (high-level) source code with + these computed costs. +*) + +(** [labelize ast] inserts cost labels in the program [ast]. *) +val labelize : ast -> ast + +(** [annotate input_ast target_ast] inserts cost annotations into the input AST + from the (final) target AST. It also returns the name of the cost variable, + the name of the cost increment function, and a the name of a fresh + uninitialized global variable for each external function. *) +val annotate : ast -> ast -> (ast * string * string * string StringTools.Map.t) + +val annotate_stack_size : + string -> ast -> (ast * string * string * string * string StringTools.Map.t) + +(** [interpret debug ast] runs the program [ast] from the default initial + configuration. This interpretation may emit some cost labels. *) +val interpret : bool -> ast -> AST.trace + +(** {2 Serialization} *) + +(** [save asm_pretty exact_output filename suffix input_ast] prints [input_ast] + in a file whose name is prefixed by [filename], suffixed by [suffix] and + whose extension is deduced from the language of the AST. If [exact_output] + is false then the written file will be fresh. If [asm_pretty] is true, then + an additional pretty-printed assembly file is output. *) +val save : bool -> bool -> string -> string -> ast -> unit + +(** [save_cost exact_name filename cost_id cost_incr extern_cost_variables] + prints the name [cost_id] of the cost variable, then the name [cost_incr] of + the cost increment function, and the entries of the mapping + [extern_cost_variables] (key first, then binding, seperated by a space) in a + separate line in the file prefixed by [filename] and extended with + ".cost". If the file already exists, it is overwritten. *) +val save_cost : bool -> string -> string -> string -> + string StringTools.Map.t -> unit + +val save_stack : bool -> string -> string -> string -> string -> + string StringTools.Map.t -> unit + + +(** [from_string s] parses [s] as an intermediate language name. *) +val from_string : string -> name + +(** [to_string n] prints [n] as a string. *) +val to_string : name -> string + +(** [add_lustre_main lustre_test lustre_test_cases lustre_test_cycles + lustre_test_min_int lustre_test_max_int ast] adds a main function that tests + a Lustre step function to a Clight AST. The file [lustre_test] contains + CerCo information (e.g. the name of the cost variable). The integer + [lustre_test_cases] is the number of test cases that are performed, and the + integer [lustre_test_cycles] is the number of cycles per test + case. [lustre_test_min_int] (resp. [lustre_test_max_int]) is the minimum + (resp. maximum) integer value randomly generated during testing, and. *) +val add_lustre_main : string -> int -> int -> int -> int -> ast -> ast diff --git a/src/options.ml b/src/options.ml new file mode 100644 index 0000000..0517883 --- /dev/null +++ b/src/options.ml @@ -0,0 +1,164 @@ +open Misc.ArgExt + +let web_mode = ref false +let is_web_mode () = !web_mode +let set_web_mode () = web_mode := true + +let default_choice = "default" +let option_settings_step = "during option settings" + +let language_from_string kind default s = + try + Languages.from_string s + with Not_found -> + if s = default_choice then + default + else + Error.global_error option_settings_step + (Printf.sprintf "`%s' is not a valid %s language." s kind) + +let source_language_of_string = language_from_string "source" Languages.Clight +let source_language = ref (source_language_of_string default_choice) +let set_source_language s = source_language := source_language_of_string s +let get_source_language () = !source_language + +let target_language_of_string = language_from_string "target" Languages.ASM +let target_language = ref (target_language_of_string default_choice) +let set_target_language s = target_language := target_language_of_string s +let get_target_language () = !target_language + +let input_files = ref [] +let add_input_file f = input_files := f :: !input_files +let input_files () = !input_files + +let output_files = ref None +let set_output_files s = output_files := Some s +let get_output_files () = !output_files + +let annotation_flag = ref false +let request_annotation = (:=) annotation_flag +let annotation_requested () = !annotation_flag + +let interpretation_flag = ref false +let request_interpretation = (:=) interpretation_flag +let interpretation_requested () = !interpretation_flag + +let interpretations_flag = ref false +let request_interpretations = (:=) interpretations_flag +let interpretations_requested () = !interpretations_flag + +let debug_flag = ref false +let set_debug = (:=) debug_flag +let is_debug_enabled () = !debug_flag + +let asm_pretty_flag = ref false +let set_asm_pretty = (:=) asm_pretty_flag +let is_asm_pretty () = !asm_pretty_flag + +let lustre_flag = ref false +let set_lustre_file = (:=) lustre_flag +let is_lustre_file () = !lustre_flag + +let remove_lustre_externals = ref false +let set_remove_lustre_externals = (:=) remove_lustre_externals +let is_remove_lustre_externals () = !remove_lustre_externals + +let lustre_test = ref None +let set_lustre_test s = lustre_test := Some s +let get_lustre_test () = !lustre_test + +let lustre_test_cases = ref 100 +let set_lustre_test_cases = (:=) lustre_test_cases +let get_lustre_test_cases () = !lustre_test_cases + +let lustre_test_cycles = ref 100 +let set_lustre_test_cycles = (:=) lustre_test_cycles +let get_lustre_test_cycles () = !lustre_test_cycles + +let lustre_test_min_int = ref (-1000) +let set_lustre_test_min_int = (:=) lustre_test_min_int +let get_lustre_test_min_int () = !lustre_test_min_int + +let lustre_test_max_int = ref 1000 +let set_lustre_test_max_int = (:=) lustre_test_max_int +let get_lustre_test_max_int () = !lustre_test_max_int + +(* +let print_result_flag = ref false +let set_print_result = (:=) print_result_flag +let is_print_result_enabled () = !print_result_flag +*) + +let dev_test = ref false +let set_dev_test = (:=) dev_test +let is_dev_test_enabled () = !dev_test + +let options = OptionsParsing.register [ +(* + "-s", Arg.String set_source_language, + " Choose the source language between:"; + extra_doc " Clight, Cminor"; + extra_doc " [default is C]"; +*) + + "-l", Arg.String set_target_language, + " Choose the target language between:"; + extra_doc " Clight, Cminor, RTLabs, RTL, ERTL, LTL, LIN, ASM"; + extra_doc " [default is ASM]"; + + "-a", Arg.Set annotation_flag, + " Add cost annotations on the source code."; + + "-i", Arg.Set interpretation_flag, + " Interpret the compiled code."; + + "-is", Arg.Set interpretations_flag, + " Interpret all the compilation passes."; + + "-d", Arg.Set debug_flag, + " Debug mode."; + extra_doc " Outputs all the passes up to the target language."; + extra_doc " Combined with an interpret option, shows the trace"; + extra_doc " of execution states."; + + "-o", Arg.String set_output_files, + " Prefix of the output files."; + + "-asm-pretty", Arg.Set asm_pretty_flag, + " Output a pretty-printed assembly file."; + + "-lustre", Arg.Set lustre_flag, + " Input file is a Lustre file."; + + "-remove-lustre-externals", Arg.Set remove_lustre_externals, + " Remove Lustre externals."; + + "-lustre-test", Arg.String set_lustre_test, + " Input file is a Lustre file, testing requested."; + + "-lustre-test-cases", Arg.Int set_lustre_test_cases, + " Set the number of test cases when testing a Lustre"; + extra_doc " file."; + extra_doc " [default is 100]"; + + "-lustre-test-cycles", Arg.Int set_lustre_test_cycles, + " Set the number of cycles for each case when testing"; + extra_doc " a Lustre file."; + extra_doc " [default is 100]"; + + "-lustre-test-min-int", Arg.Int set_lustre_test_min_int, + " Random int minimum value when testing a Lustre file."; + extra_doc " [default is -1000]"; + + "-lustre-test-max-int", Arg.Int set_lustre_test_max_int, + " Random int maximum value when testing a Lustre file."; + extra_doc " [default is 1000]"; + +(* + "-res", Arg.Set print_result_flag, + " Print the result of interpretations."; +*) + + "-dev", Arg.Set dev_test, + " Playground for developers."; +] diff --git a/src/options.mli b/src/options.mli new file mode 100644 index 0000000..c5a7b39 --- /dev/null +++ b/src/options.mli @@ -0,0 +1,76 @@ +(** This module defines the compiler general options. *) + +(** {2 Source language} *) +val set_source_language : string -> unit +val get_source_language : unit -> Languages.name + +(** {2 Target language} *) +val set_target_language : string -> unit +val get_target_language : unit -> Languages.name + +(** {2 Interpretation request} *) +val request_interpretation : bool -> unit +val interpretation_requested : unit -> bool + +(** {2 Interpretation requests} *) +val request_interpretations : bool -> unit +val interpretations_requested : unit -> bool + +(** {2 Annotation requests} *) +val request_annotation : bool -> unit +val annotation_requested : unit -> bool + +(** {2 Input files} *) +val add_input_file : string -> unit +val input_files : unit -> string list + +(** {2 Output files} *) +val set_output_files : string -> unit +val get_output_files : unit -> string option + +(** {2 Verbose mode} *) +val is_debug_enabled : unit -> bool + +(** {2 Assembly pretty print} *) +val set_asm_pretty : bool -> unit +val is_asm_pretty : unit -> bool + +(** {2 Lustre file} *) +val set_lustre_file : bool -> unit +val is_lustre_file : unit -> bool + +(** {2 Remove Lustre externals} *) +val set_remove_lustre_externals : bool -> unit +val is_remove_lustre_externals : unit -> bool + +(** {2 Lustre file and test requested} *) +val set_lustre_test : string -> unit +val get_lustre_test : unit -> string option + +(** {2 Lustre file: number of test cases} *) +val set_lustre_test_cases : int -> unit +val get_lustre_test_cases : unit -> int + +(** {2 Lustre file: number of cycles for each case} *) +val set_lustre_test_cycles : int -> unit +val get_lustre_test_cycles : unit -> int + +(** {2 Lustre file: random int minimum value} *) +val set_lustre_test_min_int : int -> unit +val get_lustre_test_min_int : unit -> int + +(** {2 Lustre file: random int maximum value} *) +val set_lustre_test_max_int : int -> unit +val get_lustre_test_max_int : unit -> int + +(* +(** {2 Print results requests} *) +val is_print_result_enabled : unit -> bool +*) + +(** {2 Developers' playground} *) +val is_dev_test_enabled : unit -> bool + +(** {2 Web application} *) +val set_web_mode : unit -> unit +val is_web_mode : unit -> bool diff --git a/src/utilities/Fix.ml b/src/utilities/Fix.ml new file mode 100644 index 0000000..29854b6 --- /dev/null +++ b/src/utilities/Fix.ml @@ -0,0 +1,529 @@ +(**************************************************************************) +(* *) +(* Fix *) +(* *) +(* Author: François Pottier, INRIA Paris-Rocquencourt *) +(* Version: 20091201 *) +(* *) +(* The copyright to this code is held by Institut National de Recherche *) +(* en Informatique et en Automatique (INRIA). All rights reserved. This *) +(* file is distributed under the license CeCILL-C (see file LICENSE). *) +(* *) +(**************************************************************************) + +(* -------------------------------------------------------------------------- *) + +(* Maps. *) + +(* We require imperative maps, that is, maps that can be updated in place. + An implementation of persistent maps, such as the one offered by ocaml's + standard library, can easily be turned into an implementation of imperative + maps, so this is a weak requirement. *) + +module type IMPERATIVE_MAPS = sig + type key + type 'data t + val create: unit -> 'data t + val clear: 'data t -> unit + val add: key -> 'data -> 'data t -> unit + val find: key -> 'data t -> 'data + val iter: (key -> 'data -> unit) -> 'data t -> unit +end + +(* -------------------------------------------------------------------------- *) + +(* Properties. *) + +(* Properties must form a partial order, equipped with a least element, and + must satisfy the ascending chain condition: every monotone sequence + eventually stabilizes. *) + +(* [is_maximal] determines whether a property [p] is maximal with respect to + the partial order. Only a conservative check is required: in any event, it + is permitted for [is_maximal p] to return [false]. If [is_maximal p] + returns [true], then [p] must have no upper bound other than itself. In + particular, if properties form a lattice, then [p] must be the top + element. This feature, not described in the paper, enables a couple of + minor optimizations. *) + +module type PROPERTY = sig + type property + val bottom: property + val equal: property -> property -> bool + val is_maximal: property -> bool +end + +(* -------------------------------------------------------------------------- *) + +(* The dynamic dependency graph. *) + +(* An edge from [node1] to [node2] means that [node1] depends on [node2], or + (equivalently) that [node1] observes [node2]. Then, an update of the + current property at [node2] causes a signal to be sent to [node1]. A node + can observe itself. *) + +(* This module could be placed in a separate file, but is included here in + order to make [Fix] self-contained. *) + +module Graph : sig + + (* This module provides a data structure for maintaining and modifying + a directed graph. Each node is allowed to carry a piece of client + data. There are functions for creating a new node, looking up a + node's data, looking up a node's predecessors, and setting or + clearing a node's successors (all at once). *) + type 'data node + + (* [create data] creates a new node, with no incident edges, with + client information [data]. Time complexity: constant. *) + val create: 'data -> 'data node + + (* [data node] returns the client information associated with + the node [node]. Time complexity: constant. *) + val data: 'data node -> 'data + + (* [predecessors node] returns a list of [node]'s predecessors. + Amortized time complexity: linear in the length of the output + list. *) + val predecessors: 'data node -> 'data node list + + (* [set_successors src dsts] creates an edge from the node [src] to + each of the nodes in the list [dsts]. Duplicate elements in the + list [dsts] are removed, so that no duplicate edges are created. It + is assumed that [src] initially has no successors. Time complexity: + linear in the length of the input list. *) + val set_successors: 'data node -> 'data node list -> unit + + (* [clear_successors node] removes all of [node]'s outgoing edges. + Time complexity: linear in the number of edges that are removed. *) + val clear_successors: 'data node -> unit + + (* That's it. *) +end += struct + + (* Using doubly-linked adjacency lists, one could implement [predecessors] + in worst-case linear time with respect to the length of the output list, + [set_successors] in worst-case linear time with respect to the length of + the input list, and [clear_successors] in worst-case linear time with + respect to the number of edges that are removed. We use a simpler + implementation, based on singly-linked adjacency lists, with deferred + removal of edges. It achieves the same complexity bounds, except + [predecessors] only offers an amortized complexity bound. This is good + enough for our purposes, and, in practice, is more efficient by a + constant factor. This simplification was suggested by Arthur + Charguéraud. *) + + type 'data node = { + + (* The client information associated with this node. *) + + data: 'data; + + (* This node's incoming and outgoing edges. *) + + mutable outgoing: 'data edge list; + mutable incoming: 'data edge list; + + (* A transient mark, always set to [false], except when checking + against duplicate elements in a successor list. *) + + mutable marked: bool; + + } + + and 'data edge = { + + (* This edge's nodes. Edges are symmetric: source and destination + are not distinguished. Thus, an edge appears both in the outgoing + edge list of its source node and in the incoming edge list of its + destination node. This allows edges to be easily marked as + destroyed. *) + + node1: 'data node; + node2: 'data node; + + (* Edges that are destroyed are marked as such, but are not + immediately removed from the adjacency lists. *) + + mutable destroyed: bool; + + } + + let create (data : 'data) : 'data node = { + data = data; + outgoing = []; + incoming = []; + marked = false; + } + + let data (node : 'data node) : 'data = + node.data + + (* [follow src edge] returns the node that is connected to [src] + by [edge]. Time complexity: constant. *) + + let follow src edge = + if edge.node1 == src then + edge.node2 + else begin + assert (edge.node2 == src); + edge.node1 + end + + (* The [predecessors] function removes edges that have been marked + destroyed. The cost of removing these has already been paid for, + so the amortized time complexity of [predecessors] is linear in + the length of the output list. *) + + let predecessors (node : 'data node) : 'data node list = + let predecessors = List.filter (fun edge -> not edge.destroyed) node.incoming in + node.incoming <- predecessors; + List.map (follow node) predecessors + + (* [link src dst] creates a new edge from [src] to [dst], together + with its reverse edge. Time complexity: constant. *) + + let link (src : 'data node) (dst : 'data node) : unit = + let edge = { + node1 = src; + node2 = dst; + destroyed = false; + } in + src.outgoing <- edge :: src.outgoing; + dst.incoming <- edge :: dst.incoming + + let set_successors (src : 'data node) (dsts : 'data node list) : unit = + assert (src.outgoing = []); + let rec loop = function + | [] -> + () + | dst :: dsts -> + if dst.marked then + loop dsts (* skip duplicate elements *) + else begin + dst.marked <- true; + link src dst; + loop dsts; + dst.marked <- false + end + in + loop dsts + + let clear_successors (node : 'data node) : unit = + List.iter (fun edge -> + assert (not edge.destroyed); + edge.destroyed <- true; + ) node.outgoing; + node.outgoing <- [] + +end + +(* -------------------------------------------------------------------------- *) + +(* The code is parametric in an implementation of maps over variables and in + an implementation of properties. *) + +module Make + (M : IMPERATIVE_MAPS) + (P : PROPERTY) += struct + +type variable = + M.key + +type property = + P.property + +type valuation = + variable -> property + +type rhs = + valuation -> property + +type equations = + variable -> rhs + +(* -------------------------------------------------------------------------- *) + +(* Data. *) + +(* Each node in the dependency graph carries information about a fixed + variable [v]. *) + +type node = + data Graph.node + +and data = { + + (* This is the result of the application of [rhs] to the variable [v]. It + must be stored in order to guarantee that this application is performed + at most once. *) + rhs: rhs; + + (* This is the current property at [v]. It evolves monotonically with + time. *) + mutable property: property; + + (* That's it! *) +} + +(* [property node] returns the current property at [node]. *) + +let property node = + (Graph.data node).property + +(* -------------------------------------------------------------------------- *) + +(* Many definitions must be made within the body of the function [lfp]. + For greater syntactic convenience, we place them in a local module. *) + +let lfp (eqs : equations) : valuation = + let module LFP = struct + +(* -------------------------------------------------------------------------- *) + +(* The workset. *) + +(* When the algorithm is inactive, the workset is empty. *) + +(* Our workset is based on a Queue, but it could just as well be based on a + Stack. A textual replacement is possible. It could also be based on a + priority queue, provided a sensible way of assigning priorities could + be found. *) + +module Workset : sig + + (* [insert node] inserts [node] into the workset. [node] must have no + successors. *) + val insert: node -> unit + + (* [repeat f] repeatedly applies [f] to a node extracted out of the + workset, until the workset becomes empty. [f] is allowed to use + [insert]. *) + val repeat: (node -> unit) -> unit + + (* That's it! *) +end += struct + + (* Initialize the workset. *) + + let workset = + Queue.create() + + let insert node = + Queue.push node workset + + let repeat f = + while not (Queue.is_empty workset) do + f (Queue.pop workset) + done + +end + +(* -------------------------------------------------------------------------- *) + +(* Signals. *) + +(* A node in the workset has no successors. (It can have predecessors.) In + other words, a predecessor (an observer) of some node is never in the + workset. Furthermore, a node never appears twice in the workset. *) + +(* When a variable broadcasts a signal, all of its predecessors (observers) + receive the signal. Any variable that receives the signal loses all of its + successors (that is, it ceases to observe anything) and is inserted into + the workset. This preserves the above invariant. *) + +let signal subject = + List.iter (fun observer -> + Graph.clear_successors observer; + Workset.insert observer + ) (Graph.predecessors subject) + (* At this point, [subject] has no predecessors. This plays no role in + the correctness proof, though. *) + +(* -------------------------------------------------------------------------- *) + +(* Tables. *) + +(* The permanent table maps variables that have reached a fixed point + to properties. It persists forever. *) + +let permanent : property M.t = + M.create() + +(* The transient table maps variables that have not yet reached a + fixed point to nodes. (A node contains not only a property, but + also a memoized right-hand side, and carries edges.) At the + beginning of a run, it is empty. It fills up during a run. At the + end of a run, it is copied into the permanent table and cleared. *) + +let transient : node M.t = + M.create() + +(* [freeze()] copies the transient table into the permanent table, and + empties the transient table. This allows all nodes to be reclaimed + by the garbage collector. *) + +let freeze () = + M.iter (fun v node -> + M.add v (property node) permanent + ) transient; + M.clear transient + +(* -------------------------------------------------------------------------- *) + +(* Workset processing. *) + + +(* [solve node] re-evaluates the right-hand side at [node]. If this leads to + a change, then the current property is updated, and [node] emits a signal + towards its observers. *) + +(* When [solve node] is invoked, [node] has no subjects. Indeed, when [solve] + is invoked by [node_for], [node] is newly created; when [solve] is invoked by + [Workset.repeat], [node] has just been extracted out of the workset, and a + node in the workset has no subjects. *) + +(* [node] must not be in the workset. *) + +(* In short, when [solve node] is invoked, [node] is neither awake nor asleep. + When [solve node] finishes, [node] is either awake or asleep again. (Chances + are, it is asleep, unless it is its own observer; then, it is awakened by the + final call to [signal node].) *) + +let rec solve (node : node) : unit = + + (* Retrieve the data record carried by this node. *) + let data = Graph.data node in + + (* Prepare to compute an updated value at this node. This is done by + invoking the client's right-hand side function. *) + + (* The flag [alive] is used to prevent the client from invoking [request] + after this interaction phase is over. In theory, this dynamic check seems + required in order to argue that [request] behaves like a pure function. + In practice, this check is not very useful: only a bizarre client would + store a [request] function and invoke it after it has become stale. *) + let alive = ref true + and subjects = ref [] in + + (* We supply the client with [request], a function that provides access to + the current valuation, and dynamically records dependencies. This yields + a set of dependencies that is correct by construction. *) + let request (v : variable) : property = + assert !alive; + try + M.find v permanent + with Not_found -> + let subject = node_for v in + let p = property subject in + if not (P.is_maximal p) then + subjects := subject :: !subjects; + p + in + + (* Give control to the client. *) + let new_property = data.rhs request in + + (* From now on, prevent any invocation of this instance of [request] + the client. *) + alive := false; + + (* At this point, [node] has no subjects, as noted above. Thus, the + precondition of [set_successors] is met. We can install [data.subjects] + as the new set of subjects for this node. *) + + (* If we have gathered no subjects in the list [data.subjects], then + this node must have stabilized. If [new_property] is maximal, + then this node must have stabilized. *) + + (* If this node has stabilized, then it need not observe any more, so the + call to [set_successors] is skipped. In practice, this seems to be a + minor optimization. In the particular case where every node stabilizes at + the very first call to [rhs], this means that no edges are ever + built. This particular case is unlikely, as it means that we are just + doing memoization, not a true fixed point computation. *) + + (* One could go further and note that, if this node has stabilized, then it + could immediately be taken out of the transient table and copied into the + permanent table. This would have the beneficial effect of allowing the + detection of further nodes that have stabilized. Furthermore, it would + enforce the property that no node in the transient table has a maximal + value, hence the call to [is_maximal] above would become useless. *) + + if not (!subjects = [] || P.is_maximal new_property) then + Graph.set_successors node !subjects; + + (* If the updated value differs from the previous value, record + the updated value and send a signal to all observers of [node]. *) + if not (P.equal data.property new_property) then begin + data.property <- new_property; + signal node + end + (* Note that equality of the two values does not imply that this node has + stabilized forever. *) + +(* -------------------------------------------------------------------------- *) + +(* [node_for v] returns the graph node associated with the variable [v]. It is + assumed that [v] does not appear in the permanent table. If [v] appears in + the transient table, the associated node is returned. Otherwise, [v] is a + newly discovered variable: a new node is created on the fly, and the + transient table is grown. The new node can either be inserted into the + workset (it is then awake) or handled immediately via a recursive call to + [solve] (it is then asleep, unless it observes itself). *) + +(* The recursive call to [solve node] can be replaced, if desired, by a call + to [Workset.insert node]. Using a recursive call to [solve] permits eager + top-down discovery of new nodes. This can save a constant factor, because + it allows new nodes to move directly from [bottom] to a good first + approximation, without sending any signals, since [node] has no observers + when [solve node] is invoked. In fact, if the dependency graph is acyclic, + the algorithm discovers nodes top-down, performs computation on the way + back up, and runs without ever inserting a node into the workset! + Unfortunately, this causes the stack to grow as deep as the longest path in + the dependency graph, which can blow up the stack. *) + +and node_for (v : variable) : node = + try + M.find v transient + with Not_found -> + let node = Graph.create { rhs = eqs v; property = P.bottom } in + (* Adding this node to the transient table prior to calling [solve] + recursively is mandatory, otherwise [solve] might loop, creating + an infinite number of nodes for the same variable. *) + M.add v node transient; + solve node; (* or: Workset.insert node *) + node + +(* -------------------------------------------------------------------------- *) + +(* Invocations of [get] trigger the fixed point computation. *) + +(* The flag [inactive] prevents reentrant calls by the client. *) + +let inactive = + ref true + +let get (v : variable) : property = + try + M.find v permanent + with Not_found -> + assert !inactive; + inactive := false; + let node = node_for v in + Workset.repeat solve; + freeze(); + inactive := true; + property node + +(* -------------------------------------------------------------------------- *) + +(* Close the local module [LFP]. *) + +end +in LFP.get + +end diff --git a/src/utilities/Fix.mli b/src/utilities/Fix.mli new file mode 100644 index 0000000..1d850b6 --- /dev/null +++ b/src/utilities/Fix.mli @@ -0,0 +1,102 @@ + +(** This module provides a generic algorithm to compute the least + solution of a system of monotonic equations. *) + +(**************************************************************************) +(* *) +(* Fix *) +(* *) +(* Author: François Pottier, INRIA Paris-Rocquencourt *) +(* Version: 20091201 *) +(* *) +(* The copyright to this code is held by Institut National de Recherche *) +(* en Informatique et en Automatique (INRIA). All rights reserved. This *) +(* file is distributed under the license CeCILL-C (see file LICENSE). *) +(* *) +(**************************************************************************) + +(* This code is described in the paper ``Lazy Least Fixed Points in ML''. *) + +(* -------------------------------------------------------------------------- *) + +(* Maps. *) + +(* We require imperative maps, that is, maps that can be updated in place. + An implementation of persistent maps, such as the one offered by ocaml's + standard library, can easily be turned into an implementation of imperative + maps, so this is a weak requirement. *) + +module type IMPERATIVE_MAPS = sig + type key + type 'data t + val create: unit -> 'data t + val clear: 'data t -> unit + val add: key -> 'data -> 'data t -> unit + val find: key -> 'data t -> 'data + val iter: (key -> 'data -> unit) -> 'data t -> unit +end + +(* -------------------------------------------------------------------------- *) + +(* Properties. *) + +(* Properties must form a partial order, equipped with a least element, and + must satisfy the ascending chain condition: every monotone sequence + eventually stabilizes. *) + +(* [is_maximal] determines whether a property [p] is maximal with respect to + the partial order. Only a conservative check is required: in any event, it + is permitted for [is_maximal p] to return [false]. If [is_maximal p] + returns [true], then [p] must have no upper bound other than itself. In + particular, if properties form a lattice, then [p] must be the top + element. This feature, not described in the paper, enables a couple of + minor optimizations. *) + +module type PROPERTY = sig + type property + val bottom: property + val equal: property -> property -> bool + val is_maximal: property -> bool +end + +(* -------------------------------------------------------------------------- *) + +(* The code is parametric in an implementation of maps over variables and in + an implementation of properties. *) + +module Make + (M : IMPERATIVE_MAPS) + (P : PROPERTY) + : sig + type variable = M.key + type property = P.property + + (* A valuation is a mapping of variables to properties. *) + type valuation = variable -> property + + (* A right-hand side, when supplied with a valuation that gives + meaning to its free variables, evaluates to a property. More + precisely, a right-hand side is a monotone function of + valuations to properties. *) + type rhs = valuation -> property + + (* A system of equations is a mapping of variables to right-hand + sides. *) + type equations = variable -> rhs + + (* [lfp eqs] produces the least solution of the system of monotone + equations [eqs]. *) + + (* It is guaranteed that, for each variable [v], the application [eqs v] is + performed at most once (whereas the right-hand side produced by this + application is, in general, evaluated multiple times). This guarantee can + be used to perform costly pre-computation, or memory allocation, when [eqs] + is applied to its first argument. *) + + (* When [lfp] is applied to a system of equations [eqs], it performs no + actual computation. It produces a valuation, [get], which represents + the least solution of the system of equations. The actual fixed point + computation takes place, on demand, when [get] is applied. *) + val lfp: equations -> valuation + end + diff --git a/src/utilities/bijection.ml b/src/utilities/bijection.ml new file mode 100644 index 0000000..acae94c --- /dev/null +++ b/src/utilities/bijection.ml @@ -0,0 +1,89 @@ + +module type OrderedType = sig + type t + val compare : t -> t -> int +end + + +module type S = sig + + type a + type b + type t + + val empty : t + val is_empty : t -> bool + + val add1 : a -> b -> t -> t + val add2 : b -> a -> t -> t + + val find1 : a -> t -> b + val find2 : b -> t -> a + + val remove1 : a -> t -> t + val remove2 : b -> t -> t + + val mem1 : a -> t -> bool + val mem2 : b -> t -> bool + + val iter1 : (a -> b -> unit) -> t -> unit + val iter2 : (b -> a -> unit) -> t -> unit + + val fold1 : (a -> b -> 'c -> 'c) -> t -> 'c -> 'c + val fold2 : (b -> a -> 'c -> 'c) -> t -> 'c -> 'c + + val compare1 : (b -> b -> int) -> t -> t -> int + val compare2 : (a -> a -> int) -> t -> t -> int + + val equal1 : (b -> b -> bool) -> t -> t -> bool + val equal2 : (a -> a -> bool) -> t -> t -> bool + +end + + +module Make (O1 : OrderedType) (O2 : OrderedType) : S + with type a = O1.t and type b = O2.t = struct + + module Map1 = Map.Make (O1) + module Map2 = Map.Make (O2) + + type a = O1.t + type b = O2.t + type t = O2.t Map1.t * O1.t Map2.t + + let eq1 a1 a2 = O1.compare a1 a2 = 0 + let eq2 b1 b2 = O2.compare b1 b2 = 0 + + let empty = (Map1.empty, Map2.empty) + let is_empty (a_b, _) = Map1.is_empty a_b + + let add1 a b (a_b, b_a) = (Map1.add a b a_b, Map2.add b a b_a) + let add2 b a (a_b, b_a) = (Map1.add a b a_b, Map2.add b a b_a) + + let find1 a (a_b, _) = Map1.find a a_b + let find2 b (_, b_a) = Map2.find b b_a + + let remove1 a (a_b, b_a) = + let f b' a' b_a' = if eq1 a' a then b_a' else Map2.add b' a' b_a' in + (Map1.remove a a_b, Map2.fold f b_a Map2.empty) + + let remove2 b (a_b, b_a) = + let f a' b' a_b' = if eq2 b' b then a_b' else Map1.add a' b' a_b' in + (Map1.fold f a_b Map1.empty, Map2.remove b b_a) + + let mem1 a (a_b, _) = Map1.mem a a_b + let mem2 b (_, b_a) = Map2.mem b b_a + + let iter1 f (a_b, _) = Map1.iter f a_b + let iter2 f (_, b_a) = Map2.iter f b_a + + let fold1 f (a_b, _) c = Map1.fold f a_b c + let fold2 f (_, b_a) c = Map2.fold f b_a c + + let compare1 f (a_b1, _) (a_b2, _) = Map1.compare f a_b1 a_b2 + let compare2 f (_, b_a1) (_, b_a2) = Map2.compare f b_a1 b_a2 + + let equal1 f (a_b1, _) (a_b2, _) = Map1.equal f a_b1 a_b2 + let equal2 f (_, b_a1) (_, b_a2) = Map2.equal f b_a1 b_a2 + +end diff --git a/src/utilities/bijection.mli b/src/utilities/bijection.mli new file mode 100644 index 0000000..401d0f2 --- /dev/null +++ b/src/utilities/bijection.mli @@ -0,0 +1,45 @@ +(** This module implements a bi-directional finite map. +*) + +module type OrderedType = sig + type t + val compare : t -> t -> int +end + +module type S = sig + + type a + type b + type t + + val empty : t + val is_empty : t -> bool + + val add1 : a -> b -> t -> t + val add2 : b -> a -> t -> t + + val find1 : a -> t -> b + val find2 : b -> t -> a + + val remove1 : a -> t -> t + val remove2 : b -> t -> t + + val mem1 : a -> t -> bool + val mem2 : b -> t -> bool + + val iter1 : (a -> b -> unit) -> t -> unit + val iter2 : (b -> a -> unit) -> t -> unit + + val fold1 : (a -> b -> 'c -> 'c) -> t -> 'c -> 'c + val fold2 : (b -> a -> 'c -> 'c) -> t -> 'c -> 'c + + val compare1 : (b -> b -> int) -> t -> t -> int + val compare2 : (a -> a -> int) -> t -> t -> int + + val equal1 : (b -> b -> bool) -> t -> t -> bool + val equal2 : (a -> a -> bool) -> t -> t -> bool + +end + +module Make (O1 : OrderedType) (O2 : OrderedType) : S with type a = O1.t and + type b = O2.t diff --git a/src/utilities/checkOClosure.ml b/src/utilities/checkOClosure.ml new file mode 100644 index 0000000..8c61c6c --- /dev/null +++ b/src/utilities/checkOClosure.ml @@ -0,0 +1 @@ +open Goog diff --git a/src/utilities/coloring.ml b/src/utilities/coloring.ml new file mode 100644 index 0000000..fe55e6c --- /dev/null +++ b/src/utilities/coloring.ml @@ -0,0 +1,360 @@ +(* Pasted from Pottier's PP compiler *) + +open ERTL +open Interference +open Printf + +(* ------------------------------------------------------------------------- *) +(* Decisions. *) + +(* A decision is of the form either [Spill] -- the vertex could + not be colored and should be spilled into a stack slot -- or + [Color] -- the vertex was assigned a hardware register. *) + +type decision = + | Spill + | Color of I8051.register + +(* [print_decision] turns a decision into a string. *) + +let print_decision = function + | Spill -> + "spilled" + | Color hwr -> + Printf.sprintf "colored $%s" (I8051.print_register hwr) + +(* ------------------------------------------------------------------------- *) +(* Colorings. *) + +(* A coloring is a partial function of graph vertices to decisions. + Vertices that are not in the domain of the coloring are waiting for + a decision to be made. *) + +type coloring = + decision Vertex.Map.t + +(* ------------------------------------------------------------------------- *) +(* Sets of colors. *) + +module ColorSet = + I8051.RegisterSet + +(* [add_color coloring r colors] returns the union of the set [colors] with + the element [color], if the vertex [r] was assigned color [color], and + returns [colors] if [r] was spilled. *) + +let add_color coloring r colors = + match Vertex.Map.find r coloring with + | Spill -> + colors + | Color color -> + ColorSet.add color colors + +(* These are the colors that we work with. *) + +let colors : ColorSet.t = + I8051.allocatable + +(* This is the number of available colors. *) + +let k : int = + ColorSet.cardinal colors + +(* ------------------------------------------------------------------------- *) +(* Choices of colors. *) + +(* [forbidden_colors graph coloring v] is the set of colors that cannot be + assigned to [v] considering [coloring], a coloring of every vertex in + [graph] except [v]. *) +(* This takes into account [v]'s possible interferences with hardware + registers, which are viewed as forbidden colors. *) + +let forbidden_colors graph coloring v = + Vertex.Set.fold (add_color coloring) (ipp graph v) (iph graph v) + +(* ------------------------------------------------------------------------- *) +(* Low and high vertices. *) + +(* A vertex is low (or insignificant) if its degree is less than [k]. + It is high (or significant) otherwise. *) + +let high graph v = + degree graph v >= k + +(* [high_neighbors graph v] is the set of all high neighbors of [v]. *) + +let high_neighbors graph v = + Vertex.Set.filter (high graph) (ipp graph v) + +(* ------------------------------------------------------------------------- *) +(* George's conservative coalescing criterion. *) + +(* According to this criterion, two vertices [a] and [b] can be + coalesced, suppressing [a] and keeping [b], if the following + two conditions hold: + + 1. (pseudo-registers) every high neighbor of [a] is a neighbor of [b]; + 2. (hardware registers) every hardware register that interferes with + [a] also interferes with [b]. + + This means that, after all low vertices have been removed, any color that + is suitable for [b] is also suitable for [a]. *) + +let georgepp graph (a, b) = + Vertex.Set.subset (high_neighbors graph a) (ipp graph b) && + I8051.RegisterSet.subset (iph graph a) (iph graph b) + +(* According to this criterion, a vertex [a] and a hardware register + [c] can be coalesced (that is, [a] can be assigned color [c]) if + every high neighbor of [a] interferes with [c]. *) + +let georgeph graph (a, c) = + Vertex.Set.fold (fun neighbor accu -> + accu && + I8051.RegisterSet.mem c (iph graph neighbor) + ) (high_neighbors graph a) true + +(* ------------------------------------------------------------------------- *) +(* Here is the coloring algorithm. *) + +module Color (G : sig + + val graph: graph + val uses: Register.t -> int + val verbose: bool + +end) = struct + + (* The cost function heuristically evaluates how much it might cost + to spill vertex [v]. Here, the cost is the ratio of the number of + uses of the pseudo-registers represented by [v] by the degree of + [v]. One could also take into account the number of nested loops + that the uses appear within, but that is not done here. *) + + let cost graph v = + let uses = + Register.Set.fold (fun r uses -> + G.uses r + uses + ) (registers graph v) 0 + in + (float_of_int uses) /. (float_of_int (degree graph v)) + + (* The algorithm maintains a transformed graph as it runs. It is + obtained from the original graph by removing, coalescing, and + freezing vertices. *) + + (* Each of the functions that follow returns a coloring of the graph + that it is passed. These functions correspond to the various + states of the algorithm (simplification, coalescing, freezing, + spilling, selection). The function [simplification] is the + initial state. *) + + (* [simplification] removes non-move-related nodes of low degree. *) + + let rec simplification graph : coloring = + + match lowest_non_move_related graph with + + | Some (v, d) when d < k -> + + (* We found a non-move-related node [v] of low degree. Color + the rest of the graph, then color [v]. This is what I call + selection. *) + + if G.verbose then + printf "Simplifying low vertex: %s.\n%!" (print_vertex graph v); + + selection graph v + + | _ -> + + (* There are no non-move-related nodes of low degree. + Could not simplify further. Start coalescing. *) + + coalescing graph + + (* [coalescing] looks for a preference edge that can be collapsed. + It is called after [simplification], so it is known, at this + point, that all nodes of low degree are move-related. *) + + and coalescing graph : coloring = + + (* Find a preference edge between two vertices that passes + George's criterion. + + [pppick] examines all preference edges in the graph, so its use + is inefficient. It would be more efficient instead to examine + only areas of the graph that have changed recently. More + precisely, it is useless to re-examine a preference edge that + did not pass George's criterion the last time it was examined + and whose neighborhood has not been modified by simplification, + coalescing or freezing. Indeed, in that case, and with a + sufficiently large definition of ``neighborhood'', this edge is + guaranteed to again fail George's criterion. It would be + possible to modify the [Interference.graph] data structure so + as to keep track of which neighborhoods have been modified and + provide a specialized, more efficient version of [pppick]. This + is not done here. *) + + match pppick graph (georgepp graph) with + + | Some (a, b) -> + + if G.verbose then + printf "Coalescing %s with %s.\n%!" (print_vertex graph a) (print_vertex graph b); + + (* Coalesce [a] with [b] and color the remaining graph. *) + + let coloring = simplification (coalesce graph a b) in + + (* Assign [a] the same color as [b]. *) + + Vertex.Map.add a (Vertex.Map.find b coloring) coloring + + | None -> + + (* Find a preference edge between a vertex and a hardware + register that passes George's criterion. Like [pppick], + [phpick] is slow. *) + + match phpick graph (georgeph graph) with + + | Some (a, c) -> + + if G.verbose then + printf "Coalescing %s with $%s.\n%!" (print_vertex graph a) (I8051.print_register c); + + (* Coalesce [a] with [c] and color the remaining graph. *) + + let coloring = simplification (coalesceh graph a c) in + + (* Assign [a] the color [c]. *) + + Vertex.Map.add a (Color c) coloring + + | None -> + + (* Could not coalesce further. Start freezing. *) + + freezing graph + + (* [freezing] begins after [simplification] and [coalescing] are + finished, so it is known, at this point, that all nodes of low + degree are move-related and no coalescing is possible. [freezing] + looks for a node of low degree (which must be move-related) and + removes the preference edges that it carries. This potentially + opens new opportunities for simplification and coalescing. *) + + and freezing graph : coloring = + + match lowest graph with + + | Some (v, d) when d < k -> + + (* We found a move-related node [v] of low degree. + Freeze it and start over. *) + + if G.verbose then + printf "Freezing low vertex: %s.\n%!" (print_vertex graph v); + + simplification (freeze graph v) + + | _ -> + + (* Could not freeze further. Start spilling. *) + + spilling graph + + (* [spilling] begins after [simplification], [coalescing], and + [freezing] are finished, so it is known, at this point, that + there are no nodes of low degree. + + Thus, we are facing a potential spill. However, we do optimistic + coloring: we do not spill a vertex right away, but proceed + normally, just as if we were doing simplification. So, we pick a + vertex [v], remove it, and check whether a color can be assigned + to [v] only after coloring what remains of the graph. + + It is crucial to pick a vertex that has few uses in the code. It + would also be good to pick one that has high degree, as this will + help color the rest of the graph. Thus, we pick a vertex that has + minimum cost, where the cost is obtained as the ratio of the + number of uses of the pseudo-registers represented by this vertex + in the code by the degree of the vertex. One could also take into + account the number of nested loops that the uses appear within, + but that is not done here. + + The use of [minimum] is inefficient, because this function + examines all vertices in the graph. It would be possible to + augment the [Interference.graph] data structure so as to keep + track of the cost associated with each vertex and provide + efficient access to a minimum cost vertex. This is not done + here. *) + + and spilling graph : coloring = + + match minimum (cost graph) graph with + | Some v -> + + if G.verbose then + printf "Spilling high vertex: %s.\n%!" (print_vertex graph v); + + selection graph v + + | None -> + + (* The graph is empty. Return an empty coloring. *) + + Vertex.Map.empty + + (* [selection] removes the vertex [v] from the graph, colors the + remaining graph, then selects a color for [v]. + + If [v] is low, that is, if [v] has degree less than [k], then at + least one color must still be available for [v], regardless of + how the remaining graph was colored. + + If [v] was a potential spill, then it is not certain that a color + is still available. If one is, though, then we are rewarded for + being optimistic. If none is, then [v] becomes an actual + spill. *) + + and selection graph v : coloring = + + (* Remove [v] from the graph and color what remains. *) + + let coloring = simplification (remove graph v) in + + (* Determine which colors are allowed. *) + + let allowed = ColorSet.diff colors (forbidden_colors graph coloring v) in + + (* Make a decision. + + We pick a color randomly among those that are allowed. One could + attempt to use biased coloring, that is, to pick a color that seems + desirable (or not undesirable) according to the preference edges + found in the initial graph. But that is probably not worth the + trouble. *) + + let decision = + try + Color (ColorSet.choose allowed) + with Not_found -> + Spill + in + + if G.verbose then + printf "Decision concerning %s: %s.\n%!" (print_vertex graph v) (print_decision decision); + + (* Record our decision and return. *) + + Vertex.Map.add v decision coloring + + (* Run the algorithm. *) + + let coloring = + simplification G.graph + +end + diff --git a/src/utilities/coloring.mli b/src/utilities/coloring.mli new file mode 100644 index 0000000..640080d --- /dev/null +++ b/src/utilities/coloring.mli @@ -0,0 +1,38 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module performs graph coloring. It is used for register + allocation. *) + +(* A coloring is a partial function of graph vertices to decisions, + where a decision is of the form either [Spill] -- the vertex could + not be colored and should be spilled into a stack slot -- or + [Color] -- the vertex was assigned a hardware register. Vertices + that are not in the domain of the coloring are waiting for a + decision to be made. *) + +type decision = + | Spill + | Color of I8051.register + +type coloring = + decision Interference.Vertex.Map.t + +(* Here is the coloring algorithm. Out of an interference graph, it + produces a coloring. The client should provide information about + the number of uses of each pseudo-register; the higher the number, + the more undesirable it is to spill that pseudo-register. If the + [verbose] flag is set, the algorithm prints information messages to + the standard output channel. *) + +module Color (G : sig + + val graph: Interference.graph + val uses: Register.t -> int + val verbose: bool + +end) : sig + + val coloring: coloring + +end + diff --git a/src/utilities/eformat.ml b/src/utilities/eformat.ml new file mode 100644 index 0000000..cfddb96 --- /dev/null +++ b/src/utilities/eformat.ml @@ -0,0 +1,18 @@ + +type t = { buffer : Buffer.t ; formatter : Format.formatter } + +let buffer eformat = eformat.buffer +let formatter eformat = eformat.formatter + +let make buffer formatter = { buffer ; formatter } + +let create () = + let buffer = Buffer.create 512 in + let formatter = Format.formatter_of_buffer buffer in + make buffer formatter + +let printf eformat = Format.fprintf (formatter eformat) + +let get eformat = + printf eformat "@?" ; + Buffer.contents (buffer eformat) diff --git a/src/utilities/eformat.mli b/src/utilities/eformat.mli new file mode 100644 index 0000000..77c11ce --- /dev/null +++ b/src/utilities/eformat.mli @@ -0,0 +1,6 @@ + +type t + +val create : unit -> t +val get : t -> string +val printf : t -> ('a, Format.formatter, unit) format -> 'a diff --git a/src/utilities/error.ml b/src/utilities/error.ml new file mode 100644 index 0000000..aef1266 --- /dev/null +++ b/src/utilities/error.ml @@ -0,0 +1,38 @@ +let exit_flag = ref true + +let exit_if_error () = exit_flag := true + +let resume_if_error () = exit_flag := false + +exception Error of Position.t list * string + +let print_error positions msg = + Printf.sprintf "%s%s" + (String.concat "\n" + (List.map (fun p -> Position.string_of_pos p ^": ") positions)) + msg + +let error_alert positions msg = + if !exit_flag then ( + output_string stderr (print_error positions msg); + exit 1 + ) + else raise (Error (positions, msg)) + +let global_error kind msg = + error_alert [] (Printf.sprintf "Global Error (%s):\n %s\n" kind msg) + +let error kind pos msg = + error_alert [pos] (Printf.sprintf "Error (%s):\n %s\n" kind msg) + +let error2 kind pos1 pos2 msg = + error_alert [pos1; pos2] (Printf.sprintf "Error (%s):\n %s\n" kind msg) + +let warning kind msg = + let mem_flag = !exit_flag in + exit_flag := false; + (try + error_alert [] (Printf.sprintf "Warning (%s):\n %s\n" kind msg) + with Error (positions, msg) -> + output_string stderr (print_error positions msg)); + exit_flag := mem_flag diff --git a/src/utilities/error.mli b/src/utilities/error.mli new file mode 100644 index 0000000..98b86c1 --- /dev/null +++ b/src/utilities/error.mli @@ -0,0 +1,29 @@ +(** This module provides a uniform way of reporting (located) error message. *) + +(** [exit_if_error ()] forces the program to stop if an error is encountered. + (This is the default behavior.) *) +val exit_if_error: unit -> unit + +(** [resume_if_error ()] makes the program throw the exception {!Error} + if an error is encountered. *) +val resume_if_error: unit -> unit + +exception Error of Position.t list * string + +(** [print_error positions msg] formats an error message. *) +val print_error : Position.t list -> string -> string + +(** [error k p msg] prints [msg] with [k] as a message prefix and stops + the program. *) +val error : string -> Position.t -> string -> 'a + +(** [error2 k p1 p2 msg] prints two positions instead of one. *) +val error2 : string -> Position.t -> Position.t -> string -> 'a + +(** [global_error k msg] prints [msg] with [k] as a message prefix and stops + the program. *) +val global_error : string -> string -> 'a + +(** [warning k msg] prints [msg] with [k] as a message prefix, but do + not stop the program. *) +val warning : string -> string -> unit diff --git a/src/utilities/interference.ml b/src/utilities/interference.ml new file mode 100644 index 0000000..4e1d061 --- /dev/null +++ b/src/utilities/interference.ml @@ -0,0 +1,861 @@ +(* Pasted from Pottier's PP compiler *) + +(* This module implements a data structure for interference graphs. + It provides functions that help construct, transform and inspect + interference graphs. *) + +(* ------------------------------------------------------------------------- *) + +(* Vertices are represented as integers. We need sets of vertices, maps over + vertices, maps of vertices to nonempty sets of vertices, maps of vertices + to nonempty sets of hardware registers, and priority sets over vertices. *) + +module Vertex = struct + + module V = struct + type t = int + let compare = compare + end + + include V + + module Set = Set.Make(V) + + module Map = MyMap.Make(V) + +end + +module VertexSetMap = + SetMap.MakeHomo(Vertex.Set)(Vertex.Map) + +module I8051RegisterSetMap = + SetMap.MakeHetero(I8051.RegisterSet)(Vertex.Map) + +module PrioritySet = + PrioritySet.Make(Vertex) + +(* ------------------------------------------------------------------------- *) + +(* Each vertex maps to a set of pseudo-registers, which initially is a + singleton set, but can grow due to coalescing. Conversely, each + pseudo-register maps to a single vertex. *) + +module RegMap : sig + + type t + + (* [empty] is the empty map. *) + + val empty: t + + (* [forward] maps a vertex to a set of pseudo-registers. *) + + val forward: Vertex.t -> t -> Register.Set.t + + (* [backward] maps a pseudo-register to a vertex. *) + + val backward: Register.t -> t -> Vertex.t + + (* [add r v m] adds a relation between pseudo-register [r] and + vertex [v], both of which are assumed fresh. *) + + val add: Register.t -> Vertex.t -> t -> t + + (* [fold f m accu] folds over all vertices. *) + + val fold: (Vertex.t -> Register.Set.t -> 'a -> 'a) -> t -> 'a -> 'a + + (* [coalesce x y m] coalesces vertices [x] and [y]. Vertex [x] is + removed and the pseudo-registers associated with it become + associated with [y] instead. *) + + val coalesce: Vertex.t -> Vertex.t -> t -> t + + (* [remove x m] removes vertex [x]. The pseudo-registers associated + with [x] disappear. *) + + val remove: Vertex.t -> t -> t + + (* [restrict] keeps only those vertices that satisfy predicate [p]. *) + + val restrict: (Vertex.t -> bool) -> t -> t + +end = struct + + type t = { + forward: Register.Set.t Vertex.Map.t; + backward: Vertex.t Register.Map.t + } + + let empty = { + forward = Vertex.Map.empty; + backward = Register.Map.empty + } + + let forward v m = + Vertex.Map.find v m.forward + + let backward r m = + try + Register.Map.find r m.backward + with Not_found -> + assert false (* bad pseudo-register *) + + let add r v m = { + forward = Vertex.Map.add v (Register.Set.singleton r) m.forward; + backward = Register.Map.add r v m.backward + } + + let fold f m accu = + Vertex.Map.fold f m.forward accu + + let coalesce x y m = + let rx, forward = Vertex.Map.find_remove x m.forward in + let forward = Vertex.Map.update y (Register.Set.union rx) forward in + let backward = + Register.Set.fold (fun r backward -> + Register.Map.add r y backward + ) rx m.backward + in + { + forward = forward; + backward = backward + } + + let remove x m = + let rx, forward = Vertex.Map.find_remove x m.forward in + let backward = Register.Set.fold Register.Map.remove rx m.backward in + { + forward = forward; + backward = backward + } + + let restrict p m = { + forward = Vertex.Map.restrict p m.forward; + backward = Register.Map.restrict (fun r -> p (backward r m)) m.backward + } + +end + +(* ------------------------------------------------------------------------- *) + +(* Graphs. *) + +type graph = { + + (* A two-way correspondence between vertices and pseudo-registers. + This data structure is also used to keep a record of the set of + all vertices. *) + + regmap: RegMap.t; + + (* Interference edges between two vertices: ``these two vertices + cannot receive the same color''. *) + + ivv: VertexSetMap.t; + + (* Interference edges between a vertex and a hardware register: + ``this vertex cannot receive this color''. *) + + ivh: I8051RegisterSetMap.t; + + (* Preference edges between two vertices: ``these two vertices + should preferably receive the same color''. *) + + pvv: VertexSetMap.t; + + (* Preference edges between a vertex and a hardware register: + ``this vertex should preferably receive this color''. *) + + pvh: I8051RegisterSetMap.t; + + (* The degree of each vertex [v], that is, the number of vertices + and hardware registers that [v] interferes with, is recorded at + all times. We use a ``priority set'' so as to be able to + efficiently find a vertex of minimum degree. *) + + degree: PrioritySet.t; + + (* The degree of each *non-move-related* vertex [v]. This + information is partially redundant with the [degree] field + above. It is nevertheless required in order to be able to + efficiently find a *non-move-related* vertex of minimum + degree. *) + + nmr: PrioritySet.t; + + } + +(* ------------------------------------------------------------------------- *) + +(* Our graphs are made up of two subgraphs: the subgraph formed by the + interference edges alone and the one formed by the preference edges + alone. + + In order to allow more code sharing, we define functions that allow + dealing with a single subgraph at a time. They provide operations + such as inspecting the neighbors of a vertex, adding edges, + removing edges, coalescing two vertices, removing a vertex, etc. + + We first define functions that deal with a ``generic'' subgraph, + then (via inheritance) specialize them to deal with the + interference subgraph and the preference subgraph with their + specific features. *) + +class virtual subgraph = object (self) + + (* These methods provide access to the fields of the [graph] data + structure that define the subgraph of interest. All data is + stored in the [graph] data structure. The object [self] has no + state and holds no data. *) + + method virtual getvv: graph -> VertexSetMap.t + method virtual setvv: graph -> VertexSetMap.t -> graph + method virtual getvh: graph -> I8051RegisterSetMap.t + method virtual setvh: graph -> I8051RegisterSetMap.t -> graph + + (* Accessing the neighbors of a vertex and testing whether edges + exist. *) + + method neighborsv graph v = + VertexSetMap.find v (self#getvv graph) + + method existsvv graph v1 v2 = + Vertex.Set.mem v1 (self#neighborsv graph v2) + + method neighborsh graph v = + I8051RegisterSetMap.find v (self#getvh graph) + + method existsvh graph v h = + I8051.RegisterSet.mem h (self#neighborsh graph v) + + (* [degree graph v] is the degree of vertex [v] with respect to the + subgraph. *) + + method degree graph v = + Vertex.Set.cardinal (self#neighborsv graph v) + I8051.RegisterSet.cardinal (self#neighborsh graph v) + + (* [hwregs graph] is the set of all hardware registers mentioned in + the subgraph. *) + + method hwregs graph = + let union _ = I8051.RegisterSet.union in + Vertex.Map.fold union (self#getvh graph) I8051.RegisterSet.empty + + (* [iter graph fvv fvh] iterates over all edges in the subgraph. + Vertex-to-vertex edges are presented only once. *) + + method iter graph fvv fvh = + Vertex.Map.iter (fun vertex neighbors -> + Vertex.Set.iter (fun neighbor -> + if vertex < neighbor then + fvv vertex neighbor + ) neighbors + ) (self#getvv graph); + Vertex.Map.iter (fun vertex neighbors -> + I8051.RegisterSet.iter (fun neighbor -> + fvh vertex neighbor + ) neighbors + ) (self#getvh graph) + + (* [mkvv graph v1 v2] adds an edge between vertices [v1] and [v2]. *) + + method mkvv graph v1 v2 = + if v1 = v2 then + graph (* avoid creating self-edge *) + else if self#existsvv graph v1 v2 then + graph (* avoid re-adding an existing edge *) + else + self#mkvvi graph v1 v2 + + method mkvvi graph v1 v2 = + self#setvv graph (VertexSetMap.mkbiedge v1 v2 (self#getvv graph)) + + (* [rmvv graph v1 v2] removes an edge between vertices [v1] and [v2]. + [rmvvifx] removes an edge if it exists. *) + + method rmvv graph v1 v2 = + assert (self#existsvv graph v1 v2); + self#setvv graph (VertexSetMap.rmbiedge v1 v2 (self#getvv graph)) + + method rmvvifx graph v1 v2 = + if self#existsvv graph v1 v2 then + self#rmvv graph v1 v2 + else + graph + + (* [mkvh graph v h] adds an edge between vertex [v] and hardware + register [h]. *) + + method mkvh graph v h = + if self#existsvh graph v h then + graph (* avoid re-adding an existing edge *) + else + self#mkvhi graph v h + + method mkvhi graph v h = + self#setvh graph (I8051RegisterSetMap.update v (I8051.RegisterSet.add h) (self#getvh graph)) + + (* [rmvh v h] removes an edge between vertex [v] and hardware + register [h]. [rmvhifx] removes an edge if it exists. *) + + method rmvh graph v h = + assert (self#existsvh graph v h); + self#setvh graph (I8051RegisterSetMap.update v (I8051.RegisterSet.remove h) (self#getvh graph)) + + method rmvhifx graph v h = + if self#existsvh graph v h then + self#rmvh graph v h + else + graph + + (* [coalesce graph x y] turns every neighbor [w] or [h] of [x] into + a neighbor of [y] instead. [w] ranges over both vertices and + hardware registers. *) + + method coalesce graph x y = + let graph = + Vertex.Set.fold (fun w graph -> + self#mkvv (self#rmvv graph x w) y w + ) (self#neighborsv graph x) graph + in + let graph = + I8051.RegisterSet.fold (fun h graph -> + self#mkvh (self#rmvh graph x h) y h + ) (self#neighborsh graph x) graph + in + graph + + (* [coalesceh graph x h] turns every neighbor [w] of [x] into a + neighbor of [h] instead. [w] ranges over both vertices and + hardware registers. Edges between two hardware registers are not + recorded. *) + + method coalesceh graph x h = + let graph = + Vertex.Set.fold (fun w graph -> + self#mkvh (self#rmvv graph x w) w h + ) (self#neighborsv graph x) graph + in + let graph = + I8051.RegisterSet.fold (fun k graph -> + self#rmvh graph x k + ) (self#neighborsh graph x) graph + in + graph + + (* [remove graph x] removes all edges carried by vertex [x]. *) + + method remove graph x = + let graph = + Vertex.Set.fold (fun w graph -> + self#rmvv graph x w + ) (self#neighborsv graph x) graph + in + let graph = + I8051.RegisterSet.fold (fun h graph -> + self#rmvh graph x h + ) (self#neighborsh graph x) graph + in + graph + +end + +(* ------------------------------------------------------------------------- *) + +(* The interference subgraph. + + This is a subgraph with the following specific features: (1) the + degree of every vertex is recorded in the [degree] field of the + [graph] data structure; (2) the degree of every non-move-related + vertex is recorded in the [nmr] field of the [graph] data + structure; (3) creating an edge in the interference subgraph + automatically destroys a corresponding edge in the preference + subgraph. *) + +class interference (preference : preference Lazy.t) = object (self) + + inherit subgraph as super + + method getvv graph = graph.ivv + method setvv graph m = { graph with ivv = m } + method getvh graph = graph.ivh + method setvh graph m = { graph with ivh = m } + + (* Override the edge creation and destruction methods. *) + + method mkvvi graph v1 v2 = + let graph = super#mkvvi graph v1 v2 in + let graph = (Lazy.force preference)#rmvvifx graph v1 v2 in (* do not constrain an existing preference edge *) + { graph with + degree = PrioritySet.increment v1 1 (PrioritySet.increment v2 1 graph.degree); + nmr = PrioritySet.incrementifx v1 1 (PrioritySet.incrementifx v2 1 graph.nmr); + } + + method rmvv graph v1 v2 = + let graph = super#rmvv graph v1 v2 in + { graph with + degree = PrioritySet.increment v1 (-1) (PrioritySet.increment v2 (-1) graph.degree); + nmr = PrioritySet.incrementifx v1 (-1) (PrioritySet.incrementifx v2 (-1) graph.nmr); + } + + method mkvhi graph v h = + let graph = super#mkvhi graph v h in + let graph = (Lazy.force preference)#rmvhifx graph v h in (* do not constrain an existing preference edge *) + { graph with + degree = PrioritySet.increment v 1 graph.degree; + nmr = PrioritySet.incrementifx v 1 graph.nmr; + } + + method rmvh graph v h = + let graph = super#rmvh graph v h in + { graph with + degree = PrioritySet.increment v (-1) graph.degree; + nmr = PrioritySet.incrementifx v (-1) graph.nmr; + } + +end + +(* ------------------------------------------------------------------------- *) + +(* The preference subgraph. + + This is a subgraph with the following specific features: (1) an + edge in the preference subgraph cannot be created if a + corresponding edge exists in the interference subgraph; (2) adding + an edge can make a vertex move-related, which requires taking that + vertex out of the [nmr] set; conversely, removing an edge can make + a vertex non-move-related, which requires adding that vertex to the + [nmr] set. *) + +and preference (interference : interference Lazy.t) = object (self) + + inherit subgraph as super + + method getvv graph = graph.pvv + method setvv graph m = { graph with pvv = m } + method getvh graph = graph.pvh + method setvh graph m = { graph with pvh = m } + + (* [nmr graph v] tells whether vertex [v] is non-move-related. *) + + method nmr graph v = + Vertex.Set.is_empty (self#neighborsv graph v) && + I8051.RegisterSet.is_empty (self#neighborsh graph v) + + (* [mkcheck graph v] moves [v] out of the [nmr] set if [v] is + non-move-related. *) + + method mkcheck graph v = + if self#nmr graph v then + { graph with + nmr = PrioritySet.remove v graph.nmr } + else + graph + + (* Override the edge creation methods. *) + + method mkvvi graph v1 v2 = + if (Lazy.force interference)#existsvv graph v1 v2 then + graph (* avoid creating constrained preference edge *) + else + let graph = self#mkcheck graph v1 in + let graph = self#mkcheck graph v2 in + super#mkvvi graph v1 v2 + + method mkvhi graph v h = + if (Lazy.force interference)#existsvh graph v h then + graph (* avoid creating constrained preference edge *) + else + let graph = self#mkcheck graph v in + super#mkvhi graph v h + + (* [rmcheck graph v] moves [v] into the [nmr] set if [v] is + non-move-related. *) + + method rmcheck graph v = + if self#nmr graph v then + { graph with + nmr = PrioritySet.add v (PrioritySet.priority v graph.degree) graph.nmr + } + else + graph + + (* Override the edge destruction methods. *) + + method rmvv graph v1 v2 = + let graph = super#rmvv graph v1 v2 in + let graph = self#rmcheck graph v1 in + let graph = self#rmcheck graph v2 in + graph + + method rmvh graph v h = + let graph = super#rmvh graph v h in + let graph = self#rmcheck graph v in + graph + +end + +(* ------------------------------------------------------------------------- *) + +(* Because the interference and preference subgraphs are mutually + referential, a recursive definition is required. It is made + somewhat inelegant by Objective Caml's insistence on using the + [Lazy] mechanism. *) + +let rec interference = lazy (new interference preference) + and preference = lazy (new preference interference) +let interference = Lazy.force interference +let preference = Lazy.force preference + +(* ------------------------------------------------------------------------- *) + +(* Inspecting interference graphs. *) + +(* [ipp graph v] is the set of vertices that the vertex [v] interferes + with. *) + +let ipp graph v = + interference#neighborsv graph v + +(* [iph graph v] is the set of hardware registers that the vertex [v] + interferes with. *) + +let iph graph v = + interference#neighborsh graph v + +(* [ppp graph v] is the set of vertices that should preferably be + assigned the same color as the vertex [v]. *) + +let ppp graph v = + preference#neighborsv graph v + +(* [pph graph v] is the set of hardware registers that [v] should + preferably be assigned. *) + +let pph graph v = + preference#neighborsh graph v + +(* [degree graph v] is the degree of the vertex [v], that is, the number + of vertices and hardware registers that [v] interferes with. *) + +let degree graph v = + PrioritySet.priority v graph.degree + +(* [lowest graph] returns [Some (v, d)], where the vertex [v] has + minimum degree [d], or returns [None] if the graph is empty. *) + +let lowest graph = + PrioritySet.lowest graph.degree + +(* [lowest_non_move_related graph] returns [Some (v, d)], where the + vertex [v] has minimum degree [d] among the vertices that are not + move-related, or returns [None] if all vertices are move-related. A + vertex is move-related if it carries a preference edge. *) + +let lowest_non_move_related graph = + PrioritySet.lowest graph.nmr + +(* [fold f graph accu] folds over all vertices. *) + +let fold f graph accu = + RegMap.fold (fun v _ accu -> f v accu) graph.regmap accu + +(* [minimum f graph] returns a vertex [v] such that the value of [f x] + is minimal. The values returned by [f] are compared using Objective + Caml's generic comparison operator [<]. If the graph is empty, + [None] is returned. *) + +let minimum f graph = + match + fold (fun w accu -> + let dw = f w in + match accu with + | None -> + Some (dw, w) + | Some (dv, v) -> + if dw < dv then + Some (dw, w) + else + accu + ) graph None + with + | None -> + None + | Some (_, v) -> + Some v + +(* [pppick graph p] returns an arbitrary preference edge that + satisfies the predicate [p], if the graph contains one. *) + +type ppedge = + Vertex.t * Vertex.t + +let pppick graph p = + VertexSetMap.pick graph.pvv p + +(* [phpick graph p] returns an arbitrary preference edge that + satisfies the predicate [p], if the graph contains one. *) + +type phedge = + Vertex.t * I8051.register + +let phpick graph p = + I8051RegisterSetMap.pick graph.pvh p + +(* ------------------------------------------------------------------------- *) + +(* Constructing interference graphs. *) + +(* [create regs] creates an interference graph whose vertices are + the pseudo-registers [regs] and that does not have any edges. *) + +let create regs = + let (_ : int), regmap, degree = + Register.Set.fold (fun r (v, regmap, degree) -> + v+1, + RegMap.add r v regmap, + PrioritySet.add v 0 degree + ) regs (0, RegMap.empty, PrioritySet.empty) + in + { + regmap = regmap; + ivv = Vertex.Map.empty; + ivh = Vertex.Map.empty; + pvv = Vertex.Map.empty; + pvh = Vertex.Map.empty; + degree = degree; + nmr = degree + } + +(* [lookup graph r] returns the graph vertex associated with + pseudo-register [r]. *) + +let lookup graph r = + RegMap.backward r graph.regmap + +(* Conversely, [registers graph v] returns the set of pseudo-registers + associated with vertex [v]. *) + +let registers graph v = + RegMap.forward v graph.regmap + +(* [mkipp graph regs1 regs2] adds interference edges between all pairs + of pseudo-registers [r1] and [r2], where [r1] ranges over [regs1], + [r2] ranges over [regs2], and [r1] and [r2] are distinct. *) + +let mkipp graph regs1 regs2 = + Register.Set.fold (fun r1 graph -> + let v1 = lookup graph r1 in + Register.Set.fold (fun r2 graph -> + interference#mkvv graph v1 (lookup graph r2) + ) regs2 graph + ) regs1 graph + +(* [mkiph graph regs hwregs] adds interference edges between all pairs + of a pseudo-register [r] and a hardware register [hwr], where [r] + ranges over [regs] and [hwr] ranges over [hwregs]. *) + +let mkiph graph regs hwregs = + Register.Set.fold (fun r graph -> + let v = lookup graph r in + I8051.RegisterSet.fold (fun h graph -> + interference#mkvh graph v h + ) hwregs graph + ) regs graph + +(* [mki graph regs1 regs2] adds interference edges between all pairs + of (pseudo- or hardware) registers [r1] and [r2], where [r1] ranges + over [regs1], [r2] ranges over [regs2], and [r1] and [r2] are + distinct. *) + +let mki graph (regs1, hwregs1) (regs2, hwregs2) = + let graph = mkipp graph regs1 regs2 in + let graph = mkiph graph regs1 hwregs2 in + let graph = mkiph graph regs2 hwregs1 in + graph + +(* [mkppp graph r1 r2] adds a preference edge between the + pseudo-registers [r1] and [r2]. *) + +let mkppp graph r1 r2 = + let v1 = lookup graph r1 + and v2 = lookup graph r2 in + let graph = preference#mkvv graph v1 v2 in + graph + +(* [mkpph graph r h] adds a preference edge between the + pseudo-register [r] and the hardware register [h]. *) + +let mkpph graph r h = + let v = lookup graph r in + let graph = preference#mkvh graph v h in + graph + +(* ------------------------------------------------------------------------- *) + +(* Displaying interference graphs. *) + +open Printf + +let hwregs graph = + I8051.RegisterSet.union (interference#hwregs graph) (preference#hwregs graph) + +let print_vertex graph v = + Register.Set.print (registers graph v) + +let print f graph = + + fprintf f "graph G {\n"; +(* fprintf f "size=\"6, 3\";\n"; (* in inches *)*) + fprintf f "orientation = landscape;\n"; + fprintf f "rankdir = LR;\n"; + fprintf f "ratio = compress;\n\n"; (* compress or fill or auto *) + + RegMap.fold (fun vertex regs () -> + fprintf f "r%d [ label=\"%s\" ] ;\n" vertex (Register.Set.print regs) + ) graph.regmap (); + + I8051.RegisterSet.iter (fun hwr -> + let name = I8051.print_register hwr in + fprintf f "hwr%s [ label=\"$%s\" ] ;\n" name name + ) (hwregs graph); + + interference#iter graph + (fun vertex neighbor -> + fprintf f "r%d -- r%d ;\n" vertex neighbor) + (fun vertex neighbor -> + fprintf f "r%d -- hwr%s ;\n" vertex (I8051.print_register neighbor)); + + preference#iter graph + (fun vertex neighbor -> + fprintf f "r%d -- r%d [ style = dashed ] ;\n" vertex neighbor) + (fun vertex neighbor -> + fprintf f "r%d -- hwr%s [ style = dashed ] ;\n" vertex (I8051.print_register neighbor)); + + fprintf f "\n}\n" + +(* ------------------------------------------------------------------------- *) + +(* Coalescing. *) + +(* [coalesce graph v1 v2] is a new graph where the vertices [v1] and [v2] + are coalesced. The new coalesced vertex is known under the name [v2]. *) + +let coalesce graph x y = + + assert (x <> y); (* attempt to coalesce one vertex with itself *) + assert (not (interference#existsvv graph x y)); (* attempt to coalesce two interfering vertices *) + + (* Perform coalescing in the two subgraphs. *) + + let graph = interference#coalesce graph x y in + let graph = preference#coalesce graph x y in + + (* Remove [x] from all tables. *) + + { + graph with + regmap = RegMap.coalesce x y graph.regmap; + ivh = Vertex.Map.remove x graph.ivh; + pvh = Vertex.Map.remove x graph.pvh; + degree = PrioritySet.remove x graph.degree; + nmr = PrioritySet.remove x graph.nmr; + } + +(* [coalesceh graph v h] coalesces the vertex [v] with the hardware register + [h]. This produces a new graph where [v] no longer exists and all edges + leading to [v] are replaced with edges leading to [h]. *) + +let coalesceh graph x h = + + assert (not (interference#existsvh graph x h)); (* attempt to coalesce interfering entities *) + + (* Perform coalescing in the two subgraphs. *) + + let graph = interference#coalesceh graph x h in + let graph = preference#coalesceh graph x h in + + (* Remove [x] from all tables. *) + + { + graph with + regmap = RegMap.remove x graph.regmap; + ivh = Vertex.Map.remove x graph.ivh; + pvh = Vertex.Map.remove x graph.pvh; + degree = PrioritySet.remove x graph.degree; + nmr = PrioritySet.remove x graph.nmr; + } + +(* ------------------------------------------------------------------------- *) + +(* [freeze graph x] is a new graph where all preference edges carried + by [x] are removed. *) + +let freeze graph x = + preference#remove graph x + +(* ------------------------------------------------------------------------- *) + +(* Removal. *) + +(* [remove graph v] is a new graph where vertex [v] is removed. *) + +let remove graph v = + + (* Remove all edges carried by [v]. *) + + let graph = interference#remove graph v in + let graph = preference#remove graph v in + + (* Remove [v] from all tables. *) + + { + graph with + regmap = RegMap.remove v graph.regmap; + degree = PrioritySet.remove v graph.degree; + nmr = PrioritySet.remove v graph.nmr; + } + +(* ------------------------------------------------------------------------- *) + +(* [mkdeg graph] recomputes degree information from scratch. *) + +let mkdeg graph = + let degree, nmr = + fold (fun v (degree, nmr) -> + let d = interference#degree graph v in + PrioritySet.add v d degree, + if preference#nmr graph v then PrioritySet.add v d nmr else nmr + ) graph (PrioritySet.empty, PrioritySet.empty) + in + { graph with + degree = degree; + nmr = nmr; + } + +(* [restrict graph p] is a new graph where only those vertices that + satisfy predicate [p] are kept. The same effect could be obtained + by repeated application of [remove], but [restrict] is likely to be + more efficient if many vertices are removed. *) + +let restrict graph p = + mkdeg { + graph with + regmap = RegMap.restrict p graph.regmap; + ivv = VertexSetMap.restrict p graph.ivv; + ivh = Vertex.Map.restrict p graph.ivh; + pvv = VertexSetMap.restrict p graph.pvv; + pvh = Vertex.Map.restrict p graph.pvh; + } + +(* [droph graph] is a new graph where all information concerning hardware + registers has been dropped. *) + +let droph graph = + mkdeg { + graph with + ivh = Vertex.Map.empty; + pvh = Vertex.Map.empty; + } + diff --git a/src/utilities/interference.mli b/src/utilities/interference.mli new file mode 100644 index 0000000..6e6c765 --- /dev/null +++ b/src/utilities/interference.mli @@ -0,0 +1,213 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module implements a data structure for interference graphs. + It provides functions that help construct, transform and inspect + interference graphs. *) + +(* Interference graphs record two kinds of edges: interference edges + (``these two vertices cannot receive the same color'') and + preference edges (``these two vertices should preferably receive + the same color''). Furthermore, each kind of edge can relate either + two pseudo-registers or one pseudo-register and one hardware + register. Thus, an interference graph keeps track of four kinds of + relationships. + + This module automatically maintains the invariant that two vertices + [x] and [y] cannot be related by both an interference edge and a + preference edge. When such a situation appears (for instance, + because of coalescing), the preference edge is automatically + removed. *) + +type graph + +(* The vertices of an interference graph initially correspond to + pseudo-registers. However, interference graphs support coalescing, + which means that a new graph can be constructed by coalescing two + vertices in an existing graph. As a result, in general, the vertices + of an interference graph correspond to sets of pseudo-registers. *) + +(* ------------------------------------------------------------------------- *) + +(* Operations over vertices: sets of vertices, maps over vertices. *) + +module Vertex : sig + + type t + + (* The usual operations on sets, see [Set.S] in Objective Caml's + documentation. *) + + module Set : Set.S with type elt = t + + (* The usual operations on maps, see [Map.S] in Objective Caml's + documentation. One slight difference is that [find] expects + the key to be present in the map -- it will fail otherwise. *) + + module Map : MyMap.S with type key = t + +end + +(* ------------------------------------------------------------------------- *) + +(* Building interference graphs. *) + +(* [create regs] creates an interference graph whose vertices are + the pseudo-registers [regs] and that does not have any edges. *) + +val create: Register.Set.t -> graph + +(* [mki graph regs1 regs2] adds interference edges between all pairs + of (pseudo- or hardware) registers [r1] and [r2], where [r1] ranges + over [regs1], [r2] ranges over [regs2], and [r1] and [r2] are + distinct. *) + +val mki: graph -> + Register.Set.t * I8051.RegisterSet.t -> + Register.Set.t * I8051.RegisterSet.t -> + graph + +(* [mkiph graph regs hwregs] adds interference edges between all pairs + of a pseudo-register [r] and a hardware register [hwr], where [r] + ranges over [regs] and [hwr] ranges over [hwregs]. *) + +val mkiph: graph -> Register.Set.t -> I8051.RegisterSet.t -> graph + +(* [mkppp graph r1 r2] adds a preference edge between the + pseudo-registers [r1] and [r2]. *) + +val mkppp: graph -> Register.t -> Register.t -> graph + +(* [mkpph graph r h] adds a preference edge between the + pseudo-register [r] and the hardware register [h]. *) + +val mkpph: graph -> Register.t -> I8051.register -> graph + +(* ------------------------------------------------------------------------- *) + +(* Transforming interference graphs. *) + +(* [coalesce graph v1 v2] is a new graph where the vertices [v1] and + [v2] are coalesced. [v1] and [v2] must not interfere. The new + coalesced vertex is known under the name [v2]. *) + +val coalesce: graph -> Vertex.t -> Vertex.t -> graph + +(* [coalesceh graph v h] coalesces the vertex [v] with the hardware register + [h]. This produces a new graph where [v] no longer exists and all edges + leading to [v] are replaced with edges leading to [h]. *) + +val coalesceh: graph -> Vertex.t -> I8051.register -> graph + +(* [remove graph v] is a new graph where vertex [v] is removed. *) + +val remove: graph -> Vertex.t -> graph + +(* [freeze graph x] is a new graph where all preference edges carried + by [x] are removed. *) + +val freeze: graph -> Vertex.t -> graph + +(* [restrict graph p] is a new graph where only those vertices that + satisfy predicate [p] are kept. *) + +val restrict: graph -> (Vertex.t -> bool) -> graph + +(* [droph graph] is a new graph where all information concerning hardware + registers has been dropped. *) + +val droph: graph -> graph + +(* ------------------------------------------------------------------------- *) + +(* Inspecting interference graphs. *) + +(* [lookup graph r] returns the graph vertex associated with + pseudo-register [r]. *) + +val lookup: graph -> Register.t -> Vertex.t + +(* Conversely, [registers graph v] returns the set of pseudo-registers + associated with vertex [v]. *) + +val registers: graph -> Vertex.t -> Register.Set.t + +(* [degree graph v] is the degree of the vertex [v], that is, the number + of vertices and hardware registers that [v] interferes with. *) + +val degree: graph -> Vertex.t -> int + +(* [lowest graph] returns [Some (v, d)], where the vertex [v] has + minimum degree [d], or returns [None] if the graph is empty. *) + +val lowest: graph -> (Vertex.t * int) option + +(* [lowest_non_move_related graph] returns [Some (v, d)], where the + vertex [v] has minimum degree [d] among the vertices that are not + move-related, or returns [None] if all vertices are move-related. A + vertex is move-related if it carries a preference edge. *) + +val lowest_non_move_related: graph -> (Vertex.t * int) option + +(* [minimum f graph] returns a vertex [v] such that the value of [f x] + is minimal. The values returned by [f] are compared using Objective + Caml's generic comparison operator [<]. If the graph is empty, + [None] is returned. *) + +val minimum: (Vertex.t -> 'a) -> graph -> Vertex.t option + +(* [fold f graph accu] folds over all vertices. *) + +val fold: (Vertex.t -> 'a -> 'a) -> graph -> 'a -> 'a + +(* [ipp graph v] is the set of vertices that the vertex [v] interferes + with. *) + +val ipp: graph -> Vertex.t -> Vertex.Set.t + +(* [iph graph v] is the set of hardware registers that the vertex [v] + interferes with. *) + +val iph: graph -> Vertex.t -> I8051.RegisterSet.t + +(* [ppp graph v] is the set of vertices that should preferably be + assigned the same color as the vertex [v]. *) + +val ppp: graph -> Vertex.t -> Vertex.Set.t + +(* [pph graph v] is the set of hardware registers that [v] should + preferably be assigned. *) + +val pph: graph -> Vertex.t -> I8051.RegisterSet.t + +(* [pppick graph p] returns an arbitrary preference edge that + satisfies the predicate [p], if the graph contains one. *) + +type ppedge = + Vertex.t * Vertex.t + +val pppick: graph -> (ppedge -> bool) -> ppedge option + +(* [phpick graph p] returns an arbitrary preference edge that + satisfies the predicate [p], if the graph contains one. *) + +type phedge = + Vertex.t * I8051.register + +val phpick: graph -> (phedge -> bool) -> phedge option + +(* ------------------------------------------------------------------------- *) + +(* Displaying interference graphs. *) + +(* [print_vertex graph v] produces a string representation of the + vertex [v]. *) + +val print_vertex: graph -> Vertex.t -> string + +(* [print f graph] prints a representation of the interference graph + [graph] in [dot] format to the output channel [f]. Interference + edges are drawn as plain lines; preference edges are drawn as + dotted lines. *) + +val print: out_channel -> graph -> unit + diff --git a/src/utilities/misc.ml b/src/utilities/misc.ml new file mode 100644 index 0000000..2fc3075 --- /dev/null +++ b/src/utilities/misc.ml @@ -0,0 +1,208 @@ +module LexingExt = struct + + open Lexing + + let new_line lexbuf = + lexbuf.lex_curr_p <- { + lexbuf.lex_curr_p with + pos_bol = 0; + pos_lnum = lexbuf.lex_curr_p.pos_lnum + 1 + } + + let lex_num s pos = + let rec num i = + if s.[i] >= '0' && s.[i] <= '9' then + num (i + 1) + else + i + in + let pos' = num pos in + if pos = pos' then + None + else + Some (pos, pos', int_of_string (String.sub s pos (pos' - pos))) + +end + +module ListExt = struct + + let inv_assoc l = List.map (fun (x, y) -> (y, x)) l + + exception EmptyList + + let last l = try List.hd (List.rev l) with _ -> raise EmptyList + + let cut_last l = + let rec aux l = function + | [] -> raise EmptyList + | [ x ] -> (x, List.rev l) + | x :: xs -> aux (x :: l) xs + in + aux [] l + + let multi_set_of_list l = + let h = Hashtbl.create 13 in + let incr_occ x = + let o = try Hashtbl.find h x with Not_found -> 0 in + Hashtbl.replace h x (o + 1) + in + List.iter incr_occ l; + Hashtbl.fold (fun k v accu -> (k, v) :: accu) h [] + + let hashtbl_of_assoc l = + let h = Hashtbl.create 13 in + List.iter (fun (k, v) -> Hashtbl.add h k v) l; + h + + exception Conflict + let assoc_union l1 l2 = + let h1 = hashtbl_of_assoc l1 in + l1 + @ List.filter + (fun (k, v1) -> + try + let v2 = Hashtbl.find h1 k in + if v1 <> v2 then raise Conflict; + false + with _ -> true) l2 + + let assoc_diff l1 l2 = + let h1 = hashtbl_of_assoc l1 in + let h2 = hashtbl_of_assoc l2 in + let diff h1 h2 f = + Hashtbl.fold + (fun k v1 accu -> + let v2 = + try Some (Hashtbl.find h2 k) + with Not_found -> None + in + if Some v1 <> v2 then + if f then + (k, (Some v1, v2)) :: accu + else + (k, (v2, Some v1)) :: accu + else + accu) + h1 [] + in + let d1 = diff h1 h2 true in + let d2 = diff h2 h1 false in + try assoc_union d1 d2 + with Conflict -> assert false + + let transitive_forall2 p l = + let rec aux = function + | [] -> None + | [x] -> None + | x1 :: ((x2 :: _) as xs) -> + if not (p x1 x2) then Some (x1, x2) else aux xs + in + aux l + + let repeat init n f = + let rec aux accu vs i = + if i = 0 then (accu, vs) else + let (accu, v) = f accu i in + aux accu (v :: vs) (pred i) + in + assert (n >= 0); + aux init [] n + +end + +module ArgExt = struct + + let extra_doc s = "", Arg.Unit ignore, s + +end + +module SysExt = struct + + let safe_remove name = + try Sys.remove name with Sys_error _ -> () + + let rec alternative name = + let split name = + match LexingExt.lex_num name 0 with + | None -> None + | Some (start, stop, num) -> + let len = String.length name in + Some (num, String.sub name (stop+1) (len - stop - 1)) + in + if not (Sys.file_exists name) then + name + else + let dirname = Filename.dirname name in + let filename = Filename.basename name in + let filename = + match split filename with + | None -> + "01-" ^ filename + | Some (i, name) -> + Printf.sprintf "%02d-%s" (i + 1) name + in + alternative (Filename.concat dirname filename) + +end + +module IOExt = struct + + let stdout_buffer = Buffer.create 13 + let stdout_formatter = Format.formatter_of_buffer stdout_buffer + let stderr_buffer = Buffer.create 13 + let stderr_formatter = Format.formatter_of_buffer stderr_buffer + let enable_buffering = ref false + + let printf fmt = + if !enable_buffering then + Format.fprintf stdout_formatter fmt + else + Format.printf fmt + + let eprintf fmt = + if !enable_buffering then + Format.fprintf stderr_formatter fmt + else + Format.eprintf fmt + + let get_buffers () = + let out = + (Buffer.contents stdout_buffer, Buffer.contents stderr_buffer) + in + Buffer.clear stdout_buffer; + Buffer.clear stderr_buffer; + out + + let set_buffered_mode () = + enable_buffering := true + +end + +module Timed = struct + + let time now print_date f = + fun x -> + let start_date = now () in + let y = f x in + let stop_date = now () in + print_date start_date stop_date; + y + + let get_now = ref (fun () -> 0.) + + let set_now now = get_now := now + + let enable_profiling = ref false + + let set_profiling_flag t = enable_profiling := t + + let profile title f = + let print_date start stop = + IOExt.eprintf "[%05.0fms] %s\n" (stop -. start) title + in + if !enable_profiling then + time !get_now print_date f + else + f + +end diff --git a/src/utilities/misc.mli b/src/utilities/misc.mli new file mode 100644 index 0000000..a3b41b8 --- /dev/null +++ b/src/utilities/misc.mli @@ -0,0 +1,96 @@ +(** This module extends the standard library of Objective Caml. *) + +module LexingExt : sig + + (** [new_line lexbuf] update lexbuf to increment its line + counter. *) + val new_line : Lexing.lexbuf -> unit + + val lex_num : string -> int -> (int * int * int) option + +end + +module ListExt : sig + + (** [inv_assoc l] inverses a bijective associative list [l]. *) + val inv_assoc : ('a * 'b) list -> ('b * 'a) list + + exception EmptyList + + (** [last l] returns the last element of a list. + Raise [EmptyList] if there is no such thing in [l]. *) + val last : 'a list -> 'a + + (** [cut_last l] returns the last element of a list [l] and the + elements that come before it in [l]. + Raise [EmptyList] if there is no such thing in [l]. *) + val cut_last : 'a list -> 'a * 'a list + + (** [multi_set_of_list l] returns an associative list that + relates every element of [l] to its frequency in [l]. *) + val multi_set_of_list : 'a list -> ('a * int) list + + (** [hashtbl_of_assoc l] converts an associative list into + an hash table. *) + val hashtbl_of_assoc : ('a * 'b) list -> ('a, 'b) Hashtbl.t + + (** [assoc_diff l1 l2] returns the difference between two + associative lists. *) + val assoc_diff : ('a * 'b) list -> ('a * 'b) list + -> ('a * ('b option * 'b option)) list + + (** [transitive_forall2 p l] checks that the binary predicate [p] is + true between each successive elements of [l]. If this is false, + the function returns the first pair of elements that falsify [p]. *) + val transitive_forall2 : ('a -> 'a -> bool) -> 'a list -> ('a * 'a) option + + (** [repeat init n f] computes [f 0; ...; f n] threading an + accumulator along the way from [n] to [0]. *) + val repeat : 'b -> int -> ('b -> int -> 'b * 'a) -> 'b * 'a list + +end + +module ArgExt : sig + + (** [extra_doc s] adds an extra line of documentation for an + Arg.spec row. *) + val extra_doc : string -> (Arg.key * Arg.spec * Arg.doc) + +end + +module SysExt : sig + + (** [safe_remove filename] deletes a file named [filename], + but do not crash if a system error happens. (For instance, + if the file does not exist.) *) + val safe_remove : string -> unit + + (** [alternative filename] finds an alternative name different + from [filename] that is not already used. *) + val alternative : string -> string + +end + +module IOExt : sig + + (** Buffered printf-based IO. *) + val printf : ('a, Format.formatter, unit) Pervasives.format -> 'a + val eprintf : ('a, Format.formatter, unit) Pervasives.format -> 'a + val set_buffered_mode : unit -> unit + val get_buffers : unit -> string * string + +end + +module Timed : sig + + val time : + (unit -> 'date) -> ('date -> 'date -> unit) + -> ('a -> 'b) -> ('a -> 'b) + + val set_now : (unit -> float) -> unit + + val set_profiling_flag : bool -> unit + + val profile : string -> ('a -> 'b) -> 'a -> 'b + +end diff --git a/src/utilities/miscPottier.ml b/src/utilities/miscPottier.ml new file mode 100644 index 0000000..e5ebe91 --- /dev/null +++ b/src/utilities/miscPottier.ml @@ -0,0 +1,160 @@ + +let rec map3 f al bl cl = + let f' ((a, b), c) = f a b c in + List.map f' (List.combine (List.combine al bl) cl) + +let rec max_list = function + | [] -> raise (Invalid_argument "MiscPottier.max_list") + | [a] -> a + | a :: l -> max a (max_list l) + +let rec reduce l1 l2 = match l1, l2 with + | [], _ -> (([], []), ([], l2)) + | _, [] -> (([], l1), ([], [])) + | a :: l1, b :: l2 -> + let ((common1, rest1), (common2, rest2)) = reduce l1 l2 in + ((a :: common1, rest1), (b :: common2, rest2)) + +let pow a b = + if b < 0 then raise (Invalid_argument "MiscPottier.pow2") + else + let rec aux = function + | 0 -> 1 + | i -> a * aux (i-1) in + aux b + +let rec make a n = + if n = 0 then [] + else a :: (make a (n-1)) + +let index_of x = + let rec aux i = function + | [] -> raise Not_found + | y :: l -> if y = x then i else aux (i+1) l + in + aux 0 + +let rec remove_n_first n = + let rec aux i = function + | [] -> [] + | l when i = n -> l + | _ :: l -> aux (i+1) l in + aux 0 + +let foldi_from_until n m f a l = + let rec aux i res = function + | [] -> res + | _ when i >= m -> res + | e :: l -> aux (i+1) (f i res e) l in + aux 0 a (remove_n_first n l) + +let foldi_from n f a l = foldi_from_until n (List.length l) f a l + +let foldi_until m f a l = foldi_from_until 0 m f a l + +let foldi f a l = foldi_from_until 0 (List.length l) f a l + +let pos e l = + let f i res e' = if e' = e then Some i else res in + match foldi f None l with + | None -> raise Not_found + | Some i -> i + +let iteri f l = + let rec aux i = function + | [] -> () + | e :: l -> f i e ; aux (i+1) l + in + aux 0 l + +let mapi f l = + let rec aux i = function + | [] -> [] + | e :: l -> (f i e) :: (aux (i+1) l) + in + aux 0 l + +let rec last = function + | [] -> raise Not_found + | [a] -> a + | _ :: l -> last l + +(* [split a i] splits the list a in two lists: one with the elements + up until the [i]th (exclusive) and one with the rest. *) + +let rec split l i = + if i = 0 then ([], l) + else + let (l1, l2) = split (List.tl l) (i-1) in + ((List.hd l) :: l1, l2) + +(* [split_last l] returns the list [l] without its last element and its last + element. Raises Invalid_argument "MiscPottier.split_last" if the list is + empty. *) + +let split_last l = match split l ((List.length l) - 1) with + | l', last :: _ -> (l', last) + | _ -> raise (Invalid_argument "MiscPottier.split_last") + +let rec update_list_assoc a b = function + | [] -> [] + | (a', b') :: l -> + if a' = a then (a, b) :: l else (a', b') :: (update_list_assoc a b l) + +(* Pasted from Pottier's PP compiler *) + +let rec combine xs1 xs2 = + match xs1, xs2 with + | [], _ + | _, [] -> + [] + | x1 :: xs1, x2 :: xs2 -> + (x1, x2) :: combine xs1 xs2 + +let rec subtract xs1 xs2 = + match xs1, xs2 with + | [], _ -> + [] + | _, [] -> + xs1 + | _ :: xs1, _ :: xs2 -> + subtract xs1 xs2 + +let mirror l = + List.map (fun (x, y) -> (y, x)) l + +let length l = + Int32.of_int (List.length l) + +let rec prefix k l = + match k, l with + | 0, _ + | _, [] -> + [] + | _, x :: xs -> + x :: prefix (k - 1) xs + +let memoize f = + let table = Hashtbl.create 131 in + fun key -> + try + Hashtbl.find table key + with Not_found -> + let data = f key in + Hashtbl.add table key data; + data + +let filter_map filter map = + let rec aux = function + | [] -> [] + | e :: l -> (if filter e then [map e] else []) @ (aux l) + in + aux + +let string_of_list sep f = + let rec aux = function + | [] -> "" + | [e] -> f e + | e :: l -> (f e) ^ sep ^ (aux l) + in + aux diff --git a/src/utilities/miscPottier.mli b/src/utilities/miscPottier.mli new file mode 100644 index 0000000..55f6cec --- /dev/null +++ b/src/utilities/miscPottier.mli @@ -0,0 +1,85 @@ + +(** This module provides some additional functions on lists or arithmetics. *) + +(* raises Not_found *) +val pos : 'a -> 'a list -> int + +val reduce : 'a list -> 'b list -> ('a list * 'a list) * ('b list * 'b list) + +(* raise Failure "MiscPottier.map3" if the list arguments are not of the same + size. *) +val map3 : ('a -> 'b -> 'c -> 'd) -> 'a list -> 'b list -> 'c list -> 'd list + +val max_list : 'a list -> 'a + +val pow : int -> int -> int + +val make: 'a -> int -> 'a list + +val index_of : 'a -> 'a list -> int + +val foldi_until : int -> (int -> 'a -> 'b -> 'a) -> 'a -> 'b list -> 'a + +val foldi : (int -> 'a -> 'b -> 'a) -> 'a -> 'b list -> 'a + +val iteri : (int -> 'a -> unit) -> 'a list -> unit + +val mapi : (int -> 'a -> 'b) -> 'a list -> 'b list + +(* Raises Not_found if the list is empty. *) +val last : 'a list -> 'a + +(* [split l i] splits the list [l] in two lists: one with the elements + up until the [i]th (exclusive) and one with the rest. *) +val split: 'a list -> int -> ('a list * 'a list) + +(* [split_last l] returns the list [l] without its last element and its last + element. Raises Invalid_argument "MiscPottier.split_last" if the list is + empty. *) +val split_last : 'a list -> ('a list * 'a) + +val update_list_assoc: 'a -> 'b -> ('a * 'b) list -> ('a * 'b) list + +(* Pasted from Pottier's PP compiler *) + +(* [combine] turns a pair of lists into a list of pairs. It never + fails: the length of the output list is the minimum of the lengths + of the input lists. *) + +val combine: 'a list -> 'b list -> ('a * 'b) list + +(* [subtract xs1 xs2] returns the list [xs1] deprived of as many + elements as there are in the list [xs2]. *) + +val subtract: 'a list -> 'b list -> 'a list + +(* [mirror] reverses the order of the pair components in a list + of pairs. *) + +val mirror: ('a * 'b) list -> ('b * 'a) list + +(* [length l] is the length of the list [l]. *) + +val length: 'a list -> int32 + +(* [prefix k xs] returns the prefix of length [k] of the list [xs]. + If [xs] has length less than [k], [xs] is returned. *) + +val prefix: int -> 'a list -> 'a list + +(* [memoize f] produces a memoizing version of the function [f]. + It requires the domain of [f] to support generic equality. *) + +val memoize: ('a -> 'b) -> ('a -> 'b) + +(* [filter_map filter map l] returns the list [l] where elements satisfying the + [filter] function have been replaced by their application to the [map] + function. Elements that do not satisfy [filter] are not in the result + list. *) + +val filter_map: ('a -> bool) -> ('a -> 'b) -> 'a list -> 'b list + +(* [string_of_list sep f l] returns the string obtained by applying [f] to each + element of [l] and separating their output with [sep]. *) + +val string_of_list: string -> ('a -> string) -> 'a list -> string diff --git a/src/utilities/myMap.ml b/src/utilities/myMap.ml new file mode 100644 index 0000000..b6bb364 --- /dev/null +++ b/src/utilities/myMap.ml @@ -0,0 +1,372 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU Library General Public License, with *) +(* the special exception on linking described in file ../LICENSE. *) +(* *) +(***********************************************************************) + +(* $Id: myMap.ml,v 1.3 2006/02/17 16:19:52 pottier Exp $ *) + +module type OrderedType = + sig + type t + val compare: t -> t -> int + end + +module type S = + sig + type key + type +'a t + val empty: 'a t + val is_empty: 'a t -> bool + val add: key -> 'a -> 'a t -> 'a t + val find: key -> 'a t -> 'a + val remove: key -> 'a t -> 'a t + val mem: key -> 'a t -> bool + val iter: (key -> 'a -> unit) -> 'a t -> unit + val map: ('a -> 'b) -> 'a t -> 'b t + val mapi: (key -> 'a -> 'b) -> 'a t -> 'b t + val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b + val compare: ('a -> 'a -> int) -> 'a t -> 'a t -> int + val equal: ('a -> 'a -> bool) -> 'a t -> 'a t -> bool + type interval = key option * key option + val split: interval -> 'a t -> 'a t + val minimum: 'a t -> key * 'a + val find_remove: key -> 'a t -> 'a * 'a t + val update: key -> ('a -> 'a) -> 'a t -> 'a t + val restrict: (key -> bool) -> 'a t -> 'a t + end + +module Make(Ord: OrderedType) = struct + + type key = Ord.t + + type 'a t = + Empty + | Node of 'a t * key * 'a * 'a t * int + + let height = function + Empty -> 0 + | Node(_,_,_,_,h) -> h + + let create l x d r = + let hl = height l and hr = height r in + Node(l, x, d, r, (if hl >= hr then hl + 1 else hr + 1)) + + let bal l x d r = + let hl = match l with Empty -> 0 | Node(_,_,_,_,h) -> h in + let hr = match r with Empty -> 0 | Node(_,_,_,_,h) -> h in + if hl > hr + 2 then begin + match l with + Empty -> invalid_arg "Map.bal" + | Node(ll, lv, ld, lr, _) -> + if height ll >= height lr then + create ll lv ld (create lr x d r) + else begin + match lr with + Empty -> invalid_arg "Map.bal" + | Node(lrl, lrv, lrd, lrr, _)-> + create (create ll lv ld lrl) lrv lrd (create lrr x d r) + end + end else if hr > hl + 2 then begin + match r with + Empty -> invalid_arg "Map.bal" + | Node(rl, rv, rd, rr, _) -> + if height rr >= height rl then + create (create l x d rl) rv rd rr + else begin + match rl with + Empty -> invalid_arg "Map.bal" + | Node(rll, rlv, rld, rlr, _) -> + create (create l x d rll) rlv rld (create rlr rv rd rr) + end + end else + Node(l, x, d, r, (if hl >= hr then hl + 1 else hr + 1)) + + let empty = Empty + + let is_empty = function Empty -> true | _ -> false + + let rec add x data = function + Empty -> + Node(Empty, x, data, Empty, 1) + | Node(l, v, d, r, h) -> + let c = Ord.compare x v in + if c = 0 then + Node(l, x, data, r, h) + else if c < 0 then + bal (add x data l) v d r + else + bal l v d (add x data r) + + (* Same as create and bal, but no assumptions are made on the + relative heights of l and r. *) + + let rec join l v d r = + match (l, r) with + (Empty, _) -> add v d r + | (_, Empty) -> add v d l + | (Node(ll, lv, ld, lr, lh), Node(rl, rv, rd, rr, rh)) -> + if lh > rh + 2 then bal ll lv ld (join lr v d r) else + if rh > lh + 2 then bal (join l v d rl) rv rd rr else + create l v d r + + let rec find x = function + Empty -> + raise Not_found + | Node(l, v, d, r, _) -> + let c = Ord.compare x v in + if c = 0 then d + else find x (if c < 0 then l else r) + + let rec mem x = function + Empty -> + false + | Node(l, v, d, r, _) -> + let c = Ord.compare x v in + c = 0 || mem x (if c < 0 then l else r) + + let rec min_binding = function + Empty -> raise Not_found + | Node(Empty, x, d, r, _) -> (x, d) + | Node(l, x, d, r, _) -> min_binding l + + let rec remove_min_binding = function + Empty -> invalid_arg "Map.remove_min_elt" + | Node(Empty, x, d, r, _) -> r + | Node(l, x, d, r, _) -> bal (remove_min_binding l) x d r + + let merge t1 t2 = + match (t1, t2) with + (Empty, t) -> t + | (t, Empty) -> t + | (_, _) -> + let (x, d) = min_binding t2 in + bal t1 x d (remove_min_binding t2) + + let rec remove x = function + Empty -> + Empty + | Node(l, v, d, r, h) -> + let c = Ord.compare x v in + if c = 0 then + merge l r + else if c < 0 then + bal (remove x l) v d r + else + bal l v d (remove x r) + + let rec iter f = function + Empty -> () + | Node(l, v, d, r, _) -> + iter f l; f v d; iter f r + + let rec map f = function + Empty -> Empty + | Node(l, v, d, r, h) -> Node(map f l, v, f d, map f r, h) + + let rec mapi f = function + Empty -> Empty + | Node(l, v, d, r, h) -> Node(mapi f l, v, f v d, mapi f r, h) + + let rec fold f m accu = + match m with + Empty -> accu + | Node(l, v, d, r, _) -> + fold f r (f v d (fold f l accu)) + + type 'a enumeration = End | More of key * 'a * 'a t * 'a enumeration + + let rec cons_enum m e = + match m with + Empty -> e + | Node(l, v, d, r, _) -> cons_enum l (More(v, d, r, e)) + + let compare cmp m1 m2 = + let rec compare_aux e1 e2 = + match (e1, e2) with + (End, End) -> 0 + | (End, _) -> -1 + | (_, End) -> 1 + | (More(v1, d1, r1, e1), More(v2, d2, r2, e2)) -> + let c = Ord.compare v1 v2 in + if c <> 0 then c else + let c = cmp d1 d2 in + if c <> 0 then c else + compare_aux (cons_enum r1 e1) (cons_enum r2 e2) + in compare_aux (cons_enum m1 End) (cons_enum m2 End) + + let equal cmp m1 m2 = + let rec equal_aux e1 e2 = + match (e1, e2) with + (End, End) -> true + | (End, _) -> false + | (_, End) -> false + | (More(v1, d1, r1, e1), More(v2, d2, r2, e2)) -> + Ord.compare v1 v2 = 0 && cmp d1 d2 && + equal_aux (cons_enum r1 e1) (cons_enum r2 e2) + in equal_aux (cons_enum m1 End) (cons_enum m2 End) + + (* Intervals for splitting. An interval consists of a lower bound + and an upper bound, each of which can be absent. A key is + considered to lie within the interval if it is both greater than + (or equal to) the lower bound (if present) and less than (or + equal to) the upper bound (if present). *) + + type interval = + key option * key option + + (* Splitting. split interval m returns a new map consisting of + all bindings in m whose keys are within interval. *) + + let rec split ((lo, hi) as interval) = function + Empty -> + Empty + | Node(l, v, d, r, _) -> + let clo = Ord.compare v lo in + if clo < 0 then + (* v < lo *) + split interval r + else if clo = 0 then + (* v = lo *) + add v d (splithi hi r) + else + (* v > lo *) + let chi = Ord.compare v hi in + if chi < 0 then + (* v < hi *) + join (splitlo lo l) v d (splithi hi r) + else if chi = 0 then + (* v = hi *) + add v d (splitlo lo l) + else + (* v > hi *) + split interval l + + and splitlo lo = function + Empty -> + Empty + | Node(l, v, d, r, _) -> + let c = Ord.compare v lo in + if c < 0 then + (* v < lo *) + splitlo lo r + else if c = 0 then + (* v = lo *) + add v d r + else + (* v > lo *) + join (splitlo lo l) v d r + + and splithi hi = function + Empty -> + Empty + | Node(l, v, d, r, _) -> + let c = Ord.compare v hi in + if c < 0 then + (* v < hi *) + join l v d (splithi hi r) + else if c = 0 then + (* v = hi *) + add v d l + else + (* v > hi *) + splithi hi l + + (* Splitting. This is the public entry point. *) + + let split interval m = + match interval with + | None, None -> + m + | Some lo, None -> + splitlo lo m + | None, Some hi -> + splithi hi m + | Some lo, Some hi -> + split (lo, hi) m + + (* Finding the minimum key in a map. *) + + let rec minimum key data m = + match m with + | Empty -> + (key, data) + | Node (l, k, d, _, _) -> + minimum k d l + + let minimum = function + | Empty -> + raise Not_found + | Node (l, k, d, _, _) -> + minimum k d l + + (* Finding an element and removing it in one single traversal. *) + + let find_remove x m = + let data = ref None in + let rec remove = function + | Empty -> + raise Not_found + | Node(l, v, d, r, h) -> + let c = Ord.compare x v in + if c = 0 then begin + data := Some d; + merge l r + end + else if c < 0 then + bal (remove l) v d r + else + bal l v d (remove r) + in + let m = remove m in + match !data with + | None -> + assert false + | Some d -> + d, m + + (* Updating the data associated with an element in one single traversal. *) + + exception Unmodified + + let rec update x f m = + let rec update = function + | Empty -> + assert false + | Node(l, v, d, r, h) -> + let c = Ord.compare x v in + if c = 0 then + let d' = f d in + if d == d' then + raise Unmodified + else + Node (l, v, d', r, h) + else if c < 0 then + Node (update l, v, d, r, h) + else + Node (l, v, d, update r, h) + in + try + update m + with Unmodified -> + m + + (* Restricting the domain of a map. *) + + let restrict p m = + fold (fun x d m -> + if p x then + add x d m + else + m + ) m empty + + +end diff --git a/src/utilities/myMap.mli b/src/utilities/myMap.mli new file mode 100644 index 0000000..578bbc4 --- /dev/null +++ b/src/utilities/myMap.mli @@ -0,0 +1,143 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the GNU Library General Public License, with *) +(* the special exception on linking described in file ../LICENSE. *) +(* *) +(***********************************************************************) + +(* $Id: myMap.mli,v 1.3 2006/02/17 16:19:52 pottier Exp $ *) + +(** Association tables over ordered types. + + This module implements applicative association tables, also known as + finite maps or dictionaries, given a total ordering function + over the keys. + All operations over maps are purely applicative (no side-effects). + The implementation uses balanced binary trees, and therefore searching + and insertion take time logarithmic in the size of the map. +*) + +module type OrderedType = + sig + type t + (** The type of the map keys. *) + val compare : t -> t -> int + (** A total ordering function over the keys. + This is a two-argument function [f] such that + [f e1 e2] is zero if the keys [e1] and [e2] are equal, + [f e1 e2] is strictly negative if [e1] is smaller than [e2], + and [f e1 e2] is strictly positive if [e1] is greater than [e2]. + Example: a suitable ordering function is the generic structural + comparison function {!Pervasives.compare}. *) + end +(** Input signature of the functor {!Map.Make}. *) + +module type S = + sig + type key + (** The type of the map keys. *) + + type (+'a) t + (** The type of maps from type [key] to type ['a]. *) + + val empty: 'a t + (** The empty map. *) + + val is_empty: 'a t -> bool + (** Test whether a map is empty or not. *) + + val add: key -> 'a -> 'a t -> 'a t + (** [add x y m] returns a map containing the same bindings as + [m], plus a binding of [x] to [y]. If [x] was already bound + in [m], its previous binding disappears. *) + + val find: key -> 'a t -> 'a + (** [find x m] returns the current binding of [x] in [m], + or raises [Not_found] if no such binding exists. *) + + val remove: key -> 'a t -> 'a t + (** [remove x m] returns a map containing the same bindings as + [m], except for [x] which is unbound in the returned map. *) + + val mem: key -> 'a t -> bool + (** [mem x m] returns [true] if [m] contains a binding for [x], + and [false] otherwise. *) + + val iter: (key -> 'a -> unit) -> 'a t -> unit + (** [iter f m] applies [f] to all bindings in map [m]. + [f] receives the key as first argument, and the associated value + as second argument. The bindings are passed to [f] in increasing + order with respect to the ordering over the type of the keys. + Only current bindings are presented to [f]: + bindings hidden by more recent bindings are not passed to [f]. *) + + val map: ('a -> 'b) -> 'a t -> 'b t + (** [map f m] returns a map with same domain as [m], where the + associated value [a] of all bindings of [m] has been + replaced by the result of the application of [f] to [a]. + The bindings are passed to [f] in increasing order + with respect to the ordering over the type of the keys. *) + + val mapi: (key -> 'a -> 'b) -> 'a t -> 'b t + (** Same as {!Map.S.map}, but the function receives as arguments both the + key and the associated value for each binding of the map. *) + + val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b + (** [fold f m a] computes [(f kN dN ... (f k1 d1 a)...)], + where [k1 ... kN] are the keys of all bindings in [m] + (in increasing order), and [d1 ... dN] are the associated data. *) + + val compare: ('a -> 'a -> int) -> 'a t -> 'a t -> int + (** Total ordering between maps. The first argument is a total ordering + used to compare data associated with equal keys in the two maps. *) + + val equal: ('a -> 'a -> bool) -> 'a t -> 'a t -> bool + (** [equal cmp m1 m2] tests whether the maps [m1] and [m2] are + equal, that is, contain equal keys and associate them with + equal data. [cmp] is the equality predicate used to compare + the data associated with the keys. *) + + type interval = + key option * key option + (** A type of key intervals. An interval consists of a lower bound + and an upper bound, each of which can be absent. A key is + considered to lie within the interval if it is both greater than + (or equal to) the lower bound (if present) and less than (or + equal to) the upper bound (if present). *) + + val split: interval -> 'a t -> 'a t + (* [split interval m] is a map that consists of all bindings in [m] + whose keys lie within [interval]. *) + + val minimum: 'a t -> key * 'a + (* [minimum m] returns the binding that corresponds to the minimum + (smallest) key within the map [m]. If [m] is empty, [Not_found] + is raised. *) + + val find_remove: key -> 'a t -> 'a * 'a t + (** [find_remove x m] returns a pair of the current binding of [x] + in [m], and a map containing the same bindings as [m], except + for [x] which is unbound in the returned map. [Not_found] is + raised if no binding for [x] exists. *) + + val update: key -> ('a -> 'a) -> 'a t -> 'a t + (** If [m] maps [x] to [d], then [update x f m] maps [x] to [f d] + and coincides with [m] elsewhere. A binding for [x] in [m] + must exist. *) + + val restrict: (key -> bool) -> 'a t -> 'a t + (** [restrict p m] is the restriction of the map [m] to only + the keys that satisfy predicate [p]. *) + + end +(** Output signature of the functor {!Map.Make}. *) + +module Make (Ord : OrderedType) : S with type key = Ord.t +(** Functor building an implementation of the map structure + given a totally ordered type. *) diff --git a/src/utilities/option.ml b/src/utilities/option.ml new file mode 100644 index 0000000..6cf7a83 --- /dev/null +++ b/src/utilities/option.ml @@ -0,0 +1,27 @@ +(* Pasted from Pottier's PP compiler *) + +let map f = function + | None -> + None + | Some x -> + Some (f x) + +let iter f = function + | None -> + () + | Some x -> + f x + +let fold f o accu = + match o with + | None -> + accu + | Some x -> + f x accu + +let print printer () = function + | None -> + "" + | Some x -> + printer () x + diff --git a/src/utilities/option.mli b/src/utilities/option.mli new file mode 100644 index 0000000..cbbe7b1 --- /dev/null +++ b/src/utilities/option.mli @@ -0,0 +1,12 @@ + +(** This module provides some functions to manipulate values of type + [option]. *) + +(* Pasted from Pottier's PP compiler *) + +open PrintPottier + +val map: ('a -> 'b) -> 'a option -> 'b option +val iter: ('a -> unit) -> 'a option -> unit +val fold: ('a -> 'b -> 'b) -> 'a option -> 'b -> 'b +val print: 'a printer -> 'a option printer diff --git a/src/utilities/optionsParsing.ml b/src/utilities/optionsParsing.ml new file mode 100644 index 0000000..9f46bc4 --- /dev/null +++ b/src/utilities/optionsParsing.ml @@ -0,0 +1,16 @@ +let options = ref [] + +let register o = + options := o @ !options + +let results () = + let usage_msg = + "Usage: " + ^ (Filename.basename Sys.executable_name) + ^ " [options] file..." + in + let extra_arguments = ref [] in + Arg.parse (Arg.align !options) + (fun s -> extra_arguments := s :: !extra_arguments) + usage_msg; + !extra_arguments diff --git a/src/utilities/position.ml b/src/utilities/position.ml new file mode 100644 index 0000000..228466e --- /dev/null +++ b/src/utilities/position.ml @@ -0,0 +1,134 @@ +open Lexing + +type t = + { + start_p : Lexing.position; + end_p : Lexing.position + } + +type position = t + +type 'a located = + { + value : 'a; + position : t; + } + +let value { value = v } = + v + +let position { position = p } = + p + +let destruct p = + (p.value, p.position) + +let with_pos p v = + { + value = v; + position = p; + } + +let with_poss p1 p2 v = + with_pos { start_p = p1; end_p = p2 } v + +let map f v = + { + value = f v.value; + position = v.position; + } + +let iter f { value = v } = + f v + +let mapd f v = + let w1, w2 = f v.value in + let pos = v.position in + ({ value = w1; position = pos }, { value = w2; position = pos }) + +let dummy = + { + start_p = Lexing.dummy_pos; + end_p = Lexing.dummy_pos + } + +let unknown_pos v = + { + value = v; + position = dummy + } + +let start_of_position p = p.start_p + +let end_of_position p = p.end_p + +let filename_of_position p = + p.start_p.Lexing.pos_fname + +let line p = + p.pos_lnum + +let column p = + p.pos_cnum - p.pos_bol + +let characters p1 p2 = + (column p1, p2.pos_cnum - p1.pos_bol) (* intentionally [p1.pos_bol] *) + +let join x1 x2 = + { + start_p = if x1 = dummy then x2.start_p else x1.start_p; + end_p = if x2 = dummy then x1.end_p else x2.end_p + } + +let lex_join x1 x2 = + { + start_p = x1; + end_p = x2 + } + +let join_located l1 l2 f = + { + value = f l1.value l2.value; + position = join l1.position l2.position; + } + +let string_of_lex_pos p = + let c = p.pos_cnum - p.pos_bol in + (string_of_int p.pos_lnum)^":"^(string_of_int c) + +let string_of_pos p = + let filename = filename_of_position p in + let l = line p.start_p in + let c1, c2 = characters p.start_p p.end_p in + if filename = "" then + Printf.sprintf "Line %d, characters %d-%d" l c1 c2 + else + Printf.sprintf "File \"%s\", line %d, characters %d-%d" filename l c1 c2 + +let pos_or_undef = function + | None -> dummy + | Some x -> x + +let cpos lexbuf = + { + start_p = Lexing.lexeme_start_p lexbuf; + end_p = Lexing.lexeme_end_p lexbuf; + } + +let with_cpos lexbuf v = + with_pos (cpos lexbuf) v + +let string_of_cpos lexbuf = + string_of_pos (cpos lexbuf) + +let joinf f t1 t2 = + join (f t1) (f t2) + +let ljoinf f = + List.fold_left (fun p t -> join p (f t)) dummy + +let join_located_list ls f = + { + value = f (List.map (fun l -> l.value) ls); + position = ljoinf (fun x -> x.position) ls + } diff --git a/src/utilities/position.mli b/src/utilities/position.mli new file mode 100644 index 0000000..ddb18d2 --- /dev/null +++ b/src/utilities/position.mli @@ -0,0 +1,106 @@ +(** Extension of standard library's positions. *) + +(** {2 Extended lexing positions} *) + +(** Abstract type for pairs of positions in the lexing stream. *) +type t +type position = t + +(** Decoration of a value with a position. *) +type 'a located = + { + value : 'a; + position : t; + } + +(** [value dv] returns the raw value that underlies the + decorated value [dv]. *) +val value: 'a located -> 'a + +(** [position dv] returns the position that decorates the + decorated value [dv]. *) +val position: 'a located -> t + +(** [destruct dv] returns the couple of position and value + of a decorated value [dv]. *) +val destruct: 'a located -> 'a * t + +(** [with_pos p v] decorates [v] with a position [p]. *) +val with_pos : t -> 'a -> 'a located + +(** [with_cpos p v] decorates [v] with a lexical position [p]. *) +val with_cpos: Lexing.lexbuf -> 'a -> 'a located + +(** [with_poss start stop v] decorates [v] with a position [(start, stop)]. *) +val with_poss : Lexing.position -> Lexing.position -> 'a -> 'a located + +(** [unknown_pos x] decorates [v] with an unknown position. *) +val unknown_pos : 'a -> 'a located + +(** This value is used when an object does not come from a particular + input location. *) +val dummy: t + +(** [map f v] extends the decoration from [v] to [f v]. *) +val map: ('a -> 'b) -> 'a located -> 'b located + +(** [iter f dv] applies [f] to the value inside [dv]. *) +val iter: ('a -> unit) -> 'a located -> unit + +(** [mapd f v] extends the decoration from [v] to both members of the pair + [f v]. *) +val mapd: ('a -> 'b1 * 'b2) -> 'a located -> 'b1 located * 'b2 located + +(** {2 Accessors} *) + +(** [column p] returns the number of characters from the + beginning of the line of the Lexing.position [p]. *) +val column : Lexing.position -> int + +(** [column p] returns the line number of to the Lexing.position [p]. *) +val line : Lexing.position -> int + +(** [characters p1 p2] returns the character interval + between [p1] and [p2] assuming they are located in the same + line. *) +val characters : Lexing.position -> Lexing.position -> int * int + +(** [start_of_position p] returns the beginning of a position [p]. *) +val start_of_position: t -> Lexing.position + +(** [end_of_position p] returns the end of a position [p]. *) +val end_of_position: t -> Lexing.position + +(** [filename_of_position p] returns the filename of a position [p]. *) +val filename_of_position: t -> string + +(** {2 Position handling} *) + +(** [join p1 p2] returns a position that starts where [p1] + starts and stops where [p2] stops. *) +val join : t -> t -> t + +(** [lex_join l1 l2] returns a position that starts at [l1] and stops + at [l2]. *) +val lex_join : Lexing.position -> Lexing.position -> t + +(** [string_of_lex_pos p] returns a string representation for + the lexing position [p]. *) +val string_of_lex_pos : Lexing.position -> string + +(** [string_of_pos p] returns the standard (Emacs-like) representation + of the position [p]. *) +val string_of_pos : t -> string + +(** [pos_or_undef po] is the identity function except if po = None, + in that case, it returns [undefined_position]. *) +val pos_or_undef : t option -> t + +(** {2 Interaction with the lexer runtime} *) + +(** [cpos lexbuf] returns the current position of the lexer. *) +val cpos : Lexing.lexbuf -> t + +(** [string_of_cpos p] returns a string representation of + the lexer's current position. *) +val string_of_cpos : Lexing.lexbuf -> string diff --git a/src/utilities/print.ml b/src/utilities/print.ml new file mode 100644 index 0000000..a7303d3 --- /dev/null +++ b/src/utilities/print.ml @@ -0,0 +1,172 @@ +(* Pasted from Pottier's PP compiler *) + +open Printf + +type punctuation = + unit -> string + +type 'a printer = + unit -> 'a -> string + +(* ------------------------------------------------------------------------- *) + +(* Newlines and indentation. *) + +let maxindent = + 120 + +let whitespace = + String.make maxindent ' ' + +let indentation = + ref 0 + +let nl () = + "\n" ^ String.sub whitespace 0 !indentation + +let indent ofs producer () x = + let old_indentation = !indentation in + let new_indentation = old_indentation + ofs in + if new_indentation <= maxindent then + indentation := new_indentation; + let result = sprintf "%t%a" nl producer x in + indentation := old_indentation; + result + +(* ------------------------------------------------------------------------- *) + +(* Lists. *) + +let rec list elem () xs = + match xs with + | [] -> + "" + | x :: xs -> + sprintf "%a%a" elem x (list elem) xs + +let rec preclist delim elem () xs = + match xs with + | [] -> + "" + | x :: xs -> + sprintf "%t%a%a" delim elem x (preclist delim elem) xs + +let rec termlist delim elem () xs = + match xs with + | [] -> + "" + | x :: xs -> + sprintf "%a%t%a" elem x delim (termlist delim elem) xs + +let seplist sep elem () xs = + match xs with + | [] -> + "" + | x :: xs -> + sprintf "%a%a" elem x (preclist sep elem) xs + +let annlist announcement list () xs = + match xs with + | [] -> + "" + | _ :: _ -> + sprintf "%t%a" announcement list xs + +(* ------------------------------------------------------------------------- *) + +(* Punctuation. *) + +let space () = + sprintf " " + +let comma () = + sprintf ", " + +let semicolon () = + sprintf "; " + +let var () = + sprintf "var " + +let seminl () = + sprintf "%t%t" semicolon nl + +let nlspace k () = + sprintf "%t%s" nl (String.make k ' ') + +let nlnl () = + sprintf "%t%t" nl nl + +(* ------------------------------------------------------------------------- *) + +(* [atmost n delimiter stop] normally prints a [delimiter], except that, + every [n] calls, it prints a [stop] in addition. *) + +let atmost n (delimiter : punctuation) (stop : punctuation) : punctuation = + let i = + ref 0 + in + function () -> + incr i; + delimiter() ^ + if !i = n then begin + i := 0; + stop() + end + else + "" + +(* ------------------------------------------------------------------------- *) + +(* Tables. *) + +let width column = + List.fold_left (fun width x -> + max width (String.length x) + ) 0 column + +let pad width x = + let y = String.make width ' ' in + String.blit x 0 y 0 (String.length x); + y + +let pad column = + List.map (pad (width column)) column + +let rec zipcat column1 column2 = + List.fold_right2 (fun x1 x2 column -> + (x1 ^ x2) :: column + ) column1 column2 [] + +let catenate columns = + match columns with + | [] -> + [] + | column :: columns -> + List.fold_left (fun table column -> + zipcat table (pad column) + ) (pad column) columns + +let transposerev lines = + match lines with + | [] -> + [] + | line :: lines -> + List.fold_left (fun columns line -> + List.fold_right2 (fun x column columns -> + (x :: column) :: columns + ) line columns [] + ) (List.map (fun x -> [ x ]) line) lines + +(* ------------------------------------------------------------------------- *) + +(* Conditional. *) + +let showif flag printer x = + if flag then begin + Printf.fprintf stdout "%s%!" (sprintf "%a" printer x); + x + end + else + x + diff --git a/src/utilities/print.mli b/src/utilities/print.mli new file mode 100644 index 0000000..ff95156 --- /dev/null +++ b/src/utilities/print.mli @@ -0,0 +1,73 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module provides printing utilities. *) + +type punctuation = + unit -> string + +type 'a printer = + unit -> 'a -> string + +(* [nl] prints a newline character and a certain amount of + whitespace that reflects the current indentation level. *) + +val nl: punctuation + +(* [indent ofs] transforms a printer into another printer + that indents material [ofs] characters to the right. *) + +val indent: int -> 'a printer -> 'a printer + +(* [list] prints a list without any delimiters. *) + +val list: 'a printer -> 'a list printer + +(* [preclist] prints a list where a delimiter precedes every + element. *) + +val preclist: punctuation -> 'a printer -> 'a list printer + +(* [termlist] prints a list where a delimiter terminates every + element. *) + +val termlist: punctuation -> 'a printer -> 'a list printer + +(* [seplist] prints a list where a separator separates every two + consecutive elements. *) + +val seplist: punctuation -> 'a printer -> 'a list printer + +(* [annlist] prints nothing if its list argument is empty, and prints + an announcement followed by the list if the list is nonempty. *) + +val annlist: punctuation -> 'a list printer -> 'a list printer + +(* Punctuation. *) + +val space: punctuation +val comma: punctuation +val semicolon: punctuation +val var: punctuation +val seminl: punctuation +val nlspace: int -> punctuation +val nlnl: punctuation + +(* [atmost n delimiter stop] normally prints a [delimiter], except that, + every [n] calls, it prints a [stop] in addition. *) + +val atmost: int -> punctuation -> punctuation -> punctuation + +(* [catenate] turns a list of columns into a single column, adding + padding (whitespace) to enforce alignment. *) + +val catenate: string list list -> string list + +(* [transposerev] turns a reversed list of lines into a list of columns. *) + +val transposerev: string list list -> string list list + +(* [showif flag printer x] displays [x] on standard output using + [printer] when [flag] is set. It returns [x]. *) + +val showif: bool -> 'a printer -> 'a -> 'a + diff --git a/src/utilities/printCFG.ml b/src/utilities/printCFG.ml new file mode 100644 index 0000000..37be7fb --- /dev/null +++ b/src/utilities/printCFG.ml @@ -0,0 +1,21 @@ +(* Pasted from Pottier's PP compiler *) + +open PrintPottier + +let print_graph instruction successors () (graph, entry) = + + (* Print instructions in depth-first order; this is a + rather natural and readable order. *) + + let rec visit (visited, lines) l = + if Label.Set.mem l visited then + visited, lines + else + let visited = Label.Set.add l visited in + let i = Label.Map.find l graph in + let lines = instruction l i :: lines in + List.fold_left visit (visited, lines) (successors i) + in + let _, lines = visit (Label.Set.empty, []) entry in + String.concat "\n" (catenate (transposerev lines)) + diff --git a/src/utilities/printCFG.mli b/src/utilities/printCFG.mli new file mode 100644 index 0000000..c49c334 --- /dev/null +++ b/src/utilities/printCFG.mli @@ -0,0 +1,12 @@ + +(** This module provides a function to print Control Flow Graphs. *) + +(* Pasted from Pottier's PP compiler *) + +open PrintPottier + +val print_graph: + (Label.t -> 'instruction -> string list) -> (* prints instruction [i] at label [l] *) + ('instruction -> Label.t list) -> (* provides succcessors of instruction [i] *) + ('instruction Label.Map.t * Label.t) printer (* control flow graph and entry point printer *) + diff --git a/src/utilities/printPottier.ml b/src/utilities/printPottier.ml new file mode 100644 index 0000000..a7303d3 --- /dev/null +++ b/src/utilities/printPottier.ml @@ -0,0 +1,172 @@ +(* Pasted from Pottier's PP compiler *) + +open Printf + +type punctuation = + unit -> string + +type 'a printer = + unit -> 'a -> string + +(* ------------------------------------------------------------------------- *) + +(* Newlines and indentation. *) + +let maxindent = + 120 + +let whitespace = + String.make maxindent ' ' + +let indentation = + ref 0 + +let nl () = + "\n" ^ String.sub whitespace 0 !indentation + +let indent ofs producer () x = + let old_indentation = !indentation in + let new_indentation = old_indentation + ofs in + if new_indentation <= maxindent then + indentation := new_indentation; + let result = sprintf "%t%a" nl producer x in + indentation := old_indentation; + result + +(* ------------------------------------------------------------------------- *) + +(* Lists. *) + +let rec list elem () xs = + match xs with + | [] -> + "" + | x :: xs -> + sprintf "%a%a" elem x (list elem) xs + +let rec preclist delim elem () xs = + match xs with + | [] -> + "" + | x :: xs -> + sprintf "%t%a%a" delim elem x (preclist delim elem) xs + +let rec termlist delim elem () xs = + match xs with + | [] -> + "" + | x :: xs -> + sprintf "%a%t%a" elem x delim (termlist delim elem) xs + +let seplist sep elem () xs = + match xs with + | [] -> + "" + | x :: xs -> + sprintf "%a%a" elem x (preclist sep elem) xs + +let annlist announcement list () xs = + match xs with + | [] -> + "" + | _ :: _ -> + sprintf "%t%a" announcement list xs + +(* ------------------------------------------------------------------------- *) + +(* Punctuation. *) + +let space () = + sprintf " " + +let comma () = + sprintf ", " + +let semicolon () = + sprintf "; " + +let var () = + sprintf "var " + +let seminl () = + sprintf "%t%t" semicolon nl + +let nlspace k () = + sprintf "%t%s" nl (String.make k ' ') + +let nlnl () = + sprintf "%t%t" nl nl + +(* ------------------------------------------------------------------------- *) + +(* [atmost n delimiter stop] normally prints a [delimiter], except that, + every [n] calls, it prints a [stop] in addition. *) + +let atmost n (delimiter : punctuation) (stop : punctuation) : punctuation = + let i = + ref 0 + in + function () -> + incr i; + delimiter() ^ + if !i = n then begin + i := 0; + stop() + end + else + "" + +(* ------------------------------------------------------------------------- *) + +(* Tables. *) + +let width column = + List.fold_left (fun width x -> + max width (String.length x) + ) 0 column + +let pad width x = + let y = String.make width ' ' in + String.blit x 0 y 0 (String.length x); + y + +let pad column = + List.map (pad (width column)) column + +let rec zipcat column1 column2 = + List.fold_right2 (fun x1 x2 column -> + (x1 ^ x2) :: column + ) column1 column2 [] + +let catenate columns = + match columns with + | [] -> + [] + | column :: columns -> + List.fold_left (fun table column -> + zipcat table (pad column) + ) (pad column) columns + +let transposerev lines = + match lines with + | [] -> + [] + | line :: lines -> + List.fold_left (fun columns line -> + List.fold_right2 (fun x column columns -> + (x :: column) :: columns + ) line columns [] + ) (List.map (fun x -> [ x ]) line) lines + +(* ------------------------------------------------------------------------- *) + +(* Conditional. *) + +let showif flag printer x = + if flag then begin + Printf.fprintf stdout "%s%!" (sprintf "%a" printer x); + x + end + else + x + diff --git a/src/utilities/printPottier.mli b/src/utilities/printPottier.mli new file mode 100644 index 0000000..ff95156 --- /dev/null +++ b/src/utilities/printPottier.mli @@ -0,0 +1,73 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module provides printing utilities. *) + +type punctuation = + unit -> string + +type 'a printer = + unit -> 'a -> string + +(* [nl] prints a newline character and a certain amount of + whitespace that reflects the current indentation level. *) + +val nl: punctuation + +(* [indent ofs] transforms a printer into another printer + that indents material [ofs] characters to the right. *) + +val indent: int -> 'a printer -> 'a printer + +(* [list] prints a list without any delimiters. *) + +val list: 'a printer -> 'a list printer + +(* [preclist] prints a list where a delimiter precedes every + element. *) + +val preclist: punctuation -> 'a printer -> 'a list printer + +(* [termlist] prints a list where a delimiter terminates every + element. *) + +val termlist: punctuation -> 'a printer -> 'a list printer + +(* [seplist] prints a list where a separator separates every two + consecutive elements. *) + +val seplist: punctuation -> 'a printer -> 'a list printer + +(* [annlist] prints nothing if its list argument is empty, and prints + an announcement followed by the list if the list is nonempty. *) + +val annlist: punctuation -> 'a list printer -> 'a list printer + +(* Punctuation. *) + +val space: punctuation +val comma: punctuation +val semicolon: punctuation +val var: punctuation +val seminl: punctuation +val nlspace: int -> punctuation +val nlnl: punctuation + +(* [atmost n delimiter stop] normally prints a [delimiter], except that, + every [n] calls, it prints a [stop] in addition. *) + +val atmost: int -> punctuation -> punctuation -> punctuation + +(* [catenate] turns a list of columns into a single column, adding + padding (whitespace) to enforce alignment. *) + +val catenate: string list list -> string list + +(* [transposerev] turns a reversed list of lines into a list of columns. *) + +val transposerev: string list list -> string list list + +(* [showif flag printer x] displays [x] on standard output using + [printer] when [flag] is set. It returns [x]. *) + +val showif: bool -> 'a printer -> 'a -> 'a + diff --git a/src/utilities/prioritySet.ml b/src/utilities/prioritySet.ml new file mode 100644 index 0000000..7b8b560 --- /dev/null +++ b/src/utilities/prioritySet.ml @@ -0,0 +1,146 @@ +(* Pasted from Pottier's PP compiler *) + +(* This module offers sets of elements where each element carries an + integer priority. All operations execute in logarithmic time with + respect to the number of elements in the set. *) + +module Make (X : Set.OrderedType) += struct + + (* First, define normal sets and maps. *) + + module Set = Set.Make(X) + + module Map = MyMap.Make(X) + + (* Next, define maps of integers to nonempty sets of elements. *) + + module IntMap = struct + + module M = MyMap.Make (struct + type t = int + let compare = compare + end) + + include M + + module H = SetMap.MakeHetero(Set)(M) + + let update = H.update + + end + + (* Now, define priority sets. *) + + type t = { + + (* A mapping of elements to priorities. *) + + priority: int Map.t; + + (* A mapping of priorities to sets of elements. By convention, a + priority has no entry in this table if that entry would be an + empty set of elements. This allows finding the + lowest-priority element in logarithmic time. *) + + level: Set.t IntMap.t + + } + + (* [empty] is the empty set. *) + + let empty = + { + priority = Map.empty; + level = IntMap.empty + } + + (* [priority x s] looks up the priority of element [x]. *) + + let priority x s = + try + Map.find x s.priority + with Not_found -> + assert false + + (* [add x p s] inserts element [x] with priority [p]. *) + + let add x p s = + assert (not (Map.mem x s.priority)); + { + priority = Map.add x p s.priority; + level = IntMap.update p (Set.add x) s.level + } + + (* [remove x s] removes element [x]. *) + + let remove x s = + let p, priority = + try + Map.find_remove x s.priority + with Not_found -> + assert false + in + let level = + IntMap.update p (function xs -> + assert (Set.mem x xs); + Set.remove x xs + ) s.level + in + { + priority = priority; + level = level + } + + (* [change x p s] changes the priority of element [x] to [p]. *) + + let change x p1 s = + let p0 = priority x s in + if p0 = p1 then + s + else + { + priority = Map.add x p1 s.priority; (* overriding previous entry *) + level = IntMap.update p1 (Set.add x) (IntMap.update p0 (Set.remove x) s.level) + } + + (* [increment x d s] increases the priority of element [x] by [d]. *) + + let increment x d s = + change x (priority x s + d) s + + (* [incrementifx x p s] increases the priority of element [x] by [d] + if [x] is a member of the priority set. *) + + let incrementifx x d s = + if Map.mem x s.priority then + increment x d s + else + s + + (* [lowest s] returns [Some (x, p)], where element [x] has minimum + priority [p] among all elements of [s]. It returns [None] if [s] + is empty. *) + + let lowest s = + try + let p, xs = IntMap.minimum s.level in (* can fail if set is empty *) + try + Some (Set.choose xs, p) (* cannot fail *) + with Not_found -> + assert false + with Not_found -> + None + + (* [fold f s accu] fold over the set [s]. Elements are presented + to [f] in increasing order of priority. *) + + let fold f s accu = + IntMap.fold (fun p xs accu -> + Set.fold (fun x accu -> + f x p accu + ) xs accu + ) s.level accu + +end + diff --git a/src/utilities/prioritySet.mli b/src/utilities/prioritySet.mli new file mode 100644 index 0000000..def9028 --- /dev/null +++ b/src/utilities/prioritySet.mli @@ -0,0 +1,54 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module offers sets of elements where each element carries an + integer priority. All operations execute in logarithmic time with + respect to the number of elements in the set. *) + +module Make (X : Set.OrderedType) : sig + + (* This is the type of priority sets. *) + + type t + + (* [empty] is the empty set. *) + + val empty: t + + (* [add x p s] inserts element [x] with priority [p]. *) + + val add: X.t -> int -> t -> t + + (* [remove x s] removes element [x]. *) + + val remove: X.t -> t -> t + + (* [change x p s] changes the priority of element [x] to [p]. *) + + val change: X.t -> int -> t -> t + + (* [increment x d s] increases the priority of element [x] by [d]. *) + + val increment: X.t -> int -> t -> t + + (* [incrementifx x p s] increases the priority of element [x] by [d] + if [x] is a member of the priority set. *) + + val incrementifx: X.t -> int -> t -> t + + (* [priority x s] looks up the priority of element [x]. *) + + val priority: X.t -> t -> int + + (* [lowest s] returns [Some (x, p)], where element [x] has minimum + priority [p] among all elements of [s]. It returns [None] if [s] + is empty. *) + + val lowest: t -> (X.t * int) option + + (* [fold f s accu] fold over the set [s]. Elements are presented + to [f] in increasing order of priority. *) + + val fold: (X.t -> int -> 'a -> 'a) -> t -> 'a -> 'a + +end + diff --git a/src/utilities/setMap.ml b/src/utilities/setMap.ml new file mode 100644 index 0000000..1230080 --- /dev/null +++ b/src/utilities/setMap.ml @@ -0,0 +1,226 @@ +(* Pasted from Pottier's PP compiler *) + +(* This signature defines a few operations over maps of keys to + nonempty sets of items. Keys and items can have distinct types, + hence the name [Heterogeneous]. + + These maps can be used to represent directed bipartite graphs whose + source vertices are keys and whose target vertices are items. Each + key is mapped to the set of its successors. *) + +module type Heterogeneous = sig + + (* These are the types of keys, items, and sets of items. *) + + type key + type item + type itemset + + (* This is the type of maps of keys to sets of items. *) + + type t + + (* [find x m] is the item set associated with key [x] in map [m], if + such an association is defined; it is the empty set otherwise. *) + + val find: key -> t -> itemset + + (* [add x is m] extends [m] with a binding of [x] to the item set + [is], if [is] is nonempty. If [is] is empty, it removes [x] from + [m]. *) + + val add: key -> itemset -> t -> t + + (* [update x f m] is [add x (f (find x m)) m]. *) + + val update: key -> (itemset -> itemset) -> t -> t + + (* [mkedge x i m] extends [m] with a binding of [x] to the union of + the set [m x] and the singleton [i], where [m x] is taken to be + empty if undefined. In terms of graphs, [mkedge x i m] extends + the graph [m] with an edge of [x] to [i]. *) + + val mkedge: key -> item -> t -> t + + (* [rmedge x i m] extends [m] with a binding of [x] to the + difference of the set [m x] and the singleton [i], where the + binding is considered undefined if that difference is empty. In + terms of graphs, [rmedge x i m] removes an edge of [x] to [i] + to the graph [m]. *) + + val rmedge: key -> item -> t -> t + + (* [iter] and [fold] iterate over all edges in the graph. *) + + val iter: (key * item -> unit) -> t -> unit + val fold: (key * item -> 'a -> 'a) -> t -> 'a -> 'a + + (* [pick m p] returns an arbitrary edge that satisfies predicate + [p], if the graph contains one. *) + + val pick: t -> (key * item -> bool) -> (key * item) option + +end + +(* This functor offers an implementation of [Heterogeneous] out of + standard implementations of sets and maps. *) + +module MakeHetero + (Set : sig + type elt + type t + val empty: t + val is_empty: t -> bool + val add: elt -> t -> t + val remove: elt -> t -> t + val fold: (elt -> 'a -> 'a) -> t -> 'a -> 'a + end) + (Map : sig + type key + type 'a t + val add: key -> 'a -> 'a t -> 'a t + val find: key -> 'a t -> 'a + val remove: key -> 'a t -> 'a t + val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b + end) += struct + + type key = Map.key + type item = Set.elt + type itemset = Set.t + type t = Set.t Map.t + + let find x m = + try + Map.find x m + with Not_found -> + Set.empty + + let add x is m = + if Set.is_empty is then + Map.remove x m + else + Map.add x is m + + let update x f m = + add x (f (find x m)) m + + let mkedge x i m = + update x (Set.add i) m + + let rmedge x i m = + update x (Set.remove i) m + + let fold f m accu = + Map.fold (fun source targets accu -> + Set.fold (fun target accu -> + f (source, target) accu + ) targets accu + ) m accu + + let iter f m = + fold (fun edge () -> f edge) m () + + exception Picked of (key * item) + + let pick m p = + try + iter (fun edge -> + if p edge then + raise (Picked edge) + ) m; + None + with Picked edge -> + Some edge + +end + +(* This signature defines a few common operations over maps of keys + to sets of keys -- that is, keys and items have the same type, + hence the name [Homogeneous]. + + These maps can be used to represent general directed graphs. *) + +module type Homogeneous = sig + + include Heterogeneous (* [key] and [item] intended to be equal *) + + (* [mkbiedge x1 x2 m] is [mkedge x1 x2 (mkedge x2 x1 m)]. *) + + val mkbiedge: key -> key -> t -> t + + (* [rmbiedge x1 x2 m] is [rmedge x1 x2 (rmedge x2 x1 m)]. *) + + val rmbiedge: key -> key -> t -> t + + (* [reverse m] is the reverse of graph [m]. *) + + val reverse: t -> t + + (* [restrict m] is the graph obtained by keeping only the vertices + that satisfy predicate [p]. *) + + val restrict: (key -> bool) -> t -> t + +end + +module MakeHomo + (Set : sig + type elt + type t + val empty: t + val is_empty: t -> bool + val add: elt -> t -> t + val remove: elt -> t -> t + val fold: (elt -> 'a -> 'a) -> t -> 'a -> 'a + val filter: (elt -> bool) -> t -> t + end) + (Map : sig + type key = Set.elt + type 'a t + val empty: 'a t + val add: key -> 'a -> 'a t -> 'a t + val find: key -> 'a t -> 'a + val remove: key -> 'a t -> 'a t + val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b + end) += struct + + include MakeHetero(Set)(Map) + + let symmetric transform x1 x2 m = + transform x1 x2 (transform x2 x1 m) + + let mkbiedge = + symmetric mkedge + + let rmbiedge = + symmetric rmedge + + let reverse m = + Map.fold (fun source targets predecessors -> + Set.fold (fun target predecessors -> + + (* We have a direct edge from [source] to [target]. Thus, we + record the existence of a reverse edge from [target] to + [source]. *) + + mkedge target source predecessors + + ) targets predecessors + ) m Map.empty + + let restrict p m = + Map.fold (fun source targets m -> + if p source then + let targets = Set.filter p targets in + if Set.is_empty targets then + m + else + Map.add source targets m + else + m + ) m Map.empty + +end + diff --git a/src/utilities/setMap.mli b/src/utilities/setMap.mli new file mode 100644 index 0000000..136310a --- /dev/null +++ b/src/utilities/setMap.mli @@ -0,0 +1,144 @@ +(* Pasted from Pottier's PP compiler *) + +(** This signature defines a few operations over maps of keys to + nonempty sets of items. Keys and items can have distinct types, + hence the name [Heterogeneous]. + + These maps can be used to represent directed bipartite graphs whose + source vertices are keys and whose target vertices are items. Each + key is mapped to the set of its successors. *) + +module type Heterogeneous = sig + + (* These are the types of keys, items, and sets of items. *) + + type key + type item + type itemset + + (* This is the type of maps of keys to sets of items. *) + + type t + + (* [find x m] is the item set associated with key [x] in map [m], if + such an association is defined; it is the empty set otherwise. *) + + val find: key -> t -> itemset + + (* [add x is m] extends [m] with a binding of [x] to the item set + [is], if [is] is nonempty. If [is] is empty, it removes [x] from + [m]. *) + + val add: key -> itemset -> t -> t + + (* [update x f m] is [add x (f (find x m)) m]. *) + + val update: key -> (itemset -> itemset) -> t -> t + + (* [mkedge x i m] extends [m] with a binding of [x] to the union of + the set [m x] and the singleton [i], where [m x] is taken to be + empty if undefined. In terms of graphs, [mkedge x i m] extends + the graph [m] with an edge of [x] to [i]. *) + + val mkedge: key -> item -> t -> t + + (* [rmedge x i m] extends [m] with a binding of [x] to the + difference of the set [m x] and the singleton [i], where the + binding is considered undefined if that difference is empty. In + terms of graphs, [rmedge x i m] removes an edge of [x] to [i] + to the graph [m]. *) + + val rmedge: key -> item -> t -> t + + (* [iter] and [fold] iterate over all edges in the graph. *) + + val iter: (key * item -> unit) -> t -> unit + val fold: (key * item -> 'a -> 'a) -> t -> 'a -> 'a + + (* [pick m p] returns an arbitrary edge that satisfies predicate + [p], if the graph contains one. *) + + val pick: t -> (key * item -> bool) -> (key * item) option + +end + +(* This functor offers an implementation of [Heterogeneous] out of + standard implementations of sets and maps. *) + +module MakeHetero + (Set : sig + type elt + type t + val empty: t + val is_empty: t -> bool + val add: elt -> t -> t + val remove: elt -> t -> t + val fold: (elt -> 'a -> 'a) -> t -> 'a -> 'a + end) + (Map : sig + type key + type 'a t + val add: key -> 'a -> 'a t -> 'a t + val find: key -> 'a t -> 'a + val remove: key -> 'a t -> 'a t + val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b + end) + : Heterogeneous with type key = Map.key + and type item = Set.elt + and type itemset = Set.t + and type t = Set.t Map.t + +(* This signature defines a few common operations over maps of keys + to sets of keys -- that is, keys and items have the same type, + hence the name [Homogeneous]. + + These maps can be used to represent general directed graphs. *) + +module type Homogeneous = sig + + include Heterogeneous (* [key] and [item] intended to be equal *) + + (* [mkbiedge x1 x2 m] is [mkedge x1 x2 (mkedge x2 x1 m)]. *) + + val mkbiedge: key -> key -> t -> t + + (* [rmbiedge x1 x2 m] is [rmedge x1 x2 (rmedge x2 x1 m)]. *) + + val rmbiedge: key -> key -> t -> t + + (* [reverse m] is the reverse of graph [m]. *) + + val reverse: t -> t + + (* [restrict m] is the graph obtained by keeping only the vertices + that satisfy predicate [p]. *) + + val restrict: (key -> bool) -> t -> t + +end + +module MakeHomo + (Set : sig + type elt + type t + val empty: t + val is_empty: t -> bool + val add: elt -> t -> t + val remove: elt -> t -> t + val fold: (elt -> 'a -> 'a) -> t -> 'a -> 'a + val filter: (elt -> bool) -> t -> t + end) + (Map : sig + type key = Set.elt + type 'a t + val empty: 'a t + val add: key -> 'a -> 'a t -> 'a t + val find: key -> 'a t -> 'a + val remove: key -> 'a t -> 'a t + val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b + end) + : Homogeneous with type key = Set.elt + and type item = Set.elt + and type itemset = Set.t + and type t = Set.t Map.t + diff --git a/src/utilities/stringSig.mli b/src/utilities/stringSig.mli new file mode 100644 index 0000000..37d3630 --- /dev/null +++ b/src/utilities/stringSig.mli @@ -0,0 +1,31 @@ + +(** The module type declares functions to manipulate and create fresh + strings. *) + +module type S = sig + + type t = string + + val compare : t -> t -> int + + module Set : sig + include Set.S with type elt = t + val of_list : elt list -> t + val unionl : t list -> t + end + + module Map : Map.S with type key = t + + module Gen : sig + type universe + val fresh_prefix : Set.t -> string -> string + val new_universe : string -> universe + val fresh : universe -> string + end + + val make_unique : Set.t -> (string -> string) + val make_fresh : Set.t -> string -> (unit -> string) + + val dummy : t + +end diff --git a/src/utilities/stringTools.ml b/src/utilities/stringTools.ml new file mode 100644 index 0000000..61f5a0a --- /dev/null +++ b/src/utilities/stringTools.ml @@ -0,0 +1,64 @@ + +(** FIXME: document here *) + +type t = string + +let compare = String.compare + + +module Set = struct + include Set.Make (String) + let of_list l = + let f res e = add e res in + List.fold_left f empty l + let unionl l = List.fold_left union empty l +end + + +module Map = Map.Make (String) + + +module Gen = struct + + type universe = { prefix : string ; mutable next : int } + + let added_suffix = "_" + + let is_prefix prefix s = + let l = String.length prefix in + (String.length s >= l) && (String.sub s 0 l = prefix) + + let has_prefix set prefix = + let f s b = b || (is_prefix prefix s) in + Set.fold f set false + + let fresh_prefix set prefix = + let rec aux prefix = + if has_prefix set prefix then aux (prefix ^ added_suffix) + else prefix in + aux prefix + + + let new_universe s = { prefix = s ; next = 0 } + + let fresh u = + let s = u.prefix ^ (string_of_int u.next) in + u.next <- u.next + 1 ; + s + +end + +let make_unique set = + let set_ref = ref set in + let unique s = + let res = Gen.fresh_prefix !set_ref s in + set_ref := Set.add res !set_ref ; + res in + unique + +let make_fresh set prefix = + let fresh_prefix = Gen.fresh_prefix set prefix in + let universe = Gen.new_universe fresh_prefix in + (fun () -> Gen.fresh universe) + +let dummy = "" diff --git a/src/utilities/stringTools.mli b/src/utilities/stringTools.mli new file mode 100644 index 0000000..29a368c --- /dev/null +++ b/src/utilities/stringTools.mli @@ -0,0 +1,5 @@ + +(** This module provides functions to manipulate and create fresh + strings. *) + +include StringSig.S diff --git a/src/utilities/syntacticAnalysis.ml b/src/utilities/syntacticAnalysis.ml new file mode 100644 index 0000000..0744c61 --- /dev/null +++ b/src/utilities/syntacticAnalysis.ml @@ -0,0 +1,14 @@ +exception ParsingError + +type 'token with_pos = 'token * Lexing.position * Lexing.position + +let parsing_step = "during parsing" + +let process ~lexer_init ~lexer_fun ~parser_fun ~input = + parser_fun lexer_fun (lexer_init input) + +let process ~lexer_init ~lexer_fun ~parser_fun ~input = try + process ~lexer_init ~lexer_fun ~parser_fun ~input +with Sys_error msg -> + Error.global_error parsing_step msg + diff --git a/src/utilities/syntacticAnalysis.mli b/src/utilities/syntacticAnalysis.mli new file mode 100644 index 0000000..946d361 --- /dev/null +++ b/src/utilities/syntacticAnalysis.mli @@ -0,0 +1,12 @@ +(** This module provides a general gluing function between lexers and + parsers. *) + +(** [process init lex parse input] initialized a lexing buffer using + [init input] and make [lex] and [parse] communicate through it + to produce an abstract syntax tree. *) +val process : + lexer_init : ('a -> 'lexbuf) -> + lexer_fun : ('lexbuf -> 'token) -> + parser_fun : (('lexbuf -> 'token) -> 'lexbuf -> 'ast) -> + input : 'a -> + 'ast diff --git a/src/utilities/unionFind.ml b/src/utilities/unionFind.ml new file mode 100644 index 0000000..a747301 --- /dev/null +++ b/src/utilities/unionFind.ml @@ -0,0 +1,135 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module implements a simple and efficient union/find algorithm. + See Robert E. Tarjan, ``Efficiency of a Good But Not Linear Set + Union Algorithm'', JACM 22(2), 1975. *) + +(** The abstraction defined by this module is a set of points, + partitioned into equivalence classes. With each equivalence class, + a piece of information, of abstract type ['a], is associated; we + call it a descriptor. + + A point is implemented as a cell, whose (mutable) contents consist + of a single link to either information about the equivalence class, + or another point. Thus, points form a graph, which must be acyclic, + and whose connected components are the equivalence classes. In + every equivalence class, exactly one point has no outgoing edge, + and carries information about the class instead. It is the class's + representative element. + + Information about a class consists of an integer weight (the number + of elements in the class) and of the class's descriptor. *) +type 'a point = { + mutable link: 'a link + } + +and 'a link = + | Info of 'a info + | Link of 'a point + +and 'a info = { + mutable weight: int; + mutable descriptor: 'a + } + +(** [fresh desc] creates a fresh point and returns it. It forms an + equivalence class of its own, whose descriptor is [desc]. *) +let fresh desc = { + link = Info { weight = 1; descriptor = desc } +} + +(** [repr point] returns the representative element of [point]'s + equivalence class. It is found by starting at [point] and following + the links. For efficiency, the function performs path compression + at the same time. *) +let rec repr point = + match point.link with + | Link point' -> + let point'' = repr point' in + if point'' != point' then + + (* [point''] is [point']'s representative element. Because we + just invoked [repr point'], [point'.link] must be [Link + point'']. We write this value into [point.link], thus + performing path compression. Note that this function never + performs memory allocation. *) + + point.link <- point'.link; + point'' + | Info _ -> + point + +(** [find point] returns the descriptor associated with [point]'s + equivalence class. *) +let rec find point = + + (* By not calling [repr] immediately, we optimize the common cases + where the path starting at [point] has length 0 or 1, at the + expense of the general case. *) + + match point.link with + | Info info + | Link { link = Info info } -> + info.descriptor + | Link { link = Link _ } -> + find (repr point) + +let rec change point v = + match point.link with + | Info info + | Link { link = Info info } -> + info.descriptor <- v + | Link { link = Link _ } -> + change (repr point) v + +(** [union point1 point2] merges the equivalence classes associated + with [point1] and [point2] (which must be distinct) into a single + class whose descriptor is that originally associated with [point2]. + + The fact that [point1] and [point2] do not originally belong to the + same class guarantees that we do not create a cycle in the graph. + + The weights are used to determine whether [point1] should be made + to point to [point2], or vice-versa. By making the representative + of the smaller class point to that of the larger class, we + guarantee that paths remain of logarithmic length (not accounting + for path compression, which makes them yet smaller). *) +let union point1 point2 = + let point1 = repr point1 + and point2 = repr point2 in + assert (point1 != point2); + match point1.link, point2.link with + | Info info1, Info info2 -> + let weight1 = info1.weight + and weight2 = info2.weight in + if weight1 >= weight2 then begin + point2.link <- Link point1; + info1.weight <- weight1 + weight2; + info1.descriptor <- info2.descriptor + end + else begin + point1.link <- Link point2; + info2.weight <- weight1 + weight2 + end + | _, _ -> + assert false (* [repr] guarantees that [link] matches [Info _]. *) + +(** [equivalent point1 point2] tells whether [point1] and [point2] + belong to the same equivalence class. *) +let equivalent point1 point2 = + repr point1 == repr point2 + +(** [eunion point1 point2] is identical to [union], except it does + nothing if [point1] and [point2] are already equivalent. *) +let eunion point1 point2 = + if not (equivalent point1 point2) then + union point1 point2 + +(** [redundant] maps all members of an equivalence class, but one, to + [true]. *) +let redundant = function + | { link = Link _ } -> + true + | { link = Info _ } -> + false + diff --git a/src/utilities/unionFind.mli b/src/utilities/unionFind.mli new file mode 100644 index 0000000..a84ac7b --- /dev/null +++ b/src/utilities/unionFind.mli @@ -0,0 +1,39 @@ +(* Pasted from Pottier's PP compiler *) + +(** This module implements a simple and efficient union/find algorithm. + See Robert E. Tarjan, ``Efficiency of a Good But Not Linear Set + Union Algorithm'', JACM 22(2), 1975. *) + +(** The abstraction defined by this module is a set of points, + partitioned into equivalence classes. With each equivalence class, + a piece of information, of abstract type ['a], is associated; we + call it a descriptor. *) +type 'a point + +(** [fresh desc] creates a fresh point and returns it. It forms an + equivalence class of its own, whose descriptor is [desc]. *) +val fresh: 'a -> 'a point + +(** [find point] returns the descriptor associated with [point]'s + equivalence class. *) +val find: 'a point -> 'a + +(** [union point1 point2] merges the equivalence classes associated + with [point1] and [point2] (which must be distinct) into a single + class whose descriptor is that originally associated with [point2]. *) +val union: 'a point -> 'a point -> unit + +(** [equivalent point1 point2] tells whether [point1] and [point2] + belong to the same equivalence class. *) +val equivalent: 'a point -> 'a point -> bool + +(** [eunion point1 point2] is identical to [union], except it does + nothing if [point1] and [point2] are already equivalent. *) +val eunion: 'a point -> 'a point -> unit + +(** [redundant] maps all members of an equivalence class, but one, to + [true]. *) +val redundant: 'a point -> bool + +(** [change p d] updates the descriptor of [p] to [d]. *) +val change: 'a point -> 'a -> unit diff --git a/src/utilities/webify.ml b/src/utilities/webify.ml new file mode 100644 index 0000000..ac20013 --- /dev/null +++ b/src/utilities/webify.ml @@ -0,0 +1,444 @@ +open Dom +open Dom_html +open Js +open Firebug +open Goog + +let msgbox s = + console##log (s) + +type input = + | Direct of string * (unit -> string) + | Url of string + +let children_of_node node = + let c = ref [] in + for i = 0 to node##childNodes##length - 1 do + let node = Js.Opt.get (node##childNodes##item (i)) (fun _ -> assert false) in + match node##nodeType with + | Dom.DOCUMENT | Dom.DOCUMENT_FRAGMENT | Dom.ELEMENT | Dom.CDATA_SECTION -> + c := node :: !c + | _ -> () + done; + List.rev !c + +let contents_of_node (node : node Js.t) = + let c = ref [] in + match node##nodeType with + | Dom.CDATA_SECTION -> + let t = Js.Opt.get (Dom.CoerceTo.text (node :> node Js.t)) (fun _ -> assert false) in + t##data + | _ -> + for i = 0 to node##childNodes##length - 1 do + let node = Js.Opt.get (node##childNodes##item (i)) (fun _ -> assert false) in + match node##nodeType with + | Dom.TEXT | Dom.CDATA_SECTION -> + c := node :: !c + | _ -> () + done; + Js.Opt.get ((List.hd !c)##nodeValue) (fun _ -> Js.string "Error") + +let (>>=) = Lwt.bind + +let http_get url = + XmlHttpRequest.get url >>= fun r -> + let cod = r.XmlHttpRequest.code in + let msg = r.XmlHttpRequest.content_xml () in + if cod = 0 || cod = 200 + then Lwt.return msg + else fst (Lwt.wait ()) + +let load_input_from_url url = + let extract_inputs frame = + match frame with + | None -> + Dom_html.window##alert (Js.string "Loading of examples failed."); + [] + | Some inputs_doc -> + let inputs_root = List.hd (children_of_node inputs_doc) in + let inputs_nodes = children_of_node inputs_root in + let inputs = List.map (fun n -> + msgbox n; + let data = children_of_node n in + msgbox data; + let get i = Js.to_string (contents_of_node (List.nth data i)) in + (get 0, fun () -> get 1)) + inputs_nodes + in + inputs + in + Lwt.catch (fun () -> http_get url + >>= (fun frame -> + Lwt.return (extract_inputs frame))) + (function _ -> + Lwt.return [] + ) + +type output = (string * string) + +let impossible _ = assert false + +let ccs s = Goog.Ui.ControlContent.string (Js.string s) + +let add_item s (m : Goog.Ui.menu Js.t) = + m##addItem (Goog.Tools.Union.i1 jsnew Goog.Ui.menuItem (ccs s, Js.null, Js.null)) + +let get_element s = + Js.Opt.get + (Dom_html.document##getElementById (s)) + (fun _ -> Dom_html.window##alert (s); assert false) + +let new_tab tabbar label = + let tab = jsnew Ui.tab (Ui.ControlContent.string label, Js.null, Js.null) in + Ui.Component.addChild tabbar tab (Js.some Js._true); + tab + +let new_button toolbar label onclick = + let button = + jsnew Ui.toolbarButton + (Ui.ControlContent.string (Js.string label), + Js.null, + Js.null) + in + Ui.Component.addChild toolbar button (Js.some Js._true); + ignore + (Events.listen + (Tools.Union.i1 button) + (Js.string "action") + (Js.wrap_callback (fun _ -> onclick ())) + Js.null) + +let new_menu toolbar label entries onchange = + let menu = jsnew Goog.Ui.menu (Js.null, Js.null) in + List.iter (fun s -> add_item s menu) entries; + let menu_button = + jsnew Ui.toolbarMenuButton + (Ui.ControlContent.string (Js.string label), + Js.some menu, + Js.null, + Js.null) + in + ignore + (Events.listen + (Tools.Union.i1 menu_button) + (Js.string "action") + (Js.wrap_callback (fun e -> + let get x : Goog.Ui.menuItem Js.t = + Js.Unsafe.coerce (Js.Optdef.get x (fun _ -> assert false)) + in + onchange ((get (e##target))##getCaption ()))) + Js.null); + + Ui.Component.addChild toolbar menu_button (Js.some Js._true); + menu + +type input_interface = { + get_input : unit -> Js.js_string Js.t * Js.js_string Js.t; + new_output_tabs : (Js.js_string Js.t * Js.js_string Js.t) list -> unit; + clear_output_tabs : unit -> unit; + close : unit -> unit +} + +let input_interfaces : (Js.js_string Js.t, input_interface) Hashtbl.t = + Hashtbl.create 13 + +let fresh_name n = + let rec aux i = + let name = if i = 0 then n else (n##concat (Js.string (string_of_int i))) in + if Hashtbl.mem input_interfaces name then + aux (i + 1) + else + name + in + aux 0 + +let new_input (tabbar : Ui.tabBar Js.t) choice (contents : Js.js_string Js.t) = + + let choice = fresh_name choice in + + let tab_contents = get_element ((Js.string "maintabbar_content")) in + + let source_label = choice##concat (Js.string "_source") in + let content_label = choice##concat (Js.string "_contents") in + + let tab = new_tab tabbar choice in + let tab_frame = Dom_html.createDiv (Dom_html.document) in + let subtab_frame = Dom_html.createDiv (Dom_html.document) in + let contents_tab_frame = Dom_html.createDiv (Dom_html.document) in + let clear_tab_frame = Dom_html.createDiv (Dom_html.document) in + let subtabs = + jsnew Ui.tabBar ( + Js.some (Ui.TabBar.location_pre_of_location Ui.TabBar.BOTTOM), + Js.null, + Js.null) + in + contents_tab_frame##className <- Js.string "goog-tab-content"; + contents_tab_frame##id <- content_label; + subtab_frame##className + <- Js.string "goog-tab-bar goog-tab-bar-start"; + clear_tab_frame##className <- Js.string "goog-tab-bar-clear"; + + subtabs##decorate ((subtab_frame :> Dom_html.element Js.t)); + ignore (tab_frame##appendChild ((subtab_frame :> Dom.node Js.t))); + ignore (tab_frame##appendChild ((contents_tab_frame :> Dom.node Js.t))); + ignore (tab_frame##appendChild ((clear_tab_frame :> Dom.node Js.t))); + + (* Source code editor. *) + let text = Dom_html.createTextarea (Dom_html.document) in + text##className <- Js.string "editor"; + text##value <- contents; + + let change_tab_content node = + if contents_tab_frame##hasChildNodes () = _true then + ignore (contents_tab_frame##removeChild + (Js.Opt.get contents_tab_frame##firstChild impossible)); + ignore (contents_tab_frame##appendChild (node)) + in + + let input_tab = new_tab subtabs source_label in + ignore + (Events.listen + (Tools.Union.i1 input_tab) + (Js.string "select") + (Js.wrap_callback (fun e -> change_tab_content ((text :> Dom.node Js.t)))) + Js.null); + + ignore + (Events.listen + (Tools.Union.i1 tab) + (Js.string "select") + (Js.wrap_callback (fun e -> + if tab_contents##hasChildNodes () = _true then + ignore (tab_contents##removeChild + (Js.Opt.get tab_contents##firstChild impossible)); + ignore (tab_contents##appendChild ((tab_frame :> Dom.node Js.t))))) + Js.null); + + tabbar##setSelectedTab (Js.some tab); + subtabs##setSelectedTab (Js.some input_tab); + + let get_input () = + (choice, text##value) + in + + let output_tabs = ref [] in + + let new_output_tabs outputs = + let new_output_tab (title, value) = + let output_tab = new_tab subtabs (choice##concat (title)) in + let output_frame = Dom_html.createDiv (Dom_html.document) in + output_tabs := output_tab :: !output_tabs; + let text = Dom_html.createTextarea (Dom_html.document) in + text##className <- Js.string "editor"; + text##value <- value; + ignore (output_frame##appendChild ((text :> Dom.node Js.t))); + ignore + (Events.listen + (Tools.Union.i1 output_tab) + (Js.string "select") + (Js.wrap_callback (fun e -> + change_tab_content ((output_frame :> Dom.node Js.t)))) + Js.null) + in + List.iter new_output_tab outputs + in + + let clear_output_tabs () = + List.iter (fun tab -> + ignore (subtabs##removeChild (Goog.Tools.Union.i2 tab, Js.some Js._true))) + !output_tabs; + output_tabs := [] + in + + let close () = + Hashtbl.remove input_interfaces choice; + ignore (contents_tab_frame##removeChild ((text :> Dom.node Js.t))); + subtabs##disposeInternal (); + ignore (tabbar##removeChild (Goog.Tools.Union.i2 tab, Js.some Js._true)) + in + Hashtbl.add input_interfaces choice + { + get_input = get_input; + new_output_tabs = new_output_tabs; + clear_output_tabs = clear_output_tabs; + close = close; + } + +let help_message = +" +

+Please be aware of the limited computational power of JavaScript. Your O'Caml +program will run 10 times slower than a natively compiled one. +

+
    +
  • +Use Create from... to load +a predefined input. This should create a tab in the +interface for this specific instance of the input. You +can freely edit this input in the text area. +
    • +
  • +Use Run to process the input. This should create +a set of tabs to store the outputs. You can use +Run several times: the outputs will be refreshed +if the input has changed. +
    • +
  • +Use Close to dispose the input instance corresponding +to the selected tab. Be aware that you will lost your local modifications. +
    • +
  • +Use Help to open this dialog box. +
    • +
+" + +type processor_function = + (int -> int -> unit) -> (** Tick *) + (string * string) -> + output list + +let processing_queue_updated = Lwt_condition.create () +let q = Queue.create () +let push_processing f = + Queue.push f q; Lwt_condition.signal processing_queue_updated () +let next_processing () = (Queue.take q) () + +let make_layout, add_inputs, register_processor = + let menu_ref = ref (Obj.magic 0) in + let inputs_ref : (Js.js_string Js.t * (unit -> Js.js_string Js.t)) list ref = ref [] in + let processor_ref : processor_function ref = + ref (fun tick s -> []) + in + let make_layout () = + let pbar = jsnew Ui.progressBar () in + let elt = get_element (Js.string "progressbar") in + let elt_txt = get_element (Js.string "progressbarin") in + pbar##setMaximum (100.); + pbar##setMinimum (0.); + pbar##setValue (0.); + pbar##decorateInternal (elt); + + let toolbar = jsnew Ui.toolbar (Js.null, Js.null, Js.null) in + let tabbar = + jsnew Ui.tabBar (Js.some (Ui.TabBar.location_pre_of_location Ui.TabBar.START), Js.null, Js.null) + in + + let get_selected_input () = + try + let tab = (Js.Opt.get (tabbar##getSelectedTab ()) impossible) in + let caption = (Js.Opt.get (tab##getCaption ()) impossible) in + Some (caption) + with _ -> None + in + menu_ref := + new_menu toolbar " Create from ..." [] + (fun choice -> + try + let choice = Js.Opt.get choice (fun _ -> assert false) in + let contents = (List.assoc choice !inputs_ref) () in + new_input tabbar choice contents + with _ -> assert false); + + new_button toolbar "Run" (fun () -> + match get_selected_input () with + | None -> + Firebug.console##log (Js.string "Nothing to run!") + + | Some selected_input -> + let run () = + Firebug.console##log ((Js.string "Process the source named ")##concat (selected_input)); + + let interface = + try + Hashtbl.find input_interfaces selected_input + with Not_found -> assert false + in + interface.clear_output_tabs (); + let tick = + fun step over -> + let v = 100. *. float_of_int step /. float_of_int over in + Firebug.console##log ((Js.string ("Step " ^ string_of_int step ^ " " ^ string_of_float v))); + pbar##setValue (v); + elt_txt##innerHTML <- Js.string (string_of_float v ^ "%") + in + let outputs = + try + let title, contents = interface.get_input () in + !processor_ref tick (Js.to_string title, Js.to_string contents) + with exn -> + [("Error", Printexc.to_string exn)] + in + interface.new_output_tabs + (List.map (fun (t, o) -> (Js.string t, Js.string o)) outputs); + Lwt.return () + in + push_processing run + ); + + new_button toolbar "Close" (fun () -> + match get_selected_input () with + | None -> + Firebug.console##log (Js.string "Nothing to close!") + | Some selected_input -> + Firebug.console##log ((Js.string "Closing ")##concat (selected_input)); + let interface = + try + Hashtbl.find input_interfaces selected_input + with Not_found -> assert false + in + interface.close () + ); + + new_button toolbar "Help" (fun () -> + let dialog = jsnew Ui.dialog (Js.null, Js.null, Js.null) in + dialog##setContent (Js.string help_message); + dialog##setVisible (Js._true) + ); + + tabbar##decorate (get_element (Js.string "maintabbar")); + toolbar##render (Js.some (get_element (Js.string "maintoolbar"))) + in + let add_inputs inputs = + List.iter (fun (s, _) -> add_item s !menu_ref) inputs; + inputs_ref := List.map (fun (k, v) -> (Js.string k, fun () -> Js.string (v ()))) inputs + in + let register_processor p = + processor_ref := p + in + make_layout, add_inputs, register_processor + +let loaded = ref Js._false + +let rec load = function + | [] -> + Lwt.return [] + | Direct (title, contents) :: is -> + load is + >>= (fun is -> Lwt.return ((title, contents) :: is)) + | Url url :: is -> + load_input_from_url url + >>= (fun url_is -> + load is + >>= (fun is -> Lwt.return (url_is @ is))) + +let from_function inputs processor = + let start _ = + let rec wait_for_processing () = + Lwt_condition.wait processing_queue_updated + >>= next_processing + >>= wait_for_processing + in + Lwt_js.sleep 0.2 + >>= (fun () -> load inputs) + >>= fun inputs -> begin + make_layout (); + add_inputs inputs; + register_processor processor; + Firebug.console##log (Js.string "Loaded!"); + Lwt.return () + end + >>= wait_for_processing + in + Dom_html.window##onload <- Dom_html.handler (fun _ -> ignore (start ()); Js._false) + diff --git a/src/utilities/webify.mli b/src/utilities/webify.mli new file mode 100644 index 0000000..b1d7547 --- /dev/null +++ b/src/utilities/webify.mli @@ -0,0 +1,22 @@ +(** This module turns a function into a web application. *) + +(** An input is characterized by a title and a function that + returns the input contents if called. *) +type input = + | Direct of string * (unit -> string) + | Url of string + +(** An output is a title and some contents. *) +type output = (string * string) + +(** Given a list of input choices and a function that turns these + inputs into output, [from_function] produces an interactive + web application. *) +type processor_function = + (int -> int -> unit) -> (** Step n over m. *) + (string * string) -> + output list + +val from_function : input list -> processor_function -> unit + + diff --git a/tests/GCCTestSuite/920413-1.c b/tests/GCCTestSuite/920413-1.c new file mode 100644 index 0000000..6e8fff7 --- /dev/null +++ b/tests/GCCTestSuite/920413-1.c @@ -0,0 +1,10 @@ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +int +x (b) +{ + return + 4294967295U /* { dg-warning "width of integer|traditional C rejects" } */ + / (unsigned long) b; +} diff --git a/tests/GCCTestSuite/920413-1.c.expected b/tests/GCCTestSuite/920413-1.c.expected new file mode 100644 index 0000000..6e8fff7 --- /dev/null +++ b/tests/GCCTestSuite/920413-1.c.expected @@ -0,0 +1,10 @@ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +int +x (b) +{ + return + 4294967295U /* { dg-warning "width of integer|traditional C rejects" } */ + / (unsigned long) b; +} diff --git a/tests/GCCTestSuite/920413-1.hex.expected b/tests/GCCTestSuite/920413-1.hex.expected new file mode 100644 index 0000000..18f6081 --- /dev/null +++ b/tests/GCCTestSuite/920413-1.hex.expected @@ -0,0 +1,119 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF500E51EF501E51DD8 +:1000D000F509E51CF50AE51AF515E519F513750F8F +:1000E00000751000751100751200E500F516E501A8 +:1000F000F514E509F50DE50AF50E750C0075170008 +:10010000751900751A00750B00750A01750001C399 +:10011000E518F5F0E50E95F0F509E50BF5F0E50BC2 +:1001200035F0F509E509F5F0E50055F0F500E500D5 +:10013000F5F0E50C45F0F50C750001C3E518F5F098 +:10014000E50E95F0F509E50BF5F0E50B35F0F50951 +:10015000E50EF5F0E51895F0F501E50BF5F0E50B8A +:1001600035F0F501E501F5F0E50945F0F509E50A99 +:10017000F5F0E50965F0F509E509F5F0E50055F05C +:10018000F500C3E513F5F0E50D95F0F509E50BF580 +:10019000F0E50B35F0F509E509F5F0E50055F0F56A +:1001A00000E500F5F0E50C45F0F50C750001C3E540 +:1001B00018F5F0E50E95F0F509E50BF5F0E50B35D2 +:1001C000F0F509E50EF5F0E51895F0F501E50BF50C +:1001D000F0E50B35F0F501E501F5F0E50945F0F541 +:1001E00009E50AF5F0E50965F0F509E509F5F0E539 +:1001F0000055F0F500C3E513F5F0E50D95F0F509B0 +:10020000E50BF5F0E50B35F0F509E50DF5F0E51337 +:1002100095F0F501E50BF5F0E50B35F0F501E5019D +:10022000F5F0E50945F0F509E50AF5F0E50965F0B1 +:10023000F509E509F5F0E50055F0F500C3E515F51C +:10024000F0E51495F0F509E50BF5F0E50B35F0F563 +:1002500009E509F5F0E50055F0F500E500F5F0E5F4 +:100260000C45F0F50C750001C3E518F5F0E50E95A9 +:10027000F0F509E50BF5F0E50B35F0F509E50EF5C0 +:10028000F0E51895F0F501E50BF5F0E50B35F0F527 +:1002900001E501F5F0E50945F0F509E50AF5F0E5B8 +:1002A0000965F0F509E509F5F0E50055F0F500C33D +:1002B000E513F5F0E50D95F0F509E50BF5F0E50B27 +:1002C00035F0F509E50DF5F0E51395F0F501E50BD1 +:1002D000F5F0E50B35F0F501E501F5F0E50945F040 +:1002E000F509E50AF5F0E50965F0F509E509F5F028 +:1002F000E50055F0F500C3E515F5F0E51495F0F5CA +:1003000009E50BF5F0E50B35F0F509E514F5F0E539 +:100310001595F0F501E50BF5F0E50B35F0F501E588 +:1003200001F5F0E50945F0F509E50AF5F0E509659F +:10033000F0F509E509F5F0E50055F0F500C3E51B1A +:10034000F5F0E51695F0F509E50BF5F0E50B35F060 +:10035000F509E509F5F0E50055F0F500E500F5F0E3 +:10036000E50C45F0F50CE517F500E519F501E51A82 +:10037000F509E50CF50B750C01C3750A00E50BF5E5 +:10038000F0E50A95F0F50A750A00E50AF5F0E50AC8 +:1003900035F0F50AE50AF5F0E50C65F0F50CC375E6 +:1003A0000A00E500F5F0E50A95F0F50A750A00E5A2 +:1003B0000AF5F0E50A35F0F50AE50AF5F0E50C6511 +:1003C000F0F50CC3750A00E501F5F0E50A95F0F5C6 +:1003D0000A750A00E50AF5F0E50A35F0F50AE50ABE +:1003E000F5F0E50C65F0F50CC3750A00E509F5F0CC +:1003F000E50A95F0F50A750A00E50AF5F0E50A3513 +:10040000F0F50AE50AF5F0E50C65F0F50C7500006D +:10041000750100750900E500F50BE501F50A7501A8 +:1004200001C3750000E50CF5F0E50095F0F50075E9 +:100430000000E500F5F0E50035F0F500E500F5F029 +:10044000E50165F0F501C3750000E50BF5F0E50089 +:1004500095F0F500750000E500F5F0E50035F0F5E4 +:1004600000E500F5F0E50165F0F501C3750000E574 +:100470000AF5F0E50095F0F500750000E500F5F0EF +:10048000E50035F0F500E500F5F0E50165F0F50172 +:10049000C3750000E509F5F0E50095F0F50075007D +:1004A00000E500F5F0E50035F0F500E500F5F0E5D4 +:1004B0000165F0F501750900750A00750B007500FE +:1004C00000E501F5F0E50045F0F500E509F5F0E59A +:1004D0000045F0F500E50AF5F0E50045F0F500E52A +:1004E0000BF5F0E50045F0F500E500700280030231 +:1004F000055700750001750100750900750A00C3F4 +:10050000750B00E500F5F0E50F35F0F50FE501F5A9 +:10051000F0E51035F0F510E509F5F0E51135F0F5E9 +:1005200011E50AF5F0E51235F0F512C3E51BF5F01B +:10053000E51695F0F516E515F5F0E51495F0F514CA +:10054000E513F5F0E50D95F0F50DE518F5F0E50E80 +:1005500095F0F50E0200FA00E50FF502E510F5033F +:10056000E511F504E512F50575E0092506F5827536 +:10057000E0003507F583E0F51775E0082506F582FC +:1005800075E0003507F583E0F51675E0072506F5FB +:100590008275E0003507F583E0F51575E006250660 +:1005A000F58275E0003507F583E0F51475E0052563 +:1005B00006F58275E0003507F583E0F51375E00474 +:1005C0002506F58275E0003507F583E0F51275E044 +:1005D000032506F58275E0003507F583E0F5117512 +:1005E000E0022506F58275E0003507F583E0F51099 +:1005F00075E0002506F58275E0003507F583E0F526 +:1006000008E508C0E075E0012506F58275E00035D3 +:1006100007F583E0F508E508C0E075E0122506F56A +:100620000675E0003507F507E502F582E503F58379 +:10063000E504F500E505F5012200E506758206C32F +:100640009582F506E5077583009583F507D0E0F5FB +:100650000875E0012506F58275E0003507F583E5AC +:1006600008F0D0E0F50875E0002506F58275E00099 +:100670003507F583E508F0750A0175000075090076 +:10068000750100E50AF4F50AE500F4F500E509F462 +:10069000F509E501F4F501D3750B00E50BF5F0E57F +:1006A0000A35F0F50AE50BF5F0E50035F0F500E563 +:1006B0000BF5F0E50935F0F509E50BF5F0E5013549 +:1006C000F0F501E51FF51BE51EF51AE51DF519E529 +:1006D0001CF518E50AF51FE500F51EE509F51DE511 +:1006E00001F51C120000E582F502E583F503E50043 +:1006F000F504E501F505E502F500E503F501E5047E +:10070000F509E505F50AE500F502E501F503E5095A +:10071000F504E50AF50575E0002506F58275E000AB +:100720003507F583E0F508E508C0E075E00125062A +:10073000F58275E0003507F583E0F508E508C0E0CF +:1007400075E0062506F50675E0003507F507E502B4 +:10075000F582E503F583E504F500E505F5012200E2 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/920413-1.s.expected b/tests/GCCTestSuite/920413-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/920413-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/940409-1.c b/tests/GCCTestSuite/940409-1.c new file mode 100644 index 0000000..2d20b89 --- /dev/null +++ b/tests/GCCTestSuite/940409-1.c @@ -0,0 +1,6 @@ +/* GCC should allow struct S to be in a register. */ +/* { dg-do compile } */ + +struct S { volatile int field; }; +int f (register struct S arg); /* { dg-bogus "volatile field" "with arg" } */ +int g (register struct S); /* { dg-bogus "volatile field" "no arg" } */ diff --git a/tests/GCCTestSuite/940409-1.c.expected b/tests/GCCTestSuite/940409-1.c.expected new file mode 100644 index 0000000..2d20b89 --- /dev/null +++ b/tests/GCCTestSuite/940409-1.c.expected @@ -0,0 +1,6 @@ +/* GCC should allow struct S to be in a register. */ +/* { dg-do compile } */ + +struct S { volatile int field; }; +int f (register struct S arg); /* { dg-bogus "volatile field" "with arg" } */ +int g (register struct S); /* { dg-bogus "volatile field" "no arg" } */ diff --git a/tests/GCCTestSuite/940409-1.hex.expected b/tests/GCCTestSuite/940409-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/940409-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/940409-1.s.expected b/tests/GCCTestSuite/940409-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/940409-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/951130-1.c b/tests/GCCTestSuite/951130-1.c new file mode 100644 index 0000000..60013e2 --- /dev/null +++ b/tests/GCCTestSuite/951130-1.c @@ -0,0 +1,5 @@ +/* { dg-do compile } + { dg-options "-Werror" } */ + +unsigned long long x = -(unsigned long long)(-(long long) + (((unsigned long long)0 - 1) >> 1) - 1); diff --git a/tests/GCCTestSuite/951130-1.c.expected b/tests/GCCTestSuite/951130-1.c.expected new file mode 100644 index 0000000..60013e2 --- /dev/null +++ b/tests/GCCTestSuite/951130-1.c.expected @@ -0,0 +1,5 @@ +/* { dg-do compile } + { dg-options "-Werror" } */ + +unsigned long long x = -(unsigned long long)(-(long long) + (((unsigned long long)0 - 1) >> 1) - 1); diff --git a/tests/GCCTestSuite/951130-1.hex.expected b/tests/GCCTestSuite/951130-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/951130-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/951130-1.s.expected b/tests/GCCTestSuite/951130-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/951130-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/980502-1.c b/tests/GCCTestSuite/980502-1.c new file mode 100644 index 0000000..f06491c --- /dev/null +++ b/tests/GCCTestSuite/980502-1.c @@ -0,0 +1,9 @@ +/* { dg-do compile }*/ +/* { dg-options "-O2" } */ + +char *const f(void) +{ + char *const line = "/dev/ptyXX"; + line[8] = 1; + return line; +} diff --git a/tests/GCCTestSuite/980502-1.c.expected b/tests/GCCTestSuite/980502-1.c.expected new file mode 100644 index 0000000..f06491c --- /dev/null +++ b/tests/GCCTestSuite/980502-1.c.expected @@ -0,0 +1,9 @@ +/* { dg-do compile }*/ +/* { dg-options "-O2" } */ + +char *const f(void) +{ + char *const line = "/dev/ptyXX"; + line[8] = 1; + return line; +} diff --git a/tests/GCCTestSuite/990213-1.c b/tests/GCCTestSuite/990213-1.c new file mode 100644 index 0000000..a7c9f24 --- /dev/null +++ b/tests/GCCTestSuite/990213-1.c @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-W -Wall -Werror" } */ + +static inline int unused_fn(int dummyarg) +{ + return dummyarg*dummyarg; +} + +int main() +{ + return 0; +} diff --git a/tests/GCCTestSuite/990213-1.c.expected b/tests/GCCTestSuite/990213-1.c.expected new file mode 100644 index 0000000..a7c9f24 --- /dev/null +++ b/tests/GCCTestSuite/990213-1.c.expected @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-W -Wall -Werror" } */ + +static inline int unused_fn(int dummyarg) +{ + return dummyarg*dummyarg; +} + +int main() +{ + return 0; +} diff --git a/tests/GCCTestSuite/990213-1.hex.expected b/tests/GCCTestSuite/990213-1.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/990213-1.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/990213-1.s.expected b/tests/GCCTestSuite/990213-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/990213-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/Makefile b/tests/GCCTestSuite/Makefile new file mode 100644 index 0000000..2cfb135 --- /dev/null +++ b/tests/GCCTestSuite/Makefile @@ -0,0 +1,73 @@ +# -*- Makefile -*- +.PHONY: prepare-check check clean prepare-expected expected all + +all-generic: check + +-include ../../Makefile.local + +IN_EXT=c +OUT_EXT=hex +OPTIONS=$(shell if test -f options; then cat options; else echo ""; fi) +PROGRAM=../../$(TARGET) -is $(OPTIONS) + +# Compute the set of input files. +INPUTS=$(shell find . -name "*.$(IN_EXT)" | sed "s/-annotated.c/.c/g" | uniq) + +OUTPUTS=$(INPUTS:$(IN_EXT)=$(OUT_EXT)) + +# We run the compiler in debugging mode on each input file. +# This will produce an $(OUTEXT) file as well as a lot of +# files that contain execution traces. We check that these +# traces are the ones that are expected. +%.$(OUT_EXT): %.$(IN_EXT) ../../$(TARGET) + @ echo ----------------------------------------\ + -------------------------------------- + @ echo -n Checking $* ... + @ (($(PROGRAM) $< 2> $*.log 1> $*.log && (echo OK | tee -a ok-counter)) \ + || (echo "KO"; echo " ($*.log for details)" | tee -a ko-counter)) + @ for i in `ls $** | grep -v expected | grep -v log`; do \ + if [ ! -e $$i.expected ]; then \ + echo No reference to compare to.; \ + if [ x`cat generate` = x1 ]; then \ + echo "Current output becomes expected behavior, as asked."; \ + cp $$i $$i.expected; \ + fi; \ + elif diff -u $$i $$i.expected 2> /dev/null 1> /dev/null; then \ + echo " [OK] $$i" | tee -a ok-counter; \ + else \ + echo " [KO] $$i" | tee -a ko-counter; \ + fi; \ + done + +prepare-check: + @ rm --force ok-counter ko-counter + @ touch ok-counter + @ touch ko-counter + +check: clean prepare-check $(OUTPUTS) + @ cat ok-counter ko-counter > total-counter + @ echo ----------------------------------------\ + -------------------------------------- + @ echo ----------------------------------------\ + -------------------------------------- + @ echo Total: \ + `wc -l ok-counter | cut -f1 -d' '` \ + /`wc -l total-counter | cut -f1 -d' '` + @ echo ----------------------------------------\ + -------------------------------------- + +prepare-expected: + @ GENERATE=1 + @ export GENERATE + @ echo You asked for overwriting of the expected outputs. + @ echo -n "Are you sure? [Y/N] " + @ read R; if [ $$R = "Y" ]; then \ + echo 1 > generate; \ + else \ + echo 0 > generate; \ + fi + +expected: clean prepare-expected check + +clean: + rm --force *.hex *.s *.cerco *.Clight *.Cminor *.RTLabs *.RTL *.ERTL *.LTL *.LIN *.log *-annotated.c diff --git a/tests/GCCTestSuite/alias-2.c b/tests/GCCTestSuite/alias-2.c new file mode 100644 index 0000000..d507416 --- /dev/null +++ b/tests/GCCTestSuite/alias-2.c @@ -0,0 +1,16 @@ +// { dg-do compile } +// { dg-options "-Wstrict-aliasing=2 -fstrict-aliasing" } + +struct foo { + char c; + char d; + short s; + int i; +} bar; + +int +sub1 (long long int foobar) +{ + struct foo *tmp = (struct foo *) &foobar; // { dg-warning "type-punned pointer might" "" } + return tmp->i; +} diff --git a/tests/GCCTestSuite/alias-2.c.expected b/tests/GCCTestSuite/alias-2.c.expected new file mode 100644 index 0000000..d507416 --- /dev/null +++ b/tests/GCCTestSuite/alias-2.c.expected @@ -0,0 +1,16 @@ +// { dg-do compile } +// { dg-options "-Wstrict-aliasing=2 -fstrict-aliasing" } + +struct foo { + char c; + char d; + short s; + int i; +} bar; + +int +sub1 (long long int foobar) +{ + struct foo *tmp = (struct foo *) &foobar; // { dg-warning "type-punned pointer might" "" } + return tmp->i; +} diff --git a/tests/GCCTestSuite/alias-2.hex.expected b/tests/GCCTestSuite/alias-2.hex.expected new file mode 100644 index 0000000..cdccd2b --- /dev/null +++ b/tests/GCCTestSuite/alias-2.hex.expected @@ -0,0 +1,36 @@ +:1000000000E506758208C39582F506E5077583004D +:100010009583F507D0E0F518D0E0F519E512F50B5A +:10002000E511F50FE506F50AE507F501750900C3C9 +:10003000750000E509F5F0E50A35F0F509E500F58C +:10004000F0E50135F0F50A750100C3750000E50122 +:10005000F5F0E50935F0F501E500F5F0E50A35F0D4 +:10006000F500E51FF503E500F502E501F582E5027F +:10007000F583E503F0750101C3750000E501F5F0B6 +:10008000E50935F0F501E500F5F0E50A35F0F50094 +:10009000E51EF503E500F502E501F582E502F583CD +:1000A000E503F0750102C3750000E501F5F0E5090F +:1000B00035F0F501E500F5F0E50A35F0F500E51D50 +:1000C000F503E500F502E501F582E502F583E503B8 +:1000D000F0750103C3750000E501F5F0E50935F0A1 +:1000E000F501E500F5F0E50A35F0F500E51CF5034E +:1000F000E500F502E501F582E502F583E503F0E5AB +:1001000006F509E507F50A750100C3750000E5016C +:10011000F5F0E50935F0F501E500F5F0E50A35F013 +:10012000F50A750904C3750000E509F5F0E5013528 +:10013000F0F501E500F5F0E50A35F0F500E501F52B +:1001400009E500F50A750100C3750000E501F5F049 +:10015000E50935F0F501E500F5F0E50A35F0F500C3 +:10016000E500F502E501F582E502F583E0F50C75A1 +:100170000101C3750000E501F5F0E50935F0F50171 +:10018000E500F5F0E50A35F0F500E500F502E501DA +:10019000F582E502F583E0F50D750102C3750000F7 +:1001A000E501F5F0E50935F0F501E500F5F0E50AC2 +:1001B00035F0F500E500F502E501F582E502F5838D +:1001C000E0F50E750103C3750000E501F5F0E509E2 +:1001D00035F0F501E500F5F0E50A35F0F500E5004C +:1001E000F502E501F582E502F583E0F500E50CF5A1 +:1001F00002E50DF503E50EF504E500F505E50BF563 +:1002000012E50FF511E519C0E0E518C0E075E0084A +:100210002506F50675E0003507F507E502F582E5E8 +:1002200003F583E504F500E505F501220000000073 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/alias-2.s.expected b/tests/GCCTestSuite/alias-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/alias-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/alias-8.c b/tests/GCCTestSuite/alias-8.c new file mode 100644 index 0000000..690f1b6 --- /dev/null +++ b/tests/GCCTestSuite/alias-8.c @@ -0,0 +1,12 @@ +// { dg-do compile } +// { dg-options "-Wstrict-aliasing=2 -fstrict-aliasing" } + +struct s { + char *p; +}; + +void +func(struct s *ptr) +{ + *(void **)&ptr->p = 0; /* { dg-warning "type-punned pointer" } */ +} diff --git a/tests/GCCTestSuite/alias-8.c.expected b/tests/GCCTestSuite/alias-8.c.expected new file mode 100644 index 0000000..690f1b6 --- /dev/null +++ b/tests/GCCTestSuite/alias-8.c.expected @@ -0,0 +1,12 @@ +// { dg-do compile } +// { dg-options "-Wstrict-aliasing=2 -fstrict-aliasing" } + +struct s { + char *p; +}; + +void +func(struct s *ptr) +{ + *(void **)&ptr->p = 0; /* { dg-warning "type-punned pointer" } */ +} diff --git a/tests/GCCTestSuite/alias-8.hex.expected b/tests/GCCTestSuite/alias-8.hex.expected new file mode 100644 index 0000000..aa8e164 --- /dev/null +++ b/tests/GCCTestSuite/alias-8.hex.expected @@ -0,0 +1,15 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F50ED0E0F50FE510F50D6E +:10002000E51EF500750900C3750100E509F5F0E569 +:100030001F35F0F50BE501F5F0E50035F0F50C7531 +:100040000900750A00750100C3750000E501F5F0AF +:10005000E50B35F0F501E500F5F0E50C35F0F500C0 +:10006000E509F503E500F502E501F582E502F58312 +:10007000E503F0750101C3750000E501F5F0E50B3E +:1000800035F0F501E500F5F0E50C35F0F500E50A91 +:10009000F503E500F502E501F582E502F583E503E8 +:1000A000F0750000E500F502E500F503E500F50454 +:1000B000E500F505E50DF510E50FC0E0E50EC0E043 +:1000C00075E0022506F50675E0003507F507E5023F +:1000D000F582E503F583E504F500E505F501220069 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/alias-8.s.expected b/tests/GCCTestSuite/alias-8.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/alias-8.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/align-1.c b/tests/GCCTestSuite/align-1.c new file mode 100644 index 0000000..187eb52 --- /dev/null +++ b/tests/GCCTestSuite/align-1.c @@ -0,0 +1,28 @@ +/* PR java/10145 + Test that requesting an alignment of 1 does not increase the alignment + of a long long field. + + { dg-do run } + { dg-options "" } +*/ + +extern void abort (void); + +struct A +{ + char c; + long long i; +}; + +struct B +{ + char c; + long long i __attribute ((__aligned__ (1))); +}; + +int main () +{ + if (sizeof (struct A) != sizeof (struct B)) + abort (); + return 0; +} diff --git a/tests/GCCTestSuite/align-1.c.expected b/tests/GCCTestSuite/align-1.c.expected new file mode 100644 index 0000000..187eb52 --- /dev/null +++ b/tests/GCCTestSuite/align-1.c.expected @@ -0,0 +1,28 @@ +/* PR java/10145 + Test that requesting an alignment of 1 does not increase the alignment + of a long long field. + + { dg-do run } + { dg-options "" } +*/ + +extern void abort (void); + +struct A +{ + char c; + long long i; +}; + +struct B +{ + char c; + long long i __attribute ((__aligned__ (1))); +}; + +int main () +{ + if (sizeof (struct A) != sizeof (struct B)) + abort (); + return 0; +} diff --git a/tests/GCCTestSuite/align-1.hex.expected b/tests/GCCTestSuite/align-1.hex.expected new file mode 100644 index 0000000..9afae48 --- /dev/null +++ b/tests/GCCTestSuite/align-1.hex.expected @@ -0,0 +1,24 @@ +:1000000075812F7506FF7507FF12001002000C00A6 +:1000100000E506758202C39582F506E50775830043 +:100020009583F507D0E0F50875E0012506F58275A2 +:10003000E0003507F583E508F0D0E0F50875E0004D +:100040002506F58275E0003507F583E508F0750BA8 +:1000500005750C00750D00750E0075000575010025 +:10006000750900750A00750F00C3E500F5F0E50B92 +:1000700095F0F500E500F5F0E50F45F0F50FC3E567 +:1000800001F5F0E50C95F0F500E500F5F0E50F451C +:10009000F0F50FC3E509F5F0E50D95F0F500E50085 +:1000A000F5F0E50F45F0F50FC3E50AF5F0E50E951F +:1000B000F0F500E500F5F0E50F45F0F50F750100EE +:1000C000750900750A00750000E50FF5F0E50045BB +:1000D000F0F500E501F5F0E50045F0F500E509F57E +:1000E000F0E50045F0F500E50AF5F0E50045F0F52E +:1000F00000E50070028003020160007500007501D8 +:1001000000750900750A00E500F502E501F503E553 +:1001100009F504E50AF50575E0002506F58275E0A8 +:10012000003507F583E0F508E508C0E075E0012536 +:1001300006F58275E0003507F583E0F508E508C0AF +:10014000E075E0022506F50675E0003507F507E5E0 +:1001500002F582E503F583E504F500E505F50122E6 +:10016000000200FB00000000000000000000000092 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/align-1.s.expected b/tests/GCCTestSuite/align-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/align-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/always_inline2.c b/tests/GCCTestSuite/always_inline2.c new file mode 100644 index 0000000..fa6528d --- /dev/null +++ b/tests/GCCTestSuite/always_inline2.c @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2" } */ +inline __attribute__ ((always_inline)) void t(void); /* { dg-error "body not available" "" } */ +void +q(void) +{ + t(); /* { dg-error "called from here" "" } */ +} diff --git a/tests/GCCTestSuite/always_inline2.c.expected b/tests/GCCTestSuite/always_inline2.c.expected new file mode 100644 index 0000000..fa6528d --- /dev/null +++ b/tests/GCCTestSuite/always_inline2.c.expected @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2" } */ +inline __attribute__ ((always_inline)) void t(void); /* { dg-error "body not available" "" } */ +void +q(void) +{ + t(); /* { dg-error "called from here" "" } */ +} diff --git a/tests/GCCTestSuite/always_inline2.hex.expected b/tests/GCCTestSuite/always_inline2.hex.expected new file mode 100644 index 0000000..0680eba --- /dev/null +++ b/tests/GCCTestSuite/always_inline2.hex.expected @@ -0,0 +1,11 @@ +:100000000000E506758202C39582F506E507758353 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:100040000000E500F502E500F503E500F504E50034 +:10005000F50575E0002506F58275E0003507F583A6 +:10006000E0F508E508C0E075E0012506F58275E0D9 +:10007000003507F583E0F508E508C0E075E00225E6 +:1000800006F50675E0003507F507E502F582E5039C +:10009000F583E504F500E505F50122000000000008 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/always_inline2.s.expected b/tests/GCCTestSuite/always_inline2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/always_inline2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/always_inline3.c b/tests/GCCTestSuite/always_inline3.c new file mode 100644 index 0000000..b183770 --- /dev/null +++ b/tests/GCCTestSuite/always_inline3.c @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2" } */ +inline __attribute__ ((always_inline)) void +q2(void) +{ /* { dg-error "recursive" "" } */ + q2(); /* { dg-error "called from here" "" } */ + q2(); /* { dg-error "called from here" "" } */ +} diff --git a/tests/GCCTestSuite/always_inline3.c.expected b/tests/GCCTestSuite/always_inline3.c.expected new file mode 100644 index 0000000..b183770 --- /dev/null +++ b/tests/GCCTestSuite/always_inline3.c.expected @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2" } */ +inline __attribute__ ((always_inline)) void +q2(void) +{ /* { dg-error "recursive" "" } */ + q2(); /* { dg-error "called from here" "" } */ + q2(); /* { dg-error "called from here" "" } */ +} diff --git a/tests/GCCTestSuite/always_inline3.hex.expected b/tests/GCCTestSuite/always_inline3.hex.expected new file mode 100644 index 0000000..7d1a3f9 --- /dev/null +++ b/tests/GCCTestSuite/always_inline3.hex.expected @@ -0,0 +1,11 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0120026 +:1000400000120000750000E500F502E500F503E58B +:1000500000F504E500F50575E0002506F58275E07C +:10006000003507F583E0F508E508C0E075E00125F7 +:1000700006F58275E0003507F583E0F508E508C070 +:10008000E075E0022506F50675E0003507F507E5A1 +:1000900002F582E503F583E504F500E505F50122A7 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/always_inline3.s.expected b/tests/GCCTestSuite/always_inline3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/always_inline3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-3.c b/tests/GCCTestSuite/anon-struct-3.c new file mode 100644 index 0000000..3ed6e67 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-3.c @@ -0,0 +1,32 @@ +/* { dg-options "-std=gnu89 -fms-extensions" } */ +/* Enabling Microsoft mode makes all of the tests equivalent. Checked vs + Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 12.00.8168 for 80x86 + */ + +struct A { char a; }; + +struct B { + struct A; + char b; +}; +char testB[sizeof(struct B) == 2 * sizeof(struct A) ? 1 : -1]; + +struct C { + struct D { char d; }; + char c; +}; +char testC[sizeof(struct C) == 2 * sizeof(struct A) ? 1 : -1]; +char testD[sizeof(struct D) == sizeof(struct A) ? 1 : -1]; + +struct E { + struct { char z; }; + char e; +}; +char testE[sizeof(struct E) == 2 * sizeof(struct A) ? 1 : -1]; + +typedef struct A typedef_A; +struct F { + typedef_A; + char f; +}; +char testF[sizeof(struct F) == 2 * sizeof(struct A) ? 1 : -1]; diff --git a/tests/GCCTestSuite/anon-struct-3.c.expected b/tests/GCCTestSuite/anon-struct-3.c.expected new file mode 100644 index 0000000..3ed6e67 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-3.c.expected @@ -0,0 +1,32 @@ +/* { dg-options "-std=gnu89 -fms-extensions" } */ +/* Enabling Microsoft mode makes all of the tests equivalent. Checked vs + Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 12.00.8168 for 80x86 + */ + +struct A { char a; }; + +struct B { + struct A; + char b; +}; +char testB[sizeof(struct B) == 2 * sizeof(struct A) ? 1 : -1]; + +struct C { + struct D { char d; }; + char c; +}; +char testC[sizeof(struct C) == 2 * sizeof(struct A) ? 1 : -1]; +char testD[sizeof(struct D) == sizeof(struct A) ? 1 : -1]; + +struct E { + struct { char z; }; + char e; +}; +char testE[sizeof(struct E) == 2 * sizeof(struct A) ? 1 : -1]; + +typedef struct A typedef_A; +struct F { + typedef_A; + char f; +}; +char testF[sizeof(struct F) == 2 * sizeof(struct A) ? 1 : -1]; diff --git a/tests/GCCTestSuite/anon-struct-3.hex.expected b/tests/GCCTestSuite/anon-struct-3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-3.s.expected b/tests/GCCTestSuite/anon-struct-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-4.c b/tests/GCCTestSuite/anon-struct-4.c new file mode 100644 index 0000000..dc30b0c --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-4.c @@ -0,0 +1,10 @@ +/* Test anonymous structures with type qualifiers. Bug 8420. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu89" } */ + +struct s { + struct { int a; }; + const struct { int b; }; + struct { int c; } volatile; +}; diff --git a/tests/GCCTestSuite/anon-struct-4.c.expected b/tests/GCCTestSuite/anon-struct-4.c.expected new file mode 100644 index 0000000..dc30b0c --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-4.c.expected @@ -0,0 +1,10 @@ +/* Test anonymous structures with type qualifiers. Bug 8420. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu89" } */ + +struct s { + struct { int a; }; + const struct { int b; }; + struct { int c; } volatile; +}; diff --git a/tests/GCCTestSuite/anon-struct-4.hex.expected b/tests/GCCTestSuite/anon-struct-4.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-4.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-4.s.expected b/tests/GCCTestSuite/anon-struct-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-5.c b/tests/GCCTestSuite/anon-struct-5.c new file mode 100644 index 0000000..f7d1278 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-5.c @@ -0,0 +1,7 @@ +/* Test bad warning for anonymous int in structure. Bug 17189. */ +/* { dg-do compile } */ +/* { dg-options "-std=c99 -pedantic-errors" } */ + +struct Foo { int; }; /* { dg-bogus "unnamed" } */ +/* { dg-error "error: declaration does not declare anything" "int;" { target *-*-* } 5 } */ +/* { dg-error "error: struct has no members" "no members" { target *-*-* } 5 } */ diff --git a/tests/GCCTestSuite/anon-struct-5.c.expected b/tests/GCCTestSuite/anon-struct-5.c.expected new file mode 100644 index 0000000..f7d1278 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-5.c.expected @@ -0,0 +1,7 @@ +/* Test bad warning for anonymous int in structure. Bug 17189. */ +/* { dg-do compile } */ +/* { dg-options "-std=c99 -pedantic-errors" } */ + +struct Foo { int; }; /* { dg-bogus "unnamed" } */ +/* { dg-error "error: declaration does not declare anything" "int;" { target *-*-* } 5 } */ +/* { dg-error "error: struct has no members" "no members" { target *-*-* } 5 } */ diff --git a/tests/GCCTestSuite/anon-struct-5.hex.expected b/tests/GCCTestSuite/anon-struct-5.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-5.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-5.s.expected b/tests/GCCTestSuite/anon-struct-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-6.c b/tests/GCCTestSuite/anon-struct-6.c new file mode 100644 index 0000000..ad961c6 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-6.c @@ -0,0 +1,12 @@ +/* Test diagnostics for structure member with no type specifier or + declarator. Test with no special options. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +struct s { + int a; + const; +}; +/* { dg-warning "warning: useless type qualifier in empty declaration" "empty" { target *-*-* } 9 } */ +/* { dg-warning "warning: empty declaration" "empty 2" { target *-*-* } 9 } */ diff --git a/tests/GCCTestSuite/anon-struct-6.c.expected b/tests/GCCTestSuite/anon-struct-6.c.expected new file mode 100644 index 0000000..ad961c6 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-6.c.expected @@ -0,0 +1,12 @@ +/* Test diagnostics for structure member with no type specifier or + declarator. Test with no special options. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +struct s { + int a; + const; +}; +/* { dg-warning "warning: useless type qualifier in empty declaration" "empty" { target *-*-* } 9 } */ +/* { dg-warning "warning: empty declaration" "empty 2" { target *-*-* } 9 } */ diff --git a/tests/GCCTestSuite/anon-struct-6.hex.expected b/tests/GCCTestSuite/anon-struct-6.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-6.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-6.s.expected b/tests/GCCTestSuite/anon-struct-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-7.c b/tests/GCCTestSuite/anon-struct-7.c new file mode 100644 index 0000000..1879079 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-7.c @@ -0,0 +1,10 @@ +/* Test diagnostics for structure member with no type specifier or + declarator. Test with -pedantic. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +struct s { + int a; + const; /* { dg-warning "warning: ISO C forbids member declarations with no members" } */ +}; diff --git a/tests/GCCTestSuite/anon-struct-7.c.expected b/tests/GCCTestSuite/anon-struct-7.c.expected new file mode 100644 index 0000000..1879079 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-7.c.expected @@ -0,0 +1,10 @@ +/* Test diagnostics for structure member with no type specifier or + declarator. Test with -pedantic. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +struct s { + int a; + const; /* { dg-warning "warning: ISO C forbids member declarations with no members" } */ +}; diff --git a/tests/GCCTestSuite/anon-struct-7.hex.expected b/tests/GCCTestSuite/anon-struct-7.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-7.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-7.s.expected b/tests/GCCTestSuite/anon-struct-7.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-7.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-8.c b/tests/GCCTestSuite/anon-struct-8.c new file mode 100644 index 0000000..c4beb80 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-8.c @@ -0,0 +1,10 @@ +/* Test diagnostics for structure member with no type specifier or + declarator. Test with -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic-errors" } */ + +struct s { + int a; + const; /* { dg-error "error: ISO C forbids member declarations with no members" } */ +}; diff --git a/tests/GCCTestSuite/anon-struct-8.c.expected b/tests/GCCTestSuite/anon-struct-8.c.expected new file mode 100644 index 0000000..c4beb80 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-8.c.expected @@ -0,0 +1,10 @@ +/* Test diagnostics for structure member with no type specifier or + declarator. Test with -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic-errors" } */ + +struct s { + int a; + const; /* { dg-error "error: ISO C forbids member declarations with no members" } */ +}; diff --git a/tests/GCCTestSuite/anon-struct-8.hex.expected b/tests/GCCTestSuite/anon-struct-8.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-8.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/anon-struct-8.s.expected b/tests/GCCTestSuite/anon-struct-8.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/anon-struct-8.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/arm-g2.c b/tests/GCCTestSuite/arm-g2.c new file mode 100644 index 0000000..a15b280 --- /dev/null +++ b/tests/GCCTestSuite/arm-g2.c @@ -0,0 +1,19 @@ +/* Verify that hardware multiply is preferred on XScale. */ +/* { dg-do compile } */ +/* { dg-options "-mcpu=xscale -O2" } */ +/* { dg-require-effective-target arm32 } */ + +/* Brett Gaines' test case. */ +unsigned BCPL(unsigned) __attribute__ ((naked)); +unsigned BCPL(unsigned seed) +{ + /* Best code would be: + ldr r1, =2147001325 + ldr r2, =715136305 + mla r0, r1, r0, r2 + mov pc, lr */ + + return seed * 2147001325U + 715136305U; +} + +/* { dg-final { scan-assembler "mla\[ ].*" } } */ diff --git a/tests/GCCTestSuite/arm-g2.c.expected b/tests/GCCTestSuite/arm-g2.c.expected new file mode 100644 index 0000000..a15b280 --- /dev/null +++ b/tests/GCCTestSuite/arm-g2.c.expected @@ -0,0 +1,19 @@ +/* Verify that hardware multiply is preferred on XScale. */ +/* { dg-do compile } */ +/* { dg-options "-mcpu=xscale -O2" } */ +/* { dg-require-effective-target arm32 } */ + +/* Brett Gaines' test case. */ +unsigned BCPL(unsigned) __attribute__ ((naked)); +unsigned BCPL(unsigned seed) +{ + /* Best code would be: + ldr r1, =2147001325 + ldr r2, =715136305 + mla r0, r1, r0, r2 + mov pc, lr */ + + return seed * 2147001325U + 715136305U; +} + +/* { dg-final { scan-assembler "mla\[ ].*" } } */ diff --git a/tests/GCCTestSuite/arm-g2.hex.expected b/tests/GCCTestSuite/arm-g2.hex.expected new file mode 100644 index 0000000..ef5c86c --- /dev/null +++ b/tests/GCCTestSuite/arm-g2.hex.expected @@ -0,0 +1,64 @@ +:1000000000E50675820AC39582F506E5077583004B +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0E5173C +:10004000F518E516F519E515F51AE514F51B75E033 +:10005000052506F58275E0003507F583E513F07593 +:10006000E0042506F58275E0003507F583E512F01A +:1000700075E0032506F58275E0003507F583E51187 +:10008000F075E0022506F58275E0003507F583E599 +:1000900010F0E51FF500E51EF501E51DF509E51C6D +:1000A000F517750D13750C5C750B07750A00E50DDA +:1000B000F4F50DE50CF4F50EE50BF4F50FE50AF497 +:1000C000F514D3750A00E50AF5F0E50D35F0F50DE8 +:1000D000E50AF5F0E50E35F0F50EE50AF5F0E50F69 +:1000E00035F0F50FE50AF5F0E51435F0F514E50106 +:1000F000F515E509F51675100075110075120075F6 +:100100001300C3750100E500F5F0E50DA4F50CE55D +:1001100000F5F0E50DA4E5F0F509E50CF5F0E501D5 +:1001200035F0F501E515F5F0E50DA4F50CE515F54F +:10013000F0E50DA4E5F0F50AE50CF5F0E50935F07C +:10014000F509E516F5F0E50DA4F50CE516F5F0E575 +:100150000DA4E5F0F50BE50CF5F0E50A35F0F50A30 +:10016000E517F5F0E50DA4F50CE517F5F0E50DA4A0 +:10017000E5F0F50DE50CF5F0E50B35F0F50BC3C337 +:10018000750C00E501F5F0E51035F0F510E509F521 +:10019000F0E51135F0F511E50AF5F0E51235F0F569 +:1001A00012E50BF5F0E51335F0F513C3750900E51D +:1001B00000F5F0E50EA4F50CE500F5F0E50EA4E57C +:1001C000F0F50AE50CF5F0E50935F0F509E515F56A +:1001D000F0E50EA4F50CE515F5F0E50EA4E5F0F557 +:1001E0000BE50CF5F0E50A35F0F50AE516F5F0E556 +:1001F0000EA4F50CE516F5F0E50EA4E5F0F50DE519 +:100200000CF5F0E50B35F0F50B750100C3C3750C6B +:1002100000E501F5F0E51035F0F510E509F5F0E53C +:100220001135F0F511E50AF5F0E51235F0F512E5B6 +:100230000BF5F0E51335F0F513C3750A00E500F58D +:10024000F0E50FA4F50CE500F5F0E50FA4E5F0F5F9 +:100250000BE50CF5F0E50A35F0F50AE515F5F0E5E6 +:100260000FA4F50CE515F5F0E50FA4E5F0F50DE5A7 +:100270000CF5F0E50B35F0F50B750100750900C3C1 +:10028000C3750C00E501F5F0E51035F0F510E50952 +:10029000F5F0E51135F0F511E50AF5F0E51235F068 +:1002A000F512E50BF5F0E51335F0F513C3750B000A +:1002B000E500F5F0E514A4F50CE500F5F0E514A46F +:1002C000E5F0F50DE50CF5F0E50B35F0F50B7501F6 +:1002D00000750900750A00C3C3750000E501F5F05B +:1002E000E51035F0F510E509F5F0E51135F0F511FB +:1002F000E50AF5F0E51235F0F512E50BF5F0E5133A +:1003000035F0F51375013175091D750AA0750B2AB5 +:10031000C3750000E501F5F0E51035F0F500E509DD +:10032000F5F0E51135F0F501E50AF5F0E51235F0E7 +:10033000F509E50BF5F0E51335F0F50AE500F502F2 +:10034000E501F503E509F504E50AF505E518F517F6 +:10035000E519F516E51AF515E51BF51475E0052503 +:1003600006F58275E0003507F583E0F51375E004C6 +:100370002506F58275E0003507F583E0F51275E096 +:10038000032506F58275E0003507F583E0F5117564 +:10039000E0022506F58275E0003507F583E0F510EB +:1003A00075E0002506F58275E0003507F583E0F578 +:1003B00008E508C0E075E0012506F58275E0003526 +:1003C00007F583E0F508E508C0E075E00A2506F5C5 +:1003D0000675E0003507F507E502F582E503F583CC +:1003E000E504F500E505F50122000000000000002D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/arm-g2.s.expected b/tests/GCCTestSuite/arm-g2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/arm-g2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/arm-scd42-1.c b/tests/GCCTestSuite/arm-scd42-1.c new file mode 100644 index 0000000..70b34de --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-1.c @@ -0,0 +1,15 @@ +/* Verify that mov is preferred on XScale for loading a 1 byte constant. */ +/* { dg-do compile { target xscale-*-* } } */ +/* { dg-options "-mcpu=xscale -O" } */ + +unsigned load1(void) __attribute__ ((naked)); +unsigned load1(void) +{ + /* Best code would be: + mov r0, =17 + mov pc, lr */ + + return 17; +} + +/* { dg-final { scan-assembler "mov\[ ].*17" } } */ diff --git a/tests/GCCTestSuite/arm-scd42-1.c.expected b/tests/GCCTestSuite/arm-scd42-1.c.expected new file mode 100644 index 0000000..70b34de --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-1.c.expected @@ -0,0 +1,15 @@ +/* Verify that mov is preferred on XScale for loading a 1 byte constant. */ +/* { dg-do compile { target xscale-*-* } } */ +/* { dg-options "-mcpu=xscale -O" } */ + +unsigned load1(void) __attribute__ ((naked)); +unsigned load1(void) +{ + /* Best code would be: + mov r0, =17 + mov pc, lr */ + + return 17; +} + +/* { dg-final { scan-assembler "mov\[ ].*17" } } */ diff --git a/tests/GCCTestSuite/arm-scd42-1.hex.expected b/tests/GCCTestSuite/arm-scd42-1.hex.expected new file mode 100644 index 0000000..476c3bc --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750911750A007522 +:100010000B00750C00E509F502E50AF503E50BF5A3 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F501220000FE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/arm-scd42-1.s.expected b/tests/GCCTestSuite/arm-scd42-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/arm-scd42-2.c b/tests/GCCTestSuite/arm-scd42-2.c new file mode 100644 index 0000000..1c257c1 --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-2.c @@ -0,0 +1,17 @@ +/* Verify that mov is preferred on XScale for loading a 2 byte constant. */ +/* { dg-do compile } */ +/* { dg-options "-mcpu=xscale -O" } */ +/* { dg-require-effective-target arm32 } */ + +unsigned load2(void) __attribute__ ((naked)); +unsigned load2(void) +{ + /* Best code would be: + mov r0, =272 + add r0, r0, =1 + mov pc, lr */ + + return 273; +} + +/* { dg-final { scan-assembler "mov\[ ].*272" } } */ diff --git a/tests/GCCTestSuite/arm-scd42-2.c.expected b/tests/GCCTestSuite/arm-scd42-2.c.expected new file mode 100644 index 0000000..1c257c1 --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-2.c.expected @@ -0,0 +1,17 @@ +/* Verify that mov is preferred on XScale for loading a 2 byte constant. */ +/* { dg-do compile } */ +/* { dg-options "-mcpu=xscale -O" } */ +/* { dg-require-effective-target arm32 } */ + +unsigned load2(void) __attribute__ ((naked)); +unsigned load2(void) +{ + /* Best code would be: + mov r0, =272 + add r0, r0, =1 + mov pc, lr */ + + return 273; +} + +/* { dg-final { scan-assembler "mov\[ ].*272" } } */ diff --git a/tests/GCCTestSuite/arm-scd42-2.hex.expected b/tests/GCCTestSuite/arm-scd42-2.hex.expected new file mode 100644 index 0000000..bbb1d52 --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-2.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750911750A017521 +:100010000B00750C00E509F502E50AF503E50BF5A3 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F501220000FE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/arm-scd42-2.s.expected b/tests/GCCTestSuite/arm-scd42-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/arm-scd42-3.c b/tests/GCCTestSuite/arm-scd42-3.c new file mode 100644 index 0000000..80a4ba8 --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-3.c @@ -0,0 +1,15 @@ +/* Verify that ldr is preferred on XScale for loading a 3 or 4 byte constant. */ +/* { dg-do compile { target xscale-*-* } } */ +/* { dg-options "-mcpu=xscale -O" } */ + +unsigned load4(void) __attribute__ ((naked)); +unsigned load4(void) +{ + /* Best code would be: + ldr r0, =65809 + mov pc, lr */ + + return 65809; +} + +/* { dg-final { scan-assembler "ldr\[ ].*" } } */ diff --git a/tests/GCCTestSuite/arm-scd42-3.c.expected b/tests/GCCTestSuite/arm-scd42-3.c.expected new file mode 100644 index 0000000..80a4ba8 --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-3.c.expected @@ -0,0 +1,15 @@ +/* Verify that ldr is preferred on XScale for loading a 3 or 4 byte constant. */ +/* { dg-do compile { target xscale-*-* } } */ +/* { dg-options "-mcpu=xscale -O" } */ + +unsigned load4(void) __attribute__ ((naked)); +unsigned load4(void) +{ + /* Best code would be: + ldr r0, =65809 + mov pc, lr */ + + return 65809; +} + +/* { dg-final { scan-assembler "ldr\[ ].*" } } */ diff --git a/tests/GCCTestSuite/arm-scd42-3.hex.expected b/tests/GCCTestSuite/arm-scd42-3.hex.expected new file mode 100644 index 0000000..dd3b601 --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-3.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750911750A017521 +:100010000B01750C00E509F502E50AF503E50BF5A2 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F501220000FE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/arm-scd42-3.s.expected b/tests/GCCTestSuite/arm-scd42-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/arm-scd42-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/array-1.c b/tests/GCCTestSuite/array-1.c new file mode 100644 index 0000000..6d1e69a --- /dev/null +++ b/tests/GCCTestSuite/array-1.c @@ -0,0 +1,15 @@ +/* Simplified from ncurses 5.0's pad.c + by Alexandre Oliva + + Copyright (C) 1999 Free Software Foundation */ + +/* { dg-do compile } */ + +extern char foo[1]; +char foo[] = ""; + +int +bar() +{ + return foo[0]; +} diff --git a/tests/GCCTestSuite/array-1.c.expected b/tests/GCCTestSuite/array-1.c.expected new file mode 100644 index 0000000..6d1e69a --- /dev/null +++ b/tests/GCCTestSuite/array-1.c.expected @@ -0,0 +1,15 @@ +/* Simplified from ncurses 5.0's pad.c + by Alexandre Oliva + + Copyright (C) 1999 Free Software Foundation */ + +/* { dg-do compile } */ + +extern char foo[1]; +char foo[] = ""; + +int +bar() +{ + return foo[0]; +} diff --git a/tests/GCCTestSuite/array-1.hex.expected b/tests/GCCTestSuite/array-1.hex.expected new file mode 100644 index 0000000..7b7a970 --- /dev/null +++ b/tests/GCCTestSuite/array-1.hex.expected @@ -0,0 +1,26 @@ +:1000000000D0E0F51AD0E0F51BE511F518E510F584 +:1000100019900000E582F510900000E583F5117558 +:100020000000750100750C01750D00750E00750F4F +:1000300000C3750900E500F5F0E50CA4F50BE5003B +:10004000F5F0E50CA4E5F0F50AE50BF5F0E509356A +:10005000F0F509E501F5F0E50CA4F50BE501F5F087 +:10006000E50CA4E5F0F501E50BF5F0E50A35F0F552 +:100070000AC3C3750100E509F5F0E50E35F0F50E8C +:10008000E50AF5F0E50F35F0F50FC3750A00E50058 +:10009000F5F0E50DA4F50BE500F5F0E50DA4E5F0B0 +:1000A000F501E50BF5F0E50A35F0F50A750900C331 +:1000B000C3750000E509F5F0E50E35F0F50EE50A2B +:1000C000F5F0E50F35F0F50FC3750900750A00C3AB +:1000D000C3750000E509F5F0E50E35F0F50EE50A0B +:1000E000F5F0E50F35F0F50FC3750900750A00C38B +:1000F000C3750000E509F5F0E50E35F0F50EE50AEB +:10010000F5F0E50F35F0F50FC3750000E50EF5F0DD +:10011000E51035F0F500E50FF5F0E51135F0F501E6 +:10012000E500F509E501F50A750100C3750000E574 +:1001300001F5F0E50935F0F501E500F5F0E50A35E2 +:10014000F0F500E500F502E501F582E502F583E052 +:10015000F501750000E500F509E500F50AE501F592 +:1001600002E509F503E50AF504E500F505E518F5EE +:1001700011E519F510E51BC0E0E51AC0E0E502F550 +:1001800082E503F583E504F500E505F501220000AD +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/array-1.s.expected b/tests/GCCTestSuite/array-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/array-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/array-quals-2.c b/tests/GCCTestSuite/array-quals-2.c new file mode 100644 index 0000000..5d20244 --- /dev/null +++ b/tests/GCCTestSuite/array-quals-2.c @@ -0,0 +1,14 @@ +/* Test that pointers to arrays of differently qualified types aren't + permitted in conditional expressions, and that qualifiers aren't + lost in forming composite types. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ +typedef const char T[1]; +typedef const char T2[1]; +typedef volatile char U[1]; +T *p; +T2 *p2; +U *q; +void *f(void) { return 1 ? p : q; } /* { dg-warning "warning: pointer type mismatch in conditional expression" } */ +T *g(void) { return 1 ? p : p2; } diff --git a/tests/GCCTestSuite/array-quals-2.c.expected b/tests/GCCTestSuite/array-quals-2.c.expected new file mode 100644 index 0000000..5d20244 --- /dev/null +++ b/tests/GCCTestSuite/array-quals-2.c.expected @@ -0,0 +1,14 @@ +/* Test that pointers to arrays of differently qualified types aren't + permitted in conditional expressions, and that qualifiers aren't + lost in forming composite types. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ +typedef const char T[1]; +typedef const char T2[1]; +typedef volatile char U[1]; +T *p; +T2 *p2; +U *q; +void *f(void) { return 1 ? p : q; } /* { dg-warning "warning: pointer type mismatch in conditional expression" } */ +T *g(void) { return 1 ? p : p2; } diff --git a/tests/GCCTestSuite/array-quals-2.hex.expected b/tests/GCCTestSuite/array-quals-2.hex.expected new file mode 100644 index 0000000..a707e76 --- /dev/null +++ b/tests/GCCTestSuite/array-quals-2.hex.expected @@ -0,0 +1,41 @@ +:1000000000D0E0F50CD0E0F50D7501017509007523 +:100010000A00750B00750000E501F5F0E50045F0FC +:10002000F500E509F5F0E50045F0F500E50AF5F025 +:10003000E50045F0F500E50BF5F0E50045F0F500CD +:10004000E500700280030200D800900004E582F50C +:1000500009900004E583F50A750100C3750000E509 +:1000600001F5F0E50935F0F501E500F5F0E50A35B3 +:10007000F0F500E500F502E501F582E502F583E023 +:10008000F50B750101C3750000E501F5F0E50935D3 +:10009000F0F501E500F5F0E50A35F0F500E500F5CD +:1000A00002E501F582E502F583E0F501750000E562 +:1000B0000BF502E501F503E500F504E500F505E5BE +:1000C0000DC0E0E50CC0E0E502F582E503F583E54F +:1000D00004F500E505F5012200900000E582F50930 +:1000E000900000E583F50A750100C3750000E50185 +:1000F000F5F0E50935F0F501E500F5F0E50A35F034 +:10010000F500E500F502E501F582E502F583E0F58D +:100110000B750101C3750000E501F5F0E50935F047 +:10012000F501E500F5F0E50A35F0F500E500F5022A +:10013000E501F582E502F583E0F5010200AC00D0AF +:10014000E0F50CD0E0F50D750101750900750A00A8 +:10015000750B00750000E501F5F0E50045F0F500D0 +:10016000E509F5F0E50045F0F500E50AF5F0E500F4 +:1001700045F0F500E50BF5F0E50045F0F500E5008C +:100180007002800302021600900002E582F50990D9 +:100190000002E583F50A750100C3750000E501F56D +:1001A000F0E50935F0F501E500F5F0E50A35F0F583 +:1001B00000E500F502E501F582E502F583E0F50BC7 +:1001C000750101C3750000E501F5F0E50935F0F5AD +:1001D00001E500F5F0E50A35F0F500E500F502E58A +:1001E00001F582E502F583E0F501750000E50BF508 +:1001F00002E501F503E500F504E500F505E50DC0B0 +:10020000E0E50CC0E0E502F582E503F583E504F5E1 +:1002100000E505F5012200900000E582F509900057 +:1002200000E583F50A750100C3750000E501F5F0EE +:10023000E50935F0F501E500F5F0E50A35F0F500E2 +:10024000E500F502E501F582E502F583E0F50B75C1 +:100250000101C3750000E501F5F0E50935F0F50190 +:10026000E500F5F0E50A35F0F500E500F502E501F9 +:10027000F582E502F583E0F5010201EA00000000E5 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/array-quals-2.s.expected b/tests/GCCTestSuite/array-quals-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/array-quals-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/asm-fs-1.c b/tests/GCCTestSuite/asm-fs-1.c new file mode 100644 index 0000000..f215ee8 --- /dev/null +++ b/tests/GCCTestSuite/asm-fs-1.c @@ -0,0 +1,14 @@ +/* Origin: + Make sure we do not get spurious '*' characters in section names or + elsewhere, with asm-specified names. */ +/* { dg-do compile } */ +/* { dg-options "-w -ffunction-sections -fdata-sections" } */ + +void foo (void) asm ("_bar"); +void foo (void) {} + +extern int foobar asm ("_baz"); +int foobar = 3; + +/* { dg-final { scan-assembler-not "\\*_bar" } } */ +/* { dg-final { scan-assembler-not "\\*_baz" } } */ diff --git a/tests/GCCTestSuite/asm-fs-1.c.expected b/tests/GCCTestSuite/asm-fs-1.c.expected new file mode 100644 index 0000000..f215ee8 --- /dev/null +++ b/tests/GCCTestSuite/asm-fs-1.c.expected @@ -0,0 +1,14 @@ +/* Origin: + Make sure we do not get spurious '*' characters in section names or + elsewhere, with asm-specified names. */ +/* { dg-do compile } */ +/* { dg-options "-w -ffunction-sections -fdata-sections" } */ + +void foo (void) asm ("_bar"); +void foo (void) {} + +extern int foobar asm ("_baz"); +int foobar = 3; + +/* { dg-final { scan-assembler-not "\\*_bar" } } */ +/* { dg-final { scan-assembler-not "\\*_baz" } } */ diff --git a/tests/GCCTestSuite/asm-fs-1.hex.expected b/tests/GCCTestSuite/asm-fs-1.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/asm-fs-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/asm-fs-1.s.expected b/tests/GCCTestSuite/asm-fs-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/asm-fs-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/assign-warn-3.c b/tests/GCCTestSuite/assign-warn-3.c new file mode 100644 index 0000000..4ff7b88 --- /dev/null +++ b/tests/GCCTestSuite/assign-warn-3.c @@ -0,0 +1,13 @@ +/* Test diagnostics for bad type conversion when inlining unprototyped + functions: should not be errors with -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-O3 -std=c99 -pedantic-errors" } */ + +/* This is valid to execute, so maybe shouldn't warn at all. */ +static inline void f0(x) signed char *x; { } +void g0(unsigned char *x) { f0(x); } /* { dg-warning "warning: pointer targets in passing argument 1 of 'f0' differ in signedness" } */ + +/* This is undefined on execution but still must compile. */ +static inline void f1(x) int *x; { } +void g1(unsigned int *x) { f1(x); } /* { dg-warning "warning: pointer targets in passing argument 1 of 'f1' differ in signedness" } */ diff --git a/tests/GCCTestSuite/assign-warn-3.c.expected b/tests/GCCTestSuite/assign-warn-3.c.expected new file mode 100644 index 0000000..4ff7b88 --- /dev/null +++ b/tests/GCCTestSuite/assign-warn-3.c.expected @@ -0,0 +1,13 @@ +/* Test diagnostics for bad type conversion when inlining unprototyped + functions: should not be errors with -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-O3 -std=c99 -pedantic-errors" } */ + +/* This is valid to execute, so maybe shouldn't warn at all. */ +static inline void f0(x) signed char *x; { } +void g0(unsigned char *x) { f0(x); } /* { dg-warning "warning: pointer targets in passing argument 1 of 'f0' differ in signedness" } */ + +/* This is undefined on execution but still must compile. */ +static inline void f1(x) int *x; { } +void g1(unsigned int *x) { f1(x); } /* { dg-warning "warning: pointer targets in passing argument 1 of 'f1' differ in signedness" } */ diff --git a/tests/GCCTestSuite/assign-warn-3.hex.expected b/tests/GCCTestSuite/assign-warn-3.hex.expected new file mode 100644 index 0000000..383c620 --- /dev/null +++ b/tests/GCCTestSuite/assign-warn-3.hex.expected @@ -0,0 +1,32 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F500D0E0F501750900E51E +:1000200009F502E509F503E509F504E509F505E536 +:1000300001C0E0E500C0E075E0022506F50675E0C8 +:10004000003507F507E502F582E503F583E504F5DC +:1000500000E505F5012200E506758204C39582F5E9 +:1000600006E5077583009583F507D0E0F50875E090 +:10007000012506F58275E0003507F583E508F0D027 +:10008000E0F50875E0002506F58275E0003507F516 +:1000900083E508F0120000750000E500F502E500B8 +:1000A000F503E500F504E500F50575E0002506F526 +:1000B0008275E0003507F583E0F508E508C0E075D6 +:1000C000E0012506F58275E0003507F583E0F508C7 +:1000D000E508C0E075E0042506F50675E000350783 +:1000E000F507E502F582E503F583E504F500E5058E +:1000F000F5012200E506758202C39582F506E50743 +:100100007583009583F507D0E0F500D0E0F5017523 +:100110000900E509F502E509F503E509F504E50936 +:10012000F505E501C0E0E500C0E075E0022506F553 +:100130000675E0003507F507E502F582E503F5836E +:10014000E504F500E505F5012200E506758204C326 +:100150009582F506E5077583009583F507D0E0F5F0 +:100160000875E0012506F58275E0003507F583E5A1 +:1001700008F0D0E0F50875E0002506F58275E0008E +:100180003507F583E508F01200F3750000E500F58A +:1001900002E500F503E500F504E500F50575E0006E +:1001A0002506F58275E0003507F583E0F508E508DA +:1001B000C0E075E0012506F58275E0003507F5839E +:1001C000E0F508E508C0E075E0042506F50675E0F1 +:1001D000003507F507E502F582E503F583E504F54B +:1001E00000E505F50122000000000000000000000D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/assign-warn-3.s.expected b/tests/GCCTestSuite/assign-warn-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/assign-warn-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-alwaysinline.c b/tests/GCCTestSuite/attr-alwaysinline.c new file mode 100644 index 0000000..8ff92b2 --- /dev/null +++ b/tests/GCCTestSuite/attr-alwaysinline.c @@ -0,0 +1,19 @@ +/* Test always_inline attribute, which forces inlining of functions + even at no optimization. */ +/* Origin: Aldy Hernandez . */ +/* { dg-do compile } */ +/* { dg-options "-O0" } */ + +static inline int sabrina (void) __attribute__((always_inline)); + +static inline int sabrina (void) +{ + return 13; +} + +int bar (void) +{ + return sabrina () + 68; +} + +/* { dg-final { scan-assembler-not "sabrina" } } */ diff --git a/tests/GCCTestSuite/attr-alwaysinline.c.expected b/tests/GCCTestSuite/attr-alwaysinline.c.expected new file mode 100644 index 0000000..8ff92b2 --- /dev/null +++ b/tests/GCCTestSuite/attr-alwaysinline.c.expected @@ -0,0 +1,19 @@ +/* Test always_inline attribute, which forces inlining of functions + even at no optimization. */ +/* Origin: Aldy Hernandez . */ +/* { dg-do compile } */ +/* { dg-options "-O0" } */ + +static inline int sabrina (void) __attribute__((always_inline)); + +static inline int sabrina (void) +{ + return 13; +} + +int bar (void) +{ + return sabrina () + 68; +} + +/* { dg-final { scan-assembler-not "sabrina" } } */ diff --git a/tests/GCCTestSuite/attr-alwaysinline.hex.expected b/tests/GCCTestSuite/attr-alwaysinline.hex.expected new file mode 100644 index 0000000..15ba295 --- /dev/null +++ b/tests/GCCTestSuite/attr-alwaysinline.hex.expected @@ -0,0 +1,20 @@ +:1000000000D0E0F500D0E0F50175090D750A007526 +:100010000B00750C00E509F502E50AF503E50BF5A3 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F5012200E519 +:1000400006758202C39582F506E5077583009583E0 +:10005000F507D0E0F50875E0012506F58275E000AA +:100060003507F583E508F0D0E0F50875E0002506D2 +:10007000F58275E0003507F583E508F0120000E52C +:1000800082F502E583F503E500F504E501F505E5F4 +:1000900002F50BE503F50CE504F50DE505F50E7528 +:1000A0000044750100750900750A00C3750F00E56D +:1000B00000F5F0E50B35F0F500E501F5F0E50C3560 +:1000C000F0F501E509F5F0E50D35F0F509E50AF57E +:1000D000F0E50E35F0F50AE500F502E501F503E57A +:1000E00009F504E50AF50575E0002506F58275E0D9 +:1000F000003507F583E0F508E508C0E075E0012567 +:1001000006F58275E0003507F583E0F508E508C0DF +:10011000E075E0022506F50675E0003507F507E510 +:1001200002F582E503F583E504F500E505F5012216 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-alwaysinline.s.expected b/tests/GCCTestSuite/attr-alwaysinline.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/attr-alwaysinline.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-invalid.c b/tests/GCCTestSuite/attr-invalid.c new file mode 100644 index 0000000..9cb6454 --- /dev/null +++ b/tests/GCCTestSuite/attr-invalid.c @@ -0,0 +1,58 @@ +/* { dg-do compile } */ +/* { dg-options "" } */ + +#define CONCAT_(A,B) A ## B +#define CONCAT(A,B) CONCAT_(A,B) + +#define ATTR __attribute__((AT)) +#define ATSYM(suf) CONCAT (AT, CONCAT_ (_, suf)) + +#define AT noinline + +typedef int ATSYM(type) ATTR; /* { dg-warning "attribute ignored" "" } */ + +typedef int (*ATSYM(fntype))(void) ATTR; /* { dg-warning "attribute ignored" "" } */ + +struct ATSYM(struct) { + char dummy ATTR; /* { dg-warning "attribute ignored" "" } */ +} ATTR; /* { dg-warning "does not apply to types" "" } */ + +int ATSYM(var) ATTR; /* { dg-warning "attribute ignored" "" } */ + +int ATSYM(fn_knrarg) (arg) + int arg ATTR; /* { dg-warning "attribute ignored" "" } */ +{ return 0; } + +int ATSYM(fn_isoarg) (int arg ATTR) { return 0; } /* { dg-warning "attribute ignored" "" } */ + +int ATSYM(fn_vars) (void) { + static int svar ATTR; /* { dg-warning "attribute ignored" "" } */ + auto int lvar ATTR; /* { dg-warning "attribute ignored" "" } */ + return 0; +} + + +#undef AT +#define AT used + +typedef int ATSYM(type) ATTR; /* { dg-warning "attribute ignored" "" } */ + +typedef int (*ATSYM(fntype))(void) ATTR; /* { dg-warning "attribute ignored" "" } */ + +struct ATSYM(struct) { + char dummy ATTR; /* { dg-warning "attribute ignored" "" } */ +} ATTR; /* { dg-warning "does not apply to types" "" } */ + +int ATSYM(var) ATTR; + +int ATSYM(fn_knrarg) (arg) + int arg ATTR; /* { dg-warning "attribute ignored" "" } */ +{ return 0; } + +int ATSYM(fn_isoarg) (int arg ATTR) { return 0; } /* { dg-warning "attribute ignored" "" } */ + +int ATSYM(fn_vars) (void) { + static int svar ATTR; + auto int lvar ATTR; /* { dg-warning "attribute ignored" "" } */ + return 0; +} diff --git a/tests/GCCTestSuite/attr-invalid.c.expected b/tests/GCCTestSuite/attr-invalid.c.expected new file mode 100644 index 0000000..9cb6454 --- /dev/null +++ b/tests/GCCTestSuite/attr-invalid.c.expected @@ -0,0 +1,58 @@ +/* { dg-do compile } */ +/* { dg-options "" } */ + +#define CONCAT_(A,B) A ## B +#define CONCAT(A,B) CONCAT_(A,B) + +#define ATTR __attribute__((AT)) +#define ATSYM(suf) CONCAT (AT, CONCAT_ (_, suf)) + +#define AT noinline + +typedef int ATSYM(type) ATTR; /* { dg-warning "attribute ignored" "" } */ + +typedef int (*ATSYM(fntype))(void) ATTR; /* { dg-warning "attribute ignored" "" } */ + +struct ATSYM(struct) { + char dummy ATTR; /* { dg-warning "attribute ignored" "" } */ +} ATTR; /* { dg-warning "does not apply to types" "" } */ + +int ATSYM(var) ATTR; /* { dg-warning "attribute ignored" "" } */ + +int ATSYM(fn_knrarg) (arg) + int arg ATTR; /* { dg-warning "attribute ignored" "" } */ +{ return 0; } + +int ATSYM(fn_isoarg) (int arg ATTR) { return 0; } /* { dg-warning "attribute ignored" "" } */ + +int ATSYM(fn_vars) (void) { + static int svar ATTR; /* { dg-warning "attribute ignored" "" } */ + auto int lvar ATTR; /* { dg-warning "attribute ignored" "" } */ + return 0; +} + + +#undef AT +#define AT used + +typedef int ATSYM(type) ATTR; /* { dg-warning "attribute ignored" "" } */ + +typedef int (*ATSYM(fntype))(void) ATTR; /* { dg-warning "attribute ignored" "" } */ + +struct ATSYM(struct) { + char dummy ATTR; /* { dg-warning "attribute ignored" "" } */ +} ATTR; /* { dg-warning "does not apply to types" "" } */ + +int ATSYM(var) ATTR; + +int ATSYM(fn_knrarg) (arg) + int arg ATTR; /* { dg-warning "attribute ignored" "" } */ +{ return 0; } + +int ATSYM(fn_isoarg) (int arg ATTR) { return 0; } /* { dg-warning "attribute ignored" "" } */ + +int ATSYM(fn_vars) (void) { + static int svar ATTR; + auto int lvar ATTR; /* { dg-warning "attribute ignored" "" } */ + return 0; +} diff --git a/tests/GCCTestSuite/attr-invalid.hex.expected b/tests/GCCTestSuite/attr-invalid.hex.expected new file mode 100644 index 0000000..b2b2cc9 --- /dev/null +++ b/tests/GCCTestSuite/attr-invalid.hex.expected @@ -0,0 +1,33 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F501750900758E +:100020000A00750B00750C00E509F502E50AF503F9 +:10003000E50BF504E50CF505E501C0E0E500C0E0E1 +:1000400075E0042506F50675E0003507F507E502BD +:10005000F582E503F583E504F500E505F5012200E9 +:10006000E506758204C39582F506E507758300955C +:1000700083F507D0E0F500D0E0F501750900750AB9 +:1000800000750B00750C00E509F502E50AF503E5BE +:100090000BF504E50CF505E501C0E0E500C0E075F1 +:1000A000E0042506F50675E0003507F507E502F5DD +:1000B00082E503F583E504F500E505F5012200D0AE +:1000C000E0F500D0E0F501750900750A00750B0038 +:1000D000750C00E509F502E50AF503E50BF504E505 +:1000E0000CF505E501C0E0E500C0E0E502F582E5BC +:1000F00003F583E504F500E505F5012200E5067545 +:100100008204C39582F506E5077583009583F5079C +:10011000D0E0F500D0E0F501750900750A00750B17 +:1001200000750C00E509F502E50AF503E50BF50499 +:10013000E50CF505E501C0E0E500C0E075E004254B +:1001400006F50675E0003507F507E502F582E503DB +:10015000F583E504F500E505F5012200E506758265 +:1001600004C39582F506E5077583009583F507D0EE +:10017000E0F500D0E0F501750900750A00750B0087 +:10018000750C00E509F502E50AF503E50BF504E554 +:100190000CF505E501C0E0E500C0E075E0042506CA +:1001A000F50675E0003507F507E502F582E503F58C +:1001B00083E504F500E505F5012200D0E0F500D067 +:1001C000E0F501750900750A00750B00750C00E576 +:1001D00009F502E50AF503E50BF504E50CF505E57F +:1001E00001C0E0E500C0E0E502F582E503F583E546 +:1001F00004F500E505F50122000000000000000004 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-invalid.s.expected b/tests/GCCTestSuite/attr-invalid.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/attr-invalid.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-isr-trap_exit.c b/tests/GCCTestSuite/attr-isr-trap_exit.c new file mode 100644 index 0000000..880db37 --- /dev/null +++ b/tests/GCCTestSuite/attr-isr-trap_exit.c @@ -0,0 +1,23 @@ +/* { dg-do compile { target sh-*-* sh[1234ble]*-*-*} } */ +/* { dg-options "-O" } */ +/* Check that trapa / interrput_handler attributes can paired in + either order. */ +void h0() __attribute__ ((trap_exit (4))) __attribute__ ((interrupt_handler)); +void h1() __attribute__ ((interrupt_handler)) __attribute__ ((trap_exit (5))); + +void foo () +{ +} + +void h0 () {} +/* { dg-final { scan-assembler "trapa\[ \t\]\[ \t\]*#4"} } */ +/* { dg-final { scan-assembler-times "trapa" 1} } */ + +void delay(int a) +{ +} +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/attr-isr-trap_exit.c.expected b/tests/GCCTestSuite/attr-isr-trap_exit.c.expected new file mode 100644 index 0000000..880db37 --- /dev/null +++ b/tests/GCCTestSuite/attr-isr-trap_exit.c.expected @@ -0,0 +1,23 @@ +/* { dg-do compile { target sh-*-* sh[1234ble]*-*-*} } */ +/* { dg-options "-O" } */ +/* Check that trapa / interrput_handler attributes can paired in + either order. */ +void h0() __attribute__ ((trap_exit (4))) __attribute__ ((interrupt_handler)); +void h1() __attribute__ ((interrupt_handler)) __attribute__ ((trap_exit (5))); + +void foo () +{ +} + +void h0 () {} +/* { dg-final { scan-assembler "trapa\[ \t\]\[ \t\]*#4"} } */ +/* { dg-final { scan-assembler-times "trapa" 1} } */ + +void delay(int a) +{ +} +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/attr-isr-trap_exit.hex.expected b/tests/GCCTestSuite/attr-isr-trap_exit.hex.expected new file mode 100644 index 0000000..54a060f --- /dev/null +++ b/tests/GCCTestSuite/attr-isr-trap_exit.hex.expected @@ -0,0 +1,18 @@ +:1000000075812F7506FF7507FF1200CF02000C00E7 +:10001000D0E0F500D0E0F501750900E509F502E54D +:1000200009F503E509F504E509F505E501C0E0E595 +:1000300000C0E0E502F582E503F583E504F500E59F +:1000400005F5012200D0E0F500D0E0F501750900CA +:10005000E509F502E509F503E509F504E509F50506 +:10006000E501C0E0E500C0E0E502F582E503F583C7 +:10007000E504F500E505F5012200E506758204C3F7 +:100080009582F506E5077583009583F507D0E0F5C1 +:1000900000D0E0F501750900E509F502E509F50371 +:1000A000E509F504E509F505E501C0E0E500C0E076 +:1000B00075E0042506F50675E0003507F507E5024D +:1000C000F582E503F583E504F500E505F501220079 +:1000D000D0E0F500D0E0F501750900750A00750B58 +:1000E00000750C00E509F502E50AF503E50BF504DA +:1000F000E50CF505E501C0E0E500C0E0E502F582AC +:10010000E503F583E504F500E505F50122000000AF +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-isr-trap_exit.s.expected b/tests/GCCTestSuite/attr-isr-trap_exit.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/attr-isr-trap_exit.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-mode-1.c b/tests/GCCTestSuite/attr-mode-1.c new file mode 100644 index 0000000..e60d01b --- /dev/null +++ b/tests/GCCTestSuite/attr-mode-1.c @@ -0,0 +1,13 @@ +/* PR c/17384 */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +typedef struct __attribute__((mode(SI))) { + unsigned INT0 :1, + RES0 :1, + :6, + INT1 :1, + RES1 :1, + :6, + :16; +} MCR; /* { dg-error "inappropriate type" } */ diff --git a/tests/GCCTestSuite/attr-mode-1.c.expected b/tests/GCCTestSuite/attr-mode-1.c.expected new file mode 100644 index 0000000..e60d01b --- /dev/null +++ b/tests/GCCTestSuite/attr-mode-1.c.expected @@ -0,0 +1,13 @@ +/* PR c/17384 */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +typedef struct __attribute__((mode(SI))) { + unsigned INT0 :1, + RES0 :1, + :6, + INT1 :1, + RES1 :1, + :6, + :16; +} MCR; /* { dg-error "inappropriate type" } */ diff --git a/tests/GCCTestSuite/attr-mode-1.hex.expected b/tests/GCCTestSuite/attr-mode-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/attr-mode-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-mode-1.s.expected b/tests/GCCTestSuite/attr-mode-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/attr-mode-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-used-2.c b/tests/GCCTestSuite/attr-used-2.c new file mode 100644 index 0000000..f78b94b --- /dev/null +++ b/tests/GCCTestSuite/attr-used-2.c @@ -0,0 +1,11 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall -O2" } */ + +static int xyzzy __attribute__((__used__)) = 1; + +void foo() +{ + int x __attribute__((__used__)); /* { dg-warning "attribute ignored|unused variable" } */ +} + +/* { dg-final { scan-assembler "xyzzy" } } */ diff --git a/tests/GCCTestSuite/attr-used-2.c.expected b/tests/GCCTestSuite/attr-used-2.c.expected new file mode 100644 index 0000000..f78b94b --- /dev/null +++ b/tests/GCCTestSuite/attr-used-2.c.expected @@ -0,0 +1,11 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall -O2" } */ + +static int xyzzy __attribute__((__used__)) = 1; + +void foo() +{ + int x __attribute__((__used__)); /* { dg-warning "attribute ignored|unused variable" } */ +} + +/* { dg-final { scan-assembler "xyzzy" } } */ diff --git a/tests/GCCTestSuite/attr-used-2.hex.expected b/tests/GCCTestSuite/attr-used-2.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/attr-used-2.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-used-2.s.expected b/tests/GCCTestSuite/attr-used-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/attr-used-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-used.c b/tests/GCCTestSuite/attr-used.c new file mode 100644 index 0000000..ba7705a --- /dev/null +++ b/tests/GCCTestSuite/attr-used.c @@ -0,0 +1,13 @@ +/* { dg-do compile } */ +/* { dg-options "-O3" } */ + +static void function_declaration_before(void) __attribute__((__used__)); + +static void function_declaration_before(void) {} + +static void function_declaration_after(void) {} + +static void function_declaration_after(void) __attribute__((__used__)); + +/* { dg-final { scan-assembler "function_declaration_before" } } */ +/* { dg-final { scan-assembler "function_declaration_after" } } */ diff --git a/tests/GCCTestSuite/attr-used.c.expected b/tests/GCCTestSuite/attr-used.c.expected new file mode 100644 index 0000000..ba7705a --- /dev/null +++ b/tests/GCCTestSuite/attr-used.c.expected @@ -0,0 +1,13 @@ +/* { dg-do compile } */ +/* { dg-options "-O3" } */ + +static void function_declaration_before(void) __attribute__((__used__)); + +static void function_declaration_before(void) {} + +static void function_declaration_after(void) {} + +static void function_declaration_after(void) __attribute__((__used__)); + +/* { dg-final { scan-assembler "function_declaration_before" } } */ +/* { dg-final { scan-assembler "function_declaration_after" } } */ diff --git a/tests/GCCTestSuite/attr-used.hex.expected b/tests/GCCTestSuite/attr-used.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/attr-used.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-used.s.expected b/tests/GCCTestSuite/attr-used.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/attr-used.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-weakref-1a.c b/tests/GCCTestSuite/attr-weakref-1a.c new file mode 100644 index 0000000..5ce1e4e --- /dev/null +++ b/tests/GCCTestSuite/attr-weakref-1a.c @@ -0,0 +1,8 @@ +int uv4; +int uv5; +int uv7; +int uv8; +void uf4 (void) {} +void uf5 (void) {} +void uf7 (void) {} +void uf8 (void) {} diff --git a/tests/GCCTestSuite/attr-weakref-1a.c.expected b/tests/GCCTestSuite/attr-weakref-1a.c.expected new file mode 100644 index 0000000..5ce1e4e --- /dev/null +++ b/tests/GCCTestSuite/attr-weakref-1a.c.expected @@ -0,0 +1,8 @@ +int uv4; +int uv5; +int uv7; +int uv8; +void uf4 (void) {} +void uf5 (void) {} +void uf7 (void) {} +void uf8 (void) {} diff --git a/tests/GCCTestSuite/attr-weakref-1a.hex.expected b/tests/GCCTestSuite/attr-weakref-1a.hex.expected new file mode 100644 index 0000000..745968a --- /dev/null +++ b/tests/GCCTestSuite/attr-weakref-1a.hex.expected @@ -0,0 +1,15 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F5012200D0E0F500D0E0F5017509F5 +:1000400000E509F502E509F503E509F504E509F51B +:1000500005E501C0E0E500C0E0E502F582E503F555 +:1000600083E504F500E505F5012200D0E0F500D0B8 +:10007000E0F501750900E509F502E509F503E50973 +:10008000F504E509F505E501C0E0E500C0E0E5029D +:10009000F582E503F583E504F500E505F5012200A9 +:1000A000D0E0F500D0E0F501750900E509F502E5BD +:1000B00009F503E509F504E509F505E501C0E0E505 +:1000C00000C0E0E502F582E503F583E504F500E50F +:1000D00005F5012200000000000000000000000003 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/attr-weakref-1a.s.expected b/tests/GCCTestSuite/attr-weakref-1a.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/attr-weakref-1a.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/bitfld-10.c b/tests/GCCTestSuite/bitfld-10.c new file mode 100644 index 0000000..156929f --- /dev/null +++ b/tests/GCCTestSuite/bitfld-10.c @@ -0,0 +1,8 @@ +/* Test for rejection of sizeof on bit-fields. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +struct { int a : 1; } x; + +int r = sizeof (x.a); /* { dg-error "error: 'sizeof' applied to a bit-field" } */ diff --git a/tests/GCCTestSuite/bitfld-10.c.expected b/tests/GCCTestSuite/bitfld-10.c.expected new file mode 100644 index 0000000..156929f --- /dev/null +++ b/tests/GCCTestSuite/bitfld-10.c.expected @@ -0,0 +1,8 @@ +/* Test for rejection of sizeof on bit-fields. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +struct { int a : 1; } x; + +int r = sizeof (x.a); /* { dg-error "error: 'sizeof' applied to a bit-field" } */ diff --git a/tests/GCCTestSuite/bitfld-10.hex.expected b/tests/GCCTestSuite/bitfld-10.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/bitfld-10.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/bitfld-10.s.expected b/tests/GCCTestSuite/bitfld-10.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/bitfld-10.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/bitfld-14.c b/tests/GCCTestSuite/bitfld-14.c new file mode 100644 index 0000000..eca0b03 --- /dev/null +++ b/tests/GCCTestSuite/bitfld-14.c @@ -0,0 +1,11 @@ +/* Test for non-integer bit-field widths. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +enum e { E, F }; +struct s { + int a : (void *)4; /* { dg-error "error: bit-field 'a' width not an integer constant" } */ + int b : (enum e)F; + int c : (_Bool)1; +}; diff --git a/tests/GCCTestSuite/bitfld-14.c.expected b/tests/GCCTestSuite/bitfld-14.c.expected new file mode 100644 index 0000000..eca0b03 --- /dev/null +++ b/tests/GCCTestSuite/bitfld-14.c.expected @@ -0,0 +1,11 @@ +/* Test for non-integer bit-field widths. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +enum e { E, F }; +struct s { + int a : (void *)4; /* { dg-error "error: bit-field 'a' width not an integer constant" } */ + int b : (enum e)F; + int c : (_Bool)1; +}; diff --git a/tests/GCCTestSuite/bitfld-14.hex.expected b/tests/GCCTestSuite/bitfld-14.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/bitfld-14.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/bitfld-14.s.expected b/tests/GCCTestSuite/bitfld-14.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/bitfld-14.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/bitfld-5.c b/tests/GCCTestSuite/bitfld-5.c new file mode 100644 index 0000000..835bbce --- /dev/null +++ b/tests/GCCTestSuite/bitfld-5.c @@ -0,0 +1,12 @@ +/* { dg-options "" } */ +#include + +struct s +{ + int i1 : sizeof (int) * CHAR_BIT; + int i2 : sizeof (int) * CHAR_BIT; + int i3 : sizeof (int) * CHAR_BIT; + int i4 : sizeof (int) * CHAR_BIT; +}; + +int f[sizeof (struct s) != sizeof (int) * 4 ? -1 : 1]; diff --git a/tests/GCCTestSuite/bitfld-5.c.expected b/tests/GCCTestSuite/bitfld-5.c.expected new file mode 100644 index 0000000..835bbce --- /dev/null +++ b/tests/GCCTestSuite/bitfld-5.c.expected @@ -0,0 +1,12 @@ +/* { dg-options "" } */ +#include + +struct s +{ + int i1 : sizeof (int) * CHAR_BIT; + int i2 : sizeof (int) * CHAR_BIT; + int i3 : sizeof (int) * CHAR_BIT; + int i4 : sizeof (int) * CHAR_BIT; +}; + +int f[sizeof (struct s) != sizeof (int) * 4 ? -1 : 1]; diff --git a/tests/GCCTestSuite/bitfld-5.hex.expected b/tests/GCCTestSuite/bitfld-5.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/bitfld-5.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/bitfld-5.s.expected b/tests/GCCTestSuite/bitfld-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/bitfld-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/bitfld-6.c b/tests/GCCTestSuite/bitfld-6.c new file mode 100644 index 0000000..a9a7f40 --- /dev/null +++ b/tests/GCCTestSuite/bitfld-6.c @@ -0,0 +1,16 @@ +/* { dg-options "" } */ +#include + +struct s +{ + int i1 : sizeof (int) * CHAR_BIT; + int i2 : sizeof (int) * CHAR_BIT; + int i3 : sizeof (int) * CHAR_BIT; + int i4 : sizeof (int) * CHAR_BIT; + int i5 : sizeof (int) * CHAR_BIT; + int i6 : sizeof (int) * CHAR_BIT; + int i7 : sizeof (int) * CHAR_BIT; + int i8 : sizeof (int) * CHAR_BIT; +}; + +int f[sizeof (struct s) != sizeof (int) * 8 ? -1 : 1]; diff --git a/tests/GCCTestSuite/bitfld-6.c.expected b/tests/GCCTestSuite/bitfld-6.c.expected new file mode 100644 index 0000000..a9a7f40 --- /dev/null +++ b/tests/GCCTestSuite/bitfld-6.c.expected @@ -0,0 +1,16 @@ +/* { dg-options "" } */ +#include + +struct s +{ + int i1 : sizeof (int) * CHAR_BIT; + int i2 : sizeof (int) * CHAR_BIT; + int i3 : sizeof (int) * CHAR_BIT; + int i4 : sizeof (int) * CHAR_BIT; + int i5 : sizeof (int) * CHAR_BIT; + int i6 : sizeof (int) * CHAR_BIT; + int i7 : sizeof (int) * CHAR_BIT; + int i8 : sizeof (int) * CHAR_BIT; +}; + +int f[sizeof (struct s) != sizeof (int) * 8 ? -1 : 1]; diff --git a/tests/GCCTestSuite/bitfld-6.hex.expected b/tests/GCCTestSuite/bitfld-6.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/bitfld-6.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/bitfld-6.s.expected b/tests/GCCTestSuite/bitfld-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/bitfld-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/builtin-strstr.c b/tests/GCCTestSuite/builtin-strstr.c new file mode 100644 index 0000000..b8201f4 --- /dev/null +++ b/tests/GCCTestSuite/builtin-strstr.c @@ -0,0 +1,8 @@ +/* The strstr call is expanded to just "s", which should not result in a + warning about discarding qualifiers in an assignment. */ +/* { dg-do compile } */ +extern char * strstr (const char *s1, const char * s2); +void foo(const char *s){ + char * cp; + cp = strstr(s, ""); +} diff --git a/tests/GCCTestSuite/builtin-strstr.c.expected b/tests/GCCTestSuite/builtin-strstr.c.expected new file mode 100644 index 0000000..b8201f4 --- /dev/null +++ b/tests/GCCTestSuite/builtin-strstr.c.expected @@ -0,0 +1,8 @@ +/* The strstr call is expanded to just "s", which should not result in a + warning about discarding qualifiers in an assignment. */ +/* { dg-do compile } */ +extern char * strstr (const char *s1, const char * s2); +void foo(const char *s){ + char * cp; + cp = strstr(s, ""); +} diff --git a/tests/GCCTestSuite/builtin-strstr.hex.expected b/tests/GCCTestSuite/builtin-strstr.hex.expected new file mode 100644 index 0000000..38438af --- /dev/null +++ b/tests/GCCTestSuite/builtin-strstr.hex.expected @@ -0,0 +1,12 @@ +:100000000000E506758204C39582F506E507758351 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F090A8 +:100040000000E582F51D900000E583F51C750000B9 +:10005000E500F502E500F503E500F504E500F5052A +:1000600075E0002506F58275E0003507F583E0F5BB +:1000700008E508C0E075E0012506F58275E0003569 +:1000800007F583E0F508E508C0E075E0042506F50E +:100090000675E0003507F507E502F582E503F5830F +:1000A000E504F500E505F501220000000000000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/builtin-strstr.s.expected b/tests/GCCTestSuite/builtin-strstr.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/builtin-strstr.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/builtins-35.c b/tests/GCCTestSuite/builtins-35.c new file mode 100644 index 0000000..f898707 --- /dev/null +++ b/tests/GCCTestSuite/builtins-35.c @@ -0,0 +1,6 @@ +/* Test that nan functions are not built-in in C90 mode. Bug 14635. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=c89" } */ + +int nan, nanf, nanl, nans, nansf, nansl; diff --git a/tests/GCCTestSuite/builtins-35.c.expected b/tests/GCCTestSuite/builtins-35.c.expected new file mode 100644 index 0000000..f898707 --- /dev/null +++ b/tests/GCCTestSuite/builtins-35.c.expected @@ -0,0 +1,6 @@ +/* Test that nan functions are not built-in in C90 mode. Bug 14635. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=c89" } */ + +int nan, nanf, nanl, nans, nansf, nansl; diff --git a/tests/GCCTestSuite/builtins-35.hex.expected b/tests/GCCTestSuite/builtins-35.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/builtins-35.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/builtins-35.s.expected b/tests/GCCTestSuite/builtins-35.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/builtins-35.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-array-lval-5.c b/tests/GCCTestSuite/c90-array-lval-5.c new file mode 100644 index 0000000..c218a4d --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-5.c @@ -0,0 +1,26 @@ +/* Test for non-lvalue arrays: test that the unary '&' operator is not + allowed on them, for both C90 and C99. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +struct s { char c[1]; }; + +extern struct s foo (void); +struct s a, b, c; +int d; + +void +bar (void) +{ + &((foo ()).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((d ? b : c).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((d, b).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((a = b).c); /* { dg-bogus "warning" "warning in place of error" } */ +} +/* { dg-error "lvalue" "bad address-of" { target *-*-* } 17 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 18 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 19 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 20 } +*/ diff --git a/tests/GCCTestSuite/c90-array-lval-5.c.expected b/tests/GCCTestSuite/c90-array-lval-5.c.expected new file mode 100644 index 0000000..c218a4d --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-5.c.expected @@ -0,0 +1,26 @@ +/* Test for non-lvalue arrays: test that the unary '&' operator is not + allowed on them, for both C90 and C99. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +struct s { char c[1]; }; + +extern struct s foo (void); +struct s a, b, c; +int d; + +void +bar (void) +{ + &((foo ()).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((d ? b : c).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((d, b).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((a = b).c); /* { dg-bogus "warning" "warning in place of error" } */ +} +/* { dg-error "lvalue" "bad address-of" { target *-*-* } 17 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 18 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 19 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 20 } +*/ diff --git a/tests/GCCTestSuite/c90-array-lval-5.hex.expected b/tests/GCCTestSuite/c90-array-lval-5.hex.expected new file mode 100644 index 0000000..e65a10d --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-5.hex.expected @@ -0,0 +1,134 @@ +:100000000000E506758208C39582F506E50775834D +:10001000009583F507D0E0F50875E0032506F58225 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000022506F58275E0003507F583E508F075C1 +:10004000E0072506F58275E0003507F583E513F036 +:1000500075E0062506F58275E0003507F583E512A3 +:10006000F075E0052506F58275E0003507F583E5B6 +:1000700011F075E0042506F58275E0003507F5837B +:10008000E510F0E506F509E507F50A750101C37508 +:100090000000E501F5F0E50935F0F501E500F5F0C2 +:1000A000E50A35F0F500E501F51FE500F51EE5066A +:1000B000F509E507F50A750100C3750000E501F5CE +:1000C000F0E50935F0F501E500F5F0E50A35F0F564 +:1000D0000A750900C3750000E509F5F0E50135F082 +:1000E000F501E500F5F0E50A35F0F500E501F50963 +:1000F000E500F50A750100C3750000E501F5F0E5BE +:100100000935F0F501E500F5F0E50A35F0F500E513 +:1001100000F502E501F582E502F583E0F5117501D0 +:1001200001C3750000E501F5F0E50935F0F501E5DD +:1001300000F5F0E50A35F0F500E500F502E501F51A +:1001400082E502F583E0F501750900750A00750E78 +:1001500001750F00751000750000C3750B00E509EF +:10016000F5F0E50EA4F50DE509F5F0E50EA4E5F0D2 +:10017000F50CE50DF5F0E50B35F0F50BE50AF5F0BE +:10018000E50EA4F50DE50AF5F0E50EA4E5F0F50A97 +:10019000E50DF5F0E50C35F0F50CC3C3750A00E587 +:1001A0000BF5F0E51035F0F510E50CF5F0E5003550 +:1001B000F0F500C3750C00E509F5F0E50FA4F50DA9 +:1001C000E509F5F0E50FA4E5F0F50AE50DF5F0E534 +:1001D0000C35F0F50C750B00C3C3750900E50BF584 +:1001E000F0E51035F0F510E50CF5F0E50035F0F52B +:1001F00000C3750B00750C00C3C3750900E50BF552 +:10020000F0E51035F0F510E50CF5F0E50035F0F50A +:1002100000C3750B00750C00C3C3750900E50BF531 +:10022000F0E51035F0F510E50CF5F0E50035F0F5EA +:1002300000C3750900E510F5F0E51135F0F512E59C +:1002400000F5F0E50135F0F513900001E582F509C0 +:10025000900001E583F50A750100C3750000E50112 +:10026000F5F0E50935F0F501E500F5F0E50A35F0C2 +:10027000F500E501F509E500F50A750100C3750013 +:1002800000E501F5F0E50935F0F501E500F5F0E5EB +:100290000A35F0F500E500F502E501F582E502F525 +:1002A00083E0F510750101C3750000E501F5F0E587 +:1002B0000935F0F501E500F5F0E50A35F0F500E562 +:1002C00000F502E501F582E502F583E0F511750020 +:1002D00000750100750C01750D00750E00750F009D +:1002E000C3750900E500F5F0E50CA4F50BE500F594 +:1002F000F0E50CA4E5F0F50AE50BF5F0E50935F0BD +:10030000F509E501F5F0E50CA4F50BE501F5F0E5DF +:100310000CA4E5F0F501E50BF5F0E50A35F0F50A7A +:10032000C3C3750100E509F5F0E50E35F0F50EE5FE +:100330000AF5F0E50F35F0F50FC3750A00E500F595 +:10034000F0E50DA4F50BE500F5F0E50DA4E5F0F5FD +:1003500001E50BF5F0E50A35F0F50A750900C3C3B0 +:10036000750000E509F5F0E50E35F0F50EE50AF546 +:10037000F0E50F35F0F50FC3750900750A00C3C32A +:10038000750000E509F5F0E50E35F0F50EE50AF526 +:10039000F0E50F35F0F50FC3750900750A00C3C30A +:1003A000750000E509F5F0E50E35F0F50EE50AF506 +:1003B000F0E50F35F0F50FC3750000E50EF5F0E53B +:1003C0001035F0F500E50FF5F0E51135F0F501E534 +:1003D00000F509E501F50A750100C3750000E501A6 +:1003E000F5F0E50935F0F501E500F5F0E50A35F041 +:1003F000F500E500F502E501F582E502F583E0F59B +:1004000009750100C3750000E501F5F0E51235F04E +:10041000F501E500F5F0E51335F0F500E509F50324 +:10042000E500F502E501F582E502F583E503F090CC +:100430000000E582F509900000E583F50A750100EA +:10044000C3750000E501F5F0E50935F0F501E500BB +:10045000F5F0E50A35F0F500E501F509E500F50AE6 +:10046000750100C3750000E501F5F0E50935F0F50B +:1004700001E500F5F0E50A35F0F500E500F502E5E7 +:1004800001F582E502F583E0F511750101C3750000 +:1004900000E501F5F0E50935F0F501E500F5F0E5D9 +:1004A0000A35F0F500E500F502E501F582E502F513 +:1004B00083E0F501750900750A00750E01750F00DE +:1004C000751000750000C3750B00E509F5F0E50E29 +:1004D000A4F50DE509F5F0E50EA4E5F0F50CE50D44 +:1004E000F5F0E50B35F0F50BE50AF5F0E50EA4F5B2 +:1004F0000DE50AF5F0E50EA4E5F0F50AE50DF5F0D9 +:10050000E50C35F0F50CC3C3750A00E50BF5F0E515 +:100510001035F0F510E50CF5F0E50035F0F500C309 +:10052000750C00E509F5F0E50FA4F50DE509F5F00A +:10053000E50FA4E5F0F50AE50DF5F0E50C35F0F56D +:100540000C750B00C3C3750900E50BF5F0E510351C +:10055000F0F510E50CF5F0E50035F0F500C3750B8E +:1005600000750C00C3C3750900E50BF5F0E5103507 +:10057000F0F510E50CF5F0E50035F0F500C3750B6E +:1005800000750C00C3C3750900E50BF5F0E51035E7 +:10059000F0F510E50CF5F0E50035F0F500C3750950 +:1005A00000E510F5F0E51135F0F512E500F5F0E5A0 +:1005B0000135F0F513E506F509E507F50A750100C3 +:1005C000C3750000E501F5F0E50935F0F501E5003A +:1005D000F5F0E50A35F0F50A750900C3750000E588 +:1005E00009F5F0E50135F0F501E500F5F0E50A352E +:1005F000F0F500E501F509E500F50A750100C375A0 +:100600000000E501F5F0E50935F0F501E500F5F04C +:10061000E50A35F0F500E500F502E501F582E502B1 +:10062000F583E0F510750101C3750000E501F5F0F3 +:10063000E50935F0F501E500F5F0E50A35F0F500DE +:10064000E500F502E501F582E502F583E0F51175B7 +:100650000000750100750C01750D00750E00750F19 +:1006600000C3750900E500F5F0E50CA4F50BE50005 +:10067000F5F0E50CA4E5F0F50AE50BF5F0E5093534 +:10068000F0F509E501F5F0E50CA4F50BE501F5F051 +:10069000E50CA4E5F0F501E50BF5F0E50A35F0F51C +:1006A0000AC3C3750100E509F5F0E50E35F0F50E56 +:1006B000E50AF5F0E50F35F0F50FC3750A00E50022 +:1006C000F5F0E50DA4F50BE500F5F0E50DA4E5F07A +:1006D000F501E50BF5F0E50A35F0F50A750900C3FB +:1006E000C3750000E509F5F0E50E35F0F50EE50AF5 +:1006F000F5F0E50F35F0F50FC3750900750A00C375 +:10070000C3750000E509F5F0E50E35F0F50EE50AD4 +:10071000F5F0E50F35F0F50FC3750900750A00C354 +:10072000C3750000E509F5F0E50E35F0F50EE50AB4 +:10073000F5F0E50F35F0F50FC3750000E50EF5F0A7 +:10074000E51035F0F500E50FF5F0E51135F0F501B0 +:10075000E500F509E501F50A750100C3750000E53E +:1007600001F5F0E50935F0F501E500F5F0E50A35AC +:10077000F0F500E500F502E501F582E502F583E01C +:10078000F509750100C3750000E501F5F0E51235C6 +:10079000F0F501E500F5F0E51335F0F500E509F5B4 +:1007A00003E500F502E501F582E502F583E503F0D6 +:1007B000750000E500F502E500F503E500F504E548 +:1007C00000F50575E0072506F58275E0003507F5AB +:1007D00083E0F51375E0062506F58275E000350720 +:1007E000F583E0F51275E0052506F58275E0003524 +:1007F00007F583E0F51175E0042506F58275E00044 +:100800003507F583E0F51075E0022506F58275E001 +:10081000003507F583E0F508E508C0E075E003253D +:1008200006F58275E0003507F583E0F508E508C0B8 +:10083000E075E0082506F50675E0003507F507E5E3 +:1008400002F582E503F583E504F500E505F50122EF +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-array-lval-5.s.expected b/tests/GCCTestSuite/c90-array-lval-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-array-lval-6.c b/tests/GCCTestSuite/c90-array-lval-6.c new file mode 100644 index 0000000..f42ef52 --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-6.c @@ -0,0 +1,16 @@ +/* PR c/12446 */ +/* Origin: Keith Thompson */ + +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + + +struct s { char c[1]; }; + +extern struct s foo(void); + +void bar(void) +{ + char *ptr = foo().c; /* { dg-bogus "warning" "warning in place of error" } */ +} +/* { dg-error "non-lvalue" "array not decaying to lvalue" { target *-*-* } 14 } */ diff --git a/tests/GCCTestSuite/c90-array-lval-6.c.expected b/tests/GCCTestSuite/c90-array-lval-6.c.expected new file mode 100644 index 0000000..f42ef52 --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-6.c.expected @@ -0,0 +1,16 @@ +/* PR c/12446 */ +/* Origin: Keith Thompson */ + +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + + +struct s { char c[1]; }; + +extern struct s foo(void); + +void bar(void) +{ + char *ptr = foo().c; /* { dg-bogus "warning" "warning in place of error" } */ +} +/* { dg-error "non-lvalue" "array not decaying to lvalue" { target *-*-* } 14 } */ diff --git a/tests/GCCTestSuite/c90-array-lval-6.hex.expected b/tests/GCCTestSuite/c90-array-lval-6.hex.expected new file mode 100644 index 0000000..91c9bfd --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-6.hex.expected @@ -0,0 +1,14 @@ +:100000000000E506758203C39582F506E507758352 +:10001000009583F507D0E0F50875E0022506F58226 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000012506F58275E0003507F583E508F0E552 +:1000400006F509E507F50A750100C3750000E5012D +:10005000F5F0E50935F0F501E500F5F0E50A35F0D4 +:10006000F500E501F51FE500F51EC3C3C3C3750028 +:1000700000E500F502E500F503E500F504E500F50F +:100080000575E0012506F58275E0003507F583E08A +:10009000F508E508C0E075E0022506F58275E00088 +:1000A0003507F583E0F508E508C0E075E0032506AF +:1000B000F50675E0003507F507E502F582E503F57D +:1000C00083E504F500E505F50122000000000000CD +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-array-lval-6.s.expected b/tests/GCCTestSuite/c90-array-lval-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-array-lval-7.c b/tests/GCCTestSuite/c90-array-lval-7.c new file mode 100644 index 0000000..ee8da4c --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-7.c @@ -0,0 +1,23 @@ +/* Test for non-lvalue arrays: test that C90 does not allow them in + conditional expressions, while in C99 they decay and are + allowed. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +struct s { char c[1]; }; +struct s a, b, c; +int d; +int e; + +void +bar (void) +{ + /* In C90, the non-lvalue arrays do not decay to pointers, and + 6.3.15 does not permit conditional expressions between arrays. + In C99, they decay to pointers. */ + (e ? (d ? b : c).c : (e ? b : c).c); /* { dg-bogus "warning" "warning in place of error" } */ +} + +/* { dg-error "array" "bad conditional" { target *-*-* } 20 } */ diff --git a/tests/GCCTestSuite/c90-array-lval-7.c.expected b/tests/GCCTestSuite/c90-array-lval-7.c.expected new file mode 100644 index 0000000..ee8da4c --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-7.c.expected @@ -0,0 +1,23 @@ +/* Test for non-lvalue arrays: test that C90 does not allow them in + conditional expressions, while in C99 they decay and are + allowed. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +struct s { char c[1]; }; +struct s a, b, c; +int d; +int e; + +void +bar (void) +{ + /* In C90, the non-lvalue arrays do not decay to pointers, and + 6.3.15 does not permit conditional expressions between arrays. + In C99, they decay to pointers. */ + (e ? (d ? b : c).c : (e ? b : c).c); /* { dg-bogus "warning" "warning in place of error" } */ +} + +/* { dg-error "array" "bad conditional" { target *-*-* } 20 } */ diff --git a/tests/GCCTestSuite/c90-array-lval-7.hex.expected b/tests/GCCTestSuite/c90-array-lval-7.hex.expected new file mode 100644 index 0000000..0a5eadc --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-7.hex.expected @@ -0,0 +1,21 @@ +:1000000000D0E0F518D0E0F519E511F50EE510F592 +:100010000F900007E582F509900007E583F50A7562 +:100020000100C3750000E501F5F0E50935F0F501C3 +:10003000E500F5F0E50A35F0F500E500F502E5012B +:10004000F582E502F583E0F50B750101C37500004B +:10005000E501F5F0E50935F0F501E500F5F0E50A13 +:1000600035F0F500E500F502E501F582E502F583DE +:10007000E0F50C750102C3750000E501F5F0E50936 +:1000800035F0F501E500F5F0E50A35F0F500E5009D +:10009000F502E501F582E502F583E0F50D75010352 +:1000A000C3750000E501F5F0E50935F0F501E5005F +:1000B000F5F0E50A35F0F500E500F502E501F58219 +:1000C000E502F583E0F501750000E50BF5F0E500CC +:1000D00045F0F500E50CF5F0E50045F0F500E50D1F +:1000E000F5F0E50045F0F500E501F5F0E50045F037 +:1000F000F500E5007002800302013000750000E5A4 +:1001000000F502E500F503E500F504E500F505E579 +:100110000EF511E50FF510E519C0E0E518C0E0E5B2 +:1001200002F582E503F583E504F500E505F5012216 +:10013000000200FC000000000000000000000000C1 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-array-lval-7.s.expected b/tests/GCCTestSuite/c90-array-lval-7.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-array-lval-7.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-array-quals-2.c b/tests/GCCTestSuite/c90-array-quals-2.c new file mode 100644 index 0000000..7cb68c8 --- /dev/null +++ b/tests/GCCTestSuite/c90-array-quals-2.c @@ -0,0 +1,3 @@ +extern const char *const a[]; +extern const char *const a[]; +extern const char *const a[]; diff --git a/tests/GCCTestSuite/c90-array-quals-2.c.expected b/tests/GCCTestSuite/c90-array-quals-2.c.expected new file mode 100644 index 0000000..7cb68c8 --- /dev/null +++ b/tests/GCCTestSuite/c90-array-quals-2.c.expected @@ -0,0 +1,3 @@ +extern const char *const a[]; +extern const char *const a[]; +extern const char *const a[]; diff --git a/tests/GCCTestSuite/c90-array-quals-2.hex.expected b/tests/GCCTestSuite/c90-array-quals-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c90-array-quals-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-array-quals-2.s.expected b/tests/GCCTestSuite/c90-array-quals-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-array-quals-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-array-quals.c b/tests/GCCTestSuite/c90-array-quals.c new file mode 100644 index 0000000..228e79f --- /dev/null +++ b/tests/GCCTestSuite/c90-array-quals.c @@ -0,0 +1,3 @@ +extern int (*const a)[]; +extern int (*const a)[10]; +extern int (*const a)[]; diff --git a/tests/GCCTestSuite/c90-array-quals.c.expected b/tests/GCCTestSuite/c90-array-quals.c.expected new file mode 100644 index 0000000..228e79f --- /dev/null +++ b/tests/GCCTestSuite/c90-array-quals.c.expected @@ -0,0 +1,3 @@ +extern int (*const a)[]; +extern int (*const a)[10]; +extern int (*const a)[]; diff --git a/tests/GCCTestSuite/c90-array-quals.hex.expected b/tests/GCCTestSuite/c90-array-quals.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c90-array-quals.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-array-quals.s.expected b/tests/GCCTestSuite/c90-array-quals.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-array-quals.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-const-expr-1.c b/tests/GCCTestSuite/c90-const-expr-1.c new file mode 100644 index 0000000..96d19ee --- /dev/null +++ b/tests/GCCTestSuite/c90-const-expr-1.c @@ -0,0 +1,23 @@ +/* Test for constraints on constant expressions. In C90 it is clear that + certain constructs are not permitted in unevaluated parts of an + expression (except in sizeof); in C99 it might fall within implementation + latitude. +*/ +/* Origin: Joseph Myers ; inspired by + http://deja.com/getdoc.xp?AN=524271595&fmt=text by Peter Seebach. +*/ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +extern int bar (void); + +void +foo (void) +{ + int i; + static int j = (1 ? 0 : (i = 2)); /* { dg-error "initial" "assignment" { xfail *-*-* } } */ + static int k = (1 ? 0 : ++i); /* { dg-error "initial" "increment" { xfail *-*-* } } */ + static int l = (1 ? 0 : --i); /* { dg-error "initial" "decrement" { xfail *-*-* } } */ + static int m = (1 ? 0 : bar ()); /* { dg-error "initial" "function call" { xfail *-*-* } } */ + static int n = (1 ? 0 : (2, 3)); /* { dg-error "initial" "comma" { xfail *-*-* } } */ +} diff --git a/tests/GCCTestSuite/c90-const-expr-1.c.expected b/tests/GCCTestSuite/c90-const-expr-1.c.expected new file mode 100644 index 0000000..96d19ee --- /dev/null +++ b/tests/GCCTestSuite/c90-const-expr-1.c.expected @@ -0,0 +1,23 @@ +/* Test for constraints on constant expressions. In C90 it is clear that + certain constructs are not permitted in unevaluated parts of an + expression (except in sizeof); in C99 it might fall within implementation + latitude. +*/ +/* Origin: Joseph Myers ; inspired by + http://deja.com/getdoc.xp?AN=524271595&fmt=text by Peter Seebach. +*/ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +extern int bar (void); + +void +foo (void) +{ + int i; + static int j = (1 ? 0 : (i = 2)); /* { dg-error "initial" "assignment" { xfail *-*-* } } */ + static int k = (1 ? 0 : ++i); /* { dg-error "initial" "increment" { xfail *-*-* } } */ + static int l = (1 ? 0 : --i); /* { dg-error "initial" "decrement" { xfail *-*-* } } */ + static int m = (1 ? 0 : bar ()); /* { dg-error "initial" "function call" { xfail *-*-* } } */ + static int n = (1 ? 0 : (2, 3)); /* { dg-error "initial" "comma" { xfail *-*-* } } */ +} diff --git a/tests/GCCTestSuite/c90-const-expr-1.hex.expected b/tests/GCCTestSuite/c90-const-expr-1.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/c90-const-expr-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-const-expr-1.s.expected b/tests/GCCTestSuite/c90-const-expr-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-const-expr-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-dupqual-1.c b/tests/GCCTestSuite/c90-dupqual-1.c new file mode 100644 index 0000000..14838c7 --- /dev/null +++ b/tests/GCCTestSuite/c90-dupqual-1.c @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +typedef const int CI; +const const int c1; /* { dg-error "duplicate" } */ +const CI c2; /* { dg-error "duplicate" } */ +const CI *c3; /* { dg-error "duplicate" } */ + +typedef volatile int VI; +volatile volatile int v1; /* { dg-error "duplicate" } */ +volatile VI v2; /* { dg-error "duplicate" } */ +volatile VI *v3; /* { dg-error "duplicate" } */ diff --git a/tests/GCCTestSuite/c90-dupqual-1.c.expected b/tests/GCCTestSuite/c90-dupqual-1.c.expected new file mode 100644 index 0000000..14838c7 --- /dev/null +++ b/tests/GCCTestSuite/c90-dupqual-1.c.expected @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +typedef const int CI; +const const int c1; /* { dg-error "duplicate" } */ +const CI c2; /* { dg-error "duplicate" } */ +const CI *c3; /* { dg-error "duplicate" } */ + +typedef volatile int VI; +volatile volatile int v1; /* { dg-error "duplicate" } */ +volatile VI v2; /* { dg-error "duplicate" } */ +volatile VI *v3; /* { dg-error "duplicate" } */ diff --git a/tests/GCCTestSuite/c90-dupqual-1.hex.expected b/tests/GCCTestSuite/c90-dupqual-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c90-dupqual-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-dupqual-1.s.expected b/tests/GCCTestSuite/c90-dupqual-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-dupqual-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-enum-comma-1.c b/tests/GCCTestSuite/c90-enum-comma-1.c new file mode 100644 index 0000000..2029c92 --- /dev/null +++ b/tests/GCCTestSuite/c90-enum-comma-1.c @@ -0,0 +1,7 @@ +/* Test for commas at end of enums: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +enum foo { bar, }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "comma at end" "enum comma error" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/c90-enum-comma-1.c.expected b/tests/GCCTestSuite/c90-enum-comma-1.c.expected new file mode 100644 index 0000000..2029c92 --- /dev/null +++ b/tests/GCCTestSuite/c90-enum-comma-1.c.expected @@ -0,0 +1,7 @@ +/* Test for commas at end of enums: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +enum foo { bar, }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "comma at end" "enum comma error" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/c90-enum-comma-1.hex.expected b/tests/GCCTestSuite/c90-enum-comma-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c90-enum-comma-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-enum-comma-1.s.expected b/tests/GCCTestSuite/c90-enum-comma-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-enum-comma-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-flex-array-1.c b/tests/GCCTestSuite/c90-flex-array-1.c new file mode 100644 index 0000000..1eead19 --- /dev/null +++ b/tests/GCCTestSuite/c90-flex-array-1.c @@ -0,0 +1,7 @@ +/* Test for flexible array members. Test for rejection in C90 mode. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +struct flex { int a; int b[]; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "ISO C90" "flexible array members not in C90" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/c90-flex-array-1.c.expected b/tests/GCCTestSuite/c90-flex-array-1.c.expected new file mode 100644 index 0000000..1eead19 --- /dev/null +++ b/tests/GCCTestSuite/c90-flex-array-1.c.expected @@ -0,0 +1,7 @@ +/* Test for flexible array members. Test for rejection in C90 mode. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +struct flex { int a; int b[]; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "ISO C90" "flexible array members not in C90" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/c90-flex-array-1.hex.expected b/tests/GCCTestSuite/c90-flex-array-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c90-flex-array-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-flex-array-1.s.expected b/tests/GCCTestSuite/c90-flex-array-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-flex-array-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-idem-qual-1.c b/tests/GCCTestSuite/c90-idem-qual-1.c new file mode 100644 index 0000000..ee05a82 --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-1.c @@ -0,0 +1,8 @@ +/* Test for idempotent type qualifiers: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +typedef const int cint; +const cint foo; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "duplicate" "duplicate type qualifier error" { target *-*-* } 7 } */ diff --git a/tests/GCCTestSuite/c90-idem-qual-1.c.expected b/tests/GCCTestSuite/c90-idem-qual-1.c.expected new file mode 100644 index 0000000..ee05a82 --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-1.c.expected @@ -0,0 +1,8 @@ +/* Test for idempotent type qualifiers: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +typedef const int cint; +const cint foo; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "duplicate" "duplicate type qualifier error" { target *-*-* } 7 } */ diff --git a/tests/GCCTestSuite/c90-idem-qual-1.hex.expected b/tests/GCCTestSuite/c90-idem-qual-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-idem-qual-1.s.expected b/tests/GCCTestSuite/c90-idem-qual-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-idem-qual-2.c b/tests/GCCTestSuite/c90-idem-qual-2.c new file mode 100644 index 0000000..c9bb6f7 --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-2.c @@ -0,0 +1,7 @@ +/* Test for idempotent type qualifiers: in C99 only. Test "const const". */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +const const int foo; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "duplicate" "duplicate type qualifier error" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/c90-idem-qual-2.c.expected b/tests/GCCTestSuite/c90-idem-qual-2.c.expected new file mode 100644 index 0000000..c9bb6f7 --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-2.c.expected @@ -0,0 +1,7 @@ +/* Test for idempotent type qualifiers: in C99 only. Test "const const". */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +const const int foo; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "duplicate" "duplicate type qualifier error" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/c90-idem-qual-2.hex.expected b/tests/GCCTestSuite/c90-idem-qual-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-idem-qual-2.s.expected b/tests/GCCTestSuite/c90-idem-qual-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-idem-qual-3.c b/tests/GCCTestSuite/c90-idem-qual-3.c new file mode 100644 index 0000000..9976a08 --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-3.c @@ -0,0 +1,11 @@ +/* Test for idempotent type qualifiers: in C99 only. Test duplicate + type qualifiers with array element types. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +typedef const int cia[2]; +const cia a; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "duplicate" "duplicate type qualifier error" { target *-*-* } 8 } */ +const cia b[2]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "duplicate" "duplicate type qualifier error" { target *-*-* } 10 } */ diff --git a/tests/GCCTestSuite/c90-idem-qual-3.c.expected b/tests/GCCTestSuite/c90-idem-qual-3.c.expected new file mode 100644 index 0000000..9976a08 --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-3.c.expected @@ -0,0 +1,11 @@ +/* Test for idempotent type qualifiers: in C99 only. Test duplicate + type qualifiers with array element types. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +typedef const int cia[2]; +const cia a; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "duplicate" "duplicate type qualifier error" { target *-*-* } 8 } */ +const cia b[2]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "duplicate" "duplicate type qualifier error" { target *-*-* } 10 } */ diff --git a/tests/GCCTestSuite/c90-idem-qual-3.hex.expected b/tests/GCCTestSuite/c90-idem-qual-3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-idem-qual-3.s.expected b/tests/GCCTestSuite/c90-idem-qual-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-idem-qual-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-impl-int-1.c b/tests/GCCTestSuite/c90-impl-int-1.c new file mode 100644 index 0000000..cd995c2 --- /dev/null +++ b/tests/GCCTestSuite/c90-impl-int-1.c @@ -0,0 +1,8 @@ +/* Test for implicit int: in C90 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +extern foo; + +bar (void) { } diff --git a/tests/GCCTestSuite/c90-impl-int-1.c.expected b/tests/GCCTestSuite/c90-impl-int-1.c.expected new file mode 100644 index 0000000..cd995c2 --- /dev/null +++ b/tests/GCCTestSuite/c90-impl-int-1.c.expected @@ -0,0 +1,8 @@ +/* Test for implicit int: in C90 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +extern foo; + +bar (void) { } diff --git a/tests/GCCTestSuite/c90-impl-int-1.hex.expected b/tests/GCCTestSuite/c90-impl-int-1.hex.expected new file mode 100644 index 0000000..16a396e --- /dev/null +++ b/tests/GCCTestSuite/c90-impl-int-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501E509F502E509F5DD +:1000100003E509F504E509F505E501C0E0E500C0E3 +:10002000E0E502F582E503F583E504F500E505F575 +:10003000012200000000000000000000000000009D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-impl-int-1.s.expected b/tests/GCCTestSuite/c90-impl-int-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-impl-int-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-impl-int-2.c b/tests/GCCTestSuite/c90-impl-int-2.c new file mode 100644 index 0000000..884c9d9 --- /dev/null +++ b/tests/GCCTestSuite/c90-impl-int-2.c @@ -0,0 +1,8 @@ +/* Test for implicit int: in C90 only. Function parameters in old-style + function definition. +*/ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +void foo (a) { } diff --git a/tests/GCCTestSuite/c90-impl-int-2.c.expected b/tests/GCCTestSuite/c90-impl-int-2.c.expected new file mode 100644 index 0000000..884c9d9 --- /dev/null +++ b/tests/GCCTestSuite/c90-impl-int-2.c.expected @@ -0,0 +1,8 @@ +/* Test for implicit int: in C90 only. Function parameters in old-style + function definition. +*/ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +void foo (a) { } diff --git a/tests/GCCTestSuite/c90-impl-int-2.hex.expected b/tests/GCCTestSuite/c90-impl-int-2.hex.expected new file mode 100644 index 0000000..7af2347 --- /dev/null +++ b/tests/GCCTestSuite/c90-impl-int-2.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F501750900E51E +:1000200009F502E509F503E509F504E509F505E536 +:1000300001C0E0E500C0E075E0042506F50675E0C6 +:10004000003507F507E502F582E503F583E504F5DC +:1000500000E505F50122000000000000000000009E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-impl-int-2.s.expected b/tests/GCCTestSuite/c90-impl-int-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-impl-int-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-longlong-1.c b/tests/GCCTestSuite/c90-longlong-1.c new file mode 100644 index 0000000..e91e39e --- /dev/null +++ b/tests/GCCTestSuite/c90-longlong-1.c @@ -0,0 +1,7 @@ +/* Test for long long: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +long long foo; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "long long" "long long not in C90" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/c90-longlong-1.c.expected b/tests/GCCTestSuite/c90-longlong-1.c.expected new file mode 100644 index 0000000..e91e39e --- /dev/null +++ b/tests/GCCTestSuite/c90-longlong-1.c.expected @@ -0,0 +1,7 @@ +/* Test for long long: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +long long foo; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "long long" "long long not in C90" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/c90-longlong-1.hex.expected b/tests/GCCTestSuite/c90-longlong-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c90-longlong-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-longlong-1.s.expected b/tests/GCCTestSuite/c90-longlong-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-longlong-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-mixdecl-1.c b/tests/GCCTestSuite/c90-mixdecl-1.c new file mode 100644 index 0000000..b07ab26 --- /dev/null +++ b/tests/GCCTestSuite/c90-mixdecl-1.c @@ -0,0 +1,13 @@ +/* Test for C99 mixed declarations and code: not in C90. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +void +foo (void) +{ + int i; + i = 0; + int j; /* { dg-bogus "warning" "warning in place of error" } */ + /* { dg-error "mix|parse" "mixed declarations and code not in C90" { target *-*-* } 11 } */ +} diff --git a/tests/GCCTestSuite/c90-mixdecl-1.c.expected b/tests/GCCTestSuite/c90-mixdecl-1.c.expected new file mode 100644 index 0000000..b07ab26 --- /dev/null +++ b/tests/GCCTestSuite/c90-mixdecl-1.c.expected @@ -0,0 +1,13 @@ +/* Test for C99 mixed declarations and code: not in C90. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +void +foo (void) +{ + int i; + i = 0; + int j; /* { dg-bogus "warning" "warning in place of error" } */ + /* { dg-error "mix|parse" "mixed declarations and code not in C90" { target *-*-* } 11 } */ +} diff --git a/tests/GCCTestSuite/c90-mixdecl-1.hex.expected b/tests/GCCTestSuite/c90-mixdecl-1.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/c90-mixdecl-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-mixdecl-1.s.expected b/tests/GCCTestSuite/c90-mixdecl-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-mixdecl-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-restrict-1.c b/tests/GCCTestSuite/c90-restrict-1.c new file mode 100644 index 0000000..4820831 --- /dev/null +++ b/tests/GCCTestSuite/c90-restrict-1.c @@ -0,0 +1,7 @@ +/* Test for restrict: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +char *restrict foo; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "parse error|syntax error|expected|no type" "restrict not in C90" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/c90-restrict-1.c.expected b/tests/GCCTestSuite/c90-restrict-1.c.expected new file mode 100644 index 0000000..4820831 --- /dev/null +++ b/tests/GCCTestSuite/c90-restrict-1.c.expected @@ -0,0 +1,7 @@ +/* Test for restrict: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1990 -pedantic-errors" } */ + +char *restrict foo; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "parse error|syntax error|expected|no type" "restrict not in C90" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/c90-restrict-1.hex.expected b/tests/GCCTestSuite/c90-restrict-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c90-restrict-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-restrict-1.s.expected b/tests/GCCTestSuite/c90-restrict-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-restrict-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-static-1.c b/tests/GCCTestSuite/c90-static-1.c new file mode 100644 index 0000000..cc6f320 --- /dev/null +++ b/tests/GCCTestSuite/c90-static-1.c @@ -0,0 +1,22 @@ +/* It is a constraint violation for a static function to be declared + but not defined if it is used except in a sizeof expression. The + use of the function simply being unevaluated is not enough. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-O2 -std=iso9899:1990 -pedantic-errors" } */ + +/* Constraint violation (trivial case, where function is used). */ +static void f0(void); /* { dg-error "used but never defined" } */ +void g0(void) { f0(); } + +/* Constraint violation. */ +static void f1(void); /* { dg-error "used but never defined" } */ +void g1(void) { if (0) { f1(); } } + +/* Constraint violation. */ +static int f2(void); /* { dg-error "used but never defined" } */ +void g2(void) { 0 ? f2() : 0; } + +/* OK. */ +static int f3(void); +void g3(void) { sizeof(f3()); } diff --git a/tests/GCCTestSuite/c90-static-1.c.expected b/tests/GCCTestSuite/c90-static-1.c.expected new file mode 100644 index 0000000..cc6f320 --- /dev/null +++ b/tests/GCCTestSuite/c90-static-1.c.expected @@ -0,0 +1,22 @@ +/* It is a constraint violation for a static function to be declared + but not defined if it is used except in a sizeof expression. The + use of the function simply being unevaluated is not enough. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-O2 -std=iso9899:1990 -pedantic-errors" } */ + +/* Constraint violation (trivial case, where function is used). */ +static void f0(void); /* { dg-error "used but never defined" } */ +void g0(void) { f0(); } + +/* Constraint violation. */ +static void f1(void); /* { dg-error "used but never defined" } */ +void g1(void) { if (0) { f1(); } } + +/* Constraint violation. */ +static int f2(void); /* { dg-error "used but never defined" } */ +void g2(void) { 0 ? f2() : 0; } + +/* OK. */ +static int f3(void); +void g3(void) { sizeof(f3()); } diff --git a/tests/GCCTestSuite/c90-static-1.hex.expected b/tests/GCCTestSuite/c90-static-1.hex.expected new file mode 100644 index 0000000..b27f726 --- /dev/null +++ b/tests/GCCTestSuite/c90-static-1.hex.expected @@ -0,0 +1,42 @@ +:100000000000E506758202C39582F506E507758353 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:100040000000E500F502E500F503E500F504E50034 +:10005000F50575E0002506F58275E0003507F583A6 +:10006000E0F508E508C0E075E0012506F58275E0D9 +:10007000003507F583E0F508E508C0E075E00225E6 +:1000800006F50675E0003507F507E502F582E5039C +:10009000F583E504F500E505F501220000E50675A8 +:1000A0008202C39582F506E5077583009583F507FF +:1000B000D0E0F50875E0012506F58275E00035070A +:1000C000F583E508F0D0E0F50875E0002506F58237 +:1000D00075E0003507F583E508F075010075090046 +:1000E000750A00750B00750000E501F5F0E50045A7 +:1000F000F0F500E509F5F0E50045F0F500E50AF555 +:10010000F0E50045F0F500E50BF5F0E50045F0F50C +:1001100000E5007002800302017700750000E50031 +:10012000F502E500F503E500F504E500F50575E0E9 +:10013000002506F58275E0003507F583E0F508E552 +:1001400008C0E075E0012506F58275E0003507F589 +:1001500083E0F508E508C0E075E0022506F50675C0 +:10016000E0003507F507E502F582E503F583E504D0 +:10017000F500E505F501220002011B0000E506750A +:100180008202C39582F506E5077583009583F5071E +:10019000D0E0F50875E0012506F58275E000350729 +:1001A000F583E508F0D0E0F50875E0002506F58256 +:1001B00075E0003507F583E508F075010075090065 +:1001C000750A00750B00750000E501F5F0E50045C6 +:1001D000F0F500E509F5F0E50045F0F500E50AF574 +:1001E000F0E50045F0F500E50BF5F0E50045F0F52C +:1001F00000E5007002800302025700750000E50070 +:10020000F502E500F503E500F504E500F50575E008 +:10021000002506F58275E0003507F583E0F508E571 +:1002200008C0E075E0012506F58275E0003507F5A8 +:1002300083E0F508E508C0E075E0022506F50675DF +:10024000E0003507F507E502F582E503F583E504EF +:10025000F500E505F50122000201FB00D0E0F50004 +:10026000D0E0F501750900E509F502E509F503E5BA +:1002700009F504E509F505E501C0E0E500C0E0E5A4 +:1002800002F582E503F583E504F500E505F50122B5 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c90-static-1.s.expected b/tests/GCCTestSuite/c90-static-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c90-static-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-array-lval-1.c b/tests/GCCTestSuite/c99-array-lval-1.c new file mode 100644 index 0000000..c0fccc8 --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-1.c @@ -0,0 +1,17 @@ +/* Test for non-lvalue arrays decaying to pointers: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +struct s { char c[1]; }; + +extern struct s foo (void); + +void +bar (void) +{ + char *t; + (foo ()).c[0]; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" } */ + t = (foo ()).c; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" } */ + (foo ()).c + 1; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" } */ +} diff --git a/tests/GCCTestSuite/c99-array-lval-1.c.expected b/tests/GCCTestSuite/c99-array-lval-1.c.expected new file mode 100644 index 0000000..c0fccc8 --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-1.c.expected @@ -0,0 +1,17 @@ +/* Test for non-lvalue arrays decaying to pointers: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +struct s { char c[1]; }; + +extern struct s foo (void); + +void +bar (void) +{ + char *t; + (foo ()).c[0]; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" } */ + t = (foo ()).c; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" } */ + (foo ()).c + 1; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" } */ +} diff --git a/tests/GCCTestSuite/c99-array-lval-1.hex.expected b/tests/GCCTestSuite/c99-array-lval-1.hex.expected new file mode 100644 index 0000000..ed6c94a --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-1.hex.expected @@ -0,0 +1,19 @@ +:100000000000E506758205C39582F506E507758350 +:10001000009583F507D0E0F50875E0042506F58224 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000032506F58275E0003507F583E508F0E550 +:1000400006F509E507F50A750102C3750000E5012B +:10005000F5F0E50935F0F501E500F5F0E50A35F0D4 +:10006000F500E501F51FE500F51EE506F509E507D4 +:10007000F50A750101C3750000E501F5F0E50935E4 +:10008000F0F501E500F5F0E50A35F0F500E501F5DC +:100090001FE500F51EC3C3C3C3E506F509E507F573 +:1000A0000A750100C3750000E501F5F0E50935F0BA +:1000B000F501E500F5F0E50A35F0F500E501F51F7D +:1000C000E500F51E750000E500F502E500F503E525 +:1000D00000F504E500F50575E0032506F58275E0F9 +:1000E000003507F583E0F508E508C0E075E0042574 +:1000F00006F58275E0003507F583E0F508E508C0F0 +:10010000E075E0052506F50675E0003507F507E51D +:1001100002F582E503F583E504F500E505F5012226 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-array-lval-1.s.expected b/tests/GCCTestSuite/c99-array-lval-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-array-lval-5.c b/tests/GCCTestSuite/c99-array-lval-5.c new file mode 100644 index 0000000..57e806d --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-5.c @@ -0,0 +1,26 @@ +/* Test for non-lvalue arrays: test that the unary '&' operator is not + allowed on them, for both C90 and C99. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +struct s { char c[1]; }; + +extern struct s foo (void); +struct s a, b, c; +int d; + +void +bar (void) +{ + &((foo ()).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((d ? b : c).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((d, b).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((a = b).c); /* { dg-bogus "warning" "warning in place of error" } */ +} +/* { dg-error "lvalue" "bad address-of" { target *-*-* } 17 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 18 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 19 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 20 } +*/ diff --git a/tests/GCCTestSuite/c99-array-lval-5.c.expected b/tests/GCCTestSuite/c99-array-lval-5.c.expected new file mode 100644 index 0000000..57e806d --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-5.c.expected @@ -0,0 +1,26 @@ +/* Test for non-lvalue arrays: test that the unary '&' operator is not + allowed on them, for both C90 and C99. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +struct s { char c[1]; }; + +extern struct s foo (void); +struct s a, b, c; +int d; + +void +bar (void) +{ + &((foo ()).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((d ? b : c).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((d, b).c); /* { dg-bogus "warning" "warning in place of error" } */ + &((a = b).c); /* { dg-bogus "warning" "warning in place of error" } */ +} +/* { dg-error "lvalue" "bad address-of" { target *-*-* } 17 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 18 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 19 } + { dg-error "lvalue" "bad address-of" { target *-*-* } 20 } +*/ diff --git a/tests/GCCTestSuite/c99-array-lval-5.hex.expected b/tests/GCCTestSuite/c99-array-lval-5.hex.expected new file mode 100644 index 0000000..e65a10d --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-5.hex.expected @@ -0,0 +1,134 @@ +:100000000000E506758208C39582F506E50775834D +:10001000009583F507D0E0F50875E0032506F58225 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000022506F58275E0003507F583E508F075C1 +:10004000E0072506F58275E0003507F583E513F036 +:1000500075E0062506F58275E0003507F583E512A3 +:10006000F075E0052506F58275E0003507F583E5B6 +:1000700011F075E0042506F58275E0003507F5837B +:10008000E510F0E506F509E507F50A750101C37508 +:100090000000E501F5F0E50935F0F501E500F5F0C2 +:1000A000E50A35F0F500E501F51FE500F51EE5066A +:1000B000F509E507F50A750100C3750000E501F5CE +:1000C000F0E50935F0F501E500F5F0E50A35F0F564 +:1000D0000A750900C3750000E509F5F0E50135F082 +:1000E000F501E500F5F0E50A35F0F500E501F50963 +:1000F000E500F50A750100C3750000E501F5F0E5BE +:100100000935F0F501E500F5F0E50A35F0F500E513 +:1001100000F502E501F582E502F583E0F5117501D0 +:1001200001C3750000E501F5F0E50935F0F501E5DD +:1001300000F5F0E50A35F0F500E500F502E501F51A +:1001400082E502F583E0F501750900750A00750E78 +:1001500001750F00751000750000C3750B00E509EF +:10016000F5F0E50EA4F50DE509F5F0E50EA4E5F0D2 +:10017000F50CE50DF5F0E50B35F0F50BE50AF5F0BE +:10018000E50EA4F50DE50AF5F0E50EA4E5F0F50A97 +:10019000E50DF5F0E50C35F0F50CC3C3750A00E587 +:1001A0000BF5F0E51035F0F510E50CF5F0E5003550 +:1001B000F0F500C3750C00E509F5F0E50FA4F50DA9 +:1001C000E509F5F0E50FA4E5F0F50AE50DF5F0E534 +:1001D0000C35F0F50C750B00C3C3750900E50BF584 +:1001E000F0E51035F0F510E50CF5F0E50035F0F52B +:1001F00000C3750B00750C00C3C3750900E50BF552 +:10020000F0E51035F0F510E50CF5F0E50035F0F50A +:1002100000C3750B00750C00C3C3750900E50BF531 +:10022000F0E51035F0F510E50CF5F0E50035F0F5EA +:1002300000C3750900E510F5F0E51135F0F512E59C +:1002400000F5F0E50135F0F513900001E582F509C0 +:10025000900001E583F50A750100C3750000E50112 +:10026000F5F0E50935F0F501E500F5F0E50A35F0C2 +:10027000F500E501F509E500F50A750100C3750013 +:1002800000E501F5F0E50935F0F501E500F5F0E5EB +:100290000A35F0F500E500F502E501F582E502F525 +:1002A00083E0F510750101C3750000E501F5F0E587 +:1002B0000935F0F501E500F5F0E50A35F0F500E562 +:1002C00000F502E501F582E502F583E0F511750020 +:1002D00000750100750C01750D00750E00750F009D +:1002E000C3750900E500F5F0E50CA4F50BE500F594 +:1002F000F0E50CA4E5F0F50AE50BF5F0E50935F0BD +:10030000F509E501F5F0E50CA4F50BE501F5F0E5DF +:100310000CA4E5F0F501E50BF5F0E50A35F0F50A7A +:10032000C3C3750100E509F5F0E50E35F0F50EE5FE +:100330000AF5F0E50F35F0F50FC3750A00E500F595 +:10034000F0E50DA4F50BE500F5F0E50DA4E5F0F5FD +:1003500001E50BF5F0E50A35F0F50A750900C3C3B0 +:10036000750000E509F5F0E50E35F0F50EE50AF546 +:10037000F0E50F35F0F50FC3750900750A00C3C32A +:10038000750000E509F5F0E50E35F0F50EE50AF526 +:10039000F0E50F35F0F50FC3750900750A00C3C30A +:1003A000750000E509F5F0E50E35F0F50EE50AF506 +:1003B000F0E50F35F0F50FC3750000E50EF5F0E53B +:1003C0001035F0F500E50FF5F0E51135F0F501E534 +:1003D00000F509E501F50A750100C3750000E501A6 +:1003E000F5F0E50935F0F501E500F5F0E50A35F041 +:1003F000F500E500F502E501F582E502F583E0F59B +:1004000009750100C3750000E501F5F0E51235F04E +:10041000F501E500F5F0E51335F0F500E509F50324 +:10042000E500F502E501F582E502F583E503F090CC +:100430000000E582F509900000E583F50A750100EA +:10044000C3750000E501F5F0E50935F0F501E500BB +:10045000F5F0E50A35F0F500E501F509E500F50AE6 +:10046000750100C3750000E501F5F0E50935F0F50B +:1004700001E500F5F0E50A35F0F500E500F502E5E7 +:1004800001F582E502F583E0F511750101C3750000 +:1004900000E501F5F0E50935F0F501E500F5F0E5D9 +:1004A0000A35F0F500E500F502E501F582E502F513 +:1004B00083E0F501750900750A00750E01750F00DE +:1004C000751000750000C3750B00E509F5F0E50E29 +:1004D000A4F50DE509F5F0E50EA4E5F0F50CE50D44 +:1004E000F5F0E50B35F0F50BE50AF5F0E50EA4F5B2 +:1004F0000DE50AF5F0E50EA4E5F0F50AE50DF5F0D9 +:10050000E50C35F0F50CC3C3750A00E50BF5F0E515 +:100510001035F0F510E50CF5F0E50035F0F500C309 +:10052000750C00E509F5F0E50FA4F50DE509F5F00A +:10053000E50FA4E5F0F50AE50DF5F0E50C35F0F56D +:100540000C750B00C3C3750900E50BF5F0E510351C +:10055000F0F510E50CF5F0E50035F0F500C3750B8E +:1005600000750C00C3C3750900E50BF5F0E5103507 +:10057000F0F510E50CF5F0E50035F0F500C3750B6E +:1005800000750C00C3C3750900E50BF5F0E51035E7 +:10059000F0F510E50CF5F0E50035F0F500C3750950 +:1005A00000E510F5F0E51135F0F512E500F5F0E5A0 +:1005B0000135F0F513E506F509E507F50A750100C3 +:1005C000C3750000E501F5F0E50935F0F501E5003A +:1005D000F5F0E50A35F0F50A750900C3750000E588 +:1005E00009F5F0E50135F0F501E500F5F0E50A352E +:1005F000F0F500E501F509E500F50A750100C375A0 +:100600000000E501F5F0E50935F0F501E500F5F04C +:10061000E50A35F0F500E500F502E501F582E502B1 +:10062000F583E0F510750101C3750000E501F5F0F3 +:10063000E50935F0F501E500F5F0E50A35F0F500DE +:10064000E500F502E501F582E502F583E0F51175B7 +:100650000000750100750C01750D00750E00750F19 +:1006600000C3750900E500F5F0E50CA4F50BE50005 +:10067000F5F0E50CA4E5F0F50AE50BF5F0E5093534 +:10068000F0F509E501F5F0E50CA4F50BE501F5F051 +:10069000E50CA4E5F0F501E50BF5F0E50A35F0F51C +:1006A0000AC3C3750100E509F5F0E50E35F0F50E56 +:1006B000E50AF5F0E50F35F0F50FC3750A00E50022 +:1006C000F5F0E50DA4F50BE500F5F0E50DA4E5F07A +:1006D000F501E50BF5F0E50A35F0F50A750900C3FB +:1006E000C3750000E509F5F0E50E35F0F50EE50AF5 +:1006F000F5F0E50F35F0F50FC3750900750A00C375 +:10070000C3750000E509F5F0E50E35F0F50EE50AD4 +:10071000F5F0E50F35F0F50FC3750900750A00C354 +:10072000C3750000E509F5F0E50E35F0F50EE50AB4 +:10073000F5F0E50F35F0F50FC3750000E50EF5F0A7 +:10074000E51035F0F500E50FF5F0E51135F0F501B0 +:10075000E500F509E501F50A750100C3750000E53E +:1007600001F5F0E50935F0F501E500F5F0E50A35AC +:10077000F0F500E500F502E501F582E502F583E01C +:10078000F509750100C3750000E501F5F0E51235C6 +:10079000F0F501E500F5F0E51335F0F500E509F5B4 +:1007A00003E500F502E501F582E502F583E503F0D6 +:1007B000750000E500F502E500F503E500F504E548 +:1007C00000F50575E0072506F58275E0003507F5AB +:1007D00083E0F51375E0062506F58275E000350720 +:1007E000F583E0F51275E0052506F58275E0003524 +:1007F00007F583E0F51175E0042506F58275E00044 +:100800003507F583E0F51075E0022506F58275E001 +:10081000003507F583E0F508E508C0E075E003253D +:1008200006F58275E0003507F583E0F508E508C0B8 +:10083000E075E0082506F50675E0003507F507E5E3 +:1008400002F582E503F583E504F500E505F50122EF +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-array-lval-5.s.expected b/tests/GCCTestSuite/c99-array-lval-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-array-lval-6.c b/tests/GCCTestSuite/c99-array-lval-6.c new file mode 100644 index 0000000..426b3c7 --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-6.c @@ -0,0 +1,15 @@ +/* PR c/12446 */ +/* Origin: Keith Thompson */ + +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + + +struct s { char c[1]; }; + +extern struct s foo(void); + +void bar(void) +{ + char *ptr = foo().c; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" } */ +} diff --git a/tests/GCCTestSuite/c99-array-lval-6.c.expected b/tests/GCCTestSuite/c99-array-lval-6.c.expected new file mode 100644 index 0000000..426b3c7 --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-6.c.expected @@ -0,0 +1,15 @@ +/* PR c/12446 */ +/* Origin: Keith Thompson */ + +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + + +struct s { char c[1]; }; + +extern struct s foo(void); + +void bar(void) +{ + char *ptr = foo().c; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" } */ +} diff --git a/tests/GCCTestSuite/c99-array-lval-6.hex.expected b/tests/GCCTestSuite/c99-array-lval-6.hex.expected new file mode 100644 index 0000000..91c9bfd --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-6.hex.expected @@ -0,0 +1,14 @@ +:100000000000E506758203C39582F506E507758352 +:10001000009583F507D0E0F50875E0022506F58226 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000012506F58275E0003507F583E508F0E552 +:1000400006F509E507F50A750100C3750000E5012D +:10005000F5F0E50935F0F501E500F5F0E50A35F0D4 +:10006000F500E501F51FE500F51EC3C3C3C3750028 +:1000700000E500F502E500F503E500F504E500F50F +:100080000575E0012506F58275E0003507F583E08A +:10009000F508E508C0E075E0022506F58275E00088 +:1000A0003507F583E0F508E508C0E075E0032506AF +:1000B000F50675E0003507F507E502F582E503F57D +:1000C00083E504F500E505F50122000000000000CD +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-array-lval-6.s.expected b/tests/GCCTestSuite/c99-array-lval-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-array-lval-7.c b/tests/GCCTestSuite/c99-array-lval-7.c new file mode 100644 index 0000000..3d70ed0 --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-7.c @@ -0,0 +1,21 @@ +/* Test for non-lvalue arrays: test that C90 does not allow them in + conditional expressions, while in C99 they decay and are + allowed. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +struct s { char c[1]; }; +struct s a, b, c; +int d; +int e; + +void +bar (void) +{ + /* In C90, the non-lvalue arrays do not decay to pointers, and + 6.3.15 does not permit conditional expressions between arrays. + In C99, they decay to pointers. */ + (e ? (d ? b : c).c : (e ? b : c).c); +} diff --git a/tests/GCCTestSuite/c99-array-lval-7.c.expected b/tests/GCCTestSuite/c99-array-lval-7.c.expected new file mode 100644 index 0000000..3d70ed0 --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-7.c.expected @@ -0,0 +1,21 @@ +/* Test for non-lvalue arrays: test that C90 does not allow them in + conditional expressions, while in C99 they decay and are + allowed. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +struct s { char c[1]; }; +struct s a, b, c; +int d; +int e; + +void +bar (void) +{ + /* In C90, the non-lvalue arrays do not decay to pointers, and + 6.3.15 does not permit conditional expressions between arrays. + In C99, they decay to pointers. */ + (e ? (d ? b : c).c : (e ? b : c).c); +} diff --git a/tests/GCCTestSuite/c99-array-lval-7.hex.expected b/tests/GCCTestSuite/c99-array-lval-7.hex.expected new file mode 100644 index 0000000..0a5eadc --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-7.hex.expected @@ -0,0 +1,21 @@ +:1000000000D0E0F518D0E0F519E511F50EE510F592 +:100010000F900007E582F509900007E583F50A7562 +:100020000100C3750000E501F5F0E50935F0F501C3 +:10003000E500F5F0E50A35F0F500E500F502E5012B +:10004000F582E502F583E0F50B750101C37500004B +:10005000E501F5F0E50935F0F501E500F5F0E50A13 +:1000600035F0F500E500F502E501F582E502F583DE +:10007000E0F50C750102C3750000E501F5F0E50936 +:1000800035F0F501E500F5F0E50A35F0F500E5009D +:10009000F502E501F582E502F583E0F50D75010352 +:1000A000C3750000E501F5F0E50935F0F501E5005F +:1000B000F5F0E50A35F0F500E500F502E501F58219 +:1000C000E502F583E0F501750000E50BF5F0E500CC +:1000D00045F0F500E50CF5F0E50045F0F500E50D1F +:1000E000F5F0E50045F0F500E501F5F0E50045F037 +:1000F000F500E5007002800302013000750000E5A4 +:1001000000F502E500F503E500F504E500F505E579 +:100110000EF511E50FF510E519C0E0E518C0E0E5B2 +:1001200002F582E503F583E504F500E505F5012216 +:10013000000200FC000000000000000000000000C1 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-array-lval-7.s.expected b/tests/GCCTestSuite/c99-array-lval-7.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-array-lval-7.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-array-nonobj-1.c b/tests/GCCTestSuite/c99-array-nonobj-1.c new file mode 100644 index 0000000..45fc74c --- /dev/null +++ b/tests/GCCTestSuite/c99-array-nonobj-1.c @@ -0,0 +1,27 @@ +/* Test for arrays of incomplete and function types: a constraint violation + in C99 only, though undefined (DR#047) before. +*/ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +typedef void func (void); +struct s; + +extern int a[][]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "\[\]\[\] var" { target *-*-* } 11 } */ + +void f (int [][]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "\[\]\[\] arg" { target *-*-* } 14 } */ + +extern struct s b[]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "struct \[\] var" { target *-*-* } 17 } */ + +void g (struct s []); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "struct \[\] arg" { target *-*-* } 20 } */ + +extern func c[]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "func \[\] var" { target *-*-* } 23 } */ + +void h (func []); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "func \[\] arg" { target *-*-* } 26 } */ diff --git a/tests/GCCTestSuite/c99-array-nonobj-1.c.expected b/tests/GCCTestSuite/c99-array-nonobj-1.c.expected new file mode 100644 index 0000000..45fc74c --- /dev/null +++ b/tests/GCCTestSuite/c99-array-nonobj-1.c.expected @@ -0,0 +1,27 @@ +/* Test for arrays of incomplete and function types: a constraint violation + in C99 only, though undefined (DR#047) before. +*/ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +typedef void func (void); +struct s; + +extern int a[][]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "\[\]\[\] var" { target *-*-* } 11 } */ + +void f (int [][]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "\[\]\[\] arg" { target *-*-* } 14 } */ + +extern struct s b[]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "struct \[\] var" { target *-*-* } 17 } */ + +void g (struct s []); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "struct \[\] arg" { target *-*-* } 20 } */ + +extern func c[]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "func \[\] var" { target *-*-* } 23 } */ + +void h (func []); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "array" "func \[\] arg" { target *-*-* } 26 } */ diff --git a/tests/GCCTestSuite/c99-array-nonobj-1.hex.expected b/tests/GCCTestSuite/c99-array-nonobj-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c99-array-nonobj-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-array-nonobj-1.s.expected b/tests/GCCTestSuite/c99-array-nonobj-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-array-nonobj-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-const-expr-1.c b/tests/GCCTestSuite/c99-const-expr-1.c new file mode 100644 index 0000000..c3082ee --- /dev/null +++ b/tests/GCCTestSuite/c99-const-expr-1.c @@ -0,0 +1,16 @@ +/* Test for constraints on constant expressions. In C90 it is clear that + certain constructs are not permitted in unevaluated parts of an + expression (except in sizeof); in C99 it might fall within implementation + latitude; and if the operands are suitable, diagnostics should not be + issued. +*/ +/* Origin: Joseph Myers ; inspired by + http://deja.com/getdoc.xp?AN=524271595&fmt=text by Peter Seebach. +*/ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +/* The comma operator is in a subexpression that is not evaluated, so OK + by C99. In C90 a diagnostic is required since it is not in a sizeof. +*/ +int i = (1 ? 0 : (2, 3)); diff --git a/tests/GCCTestSuite/c99-const-expr-1.c.expected b/tests/GCCTestSuite/c99-const-expr-1.c.expected new file mode 100644 index 0000000..c3082ee --- /dev/null +++ b/tests/GCCTestSuite/c99-const-expr-1.c.expected @@ -0,0 +1,16 @@ +/* Test for constraints on constant expressions. In C90 it is clear that + certain constructs are not permitted in unevaluated parts of an + expression (except in sizeof); in C99 it might fall within implementation + latitude; and if the operands are suitable, diagnostics should not be + issued. +*/ +/* Origin: Joseph Myers ; inspired by + http://deja.com/getdoc.xp?AN=524271595&fmt=text by Peter Seebach. +*/ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +/* The comma operator is in a subexpression that is not evaluated, so OK + by C99. In C90 a diagnostic is required since it is not in a sizeof. +*/ +int i = (1 ? 0 : (2, 3)); diff --git a/tests/GCCTestSuite/c99-const-expr-1.hex.expected b/tests/GCCTestSuite/c99-const-expr-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c99-const-expr-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-const-expr-1.s.expected b/tests/GCCTestSuite/c99-const-expr-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-const-expr-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-dupqual-1.c b/tests/GCCTestSuite/c99-dupqual-1.c new file mode 100644 index 0000000..2e6d7e1 --- /dev/null +++ b/tests/GCCTestSuite/c99-dupqual-1.c @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +typedef const int CI; +const const int c1; /* { dg-bogus "duplicate" } */ +const CI c2; /* { dg-bogus "duplicate" } */ +const CI *c3; /* { dg-bogus "duplicate" } */ + +typedef volatile int VI; +volatile volatile int v1; /* { dg-bogus "duplicate" } */ +volatile VI v2; /* { dg-bogus "duplicate" } */ +volatile VI *v3; /* { dg-bogus "duplicate" } */ diff --git a/tests/GCCTestSuite/c99-dupqual-1.c.expected b/tests/GCCTestSuite/c99-dupqual-1.c.expected new file mode 100644 index 0000000..2e6d7e1 --- /dev/null +++ b/tests/GCCTestSuite/c99-dupqual-1.c.expected @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +typedef const int CI; +const const int c1; /* { dg-bogus "duplicate" } */ +const CI c2; /* { dg-bogus "duplicate" } */ +const CI *c3; /* { dg-bogus "duplicate" } */ + +typedef volatile int VI; +volatile volatile int v1; /* { dg-bogus "duplicate" } */ +volatile VI v2; /* { dg-bogus "duplicate" } */ +volatile VI *v3; /* { dg-bogus "duplicate" } */ diff --git a/tests/GCCTestSuite/c99-dupqual-1.hex.expected b/tests/GCCTestSuite/c99-dupqual-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c99-dupqual-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-dupqual-1.s.expected b/tests/GCCTestSuite/c99-dupqual-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-dupqual-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-enum-comma-1.c b/tests/GCCTestSuite/c99-enum-comma-1.c new file mode 100644 index 0000000..1b676a2 --- /dev/null +++ b/tests/GCCTestSuite/c99-enum-comma-1.c @@ -0,0 +1,6 @@ +/* Test for commas at end of enums: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +enum foo { bar, }; diff --git a/tests/GCCTestSuite/c99-enum-comma-1.c.expected b/tests/GCCTestSuite/c99-enum-comma-1.c.expected new file mode 100644 index 0000000..1b676a2 --- /dev/null +++ b/tests/GCCTestSuite/c99-enum-comma-1.c.expected @@ -0,0 +1,6 @@ +/* Test for commas at end of enums: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +enum foo { bar, }; diff --git a/tests/GCCTestSuite/c99-enum-comma-1.hex.expected b/tests/GCCTestSuite/c99-enum-comma-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c99-enum-comma-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-enum-comma-1.s.expected b/tests/GCCTestSuite/c99-enum-comma-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-enum-comma-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-flex-array-3.c b/tests/GCCTestSuite/c99-flex-array-3.c new file mode 100644 index 0000000..e8647f6 --- /dev/null +++ b/tests/GCCTestSuite/c99-flex-array-3.c @@ -0,0 +1,47 @@ +/* Test for flexible array members. Test for where structures with + such members may not occur. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +struct flex { int a; int b[]; }; +union rf1 { struct flex a; int b; }; +union rf2 { int a; struct flex b; }; +union rf3 { int a; union rf1 b; }; +union rf4 { union rf2 a; int b; }; + +/* The above structure and unions may not be members of structures or + elements of arrays (6.7.2.1#2). */ + +struct t0 { struct flex a; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "struct in struct" { target *-*-* } 16 } */ +struct t1 { union rf1 a; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in struct" { target *-*-* } 18 } */ +struct t2 { union rf2 a; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in struct" { target *-*-* } 20 } */ +struct t3 { union rf3 a; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in struct" { target *-*-* } 22 } */ +struct t4 { union rf4 a; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in struct" { target *-*-* } 24 } */ + +void f0 (struct flex[]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "struct in array" { target *-*-* } 27 } */ +void f1 (union rf1[]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in array" { target *-*-* } 29 } */ +void f2 (union rf2[]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in array" { target *-*-* } 31 } */ +void f3 (union rf3[]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in array" { target *-*-* } 33 } */ +void f4 (union rf4[]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in array" { target *-*-* } 35 } */ + +struct flex a0[1]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "struct in array" { target *-*-* } 38 } */ +union rf1 a1[1]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in array" { target *-*-* } 40 } */ +union rf2 a2[1]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in array" { target *-*-* } 42 } */ +union rf3 a3[1]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in array" { target *-*-* } 44 } */ +union rf4 a4[1]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in array" { target *-*-* } 46 } */ diff --git a/tests/GCCTestSuite/c99-flex-array-3.c.expected b/tests/GCCTestSuite/c99-flex-array-3.c.expected new file mode 100644 index 0000000..e8647f6 --- /dev/null +++ b/tests/GCCTestSuite/c99-flex-array-3.c.expected @@ -0,0 +1,47 @@ +/* Test for flexible array members. Test for where structures with + such members may not occur. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +struct flex { int a; int b[]; }; +union rf1 { struct flex a; int b; }; +union rf2 { int a; struct flex b; }; +union rf3 { int a; union rf1 b; }; +union rf4 { union rf2 a; int b; }; + +/* The above structure and unions may not be members of structures or + elements of arrays (6.7.2.1#2). */ + +struct t0 { struct flex a; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "struct in struct" { target *-*-* } 16 } */ +struct t1 { union rf1 a; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in struct" { target *-*-* } 18 } */ +struct t2 { union rf2 a; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in struct" { target *-*-* } 20 } */ +struct t3 { union rf3 a; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in struct" { target *-*-* } 22 } */ +struct t4 { union rf4 a; }; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in struct" { target *-*-* } 24 } */ + +void f0 (struct flex[]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "struct in array" { target *-*-* } 27 } */ +void f1 (union rf1[]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in array" { target *-*-* } 29 } */ +void f2 (union rf2[]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in array" { target *-*-* } 31 } */ +void f3 (union rf3[]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in array" { target *-*-* } 33 } */ +void f4 (union rf4[]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in array" { target *-*-* } 35 } */ + +struct flex a0[1]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "struct in array" { target *-*-* } 38 } */ +union rf1 a1[1]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in array" { target *-*-* } 40 } */ +union rf2 a2[1]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "union in array" { target *-*-* } 42 } */ +union rf3 a3[1]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in array" { target *-*-* } 44 } */ +union rf4 a4[1]; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "invalid use of structure" "recursive union in array" { target *-*-* } 46 } */ diff --git a/tests/GCCTestSuite/c99-flex-array-3.hex.expected b/tests/GCCTestSuite/c99-flex-array-3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c99-flex-array-3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-flex-array-3.s.expected b/tests/GCCTestSuite/c99-flex-array-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-flex-array-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-func-2.c b/tests/GCCTestSuite/c99-func-2.c new file mode 100644 index 0000000..f3eaaa1 --- /dev/null +++ b/tests/GCCTestSuite/c99-func-2.c @@ -0,0 +1,10 @@ +/* Test for C99 __func__: not a string constant. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +void +foo (void) +{ + __func__ "foo"; /* { dg-error "parse error|syntax error|expected" "before string constant" } */ +} diff --git a/tests/GCCTestSuite/c99-func-2.c.expected b/tests/GCCTestSuite/c99-func-2.c.expected new file mode 100644 index 0000000..f3eaaa1 --- /dev/null +++ b/tests/GCCTestSuite/c99-func-2.c.expected @@ -0,0 +1,10 @@ +/* Test for C99 __func__: not a string constant. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +void +foo (void) +{ + __func__ "foo"; /* { dg-error "parse error|syntax error|expected" "before string constant" } */ +} diff --git a/tests/GCCTestSuite/c99-func-2.hex.expected b/tests/GCCTestSuite/c99-func-2.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/c99-func-2.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-func-2.s.expected b/tests/GCCTestSuite/c99-func-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-func-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-idem-qual-1.c b/tests/GCCTestSuite/c99-idem-qual-1.c new file mode 100644 index 0000000..c541d07 --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-1.c @@ -0,0 +1,7 @@ +/* Test for idempotent type qualifiers: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +typedef const int cint; +const cint foo; /* { dg-bogus "duplicate" "duplicate type qualifier error" } */ diff --git a/tests/GCCTestSuite/c99-idem-qual-1.c.expected b/tests/GCCTestSuite/c99-idem-qual-1.c.expected new file mode 100644 index 0000000..c541d07 --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-1.c.expected @@ -0,0 +1,7 @@ +/* Test for idempotent type qualifiers: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +typedef const int cint; +const cint foo; /* { dg-bogus "duplicate" "duplicate type qualifier error" } */ diff --git a/tests/GCCTestSuite/c99-idem-qual-1.hex.expected b/tests/GCCTestSuite/c99-idem-qual-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-idem-qual-1.s.expected b/tests/GCCTestSuite/c99-idem-qual-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-idem-qual-2.c b/tests/GCCTestSuite/c99-idem-qual-2.c new file mode 100644 index 0000000..dd9f932 --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-2.c @@ -0,0 +1,6 @@ +/* Test for idempotent type qualifiers: in C99 only. Test "const const". */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +const const int foo; /* { dg-bogus "duplicate" "duplicate type qualifier error" } */ diff --git a/tests/GCCTestSuite/c99-idem-qual-2.c.expected b/tests/GCCTestSuite/c99-idem-qual-2.c.expected new file mode 100644 index 0000000..dd9f932 --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-2.c.expected @@ -0,0 +1,6 @@ +/* Test for idempotent type qualifiers: in C99 only. Test "const const". */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +const const int foo; /* { dg-bogus "duplicate" "duplicate type qualifier error" } */ diff --git a/tests/GCCTestSuite/c99-idem-qual-2.hex.expected b/tests/GCCTestSuite/c99-idem-qual-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-idem-qual-2.s.expected b/tests/GCCTestSuite/c99-idem-qual-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-idem-qual-3.c b/tests/GCCTestSuite/c99-idem-qual-3.c new file mode 100644 index 0000000..0f34f83 --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-3.c @@ -0,0 +1,9 @@ +/* Test for idempotent type qualifiers: in C99 only. Test duplicate + type qualifiers with array element types. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +typedef const int cia[2]; +const cia a; /* { dg-bogus "duplicate" "duplicate type qualifier warning" } */ +const cia b[2]; /* { dg-bogus "duplicate" "duplicate type qualifier warning" } */ diff --git a/tests/GCCTestSuite/c99-idem-qual-3.c.expected b/tests/GCCTestSuite/c99-idem-qual-3.c.expected new file mode 100644 index 0000000..0f34f83 --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-3.c.expected @@ -0,0 +1,9 @@ +/* Test for idempotent type qualifiers: in C99 only. Test duplicate + type qualifiers with array element types. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +typedef const int cia[2]; +const cia a; /* { dg-bogus "duplicate" "duplicate type qualifier warning" } */ +const cia b[2]; /* { dg-bogus "duplicate" "duplicate type qualifier warning" } */ diff --git a/tests/GCCTestSuite/c99-idem-qual-3.hex.expected b/tests/GCCTestSuite/c99-idem-qual-3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-idem-qual-3.s.expected b/tests/GCCTestSuite/c99-idem-qual-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-idem-qual-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-impl-int-1.c b/tests/GCCTestSuite/c99-impl-int-1.c new file mode 100644 index 0000000..dcc2520 --- /dev/null +++ b/tests/GCCTestSuite/c99-impl-int-1.c @@ -0,0 +1,9 @@ +/* Test for implicit int: in C90 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +extern foo; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "type defaults" "C99 implicit int error" { target *-*-* } 6 } */ +bar (void) { } /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "return type defaults" "C99 implicit int error" { target *-*-* } 8 } */ diff --git a/tests/GCCTestSuite/c99-impl-int-1.c.expected b/tests/GCCTestSuite/c99-impl-int-1.c.expected new file mode 100644 index 0000000..dcc2520 --- /dev/null +++ b/tests/GCCTestSuite/c99-impl-int-1.c.expected @@ -0,0 +1,9 @@ +/* Test for implicit int: in C90 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +extern foo; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "type defaults" "C99 implicit int error" { target *-*-* } 6 } */ +bar (void) { } /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "return type defaults" "C99 implicit int error" { target *-*-* } 8 } */ diff --git a/tests/GCCTestSuite/c99-impl-int-1.hex.expected b/tests/GCCTestSuite/c99-impl-int-1.hex.expected new file mode 100644 index 0000000..16a396e --- /dev/null +++ b/tests/GCCTestSuite/c99-impl-int-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501E509F502E509F5DD +:1000100003E509F504E509F505E501C0E0E500C0E3 +:10002000E0E502F582E503F583E504F500E505F575 +:10003000012200000000000000000000000000009D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-impl-int-1.s.expected b/tests/GCCTestSuite/c99-impl-int-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-impl-int-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-impl-int-2.c b/tests/GCCTestSuite/c99-impl-int-2.c new file mode 100644 index 0000000..e9e9747 --- /dev/null +++ b/tests/GCCTestSuite/c99-impl-int-2.c @@ -0,0 +1,9 @@ +/* Test for implicit int: in C90 only. Function parameters in old-style + function definition. +*/ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +void foo (a) { } /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "defaults" "C99 implicit int parameter error" { target *-*-* } 8 } */ diff --git a/tests/GCCTestSuite/c99-impl-int-2.c.expected b/tests/GCCTestSuite/c99-impl-int-2.c.expected new file mode 100644 index 0000000..e9e9747 --- /dev/null +++ b/tests/GCCTestSuite/c99-impl-int-2.c.expected @@ -0,0 +1,9 @@ +/* Test for implicit int: in C90 only. Function parameters in old-style + function definition. +*/ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +void foo (a) { } /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "defaults" "C99 implicit int parameter error" { target *-*-* } 8 } */ diff --git a/tests/GCCTestSuite/c99-impl-int-2.hex.expected b/tests/GCCTestSuite/c99-impl-int-2.hex.expected new file mode 100644 index 0000000..7af2347 --- /dev/null +++ b/tests/GCCTestSuite/c99-impl-int-2.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F501750900E51E +:1000200009F502E509F503E509F504E509F505E536 +:1000300001C0E0E500C0E075E0042506F50675E0C6 +:10004000003507F507E502F582E503F583E504F5DC +:1000500000E505F50122000000000000000000009E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-impl-int-2.s.expected b/tests/GCCTestSuite/c99-impl-int-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-impl-int-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-longlong-1.c b/tests/GCCTestSuite/c99-longlong-1.c new file mode 100644 index 0000000..92d5e0e --- /dev/null +++ b/tests/GCCTestSuite/c99-longlong-1.c @@ -0,0 +1,6 @@ +/* Test for long long: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +long long foo; /* { dg-bogus "long long" "bogus long long error" } */ diff --git a/tests/GCCTestSuite/c99-longlong-1.c.expected b/tests/GCCTestSuite/c99-longlong-1.c.expected new file mode 100644 index 0000000..92d5e0e --- /dev/null +++ b/tests/GCCTestSuite/c99-longlong-1.c.expected @@ -0,0 +1,6 @@ +/* Test for long long: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +long long foo; /* { dg-bogus "long long" "bogus long long error" } */ diff --git a/tests/GCCTestSuite/c99-longlong-1.hex.expected b/tests/GCCTestSuite/c99-longlong-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c99-longlong-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-longlong-1.s.expected b/tests/GCCTestSuite/c99-longlong-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-longlong-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-main-1.c b/tests/GCCTestSuite/c99-main-1.c new file mode 100644 index 0000000..fdef9fd --- /dev/null +++ b/tests/GCCTestSuite/c99-main-1.c @@ -0,0 +1,9 @@ +/* Test for implicit return 0 from main in C99. */ +/* Origin: Joseph Myers */ +/* { dg-do run } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors -Wreturn-type -O -fhosted" } */ + +int +main (void) +{ +} /* { dg-bogus "control reaches end" "missing implicit return" } */ diff --git a/tests/GCCTestSuite/c99-main-1.c.expected b/tests/GCCTestSuite/c99-main-1.c.expected new file mode 100644 index 0000000..fdef9fd --- /dev/null +++ b/tests/GCCTestSuite/c99-main-1.c.expected @@ -0,0 +1,9 @@ +/* Test for implicit return 0 from main in C99. */ +/* Origin: Joseph Myers */ +/* { dg-do run } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors -Wreturn-type -O -fhosted" } */ + +int +main (void) +{ +} /* { dg-bogus "control reaches end" "missing implicit return" } */ diff --git a/tests/GCCTestSuite/c99-main-1.hex.expected b/tests/GCCTestSuite/c99-main-1.hex.expected new file mode 100644 index 0000000..923c6d3 --- /dev/null +++ b/tests/GCCTestSuite/c99-main-1.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501E509F502E509F503CA +:10002000E509F504E509F505E501C0E0E500C0E0F6 +:10003000E502F582E503F583E504F500E505F50144 +:10004000220000000000000000000000000000008E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-main-1.s.expected b/tests/GCCTestSuite/c99-main-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-main-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-restrict-1.c b/tests/GCCTestSuite/c99-restrict-1.c new file mode 100644 index 0000000..30ddd96 --- /dev/null +++ b/tests/GCCTestSuite/c99-restrict-1.c @@ -0,0 +1,19 @@ +/* Test for restrict: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +char *restrict foo; + +/* The following are constraint violations and should be rejected. */ + +int restrict bar; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "restrict" "restrict constraint violation" { target *-*-* } 10 } */ + +typedef void (*fp) (void); + +fp restrict baz; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "restrict" "restrict constraint violation" { target *-*-* } 15 } */ + +void quux (int restrict a[3]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "restrict" "restrict constraint violation" { target *-*-* } 18 } */ diff --git a/tests/GCCTestSuite/c99-restrict-1.c.expected b/tests/GCCTestSuite/c99-restrict-1.c.expected new file mode 100644 index 0000000..30ddd96 --- /dev/null +++ b/tests/GCCTestSuite/c99-restrict-1.c.expected @@ -0,0 +1,19 @@ +/* Test for restrict: in C99 only. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +char *restrict foo; + +/* The following are constraint violations and should be rejected. */ + +int restrict bar; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "restrict" "restrict constraint violation" { target *-*-* } 10 } */ + +typedef void (*fp) (void); + +fp restrict baz; /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "restrict" "restrict constraint violation" { target *-*-* } 15 } */ + +void quux (int restrict a[3]); /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "restrict" "restrict constraint violation" { target *-*-* } 18 } */ diff --git a/tests/GCCTestSuite/c99-restrict-1.hex.expected b/tests/GCCTestSuite/c99-restrict-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c99-restrict-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-restrict-1.s.expected b/tests/GCCTestSuite/c99-restrict-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-restrict-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-restrict-2.c b/tests/GCCTestSuite/c99-restrict-2.c new file mode 100644 index 0000000..2adc5f2 --- /dev/null +++ b/tests/GCCTestSuite/c99-restrict-2.c @@ -0,0 +1,12 @@ +/* Test for restrict: in C99 only. Test handling of arrays of restricted + pointers. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +typedef int *ipa[2]; + +int *restrict x[2]; +restrict ipa y; + +void f(int *restrict a[2], restrict ipa b, int *restrict c[restrict]); diff --git a/tests/GCCTestSuite/c99-restrict-2.c.expected b/tests/GCCTestSuite/c99-restrict-2.c.expected new file mode 100644 index 0000000..2adc5f2 --- /dev/null +++ b/tests/GCCTestSuite/c99-restrict-2.c.expected @@ -0,0 +1,12 @@ +/* Test for restrict: in C99 only. Test handling of arrays of restricted + pointers. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +typedef int *ipa[2]; + +int *restrict x[2]; +restrict ipa y; + +void f(int *restrict a[2], restrict ipa b, int *restrict c[restrict]); diff --git a/tests/GCCTestSuite/c99-restrict-2.hex.expected b/tests/GCCTestSuite/c99-restrict-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/c99-restrict-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-restrict-2.s.expected b/tests/GCCTestSuite/c99-restrict-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-restrict-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-tag-2.c b/tests/GCCTestSuite/c99-tag-2.c new file mode 100644 index 0000000..22cf90e --- /dev/null +++ b/tests/GCCTestSuite/c99-tag-2.c @@ -0,0 +1,16 @@ +/* Test for handling of tags. A struct defined in an inner scope does + not match one declared in an outer scope. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +struct s; +struct t { struct s *p; } x; + +void +f (void) +{ + /* This is a different struct s from the outer one. */ + struct s { int a; } y; + x.p = &y; /* { dg-error "incompatible" } */ +} diff --git a/tests/GCCTestSuite/c99-tag-2.c.expected b/tests/GCCTestSuite/c99-tag-2.c.expected new file mode 100644 index 0000000..22cf90e --- /dev/null +++ b/tests/GCCTestSuite/c99-tag-2.c.expected @@ -0,0 +1,16 @@ +/* Test for handling of tags. A struct defined in an inner scope does + not match one declared in an outer scope. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */ + +struct s; +struct t { struct s *p; } x; + +void +f (void) +{ + /* This is a different struct s from the outer one. */ + struct s { int a; } y; + x.p = &y; /* { dg-error "incompatible" } */ +} diff --git a/tests/GCCTestSuite/c99-tag-2.hex.expected b/tests/GCCTestSuite/c99-tag-2.hex.expected new file mode 100644 index 0000000..54eff5b --- /dev/null +++ b/tests/GCCTestSuite/c99-tag-2.hex.expected @@ -0,0 +1,18 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F50ED0E0F50FE510F50D6E +:10002000900000E582F50A900000E583F50175096E +:1000300000C3750000E509F5F0E50A35F0F50BE5BC +:1000400000F5F0E50135F0F50CE506F50AE507F5F4 +:1000500001750900C3750000E509F5F0E50A35F002 +:10006000F509E500F5F0E50135F0F50A750100C385 +:10007000750000E501F5F0E50B35F0F501E500F55B +:10008000F0E50C35F0F500E509F503E500F502E5CE +:1000900001F582E502F583E503F0750101C3750002 +:1000A00000E501F5F0E50B35F0F501E500F5F0E5CB +:1000B0000C35F0F500E50AF503E500F502E501F57C +:1000C00082E502F583E503F0750000E500F502E541 +:1000D00000F503E500F504E500F505E50DF510E58F +:1000E0000FC0E0E50EC0E075E0042506F50675E0FA +:1000F000003507F507E502F582E503F583E504F52C +:1001000000E505F5012200000000000000000000ED +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/c99-tag-2.s.expected b/tests/GCCTestSuite/c99-tag-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/c99-tag-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/cast-qual-1.c b/tests/GCCTestSuite/cast-qual-1.c new file mode 100644 index 0000000..407d138 --- /dev/null +++ b/tests/GCCTestSuite/cast-qual-1.c @@ -0,0 +1,30 @@ +/* Incorrect `cast discards `const'' warnings. There should be warnings + in bad_cast and bad_assign; bad_assign gets the correct warning, but + good_cast may get the warning instead of bad_cast. + gcc 2.7.2.3 passes, egcs-1.1.2 and egcs-ss-19990428 fail. + http://gcc.gnu.org/ml/gcc-bugs/1998-08/msg00645.html */ +/* { dg-do compile } */ +/* { dg-options "-Wcast-qual" } */ +void +good_cast(const void *bar) +{ + (char *const *)bar; /* { dg-bogus "cast discards" "discarding `const' warning" } */ +} + +void +bad_cast(const void *bar) +{ + (const char **)bar; /* { dg-warning "cast discards" "discarding `const' warning" } */ +} + +void +good_assign(const void *bar) +{ + char *const *foo = bar; /* { dg-bogus "initialization discards" "discarding `const' warning" } */ +} + +void +bad_assign(const void *bar) +{ + const char **foo = bar; /* { dg-warning "initialization discards" "discarding `const' warning" } */ +} diff --git a/tests/GCCTestSuite/cast-qual-1.c.expected b/tests/GCCTestSuite/cast-qual-1.c.expected new file mode 100644 index 0000000..407d138 --- /dev/null +++ b/tests/GCCTestSuite/cast-qual-1.c.expected @@ -0,0 +1,30 @@ +/* Incorrect `cast discards `const'' warnings. There should be warnings + in bad_cast and bad_assign; bad_assign gets the correct warning, but + good_cast may get the warning instead of bad_cast. + gcc 2.7.2.3 passes, egcs-1.1.2 and egcs-ss-19990428 fail. + http://gcc.gnu.org/ml/gcc-bugs/1998-08/msg00645.html */ +/* { dg-do compile } */ +/* { dg-options "-Wcast-qual" } */ +void +good_cast(const void *bar) +{ + (char *const *)bar; /* { dg-bogus "cast discards" "discarding `const' warning" } */ +} + +void +bad_cast(const void *bar) +{ + (const char **)bar; /* { dg-warning "cast discards" "discarding `const' warning" } */ +} + +void +good_assign(const void *bar) +{ + char *const *foo = bar; /* { dg-bogus "initialization discards" "discarding `const' warning" } */ +} + +void +bad_assign(const void *bar) +{ + const char **foo = bar; /* { dg-warning "initialization discards" "discarding `const' warning" } */ +} diff --git a/tests/GCCTestSuite/cast-qual-1.hex.expected b/tests/GCCTestSuite/cast-qual-1.hex.expected new file mode 100644 index 0000000..b28b7f6 --- /dev/null +++ b/tests/GCCTestSuite/cast-qual-1.hex.expected @@ -0,0 +1,23 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F500D0E0F501750900E51E +:1000200009F502E509F503E509F504E509F505E536 +:1000300001C0E0E500C0E075E0022506F50675E0C8 +:10004000003507F507E502F582E503F583E504F5DC +:1000500000E505F5012200E506758202C39582F5EB +:1000600006E5077583009583F507D0E0F500D0E03D +:10007000F501750900E509F502E509F503E509F55E +:1000800004E509F505E501C0E0E500C0E075E00222 +:100090002506F50675E0003507F507E502F582E56A +:1000A00003F583E504F500E505F5012200E5067595 +:1000B0008202C39582F506E5077583009583F507EF +:1000C000D0E0F500D0E0F501750900E509F502E59D +:1000D00009F503E509F504E509F505E501C0E0E5E5 +:1000E00000C0E075E0022506F50675E0003507F56D +:1000F00007E502F582E503F583E504F500E505F57E +:10010000012200E506758202C39582F506E50775B2 +:1001100083009583F507D0E0F500D0E0F50175097F +:1001200000E509F502E509F503E509F504E509F53A +:1001300005E501C0E0E500C0E075E0022506F50632 +:1001400075E0003507F507E502F582E503F583E57F +:1001500004F500E505F501220000000000000000A4 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/cast-qual-1.s.expected b/tests/GCCTestSuite/cast-qual-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/cast-qual-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/cleanup-3.c b/tests/GCCTestSuite/cleanup-3.c new file mode 100644 index 0000000..b5b01fd --- /dev/null +++ b/tests/GCCTestSuite/cleanup-3.c @@ -0,0 +1,45 @@ +/* { dg-do run } */ +/* { dg-options "" } */ +/* Verify that the cleanup handler receives the proper contents + of the variable. */ + +extern void exit(int); +extern void abort(void); + +static int expected; + +static void +handler(int *p) +{ + if (*p != expected) + abort (); +} + +static void __attribute__((noinline)) +bar(void) +{ +} + +static void doit(int x, int y) +{ + int r __attribute__((cleanup (handler))); + if (x < y) + { + r = 0; + return; + } + + bar(); + r = x + y; +} + +int main() +{ + expected = 0; + doit (1, 2); + + expected = 3; + doit (2, 1); + + return 0; +} diff --git a/tests/GCCTestSuite/cleanup-3.c.expected b/tests/GCCTestSuite/cleanup-3.c.expected new file mode 100644 index 0000000..b5b01fd --- /dev/null +++ b/tests/GCCTestSuite/cleanup-3.c.expected @@ -0,0 +1,45 @@ +/* { dg-do run } */ +/* { dg-options "" } */ +/* Verify that the cleanup handler receives the proper contents + of the variable. */ + +extern void exit(int); +extern void abort(void); + +static int expected; + +static void +handler(int *p) +{ + if (*p != expected) + abort (); +} + +static void __attribute__((noinline)) +bar(void) +{ +} + +static void doit(int x, int y) +{ + int r __attribute__((cleanup (handler))); + if (x < y) + { + r = 0; + return; + } + + bar(); + r = x + y; +} + +int main() +{ + expected = 0; + doit (1, 2); + + expected = 3; + doit (2, 1); + + return 0; +} diff --git a/tests/GCCTestSuite/cleanup-3.hex.expected b/tests/GCCTestSuite/cleanup-3.hex.expected new file mode 100644 index 0000000..ac87521 --- /dev/null +++ b/tests/GCCTestSuite/cleanup-3.hex.expected @@ -0,0 +1,120 @@ +:1000000075812F7506FF7507FF1204E602000C00CC +:10001000D0E0F500D0E0F501750900E509F502E54D +:1000200009F503E509F504E509F505E501C0E0E595 +:1000300000C0E0E502F582E503F583E504F500E59F +:1000400005F5012200E506758212C39582F506E5E5 +:10005000077583009583F507D0E0F50875E0012565 +:1000600006F58275E0003507F583E508F0D0E0F588 +:100070000875E0002506F58275E0003507F583E593 +:1000800008F075E0092506F58275E0003507F5836F +:10009000E517F075E0082506F58275E0003507F5EF +:1000A00083E516F075E0072506F58275E000350753 +:1000B000F583E515F075E0062506F58275E0003557 +:1000C00007F583E514F075E0052506F58275E00077 +:1000D0003507F583E513F075E0042506F58275E034 +:1000E000003507F583E512F075E0032506F5827506 +:1000F000E0003507F583E511F075E0022506F5828D +:1001000075E0003507F583E510F0E51DF50BE51CFE +:10011000F50CE51BF500E51AF501E519F509E518FB +:10012000F50AE51FF517E51EF515E50BF512E50CCB +:10013000F513E500F516E501F514E509F510E50AF6 +:10014000F511750080E500F5F0E51325F0F513E5F0 +:1001500000F5F0E51125F0F511750C00750D007531 +:100160000E00750F00750B00750A01750001C3E5DF +:1001700011F5F0E51395F0F509E50BF5F0E50B3514 +:10018000F0F509E509F5F0E50055F0F500E500F5B5 +:10019000F0E50C45F0F50C750001C3E511F5F0E54F +:1001A0001395F0F509E50BF5F0E50B35F0F509E5EC +:1001B00013F5F0E51195F0F501E50BF5F0E50B35DC +:1001C000F0F501E501F5F0E50945F0F509E50AF579 +:1001D000F0E50965F0F509E509F5F0E50055F0F5FC +:1001E00000C3E510F5F0E51295F0F509E50BF5F023 +:1001F000E50B35F0F509E509F5F0E50055F0F500FA +:10020000E500F5F0E50C45F0F50C750001C3E511CE +:10021000F5F0E51395F0F509E50BF5F0E50B35F094 +:10022000F509E513F5F0E51195F0F501E50BF5F0AD +:10023000E50B35F0F501E501F5F0E50945F0F509C7 +:10024000E50AF5F0E50965F0F509E509F5F0E500E1 +:1002500055F0F500C3E510F5F0E51295F0F509E568 +:100260000BF5F0E50B35F0F509E512F5F0E5109525 +:10027000F0F501E50BF5F0E50B35F0F501E501F5DD +:10028000F0E50945F0F509E50AF5F0E50965F0F551 +:1002900009E509F5F0E50055F0F500C3E514F5F0C2 +:1002A000E51595F0F509E50BF5F0E50B35F0F509E9 +:1002B000E509F5F0E50055F0F500E500F5F0E50C91 +:1002C00045F0F50C750001C3E511F5F0E51395F067 +:1002D000F509E50BF5F0E50B35F0F509E513F5F05B +:1002E000E51195F0F501E50BF5F0E50B35F0F501BD +:1002F000E501F5F0E50945F0F509E50AF5F0E50950 +:1003000065F0F509E509F5F0E50055F0F500C3E500 +:1003100010F5F0E51295F0F509E50BF5F0E50B3574 +:10032000F0F509E512F5F0E51095F0F501E50BF5AE +:10033000F0E50B35F0F501E501F5F0E50945F0F5DF +:1003400009E50AF5F0E50965F0F509E509F5F0E5D7 +:100350000055F0F500C3E514F5F0E51595F0F50945 +:10036000E50BF5F0E50B35F0F509E515F5F0E514CD +:1003700095F0F501E50BF5F0E50B35F0F501E5013C +:10038000F5F0E50945F0F509E50AF5F0E50965F050 +:10039000F509E509F5F0E50055F0F500C3E516F5BA +:1003A000F0E51795F0F509E50BF5F0E50B35F0F5FF +:1003B00009E509F5F0E50055F0F500E500F5F0E593 +:1003C0000C45F0F50C750000E50CF5F0E50045F086 +:1003D000F500E50DF5F0E50045F0F500E50EF5F06A +:1003E000E50045F0F500E50FF5F0E50045F0F50016 +:1003F000E500700280030204E20012000FC37500E2 +:1004000000E500F502E500F503E500F504E500F57B +:100410000575E0092506F58275E0003507F583E0EE +:10042000F51775E0082506F58275E0003507F583B8 +:10043000E0F51675E0072506F58275E0003507F54D +:1004400083E0F51575E0062506F58275E0003507B1 +:10045000F583E0F51475E0052506F58275E00035B5 +:1004600007F583E0F51375E0042506F58275E000D5 +:100470003507F583E0F51275E0032506F58275E092 +:10048000003507F583E0F51175E0022506F5827564 +:10049000E0003507F583E0F51075E0002506F582EC +:1004A00075E0003507F583E0F508E508C0E075E084 +:1004B000012506F58275E0003507F583E0F508E5CE +:1004C00008C0E075E0122506F50675E0003507F571 +:1004D00007E502F582E503F583E504F500E505F59A +:1004E0000122000203FE00E506758202C39582F533 +:1004F00006E5077583009583F507D0E0F50875E0FC +:10050000012506F58275E0003507F583E508F0D092 +:10051000E0F50875E0002506F58275E0003507F581 +:1005200083E508F0900000E582F50D900000E5837A +:10053000F50E750900750A00750B00750C00750144 +:1005400000C3750000E501F5F0E50D35F0F501E5B6 +:1005500000F5F0E50E35F0F500E509F503E500F5E9 +:1005600002E501F582E502F583E503F0750101C3BB +:10057000750000E501F5F0E50D35F0F501E500F554 +:10058000F0E50E35F0F500E50AF503E500F502E5C6 +:1005900001F582E502F583E503F0750102C37500FC +:1005A00000E501F5F0E50D35F0F501E500F5F0E5C4 +:1005B0000E35F0F500E50BF503E500F502E501F574 +:1005C00082E502F583E503F0750103C3750000E5DC +:1005D00001F5F0E50D35F0F501E500F5F0E50E3536 +:1005E000F0F500E50CF503E500F502E501F582E51F +:1005F00002F583E503F0751F01751E00751D00757A +:100600001C00751B02751A00751900751800120080 +:1006100044900000E582F50D900000E583F50E752D +:100620000903750A00750B00750C00750100C37590 +:100630000000E501F5F0E50D35F0F501E500F5F018 +:10064000E50E35F0F500E509F503E500F502E501F5 +:10065000F582E502F583E503F0750101C37500003D +:10066000E501F5F0E50D35F0F501E500F5F0E50EF5 +:1006700035F0F500E50AF503E500F502E501F58240 +:10068000E502F583E503F0750102C3750000E5019D +:10069000F5F0E50D35F0F501E500F5F0E50E35F086 +:1006A000F500E50BF503E500F502E501F582E5024D +:1006B000F583E503F0750103C3750000E501F5F06E +:1006C000E50D35F0F501E500F5F0E50E35F0F50046 +:1006D000E50CF503E500F502E501F582E502F58399 +:1006E000E503F0751F02751E00751D00751C007571 +:1006F0001B01751A00751900751800120044750069 +:1007000000750100750900750A00E500F502E501B4 +:10071000F503E509F504E50AF50575E0002506F59C +:100720008275E0003507F583E0F508E508C0E0755F +:10073000E0012506F58275E0003507F583E0F50850 +:10074000E508C0E075E0022506F50675E00035070E +:10075000F507E502F582E503F583E504F500E50517 +:10076000F501220000000000000000000000000071 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/cleanup-3.s.expected b/tests/GCCTestSuite/cleanup-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/cleanup-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/cleanup-6.c b/tests/GCCTestSuite/cleanup-6.c new file mode 100644 index 0000000..4e3d538 --- /dev/null +++ b/tests/GCCTestSuite/cleanup-6.c @@ -0,0 +1,14 @@ +/* { dg-do compile } */ +/* { dg-options "-O" } */ +/* Verify that a cleanup marked "inline" gets inlined. */ + +static inline void xyzzy(void *p __attribute__((unused))) +{ +} + +void doit(void) +{ + int x __attribute__((cleanup (xyzzy))); +} + +/* { dg-final { scan-assembler-not "xyzzy" } } */ diff --git a/tests/GCCTestSuite/cleanup-6.c.expected b/tests/GCCTestSuite/cleanup-6.c.expected new file mode 100644 index 0000000..4e3d538 --- /dev/null +++ b/tests/GCCTestSuite/cleanup-6.c.expected @@ -0,0 +1,14 @@ +/* { dg-do compile } */ +/* { dg-options "-O" } */ +/* Verify that a cleanup marked "inline" gets inlined. */ + +static inline void xyzzy(void *p __attribute__((unused))) +{ +} + +void doit(void) +{ + int x __attribute__((cleanup (xyzzy))); +} + +/* { dg-final { scan-assembler-not "xyzzy" } } */ diff --git a/tests/GCCTestSuite/cleanup-6.hex.expected b/tests/GCCTestSuite/cleanup-6.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/cleanup-6.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/cleanup-6.s.expected b/tests/GCCTestSuite/cleanup-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/cleanup-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/comp-return-1.c b/tests/GCCTestSuite/comp-return-1.c new file mode 100644 index 0000000..82c3983 --- /dev/null +++ b/tests/GCCTestSuite/comp-return-1.c @@ -0,0 +1,31 @@ +/* When merging a nonprototype definition of a function with a prior + prototype declaration, the composite type of the return types must + be formed rather than just copying the function type. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ + +typedef int a[]; +typedef int a5[5]; +typedef int a10[10]; + +a *f1 (); +a5 *f1 () { return 0; } + +a *f2 (void); +a5 *f2 () { return 0; } + +a *f3 (); +a5 *f3 (void) { return 0; } + +a *f4 (void); +a5 *f4 (void) { return 0; } + +void +g (void) +{ + a10 *x; + x = f1 (); /* { dg-error "incompatible" "f1" } */ + x = f2 (); /* { dg-error "incompatible" "f2" } */ + x = f3 (); /* { dg-error "incompatible" "f3" } */ + x = f4 (); /* { dg-error "incompatible" "f4" } */ +} diff --git a/tests/GCCTestSuite/comp-return-1.c.expected b/tests/GCCTestSuite/comp-return-1.c.expected new file mode 100644 index 0000000..82c3983 --- /dev/null +++ b/tests/GCCTestSuite/comp-return-1.c.expected @@ -0,0 +1,31 @@ +/* When merging a nonprototype definition of a function with a prior + prototype declaration, the composite type of the return types must + be formed rather than just copying the function type. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ + +typedef int a[]; +typedef int a5[5]; +typedef int a10[10]; + +a *f1 (); +a5 *f1 () { return 0; } + +a *f2 (void); +a5 *f2 () { return 0; } + +a *f3 (); +a5 *f3 (void) { return 0; } + +a *f4 (void); +a5 *f4 (void) { return 0; } + +void +g (void) +{ + a10 *x; + x = f1 (); /* { dg-error "incompatible" "f1" } */ + x = f2 (); /* { dg-error "incompatible" "f2" } */ + x = f3 (); /* { dg-error "incompatible" "f3" } */ + x = f4 (); /* { dg-error "incompatible" "f4" } */ +} diff --git a/tests/GCCTestSuite/comp-return-1.hex.expected b/tests/GCCTestSuite/comp-return-1.hex.expected new file mode 100644 index 0000000..0de153d --- /dev/null +++ b/tests/GCCTestSuite/comp-return-1.hex.expected @@ -0,0 +1,27 @@ +:1000000000D0E0F500D0E0F501750900750A007533 +:100010000B00E509F502E50AF503E50BF504E50B30 +:10002000F505E501C0E0E500C0E0E502F582E50385 +:10003000F583E504F500E505F5012200D0E0F500C3 +:10004000D0E0F501750900750A00750B00E509F5AA +:1000500002E50AF503E50BF504E50BF505E501C03E +:10006000E0E500C0E0E502F582E503F583E504F58F +:1000700000E505F5012200D0E0F500D0E0F50175BE +:100080000900750A00750B00E509F502E50AF5039C +:10009000E50BF504E50BF505E501C0E0E500C0E082 +:1000A000E502F582E503F583E504F500E505F501D4 +:1000B0002200D0E0F500D0E0F501750900750A00D6 +:1000C000750B00E509F502E50AF503E50BF504E516 +:1000D0000BF505E501C0E0E500C0E0E502F582E5CD +:1000E00003F583E504F500E505F5012200E5067555 +:1000F0008202C39582F506E5077583009583F507AF +:10010000D0E0F50875E0012506F58275E0003507B9 +:10011000F583E508F0D0E0F50875E0002506F582E6 +:1001200075E0003507F583E508F012000012003B8A +:100130001200761200B1750000E500F502E500F549 +:1001400003E500F504E500F50575E0002506F582F8 +:1001500075E0003507F583E0F508E508C0E075E0D7 +:10016000012506F58275E0003507F583E0F508E521 +:1001700008C0E075E0022506F50675E0003507F5D4 +:1001800007E502F582E503F583E504F500E505F5ED +:10019000012200000000000000000000000000003C +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/comp-return-1.s.expected b/tests/GCCTestSuite/comp-return-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/comp-return-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/compare1.c b/tests/GCCTestSuite/compare1.c new file mode 100644 index 0000000..17ba3ee --- /dev/null +++ b/tests/GCCTestSuite/compare1.c @@ -0,0 +1,41 @@ +/* Test for a bogus warning on comparison between signed and unsigned. + This was inspired by code in gcc. This testcase is identical to + compare9.c except that we use -fno-short-enums here and expect a + warning from case 4. */ + +/* { dg-do compile } */ +/* { dg-options "-fno-short-enums -Wsign-compare" } */ + +int tf = 1; + +/* This enumeration has an explicit negative value and is therefore signed. */ +enum mm1 +{ + VOID, SI, DI, MAX = -1 +}; + +/* This enumeration fits entirely in a signed int, but is unsigned anyway. */ +enum mm2 +{ + VOID2, SI2, DI2, MAX2 +}; + +int f(enum mm1 x) +{ + return x == (tf?DI:SI); /* { dg-bogus "signed and unsigned" "case 1" } */ +} + +int g(enum mm1 x) +{ + return x == (tf?DI:-1); /* { dg-bogus "signed and unsigned" "case 2" } */ +} + +int h(enum mm2 x) +{ + return x == (tf?DI2:SI2); /* { dg-bogus "signed and unsigned" "case 3" } */ +} + +int i(enum mm2 x) +{ + return x == (tf?DI2:-1); /* { dg-warning "signed and unsigned" "case 4" } */ +} diff --git a/tests/GCCTestSuite/compare1.c.expected b/tests/GCCTestSuite/compare1.c.expected new file mode 100644 index 0000000..17ba3ee --- /dev/null +++ b/tests/GCCTestSuite/compare1.c.expected @@ -0,0 +1,41 @@ +/* Test for a bogus warning on comparison between signed and unsigned. + This was inspired by code in gcc. This testcase is identical to + compare9.c except that we use -fno-short-enums here and expect a + warning from case 4. */ + +/* { dg-do compile } */ +/* { dg-options "-fno-short-enums -Wsign-compare" } */ + +int tf = 1; + +/* This enumeration has an explicit negative value and is therefore signed. */ +enum mm1 +{ + VOID, SI, DI, MAX = -1 +}; + +/* This enumeration fits entirely in a signed int, but is unsigned anyway. */ +enum mm2 +{ + VOID2, SI2, DI2, MAX2 +}; + +int f(enum mm1 x) +{ + return x == (tf?DI:SI); /* { dg-bogus "signed and unsigned" "case 1" } */ +} + +int g(enum mm1 x) +{ + return x == (tf?DI:-1); /* { dg-bogus "signed and unsigned" "case 2" } */ +} + +int h(enum mm2 x) +{ + return x == (tf?DI2:SI2); /* { dg-bogus "signed and unsigned" "case 3" } */ +} + +int i(enum mm2 x) +{ + return x == (tf?DI2:-1); /* { dg-warning "signed and unsigned" "case 4" } */ +} diff --git a/tests/GCCTestSuite/compare1.hex.expected b/tests/GCCTestSuite/compare1.hex.expected new file mode 100644 index 0000000..df37c63 --- /dev/null +++ b/tests/GCCTestSuite/compare1.hex.expected @@ -0,0 +1,165 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F518D0E0F519E515F50E54 +:10002000E514F50F900000E582F509900000E583E6 +:10003000F50A750100C3750000E501F5F0E5093525 +:10004000F0F501E500F5F0E50A35F0F500E500F51D +:1000500002E501F582E502F583E0F50B750101C3C8 +:10006000750000E501F5F0E50935F0F501E500F56D +:10007000F0E50A35F0F500E500F502E501F582E569 +:1000800002F583E0F50C750102C3750000E501F58A +:10009000F0E50935F0F501E500F5F0E50A35F0F594 +:1000A00000E500F502E501F582E502F583E0F50DD6 +:1000B000750103C3750000E501F5F0E50935F0F5BC +:1000C00001E500F5F0E50A35F0F500E500F502E59B +:1000D00001F582E502F583E0F501750000E50BF519 +:1000E000F0E50045F0F500E50CF5F0E50045F0F52C +:1000F00000E50DF5F0E50045F0F500E501F5F0E56A +:100100000045F0F500E5007002800302025E007514 +:100110000001750100750900750A00750B00C3E543 +:1001200000F5F0E51F95F0F500E500F5F0E50B456D +:10013000F0F50BC3E501F5F0E51E95F0F500E500DF +:10014000F5F0E50B45F0F50BC3E509F5F0E51D9578 +:10015000F0F500E500F5F0E50B45F0F50BC3E50A19 +:10016000F5F0E51C95F0F500E500F5F0E50B45F040 +:10017000F50B750100750900750A00E50BF50075B2 +:100180000B01C3750C00E500F5F0E50C95F0F50CDE +:10019000750C00E50CF5F0E50C35F0F50CE50CF50B +:1001A000F0E50B65F0F50BC3750C00E501F5F0E526 +:1001B0000C95F0F50C750C00E50CF5F0E50C35F040 +:1001C000F50CE50CF5F0E50B65F0F50BC3750C00CF +:1001D000E509F5F0E50C95F0F50C750C00E50CF56E +:1001E000F0E50C35F0F50CE50CF5F0E50B65F0F5F8 +:1001F0000BC3750C00E50AF5F0E50C95F0F50C75F0 +:100200000C00E50CF5F0E50C35F0F50CE50CF5F01F +:10021000E50B65F0F50B750100750900750A00E541 +:100220000BF502E501F503E509F504E50AF505E539 +:100230000EF515E50FF514E519C0E0E518C0E075F9 +:10024000E0042506F50675E0003507F507E502F53B +:1002500082E503F583E504F500E505F50122007567 +:100260000002750100750900750A0002011B00E516 +:1002700006758204C39582F506E5077583009583AC +:10028000F507D0E0F518D0E0F519E515F50EE51401 +:10029000F50F900000E582F509900000E583F50A6E +:1002A000750100C3750000E501F5F0E50935F0F5CD +:1002B00001E500F5F0E50A35F0F500E500F502E5A9 +:1002C00001F582E502F583E0F50B750101C37500C8 +:1002D00000E501F5F0E50935F0F501E500F5F0E59B +:1002E0000A35F0F500E500F502E501F582E502F5D5 +:1002F00083E0F50C750102C3750000E501F5F0E53A +:100300000935F0F501E500F5F0E50A35F0F500E511 +:1003100000F502E501F582E502F583E0F50D7501D2 +:1003200003C3750000E501F5F0E50935F0F501E5D9 +:1003300000F5F0E50A35F0F500E500F502E501F518 +:1003400082E502F583E0F501750000E50BF5F0E5C7 +:100350000045F0F500E50CF5F0E50045F0F500E5A9 +:100360000DF5F0E50045F0F500E501F5F0E5004597 +:10037000F0F500E5007002800302050C0075000135 +:10038000750100750900750A00E500F4F500E50146 +:10039000F4F501E509F4F509E50AF4F50AD3750B5E +:1003A00000E50BF5F0E50035F0F500E50BF5F0E5BF +:1003B0000135F0F501E50BF5F0E50935F0F509E556 +:1003C0000BF5F0E50A35F0F50A750B00C3E500F50D +:1003D000F0E51F95F0F500E500F5F0E50B45F0F5CB +:1003E0000BC3E501F5F0E51E95F0F500E500F5F02D +:1003F000E50B45F0F50BC3E509F5F0E51D95F0F5C6 +:1004000000E500F5F0E50B45F0F50BC3E50AF5F066 +:10041000E51C95F0F500E500F5F0E50B45F0F50B72 +:10042000750100750900750A00E50BF500750B01F3 +:10043000C3750C00E500F5F0E50C95F0F50C750CB6 +:1004400000E50CF5F0E50C35F0F50CE50CF5F0E504 +:100450000B65F0F50BC3750C00E501F5F0E50C95A7 +:10046000F0F50C750C00E50CF5F0E50C35F0F50C2D +:10047000E50CF5F0E50B65F0F50BC3750C00E5092F +:10048000F5F0E50C95F0F50C750C00E50CF5F0E5D4 +:100490000C35F0F50CE50CF5F0E50B65F0F50BC34C +:1004A000750C00E50AF5F0E50C95F0F50C750C00FF +:1004B000E50CF5F0E50C35F0F50CE50CF5F0E50B89 +:1004C00065F0F50B750100750900750A00E50BF57F +:1004D00002E501F503E509F504E50AF505E50EF584 +:1004E00015E50FF514E519C0E0E518C0E075E00466 +:1004F0002506F50675E0003507F507E502F582E506 +:1005000003F583E504F500E505F501220075000219 +:10051000750100750900750A000203C900E506753A +:100520008204C39582F506E5077583009583F50778 +:10053000D0E0F518D0E0F519E515F50EE514F50F46 +:10054000900000E582F509900000E583F50A750149 +:1005500000C3750000E501F5F0E50935F0F501E5AA +:1005600000F5F0E50A35F0F500E500F502E501F5E6 +:1005700082E502F583E0F50B750101C3750000E526 +:1005800001F5F0E50935F0F501E500F5F0E50A358E +:10059000F0F500E500F502E501F582E502F583E0FE +:1005A000F50C750102C3750000E501F5F0E50935AC +:1005B000F0F501E500F5F0E50A35F0F500E500F5A8 +:1005C00002E501F582E502F583E0F50D750103C34F +:1005D000750000E501F5F0E50935F0F501E500F5F8 +:1005E000F0E50A35F0F500E500F502E501F582E5F4 +:1005F00002F583E0F501750000E50BF5F0E5004537 +:10060000F0F500E50CF5F0E50045F0F500E50DF539 +:10061000F0E50045F0F500E501F5F0E50045F0F501 +:1006200000E5007002800302077A00750001750181 +:1006300000750900750A00750B00C3E500F5F0E5CB +:100640001F95F0F500E500F5F0E50B45F0F50BC35F +:10065000E501F5F0E51E95F0F500E500F5F0E50B98 +:1006600045F0F50BC3E509F5F0E51D95F0F500E55E +:1006700000F5F0E50B45F0F50BC3E50AF5F0E51CD8 +:1006800095F0F500E500F5F0E50B45F0F50B75018B +:1006900000750900750A00E50BF500750B01C375BF +:1006A0000C00E500F5F0E50C95F0F50C750C00E597 +:1006B0000CF5F0E50C35F0F50CE50CF5F0E50B6507 +:1006C000F0F50BC3750C00E501F5F0E50C95F0F5C0 +:1006D0000C750C00E50CF5F0E50C35F0F50CE50CAF +:1006E000F5F0E50B65F0F50BC3750C00E509F5F0C9 +:1006F000E50C95F0F50C750C00E50CF5F0E50C3506 +:10070000F0F50CE50CF5F0E50B65F0F50BC3750C99 +:1007100000E50AF5F0E50C95F0F50C750C00E50C1C +:10072000F5F0E50C35F0F50CE50CF5F0E50B65F0B2 +:10073000F50B750100750900750A00E50BF502E57A +:1007400001F503E509F504E50AF505E50EF515E5FE +:100750000FF514E519C0E0E518C0E075E0042506C2 +:10076000F50675E0003507F507E502F582E503F5C6 +:1007700083E504F500E505F5012200750002750129 +:1007800000750900750A0002063700E50675820447 +:10079000C39582F506E5077583009583F507D0E0DC +:1007A000F518D0E0F519E515F50EE514F50F9000F4 +:1007B00000E582F509900000E583F50A750100C3A4 +:1007C000750000E501F5F0E50935F0F501E500F506 +:1007D000F0E50A35F0F500E500F502E501F582E502 +:1007E00002F583E0F50B750101C3750000E501F525 +:1007F000F0E50935F0F501E500F5F0E50A35F0F52D +:1008000000E500F502E501F582E502F583E0F50C6F +:10081000750102C3750000E501F5F0E50935F0F555 +:1008200001E500F5F0E50A35F0F500E500F502E533 +:1008300001F582E502F583E0F50D750103C375004E +:1008400000E501F5F0E50935F0F501E500F5F0E525 +:100850000A35F0F500E500F502E501F582E502F55F +:1008600083E0F501750000E50BF5F0E50045F0F5D6 +:1008700000E50CF5F0E50045F0F500E50DF5F0E5D7 +:100880000045F0F500E501F5F0E50045F0F500E57F +:100890000070028003020A280075000175010075CE +:1008A0000900750A00E500F4F500E501F4F501E53D +:1008B00009F4F509E50AF4F50AD3750B00E50BF523 +:1008C000F0E50035F0F500E50BF5F0E50135F0F564 +:1008D00001E50BF5F0E50935F0F509E50BF5F0E577 +:1008E0000A35F0F50A750B00C3E500F5F0E51F9534 +:1008F000F0F500E500F5F0E50B45F0F50BC3E5017B +:10090000F5F0E51E95F0F500E500F5F0E50B45F096 +:10091000F50BC3E509F5F0E51D95F0F500E500F5EB +:10092000F0E50B45F0F50BC3E50AF5F0E51C95F095 +:10093000F500E500F5F0E50B45F0F50B75010075E8 +:100940000900750A00E50BF500750B01C3750C0075 +:10095000E500F5F0E50C95F0F50C750C00E50CF5EF +:10096000F0E50C35F0F50CE50CF5F0E50B65F0F570 +:100970000BC3750C00E501F5F0E50C95F0F50C7571 +:100980000C00E50CF5F0E50C35F0F50CE50CF5F098 +:10099000E50B65F0F50BC3750C00E509F5F0E50C0A +:1009A00095F0F50C750C00E50CF5F0E50C35F0F55F +:1009B0000CE50CF5F0E50B65F0F50BC3750C00E5E7 +:1009C0000AF5F0E50C95F0F50C750C00E50CF5F06A +:1009D000E50C35F0F50CE50CF5F0E50B65F0F50BE5 +:1009E000750100750900750A00E50BF502E501F5D2 +:1009F00003E509F504E50AF505E50EF515E50FF53E +:100A000014E519C0E0E518C0E075E0042506F50618 +:100A100075E0003507F507E502F582E503F583E5A6 +:100A200004F500E505F50122007500027501007569 +:100A30000900750A000208E500000000000000003F +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/compare1.s.expected b/tests/GCCTestSuite/compare1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/compare1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/compare3.c b/tests/GCCTestSuite/compare3.c new file mode 100644 index 0000000..eda3faf --- /dev/null +++ b/tests/GCCTestSuite/compare3.c @@ -0,0 +1,59 @@ +/* Test for a bogus warning on comparison between signed and unsigned. + This was inspired by code in gcc. */ + +/* { dg-do compile } */ +/* { dg-options "-Wsign-compare" } */ + +int tf = 1; + +void f(int x, unsigned int y) +{ + /* Test comparing conditional expressions containing truth values. + This can occur explicitly, or e.g. when (foo?2:(bar?1:0)) is + optimized into (foo?2:(bar!=0)). */ + x > (tf?64:(tf!=x)); /* { dg-bogus "signed and unsigned" "case 1" } */ + y > (tf?64:(tf!=x)); /* { dg-bogus "signed and unsigned" "case 2" } */ + x > (tf?(tf!=x):64); /* { dg-bogus "signed and unsigned" "case 3" } */ + y > (tf?(tf!=x):64); /* { dg-bogus "signed and unsigned" "case 4" } */ + + x > (tf?64:(tf==x)); /* { dg-bogus "signed and unsigned" "case 5" } */ + y > (tf?64:(tf==x)); /* { dg-bogus "signed and unsigned" "case 6" } */ + x > (tf?(tf==x):64); /* { dg-bogus "signed and unsigned" "case 7" } */ + y > (tf?(tf==x):64); /* { dg-bogus "signed and unsigned" "case 8" } */ + + x > (tf?64:(tf>x)); /* { dg-bogus "signed and unsigned" "case 9" } */ + y > (tf?64:(tf>x)); /* { dg-bogus "signed and unsigned" "case 10" } */ + x > (tf?(tf>x):64); /* { dg-bogus "signed and unsigned" "case 11" } */ + y > (tf?(tf>x):64); /* { dg-bogus "signed and unsigned" "case 12" } */ + + x < (tf?64:(tf (tf?64:(tf>=x)); /* { dg-bogus "signed and unsigned" "case 17" } */ + y > (tf?64:(tf>=x)); /* { dg-bogus "signed and unsigned" "case 18" } */ + x > (tf?(tf>=x):64); /* { dg-bogus "signed and unsigned" "case 19" } */ + y > (tf?(tf>=x):64); /* { dg-bogus "signed and unsigned" "case 20" } */ + + x > (tf?64:(tf<=x)); /* { dg-bogus "signed and unsigned" "case 21" } */ + y > (tf?64:(tf<=x)); /* { dg-bogus "signed and unsigned" "case 22" } */ + x > (tf?(tf<=x):64); /* { dg-bogus "signed and unsigned" "case 23" } */ + y > (tf?(tf<=x):64); /* { dg-bogus "signed and unsigned" "case 24" } */ + + x > (tf?64:(tf&&x)); /* { dg-bogus "signed and unsigned" "case 25" } */ + y > (tf?64:(tf&&x)); /* { dg-bogus "signed and unsigned" "case 26" } */ + x > (tf?(tf&&x):64); /* { dg-bogus "signed and unsigned" "case 27" } */ + y > (tf?(tf&&x):64); /* { dg-bogus "signed and unsigned" "case 28" } */ + + x > (tf?64:(tf||x)); /* { dg-bogus "signed and unsigned" "case 29" } */ + y > (tf?64:(tf||x)); /* { dg-bogus "signed and unsigned" "case 30" } */ + x > (tf?(tf||x):64); /* { dg-bogus "signed and unsigned" "case 31" } */ + y > (tf?(tf||x):64); /* { dg-bogus "signed and unsigned" "case 32" } */ + + x > (tf?64:(!tf)); /* { dg-bogus "signed and unsigned" "case 33" } */ + y > (tf?64:(!tf)); /* { dg-bogus "signed and unsigned" "case 34" } */ + x > (tf?(!tf):64); /* { dg-bogus "signed and unsigned" "case 35" } */ + y > (tf?(!tf):64); /* { dg-bogus "signed and unsigned" "case 36" } */ + +} diff --git a/tests/GCCTestSuite/compare3.c.expected b/tests/GCCTestSuite/compare3.c.expected new file mode 100644 index 0000000..eda3faf --- /dev/null +++ b/tests/GCCTestSuite/compare3.c.expected @@ -0,0 +1,59 @@ +/* Test for a bogus warning on comparison between signed and unsigned. + This was inspired by code in gcc. */ + +/* { dg-do compile } */ +/* { dg-options "-Wsign-compare" } */ + +int tf = 1; + +void f(int x, unsigned int y) +{ + /* Test comparing conditional expressions containing truth values. + This can occur explicitly, or e.g. when (foo?2:(bar?1:0)) is + optimized into (foo?2:(bar!=0)). */ + x > (tf?64:(tf!=x)); /* { dg-bogus "signed and unsigned" "case 1" } */ + y > (tf?64:(tf!=x)); /* { dg-bogus "signed and unsigned" "case 2" } */ + x > (tf?(tf!=x):64); /* { dg-bogus "signed and unsigned" "case 3" } */ + y > (tf?(tf!=x):64); /* { dg-bogus "signed and unsigned" "case 4" } */ + + x > (tf?64:(tf==x)); /* { dg-bogus "signed and unsigned" "case 5" } */ + y > (tf?64:(tf==x)); /* { dg-bogus "signed and unsigned" "case 6" } */ + x > (tf?(tf==x):64); /* { dg-bogus "signed and unsigned" "case 7" } */ + y > (tf?(tf==x):64); /* { dg-bogus "signed and unsigned" "case 8" } */ + + x > (tf?64:(tf>x)); /* { dg-bogus "signed and unsigned" "case 9" } */ + y > (tf?64:(tf>x)); /* { dg-bogus "signed and unsigned" "case 10" } */ + x > (tf?(tf>x):64); /* { dg-bogus "signed and unsigned" "case 11" } */ + y > (tf?(tf>x):64); /* { dg-bogus "signed and unsigned" "case 12" } */ + + x < (tf?64:(tf (tf?64:(tf>=x)); /* { dg-bogus "signed and unsigned" "case 17" } */ + y > (tf?64:(tf>=x)); /* { dg-bogus "signed and unsigned" "case 18" } */ + x > (tf?(tf>=x):64); /* { dg-bogus "signed and unsigned" "case 19" } */ + y > (tf?(tf>=x):64); /* { dg-bogus "signed and unsigned" "case 20" } */ + + x > (tf?64:(tf<=x)); /* { dg-bogus "signed and unsigned" "case 21" } */ + y > (tf?64:(tf<=x)); /* { dg-bogus "signed and unsigned" "case 22" } */ + x > (tf?(tf<=x):64); /* { dg-bogus "signed and unsigned" "case 23" } */ + y > (tf?(tf<=x):64); /* { dg-bogus "signed and unsigned" "case 24" } */ + + x > (tf?64:(tf&&x)); /* { dg-bogus "signed and unsigned" "case 25" } */ + y > (tf?64:(tf&&x)); /* { dg-bogus "signed and unsigned" "case 26" } */ + x > (tf?(tf&&x):64); /* { dg-bogus "signed and unsigned" "case 27" } */ + y > (tf?(tf&&x):64); /* { dg-bogus "signed and unsigned" "case 28" } */ + + x > (tf?64:(tf||x)); /* { dg-bogus "signed and unsigned" "case 29" } */ + y > (tf?64:(tf||x)); /* { dg-bogus "signed and unsigned" "case 30" } */ + x > (tf?(tf||x):64); /* { dg-bogus "signed and unsigned" "case 31" } */ + y > (tf?(tf||x):64); /* { dg-bogus "signed and unsigned" "case 32" } */ + + x > (tf?64:(!tf)); /* { dg-bogus "signed and unsigned" "case 33" } */ + y > (tf?64:(!tf)); /* { dg-bogus "signed and unsigned" "case 34" } */ + x > (tf?(!tf):64); /* { dg-bogus "signed and unsigned" "case 35" } */ + y > (tf?(!tf):64); /* { dg-bogus "signed and unsigned" "case 36" } */ + +} diff --git a/tests/GCCTestSuite/compare3.hex.expected b/tests/GCCTestSuite/compare3.hex.expected new file mode 100644 index 0000000..c0498b1 --- /dev/null +++ b/tests/GCCTestSuite/compare3.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758208C39582F506E5077583004D +:100010009583F507D0E0F500D0E0F501750900E51E +:1000200009F502E509F503E509F504E509F505E536 +:1000300001C0E0E500C0E075E0082506F50675E0C2 +:10004000003507F507E502F582E503F583E504F5DC +:1000500000E505F50122000000000000000000009E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/compare3.s.expected b/tests/GCCTestSuite/compare3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/compare3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/compare5.c b/tests/GCCTestSuite/compare5.c new file mode 100644 index 0000000..f19c575 --- /dev/null +++ b/tests/GCCTestSuite/compare5.c @@ -0,0 +1,41 @@ +/* Test for a bogus warning on comparison between signed and unsigned. + Origin: Kaveh R. Ghazi 8/21/2001. */ + +/* { dg-do compile } */ +/* { dg-options "-Wsign-compare" } */ + +extern void bar(void); + +int foo(int x, int y, unsigned u) +{ + /* A *_DIV_EXPR is non-negative if both operands are. */ + + if (u < ((x=-22)/33)) /* { dg-warning "signed and unsigned" "DIV_EXPR" } */ + return x; + + if (u < ((x=22)/33)) + return x; + + if (u < ((x=22)/(y=33))) + return x; + + if (u < (((x&0x10000)?128:64) / ((y&0x10000)?8:4))) + return x; + + + /* A *_MOD_EXPR is non-negative if the first operand is. */ + + if (u < ((x=-22)%33)) /* { dg-warning "signed and unsigned" "MOD_EXPR" } */ + return x; + + if (u < ((x=22)%-33)) + return x; + + if (u < ((x==y)%-33)) + return x; + + if (u < (((x=22)/33)%-33)) + return x; + + return 0; +} diff --git a/tests/GCCTestSuite/compare5.c.expected b/tests/GCCTestSuite/compare5.c.expected new file mode 100644 index 0000000..f19c575 --- /dev/null +++ b/tests/GCCTestSuite/compare5.c.expected @@ -0,0 +1,41 @@ +/* Test for a bogus warning on comparison between signed and unsigned. + Origin: Kaveh R. Ghazi 8/21/2001. */ + +/* { dg-do compile } */ +/* { dg-options "-Wsign-compare" } */ + +extern void bar(void); + +int foo(int x, int y, unsigned u) +{ + /* A *_DIV_EXPR is non-negative if both operands are. */ + + if (u < ((x=-22)/33)) /* { dg-warning "signed and unsigned" "DIV_EXPR" } */ + return x; + + if (u < ((x=22)/33)) + return x; + + if (u < ((x=22)/(y=33))) + return x; + + if (u < (((x&0x10000)?128:64) / ((y&0x10000)?8:4))) + return x; + + + /* A *_MOD_EXPR is non-negative if the first operand is. */ + + if (u < ((x=-22)%33)) /* { dg-warning "signed and unsigned" "MOD_EXPR" } */ + return x; + + if (u < ((x=22)%-33)) + return x; + + if (u < ((x==y)%-33)) + return x; + + if (u < (((x=22)/33)%-33)) + return x; + + return 0; +} diff --git a/tests/GCCTestSuite/compare5.hex.expected b/tests/GCCTestSuite/compare5.hex.expected new file mode 100644 index 0000000..143609c --- /dev/null +++ b/tests/GCCTestSuite/compare5.hex.expected @@ -0,0 +1,874 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF500E51EF501E51DD8 +:1000D000F509E51CF50AE51AF515E519F513750F8F +:1000E00000751000751100751200E500F516E501A8 +:1000F000F514E509F50DE50AF50E750C0075170008 +:10010000751900751A00750B00750A01750001C399 +:10011000E518F5F0E50E95F0F509E50BF5F0E50BC2 +:1001200035F0F509E509F5F0E50055F0F500E500D5 +:10013000F5F0E50C45F0F50C750001C3E518F5F098 +:10014000E50E95F0F509E50BF5F0E50B35F0F50951 +:10015000E50EF5F0E51895F0F501E50BF5F0E50B8A +:1001600035F0F501E501F5F0E50945F0F509E50A99 +:10017000F5F0E50965F0F509E509F5F0E50055F05C +:10018000F500C3E513F5F0E50D95F0F509E50BF580 +:10019000F0E50B35F0F509E509F5F0E50055F0F56A +:1001A00000E500F5F0E50C45F0F50C750001C3E540 +:1001B00018F5F0E50E95F0F509E50BF5F0E50B35D2 +:1001C000F0F509E50EF5F0E51895F0F501E50BF50C +:1001D000F0E50B35F0F501E501F5F0E50945F0F541 +:1001E00009E50AF5F0E50965F0F509E509F5F0E539 +:1001F0000055F0F500C3E513F5F0E50D95F0F509B0 +:10020000E50BF5F0E50B35F0F509E50DF5F0E51337 +:1002100095F0F501E50BF5F0E50B35F0F501E5019D +:10022000F5F0E50945F0F509E50AF5F0E50965F0B1 +:10023000F509E509F5F0E50055F0F500C3E515F51C +:10024000F0E51495F0F509E50BF5F0E50B35F0F563 +:1002500009E509F5F0E50055F0F500E500F5F0E5F4 +:100260000C45F0F50C750001C3E518F5F0E50E95A9 +:10027000F0F509E50BF5F0E50B35F0F509E50EF5C0 +:10028000F0E51895F0F501E50BF5F0E50B35F0F527 +:1002900001E501F5F0E50945F0F509E50AF5F0E5B8 +:1002A0000965F0F509E509F5F0E50055F0F500C33D +:1002B000E513F5F0E50D95F0F509E50BF5F0E50B27 +:1002C00035F0F509E50DF5F0E51395F0F501E50BD1 +:1002D000F5F0E50B35F0F501E501F5F0E50945F040 +:1002E000F509E50AF5F0E50965F0F509E509F5F028 +:1002F000E50055F0F500C3E515F5F0E51495F0F5CA +:1003000009E50BF5F0E50B35F0F509E514F5F0E539 +:100310001595F0F501E50BF5F0E50B35F0F501E588 +:1003200001F5F0E50945F0F509E50AF5F0E509659F +:10033000F0F509E509F5F0E50055F0F500C3E51B1A +:10034000F5F0E51695F0F509E50BF5F0E50B35F060 +:10035000F509E509F5F0E50055F0F500E500F5F0E3 +:10036000E50C45F0F50CE517F500E519F501E51A82 +:10037000F509E50CF50B750C01C3750A00E50BF5E5 +:10038000F0E50A95F0F50A750A00E50AF5F0E50AC8 +:1003900035F0F50AE50AF5F0E50C65F0F50CC375E6 +:1003A0000A00E500F5F0E50A95F0F50A750A00E5A2 +:1003B0000AF5F0E50A35F0F50AE50AF5F0E50C6511 +:1003C000F0F50CC3750A00E501F5F0E50A95F0F5C6 +:1003D0000A750A00E50AF5F0E50A35F0F50AE50ABE +:1003E000F5F0E50C65F0F50CC3750A00E509F5F0CC +:1003F000E50A95F0F50A750A00E50AF5F0E50A3513 +:10040000F0F50AE50AF5F0E50C65F0F50C7500006D +:10041000750100750900E500F50BE501F50A7501A8 +:1004200001C3750000E50CF5F0E50095F0F50075E9 +:100430000000E500F5F0E50035F0F500E500F5F029 +:10044000E50165F0F501C3750000E50BF5F0E50089 +:1004500095F0F500750000E500F5F0E50035F0F5E4 +:1004600000E500F5F0E50165F0F501C3750000E574 +:100470000AF5F0E50095F0F500750000E500F5F0EF +:10048000E50035F0F500E500F5F0E50165F0F50172 +:10049000C3750000E509F5F0E50095F0F50075007D +:1004A00000E500F5F0E50035F0F500E500F5F0E5D4 +:1004B0000165F0F501750900750A00750B007500FE +:1004C00000E501F5F0E50045F0F500E509F5F0E59A +:1004D0000045F0F500E50AF5F0E50045F0F500E52A +:1004E0000BF5F0E50045F0F500E500700280030231 +:1004F000055700750001750100750900750A00C3F4 +:10050000750B00E500F5F0E50F35F0F50FE501F5A9 +:10051000F0E51035F0F510E509F5F0E51135F0F5E9 +:1005200011E50AF5F0E51235F0F512C3E51BF5F01B +:10053000E51695F0F516E515F5F0E51495F0F514CA +:10054000E513F5F0E50D95F0F50DE518F5F0E50E80 +:1005500095F0F50E0200FA00E50FF502E510F5033F +:10056000E511F504E512F50575E0092506F5827536 +:10057000E0003507F583E0F51775E0082506F582FC +:1005800075E0003507F583E0F51675E0072506F5FB +:100590008275E0003507F583E0F51575E006250660 +:1005A000F58275E0003507F583E0F51475E0052563 +:1005B00006F58275E0003507F583E0F51375E00474 +:1005C0002506F58275E0003507F583E0F51275E044 +:1005D000032506F58275E0003507F583E0F5117512 +:1005E000E0022506F58275E0003507F583E0F51099 +:1005F00075E0002506F58275E0003507F583E0F526 +:1006000008E508C0E075E0012506F58275E00035D3 +:1006100007F583E0F508E508C0E075E0122506F56A +:100620000675E0003507F507E502F582E503F58379 +:10063000E504F500E505F5012200E506758217C31E +:100640009582F506E5077583009583F507D0E0F5FB +:100650000875E0062506F58275E0003507F583E5A7 +:1006600008F0D0E0F50875E0052506F58275E00094 +:100670003507F583E508F075E00E2506F58275E08F +:10068000003507F583E517F075E00D2506F5827551 +:10069000E0003507F583E516F075E00C2506F582D8 +:1006A00075E0003507F583E515F075E00B2506F5D7 +:1006B0008275E0003507F583E514F075E00A25063C +:1006C000F58275E0003507F583E513F075E009253F +:1006D00006F58275E0003507F583E512F075E00850 +:1006E0002506F58275E0003507F583E511F075E024 +:1006F000072506F58275E0003507F583E510F0E57E +:100700001FF511E51BF512E51AF513E519F514753A +:10071000E0042506F58275E0003507F583E511F064 +:1007200075E0032506F58275E0003507F583E51EC3 +:10073000F075E0022506F58275E0003507F583E5E2 +:100740001DF075E0012506F58275E0003507F5839B +:10075000E51CF07515017516007517007508007514 +:10076000E0002506F58275E0003507F583E508F021 +:10077000751900750D00750E00750F00E51CF5105C +:10078000750080E500F5F0E51025F0F510E500F5C1 +:10079000F0E50F25F0F50F750C00751A00751B00BC +:1007A000751F00750B00750A01750001C3E50FF593 +:1007B000F0E51095F0F509E50BF5F0E50B35F0F5F2 +:1007C00009E509F5F0E50055F0F500E500F5F0E57F +:1007D0000C45F0F50C750001C3E50FF5F0E510953B +:1007E000F0F509E50BF5F0E50B35F0F509E510F549 +:1007F000F0E50F95F0F501E50BF5F0E50B35F0F5BB +:1008000001E501F5F0E50945F0F509E50AF5F0E542 +:100810000965F0F509E509F5F0E50055F0F500C3C7 +:10082000E50EF5F0E51D95F0F509E50BF5F0E50BA6 +:1008300035F0F509E509F5F0E50055F0F500E500BE +:10084000F5F0E50C45F0F50C750001C3E50FF5F08A +:10085000E51095F0F509E50BF5F0E50B35F0F50938 +:10086000E510F5F0E50F95F0F501E50BF5F0E50B7A +:1008700035F0F501E501F5F0E50945F0F509E50A82 +:10088000F5F0E50965F0F509E509F5F0E50055F045 +:10089000F500C3E50EF5F0E51D95F0F509E50BF55E +:1008A000F0E50B35F0F509E51DF5F0E50E95F0F5F1 +:1008B00001E50BF5F0E50B35F0F501E501F5F0E5A7 +:1008C0000945F0F509E50AF5F0E50965F0F509E5F2 +:1008D00009F5F0E50055F0F500C3E50DF5F0E51E6E +:1008E00095F0F509E50BF5F0E50B35F0F509E509AF +:1008F000F5F0E50055F0F500E500F5F0E50C45F004 +:10090000F50C750001C3E50FF5F0E51095F0F5095C +:10091000E50BF5F0E50B35F0F509E510F5F0E50F21 +:1009200095F0F501E50BF5F0E50B35F0F501E50186 +:10093000F5F0E50945F0F509E50AF5F0E50965F09A +:10094000F509E509F5F0E50055F0F500C3E50EF50C +:10095000F0E51D95F0F509E50BF5F0E50B35F0F543 +:1009600009E51DF5F0E50E95F0F501E50BF5F0E56F +:100970000B35F0F501E501F5F0E50945F0F509E580 +:100980000AF5F0E50965F0F509E509F5F0E500552A +:10099000F0F500C3E50DF5F0E51E95F0F509E50B62 +:1009A000F5F0E50B35F0F509E51EF5F0E50D95F0F0 +:1009B000F501E50BF5F0E50B35F0F501E501F5F096 +:1009C000E50945F0F509E50AF5F0E50965F0F509F1 +:1009D000E509F5F0E50055F0F500C3E519F5F0E59A +:1009E0001195F0F509E50BF5F0E50B35F0F509E5A6 +:1009F00009F5F0E50055F0F500E500F5F0E50C45EA +:100A0000F0F50CE51AF501E51BF509E51FF50A758A +:100A10000000E50CF5F0E50045F0F500E501F5F026 +:100A2000E50045F0F500E509F5F0E50045F0F500D5 +:100A3000E50AF5F0E50045F0F500E50070028003F9 +:100A400002116B00751900750D00750E00750F0011 +:100A5000E512F51BE513F51AE514F510E518F51187 +:100A6000750080E500F5F0E51125F0F511E500F5DC +:100A7000F0E50F25F0F50F750C00751C00751D00D5 +:100A8000751E00750B00750A01750001C3E50FF5B1 +:100A9000F0E51195F0F509E50BF5F0E50B35F0F50E +:100AA00009E509F5F0E50055F0F500E500F5F0E59C +:100AB0000C45F0F50C750001C3E50FF5F0E5119557 +:100AC000F0F509E50BF5F0E50B35F0F509E511F565 +:100AD000F0E50F95F0F501E50BF5F0E50B35F0F5D8 +:100AE00001E501F5F0E50945F0F509E50AF5F0E560 +:100AF0000965F0F509E509F5F0E50055F0F500C3E5 +:100B0000E50EF5F0E51095F0F509E50BF5F0E50BD0 +:100B100035F0F509E509F5F0E50055F0F500E500DB +:100B2000F5F0E50C45F0F50C750001C3E50FF5F0A7 +:100B3000E51195F0F509E50BF5F0E50B35F0F50954 +:100B4000E511F5F0E50F95F0F501E50BF5F0E50B96 +:100B500035F0F501E501F5F0E50945F0F509E50A9F +:100B6000F5F0E50965F0F509E509F5F0E50055F062 +:100B7000F500C3E50EF5F0E51095F0F509E50BF588 +:100B8000F0E50B35F0F509E510F5F0E50E95F0F51B +:100B900001E50BF5F0E50B35F0F501E501F5F0E5C4 +:100BA0000945F0F509E50AF5F0E50965F0F509E50F +:100BB00009F5F0E50055F0F500C3E50DF5F0E51A8F +:100BC00095F0F509E50BF5F0E50B35F0F509E509CC +:100BD000F5F0E50055F0F500E500F5F0E50C45F021 +:100BE000F50C750001C3E50FF5F0E51195F0F50979 +:100BF000E50BF5F0E50B35F0F509E511F5F0E50F3E +:100C000095F0F501E50BF5F0E50B35F0F501E501A3 +:100C1000F5F0E50945F0F509E50AF5F0E50965F0B7 +:100C2000F509E509F5F0E50055F0F500C3E50EF529 +:100C3000F0E51095F0F509E50BF5F0E50B35F0F56D +:100C400009E510F5F0E50E95F0F501E50BF5F0E599 +:100C50000B35F0F501E501F5F0E50945F0F509E59D +:100C60000AF5F0E50965F0F509E509F5F0E5005547 +:100C7000F0F500C3E50DF5F0E51A95F0F509E50B83 +:100C8000F5F0E50B35F0F509E51AF5F0E50D95F011 +:100C9000F501E50BF5F0E50B35F0F501E501F5F0B3 +:100CA000E50945F0F509E50AF5F0E50965F0F5090E +:100CB000E509F5F0E50055F0F500C3E519F5F0E5B7 +:100CC0001B95F0F509E50BF5F0E50B35F0F509E5B9 +:100CD00009F5F0E50055F0F500E500F5F0E50C4507 +:100CE000F0F50CE51CF501E51DF509E51EF50A75A5 +:100CF0000000E50CF5F0E50045F0F500E501F5F044 +:100D0000E50045F0F500E509F5F0E50045F0F500F2 +:100D1000E50AF5F0E50045F0F500E5007002800316 +:100D20000210A30075E0042506F58275E000350782 +:100D3000F583E0F51F75E0032506F58275E00035C3 +:100D400007F583E0F51E75E0022506F58275E000E3 +:100D50003507F583E0F51D75E0012506F58275E0A0 +:100D6000003507F583E0F51CE512F51BE513F51AD0 +:100D7000E514F519120000E582F502E583F503E5B7 +:100D800000F504E501F505E502F511E503F512E5C9 +:100D900004F513E505F514E515F500E516F515E57B +:100DA00017F51675E0002506F58275E0003507F5A4 +:100DB00083E0F517750D00750E00750F00751000B6 +:100DC000C3750100E500F5F0E511A4F50CE500F5AB +:100DD000F0E511A4E5F0F509E50CF5F0E50135F0D5 +:100DE000F501E515F5F0E511A4F50CE515F5F0E5CF +:100DF00011A4E5F0F50AE50CF5F0E50935F0F50983 +:100E0000E516F5F0E511A4F50CE516F5F0E511A4ED +:100E1000E5F0F50BE50CF5F0E50A35F0F50AE51718 +:100E2000F5F0E511A4F50CE517F5F0E511A4E5F0F2 +:100E3000F511E50CF5F0E50B35F0F50BC3C3750CBA +:100E400000E501F5F0E50D35F0F50DE509F5F0E506 +:100E50000E35F0F50EE50AF5F0E50F35F0F50FE586 +:100E60000BF5F0E51035F0F510C3750900E500F558 +:100E7000F0E512A4F50CE500F5F0E512A4E5F0F5B7 +:100E80000AE50CF5F0E50935F0F509E515F5F0E5AD +:100E900012A4F50CE515F5F0E512A4E5F0F50BE567 +:100EA0000CF5F0E50A35F0F50AE516F5F0E512A4C3 +:100EB000F50CE516F5F0E512A4E5F0F511E50CF5F5 +:100EC000F0E50B35F0F50B750100C3C3750C00E5BB +:100ED00001F5F0E50D35F0F50DE509F5F0E50E3518 +:100EE000F0F50EE50AF5F0E50F35F0F50FE50BF539 +:100EF000F0E51035F0F510C3750A00E500F5F0E5F2 +:100F000013A4F50CE500F5F0E513A4E5F0F50BE509 +:100F10000CF5F0E50A35F0F50AE515F5F0E513A452 +:100F2000F50CE515F5F0E513A4E5F0F511E50CF584 +:100F3000F0E50B35F0F50B750100750900C3C375BD +:100F40000C00E501F5F0E50D35F0F50DE509F5F0DE +:100F5000E50E35F0F50EE50AF5F0E50F35F0F50F85 +:100F6000E50BF5F0E51035F0F510C3750B00E50065 +:100F7000F5F0E514A4F50CE500F5F0E514A4E5F0B2 +:100F8000F511E50CF5F0E50B35F0F50B7501007585 +:100F90000900750A00C3C3750000E501F5F0E50D11 +:100FA00035F0F50DE509F5F0E50E35F0F50EE50A3D +:100FB000F5F0E50F35F0F50FE50BF5F0E51035F040 +:100FC000F510E50DF502E50EF503E50FF504E51066 +:100FD000F50575E00E2506F58275E0003507F58309 +:100FE000E0F51775E00D2506F58275E0003507F58B +:100FF00083E0F51675E00C2506F58275E0003507EF +:10100000F583E0F51575E00B2506F58275E00035F2 +:1010100007F583E0F51475E00A2506F58275E00012 +:101020003507F583E0F51375E0092506F58275E0CF +:10103000003507F583E0F51275E0082506F58275A1 +:10104000E0003507F583E0F51175E0072506F58228 +:1010500075E0003507F583E0F51075E0052506F528 +:101060008275E0003507F583E0F508E508C0E07516 +:10107000E0062506F58275E0003507F583E0F50802 +:10108000E508C0E075E0172506F50675E0003507B0 +:10109000F507E502F582E503F583E504F500E505CE +:1010A000F5012200E512F4F512E513F4F513E51449 +:1010B000F4F514E518F4F518D3750000E500F5F023 +:1010C000E51235F0F512E500F5F0E51335F0F5130E +:1010D000E500F5F0E51435F0F514E500F5F0E51858 +:1010E00035F0F518E515F4F515E516F4F516E517E0 +:1010F000F4F51775E0002506F58275E0003507F573 +:1011000083E0F508E508F4F50875E0002506F582AA +:1011100075E0003507F583E508F0D3750000E500BC +:10112000F5F0E51535F0F515E500F5F0E51635F0C7 +:10113000F516E500F5F0E51735F0F517E500F5F0E3 +:1011400075E0002506F58275E0003507F583E0F5CA +:1011500008E50835F0F50875E0002506F58275E02C +:10116000003507F583E508F0020D2400E511F4F5DC +:1011700000E51EF4F501E51DF4F509E51CF4F50B99 +:10118000D3750A00E50AF5F0E50035F0F500E50A4B +:10119000F5F0E50135F0F501E50AF5F0E50935F082 +:1011A000F509E50AF5F0E50B35F0F50B75E00425DA +:1011B00006F58275E0003507F583E500F075E0037C +:1011C0002506F58275E0003507F583E501F075E049 +:1011D000022506F58275E0003507F583E509F0750F +:1011E000E0012506F58275E0003507F583E50BF093 +:1011F000E515F4F515E516F4F516E517F4F517758C +:10120000E0002506F58275E0003507F583E0F50876 +:10121000E508F4F50875E0002506F58275E000356F +:1012200007F583E508F0D3750000E500F5F0E51556 +:1012300035F0F515E500F5F0E51635F0F516E500A5 +:10124000F5F0E51735F0F517E500F5F075E0002548 +:1012500006F58275E0003507F583E0F508E5083509 +:10126000F0F50875E0002506F58275E0003507F514 +:1012700083E508F0020A4400E506758216C39582EC +:10128000F506E5077583009583F507D0E0F5087549 +:10129000E0052506F58275E0003507F583E508F0E1 +:1012A000D0E0F50875E0042506F58275E000350705 +:1012B000F583E508F075E00D2506F58275E000354B +:1012C00007F583E517F075E00C2506F58275E0005B +:1012D0003507F583E516F075E00B2506F58275E018 +:1012E000003507F583E515F075E00A2506F58275EA +:1012F000E0003507F583E514F075E0092506F58271 +:1013000075E0003507F583E513F075E0082506F56F +:101310008275E0003507F583E512F075E0072506D4 +:10132000F58275E0003507F583E511F075E00625D7 +:1013300006F58275E0003507F583E510F075E003EA +:101340002506F58275E0003507F583E51FF075E0A9 +:10135000022506F58275E0003507F583E51EF07578 +:10136000E0012506F58275E0003507F583E51DF0FF +:1013700075E0002506F58275E0003507F583E51C6C +:10138000F0E51BF514E51AF515E519F516E518F560 +:101390001775E0032506F58275E0003507F583E053 +:1013A000F51F75E0022506F58275E0003507F58327 +:1013B000E0F51E75E0012506F58275E0003507F5BC +:1013C00083E0F51D75E0002506F58275E000350720 +:1013D000F583E0F51CE514F51BE515F51AE516F5A2 +:1013E00019E517F518120639E582F502E583F503CC +:1013F000E500F504E501F505E502F500E503F50175 +:10140000E504F509E505F50A75100075110075127A +:1014100000751300C3750B00E500F5F0E514A4F5A5 +:101420000FE500F5F0E514A4E5F0F50CE50FF5F097 +:10143000E50B35F0F50BE501F5F0E514A4F50FE546 +:1014400001F5F0E514A4E5F0F50DE50FF5F0E50C78 +:1014500035F0F50CE509F5F0E514A4F50FE509F50F +:10146000F0E514A4E5F0F50EE50FF5F0E50D35F027 +:10147000F50DE50AF5F0E514A4F50FE50AF5F0E53C +:1014800014A4E5F0F50AE50FF5F0E50E35F0F50EDC +:10149000C3C3750A00E50BF5F0E51035F0F510E56E +:1014A0000CF5F0E51135F0F511E50DF5F0E5123527 +:1014B000F0F512E50EF5F0E51335F0F513C3750CF4 +:1014C00000E500F5F0E515A4F50FE500F5F0E515EC +:1014D000A4E5F0F50DE50FF5F0E50C35F0F50CE5BC +:1014E00001F5F0E515A4F50FE501F5F0E515A4E526 +:1014F000F0F50EE50FF5F0E50D35F0F50DE509F524 +:10150000F0E515A4F50FE509F5F0E515A4E5F0F50E +:101510000AE50FF5F0E50E35F0F50E750B00C3C3C7 +:10152000750900E50BF5F0E51035F0F510E50CF563 +:10153000F0E51135F0F511E50DF5F0E51235F0F5B2 +:1015400012E50EF5F0E51335F0F513C3750D00E562 +:1015500000F5F0E516A4F50FE500F5F0E516A4E5B5 +:10156000F0F50EE50FF5F0E50D35F0F50DE501F5BB +:10157000F0E516A4F50FE501F5F0E516A4E5F0F5A4 +:101580000AE50FF5F0E50E35F0F50E750B00750C5C +:1015900000C3C3750100E50BF5F0E51035F0F5105B +:1015A000E50CF5F0E51135F0F511E50DF5F0E51276 +:1015B00035F0F512E50EF5F0E51335F0F513C375CA +:1015C0000E00E500F5F0E517A4F50FE500F5F0E5F0 +:1015D00017A4E5F0F50AE50FF5F0E50E35F0F50E88 +:1015E000750B00750C00750D00C3C3750000E50B8D +:1015F000F5F0E51035F0F510E50CF5F0E51135F0F6 +:10160000F511E50DF5F0E51235F0F512E50EF5F002 +:10161000E51335F0F513C3E510F5F075E003250685 +:10162000F58275E0003507F583E0F508E50895F0EB +:10163000F500E511F5F075E0022506F58275E0008C +:101640003507F583E0F508E50895F0F501E512F5B5 +:10165000F075E0012506F58275E0003507F583E0B9 +:10166000F508E50895F0F509E513F5F075E00025B6 +:1016700006F58275E0003507F583E0F508E5089585 +:10168000F0F50AE500F502E501F503E509F504E5E5 +:101690000AF50575E00D2506F58275E0003507F5BC +:1016A00083E0F51775E00C2506F58275E000350737 +:1016B000F583E0F51675E00B2506F58275E000353B +:1016C00007F583E0F51575E00A2506F58275E0005B +:1016D0003507F583E0F51475E0092506F58275E018 +:1016E000003507F583E0F51375E0082506F58275EA +:1016F000E0003507F583E0F51275E0072506F58271 +:1017000075E0003507F583E0F51175E0062506F56F +:101710008275E0003507F583E0F51075E0042506D5 +:10172000F58275E0003507F583E0F508E508C0E0CF +:1017300075E0052506F58275E0003507F583E0F5CF +:1017400008E508C0E075E0162506F50675E00035E9 +:1017500007F507E502F582E503F583E504F500E505 +:1017600005F5012200E50675821FC39582F506E5A1 +:10177000077583009583F507D0E0F50875E00A2525 +:1017800006F58275E0003507F583E508F0D0E0F551 +:101790000875E0092506F58275E0003507F583E553 +:1017A00008F075E0122506F58275E0003507F5832F +:1017B000E517F075E0112506F58275E0003507F5AF +:1017C00083E516F075E0102506F58275E000350713 +:1017D000F583E515F075E00F2506F58275E0003517 +:1017E00007F583E514F075E00E2506F58275E00037 +:1017F0003507F583E513F075E00D2506F58275E0F4 +:10180000003507F583E512F075E00C2506F58275C5 +:10181000E0003507F583E511F075E00B2506F5824C +:1018200075E0003507F583E510F075091F750001B7 +:10183000E500F5F0E50995F0F509E506F500E500A8 +:10184000F5F0E50925F0F509750100E507F500E576 +:1018500000F5F0E50135F0F501E501F502E509F5E2 +:1018600082E502F583E0F50875E0042506F582754A +:10187000E0003507F583E508F075091F750002E5FE +:1018800000F5F0E50995F0F509E506F500E500F548 +:10189000F0E50925F0F509750100E507F500E5001B +:1018A000F5F0E50135F0F501E501F502E509F58210 +:1018B000E502F583E0F51675091F750003E500F5EF +:1018C000F0E50995F0F509E506F500E500F5F0E528 +:1018D0000925F0F509750100E507F500E500F5F0CB +:1018E000E50135F0F501E501F502E509F582E502CE +:1018F000F583E0F51575091F750004E500F5F0E5C1 +:101900000995F0F509E506F500E500F5F0E509258E +:10191000F0F509750100E507F500E500F5F0E501D2 +:1019200035F0F501E501F502E509F582E502F583FB +:10193000E0F510750A16750900750100750000E5DF +:101940000AF4F511E509F4F512E501F4F513E500E3 +:10195000F4F514D3750000E500F5F0E51135F0F568 +:1019600011E500F5F0E51235F0F512E500F5F0E5CA +:101970001335F0F513E500F5F0E51435F0F51475C1 +:101980001B21751A00751900751800E511F51FE582 +:1019900012F51EE513F51DE514F51C120639E58256 +:1019A000F502E583F503E500F504E501F505E5023B +:1019B000F517E503F50EE504F50CE505F50D750BDA +:1019C00000751800751900751A00750A00750F0169 +:1019D000750001C3E50DF5F0E51095F0F509E50A90 +:1019E000F5F0E50A35F0F509E509F5F0E50055F003 +:1019F000F500E500F5F0E50B45F0F50B750001C3CA +:101A0000E50DF5F0E51095F0F509E50AF5F0E50AC4 +:101A100035F0F509E510F5F0E50D95F0F501E50A6D +:101A2000F5F0E50A35F0F501E501F5F0E50945F0D9 +:101A3000F509E50FF5F0E50965F0F509E509F5F0BB +:101A4000E50055F0F500C3E50CF5F0E51595F0F56A +:101A500009E50AF5F0E50A35F0F509E509F5F0E5DF +:101A60000055F0F500E500F5F0E50B45F0F50B75D8 +:101A70000001C3E50DF5F0E51095F0F509E50AF56F +:101A8000F0E50A35F0F509E510F5F0E50D95F0F50E +:101A900001E50AF5F0E50A35F0F501E501F5F0E5B7 +:101AA0000945F0F509E50FF5F0E50965F0F509E5FB +:101AB00009F5F0E50055F0F500C3E50CF5F0E51586 +:101AC00095F0F509E50AF5F0E50A35F0F509E515B3 +:101AD000F5F0E50C95F0F501E50AF5F0E50A35F0CD +:101AE000F501E501F5F0E50945F0F509E50FF5F03B +:101AF000E50965F0F509E509F5F0E50055F0F500B3 +:101B0000C3E50EF5F0E51695F0F509E50AF5F0E503 +:101B10000A35F0F509E509F5F0E50055F0F500E5C1 +:101B200000F5F0E50B45F0F50B750001C3E50DF58B +:101B3000F0E51095F0F509E50AF5F0E50A35F0F560 +:101B400009E510F5F0E50D95F0F501E50AF5F0E58C +:101B50000A35F0F501E501F5F0E50945F0F509E58F +:101B60000FF5F0E50965F0F509E509F5F0E5005533 +:101B7000F0F500C3E50CF5F0E51595F0F509E50A7B +:101B8000F5F0E50A35F0F509E515F5F0E50C95F009 +:101B9000F501E50AF5F0E50A35F0F501E501F5F0A6 +:101BA000E50945F0F509E50FF5F0E50965F0F509FA +:101BB000E509F5F0E50055F0F500C3E50EF5F0E5B3 +:101BC0001695F0F509E50AF5F0E50A35F0F509E5B1 +:101BD00016F5F0E50E95F0F501E50AF5F0E50A35A4 +:101BE000F0F501E501F5F0E50945F0F509E50FF53A +:101BF000F0E50965F0F509E509F5F0E50055F0F5C2 +:101C000000C3E517F5F075E0042506F58275E000E0 +:101C10003507F583E0F508E50895F0F509E50AF5DF +:101C2000F0E50A35F0F509E509F5F0E50055F0F5C0 +:101C300000E500F5F0E50B45F0F50B750000E50B50 +:101C4000F5F0E50045F0F500E518F5F0E50045F0A4 +:101C5000F500E519F5F0E50045F0F500E51AF5F0B9 +:101C6000E50045F0F500E5007002800302368700CC +:101C7000751116751200751300751400751B21750A +:101C80001A00751900751800E511F51FE512F51E0B +:101C9000E513F51DE514F51C120639E582F502E59C +:101CA00083F503E500F504E501F505E502F517E523 +:101CB00003F50EE504F50CE505F50D750B0075183B +:101CC00000751900751A00750A00750F017500017D +:101CD000C3E50DF5F0E51095F0F509E50AF5F0E539 +:101CE0000A35F0F509E509F5F0E50055F0F500E5F0 +:101CF00000F5F0E50B45F0F50B750001C3E50DF5BA +:101D0000F0E51095F0F509E50AF5F0E50A35F0F58E +:101D100009E510F5F0E50D95F0F501E50AF5F0E5BA +:101D20000A35F0F501E501F5F0E50945F0F509E5BD +:101D30000FF5F0E50965F0F509E509F5F0E5005561 +:101D4000F0F500C3E50CF5F0E51595F0F509E50AA9 +:101D5000F5F0E50A35F0F509E509F5F0E50055F08F +:101D6000F500E500F5F0E50B45F0F50B750001C356 +:101D7000E50DF5F0E51095F0F509E50AF5F0E50A51 +:101D800035F0F509E510F5F0E50D95F0F501E50AFA +:101D9000F5F0E50A35F0F501E501F5F0E50945F066 +:101DA000F509E50FF5F0E50965F0F509E509F5F048 +:101DB000E50055F0F500C3E50CF5F0E51595F0F5F7 +:101DC00009E50AF5F0E50A35F0F509E515F5F0E560 +:101DD0000C95F0F501E50AF5F0E50A35F0F501E5B9 +:101DE00001F5F0E50945F0F509E50FF5F0E50965C0 +:101DF000F0F509E509F5F0E50055F0F500C3E50E4D +:101E0000F5F0E51695F0F509E50AF5F0E50A35F087 +:101E1000F509E509F5F0E50055F0F500E500F5F008 +:101E2000E50B45F0F50B750001C3E50DF5F0E51088 +:101E300095F0F509E50AF5F0E50A35F0F509E51044 +:101E4000F5F0E50D95F0F501E50AF5F0E50A35F058 +:101E5000F501E501F5F0E50945F0F509E50FF5F0C7 +:101E6000E50965F0F509E509F5F0E50055F0F5003F +:101E7000C3E50CF5F0E51595F0F509E50AF5F0E593 +:101E80000A35F0F509E515F5F0E50C95F0F501E5F5 +:101E90000AF5F0E50A35F0F501E501F5F0E509454B +:101EA000F0F509E50FF5F0E50965F0F509E509F547 +:101EB000F0E50055F0F500C3E50EF5F0E51695F0F8 +:101EC000F509E50AF5F0E50A35F0F509E516F5F04E +:101ED000E50E95F0F501E50AF5F0E50A35F0F501B6 +:101EE000E501F5F0E50945F0F509E50FF5F0E5093F +:101EF00065F0F509E509F5F0E50055F0F500C3E5F5 +:101F000017F5F075E0042506F58275E0003507F554 +:101F100083E0F508E50895F0F509E50AF5F0E50A2E +:101F200035F0F509E509F5F0E50055F0F500E500B7 +:101F3000F5F0E50B45F0F50B750000E50BF5F0E568 +:101F40000045F0F500E518F5F0E50045F0F500E591 +:101F500019F5F0E50045F0F500E51AF5F0E5004566 +:101F6000F0F500E50070028003023683007511165B +:101F700075120075130075140075082175E00825A9 +:101F800006F58275E0003507F583E508F075080071 +:101F900075E0072506F58275E0003507F583E5084D +:101FA000F075080075E0062506F58275E000350736 +:101FB000F583E508F075080075E0052506F58275DE +:101FC000E0003507F583E508F0E511F51FE512F5AA +:101FD0001EE513F51DE514F51C75E0082506F582D0 +:101FE00075E0003507F583E0F51B75E0072506F57C +:101FF0008275E0003507F583E0F51A75E0062506E1 +:10200000F58275E0003507F583E0F51975E00525E3 +:1020100006F58275E0003507F583E0F518120639FC +:10202000E582F502E583F503E500F504E501F50534 +:10203000E502F517E503F50EE504F50CE505F50DEC +:10204000750B00751800751900751A00750A007572 +:102050000F01750001C3E50DF5F0E51095F0F509E8 +:10206000E50AF5F0E50A35F0F509E509F5F0E500D2 +:1020700055F0F500E500F5F0E50B45F0F50B7500C2 +:1020800001C3E50DF5F0E51095F0F509E50AF5F069 +:10209000E50A35F0F509E510F5F0E50D95F0F501E7 +:1020A000E50AF5F0E50A35F0F501E501F5F0E50999 +:1020B00045F0F509E50FF5F0E50965F0F509E509E5 +:1020C000F5F0E50055F0F500C3E50CF5F0E51595E4 +:1020D000F0F509E50AF5F0E50A35F0F509E509F549 +:1020E000F0E50055F0F500E500F5F0E50B45F0F5FD +:1020F0000B750001C3E50DF5F0E51095F0F509E568 +:102100000AF5F0E50A35F0F509E510F5F0E50D956D +:10211000F0F501E50AF5F0E50A35F0F501E501F520 +:10212000F0E50945F0F509E50FF5F0E50965F0F58D +:1021300009E509F5F0E50055F0F500C3E50CF5F00B +:10214000E51595F0F509E50AF5F0E50A35F0F5092C +:10215000E515F5F0E50C95F0F501E50AF5F0E50A71 +:1021600035F0F501E501F5F0E50945F0F509E50F74 +:10217000F5F0E50965F0F509E509F5F0E50055F03C +:10218000F500C3E50EF5F0E51695F0F509E50AF55D +:10219000F0E50A35F0F509E509F5F0E50055F0F54B +:1021A00000E500F5F0E50B45F0F50B750001C3E522 +:1021B0000DF5F0E51095F0F509E50AF5F0E50A35BD +:1021C000F0F509E510F5F0E50D95F0F501E50AF5F6 +:1021D000F0E50A35F0F501E501F5F0E50945F0F522 +:1021E00009E50FF5F0E50965F0F509E509F5F0E514 +:1021F0000055F0F500C3E50CF5F0E51595F0F5098F +:10220000E50AF5F0E50A35F0F509E515F5F0E50C18 +:1022100095F0F501E50AF5F0E50A35F0F501E5017F +:10222000F5F0E50945F0F509E50FF5F0E50965F08C +:10223000F509E509F5F0E50055F0F500C3E50EF503 +:10224000F0E51695F0F509E50AF5F0E50A35F0F543 +:1022500009E516F5F0E50E95F0F501E50AF5F0E56E +:102260000A35F0F501E501F5F0E50945F0F509E578 +:102270000FF5F0E50965F0F509E509F5F0E500551C +:10228000F0F500C3E517F5F075E0042506F5827555 +:10229000E0003507F583E0F508E50895F0F509E578 +:1022A0000AF5F0E50A35F0F509E509F5F0E5005520 +:1022B000F0F500E500F5F0E50B45F0F50B750000D5 +:1022C000E50BF5F0E50045F0F500E518F5F0E50063 +:1022D00045F0F500E519F5F0E50045F0F500E51AE3 +:1022E000F5F0E50045F0F500E500700280030236E8 +:1022F0007F00750000750100750901750A00C3E5CE +:1023000000F5F0E51155F0F500E501F5F0E51255A1 +:10231000F0F501E509F5F0E51355F0F509E50AF5E5 +:10232000F0E51455F0F50B750A00E500F5F0E50A47 +:1023300045F0F50AE501F5F0E50A45F0F50AE5098D +:10234000F5F0E50A45F0F50AE50BF5F0E50A45F08C +:10235000F50AE50A7002800302366F00751F4075AA +:102360001E00751D00751C007500007501007509C3 +:1023700001750B00C3E500F5F075E0082506F58250 +:1023800075E0003507F583E0F508E50855F0F50C34 +:10239000E501F5F075E0072506F58275E0003507E3 +:1023A000F583E0F508E50855F0F50AE509F5F0755F +:1023B000E0062506F58275E0003507F583E0F508AF +:1023C000E50855F0F501E50BF5F075E0052506F596 +:1023D0008275E0003507F583E0F508E50855F0F56E +:1023E00009750000E50CF5F0E50045F0F500E50A9B +:1023F000F5F0E50045F0F500E501F5F0E50045F004 +:10240000F500E509F5F0E50045F0F500E50070029E +:10241000800302365F00751B04751A00751900757C +:102420001800120639E582F502E583F503E500F5AB +:1024300004E501F505E502F517E503F50EE504F5FC +:102440000CE505F50D750B00751800751900751A6A +:1024500000750A00750F01750001C3E50DF5F0E583 +:102460001095F0F509E50AF5F0E50A35F0F509E50E +:1024700009F5F0E50055F0F500E500F5F0E50B4550 +:10248000F0F50B750001C3E50DF5F0E51095F0F5DD +:1024900009E50AF5F0E50A35F0F509E510F5F0E58E +:1024A0000D95F0F501E50AF5F0E50A35F0F501E5E1 +:1024B00001F5F0E50945F0F509E50FF5F0E50965E9 +:1024C000F0F509E509F5F0E50055F0F500C3E50C78 +:1024D000F5F0E51595F0F509E50AF5F0E50A35F0B2 +:1024E000F509E509F5F0E50055F0F500E500F5F032 +:1024F000E50B45F0F50B750001C3E50DF5F0E510B2 +:1025000095F0F509E50AF5F0E50A35F0F509E5106D +:10251000F5F0E50D95F0F501E50AF5F0E50A35F081 +:10252000F501E501F5F0E50945F0F509E50FF5F0F0 +:10253000E50965F0F509E509F5F0E50055F0F50068 +:10254000C3E50CF5F0E51595F0F509E50AF5F0E5BC +:102550000A35F0F509E515F5F0E50C95F0F501E51E +:102560000AF5F0E50A35F0F501E501F5F0E5094574 +:10257000F0F509E50FF5F0E50965F0F509E509F570 +:10258000F0E50055F0F500C3E50EF5F0E51695F021 +:10259000F509E50AF5F0E50A35F0F509E509F5F084 +:1025A000E50055F0F500E500F5F0E50B45F0F50B1D +:1025B000750001C3E50DF5F0E51095F0F509E50AA4 +:1025C000F5F0E50A35F0F509E510F5F0E50D95F0C3 +:1025D000F501E50AF5F0E50A35F0F501E501F5F05C +:1025E000E50945F0F509E50FF5F0E50965F0F509B0 +:1025F000E509F5F0E50055F0F500C3E50CF5F0E56B +:102600001595F0F509E50AF5F0E50A35F0F509E567 +:1026100015F5F0E50C95F0F501E50AF5F0E50A355C +:10262000F0F501E501F5F0E50945F0F509E50FF5EF +:10263000F0E50965F0F509E509F5F0E50055F0F577 +:1026400000C3E50EF5F0E51695F0F509E50AF5F09D +:10265000E50A35F0F509E516F5F0E50E95F0F5011A +:10266000E50AF5F0E50A35F0F501E501F5F0E509D3 +:1026700045F0F509E50FF5F0E50965F0F509E5091F +:10268000F5F0E50055F0F500C3E517F5F075E00449 +:102690002506F58275E0003507F583E0F508E508C5 +:1026A00095F0F509E50AF5F0E50A35F0F509E509D3 +:1026B000F5F0E50055F0F500E500F5F0E50B45F027 +:1026C000F50B750000E50BF5F0E50045F0F500E5CC +:1026D00018F5F0E50045F0F500E519F5F0E50045E1 +:1026E000F0F500E51AF5F0E50045F0F500E50070BD +:1026F00002800302365B00750A1675090075010039 +:10270000750000E50AF4F511E509F4F512E501F4A8 +:10271000F513E500F4F514D3750000E500F5F0E5D8 +:102720001135F0F511E500F5F0E51235F0F512E59B +:1027300000F5F0E51335F0F513E500F5F0E5143597 +:10274000F0F514751B21751A00751900751800E550 +:1027500011F51FE512F51EE513F51DE514F51C1224 +:102760001277E582F502E583F503E500F504E5015E +:10277000F505E502F517E503F50EE504F50CE505AD +:10278000F50D750B00751800751900751A00750A9E +:1027900000750F01750001C3E50DF5F0E51095F02A +:1027A000F509E50AF5F0E50A35F0F509E509F5F072 +:1027B000E50055F0F500E500F5F0E50B45F0F50B0B +:1027C000750001C3E50DF5F0E51095F0F509E50A92 +:1027D000F5F0E50A35F0F509E510F5F0E50D95F0B1 +:1027E000F501E50AF5F0E50A35F0F501E501F5F04A +:1027F000E50945F0F509E50FF5F0E50965F0F5099E +:10280000E509F5F0E50055F0F500C3E50CF5F0E558 +:102810001595F0F509E50AF5F0E50A35F0F509E555 +:1028200009F5F0E50055F0F500E500F5F0E50B459C +:10283000F0F50B750001C3E50DF5F0E51095F0F529 +:1028400009E50AF5F0E50A35F0F509E510F5F0E5DA +:102850000D95F0F501E50AF5F0E50A35F0F501E52D +:1028600001F5F0E50945F0F509E50FF5F0E5096535 +:10287000F0F509E509F5F0E50055F0F500C3E50CC4 +:10288000F5F0E51595F0F509E50AF5F0E50A35F0FE +:10289000F509E515F5F0E50C95F0F501E50AF5F01B +:1028A000E50A35F0F501E501F5F0E50945F0F50932 +:1028B000E50FF5F0E50965F0F509E509F5F0E50046 +:1028C00055F0F500C3E50EF5F0E51695F0F509E5D0 +:1028D0000AF5F0E50A35F0F509E509F5F0E50055EA +:1028E000F0F500E500F5F0E50B45F0F50B7500019E +:1028F000C3E50DF5F0E51095F0F509E50AF5F0E50D +:102900000A35F0F509E510F5F0E50D95F0F501E56E +:102910000AF5F0E50A35F0F501E501F5F0E50945C0 +:10292000F0F509E50FF5F0E50965F0F509E509F5BC +:10293000F0E50055F0F500C3E50CF5F0E51595F070 +:10294000F509E50AF5F0E50A35F0F509E515F5F0C4 +:10295000E50C95F0F501E50AF5F0E50A35F0F5012D +:10296000E501F5F0E50945F0F509E50FF5F0E509B4 +:1029700065F0F509E509F5F0E50055F0F500C3E56A +:102980000EF5F0E51695F0F509E50AF5F0E50A35DE +:10299000F0F509E516F5F0E50E95F0F501E50AF517 +:1029A000F0E50A35F0F501E501F5F0E50945F0F54A +:1029B00009E50FF5F0E50965F0F509E509F5F0E53C +:1029C0000055F0F500C3E517F5F075E0042506F5B0 +:1029D0008275E0003507F583E0F508E50895F0F528 +:1029E00009E50AF5F0E50A35F0F509E509F5F0E540 +:1029F0000055F0F500E500F5F0E50B45F0F50B7539 +:102A00000000E50BF5F0E50045F0F500E518F5F000 +:102A1000E50045F0F500E519F5F0E50045F0F500B5 +:102A2000E51AF5F0E50045F0F500E50070028003D9 +:102A300002365700751116751200751300751400D3 +:102A4000750A21750900750100750000E50AF4F5A5 +:102A50001BE509F4F51AE501F4F519E500F4F5189C +:102A6000D3750000E500F5F0E51B35F0F51BE5003A +:102A7000F5F0E51A35F0F51AE500F5F0E51935F051 +:102A8000F519E500F5F0E51835F0F518E511F51F35 +:102A9000E512F51EE513F51DE514F51C121277E598 +:102AA00082F502E583F503E500F504E501F505E5AA +:102AB00002F517E503F50EE504F50CE505F50D75D2 +:102AC0000B00751800751900751A00750A00750F4E +:102AD00001750001C3E50DF5F0E51095F0F509E588 +:102AE0000AF5F0E50A35F0F509E509F5F0E50055D8 +:102AF000F0F500E500F5F0E50B45F0F50B7500018C +:102B0000C3E50DF5F0E51095F0F509E50AF5F0E5FA +:102B10000A35F0F509E510F5F0E50D95F0F501E55C +:102B20000AF5F0E50A35F0F501E501F5F0E50945AE +:102B3000F0F509E50FF5F0E50965F0F509E509F5AA +:102B4000F0E50055F0F500C3E50CF5F0E51595F05E +:102B5000F509E50AF5F0E50A35F0F509E509F5F0BE +:102B6000E50055F0F500E500F5F0E50B45F0F50B57 +:102B7000750001C3E50DF5F0E51095F0F509E50ADE +:102B8000F5F0E50A35F0F509E510F5F0E50D95F0FD +:102B9000F501E50AF5F0E50A35F0F501E501F5F096 +:102BA000E50945F0F509E50FF5F0E50965F0F509EA +:102BB000E509F5F0E50055F0F500C3E50CF5F0E5A5 +:102BC0001595F0F509E50AF5F0E50A35F0F509E5A2 +:102BD00015F5F0E50C95F0F501E50AF5F0E50A3597 +:102BE000F0F501E501F5F0E50945F0F509E50FF52A +:102BF000F0E50965F0F509E509F5F0E50055F0F5B2 +:102C000000C3E50EF5F0E51695F0F509E50AF5F0D7 +:102C1000E50A35F0F509E509F5F0E50055F0F500B0 +:102C2000E500F5F0E50B45F0F50B750001C3E50D8A +:102C3000F5F0E51095F0F509E50AF5F0E50A35F04F +:102C4000F509E510F5F0E50D95F0F501E50AF5F06B +:102C5000E50A35F0F501E501F5F0E50945F0F5097E +:102C6000E50FF5F0E50965F0F509E509F5F0E50092 +:102C700055F0F500C3E50CF5F0E51595F0F509E51F +:102C80000AF5F0E50A35F0F509E515F5F0E50C95DE +:102C9000F0F501E50AF5F0E50A35F0F501E501F595 +:102CA000F0E50945F0F509E50FF5F0E50965F0F502 +:102CB00009E509F5F0E50055F0F500C3E50EF5F07E +:102CC000E51695F0F509E50AF5F0E50A35F0F509A0 +:102CD000E516F5F0E50E95F0F501E50AF5F0E50AE3 +:102CE00035F0F501E501F5F0E50945F0F509E50FE9 +:102CF000F5F0E50965F0F509E509F5F0E50055F0B1 +:102D0000F500C3E517F5F075E0042506F58275E0DA +:102D1000003507F583E0F508E50895F0F509E50AC3 +:102D2000F5F0E50A35F0F509E509F5F0E50055F0AF +:102D3000F500E500F5F0E50B45F0F50B750000E555 +:102D40000BF5F0E50045F0F500E518F5F0E5004578 +:102D5000F0F500E519F5F0E50045F0F500E51AF5A8 +:102D6000F0E50045F0F500E50070028003023653FF +:102D70000075E0082506F58275E0003507F583E06B +:102D8000F50075E0072506F58275E0003507F58347 +:102D9000E0F50175E0062506F58275E0003507F5DA +:102DA00083E0F50975E0052506F58275E000350735 +:102DB000F583E0F50A751F00C3E500F5F0E5119510 +:102DC000F0F500E500F5F0E51F45F0F51FC3E5015E +:102DD000F5F0E51295F0F500E500F5F0E51F45F09A +:102DE000F51FC3E509F5F0E51395F0F500E500F5ED +:102DF000F0E51F45F0F51FC3E50AF5F0E51495F081 +:102E0000F500E500F5F0E51F45F0F51F751E0075AE +:102E10001D00751C00E51FF500751F01C37501003D +:102E2000E500F5F0E50195F0F501750100E501F526 +:102E3000F0E50135F0F501E501F5F0E51F65F0F588 +:102E40001FC3750100E51EF5F0E50195F0F501756C +:102E50000100E501F5F0E50135F0F501E501F5F0DA +:102E6000E51F65F0F51FC3750100E51DF5F0E501EF +:102E700095F0F501750100E501F5F0E50135F0F596 +:102E800001E501F5F0E51F65F0F51FC3750100E5EB +:102E90001CF5F0E50195F0F501750100E501F5F08F +:102EA000E50135F0F501E501F5F0E51F65F0F51FE9 +:102EB000751E00751D00751C0075092175010075D2 +:102EC0000000750A00E509F4F51BE501F4F501E5DC +:102ED00000F4F509E50AF4F50AD3750000E500F5FC +:102EE000F0E51B35F0F51BE500F5F0E50135F0F5F3 +:102EF00001E500F5F0E50935F0F509E500F5F0E547 +:102F00000A35F0F50AE501F51AE509F519E50AF5BE +:102F100018121277E582F502E583F503E500F50462 +:102F2000E501F505E502F517E503F50EE504F50CF9 +:102F3000E505F50D750B00751800751900751A007B +:102F4000750A00750F01750001C3E50DF5F0E51078 +:102F500095F0F509E50AF5F0E50A35F0F509E5091A +:102F6000F5F0E50055F0F500E500F5F0E50B45F06E +:102F7000F50B750001C3E50DF5F0E51095F0F509C9 +:102F8000E50AF5F0E50A35F0F509E510F5F0E50D8F +:102F900095F0F501E50AF5F0E50A35F0F501E501F2 +:102FA000F5F0E50945F0F509E50FF5F0E50965F0FF +:102FB000F509E509F5F0E50055F0F500C3E50CF578 +:102FC000F0E51595F0F509E50AF5F0E50A35F0F5B7 +:102FD00009E509F5F0E50055F0F500E500F5F0E547 +:102FE0000B45F0F50B750001C3E50DF5F0E5109507 +:102FF000F0F509E50AF5F0E50A35F0F509E510F513 +:10300000F0E50D95F0F501E50AF5F0E50A35F0F586 +:1030100001E501F5F0E50945F0F509E50FF5F0E505 +:103020000965F0F509E509F5F0E50055F0F500C38F +:10303000E50CF5F0E51595F0F509E50AF5F0E50A7A +:1030400035F0F509E515F5F0E50C95F0F501E50A23 +:10305000F5F0E50A35F0F501E501F5F0E50945F093 +:10306000F509E50FF5F0E50965F0F509E509F5F075 +:10307000E50055F0F500C3E50EF5F0E51695F0F521 +:1030800009E50AF5F0E50A35F0F509E509F5F0E599 +:103090000055F0F500E500F5F0E50B45F0F50B7592 +:1030A0000001C3E50DF5F0E51095F0F509E50AF529 +:1030B000F0E50A35F0F509E510F5F0E50D95F0F5C8 +:1030C00001E50AF5F0E50A35F0F501E501F5F0E571 +:1030D0000945F0F509E50FF5F0E50965F0F509E5B5 +:1030E00009F5F0E50055F0F500C3E50CF5F0E51540 +:1030F00095F0F509E50AF5F0E50A35F0F509E5156D +:10310000F5F0E50C95F0F501E50AF5F0E50A35F086 +:10311000F501E501F5F0E50945F0F509E50FF5F0F4 +:10312000E50965F0F509E509F5F0E50055F0F5006C +:10313000C3E50EF5F0E51695F0F509E50AF5F0E5BD +:103140000A35F0F509E516F5F0E50E95F0F501E51F +:103150000AF5F0E50A35F0F501E501F5F0E5094578 +:10316000F0F509E50FF5F0E50965F0F509E509F574 +:10317000F0E50055F0F500C3E517F5F075E004251E +:1031800006F58275E0003507F583E0F508E508955A +:10319000F0F509E50AF5F0E50A35F0F509E509F578 +:1031A000F0E50055F0F500E500F5F0E50B45F0F52C +:1031B0000B750000E50BF5F0E50045F0F500E518AE +:1031C000F5F0E50045F0F500E519F5F0E50045F00E +:1031D000F500E51AF5F0E50045F0F500E5007002B0 +:1031E000800302364F0075111675120075130075B5 +:1031F0001400751B21751A00751900751800E5116A +:10320000F51FE512F51EE513F51DE514F51C120674 +:1032100039E582F502E583F503E500F504E501F5FE +:1032200005E502F51FE503F51EE504F51DE505F5C9 +:103230001C750921750100750000750A00E509F487 +:10324000F51BE501F4F501E500F4F509E50AF4F5EF +:103250000AD3750000E500F5F0E51B35F0F51BE538 +:1032600000F5F0E50135F0F501E500F5F0E509358B +:10327000F0F509E500F5F0E50A35F0F50AE501F5A8 +:103280001AE509F519E50AF518121277E582F50233 +:10329000E583F503E500F504E501F505E502F5171D +:1032A000E503F50EE504F50CE505F50D750B007568 +:1032B0001800751900751A00750A00750F01750060 +:1032C00001C3E50DF5F0E51095F0F509E50AF5F017 +:1032D000E50A35F0F509E509F5F0E50055F0F500EA +:1032E000E500F5F0E50B45F0F50B750001C3E50DC4 +:1032F000F5F0E51095F0F509E50AF5F0E50A35F089 +:10330000F509E510F5F0E50D95F0F501E50AF5F0A4 +:10331000E50A35F0F501E501F5F0E50945F0F509B7 +:10332000E50FF5F0E50965F0F509E509F5F0E500CB +:1033300055F0F500C3E50CF5F0E51595F0F509E558 +:103340000AF5F0E50A35F0F509E509F5F0E500556F +:10335000F0F500E500F5F0E50B45F0F50B75000123 +:10336000C3E50DF5F0E51095F0F509E50AF5F0E592 +:103370000A35F0F509E510F5F0E50D95F0F501E5F4 +:103380000AF5F0E50A35F0F501E501F5F0E5094546 +:10339000F0F509E50FF5F0E50965F0F509E509F542 +:1033A000F0E50055F0F500C3E50CF5F0E51595F0F6 +:1033B000F509E50AF5F0E50A35F0F509E515F5F04A +:1033C000E50C95F0F501E50AF5F0E50A35F0F501B3 +:1033D000E501F5F0E50945F0F509E50FF5F0E5093A +:1033E00065F0F509E509F5F0E50055F0F500C3E5F0 +:1033F0000EF5F0E51695F0F509E50AF5F0E50A3564 +:10340000F0F509E509F5F0E50055F0F500E500F502 +:10341000F0E50B45F0F50B750001C3E50DF5F0E5A2 +:103420001095F0F509E50AF5F0E50A35F0F509E53E +:1034300010F5F0E50D95F0F501E50AF5F0E50A3532 +:10344000F0F501E501F5F0E50945F0F509E50FF5C1 +:10345000F0E50965F0F509E509F5F0E50055F0F549 +:1034600000C3E50CF5F0E51595F0F509E50AF5F072 +:10347000E50A35F0F509E515F5F0E50C95F0F501EF +:10348000E50AF5F0E50A35F0F501E501F5F0E509A5 +:1034900045F0F509E50FF5F0E50965F0F509E509F1 +:1034A000F5F0E50055F0F500C3E50EF5F0E51695ED +:1034B000F0F509E50AF5F0E50A35F0F509E516F548 +:1034C000F0E50E95F0F501E50AF5F0E50A35F0F5C1 +:1034D00001E501F5F0E50945F0F509E50FF5F0E541 +:1034E0000965F0F509E509F5F0E50055F0F500C3CB +:1034F000E517F5F075E0042506F58275E00035075F +:10350000F583E0F508E50895F0F509E50AF5F0E53D +:103510000A35F0F509E509F5F0E50055F0F500E5A7 +:1035200000F5F0E50B45F0F50B750000E50BF5F047 +:10353000E50045F0F500E518F5F0E50045F0F5008B +:10354000E519F5F0E50045F0F500E51AF5F0E500C0 +:1035500045F0F500E5007002800302364B0075115E +:1035600000751200751300751400E511F502E512DF +:10357000F503E513F504E514F50575E0122506F5E8 +:103580008275E0003507F583E0F51775E011250633 +:10359000F58275E0003507F583E0F51675E0102536 +:1035A00006F58275E0003507F583E0F51575E00F47 +:1035B0002506F58275E0003507F583E0F51475E022 +:1035C0000E2506F58275E0003507F583E0F51375E5 +:1035D000E00D2506F58275E0003507F583E0F5126C +:1035E00075E00C2506F58275E0003507F583E0F5FA +:1035F0001175E00B2506F58275E0003507F583E0CF +:10360000F51075E0092506F58275E0003507F583AC +:10361000E0F508E508C0E075E00A2506F58275E0EA +:10362000003507F583E0F508E508C0E075E01F25E3 +:1036300006F50675E0003507F507E502F582E503B6 +:10364000F583E504F500E505F501220002356A0081 +:1036500002356A0002356A0002356A0002356A00E6 +:10366000751B08751A0075190075180002242200D0 +:10367000751F80751E00751D00751C0002236800F3 +:1036800002356A0002356A0002356A000000000057 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/compare5.s.expected b/tests/GCCTestSuite/compare5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/compare5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/compare6.c b/tests/GCCTestSuite/compare6.c new file mode 100644 index 0000000..fbeb6a0 --- /dev/null +++ b/tests/GCCTestSuite/compare6.c @@ -0,0 +1,13 @@ +/* PR c/2098 */ +/* Test for a warning on comparison on out-of-range data. */ +/* { dg-do compile { xfail c4x-*-* } } */ +/* { dg-options "-Wall" } */ + +signed char sc; +unsigned char uc; + +void foo() +{ + if (sc == 10000) return; /* { dg-warning "always false" "signed" } */ + if (uc == 10000) return; /* { dg-warning "always false" "unsigned" } */ +} diff --git a/tests/GCCTestSuite/compare6.c.expected b/tests/GCCTestSuite/compare6.c.expected new file mode 100644 index 0000000..fbeb6a0 --- /dev/null +++ b/tests/GCCTestSuite/compare6.c.expected @@ -0,0 +1,13 @@ +/* PR c/2098 */ +/* Test for a warning on comparison on out-of-range data. */ +/* { dg-do compile { xfail c4x-*-* } } */ +/* { dg-options "-Wall" } */ + +signed char sc; +unsigned char uc; + +void foo() +{ + if (sc == 10000) return; /* { dg-warning "always false" "signed" } */ + if (uc == 10000) return; /* { dg-warning "always false" "unsigned" } */ +} diff --git a/tests/GCCTestSuite/compare6.hex.expected b/tests/GCCTestSuite/compare6.hex.expected new file mode 100644 index 0000000..25941e3 --- /dev/null +++ b/tests/GCCTestSuite/compare6.hex.expected @@ -0,0 +1,56 @@ +:1000000000D0E0F518D0E0F519900000E582F50980 +:10001000900000E583F50A750100C3750000E50155 +:10002000F5F0E50935F0F501E500F5F0E50A35F004 +:10003000F500E500F502E501F582E502F583E0F55E +:100040000B750080E50BF5F0E50055F0F50EE500C9 +:10005000F5F0E50E84F50E7500FFE500F5F0E50E10 +:10006000A4F50EE50EF50CE50EF50D750010750105 +:1000700027750900750A00750F00C3E500F5F0E566 +:100080000B95F0F500E500F5F0E50F45F0F50FC331 +:10009000E501F5F0E50C95F0F500E500F5F0E50F6C +:1000A00045F0F50FC3E509F5F0E50D95F0F500E530 +:1000B00000F5F0E50F45F0F50FC3E50AF5F0E50EA4 +:1000C00095F0F500E500F5F0E50F45F0F50F750149 +:1000D00000750900750A00E50FF500750F01C3757D +:1000E0000B00E500F5F0E50B95F0F50B750B00E561 +:1000F0000BF5F0E50B35F0F50BE50BF5F0E50F65CD +:10010000F0F50FC3750B00E501F5F0E50B95F0F583 +:100110000B750B00E50BF5F0E50B35F0F50BE50B7A +:10012000F5F0E50F65F0F50FC3750B00E509F5F087 +:10013000E50B95F0F50B750B00E50BF5F0E50B35D0 +:10014000F0F50BE50BF5F0E50F65F0F50FC3750B5A +:1001500000E50AF5F0E50B95F0F50B750B00E50BE6 +:10016000F5F0E50B35F0F50BE50BF5F0E50F65F077 +:10017000F50F750100750900750A00750000E50F9F +:10018000F5F0E50045F0F500E501F5F0E50045F096 +:10019000F500E509F5F0E50045F0F500E50AF5F0B4 +:1001A000E50045F0F500E5007002800302036800F9 +:1001B000900001E582F509900001E583F50A7501DB +:1001C00000C3750000E501F5F0E50935F0F501E53E +:1001D00000F5F0E50A35F0F500E500F502E501F57A +:1001E00082E502F583E0F50B750E00E50EF50CE5F2 +:1001F0000EF50D750010750127750900750A00755B +:100200000F00C3E500F5F0E50B95F0F500E500F50E +:10021000F0E50F45F0F50FC3E501F5F0E50C95F0BD +:10022000F500E500F5F0E50F45F0F50FC3E509F53C +:10023000F0E50D95F0F500E500F5F0E50F45F0F57A +:100240000FC3E50AF5F0E50E95F0F500E500F5F0D1 +:10025000E50F45F0F50F750100750900750A00E519 +:100260000FF500750F01C3750B00E500F5F0E50B08 +:1002700095F0F50B750B00E50BF5F0E50B35F0F59A +:100280000BE50BF5F0E50F65F0F50FC3750B00E519 +:1002900001F5F0E50B95F0F50B750B00E50BF5F0AE +:1002A000E50B35F0F50BE50BF5F0E50F65F0F50F17 +:1002B000C3750B00E509F5F0E50B95F0F50B750B33 +:1002C00000E50BF5F0E50B35F0F50BE50BF5F0E58A +:1002D0000F65F0F50FC3750B00E50AF5F0E50B951A +:1002E000F0F50B750B00E50BF5F0E50B35F0F50BB4 +:1002F000E50BF5F0E50F65F0F50F750100750900E8 +:10030000750A00750000E50FF5F0E50045F0F50011 +:10031000E501F5F0E50045F0F500E509F5F0E5004B +:1003200045F0F500E50AF5F0E50045F0F500E500DB +:100330007002800302036400750000E500F502E529 +:1003400000F503E500F504E500F505E519C0E0E575 +:1003500018C0E0E502F582E503F583E504F500E564 +:1003600005F50122000203380002033800000000F6 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/compare6.s.expected b/tests/GCCTestSuite/compare6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/compare6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/compare7.c b/tests/GCCTestSuite/compare7.c new file mode 100644 index 0000000..e2fbc04 --- /dev/null +++ b/tests/GCCTestSuite/compare7.c @@ -0,0 +1,10 @@ +/* -Wall is not supposed to trigger -Wsign-compare for C. PR 10604. + See also g++.dg/warn/compare1.C. */ + +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +int f(unsigned a, int b) +{ + return a < b; /* { dg-bogus "signed and unsigned" } */ +} diff --git a/tests/GCCTestSuite/compare7.c.expected b/tests/GCCTestSuite/compare7.c.expected new file mode 100644 index 0000000..e2fbc04 --- /dev/null +++ b/tests/GCCTestSuite/compare7.c.expected @@ -0,0 +1,10 @@ +/* -Wall is not supposed to trigger -Wsign-compare for C. PR 10604. + See also g++.dg/warn/compare1.C. */ + +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +int f(unsigned a, int b) +{ + return a < b; /* { dg-bogus "signed and unsigned" } */ +} diff --git a/tests/GCCTestSuite/compare7.hex.expected b/tests/GCCTestSuite/compare7.hex.expected new file mode 100644 index 0000000..342978d --- /dev/null +++ b/tests/GCCTestSuite/compare7.hex.expected @@ -0,0 +1,62 @@ +:1000000000E50675820FC39582F506E50775830046 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000062506F58275E0003507F583E514F075A1 +:10005000E0052506F58275E0003507F583E513F028 +:1000600075E0042506F58275E0003507F583E51295 +:10007000F075E0032506F58275E0003507F583E5A8 +:1000800011F075E0022506F58275E0003507F5836D +:10009000E510F0E51FF514E51EF512E51BF500E58A +:1000A0001AF501E519F509E500F513E501F511E586 +:1000B00009F510750C00750D00750E00750F0075B3 +:1000C0000B00750A01750001C3E518F5F0E51C95F4 +:1000D000F0F509E50BF5F0E50B35F0F509E509F567 +:1000E000F0E50055F0F500E500F5F0E50C45F0F51C +:1000F0000C750001C3E518F5F0E51C95F0F509E570 +:100100000BF5F0E50B35F0F509E51CF5F0E5189574 +:10011000F0F501E50BF5F0E50B35F0F501E501F53E +:10012000F0E50945F0F509E50AF5F0E50965F0F5B2 +:1001300009E509F5F0E50055F0F500C3E510F5F027 +:10014000E51D95F0F509E50BF5F0E50B35F0F50942 +:10015000E509F5F0E50055F0F500E500F5F0E50CF2 +:1001600045F0F50C750001C3E518F5F0E51C95F0B8 +:10017000F509E50BF5F0E50B35F0F509E51CF5F0B3 +:10018000E51895F0F501E50BF5F0E50B35F0F50117 +:10019000E501F5F0E50945F0F509E50AF5F0E509B1 +:1001A00065F0F509E509F5F0E50055F0F500C3E562 +:1001B00010F5F0E51D95F0F509E50BF5F0E50B35CB +:1001C000F0F509E51DF5F0E51095F0F501E50BF505 +:1001D000F0E50B35F0F501E501F5F0E50945F0F541 +:1001E00009E50AF5F0E50965F0F509E509F5F0E539 +:1001F0000055F0F500C3E511F5F0E51295F0F509AD +:10020000E50BF5F0E50B35F0F509E509F5F0E5004E +:1002100055F0F500E500F5F0E50C45F0F50C75003E +:1002200001C3E518F5F0E51C95F0F509E50BF5F0CF +:10023000E50B35F0F509E51CF5F0E51895F0F5014D +:10024000E50BF5F0E50B35F0F501E501F5F0E50915 +:1002500045F0F509E50AF5F0E50965F0F509E50968 +:10026000F5F0E50055F0F500C3E510F5F0E51D9556 +:10027000F0F509E50BF5F0E50B35F0F509E51DF5B1 +:10028000F0E51095F0F501E50BF5F0E50B35F0F52F +:1002900001E501F5F0E50945F0F509E50AF5F0E5B8 +:1002A0000965F0F509E509F5F0E50055F0F500C33D +:1002B000E511F5F0E51295F0F509E50BF5F0E50B24 +:1002C00035F0F509E512F5F0E51195F0F501E50BCE +:1002D000F5F0E50B35F0F501E501F5F0E50945F040 +:1002E000F509E50AF5F0E50965F0F509E509F5F028 +:1002F000E50055F0F500C3E513F5F0E51495F0F5CC +:1003000009E50BF5F0E50B35F0F509E509F5F0E544 +:100310000055F0F500E500F5F0E50C45F0F50CE5CD +:100320000CF502E50DF503E50EF504E50FF5057591 +:10033000E0062506F58275E0003507F583E0F51443 +:1003400075E0052506F58275E0003507F583E0F5D3 +:100350001375E0042506F58275E0003507F583E0A6 +:10036000F51275E0032506F58275E0003507F58383 +:10037000E0F51175E0022506F58275E0003507F518 +:1003800083E0F51075E0002506F58275E00035077D +:10039000F583E0F508E508C0E075E0012506F58283 +:1003A00075E0003507F583E0F508E508C0E075E085 +:1003B0000F2506F50675E0003507F507E502F5821D +:1003C000E503F583E504F500E505F50122000000ED +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/compare7.s.expected b/tests/GCCTestSuite/compare7.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/compare7.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/compare8.c b/tests/GCCTestSuite/compare8.c new file mode 100644 index 0000000..d723c45 --- /dev/null +++ b/tests/GCCTestSuite/compare8.c @@ -0,0 +1,21 @@ +/* { dg-do compile } */ +/* { dg-options "-Wsign-compare" } */ + +int +f(unsigned short a1, unsigned short a2, unsigned int b) +{ + return ((a1+a2)|5) > b ? 2 : 3; /* { dg-bogus "signed and unsigned" } */ +} + +int +g(unsigned short a1, unsigned short a2, unsigned int b) +{ + return ((a1+a2)&5) > b ? 2 : 3; /* { dg-bogus "signed and unsigned" } */ +} + +int +h(unsigned short a1, unsigned short a2, unsigned int b) +{ + return ((a1+a2)^5) > b ? 2 : 3; /* { dg-bogus "signed and unsigned" } */ +} + diff --git a/tests/GCCTestSuite/compare8.c.expected b/tests/GCCTestSuite/compare8.c.expected new file mode 100644 index 0000000..d723c45 --- /dev/null +++ b/tests/GCCTestSuite/compare8.c.expected @@ -0,0 +1,21 @@ +/* { dg-do compile } */ +/* { dg-options "-Wsign-compare" } */ + +int +f(unsigned short a1, unsigned short a2, unsigned int b) +{ + return ((a1+a2)|5) > b ? 2 : 3; /* { dg-bogus "signed and unsigned" } */ +} + +int +g(unsigned short a1, unsigned short a2, unsigned int b) +{ + return ((a1+a2)&5) > b ? 2 : 3; /* { dg-bogus "signed and unsigned" } */ +} + +int +h(unsigned short a1, unsigned short a2, unsigned int b) +{ + return ((a1+a2)^5) > b ? 2 : 3; /* { dg-bogus "signed and unsigned" } */ +} + diff --git a/tests/GCCTestSuite/compare8.hex.expected b/tests/GCCTestSuite/compare8.hex.expected new file mode 100644 index 0000000..160800b --- /dev/null +++ b/tests/GCCTestSuite/compare8.hex.expected @@ -0,0 +1,228 @@ +:1000000000E506758210C39582F506E50775830045 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000072506F58275E0003507F583E515F0759F +:10005000E0062506F58275E0003507F583E514F026 +:1000600075E0052506F58275E0003507F583E51393 +:10007000F075E0042506F58275E0003507F583E5A7 +:1000800012F075E0032506F58275E0003507F5836B +:10009000E511F075E0022506F58275E0003507F5FB +:1000A00083E510F0E51FF500E51EF501E51DF509F6 +:1000B000E51CF50AE51BF515E51AF513750C00E5C9 +:1000C0000CF50B750F00E50FF50EC3750D00E50976 +:1000D000F5F0E50035F0F500E50AF5F0E50135F05D +:1000E000F501E50EF5F0E50B35F0F509E50FF5F056 +:1000F000E50C35F0F50E750A05750B00750C0075ED +:100100000D00C3E50AF5F0E50045F0F500E50BF557 +:10011000F0E50145F0F501E50CF5F0E50945F0F5F0 +:1001200009E50DF5F0E50E45F0F50AE500F514E5F5 +:1001300001F512E509F510E50AF511750C00750DCC +:1001400000750E00750F00750B00750A0175000132 +:10015000C3E511F5F0E51895F0F509E50BF5F0E5C7 +:100160000B35F0F509E509F5F0E50055F0F500E58A +:1001700000F5F0E50C45F0F50C750001C3E511F54F +:10018000F0E51895F0F509E50BF5F0E50B35F0F520 +:1001900009E518F5F0E51195F0F501E50BF5F0E549 +:1001A0000B35F0F501E501F5F0E50945F0F509E558 +:1001B0000AF5F0E50965F0F509E509F5F0E5005502 +:1001C000F0F500C3E510F5F0E51995F0F509E50B3C +:1001D000F5F0E50B35F0F509E509F5F0E50055F02A +:1001E000F500E500F5F0E50C45F0F50C750001C3F0 +:1001F000E511F5F0E51895F0F509E50BF5F0E50BDF +:1002000035F0F509E518F5F0E51195F0F501E50B88 +:10021000F5F0E50B35F0F501E501F5F0E50945F000 +:10022000F509E50AF5F0E50965F0F509E509F5F0E8 +:10023000E50055F0F500C3E510F5F0E51995F0F58A +:1002400009E50BF5F0E50B35F0F509E519F5F0E5F5 +:100250001095F0F501E50BF5F0E50B35F0F501E54E +:1002600001F5F0E50945F0F509E50AF5F0E5096560 +:10027000F0F509E509F5F0E50055F0F500C3E512E4 +:10028000F5F0E51395F0F509E50BF5F0E50B35F024 +:10029000F509E509F5F0E50055F0F500E500F5F0A4 +:1002A000E50C45F0F50C750001C3E511F5F0E51816 +:1002B00095F0F509E50BF5F0E50B35F0F509E518D6 +:1002C000F5F0E51195F0F501E50BF5F0E50B35F0EE +:1002D000F501E501F5F0E50945F0F509E50AF5F068 +:1002E000E50965F0F509E509F5F0E50055F0F500DB +:1002F000C3E510F5F0E51995F0F509E50BF5F0E526 +:100300000B35F0F509E519F5F0E51095F0F501E587 +:100310000BF5F0E50B35F0F501E501F5F0E50945E4 +:10032000F0F509E50AF5F0E50965F0F509E509F5E7 +:10033000F0E50055F0F500C3E512F5F0E51395F092 +:10034000F509E50BF5F0E50B35F0F509E513F5F0EA +:10035000E51295F0F501E50BF5F0E50B35F0F5014B +:10036000E501F5F0E50945F0F509E50AF5F0E509DF +:1003700065F0F509E509F5F0E50055F0F500C3E590 +:1003800014F5F0E51595F0F509E50BF5F0E50B35FD +:10039000F0F509E509F5F0E50055F0F500E500F5A3 +:1003A000F0E50C45F0F50C750000E50CF5F0E50006 +:1003B00045F0F500E50DF5F0E50045F0F500E50E3A +:1003C000F5F0E50045F0F500E50FF5F0E50045F046 +:1003D000F500E500700280030204A70075000375B4 +:1003E0000100750900750A00E500F502E501F50355 +:1003F000E509F504E50AF50575E0072506F58275BA +:10040000E0003507F583E0F51575E0062506F58271 +:1004100075E0003507F583E0F51475E0052506F570 +:100420008275E0003507F583E0F51375E0042506D5 +:10043000F58275E0003507F583E0F51275E00325D8 +:1004400006F58275E0003507F583E0F51175E002E9 +:100450002506F58275E0003507F583E0F51075E0B7 +:10046000002506F58275E0003507F583E0F508E51F +:1004700008C0E075E0012506F58275E0003507F556 +:1004800083E0F508E508C0E075E0102506F506757F +:10049000E0003507F507E502F582E503F583E5049D +:1004A000F500E505F50122007500027501007509EA +:1004B00000750A000203E800E506758210C3958204 +:1004C000F506E5077583009583F507D0E0F5087517 +:1004D000E0012506F58275E0003507F583E508F0B3 +:1004E000D0E0F50875E0002506F58275E0003507D7 +:1004F000F583E508F075E0072506F58275E000351F +:1005000007F583E515F075E0062506F58275E00030 +:100510003507F583E514F075E0052506F58275E0ED +:10052000003507F583E513F075E0042506F58275BF +:10053000E0003507F583E512F075E0032506F58246 +:1005400075E0003507F583E511F075E0022506F545 +:100550008275E0003507F583E510F0E51FF500E54D +:100560001EF501E51DF509E51CF50AE51BF515E588 +:100570001AF513750C00E50CF50B750F00E50FF57A +:100580000EC3750D00E509F5F0E50035F0F500E561 +:100590000AF5F0E50135F0F501E50EF5F0E50B356E +:1005A000F0F509E50FF5F0E50C35F0F50E750A05E7 +:1005B000750B00750C00750D00C3E50AF5F0E5003C +:1005C00055F0F500E50BF5F0E50155F0F501E50C0A +:1005D000F5F0E50955F0F509E50DF5F0E50E55F0F6 +:1005E000F50AE500F514E501F512E509F510E50A4F +:1005F000F511750C00750D00750E00750F00750B6B +:1006000000750A01750001C3E511F5F0E51895F0D4 +:10061000F509E50BF5F0E50B35F0F509E509F5F021 +:10062000E50055F0F500E500F5F0E50C45F0F50CBA +:10063000750001C3E511F5F0E51895F0F509E50B36 +:10064000F5F0E50B35F0F509E518F5F0E51195F055 +:10065000F501E50BF5F0E50B35F0F501E501F5F0F9 +:10066000E50945F0F509E50AF5F0E50965F0F50954 +:10067000E509F5F0E50055F0F500C3E510F5F0E506 +:100680001995F0F509E50BF5F0E50B35F0F509E501 +:1006900009F5F0E50055F0F500E500F5F0E50C454D +:1006A000F0F50C750001C3E511F5F0E51895F0F5CE +:1006B00009E50BF5F0E50B35F0F509E518F5F0E582 +:1006C0001195F0F501E50BF5F0E50B35F0F501E5D9 +:1006D00001F5F0E50945F0F509E50AF5F0E50965EC +:1006E000F0F509E509F5F0E50055F0F500C3E51072 +:1006F000F5F0E51995F0F509E50BF5F0E50B35F0AA +:10070000F509E519F5F0E51095F0F501E50BF5F0C3 +:10071000E50B35F0F501E501F5F0E50945F0F509E2 +:10072000E50AF5F0E50965F0F509E509F5F0E500FC +:1007300055F0F500C3E512F5F0E51395F0F509E580 +:100740000BF5F0E50B35F0F509E509F5F0E5005599 +:10075000F0F500E500F5F0E50C45F0F50C7500014D +:10076000C3E511F5F0E51895F0F509E50BF5F0E5B1 +:100770000B35F0F509E518F5F0E51195F0F501E513 +:100780000BF5F0E50B35F0F501E501F5F0E5094570 +:10079000F0F509E50AF5F0E50965F0F509E509F573 +:1007A000F0E50055F0F500C3E510F5F0E51995F01A +:1007B000F509E50BF5F0E50B35F0F509E519F5F070 +:1007C000E51095F0F501E50BF5F0E50B35F0F501D9 +:1007D000E501F5F0E50945F0F509E50AF5F0E5096B +:1007E00065F0F509E509F5F0E50055F0F500C3E51C +:1007F00012F5F0E51395F0F509E50BF5F0E50B358D +:10080000F0F509E513F5F0E51295F0F501E50BF5C6 +:10081000F0E50B35F0F501E501F5F0E50945F0F5FA +:1008200009E50AF5F0E50965F0F509E509F5F0E5F2 +:100830000055F0F500C3E514F5F0E51595F0F50960 +:10084000E50BF5F0E50B35F0F509E509F5F0E50008 +:1008500055F0F500E500F5F0E50C45F0F50C7500F8 +:1008600000E50CF5F0E50045F0F500E50DF5F0E5E7 +:100870000045F0F500E50EF5F0E50045F0F500E582 +:100880000FF5F0E50045F0F500E500700280030289 +:10089000095E00750003750100750900750A00E521 +:1008A00000F502E501F503E509F504E50AF505752E +:1008B000E0072506F58275E0003507F583E0F515BC +:1008C00075E0062506F58275E0003507F583E0F54D +:1008D0001475E0052506F58275E0003507F583E01F +:1008E000F51375E0042506F58275E0003507F583FC +:1008F000E0F51275E0032506F58275E0003507F591 +:1009000083E0F51175E0022506F58275E0003507F4 +:10091000F583E0F51075E0002506F58275E00035F9 +:1009200007F583E0F508E508C0E075E0012506F568 +:100930008275E0003507F583E0F508E508C0E0754D +:10094000E0102506F50675E0003507F507E502F528 +:1009500082E503F583E504F500E505F50122007560 +:100960000002750100750900750A0002089F00E584 +:1009700006758210C39582F506E507758300958399 +:10098000F507D0E0F50875E0012506F58275E00071 +:100990003507F583E508F0D0E0F50875E000250699 +:1009A000F58275E0003507F583E508F075E0072569 +:1009B00006F58275E0003507F583E515F075E0066C +:1009C0002506F58275E0003507F583E514F075E03E +:1009D000052506F58275E0003507F583E513F0750A +:1009E000E0042506F58275E0003507F583E512F091 +:1009F00075E0032506F58275E0003507F583E511FE +:100A0000F075E0022506F58275E0003507F583E50F +:100A100010F0E51FF500E51EF501E51DF509E51CE3 +:100A2000F50AE51BF515E51AF513750C00E50CF54F +:100A30000B750F00E50FF50EC3750D00E509F5F018 +:100A4000E50035F0F500E50AF5F0E50135F0F501D2 +:100A5000E50EF5F0E50B35F0F509E50FF5F0E50CE1 +:100A600035F0F50E750A05750B00750C00750D0057 +:100A7000C3E50AF5F0E50065F0F500E50BF5F0E5F6 +:100A80000165F0F501E50CF5F0E50965F0F509E51E +:100A90000DF5F0E50E65F0F50AE500F514E501F554 +:100AA00012E509F510E50AF511750C00750D0075D4 +:100AB0000E00750F00750B00750A01750001C3E586 +:100AC00011F5F0E51895F0F509E50BF5F0E50B35B6 +:100AD000F0F509E509F5F0E50055F0F500E500F55C +:100AE000F0E50C45F0F50C750001C3E511F5F0E5F6 +:100AF0001895F0F509E50BF5F0E50B35F0F509E58E +:100B000018F5F0E51195F0F501E50BF5F0E50B357D +:100B1000F0F501E501F5F0E50945F0F509E50AF51F +:100B2000F0E50965F0F509E509F5F0E50055F0F5A2 +:100B300000C3E510F5F0E51995F0F509E50BF5F0C2 +:100B4000E50B35F0F509E509F5F0E50055F0F500A0 +:100B5000E500F5F0E50C45F0F50C750001C3E51175 +:100B6000F5F0E51895F0F509E50BF5F0E50B35F036 +:100B7000F509E518F5F0E51195F0F501E50BF5F04F +:100B8000E50B35F0F501E501F5F0E50945F0F5096E +:100B9000E50AF5F0E50965F0F509E509F5F0E50088 +:100BA00055F0F500C3E510F5F0E51995F0F509E508 +:100BB0000BF5F0E50B35F0F509E519F5F0E51095C5 +:100BC000F0F501E50BF5F0E50B35F0F501E501F584 +:100BD000F0E50945F0F509E50AF5F0E50965F0F5F8 +:100BE00009E509F5F0E50055F0F500C3E512F5F06B +:100BF000E51395F0F509E50BF5F0E50B35F0F50992 +:100C0000E509F5F0E50055F0F500E500F5F0E50C37 +:100C100045F0F50C750001C3E511F5F0E51895F008 +:100C2000F509E50BF5F0E50B35F0F509E518F5F0FC +:100C3000E51195F0F501E50BF5F0E50B35F0F50163 +:100C4000E501F5F0E50945F0F509E50AF5F0E509F6 +:100C500065F0F509E509F5F0E50055F0F500C3E5A7 +:100C600010F5F0E51995F0F509E50BF5F0E50B3514 +:100C7000F0F509E519F5F0E51095F0F501E50BF54E +:100C8000F0E50B35F0F501E501F5F0E50945F0F586 +:100C900009E50AF5F0E50965F0F509E509F5F0E57E +:100CA0000055F0F500C3E512F5F0E51395F0F509F0 +:100CB000E50BF5F0E50B35F0F509E513F5F0E51278 +:100CC00095F0F501E50BF5F0E50B35F0F501E501E3 +:100CD000F5F0E50945F0F509E50AF5F0E50965F0F7 +:100CE000F509E509F5F0E50055F0F500C3E514F563 +:100CF000F0E51595F0F509E50BF5F0E50B35F0F5A8 +:100D000009E509F5F0E50055F0F500E500F5F0E539 +:100D10000C45F0F50C750000E50CF5F0E50045F02C +:100D2000F500E50DF5F0E50045F0F500E50EF5F010 +:100D3000E50045F0F500E50FF5F0E50045F0F500BC +:100D4000E50070028003020E1500750003750100B6 +:100D5000750900750A00E500F502E501F503E509EE +:100D6000F504E50AF50575E0072506F58275E0004E +:100D70003507F583E0F51575E0062506F58275E083 +:100D8000003507F583E0F51475E0052506F5827555 +:100D9000E0003507F583E0F51375E0042506F582DC +:100DA00075E0003507F583E0F51275E0032506F5DB +:100DB0008275E0003507F583E0F51175E002250640 +:100DC000F58275E0003507F583E0F51075E0002544 +:100DD00006F58275E0003507F583E0F508E508C003 +:100DE000E075E0012506F58275E0003507F583E042 +:100DF000F508E508C0E075E0102506F50675E00089 +:100E00003507F507E502F582E503F583E504F5000E +:100E1000E505F501220075000275010075090075F0 +:100E20000A00020D56000000000000000000000053 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/compare8.s.expected b/tests/GCCTestSuite/compare8.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/compare8.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/compare9.c b/tests/GCCTestSuite/compare9.c new file mode 100644 index 0000000..02150cb --- /dev/null +++ b/tests/GCCTestSuite/compare9.c @@ -0,0 +1,41 @@ +/* Test for a bogus warning on comparison between signed and unsigned. + This was inspired by code in gcc. This testcase is identical to + compare1.c except that we use -fshort-enums here and do not expect + a warning from case 4. */ + +/* { dg-do compile } */ +/* { dg-options "-fshort-enums -Wsign-compare" } */ + +int tf = 1; + +/* This enumeration has an explicit negative value and is therefore signed. */ +enum mm1 +{ + VOID, SI, DI, MAX = -1 +}; + +/* This enumeration fits entirely in a signed int, but is unsigned anyway. */ +enum mm2 +{ + VOID2, SI2, DI2, MAX2 +}; + +int f(enum mm1 x) +{ + return x == (tf?DI:SI); /* { dg-bogus "signed and unsigned" "case 1" } */ +} + +int g(enum mm1 x) +{ + return x == (tf?DI:-1); /* { dg-bogus "signed and unsigned" "case 2" } */ +} + +int h(enum mm2 x) +{ + return x == (tf?DI2:SI2); /* { dg-bogus "signed and unsigned" "case 3" } */ +} + +int i(enum mm2 x) +{ + return x == (tf?DI2:-1); /* { dg-bogus "signed and unsigned" "case 4" } */ +} diff --git a/tests/GCCTestSuite/compare9.c.expected b/tests/GCCTestSuite/compare9.c.expected new file mode 100644 index 0000000..02150cb --- /dev/null +++ b/tests/GCCTestSuite/compare9.c.expected @@ -0,0 +1,41 @@ +/* Test for a bogus warning on comparison between signed and unsigned. + This was inspired by code in gcc. This testcase is identical to + compare1.c except that we use -fshort-enums here and do not expect + a warning from case 4. */ + +/* { dg-do compile } */ +/* { dg-options "-fshort-enums -Wsign-compare" } */ + +int tf = 1; + +/* This enumeration has an explicit negative value and is therefore signed. */ +enum mm1 +{ + VOID, SI, DI, MAX = -1 +}; + +/* This enumeration fits entirely in a signed int, but is unsigned anyway. */ +enum mm2 +{ + VOID2, SI2, DI2, MAX2 +}; + +int f(enum mm1 x) +{ + return x == (tf?DI:SI); /* { dg-bogus "signed and unsigned" "case 1" } */ +} + +int g(enum mm1 x) +{ + return x == (tf?DI:-1); /* { dg-bogus "signed and unsigned" "case 2" } */ +} + +int h(enum mm2 x) +{ + return x == (tf?DI2:SI2); /* { dg-bogus "signed and unsigned" "case 3" } */ +} + +int i(enum mm2 x) +{ + return x == (tf?DI2:-1); /* { dg-bogus "signed and unsigned" "case 4" } */ +} diff --git a/tests/GCCTestSuite/compare9.hex.expected b/tests/GCCTestSuite/compare9.hex.expected new file mode 100644 index 0000000..df37c63 --- /dev/null +++ b/tests/GCCTestSuite/compare9.hex.expected @@ -0,0 +1,165 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F518D0E0F519E515F50E54 +:10002000E514F50F900000E582F509900000E583E6 +:10003000F50A750100C3750000E501F5F0E5093525 +:10004000F0F501E500F5F0E50A35F0F500E500F51D +:1000500002E501F582E502F583E0F50B750101C3C8 +:10006000750000E501F5F0E50935F0F501E500F56D +:10007000F0E50A35F0F500E500F502E501F582E569 +:1000800002F583E0F50C750102C3750000E501F58A +:10009000F0E50935F0F501E500F5F0E50A35F0F594 +:1000A00000E500F502E501F582E502F583E0F50DD6 +:1000B000750103C3750000E501F5F0E50935F0F5BC +:1000C00001E500F5F0E50A35F0F500E500F502E59B +:1000D00001F582E502F583E0F501750000E50BF519 +:1000E000F0E50045F0F500E50CF5F0E50045F0F52C +:1000F00000E50DF5F0E50045F0F500E501F5F0E56A +:100100000045F0F500E5007002800302025E007514 +:100110000001750100750900750A00750B00C3E543 +:1001200000F5F0E51F95F0F500E500F5F0E50B456D +:10013000F0F50BC3E501F5F0E51E95F0F500E500DF +:10014000F5F0E50B45F0F50BC3E509F5F0E51D9578 +:10015000F0F500E500F5F0E50B45F0F50BC3E50A19 +:10016000F5F0E51C95F0F500E500F5F0E50B45F040 +:10017000F50B750100750900750A00E50BF50075B2 +:100180000B01C3750C00E500F5F0E50C95F0F50CDE +:10019000750C00E50CF5F0E50C35F0F50CE50CF50B +:1001A000F0E50B65F0F50BC3750C00E501F5F0E526 +:1001B0000C95F0F50C750C00E50CF5F0E50C35F040 +:1001C000F50CE50CF5F0E50B65F0F50BC3750C00CF +:1001D000E509F5F0E50C95F0F50C750C00E50CF56E +:1001E000F0E50C35F0F50CE50CF5F0E50B65F0F5F8 +:1001F0000BC3750C00E50AF5F0E50C95F0F50C75F0 +:100200000C00E50CF5F0E50C35F0F50CE50CF5F01F +:10021000E50B65F0F50B750100750900750A00E541 +:100220000BF502E501F503E509F504E50AF505E539 +:100230000EF515E50FF514E519C0E0E518C0E075F9 +:10024000E0042506F50675E0003507F507E502F53B +:1002500082E503F583E504F500E505F50122007567 +:100260000002750100750900750A0002011B00E516 +:1002700006758204C39582F506E5077583009583AC +:10028000F507D0E0F518D0E0F519E515F50EE51401 +:10029000F50F900000E582F509900000E583F50A6E +:1002A000750100C3750000E501F5F0E50935F0F5CD +:1002B00001E500F5F0E50A35F0F500E500F502E5A9 +:1002C00001F582E502F583E0F50B750101C37500C8 +:1002D00000E501F5F0E50935F0F501E500F5F0E59B +:1002E0000A35F0F500E500F502E501F582E502F5D5 +:1002F00083E0F50C750102C3750000E501F5F0E53A +:100300000935F0F501E500F5F0E50A35F0F500E511 +:1003100000F502E501F582E502F583E0F50D7501D2 +:1003200003C3750000E501F5F0E50935F0F501E5D9 +:1003300000F5F0E50A35F0F500E500F502E501F518 +:1003400082E502F583E0F501750000E50BF5F0E5C7 +:100350000045F0F500E50CF5F0E50045F0F500E5A9 +:100360000DF5F0E50045F0F500E501F5F0E5004597 +:10037000F0F500E5007002800302050C0075000135 +:10038000750100750900750A00E500F4F500E50146 +:10039000F4F501E509F4F509E50AF4F50AD3750B5E +:1003A00000E50BF5F0E50035F0F500E50BF5F0E5BF +:1003B0000135F0F501E50BF5F0E50935F0F509E556 +:1003C0000BF5F0E50A35F0F50A750B00C3E500F50D +:1003D000F0E51F95F0F500E500F5F0E50B45F0F5CB +:1003E0000BC3E501F5F0E51E95F0F500E500F5F02D +:1003F000E50B45F0F50BC3E509F5F0E51D95F0F5C6 +:1004000000E500F5F0E50B45F0F50BC3E50AF5F066 +:10041000E51C95F0F500E500F5F0E50B45F0F50B72 +:10042000750100750900750A00E50BF500750B01F3 +:10043000C3750C00E500F5F0E50C95F0F50C750CB6 +:1004400000E50CF5F0E50C35F0F50CE50CF5F0E504 +:100450000B65F0F50BC3750C00E501F5F0E50C95A7 +:10046000F0F50C750C00E50CF5F0E50C35F0F50C2D +:10047000E50CF5F0E50B65F0F50BC3750C00E5092F +:10048000F5F0E50C95F0F50C750C00E50CF5F0E5D4 +:100490000C35F0F50CE50CF5F0E50B65F0F50BC34C +:1004A000750C00E50AF5F0E50C95F0F50C750C00FF +:1004B000E50CF5F0E50C35F0F50CE50CF5F0E50B89 +:1004C00065F0F50B750100750900750A00E50BF57F +:1004D00002E501F503E509F504E50AF505E50EF584 +:1004E00015E50FF514E519C0E0E518C0E075E00466 +:1004F0002506F50675E0003507F507E502F582E506 +:1005000003F583E504F500E505F501220075000219 +:10051000750100750900750A000203C900E506753A +:100520008204C39582F506E5077583009583F50778 +:10053000D0E0F518D0E0F519E515F50EE514F50F46 +:10054000900000E582F509900000E583F50A750149 +:1005500000C3750000E501F5F0E50935F0F501E5AA +:1005600000F5F0E50A35F0F500E500F502E501F5E6 +:1005700082E502F583E0F50B750101C3750000E526 +:1005800001F5F0E50935F0F501E500F5F0E50A358E +:10059000F0F500E500F502E501F582E502F583E0FE +:1005A000F50C750102C3750000E501F5F0E50935AC +:1005B000F0F501E500F5F0E50A35F0F500E500F5A8 +:1005C00002E501F582E502F583E0F50D750103C34F +:1005D000750000E501F5F0E50935F0F501E500F5F8 +:1005E000F0E50A35F0F500E500F502E501F582E5F4 +:1005F00002F583E0F501750000E50BF5F0E5004537 +:10060000F0F500E50CF5F0E50045F0F500E50DF539 +:10061000F0E50045F0F500E501F5F0E50045F0F501 +:1006200000E5007002800302077A00750001750181 +:1006300000750900750A00750B00C3E500F5F0E5CB +:100640001F95F0F500E500F5F0E50B45F0F50BC35F +:10065000E501F5F0E51E95F0F500E500F5F0E50B98 +:1006600045F0F50BC3E509F5F0E51D95F0F500E55E +:1006700000F5F0E50B45F0F50BC3E50AF5F0E51CD8 +:1006800095F0F500E500F5F0E50B45F0F50B75018B +:1006900000750900750A00E50BF500750B01C375BF +:1006A0000C00E500F5F0E50C95F0F50C750C00E597 +:1006B0000CF5F0E50C35F0F50CE50CF5F0E50B6507 +:1006C000F0F50BC3750C00E501F5F0E50C95F0F5C0 +:1006D0000C750C00E50CF5F0E50C35F0F50CE50CAF +:1006E000F5F0E50B65F0F50BC3750C00E509F5F0C9 +:1006F000E50C95F0F50C750C00E50CF5F0E50C3506 +:10070000F0F50CE50CF5F0E50B65F0F50BC3750C99 +:1007100000E50AF5F0E50C95F0F50C750C00E50C1C +:10072000F5F0E50C35F0F50CE50CF5F0E50B65F0B2 +:10073000F50B750100750900750A00E50BF502E57A +:1007400001F503E509F504E50AF505E50EF515E5FE +:100750000FF514E519C0E0E518C0E075E0042506C2 +:10076000F50675E0003507F507E502F582E503F5C6 +:1007700083E504F500E505F5012200750002750129 +:1007800000750900750A0002063700E50675820447 +:10079000C39582F506E5077583009583F507D0E0DC +:1007A000F518D0E0F519E515F50EE514F50F9000F4 +:1007B00000E582F509900000E583F50A750100C3A4 +:1007C000750000E501F5F0E50935F0F501E500F506 +:1007D000F0E50A35F0F500E500F502E501F582E502 +:1007E00002F583E0F50B750101C3750000E501F525 +:1007F000F0E50935F0F501E500F5F0E50A35F0F52D +:1008000000E500F502E501F582E502F583E0F50C6F +:10081000750102C3750000E501F5F0E50935F0F555 +:1008200001E500F5F0E50A35F0F500E500F502E533 +:1008300001F582E502F583E0F50D750103C375004E +:1008400000E501F5F0E50935F0F501E500F5F0E525 +:100850000A35F0F500E500F502E501F582E502F55F +:1008600083E0F501750000E50BF5F0E50045F0F5D6 +:1008700000E50CF5F0E50045F0F500E50DF5F0E5D7 +:100880000045F0F500E501F5F0E50045F0F500E57F +:100890000070028003020A280075000175010075CE +:1008A0000900750A00E500F4F500E501F4F501E53D +:1008B00009F4F509E50AF4F50AD3750B00E50BF523 +:1008C000F0E50035F0F500E50BF5F0E50135F0F564 +:1008D00001E50BF5F0E50935F0F509E50BF5F0E577 +:1008E0000A35F0F50A750B00C3E500F5F0E51F9534 +:1008F000F0F500E500F5F0E50B45F0F50BC3E5017B +:10090000F5F0E51E95F0F500E500F5F0E50B45F096 +:10091000F50BC3E509F5F0E51D95F0F500E500F5EB +:10092000F0E50B45F0F50BC3E50AF5F0E51C95F095 +:10093000F500E500F5F0E50B45F0F50B75010075E8 +:100940000900750A00E50BF500750B01C3750C0075 +:10095000E500F5F0E50C95F0F50C750C00E50CF5EF +:10096000F0E50C35F0F50CE50CF5F0E50B65F0F570 +:100970000BC3750C00E501F5F0E50C95F0F50C7571 +:100980000C00E50CF5F0E50C35F0F50CE50CF5F098 +:10099000E50B65F0F50BC3750C00E509F5F0E50C0A +:1009A00095F0F50C750C00E50CF5F0E50C35F0F55F +:1009B0000CE50CF5F0E50B65F0F50BC3750C00E5E7 +:1009C0000AF5F0E50C95F0F50C750C00E50CF5F06A +:1009D000E50C35F0F50CE50CF5F0E50B65F0F50BE5 +:1009E000750100750900750A00E50BF502E501F5D2 +:1009F00003E509F504E50AF505E50EF515E50FF53E +:100A000014E519C0E0E518C0E075E0042506F50618 +:100A100075E0003507F507E502F582E503F583E5A6 +:100A200004F500E505F50122007500027501007569 +:100A30000900750A000208E500000000000000003F +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/compare9.s.expected b/tests/GCCTestSuite/compare9.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/compare9.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/concat.c b/tests/GCCTestSuite/concat.c new file mode 100644 index 0000000..0b9d6f6 --- /dev/null +++ b/tests/GCCTestSuite/concat.c @@ -0,0 +1,16 @@ +/* Copyright (C) 2001 Free Software Foundation, Inc. */ + +/* { dg-do compile } */ + +/* Test we output an error for concatenation of artificial strings. + + Neil Booth, 10 Dec 2001. */ + +void foo () +{ + char s1[] = __FUNCTION__"."; /* { dg-error "(parse|syntax|expected|invalid|array)" } */ + char s2[] = __PRETTY_FUNCTION__".";/* { dg-error "(parse|syntax|expected|invalid|array)" } */ + char s3[] = "."__FUNCTION__; /* { dg-error "(parse|syntax|expected|invalid)" } */ + char s4[] = "."__PRETTY_FUNCTION__;/* { dg-error "(parse|syntax|expected|invalid)" } */ + char s5[] = ".""."; /* No error. */ +} diff --git a/tests/GCCTestSuite/concat.c.expected b/tests/GCCTestSuite/concat.c.expected new file mode 100644 index 0000000..0b9d6f6 --- /dev/null +++ b/tests/GCCTestSuite/concat.c.expected @@ -0,0 +1,16 @@ +/* Copyright (C) 2001 Free Software Foundation, Inc. */ + +/* { dg-do compile } */ + +/* Test we output an error for concatenation of artificial strings. + + Neil Booth, 10 Dec 2001. */ + +void foo () +{ + char s1[] = __FUNCTION__"."; /* { dg-error "(parse|syntax|expected|invalid|array)" } */ + char s2[] = __PRETTY_FUNCTION__".";/* { dg-error "(parse|syntax|expected|invalid|array)" } */ + char s3[] = "."__FUNCTION__; /* { dg-error "(parse|syntax|expected|invalid)" } */ + char s4[] = "."__PRETTY_FUNCTION__;/* { dg-error "(parse|syntax|expected|invalid)" } */ + char s5[] = ".""."; /* No error. */ +} diff --git a/tests/GCCTestSuite/concat.hex.expected b/tests/GCCTestSuite/concat.hex.expected new file mode 100644 index 0000000..cc52831 --- /dev/null +++ b/tests/GCCTestSuite/concat.hex.expected @@ -0,0 +1,498 @@ +:1000000000E506758217C39582F506E5077583003E +:100010009583F507D0E0F51AD0E0F51BE511F5184A +:10002000E510F519E506F50AE507F501750900C3C0 +:10003000750000E509F5F0E50A35F0F510E500F585 +:10004000F0E50135F0F511750000750100750C0142 +:10005000750D00750E00750F00C3750900E500F5FC +:10006000F0E50CA4F50BE500F5F0E50CA4E5F0F5E2 +:100070000AE50BF5F0E50935F0F509E501F5F0E5E0 +:100080000CA4F50BE501F5F0E50CA4E5F0F501E5B0 +:100090000BF5F0E50A35F0F50AC3C3750100E50973 +:1000A000F5F0E50E35F0F50EE50AF5F0E50F35F063 +:1000B000F50FC3750A00E500F5F0E50DA4F50BE5B5 +:1000C00000F5F0E50DA4E5F0F501E50BF5F0E50A26 +:1000D00035F0F50A750900C3C3750000E509F5F0B0 +:1000E000E50E35F0F50EE50AF5F0E50F35F0F50F04 +:1000F000C3750900750A00C3C3750000E509F5F072 +:10010000E50E35F0F50EE50AF5F0E50F35F0F50FE3 +:10011000C3750900750A00C3C3750000E509F5F051 +:10012000E50E35F0F50EE50AF5F0E50F35F0F50FC3 +:10013000C3750000E50EF5F0E51035F0F500E50FAC +:10014000F5F0E51135F0F50B750A66750900C37514 +:100150000100E509F5F0E50035F0F500E501F5F001 +:10016000E50B35F0F501E50AF503E501F502E500DB +:10017000F582E502F583E503F0E506F50AE507F506 +:1001800001750900C3750000E509F5F0E50A35F0D1 +:10019000F510E500F5F0E50135F0F5117500017594 +:1001A0000100750C01750D00750E00750F00C3750B +:1001B0000900E500F5F0E50CA4F50BE500F5F0E528 +:1001C0000CA4E5F0F50AE50BF5F0E50935F0F509C5 +:1001D000E501F5F0E50CA4F50BE501F5F0E50CA45F +:1001E000E5F0F501E50BF5F0E50A35F0F50AC3C3D6 +:1001F000750100E509F5F0E50E35F0F50EE50AF5B7 +:10020000F0E50F35F0F50FC3750A00E500F5F0E5F0 +:100210000DA4F50BE500F5F0E50DA4E5F0F501E51D +:100220000BF5F0E50A35F0F50A750900C3C3750052 +:1002300000E509F5F0E50E35F0F50EE50AF5F0E517 +:100240000F35F0F50FC3750900750A00C3C37500BB +:1002500000E509F5F0E50E35F0F50EE50AF5F0E5F7 +:100260000F35F0F50FC3750900750A00C3C375009B +:1002700000E509F5F0E50E35F0F50EE50AF5F0E5D7 +:100280000F35F0F50FC3750000E50EF5F0E51035FC +:10029000F0F500E50FF5F0E51135F0F50B750A6F97 +:1002A000750900C3750100E509F5F0E50035F0F5C5 +:1002B00000E501F5F0E50B35F0F501E50AF503E59C +:1002C00001F502E500F582E502F583E503F0E506B8 +:1002D000F50AE507F501750900C3750000E509F5A4 +:1002E000F0E50A35F0F510E500F5F0E50135F0F53B +:1002F00011750002750100750C01750D00750E0079 +:10030000750F00C3750900E500F5F0E50CA4F50BC9 +:10031000E500F5F0E50CA4E5F0F50AE50BF5F0E5F0 +:100320000935F0F509E501F5F0E50CA4F50BE5015B +:10033000F5F0E50CA4E5F0F501E50BF5F0E50A357F +:10034000F0F50AC3C3750100E509F5F0E50E35F0D7 +:10035000F50EE50AF5F0E50F35F0F50FC3750A0067 +:10036000E500F5F0E50DA4F50BE500F5F0E50DA4CD +:10037000E5F0F501E50BF5F0E50A35F0F50A75094C +:1003800000C3C3750000E509F5F0E50E35F0F50E84 +:10039000E50AF5F0E50F35F0F50FC3750900750AAC +:1003A00000C3C3750000E509F5F0E50E35F0F50E64 +:1003B000E50AF5F0E50F35F0F50FC3750900750A8C +:1003C00000C3C3750000E509F5F0E50E35F0F50E44 +:1003D000E50AF5F0E50F35F0F50FC3750000E50E01 +:1003E000F5F0E51035F0F500E50FF5F0E51135F025 +:1003F000F50B750A6F750900C3750100E509F5F085 +:10040000E50035F0F500E501F5F0E50B35F0F50117 +:10041000E50AF503E501F502E500F582E502F5835D +:10042000E503F0E506F50AE507F501750900C37572 +:100430000000E509F5F0E50A35F0F510E500F5F006 +:10044000E50135F0F511750003750100750C0175B6 +:100450000D00750E00750F00C3750900E500F5F07D +:10046000E50CA4F50BE500F5F0E50CA4E5F0F50AC4 +:10047000E50BF5F0E50935F0F509E501F5F0E50CDA +:10048000A4F50BE501F5F0E50CA4E5F0F501E50BAD +:10049000F5F0E50A35F0F50AC3C3750100E509F585 +:1004A000F0E50E35F0F50EE50AF5F0E50F35F0F55F +:1004B0000FC3750A00E500F5F0E50DA4F50BE500A6 +:1004C000F5F0E50DA4E5F0F501E50BF5F0E50A35ED +:1004D000F0F50A750900C3C3750000E509F5F0E5FC +:1004E0000E35F0F50EE50AF5F0E50F35F0F50FC322 +:1004F000750900750A00C3C3750000E509F5F0E54C +:100500000E35F0F50EE50AF5F0E50F35F0F50FC301 +:10051000750900750A00C3C3750000E509F5F0E52B +:100520000E35F0F50EE50AF5F0E50F35F0F50FC3E1 +:10053000750000E50EF5F0E51035F0F500E50FF576 +:10054000F0E51135F0F50B750A2E750900C375013C +:1005500000E509F5F0E50035F0F500E501F5F0E519 +:100560000B35F0F501E50AF503E501F502E500F5C7 +:1005700082E502F583E503F0E506F50AE507F501F6 +:10058000750900C3750000E509F5F0E50A35F0F5D9 +:1005900010E500F5F0E50135F0F511750004750181 +:1005A00000750C01750D00750E00750F00C37509FF +:1005B00000E500F5F0E50CA4F50BE500F5F0E50C21 +:1005C000A4E5F0F50AE50BF5F0E50935F0F509E5E8 +:1005D00001F5F0E50CA4F50BE501F5F0E50CA4E55B +:1005E000F0F501E50BF5F0E50A35F0F50AC3C37542 +:1005F0000100E509F5F0E50E35F0F50EE50AF5F038 +:10060000E50F35F0F50FC3750A00E500F5F0E50DCF +:10061000A4F50BE500F5F0E50DA4E5F0F501E50B1B +:10062000F5F0E50A35F0F50A750900C3C375000059 +:10063000E509F5F0E50E35F0F50EE50AF5F0E50F04 +:1006400035F0F50FC3750900750A00C3C3750000C6 +:10065000E509F5F0E50E35F0F50EE50AF5F0E50FE4 +:1006600035F0F50FC3750900750A00C3C3750000A6 +:10067000E509F5F0E50E35F0F50EE50AF5F0E50FC4 +:1006800035F0F50FC3750000E50EF5F0E51035F017 +:10069000F500E50FF5F0E51135F0F50B750A00757D +:1006A0000900C3750100E509F5F0E50035F0F50036 +:1006B000E501F5F0E50B35F0F501E50AF503E50197 +:1006C000F502E500F582E502F583E503F0E506F5C0 +:1006D0000AE507F501750905C3750000E509F5F0A0 +:1006E000E50A35F0F510E500F5F0E50135F0F51116 +:1006F000750000750100750C01750D00750E007513 +:100700000F00C3750900E500F5F0E50CA4F50BE555 +:1007100000F5F0E50CA4E5F0F50AE50BF5F0E509C8 +:1007200035F0F509E501F5F0E50CA4F50BE501F56B +:10073000F0E50CA4E5F0F501E50BF5F0E50A35F080 +:10074000F50AC3C3750100E509F5F0E50E35F0F5CE +:100750000EE50AF5F0E50F35F0F50FC3750A00E573 +:1007600000F5F0E50DA4F50BE500F5F0E50DA4E5C9 +:10077000F0F501E50BF5F0E50A35F0F50A7509002D +:10078000C3C3750000E509F5F0E50E35F0F50EE59B +:100790000AF5F0E50F35F0F50FC3750900750A008D +:1007A000C3C3750000E509F5F0E50E35F0F50EE57B +:1007B0000AF5F0E50F35F0F50FC3750900750A006D +:1007C000C3C3750000E509F5F0E50E35F0F50EE55B +:1007D0000AF5F0E50F35F0F50FC3750000E50EF5ED +:1007E000F0E51035F0F500E50FF5F0E51135F0F521 +:1007F0000B750A66750900C3750100E509F5F0E59A +:100800000035F0F500E501F5F0E50B35F0F501E513 +:100810000AF503E501F502E500F582E502F583E559 +:1008200003F0E506F50AE507F501750905C375004E +:1008300000E509F5F0E50A35F0F510E500F5F0E51D +:100840000135F0F511750001750100750C01750D8C +:1008500000750E00750F00C3750900E500F5F0E5A1 +:100860000CA4F50BE500F5F0E50CA4E5F0F50AE5C0 +:100870000BF5F0E50935F0F509E501F5F0E50CA417 +:10088000F50BE501F5F0E50CA4E5F0F501E50BF558 +:10089000F0E50A35F0F50AC3C3750100E509F5F086 +:1008A000E50E35F0F50EE50AF5F0E50F35F0F50F3C +:1008B000C3750A00E500F5F0E50DA4F50BE500F5BC +:1008C000F0E50DA4E5F0F501E50BF5F0E50A35F0EE +:1008D000F50A750900C3C3750000E509F5F0E50EDA +:1008E00035F0F50EE50AF5F0E50F35F0F50FC375B7 +:1008F0000900750A00C3C3750000E509F5F0E50EAF +:1009000035F0F50EE50AF5F0E50F35F0F50FC37596 +:100910000900750A00C3C3750000E509F5F0E50E8E +:1009200035F0F50EE50AF5F0E50F35F0F50FC37576 +:100930000000E50EF5F0E51035F0F500E50FF5F0F7 +:10094000E51135F0F50B750A6F750900C3750100E7 +:10095000E509F5F0E50035F0F500E501F5F0E50B0A +:1009600035F0F501E50AF503E501F502E500F5824C +:10097000E502F583E503F0E506F50AE507F50175FF +:100980000905C3750000E509F5F0E50A35F0F51035 +:10099000E500F5F0E50135F0F5117500027501008F +:1009A000750C01750D00750E00750F00C3750900FB +:1009B000E500F5F0E50CA4F50BE500F5F0E50CA479 +:1009C000E5F0F50AE50BF5F0E50935F0F509E50187 +:1009D000F5F0E50CA4F50BE501F5F0E50CA4E5F068 +:1009E000F501E50BF5F0E50A35F0F50AC3C375012D +:1009F00000E509F5F0E50E35F0F50EE50AF5F0E550 +:100A00000F35F0F50FC3750A00E500F5F0E50DA40C +:100A1000F50BE500F5F0E50DA4E5F0F501E50BF5C6 +:100A2000F0E50A35F0F50A750900C3C3750000E565 +:100A300009F5F0E50E35F0F50EE50AF5F0E50F35B0 +:100A4000F0F50FC3750900750A00C3C3750000E512 +:100A500009F5F0E50E35F0F50EE50AF5F0E50F3590 +:100A6000F0F50FC3750900750A00C3C3750000E5F2 +:100A700009F5F0E50E35F0F50EE50AF5F0E50F3570 +:100A8000F0F50FC3750000E50EF5F0E51035F0F553 +:100A900000E50FF5F0E51135F0F50B750A6F7509F6 +:100AA00000C3750100E509F5F0E50035F0F500E556 +:100AB00001F5F0E50B35F0F501E50AF503E501F583 +:100AC00002E500F582E502F583E503F0E506F50AA7 +:100AD000E507F501750905C3750000E509F5F0E5C1 +:100AE0000A35F0F510E500F5F0E50135F0F5117582 +:100AF0000003750100750C01750D00750E00750F72 +:100B000000C3750900E500F5F0E50CA4F50BE50060 +:100B1000F5F0E50CA4E5F0F50AE50BF5F0E509358F +:100B2000F0F509E501F5F0E50CA4F50BE501F5F0AC +:100B3000E50CA4E5F0F501E50BF5F0E50A35F0F577 +:100B40000AC3C3750100E509F5F0E50E35F0F50EB1 +:100B5000E50AF5F0E50F35F0F50FC3750A00E5007D +:100B6000F5F0E50DA4F50BE500F5F0E50DA4E5F0D5 +:100B7000F501E50BF5F0E50A35F0F50A750900C356 +:100B8000C3750000E509F5F0E50E35F0F50EE50A50 +:100B9000F5F0E50F35F0F50FC3750900750A00C3D0 +:100BA000C3750000E509F5F0E50E35F0F50EE50A30 +:100BB000F5F0E50F35F0F50FC3750900750A00C3B0 +:100BC000C3750000E509F5F0E50E35F0F50EE50A10 +:100BD000F5F0E50F35F0F50FC3750000E50EF5F003 +:100BE000E51035F0F500E50FF5F0E51135F0F50B02 +:100BF000750A2E750900C3750100E509F5F0E500D9 +:100C000035F0F500E501F5F0E50B35F0F501E50A05 +:100C1000F503E501F502E500F582E502F583E5035C +:100C2000F0E506F50AE507F501750905C37500004D +:100C3000E509F5F0E50A35F0F510E500F5F0E50118 +:100C400035F0F511750004750100750C01750D0086 +:100C5000750E00750F00C3750900E500F5F0E50C91 +:100C6000A4F50BE500F5F0E50CA4E5F0F50AE50BBD +:100C7000F5F0E50935F0F509E501F5F0E50CA4F529 +:100C80000BE501F5F0E50CA4E5F0F501E50BF5F059 +:100C9000E50A35F0F50AC3C3750100E509F5F0E58D +:100CA0000E35F0F50EE50AF5F0E50F35F0F50FC35A +:100CB000750A00E500F5F0E50DA4F50BE500F5F08B +:100CC000E50DA4E5F0F501E50BF5F0E50A35F0F5E5 +:100CD0000A750900C3C3750000E509F5F0E50E3596 +:100CE000F0F50EE50AF5F0E50F35F0F50FC37509DF +:100CF00000750A00C3C3750000E509F5F0E50E357F +:100D0000F0F50EE50AF5F0E50F35F0F50FC37509BE +:100D100000750A00C3C3750000E509F5F0E50E355E +:100D2000F0F50EE50AF5F0E50F35F0F50FC37500A7 +:100D300000E50EF5F0E51035F0F500E50FF5F0E50E +:100D40001135F0F50B750A00750900C3750100E552 +:100D500009F5F0E50035F0F500E501F5F0E50B35B6 +:100D6000F0F501E50AF503E501F502E500F582E598 +:100D700002F583E503F0E506F50AE507F5017509D7 +:100D80000AC3750000E509F5F0E50A35F0F510E550 +:100D900000F5F0E50135F0F51175000075010075FD +:100DA0000C01750D00750E00750F00C3750900E587 +:100DB00000F5F0E50CA4F50BE500F5F0E50CA4E575 +:100DC000F0F50AE50BF5F0E50935F0F509E501F573 +:100DD000F0E50CA4F50BE501F5F0E50CA4E5F0F564 +:100DE00001E50BF5F0E50A35F0F50AC3C37501001E +:100DF000E509F5F0E50E35F0F50EE50AF5F0E50F3D +:100E000035F0F50FC3750A00E500F5F0E50DA4F522 +:100E10000BE500F5F0E50DA4E5F0F501E50BF5F0C7 +:100E2000E50A35F0F50A750900C3C3750000E50948 +:100E3000F5F0E50E35F0F50EE50AF5F0E50F35F0C5 +:100E4000F50FC3750900750A00C3C3750000E509F5 +:100E5000F5F0E50E35F0F50EE50AF5F0E50F35F0A5 +:100E6000F50FC3750900750A00C3C3750000E509D5 +:100E7000F5F0E50E35F0F50EE50AF5F0E50F35F085 +:100E8000F50FC3750000E50EF5F0E51035F0F5003F +:100E9000E50FF5F0E51135F0F50B750A2E75090033 +:100EA000C3750100E509F5F0E50035F0F500E50151 +:100EB000F5F0E50B35F0F501E50AF503E501F5027E +:100EC000E500F582E502F583E503F0E506F50AE5C0 +:100ED00007F50175090AC3750000E509F5F0E50A93 +:100EE00035F0F510E500F5F0E50135F0F511750088 +:100EF00001750100750C01750D00750E00750F0070 +:100F0000C3750900E500F5F0E50CA4F50BE500F567 +:100F1000F0E50CA4E5F0F50AE50BF5F0E50935F090 +:100F2000F509E501F5F0E50CA4F50BE501F5F0E5B3 +:100F30000CA4E5F0F501E50BF5F0E50A35F0F50A4E +:100F4000C3C3750100E509F5F0E50E35F0F50EE5D2 +:100F50000AF5F0E50F35F0F50FC3750A00E500F569 +:100F6000F0E50DA4F50BE500F5F0E50DA4E5F0F5D1 +:100F700001E50BF5F0E50A35F0F50A750900C3C384 +:100F8000750000E509F5F0E50E35F0F50EE50AF51A +:100F9000F0E50F35F0F50FC3750900750A00C3C3FE +:100FA000750000E509F5F0E50E35F0F50EE50AF5FA +:100FB000F0E50F35F0F50FC3750900750A00C3C3DE +:100FC000750000E509F5F0E50E35F0F50EE50AF5DA +:100FD000F0E50F35F0F50FC3750000E50EF5F0E50F +:100FE0001035F0F500E50FF5F0E51135F0F50B756E +:100FF0000A66750900C3750100E509F5F0E50035DD +:10100000F0F500E501F5F0E50B35F0F501E50AF541 +:1010100003E501F502E500F582E502F583E503F05D +:10102000E506F50AE507F50175090AC3750000E54F +:1010300009F5F0E50A35F0F510E500F5F0E50135C4 +:10104000F0F511750002750100750C01750D007544 +:101050000E00750F00C3750900E500F5F0E50CA45E +:10106000F50BE500F5F0E50CA4E5F0F50AE50BF568 +:10107000F0E50935F0F509E501F5F0E50CA4F50B0F +:10108000E501F5F0E50CA4E5F0F501E50BF5F0E57B +:101090000A35F0F50AC3C3750100E509F5F0E50E60 +:1010A00035F0F50EE50AF5F0E50F35F0F50FC375EF +:1010B0000A00E500F5F0E50DA4F50BE500F5F0E517 +:1010C0000DA4E5F0F501E50BF5F0E50A35F0F50ABC +:1010D000750900C3C3750000E509F5F0E50E35F0AC +:1010E000F50EE50AF5F0E50F35F0F50FC3750900CB +:1010F000750A00C3C3750000E509F5F0E50E35F08B +:10110000F50EE50AF5F0E50F35F0F50FC3750900AA +:10111000750A00C3C3750000E509F5F0E50E35F06A +:10112000F50EE50AF5F0E50F35F0F50FC375000093 +:10113000E50EF5F0E51035F0F500E50FF5F0E511F9 +:1011400035F0F50B750A6F750900C3750100E509E7 +:10115000F5F0E50035F0F500E501F5F0E50B35F0CB +:10116000F501E50AF503E501F502E500F582E50282 +:10117000F583E503F0E506F50AE507F50175090ACB +:10118000C3750000E509F5F0E50A35F0F510E50056 +:10119000F5F0E50135F0F511750003750100750CEA +:1011A00001750D00750E00750F00C3750900E5008F +:1011B000F5F0E50CA4F50BE500F5F0E50CA4E5F081 +:1011C000F50AE50BF5F0E50935F0F509E501F5F06F +:1011D000E50CA4F50BE501F5F0E50CA4E5F0F5014F +:1011E000E50BF5F0E50A35F0F50AC3C3750100E536 +:1011F00009F5F0E50E35F0F50EE50AF5F0E50F35E9 +:10120000F0F50FC3750A00E500F5F0E50DA4F50B48 +:10121000E500F5F0E50DA4E5F0F501E50BF5F0E5E9 +:101220000A35F0F50A750900C3C3750000E509F534 +:10123000F0E50E35F0F50EE50AF5F0E50F35F0F5C1 +:101240000FC3750900750A00C3C3750000E509F5F1 +:10125000F0E50E35F0F50EE50AF5F0E50F35F0F5A1 +:101260000FC3750900750A00C3C3750000E509F5D1 +:10127000F0E50E35F0F50EE50AF5F0E50F35F0F581 +:101280000FC3750000E50EF5F0E51035F0F500E54B +:101290000FF5F0E51135F0F50B750A6F750900C310 +:1012A000750100E509F5F0E50035F0F500E501F51B +:1012B000F0E50B35F0F501E50AF503E501F502E58A +:1012C00000F582E502F583E503F0E506F50AE5079A +:1012D000F50175090AC3750000E509F5F0E50A3561 +:1012E000F0F510E500F5F0E50135F0F511750004B5 +:1012F000750100750C01750D00750E00750F00C3AA +:10130000750900E500F5F0E50CA4F50BE500F5F036 +:10131000E50CA4E5F0F50AE50BF5F0E50935F0F587 +:1013200009E501F5F0E50CA4F50BE501F5F0E50C98 +:10133000A4E5F0F501E50BF5F0E50A35F0F50AC393 +:10134000C3750100E509F5F0E50E35F0F50EE50A87 +:10135000F5F0E50F35F0F50FC3750A00E500F5F07F +:10136000E50DA4F50BE500F5F0E50DA4E5F0F501BC +:10137000E50BF5F0E50A35F0F50A750900C3C3750C +:101380000000E509F5F0E50E35F0F50EE50AF5F09B +:10139000E50F35F0F50FC3750900750A00C3C37575 +:1013A0000000E509F5F0E50E35F0F50EE50AF5F07B +:1013B000E50F35F0F50FC3750900750A00C3C37555 +:1013C0000000E509F5F0E50E35F0F50EE50AF5F05B +:1013D000E50F35F0F50FC3750000E50EF5F0E510EB +:1013E00035F0F500E50FF5F0E51135F0F50B750A70 +:1013F00000750900C3750100E509F5F0E50035F059 +:10140000F500E501F5F0E50B35F0F501E50AF5032A +:10141000E501F502E500F582E502F583E503F0E577 +:1014200006F50AE507F50175090FC3750000E50922 +:10143000F5F0E50A35F0F510E500F5F0E50135F0D9 +:10144000F511750000750100750C01750D00750E24 +:1014500000750F00C3750900E500F5F0E50CA4F573 +:101460000BE500F5F0E50CA4E5F0F50AE50BF5F069 +:10147000E50935F0F509E501F5F0E50CA4F50BE516 +:1014800001F5F0E50CA4E5F0F501E50BF5F0E50A52 +:1014900035F0F50AC3C3750100E509F5F0E50E3531 +:1014A000F0F50EE50AF5F0E50F35F0F50FC3750A16 +:1014B00000E500F5F0E50DA4F50BE500F5F0E50D10 +:1014C000A4E5F0F501E50BF5F0E50A35F0F50A7550 +:1014D0000900C3C3750000E509F5F0E50E35F0F528 +:1014E0000EE50AF5F0E50F35F0F50FC37509007547 +:1014F0000A00C3C3750000E509F5F0E50E35F0F507 +:101500000EE50AF5F0E50F35F0F50FC37509007526 +:101510000A00C3C3750000E509F5F0E50E35F0F5E6 +:101520000EE50AF5F0E50F35F0F50FC3750000E59F +:101530000EF5F0E51035F0F500E50FF5F0E51135A5 +:10154000F0F50B750A2E750900C3750100E509F564 +:10155000F0E50035F0F500E501F5F0E50B35F0F5C7 +:1015600001E50AF503E501F502E500F582E502F57E +:1015700083E503F0E506F50AE507F50175090FC3F4 +:10158000750000E509F5F0E50A35F0F510E500F520 +:10159000F0E50135F0F511750001750100750C01DC +:1015A000750D00750E00750F00C3750900E500F597 +:1015B000F0E50CA4F50BE500F5F0E50CA4E5F0F57D +:1015C0000AE50BF5F0E50935F0F509E501F5F0E57B +:1015D0000CA4F50BE501F5F0E50CA4E5F0F501E54B +:1015E0000BF5F0E50A35F0F50AC3C3750100E5090E +:1015F000F5F0E50E35F0F50EE50AF5F0E50F35F0FE +:10160000F50FC3750A00E500F5F0E50DA4F50BE54F +:1016100000F5F0E50DA4E5F0F501E50BF5F0E50AC0 +:1016200035F0F50A750900C3C3750000E509F5F04A +:10163000E50E35F0F50EE50AF5F0E50F35F0F50F9E +:10164000C3750900750A00C3C3750000E509F5F00C +:10165000E50E35F0F50EE50AF5F0E50F35F0F50F7E +:10166000C3750900750A00C3C3750000E509F5F0EC +:10167000E50E35F0F50EE50AF5F0E50F35F0F50F5E +:10168000C3750000E50EF5F0E51035F0F500E50F47 +:10169000F5F0E51135F0F50B750A66750900C375AF +:1016A0000100E509F5F0E50035F0F500E501F5F09C +:1016B000E50B35F0F501E50AF503E501F502E50076 +:1016C000F582E502F583E503F0E506F50AE507F5A1 +:1016D0000175090FC3750000E509F5F0E50A35F05D +:1016E000F510E500F5F0E50135F0F511750002752E +:1016F0000100750C01750D00750E00750F00C375A6 +:101700000900E500F5F0E50CA4F50BE500F5F0E5C2 +:101710000CA4E5F0F50AE50BF5F0E50935F0F5095F +:10172000E501F5F0E50CA4F50BE501F5F0E50CA4F9 +:10173000E5F0F501E50BF5F0E50A35F0F50AC3C370 +:10174000750100E509F5F0E50E35F0F50EE50AF551 +:10175000F0E50F35F0F50FC3750A00E500F5F0E58B +:101760000DA4F50BE500F5F0E50DA4E5F0F501E5B8 +:101770000BF5F0E50A35F0F50A750900C3C37500ED +:1017800000E509F5F0E50E35F0F50EE50AF5F0E5B2 +:101790000F35F0F50FC3750900750A00C3C3750056 +:1017A00000E509F5F0E50E35F0F50EE50AF5F0E592 +:1017B0000F35F0F50FC3750900750A00C3C3750036 +:1017C00000E509F5F0E50E35F0F50EE50AF5F0E572 +:1017D0000F35F0F50FC3750000E50EF5F0E5103597 +:1017E000F0F500E50FF5F0E51135F0F50B750A6F32 +:1017F000750900C3750100E509F5F0E50035F0F560 +:1018000000E501F5F0E50B35F0F501E50AF503E536 +:1018100001F502E500F582E502F583E503F0E50652 +:10182000F50AE507F50175090FC3750000E509F52F +:10183000F0E50A35F0F510E500F5F0E50135F0F5D5 +:1018400011750003750100750C01750D00750E0012 +:10185000750F00C3750900E500F5F0E50CA4F50B64 +:10186000E500F5F0E50CA4E5F0F50AE50BF5F0E58B +:101870000935F0F509E501F5F0E50CA4F50BE501F6 +:10188000F5F0E50CA4E5F0F501E50BF5F0E50A351A +:10189000F0F50AC3C3750100E509F5F0E50E35F072 +:1018A000F50EE50AF5F0E50F35F0F50FC3750A0002 +:1018B000E500F5F0E50DA4F50BE500F5F0E50DA468 +:1018C000E5F0F501E50BF5F0E50A35F0F50A7509E7 +:1018D00000C3C3750000E509F5F0E50E35F0F50E1F +:1018E000E50AF5F0E50F35F0F50FC3750900750A47 +:1018F00000C3C3750000E509F5F0E50E35F0F50EFF +:10190000E50AF5F0E50F35F0F50FC3750900750A26 +:1019100000C3C3750000E509F5F0E50E35F0F50EDE +:10192000E50AF5F0E50F35F0F50FC3750000E50E9B +:10193000F5F0E51035F0F500E50FF5F0E51135F0BF +:10194000F50B750A6F750900C3750100E509F5F01F +:10195000E50035F0F500E501F5F0E50B35F0F501B2 +:10196000E50AF503E501F502E500F582E502F583F8 +:10197000E503F0E506F50AE507F50175090FC375FE +:101980000000E509F5F0E50A35F0F510E500F5F0A1 +:10199000E50135F0F511750004750100750C017550 +:1019A0000D00750E00750F00C3750900E500F5F018 +:1019B000E50CA4F50BE500F5F0E50CA4E5F0F50A5F +:1019C000E50BF5F0E50935F0F509E501F5F0E50C75 +:1019D000A4F50BE501F5F0E50CA4E5F0F501E50B48 +:1019E000F5F0E50A35F0F50AC3C3750100E509F520 +:1019F000F0E50E35F0F50EE50AF5F0E50F35F0F5FA +:101A00000FC3750A00E500F5F0E50DA4F50BE50040 +:101A1000F5F0E50DA4E5F0F501E50BF5F0E50A3587 +:101A2000F0F50A750900C3C3750000E509F5F0E596 +:101A30000E35F0F50EE50AF5F0E50F35F0F50FC3BC +:101A4000750900750A00C3C3750000E509F5F0E5E6 +:101A50000E35F0F50EE50AF5F0E50F35F0F50FC39C +:101A6000750900750A00C3C3750000E509F5F0E5C6 +:101A70000E35F0F50EE50AF5F0E50F35F0F50FC37C +:101A8000750000E50EF5F0E51035F0F500E50FF511 +:101A9000F0E51135F0F50B750A00750900C3750105 +:101AA00000E509F5F0E50035F0F500E501F5F0E5B4 +:101AB0000B35F0F501E50AF503E501F502E500F562 +:101AC00082E502F583E503F0E506F50AE507F50191 +:101AD000750914C3750000E509F5F0E50A35F0F560 +:101AE00010E500F5F0E50135F0F511750000750120 +:101AF00000750C01750D00750E00750F00C375099A +:101B000000E500F5F0E50CA4F50BE500F5F0E50CBB +:101B1000A4E5F0F50AE50BF5F0E50935F0F509E582 +:101B200001F5F0E50CA4F50BE501F5F0E50CA4E5F5 +:101B3000F0F501E50BF5F0E50A35F0F50AC3C375DC +:101B40000100E509F5F0E50E35F0F50EE50AF5F0D2 +:101B5000E50F35F0F50FC3750A00E500F5F0E50D6A +:101B6000A4F50BE500F5F0E50DA4E5F0F501E50BB6 +:101B7000F5F0E50A35F0F50A750900C3C3750000F4 +:101B8000E509F5F0E50E35F0F50EE50AF5F0E50F9F +:101B900035F0F50FC3750900750A00C3C375000061 +:101BA000E509F5F0E50E35F0F50EE50AF5F0E50F7F +:101BB00035F0F50FC3750900750A00C3C375000041 +:101BC000E509F5F0E50E35F0F50EE50AF5F0E50F5F +:101BD00035F0F50FC3750000E50EF5F0E51035F0B2 +:101BE000F500E50FF5F0E51135F0F50B750A2E75EA +:101BF0000900C3750100E509F5F0E50035F0F500D1 +:101C0000E501F5F0E50B35F0F501E50AF503E50131 +:101C1000F502E500F582E502F583E503F0E506F55A +:101C20000AE507F501750914C3750000E509F5F02B +:101C3000E50A35F0F510E500F5F0E50135F0F511B0 +:101C4000750001750100750C01750D00750E0075AC +:101C50000F00C3750900E500F5F0E50CA4F50BE5F0 +:101C600000F5F0E50CA4E5F0F50AE50BF5F0E50963 +:101C700035F0F509E501F5F0E50CA4F50BE501F506 +:101C8000F0E50CA4E5F0F501E50BF5F0E50A35F01B +:101C9000F50AC3C3750100E509F5F0E50E35F0F569 +:101CA0000EE50AF5F0E50F35F0F50FC3750A00E50E +:101CB00000F5F0E50DA4F50BE500F5F0E50DA4E564 +:101CC000F0F501E50BF5F0E50A35F0F50A750900C8 +:101CD000C3C3750000E509F5F0E50E35F0F50EE536 +:101CE0000AF5F0E50F35F0F50FC3750900750A0028 +:101CF000C3C3750000E509F5F0E50E35F0F50EE516 +:101D00000AF5F0E50F35F0F50FC3750900750A0007 +:101D1000C3C3750000E509F5F0E50E35F0F50EE5F5 +:101D20000AF5F0E50F35F0F50FC3750000E50EF587 +:101D3000F0E51035F0F500E50FF5F0E51135F0F5BB +:101D40000B750A2E750900C3750100E509F5F0E56C +:101D50000035F0F500E501F5F0E50B35F0F501E5AE +:101D60000AF503E501F502E500F582E502F583E5F4 +:101D700003F0E506F50AE507F501750914C37500DA +:101D800000E509F5F0E50A35F0F510E500F5F0E5B8 +:101D90000135F0F511750002750100750C01750D26 +:101DA00000750E00750F00C3750900E500F5F0E53C +:101DB0000CA4F50BE500F5F0E50CA4E5F0F50AE55B +:101DC0000BF5F0E50935F0F509E501F5F0E50CA4B2 +:101DD000F50BE501F5F0E50CA4E5F0F501E50BF5F3 +:101DE000F0E50A35F0F50AC3C3750100E509F5F021 +:101DF000E50E35F0F50EE50AF5F0E50F35F0F50FD7 +:101E0000C3750A00E500F5F0E50DA4F50BE500F556 +:101E1000F0E50DA4E5F0F501E50BF5F0E50A35F088 +:101E2000F50A750900C3C3750000E509F5F0E50E74 +:101E300035F0F50EE50AF5F0E50F35F0F50FC37551 +:101E40000900750A00C3C3750000E509F5F0E50E49 +:101E500035F0F50EE50AF5F0E50F35F0F50FC37531 +:101E60000900750A00C3C3750000E509F5F0E50E29 +:101E700035F0F50EE50AF5F0E50F35F0F50FC37511 +:101E80000000E50EF5F0E51035F0F500E50FF5F092 +:101E9000E51135F0F50B750A00750900C3750100F1 +:101EA000E509F5F0E50035F0F500E501F5F0E50BA5 +:101EB00035F0F501E50AF503E501F502E500F582E7 +:101EC000E502F583E503F0750000E500F502E500A5 +:101ED000F503E500F504E500F505E518F511E5194C +:101EE000F510E51BC0E0E51AC0E075E0172506F522 +:101EF0000675E0003507F507E502F582E503F58391 +:101F0000E504F500E505F5012200000000000000F1 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/concat.s.expected b/tests/GCCTestSuite/concat.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/concat.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/concat2.c b/tests/GCCTestSuite/concat2.c new file mode 100644 index 0000000..1e92400 --- /dev/null +++ b/tests/GCCTestSuite/concat2.c @@ -0,0 +1,16 @@ +/* PR c/3581 */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +/* Intended as a compile-time test for string literal concatenation. + The fact that the string isn't actually used in the resulting program + should allow this to compile for any target. */ + +#define e0 "a" +#define e1 e0 e0 e0 e0 e0 e0 e0 e0 e0 e0 +#define e2 e1 e1 e1 e1 e1 e1 e1 e1 e1 e1 +#define e3 e2 e2 e2 e2 e2 e2 e2 e2 e2 e2 +#define e4 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 +#define e5 e4 e4 e4 e4 e4 e4 e4 e4 e4 e4 + +void foo() { (void)(e5); } diff --git a/tests/GCCTestSuite/concat2.c.expected b/tests/GCCTestSuite/concat2.c.expected new file mode 100644 index 0000000..1e92400 --- /dev/null +++ b/tests/GCCTestSuite/concat2.c.expected @@ -0,0 +1,16 @@ +/* PR c/3581 */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +/* Intended as a compile-time test for string literal concatenation. + The fact that the string isn't actually used in the resulting program + should allow this to compile for any target. */ + +#define e0 "a" +#define e1 e0 e0 e0 e0 e0 e0 e0 e0 e0 e0 +#define e2 e1 e1 e1 e1 e1 e1 e1 e1 e1 e1 +#define e3 e2 e2 e2 e2 e2 e2 e2 e2 e2 e2 +#define e4 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 +#define e5 e4 e4 e4 e4 e4 e4 e4 e4 e4 e4 + +void foo() { (void)(e5); } diff --git a/tests/GCCTestSuite/concat2.hex.expected b/tests/GCCTestSuite/concat2.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/concat2.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/concat2.s.expected b/tests/GCCTestSuite/concat2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/concat2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/const-compare.c b/tests/GCCTestSuite/const-compare.c new file mode 100644 index 0000000..d9c1b77 --- /dev/null +++ b/tests/GCCTestSuite/const-compare.c @@ -0,0 +1,29 @@ +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-m64 -O1 -static" } */ +typedef unsigned long long uint64_t; + +static int +match(name, pat) + uint64_t *name, *pat; +{ + int ok=0, negate_range; + uint64_t c, k; + + c = *pat++; + switch (c & 0xffffffffffULL) { + case ((uint64_t)(('[')|0x8000000000ULL)): + if ((negate_range = ((*pat & 0xffffffffffULL) == ((uint64_t)(('!')|0x8000000000ULL)) )) != '\0') + ++pat; + while (((c = *pat++) & 0xffffffffffULL) ) + if ((*pat & 0xffffffffffULL) == ((uint64_t)(('-')|0x8000000000ULL))) + { + pat += 2; + } + + if (ok == negate_range) + return(0); + break; + } + return(*name == '\0'); +} + diff --git a/tests/GCCTestSuite/const-compare.c.expected b/tests/GCCTestSuite/const-compare.c.expected new file mode 100644 index 0000000..d9c1b77 --- /dev/null +++ b/tests/GCCTestSuite/const-compare.c.expected @@ -0,0 +1,29 @@ +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-m64 -O1 -static" } */ +typedef unsigned long long uint64_t; + +static int +match(name, pat) + uint64_t *name, *pat; +{ + int ok=0, negate_range; + uint64_t c, k; + + c = *pat++; + switch (c & 0xffffffffffULL) { + case ((uint64_t)(('[')|0x8000000000ULL)): + if ((negate_range = ((*pat & 0xffffffffffULL) == ((uint64_t)(('!')|0x8000000000ULL)) )) != '\0') + ++pat; + while (((c = *pat++) & 0xffffffffffULL) ) + if ((*pat & 0xffffffffffULL) == ((uint64_t)(('-')|0x8000000000ULL))) + { + pat += 2; + } + + if (ok == negate_range) + return(0); + break; + } + return(*name == '\0'); +} + diff --git a/tests/GCCTestSuite/const-compare.hex.expected b/tests/GCCTestSuite/const-compare.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/const-compare.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/const-compare.s.expected b/tests/GCCTestSuite/const-compare.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/const-compare.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/const-elim-2.c b/tests/GCCTestSuite/const-elim-2.c new file mode 100644 index 0000000..ce55ba1 --- /dev/null +++ b/tests/GCCTestSuite/const-elim-2.c @@ -0,0 +1,10 @@ +/* The string constant in this test case should be emitted exactly once. */ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ +/* { dg-final { scan-assembler-times "hi there" 1 } } */ + +static inline int returns_23() { return 23; } + +const char *test1(void) { if (returns_23()) return 0; return "hi there"; } +const char *test2(void) { return "hi there"; } +const char *test3(void) { return "hi there"; } diff --git a/tests/GCCTestSuite/const-elim-2.c.expected b/tests/GCCTestSuite/const-elim-2.c.expected new file mode 100644 index 0000000..ce55ba1 --- /dev/null +++ b/tests/GCCTestSuite/const-elim-2.c.expected @@ -0,0 +1,10 @@ +/* The string constant in this test case should be emitted exactly once. */ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ +/* { dg-final { scan-assembler-times "hi there" 1 } } */ + +static inline int returns_23() { return 23; } + +const char *test1(void) { if (returns_23()) return 0; return "hi there"; } +const char *test2(void) { return "hi there"; } +const char *test3(void) { return "hi there"; } diff --git a/tests/GCCTestSuite/conv-3.c b/tests/GCCTestSuite/conv-3.c new file mode 100644 index 0000000..3b4f430 --- /dev/null +++ b/tests/GCCTestSuite/conv-3.c @@ -0,0 +1,18 @@ +/* PR middle-end/19100 */ +/* { dg-do run } */ +/* { dg-options "-O2" } */ + +void abort (void); + +int test (int v) +{ + return ((signed char) (v ? 0x100 : 0)) ? 17 : 18; +} + +int main() +{ + if (test (2) != 18) + abort (); + return 0; +} + diff --git a/tests/GCCTestSuite/conv-3.c.expected b/tests/GCCTestSuite/conv-3.c.expected new file mode 100644 index 0000000..3b4f430 --- /dev/null +++ b/tests/GCCTestSuite/conv-3.c.expected @@ -0,0 +1,18 @@ +/* PR middle-end/19100 */ +/* { dg-do run } */ +/* { dg-options "-O2" } */ + +void abort (void); + +int test (int v) +{ + return ((signed char) (v ? 0x100 : 0)) ? 17 : 18; +} + +int main() +{ + if (test (2) != 18) + abort (); + return 0; +} + diff --git a/tests/GCCTestSuite/conv-3.hex.expected b/tests/GCCTestSuite/conv-3.hex.expected new file mode 100644 index 0000000..76ce44b --- /dev/null +++ b/tests/GCCTestSuite/conv-3.hex.expected @@ -0,0 +1,38 @@ +:1000000075812F7506FF7507FF1200D502000C00E1 +:1000100000E506758204C39582F506E50775830041 +:100020009583F507D0E0F500D0E0F509750100E50E +:100030001FF5F0E50145F0F501E51EF5F0E5014598 +:10004000F0F501E51DF5F0E50145F0F501E51CF5DC +:10005000F0E50145F0F501E501700280030200CEF4 +:1000600000750100750A00E501F5F0E50A45F0F5B7 +:100070000AE50A700280030200BE00750112750ACB +:1000800000750B00750C00E501F502E50AF503E5C6 +:100090000BF504E50CF505E509C0E0E500C0E075E9 +:1000A000E0042506F50675E0003507F507E502F5DD +:1000B00082E503F583E504F500E505F50122007509 +:1000C0000111750A00750B00750C000200870075A0 +:1000D000010002006400E506758202C39582F50600 +:1000E000E5077583009583F507D0E0F50875E00115 +:1000F0002506F58275E0003507F583E508F0D0E0C8 +:10010000F50875E0002506F58275E0003507F583F2 +:10011000E508F0751F02751E00751D00751C0012A4 +:100120000010E582F502E583F503E500F504E5013D +:10013000F505E502F50BE503F50CE504F50DE50520 +:10014000F50E750012750100750900750A00750F2E +:1001500000C3E500F5F0E50B95F0F500E500F5F0DE +:10016000E50F45F0F50FC3E501F5F0E50C95F0F569 +:1001700000E500F5F0E50F45F0F50FC3E509F5F0F2 +:10018000E50D95F0F500E500F5F0E50F45F0F50F0C +:10019000C3E50AF5F0E50E95F0F500E500F5F0E5AC +:1001A0000F45F0F50F750100750900750A0075001F +:1001B00000E50FF5F0E50045F0F500E501F5F0E5A7 +:1001C0000045F0F500E509F5F0E50045F0F500E53E +:1001D0000AF5F0E50045F0F500E500700280030245 +:1001E000024800750000750100750900750A00E5F8 +:1001F00000F502E501F503E509F504E50AF50575E5 +:10020000E0002506F58275E0003507F583E0F50886 +:10021000E508C0E075E0012506F58275E0003507C8 +:10022000F583E0F508E508C0E075E0022506F5066F +:1002300075E0003507F507E502F582E503F583E58E +:1002400004F500E505F50122000201E300000000CD +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/conv-3.s.expected b/tests/GCCTestSuite/conv-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/conv-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/cris-peep2-andu1.c b/tests/GCCTestSuite/cris-peep2-andu1.c new file mode 100644 index 0000000..2e546e6 --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-andu1.c @@ -0,0 +1,42 @@ +/* { dg-do compile { target cris-*-* } } */ +/* { dg-final { scan-assembler-not "and.d " } } */ +/* { dg-final { scan-assembler-not "move.d " } } */ +/* { dg-final { scan-assembler "cLear.b" } } */ +/* { dg-final { scan-assembler "movu.b" } } */ +/* { dg-final { scan-assembler "and.b" } } */ +/* { dg-final { scan-assembler "movu.w" } } */ +/* { dg-final { scan-assembler "and.w" } } */ +/* { dg-final { scan-assembler "andq" } } */ +/* { dg-options "-O2" } */ + +/* Test the "andu" peephole2 trivially, memory operand. */ + +int +clearb (int x, int *y) +{ + return *y & 0xff00; +} + +int +andb (int x, int *y) +{ + return *y & 0x3f; +} + +int +andw (int x, int *y) +{ + return *y & 0xfff; +} + +int +andq (int x, int *y) +{ + return *y & 0xf0; +} + +int +andq2 (int x, int *y) +{ + return *y & 0xfff0; +} diff --git a/tests/GCCTestSuite/cris-peep2-andu1.c.expected b/tests/GCCTestSuite/cris-peep2-andu1.c.expected new file mode 100644 index 0000000..2e546e6 --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-andu1.c.expected @@ -0,0 +1,42 @@ +/* { dg-do compile { target cris-*-* } } */ +/* { dg-final { scan-assembler-not "and.d " } } */ +/* { dg-final { scan-assembler-not "move.d " } } */ +/* { dg-final { scan-assembler "cLear.b" } } */ +/* { dg-final { scan-assembler "movu.b" } } */ +/* { dg-final { scan-assembler "and.b" } } */ +/* { dg-final { scan-assembler "movu.w" } } */ +/* { dg-final { scan-assembler "and.w" } } */ +/* { dg-final { scan-assembler "andq" } } */ +/* { dg-options "-O2" } */ + +/* Test the "andu" peephole2 trivially, memory operand. */ + +int +clearb (int x, int *y) +{ + return *y & 0xff00; +} + +int +andb (int x, int *y) +{ + return *y & 0x3f; +} + +int +andw (int x, int *y) +{ + return *y & 0xfff; +} + +int +andq (int x, int *y) +{ + return *y & 0xf0; +} + +int +andq2 (int x, int *y) +{ + return *y & 0xfff0; +} diff --git a/tests/GCCTestSuite/cris-peep2-andu1.hex.expected b/tests/GCCTestSuite/cris-peep2-andu1.hex.expected new file mode 100644 index 0000000..4513d0c --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-andu1.hex.expected @@ -0,0 +1,103 @@ +:1000000000E506758206C39582F506E5077583004F +:100010009583F507D0E0F518D0E0F519E512F50F56 +:10002000E51BF501E51AF500E501F50A750900C3C0 +:10003000750100E509F5F0E50A35F0F509E501F58A +:10004000F0E50035F0F501E501F502E509F582E599 +:1000500002F583E0F50B750901C3750100E509F5AB +:10006000F0E50A35F0F509E501F5F0E50035F0F5C4 +:1000700001E501F502E509F582E502F583E0F50CFD +:10008000750902C3750100E509F5F0E50A35F0F5DB +:1000900009E501F5F0E50035F0F501E501F502E5CA +:1000A00009F582E502F583E0F50D750903C37501D5 +:1000B00000E509F5F0E50A35F0F509E501F5F0E5AB +:1000C0000035F0F501E501F502E509F582E502F5F7 +:1000D00083E0F50E7500007501FF750900750A00D3 +:1000E000C3E500F5F0E50B55F0F500E501F5F0E5A9 +:1000F0000C55F0F501E509F5F0E50D55F0F509E5CC +:100100000AF5F0E50E55F0F50AE500F502E501F512 +:1001100003E509F504E50AF505E50FF512E519C053 +:10012000E0E518C0E075E0062506F50675E0003547 +:1001300007F507E502F582E503F583E504F500E53B +:1001400005F5012200E506758206C39582F506E5F0 +:10015000077583009583F507D0E0F518D0E0F51911 +:10016000E512F50FE51BF501E51AF500E501F50AC5 +:10017000750900C3750100E509F5F0E50A35F0F5EC +:1001800009E501F5F0E50035F0F501E501F502E5D9 +:1001900009F582E502F583E0F50B750901C37501E8 +:1001A00000E509F5F0E50A35F0F509E501F5F0E5BA +:1001B0000035F0F501E501F502E509F582E502F506 +:1001C00083E0F50C750902C3750100E509F5F0E55A +:1001D0000A35F0F509E501F5F0E50035F0F501E542 +:1001E00001F502E509F582E502F583E0F50D7509F3 +:1001F00003C3750100E509F5F0E50A35F0F509E5F9 +:1002000001F5F0E50035F0F501E501F502E509F548 +:1002100082E502F583E0F50E75003F750100750972 +:1002200000750A00C3E500F5F0E50B55F0F500E5B3 +:1002300001F5F0E50C55F0F501E509F5F0E50D5592 +:10024000F0F509E50AF5F0E50E55F0F50AE500F5DB +:1002500002E501F503E509F504E50AF505E50FF505 +:1002600012E519C0E0E518C0E075E0062506F506C0 +:1002700075E0003507F507E502F582E503F583E54E +:1002800004F500E505F5012200E506758206C39533 +:1002900082F506E5077583009583F507D0E0F5182C +:1002A000D0E0F519E512F50FE51BF501E51AF500AB +:1002B000E501F50A750900C3750100E509F5F0E5EA +:1002C0000A35F0F509E501F5F0E50035F0F501E551 +:1002D00001F502E509F582E502F583E0F50B750904 +:1002E00001C3750100E509F5F0E50A35F0F509E50A +:1002F00001F5F0E50035F0F501E501F502E509F558 +:1003000082E502F583E0F50C750902C3750100E58D +:1003100009F5F0E50A35F0F509E501F5F0E50035F8 +:10032000F0F501E501F502E509F582E502F583E066 +:10033000F50D750903C3750100E509F5F0E50A350A +:10034000F0F509E501F5F0E50035F0F501E501F519 +:1003500002E509F582E502F583E0F50E7500FF750B +:10036000010F750900750A00C3E500F5F0E50B55AE +:10037000F0F500E501F5F0E50C55F0F501E509F5BE +:10038000F0E50D55F0F509E50AF5F0E50E55F0F547 +:100390000AE500F502E501F503E509F504E50AF5CE +:1003A00005E50FF512E519C0E0E518C0E075E006B7 +:1003B0002506F50675E0003507F507E502F582E547 +:1003C00003F583E504F500E505F5012200E5067572 +:1003D0008206C39582F506E5077583009583F507C8 +:1003E000D0E0F518D0E0F519E512F50FE51BF501A1 +:1003F000E51AF500E501F50A750900C3750100E588 +:1004000009F5F0E50A35F0F509E501F5F0E5003507 +:10041000F0F501E501F502E509F582E502F583E075 +:10042000F50B750901C3750100E509F5F0E50A351D +:10043000F0F509E501F5F0E50035F0F501E501F528 +:1004400002E509F582E502F583E0F50C750902C3C2 +:10045000750100E509F5F0E50A35F0F509E501F566 +:10046000F0E50035F0F501E501F502E509F582E575 +:1004700002F583E0F50D750903C3750100E509F583 +:10048000F0E50A35F0F509E501F5F0E50035F0F5A0 +:1004900001E501F502E509F582E502F583E0F50ED7 +:1004A0007500F0750100750900750A00C3E500F5D7 +:1004B000F0E50B55F0F500E501F5F0E50C55F0F52C +:1004C00001E509F5F0E50D55F0F509E50AF5F0E56A +:1004D0000E55F0F50AE500F502E501F503E509F52D +:1004E00004E50AF505E50FF512E519C0E0E518C0C9 +:1004F000E075E0062506F50675E0003507F507E529 +:1005000002F582E503F583E504F500E505F5012232 +:1005100000E506758206C39582F506E5077583003A +:100520009583F507D0E0F518D0E0F519E512F50F41 +:10053000E51BF501E51AF500E501F50A750900C3AB +:10054000750100E509F5F0E50A35F0F509E501F575 +:10055000F0E50035F0F501E501F502E509F582E584 +:1005600002F583E0F50B750901C3750100E509F596 +:10057000F0E50A35F0F509E501F5F0E50035F0F5AF +:1005800001E501F502E509F582E502F583E0F50CE8 +:10059000750902C3750100E509F5F0E50A35F0F5C6 +:1005A00009E501F5F0E50035F0F501E501F502E5B5 +:1005B00009F582E502F583E0F50D750903C37501C0 +:1005C00000E509F5F0E50A35F0F509E501F5F0E596 +:1005D0000035F0F501E501F502E509F582E502F5E2 +:1005E00083E0F50E7500F07501FF750900750A00CE +:1005F000C3E500F5F0E50B55F0F500E501F5F0E594 +:100600000C55F0F501E509F5F0E50D55F0F509E5B6 +:100610000AF5F0E50E55F0F50AE500F502E501F5FD +:1006200003E509F504E50AF505E50FF512E519C03E +:10063000E0E518C0E075E0062506F50675E0003532 +:1006400007F507E502F582E503F583E504F500E526 +:1006500005F501220000000000000000000000007D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/cris-peep2-andu1.s.expected b/tests/GCCTestSuite/cris-peep2-andu1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-andu1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/cris-peep2-andu2.c b/tests/GCCTestSuite/cris-peep2-andu2.c new file mode 100644 index 0000000..4f687cc --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-andu2.c @@ -0,0 +1,32 @@ +/* { dg-do compile { target cris-*-* } } */ +/* { dg-final { scan-assembler "movu.w \\\$r10,\\\$r" } } */ +/* { dg-final { scan-assembler "and.w 2047,\\\$r" } } */ +/* { dg-final { scan-assembler-not "move.d \\\$r10,\\\$r" } } */ +/* { dg-final { scan-assembler "movu.b \\\$r10,\\\$r" } } */ +/* { dg-final { scan-assembler "and.b 95,\\\$r" } } */ +/* { dg-final { scan-assembler "andq -2,\\\$r" } } */ +/* { dg-options "-O2" } */ + +/* Test the "andu" peephole2 trivially, register operand. */ + +unsigned int +and_peep2_hi (unsigned int y, unsigned int *x) +{ + *x = y & 0x7ff; + return y; +} + +unsigned int +and_peep2_qi (unsigned int y, unsigned int *x) +{ + *x = y & 0x5f; + return y; +} + + +unsigned int +and_peep2_q (unsigned int y, unsigned int *x) +{ + *x = y & 0xfe; + return y; +} diff --git a/tests/GCCTestSuite/cris-peep2-andu2.c.expected b/tests/GCCTestSuite/cris-peep2-andu2.c.expected new file mode 100644 index 0000000..4f687cc --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-andu2.c.expected @@ -0,0 +1,32 @@ +/* { dg-do compile { target cris-*-* } } */ +/* { dg-final { scan-assembler "movu.w \\\$r10,\\\$r" } } */ +/* { dg-final { scan-assembler "and.w 2047,\\\$r" } } */ +/* { dg-final { scan-assembler-not "move.d \\\$r10,\\\$r" } } */ +/* { dg-final { scan-assembler "movu.b \\\$r10,\\\$r" } } */ +/* { dg-final { scan-assembler "and.b 95,\\\$r" } } */ +/* { dg-final { scan-assembler "andq -2,\\\$r" } } */ +/* { dg-options "-O2" } */ + +/* Test the "andu" peephole2 trivially, register operand. */ + +unsigned int +and_peep2_hi (unsigned int y, unsigned int *x) +{ + *x = y & 0x7ff; + return y; +} + +unsigned int +and_peep2_qi (unsigned int y, unsigned int *x) +{ + *x = y & 0x5f; + return y; +} + + +unsigned int +and_peep2_q (unsigned int y, unsigned int *x) +{ + *x = y & 0xfe; + return y; +} diff --git a/tests/GCCTestSuite/cris-peep2-andu2.hex.expected b/tests/GCCTestSuite/cris-peep2-andu2.hex.expected new file mode 100644 index 0000000..81a78f0 --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-andu2.hex.expected @@ -0,0 +1,66 @@ +:1000000000E506758206C39582F506E5077583004F +:100010009583F507D0E0F518D0E0F519E516F50D54 +:10002000E515F50EE514F50F7509FF750A0775015D +:1000300000750000C3E509F5F0E51F55F0F509E589 +:100040000AF5F0E51E55F0F50AE501F5F0E51D5558 +:10005000F0F50BE500F5F0E51C55F0F50C75010029 +:10006000C3750000E501F5F0E51B35F0F501E5008D +:10007000F5F0E51A35F0F500E509F503E500F502C0 +:10008000E501F582E502F583E503F0750101C3752D +:100090000000E501F5F0E51B35F0F501E500F5F0B0 +:1000A000E51A35F0F500E50AF503E500F502E5018E +:1000B000F582E502F583E503F0750102C3750000E2 +:1000C000E501F5F0E51B35F0F501E500F5F0E51A81 +:1000D00035F0F500E50BF503E500F502E501F582E5 +:1000E000E502F583E503F0750103C3750000E50142 +:1000F000F5F0E51B35F0F501E500F5F0E51A35F012 +:10010000F500E50CF503E500F502E501F582E502F1 +:10011000F583E503F0E51FF502E51EF503E51DF5A2 +:1001200004E51CF505E50DF516E50EF515E50FF5ED +:1001300014E519C0E0E518C0E075E0062506F506EF +:1001400075E0003507F507E502F582E503F583E57F +:1001500004F500E505F5012200E506758206C39564 +:1001600082F506E5077583009583F507D0E0F5185D +:10017000D0E0F519E516F50DE515F50EE514F50FCA +:1001800075095F750A00750100750000C3E509F582 +:10019000F0E51F55F0F509E50AF5F0E51E55F0F517 +:1001A0000AE501F5F0E51D55F0F50BE500F5F0E584 +:1001B0001C55F0F50C750100C3750000E501F5F064 +:1001C000E51B35F0F501E500F5F0E51A35F0F50031 +:1001D000E509F503E500F502E501F582E502F583A1 +:1001E000E503F0750101C3750000E501F5F0E51BBD +:1001F00035F0F501E500F5F0E51A35F0F500E50A12 +:10020000F503E500F502E501F582E502F583E50376 +:10021000F0750102C3750000E501F5F0E51B35F04E +:10022000F501E500F5F0E51A35F0F500E50BF5030D +:10023000E500F502E501F582E502F583E503F075D9 +:100240000103C3750000E501F5F0E51B35F0F5018C +:10025000E500F5F0E51A35F0F500E50CF503E500ED +:10026000F502E501F582E502F583E503F0E51FF50A +:1002700002E51EF503E51DF504E51CF505E50DF5A4 +:1002800016E50EF515E50FF514E519C0E0E518C003 +:10029000E075E0062506F50675E0003507F507E58B +:1002A00002F582E503F583E504F500E505F5012295 +:1002B00000E506758206C39582F506E5077583009D +:1002C0009583F507D0E0F518D0E0F519E516F50DA2 +:1002D000E515F50EE514F50F7509FE750A007501B3 +:1002E00000750000C3E509F5F0E51F55F0F509E5D7 +:1002F0000AF5F0E51E55F0F50AE501F5F0E51D55A6 +:10030000F0F50BE500F5F0E51C55F0F50C75010076 +:10031000C3750000E501F5F0E51B35F0F501E500DA +:10032000F5F0E51A35F0F500E509F503E500F5020D +:10033000E501F582E502F583E503F0750101C3757A +:100340000000E501F5F0E51B35F0F501E500F5F0FD +:10035000E51A35F0F500E50AF503E500F502E501DB +:10036000F582E502F583E503F0750102C37500002F +:10037000E501F5F0E51B35F0F501E500F5F0E51ACE +:1003800035F0F500E50BF503E500F502E501F58232 +:10039000E502F583E503F0750103C3750000E5018F +:1003A000F5F0E51B35F0F501E500F5F0E51A35F05F +:1003B000F500E50CF503E500F502E501F582E5023F +:1003C000F583E503F0E51FF502E51EF503E51DF5F0 +:1003D00004E51CF505E50DF516E50EF515E50FF53B +:1003E00014E519C0E0E518C0E075E0062506F5063D +:1003F00075E0003507F507E502F582E503F583E5CD +:1004000004F500E505F501220000000000000000F1 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/cris-peep2-andu2.s.expected b/tests/GCCTestSuite/cris-peep2-andu2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-andu2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/cris-peep2-xsrand.c b/tests/GCCTestSuite/cris-peep2-xsrand.c new file mode 100644 index 0000000..9cfe40f --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-xsrand.c @@ -0,0 +1,32 @@ +/* { dg-do compile { target cris-*-* } } */ +/* { dg-final { scan-assembler "and.w " } } */ +/* { dg-final { scan-assembler "and.b " } } */ +/* { dg-final { scan-assembler-not "and.d" } } */ +/* { dg-options "-O2" } */ + +/* Test the "asrandb", "asrandw", "lsrandb" and "lsrandw" peephole2:s + trivially. */ + +unsigned int +andwlsr (unsigned int x) +{ + return (x >> 17) & 0x7ff; +} + +unsigned int +andblsr (unsigned int x) +{ + return (x >> 25) & 0x5f; +} + +int +andwasr (int x) +{ + return (x >> 17) & 0x7ff; +} + +int +andbasr (int x) +{ + return (x >> 25) & 0x5f; +} diff --git a/tests/GCCTestSuite/cris-peep2-xsrand.c.expected b/tests/GCCTestSuite/cris-peep2-xsrand.c.expected new file mode 100644 index 0000000..9cfe40f --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-xsrand.c.expected @@ -0,0 +1,32 @@ +/* { dg-do compile { target cris-*-* } } */ +/* { dg-final { scan-assembler "and.w " } } */ +/* { dg-final { scan-assembler "and.b " } } */ +/* { dg-final { scan-assembler-not "and.d" } } */ +/* { dg-options "-O2" } */ + +/* Test the "asrandb", "asrandw", "lsrandb" and "lsrandw" peephole2:s + trivially. */ + +unsigned int +andwlsr (unsigned int x) +{ + return (x >> 17) & 0x7ff; +} + +unsigned int +andblsr (unsigned int x) +{ + return (x >> 25) & 0x5f; +} + +int +andwasr (int x) +{ + return (x >> 17) & 0x7ff; +} + +int +andbasr (int x) +{ + return (x >> 25) & 0x5f; +} diff --git a/tests/GCCTestSuite/cris-peep2-xsrand2.c b/tests/GCCTestSuite/cris-peep2-xsrand2.c new file mode 100644 index 0000000..30679b2 --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-xsrand2.c @@ -0,0 +1,34 @@ +/* { dg-do compile { target cris-*-* } } */ +/* { dg-final { scan-assembler "and.w -137," } } */ +/* { dg-final { scan-assembler "and.b -64," } } */ +/* { dg-final { scan-assembler "and.w -139," } } */ +/* { dg-final { scan-assembler "and.b -63," } } */ +/* { dg-final { scan-assembler-not "and.d" } } */ +/* { dg-options "-O2" } */ + +/* PR target/17984. Test-case based on + testsuite/gcc.dg/cris-peep2-xsrand.c. */ + +unsigned int +andwlsr (unsigned int x) +{ + return (x >> 16) & 0xff77; +} + +unsigned int +andblsr (unsigned int x) +{ + return (x >> 24) & 0xc0; +} + +int +andwasr (int x) +{ + return (x >> 16) & 0xff75; +} + +int +andbasr (int x) +{ + return (x >> 24) & 0xc1; +} diff --git a/tests/GCCTestSuite/cris-peep2-xsrand2.c.expected b/tests/GCCTestSuite/cris-peep2-xsrand2.c.expected new file mode 100644 index 0000000..30679b2 --- /dev/null +++ b/tests/GCCTestSuite/cris-peep2-xsrand2.c.expected @@ -0,0 +1,34 @@ +/* { dg-do compile { target cris-*-* } } */ +/* { dg-final { scan-assembler "and.w -137," } } */ +/* { dg-final { scan-assembler "and.b -64," } } */ +/* { dg-final { scan-assembler "and.w -139," } } */ +/* { dg-final { scan-assembler "and.b -63," } } */ +/* { dg-final { scan-assembler-not "and.d" } } */ +/* { dg-options "-O2" } */ + +/* PR target/17984. Test-case based on + testsuite/gcc.dg/cris-peep2-xsrand.c. */ + +unsigned int +andwlsr (unsigned int x) +{ + return (x >> 16) & 0xff77; +} + +unsigned int +andblsr (unsigned int x) +{ + return (x >> 24) & 0xc0; +} + +int +andwasr (int x) +{ + return (x >> 16) & 0xff75; +} + +int +andbasr (int x) +{ + return (x >> 24) & 0xc1; +} diff --git a/tests/GCCTestSuite/darwin-20040809-2.c b/tests/GCCTestSuite/darwin-20040809-2.c new file mode 100644 index 0000000..5ed27a4 --- /dev/null +++ b/tests/GCCTestSuite/darwin-20040809-2.c @@ -0,0 +1,15 @@ +/* Test dead code strip support. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-g -fno-eliminate-unused-debug-symbols" } */ + +int +main () +{ + return 0; +} + +/* { dg-final { scan-assembler ".stabd.46,0,0" } } */ +/* { dg-final { scan-assembler ".stabd.78,0,0" } } */ + diff --git a/tests/GCCTestSuite/darwin-20040809-2.c.expected b/tests/GCCTestSuite/darwin-20040809-2.c.expected new file mode 100644 index 0000000..5ed27a4 --- /dev/null +++ b/tests/GCCTestSuite/darwin-20040809-2.c.expected @@ -0,0 +1,15 @@ +/* Test dead code strip support. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-g -fno-eliminate-unused-debug-symbols" } */ + +int +main () +{ + return 0; +} + +/* { dg-final { scan-assembler ".stabd.46,0,0" } } */ +/* { dg-final { scan-assembler ".stabd.78,0,0" } } */ + diff --git a/tests/GCCTestSuite/darwin-20040809-2.hex.expected b/tests/GCCTestSuite/darwin-20040809-2.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-20040809-2.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-20040809-2.s.expected b/tests/GCCTestSuite/darwin-20040809-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-20040809-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-20040812-1.c b/tests/GCCTestSuite/darwin-20040812-1.c new file mode 100644 index 0000000..4ae8657 --- /dev/null +++ b/tests/GCCTestSuite/darwin-20040812-1.c @@ -0,0 +1,24 @@ +/* Test dead code strip support. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ + +const char my_version_string[] __attribute__((__used__)) + = "Do not remove this string\n"; + + static int + __attribute__((__used__)) + static_debug_routine() +{ + int i; + i = 42; +} + +int +main () +{ + return 0; +} + +/* { dg-final { scan-assembler ".no_dead_strip _my_version_string" } } */ +/* { dg-final { scan-assembler ".no_dead_strip _static_debug_routine" } } */ diff --git a/tests/GCCTestSuite/darwin-20040812-1.c.expected b/tests/GCCTestSuite/darwin-20040812-1.c.expected new file mode 100644 index 0000000..4ae8657 --- /dev/null +++ b/tests/GCCTestSuite/darwin-20040812-1.c.expected @@ -0,0 +1,24 @@ +/* Test dead code strip support. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ + +const char my_version_string[] __attribute__((__used__)) + = "Do not remove this string\n"; + + static int + __attribute__((__used__)) + static_debug_routine() +{ + int i; + i = 42; +} + +int +main () +{ + return 0; +} + +/* { dg-final { scan-assembler ".no_dead_strip _my_version_string" } } */ +/* { dg-final { scan-assembler ".no_dead_strip _static_debug_routine" } } */ diff --git a/tests/GCCTestSuite/darwin-20040812-1.hex.expected b/tests/GCCTestSuite/darwin-20040812-1.hex.expected new file mode 100644 index 0000000..f5a3444 --- /dev/null +++ b/tests/GCCTestSuite/darwin-20040812-1.hex.expected @@ -0,0 +1,187 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F50CD0E0F50D900000E582F50A90F7 +:100020000000E583F50B750900750100C37500003C +:10003000E501F5F0E50935F0F500C3750100E500CF +:10004000F5F0E50A35F0F500E501F5F0E50B35F0E2 +:10005000F50B750A44750900C3750100E509F5F053 +:10006000E50035F0F500E501F5F0E50B35F0F501BB +:10007000E50AF503E501F502E500F582E502F58301 +:10008000E503F0900000E582F50A900000E583F5B5 +:100090000B750900750101C3750000E501F5F0E578 +:1000A0000935F0F500C3750100E500F5F0E50A3506 +:1000B000F0F500E501F5F0E50B35F0F50B750A6F8D +:1000C000750900C3750100E509F5F0E50035F0F5A7 +:1000D00000E501F5F0E50B35F0F501E50AF503E57E +:1000E00001F502E500F582E502F583E503F09000F5 +:1000F00000E582F50A900000E583F50B75090075AF +:100100000102C3750000E501F5F0E50935F0F500E1 +:10011000C3750100E500F5F0E50A35F0F500E501ED +:10012000F5F0E50B35F0F50B750A20750900C37580 +:100130000100E509F5F0E50035F0F500E501F5F021 +:10014000E50B35F0F501E50AF503E501F502E500FB +:10015000F582E502F583E503F0900000E582F50AFB +:10016000900000E583F50B750900750103C3750068 +:1001700000E501F5F0E50935F0F500C3750100E58E +:1001800000F5F0E50A35F0F500E501F5F0E50B3591 +:10019000F0F50B750A6E750900C3750100E509F5E8 +:1001A000F0E50035F0F500E501F5F0E50B35F0F58B +:1001B00001E50AF503E501F502E500F582E502F542 +:1001C00083E503F0900000E582F50A900000E583E6 +:1001D000F50B750900750104C3750000E501F5F024 +:1001E000E50935F0F500C3750100E500F5F0E50A15 +:1001F00035F0F500E501F5F0E50B35F0F50B750A86 +:100200006F750900C3750100E509F5F0E50035F0EB +:10021000F500E501F5F0E50B35F0F501E50AF5032C +:10022000E501F502E500F582E502F583E503F090CE +:100230000000E582F50A900000E583F50B750900E2 +:10024000750105C3750000E501F5F0E50935F0F528 +:1002500000C3750100E500F5F0E50A35F0F500E5AD +:1002600001F5F0E50B35F0F50B750A74750900C35F +:10027000750100E509F5F0E50035F0F500E501F55B +:10028000F0E50B35F0F501E50AF503E501F502E5CA +:1002900000F582E502F583E503F0900000E582F5C4 +:1002A0000A900000E583F50B750900750106C3751A +:1002B0000000E501F5F0E50935F0F500C375010032 +:1002C000E500F5F0E50A35F0F500E501F5F0E50BA0 +:1002D00035F0F50B750A20750900C3750100E509B5 +:1002E000F5F0E50035F0F500E501F5F0E50B35F04A +:1002F000F501E50AF503E501F502E500F582E50201 +:10030000F583E503F0900000E582F50A900000E532 +:1003100083F50B750900750107C3750000E501F54C +:10032000F0E50935F0F500C3750100E500F5F0E5ED +:100330000A35F0F500E501F5F0E50B35F0F50B7544 +:100340000A72750900C3750100E509F5F0E500358D +:10035000F0F500E501F5F0E50B35F0F501E50AF5FE +:1003600003E501F502E500F582E502F583E503F01A +:10037000900000E582F50A900000E583F50B750911 +:1003800000750108C3750000E501F5F0E50935F0D9 +:10039000F500C3750100E500F5F0E50A35F0F5005C +:1003A000E501F5F0E50B35F0F50B750A657509000B +:1003B000C3750100E509F5F0E50035F0F500E5014C +:1003C000F5F0E50B35F0F501E50AF503E501F50279 +:1003D000E500F582E502F583E503F0900000E58293 +:1003E000F50A900000E583F50B750900750109C356 +:1003F000750000E501F5F0E50935F0F500C375017C +:1004000000E500F5F0E50A35F0F500E501F5F0E569 +:100410000B35F0F50B750A6D750900C3750100E524 +:1004200009F5F0E50035F0F500E501F5F0E50B35EF +:10043000F0F501E50AF503E501F502E500F582E5D1 +:1004400002F583E503F0900000E582F50A900000D4 +:10045000E583F50B75090075010AC3750000E50118 +:10046000F5F0E50935F0F500C3750100E500F5F09C +:10047000E50A35F0F500E501F5F0E50B35F0F50B93 +:10048000750A6F750900C3750100E509F5F0E5000F +:1004900035F0F500E501F5F0E50B35F0F501E50A7D +:1004A000F503E501F502E500F582E502F583E503D4 +:1004B000F0900000E582F50A900000E583F50B75E9 +:1004C000090075010BC3750000E501F5F0E509357C +:1004D000F0F500C3750100E500F5F0E50A35F0F52B +:1004E00000E501F5F0E50B35F0F50B750A767509B9 +:1004F00000C3750100E509F5F0E50035F0F500E50C +:1005000001F5F0E50B35F0F501E50AF503E501F538 +:1005100002E500F582E502F583E503F0900000E5D1 +:1005200082F50A900000E583F50B75090075010C52 +:10053000C3750000E501F5F0E50935F0F500C37578 +:100540000100E500F5F0E50A35F0F500E501F5F00C +:10055000E50B35F0F50B750A65750900C3750100EB +:10056000E509F5F0E50035F0F500E501F5F0E50BFE +:1005700035F0F501E50AF503E501F502E500F58240 +:10058000E502F583E503F0900000E582F50A9000AE +:1005900000E583F50B75090075010DC3750000E5D5 +:1005A00001F5F0E50935F0F500C3750100E500F54A +:1005B000F0E50A35F0F500E501F5F0E50B35F0F56D +:1005C0000B750A20750900C3750100E509F5F0E512 +:1005D0000035F0F500E501F5F0E50B35F0F501E546 +:1005E0000AF503E501F502E500F582E502F583E58C +:1005F00003F0900000E582F50A900000E583F50B1A +:1006000075090075010EC3750000E501F5F0E509F7 +:1006100035F0F500C3750100E500F5F0E50A35F0A9 +:10062000F500E501F5F0E50B35F0F50B750A74758D +:100630000900C3750100E509F5F0E50035F0F500A6 +:10064000E501F5F0E50B35F0F501E50AF503E50107 +:10065000F502E500F582E502F583E503F090000080 +:10066000E582F50A900000E583F50B750900750138 +:100670000FC3750000E501F5F0E50935F0F500C39D +:10068000750100E500F5F0E50A35F0F500E501F546 +:10069000F0E50B35F0F50B750A68750900C37501B7 +:1006A00000E509F5F0E50035F0F500E501F5F0E5C8 +:1006B0000B35F0F501E50AF503E501F502E500F576 +:1006C00082E502F583E503F0900000E582F50A90EB +:1006D0000000E583F50B750900750110C375000076 +:1006E000E501F5F0E50935F0F500C3750100E50019 +:1006F000F5F0E50A35F0F500E501F5F0E50B35F02C +:10070000F50B750A69750900C3750100E509F5F077 +:10071000E50035F0F500E501F5F0E50B35F0F50104 +:10072000E50AF503E501F502E500F582E502F5834A +:10073000E503F0900000E582F50A900000E583F5FE +:100740000B750900750111C3750000E501F5F0E5B1 +:100750000935F0F500C3750100E500F5F0E50A354F +:10076000F0F500E501F5F0E50B35F0F50B750A73D2 +:10077000750900C3750100E509F5F0E50035F0F5F0 +:1007800000E501F5F0E50B35F0F501E50AF503E5C7 +:1007900001F502E500F582E502F583E503F090003E +:1007A00000E582F50A900000E583F50B75090075F8 +:1007B0000112C3750000E501F5F0E50935F0F5001B +:1007C000C3750100E500F5F0E50A35F0F500E50137 +:1007D000F5F0E50B35F0F50B750A20750900C375CA +:1007E0000100E509F5F0E50035F0F500E501F5F06B +:1007F000E50B35F0F501E50AF503E501F502E50045 +:10080000F582E502F583E503F0900000E582F50A44 +:10081000900000E583F50B750900750113C37500A1 +:1008200000E501F5F0E50935F0F500C3750100E5D7 +:1008300000F5F0E50A35F0F500E501F5F0E50B35DA +:10084000F0F50B750A73750900C3750100E509F52C +:10085000F0E50035F0F500E501F5F0E50B35F0F5D4 +:1008600001E50AF503E501F502E500F582E502F58B +:1008700083E503F0900000E582F50A900000E5832F +:10088000F50B750900750114C3750000E501F5F05D +:10089000E50935F0F500C3750100E500F5F0E50A5E +:1008A00035F0F500E501F5F0E50B35F0F50B750ACF +:1008B00074750900C3750100E509F5F0E50035F030 +:1008C000F500E501F5F0E50B35F0F501E50AF50376 +:1008D000E501F502E500F582E502F583E503F09018 +:1008E0000000E582F50A900000E583F50B7509002C +:1008F000750115C3750000E501F5F0E50935F0F562 +:1009000000C3750100E500F5F0E50A35F0F500E5F6 +:1009100001F5F0E50B35F0F50B750A72750900C3AA +:10092000750100E509F5F0E50035F0F500E501F5A4 +:10093000F0E50B35F0F501E50AF503E501F502E513 +:1009400000F582E502F583E503F0900000E582F50D +:100950000A900000E583F50B750900750116C37553 +:100960000000E501F5F0E50935F0F500C37501007B +:10097000E500F5F0E50A35F0F500E501F5F0E50BE9 +:1009800035F0F50B750A69750900C3750100E509B5 +:10099000F5F0E50035F0F500E501F5F0E50B35F093 +:1009A000F501E50AF503E501F502E500F582E5024A +:1009B000F583E503F0900000E582F50A900000E57C +:1009C00083F50B750900750117C3750000E501F586 +:1009D000F0E50935F0F500C3750100E500F5F0E537 +:1009E0000A35F0F500E501F5F0E50B35F0F50B758E +:1009F0000A6E750900C3750100E509F5F0E50035DB +:100A0000F0F500E501F5F0E50B35F0F501E50AF547 +:100A100003E501F502E500F582E502F583E503F063 +:100A2000900000E582F50A900000E583F50B75095A +:100A300000750118C3750000E501F5F0E50935F012 +:100A4000F500C3750100E500F5F0E50A35F0F500A5 +:100A5000E501F5F0E50B35F0F50B750A6775090052 +:100A6000C3750100E509F5F0E50035F0F500E50195 +:100A7000F5F0E50B35F0F501E50AF503E501F502C2 +:100A8000E500F582E502F583E503F0900000E582DC +:100A9000F50A900000E583F50B750900750119C38F +:100AA000750000E501F5F0E50935F0F500C37501C5 +:100AB00000E500F5F0E50A35F0F500E501F5F0E5B3 +:100AC0000B35F0F50B750A0A750900C3750100E5D1 +:100AD00009F5F0E50035F0F500E501F5F0E50B3539 +:100AE000F0F501E50AF503E501F502E500F582E51B +:100AF00002F583E503F0900000E582F50A9000001E +:100B0000E583F50B75090075011AC3750000E50151 +:100B1000F5F0E50935F0F500C3750100E500F5F0E5 +:100B2000E50A35F0F500E501F5F0E50B35F0F50BDC +:100B3000750A00750900C3750100E509F5F0E500C7 +:100B400035F0F500E501F5F0E50B35F0F501E50AC6 +:100B5000F503E501F502E500F582E502F583E5031D +:100B6000F0750000750100750900750A00E500F5D3 +:100B700002E501F503E509F504E50AF505E50DC013 +:100B8000E0E50CC0E0E502F582E503F583E504F558 +:100B900000E505F501220000000000000000000053 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-20040812-1.s.expected b/tests/GCCTestSuite/darwin-20040812-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-20040812-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-1.c b/tests/GCCTestSuite/darwin-ld-1.c new file mode 100644 index 0000000..6076157 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-1.c @@ -0,0 +1,11 @@ +/* Test Darwin linker option -all_load. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-all_load" } */ +/* { dg-do link { target *-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-1.c.expected b/tests/GCCTestSuite/darwin-ld-1.c.expected new file mode 100644 index 0000000..6076157 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-1.c.expected @@ -0,0 +1,11 @@ +/* Test Darwin linker option -all_load. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-all_load" } */ +/* { dg-do link { target *-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-1.hex.expected b/tests/GCCTestSuite/darwin-ld-1.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-1.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-1.s.expected b/tests/GCCTestSuite/darwin-ld-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-2.c b/tests/GCCTestSuite/darwin-ld-2.c new file mode 100644 index 0000000..33a9c86 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-2.c @@ -0,0 +1,11 @@ +/* Test Darwin linker option -bind_at_load. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-bind_at_load" } */ +/* { dg-do link { target powerpc-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-2.c.expected b/tests/GCCTestSuite/darwin-ld-2.c.expected new file mode 100644 index 0000000..33a9c86 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-2.c.expected @@ -0,0 +1,11 @@ +/* Test Darwin linker option -bind_at_load. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-bind_at_load" } */ +/* { dg-do link { target powerpc-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-2.hex.expected b/tests/GCCTestSuite/darwin-ld-2.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-2.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-2.s.expected b/tests/GCCTestSuite/darwin-ld-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-20040809-1.c b/tests/GCCTestSuite/darwin-ld-20040809-1.c new file mode 100644 index 0000000..c54a4aa --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040809-1.c @@ -0,0 +1,13 @@ +/* Test -dead_strip support. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-dead_strip" } */ + + +int +main () +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-20040809-1.c.expected b/tests/GCCTestSuite/darwin-ld-20040809-1.c.expected new file mode 100644 index 0000000..c54a4aa --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040809-1.c.expected @@ -0,0 +1,13 @@ +/* Test -dead_strip support. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-dead_strip" } */ + + +int +main () +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-20040809-1.hex.expected b/tests/GCCTestSuite/darwin-ld-20040809-1.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040809-1.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-20040809-1.s.expected b/tests/GCCTestSuite/darwin-ld-20040809-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040809-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-20040809-2.c b/tests/GCCTestSuite/darwin-ld-20040809-2.c new file mode 100644 index 0000000..73d788d --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040809-2.c @@ -0,0 +1,12 @@ +/* Test -no_dead_strip_inits_and_terms support. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-no_dead_strip_inits_and_terms" } */ + +int +main () +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-20040809-2.c.expected b/tests/GCCTestSuite/darwin-ld-20040809-2.c.expected new file mode 100644 index 0000000..73d788d --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040809-2.c.expected @@ -0,0 +1,12 @@ +/* Test -no_dead_strip_inits_and_terms support. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-no_dead_strip_inits_and_terms" } */ + +int +main () +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-20040809-2.hex.expected b/tests/GCCTestSuite/darwin-ld-20040809-2.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040809-2.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-20040809-2.s.expected b/tests/GCCTestSuite/darwin-ld-20040809-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040809-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-20040828-1.c b/tests/GCCTestSuite/darwin-ld-20040828-1.c new file mode 100644 index 0000000..b90328b --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-1.c @@ -0,0 +1,13 @@ +/* Test -segaddr. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-segaddr __DATA 4000" } */ + + +int +main () +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-20040828-1.c.expected b/tests/GCCTestSuite/darwin-ld-20040828-1.c.expected new file mode 100644 index 0000000..b90328b --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-1.c.expected @@ -0,0 +1,13 @@ +/* Test -segaddr. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-segaddr __DATA 4000" } */ + + +int +main () +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-20040828-1.hex.expected b/tests/GCCTestSuite/darwin-ld-20040828-1.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-1.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-20040828-1.s.expected b/tests/GCCTestSuite/darwin-ld-20040828-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-20040828-2.c b/tests/GCCTestSuite/darwin-ld-20040828-2.c new file mode 100644 index 0000000..51f5ae8 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-2.c @@ -0,0 +1,13 @@ +/* Test -segs_read_only_addr. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-segs_read_only_addr 4000 -dynamiclib" } */ + + +int +main () +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-20040828-2.c.expected b/tests/GCCTestSuite/darwin-ld-20040828-2.c.expected new file mode 100644 index 0000000..51f5ae8 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-2.c.expected @@ -0,0 +1,13 @@ +/* Test -segs_read_only_addr. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-segs_read_only_addr 4000 -dynamiclib" } */ + + +int +main () +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-20040828-2.hex.expected b/tests/GCCTestSuite/darwin-ld-20040828-2.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-2.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-20040828-2.s.expected b/tests/GCCTestSuite/darwin-ld-20040828-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-20040828-3.c b/tests/GCCTestSuite/darwin-ld-20040828-3.c new file mode 100644 index 0000000..ca8928b --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-3.c @@ -0,0 +1,13 @@ +/* Test -segs_read_write_addr. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-segs_read_only_addr 4000 -segs_read_write_addr 8000 -dynamiclib" } */ + + +int +main () +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-20040828-3.c.expected b/tests/GCCTestSuite/darwin-ld-20040828-3.c.expected new file mode 100644 index 0000000..ca8928b --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-3.c.expected @@ -0,0 +1,13 @@ +/* Test -segs_read_write_addr. */ +/* Contributed by Devang Patel */ + +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-options "-segs_read_only_addr 4000 -segs_read_write_addr 8000 -dynamiclib" } */ + + +int +main () +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-20040828-3.hex.expected b/tests/GCCTestSuite/darwin-ld-20040828-3.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-3.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-20040828-3.s.expected b/tests/GCCTestSuite/darwin-ld-20040828-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-20040828-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-3.c b/tests/GCCTestSuite/darwin-ld-3.c new file mode 100644 index 0000000..e3efaca --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-3.c @@ -0,0 +1,12 @@ + +/* Test Darwin linker option -arch_errors_fatal. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-arch_errors_fatal" } */ +/* { dg-do link { target *-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-3.c.expected b/tests/GCCTestSuite/darwin-ld-3.c.expected new file mode 100644 index 0000000..e3efaca --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-3.c.expected @@ -0,0 +1,12 @@ + +/* Test Darwin linker option -arch_errors_fatal. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-arch_errors_fatal" } */ +/* { dg-do link { target *-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-3.hex.expected b/tests/GCCTestSuite/darwin-ld-3.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-3.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-3.s.expected b/tests/GCCTestSuite/darwin-ld-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-4.c b/tests/GCCTestSuite/darwin-ld-4.c new file mode 100644 index 0000000..35d1be4 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-4.c @@ -0,0 +1,11 @@ +/* Test Darwin linker option -bundle. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-bundle" } */ +/* { dg-do link { target powerpc-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-4.c.expected b/tests/GCCTestSuite/darwin-ld-4.c.expected new file mode 100644 index 0000000..35d1be4 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-4.c.expected @@ -0,0 +1,11 @@ +/* Test Darwin linker option -bundle. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-bundle" } */ +/* { dg-do link { target powerpc-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-4.hex.expected b/tests/GCCTestSuite/darwin-ld-4.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-4.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-4.s.expected b/tests/GCCTestSuite/darwin-ld-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-5.c b/tests/GCCTestSuite/darwin-ld-5.c new file mode 100644 index 0000000..0540f92 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-5.c @@ -0,0 +1,11 @@ +/* Test Darwin linker option -dynamic. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-dynamic" } */ +/* { dg-do link { target *-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-5.c.expected b/tests/GCCTestSuite/darwin-ld-5.c.expected new file mode 100644 index 0000000..0540f92 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-5.c.expected @@ -0,0 +1,11 @@ +/* Test Darwin linker option -dynamic. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-dynamic" } */ +/* { dg-do link { target *-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-5.hex.expected b/tests/GCCTestSuite/darwin-ld-5.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-5.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-5.s.expected b/tests/GCCTestSuite/darwin-ld-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-6.c b/tests/GCCTestSuite/darwin-ld-6.c new file mode 100644 index 0000000..e3985ea --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-6.c @@ -0,0 +1,11 @@ +/* Test Darwin linker option -nofixprebinding. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-nofixprebinding" } */ +/* { dg-do link { target *-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-6.c.expected b/tests/GCCTestSuite/darwin-ld-6.c.expected new file mode 100644 index 0000000..e3985ea --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-6.c.expected @@ -0,0 +1,11 @@ +/* Test Darwin linker option -nofixprebinding. */ +/* Developed by Devang Patel . */ + +/* { dg-options "-nofixprebinding" } */ +/* { dg-do link { target *-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-ld-6.hex.expected b/tests/GCCTestSuite/darwin-ld-6.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-6.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-ld-6.s.expected b/tests/GCCTestSuite/darwin-ld-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-ld-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-version-1.c b/tests/GCCTestSuite/darwin-version-1.c new file mode 100644 index 0000000..11cfcef --- /dev/null +++ b/tests/GCCTestSuite/darwin-version-1.c @@ -0,0 +1,10 @@ +/* Basic test of the -mmacosx-version-min option. */ + +/* { dg-options "-mmacosx-version-min=10.1" } */ +/* { dg-do link { target *-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-version-1.c.expected b/tests/GCCTestSuite/darwin-version-1.c.expected new file mode 100644 index 0000000..11cfcef --- /dev/null +++ b/tests/GCCTestSuite/darwin-version-1.c.expected @@ -0,0 +1,10 @@ +/* Basic test of the -mmacosx-version-min option. */ + +/* { dg-options "-mmacosx-version-min=10.1" } */ +/* { dg-do link { target *-*-darwin* } } */ + +int main() +{ + return 0; +} + diff --git a/tests/GCCTestSuite/darwin-version-1.hex.expected b/tests/GCCTestSuite/darwin-version-1.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/darwin-version-1.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-version-1.s.expected b/tests/GCCTestSuite/darwin-version-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-version-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-weakimport-1.c b/tests/GCCTestSuite/darwin-weakimport-1.c new file mode 100644 index 0000000..e74ccc9 --- /dev/null +++ b/tests/GCCTestSuite/darwin-weakimport-1.c @@ -0,0 +1,14 @@ +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-require-weak "" } */ +/* { dg-options "-fno-common" } */ + +/* { dg-final { scan-assembler "weak_reference _a" } } */ +/* { dg-final { scan-assembler-not "weak_\[a-z \t\]*_b" } } */ + +extern void a (void) __attribute__((weak_import)); +extern void b (void) __attribute__((weak_import)); + +void b(void) +{ + a(); +} diff --git a/tests/GCCTestSuite/darwin-weakimport-1.c.expected b/tests/GCCTestSuite/darwin-weakimport-1.c.expected new file mode 100644 index 0000000..e74ccc9 --- /dev/null +++ b/tests/GCCTestSuite/darwin-weakimport-1.c.expected @@ -0,0 +1,14 @@ +/* { dg-do compile { target *-*-darwin* } } */ +/* { dg-require-weak "" } */ +/* { dg-options "-fno-common" } */ + +/* { dg-final { scan-assembler "weak_reference _a" } } */ +/* { dg-final { scan-assembler-not "weak_\[a-z \t\]*_b" } } */ + +extern void a (void) __attribute__((weak_import)); +extern void b (void) __attribute__((weak_import)); + +void b(void) +{ + a(); +} diff --git a/tests/GCCTestSuite/darwin-weakimport-1.hex.expected b/tests/GCCTestSuite/darwin-weakimport-1.hex.expected new file mode 100644 index 0000000..0680eba --- /dev/null +++ b/tests/GCCTestSuite/darwin-weakimport-1.hex.expected @@ -0,0 +1,11 @@ +:100000000000E506758202C39582F506E507758353 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:100040000000E500F502E500F503E500F504E50034 +:10005000F50575E0002506F58275E0003507F583A6 +:10006000E0F508E508C0E075E0012506F58275E0D9 +:10007000003507F583E0F508E508C0E075E00225E6 +:1000800006F50675E0003507F507E502F582E5039C +:10009000F583E504F500E505F50122000000000008 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/darwin-weakimport-1.s.expected b/tests/GCCTestSuite/darwin-weakimport-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/darwin-weakimport-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/decl-4.c b/tests/GCCTestSuite/decl-4.c new file mode 100644 index 0000000..acc7e77 --- /dev/null +++ b/tests/GCCTestSuite/decl-4.c @@ -0,0 +1,10 @@ +/* Redeclaration of parameters is an error. PR 13728. */ +/* { dg-do compile } */ + +void f (int fred, /* { dg-error "previous definition" "" } */ + int fred); /* { dg-error "redefinition of parameter" "" } */ + +void f2 (int fred, /* { dg-error "previous definition" "" } */ + int fred) /* { dg-error "redefinition of parameter" "" } */ +{ +} diff --git a/tests/GCCTestSuite/decl-4.c.expected b/tests/GCCTestSuite/decl-4.c.expected new file mode 100644 index 0000000..acc7e77 --- /dev/null +++ b/tests/GCCTestSuite/decl-4.c.expected @@ -0,0 +1,10 @@ +/* Redeclaration of parameters is an error. PR 13728. */ +/* { dg-do compile } */ + +void f (int fred, /* { dg-error "previous definition" "" } */ + int fred); /* { dg-error "redefinition of parameter" "" } */ + +void f2 (int fred, /* { dg-error "previous definition" "" } */ + int fred) /* { dg-error "redefinition of parameter" "" } */ +{ +} diff --git a/tests/GCCTestSuite/decl-4.hex.expected b/tests/GCCTestSuite/decl-4.hex.expected new file mode 100644 index 0000000..c0498b1 --- /dev/null +++ b/tests/GCCTestSuite/decl-4.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758208C39582F506E5077583004D +:100010009583F507D0E0F500D0E0F501750900E51E +:1000200009F502E509F503E509F504E509F505E536 +:1000300001C0E0E500C0E075E0082506F50675E0C2 +:10004000003507F507E502F582E503F583E504F5DC +:1000500000E505F50122000000000000000000009E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/decl-4.s.expected b/tests/GCCTestSuite/decl-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/decl-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/decl-6.c b/tests/GCCTestSuite/decl-6.c new file mode 100644 index 0000000..0fd45d3 --- /dev/null +++ b/tests/GCCTestSuite/decl-6.c @@ -0,0 +1,15 @@ +/* { dg-do compile } */ + +extern int var; + +int foo1(void) +{ + extern int var; + + var += 1; +} + +int foo2(void) +{ + var += 1; +} diff --git a/tests/GCCTestSuite/decl-6.c.expected b/tests/GCCTestSuite/decl-6.c.expected new file mode 100644 index 0000000..0fd45d3 --- /dev/null +++ b/tests/GCCTestSuite/decl-6.c.expected @@ -0,0 +1,15 @@ +/* { dg-do compile } */ + +extern int var; + +int foo1(void) +{ + extern int var; + + var += 1; +} + +int foo2(void) +{ + var += 1; +} diff --git a/tests/GCCTestSuite/decl-6.hex.expected b/tests/GCCTestSuite/decl-6.hex.expected new file mode 100644 index 0000000..1fc666e --- /dev/null +++ b/tests/GCCTestSuite/decl-6.hex.expected @@ -0,0 +1,63 @@ +:1000000000D0E0F519D0E0F51AE510F518900000E1 +:10001000E582F50F900000E583F510900000E58281 +:10002000F509900000E583F50A750100C37500002D +:10003000E501F5F0E50935F0F501E500F5F0E50A33 +:1000400035F0F500E500F502E501F582E502F583FE +:10005000E0F50B750101C3750000E501F5F0E50958 +:1000600035F0F501E500F5F0E50A35F0F500E500BD +:10007000F502E501F582E502F583E0F50C75010274 +:10008000C3750000E501F5F0E50935F0F501E5007F +:10009000F5F0E50A35F0F500E500F502E501F58239 +:1000A000E502F583E0F50D750103C3750000E50178 +:1000B000F5F0E50935F0F501E500F5F0E50A35F074 +:1000C000F500E500F502E501F582E502F583E0F5CE +:1000D0000E750001750100750900750A00C3751BD6 +:1000E00000E500F5F0E50B35F0F500E501F5F0E58C +:1000F0000C35F0F501E509F5F0E50D35F0F509E50C +:100100000AF5F0E50E35F0F50C750B00C3750A0025 +:10011000E50BF5F0E50F35F0F50BE50AF5F0E51028 +:1001200035F0F50AE500F503E50AF502E50BF58281 +:10013000E502F583E503F0750B01C3750000E50BDF +:10014000F5F0E50F35F0F50BE500F5F0E51035F0CD +:10015000F50AE501F503E50AF502E50BF582E5028E +:10016000F583E503F0750B02C3750000E50BF5F0B0 +:10017000E50F35F0F50BE500F5F0E51035F0F50A83 +:10018000E509F503E50AF502E50BF582E502F583DD +:10019000E503F0750B03C3750000E50BF5F0E50F03 +:1001A00035F0F50BE500F5F0E51035F0F50AE50C56 +:1001B000F503E50AF502E50BF582E502F583E503B3 +:1001C000F0E51CF502E51CF503E51CF504E51CF55E +:1001D00005E518F510E51AC0E0E519C0E0E502F5FF +:1001E00082E503F583E504F500E505F5012200D07D +:1001F000E0F519D0E0F51AE510F518900000E58259 +:10020000F50F900000E583F510900000E582F509F8 +:10021000900000E583F50A750100C3750000E50153 +:10022000F5F0E50935F0F501E500F5F0E50A35F002 +:10023000F500E500F502E501F582E502F583E0F55C +:100240000B750101C3750000E501F5F0E50935F016 +:10025000F501E500F5F0E50A35F0F500E500F502F9 +:10026000E501F582E502F583E0F50C750102C37541 +:100270000000E501F5F0E50935F0F501E500F5F0E0 +:10028000E50A35F0F500E500F502E501F582E50245 +:10029000F583E0F50D750103C3750000E501F5F088 +:1002A000E50935F0F501E500F5F0E50A35F0F50072 +:1002B000E500F502E501F582E502F583E0F50E754E +:1002C0000001750100750900750A00C3751B00E582 +:1002D00000F5F0E50B35F0F500E501F5F0E50C353E +:1002E000F0F501E509F5F0E50D35F0F509E50AF55C +:1002F000F0E50E35F0F50C750B00C3750A00E50B43 +:10030000F5F0E50F35F0F50BE50AF5F0E51035F001 +:10031000F50AE500F503E50AF502E50BF582E502CD +:10032000F583E503F0750B01C3750000E50BF5F0EF +:10033000E50F35F0F50BE500F5F0E51035F0F50AC1 +:10034000E501F503E50AF502E50BF582E502F58323 +:10035000E503F0750B02C3750000E50BF5F0E50F42 +:1003600035F0F50BE500F5F0E51035F0F50AE50997 +:10037000F503E50AF502E50BF582E502F583E503F1 +:10038000F0750B03C3750000E50BF5F0E50F35F0D4 +:10039000F50BE500F5F0E51035F0F50AE50CF50391 +:1003A000E50AF502E50BF582E502F583E503F0E5E4 +:1003B0001CF502E51CF503E51CF504E51CF505E557 +:1003C00018F510E51AC0E0E519C0E0E502F582E590 +:1003D00003F583E504F500E505F5012200000000C2 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/decl-6.s.expected b/tests/GCCTestSuite/decl-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/decl-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/declspec-12.c b/tests/GCCTestSuite/declspec-12.c new file mode 100644 index 0000000..a1373ef --- /dev/null +++ b/tests/GCCTestSuite/declspec-12.c @@ -0,0 +1,6 @@ +/* Test type qualifier in empty declaration: OK but useless. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic-errors" } */ + +const struct foo; /* { dg-warning "warning: useless type qualifier in empty declaration" } */ diff --git a/tests/GCCTestSuite/declspec-12.c.expected b/tests/GCCTestSuite/declspec-12.c.expected new file mode 100644 index 0000000..a1373ef --- /dev/null +++ b/tests/GCCTestSuite/declspec-12.c.expected @@ -0,0 +1,6 @@ +/* Test type qualifier in empty declaration: OK but useless. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic-errors" } */ + +const struct foo; /* { dg-warning "warning: useless type qualifier in empty declaration" } */ diff --git a/tests/GCCTestSuite/declspec-12.hex.expected b/tests/GCCTestSuite/declspec-12.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/declspec-12.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/declspec-12.s.expected b/tests/GCCTestSuite/declspec-12.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/declspec-12.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/declspec-2.c b/tests/GCCTestSuite/declspec-2.c new file mode 100644 index 0000000..f2c535a --- /dev/null +++ b/tests/GCCTestSuite/declspec-2.c @@ -0,0 +1,14 @@ +/* Test declaration specifiers. Test cases that used to be handled in + a loop in grokdeclarator. Pedantic cases. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu89 -pedantic" } */ + +/* These should all be diagnosed, but only once, not for every + identifier declared. */ + +const const int x0, /* { dg-warning "duplicate" } */ +x1; + +long long x2, /* { dg-warning "long long" } */ +x3; diff --git a/tests/GCCTestSuite/declspec-2.c.expected b/tests/GCCTestSuite/declspec-2.c.expected new file mode 100644 index 0000000..f2c535a --- /dev/null +++ b/tests/GCCTestSuite/declspec-2.c.expected @@ -0,0 +1,14 @@ +/* Test declaration specifiers. Test cases that used to be handled in + a loop in grokdeclarator. Pedantic cases. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu89 -pedantic" } */ + +/* These should all be diagnosed, but only once, not for every + identifier declared. */ + +const const int x0, /* { dg-warning "duplicate" } */ +x1; + +long long x2, /* { dg-warning "long long" } */ +x3; diff --git a/tests/GCCTestSuite/declspec-2.hex.expected b/tests/GCCTestSuite/declspec-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/declspec-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/declspec-2.s.expected b/tests/GCCTestSuite/declspec-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/declspec-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/declspec-3.c b/tests/GCCTestSuite/declspec-3.c new file mode 100644 index 0000000..19b1fa2 --- /dev/null +++ b/tests/GCCTestSuite/declspec-3.c @@ -0,0 +1,34 @@ +/* Test declaration specifiers. Test diagnosis of storage class + specifiers not at start. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-W" } */ + +static int x0; +int static x1; /* { dg-warning "not at beginning" } */ + +extern int x2; +int extern x3; /* { dg-warning "not at beginning" } */ + +typedef int x4; +int typedef x5; /* { dg-warning "not at beginning" } */ + +void g (int); + +void +f (void) +{ + auto int x6 = 0; + int auto x7 = 0; /* { dg-warning "not at beginning" } */ + register int x8 = 0; + int register x9 = 0; /* { dg-warning "not at beginning" } */ + g (x6 + x7 + x8 + x9); +} + +const static int x10; /* { dg-warning "not at beginning" } */ + +/* Attributes are OK before storage class specifiers, since some + attributes are like such specifiers themselves. */ + +__attribute__((format(printf, 1, 2))) static void h (const char *, ...); +__attribute__((format(printf, 1, 2))) void static i (const char *, ...); /* { dg-warning "not at beginning" } */ diff --git a/tests/GCCTestSuite/declspec-3.c.expected b/tests/GCCTestSuite/declspec-3.c.expected new file mode 100644 index 0000000..19b1fa2 --- /dev/null +++ b/tests/GCCTestSuite/declspec-3.c.expected @@ -0,0 +1,34 @@ +/* Test declaration specifiers. Test diagnosis of storage class + specifiers not at start. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-W" } */ + +static int x0; +int static x1; /* { dg-warning "not at beginning" } */ + +extern int x2; +int extern x3; /* { dg-warning "not at beginning" } */ + +typedef int x4; +int typedef x5; /* { dg-warning "not at beginning" } */ + +void g (int); + +void +f (void) +{ + auto int x6 = 0; + int auto x7 = 0; /* { dg-warning "not at beginning" } */ + register int x8 = 0; + int register x9 = 0; /* { dg-warning "not at beginning" } */ + g (x6 + x7 + x8 + x9); +} + +const static int x10; /* { dg-warning "not at beginning" } */ + +/* Attributes are OK before storage class specifiers, since some + attributes are like such specifiers themselves. */ + +__attribute__((format(printf, 1, 2))) static void h (const char *, ...); +__attribute__((format(printf, 1, 2))) void static i (const char *, ...); /* { dg-warning "not at beginning" } */ diff --git a/tests/GCCTestSuite/declspec-3.hex.expected b/tests/GCCTestSuite/declspec-3.hex.expected new file mode 100644 index 0000000..6d345e2 --- /dev/null +++ b/tests/GCCTestSuite/declspec-3.hex.expected @@ -0,0 +1,38 @@ +:100000000000E506758209C39582F506E50775834C +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:10004000E0082506F58275E0003507F583E516F032 +:1000500075E0072506F58275E0003507F583E5159F +:10006000F075E0062506F58275E0003507F583E5B5 +:1000700014F075E0052506F58275E0003507F58377 +:10008000E513F075E0042506F58275E0003507F507 +:1000900083E512F075E0032506F58275E00035076B +:1000A000F583E511F075E0022506F58275E000356F +:1000B00007F583E510F075130075140075150075CC +:1000C0001600750F00751000751100751200750B84 +:1000D00000750C00750D00750E00750000750100AF +:1000E000750900750A00C3751800E50FF5F0E513F2 +:1000F00035F0F50FE510F5F0E51435F0F510E511E4 +:10010000F5F0E51535F0F511E512F5F0E51635F0E9 +:10011000F513C3751200E50BF5F0E50F35F0F50B9F +:10012000E50CF5F0E51035F0F50CE50DF5F0E51111 +:1001300035F0F50DE50EF5F0E51335F0F50FC37567 +:100140000E00E500F5F0E50B35F0F500E501F5F002 +:10015000E50C35F0F501E509F5F0E50D35F0F509AB +:10016000E50AF5F0E50F35F0F50AE500F51FE501C4 +:10017000F51EE509F51DE50AF51C750000E500F51D +:1001800002E500F503E500F504E500F50575E00876 +:100190002506F58275E0003507F583E0F51675E074 +:1001A000072506F58275E0003507F583E0F515753E +:1001B000E0062506F58275E0003507F583E0F514C5 +:1001C00075E0052506F58275E0003507F583E0F555 +:1001D0001375E0042506F58275E0003507F583E028 +:1001E000F51275E0032506F58275E0003507F58305 +:1001F000E0F51175E0022506F58275E0003507F59A +:1002000083E0F51075E0002506F58275E0003507FE +:10021000F583E0F508E508C0E075E0012506F58204 +:1002200075E0003507F583E0F508E508C0E075E006 +:10023000092506F50675E0003507F507E502F582A4 +:10024000E503F583E504F500E505F501220000006E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/declspec-3.s.expected b/tests/GCCTestSuite/declspec-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/declspec-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/deprecated-3.c b/tests/GCCTestSuite/deprecated-3.c new file mode 100644 index 0000000..2c35bb3 --- /dev/null +++ b/tests/GCCTestSuite/deprecated-3.c @@ -0,0 +1,11 @@ +/* Test __attribute__((deprecated)). Test merging with multiple + declarations. Bug 7425. */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +void func(void); +void func(void) __attribute__((deprecated)); + +void f(void) { + func(); /* { dg-warning "'func' is deprecated" } */ +} diff --git a/tests/GCCTestSuite/deprecated-3.c.expected b/tests/GCCTestSuite/deprecated-3.c.expected new file mode 100644 index 0000000..2c35bb3 --- /dev/null +++ b/tests/GCCTestSuite/deprecated-3.c.expected @@ -0,0 +1,11 @@ +/* Test __attribute__((deprecated)). Test merging with multiple + declarations. Bug 7425. */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +void func(void); +void func(void) __attribute__((deprecated)); + +void f(void) { + func(); /* { dg-warning "'func' is deprecated" } */ +} diff --git a/tests/GCCTestSuite/deprecated-3.hex.expected b/tests/GCCTestSuite/deprecated-3.hex.expected new file mode 100644 index 0000000..0680eba --- /dev/null +++ b/tests/GCCTestSuite/deprecated-3.hex.expected @@ -0,0 +1,11 @@ +:100000000000E506758202C39582F506E507758353 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:100040000000E500F502E500F503E500F504E50034 +:10005000F50575E0002506F58275E0003507F583A6 +:10006000E0F508E508C0E075E0012506F58275E0D9 +:10007000003507F583E0F508E508C0E075E00225E6 +:1000800006F50675E0003507F507E502F582E5039C +:10009000F583E504F500E505F50122000000000008 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/deprecated-3.s.expected b/tests/GCCTestSuite/deprecated-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/deprecated-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/dll-2.c b/tests/GCCTestSuite/dll-2.c new file mode 100644 index 0000000..3b8b60e --- /dev/null +++ b/tests/GCCTestSuite/dll-2.c @@ -0,0 +1,22 @@ +/* These dllimport and dllexport appearing for a symbol. + The desired behavior is that if both dllimport + and dllexport appear (in either order) the result is dllexport. + + Microsoft's MSVC 2.0 allows dllimport followed by dllexport for variables, + but does not allow dllexport followed by dllimport. + + In C, it's ok to redeclare a variable so this works for variables + and functions. In C++, it only works for functions. */ + +/* { dg-require-dll "" } */ + +__declspec (dllimport) int foo1 (); +__declspec (dllexport) int foo1 (); /* { dg-warning "previous dllimport ignored" } */ +__declspec (dllexport) int foo2 (); +__declspec (dllimport) int foo2 (); /* { dg-warning "dllimport ignored" } */ + +__declspec (dllimport) int bar1; +__declspec (dllexport) int bar1; /* { dg-warning "previous dllimport ignored" } */ + +__declspec (dllexport) int bar2; +__declspec (dllimport) int bar2; /* { dg-warning "dllimport ignored" } */ diff --git a/tests/GCCTestSuite/dll-2.c.expected b/tests/GCCTestSuite/dll-2.c.expected new file mode 100644 index 0000000..3b8b60e --- /dev/null +++ b/tests/GCCTestSuite/dll-2.c.expected @@ -0,0 +1,22 @@ +/* These dllimport and dllexport appearing for a symbol. + The desired behavior is that if both dllimport + and dllexport appear (in either order) the result is dllexport. + + Microsoft's MSVC 2.0 allows dllimport followed by dllexport for variables, + but does not allow dllexport followed by dllimport. + + In C, it's ok to redeclare a variable so this works for variables + and functions. In C++, it only works for functions. */ + +/* { dg-require-dll "" } */ + +__declspec (dllimport) int foo1 (); +__declspec (dllexport) int foo1 (); /* { dg-warning "previous dllimport ignored" } */ +__declspec (dllexport) int foo2 (); +__declspec (dllimport) int foo2 (); /* { dg-warning "dllimport ignored" } */ + +__declspec (dllimport) int bar1; +__declspec (dllexport) int bar1; /* { dg-warning "previous dllimport ignored" } */ + +__declspec (dllexport) int bar2; +__declspec (dllimport) int bar2; /* { dg-warning "dllimport ignored" } */ diff --git a/tests/GCCTestSuite/dll-2.hex.expected b/tests/GCCTestSuite/dll-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/dll-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/dll-2.s.expected b/tests/GCCTestSuite/dll-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/dll-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/dll-4.c b/tests/GCCTestSuite/dll-4.c new file mode 100644 index 0000000..9fcc8e9 --- /dev/null +++ b/tests/GCCTestSuite/dll-4.c @@ -0,0 +1,15 @@ +/* { dg-do compile { target arm*-*-pe* } } */ +/* { dg-do compile { target i?86-pc-cygwin } } */ +/* { dg-do compile { target i?86-pc-mingw* } } */ + +__declspec (dllimport) int foo1; +int foo1; /* { dg-warning "redeclared without dllimport" } */ + +__declspec (dllimport) int foo2; +int foo2 = 5; /* { dg-warning "redeclared without dllimport" } */ + +int f () { return foo1 + foo2; } + +/* FIXME: We should scan the output of nm for this case. */ +/* { dg-final { scan-assembler "(foo2:.*\.comm\[ \t_\]*foo1)" } } */ +/* { dg-final { scan-assembler-not "(__imp_|_imp__)" } } */ diff --git a/tests/GCCTestSuite/dll-4.c.expected b/tests/GCCTestSuite/dll-4.c.expected new file mode 100644 index 0000000..9fcc8e9 --- /dev/null +++ b/tests/GCCTestSuite/dll-4.c.expected @@ -0,0 +1,15 @@ +/* { dg-do compile { target arm*-*-pe* } } */ +/* { dg-do compile { target i?86-pc-cygwin } } */ +/* { dg-do compile { target i?86-pc-mingw* } } */ + +__declspec (dllimport) int foo1; +int foo1; /* { dg-warning "redeclared without dllimport" } */ + +__declspec (dllimport) int foo2; +int foo2 = 5; /* { dg-warning "redeclared without dllimport" } */ + +int f () { return foo1 + foo2; } + +/* FIXME: We should scan the output of nm for this case. */ +/* { dg-final { scan-assembler "(foo2:.*\.comm\[ \t_\]*foo1)" } } */ +/* { dg-final { scan-assembler-not "(__imp_|_imp__)" } } */ diff --git a/tests/GCCTestSuite/dll-4.hex.expected b/tests/GCCTestSuite/dll-4.hex.expected new file mode 100644 index 0000000..289e0c0 --- /dev/null +++ b/tests/GCCTestSuite/dll-4.hex.expected @@ -0,0 +1,31 @@ +:1000000000D0E0F51AD0E0F51BE511F518E510F584 +:1000100019900000E582F509900000E583F50A7566 +:100020000100C3750000E501F5F0E50935F0F501C3 +:10003000E500F5F0E50A35F0F500E500F502E5012B +:10004000F582E502F583E0F50E750101C375000048 +:10005000E501F5F0E50935F0F501E500F5F0E50A13 +:1000600035F0F500E500F502E501F582E502F583DE +:10007000E0F50F750102C3750000E501F5F0E50933 +:1000800035F0F501E500F5F0E50A35F0F500E5009D +:10009000F502E501F582E502F583E0F5107501034F +:1000A000C3750000E501F5F0E50935F0F501E5005F +:1000B000F5F0E50A35F0F500E500F502E501F58219 +:1000C000E502F583E0F511900004E582F509900062 +:1000D00004E583F50A750100C3750000E501F5F03C +:1000E000E50935F0F501E500F5F0E50A35F0F50034 +:1000F000E500F502E501F582E502F583E0F50B7513 +:100100000101C3750000E501F5F0E50935F0F501E1 +:10011000E500F5F0E50A35F0F500E500F502E5014A +:10012000F582E502F583E0F50C750102C375000068 +:10013000E501F5F0E50935F0F501E500F5F0E50A32 +:1001400035F0F500E500F502E501F582E502F583FD +:10015000E0F50D750103C3750000E501F5F0E50953 +:1001600035F0F501E500F5F0E50A35F0F500E500BC +:10017000F502E501F582E502F583E0F500C37501BE +:1001800000E50BF5F0E50E35F0F501E50CF5F0E5D1 +:100190000F35F0F509E50DF5F0E51035F0F50AE558 +:1001A00000F5F0E51135F0F500E501F502E509F59A +:1001B00003E50AF504E500F505E518F511E519F57F +:1001C00010E51BC0E0E51AC0E0E502F582E503F5A5 +:1001D00083E504F500E505F50122000000000000BC +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/dll-4.s.expected b/tests/GCCTestSuite/dll-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/dll-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/dollar.c b/tests/GCCTestSuite/dollar.c new file mode 100644 index 0000000..43407f2 --- /dev/null +++ b/tests/GCCTestSuite/dollar.c @@ -0,0 +1,9 @@ +/* Copyright (C) 2003 Free Software Foundation, Inc. */ + +/* { dg-do compile } */ +/* { dg-options -fno-dollars-in-identifiers } */ + +/* Test that -fno-dollars-in-identifiers is honoured. + Neil Booth, 17 May 2003. */ + +int foobar$; /* { dg-error "stray '\\$'" } */ diff --git a/tests/GCCTestSuite/dollar.c.expected b/tests/GCCTestSuite/dollar.c.expected new file mode 100644 index 0000000..43407f2 --- /dev/null +++ b/tests/GCCTestSuite/dollar.c.expected @@ -0,0 +1,9 @@ +/* Copyright (C) 2003 Free Software Foundation, Inc. */ + +/* { dg-do compile } */ +/* { dg-options -fno-dollars-in-identifiers } */ + +/* Test that -fno-dollars-in-identifiers is honoured. + Neil Booth, 17 May 2003. */ + +int foobar$; /* { dg-error "stray '\\$'" } */ diff --git a/tests/GCCTestSuite/dollar.hex.expected b/tests/GCCTestSuite/dollar.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/dollar.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/dollar.s.expected b/tests/GCCTestSuite/dollar.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/dollar.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/doloop-2.c b/tests/GCCTestSuite/doloop-2.c new file mode 100644 index 0000000..203297d --- /dev/null +++ b/tests/GCCTestSuite/doloop-2.c @@ -0,0 +1,19 @@ +/* { dg-do run } */ +/* { dg-options "-O2" } */ +extern void exit (int); +unsigned global_iters=0; + +void bi_reverse(int len) +{ + do { + global_iters++; + } while (--len > 0); +} + +int main() +{ + bi_reverse(5); + if (global_iters != 5) + exit (1); + return 0; +} diff --git a/tests/GCCTestSuite/doloop-2.c.expected b/tests/GCCTestSuite/doloop-2.c.expected new file mode 100644 index 0000000..203297d --- /dev/null +++ b/tests/GCCTestSuite/doloop-2.c.expected @@ -0,0 +1,19 @@ +/* { dg-do run } */ +/* { dg-options "-O2" } */ +extern void exit (int); +unsigned global_iters=0; + +void bi_reverse(int len) +{ + do { + global_iters++; + } while (--len > 0); +} + +int main() +{ + bi_reverse(5); + if (global_iters != 5) + exit (1); + return 0; +} diff --git a/tests/GCCTestSuite/doloop-2.hex.expected b/tests/GCCTestSuite/doloop-2.hex.expected new file mode 100644 index 0000000..fcf11ed --- /dev/null +++ b/tests/GCCTestSuite/doloop-2.hex.expected @@ -0,0 +1,165 @@ +:1000000075812F7506FF7507FF12073702000C0078 +:1000100000E50675820EC39582F506E50775830037 +:100020009583F507D0E0F50875E0012506F58275A2 +:10003000E0003507F583E508F0D0E0F50875E0004D +:100040002506F58275E0003507F583E508F075E0D3 +:10005000092506F58275E0003507F583E517F0758B +:10006000E0082506F58275E0003507F583E516F012 +:1000700075E0072506F58275E0003507F583E5157F +:10008000F075E0062506F58275E0003507F583E595 +:1000900014F075E0052506F58275E0003507F58357 +:1000A000E513F075E0042506F58275E0003507F5E7 +:1000B00083E512F075E0032506F58275E00035074B +:1000C000F583E511F075E0022506F58275E000354F +:1000D00007F583E510F0E51FF518E51EF517E51D9A +:1000E000F516E51CF515750C01750D00750E0075FE +:1000F0000F00750101C3750000E50CF5F0E50095F2 +:10010000F0F500750000E500F5F0E50035F0F500CC +:10011000E500F5F0E50165F0F501C3750000E50DBA +:10012000F5F0E50095F0F500750000E500F5F0E567 +:100130000035F0F500E500F5F0E50165F0F501C3E7 +:10014000750000E50EF5F0E50095F0F5007500008E +:10015000E500F5F0E50035F0F500E500F5F0E50126 +:1001600065F0F501C3750000E50FF5F0E50095F0C9 +:10017000F500750000E500F5F0E50035F0F500E567 +:1001800000F5F0E50165F0F501750900750A0075E7 +:100190000B00750000E501F5F0E50045F0F500E520 +:1001A00009F5F0E50045F0F500E50AF5F0E5004554 +:1001B000F0F500E50BF5F0E50045F0F500E5007021 +:1001C00002800302065200900000E582F50E9000C6 +:1001D00000E583F50F900000E582F509900000E549 +:1001E00083F50A750100C3750000E501F5F0E50926 +:1001F00035F0F501E500F5F0E50A35F0F500E5002C +:10020000F502E501F582E502F583E0F50B750101E4 +:10021000C3750000E501F5F0E50935F0F501E500ED +:10022000F5F0E50A35F0F500E500F502E501F582A7 +:10023000E502F583E0F50C750102C3750000E501E8 +:10024000F5F0E50935F0F501E500F5F0E50A35F0E2 +:10025000F500E500F502E501F582E502F583E0F53C +:100260000D750103C3750000E501F5F0E50935F0F2 +:10027000F501E500F5F0E50A35F0F500E500F502D9 +:10028000E501F582E502F583E0F5107500017501E1 +:1002900000750900750A00C3751100E500F5F0E569 +:1002A0000B35F0F500E501F5F0E50C35F0F501E56D +:1002B00009F5F0E50D35F0F509E50AF5F0E510353D +:1002C000F0F50C750B00C3750A00E50BF5F0E50EB3 +:1002D00035F0F50BE50AF5F0E50F35F0F50AE50028 +:1002E000F503E50AF502E50BF582E502F583E50382 +:1002F000F0750B01C3750000E50BF5F0E50E35F068 +:10030000F50BE500F5F0E50F35F0F50AE501F5032D +:10031000E50AF502E50BF582E502F583E503F075E4 +:100320000B02C3750000E50BF5F0E50E35F0F50B9B +:10033000E500F5F0E50F35F0F50AE509F503E50A06 +:10034000F502E50BF582E502F583E503F0750B0395 +:10035000C3750000E50BF5F0E50E35F0F50BE50093 +:10036000F5F0E50F35F0F50AE50CF503E50AF502C1 +:10037000E50BF582E502F583E503F07500017501F3 +:1003800000750900750A00C3E500F5F0E51895F061 +:10039000F518E501F5F0E51795F0F517E509F5F025 +:1003A000E51695F0F516E50AF5F0E51595F0F51565 +:1003B000751A00751400751200751300E518F51B09 +:1003C000E517F519E516F510E515F511750080E549 +:1003D00000F5F0E51325F0F513E500F5F0E511253E +:1003E000F0F511750C00750D00750E00750F007598 +:1003F0000B00750A01750001C3E511F5F0E51395D1 +:10040000F0F509E50BF5F0E50B35F0F509E509F533 +:10041000F0E50055F0F500E500F5F0E50C45F0F5E8 +:100420000C750001C3E511F5F0E51395F0F509E54C +:100430000BF5F0E50B35F0F509E513F5F0E5119551 +:10044000F0F501E50BF5F0E50B35F0F501E501F50B +:10045000F0E50945F0F509E50AF5F0E50965F0F57F +:1004600009E509F5F0E50055F0F500C3E510F5F0F4 +:10047000E51295F0F509E50BF5F0E50B35F0F5091A +:10048000E509F5F0E50055F0F500E500F5F0E50CBF +:1004900045F0F50C750001C3E511F5F0E51395F095 +:1004A000F509E50BF5F0E50B35F0F509E513F5F089 +:1004B000E51195F0F501E50BF5F0E50B35F0F501EB +:1004C000E501F5F0E50945F0F509E50AF5F0E5097E +:1004D00065F0F509E509F5F0E50055F0F500C3E52F +:1004E00010F5F0E51295F0F509E50BF5F0E50B35A3 +:1004F000F0F509E512F5F0E51095F0F501E50BF5DD +:10050000F0E50B35F0F501E501F5F0E50945F0F50D +:1005100009E50AF5F0E50965F0F509E509F5F0E505 +:100520000055F0F500C3E519F5F0E51495F0F5096F +:10053000E50BF5F0E50B35F0F509E509F5F0E5001B +:1005400055F0F500E500F5F0E50C45F0F50C75000B +:1005500001C3E511F5F0E51395F0F509E50BF5F0AC +:10056000E50B35F0F509E513F5F0E51195F0F5012A +:10057000E50BF5F0E50B35F0F501E501F5F0E509E2 +:1005800045F0F509E50AF5F0E50965F0F509E50935 +:10059000F5F0E50055F0F500C3E510F5F0E512952E +:1005A000F0F509E50BF5F0E50B35F0F509E512F589 +:1005B000F0E51095F0F501E50BF5F0E50B35F0F5FC +:1005C00001E501F5F0E50945F0F509E50AF5F0E585 +:1005D0000965F0F509E509F5F0E50055F0F500C30A +:1005E000E519F5F0E51495F0F509E50BF5F0E50BE7 +:1005F00035F0F509E514F5F0E51995F0F501E50B91 +:10060000F5F0E50B35F0F501E501F5F0E50945F00C +:10061000F509E50AF5F0E50965F0F509E509F5F0F4 +:10062000E50055F0F500C3E51BF5F0E51A95F0F58A +:1006300009E50BF5F0E50B35F0F509E509F5F0E511 +:100640000055F0F500E500F5F0E50C45F0F50C027D +:1006500000F200750000E500F502E500F503E50095 +:10066000F504E500F50575E0092506F58275E0005D +:100670003507F583E0F51775E0082506F58275E086 +:10068000003507F583E0F51675E0072506F5827558 +:10069000E0003507F583E0F51575E0062506F582DF +:1006A00075E0003507F583E0F51475E0052506F5DE +:1006B0008275E0003507F583E0F51375E004250643 +:1006C000F58275E0003507F583E0F51275E0032546 +:1006D00006F58275E0003507F583E0F51175E00257 +:1006E0002506F58275E0003507F583E0F51075E025 +:1006F000002506F58275E0003507F583E0F508E58D +:1007000008C0E075E0012506F58275E0003507F5C3 +:1007100083E0F508E508C0E075E00E2506F50675EE +:10072000E0003507F507E502F582E503F583E5040A +:10073000F500E505F5012200E506758202C3958204 +:10074000F506E5077583009583F507D0E0F5087594 +:10075000E0012506F58275E0003507F583E508F030 +:10076000D0E0F50875E0002506F58275E000350754 +:10077000F583E508F0900000E582F50A900000E5B9 +:1007800083F501750900C3750000E509F5F0E50A78 +:1007900035F0F50DE500F5F0E50135F0F50E7509DC +:1007A00000750A00750B00750C00750100C375001B +:1007B00000E501F5F0E50D35F0F501E500F5F0E5B2 +:1007C0000E35F0F500E509F503E500F502E501F564 +:1007D00082E502F583E503F0750101C3750000E5CC +:1007E00001F5F0E50D35F0F501E500F5F0E50E3524 +:1007F000F0F500E50AF503E500F502E501F582E50F +:1008000002F583E503F0750102C3750000E501F50B +:10081000F0E50D35F0F501E500F5F0E50E35F0F504 +:1008200000E50BF503E500F502E501F582E502F5CB +:1008300083E503F0750103C3750000E501F5F0E5FC +:100840000D35F0F501E500F5F0E50E35F0F500E5C4 +:100850000CF503E500F502E501F582E502F583E517 +:1008600003F0751F05751E00751D00751C00120034 +:1008700010900000E582F509900000E583F50A7507 +:100880000100C3750000E501F5F0E50935F0F5015B +:10089000E500F5F0E50A35F0F500E500F502E501C3 +:1008A000F582E502F583E0F50B750101C3750000E3 +:1008B000E501F5F0E50935F0F501E500F5F0E50AAB +:1008C00035F0F500E500F502E501F582E502F58376 +:1008D000E0F50C750102C3750000E501F5F0E509CE +:1008E00035F0F501E500F5F0E50A35F0F500E50035 +:1008F000F502E501F582E502F583E0F50D750103EA +:10090000C3750000E501F5F0E50935F0F501E500F6 +:10091000F5F0E50A35F0F500E500F502E501F582B0 +:10092000E502F583E0F50E75000575010075090017 +:10093000750A00750F00C3E500F5F0E50B95F0F5BD +:1009400000E500F5F0E50F45F0F50FC3E501F5F022 +:10095000E50C95F0F500E500F5F0E50F45F0F50F35 +:10096000C3E509F5F0E50D95F0F500E500F5F0E5D6 +:100970000F45F0F50FC3E50AF5F0E50E95F0F5002B +:10098000E500F5F0E50F45F0F50F7501007509007C +:10099000750A00750000E50FF5F0E50045F0F5007B +:1009A000E501F5F0E50045F0F500E509F5F0E500B5 +:1009B00045F0F500E50AF5F0E50045F0F500E50045 +:1009C00070028003020A2D00750000750100750990 +:1009D00000750A00E500F502E501F503E509F504F7 +:1009E000E50AF50575E0002506F58275E000350796 +:1009F000F583E0F508E508C0E075E0012506F5821D +:100A000075E0003507F583E0F508E508C0E075E01E +:100A1000022506F50675E0003507F507E502F582C3 +:100A2000E503F583E504F500E505F5012200751FF2 +:100A300001751E00751D00751C000209C80000002C +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/doloop-2.s.expected b/tests/GCCTestSuite/doloop-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/doloop-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/empty-source-1.c b/tests/GCCTestSuite/empty-source-1.c new file mode 100644 index 0000000..239001c --- /dev/null +++ b/tests/GCCTestSuite/empty-source-1.c @@ -0,0 +1,5 @@ +/* Test diagnostic for an empty source file. Test with no special + options. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ diff --git a/tests/GCCTestSuite/empty-source-1.c.expected b/tests/GCCTestSuite/empty-source-1.c.expected new file mode 100644 index 0000000..239001c --- /dev/null +++ b/tests/GCCTestSuite/empty-source-1.c.expected @@ -0,0 +1,5 @@ +/* Test diagnostic for an empty source file. Test with no special + options. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ diff --git a/tests/GCCTestSuite/empty-source-1.hex.expected b/tests/GCCTestSuite/empty-source-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/empty-source-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/empty-source-1.s.expected b/tests/GCCTestSuite/empty-source-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/empty-source-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/empty-source-2.c b/tests/GCCTestSuite/empty-source-2.c new file mode 100644 index 0000000..6f54f03 --- /dev/null +++ b/tests/GCCTestSuite/empty-source-2.c @@ -0,0 +1,6 @@ +/* Test diagnostic for an empty source file. Test with -pedantic. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +/* { dg-warning "warning: ISO C forbids an empty source file" "empty" { target *-*-* } 1 } */ diff --git a/tests/GCCTestSuite/empty-source-2.c.expected b/tests/GCCTestSuite/empty-source-2.c.expected new file mode 100644 index 0000000..6f54f03 --- /dev/null +++ b/tests/GCCTestSuite/empty-source-2.c.expected @@ -0,0 +1,6 @@ +/* Test diagnostic for an empty source file. Test with -pedantic. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +/* { dg-warning "warning: ISO C forbids an empty source file" "empty" { target *-*-* } 1 } */ diff --git a/tests/GCCTestSuite/empty-source-2.hex.expected b/tests/GCCTestSuite/empty-source-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/empty-source-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/empty-source-2.s.expected b/tests/GCCTestSuite/empty-source-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/empty-source-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/empty-source-3.c b/tests/GCCTestSuite/empty-source-3.c new file mode 100644 index 0000000..c589242 --- /dev/null +++ b/tests/GCCTestSuite/empty-source-3.c @@ -0,0 +1,7 @@ +/* Test diagnostic for an empty source file. Test with + -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic-errors" } */ + +/* { dg-error "error: ISO C forbids an empty source file" "empty" { target *-*-* } 1 } */ diff --git a/tests/GCCTestSuite/empty-source-3.c.expected b/tests/GCCTestSuite/empty-source-3.c.expected new file mode 100644 index 0000000..c589242 --- /dev/null +++ b/tests/GCCTestSuite/empty-source-3.c.expected @@ -0,0 +1,7 @@ +/* Test diagnostic for an empty source file. Test with + -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic-errors" } */ + +/* { dg-error "error: ISO C forbids an empty source file" "empty" { target *-*-* } 1 } */ diff --git a/tests/GCCTestSuite/empty-source-3.hex.expected b/tests/GCCTestSuite/empty-source-3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/empty-source-3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/empty-source-3.s.expected b/tests/GCCTestSuite/empty-source-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/empty-source-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/enum2.c b/tests/GCCTestSuite/enum2.c new file mode 100644 index 0000000..575cc5c --- /dev/null +++ b/tests/GCCTestSuite/enum2.c @@ -0,0 +1,8 @@ +/* { dg-options "-fshort-enums" } */ +/* Check that "-fshort-enums" packs enumeration tyes into a minimal + number of bytes.. */ + +enum e { e_1 }; + +extern int i[sizeof (enum e)]; +int i[1]; diff --git a/tests/GCCTestSuite/enum2.c.expected b/tests/GCCTestSuite/enum2.c.expected new file mode 100644 index 0000000..575cc5c --- /dev/null +++ b/tests/GCCTestSuite/enum2.c.expected @@ -0,0 +1,8 @@ +/* { dg-options "-fshort-enums" } */ +/* Check that "-fshort-enums" packs enumeration tyes into a minimal + number of bytes.. */ + +enum e { e_1 }; + +extern int i[sizeof (enum e)]; +int i[1]; diff --git a/tests/GCCTestSuite/enum2.hex.expected b/tests/GCCTestSuite/enum2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/enum2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/enum2.s.expected b/tests/GCCTestSuite/enum2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/enum2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/enum3.c b/tests/GCCTestSuite/enum3.c new file mode 100644 index 0000000..ba3c1da --- /dev/null +++ b/tests/GCCTestSuite/enum3.c @@ -0,0 +1,11 @@ +/* Test for non-integer enum values. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +enum e { E, F }; +enum e2 { + E1 = (void *)4, /* { dg-error "error: enumerator value for 'E1' is not an integer constant" } */ + E2 = (enum e)F, + E3 = (_Bool)1 +}; diff --git a/tests/GCCTestSuite/enum3.c.expected b/tests/GCCTestSuite/enum3.c.expected new file mode 100644 index 0000000..ba3c1da --- /dev/null +++ b/tests/GCCTestSuite/enum3.c.expected @@ -0,0 +1,11 @@ +/* Test for non-integer enum values. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +enum e { E, F }; +enum e2 { + E1 = (void *)4, /* { dg-error "error: enumerator value for 'E1' is not an integer constant" } */ + E2 = (enum e)F, + E3 = (_Bool)1 +}; diff --git a/tests/GCCTestSuite/enum3.hex.expected b/tests/GCCTestSuite/enum3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/enum3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/enum3.s.expected b/tests/GCCTestSuite/enum3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/enum3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/extra-semi-1.c b/tests/GCCTestSuite/extra-semi-1.c new file mode 100644 index 0000000..74857ca --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-1.c @@ -0,0 +1,7 @@ +/* Test diagnostic for extra semicolon outside a function. Test with + no special options. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +; diff --git a/tests/GCCTestSuite/extra-semi-1.c.expected b/tests/GCCTestSuite/extra-semi-1.c.expected new file mode 100644 index 0000000..74857ca --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-1.c.expected @@ -0,0 +1,7 @@ +/* Test diagnostic for extra semicolon outside a function. Test with + no special options. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +; diff --git a/tests/GCCTestSuite/extra-semi-1.hex.expected b/tests/GCCTestSuite/extra-semi-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/extra-semi-1.s.expected b/tests/GCCTestSuite/extra-semi-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/extra-semi-2.c b/tests/GCCTestSuite/extra-semi-2.c new file mode 100644 index 0000000..c4e1cc3 --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-2.c @@ -0,0 +1,7 @@ +/* Test diagnostic for extra semicolon outside a function. Test with + -pedantic. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +; /* { dg-warning "warning: ISO C does not allow extra ';' outside of a function" } */ diff --git a/tests/GCCTestSuite/extra-semi-2.c.expected b/tests/GCCTestSuite/extra-semi-2.c.expected new file mode 100644 index 0000000..c4e1cc3 --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-2.c.expected @@ -0,0 +1,7 @@ +/* Test diagnostic for extra semicolon outside a function. Test with + -pedantic. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +; /* { dg-warning "warning: ISO C does not allow extra ';' outside of a function" } */ diff --git a/tests/GCCTestSuite/extra-semi-2.hex.expected b/tests/GCCTestSuite/extra-semi-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/extra-semi-2.s.expected b/tests/GCCTestSuite/extra-semi-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/extra-semi-3.c b/tests/GCCTestSuite/extra-semi-3.c new file mode 100644 index 0000000..6b90767 --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-3.c @@ -0,0 +1,7 @@ +/* Test diagnostic for extra semicolon outside a function. Test with + -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic-errors" } */ + +; /* { dg-error "error: ISO C does not allow extra ';' outside of a function" } */ diff --git a/tests/GCCTestSuite/extra-semi-3.c.expected b/tests/GCCTestSuite/extra-semi-3.c.expected new file mode 100644 index 0000000..6b90767 --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-3.c.expected @@ -0,0 +1,7 @@ +/* Test diagnostic for extra semicolon outside a function. Test with + -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic-errors" } */ + +; /* { dg-error "error: ISO C does not allow extra ';' outside of a function" } */ diff --git a/tests/GCCTestSuite/extra-semi-3.hex.expected b/tests/GCCTestSuite/extra-semi-3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/extra-semi-3.s.expected b/tests/GCCTestSuite/extra-semi-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/extra-semi-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/fdata-sections-1.c b/tests/GCCTestSuite/fdata-sections-1.c new file mode 100644 index 0000000..d2b2b58 --- /dev/null +++ b/tests/GCCTestSuite/fdata-sections-1.c @@ -0,0 +1,9 @@ +/* PR middle-end/15486 */ +/* Origin: Jonathan Larmour */ + +/* { dg-do compile { target *-*-linux* } } */ +/* { dg-options "-fdata-sections" } */ + +int x; + +/* { dg-final { scan-assembler "comm" } } */ diff --git a/tests/GCCTestSuite/fdata-sections-1.c.expected b/tests/GCCTestSuite/fdata-sections-1.c.expected new file mode 100644 index 0000000..d2b2b58 --- /dev/null +++ b/tests/GCCTestSuite/fdata-sections-1.c.expected @@ -0,0 +1,9 @@ +/* PR middle-end/15486 */ +/* Origin: Jonathan Larmour */ + +/* { dg-do compile { target *-*-linux* } } */ +/* { dg-options "-fdata-sections" } */ + +int x; + +/* { dg-final { scan-assembler "comm" } } */ diff --git a/tests/GCCTestSuite/fdata-sections-1.hex.expected b/tests/GCCTestSuite/fdata-sections-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/fdata-sections-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/fdata-sections-1.s.expected b/tests/GCCTestSuite/fdata-sections-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/fdata-sections-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/fold-abs-1.c b/tests/GCCTestSuite/fold-abs-1.c new file mode 100644 index 0000000..2e69a20 --- /dev/null +++ b/tests/GCCTestSuite/fold-abs-1.c @@ -0,0 +1,7 @@ +/* { dg-do compile } */ +/* { dg-options "-O1 -fwrapv" } */ +#define ABS(x) (x > 0 ? x : -x) +int f (int a, int b) { + if ((ABS(a) | b) != 0) return 1; + else return 0; +} diff --git a/tests/GCCTestSuite/fold-abs-1.c.expected b/tests/GCCTestSuite/fold-abs-1.c.expected new file mode 100644 index 0000000..2e69a20 --- /dev/null +++ b/tests/GCCTestSuite/fold-abs-1.c.expected @@ -0,0 +1,7 @@ +/* { dg-do compile } */ +/* { dg-options "-O1 -fwrapv" } */ +#define ABS(x) (x > 0 ? x : -x) +int f (int a, int b) { + if ((ABS(a) | b) != 0) return 1; + else return 0; +} diff --git a/tests/GCCTestSuite/fold-abs-1.hex.expected b/tests/GCCTestSuite/fold-abs-1.hex.expected new file mode 100644 index 0000000..ac6e001 --- /dev/null +++ b/tests/GCCTestSuite/fold-abs-1.hex.expected @@ -0,0 +1,92 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51AF517E519F516E518BB +:1000D000F515751400751000750E00750F00E51C00 +:1000E000F50D750080E500F5F0E50F25F0F50FE55D +:1000F00000F5F0E50D25F0F50D750C007511007596 +:100100001200751300750B00750A01750001C3E537 +:100110000DF5F0E50F95F0F509E50BF5F0E50B357C +:10012000F0F509E509F5F0E50055F0F500E500F515 +:10013000F0E50C45F0F50C750001C3E50DF5F0E5B3 +:100140000F95F0F509E50BF5F0E50B35F0F509E550 +:100150000FF5F0E50D95F0F501E50BF5F0E50B3544 +:10016000F0F501E501F5F0E50945F0F509E50AF5D9 +:10017000F0E50965F0F509E509F5F0E50055F0F55C +:1001800000C3E51DF5F0E50E95F0F509E50BF5F07A +:10019000E50B35F0F509E509F5F0E50055F0F5005A +:1001A000E500F5F0E50C45F0F50C750001C3E50D33 +:1001B000F5F0E50F95F0F509E50BF5F0E50B35F0F9 +:1001C000F509E50FF5F0E50D95F0F501E50BF5F016 +:1001D000E50B35F0F501E501F5F0E50945F0F50928 +:1001E000E50AF5F0E50965F0F509E509F5F0E50042 +:1001F00055F0F500C3E51DF5F0E50E95F0F509E5C0 +:100200000BF5F0E50B35F0F509E50EF5F0E51D957C +:10021000F0F501E50BF5F0E50B35F0F501E501F53D +:10022000F0E50945F0F509E50AF5F0E50965F0F5B1 +:1002300009E509F5F0E50055F0F500C3E51EF5F018 +:10024000E51095F0F509E50BF5F0E50B35F0F5094E +:10025000E509F5F0E50055F0F500E500F5F0E50CF1 +:1002600045F0F50C750001C3E50DF5F0E50F95F0CF +:10027000F509E50BF5F0E50B35F0F509E50FF5F0BF +:10028000E50D95F0F501E50BF5F0E50B35F0F50121 +:10029000E501F5F0E50945F0F509E50AF5F0E509B0 +:1002A00065F0F509E509F5F0E50055F0F500C3E561 +:1002B0001DF5F0E50E95F0F509E50BF5F0E50B35CC +:1002C000F0F509E50EF5F0E51D95F0F501E50BF506 +:1002D000F0E50B35F0F501E501F5F0E50945F0F540 +:1002E00009E50AF5F0E50965F0F509E509F5F0E538 +:1002F0000055F0F500C3E51EF5F0E51095F0F509A1 +:10030000E50BF5F0E50B35F0F509E510F5F0E51E28 +:1003100095F0F501E50BF5F0E50B35F0F501E5019C +:10032000F5F0E50945F0F509E50AF5F0E50965F0B0 +:10033000F509E509F5F0E50055F0F500C3E51FF511 +:10034000F0E51495F0F509E50BF5F0E50B35F0F562 +:1003500009E509F5F0E50055F0F500E500F5F0E5F3 +:100360000C45F0F50C750000E50CF5F0E50045F0E6 +:10037000F500E511F5F0E50045F0F500E512F5F0C2 +:10038000E50045F0F500E513F5F0E50045F0F50072 +:10039000E500700280030205A100E51FF4F51FE5EA +:1003A0001EF4F51EE51DF4F51DE51CF4F51CD375D2 +:1003B0000000E500F5F0E51F35F0F51FE500F5F06C +:1003C000E51E35F0F51EE500F5F0E51D35F0F51DEF +:1003D000E500F5F0E51C35F0F51CC3E51BF5F0E58F +:1003E0001F45F0F500E517F5F0E51E45F0F501E5D0 +:1003F00016F5F0E51D45F0F509E515F5F0E51C45A8 +:10040000F0F50E750A00750B00750C00750D007582 +:100410000F00C3E50AF5F0E50095F0F500E500F5FD +:10042000F0E50F45F0F50FC3E50BF5F0E50195F0AC +:10043000F500E500F5F0E50F45F0F50FC3E50CF527 +:10044000F0E50995F0F500E500F5F0E50F45F0F56C +:100450000FC3E50DF5F0E50E95F0F500E500F5F0BC +:10046000E50F45F0F50F750100750900750A007577 +:100470000000E50FF5F0E50045F0F500E501F5F0C9 +:10048000E50045F0F500E509F5F0E50045F0F5007B +:10049000E50AF5F0E50045F0F500E500700280039F +:1004A00002059100750000750100750900750A00CC +:1004B000E500F502E501F503E509F504E50AF505B2 +:1004C00075E0092506F58275E0003507F583E0F54E +:1004D0001775E0082506F58275E0003507F583E01D +:1004E000F51675E0072506F58275E0003507F583FA +:1004F000E0F51575E0062506F58275E0003507F58F +:1005000083E0F51475E0052506F58275E0003507F2 +:10051000F583E0F51375E0042506F58275E00035F6 +:1005200007F583E0F51275E0032506F58275E00016 +:100530003507F583E0F51175E0022506F58275E0D3 +:10054000003507F583E0F51075E0002506F58275A6 +:10055000E0003507F583E0F508E508C0E075E00147 +:100560002506F58275E0003507F583E0F508E50816 +:10057000C0E075E0122506F50675E0003507F507C1 +:10058000E502F582E503F583E504F500E505F501EF +:100590002200750001750100750900750A0002044A +:1005A000B0000203DA0000000000000000000000BC +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/fold-abs-1.s.expected b/tests/GCCTestSuite/fold-abs-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/fold-abs-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/fold-abs-3.c b/tests/GCCTestSuite/fold-abs-3.c new file mode 100644 index 0000000..d151a8d --- /dev/null +++ b/tests/GCCTestSuite/fold-abs-3.c @@ -0,0 +1,9 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple -fwrapv" } */ +#define ABS(x) (x > 0 ? x : -x) +int f (int a) { + return ABS (ABS(a)); +} + +/* { dg-final { scan-tree-dump-times "ABS" 1 "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/fold-abs-3.c.expected b/tests/GCCTestSuite/fold-abs-3.c.expected new file mode 100644 index 0000000..d151a8d --- /dev/null +++ b/tests/GCCTestSuite/fold-abs-3.c.expected @@ -0,0 +1,9 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple -fwrapv" } */ +#define ABS(x) (x > 0 ? x : -x) +int f (int a) { + return ABS (ABS(a)); +} + +/* { dg-final { scan-tree-dump-times "ABS" 1 "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/fold-abs-3.hex.expected b/tests/GCCTestSuite/fold-abs-3.hex.expected new file mode 100644 index 0000000..0d24d31 --- /dev/null +++ b/tests/GCCTestSuite/fold-abs-3.hex.expected @@ -0,0 +1,217 @@ +:1000000000E50675820AC39582F506E5077583004B +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0E5173C +:10004000F518E516F519E515F51AE514F51B75E033 +:10005000052506F58275E0003507F583E513F07593 +:10006000E0042506F58275E0003507F583E512F01A +:1000700075E0032506F58275E0003507F583E51187 +:10008000F075E0022506F58275E0003507F583E599 +:1000900010F0751400751000750E00750F00E51C4A +:1000A000F50D750080E500F5F0E50F25F0F50FE59D +:1000B00000F5F0E50D25F0F50D750C0075110075D6 +:1000C0001200751300750B00750A01750001C3E578 +:1000D0000DF5F0E50F95F0F509E50BF5F0E50B35BD +:1000E000F0F509E509F5F0E50055F0F500E500F556 +:1000F000F0E50C45F0F50C750001C3E50DF5F0E5F4 +:100100000F95F0F509E50BF5F0E50B35F0F509E590 +:100110000FF5F0E50D95F0F501E50BF5F0E50B3584 +:10012000F0F501E501F5F0E50945F0F509E50AF519 +:10013000F0E50965F0F509E509F5F0E50055F0F59C +:1001400000C3E51DF5F0E50E95F0F509E50BF5F0BA +:10015000E50B35F0F509E509F5F0E50055F0F5009A +:10016000E500F5F0E50C45F0F50C750001C3E50D73 +:10017000F5F0E50F95F0F509E50BF5F0E50B35F039 +:10018000F509E50FF5F0E50D95F0F501E50BF5F056 +:10019000E50B35F0F501E501F5F0E50945F0F50968 +:1001A000E50AF5F0E50965F0F509E509F5F0E50082 +:1001B00055F0F500C3E51DF5F0E50E95F0F509E500 +:1001C0000BF5F0E50B35F0F509E50EF5F0E51D95BD +:1001D000F0F501E50BF5F0E50B35F0F501E501F57E +:1001E000F0E50945F0F509E50AF5F0E50965F0F5F2 +:1001F00009E509F5F0E50055F0F500C3E51EF5F059 +:10020000E51095F0F509E50BF5F0E50B35F0F5098E +:10021000E509F5F0E50055F0F500E500F5F0E50C31 +:1002200045F0F50C750001C3E50DF5F0E50F95F00F +:10023000F509E50BF5F0E50B35F0F509E50FF5F0FF +:10024000E50D95F0F501E50BF5F0E50B35F0F50161 +:10025000E501F5F0E50945F0F509E50AF5F0E509F0 +:1002600065F0F509E509F5F0E50055F0F500C3E5A1 +:100270001DF5F0E50E95F0F509E50BF5F0E50B350C +:10028000F0F509E50EF5F0E51D95F0F501E50BF546 +:10029000F0E50B35F0F501E501F5F0E50945F0F580 +:1002A00009E50AF5F0E50965F0F509E509F5F0E578 +:1002B0000055F0F500C3E51EF5F0E51095F0F509E1 +:1002C000E50BF5F0E50B35F0F509E510F5F0E51E69 +:1002D00095F0F501E50BF5F0E50B35F0F501E501DD +:1002E000F5F0E50945F0F509E50AF5F0E50965F0F1 +:1002F000F509E509F5F0E50055F0F500C3E51FF552 +:10030000F0E51495F0F509E50BF5F0E50B35F0F5A2 +:1003100009E509F5F0E50055F0F500E500F5F0E533 +:100320000C45F0F50C750000E50CF5F0E50045F026 +:10033000F500E511F5F0E50045F0F500E512F5F002 +:10034000E50045F0F500E513F5F0E50045F0F500B2 +:10035000E50070028003020D6700E51FF4F512E569 +:100360001EF4F50CE51DF4F50DE51CF4F50ED37542 +:100370000000E500F5F0E51235F0F512E500F5F0C6 +:10038000E50C35F0F50CE500F5F0E50D35F0F50D73 +:10039000E500F5F0E50E35F0F50E75170075130064 +:1003A000751000750F00750080E500F5F0E50F256C +:1003B000F0F50FE500F5F0E50E25F0F50E750B00F4 +:1003C000751400751500751600750A007511017514 +:1003D0000001C3E50EF5F0E50F95F0F509E50AF526 +:1003E000F0E50A35F0F509E509F5F0E50055F0F519 +:1003F00000E500F5F0E50B45F0F50B750001C3E5F0 +:100400000EF5F0E50F95F0F509E50AF5F0E50A358A +:10041000F0F509E50FF5F0E50E95F0F501E50AF5C3 +:10042000F0E50A35F0F501E501F5F0E50945F0F5EF +:1004300009E511F5F0E50965F0F509E509F5F0E5DF +:100440000055F0F500C3E50DF5F0E51095F0F50960 +:10045000E50AF5F0E50A35F0F509E509F5F0E500FE +:1004600055F0F500E500F5F0E50B45F0F50B7500EE +:1004700001C3E50EF5F0E50F95F0F509E50AF5F095 +:10048000E50A35F0F509E50FF5F0E50E95F0F50113 +:10049000E50AF5F0E50A35F0F501E501F5F0E509C5 +:1004A00045F0F509E511F5F0E50965F0F509E5090F +:1004B000F5F0E50055F0F500C3E50DF5F0E5109514 +:1004C000F0F509E50AF5F0E50A35F0F509E510F56E +:1004D000F0E50D95F0F501E50AF5F0E50A35F0F5E2 +:1004E00001E501F5F0E50945F0F509E511F5F0E55F +:1004F0000965F0F509E509F5F0E50055F0F500C3EB +:10050000E50CF5F0E51395F0F509E50AF5F0E50AD7 +:1005100035F0F509E509F5F0E50055F0F500E500E1 +:10052000F5F0E50B45F0F50B750001C3E50EF5F0B0 +:10053000E50F95F0F509E50AF5F0E50A35F0F5095E +:10054000E50FF5F0E50E95F0F501E50AF5F0E50AA1 +:1005500035F0F501E501F5F0E50945F0F509E5119E +:10056000F5F0E50965F0F509E509F5F0E50055F068 +:10057000F500C3E50DF5F0E51095F0F509E50AF590 +:10058000F0E50A35F0F509E510F5F0E50D95F0F523 +:1005900001E50AF5F0E50A35F0F501E501F5F0E5CC +:1005A0000945F0F509E511F5F0E50965F0F509E50E +:1005B00009F5F0E50055F0F500C3E50CF5F0E5139D +:1005C00095F0F509E50AF5F0E50A35F0F509E513CA +:1005D000F5F0E50C95F0F501E50AF5F0E50A35F0E2 +:1005E000F501E501F5F0E50945F0F509E511F5F04E +:1005F000E50965F0F509E509F5F0E50055F0F500C8 +:10060000C3E512F5F0E51795F0F509E50AF5F0E513 +:100610000A35F0F509E509F5F0E50055F0F500E5D6 +:1006200000F5F0E50B45F0F50B750000E50BF5F076 +:10063000E50045F0F500E514F5F0E50045F0F500BE +:10064000E515F5F0E50045F0F500E516F5F0E500F7 +:1006500045F0F500E50070028003020A57007514AA +:1006600000751000750E00750F00E51CF50D750086 +:1006700080E500F5F0E50F25F0F50FE500F5F0E574 +:100680000D25F0F50D750C00751100751200751330 +:1006900000750B00750A01750001C3E50DF5F0E565 +:1006A0000F95F0F509E50BF5F0E50B35F0F509E5EB +:1006B00009F5F0E50055F0F500E500F5F0E50C452D +:1006C000F0F50C750001C3E50DF5F0E50F95F0F5BB +:1006D00009E50BF5F0E50B35F0F509E50FF5F0E56B +:1006E0000D95F0F501E50BF5F0E50B35F0F501E5BD +:1006F00001F5F0E50945F0F509E50AF5F0E50965CC +:10070000F0F509E509F5F0E50055F0F500C3E51D44 +:10071000F5F0E50E95F0F509E50BF5F0E50B35F094 +:10072000F509E509F5F0E50055F0F500E500F5F00F +:10073000E50C45F0F50C750001C3E50DF5F0E50F8E +:1007400095F0F509E50BF5F0E50B35F0F509E50F4A +:10075000F5F0E50D95F0F501E50BF5F0E50B35F05D +:10076000F501E501F5F0E50945F0F509E50AF5F0D3 +:10077000E50965F0F509E509F5F0E50055F0F50046 +:10078000C3E51DF5F0E50E95F0F509E50BF5F0E58F +:100790000B35F0F509E50EF5F0E51D95F0F501E5F1 +:1007A0000BF5F0E50B35F0F501E501F5F0E5094550 +:1007B000F0F509E50AF5F0E50965F0F509E509F553 +:1007C000F0E50055F0F500C3E51EF5F0E51095F0F5 +:1007D000F509E50BF5F0E50B35F0F509E509F5F060 +:1007E000E50055F0F500E500F5F0E50C45F0F50CF9 +:1007F000750001C3E50DF5F0E50F95F0F509E50B82 +:10080000F5F0E50B35F0F509E50FF5F0E50D95F0A0 +:10081000F501E50BF5F0E50B35F0F501E501F5F037 +:10082000E50945F0F509E50AF5F0E50965F0F50992 +:10083000E509F5F0E50055F0F500C3E51DF5F0E537 +:100840000E95F0F509E50BF5F0E50B35F0F509E54A +:100850000EF5F0E51D95F0F501E50BF5F0E50B352E +:10086000F0F501E501F5F0E50945F0F509E50AF5D2 +:10087000F0E50965F0F509E509F5F0E50055F0F555 +:1008800000C3E51EF5F0E51095F0F509E50BF5F070 +:10089000E50B35F0F509E510F5F0E51E95F0F501ED +:1008A000E50BF5F0E50B35F0F501E501F5F0E509AF +:1008B00045F0F509E50AF5F0E50965F0F509E50902 +:1008C000F5F0E50055F0F500C3E51FF5F0E51495EA +:1008D000F0F509E50BF5F0E50B35F0F509E509F55F +:1008E000F0E50055F0F500E500F5F0E50C45F0F514 +:1008F0000C750000E50CF5F0E50045F0F500E5119C +:10090000F5F0E50045F0F500E512F5F0E50045F0FD +:10091000F500E513F5F0E50045F0F500E50070029F +:100920008003020A5300E51FF4F51FE51EF4F51ECF +:10093000E51DF4F51DE51CF4F51CD3750000E5007C +:10094000F5F0E51F35F0F51FE500F5F0E51E35F093 +:10095000F51EE500F5F0E51D35F0F51DE500F5F0B7 +:10096000E51C35F0F51CE51FF4F51FE51EF4F51E3A +:10097000E51DF4F51DE51CF4F51CD3750000E5003C +:10098000F5F0E51F35F0F51FE500F5F0E51E35F053 +:10099000F51EE500F5F0E51D35F0F51DE500F5F077 +:1009A000E51C35F0F51CE51FF502E51EF503E51D18 +:1009B000F504E51CF505E518F517E519F516E51A32 +:1009C000F515E51BF51475E0052506F58275E000C3 +:1009D0003507F583E0F51375E0042506F58275E02B +:1009E000003507F583E0F51275E0032506F58275FD +:1009F000E0003507F583E0F51175E0022506F58284 +:100A000075E0003507F583E0F51075E0002506F583 +:100A10008275E0003507F583E0F508E508C0E0756C +:100A2000E0012506F58275E0003507F583E0F5085D +:100A3000E508C0E075E00A2506F50675E000350713 +:100A4000F507E502F582E503F583E504F500E50524 +:100A5000F501220002096600751400751000750E7C +:100A600000750F00E51CF50D750080E500F5F0E55B +:100A70000F25F0F50FE500F5F0E50D25F0F50D7506 +:100A80000C00751100751200751300750B00750AC6 +:100A900001750001C3E50DF5F0E50F95F0F509E5E9 +:100AA0000BF5F0E50B35F0F509E509F5F0E5005536 +:100AB000F0F500E500F5F0E50C45F0F50C750001EA +:100AC000C3E50DF5F0E50F95F0F509E50BF5F0E55B +:100AD0000B35F0F509E50FF5F0E50D95F0F501E5BD +:100AE0000BF5F0E50B35F0F501E501F5F0E509450D +:100AF000F0F509E50AF5F0E50965F0F509E509F510 +:100B0000F0E50055F0F500C3E51DF5F0E50E95F0B4 +:100B1000F509E50BF5F0E50B35F0F509E509F5F01C +:100B2000E50055F0F500E500F5F0E50C45F0F50CB5 +:100B3000750001C3E50DF5F0E50F95F0F509E50B3E +:100B4000F5F0E50B35F0F509E50FF5F0E50D95F05D +:100B5000F501E50BF5F0E50B35F0F501E501F5F0F4 +:100B6000E50945F0F509E50AF5F0E50965F0F5094F +:100B7000E509F5F0E50055F0F500C3E51DF5F0E5F4 +:100B80000E95F0F509E50BF5F0E50B35F0F509E507 +:100B90000EF5F0E51D95F0F501E50BF5F0E50B35EB +:100BA000F0F501E501F5F0E50945F0F509E50AF58F +:100BB000F0E50965F0F509E509F5F0E50055F0F512 +:100BC00000C3E51EF5F0E51095F0F509E50BF5F02D +:100BD000E50B35F0F509E509F5F0E50055F0F50010 +:100BE000E500F5F0E50C45F0F50C750001C3E50DE9 +:100BF000F5F0E50F95F0F509E50BF5F0E50B35F0AF +:100C0000F509E50FF5F0E50D95F0F501E50BF5F0CB +:100C1000E50B35F0F501E501F5F0E50945F0F509DD +:100C2000E50AF5F0E50965F0F509E509F5F0E500F7 +:100C300055F0F500C3E51DF5F0E50E95F0F509E575 +:100C40000BF5F0E50B35F0F509E50EF5F0E51D9532 +:100C5000F0F501E50BF5F0E50B35F0F501E501F5F3 +:100C6000F0E50945F0F509E50AF5F0E50965F0F567 +:100C700009E509F5F0E50055F0F500C3E51EF5F0CE +:100C8000E51095F0F509E50BF5F0E50B35F0F50904 +:100C9000E510F5F0E51E95F0F501E50BF5F0E50B37 +:100CA00035F0F501E501F5F0E50945F0F509E50A4E +:100CB000F5F0E50965F0F509E509F5F0E50055F011 +:100CC000F500C3E51FF5F0E51495F0F509E50BF522 +:100CD000F0E50B35F0F509E509F5F0E50055F0F51F +:100CE00000E500F5F0E50C45F0F50C750000E50CAD +:100CF000F5F0E50045F0F500E511F5F0E50045F00B +:100D0000F500E512F5F0E50045F0F500E513F5F026 +:100D1000E50045F0F500E50070028003020D630078 +:100D2000E51FF4F51FE51EF4F51EE51DF4F51DE5C0 +:100D30001CF4F51CD3750000E500F5F0E51F35F057 +:100D4000F51FE500F5F0E51E35F0F51EE500F5F0C0 +:100D5000E51D35F0F51DE500F5F0E51C35F0F51C59 +:100D60000209A6000209A600E51FF512E51EF50C12 +:100D7000E51DF50DE51CF50E02039A0000000000CC +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/fold-abs-3.s.expected b/tests/GCCTestSuite/fold-abs-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/fold-abs-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/fold-mod-1.c b/tests/GCCTestSuite/fold-mod-1.c new file mode 100644 index 0000000..4a26d0f --- /dev/null +++ b/tests/GCCTestSuite/fold-mod-1.c @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ + +#define ABS(x) (x > 0 ? x : -x) + +unsigned int f (unsigned int a) { + /* (unsigned)-8 is not a power of 2. */ + return a % -8; +} + +int g (int b) { + return ABS (b) % -8; +} + +int h (int c) { + return ABS (c) % 8; +} + +unsigned int k (unsigned int d) { + return d % 8; +} + +/* { dg-final { scan-tree-dump "a % (4294967288|0fffffff8)" "gimple" } } */ +/* { dg-final { scan-tree-dump-times " & 7" 3 "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/fold-mod-1.c.expected b/tests/GCCTestSuite/fold-mod-1.c.expected new file mode 100644 index 0000000..4a26d0f --- /dev/null +++ b/tests/GCCTestSuite/fold-mod-1.c.expected @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ + +#define ABS(x) (x > 0 ? x : -x) + +unsigned int f (unsigned int a) { + /* (unsigned)-8 is not a power of 2. */ + return a % -8; +} + +int g (int b) { + return ABS (b) % -8; +} + +int h (int c) { + return ABS (c) % 8; +} + +unsigned int k (unsigned int d) { + return d % 8; +} + +/* { dg-final { scan-tree-dump "a % (4294967288|0fffffff8)" "gimple" } } */ +/* { dg-final { scan-tree-dump-times " & 7" 3 "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/fold-mod-1.hex.expected b/tests/GCCTestSuite/fold-mod-1.hex.expected new file mode 100644 index 0000000..0acc7c1 --- /dev/null +++ b/tests/GCCTestSuite/fold-mod-1.hex.expected @@ -0,0 +1,654 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF500E51EF501E51DD8 +:1000D000F509E51CF50AE51AF515E519F513750F8F +:1000E00000751000751100751200E500F516E501A8 +:1000F000F514E509F50DE50AF50E750C0075170008 +:10010000751900751A00750B00750A01750001C399 +:10011000E518F5F0E50E95F0F509E50BF5F0E50BC2 +:1001200035F0F509E509F5F0E50055F0F500E500D5 +:10013000F5F0E50C45F0F50C750001C3E518F5F098 +:10014000E50E95F0F509E50BF5F0E50B35F0F50951 +:10015000E50EF5F0E51895F0F501E50BF5F0E50B8A +:1001600035F0F501E501F5F0E50945F0F509E50A99 +:10017000F5F0E50965F0F509E509F5F0E50055F05C +:10018000F500C3E513F5F0E50D95F0F509E50BF580 +:10019000F0E50B35F0F509E509F5F0E50055F0F56A +:1001A00000E500F5F0E50C45F0F50C750001C3E540 +:1001B00018F5F0E50E95F0F509E50BF5F0E50B35D2 +:1001C000F0F509E50EF5F0E51895F0F501E50BF50C +:1001D000F0E50B35F0F501E501F5F0E50945F0F541 +:1001E00009E50AF5F0E50965F0F509E509F5F0E539 +:1001F0000055F0F500C3E513F5F0E50D95F0F509B0 +:10020000E50BF5F0E50B35F0F509E50DF5F0E51337 +:1002100095F0F501E50BF5F0E50B35F0F501E5019D +:10022000F5F0E50945F0F509E50AF5F0E50965F0B1 +:10023000F509E509F5F0E50055F0F500C3E515F51C +:10024000F0E51495F0F509E50BF5F0E50B35F0F563 +:1002500009E509F5F0E50055F0F500E500F5F0E5F4 +:100260000C45F0F50C750001C3E518F5F0E50E95A9 +:10027000F0F509E50BF5F0E50B35F0F509E50EF5C0 +:10028000F0E51895F0F501E50BF5F0E50B35F0F527 +:1002900001E501F5F0E50945F0F509E50AF5F0E5B8 +:1002A0000965F0F509E509F5F0E50055F0F500C33D +:1002B000E513F5F0E50D95F0F509E50BF5F0E50B27 +:1002C00035F0F509E50DF5F0E51395F0F501E50BD1 +:1002D000F5F0E50B35F0F501E501F5F0E50945F040 +:1002E000F509E50AF5F0E50965F0F509E509F5F028 +:1002F000E50055F0F500C3E515F5F0E51495F0F5CA +:1003000009E50BF5F0E50B35F0F509E514F5F0E539 +:100310001595F0F501E50BF5F0E50B35F0F501E588 +:1003200001F5F0E50945F0F509E50AF5F0E509659F +:10033000F0F509E509F5F0E50055F0F500C3E51B1A +:10034000F5F0E51695F0F509E50BF5F0E50B35F060 +:10035000F509E509F5F0E50055F0F500E500F5F0E3 +:10036000E50C45F0F50CE517F500E519F501E51A82 +:10037000F509E50CF50B750C01C3750A00E50BF5E5 +:10038000F0E50A95F0F50A750A00E50AF5F0E50AC8 +:1003900035F0F50AE50AF5F0E50C65F0F50CC375E6 +:1003A0000A00E500F5F0E50A95F0F50A750A00E5A2 +:1003B0000AF5F0E50A35F0F50AE50AF5F0E50C6511 +:1003C000F0F50CC3750A00E501F5F0E50A95F0F5C6 +:1003D0000A750A00E50AF5F0E50A35F0F50AE50ABE +:1003E000F5F0E50C65F0F50CC3750A00E509F5F0CC +:1003F000E50A95F0F50A750A00E50AF5F0E50A3513 +:10040000F0F50AE50AF5F0E50C65F0F50C7500006D +:10041000750100750900E500F50BE501F50A7501A8 +:1004200001C3750000E50CF5F0E50095F0F50075E9 +:100430000000E500F5F0E50035F0F500E500F5F029 +:10044000E50165F0F501C3750000E50BF5F0E50089 +:1004500095F0F500750000E500F5F0E50035F0F5E4 +:1004600000E500F5F0E50165F0F501C3750000E574 +:100470000AF5F0E50095F0F500750000E500F5F0EF +:10048000E50035F0F500E500F5F0E50165F0F50172 +:10049000C3750000E509F5F0E50095F0F50075007D +:1004A00000E500F5F0E50035F0F500E500F5F0E5D4 +:1004B0000165F0F501750900750A00750B007500FE +:1004C00000E501F5F0E50045F0F500E509F5F0E59A +:1004D0000045F0F500E50AF5F0E50045F0F500E52A +:1004E0000BF5F0E50045F0F500E500700280030231 +:1004F000055700750001750100750900750A00C3F4 +:10050000750B00E500F5F0E50F35F0F50FE501F5A9 +:10051000F0E51035F0F510E509F5F0E51135F0F5E9 +:1005200011E50AF5F0E51235F0F512C3E51BF5F01B +:10053000E51695F0F516E515F5F0E51495F0F514CA +:10054000E513F5F0E50D95F0F50DE518F5F0E50E80 +:1005500095F0F50E0200FA00E50FF502E510F5033F +:10056000E511F504E512F50575E0092506F5827536 +:10057000E0003507F583E0F51775E0082506F582FC +:1005800075E0003507F583E0F51675E0072506F5FB +:100590008275E0003507F583E0F51575E006250660 +:1005A000F58275E0003507F583E0F51475E0052563 +:1005B00006F58275E0003507F583E0F51375E00474 +:1005C0002506F58275E0003507F583E0F51275E044 +:1005D000032506F58275E0003507F583E0F5117512 +:1005E000E0022506F58275E0003507F583E0F51099 +:1005F00075E0002506F58275E0003507F583E0F526 +:1006000008E508C0E075E0012506F58275E00035D3 +:1006100007F583E0F508E508C0E075E0122506F56A +:100620000675E0003507F507E502F582E503F58379 +:10063000E504F500E505F5012200E506758217C31E +:100640009582F506E5077583009583F507D0E0F5FB +:100650000875E0062506F58275E0003507F583E5A7 +:1006600008F0D0E0F50875E0052506F58275E00094 +:100670003507F583E508F075E00E2506F58275E08F +:10068000003507F583E517F075E00D2506F5827551 +:10069000E0003507F583E516F075E00C2506F582D8 +:1006A00075E0003507F583E515F075E00B2506F5D7 +:1006B0008275E0003507F583E514F075E00A25063C +:1006C000F58275E0003507F583E513F075E009253F +:1006D00006F58275E0003507F583E512F075E00850 +:1006E0002506F58275E0003507F583E511F075E024 +:1006F000072506F58275E0003507F583E510F0E57E +:100700001FF511E51BF512E51AF513E519F514753A +:10071000E0042506F58275E0003507F583E511F064 +:1007200075E0032506F58275E0003507F583E51EC3 +:10073000F075E0022506F58275E0003507F583E5E2 +:100740001DF075E0012506F58275E0003507F5839B +:10075000E51CF07515017516007517007508007514 +:10076000E0002506F58275E0003507F583E508F021 +:10077000751900750D00750E00750F00E51CF5105C +:10078000750080E500F5F0E51025F0F510E500F5C1 +:10079000F0E50F25F0F50F750C00751A00751B00BC +:1007A000751F00750B00750A01750001C3E50FF593 +:1007B000F0E51095F0F509E50BF5F0E50B35F0F5F2 +:1007C00009E509F5F0E50055F0F500E500F5F0E57F +:1007D0000C45F0F50C750001C3E50FF5F0E510953B +:1007E000F0F509E50BF5F0E50B35F0F509E510F549 +:1007F000F0E50F95F0F501E50BF5F0E50B35F0F5BB +:1008000001E501F5F0E50945F0F509E50AF5F0E542 +:100810000965F0F509E509F5F0E50055F0F500C3C7 +:10082000E50EF5F0E51D95F0F509E50BF5F0E50BA6 +:1008300035F0F509E509F5F0E50055F0F500E500BE +:10084000F5F0E50C45F0F50C750001C3E50FF5F08A +:10085000E51095F0F509E50BF5F0E50B35F0F50938 +:10086000E510F5F0E50F95F0F501E50BF5F0E50B7A +:1008700035F0F501E501F5F0E50945F0F509E50A82 +:10088000F5F0E50965F0F509E509F5F0E50055F045 +:10089000F500C3E50EF5F0E51D95F0F509E50BF55E +:1008A000F0E50B35F0F509E51DF5F0E50E95F0F5F1 +:1008B00001E50BF5F0E50B35F0F501E501F5F0E5A7 +:1008C0000945F0F509E50AF5F0E50965F0F509E5F2 +:1008D00009F5F0E50055F0F500C3E50DF5F0E51E6E +:1008E00095F0F509E50BF5F0E50B35F0F509E509AF +:1008F000F5F0E50055F0F500E500F5F0E50C45F004 +:10090000F50C750001C3E50FF5F0E51095F0F5095C +:10091000E50BF5F0E50B35F0F509E510F5F0E50F21 +:1009200095F0F501E50BF5F0E50B35F0F501E50186 +:10093000F5F0E50945F0F509E50AF5F0E50965F09A +:10094000F509E509F5F0E50055F0F500C3E50EF50C +:10095000F0E51D95F0F509E50BF5F0E50B35F0F543 +:1009600009E51DF5F0E50E95F0F501E50BF5F0E56F +:100970000B35F0F501E501F5F0E50945F0F509E580 +:100980000AF5F0E50965F0F509E509F5F0E500552A +:10099000F0F500C3E50DF5F0E51E95F0F509E50B62 +:1009A000F5F0E50B35F0F509E51EF5F0E50D95F0F0 +:1009B000F501E50BF5F0E50B35F0F501E501F5F096 +:1009C000E50945F0F509E50AF5F0E50965F0F509F1 +:1009D000E509F5F0E50055F0F500C3E519F5F0E59A +:1009E0001195F0F509E50BF5F0E50B35F0F509E5A6 +:1009F00009F5F0E50055F0F500E500F5F0E50C45EA +:100A0000F0F50CE51AF501E51BF509E51FF50A758A +:100A10000000E50CF5F0E50045F0F500E501F5F026 +:100A2000E50045F0F500E509F5F0E50045F0F500D5 +:100A3000E50AF5F0E50045F0F500E50070028003F9 +:100A400002116B00751900750D00750E00750F0011 +:100A5000E512F51BE513F51AE514F510E518F51187 +:100A6000750080E500F5F0E51125F0F511E500F5DC +:100A7000F0E50F25F0F50F750C00751C00751D00D5 +:100A8000751E00750B00750A01750001C3E50FF5B1 +:100A9000F0E51195F0F509E50BF5F0E50B35F0F50E +:100AA00009E509F5F0E50055F0F500E500F5F0E59C +:100AB0000C45F0F50C750001C3E50FF5F0E5119557 +:100AC000F0F509E50BF5F0E50B35F0F509E511F565 +:100AD000F0E50F95F0F501E50BF5F0E50B35F0F5D8 +:100AE00001E501F5F0E50945F0F509E50AF5F0E560 +:100AF0000965F0F509E509F5F0E50055F0F500C3E5 +:100B0000E50EF5F0E51095F0F509E50BF5F0E50BD0 +:100B100035F0F509E509F5F0E50055F0F500E500DB +:100B2000F5F0E50C45F0F50C750001C3E50FF5F0A7 +:100B3000E51195F0F509E50BF5F0E50B35F0F50954 +:100B4000E511F5F0E50F95F0F501E50BF5F0E50B96 +:100B500035F0F501E501F5F0E50945F0F509E50A9F +:100B6000F5F0E50965F0F509E509F5F0E50055F062 +:100B7000F500C3E50EF5F0E51095F0F509E50BF588 +:100B8000F0E50B35F0F509E510F5F0E50E95F0F51B +:100B900001E50BF5F0E50B35F0F501E501F5F0E5C4 +:100BA0000945F0F509E50AF5F0E50965F0F509E50F +:100BB00009F5F0E50055F0F500C3E50DF5F0E51A8F +:100BC00095F0F509E50BF5F0E50B35F0F509E509CC +:100BD000F5F0E50055F0F500E500F5F0E50C45F021 +:100BE000F50C750001C3E50FF5F0E51195F0F50979 +:100BF000E50BF5F0E50B35F0F509E511F5F0E50F3E +:100C000095F0F501E50BF5F0E50B35F0F501E501A3 +:100C1000F5F0E50945F0F509E50AF5F0E50965F0B7 +:100C2000F509E509F5F0E50055F0F500C3E50EF529 +:100C3000F0E51095F0F509E50BF5F0E50B35F0F56D +:100C400009E510F5F0E50E95F0F501E50BF5F0E599 +:100C50000B35F0F501E501F5F0E50945F0F509E59D +:100C60000AF5F0E50965F0F509E509F5F0E5005547 +:100C7000F0F500C3E50DF5F0E51A95F0F509E50B83 +:100C8000F5F0E50B35F0F509E51AF5F0E50D95F011 +:100C9000F501E50BF5F0E50B35F0F501E501F5F0B3 +:100CA000E50945F0F509E50AF5F0E50965F0F5090E +:100CB000E509F5F0E50055F0F500C3E519F5F0E5B7 +:100CC0001B95F0F509E50BF5F0E50B35F0F509E5B9 +:100CD00009F5F0E50055F0F500E500F5F0E50C4507 +:100CE000F0F50CE51CF501E51DF509E51EF50A75A5 +:100CF0000000E50CF5F0E50045F0F500E501F5F044 +:100D0000E50045F0F500E509F5F0E50045F0F500F2 +:100D1000E50AF5F0E50045F0F500E5007002800316 +:100D20000210A30075E0042506F58275E000350782 +:100D3000F583E0F51F75E0032506F58275E00035C3 +:100D400007F583E0F51E75E0022506F58275E000E3 +:100D50003507F583E0F51D75E0012506F58275E0A0 +:100D6000003507F583E0F51CE512F51BE513F51AD0 +:100D7000E514F519120000E582F502E583F503E5B7 +:100D800000F504E501F505E502F511E503F512E5C9 +:100D900004F513E505F514E515F500E516F515E57B +:100DA00017F51675E0002506F58275E0003507F5A4 +:100DB00083E0F517750D00750E00750F00751000B6 +:100DC000C3750100E500F5F0E511A4F50CE500F5AB +:100DD000F0E511A4E5F0F509E50CF5F0E50135F0D5 +:100DE000F501E515F5F0E511A4F50CE515F5F0E5CF +:100DF00011A4E5F0F50AE50CF5F0E50935F0F50983 +:100E0000E516F5F0E511A4F50CE516F5F0E511A4ED +:100E1000E5F0F50BE50CF5F0E50A35F0F50AE51718 +:100E2000F5F0E511A4F50CE517F5F0E511A4E5F0F2 +:100E3000F511E50CF5F0E50B35F0F50BC3C3750CBA +:100E400000E501F5F0E50D35F0F50DE509F5F0E506 +:100E50000E35F0F50EE50AF5F0E50F35F0F50FE586 +:100E60000BF5F0E51035F0F510C3750900E500F558 +:100E7000F0E512A4F50CE500F5F0E512A4E5F0F5B7 +:100E80000AE50CF5F0E50935F0F509E515F5F0E5AD +:100E900012A4F50CE515F5F0E512A4E5F0F50BE567 +:100EA0000CF5F0E50A35F0F50AE516F5F0E512A4C3 +:100EB000F50CE516F5F0E512A4E5F0F511E50CF5F5 +:100EC000F0E50B35F0F50B750100C3C3750C00E5BB +:100ED00001F5F0E50D35F0F50DE509F5F0E50E3518 +:100EE000F0F50EE50AF5F0E50F35F0F50FE50BF539 +:100EF000F0E51035F0F510C3750A00E500F5F0E5F2 +:100F000013A4F50CE500F5F0E513A4E5F0F50BE509 +:100F10000CF5F0E50A35F0F50AE515F5F0E513A452 +:100F2000F50CE515F5F0E513A4E5F0F511E50CF584 +:100F3000F0E50B35F0F50B750100750900C3C375BD +:100F40000C00E501F5F0E50D35F0F50DE509F5F0DE +:100F5000E50E35F0F50EE50AF5F0E50F35F0F50F85 +:100F6000E50BF5F0E51035F0F510C3750B00E50065 +:100F7000F5F0E514A4F50CE500F5F0E514A4E5F0B2 +:100F8000F511E50CF5F0E50B35F0F50B7501007585 +:100F90000900750A00C3C3750000E501F5F0E50D11 +:100FA00035F0F50DE509F5F0E50E35F0F50EE50A3D +:100FB000F5F0E50F35F0F50FE50BF5F0E51035F040 +:100FC000F510E50DF502E50EF503E50FF504E51066 +:100FD000F50575E00E2506F58275E0003507F58309 +:100FE000E0F51775E00D2506F58275E0003507F58B +:100FF00083E0F51675E00C2506F58275E0003507EF +:10100000F583E0F51575E00B2506F58275E00035F2 +:1010100007F583E0F51475E00A2506F58275E00012 +:101020003507F583E0F51375E0092506F58275E0CF +:10103000003507F583E0F51275E0082506F58275A1 +:10104000E0003507F583E0F51175E0072506F58228 +:1010500075E0003507F583E0F51075E0052506F528 +:101060008275E0003507F583E0F508E508C0E07516 +:10107000E0062506F58275E0003507F583E0F50802 +:10108000E508C0E075E0172506F50675E0003507B0 +:10109000F507E502F582E503F583E504F500E505CE +:1010A000F5012200E512F4F512E513F4F513E51449 +:1010B000F4F514E518F4F518D3750000E500F5F023 +:1010C000E51235F0F512E500F5F0E51335F0F5130E +:1010D000E500F5F0E51435F0F514E500F5F0E51858 +:1010E00035F0F518E515F4F515E516F4F516E517E0 +:1010F000F4F51775E0002506F58275E0003507F573 +:1011000083E0F508E508F4F50875E0002506F582AA +:1011100075E0003507F583E508F0D3750000E500BC +:10112000F5F0E51535F0F515E500F5F0E51635F0C7 +:10113000F516E500F5F0E51735F0F517E500F5F0E3 +:1011400075E0002506F58275E0003507F583E0F5CA +:1011500008E50835F0F50875E0002506F58275E02C +:10116000003507F583E508F0020D2400E511F4F5DC +:1011700000E51EF4F501E51DF4F509E51CF4F50B99 +:10118000D3750A00E50AF5F0E50035F0F500E50A4B +:10119000F5F0E50135F0F501E50AF5F0E50935F082 +:1011A000F509E50AF5F0E50B35F0F50B75E00425DA +:1011B00006F58275E0003507F583E500F075E0037C +:1011C0002506F58275E0003507F583E501F075E049 +:1011D000022506F58275E0003507F583E509F0750F +:1011E000E0012506F58275E0003507F583E50BF093 +:1011F000E515F4F515E516F4F516E517F4F517758C +:10120000E0002506F58275E0003507F583E0F50876 +:10121000E508F4F50875E0002506F58275E000356F +:1012200007F583E508F0D3750000E500F5F0E51556 +:1012300035F0F515E500F5F0E51635F0F516E500A5 +:10124000F5F0E51735F0F517E500F5F075E0002548 +:1012500006F58275E0003507F583E0F508E5083509 +:10126000F0F50875E0002506F58275E0003507F514 +:1012700083E508F0020A4400E506758211C39582F1 +:10128000F506E5077583009583F507D0E0F5087549 +:10129000E0012506F58275E0003507F583E508F0E5 +:1012A000D0E0F50875E0002506F58275E000350709 +:1012B000F583E508F075E0082506F58275E0003550 +:1012C00007F583E516F075E0072506F58275E00061 +:1012D0003507F583E515F075E0062506F58275E01E +:1012E000003507F583E514F075E0052506F58275F0 +:1012F000E0003507F583E513F075E0042506F58277 +:1013000075E0003507F583E512F075E0032506F575 +:101310008275E0003507F583E511F075E0022506DA +:10132000F58275E0003507F583E510F0E51FF5005F +:10133000E51EF501E51DF509E51CF50AE51BF516A9 +:10134000E51AF515E519F513E500F50FE501F510BA +:10135000E509F511E50AF512750C00750D00751417 +:1013600000750E00750B00750A01750001C3E518C4 +:10137000F5F0E51295F0F509E50BF5F0E50B35F024 +:10138000F509E509F5F0E50055F0F500E500F5F0A3 +:10139000E50C45F0F50C750001C3E518F5F0E51214 +:1013A00095F0F509E50BF5F0E50B35F0F509E512DB +:1013B000F5F0E51895F0F501E50BF5F0E50B35F0E6 +:1013C000F501E501F5F0E50945F0F509E50AF5F067 +:1013D000E50965F0F509E509F5F0E50055F0F500DA +:1013E000C3E513F5F0E51195F0F509E50BF5F0E52A +:1013F0000B35F0F509E509F5F0E50055F0F500E5E8 +:1014000000F5F0E50C45F0F50C750001C3E518F5A5 +:10141000F0E51295F0F509E50BF5F0E50B35F0F583 +:1014200009E512F5F0E51895F0F501E50BF5F0E5A5 +:101430000B35F0F501E501F5F0E50945F0F509E5B5 +:101440000AF5F0E50965F0F509E509F5F0E500555F +:10145000F0F500C3E513F5F0E51195F0F509E50B9E +:10146000F5F0E50B35F0F509E511F5F0E51395F02C +:10147000F501E50BF5F0E50B35F0F501E501F5F0CB +:10148000E50945F0F509E50AF5F0E50965F0F50926 +:10149000E509F5F0E50055F0F500C3E515F5F0E5D3 +:1014A0001095F0F509E50BF5F0E50B35F0F509E5DC +:1014B00009F5F0E50055F0F500E500F5F0E50C451F +:1014C000F0F50C750001C3E518F5F0E51295F0F59F +:1014D00009E50BF5F0E50B35F0F509E512F5F0E55A +:1014E0001895F0F501E50BF5F0E50B35F0F501E5A4 +:1014F00001F5F0E50945F0F509E50AF5F0E50965BE +:10150000F0F509E509F5F0E50055F0F500C3E51340 +:10151000F5F0E51195F0F509E50BF5F0E50B35F083 +:10152000F509E511F5F0E51395F0F501E50BF5F09A +:10153000E50B35F0F501E501F5F0E50945F0F509B4 +:10154000E50AF5F0E50965F0F509E509F5F0E500CE +:1015500055F0F500C3E515F5F0E51095F0F509E552 +:101560000BF5F0E50B35F0F509E510F5F0E515950F +:10157000F0F501E50BF5F0E50B35F0F501E501F5CA +:10158000F0E50945F0F509E50AF5F0E50965F0F53E +:1015900009E509F5F0E50055F0F500C3E516F5F0AD +:1015A000E50F95F0F509E50BF5F0E50B35F0F509DC +:1015B000E509F5F0E50055F0F500E500F5F0E50C7E +:1015C00045F0F50CE50CF500E514F501750C01C3CB +:1015D000750900E500F5F0E50995F0F509750900D4 +:1015E000E509F5F0E50935F0F509E509F5F0E50C53 +:1015F00065F0F50CC3750900E50DF5F0E50995F00A +:10160000F509750900E509F5F0E50935F0F509E595 +:1016100009F5F0E50C65F0F50CC3750900E501F579 +:10162000F0E50995F0F509750900E509F5F0E5091A +:1016300035F0F509E509F5F0E50C65F0F50CC37535 +:101640000900E50EF5F0E50995F0F509750900E5E5 +:1016500009F5F0E50935F0F509E509F5F0E50C6562 +:10166000F0F50C750D00751400750E00E50DF50014 +:10167000E514F501E50EF509750B01C3750A00E5E2 +:101680000CF5F0E50A95F0F50A750A00E50AF5F0A3 +:10169000E50A35F0F50AE50AF5F0E50B65F0F50B1E +:1016A000C3750A00E500F5F0E50A95F0F50A750A3C +:1016B00000E50AF5F0E50A35F0F50AE50AF5F0E58A +:1016C0000B65F0F50BC3750A00E501F5F0E50A9529 +:1016D000F0F50A750A00E50AF5F0E50A35F0F50AB5 +:1016E000E50AF5F0E50B65F0F50BC3750A00E509B1 +:1016F000F5F0E50A95F0F50A750A00E50AF5F0E55A +:101700000A35F0F50AE50AF5F0E50B65F0F50B751D +:101710000100750900750A00750000E50BF5F0E59C +:101720000045F0F500E501F5F0E50045F0F500E5D0 +:1017300009F5F0E50045F0F500E50AF5F0E50045AE +:10174000F0F500E5007002800302177A00C3C3E5DC +:1017500016F5F0E50F95F0F50FE515F5F0E51095A8 +:10176000F0F510E513F5F0E51195F0F511E518F534 +:10177000F0E51295F0F51202135800E50FF502E5B9 +:1017800010F503E511F504E512F50575E0082506E9 +:10179000F58275E0003507F583E0F51675E007255D +:1017A00006F58275E0003507F583E0F51575E0066E +:1017B0002506F58275E0003507F583E0F51475E040 +:1017C000052506F58275E0003507F583E0F513750C +:1017D000E0042506F58275E0003507F583E0F51293 +:1017E00075E0032506F58275E0003507F583E0F521 +:1017F0001175E0022506F58275E0003507F583E0F6 +:10180000F51075E0002506F58275E0003507F583D3 +:10181000E0F508E508C0E075E0012506F58275E011 +:10182000003507F583E0F508E508C0E075E011250F +:1018300006F50675E0003507F507E502F582E503D4 +:10184000F583E504F500E505F5012200E50675825E +:1018500016C39582F506E5077583009583F507D0D5 +:10186000E0F50875E0052506F58275E0003507F519 +:1018700083E508F0D0E0F50875E0042506F58275EB +:10188000E0003507F583E508F075E00D2506F582E3 +:1018900075E0003507F583E517F075E00C2506F5D2 +:1018A0008275E0003507F583E516F075E00B250637 +:1018B000F58275E0003507F583E515F075E00A253A +:1018C00006F58275E0003507F583E514F075E0094B +:1018D0002506F58275E0003507F583E513F075E020 +:1018E000082506F58275E0003507F583E512F075E9 +:1018F000E0072506F58275E0003507F583E511F070 +:1019000075E0062506F58275E0003507F583E510DC +:10191000F075E0032506F58275E0003507F583E5EF +:101920001FF075E0022506F58275E0003507F583A6 +:10193000E51EF075E0012506F58275E0003507F536 +:1019400083E51DF075E0002506F58275E00035079A +:10195000F583E51CF0E51BF514E51AF515E519F519 +:1019600016E518F51775E0032506F58275E00035D4 +:1019700007F583E0F51F75E0022506F58275E000A6 +:101980003507F583E0F51E75E0012506F58275E063 +:10199000003507F583E0F51D75E0002506F5827535 +:1019A000E0003507F583E0F51CE514F51BE515F5BA +:1019B0001AE516F519E517F518120639E582F5024C +:1019C000E583F503E500F504E501F505E502F5001D +:1019D000E503F501E504F509E505F50A751000755F +:1019E0001100751200751300C3750B00E500F5F0CA +:1019F000E514A4F50FE500F5F0E514A4E5F0F50C09 +:101A0000E50FF5F0E50B35F0F50BE501F5F0E51424 +:101A1000A4F50FE501F5F0E514A4E5F0F50DE50FEB +:101A2000F5F0E50C35F0F50CE509F5F0E514A4F555 +:101A30000FE509F5F0E514A4E5F0F50EE50FF5F076 +:101A4000E50D35F0F50DE50AF5F0E514A4F50FE523 +:101A50000AF5F0E514A4E5F0F50AE50FF5F0E50E5A +:101A600035F0F50EC3C3750A00E50BF5F0E510354A +:101A7000F0F510E50CF5F0E51135F0F511E50DF593 +:101A8000F0E51235F0F512E50EF5F0E51335F0F559 +:101A900013C3750C00E500F5F0E515A4F50FE5009E +:101AA000F5F0E515A4E5F0F50DE50FF5F0E50C35DD +:101AB000F0F50CE501F5F0E515A4F50FE501F5F0FD +:101AC000E515A4E5F0F50EE50FF5F0E50D35F0F5BB +:101AD0000DE509F5F0E515A4F50FE509F5F0E515B7 +:101AE000A4E5F0F50AE50FF5F0E50E35F0F50E7515 +:101AF0000B00C3C3750900E50BF5F0E51035F0F5F3 +:101B000010E50CF5F0E51135F0F511E50DF5F0E512 +:101B10001235F0F512E50EF5F0E51335F0F513C3C7 +:101B2000750D00E500F5F0E516A4F50FE500F5F0FC +:101B3000E516A4E5F0F50EE50FF5F0E50D35F0F549 +:101B40000DE501F5F0E516A4F50FE501F5F0E51654 +:101B5000A4E5F0F50AE50FF5F0E50E35F0F50E75A4 +:101B60000B00750C00C3C3750100E50BF5F0E51023 +:101B700035F0F510E50CF5F0E51135F0F511E50D52 +:101B8000F5F0E51235F0F512E50EF5F0E51335F058 +:101B9000F513C3750E00E500F5F0E517A4F50FE5A4 +:101BA00000F5F0E517A4E5F0F50AE50FF5F0E50E10 +:101BB00035F0F50E750B00750C00750D00C3C3757F +:101BC0000000E50BF5F0E51035F0F510E50CF5F04B +:101BD000E51135F0F511E50DF5F0E51235F0F512EA +:101BE000E50EF5F0E51335F0F513C3E510F5F075E6 +:101BF000E0032506F58275E0003507F583E0F5087A +:101C0000E50895F0F500E511F5F075E0022506F51B +:101C10008275E0003507F583E0F508E50895F0F5F5 +:101C200001E512F5F075E0012506F58275E0003555 +:101C300007F583E0F508E50895F0F509E513F5F0FB +:101C400075E0002506F58275E0003507F583E0F5BF +:101C500008E50895F0F50AE500F502E501F503E56C +:101C600009F504E50AF50575E00D2506F58275E030 +:101C7000003507F583E0F51775E00C2506F582754C +:101C8000E0003507F583E0F51675E00B2506F582D3 +:101C900075E0003507F583E0F51575E00A2506F5D2 +:101CA0008275E0003507F583E0F51475E009250637 +:101CB000F58275E0003507F583E0F51375E008253A +:101CC00006F58275E0003507F583E0F51275E0074B +:101CD0002506F58275E0003507F583E0F51175E01E +:101CE000062506F58275E0003507F583E0F51075E9 +:101CF000E0042506F58275E0003507F583E0F50878 +:101D0000E508C0E075E0052506F58275E0003507B9 +:101D1000F583E0F508E508C0E075E0162506F50650 +:101D200075E0003507F507E502F582E503F583E583 +:101D300004F500E505F5012200E506758206C39568 +:101D400082F506E5077583009583F507D0E0F50871 +:101D500075E0012506F58275E0003507F583E50895 +:101D6000F0D0E0F50875E0002506F58275E0003555 +:101D700007F583E508F0750108750000750A007520 +:101D80000900E501F4F501E500F4F500E50AF4F5D4 +:101D900019E509F4F518D3750900E509F5F0E50131 +:101DA00035F0F501E509F5F0E50035F0F500E50958 +:101DB000F5F0E51935F0F519E509F5F0E51835F018 +:101DC000F518E501F51BE500F51A121277E582F525 +:101DD00002E583F503E500F504E501F505E502F507 +:101DE00000E503F501E504F509E505F50AE500F56B +:101DF00002E501F503E509F504E50AF50575E000DE +:101E00002506F58275E0003507F583E0F508E5085D +:101E1000C0E075E0012506F58275E0003507F58321 +:101E2000E0F508E508C0E075E0062506F50675E072 +:101E3000003507F507E502F582E503F583E504F5CE +:101E400000E505F5012200E50675820CC39582F5D3 +:101E500006E5077583009583F507D0E0F50875E082 +:101E6000012506F58275E0003507F583E508F0D019 +:101E7000E0F50875E0002506F58275E0003507F508 +:101E800083E508F075E0072506F58275E000350763 +:101E9000F583E515F075E0062506F58275E0003559 +:101EA00007F583E514F075E0052506F58275E00079 +:101EB0003507F583E513F075E0042506F58275E036 +:101EC000003507F583E512F075E0032506F5827508 +:101ED000E0003507F583E511F075E0022506F5828F +:101EE00075E0003507F583E510F0E51CF515751470 +:101EF00000750E00750F00751000E515F50D7500E5 +:101F000080E500F5F0E51025F0F510E500F5F0E5C9 +:101F10000D25F0F50D750C00751100751200751387 +:101F200000750B00750A01750001C3E50DF5F0E5BC +:101F30001095F0F509E50BF5F0E50B35F0F509E541 +:101F400009F5F0E50055F0F500E500F5F0E50C4584 +:101F5000F0F50C750001C3E50DF5F0E51095F0F511 +:101F600009E50BF5F0E50B35F0F509E510F5F0E5C1 +:101F70000D95F0F501E50BF5F0E50B35F0F501E514 +:101F800001F5F0E50945F0F509E50AF5F0E5096523 +:101F9000F0F509E509F5F0E50055F0F500C3E51D9C +:101FA000F5F0E50F95F0F509E50BF5F0E50B35F0EB +:101FB000F509E509F5F0E50055F0F500E500F5F067 +:101FC000E50C45F0F50C750001C3E50DF5F0E510E5 +:101FD00095F0F509E50BF5F0E50B35F0F509E510A1 +:101FE000F5F0E50D95F0F501E50BF5F0E50B35F0B5 +:101FF000F501E501F5F0E50945F0F509E50AF5F02B +:10200000E50965F0F509E509F5F0E50055F0F5009D +:10201000C3E51DF5F0E50F95F0F509E50BF5F0E5E5 +:102020000B35F0F509E50FF5F0E51D95F0F501E547 +:102030000BF5F0E50B35F0F501E501F5F0E50945A7 +:10204000F0F509E50AF5F0E50965F0F509E509F5AA +:10205000F0E50055F0F500C3E51EF5F0E50E95F04E +:10206000F509E50BF5F0E50B35F0F509E509F5F0B7 +:10207000E50055F0F500E500F5F0E50C45F0F50C50 +:10208000750001C3E50DF5F0E51095F0F509E50BD8 +:10209000F5F0E50B35F0F509E510F5F0E50D95F0F7 +:1020A000F501E50BF5F0E50B35F0F501E501F5F08F +:1020B000E50945F0F509E50AF5F0E50965F0F509EA +:1020C000E509F5F0E50055F0F500C3E51DF5F0E58F +:1020D0000F95F0F509E50BF5F0E50B35F0F509E5A1 +:1020E0000FF5F0E51D95F0F501E50BF5F0E50B3585 +:1020F000F0F501E501F5F0E50945F0F509E50AF52A +:10210000F0E50965F0F509E509F5F0E50055F0F5AC +:1021100000C3E51EF5F0E50E95F0F509E50BF5F0C9 +:10212000E50B35F0F509E50EF5F0E51E95F0F50146 +:10213000E50BF5F0E50B35F0F501E501F5F0E50906 +:1021400045F0F509E50AF5F0E50965F0F509E50959 +:10215000F5F0E50055F0F500C3E51FF5F0E5149541 +:10216000F0F509E50BF5F0E50B35F0F509E509F5B6 +:10217000F0E50055F0F500E500F5F0E50C45F0F56B +:102180000C750000E50CF5F0E50045F0F500E511F3 +:10219000F5F0E50045F0F500E512F5F0E50045F055 +:1021A000F500E513F5F0E50045F0F500E5007002F7 +:1021B000800302233000E51FF4F500E51EF4F5016D +:1021C000E51DF4F509E515F4F51CD3750A00E50ADB +:1021D000F5F0E50035F0F500E50AF5F0E50135F03C +:1021E000F501E50AF5F0E50935F0F509E50AF5F040 +:1021F000E51C35F0F51C750D08750C00750B0075A8 +:102200000A00E50DF4F51BE50CF4F51AE50BF4F501 +:1022100019E50AF4F518D3750A00E50AF5F0E51B8F +:1022200035F0F51BE50AF5F0E51A35F0F51AE50A83 +:10223000F5F0E51935F0F519E50AF5F0E51835F092 +:10224000F518E500F51FE501F51EE509F51D121865 +:102250004BE582F502E583F503E500F504E501F5BC +:1022600005E502F500E503F501E504F509E505F5E9 +:102270000AE500F502E501F503E509F504E50AF5CF +:102280000575E0072506F58275E0003507F583E062 +:10229000F51575E0062506F58275E0003507F5832E +:1022A000E0F51475E0052506F58275E0003507F5C3 +:1022B00083E0F51375E0042506F58275E000350727 +:1022C000F583E0F51275E0032506F58275E000352B +:1022D00007F583E0F51175E0022506F58275E0004B +:1022E0003507F583E0F51075E0002506F58275E009 +:1022F000003507F583E0F508E508C0E075E0012545 +:1023000006F58275E0003507F583E0F508E508C0BD +:10231000E075E00C2506F50675E0003507F507E5E4 +:1023200002F582E503F583E504F500E505F50122F4 +:1023300000E51FF500E51EF501E51DF509E515F5BC +:102340001C0221F600E50675820CC39582F506E5B0 +:10235000077583009583F507D0E0F50875E0012542 +:1023600006F58275E0003507F583E508F0D0E0F565 +:102370000875E0002506F58275E0003507F583E570 +:1023800008F075E0072506F58275E0003507F5834E +:10239000E515F075E0062506F58275E0003507F5D0 +:1023A00083E514F075E0052506F58275E000350734 +:1023B000F583E513F075E0042506F58275E0003538 +:1023C00007F583E512F075E0032506F58275E00058 +:1023D0003507F583E511F075E0022506F58275E015 +:1023E000003507F583E510F0E51CF515751400754B +:1023F0000E00750F00751000E515F50D750080E5F0 +:1024000000F5F0E51025F0F510E500F5F0E50D25F7 +:10241000F0F50D750C00751100751200751300753F +:102420000B00750A01750001C3E50DF5F0E5109587 +:10243000F0F509E50BF5F0E50B35F0F509E509F5E3 +:10244000F0E50055F0F500E500F5F0E50C45F0F598 +:102450000C750001C3E50DF5F0E51095F0F509E503 +:102460000BF5F0E50B35F0F509E510F5F0E50D9508 +:10247000F0F501E50BF5F0E50B35F0F501E501F5BB +:10248000F0E50945F0F509E50AF5F0E50965F0F52F +:1024900009E509F5F0E50055F0F500C3E51DF5F097 +:1024A000E50F95F0F509E50BF5F0E50B35F0F509CD +:1024B000E509F5F0E50055F0F500E500F5F0E50C6F +:1024C00045F0F50C750001C3E50DF5F0E51095F04C +:1024D000F509E50BF5F0E50B35F0F509E510F5F03C +:1024E000E50D95F0F501E50BF5F0E50B35F0F5019F +:1024F000E501F5F0E50945F0F509E50AF5F0E5092E +:1025000065F0F509E509F5F0E50055F0F500C3E5DE +:102510001DF5F0E50F95F0F509E50BF5F0E50B3548 +:10252000F0F509E50FF5F0E51D95F0F501E50BF582 +:10253000F0E50B35F0F501E501F5F0E50945F0F5BD +:1025400009E50AF5F0E50965F0F509E509F5F0E5B5 +:102550000055F0F500C3E51EF5F0E50E95F0F50920 +:10256000E50BF5F0E50B35F0F509E509F5F0E500CB +:1025700055F0F500E500F5F0E50C45F0F50C7500BB +:1025800001C3E50DF5F0E51095F0F509E50BF5F063 +:10259000E50B35F0F509E510F5F0E50D95F0F501E1 +:1025A000E50BF5F0E50B35F0F501E501F5F0E50992 +:1025B00045F0F509E50AF5F0E50965F0F509E509E5 +:1025C000F5F0E50055F0F500C3E51DF5F0E50F95D4 +:1025D000F0F509E50BF5F0E50B35F0F509E50FF53C +:1025E000F0E51D95F0F501E50BF5F0E50B35F0F59F +:1025F00001E501F5F0E50945F0F509E50AF5F0E535 +:102600000965F0F509E509F5F0E50055F0F500C3B9 +:10261000E51EF5F0E50E95F0F509E50BF5F0E50B97 +:1026200035F0F509E50EF5F0E51E95F0F501E50B41 +:10263000F5F0E50B35F0F501E501F5F0E50945F0BC +:10264000F509E50AF5F0E50965F0F509E509F5F0A4 +:10265000E50055F0F500C3E51FF5F0E51495F0F53C +:1026600009E50BF5F0E50B35F0F509E509F5F0E5C1 +:102670000055F0F500E500F5F0E50C45F0F50C75BA +:102680000000E50CF5F0E50045F0F500E511F5F08A +:10269000E50045F0F500E512F5F0E50045F0F50040 +:1026A000E513F5F0E50045F0F500E5007002800364 +:1026B0000227EE00E51FF4F500E51EF4F501E51D27 +:1026C000F4F509E515F4F51CD3750A00E50AF5F0F3 +:1026D000E50035F0F500E50AF5F0E50135F0F50126 +:1026E000E50AF5F0E50935F0F509E50AF5F0E51C30 +:1026F00035F0F51C751B08751A0075190075180062 +:10270000E500F51FE501F51EE509F51D12184BE57D +:1027100082F502E583F503E500F504E501F505E53D +:1027200002F500E503F501E504F509E505F50AE51F +:1027300000F502E501F503E509F504E50AF505757F +:10274000E0072506F58275E0003507F583E0F5150D +:1027500075E0062506F58275E0003507F583E0F59E +:102760001475E0052506F58275E0003507F583E070 +:10277000F51375E0042506F58275E0003507F5834D +:10278000E0F51275E0032506F58275E0003507F5E2 +:1027900083E0F51175E0022506F58275E000350746 +:1027A000F583E0F51075E0002506F58275E000354B +:1027B00007F583E0F508E508C0E075E0012506F5BA +:1027C0008275E0003507F583E0F508E508C0E0759F +:1027D000E00C2506F50675E0003507F507E502F57E +:1027E00082E503F583E504F500E505F5012200E542 +:1027F0001FF500E51EF501E51DF509E515F51C02BF +:1028000026F400E506758206C39582F506E5077590 +:1028100083009583F507D0E0F50875E0012506F5FE +:102820008275E0003507F583E508F0D0E0F508751E +:10283000E0002506F58275E0003507F583E508F030 +:10284000751B08751A00751900751800121277E5C6 +:1028500082F502E583F503E500F504E501F505E5FC +:1028600002F500E503F501E504F509E505F50AE5DE +:1028700000F502E501F503E509F504E50AF505753E +:10288000E0002506F58275E0003507F583E0F508E0 +:10289000E508C0E075E0012506F58275E000350722 +:1028A000F583E0F508E508C0E075E0062506F506C5 +:1028B00075E0003507F507E502F582E503F583E5E8 +:1028C00004F500E505F5012200000000000000000D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/fold-mod-1.s.expected b/tests/GCCTestSuite/fold-mod-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/fold-mod-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/fold-xor-1.c b/tests/GCCTestSuite/fold-xor-1.c new file mode 100644 index 0000000..52b1ac4 --- /dev/null +++ b/tests/GCCTestSuite/fold-xor-1.c @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ + +int f (int a, int b) { + return ~a ^ ~b; +} + +unsigned int g (unsigned int a, unsigned int b) { + return ~a ^ ~b; +} +/* { dg-final { scan-tree-dump-times "a \\^ b" 2 "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/fold-xor-1.c.expected b/tests/GCCTestSuite/fold-xor-1.c.expected new file mode 100644 index 0000000..52b1ac4 --- /dev/null +++ b/tests/GCCTestSuite/fold-xor-1.c.expected @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ + +int f (int a, int b) { + return ~a ^ ~b; +} + +unsigned int g (unsigned int a, unsigned int b) { + return ~a ^ ~b; +} +/* { dg-final { scan-tree-dump-times "a \\^ b" 2 "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/fold-xor-1.hex.expected b/tests/GCCTestSuite/fold-xor-1.hex.expected new file mode 100644 index 0000000..f47e1e7 --- /dev/null +++ b/tests/GCCTestSuite/fold-xor-1.hex.expected @@ -0,0 +1,31 @@ +:1000000000E50675820AC39582F506E5077583004B +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0E51241 +:10004000F50FE51FF4F500E51EF4F501E51DF4F5E7 +:1000500009E51CF4F50AE51BF4F50BE51AF4F50CBB +:10006000E519F4F50DE518F4F50EC3E50BF5F0E52B +:100070000065F0F500E50CF5F0E50165F0F501E54A +:100080000DF5F0E50965F0F509E50EF5F0E50A6511 +:10009000F0F50AE500F502E501F503E509F504E5EB +:1000A0000AF505E50FF51275E0002506F58275E005 +:1000B000003507F583E0F508E508C0E075E00125A7 +:1000C00006F58275E0003507F583E0F508E508C020 +:1000D000E075E00A2506F50675E0003507F507E549 +:1000E00002F582E503F583E504F500E505F5012257 +:1000F00000E50675820AC39582F506E5077583005B +:100100009583F507D0E0F50875E0012506F58275C1 +:10011000E0003507F583E508F0D0E0F50875E0006C +:100120002506F58275E0003507F583E508F0E51250 +:10013000F50FE51FF4F500E51EF4F501E51DF4F5F6 +:1001400009E51CF4F50AE51BF4F50BE51AF4F50CCA +:10015000E519F4F50DE518F4F50EC3E50BF5F0E53A +:100160000065F0F500E50CF5F0E50165F0F501E559 +:100170000DF5F0E50965F0F509E50EF5F0E50A6520 +:10018000F0F50AE500F502E501F503E509F504E5FA +:100190000AF505E50FF51275E0002506F58275E014 +:1001A000003507F583E0F508E508C0E075E00125B6 +:1001B00006F58275E0003507F583E0F508E508C02F +:1001C000E075E00A2506F50675E0003507F507E558 +:1001D00002F582E503F583E504F500E505F5012266 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/fold-xor-1.s.expected b/tests/GCCTestSuite/fold-xor-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/fold-xor-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/fold-xor-2.c b/tests/GCCTestSuite/fold-xor-2.c new file mode 100644 index 0000000..35337c9 --- /dev/null +++ b/tests/GCCTestSuite/fold-xor-2.c @@ -0,0 +1,16 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ +int f (int a, int b) { + return ~(a ^ -(b + 1)); +} + +int g (int a, int b) { + return b ^ a; +} + +unsigned int h (unsigned int a, unsigned int b) { + return ~(-(b + 1) ^ a); +} + +/* { dg-final { scan-tree-dump-times "b \\^ a" 3 "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/fold-xor-2.c.expected b/tests/GCCTestSuite/fold-xor-2.c.expected new file mode 100644 index 0000000..35337c9 --- /dev/null +++ b/tests/GCCTestSuite/fold-xor-2.c.expected @@ -0,0 +1,16 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ +int f (int a, int b) { + return ~(a ^ -(b + 1)); +} + +int g (int a, int b) { + return b ^ a; +} + +unsigned int h (unsigned int a, unsigned int b) { + return ~(-(b + 1) ^ a); +} + +/* { dg-final { scan-tree-dump-times "b \\^ a" 3 "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/fold-xor-2.hex.expected b/tests/GCCTestSuite/fold-xor-2.hex.expected new file mode 100644 index 0000000..ae6cb8e --- /dev/null +++ b/tests/GCCTestSuite/fold-xor-2.hex.expected @@ -0,0 +1,55 @@ +:1000000000E50675820AC39582F506E5077583004B +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0E5163D +:10004000F50BE515F50CE514F50DE513F50F750049 +:1000500001750100750900750A00C3750E00E50001 +:10006000F5F0E51B35F0F500E501F5F0E51A35F0A2 +:10007000F501E509F5F0E51935F0F509E50AF5F0C2 +:10008000E51835F0F50AE500F4F500E501F4F501B1 +:10009000E509F4F509E50AF4F50ED3750A00E50A59 +:1000A000F5F0E50035F0F500E50AF5F0E50135F08D +:1000B000F501E50AF5F0E50935F0F509E50AF5F091 +:1000C000E50E35F0F50EC3E500F5F0E51F65F0F53A +:1000D00000E501F5F0E51E65F0F501E509F5F0E54F +:1000E0001D65F0F509E50EF5F0E51C65F0F50AE58E +:1000F00000F4F500E501F4F501E509F4F509E50A78 +:10010000F4F50AE500F502E501F503E509F504E576 +:100110000AF505E50BF516E50CF515E50DF514E505 +:100120000FF51375E0002506F58275E0003507F53B +:1001300083E0F508E508C0E075E0012506F5827565 +:10014000E0003507F583E0F508E508C0E075E00A52 +:100150002506F50675E0003507F507E502F582E5A9 +:1001600003F583E504F500E505F5012200E50675D4 +:100170008208C39582F506E5077583009583F50728 +:10018000D0E0F50AD0E0F50CE510F501C3E51FF568 +:10019000F0E51B65F0F500E51EF5F0E51A65F0F5F4 +:1001A00009E51DF5F0E51965F0F50BE51CF5F0E541 +:1001B0001865F0F50DE500F502E509F503E50BF529 +:1001C00004E50DF505E501F510E50CC0E0E50AC014 +:1001D000E075E0082506F50675E0003507F507E54A +:1001E00002F582E503F583E504F500E505F5012256 +:1001F00000E50675820AC39582F506E5077583005A +:100200009583F507D0E0F50875E0012506F58275C0 +:10021000E0003507F583E508F0D0E0F50875E0006B +:100220002506F58275E0003507F583E508F0E5164B +:10023000F50BE515F50CE514F50DE513F50F750057 +:1002400001750100750900750A00C3750E00E5000F +:10025000F5F0E51B35F0F500E501F5F0E51A35F0B0 +:10026000F501E509F5F0E51935F0F509E50AF5F0D0 +:10027000E51835F0F50AE500F4F500E501F4F501BF +:10028000E509F4F509E50AF4F50ED3750A00E50A67 +:10029000F5F0E50035F0F500E50AF5F0E50135F09B +:1002A000F501E50AF5F0E50935F0F509E50AF5F09F +:1002B000E50E35F0F50EC3E51FF5F0E50065F0F548 +:1002C00000E51EF5F0E50165F0F501E51DF5F0E549 +:1002D0000965F0F509E51CF5F0E50E65F0F50AE5B0 +:1002E00000F4F500E501F4F501E509F4F509E50A86 +:1002F000F4F50AE500F502E501F503E509F504E585 +:100300000AF505E50BF516E50CF515E50DF514E513 +:100310000FF51375E0002506F58275E0003507F549 +:1003200083E0F508E508C0E075E0012506F5827573 +:10033000E0003507F583E0F508E508C0E075E00A60 +:100340002506F50675E0003507F507E502F582E5B7 +:1003500003F583E504F500E505F501220000000042 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/fold-xor-2.s.expected b/tests/GCCTestSuite/fold-xor-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/fold-xor-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/ftrapv-1.c b/tests/GCCTestSuite/ftrapv-1.c new file mode 100644 index 0000000..eb1e53b --- /dev/null +++ b/tests/GCCTestSuite/ftrapv-1.c @@ -0,0 +1,26 @@ +/* Copyright (C) 2004 Free Software Foundation. + + PR other/15526 + Verify correct overflow checking with -ftrapv. + + Written by Falk Hueffner, 20th May 2004. */ + +/* { dg-do run } */ +/* { dg-options "-ftrapv" } */ + +__attribute__((noinline)) int +mulv(int a, int b) +{ + return a * b; +} + +int +main() +{ + int tmp; + tmp=mulv( 0, 0); + tmp=mulv( 0, -1); + tmp=mulv(-1, 0); + tmp=mulv(-1, -1); + return 0; +} diff --git a/tests/GCCTestSuite/ftrapv-1.c.expected b/tests/GCCTestSuite/ftrapv-1.c.expected new file mode 100644 index 0000000..eb1e53b --- /dev/null +++ b/tests/GCCTestSuite/ftrapv-1.c.expected @@ -0,0 +1,26 @@ +/* Copyright (C) 2004 Free Software Foundation. + + PR other/15526 + Verify correct overflow checking with -ftrapv. + + Written by Falk Hueffner, 20th May 2004. */ + +/* { dg-do run } */ +/* { dg-options "-ftrapv" } */ + +__attribute__((noinline)) int +mulv(int a, int b) +{ + return a * b; +} + +int +main() +{ + int tmp; + tmp=mulv( 0, 0); + tmp=mulv( 0, -1); + tmp=mulv(-1, 0); + tmp=mulv(-1, -1); + return 0; +} diff --git a/tests/GCCTestSuite/ftrapv-1.hex.expected b/tests/GCCTestSuite/ftrapv-1.hex.expected new file mode 100644 index 0000000..3cc30e7 --- /dev/null +++ b/tests/GCCTestSuite/ftrapv-1.hex.expected @@ -0,0 +1,92 @@ +:1000000075812F7506FF7507FF1203A002000C0013 +:10001000E506758210C39582F506E50775830095A0 +:1000200083F507D0E0F50875E0012506F58275E057 +:10003000003507F583E508F0D0E0F50875E0002508 +:1000400006F58275E0003507F583E508F075E007F1 +:100050002506F58275E0003507F583E515F075E0B6 +:10006000062506F58275E0003507F583E514F07581 +:10007000E0052506F58275E0003507F583E513F008 +:1000800075E0042506F58275E0003507F583E51275 +:10009000F075E0032506F58275E0003507F583E588 +:1000A00011F075E0022506F58275E0003507F5834D +:1000B000E510F0E51FF500E51EF501E51DF509E584 +:1000C0001CF50AE519F512E518F515E509F513E52E +:1000D0000AF514750E00750F00751000751100C338 +:1000E000750900E500F5F0E51BA4F50DE500F5F058 +:1000F000E51BA4E5F0F50AE50DF5F0E50935F0F5A9 +:1001000009E501F5F0E51BA4F50DE501F5F0E51BAA +:10011000A4E5F0F50BE50DF5F0E50A35F0F50AE597 +:1001200013F5F0E51BA4F50DE513F5F0E51BA4E5CB +:10013000F0F50CE50DF5F0E50B35F0F50BE514F5F4 +:10014000F0E51BA4F50DE514F5F0E51BA4E5F0F5CD +:1001500014E50DF5F0E50C35F0F50CC3C3750D0095 +:10016000E509F5F0E50E35F0F50EE50AF5F0E50FD9 +:1001700035F0F50FE50BF5F0E51035F0F510E50C71 +:10018000F5F0E51135F0F511C3750A00E500F5F05D +:10019000E51AA4F50DE500F5F0E51AA4E5F0F50B78 +:1001A000E50DF5F0E50A35F0F50AE501F5F0E51A9B +:1001B000A4F50DE501F5F0E51AA4E5F0F50CE50D63 +:1001C000F5F0E50B35F0F50BE513F5F0E51AA4F5C0 +:1001D0000DE513F5F0E51AA4E5F0F514E50DF5F0DD +:1001E000E50C35F0F50C750900C3C3750D00E50984 +:1001F000F5F0E50E35F0F50EE50AF5F0E50F35F012 +:10020000F50FE50BF5F0E51035F0F510E50CF5F020 +:10021000E51135F0F511C3750B00E500F5F0E512B9 +:10022000A4F50DE500F5F0E512A4E5F0F50CE50DFB +:10023000F5F0E50B35F0F50BE501F5F0E512A4F569 +:100240000DE501F5F0E512A4E5F0F514E50DF5F086 +:10025000E50C35F0F50C750900750A00C3C375018E +:1002600000E509F5F0E50E35F0F50EE50AF5F0E5E7 +:100270000F35F0F50FE50BF5F0E51035F0F510E56D +:100280000CF5F0E51135F0F511C3750C00E500F53E +:10029000F0E515A4F50DE500F5F0E515A4E5F0F59C +:1002A00014E50DF5F0E50C35F0F50C750900750A4F +:1002B00000750B00C3C3750000E509F5F0E50E35C8 +:1002C000F0F50EE50AF5F0E50F35F0F50FE50BF565 +:1002D000F0E51035F0F510E50CF5F0E51135F0F529 +:1002E00011E50EF502E50FF503E510F504E511F54E +:1002F0000575E0072506F58275E0003507F583E012 +:10030000F51575E0062506F58275E0003507F583DD +:10031000E0F51475E0052506F58275E0003507F572 +:1003200083E0F51375E0042506F58275E0003507D6 +:10033000F583E0F51275E0032506F58275E00035DA +:1003400007F583E0F51175E0022506F58275E000FA +:100350003507F583E0F51075E0002506F58275E0B8 +:10036000003507F583E0F508E508C0E075E00125F4 +:1003700006F58275E0003507F583E0F508E508C06D +:10038000E075E0102506F50675E0003507F507E590 +:1003900002F582E503F583E504F500E505F50122A4 +:1003A00000E506758202C39582F506E507758300B0 +:1003B0009583F507D0E0F50875E0012506F582750F +:1003C000E0003507F583E508F0D0E0F50875E000BA +:1003D0002506F58275E0003507F583E508F0751F01 +:1003E00000751E00751D00751C00751B00751A0038 +:1003F00075190075180012000F751F00751E007525 +:100400001D00751C00750A01750900750100750055 +:1004100000E50AF4F51BE509F4F51AE501F4F51910 +:10042000E500F4F518D3750000E500F5F0E51B359F +:10043000F0F51BE500F5F0E51A35F0F51AE500F5E5 +:10044000F0E51935F0F519E500F5F0E51835F0F5AA +:100450001812000F750A017509007501007500007A +:10046000E50AF4F51FE509F4F51EE501F4F51DE5CF +:1004700000F4F51CD3750000E500F5F0E51F35F03C +:10048000F51FE500F5F0E51E35F0F51EE500F5F089 +:10049000E51D35F0F51DE500F5F0E51C35F0F51C22 +:1004A000751B00751A0075190075180012000F757C +:1004B0000A01750900750100750000E50AF4F51FD1 +:1004C000E509F4F51EE501F4F51DE500F4F51CD38E +:1004D000750000E500F5F0E51F35F0F51FE500F5C6 +:1004E000F0E51E35F0F51EE500F5F0E51D35F0F5FB +:1004F0001DE500F5F0E51C35F0F51C750A017509E0 +:1005000000750100750000E50AF4F51BE509F4F536 +:100510001AE501F4F519E500F4F518D3750000E5C6 +:1005200000F5F0E51B35F0F51BE500F5F0E51A35B3 +:10053000F0F51AE500F5F0E51935F0F519E500F5E7 +:10054000F0E51835F0F51812000F75000075010080 +:10055000750900750A00E500F502E501F503E509F6 +:10056000F504E50AF50575E0002506F58275E0005D +:100570003507F583E0F508E508C0E075E0012506DC +:10058000F58275E0003507F583E0F508E508C0E081 +:1005900075E0022506F50675E0003507F507E5026A +:1005A000F582E503F583E504F500E505F501220094 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/ftrapv-1.s.expected b/tests/GCCTestSuite/ftrapv-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/ftrapv-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/funcdef-attr-1.c b/tests/GCCTestSuite/funcdef-attr-1.c new file mode 100644 index 0000000..17249a0 --- /dev/null +++ b/tests/GCCTestSuite/funcdef-attr-1.c @@ -0,0 +1,14 @@ +/* The declarator in a function definition should be able to take the + form of an attributed function declarator, not just a plain + function declarator. This was formerly allowed by some of the code + but then the wrong constraint checks were made because other code + didn't recognise the declarator as being that of the function + definition. */ +/* Origin: Joseph Myers . */ + +int (__attribute__((const)) x) (a, b) + int a; + int b; +{ + return a + b; +} diff --git a/tests/GCCTestSuite/funcdef-attr-1.c.expected b/tests/GCCTestSuite/funcdef-attr-1.c.expected new file mode 100644 index 0000000..17249a0 --- /dev/null +++ b/tests/GCCTestSuite/funcdef-attr-1.c.expected @@ -0,0 +1,14 @@ +/* The declarator in a function definition should be able to take the + form of an attributed function declarator, not just a plain + function declarator. This was formerly allowed by some of the code + but then the wrong constraint checks were made because other code + didn't recognise the declarator as being that of the function + definition. */ +/* Origin: Joseph Myers . */ + +int (__attribute__((const)) x) (a, b) + int a; + int b; +{ + return a + b; +} diff --git a/tests/GCCTestSuite/funcdef-attr-1.hex.expected b/tests/GCCTestSuite/funcdef-attr-1.hex.expected new file mode 100644 index 0000000..accd545 --- /dev/null +++ b/tests/GCCTestSuite/funcdef-attr-1.hex.expected @@ -0,0 +1,10 @@ +:1000000000E506758208C39582F506E5077583004D +:100010009583F507D0E0F50CD0E0F50EE511F5017C +:10002000E510F50AC3750000E51BF5F0E51F35F096 +:10003000F500E51AF5F0E51E35F0F509E519F5F0DE +:10004000E51D35F0F50BE518F5F0E51C35F0F50D7F +:10005000E500F502E509F503E50BF504E50DF50509 +:10006000E501F511E50AF510E50EC0E0E50CC0E08C +:1000700075E0082506F50675E0003507F507E50289 +:10008000F582E503F583E504F500E505F5012200B9 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/funcdef-attr-1.s.expected b/tests/GCCTestSuite/funcdef-attr-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/funcdef-attr-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/funcdef-var-2.c b/tests/GCCTestSuite/funcdef-var-2.c new file mode 100644 index 0000000..744987e --- /dev/null +++ b/tests/GCCTestSuite/funcdef-var-2.c @@ -0,0 +1,11 @@ +/* Test ICE on defining function with a name previously declared as a + nonfunction. Bug 28299 from Bernhard Fischer . + Reduced testcase from Volker Reichelt . */ + +/* { dg-do compile } */ +/* { dg-options "-Wmissing-prototypes" } */ + +int foo; +/* { dg-error "previous declaration" "previous declaration" { target *-*-* } 8 } */ +void foo () {} /* { dg-error "redeclared as different kind of symbol" } */ +/* { dg-warning "no previous prototype" "no previous prototype" { target *-*-* } 10 } */ diff --git a/tests/GCCTestSuite/funcdef-var-2.c.expected b/tests/GCCTestSuite/funcdef-var-2.c.expected new file mode 100644 index 0000000..744987e --- /dev/null +++ b/tests/GCCTestSuite/funcdef-var-2.c.expected @@ -0,0 +1,11 @@ +/* Test ICE on defining function with a name previously declared as a + nonfunction. Bug 28299 from Bernhard Fischer . + Reduced testcase from Volker Reichelt . */ + +/* { dg-do compile } */ +/* { dg-options "-Wmissing-prototypes" } */ + +int foo; +/* { dg-error "previous declaration" "previous declaration" { target *-*-* } 8 } */ +void foo () {} /* { dg-error "redeclared as different kind of symbol" } */ +/* { dg-warning "no previous prototype" "no previous prototype" { target *-*-* } 10 } */ diff --git a/tests/GCCTestSuite/funcdef-var-2.hex.expected b/tests/GCCTestSuite/funcdef-var-2.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/funcdef-var-2.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/funcdef-var-2.s.expected b/tests/GCCTestSuite/funcdef-var-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/funcdef-var-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/funroll-loops-all.c b/tests/GCCTestSuite/funroll-loops-all.c new file mode 100644 index 0000000..c627675 --- /dev/null +++ b/tests/GCCTestSuite/funroll-loops-all.c @@ -0,0 +1,4 @@ +/* PR 17594 */ +/* { dg-do compile } */ +/* { dg-options "-funroll-loops-all" } */ +/* { dg-error "unrecognized command line option \"-funroll-loops-all\"" "" { target *-*-* } 0 } */ diff --git a/tests/GCCTestSuite/funroll-loops-all.c.expected b/tests/GCCTestSuite/funroll-loops-all.c.expected new file mode 100644 index 0000000..c627675 --- /dev/null +++ b/tests/GCCTestSuite/funroll-loops-all.c.expected @@ -0,0 +1,4 @@ +/* PR 17594 */ +/* { dg-do compile } */ +/* { dg-options "-funroll-loops-all" } */ +/* { dg-error "unrecognized command line option \"-funroll-loops-all\"" "" { target *-*-* } 0 } */ diff --git a/tests/GCCTestSuite/funroll-loops-all.hex.expected b/tests/GCCTestSuite/funroll-loops-all.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/funroll-loops-all.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/funroll-loops-all.s.expected b/tests/GCCTestSuite/funroll-loops-all.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/funroll-loops-all.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/gnu89-dupqual-1.c b/tests/GCCTestSuite/gnu89-dupqual-1.c new file mode 100644 index 0000000..9bd1db0 --- /dev/null +++ b/tests/GCCTestSuite/gnu89-dupqual-1.c @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-std=gnu89 -Werror" } */ + +typedef const int CI; +const const int c1; /* { dg-bogus "duplicate" } */ +const CI c2; /* { dg-bogus "duplicate" } */ +const CI *c3; /* { dg-bogus "duplicate" } */ + +typedef volatile int VI; +volatile volatile int v1; /* { dg-bogus "duplicate" } */ +volatile VI v2; /* { dg-bogus "duplicate" } */ +volatile VI *v3; /* { dg-bogus "duplicate" } */ diff --git a/tests/GCCTestSuite/gnu89-dupqual-1.c.expected b/tests/GCCTestSuite/gnu89-dupqual-1.c.expected new file mode 100644 index 0000000..9bd1db0 --- /dev/null +++ b/tests/GCCTestSuite/gnu89-dupqual-1.c.expected @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-std=gnu89 -Werror" } */ + +typedef const int CI; +const const int c1; /* { dg-bogus "duplicate" } */ +const CI c2; /* { dg-bogus "duplicate" } */ +const CI *c3; /* { dg-bogus "duplicate" } */ + +typedef volatile int VI; +volatile volatile int v1; /* { dg-bogus "duplicate" } */ +volatile VI v2; /* { dg-bogus "duplicate" } */ +volatile VI *v3; /* { dg-bogus "duplicate" } */ diff --git a/tests/GCCTestSuite/gnu89-dupqual-1.hex.expected b/tests/GCCTestSuite/gnu89-dupqual-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/gnu89-dupqual-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/gnu89-dupqual-1.s.expected b/tests/GCCTestSuite/gnu89-dupqual-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/gnu89-dupqual-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/h8300-stack-1.c b/tests/GCCTestSuite/h8300-stack-1.c new file mode 100644 index 0000000..b63bde2 --- /dev/null +++ b/tests/GCCTestSuite/h8300-stack-1.c @@ -0,0 +1,14 @@ +/* Make sure that the H8 backend does not generate a non-atomic stack + adjustment. */ +/* { dg-do compile { target h8300-*-* } } */ +/* { dg-options "" } */ + +void foo (short, short, short, short, short, short); + +void +bar () +{ + foo (0, 0, 0, 0, 0, 0); +} + +/* { dg-final { scan-assembler-not "addx" } } */ diff --git a/tests/GCCTestSuite/h8300-stack-1.c.expected b/tests/GCCTestSuite/h8300-stack-1.c.expected new file mode 100644 index 0000000..b63bde2 --- /dev/null +++ b/tests/GCCTestSuite/h8300-stack-1.c.expected @@ -0,0 +1,14 @@ +/* Make sure that the H8 backend does not generate a non-atomic stack + adjustment. */ +/* { dg-do compile { target h8300-*-* } } */ +/* { dg-options "" } */ + +void foo (short, short, short, short, short, short); + +void +bar () +{ + foo (0, 0, 0, 0, 0, 0); +} + +/* { dg-final { scan-assembler-not "addx" } } */ diff --git a/tests/GCCTestSuite/h8300-stack-1.hex.expected b/tests/GCCTestSuite/h8300-stack-1.hex.expected new file mode 100644 index 0000000..e0ded11 --- /dev/null +++ b/tests/GCCTestSuite/h8300-stack-1.hex.expected @@ -0,0 +1,27 @@ +:100000000000E506758202C39582F506E507758353 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:100040001F00751E00751D00751C00751B00751ABC +:1000500000751900751800750C00750D00750A0003 +:10006000750B00750901E506F500C3E509F5F0E536 +:100070000095F0F509E507F500750100E501F5F0DB +:10008000E50095F0F501E50CF503E501F502E5095C +:10009000F582E502F583E503F0750902E506F50052 +:1000A000C3E509F5F0E50095F0F509E507F50075FC +:1000B0000100E501F5F0E50095F0F501E50DF5032A +:1000C000E501F502E509F582E502F583E503F07542 +:1000D0000903E506F500C3E509F5F0E50095F0F53F +:1000E00009E507F500750100E501F5F0E50095F07B +:1000F000F501E50AF503E501F502E509F582E502FA +:10010000F583E503F0750904E506F500C3E509F597 +:10011000F0E50095F0F509E507F500750100E5014A +:10012000F5F0E50095F0F501E50BF503E501F502C5 +:10013000E509F582E502F583E503F0750000E500C9 +:10014000F502E500F503E500F504E500F50575E0C9 +:10015000002506F58275E0003507F583E0F508E532 +:1001600008C0E075E0012506F58275E0003507F569 +:1001700083E0F508E508C0E075E0022506F50675A0 +:10018000E0003507F507E502F582E503F583E504B0 +:10019000F500E505F5012200000000000000000068 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/h8300-stack-1.s.expected b/tests/GCCTestSuite/h8300-stack-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/h8300-stack-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/if-empty-1.c b/tests/GCCTestSuite/if-empty-1.c new file mode 100644 index 0000000..a3156c1 --- /dev/null +++ b/tests/GCCTestSuite/if-empty-1.c @@ -0,0 +1,23 @@ +/* Test diagnostics for empty bodies in if / else. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-Wextra" } */ + +void +f (int x) +{ + if (x) + ; /* { dg-warning "warning: empty body in an if-statement" } */ + if (x) + ; /* By design we don't warn in this case. */ + else + (void)0; + if (x) + (void)0; + else + ; /* { dg-warning "warning: empty body in an else-statement" } */ + if (x) + (void)0; + else + (void)0; +} diff --git a/tests/GCCTestSuite/if-empty-1.c.expected b/tests/GCCTestSuite/if-empty-1.c.expected new file mode 100644 index 0000000..a3156c1 --- /dev/null +++ b/tests/GCCTestSuite/if-empty-1.c.expected @@ -0,0 +1,23 @@ +/* Test diagnostics for empty bodies in if / else. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-Wextra" } */ + +void +f (int x) +{ + if (x) + ; /* { dg-warning "warning: empty body in an if-statement" } */ + if (x) + ; /* By design we don't warn in this case. */ + else + (void)0; + if (x) + (void)0; + else + ; /* { dg-warning "warning: empty body in an else-statement" } */ + if (x) + (void)0; + else + (void)0; +} diff --git a/tests/GCCTestSuite/if-empty-1.hex.expected b/tests/GCCTestSuite/if-empty-1.hex.expected new file mode 100644 index 0000000..4d94692 --- /dev/null +++ b/tests/GCCTestSuite/if-empty-1.hex.expected @@ -0,0 +1,21 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F509750100E51E +:100020001FF5F0E50145F0F501E51EF5F0E50145A8 +:10003000F0F501E51DF5F0E50145F0F501E51CF5EC +:10004000F0E50145F0F501E501700280030201369B +:1000500000750100E51FF5F0E50145F0F501E51E2D +:10006000F5F0E50145F0F501E51DF5F0E50145F098 +:10007000F501E51CF5F0E50145F0F501E50170023B +:10008000800302013200750100E51FF5F0E501452E +:10009000F0F501E51EF5F0E50145F0F501E51DF58A +:1000A000F0E50145F0F501E51CF5F0E50145F0F559 +:1000B00001E5017002800302012E00750100E51FB9 +:1000C000F5F0E50145F0F501E51EF5F0E50145F037 +:1000D000F501E51DF5F0E50145F0F501E51CF5F04C +:1000E000E50145F0F501E5017002800302012A00F7 +:1000F000750100E501F502E501F503E501F504E50B +:1001000001F505E509C0E0E500C0E075E00425065D +:10011000F50675E0003507F507E502F582E503F51C +:1001200083E504F500E505F50122000200F0000278 +:1001300000BB000200860002005100000000000029 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/if-empty-1.s.expected b/tests/GCCTestSuite/if-empty-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/if-empty-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-1.c b/tests/GCCTestSuite/inline-1.c new file mode 100644 index 0000000..4dce611 --- /dev/null +++ b/tests/GCCTestSuite/inline-1.c @@ -0,0 +1,28 @@ +/* Verify that DECL_INLINE gets copied between DECLs properly. */ +/* { dg-do compile } */ +/* { dg-options "-O1" } */ +/* { dg-final { if [ istarget hppa*-*-* ] { scan-assembler-not "xyzzy?,%r" } else { scan-assembler-not "xyzzy" } } } */ + +/* Test that declaration followed by definition inlines. */ +static inline int xyzzy0 (int); +static int xyzzy0 (int x) { return x; } +int test0 (void) +{ + return xyzzy0 (5); +} + +/* Test that definition following declaration inlines. */ +static int xyzzy1 (int); +static inline int xyzzy1 (int x) { return x; } +int test1 (void) +{ + return xyzzy1 (5); +} + +/* Test that redeclaration inside a function body inlines. */ +extern inline int xyzzy2 (int x) { return x; } +int test2 (void) +{ + extern int xyzzy2 (int); + return xyzzy2 (5); +} diff --git a/tests/GCCTestSuite/inline-1.c.expected b/tests/GCCTestSuite/inline-1.c.expected new file mode 100644 index 0000000..4dce611 --- /dev/null +++ b/tests/GCCTestSuite/inline-1.c.expected @@ -0,0 +1,28 @@ +/* Verify that DECL_INLINE gets copied between DECLs properly. */ +/* { dg-do compile } */ +/* { dg-options "-O1" } */ +/* { dg-final { if [ istarget hppa*-*-* ] { scan-assembler-not "xyzzy?,%r" } else { scan-assembler-not "xyzzy" } } } */ + +/* Test that declaration followed by definition inlines. */ +static inline int xyzzy0 (int); +static int xyzzy0 (int x) { return x; } +int test0 (void) +{ + return xyzzy0 (5); +} + +/* Test that definition following declaration inlines. */ +static int xyzzy1 (int); +static inline int xyzzy1 (int x) { return x; } +int test1 (void) +{ + return xyzzy1 (5); +} + +/* Test that redeclaration inside a function body inlines. */ +extern inline int xyzzy2 (int x) { return x; } +int test2 (void) +{ + extern int xyzzy2 (int); + return xyzzy2 (5); +} diff --git a/tests/GCCTestSuite/inline-1.hex.expected b/tests/GCCTestSuite/inline-1.hex.expected new file mode 100644 index 0000000..4b8dbb2 --- /dev/null +++ b/tests/GCCTestSuite/inline-1.hex.expected @@ -0,0 +1,49 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F501E51FF50286 +:10002000E51EF503E51DF504E51CF505E501C0E059 +:10003000E500C0E075E0042506F50675E00035072B +:10004000F507E502F582E503F583E504F500E5052E +:10005000F5012200E506758202C39582F506E507E3 +:100060007583009583F507D0E0F50875E001250656 +:10007000F58275E0003507F583E508F0D0E0F50876 +:1000800075E0002506F58275E0003507F583E50883 +:10009000F0751F05751E00751D00751C001200000F +:1000A000E582F502E583F503E500F504E501F505D4 +:1000B000E502F500E503F501E504F509E505F50AB6 +:1000C000E500F502E501F503E509F504E50AF505A6 +:1000D00075E0002506F58275E0003507F583E0F54B +:1000E00008E508C0E075E0012506F58275E00035F9 +:1000F00007F583E0F508E508C0E075E0022506F5A0 +:100100000675E0003507F507E502F582E503F5839E +:10011000E504F500E505F5012200E506758204C356 +:100120009582F506E5077583009583F507D0E0F520 +:1001300000D0E0F501E51FF502E51EF503E51DF52C +:1001400004E51CF505E501C0E0E500C0E075E0044C +:100150002506F50675E0003507F507E502F582E5A9 +:1001600003F583E504F500E505F5012200E50675D4 +:100170008202C39582F506E5077583009583F5072E +:10018000D0E0F50875E0012506F58275E000350739 +:10019000F583E508F0D0E0F50875E0002506F58266 +:1001A00075E0003507F583E508F0751F05751E003D +:1001B000751D00751C00120119E582F502E583F535 +:1001C00003E500F504E501F505E502F500E503F5B5 +:1001D00001E504F509E505F50AE500F502E501F597 +:1001E00003E509F504E50AF50575E0002506F58245 +:1001F00075E0003507F583E0F508E508C0E075E037 +:10020000012506F58275E0003507F583E0F508E580 +:1002100008C0E075E0022506F50675E0003507F533 +:1002200007E502F582E503F583E504F500E505F54C +:1002300001220000E506758202C39582F506E507F6 +:100240007583009583F507D0E0F50875E001250674 +:10025000F58275E0003507F583E508F0D0E0F50894 +:1002600075E0002506F58275E0003507F583E508A1 +:10027000F0751F05751E00751D00751C00E582F5E3 +:1002800002E583F503E500F504E501F505E502F572 +:1002900000E503F501E504F509E505F50AE500F5D6 +:1002A00002E501F503E509F504E50AF50575E00049 +:1002B0002506F58275E0003507F583E0F508E508C9 +:1002C000C0E075E0012506F58275E0003507F5838D +:1002D000E0F508E508C0E075E0022506F50675E0E2 +:1002E000003507F507E502F582E503F583E504F53A +:1002F00000E505F5012200000000000000000000FC +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-1.s.expected b/tests/GCCTestSuite/inline-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-10.c b/tests/GCCTestSuite/inline-10.c new file mode 100644 index 0000000..ed6851a --- /dev/null +++ b/tests/GCCTestSuite/inline-10.c @@ -0,0 +1,6 @@ +/* Test inline main, gnu99 mode, freestanding, -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99 -ffreestanding -pedantic-errors" } */ + +inline int main (void); diff --git a/tests/GCCTestSuite/inline-10.c.expected b/tests/GCCTestSuite/inline-10.c.expected new file mode 100644 index 0000000..ed6851a --- /dev/null +++ b/tests/GCCTestSuite/inline-10.c.expected @@ -0,0 +1,6 @@ +/* Test inline main, gnu99 mode, freestanding, -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99 -ffreestanding -pedantic-errors" } */ + +inline int main (void); diff --git a/tests/GCCTestSuite/inline-10.hex.expected b/tests/GCCTestSuite/inline-10.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/inline-10.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-10.s.expected b/tests/GCCTestSuite/inline-10.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-10.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-17.c b/tests/GCCTestSuite/inline-17.c new file mode 100644 index 0000000..235ad8b --- /dev/null +++ b/tests/GCCTestSuite/inline-17.c @@ -0,0 +1,24 @@ +/* Test __attribute__((gnu_inline)). */ +/* { dg-do compile } */ +/* { dg-options "-std=c99" } */ +/* { dg-final { scan-assembler "func1" } } */ +/* { dg-final { scan-assembler-not "func2" } } */ +/* { dg-final { scan-assembler "func3" } } */ +/* { dg-final { scan-assembler "func4" } } */ + +#if __STDC_VERSION__ >= 199901L +# define inline __attribute__((gnu_inline)) inline +#endif + +extern inline int func1 (void) { return 0; } +inline int func1 (void) { return 1; } + +extern int func2 (void); +extern inline int func2 (void) { return 2; } + +inline int func3 (void); +inline int func3 (void) { return 3; } + +extern int func4 (void); +extern inline int func4 (void) { return 4; } +int func4 (void) { return 5; } diff --git a/tests/GCCTestSuite/inline-17.c.expected b/tests/GCCTestSuite/inline-17.c.expected new file mode 100644 index 0000000..235ad8b --- /dev/null +++ b/tests/GCCTestSuite/inline-17.c.expected @@ -0,0 +1,24 @@ +/* Test __attribute__((gnu_inline)). */ +/* { dg-do compile } */ +/* { dg-options "-std=c99" } */ +/* { dg-final { scan-assembler "func1" } } */ +/* { dg-final { scan-assembler-not "func2" } } */ +/* { dg-final { scan-assembler "func3" } } */ +/* { dg-final { scan-assembler "func4" } } */ + +#if __STDC_VERSION__ >= 199901L +# define inline __attribute__((gnu_inline)) inline +#endif + +extern inline int func1 (void) { return 0; } +inline int func1 (void) { return 1; } + +extern int func2 (void); +extern inline int func2 (void) { return 2; } + +inline int func3 (void); +inline int func3 (void) { return 3; } + +extern int func4 (void); +extern inline int func4 (void) { return 4; } +int func4 (void) { return 5; } diff --git a/tests/GCCTestSuite/inline-17.hex.expected b/tests/GCCTestSuite/inline-17.hex.expected new file mode 100644 index 0000000..1a10082 --- /dev/null +++ b/tests/GCCTestSuite/inline-17.hex.expected @@ -0,0 +1,13 @@ +:1000000000D0E0F500D0E0F501750901750A007532 +:100010000B00750C00E509F502E50AF503E50BF5A3 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F5012200D02E +:10004000E0F500D0E0F501750903750A00750B00B5 +:10005000750C00E509F502E50AF503E50BF504E585 +:100060000CF505E501C0E0E500C0E0E502F582E53C +:1000700003F583E504F500E505F5012200D0E0F580 +:1000800000D0E0F501750905750A00750B00750CC7 +:1000900000E509F502E50AF503E50BF504E50CF5C5 +:1000A00005E501C0E0E500C0E0E502F582E503F505 +:1000B00083E504F500E505F50122000000000000DD +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-17.s.expected b/tests/GCCTestSuite/inline-17.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-17.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-18.c b/tests/GCCTestSuite/inline-18.c new file mode 100644 index 0000000..5a37195 --- /dev/null +++ b/tests/GCCTestSuite/inline-18.c @@ -0,0 +1,28 @@ +/* Test -fgnu89-extern-inline. */ +/* { dg-do compile } */ +/* { dg-options "-std=c99 -fgnu89-inline" } */ +/* { dg-final { scan-assembler "func1" } } */ +/* { dg-final { scan-assembler-not "func2" } } */ +/* { dg-final { scan-assembler "func3" } } */ +/* { dg-final { scan-assembler "func4" } } */ + +#ifndef __GNUC_GNU_INLINE__ +#error __GNUC_GNU_INLINE__ is not defined +#endif + +#ifdef __GNUC_STDC_INLINE__ +#error __GNUC_STDC_INLINE__ is defined +#endif + +extern inline int func1 (void) { return 0; } +inline int func1 (void) { return 1; } + +extern int func2 (void); +extern inline int func2 (void) { return 2; } + +inline int func3 (void); +inline int func3 (void) { return 3; } + +extern int func4 (void); +extern inline int func4 (void) { return 4; } +int func4 (void) { return 5; } diff --git a/tests/GCCTestSuite/inline-18.c.expected b/tests/GCCTestSuite/inline-18.c.expected new file mode 100644 index 0000000..5a37195 --- /dev/null +++ b/tests/GCCTestSuite/inline-18.c.expected @@ -0,0 +1,28 @@ +/* Test -fgnu89-extern-inline. */ +/* { dg-do compile } */ +/* { dg-options "-std=c99 -fgnu89-inline" } */ +/* { dg-final { scan-assembler "func1" } } */ +/* { dg-final { scan-assembler-not "func2" } } */ +/* { dg-final { scan-assembler "func3" } } */ +/* { dg-final { scan-assembler "func4" } } */ + +#ifndef __GNUC_GNU_INLINE__ +#error __GNUC_GNU_INLINE__ is not defined +#endif + +#ifdef __GNUC_STDC_INLINE__ +#error __GNUC_STDC_INLINE__ is defined +#endif + +extern inline int func1 (void) { return 0; } +inline int func1 (void) { return 1; } + +extern int func2 (void); +extern inline int func2 (void) { return 2; } + +inline int func3 (void); +inline int func3 (void) { return 3; } + +extern int func4 (void); +extern inline int func4 (void) { return 4; } +int func4 (void) { return 5; } diff --git a/tests/GCCTestSuite/inline-18.hex.expected b/tests/GCCTestSuite/inline-18.hex.expected new file mode 100644 index 0000000..1a10082 --- /dev/null +++ b/tests/GCCTestSuite/inline-18.hex.expected @@ -0,0 +1,13 @@ +:1000000000D0E0F500D0E0F501750901750A007532 +:100010000B00750C00E509F502E50AF503E50BF5A3 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F5012200D02E +:10004000E0F500D0E0F501750903750A00750B00B5 +:10005000750C00E509F502E50AF503E50BF504E585 +:100060000CF505E501C0E0E500C0E0E502F582E53C +:1000700003F583E504F500E505F5012200D0E0F580 +:1000800000D0E0F501750905750A00750B00750CC7 +:1000900000E509F502E50AF503E50BF504E50CF5C5 +:1000A00005E501C0E0E500C0E0E502F582E503F505 +:1000B00083E504F500E505F50122000000000000DD +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-18.s.expected b/tests/GCCTestSuite/inline-18.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-18.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-19.c b/tests/GCCTestSuite/inline-19.c new file mode 100644 index 0000000..96dceb4 --- /dev/null +++ b/tests/GCCTestSuite/inline-19.c @@ -0,0 +1,28 @@ +/* Test -fgnu89-extern-inline. */ +/* { dg-do compile } */ +/* { dg-options "-fgnu89-inline" } */ +/* { dg-final { scan-assembler "func1" } } */ +/* { dg-final { scan-assembler-not "func2" } } */ +/* { dg-final { scan-assembler "func3" } } */ +/* { dg-final { scan-assembler "func4" } } */ + +#ifndef __GNUC_GNU_INLINE__ +#error __GNUC_GNU_INLINE__ is not defined +#endif + +#ifdef __GNUC_STDC_INLINE__ +#error __GNUC_STDC_INLINE__ is defined +#endif + +extern inline int func1 (void) { return 0; } +inline int func1 (void) { return 1; } + +extern int func2 (void); +extern inline int func2 (void) { return 2; } + +inline int func3 (void); +inline int func3 (void) { return 3; } + +extern int func4 (void); +extern inline int func4 (void) { return 4; } +int func4 (void) { return 5; } diff --git a/tests/GCCTestSuite/inline-19.c.expected b/tests/GCCTestSuite/inline-19.c.expected new file mode 100644 index 0000000..96dceb4 --- /dev/null +++ b/tests/GCCTestSuite/inline-19.c.expected @@ -0,0 +1,28 @@ +/* Test -fgnu89-extern-inline. */ +/* { dg-do compile } */ +/* { dg-options "-fgnu89-inline" } */ +/* { dg-final { scan-assembler "func1" } } */ +/* { dg-final { scan-assembler-not "func2" } } */ +/* { dg-final { scan-assembler "func3" } } */ +/* { dg-final { scan-assembler "func4" } } */ + +#ifndef __GNUC_GNU_INLINE__ +#error __GNUC_GNU_INLINE__ is not defined +#endif + +#ifdef __GNUC_STDC_INLINE__ +#error __GNUC_STDC_INLINE__ is defined +#endif + +extern inline int func1 (void) { return 0; } +inline int func1 (void) { return 1; } + +extern int func2 (void); +extern inline int func2 (void) { return 2; } + +inline int func3 (void); +inline int func3 (void) { return 3; } + +extern int func4 (void); +extern inline int func4 (void) { return 4; } +int func4 (void) { return 5; } diff --git a/tests/GCCTestSuite/inline-19.hex.expected b/tests/GCCTestSuite/inline-19.hex.expected new file mode 100644 index 0000000..1a10082 --- /dev/null +++ b/tests/GCCTestSuite/inline-19.hex.expected @@ -0,0 +1,13 @@ +:1000000000D0E0F500D0E0F501750901750A007532 +:100010000B00750C00E509F502E50AF503E50BF5A3 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F5012200D02E +:10004000E0F500D0E0F501750903750A00750B00B5 +:10005000750C00E509F502E50AF503E50BF504E585 +:100060000CF505E501C0E0E500C0E0E502F582E53C +:1000700003F583E504F500E505F5012200D0E0F580 +:1000800000D0E0F501750905750A00750B00750CC7 +:1000900000E509F502E50AF503E50BF504E50CF5C5 +:1000A00005E501C0E0E500C0E0E502F582E503F505 +:1000B00083E504F500E505F50122000000000000DD +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-19.s.expected b/tests/GCCTestSuite/inline-19.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-19.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-2.c b/tests/GCCTestSuite/inline-2.c new file mode 100644 index 0000000..ef7c711 --- /dev/null +++ b/tests/GCCTestSuite/inline-2.c @@ -0,0 +1,19 @@ +/* Ensure that we continue to consider FOO local, even though + it has been deferred. */ +/* { dg-do compile { target fpic } } */ +/* { dg-options "-O3 -finline-limit=0 -fpic" } */ + +static int foo(void) +{ + return 3; +} + +int bar(void) +{ + /* Call twice to avoid bypassing the limit for functions called once. */ + return foo() + foo() + 1; +} + +/* { dg-final { scan-assembler-not "jsr" { target alpha*-*-* } } } */ +/* { dg-final { scan-assembler-not "PLT" { target i?86-*-* x86_64-*-* } } } */ +/* { dg-final { scan-assembler-not "plt" { target powerpc*-*-* } } } */ diff --git a/tests/GCCTestSuite/inline-2.c.expected b/tests/GCCTestSuite/inline-2.c.expected new file mode 100644 index 0000000..ef7c711 --- /dev/null +++ b/tests/GCCTestSuite/inline-2.c.expected @@ -0,0 +1,19 @@ +/* Ensure that we continue to consider FOO local, even though + it has been deferred. */ +/* { dg-do compile { target fpic } } */ +/* { dg-options "-O3 -finline-limit=0 -fpic" } */ + +static int foo(void) +{ + return 3; +} + +int bar(void) +{ + /* Call twice to avoid bypassing the limit for functions called once. */ + return foo() + foo() + 1; +} + +/* { dg-final { scan-assembler-not "jsr" { target alpha*-*-* } } } */ +/* { dg-final { scan-assembler-not "PLT" { target i?86-*-* x86_64-*-* } } } */ +/* { dg-final { scan-assembler-not "plt" { target powerpc*-*-* } } } */ diff --git a/tests/GCCTestSuite/inline-2.hex.expected b/tests/GCCTestSuite/inline-2.hex.expected new file mode 100644 index 0000000..5605dfd --- /dev/null +++ b/tests/GCCTestSuite/inline-2.hex.expected @@ -0,0 +1,34 @@ +:1000000000D0E0F500D0E0F501750903750A007530 +:100010000B00750C00E509F502E50AF503E50BF5A3 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F5012200E519 +:1000400006758206C39582F506E5077583009583DC +:10005000F507D0E0F50875E0012506F58275E000AA +:100060003507F583E508F0D0E0F50875E0002506D2 +:10007000F58275E0003507F583E508F075E00525A4 +:1000800006F58275E0003507F583E513F075E004A9 +:100090002506F58275E0003507F583E512F075E079 +:1000A000032506F58275E0003507F583E511F07547 +:1000B000E0022506F58275E0003507F583E510F0CE +:1000C000120000E582F502E583F503E500F504E59D +:1000D00001F505E502F510E503F511E504F512E576 +:1000E00005F513120000E582F502E583F503E5004E +:1000F000F504E501F505E502F50BE503F501E50479 +:10010000F509E505F50AC3750000E50BF5F0E51006 +:1001100035F0F500E501F5F0E51135F0F501E509FB +:10012000F5F0E51235F0F509E50AF5F0E51335F0DF +:10013000F50F750B01750C00750D00750E00C3757C +:100140000A00E50BF5F0E50035F0F500E50CF5F0FB +:10015000E50135F0F501E50DF5F0E50935F0F509B6 +:10016000E50EF5F0E50F35F0F50AE500F502E501DD +:10017000F503E509F504E50AF50575E0052506F53D +:100180008275E0003507F583E0F51375E004250678 +:10019000F58275E0003507F583E0F51275E003257B +:1001A00006F58275E0003507F583E0F51175E0028C +:1001B0002506F58275E0003507F583E0F51075E05A +:1001C000002506F58275E0003507F583E0F508E5C2 +:1001D00008C0E075E0012506F58275E0003507F5F9 +:1001E00083E0F508E508C0E075E0062506F506752C +:1001F000E0003507F507E502F582E503F583E50440 +:10020000F500E505F50122000000000000000000F7 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-2.s.expected b/tests/GCCTestSuite/inline-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-21.c b/tests/GCCTestSuite/inline-21.c new file mode 100644 index 0000000..8961ce4 --- /dev/null +++ b/tests/GCCTestSuite/inline-21.c @@ -0,0 +1,4 @@ +/* Test -fno-gnu89-inline. */ +/* { dg-do compile } */ +/* { dg-options "-fno-gnu89-inline" } */ +/* { dg-error "is not supported" "" { target *-*-* } 0 } */ diff --git a/tests/GCCTestSuite/inline-21.c.expected b/tests/GCCTestSuite/inline-21.c.expected new file mode 100644 index 0000000..8961ce4 --- /dev/null +++ b/tests/GCCTestSuite/inline-21.c.expected @@ -0,0 +1,4 @@ +/* Test -fno-gnu89-inline. */ +/* { dg-do compile } */ +/* { dg-options "-fno-gnu89-inline" } */ +/* { dg-error "is not supported" "" { target *-*-* } 0 } */ diff --git a/tests/GCCTestSuite/inline-21.hex.expected b/tests/GCCTestSuite/inline-21.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/inline-21.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-21.s.expected b/tests/GCCTestSuite/inline-21.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-21.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-4.c b/tests/GCCTestSuite/inline-4.c new file mode 100644 index 0000000..2442f2d --- /dev/null +++ b/tests/GCCTestSuite/inline-4.c @@ -0,0 +1,18 @@ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ +/* { dg-final { scan-assembler-not "big_static_inline" } } */ + +extern void f(void); +static inline void big_static_inline(void) +{ + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); +} diff --git a/tests/GCCTestSuite/inline-4.c.expected b/tests/GCCTestSuite/inline-4.c.expected new file mode 100644 index 0000000..2442f2d --- /dev/null +++ b/tests/GCCTestSuite/inline-4.c.expected @@ -0,0 +1,18 @@ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ +/* { dg-final { scan-assembler-not "big_static_inline" } } */ + +extern void f(void); +static inline void big_static_inline(void) +{ + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); + f(); f(); f(); f(); f(); f(); f(); f(); f(); f(); +} diff --git a/tests/GCCTestSuite/inline-4.hex.expected b/tests/GCCTestSuite/inline-4.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/inline-4.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-4.s.expected b/tests/GCCTestSuite/inline-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-5.c b/tests/GCCTestSuite/inline-5.c new file mode 100644 index 0000000..d72fad6 --- /dev/null +++ b/tests/GCCTestSuite/inline-5.c @@ -0,0 +1,13 @@ +/* PR middle-end/13448 */ + +/* { dg-options "-O3" } */ + +void funct (const int n) +{ + n++; /* { dg-error "" } */ +} + +int main () { + funct (1); + return 0; +} diff --git a/tests/GCCTestSuite/inline-5.c.expected b/tests/GCCTestSuite/inline-5.c.expected new file mode 100644 index 0000000..d72fad6 --- /dev/null +++ b/tests/GCCTestSuite/inline-5.c.expected @@ -0,0 +1,13 @@ +/* PR middle-end/13448 */ + +/* { dg-options "-O3" } */ + +void funct (const int n) +{ + n++; /* { dg-error "" } */ +} + +int main () { + funct (1); + return 0; +} diff --git a/tests/GCCTestSuite/inline-5.hex.expected b/tests/GCCTestSuite/inline-5.hex.expected new file mode 100644 index 0000000..c966bda --- /dev/null +++ b/tests/GCCTestSuite/inline-5.hex.expected @@ -0,0 +1,19 @@ +:1000000075812F7506FF7507FF12006602000C0050 +:10001000E506758204C39582F506E50775830095AC +:1000200083F507D0E0F500D0E0F501C3750900E5E0 +:1000300009F502E509F503E509F504E509F505E526 +:1000400001C0E0E500C0E075E0042506F50675E0B6 +:10005000003507F507E502F582E503F583E504F5CC +:1000600000E505F5012200E506758202C39582F5DB +:1000700006E5077583009583F507D0E0F50875E080 +:10008000012506F58275E0003507F583E508F0D017 +:10009000E0F50875E0002506F58275E0003507F506 +:1000A00083E508F0751F01751E00751D00751C00A5 +:1000B00012000F750000750100750900750A00E552 +:1000C00000F502E501F503E509F504E50AF5057516 +:1000D000E0002506F58275E0003507F583E0F508B8 +:1000E000E508C0E075E0012506F58275E0003507FA +:1000F000F583E0F508E508C0E075E0022506F506A1 +:1001000075E0003507F507E502F582E503F583E5BF +:1001100004F500E505F501220000000000000000E4 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-5.s.expected b/tests/GCCTestSuite/inline-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-6.c b/tests/GCCTestSuite/inline-6.c new file mode 100644 index 0000000..81d6dc2 --- /dev/null +++ b/tests/GCCTestSuite/inline-6.c @@ -0,0 +1,6 @@ +/* Test duplicate inline, gnu89 mode. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu89" } */ + +inline inline void f (void) {} diff --git a/tests/GCCTestSuite/inline-6.c.expected b/tests/GCCTestSuite/inline-6.c.expected new file mode 100644 index 0000000..81d6dc2 --- /dev/null +++ b/tests/GCCTestSuite/inline-6.c.expected @@ -0,0 +1,6 @@ +/* Test duplicate inline, gnu89 mode. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu89" } */ + +inline inline void f (void) {} diff --git a/tests/GCCTestSuite/inline-6.hex.expected b/tests/GCCTestSuite/inline-6.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/inline-6.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-6.s.expected b/tests/GCCTestSuite/inline-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-7.c b/tests/GCCTestSuite/inline-7.c new file mode 100644 index 0000000..508aaa4 --- /dev/null +++ b/tests/GCCTestSuite/inline-7.c @@ -0,0 +1,6 @@ +/* Test duplicate inline, gnu99 mode. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99 -fgnu89-inline" } */ + +inline inline void f (void) {} diff --git a/tests/GCCTestSuite/inline-7.c.expected b/tests/GCCTestSuite/inline-7.c.expected new file mode 100644 index 0000000..508aaa4 --- /dev/null +++ b/tests/GCCTestSuite/inline-7.c.expected @@ -0,0 +1,6 @@ +/* Test duplicate inline, gnu99 mode. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99 -fgnu89-inline" } */ + +inline inline void f (void) {} diff --git a/tests/GCCTestSuite/inline-7.hex.expected b/tests/GCCTestSuite/inline-7.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/inline-7.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-7.s.expected b/tests/GCCTestSuite/inline-7.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-7.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-8.c b/tests/GCCTestSuite/inline-8.c new file mode 100644 index 0000000..80d9fff --- /dev/null +++ b/tests/GCCTestSuite/inline-8.c @@ -0,0 +1,6 @@ +/* Test inline main, gnu99 mode, hosted. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99 -fhosted" } */ + +inline int main (void); /* { dg-warning "warning: cannot inline function 'main'" } */ diff --git a/tests/GCCTestSuite/inline-8.c.expected b/tests/GCCTestSuite/inline-8.c.expected new file mode 100644 index 0000000..80d9fff --- /dev/null +++ b/tests/GCCTestSuite/inline-8.c.expected @@ -0,0 +1,6 @@ +/* Test inline main, gnu99 mode, hosted. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99 -fhosted" } */ + +inline int main (void); /* { dg-warning "warning: cannot inline function 'main'" } */ diff --git a/tests/GCCTestSuite/inline-8.hex.expected b/tests/GCCTestSuite/inline-8.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/inline-8.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-8.s.expected b/tests/GCCTestSuite/inline-8.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-8.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-9.c b/tests/GCCTestSuite/inline-9.c new file mode 100644 index 0000000..0f22b08 --- /dev/null +++ b/tests/GCCTestSuite/inline-9.c @@ -0,0 +1,6 @@ +/* Test inline main, gnu99 mode, hosted, -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99 -fhosted -pedantic-errors" } */ + +inline int main (void); /* { dg-error "error: cannot inline function 'main'" } */ diff --git a/tests/GCCTestSuite/inline-9.c.expected b/tests/GCCTestSuite/inline-9.c.expected new file mode 100644 index 0000000..0f22b08 --- /dev/null +++ b/tests/GCCTestSuite/inline-9.c.expected @@ -0,0 +1,6 @@ +/* Test inline main, gnu99 mode, hosted, -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99 -fhosted -pedantic-errors" } */ + +inline int main (void); /* { dg-error "error: cannot inline function 'main'" } */ diff --git a/tests/GCCTestSuite/inline-9.hex.expected b/tests/GCCTestSuite/inline-9.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/inline-9.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-9.s.expected b/tests/GCCTestSuite/inline-9.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline-9.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline-mcpy.c b/tests/GCCTestSuite/inline-mcpy.c new file mode 100644 index 0000000..4917394 --- /dev/null +++ b/tests/GCCTestSuite/inline-mcpy.c @@ -0,0 +1,11 @@ +/* Test if we inline memcpy even with -Os, when the user requested it. */ +/* Don't name this test with memcpy in its name, otherwise the scan-assembler + would be confused. */ +/* { dg-do compile { target i?86-*-linux* x86_64-*-linux* } } */ +/* { dg-options "-Os -minline-all-stringops" } */ +/* { dg-final { scan-assembler-not "memcpy" } } */ +char f(int i) +{ + char *ram_split[] = { "5:3", "3:1", "1:1", "3:5" }; + return ram_split[i][0]; +} diff --git a/tests/GCCTestSuite/inline-mcpy.c.expected b/tests/GCCTestSuite/inline-mcpy.c.expected new file mode 100644 index 0000000..4917394 --- /dev/null +++ b/tests/GCCTestSuite/inline-mcpy.c.expected @@ -0,0 +1,11 @@ +/* Test if we inline memcpy even with -Os, when the user requested it. */ +/* Don't name this test with memcpy in its name, otherwise the scan-assembler + would be confused. */ +/* { dg-do compile { target i?86-*-linux* x86_64-*-linux* } } */ +/* { dg-options "-Os -minline-all-stringops" } */ +/* { dg-final { scan-assembler-not "memcpy" } } */ +char f(int i) +{ + char *ram_split[] = { "5:3", "3:1", "1:1", "3:5" }; + return ram_split[i][0]; +} diff --git a/tests/GCCTestSuite/inline1.c b/tests/GCCTestSuite/inline1.c new file mode 100644 index 0000000..f7a7eb4 --- /dev/null +++ b/tests/GCCTestSuite/inline1.c @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall -std=gnu89" } */ +/* This test is expected to fail with an error for the redefinition of foo. + This violates the constraint of 6.9#3 (no more than one external definition + of an identifier with internal linkage in the same translation unit). */ +static inline int foo(void) { return 1; } /* { dg-error "previous definition of" } */ +static inline int foo(void) { return 0; } /* { dg-error "redefinition of" } */ + diff --git a/tests/GCCTestSuite/inline1.c.expected b/tests/GCCTestSuite/inline1.c.expected new file mode 100644 index 0000000..f7a7eb4 --- /dev/null +++ b/tests/GCCTestSuite/inline1.c.expected @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall -std=gnu89" } */ +/* This test is expected to fail with an error for the redefinition of foo. + This violates the constraint of 6.9#3 (no more than one external definition + of an identifier with internal linkage in the same translation unit). */ +static inline int foo(void) { return 1; } /* { dg-error "previous definition of" } */ +static inline int foo(void) { return 0; } /* { dg-error "redefinition of" } */ + diff --git a/tests/GCCTestSuite/inline1.hex.expected b/tests/GCCTestSuite/inline1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/inline1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline1.s.expected b/tests/GCCTestSuite/inline1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline2.c b/tests/GCCTestSuite/inline2.c new file mode 100644 index 0000000..ede4104 --- /dev/null +++ b/tests/GCCTestSuite/inline2.c @@ -0,0 +1,5 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall -std=gnu89" } */ +/* This test should compile successfully. */ +extern inline int foo (void) { return 0; } +inline int foo (void) { return 1; } diff --git a/tests/GCCTestSuite/inline2.c.expected b/tests/GCCTestSuite/inline2.c.expected new file mode 100644 index 0000000..ede4104 --- /dev/null +++ b/tests/GCCTestSuite/inline2.c.expected @@ -0,0 +1,5 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall -std=gnu89" } */ +/* This test should compile successfully. */ +extern inline int foo (void) { return 0; } +inline int foo (void) { return 1; } diff --git a/tests/GCCTestSuite/inline2.hex.expected b/tests/GCCTestSuite/inline2.hex.expected new file mode 100644 index 0000000..161325c --- /dev/null +++ b/tests/GCCTestSuite/inline2.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750901750A007532 +:100010000B00750C00E509F502E50AF503E50BF5A3 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F501220000FE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline2.s.expected b/tests/GCCTestSuite/inline2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline4.c b/tests/GCCTestSuite/inline4.c new file mode 100644 index 0000000..a5c7dda --- /dev/null +++ b/tests/GCCTestSuite/inline4.c @@ -0,0 +1,6 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall -std=gnu89" } */ +/* This testcase should fail since we're redefining foo in the same + translation unit. */ +int foo (void) { return 2; } /* { dg-error "previous definition of" } */ +extern inline int foo (void) { return 1; } /* { dg-error "redefinition of" } */ diff --git a/tests/GCCTestSuite/inline4.c.expected b/tests/GCCTestSuite/inline4.c.expected new file mode 100644 index 0000000..a5c7dda --- /dev/null +++ b/tests/GCCTestSuite/inline4.c.expected @@ -0,0 +1,6 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall -std=gnu89" } */ +/* This testcase should fail since we're redefining foo in the same + translation unit. */ +int foo (void) { return 2; } /* { dg-error "previous definition of" } */ +extern inline int foo (void) { return 1; } /* { dg-error "redefinition of" } */ diff --git a/tests/GCCTestSuite/inline4.hex.expected b/tests/GCCTestSuite/inline4.hex.expected new file mode 100644 index 0000000..6ae035a --- /dev/null +++ b/tests/GCCTestSuite/inline4.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750902750A007531 +:100010000B00750C00E509F502E50AF503E50BF5A3 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F501220000FE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline4.s.expected b/tests/GCCTestSuite/inline4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/inline5.c b/tests/GCCTestSuite/inline5.c new file mode 100644 index 0000000..86a2776 --- /dev/null +++ b/tests/GCCTestSuite/inline5.c @@ -0,0 +1,6 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall -std=gnu89" } */ +/* This testcase should fail since we're redefining foo in the same + translation unit. */ +extern inline int foo (void) { return 2; } /* { dg-error "previous definition of" } */ +extern inline int foo (void) { return 1; } /* { dg-error "redefinition of" } */ diff --git a/tests/GCCTestSuite/inline5.c.expected b/tests/GCCTestSuite/inline5.c.expected new file mode 100644 index 0000000..86a2776 --- /dev/null +++ b/tests/GCCTestSuite/inline5.c.expected @@ -0,0 +1,6 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall -std=gnu89" } */ +/* This testcase should fail since we're redefining foo in the same + translation unit. */ +extern inline int foo (void) { return 2; } /* { dg-error "previous definition of" } */ +extern inline int foo (void) { return 1; } /* { dg-error "redefinition of" } */ diff --git a/tests/GCCTestSuite/inline5.hex.expected b/tests/GCCTestSuite/inline5.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/inline5.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/inline5.s.expected b/tests/GCCTestSuite/inline5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/inline5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/intermod-1.c b/tests/GCCTestSuite/intermod-1.c new file mode 100644 index 0000000..9f8d19d --- /dev/null +++ b/tests/GCCTestSuite/intermod-1.c @@ -0,0 +1,23 @@ +/* { dg-do compile } */ +/* { dg-final { scan-assembler-not {foo[1-9]\.[0-9]} } } */ + +/* Check that we don't get .0 suffixes on static variables when not using + intermodule analysis. */ + +static int foo1; +static int foo2 = 1; + +static void foo5(void) { } +static void foo6(void); +static void foo6(void) { } +static void foo7(void); +void foo7(void) { } + +void foo9(void) +{ + foo1 = 2; + foo2 = 3; + foo5(); + foo6(); + foo7(); +} diff --git a/tests/GCCTestSuite/intermod-1.c.expected b/tests/GCCTestSuite/intermod-1.c.expected new file mode 100644 index 0000000..9f8d19d --- /dev/null +++ b/tests/GCCTestSuite/intermod-1.c.expected @@ -0,0 +1,23 @@ +/* { dg-do compile } */ +/* { dg-final { scan-assembler-not {foo[1-9]\.[0-9]} } } */ + +/* Check that we don't get .0 suffixes on static variables when not using + intermodule analysis. */ + +static int foo1; +static int foo2 = 1; + +static void foo5(void) { } +static void foo6(void); +static void foo6(void) { } +static void foo7(void); +void foo7(void) { } + +void foo9(void) +{ + foo1 = 2; + foo2 = 3; + foo5(); + foo6(); + foo7(); +} diff --git a/tests/GCCTestSuite/intermod-1.hex.expected b/tests/GCCTestSuite/intermod-1.hex.expected new file mode 100644 index 0000000..0530367 --- /dev/null +++ b/tests/GCCTestSuite/intermod-1.hex.expected @@ -0,0 +1,48 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F5012200D0E0F500D0E0F5017509F5 +:1000400000E509F502E509F503E509F504E509F51B +:1000500005E501C0E0E500C0E0E502F582E503F555 +:1000600083E504F500E505F5012200D0E0F500D0B8 +:10007000E0F501750900E509F502E509F503E50973 +:10008000F504E509F505E501C0E0E500C0E0E5029D +:10009000F582E503F583E504F500E505F5012200A9 +:1000A000E506758202C39582F506E507758300951E +:1000B00083F507D0E0F50875E0012506F58275E0C7 +:1000C000003507F583E508F0D0E0F50875E0002578 +:1000D00006F58275E0003507F583E508F09000002D +:1000E000E582F50D900000E583F50E750902750AAD +:1000F00000750B00750C00750100C3750000E5016B +:10010000F5F0E50D35F0F501E500F5F0E50E35F01B +:10011000F500E509F503E500F502E501F582E502E4 +:10012000F583E503F0750101C3750000E501F5F005 +:10013000E50D35F0F501E500F5F0E50E35F0F500DB +:10014000E50AF503E500F502E501F582E502F58330 +:10015000E503F0750102C3750000E501F5F0E50D5A +:1001600035F0F501E500F5F0E50E35F0F500E50BAD +:10017000F503E500F502E501F582E502F583E50307 +:10018000F0750103C3750000E501F5F0E50D35F0EC +:10019000F501E500F5F0E50E35F0F500E50CF503A9 +:1001A000E500F502E501F582E502F583E503F0904F +:1001B0000004E582F50D900004E583F50E75090352 +:1001C000750A00750B00750C00750100C375000001 +:1001D000E501F5F0E50D35F0F501E500F5F0E50E8A +:1001E00035F0F500E509F503E500F502E501F582D6 +:1001F000E502F583E503F0750101C3750000E50133 +:10020000F5F0E50D35F0F501E500F5F0E50E35F01A +:10021000F500E50AF503E500F502E501F582E502E2 +:10022000F583E503F0750102C3750000E501F5F003 +:10023000E50D35F0F501E500F5F0E50E35F0F500DA +:10024000E50BF503E500F502E501F582E502F5832E +:10025000E503F0750103C3750000E501F5F0E50D58 +:1002600035F0F501E500F5F0E50E35F0F500E50CAB +:10027000F503E500F502E501F582E502F583E50306 +:10028000F012000012003512006A750000E500F55A +:1002900002E500F503E500F504E500F50575E0006D +:1002A0002506F58275E0003507F583E0F508E508D9 +:1002B000C0E075E0012506F58275E0003507F5839D +:1002C000E0F508E508C0E075E0022506F50675E0F2 +:1002D000003507F507E502F582E503F583E504F54A +:1002E00000E505F50122000000000000000000000C +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/intermod-1.s.expected b/tests/GCCTestSuite/intermod-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/intermod-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/intmax_t-1.c b/tests/GCCTestSuite/intmax_t-1.c new file mode 100644 index 0000000..bcfb51c --- /dev/null +++ b/tests/GCCTestSuite/intmax_t-1.c @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ +/* { dg-error "" "" { target *-*-solaris2.5.1 mips*-*-elf* *arm*-*-*elf* xscale*-*-elf* xtensa-*-elf* } 0 } */ + +/* Compile with -Wall to get a warning if built-in and system intmax_t don't + match. */ + +#include + +__INTMAX_TYPE__ __im_t__; +__UINTMAX_TYPE__ __uim_t__; +intmax_t *im_t_p; +uintmax_t *uim_t_p; + +void +imt (void) +{ + im_t_p = &__im_t__; +} + +void +uimt (void) +{ + uim_t_p = &__uim_t__; +} diff --git a/tests/GCCTestSuite/intmax_t-1.c.expected b/tests/GCCTestSuite/intmax_t-1.c.expected new file mode 100644 index 0000000..bcfb51c --- /dev/null +++ b/tests/GCCTestSuite/intmax_t-1.c.expected @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ +/* { dg-error "" "" { target *-*-solaris2.5.1 mips*-*-elf* *arm*-*-*elf* xscale*-*-elf* xtensa-*-elf* } 0 } */ + +/* Compile with -Wall to get a warning if built-in and system intmax_t don't + match. */ + +#include + +__INTMAX_TYPE__ __im_t__; +__UINTMAX_TYPE__ __uim_t__; +intmax_t *im_t_p; +uintmax_t *uim_t_p; + +void +imt (void) +{ + im_t_p = &__im_t__; +} + +void +uimt (void) +{ + uim_t_p = &__uim_t__; +} diff --git a/tests/GCCTestSuite/intmax_t-1.hex.expected b/tests/GCCTestSuite/intmax_t-1.hex.expected new file mode 100644 index 0000000..eb4af91 --- /dev/null +++ b/tests/GCCTestSuite/intmax_t-1.hex.expected @@ -0,0 +1,24 @@ +:1000000000D0E0F50ED0E0F50FE510F50D900008FA +:10001000E582F50B900008E583F50C900000E58281 +:10002000F509900000E583F50A750100C37500002D +:10003000E501F5F0E50B35F0F501E500F5F0E50C2F +:1000400035F0F500E509F503E500F502E501F58277 +:10005000E502F583E503F0750101C3750000E501D4 +:10006000F5F0E50B35F0F501E500F5F0E50C35F0C0 +:10007000F500E50AF503E500F502E501F582E50284 +:10008000F583E503F0750000E500F502E500F503F2 +:10009000E500F504E500F505E50DF510E50FC0E018 +:1000A000E50EC0E0E502F582E503F583E504F50021 +:1000B000E505F5012200D0E0F50ED0E0F50FE510E2 +:1000C000F50D90000AE582F50B90000AE583F50C2A +:1000D000900004E582F509900004E583F50A7501B6 +:1000E00000C3750000E501F5F0E50B35F0F501E51D +:1000F00000F5F0E50C35F0F500E509F503E500F550 +:1001000002E501F582E502F583E503F0750101C31F +:10011000750000E501F5F0E50B35F0F501E500F5BA +:10012000F0E50C35F0F500E50AF503E500F502E52C +:1001300001F582E502F583E503F0750000E500F5C1 +:1001400002E500F503E500F504E500F505E50DF52C +:1001500010E50FC0E0E50EC0E0E502F582E503F52D +:1001600083E504F500E505F501220000000000002C +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/intmax_t-1.s.expected b/tests/GCCTestSuite/intmax_t-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/intmax_t-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/kpice1.c b/tests/GCCTestSuite/kpice1.c new file mode 100644 index 0000000..be9179b --- /dev/null +++ b/tests/GCCTestSuite/kpice1.c @@ -0,0 +1,6 @@ +/* { dg-do compile { target h8300-*-* } } */ +/* { dg-options "-ms -mn" } */ + +void f(void) __attribute__((interrupt_handler)); +void g(void) { } +void f(void) { g(); } diff --git a/tests/GCCTestSuite/kpice1.c.expected b/tests/GCCTestSuite/kpice1.c.expected new file mode 100644 index 0000000..be9179b --- /dev/null +++ b/tests/GCCTestSuite/kpice1.c.expected @@ -0,0 +1,6 @@ +/* { dg-do compile { target h8300-*-* } } */ +/* { dg-options "-ms -mn" } */ + +void f(void) __attribute__((interrupt_handler)); +void g(void) { } +void f(void) { g(); } diff --git a/tests/GCCTestSuite/kpice1.hex.expected b/tests/GCCTestSuite/kpice1.hex.expected new file mode 100644 index 0000000..d45d227 --- /dev/null +++ b/tests/GCCTestSuite/kpice1.hex.expected @@ -0,0 +1,15 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F5012200E506758202C39582F50605 +:10004000E5077583009583F507D0E0F50875E001B5 +:100050002506F58275E0003507F583E508F0D0E068 +:10006000F50875E0002506F58275E0003507F58393 +:10007000E508F0120000750000E500F502E500F566 +:1000800003E500F504E500F50575E0002506F582B9 +:1000900075E0003507F583E0F508E508C0E075E098 +:1000A000012506F58275E0003507F583E0F508E5E2 +:1000B00008C0E075E0022506F50675E0003507F595 +:1000C00007E502F582E503F583E504F500E505F5AE +:1000D00001220000000000000000000000000000FD +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/kpice1.s.expected b/tests/GCCTestSuite/kpice1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/kpice1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/label-compound-stmt-1.c b/tests/GCCTestSuite/label-compound-stmt-1.c new file mode 100644 index 0000000..7141163 --- /dev/null +++ b/tests/GCCTestSuite/label-compound-stmt-1.c @@ -0,0 +1,7 @@ +/* Test that labels at ends of compound statements are hard errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +void f(void) { g: } /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "label|parse|syntax" "label at end of compound statement" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/label-compound-stmt-1.c.expected b/tests/GCCTestSuite/label-compound-stmt-1.c.expected new file mode 100644 index 0000000..7141163 --- /dev/null +++ b/tests/GCCTestSuite/label-compound-stmt-1.c.expected @@ -0,0 +1,7 @@ +/* Test that labels at ends of compound statements are hard errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +void f(void) { g: } /* { dg-bogus "warning" "warning in place of error" } */ +/* { dg-error "label|parse|syntax" "label at end of compound statement" { target *-*-* } 6 } */ diff --git a/tests/GCCTestSuite/label-compound-stmt-1.hex.expected b/tests/GCCTestSuite/label-compound-stmt-1.hex.expected new file mode 100644 index 0000000..0f71613 --- /dev/null +++ b/tests/GCCTestSuite/label-compound-stmt-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F50100750900E509F544 +:1000100002E509F503E509F504E509F505E501C083 +:10002000E0E500C0E0E502F582E503F583E504F5CF +:1000300000E505F5012200000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/label-compound-stmt-1.s.expected b/tests/GCCTestSuite/label-compound-stmt-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/label-compound-stmt-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/local1.c b/tests/GCCTestSuite/local1.c new file mode 100644 index 0000000..e9f653b --- /dev/null +++ b/tests/GCCTestSuite/local1.c @@ -0,0 +1,23 @@ +/* This is allowed, with the effect that the 'extern' declaration at block + scope refers to the same object as the 'static' declaration at file scope. + + C90 6.1.2.2 [as corrected by TC1], C99 6.2.2: + + For an identifier declared with the storage-class specifier + extern in a scope in which a prior declaration of that + identifier is visible, if the prior declaration specifies + internal or external linkage, the linkage of the identifier at + the later daclaration is the same as the linkage specified at + the prior declaration. If no prior declaration is visible, + or if the prior declaration specifies no linkage, then the + identifer has external linkage. + + This is PR 14366. */ + +static int i; + +extern int i; + +static void f() { + extern int i; +} diff --git a/tests/GCCTestSuite/local1.c.expected b/tests/GCCTestSuite/local1.c.expected new file mode 100644 index 0000000..e9f653b --- /dev/null +++ b/tests/GCCTestSuite/local1.c.expected @@ -0,0 +1,23 @@ +/* This is allowed, with the effect that the 'extern' declaration at block + scope refers to the same object as the 'static' declaration at file scope. + + C90 6.1.2.2 [as corrected by TC1], C99 6.2.2: + + For an identifier declared with the storage-class specifier + extern in a scope in which a prior declaration of that + identifier is visible, if the prior declaration specifies + internal or external linkage, the linkage of the identifier at + the later daclaration is the same as the linkage specified at + the prior declaration. If no prior declaration is visible, + or if the prior declaration specifies no linkage, then the + identifer has external linkage. + + This is PR 14366. */ + +static int i; + +extern int i; + +static void f() { + extern int i; +} diff --git a/tests/GCCTestSuite/local1.hex.expected b/tests/GCCTestSuite/local1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/local1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/local1.s.expected b/tests/GCCTestSuite/local1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/local1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/loop-5.c b/tests/GCCTestSuite/loop-5.c new file mode 100644 index 0000000..198823b --- /dev/null +++ b/tests/GCCTestSuite/loop-5.c @@ -0,0 +1,16 @@ +/* PR c/16180 */ +/* { dg-options "-O2" } */ + +extern int b; +int foo (int a) +{ + if (a) + { + b = 0; + for(;;) + goto L; + } + L: + for(;;) + return 0; +} diff --git a/tests/GCCTestSuite/loop-5.c.expected b/tests/GCCTestSuite/loop-5.c.expected new file mode 100644 index 0000000..198823b --- /dev/null +++ b/tests/GCCTestSuite/loop-5.c.expected @@ -0,0 +1,16 @@ +/* PR c/16180 */ +/* { dg-options "-O2" } */ + +extern int b; +int foo (int a) +{ + if (a) + { + b = 0; + for(;;) + goto L; + } + L: + for(;;) + return 0; +} diff --git a/tests/GCCTestSuite/loop-5.hex.expected b/tests/GCCTestSuite/loop-5.hex.expected new file mode 100644 index 0000000..c66987b --- /dev/null +++ b/tests/GCCTestSuite/loop-5.hex.expected @@ -0,0 +1,57 @@ +:1000000000E506758205C39582F506E50775830050 +:100010009583F507D0E0F51BD0E0F50875E00025E5 +:1000200006F58275E0003507F583E508F0E512F581 +:1000300018E511F519E510F51AE51FF500E51EF5AF +:1000400001E51DF50DE51CF50E750F00E500F5F059 +:10005000E50F45F0F50FE501F5F0E50F45F0F50F7B +:10006000E50DF5F0E50F45F0F50FE50EF5F0E50FC0 +:1000700045F0F50FE50F700280030201C400007522 +:100080000001750100750D00750E00751001C37536 +:100090000F00E500F5F0E50F95F0F50F750F00E5A1 +:1000A0000FF5F0E50F35F0F50FE50FF5F0E510650C +:1000B000F0F510C3750F00E501F5F0E50F95F0F5CB +:1000C0000F750F00E50FF5F0E50F35F0F50FE50FB3 +:1000D000F5F0E51065F0F510C3750F00E50DF5F0CE +:1000E000E50F95F0F50F750F00E50FF5F0E50F350D +:1000F000F0F50FE50FF5F0E51065F0F510C3750F9D +:1001000000E50EF5F0E50F95F0F50F750F00E50F22 +:10011000F5F0E50F35F0F50FE50FF5F0E51065F0BA +:10012000F510750100750D00750E00750000E510E5 +:10013000F5F0E50045F0F500E501F5F0E50045F0E6 +:10014000F500E50DF5F0E50045F0F500E50EF5F0FC +:10015000E50045F0F500E500700280030201C000F3 +:10016000750900750A00750B00750C00E509F502AC +:10017000E50AF503E50BF504E50CF505E518F512C0 +:10018000E519F511E51AF51075E0002506F58275FB +:10019000E0003507F583E0F508E508C0E0E51BC0A1 +:1001A000E075E0052506F50675E0003507F507E57D +:1001B00002F582E503F583E504F500E505F5012286 +:1001C0000002016C00900000E582F511900000E54E +:1001D00083F512750D00750E00750F007510007512 +:1001E0000100C3750000E501F5F0E51135F0F501FA +:1001F000E500F5F0E51235F0F500E50DF503E50055 +:10020000F502E501F582E502F583E503F0750101EC +:10021000C3750000E501F5F0E51135F0F501E500E5 +:10022000F5F0E51235F0F500E50EF503E500F50211 +:10023000E501F582E502F583E503F0750102C3757A +:100240000000E501F5F0E51135F0F501E500F5F008 +:10025000E51235F0F500E50FF503E500F502E501DF +:10026000F582E502F583E503F0750103C37500002F +:10027000E501F5F0E51135F0F501E500F5F0E512E1 +:1002800035F0F500E510F503E500F502E501F5822E +:10029000E502F583E503F0750001750100750D00B9 +:1002A000750E00751001C3750F00E500F5F0E50F40 +:1002B00095F0F50F750F00E50FF5F0E50F35F0F54A +:1002C0000FE50FF5F0E51065F0F510C3750F00E5CB +:1002D00001F5F0E50F95F0F50F750F00E50FF5F05E +:1002E000E50F35F0F50FE50FF5F0E51065F0F510C9 +:1002F000C3750F00E50DF5F0E50F95F0F50F750FDF +:1003000000E50FF5F0E50F35F0F50FE50FF5F0E539 +:100310001065F0F510C3750F00E50EF5F0E50F95CB +:10032000F0F50F750F00E50FF5F0E50F35F0F50F5F +:10033000E50FF5F0E51065F0F510750100750D009D +:10034000750E00750000E510F5F0E50045F0F500CC +:10035000E501F5F0E50045F0F500E50DF5F0E50007 +:1003600045F0F500E50EF5F0E50045F0F500E50097 +:100370007002800302037B0002007E0002007E0008 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/loop-5.s.expected b/tests/GCCTestSuite/loop-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/loop-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/m-un-1.c b/tests/GCCTestSuite/m-un-1.c new file mode 100644 index 0000000..ad84d44 --- /dev/null +++ b/tests/GCCTestSuite/m-un-1.c @@ -0,0 +1,37 @@ +/* m-un-1.c: "un" for "uninitialized" */ + +/* +From: Jim Wilson +Date: Wed, 6 Jul 1994 13:11:47 -0700 +To: dje@cygnus.com +Subject: Re: devo/gcc ChangeLog.fsf stmt.c +Cc: cvs-gcc@cygnus.com, tege@cygnus.com + + How about a test case? :-) + +Compile with -O -Wall and the broken compiler gives you: +tmp.c:6: warning: `k' might be used uninitialized in this function +The fixed compiler (and gcc 2.5.8) gives no warning. + +This happens to fix a performance regression in the code generated for +while loops, but that is presumably much much harder to test for. +*/ + +/* { dg-do compile } */ +/* { dg-options "-O -Wall" } */ + +int +sub () +{ + int i = 0; + int j = 0; + int k; /* { dg-bogus "`k' might be used uninitialized" "uninitialized warning regression" } */ + + while (i == 0 && j == 0) + { + k = 10; + i = sub (); + } + + return k; +} diff --git a/tests/GCCTestSuite/m-un-1.c.expected b/tests/GCCTestSuite/m-un-1.c.expected new file mode 100644 index 0000000..ad84d44 --- /dev/null +++ b/tests/GCCTestSuite/m-un-1.c.expected @@ -0,0 +1,37 @@ +/* m-un-1.c: "un" for "uninitialized" */ + +/* +From: Jim Wilson +Date: Wed, 6 Jul 1994 13:11:47 -0700 +To: dje@cygnus.com +Subject: Re: devo/gcc ChangeLog.fsf stmt.c +Cc: cvs-gcc@cygnus.com, tege@cygnus.com + + How about a test case? :-) + +Compile with -O -Wall and the broken compiler gives you: +tmp.c:6: warning: `k' might be used uninitialized in this function +The fixed compiler (and gcc 2.5.8) gives no warning. + +This happens to fix a performance regression in the code generated for +while loops, but that is presumably much much harder to test for. +*/ + +/* { dg-do compile } */ +/* { dg-options "-O -Wall" } */ + +int +sub () +{ + int i = 0; + int j = 0; + int k; /* { dg-bogus "`k' might be used uninitialized" "uninitialized warning regression" } */ + + while (i == 0 && j == 0) + { + k = 10; + i = sub (); + } + + return k; +} diff --git a/tests/GCCTestSuite/m-un-1.hex.expected b/tests/GCCTestSuite/m-un-1.hex.expected new file mode 100644 index 0000000..4230e9b --- /dev/null +++ b/tests/GCCTestSuite/m-un-1.hex.expected @@ -0,0 +1,89 @@ +:1000000000E50675820AC39582F506E5077583004B +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0750B00750C00750D0075D4 +:1000D0000E00751400751500751600751700750073 +:1000E00000750100750900750A00750F00C3E50071 +:1000F000F5F0E50B95F0F500E500F5F0E50F45F0BE +:10010000F50FC3E501F5F0E50C95F0F500E500F518 +:10011000F0E50F45F0F50FC3E509F5F0E50D95F0B5 +:10012000F500E500F5F0E50F45F0F50FC3E50AF53C +:10013000F0E50E95F0F500E500F5F0E50F45F0F57A +:100140000F750100750900750A00E50FF500750FC0 +:1001500001C3750B00E500F5F0E50B95F0F50B75A7 +:100160000B00E50BF5F0E50B35F0F50BE50BF5F0C5 +:10017000E50F65F0F50FC3750B00E501F5F0E50B34 +:1001800095F0F50B750B00E50BF5F0E50B35F0F58B +:100190000BE50BF5F0E50F65F0F50FC3750B00E50A +:1001A00009F5F0E50B95F0F50B750B00E50BF5F097 +:1001B000E50B35F0F50BE50BF5F0E50F65F0F50F08 +:1001C000C3750B00E50AF5F0E50B95F0F50B750B23 +:1001D00000E50BF5F0E50B35F0F50BE50BF5F0E57B +:1001E0000F65F0F50F750100750900750A007500BF +:1001F00000E50FF5F0E50045F0F500E501F5F0E567 +:100200000045F0F500E509F5F0E50045F0F500E5FD +:100210000AF5F0E50045F0F500E500700280030204 +:10022000041800750000750100750900750A007555 +:100230000C01C3750B00E500F5F0E50B95F0F50B2F +:10024000750B00E50BF5F0E50B35F0F50BE50BF55F +:10025000F0E50C65F0F50CC3750B00E501F5F0E574 +:100260000B95F0F50B750B00E50BF5F0E50B35F094 +:10027000F50BE50BF5F0E50C65F0F50CC3750B001F +:10028000E509F5F0E50B95F0F50B750B00E50BF5C1 +:10029000F0E50B35F0F50BE50BF5F0E50C65F0F549 +:1002A0000CC3750B00E50AF5F0E50B95F0F50B7541 +:1002B0000B00E50BF5F0E50B35F0F50BE50BF5F074 +:1002C000E50C65F0F50C750100750900750A0075FF +:1002D0000000E50CF5F0E50045F0F500E501F5F06E +:1002E000E50045F0F500E509F5F0E50045F0F5001D +:1002F000E50AF5F0E50045F0F500E5007002800341 +:100300000203360075100A7511007512007513008E +:10031000120000E582F502E583F503E500F504E54A +:1003200001F505E502F50BE503F50CE504F50DE532 +:1003300005F50E0200DE00E510F502E511F503E516 +:1003400012F504E513F50575E0092506F58275E05B +:10035000003507F583E0F51775E0082506F5827589 +:10036000E0003507F583E0F51675E0072506F58210 +:1003700075E0003507F583E0F51575E0062506F50F +:100380008275E0003507F583E0F51475E005250674 +:10039000F58275E0003507F583E0F51375E0042577 +:1003A00006F58275E0003507F583E0F51275E00388 +:1003B0002506F58275E0003507F583E0F51175E057 +:1003C000022506F58275E0003507F583E0F5107526 +:1003D000E0002506F58275E0003507F583E0F508B5 +:1003E000E508C0E075E0012506F58275E0003507F7 +:1003F000F583E0F508E508C0E075E00A2506F50696 +:1004000075E0003507F507E502F582E503F583E5BC +:1004100004F500E505F50122007500007501007581 +:100420000900750A00750C00C3E500F5F0E51495A8 +:10043000F0F500E500F5F0E50C45F0F50CC3E5013D +:10044000F5F0E51595F0F500E500F5F0E50C45F063 +:10045000F50CC3E509F5F0E51695F0F500E500F5B6 +:10046000F0E50C45F0F50CC3E50AF5F0E51795F05D +:10047000F500E500F5F0E50C45F0F50C75010075AB +:100480000900750A00E50CF500750C01C3750B0039 +:10049000E500F5F0E50B95F0F50B750B00E50BF5B8 +:1004A000F0E50B35F0F50BE50BF5F0E50C65F0F537 +:1004B0000CC3750B00E501F5F0E50B95F0F50B7538 +:1004C0000B00E50BF5F0E50B35F0F50BE50BF5F062 +:1004D000E50C65F0F50CC3750B00E509F5F0E50BCF +:1004E00095F0F50B750B00E50BF5F0E50B35F0F528 +:1004F0000BE50BF5F0E50C65F0F50CC3750B00E5AD +:100500000AF5F0E50B95F0F50B750B00E50BF5F032 +:10051000E50B35F0F50BE50BF5F0E50C65F0F50CAA +:10052000750100750900750A00750000E50CF5F00D +:10053000E50045F0F500E501F5F0E50045F0F500D2 +:10054000E509F5F0E50045F0F500E50AF5F0E50010 +:1005500045F0F500E5007002800302056D007500AE +:1005600000750100750900750A0002022F00750070 +:1005700001750100750900750A0002022F000000D4 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/m-un-1.s.expected b/tests/GCCTestSuite/m-un-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/m-un-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/merge-all-constants-1.c b/tests/GCCTestSuite/merge-all-constants-1.c new file mode 100644 index 0000000..5c9cd06 --- /dev/null +++ b/tests/GCCTestSuite/merge-all-constants-1.c @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-w -O2 -fmerge-all-constants" } */ + +const char str1[36] = "0123456789abcdefghijklmnopqrstuvwxyz"; +const char str2[38] = "0123456789abcdefghijklmnopqrstuvwxyz"; +const char str3[10] = "0123456789abcdefghijklmnopqrstuvwxyz"; + +/* { dg-final { scan-assembler-not "\.rodata\.str" } } */ diff --git a/tests/GCCTestSuite/merge-all-constants-1.c.expected b/tests/GCCTestSuite/merge-all-constants-1.c.expected new file mode 100644 index 0000000..5c9cd06 --- /dev/null +++ b/tests/GCCTestSuite/merge-all-constants-1.c.expected @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-w -O2 -fmerge-all-constants" } */ + +const char str1[36] = "0123456789abcdefghijklmnopqrstuvwxyz"; +const char str2[38] = "0123456789abcdefghijklmnopqrstuvwxyz"; +const char str3[10] = "0123456789abcdefghijklmnopqrstuvwxyz"; + +/* { dg-final { scan-assembler-not "\.rodata\.str" } } */ diff --git a/tests/GCCTestSuite/merge-all-constants-1.hex.expected b/tests/GCCTestSuite/merge-all-constants-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/merge-all-constants-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/merge-all-constants-1.s.expected b/tests/GCCTestSuite/merge-all-constants-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/merge-all-constants-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/nested-redef-1.c b/tests/GCCTestSuite/nested-redef-1.c new file mode 100644 index 0000000..34b92d8 --- /dev/null +++ b/tests/GCCTestSuite/nested-redef-1.c @@ -0,0 +1,44 @@ +/* Test diagnosis of nested tag redefinitions. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +struct s0 { + struct s0 { int a; } x; /* { dg-error "error: nested redefinition of 'struct s0'" } */ +}; + +struct s1 { + const struct s1 { int b; } x; /* { dg-error "error: nested redefinition of 'struct s1'" } */ +}; + +struct s2 { + struct s2 { int c; } *x; /* { dg-error "error: nested redefinition of 'struct s2'" } */ +}; + +struct s3 { + struct s4 { + struct s5 { + struct s3 { int a; } **x; /* { dg-error "error: nested redefinition of 'struct s3'" } */ + } y; + } z; +}; + +struct s6; +struct s6 { struct s6 *p; }; + +union u0 { + union u0 { int c; } *x; /* { dg-error "error: nested redefinition of 'union u0'" } */ +}; + +enum e0 { + E0 = sizeof(enum e0 { E1 }) /* { dg-error "error: nested redefinition of 'enum e0'" } */ +}; + +enum e1 { + E2 = sizeof(enum e2 { E2 }), /* { dg-error "error: redeclaration of enumerator 'E2'" } */ + /* { dg-error "previous definition" "previous E2" { target *-*-* } 38 } */ + E3 +}; + +enum e3; +enum e3 { E4 = 0 }; diff --git a/tests/GCCTestSuite/nested-redef-1.c.expected b/tests/GCCTestSuite/nested-redef-1.c.expected new file mode 100644 index 0000000..34b92d8 --- /dev/null +++ b/tests/GCCTestSuite/nested-redef-1.c.expected @@ -0,0 +1,44 @@ +/* Test diagnosis of nested tag redefinitions. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +struct s0 { + struct s0 { int a; } x; /* { dg-error "error: nested redefinition of 'struct s0'" } */ +}; + +struct s1 { + const struct s1 { int b; } x; /* { dg-error "error: nested redefinition of 'struct s1'" } */ +}; + +struct s2 { + struct s2 { int c; } *x; /* { dg-error "error: nested redefinition of 'struct s2'" } */ +}; + +struct s3 { + struct s4 { + struct s5 { + struct s3 { int a; } **x; /* { dg-error "error: nested redefinition of 'struct s3'" } */ + } y; + } z; +}; + +struct s6; +struct s6 { struct s6 *p; }; + +union u0 { + union u0 { int c; } *x; /* { dg-error "error: nested redefinition of 'union u0'" } */ +}; + +enum e0 { + E0 = sizeof(enum e0 { E1 }) /* { dg-error "error: nested redefinition of 'enum e0'" } */ +}; + +enum e1 { + E2 = sizeof(enum e2 { E2 }), /* { dg-error "error: redeclaration of enumerator 'E2'" } */ + /* { dg-error "previous definition" "previous E2" { target *-*-* } 38 } */ + E3 +}; + +enum e3; +enum e3 { E4 = 0 }; diff --git a/tests/GCCTestSuite/nested-redef-1.hex.expected b/tests/GCCTestSuite/nested-redef-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/nested-redef-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/nested-redef-1.s.expected b/tests/GCCTestSuite/nested-redef-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/nested-redef-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/nonnull-1.c b/tests/GCCTestSuite/nonnull-1.c new file mode 100644 index 0000000..51a8a33 --- /dev/null +++ b/tests/GCCTestSuite/nonnull-1.c @@ -0,0 +1,39 @@ +/* Test for the "nonnull" function attribute. */ +/* Origin: Jason Thorpe */ +/* { dg-do compile } */ +/* { dg-options "-Wnonnull" } */ + +#include + +extern void func1 (char *, char *, int) __attribute__((nonnull)); + +extern void func2 (char *, char *) __attribute__((nonnull(1))); + +extern void func3 (char *, int, char *, int) + __attribute__((nonnull(1,3))); + +extern void func4 (char *, char *) __attribute__((nonnull(1))) + __attribute__((nonnull(2))); + +void +foo (int i1, int i2, int i3, char *cp1, char *cp2, char *cp3) +{ + func1(cp1, cp2, i1); + + func1(NULL, cp2, i1); /* { dg-warning "null" "null with argless nonnull 1" } */ + func1(cp1, NULL, i1); /* { dg-warning "null" "null with argless nonnull 2" } */ + func1(cp1, cp2, 0); + + func2(cp1, NULL); + func2(NULL, cp1); /* { dg-warning "null" "null with single explicit nonnull" } */ + + func3(NULL, i2, cp3, i3); /* { dg-warning "null" "null with explicit nonnull 1" } */ + func3(cp3, i2, NULL, i3); /* { dg-warning "null" "null with explicit nonnull 3" } */ + + func1(i1 ? cp1 : NULL, cp2, i3); /* { dg-warning "null" "null with cond expr rhs" } */ + func1(i1 ? NULL : cp1, cp2, i3); /* { dg-warning "null" "null with cond expr lhs" } */ + func1(i1 ? (i2 ? cp1 : NULL) : cp2, cp3, i3); /* { dg-warning "null" "null with nested cond expr" } */ + + func4(NULL, cp1); /* { dg-warning "null" "null with multiple attributes 1" } */ + func4(cp1, NULL); /* { dg-warning "null" "null with multiple attributes 2" } */ +} diff --git a/tests/GCCTestSuite/nonnull-1.c.expected b/tests/GCCTestSuite/nonnull-1.c.expected new file mode 100644 index 0000000..51a8a33 --- /dev/null +++ b/tests/GCCTestSuite/nonnull-1.c.expected @@ -0,0 +1,39 @@ +/* Test for the "nonnull" function attribute. */ +/* Origin: Jason Thorpe */ +/* { dg-do compile } */ +/* { dg-options "-Wnonnull" } */ + +#include + +extern void func1 (char *, char *, int) __attribute__((nonnull)); + +extern void func2 (char *, char *) __attribute__((nonnull(1))); + +extern void func3 (char *, int, char *, int) + __attribute__((nonnull(1,3))); + +extern void func4 (char *, char *) __attribute__((nonnull(1))) + __attribute__((nonnull(2))); + +void +foo (int i1, int i2, int i3, char *cp1, char *cp2, char *cp3) +{ + func1(cp1, cp2, i1); + + func1(NULL, cp2, i1); /* { dg-warning "null" "null with argless nonnull 1" } */ + func1(cp1, NULL, i1); /* { dg-warning "null" "null with argless nonnull 2" } */ + func1(cp1, cp2, 0); + + func2(cp1, NULL); + func2(NULL, cp1); /* { dg-warning "null" "null with single explicit nonnull" } */ + + func3(NULL, i2, cp3, i3); /* { dg-warning "null" "null with explicit nonnull 1" } */ + func3(cp3, i2, NULL, i3); /* { dg-warning "null" "null with explicit nonnull 3" } */ + + func1(i1 ? cp1 : NULL, cp2, i3); /* { dg-warning "null" "null with cond expr rhs" } */ + func1(i1 ? NULL : cp1, cp2, i3); /* { dg-warning "null" "null with cond expr lhs" } */ + func1(i1 ? (i2 ? cp1 : NULL) : cp2, cp3, i3); /* { dg-warning "null" "null with nested cond expr" } */ + + func4(NULL, cp1); /* { dg-warning "null" "null with multiple attributes 1" } */ + func4(cp1, NULL); /* { dg-warning "null" "null with multiple attributes 2" } */ +} diff --git a/tests/GCCTestSuite/nonnull-1.hex.expected b/tests/GCCTestSuite/nonnull-1.hex.expected new file mode 100644 index 0000000..be13b7c --- /dev/null +++ b/tests/GCCTestSuite/nonnull-1.hex.expected @@ -0,0 +1,176 @@ +:100000000000000000E506758230C39582F506E524 +:10001000077583009583F507D0E0F50875E0152591 +:1000200006F58275E0003507F583E508F0D0E0F5C8 +:100030000875E0142506F58275E0003507F583E5BF +:1000400008F075E01D2506F58275E0003507F5839B +:10005000E517F075E01C2506F58275E0003507F51B +:1000600083E516F075E01B2506F58275E00035077F +:10007000F583E515F075E01A2506F58275E0003583 +:1000800007F583E514F075E0192506F58275E000A3 +:100090003507F583E513F075E0182506F58275E060 +:1000A000003507F583E512F075E0172506F5827532 +:1000B000E0003507F583E511F075E0162506F582B9 +:1000C00075E0003507F583E510F0E51FF514E51E32 +:1000D000F515E51DF516E51CF51775E00D2506F57A +:1000E0008275E0003507F583E51BF075E00C250609 +:1000F000F58275E0003507F583E51AF075E00B250C +:1001000006F58275E0003507F583E519F075E00A1C +:100110002506F58275E0003507F583E518F07509C9 +:1001200030750001E500F5F0E50995F0F509E50603 +:10013000F500E500F5F0E50925F0F509750100E5A4 +:1001400007F500E500F5F0E50135F0F501E501F50D +:1001500002E509F582E502F583E0F50875E0112571 +:1001600006F58275E0003507F583E508F07509307E +:10017000750002E500F5F0E50995F0F509E506F5ED +:1001800000E500F5F0E50925F0F509750100E50742 +:10019000F500E500F5F0E50135F0F501E501F502C2 +:1001A000E509F582E502F583E0F50875E01025061E +:1001B000F58275E0003507F583E508F075093075BF +:1001C0000003E500F5F0E50995F0F509E506F50011 +:1001D000E500F5F0E50925F0F509750100E507F5FD +:1001E00000E500F5F0E50135F0F501E501F502E582 +:1001F00009F582E502F583E0F50875E00F2506F5BF +:100200008275E0003507F583E508F0750930750063 +:1002100004E500F5F0E50995F0F509E506F500E5DA +:1002200000F5F0E50925F0F509750100E507F50091 +:10023000E500F5F0E50135F0F501E501F502E50928 +:10024000F582E502F583E0F50875E00E2506F582F6 +:1002500075E0003507F583E508F075093075000590 +:10026000E500F5F0E50995F0F509E506F500E5008E +:10027000F5F0E50925F0F509750100E507F500E55C +:1002800000F5F0E50135F0F501E501F502E509F5C8 +:1002900082E502F583E0F512750930750006E50088 +:1002A000F5F0E50995F0F509E506F500E500F5F04E +:1002B000E50925F0F509750100E507F500E500F50C +:1002C000F0E50135F0F501E501F502E509F582E516 +:1002D00002F583E0F513750930750007E500F5F0C8 +:1002E000E50995F0F509E506F500E500F5F0E50905 +:1002F00025F0F509750100E507F500E500F5F0E5E5 +:100300000135F0F501E501F502E509F582E502F5B3 +:1003100083E0F510750930750008E500F5F0E50992 +:1003200095F0F509E506F500E500F5F0E50925F09D +:10033000F509750100E507F500E500F5F0E5013583 +:10034000F0F501E501F502E509F582E502F583E046 +:10035000F511750930750009E500F5F0E50995F02E +:10036000F509E506F500E500F5F0E50925F0F509E4 +:10037000750100E507F500E500F5F0E50135F0F55C +:1003800001E501F502E509F582E502F583E0F508EE +:1003900075E0132506F58275E0003507F583E5085D +:1003A000F075093075000AE500F5F0E50995F0F5FE +:1003B00009E506F500E500F5F0E50925F0F5097514 +:1003C0000100E507F500E500F5F0E50135F0F50180 +:1003D000E501F502E509F582E502F583E0F508752A +:1003E000E0122506F58275E0003507F583E508F093 +:1003F000E512F51FE513F51EE510F51DE511F51CD9 +:10040000E514F51BE515F51AE516F519E517F518C8 +:10041000751F00751E00E510F51DE511F51CE514AE +:10042000F51BE515F51AE516F519E517F518751D0F +:1004300000751C00E512F51FE513F51EE514F51B0C +:10044000E515F51AE516F519E517F518751B00758C +:100450001A00751900751800E512F51FE513F51E51 +:10046000E510F51DE511F51C751D00751C00E51264 +:10047000F51FE513F51E751F00751E00E512F51D2D +:10048000E513F51C751F00751E0075E00D2506F5BA +:100490008275E0003507F583E0F51D75E00C250653 +:1004A000F58275E0003507F583E0F51C75E00B2556 +:1004B00006F58275E0003507F583E0F51B75E00A67 +:1004C0002506F58275E0003507F583E0F51A75E03D +:1004D000132506F58275E0003507F583E0F51975FB +:1004E000E0122506F58275E0003507F583E0F51882 +:1004F000750901E506F500C3E509F5F0E50095F09D +:10050000F509E507F500750100E501F5F0E5009551 +:10051000F0F50175E0112506F58275E0003507F567 +:1005200083E0F508E508F503E501F502E509F58244 +:10053000E502F583E503F0750902E506F500C3E57C +:1005400009F5F0E50095F0F509E507F500750100FE +:10055000E501F5F0E50095F0F50175E0102506F5EB +:100560008275E0003507F583E0F508E508F503E559 +:1005700001F502E509F582E502F583E503F0750969 +:1005800003E506F500C3E509F5F0E50095F0F5098A +:10059000E507F500750100E501F5F0E50095F0F5DA +:1005A0000175E00F2506F58275E0003507F583E05B +:1005B000F508E508F503E501F502E509F582E50230 +:1005C000F583E503F0750904E506F500C3E509F5D3 +:1005D000F0E50095F0F509E507F500750100E50186 +:1005E000F5F0E50095F0F50175E00E2506F582754C +:1005F000E0003507F583E0F508E508F503E501F5CA +:1006000002E509F582E502F583E503F07519007549 +:10061000180075E0132506F58275E0003507F583AF +:10062000E0F51F75E0122506F58275E0003507F547 +:1006300083E0F51E75E00D2506F58275E0003507AF +:10064000F583E0F51D75E00C2506F58275E00035B3 +:1006500007F583E0F51C75E00B2506F58275E000D3 +:100660003507F583E0F51B75E00A2506F58275E090 +:10067000003507F583E0F51A750901E506F500C3B5 +:10068000E509F5F0E50095F0F509E507F5007501D8 +:1006900000E501F5F0E50095F0F50175E01125069E +:1006A000F58275E0003507F583E0F508E508F50308 +:1006B000E501F502E509F582E502F583E503F0754C +:1006C0000902E506F500C3E509F5F0E50095F0F54A +:1006D00009E507F500750100E501F5F0E50095F085 +:1006E000F50175E0102506F58275E0003507F58304 +:1006F000E0F508E508F503E501F502E509F582E511 +:1007000002F583E503F0750903E506F500C3E50985 +:10071000F5F0E50095F0F509E507F500750100E550 +:1007200001F5F0E50095F0F50175E00F2506F5827D +:1007300075E0003507F583E0F508E508F503E50108 +:10074000F502E509F582E502F583E503F075090494 +:10075000E506F500C3E509F5F0E50095F0F509E5D6 +:1007600007F500750100E501F5F0E50095F0F501EC +:1007700075E00E2506F58275E0003507F583E0F596 +:1007800008E508F503E501F502E509F582E502F55E +:1007900083E503F0750000E514F5F0E50045F0F59C +:1007A00000E515F5F0E50045F0F500E516F5F0E596 +:1007B0000045F0F500E517F5F0E50045F0F500E53A +:1007C0000070028003020AE000751F00751E00E53C +:1007D00010F51DE511F51C75E0112506F58275E093 +:1007E000003507F583E0F51B75E0102506F58275E9 +:1007F000E0003507F583E0F51A75E00F2506F58270 +:1008000075E0003507F583E0F51975E00E2506F56E +:100810008275E0003507F583E0F518750000E514F2 +:10082000F5F0E50045F0F500E515F5F0E50045F0DB +:10083000F500E516F5F0E50045F0F500E517F5F0F3 +:10084000E50045F0F500E50070028003020AD600DD +:10085000E512F51FE513F51EE510F51DE511F51C74 +:1008600075E0112506F58275E0003507F583E0F5A2 +:100870001B75E0102506F58275E0003507F583E06D +:10088000F51A75E00F2506F58275E0003507F5834A +:10089000E0F51975E00E2506F58275E0003507F5DF +:1008A00083E0F518750000E514F5F0E50045F0F576 +:1008B00000E515F5F0E50045F0F500E516F5F0E585 +:1008C0000045F0F500E517F5F0E50045F0F500E529 +:1008D0000070028003020A4700E510F51FE511F5DC +:1008E0001E75E0132506F58275E0003507F583E0F7 +:1008F000F51D75E0122506F58275E0003507F583D4 +:10090000E0F51C75E0112506F58275E0003507F568 +:1009100083E0F51B75E0102506F58275E0003507CC +:10092000F583E0F51A75E00F2506F58275E00035D0 +:1009300007F583E0F51975E00E2506F58275E000F0 +:100940003507F583E0F518751F00751E00E512F5F3 +:100950001DE513F51C751D00751C00E512F51FE55E +:1009600013F51E750000E500F502E500F503E5004E +:10097000F504E500F50575E01D2506F58275E00036 +:100980003507F583E0F51775E01C2506F58275E05F +:10099000003507F583E0F51675E01B2506F5827531 +:1009A000E0003507F583E0F51575E01A2506F582B8 +:1009B00075E0003507F583E0F51475E0192506F5B7 +:1009C0008275E0003507F583E0F51375E01825061C +:1009D000F58275E0003507F583E0F51275E017251F +:1009E00006F58275E0003507F583E0F51175E01630 +:1009F0002506F58275E0003507F583E0F51075E012 +:100A0000142506F58275E0003507F583E0F508E565 +:100A100008C0E075E0152506F58275E0003507F59C +:100A200083E0F508E508C0E075E0302506F50675B9 +:100A3000E0003507F507E502F582E503F583E504F7 +:100A4000F500E505F501220075000075E00D2506AD +:100A5000F58275E0003507F583E0F508E508F5F067 +:100A6000E50045F0F50075E00C2506F58275E0001F +:100A70003507F583E0F508E508F5F0E50045F0F504 +:100A80000075E00B2506F58275E0003507F583E07B +:100A9000F508E508F5F0E50045F0F50075E00A25F4 +:100AA00006F58275E0003507F583E0F508E508F501 +:100AB000F0E50045F0F500E50070028003020ACA87 +:100AC000007510007511000208D900E512F510E557 +:100AD00013F5110208D900751F00751E0002085891 +:100AE00000E512F51FE513F51E0207CF0000000018 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/nonnull-1.s.expected b/tests/GCCTestSuite/nonnull-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/nonnull-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/nonnull-2.c b/tests/GCCTestSuite/nonnull-2.c new file mode 100644 index 0000000..bd36d23 --- /dev/null +++ b/tests/GCCTestSuite/nonnull-2.c @@ -0,0 +1,16 @@ +/* Test for the invalid use of the "nonnull" function attribute. */ +/* Origin: Jason Thorpe */ +/* { dg-do compile } */ + +extern void func1 () __attribute__((nonnull)); /* { dg-error "without arguments" } */ + +extern void func2 (char *) __attribute__((nonnull(2))); /* { dg-error "out-of-range operand" } */ + +extern void func3 (char *) __attribute__((nonnull(foo))); /* { dg-error "invalid operand number" } */ + +extern void func4 (int) __attribute__((nonnull(1))); /* { dg-error "references non-pointer" } */ + +void +foo (void) +{ +} diff --git a/tests/GCCTestSuite/nonnull-2.c.expected b/tests/GCCTestSuite/nonnull-2.c.expected new file mode 100644 index 0000000..bd36d23 --- /dev/null +++ b/tests/GCCTestSuite/nonnull-2.c.expected @@ -0,0 +1,16 @@ +/* Test for the invalid use of the "nonnull" function attribute. */ +/* Origin: Jason Thorpe */ +/* { dg-do compile } */ + +extern void func1 () __attribute__((nonnull)); /* { dg-error "without arguments" } */ + +extern void func2 (char *) __attribute__((nonnull(2))); /* { dg-error "out-of-range operand" } */ + +extern void func3 (char *) __attribute__((nonnull(foo))); /* { dg-error "invalid operand number" } */ + +extern void func4 (int) __attribute__((nonnull(1))); /* { dg-error "references non-pointer" } */ + +void +foo (void) +{ +} diff --git a/tests/GCCTestSuite/nonnull-2.hex.expected b/tests/GCCTestSuite/nonnull-2.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/nonnull-2.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/nonnull-2.s.expected b/tests/GCCTestSuite/nonnull-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/nonnull-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/noreturn-1.c b/tests/GCCTestSuite/noreturn-1.c new file mode 100644 index 0000000..3bd6a26 --- /dev/null +++ b/tests/GCCTestSuite/noreturn-1.c @@ -0,0 +1,59 @@ +/* Check for various valid and erroneous "noreturn" cases. */ +/* { dg-do compile } */ +/* { dg-options "-O2 -Wmissing-noreturn" } */ + +extern void exit (int); + +extern void foo1(void) __attribute__ ((__noreturn__)); +void +foo1(void) +{ +} /* { dg-warning "'noreturn' function does return" "detect falling off end of noreturn" } */ + +extern void foo2(void) __attribute__ ((__noreturn__)); +void +foo2(void) +{ + exit(0); +} /* { dg-bogus "warning:" "this function should not get any warnings" } */ + +extern void foo3(void); +void +foo3(void) +{ +} /* { dg-bogus "warning:" "this function should not get any warnings" } */ + +extern void foo4(void); +void +foo4(void) +{ /* { dg-warning "candidate for attribute 'noreturn'" "detect noreturn candidate" } */ + exit(0); +} + +extern void foo5(void) __attribute__ ((__noreturn__)); +void +foo5(void) +{ + return; /* { dg-warning "'noreturn' has a 'return' statement" "detect invalid return" } */ +} /* { dg-warning "function does return" "detect return from noreturn" } */ + +extern void foo6(void); +void +foo6(void) +{ + return; +} /* { dg-bogus "warning:" "this function should not get any warnings" } */ + +extern void foo7(void); +void +foo7(void) +{ + foo6(); +} /* { dg-bogus "warning:" "this function should not get any warnings" } */ + +extern void foo8(void) __attribute__ ((__noreturn__)); +void +foo8(void) +{ + foo7(); +} /* { dg-warning "'noreturn' function does return" "detect return from tail call" } */ diff --git a/tests/GCCTestSuite/noreturn-1.c.expected b/tests/GCCTestSuite/noreturn-1.c.expected new file mode 100644 index 0000000..3bd6a26 --- /dev/null +++ b/tests/GCCTestSuite/noreturn-1.c.expected @@ -0,0 +1,59 @@ +/* Check for various valid and erroneous "noreturn" cases. */ +/* { dg-do compile } */ +/* { dg-options "-O2 -Wmissing-noreturn" } */ + +extern void exit (int); + +extern void foo1(void) __attribute__ ((__noreturn__)); +void +foo1(void) +{ +} /* { dg-warning "'noreturn' function does return" "detect falling off end of noreturn" } */ + +extern void foo2(void) __attribute__ ((__noreturn__)); +void +foo2(void) +{ + exit(0); +} /* { dg-bogus "warning:" "this function should not get any warnings" } */ + +extern void foo3(void); +void +foo3(void) +{ +} /* { dg-bogus "warning:" "this function should not get any warnings" } */ + +extern void foo4(void); +void +foo4(void) +{ /* { dg-warning "candidate for attribute 'noreturn'" "detect noreturn candidate" } */ + exit(0); +} + +extern void foo5(void) __attribute__ ((__noreturn__)); +void +foo5(void) +{ + return; /* { dg-warning "'noreturn' has a 'return' statement" "detect invalid return" } */ +} /* { dg-warning "function does return" "detect return from noreturn" } */ + +extern void foo6(void); +void +foo6(void) +{ + return; +} /* { dg-bogus "warning:" "this function should not get any warnings" } */ + +extern void foo7(void); +void +foo7(void) +{ + foo6(); +} /* { dg-bogus "warning:" "this function should not get any warnings" } */ + +extern void foo8(void) __attribute__ ((__noreturn__)); +void +foo8(void) +{ + foo7(); +} /* { dg-warning "'noreturn' function does return" "detect return from tail call" } */ diff --git a/tests/GCCTestSuite/noreturn-1.hex.expected b/tests/GCCTestSuite/noreturn-1.hex.expected new file mode 100644 index 0000000..9d6582a --- /dev/null +++ b/tests/GCCTestSuite/noreturn-1.hex.expected @@ -0,0 +1,55 @@ +:100000000000D0E0F500D0E0F501750900E509F544 +:1000100002E509F503E509F504E509F505E501C083 +:10002000E0E500C0E0E502F582E503F583E504F5CF +:1000300000E505F5012200E506758202C39582F50B +:1000400006E5077583009583F507D0E0F50875E0B0 +:10005000012506F58275E0003507F583E508F0D047 +:10006000E0F50875E0002506F58275E0003507F536 +:1000700083E508F0751F00751E00751D00751C00D6 +:10008000750000E500F502E500F503E500F504E57F +:1000900000F50575E0002506F58275E0003507F5E9 +:1000A00083E0F508E508C0E075E0012506F58275F6 +:1000B000E0003507F583E0F508E508C0E075E002EB +:1000C0002506F50675E0003507F507E502F582E53A +:1000D00003F583E504F500E505F5012200D0E0F520 +:1000E00000D0E0F501750900E509F502E509F50321 +:1000F000E509F504E509F505E501C0E0E500C0E026 +:10010000E502F582E503F583E504F500E505F50173 +:100110002200E506758202C39582F506E507758320 +:10012000009583F507D0E0F50875E0012506F58216 +:1001300075E0003507F583E508F0D0E0F50875E0D7 +:10014000002506F58275E0003507F583E508F075B2 +:100150001F00751E00751D00751C00750000E50070 +:10016000F502E500F503E500F504E500F50575E0A9 +:10017000002506F58275E0003507F583E0F508E512 +:1001800008C0E075E0012506F58275E0003507F549 +:1001900083E0F508E508C0E075E0022506F5067580 +:1001A000E0003507F507E502F582E503F583E50490 +:1001B000F500E505F5012200D0E0F500D0E0F501FD +:1001C000750900E509F502E509F503E509F504E51A +:1001D00009F505E501C0E0E500C0E0E502F582E5CE +:1001E00003F583E504F500E505F5012200D0E0F50F +:1001F00000D0E0F501750900E509F502E509F50310 +:10020000E509F504E509F505E501C0E0E500C0E014 +:10021000E502F582E503F583E504F500E505F50162 +:100220002200E506758202C39582F506E50775830F +:10023000009583F507D0E0F50875E0012506F58205 +:1002400075E0003507F583E508F0D0E0F50875E0C6 +:10025000002506F58275E0003507F583E508F01204 +:1002600001EC750000E500F502E500F503E500F599 +:1002700004E500F50575E0002506F58275E000351A +:1002800007F583E0F508E508C0E075E0012506F50F +:100290008275E0003507F583E0F508E508C0E075F4 +:1002A000E0022506F50675E0003507F507E502F5DD +:1002B00082E503F583E504F500E505F5012200E597 +:1002C00006758202C39582F506E50775830095835E +:1002D000F507D0E0F50875E0012506F58275E00028 +:1002E0003507F583E508F0D0E0F50875E000250650 +:1002F000F58275E0003507F583E508F012022175F7 +:100300000000E500F502E500F503E500F504E50071 +:10031000F50575E0002506F58275E0003507F583E3 +:10032000E0F508E508C0E075E0012506F58275E016 +:10033000003507F583E0F508E508C0E075E0022523 +:1003400006F50675E0003507F507E502F582E503D9 +:10035000F583E504F500E505F50122000000000045 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/noreturn-1.s.expected b/tests/GCCTestSuite/noreturn-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/noreturn-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/noreturn-2.c b/tests/GCCTestSuite/noreturn-2.c new file mode 100644 index 0000000..4214de3 --- /dev/null +++ b/tests/GCCTestSuite/noreturn-2.c @@ -0,0 +1,12 @@ +/* Check for invalid "noreturn" warning. */ +/* { dg-do compile } */ +/* { dg-options "-O3 -Wall" } */ +extern void abort (void) __attribute__ ((__noreturn__)); + +void noreturn (int x) __attribute__ ((__noreturn__)); + +void +noreturn (int x) +{ + abort (); +} /* { dg-bogus "does return" "noreturn does return" } */ diff --git a/tests/GCCTestSuite/noreturn-2.c.expected b/tests/GCCTestSuite/noreturn-2.c.expected new file mode 100644 index 0000000..4214de3 --- /dev/null +++ b/tests/GCCTestSuite/noreturn-2.c.expected @@ -0,0 +1,12 @@ +/* Check for invalid "noreturn" warning. */ +/* { dg-do compile } */ +/* { dg-options "-O3 -Wall" } */ +extern void abort (void) __attribute__ ((__noreturn__)); + +void noreturn (int x) __attribute__ ((__noreturn__)); + +void +noreturn (int x) +{ + abort (); +} /* { dg-bogus "does return" "noreturn does return" } */ diff --git a/tests/GCCTestSuite/noreturn-2.hex.expected b/tests/GCCTestSuite/noreturn-2.hex.expected new file mode 100644 index 0000000..91e145a --- /dev/null +++ b/tests/GCCTestSuite/noreturn-2.hex.expected @@ -0,0 +1,11 @@ +:100000000000E506758206C39582F506E50775834F +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:100040000000E500F502E500F503E500F504E50034 +:10005000F50575E0002506F58275E0003507F583A6 +:10006000E0F508E508C0E075E0012506F58275E0D9 +:10007000003507F583E0F508E508C0E075E00625E2 +:1000800006F50675E0003507F507E502F582E5039C +:10009000F583E504F500E505F50122000000000008 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/noreturn-2.s.expected b/tests/GCCTestSuite/noreturn-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/noreturn-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/noreturn-5.c b/tests/GCCTestSuite/noreturn-5.c new file mode 100644 index 0000000..e69087a --- /dev/null +++ b/tests/GCCTestSuite/noreturn-5.c @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ +/* Check that 'noreturn' and 'volatile extern' are compatible. + The testsuite uses -ansi -pedantic-errors by default, so this has + to override. */ +extern void xxx (int) __attribute__((noreturn)); +typedef void voidfn (int); +__volatile extern voidfn xxx; diff --git a/tests/GCCTestSuite/noreturn-5.c.expected b/tests/GCCTestSuite/noreturn-5.c.expected new file mode 100644 index 0000000..e69087a --- /dev/null +++ b/tests/GCCTestSuite/noreturn-5.c.expected @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ +/* Check that 'noreturn' and 'volatile extern' are compatible. + The testsuite uses -ansi -pedantic-errors by default, so this has + to override. */ +extern void xxx (int) __attribute__((noreturn)); +typedef void voidfn (int); +__volatile extern voidfn xxx; diff --git a/tests/GCCTestSuite/noreturn-5.hex.expected b/tests/GCCTestSuite/noreturn-5.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/noreturn-5.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/noreturn-5.s.expected b/tests/GCCTestSuite/noreturn-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/noreturn-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/noreturn-6.c b/tests/GCCTestSuite/noreturn-6.c new file mode 100644 index 0000000..eb1fd24 --- /dev/null +++ b/tests/GCCTestSuite/noreturn-6.c @@ -0,0 +1,4 @@ +/* { dg-do compile } */ +/* Check for volatile behaviour. */ +extern int xxx (void); +volatile extern int xxx (void); /* { dg-error "not compatible" } */ diff --git a/tests/GCCTestSuite/noreturn-6.c.expected b/tests/GCCTestSuite/noreturn-6.c.expected new file mode 100644 index 0000000..eb1fd24 --- /dev/null +++ b/tests/GCCTestSuite/noreturn-6.c.expected @@ -0,0 +1,4 @@ +/* { dg-do compile } */ +/* Check for volatile behaviour. */ +extern int xxx (void); +volatile extern int xxx (void); /* { dg-error "not compatible" } */ diff --git a/tests/GCCTestSuite/noreturn-6.hex.expected b/tests/GCCTestSuite/noreturn-6.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/noreturn-6.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/noreturn-6.s.expected b/tests/GCCTestSuite/noreturn-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/noreturn-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/noreturn-7.c b/tests/GCCTestSuite/noreturn-7.c new file mode 100644 index 0000000..8ae5e23 --- /dev/null +++ b/tests/GCCTestSuite/noreturn-7.c @@ -0,0 +1,42 @@ +/* PR optimization/13394 */ +/* Origin: Carlo Wood */ + +/* Verify that a bogus "function does return" warning is not issued + in presence of tail recursion within a noreturn function. */ + +/* { dg-do compile } */ +/* { dg-options "-O2 -Wreturn-type -Wmissing-noreturn" } */ + + +void f(void) __attribute__ ((__noreturn__)); +void _exit(int status) __attribute__ ((__noreturn__)); + +int z = 0; + +void g() +{ /* { dg-warning "possible candidate" } */ + if (++z > 10) + _exit(0); + g(); +} + +void f() +{ + if (++z > 10) + _exit(0); + f(); +} /* { dg-bogus "does return" } */ + +int h() +{ /* { dg-warning "possible candidate" } */ + if (++z > 10) + _exit(0); + return h(); +} /* { dg-bogus "end of non-void function" } */ + +int k() +{ /* { dg-warning "possible candidate" } */ + if (++z > 10) + _exit(0); + k(); +} /* { dg-warning "control reaches" } */ diff --git a/tests/GCCTestSuite/noreturn-7.c.expected b/tests/GCCTestSuite/noreturn-7.c.expected new file mode 100644 index 0000000..8ae5e23 --- /dev/null +++ b/tests/GCCTestSuite/noreturn-7.c.expected @@ -0,0 +1,42 @@ +/* PR optimization/13394 */ +/* Origin: Carlo Wood */ + +/* Verify that a bogus "function does return" warning is not issued + in presence of tail recursion within a noreturn function. */ + +/* { dg-do compile } */ +/* { dg-options "-O2 -Wreturn-type -Wmissing-noreturn" } */ + + +void f(void) __attribute__ ((__noreturn__)); +void _exit(int status) __attribute__ ((__noreturn__)); + +int z = 0; + +void g() +{ /* { dg-warning "possible candidate" } */ + if (++z > 10) + _exit(0); + g(); +} + +void f() +{ + if (++z > 10) + _exit(0); + f(); +} /* { dg-bogus "does return" } */ + +int h() +{ /* { dg-warning "possible candidate" } */ + if (++z > 10) + _exit(0); + return h(); +} /* { dg-bogus "end of non-void function" } */ + +int k() +{ /* { dg-warning "possible candidate" } */ + if (++z > 10) + _exit(0); + k(); +} /* { dg-warning "control reaches" } */ diff --git a/tests/GCCTestSuite/noreturn-7.hex.expected b/tests/GCCTestSuite/noreturn-7.hex.expected new file mode 100644 index 0000000..22902ed --- /dev/null +++ b/tests/GCCTestSuite/noreturn-7.hex.expected @@ -0,0 +1,404 @@ +:100000000000E50675820AC39582F506E50775834B +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:10004000E0092506F58275E0003507F583E517F030 +:1000500075E0082506F58275E0003507F583E5169D +:10006000F075E0072506F58275E0003507F583E5B4 +:1000700015F075E0062506F58275E0003507F58375 +:10008000E514F075E0052506F58275E0003507F505 +:1000900083E513F075E0042506F58275E000350769 +:1000A000F583E512F075E0032506F58275E000356D +:1000B00007F583E511F075E0022506F58275E0008D +:1000C0003507F583E510F0900000E582F509900012 +:1000D00000E583F50B750100C3750000E501F5F03F +:1000E000E50935F0F501E500F5F0E50B35F0F50033 +:1000F000E500F502E501F582E502F583E0F50F750F +:100100000101C3750000E501F5F0E50935F0F501E1 +:10011000E500F5F0E50B35F0F500E500F502E50149 +:10012000F582E502F583E0F50C750102C375000068 +:10013000E501F5F0E50935F0F501E500F5F0E50B31 +:1001400035F0F500E500F502E501F582E502F583FD +:10015000E0F50A750103C3750000E501F5F0E50956 +:1001600035F0F501E500F5F0E50B35F0F500E500BB +:10017000F502E501F582E502F583E0F501750E0172 +:10018000750B00750900750000C3750D00E50EF5CF +:10019000F0E50F35F0F50DE50BF5F0E50C35F0F574 +:1001A0000EE509F5F0E50A35F0F50FE500F5F0E5A7 +:1001B0000135F0F510900000E582F509900000E5AA +:1001C00083F50A750100C3750000E501F5F0E50946 +:1001D00035F0F501E500F5F0E50A35F0F500E50D3F +:1001E000F503E500F502E501F582E502F583E50397 +:1001F000F0750101C3750000E501F5F0E50935F082 +:10020000F501E500F5F0E50A35F0F500E50EF5033A +:10021000E500F502E501F582E502F583E503F075F9 +:100220000102C3750000E501F5F0E50935F0F501BF +:10023000E500F5F0E50A35F0F500E50FF503E5001A +:10024000F502E501F582E502F583E503F0750103AA +:10025000C3750000E501F5F0E50935F0F501E500AD +:10026000F5F0E50A35F0F500E510F503E500F502D7 +:10027000E501F582E502F583E503F075170A7511CE +:1002800000751200751300750080E500F5F0E513A8 +:1002900025F0F513E500F5F0E51025F0F510750CE7 +:1002A00000751400751500751600750B00750A01B0 +:1002B000750001C3E510F5F0E51395F0F509E50BC0 +:1002C000F5F0E50B35F0F509E509F5F0E50055F039 +:1002D000F500E500F5F0E50C45F0F50C750001C3FF +:1002E000E510F5F0E51395F0F509E50BF5F0E50BF4 +:1002F00035F0F509E513F5F0E51095F0F501E50B9E +:10030000F5F0E50B35F0F501E501F5F0E50945F00F +:10031000F509E50AF5F0E50965F0F509E509F5F0F7 +:10032000E50055F0F500C3E50FF5F0E51295F0F5A1 +:1003300009E50BF5F0E50B35F0F509E509F5F0E514 +:100340000055F0F500E500F5F0E50C45F0F50C750D +:100350000001C3E510F5F0E51395F0F509E50BF59F +:10036000F0E50B35F0F509E513F5F0E51095F0F53E +:1003700001E50BF5F0E50B35F0F501E501F5F0E5EC +:100380000945F0F509E50AF5F0E50965F0F509E537 +:1003900009F5F0E50055F0F500C3E50FF5F0E512BD +:1003A00095F0F509E50BF5F0E50B35F0F509E512EB +:1003B000F5F0E50F95F0F501E50BF5F0E50B35F0FF +:1003C000F501E501F5F0E50945F0F509E50AF5F077 +:1003D000E50965F0F509E509F5F0E50055F0F500EA +:1003E000C3E50EF5F0E51195F0F509E50BF5F0E53F +:1003F0000B35F0F509E509F5F0E50055F0F500E5F8 +:1004000000F5F0E50C45F0F50C750001C3E510F5BD +:10041000F0E51395F0F509E50BF5F0E50B35F0F592 +:1004200009E513F5F0E51095F0F501E50BF5F0E5BC +:100430000B35F0F501E501F5F0E50945F0F509E5C5 +:100440000AF5F0E50965F0F509E509F5F0E500556F +:10045000F0F500C3E50FF5F0E51295F0F509E50BB1 +:10046000F5F0E50B35F0F509E512F5F0E50F95F03F +:10047000F501E50BF5F0E50B35F0F501E501F5F0DB +:10048000E50945F0F509E50AF5F0E50965F0F50936 +:10049000E509F5F0E50055F0F500C3E50EF5F0E5EA +:1004A0001195F0F509E50BF5F0E50B35F0F509E5EB +:1004B00011F5F0E50E95F0F501E50BF5F0E50B35DE +:1004C000F0F501E501F5F0E50945F0F509E50AF576 +:1004D000F0E50965F0F509E509F5F0E50055F0F5F9 +:1004E00000C3E50DF5F0E51795F0F509E50BF5F01E +:1004F000E50B35F0F509E509F5F0E50055F0F500F7 +:10050000E500F5F0E50C45F0F50C750000E50CF59F +:10051000F0E50045F0F500E514F5F0E50045F0F5EF +:1005200000E515F5F0E50045F0F500E516F5F0E518 +:100530000045F0F500E50070028003020626001277 +:100540000001750000E500F502E500F503E500F5A2 +:1005500004E500F50575E0092506F58275E000352E +:1005600007F583E0F51775E0082506F58275E000CC +:100570003507F583E0F51675E0072506F58275E089 +:10058000003507F583E0F51575E0062506F582755B +:10059000E0003507F583E0F51475E0052506F582E2 +:1005A00075E0003507F583E0F51375E0042506F5E1 +:1005B0008275E0003507F583E0F51275E003250646 +:1005C000F58275E0003507F583E0F51175E0022549 +:1005D00006F58275E0003507F583E0F51075E0005B +:1005E0002506F58275E0003507F583E0F508E50896 +:1005F000C0E075E0012506F58275E0003507F5835A +:10060000E0F508E508C0E075E00A2506F50675E0A6 +:10061000003507F507E502F582E503F583E504F506 +:1006200000E505F5012200751F00751E00751D000F +:10063000751C0002053F00E50675820AC39582F528 +:1006400006E5077583009583F507D0E0F50875E0AA +:10065000012506F58275E0003507F583E508F0D041 +:10066000E0F50875E0002506F58275E0003507F530 +:1006700083E508F075E0092506F58275E000350789 +:10068000F583E517F075E0082506F58275E000357D +:1006900007F583E516F075E0072506F58275E0009D +:1006A0003507F583E515F075E0062506F58275E05A +:1006B000003507F583E514F075E0052506F582752C +:1006C000E0003507F583E513F075E0042506F582B3 +:1006D00075E0003507F583E512F075E0032506F5B2 +:1006E0008275E0003507F583E511F075E002250617 +:1006F000F58275E0003507F583E510F0900000E520 +:1007000082F509900000E583F50B750100C37500C3 +:1007100000E501F5F0E50935F0F501E500F5F0E556 +:100720000B35F0F500E500F502E501F582E502F58F +:1007300083E0F50F750101C3750000E501F5F0E5F3 +:100740000935F0F501E500F5F0E50B35F0F500E5CC +:1007500000F502E501F582E502F583E0F50C75018F +:1007600002C3750000E501F5F0E50935F0F501E596 +:1007700000F5F0E50B35F0F500E500F502E501F5D3 +:1007800082E502F583E0F50A750103C3750000E513 +:1007900001F5F0E50935F0F501E500F5F0E50B357B +:1007A000F0F500E500F502E501F582E502F583E0EC +:1007B000F501750E01750B00750900750000C37514 +:1007C0000D00E50EF5F0E50F35F0F50DE50BF5F054 +:1007D000E50C35F0F50EE509F5F0E50A35F0F50F15 +:1007E000E500F5F0E50135F0F510900000E582F543 +:1007F00009900000E583F50A750100C3750000E566 +:1008000001F5F0E50935F0F501E500F5F0E50A350B +:10081000F0F500E50DF503E500F502E501F582E5EB +:1008200002F583E503F0750101C3750000E501F5EC +:10083000F0E50935F0F501E500F5F0E50A35F0F5EC +:1008400000E50EF503E500F502E501F582E502F5A8 +:1008500083E503F0750102C3750000E501F5F0E5DD +:100860000935F0F501E500F5F0E50A35F0F500E5AC +:100870000FF503E500F502E501F582E502F583E5F4 +:1008800003F0750103C3750000E501F5F0E50935D6 +:10089000F0F501E500F5F0E50A35F0F500E510F5B5 +:1008A00003E500F502E501F582E502F583E503F0D5 +:1008B00075170A751100751200751300750080E533 +:1008C00000F5F0E51325F0F513E500F5F0E510254A +:1008D000F0F510750C00751400751500751600758F +:1008E0000B00750A01750001C3E510F5F0E51395DD +:1008F000F0F509E50BF5F0E50B35F0F509E509F53F +:10090000F0E50055F0F500E500F5F0E50C45F0F5F3 +:100910000C750001C3E510F5F0E51395F0F509E558 +:100920000BF5F0E50B35F0F509E513F5F0E510955D +:10093000F0F501E50BF5F0E50B35F0F501E501F516 +:10094000F0E50945F0F509E50AF5F0E50965F0F58A +:1009500009E509F5F0E50055F0F500C3E50FF5F000 +:10096000E51295F0F509E50BF5F0E50B35F0F50925 +:10097000E509F5F0E50055F0F500E500F5F0E50CCA +:1009800045F0F50C750001C3E510F5F0E51395F0A1 +:10099000F509E50BF5F0E50B35F0F509E513F5F094 +:1009A000E51095F0F501E50BF5F0E50B35F0F501F7 +:1009B000E501F5F0E50945F0F509E50AF5F0E50989 +:1009C00065F0F509E509F5F0E50055F0F500C3E53A +:1009D0000FF5F0E51295F0F509E50BF5F0E50B35AF +:1009E000F0F509E512F5F0E50F95F0F501E50BF5E9 +:1009F000F0E50B35F0F501E501F5F0E50945F0F519 +:100A000009E50AF5F0E50965F0F509E509F5F0E510 +:100A10000055F0F500C3E50EF5F0E51195F0F50988 +:100A2000E50BF5F0E50B35F0F509E509F5F0E50026 +:100A300055F0F500E500F5F0E50C45F0F50C750016 +:100A400001C3E510F5F0E51395F0F509E50BF5F0B8 +:100A5000E50B35F0F509E513F5F0E51095F0F50136 +:100A6000E50BF5F0E50B35F0F501E501F5F0E509ED +:100A700045F0F509E50AF5F0E50965F0F509E50940 +:100A8000F5F0E50055F0F500C3E50FF5F0E512953A +:100A9000F0F509E50BF5F0E50B35F0F509E512F594 +:100AA000F0E50F95F0F501E50BF5F0E50B35F0F508 +:100AB00001E501F5F0E50945F0F509E50AF5F0E590 +:100AC0000965F0F509E509F5F0E50055F0F500C315 +:100AD000E50EF5F0E51195F0F509E50BF5F0E50B00 +:100AE00035F0F509E511F5F0E50E95F0F501E50BAA +:100AF000F5F0E50B35F0F501E501F5F0E50945F018 +:100B0000F509E50AF5F0E50965F0F509E509F5F0FF +:100B1000E50055F0F500C3E50DF5F0E51795F0F5A6 +:100B200009E50BF5F0E50B35F0F509E509F5F0E51C +:100B30000055F0F500E500F5F0E50C45F0F50C7515 +:100B40000000E50CF5F0E50045F0F500E514F5F0E2 +:100B5000E50045F0F500E515F5F0E50045F0F50098 +:100B6000E516F5F0E50045F0F500E50070028003BC +:100B7000020C5B00120636750000E500F502E50088 +:100B8000F503E500F504E500F50575E0092506F532 +:100B90008275E0003507F583E0F51775E008250656 +:100BA000F58275E0003507F583E0F51675E0072559 +:100BB00006F58275E0003507F583E0F51575E0066A +:100BC0002506F58275E0003507F583E0F51475E03C +:100BD000052506F58275E0003507F583E0F5137508 +:100BE000E0042506F58275E0003507F583E0F5128F +:100BF00075E0032506F58275E0003507F583E0F51D +:100C00001175E0022506F58275E0003507F583E0F1 +:100C1000F51075E0002506F58275E0003507F583CF +:100C2000E0F508E508C0E075E0012506F58275E00D +:100C3000003507F583E0F508E508C0E075E00A2512 +:100C400006F50675E0003507F507E502F582E503D0 +:100C5000F583E504F500E505F5012200751F007533 +:100C60001E00751D00751C00020B7400E5067582E0 +:100C70000AC39582F506E5077583009583F507D0CD +:100C8000E0F50875E0012506F58275E0003507F509 +:100C900083E508F0D0E0F50875E0002506F58275DB +:100CA000E0003507F583E508F075E0092506F582D3 +:100CB00075E0003507F583E517F075E0082506F5C2 +:100CC0008275E0003507F583E516F075E007250627 +:100CD000F58275E0003507F583E515F075E006252A +:100CE00006F58275E0003507F583E514F075E0053B +:100CF0002506F58275E0003507F583E513F075E00C +:100D0000042506F58275E0003507F583E512F075D8 +:100D1000E0032506F58275E0003507F583E511F05F +:100D200075E0022506F58275E0003507F583E510CC +:100D3000F0900000E582F509900000E583F50B7561 +:100D40000100C3750000E501F5F0E50935F0F50196 +:100D5000E500F5F0E50B35F0F500E500F502E501FD +:100D6000F582E502F583E0F50F750101C37500001A +:100D7000E501F5F0E50935F0F501E500F5F0E50BE5 +:100D800035F0F500E500F502E501F582E502F583B1 +:100D9000E0F50C750102C3750000E501F5F0E50909 +:100DA00035F0F501E500F5F0E50B35F0F500E5006F +:100DB000F502E501F582E502F583E0F50A75010328 +:100DC000C3750000E501F5F0E50935F0F501E50032 +:100DD000F5F0E50B35F0F500E500F502E501F582EB +:100DE000E502F583E0F501750E01750B007509004C +:100DF000750000C3750D00E50EF5F0E50F35F0F553 +:100E00000DE50BF5F0E50C35F0F50EE509F5F0E52F +:100E10000A35F0F50FE500F5F0E50135F0F5109035 +:100E20000000E582F509900000E583F50A750100F0 +:100E3000C3750000E501F5F0E50935F0F501E500C1 +:100E4000F5F0E50A35F0F500E50DF503E500F502EE +:100E5000E501F582E502F583E503F0750101C3754F +:100E60000000E501F5F0E50935F0F501E500F5F0E4 +:100E7000E50A35F0F500E50EF503E500F502E501BC +:100E8000F582E502F583E503F0750102C375000004 +:100E9000E501F5F0E50935F0F501E500F5F0E50AC5 +:100EA00035F0F500E50FF503E500F502E501F58203 +:100EB000E502F583E503F0750103C3750000E50164 +:100EC000F5F0E50935F0F501E500F5F0E50A35F056 +:100ED000F500E510F503E500F502E501F582E50210 +:100EE000F583E503F075170A751100751200751387 +:100EF00000750080E500F5F0E51325F0F513E50039 +:100F0000F5F0E51025F0F510750C00751400751559 +:100F100000751600750B00750A01750001C3E51018 +:100F2000F5F0E51395F0F509E50BF5F0E50B35F077 +:100F3000F509E509F5F0E50055F0F500E500F5F0F7 +:100F4000E50C45F0F50C750001C3E510F5F0E5136F +:100F500095F0F509E50BF5F0E50B35F0F509E5132E +:100F6000F5F0E51095F0F501E50BF5F0E50B35F042 +:100F7000F501E501F5F0E50945F0F509E50AF5F0BB +:100F8000E50965F0F509E509F5F0E50055F0F5002E +:100F9000C3E50FF5F0E51295F0F509E50BF5F0E581 +:100FA0000B35F0F509E509F5F0E50055F0F500E53C +:100FB00000F5F0E50C45F0F50C750001C3E510F502 +:100FC000F0E51395F0F509E50BF5F0E50B35F0F5D7 +:100FD00009E513F5F0E51095F0F501E50BF5F0E501 +:100FE0000B35F0F501E501F5F0E50945F0F509E50A +:100FF0000AF5F0E50965F0F509E509F5F0E50055B4 +:10100000F0F500C3E50FF5F0E51295F0F509E50BF5 +:10101000F5F0E50B35F0F509E512F5F0E50F95F083 +:10102000F501E50BF5F0E50B35F0F501E501F5F01F +:10103000E50945F0F509E50AF5F0E50965F0F5097A +:10104000E509F5F0E50055F0F500C3E50EF5F0E52E +:101050001195F0F509E50BF5F0E50B35F0F509E52F +:1010600009F5F0E50055F0F500E500F5F0E50C4573 +:10107000F0F50C750001C3E510F5F0E51395F0F5FA +:1010800009E50BF5F0E50B35F0F509E513F5F0E5AD +:101090001095F0F501E50BF5F0E50B35F0F501E500 +:1010A00001F5F0E50945F0F509E50AF5F0E5096512 +:1010B000F0F509E509F5F0E50055F0F500C3E50F99 +:1010C000F5F0E51295F0F509E50BF5F0E50B35F0D7 +:1010D000F509E512F5F0E50F95F0F501E50BF5F0F2 +:1010E000E50B35F0F501E501F5F0E50945F0F50909 +:1010F000E50AF5F0E50965F0F509E509F5F0E50023 +:1011000055F0F500C3E50EF5F0E51195F0F509E5AC +:101110000BF5F0E50B35F0F509E511F5F0E50E9569 +:10112000F0F501E50BF5F0E50B35F0F501E501F51E +:10113000F0E50945F0F509E50AF5F0E50965F0F592 +:1011400009E509F5F0E50055F0F500C3E50DF5F00A +:10115000E51795F0F509E50BF5F0E50B35F0F50928 +:10116000E509F5F0E50055F0F500E500F5F0E50CD2 +:1011700045F0F50C750000E50CF5F0E50045F0F5DF +:1011800000E514F5F0E50045F0F500E515F5F0E5AE +:101190000045F0F500E516F5F0E50045F0F500E551 +:1011A00000700280030212AD00120C6BE582F502A2 +:1011B000E583F503E500F504E501F505E502F50035 +:1011C000E503F501E504F509E505F50AE500F50295 +:1011D000E501F503E509F504E50AF50575E00925DE +:1011E00006F58275E0003507F583E0F51775E00830 +:1011F0002506F58275E0003507F583E0F51675E004 +:10120000072506F58275E0003507F583E0F51575CD +:10121000E0062506F58275E0003507F583E0F51454 +:1012200075E0052506F58275E0003507F583E0F5E4 +:101230001375E0042506F58275E0003507F583E0B7 +:10124000F51275E0032506F58275E0003507F58394 +:10125000E0F51175E0022506F58275E0003507F529 +:1012600083E0F51075E0002506F58275E00035078E +:10127000F583E0F508E508C0E075E0012506F58294 +:1012800075E0003507F583E0F508E508C0E075E096 +:101290000A2506F50675E0003507F507E502F58233 +:1012A000E503F583E504F500E505F5012200751F6A +:1012B00000751E00751D00751C000211A900E506D1 +:1012C00075820BC39582F506E5077583009583F556 +:1012D00007D0E0F50875E0022506F58275E00035D7 +:1012E00007F583E508F0D0E0F50875E0012506F57F +:1012F0008275E0003507F583E508F075E00A2506FC +:10130000F58275E0003507F583E517F075E00925EE +:1013100006F58275E0003507F583E516F075E008FF +:101320002506F58275E0003507F583E515F075E0D3 +:10133000072506F58275E0003507F583E514F0759D +:10134000E0062506F58275E0003507F583E513F024 +:1013500075E0052506F58275E0003507F583E51291 +:10136000F075E0042506F58275E0003507F583E5A4 +:1013700011F075E0032506F58275E0003507F58369 +:10138000E510F0900000E582F509900000E583F596 +:101390000B750100C3750000E501F5F0E50935F0B6 +:1013A000F501E500F5F0E50B35F0F500E500F50297 +:1013B000E501F582E502F583E0F50F750101C375DE +:1013C0000000E501F5F0E50935F0F501E500F5F07F +:1013D000E50B35F0F500E500F502E501F582E502E3 +:1013E000F583E0F50C750102C3750000E501F5F029 +:1013F000E50935F0F501E500F5F0E50B35F0F50010 +:10140000E500F502E501F582E502F583E0F50A75F0 +:101410000103C3750000E501F5F0E50935F0F501BC +:10142000E500F5F0E50B35F0F500E500F502E50126 +:10143000F582E502F583E0F501750E01750B007587 +:101440000900750000C3750D00E50EF5F0E50F35D8 +:10145000F0F50DE50BF5F0E50C35F0F50EE509F5C9 +:10146000F0E50A35F0F50FE500F5F0E50135F0F5AA +:1014700010900000E582F509900000E583F50A75FB +:101480000100C3750000E501F5F0E50935F0F5014F +:10149000E500F5F0E50A35F0F500E50DF503E500AA +:1014A000F502E501F582E502F583E503F07501013A +:1014B000C3750000E501F5F0E50935F0F501E5003B +:1014C000F5F0E50A35F0F500E50EF503E500F50267 +:1014D000E501F582E502F583E503F0750102C375C8 +:1014E0000000E501F5F0E50935F0F501E500F5F05E +:1014F000E50A35F0F500E50FF503E500F502E50135 +:10150000F582E502F583E503F0750103C37500007C +:10151000E501F5F0E50935F0F501E500F5F0E50A3E +:1015200035F0F500E510F503E500F502E501F5827B +:10153000E502F583E503F075170A751100751200D1 +:10154000751300750080E500F5F0E51325F0F5133F +:10155000E500F5F0E51025F0F510750C00751400A8 +:10156000751500751600750B00750A01750001C32D +:10157000E510F5F0E51395F0F509E50BF5F0E50B51 +:1015800035F0F509E509F5F0E50055F0F500E50061 +:10159000F5F0E50C45F0F50C750001C3E510F5F02C +:1015A000E51395F0F509E50BF5F0E50B35F0F509D8 +:1015B000E513F5F0E51095F0F501E50BF5F0E50B19 +:1015C00035F0F501E501F5F0E50945F0F509E50A25 +:1015D000F5F0E50965F0F509E509F5F0E50055F0E8 +:1015E000F500C3E50FF5F0E51295F0F509E50BF50B +:1015F000F0E50B35F0F509E509F5F0E50055F0F5F6 +:1016000000E500F5F0E50C45F0F50C750001C3E5CB +:1016100010F5F0E51395F0F509E50BF5F0E50B3560 +:10162000F0F509E513F5F0E51095F0F501E50BF59A +:10163000F0E50B35F0F501E501F5F0E50945F0F5CC +:1016400009E50AF5F0E50965F0F509E509F5F0E5C4 +:101650000055F0F500C3E50FF5F0E51295F0F5093A +:10166000E50BF5F0E50B35F0F509E512F5F0E50FC2 +:1016700095F0F501E50BF5F0E50B35F0F501E50129 +:10168000F5F0E50945F0F509E50AF5F0E50965F03D +:10169000F509E509F5F0E50055F0F500C3E50EF5AF +:1016A000F0E51195F0F509E50BF5F0E50B35F0F5F2 +:1016B00009E509F5F0E50055F0F500E500F5F0E580 +:1016C0000C45F0F50C750001C3E510F5F0E5139538 +:1016D000F0F509E50BF5F0E50B35F0F509E513F547 +:1016E000F0E51095F0F501E50BF5F0E50B35F0F5BB +:1016F00001E501F5F0E50945F0F509E50AF5F0E544 +:101700000965F0F509E509F5F0E50055F0F500C3C8 +:10171000E50FF5F0E51295F0F509E50BF5F0E50BB1 +:1017200035F0F509E512F5F0E50F95F0F501E50B5B +:10173000F5F0E50B35F0F501E501F5F0E50945F0CB +:10174000F509E50AF5F0E50965F0F509E509F5F0B3 +:10175000E50055F0F500C3E50EF5F0E51195F0F55F +:1017600009E50BF5F0E50B35F0F509E511F5F0E5C8 +:101770000E95F0F501E50BF5F0E50B35F0F501E51B +:1017800001F5F0E50945F0F509E50AF5F0E509652B +:10179000F0F509E509F5F0E50055F0F500C3E50DB4 +:1017A000F5F0E51795F0F509E50BF5F0E50B35F0EB +:1017B000F509E509F5F0E50055F0F500E500F5F06F +:1017C000E50C45F0F50C750000E50CF5F0E500457D +:1017D000F0F500E514F5F0E50045F0F500E515F548 +:1017E000F0E50045F0F500E516F5F0E50045F0F50B +:1017F00000E50070028003021913001212BD75E0AB +:10180000002506F58275E0003507F583E0F50275E1 +:10181000E0002506F58275E0003507F583E0F50365 +:1018200075E0002506F58275E0003507F583E0F5E3 +:101830000475E0002506F58275E0003507F583E0C4 +:10184000F50575E00A2506F58275E0003507F58394 +:10185000E0F51775E0092506F58275E0003507F516 +:1018600083E0F51675E0082506F58275E00035077A +:10187000F583E0F51575E0072506F58275E000357E +:1018800007F583E0F51475E0062506F58275E0009E +:101890003507F583E0F51375E0052506F58275E05B +:1018A000003507F583E0F51275E0042506F582752D +:1018B000E0003507F583E0F51175E0032506F582B4 +:1018C00075E0003507F583E0F51075E0012506F5B4 +:1018D0008275E0003507F583E0F508E508C0E0759E +:1018E000E0022506F58275E0003507F583E0F5088E +:1018F000E508C0E075E00B2506F50675E000350744 +:10190000F507E502F582E503F583E504F500E50555 +:10191000F5012200751F00751E00751D00751C0065 +:101920000217FB00000000000000000000000000A3 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/noreturn-7.s.expected b/tests/GCCTestSuite/noreturn-7.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/noreturn-7.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/null-pointer-1.c b/tests/GCCTestSuite/null-pointer-1.c new file mode 100644 index 0000000..8cc15c6 --- /dev/null +++ b/tests/GCCTestSuite/null-pointer-1.c @@ -0,0 +1,20 @@ +/* PR c/13382 */ +/* Origin: Richard Hutchinson */ + +/* Verify that the null initializer is converted to the right + pointer type. */ + +/* { dg-do compile } */ +/* { dg-options "-O" } */ + +struct t +{ + int aMember; +}; + +struct t *const aPointer = 0; + +void foo() +{ + int anInt = (aPointer == 0) ? 0 : aPointer->aMember; +} diff --git a/tests/GCCTestSuite/null-pointer-1.c.expected b/tests/GCCTestSuite/null-pointer-1.c.expected new file mode 100644 index 0000000..8cc15c6 --- /dev/null +++ b/tests/GCCTestSuite/null-pointer-1.c.expected @@ -0,0 +1,20 @@ +/* PR c/13382 */ +/* Origin: Richard Hutchinson */ + +/* Verify that the null initializer is converted to the right + pointer type. */ + +/* { dg-do compile } */ +/* { dg-options "-O" } */ + +struct t +{ + int aMember; +}; + +struct t *const aPointer = 0; + +void foo() +{ + int anInt = (aPointer == 0) ? 0 : aPointer->aMember; +} diff --git a/tests/GCCTestSuite/null-pointer-1.hex.expected b/tests/GCCTestSuite/null-pointer-1.hex.expected new file mode 100644 index 0000000..c59a790 --- /dev/null +++ b/tests/GCCTestSuite/null-pointer-1.hex.expected @@ -0,0 +1,29 @@ +:1000000000D0E0F50ED0E0F50FE510F50D90000002 +:10001000E582F50A900000E583F50B750900C375CC +:100020000000E509F5F0E50A35F0F509E500F5F021 +:10003000E50B35F0F501E501F502E509F582E5028C +:10004000F583E0F500750901C3750100E509F5F0D8 +:10005000E50A35F0F509E501F5F0E50B35F0F501B8 +:10006000E501F502E509F582E502F583E0F50A759B +:100070000100750900750C00C3E501F5F0E5009578 +:10008000F0F500E500F5F0E50C45F0F50CC3E509E9 +:10009000F5F0E50A95F0F500E500F5F0E50C45F022 +:1000A000F50C750100750900750A00E50CF5007581 +:1000B0000C01C3750B00E500F5F0E50B95F0F50BB1 +:1000C000750B00E50BF5F0E50B35F0F50BE50BF5E1 +:1000D000F0E50C65F0F50CC3750B00E501F5F0E5F6 +:1000E0000B95F0F50B750B00E50BF5F0E50B35F016 +:1000F000F50BE50BF5F0E50C65F0F50CC3750B00A1 +:10010000E509F5F0E50B95F0F50B750B00E50BF542 +:10011000F0E50B35F0F50BE50BF5F0E50C65F0F5CA +:100120000CC3750B00E50AF5F0E50B95F0F50B75C2 +:100130000B00E50BF5F0E50B35F0F50BE50BF5F0F5 +:10014000E50C65F0F50C750100750900750A007580 +:100150000000E50CF5F0E50045F0F500E501F5F0EF +:10016000E50045F0F500E509F5F0E50045F0F5009E +:10017000E50AF5F0E50045F0F500E50070028003C2 +:100180000201BB00C3C3C3C3C3C3C3750000E50002 +:10019000F502E500F503E500F504E500F505E50DDC +:1001A000F510E50FC0E0E50EC0E0E502F582E503DD +:1001B000F583E504F500E505F501220002018B0059 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/null-pointer-1.s.expected b/tests/GCCTestSuite/null-pointer-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/null-pointer-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/old-style-then-proto-1.c b/tests/GCCTestSuite/old-style-then-proto-1.c new file mode 100644 index 0000000..abe02d0 --- /dev/null +++ b/tests/GCCTestSuite/old-style-then-proto-1.c @@ -0,0 +1,44 @@ +/* Test for old-style definition followed by prototype declaration. + Mismatched qualifiers used to be wrongly forbidden. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +void f1() {} +void f1(void); /* { dg-warning "warning: prototype for 'f1' follows non-prototype definition" } */ + +void f2() {} /* { dg-error "error: previous definition of 'f2' was here" } */ +void f2(int); /* { dg-error "error: prototype for 'f2' declares more arguments than previous old-style definition" } */ + +void f3(a) int a; {} /* { dg-error "error: previous definition of 'f3' was here" } */ +void f3(void); /* { dg-error "error: prototype for 'f3' declares fewer arguments than previous old-style definition" } */ + +void f4(a) int a; {} +void f4(int); /* { dg-warning "warning: prototype for 'f4' follows non-prototype definition" } */ + +void f5(a) int a; {} /* { dg-error "error: previous definition of 'f5' was here" } */ +void f5(int, int); /* { dg-error "error: prototype for 'f5' declares more arguments than previous old-style definition" } */ + +void f6(a) int a; {} /* { dg-error "error: previous definition of 'f6' was here" } */ +void f6(int, ...); /* { dg-error "error: conflicting types for 'f6'" } */ + +void f7(a, b) int a, b; {} /* { dg-error "error: previous definition of 'f7' was here" } */ +void f7(int); /* { dg-error "error: prototype for 'f7' declares fewer arguments than previous old-style definition" } */ + +void f8(a, b) int a, b; {} /* { dg-error "error: previous definition of 'f8' was here" } */ +void f8(int, ...); /* { dg-error "error: conflicting types for 'f8'" } */ + +void f9(a, b) int a, b; {} +void f9(int, int); /* { dg-warning "warning: prototype for 'f9' follows non-prototype definition" } */ + +void f10(a, b) int a, b; {} /* { dg-error "error: previous definition of 'f10' was here" } */ +void f10(int, long); /* { dg-error "error: prototype for 'f10' declares argument 2 with incompatible type" } */ + +void f11(a, b) int a, b; {} /* { dg-error "error: previous definition of 'f11' was here" } */ +void f11(long, int); /* { dg-error "error: prototype for 'f11' declares argument 1 with incompatible type" } */ + +void f12(a, b) const int a; volatile int b; {} +void f12(volatile int, const int); /* { dg-warning "warning: prototype for 'f12' follows non-prototype definition" } */ + +void f13(a) const int a[2][2]; {} /* { dg-error "error: previous definition of 'f13' was here" } */ +void f13(volatile int [2][2]); /* { dg-error "error: prototype for 'f13' declares argument 1 with incompatible type" } */ diff --git a/tests/GCCTestSuite/old-style-then-proto-1.c.expected b/tests/GCCTestSuite/old-style-then-proto-1.c.expected new file mode 100644 index 0000000..abe02d0 --- /dev/null +++ b/tests/GCCTestSuite/old-style-then-proto-1.c.expected @@ -0,0 +1,44 @@ +/* Test for old-style definition followed by prototype declaration. + Mismatched qualifiers used to be wrongly forbidden. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +void f1() {} +void f1(void); /* { dg-warning "warning: prototype for 'f1' follows non-prototype definition" } */ + +void f2() {} /* { dg-error "error: previous definition of 'f2' was here" } */ +void f2(int); /* { dg-error "error: prototype for 'f2' declares more arguments than previous old-style definition" } */ + +void f3(a) int a; {} /* { dg-error "error: previous definition of 'f3' was here" } */ +void f3(void); /* { dg-error "error: prototype for 'f3' declares fewer arguments than previous old-style definition" } */ + +void f4(a) int a; {} +void f4(int); /* { dg-warning "warning: prototype for 'f4' follows non-prototype definition" } */ + +void f5(a) int a; {} /* { dg-error "error: previous definition of 'f5' was here" } */ +void f5(int, int); /* { dg-error "error: prototype for 'f5' declares more arguments than previous old-style definition" } */ + +void f6(a) int a; {} /* { dg-error "error: previous definition of 'f6' was here" } */ +void f6(int, ...); /* { dg-error "error: conflicting types for 'f6'" } */ + +void f7(a, b) int a, b; {} /* { dg-error "error: previous definition of 'f7' was here" } */ +void f7(int); /* { dg-error "error: prototype for 'f7' declares fewer arguments than previous old-style definition" } */ + +void f8(a, b) int a, b; {} /* { dg-error "error: previous definition of 'f8' was here" } */ +void f8(int, ...); /* { dg-error "error: conflicting types for 'f8'" } */ + +void f9(a, b) int a, b; {} +void f9(int, int); /* { dg-warning "warning: prototype for 'f9' follows non-prototype definition" } */ + +void f10(a, b) int a, b; {} /* { dg-error "error: previous definition of 'f10' was here" } */ +void f10(int, long); /* { dg-error "error: prototype for 'f10' declares argument 2 with incompatible type" } */ + +void f11(a, b) int a, b; {} /* { dg-error "error: previous definition of 'f11' was here" } */ +void f11(long, int); /* { dg-error "error: prototype for 'f11' declares argument 1 with incompatible type" } */ + +void f12(a, b) const int a; volatile int b; {} +void f12(volatile int, const int); /* { dg-warning "warning: prototype for 'f12' follows non-prototype definition" } */ + +void f13(a) const int a[2][2]; {} /* { dg-error "error: previous definition of 'f13' was here" } */ +void f13(volatile int [2][2]); /* { dg-error "error: prototype for 'f13' declares argument 1 with incompatible type" } */ diff --git a/tests/GCCTestSuite/old-style-then-proto-1.hex.expected b/tests/GCCTestSuite/old-style-then-proto-1.hex.expected new file mode 100644 index 0000000..08bd84a --- /dev/null +++ b/tests/GCCTestSuite/old-style-then-proto-1.hex.expected @@ -0,0 +1,67 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F5012200D0E0F500D0E0F5017509F5 +:1000400000E509F502E509F503E509F504E509F51B +:1000500005E501C0E0E500C0E0E502F582E503F555 +:1000600083E504F500E505F5012200E50675820447 +:10007000C39582F506E5077583009583F507D0E003 +:10008000F500D0E0F501750900E509F502E509F58F +:1000900003E509F504E509F505E501C0E0E500C063 +:1000A000E075E0042506F50675E0003507F507E57F +:1000B00002F582E503F583E504F500E505F5012287 +:1000C00000E506758204C39582F506E50775830091 +:1000D0009583F507D0E0F500D0E0F501750900E55E +:1000E00009F502E509F503E509F504E509F505E576 +:1000F00001C0E0E500C0E075E0042506F50675E006 +:10010000003507F507E502F582E503F583E504F51B +:1001100000E505F5012200E506758204C39582F528 +:1001200006E5077583009583F507D0E0F500D0E07C +:10013000F501750900E509F502E509F503E509F59D +:1001400004E509F505E501C0E0E500C0E075E0045F +:100150002506F50675E0003507F507E502F582E5A9 +:1001600003F583E504F500E505F5012200E50675D4 +:100170008204C39582F506E5077583009583F5072C +:10018000D0E0F500D0E0F501750900E509F502E5DC +:1001900009F503E509F504E509F505E501C0E0E524 +:1001A00000C0E075E0042506F50675E0003507F5AA +:1001B00007E502F582E503F583E504F500E505F5BD +:1001C000012200E506758208C39582F506E50775EC +:1001D00083009583F507D0E0F500D0E0F5017509BF +:1001E00000E509F502E509F503E509F504E509F57A +:1001F00005E501C0E0E500C0E075E0082506F5066C +:1002000075E0003507F507E502F582E503F583E5BE +:1002100004F500E505F5012200E506758208C395A1 +:1002200082F506E5077583009583F507D0E0F500B4 +:10023000D0E0F501750900E509F502E509F503E5EA +:1002400009F504E509F505E501C0E0E500C0E07544 +:10025000E0082506F50675E0003507F507E502F527 +:1002600082E503F583E504F500E505F5012200E5E7 +:1002700006758208C39582F506E5077583009583A8 +:10028000F507D0E0F500D0E0F501750900E509F5C6 +:1002900002E509F503E509F504E509F505E501C001 +:1002A000E0E500C0E075E0082506F50675E00035DC +:1002B00007F507E502F582E503F583E504F500E5BA +:1002C00005F5012200E506758208C39582F506E56D +:1002D000077583009583F507D0E0F500D0E0F501C0 +:1002E000750900E509F502E509F503E509F504E5F9 +:1002F00009F505E501C0E0E500C0E075E008250668 +:10030000F50675E0003507F507E502F582E503F52A +:1003100083E504F500E505F5012200E50675820890 +:10032000C39582F506E5077583009583F507D0E050 +:10033000F500D0E0F501750900E509F502E509F5DC +:1003400003E509F504E509F505E501C0E0E500C0B0 +:10035000E075E0082506F50675E0003507F507E5C8 +:1003600002F582E503F583E504F500E505F50122D4 +:1003700000E506758208C39582F506E507758300DA +:100380009583F507D0E0F500D0E0F501750900E5AB +:1003900009F502E509F503E509F504E509F505E5C3 +:1003A00001C0E0E500C0E075E0082506F50675E04F +:1003B000003507F507E502F582E503F583E504F569 +:1003C00000E505F5012200E506758202C39582F578 +:1003D00006E5077583009583F507D0E0F500D0E0CA +:1003E000F501750900E509F502E509F503E509F5EB +:1003F00004E509F505E501C0E0E500C0E075E002AF +:100400002506F50675E0003507F507E502F582E5F6 +:1004100003F583E504F500E505F501220000000081 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/old-style-then-proto-1.s.expected b/tests/GCCTestSuite/old-style-then-proto-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/old-style-then-proto-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/overflow-1.c b/tests/GCCTestSuite/overflow-1.c new file mode 100644 index 0000000..db51a5e --- /dev/null +++ b/tests/GCCTestSuite/overflow-1.c @@ -0,0 +1,25 @@ +/* PR optimization/13318 */ +/* Origin: */ +/* Reduced testcase: Wolfgang Bangerth */ + +/* Verify that the big multiplier doesn't cause an integer + overflow in the loop optimizer. */ + +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +struct S { + int key; + int rnext,rprev; +}; + +void foo(struct S* H) +{ + int i, k; + for (i=0; i<2; i++){ + struct S* cell=H+k; + cell->key=i*(0xffffffffUL/2); + cell->rnext=k+(1-i); + cell->rprev=k+(1-i); + } +} diff --git a/tests/GCCTestSuite/overflow-1.c.expected b/tests/GCCTestSuite/overflow-1.c.expected new file mode 100644 index 0000000..db51a5e --- /dev/null +++ b/tests/GCCTestSuite/overflow-1.c.expected @@ -0,0 +1,25 @@ +/* PR optimization/13318 */ +/* Origin: */ +/* Reduced testcase: Wolfgang Bangerth */ + +/* Verify that the big multiplier doesn't cause an integer + overflow in the loop optimizer. */ + +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +struct S { + int key; + int rnext,rprev; +}; + +void foo(struct S* H) +{ + int i, k; + for (i=0; i<2; i++){ + struct S* cell=H+k; + cell->key=i*(0xffffffffUL/2); + cell->rnext=k+(1-i); + cell->rprev=k+(1-i); + } +} diff --git a/tests/GCCTestSuite/overflow-1.hex.expected b/tests/GCCTestSuite/overflow-1.hex.expected new file mode 100644 index 0000000..9442f42 --- /dev/null +++ b/tests/GCCTestSuite/overflow-1.hex.expected @@ -0,0 +1,337 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF500E51EF501E51DD8 +:1000D000F509E51CF50AE51AF515E519F513750F8F +:1000E00000751000751100751200E500F516E501A8 +:1000F000F514E509F50DE50AF50E750C0075170008 +:10010000751900751A00750B00750A01750001C399 +:10011000E518F5F0E50E95F0F509E50BF5F0E50BC2 +:1001200035F0F509E509F5F0E50055F0F500E500D5 +:10013000F5F0E50C45F0F50C750001C3E518F5F098 +:10014000E50E95F0F509E50BF5F0E50B35F0F50951 +:10015000E50EF5F0E51895F0F501E50BF5F0E50B8A +:1001600035F0F501E501F5F0E50945F0F509E50A99 +:10017000F5F0E50965F0F509E509F5F0E50055F05C +:10018000F500C3E513F5F0E50D95F0F509E50BF580 +:10019000F0E50B35F0F509E509F5F0E50055F0F56A +:1001A00000E500F5F0E50C45F0F50C750001C3E540 +:1001B00018F5F0E50E95F0F509E50BF5F0E50B35D2 +:1001C000F0F509E50EF5F0E51895F0F501E50BF50C +:1001D000F0E50B35F0F501E501F5F0E50945F0F541 +:1001E00009E50AF5F0E50965F0F509E509F5F0E539 +:1001F0000055F0F500C3E513F5F0E50D95F0F509B0 +:10020000E50BF5F0E50B35F0F509E50DF5F0E51337 +:1002100095F0F501E50BF5F0E50B35F0F501E5019D +:10022000F5F0E50945F0F509E50AF5F0E50965F0B1 +:10023000F509E509F5F0E50055F0F500C3E515F51C +:10024000F0E51495F0F509E50BF5F0E50B35F0F563 +:1002500009E509F5F0E50055F0F500E500F5F0E5F4 +:100260000C45F0F50C750001C3E518F5F0E50E95A9 +:10027000F0F509E50BF5F0E50B35F0F509E50EF5C0 +:10028000F0E51895F0F501E50BF5F0E50B35F0F527 +:1002900001E501F5F0E50945F0F509E50AF5F0E5B8 +:1002A0000965F0F509E509F5F0E50055F0F500C33D +:1002B000E513F5F0E50D95F0F509E50BF5F0E50B27 +:1002C00035F0F509E50DF5F0E51395F0F501E50BD1 +:1002D000F5F0E50B35F0F501E501F5F0E50945F040 +:1002E000F509E50AF5F0E50965F0F509E509F5F028 +:1002F000E50055F0F500C3E515F5F0E51495F0F5CA +:1003000009E50BF5F0E50B35F0F509E514F5F0E539 +:100310001595F0F501E50BF5F0E50B35F0F501E588 +:1003200001F5F0E50945F0F509E50AF5F0E509659F +:10033000F0F509E509F5F0E50055F0F500C3E51B1A +:10034000F5F0E51695F0F509E50BF5F0E50B35F060 +:10035000F509E509F5F0E50055F0F500E500F5F0E3 +:10036000E50C45F0F50CE517F500E519F501E51A82 +:10037000F509E50CF50B750C01C3750A00E50BF5E5 +:10038000F0E50A95F0F50A750A00E50AF5F0E50AC8 +:1003900035F0F50AE50AF5F0E50C65F0F50CC375E6 +:1003A0000A00E500F5F0E50A95F0F50A750A00E5A2 +:1003B0000AF5F0E50A35F0F50AE50AF5F0E50C6511 +:1003C000F0F50CC3750A00E501F5F0E50A95F0F5C6 +:1003D0000A750A00E50AF5F0E50A35F0F50AE50ABE +:1003E000F5F0E50C65F0F50CC3750A00E509F5F0CC +:1003F000E50A95F0F50A750A00E50AF5F0E50A3513 +:10040000F0F50AE50AF5F0E50C65F0F50C7500006D +:10041000750100750900E500F50BE501F50A7501A8 +:1004200001C3750000E50CF5F0E50095F0F50075E9 +:100430000000E500F5F0E50035F0F500E500F5F029 +:10044000E50165F0F501C3750000E50BF5F0E50089 +:1004500095F0F500750000E500F5F0E50035F0F5E4 +:1004600000E500F5F0E50165F0F501C3750000E574 +:100470000AF5F0E50095F0F500750000E500F5F0EF +:10048000E50035F0F500E500F5F0E50165F0F50172 +:10049000C3750000E509F5F0E50095F0F50075007D +:1004A00000E500F5F0E50035F0F500E500F5F0E5D4 +:1004B0000165F0F501750900750A00750B007500FE +:1004C00000E501F5F0E50045F0F500E509F5F0E59A +:1004D0000045F0F500E50AF5F0E50045F0F500E52A +:1004E0000BF5F0E50045F0F500E500700280030231 +:1004F000055700750001750100750900750A00C3F4 +:10050000750B00E500F5F0E50F35F0F50FE501F5A9 +:10051000F0E51035F0F510E509F5F0E51135F0F5E9 +:1005200011E50AF5F0E51235F0F512C3E51BF5F01B +:10053000E51695F0F516E515F5F0E51495F0F514CA +:10054000E513F5F0E50D95F0F50DE518F5F0E50E80 +:1005500095F0F50E0200FA00E50FF502E510F5033F +:10056000E511F504E512F50575E0092506F5827536 +:10057000E0003507F583E0F51775E0082506F582FC +:1005800075E0003507F583E0F51675E0072506F5FB +:100590008275E0003507F583E0F51575E006250660 +:1005A000F58275E0003507F583E0F51475E0052563 +:1005B00006F58275E0003507F583E0F51375E00474 +:1005C0002506F58275E0003507F583E0F51275E044 +:1005D000032506F58275E0003507F583E0F5117512 +:1005E000E0022506F58275E0003507F583E0F51099 +:1005F00075E0002506F58275E0003507F583E0F526 +:1006000008E508C0E075E0012506F58275E00035D3 +:1006100007F583E0F508E508C0E075E0122506F56A +:100620000675E0003507F507E502F582E503F58379 +:10063000E504F500E505F5012200E506758214C321 +:100640009582F506E5077583009583F507D0E0F5FB +:100650000875E0092506F58275E0003507F583E5A4 +:1006600008F0D0E0F50875E0082506F58275E00091 +:100670003507F583E508F075E0112506F58275E08C +:10068000003507F583E517F075E0102506F582754E +:10069000E0003507F583E516F075E00F2506F582D5 +:1006A00075E0003507F583E515F075E00E2506F5D4 +:1006B0008275E0003507F583E514F075E00D250639 +:1006C000F58275E0003507F583E513F075E00C253C +:1006D00006F58275E0003507F583E512F075E00B4D +:1006E0002506F58275E0003507F583E511F075E024 +:1006F0000A2506F58275E0003507F583E510F075EB +:10070000E0012506F58275E0003507F583E51FF069 +:1007100075E0002506F58275E0003507F583E51ED6 +:10072000F075080075E0072506F58275E0003507CD +:10073000F583E508F075160075100075080075E082 +:10074000052506F58275E0003507F583E508F075A7 +:10075000150275140075110075120075E005250667 +:10076000F58275E0003507F583E0F513750080E547 +:1007700000F5F0E51325F0F513E500F5F0E5122599 +:10078000F0F512750C00750D00750E00750F0075F3 +:100790000B00750A01750001C3E512F5F0E513952C +:1007A000F0F509E50BF5F0E50B35F0F509E509F590 +:1007B000F0E50055F0F500E500F5F0E50C45F0F545 +:1007C0000C750001C3E512F5F0E51395F0F509E5A8 +:1007D0000BF5F0E50B35F0F509E513F5F0E51295AD +:1007E000F0F501E50BF5F0E50B35F0F501E501F568 +:1007F000F0E50945F0F509E50AF5F0E50965F0F5DC +:1008000009E509F5F0E50055F0F500C3E511F5F04F +:10081000E51095F0F509E50BF5F0E50B35F0F50978 +:10082000E509F5F0E50055F0F500E500F5F0E50C1B +:1008300045F0F50C750001C3E512F5F0E51395F0F0 +:10084000F509E50BF5F0E50B35F0F509E513F5F0E5 +:10085000E51295F0F501E50BF5F0E50B35F0F50146 +:10086000E501F5F0E50945F0F509E50AF5F0E509DA +:1008700065F0F509E509F5F0E50055F0F500C3E58B +:1008800011F5F0E51095F0F509E50BF5F0E50B3500 +:10089000F0F509E510F5F0E51195F0F501E50BF53A +:1008A000F0E50B35F0F501E501F5F0E50945F0F56A +:1008B00009E50AF5F0E50965F0F509E509F5F0E562 +:1008C0000055F0F500C3E514F5F0E51695F0F509CF +:1008D000E50BF5F0E50B35F0F509E509F5F0E50078 +:1008E00055F0F500E500F5F0E50C45F0F50C750068 +:1008F00001C3E512F5F0E51395F0F509E50BF5F008 +:10090000E50B35F0F509E513F5F0E51295F0F50185 +:10091000E50BF5F0E50B35F0F501E501F5F0E5093E +:1009200045F0F509E50AF5F0E50965F0F509E50991 +:10093000F5F0E50055F0F500C3E511F5F0E510958B +:10094000F0F509E50BF5F0E50B35F0F509E510F5E7 +:10095000F0E51195F0F501E50BF5F0E50B35F0F557 +:1009600001E501F5F0E50945F0F509E50AF5F0E5E1 +:100970000965F0F509E509F5F0E50055F0F500C366 +:10098000E514F5F0E51695F0F509E50BF5F0E50B46 +:1009900035F0F509E516F5F0E51495F0F501E50BF0 +:1009A000F5F0E50B35F0F501E501F5F0E50945F069 +:1009B000F509E50AF5F0E50965F0F509E509F5F051 +:1009C000E50055F0F500C3E515F5F075E0072506DF +:1009D000F58275E0003507F583E0F508E50895F048 +:1009E000F509E50BF5F0E50B35F0F509E509F5F04E +:1009F000E50055F0F500E500F5F0E50C45F0F50CE7 +:100A0000750101C3750000E50CF5F0E50095F0F502 +:100A100000750000E500F5F0E50035F0F500E500B3 +:100A2000F5F0E50165F0F501C3750000E50DF5F0A1 +:100A3000E50095F0F500750000E500F5F0E50035FE +:100A4000F0F500E500F5F0E50165F0F501C375008E +:100A500000E50EF5F0E50095F0F500750000E50005 +:100A6000F5F0E50035F0F500E500F5F0E50165F09D +:100A7000F501C3750000E50FF5F0E50095F0F50010 +:100A8000750000E500F5F0E50035F0F500E500F54E +:100A9000F0E50165F0F501750900750A00750B00B8 +:100AA000750000E501F5F0E50045F0F500E509F514 +:100AB000F0E50045F0F500E50AF5F0E50045F0F554 +:100AC00000E50BF5F0E50045F0F500E5007002806B +:100AD0000302141000750C0C750D0075E00425065A +:100AE000F58275E0003507F583E0F501750E0075B8 +:100AF0000000C375090075E0062506F58275E00063 +:100B00003507F583E0F508E508F5F0E50CA4F50BED +:100B100075E0062506F58275E0003507F583E0F5FA +:100B200008E508F5F0E50CA4E5F0F50AE50BF5F0AD +:100B3000E50935F0F509E501F5F0E50CA4F50BE55F +:100B400001F5F0E50CA4E5F0F501E50BF5F0E50A9B +:100B500035F0F50AC3C3750100E509F5F0E50E357A +:100B6000F0F50EE50AF5F0E50035F0F500C3750A7D +:100B70000075E0062506F58275E0003507F583E08F +:100B8000F508E508F5F0E50DA4F50B75E00625067A +:100B9000F58275E0003507F583E0F508E508F5F026 +:100BA000E50DA4E5F0F501E50BF5F0E50A35F0F506 +:100BB0000A750900C3C3750100E509F5F0E50E35B6 +:100BC000F0F50EE50AF5F0E50035F0F500C375091E +:100BD00000750A00C3C3750100E509F5F0E50E359F +:100BE000F0F50EE50AF5F0E50035F0F500C37509FE +:100BF00000750A00C3C3750100E509F5F0E50E357F +:100C0000F0F50EE50AF5F0E50035F0F500C37501E5 +:100C100000E50EF5F075E0012506F58275E000357A +:100C200007F583E0F508E50835F0F50875E00325DC +:100C300006F58275E0003507F583E508F0E500F577 +:100C4000F075E0002506F58275E0003507F583E0D4 +:100C5000F508E50835F0F50875E0022506F582751A +:100C6000E0003507F583E508F075010175000075B2 +:100C70000A00750900E501F4F501E500F4F500E569 +:100C80000AF4F51DE509F4F51CD3750900E509F52D +:100C9000F0E50135F0F501E509F5F0E50035F0F591 +:100CA00000E509F5F0E51D35F0F51DE509F5F0E580 +:100CB0001C35F0F51CE501F51FE500F51E751B025E +:100CC000751A00751900751800120000E582F5020A +:100CD000E583F503E500F504E501F505E502F51208 +:100CE000E503F513E504F514E505F517750100C3F3 +:100CF000750000E501F5F075E0032506F58275E065 +:100D0000003507F583E0F508E50835F0F519E5004D +:100D1000F5F075E0022506F58275E0003507F583EC +:100D2000E0F508E50835F0F51A75E0072506F582C7 +:100D300075E0003507F583E0F500E516F515E510DB +:100D4000F51875E0052506F58275E0003507F58391 +:100D5000E0F51B750D00750E00750F00751100C3D1 +:100D6000750100E500F5F0E512A4F50CE500F5F0DD +:100D7000E512A4E5F0F509E50CF5F0E50135F0F52F +:100D800001E515F5F0E512A4F50CE515F5F0E51211 +:100D9000A4E5F0F50AE50CF5F0E50935F0F509E50F +:100DA00018F5F0E512A4F50CE518F5F0E512A4E548 +:100DB000F0F50BE50CF5F0E50A35F0F50AE51BF565 +:100DC000F0E512A4F50CE51BF5F0E512A4E5F0F54D +:100DD00012E50CF5F0E50B35F0F50BC3C3750C000F +:100DE000E501F5F0E50D35F0F50DE509F5F0E50E59 +:100DF00035F0F50EE50AF5F0E50F35F0F50FE50BEA +:100E0000F5F0E51135F0F511C3750900E500F5F0D1 +:100E1000E513A4F50CE500F5F0E513A4E5F0F50AFB +:100E2000E50CF5F0E50935F0F509E515F5F0E51304 +:100E3000A4F50CE515F5F0E513A4E5F0F50BE50CCC +:100E4000F5F0E50A35F0F50AE518F5F0E513A4F537 +:100E50000CE518F5F0E513A4E5F0F512E50CF5F056 +:100E6000E50B35F0F50B750100C3C3750C00E5010A +:100E7000F5F0E50D35F0F50DE509F5F0E50E35F089 +:100E8000F50EE50AF5F0E50F35F0F50FE50BF5F099 +:100E9000E51135F0F511C3750A00E500F5F0E5142C +:100EA000A4F50CE500F5F0E514A4E5F0F50BE50C70 +:100EB000F5F0E50A35F0F50AE515F5F0E514A4F5C9 +:100EC0000CE515F5F0E514A4E5F0F512E50CF5F0E8 +:100ED000E50B35F0F50B750100750900C3C3750C02 +:100EE00000E501F5F0E50D35F0F50DE509F5F0E566 +:100EF0000E35F0F50EE50AF5F0E50F35F0F50FE5E6 +:100F00000BF5F0E51135F0F511C3750B00E500F5B3 +:100F1000F0E517A4F50CE500F5F0E517A4E5F0F50C +:100F200012E50CF5F0E50B35F0F50B7501007509D0 +:100F300000750A00C3C3750000E501F5F0E50D3545 +:100F4000F0F50DE509F5F0E50E35F0F50EE50AF5DD +:100F5000F0E50F35F0F50FE50BF5F0E51135F0F59F +:100F600011750100C3750000E501F5F0E51935F0D4 +:100F7000F501E500F5F0E51A35F0F500E50DF503AE +:100F8000E500F502E501F582E502F583E503F0757C +:100F90000101C3750000E501F5F0E51935F0F50133 +:100FA000E500F5F0E51A35F0F500E50EF503E5008E +:100FB000F502E501F582E502F583E503F07501022E +:100FC000C3750000E501F5F0E51935F0F501E50020 +:100FD000F5F0E51A35F0F500E50FF503E500F5024B +:100FE000E501F582E502F583E503F0750103C375BC +:100FF0000000E501F5F0E51935F0F501E500F5F043 +:10100000E51A35F0F500E511F503E500F502E50117 +:10101000F582E502F583E503F0750104C375000070 +:10102000E501F5F075E0032506F58275E00035076A +:10103000F583E0F508E50835F0F50DE500F5F07508 +:10104000E0022506F58275E0003507F583E0F50836 +:10105000E50835F0F50E750901750A007501007592 +:101060000000C375E0072506F58275E0003507F539 +:1010700083E0F508E508F5F0E50995F0F509E516D2 +:10108000F5F0E50A95F0F50AE510F5F0E50195F0C3 +:10109000F50175E0052506F58275E0003507F58355 +:1010A000E0F508E508F5F0E50095F0F500C3750BEF +:1010B00000E509F5F075E0062506F58275E00035D6 +:1010C00007F583E0F508E50835F0F509E50AF5F0E0 +:1010D00075E0042506F58275E0003507F583E0F537 +:1010E00008E50835F0F50AE501F5F075E004250698 +:1010F000F58275E0003507F583E0F508E50835F081 +:10110000F50BE500F5F075E0042506F58275E000C5 +:101110003507F583E0F508E50835F0F50C750100B5 +:10112000C3750000E501F5F0E50D35F0F501E500CA +:10113000F5F0E50E35F0F500E509F503E500F502FB +:10114000E501F582E502F583E503F0750101C3755C +:101150000000E501F5F0E50D35F0F501E500F5F0ED +:10116000E50E35F0F500E50AF503E500F502E501C9 +:10117000F582E502F583E503F0750102C375000011 +:10118000E501F5F0E50D35F0F501E500F5F0E50ECA +:1011900035F0F500E50BF503E500F502E501F58214 +:1011A000E502F583E503F0750103C3750000E50171 +:1011B000F5F0E50D35F0F501E500F5F0E50E35F05B +:1011C000F500E50CF503E500F502E501F582E50221 +:1011D000F583E503F0750008C3750100E500F5F03F +:1011E00075E0032506F58275E0003507F583E0F527 +:1011F00008E50835F0F500E501F5F075E002250693 +:10120000F58275E0003507F583E0F508E50835F06F +:10121000F50E750B01750A00750900750100C3759F +:10122000E0072506F58275E0003507F583E0F5084F +:10123000E508F5F0E50B95F0F50CE516F5F0E50A97 +:1012400095F0F50BE510F5F0E50995F0F50975E079 +:10125000052506F58275E0003507F583E0F508E51C +:1012600008F5F0E50195F0F501C3750A00E50CF508 +:10127000F075E0062506F58275E0003507F583E098 +:10128000F508E50835F0F50AE50BF5F075E00425FD +:1012900006F58275E0003507F583E0F508E50835C9 +:1012A000F0F50BE509F5F075E0042506F58275E02B +:1012B000003507F583E0F508E50835F0F50CE501A4 +:1012C000F5F075E0042506F58275E0003507F58335 +:1012D000E0F508E50835F0F50D750900C375010066 +:1012E000E509F5F0E50035F0F509E501F5F0E50E65 +:1012F00035F0F501E50AF503E501F502E509F582AA +:10130000E502F583E503F0750901C3750100E50900 +:10131000F5F0E50035F0F509E501F5F0E50E35F0FD +:10132000F501E50BF503E501F502E509F582E502B6 +:10133000F583E503F0750902C3750100E509F5F0D1 +:10134000E50035F0F509E501F5F0E50E35F0F501BC +:10135000E50CF503E501F502E509F582E502F58303 +:10136000E503F0750903C3750100E509F5F0E50033 +:1013700035F0F509E501F5F0E50E35F0F501E50D7F +:10138000F503E501F502E509F582E502F583E503DC +:10139000F0750101750900750A00750B00C3750031 +:1013A00000E501F5F075E0072506F58275E00035EA +:1013B00007F583E0F508E50835F0F50875E0072541 +:1013C00006F58275E0003507F583E508F0E509F5D7 +:1013D000F0E51635F0F516E50AF5F0E51035F0F50F +:1013E00010E50BF5F075E0052506F58275E0003592 +:1013F00007F583E0F508E50835F0F50875E0052503 +:1014000006F58275E0003507F583E508F002074F21 +:1014100000750000E500F502E500F503E500F504C0 +:10142000E500F50575E0112506F58275E000350744 +:10143000F583E0F51775E0102506F58275E00035B7 +:1014400007F583E0F51675E00F2506F58275E000D7 +:101450003507F583E0F51575E00E2506F58275E094 +:10146000003507F583E0F51475E00D2506F5827566 +:10147000E0003507F583E0F51375E00C2506F582ED +:1014800075E0003507F583E0F51275E00B2506F5EC +:101490008275E0003507F583E0F51175E00A250651 +:1014A000F58275E0003507F583E0F51075E0082555 +:1014B00006F58275E0003507F583E0F508E508C01C +:1014C000E075E0092506F58275E0003507F583E053 +:1014D000F508E508C0E075E0142506F50675E0009E +:1014E0003507F507E502F582E503F583E504F50028 +:1014F000E505F501220000000000000000000000EA +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/overflow-1.s.expected b/tests/GCCTestSuite/overflow-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/overflow-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pack-test-2.c b/tests/GCCTestSuite/pack-test-2.c new file mode 100644 index 0000000..974d982 --- /dev/null +++ b/tests/GCCTestSuite/pack-test-2.c @@ -0,0 +1,25 @@ +/* Tests for syntax checking of #pragma pack. + Contributed by Mike Coleman */ + +/* { dg-do compile { target *-*-linux* *-*-cygwin* powerpc*-*-eabi* } } */ + +#pragma pack(pop) /* { dg-error "without matching" } */ + +#pragma pack(push) +#pragma pack(pop) /* reset */ + +#pragma pack(push, foo, 1) +#pragma pack(pop, foo, 1) /* { dg-error "malformed" } (/ +#pragma pack(pop) /* reset */ + +#pragma pack(push, foo, 1) +#pragma pack(pop, bar) /* { dg-error "without matching" } */ +#pragma pack(pop) /* reset */ + +#pragma pack(push, foo, 1) +#pragma pack(pop) +#pragma pack(pop, foo) /* { dg-error "without matching" } */ + +#pragma pack(push, foo, 3) /* { dg-error "small power of two" } */ + +extern int blah; /* prevent "ISO C forbids an empty source file" */ diff --git a/tests/GCCTestSuite/pack-test-2.c.expected b/tests/GCCTestSuite/pack-test-2.c.expected new file mode 100644 index 0000000..974d982 --- /dev/null +++ b/tests/GCCTestSuite/pack-test-2.c.expected @@ -0,0 +1,25 @@ +/* Tests for syntax checking of #pragma pack. + Contributed by Mike Coleman */ + +/* { dg-do compile { target *-*-linux* *-*-cygwin* powerpc*-*-eabi* } } */ + +#pragma pack(pop) /* { dg-error "without matching" } */ + +#pragma pack(push) +#pragma pack(pop) /* reset */ + +#pragma pack(push, foo, 1) +#pragma pack(pop, foo, 1) /* { dg-error "malformed" } (/ +#pragma pack(pop) /* reset */ + +#pragma pack(push, foo, 1) +#pragma pack(pop, bar) /* { dg-error "without matching" } */ +#pragma pack(pop) /* reset */ + +#pragma pack(push, foo, 1) +#pragma pack(pop) +#pragma pack(pop, foo) /* { dg-error "without matching" } */ + +#pragma pack(push, foo, 3) /* { dg-error "small power of two" } */ + +extern int blah; /* prevent "ISO C forbids an empty source file" */ diff --git a/tests/GCCTestSuite/pack-test-2.hex.expected b/tests/GCCTestSuite/pack-test-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/pack-test-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pack-test-2.s.expected b/tests/GCCTestSuite/pack-test-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pack-test-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pack-test-3.c b/tests/GCCTestSuite/pack-test-3.c new file mode 100644 index 0000000..8b03903 --- /dev/null +++ b/tests/GCCTestSuite/pack-test-3.c @@ -0,0 +1,44 @@ +/* { dg-do compile } */ + +/* Copyright (C) 2003 Free Software Foundation, Inc. + Contributed by Nathan Sidwell 15 Jul 2003 */ + +/* you should not be able to pack a typedef to a struct, only the + underlying struct can be packed. */ + +/* ok */ +struct u1 +{ + char field1; + short field2; + int field3; +}; + +/* ok */ +typedef struct p1 { + char field1; + short field2; + int field3; +} __attribute__ ((packed)) p1_t1; + +/* ok */ +typedef struct __attribute__ ((packed)) p2 { + char field1; + short field2; + int field3; +} p2_t1; + +int ary1[sizeof (struct p1) == sizeof (p1_t1) ? 1 : -1]; +int ary2[sizeof (struct p2) == sizeof (p2_t1) ? 1 : -1]; +int ary3[sizeof (struct p1) == sizeof (struct p2) ? 1 : -1]; + +/* not ok */ +typedef struct u1 __attribute__ ((packed)) u1_t1; /* { dg-warning "attribute ignored" "" }*/ +typedef struct u1 u1_t2 __attribute__ ((packed)); /* { dg-warning "attribute ignored" "" }*/ + +typedef struct p3 { + char field1; + short field2; + int field3; +} p3_t1 __attribute__ ((packed)); /* { dg-warning "attribute ignored" "" }*/ + diff --git a/tests/GCCTestSuite/pack-test-3.c.expected b/tests/GCCTestSuite/pack-test-3.c.expected new file mode 100644 index 0000000..8b03903 --- /dev/null +++ b/tests/GCCTestSuite/pack-test-3.c.expected @@ -0,0 +1,44 @@ +/* { dg-do compile } */ + +/* Copyright (C) 2003 Free Software Foundation, Inc. + Contributed by Nathan Sidwell 15 Jul 2003 */ + +/* you should not be able to pack a typedef to a struct, only the + underlying struct can be packed. */ + +/* ok */ +struct u1 +{ + char field1; + short field2; + int field3; +}; + +/* ok */ +typedef struct p1 { + char field1; + short field2; + int field3; +} __attribute__ ((packed)) p1_t1; + +/* ok */ +typedef struct __attribute__ ((packed)) p2 { + char field1; + short field2; + int field3; +} p2_t1; + +int ary1[sizeof (struct p1) == sizeof (p1_t1) ? 1 : -1]; +int ary2[sizeof (struct p2) == sizeof (p2_t1) ? 1 : -1]; +int ary3[sizeof (struct p1) == sizeof (struct p2) ? 1 : -1]; + +/* not ok */ +typedef struct u1 __attribute__ ((packed)) u1_t1; /* { dg-warning "attribute ignored" "" }*/ +typedef struct u1 u1_t2 __attribute__ ((packed)); /* { dg-warning "attribute ignored" "" }*/ + +typedef struct p3 { + char field1; + short field2; + int field3; +} p3_t1 __attribute__ ((packed)); /* { dg-warning "attribute ignored" "" }*/ + diff --git a/tests/GCCTestSuite/pack-test-3.hex.expected b/tests/GCCTestSuite/pack-test-3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/pack-test-3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pack-test-3.s.expected b/tests/GCCTestSuite/pack-test-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pack-test-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/parm-mismatch-1.c b/tests/GCCTestSuite/parm-mismatch-1.c new file mode 100644 index 0000000..6b82b7b --- /dev/null +++ b/tests/GCCTestSuite/parm-mismatch-1.c @@ -0,0 +1,18 @@ +/* Test diagnostics for parameter mismatches. Types that can't match + (). */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +void f0(); /* { dg-error "error: previous declaration of 'f0' was here" } */ +void f0(int, ...); /* { dg-error "error: conflicting types for 'f0'" } */ +/* { dg-error "note: a parameter list with an ellipsis can't match an empty parameter name list declaration" "note" { target *-*-* } 8 } */ +void f1(int, ...); /* { dg-error "error: previous declaration of 'f1' was here" } */ +void f1(); /* { dg-error "error: conflicting types for 'f1'" } */ +/* { dg-error "note: a parameter list with an ellipsis can't match an empty parameter name list declaration" "note" { target *-*-* } 11 } */ +void f2(); /* { dg-error "error: previous declaration of 'f2' was here" } */ +void f2(char); /* { dg-error "error: conflicting types for 'f2'" } */ +/* { dg-error "note: an argument type that has a default promotion can't match an empty parameter name list declaration" "note" { target *-*-* } 14 } */ +void f3(char); /* { dg-error "error: previous declaration of 'f3' was here" } */ +void f3(); /* { dg-error "error: conflicting types for 'f3'" } */ +/* { dg-error "note: an argument type that has a default promotion can't match an empty parameter name list declaration" "note" { target *-*-* } 17 } */ diff --git a/tests/GCCTestSuite/parm-mismatch-1.c.expected b/tests/GCCTestSuite/parm-mismatch-1.c.expected new file mode 100644 index 0000000..6b82b7b --- /dev/null +++ b/tests/GCCTestSuite/parm-mismatch-1.c.expected @@ -0,0 +1,18 @@ +/* Test diagnostics for parameter mismatches. Types that can't match + (). */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +void f0(); /* { dg-error "error: previous declaration of 'f0' was here" } */ +void f0(int, ...); /* { dg-error "error: conflicting types for 'f0'" } */ +/* { dg-error "note: a parameter list with an ellipsis can't match an empty parameter name list declaration" "note" { target *-*-* } 8 } */ +void f1(int, ...); /* { dg-error "error: previous declaration of 'f1' was here" } */ +void f1(); /* { dg-error "error: conflicting types for 'f1'" } */ +/* { dg-error "note: a parameter list with an ellipsis can't match an empty parameter name list declaration" "note" { target *-*-* } 11 } */ +void f2(); /* { dg-error "error: previous declaration of 'f2' was here" } */ +void f2(char); /* { dg-error "error: conflicting types for 'f2'" } */ +/* { dg-error "note: an argument type that has a default promotion can't match an empty parameter name list declaration" "note" { target *-*-* } 14 } */ +void f3(char); /* { dg-error "error: previous declaration of 'f3' was here" } */ +void f3(); /* { dg-error "error: conflicting types for 'f3'" } */ +/* { dg-error "note: an argument type that has a default promotion can't match an empty parameter name list declaration" "note" { target *-*-* } 17 } */ diff --git a/tests/GCCTestSuite/parm-mismatch-1.hex.expected b/tests/GCCTestSuite/parm-mismatch-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/parm-mismatch-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/parm-mismatch-1.s.expected b/tests/GCCTestSuite/parm-mismatch-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/parm-mismatch-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/postincr-1.c b/tests/GCCTestSuite/postincr-1.c new file mode 100644 index 0000000..53f5c8f --- /dev/null +++ b/tests/GCCTestSuite/postincr-1.c @@ -0,0 +1,21 @@ +/* Simple test for proper postincrement semantics. */ +/* { dg-do run } */ + +extern void exit (int); + +int i=0; +int c=0; +int *f () +{ + ++c; + return &i; +} + +int main () +{ + int r; + r = (*f())++; + if (!(r == 0 && i == 1 && c == 1)) + exit (1); + return 0; +} diff --git a/tests/GCCTestSuite/postincr-1.c.expected b/tests/GCCTestSuite/postincr-1.c.expected new file mode 100644 index 0000000..53f5c8f --- /dev/null +++ b/tests/GCCTestSuite/postincr-1.c.expected @@ -0,0 +1,21 @@ +/* Simple test for proper postincrement semantics. */ +/* { dg-do run } */ + +extern void exit (int); + +int i=0; +int c=0; +int *f () +{ + ++c; + return &i; +} + +int main () +{ + int r; + r = (*f())++; + if (!(r == 0 && i == 1 && c == 1)) + exit (1); + return 0; +} diff --git a/tests/GCCTestSuite/postincr-1.hex.expected b/tests/GCCTestSuite/postincr-1.hex.expected new file mode 100644 index 0000000..4c49f1a --- /dev/null +++ b/tests/GCCTestSuite/postincr-1.hex.expected @@ -0,0 +1,215 @@ +:1000000075812F7506FF7507FF12020F02000C00A5 +:1000100000D0E0F519D0E0F51AE510F518900004CD +:10002000E582F50F900004E583F510900004E58269 +:10003000F509900004E583F50A750100C375000019 +:10004000E501F5F0E50935F0F501E500F5F0E50A23 +:1000500035F0F500E500F502E501F582E502F583EE +:10006000E0F50B750101C3750000E501F5F0E50948 +:1000700035F0F501E500F5F0E50A35F0F500E500AD +:10008000F502E501F582E502F583E0F50C75010264 +:10009000C3750000E501F5F0E50935F0F501E5006F +:1000A000F5F0E50A35F0F500E500F502E501F58229 +:1000B000E502F583E0F50D750103C3750000E50168 +:1000C000F5F0E50935F0F501E500F5F0E50A35F064 +:1000D000F500E500F502E501F582E502F583E0F5BE +:1000E0000E750001750100750900750A00C3751BC6 +:1000F00000E500F5F0E50B35F0F500E501F5F0E57C +:100100000C35F0F501E509F5F0E50D35F0F509E5FB +:100110000AF5F0E50E35F0F50C750B00C3750A0015 +:10012000E50BF5F0E50F35F0F50BE50AF5F0E51018 +:1001300035F0F50AE500F503E50AF502E50BF58271 +:10014000E502F583E503F0750B01C3750000E50BCF +:10015000F5F0E50F35F0F50BE500F5F0E51035F0BD +:10016000F50AE501F503E50AF502E50BF582E5027E +:10017000F583E503F0750B02C3750000E50BF5F0A0 +:10018000E50F35F0F50BE500F5F0E51035F0F50A73 +:10019000E509F503E50AF502E50BF582E502F583CD +:1001A000E503F0750B03C3750000E50BF5F0E50FF3 +:1001B00035F0F50BE500F5F0E51035F0F50AE50C46 +:1001C000F503E50AF502E50BF582E502F583E503A3 +:1001D000F0900000E582F501900000E583F50975D7 +:1001E0000000E501F502E509F503E500F504E50089 +:1001F000F505E518F510E51AC0E0E519C0E0E502DF +:10020000F582E503F583E504F500E505F501220037 +:10021000E506758205C39582F506E50775830095A9 +:1002200083F507D0E0F50875E0012506F58275E055 +:10023000003507F583E508F0D0E0F50875E0002506 +:1002400006F58275E0003507F583E508F075E004F2 +:100250002506F58275E0003507F583E512F075E0B7 +:10026000032506F58275E0003507F583E511F07585 +:10027000E0022506F58275E0003507F583E510F00C +:10028000900000E582F50A900000E583F50175090C +:1002900000C3750000E509F5F0E50A35F0F50DE558 +:1002A00000F5F0E50135F0F50E750900750A0075E9 +:1002B0000B00750C00750100C3750000E501F5F039 +:1002C000E50D35F0F501E500F5F0E50E35F0F5004A +:1002D000E509F503E500F502E501F582E502F583A0 +:1002E000E503F0750101C3750000E501F5F0E50DCA +:1002F00035F0F501E500F5F0E50E35F0F500E50A1D +:10030000F503E500F502E501F582E502F583E50375 +:10031000F0750102C3750000E501F5F0E50D35F05B +:10032000F501E500F5F0E50E35F0F500E50BF50318 +:10033000E500F502E501F582E502F583E503F075D8 +:100340000103C3750000E501F5F0E50D35F0F50199 +:10035000E500F5F0E50E35F0F500E50CF503E500F8 +:10036000F502E501F582E502F583E503F09000046E +:10037000E582F50A900004E583F501750900C3756F +:100380000000E509F5F0E50A35F0F50DE500F5F0BA +:10039000E50135F0F50E750900750A00750B00755D +:1003A0000C00750100C3750000E501F5F0E50D35A1 +:1003B000F0F501E500F5F0E50E35F0F500E509F59D +:1003C00003E500F502E501F582E502F583E503F0BA +:1003D000750101C3750000E501F5F0E50D35F0F597 +:1003E00001E500F5F0E50E35F0F500E50AF503E569 +:1003F00000F502E501F582E502F583E503F07501FC +:1004000002C3750000E501F5F0E50D35F0F501E5F5 +:1004100000F5F0E50E35F0F500E50BF503E500F528 +:1004200002E501F582E502F583E503F0750103C3FA +:10043000750000E501F5F0E50D35F0F501E500F595 +:10044000F0E50E35F0F500E50CF503E500F502E505 +:1004500001F582E502F583E503F0120010E582F56F +:1004600002E583F503E502F511E503F512750100D8 +:10047000C3750000E501F5F0E51135F0F501E50083 +:10048000F5F0E51235F0F500E500F502E501F5823D +:10049000E502F583E0F50D750101C3750000E50186 +:1004A000F5F0E51135F0F501E500F5F0E51235F070 +:1004B000F500E500F502E501F582E502F583E0F5DA +:1004C0000E750102C3750000E501F5F0E51135F088 +:1004D000F501E500F5F0E51235F0F500E500F5026F +:1004E000E501F582E502F583E0F50F750103C375BB +:1004F0000000E501F5F0E51135F0F501E500F5F056 +:10050000E51235F0F500E500F502E501F582E502BA +:10051000F583E0F510750B01750A00750100750093 +:1005200000C3750900E50BF5F0E50D35F0F509E5BB +:100530000AF5F0E50E35F0F50AE501F5F0E50F35C1 +:10054000F0F50BE500F5F0E51035F0F50C75010060 +:10055000C3750000E501F5F0E51135F0F501E500A2 +:10056000F5F0E51235F0F500E509F503E500F502D3 +:10057000E501F582E502F583E503F0750101C37538 +:100580000000E501F5F0E51135F0F501E500F5F0C5 +:10059000E51235F0F500E50AF503E500F502E501A1 +:1005A000F582E502F583E503F0750102C3750000ED +:1005B000E501F5F0E51135F0F501E500F5F0E5129E +:1005C00035F0F500E50BF503E500F502E501F582F0 +:1005D000E502F583E503F0750103C3750000E5014D +:1005E000F5F0E51135F0F501E500F5F0E51235F02F +:1005F000F500E50CF503E500F502E501F582E502FD +:10060000F583E503F0750000750100750900750AB2 +:1006100000E50FF50BE510F50C750F00C3E500F5CF +:10062000F0E50D95F0F500E500F5F0E50F45F0F586 +:100630000FC3E501F5F0E50E95F0F500E500F5F0E6 +:10064000E50F45F0F50FC3E509F5F0E50B95F0F57D +:1006500000E500F5F0E50F45F0F50FC3E50AF5F00C +:10066000E50C95F0F500E500F5F0E50F45F0F50F28 +:10067000750100750900750A00E50FF500750F0199 +:10068000C3750B00E500F5F0E50B95F0F50B750B68 +:1006900000E50BF5F0E50B35F0F50BE50BF5F0E5B6 +:1006A0000F65F0F50FC3750B00E501F5F0E50B954F +:1006B000F0F50B750B00E50BF5F0E50B35F0F50BE0 +:1006C000E50BF5F0E50F65F0F50FC3750B00E509D7 +:1006D000F5F0E50B95F0F50B750B00E50BF5F0E586 +:1006E0000B35F0F50BE50BF5F0E50F65F0F50FC3F5 +:1006F000750B00E50AF5F0E50B95F0F50B750B00B1 +:10070000E50BF5F0E50B35F0F50BE50BF5F0E50F36 +:1007100065F0F50F750100750900750A0075000098 +:10072000E50FF5F0E50045F0F500E501F5F0E50031 +:1007300045F0F500E509F5F0E50045F0F500E50ABE +:10074000F5F0E50045F0F500E50070028003020BCE +:100750003700750100750900750A00750B007500FA +:1007600000E501F5F0E50045F0F500E509F5F0E5F7 +:100770000045F0F500E50AF5F0E50045F0F500E587 +:100780000BF5F0E50045F0F500E50070028003028E +:10079000091C00750000750100750900750A0075D7 +:1007A0000C01C3750B00E500F5F0E50B95F0F50BBA +:1007B000750B00E50BF5F0E50B35F0F50BE50BF5EA +:1007C000F0E50C65F0F50CC3750B00E501F5F0E5FF +:1007D0000B95F0F50B750B00E50BF5F0E50B35F01F +:1007E000F50BE50BF5F0E50C65F0F50CC3750B00AA +:1007F000E509F5F0E50B95F0F50B750B00E50BF54C +:10080000F0E50B35F0F50BE50BF5F0E50C65F0F5D3 +:100810000CC3750B00E50AF5F0E50B95F0F50B75CB +:100820000B00E50BF5F0E50B35F0F50BE50BF5F0FE +:10083000E50C65F0F50C750100750900750A007589 +:100840000000E50CF5F0E50045F0F500E501F5F0F8 +:10085000E50045F0F500E509F5F0E50045F0F500A7 +:10086000E50AF5F0E50045F0F500E50070028003CB +:1008700002090C00750000750100750900750A0079 +:10088000E500F502E501F503E509F504E50AF505DE +:1008900075E0042506F58275E0003507F583E0F57F +:1008A0001275E0032506F58275E0003507F583E053 +:1008B000F51175E0022506F58275E0003507F58330 +:1008C000E0F51075E0002506F58275E0003507F5C6 +:1008D00083E0F508E508C0E075E0012506F58275BE +:1008E000E0003507F583E0F508E508C0E075E005B0 +:1008F0002506F50675E0003507F507E502F582E502 +:1009000003F583E504F500E505F5012200751F01F7 +:10091000751E00751D00751C00020874009000040F +:10092000E582F509900004E583F50A750100C375B9 +:100930000000E501F5F0E50935F0F501E500F5F019 +:10094000E50A35F0F500E500F502E501F582E5027E +:10095000F583E0F50B750101C3750000E501F5F0C5 +:10096000E50935F0F501E500F5F0E50A35F0F500AB +:10097000E500F502E501F582E502F583E0F50C7589 +:100980000102C3750000E501F5F0E50935F0F50158 +:10099000E500F5F0E50A35F0F500E500F502E501C2 +:1009A000F582E502F583E0F50D750103C3750000DE +:1009B000E501F5F0E50935F0F501E500F5F0E50AAA +:1009C00035F0F500E500F502E501F582E502F58375 +:1009D000E0F50E750001750100750900750A0075D6 +:1009E0000F00C3E500F5F0E50B95F0F500E500F527 +:1009F000F0E50F45F0F50FC3E501F5F0E50C95F0D6 +:100A0000F500E500F5F0E50F45F0F50FC3E509F554 +:100A1000F0E50D95F0F500E500F5F0E50F45F0F592 +:100A20000FC3E50AF5F0E50E95F0F500E500F5F0E9 +:100A3000E50F45F0F50F750100750900750A00E531 +:100A40000FF500750F01C3750B00E500F5F0E50B20 +:100A500095F0F50B750B00E50BF5F0E50B35F0F5B2 +:100A60000BE50BF5F0E50F65F0F50FC3750B00E531 +:100A700001F5F0E50B95F0F50B750B00E50BF5F0C6 +:100A8000E50B35F0F50BE50BF5F0E50F65F0F50F2F +:100A9000C3750B00E509F5F0E50B95F0F50B750B4B +:100AA00000E50BF5F0E50B35F0F50BE50BF5F0E5A2 +:100AB0000F65F0F50FC3750B00E50AF5F0E50B9532 +:100AC000F0F50B750B00E50BF5F0E50B35F0F50BCC +:100AD000E50BF5F0E50F65F0F50F75010075090000 +:100AE000750A00750000E50FF5F0E50045F0F5002A +:100AF000E501F5F0E50045F0F500E509F5F0E50064 +:100B000045F0F500E50AF5F0E50045F0F500E500F3 +:100B100070028003020B2700750000750100750943 +:100B200000750A0002079F00750001750100750934 +:100B300000750A0002079F00900000E582F5099009 +:100B40000000E583F50A750100C3750000E501F5B5 +:100B5000F0E50935F0F501E500F5F0E50A35F0F5C9 +:100B600000E500F502E501F582E502F583E0F50B0D +:100B7000750101C3750000E501F5F0E50935F0F5F3 +:100B800001E500F5F0E50A35F0F500E500F502E5D0 +:100B900001F582E502F583E0F50C750102C37500ED +:100BA00000E501F5F0E50935F0F501E500F5F0E5C2 +:100BB0000A35F0F500E500F502E501F582E502F5FC +:100BC00083E0F50D750103C3750000E501F5F0E55F +:100BD0000935F0F501E500F5F0E50A35F0F500E539 +:100BE00000F502E501F582E502F583E0F50E7500FA +:100BF00001750100750900750A00750F00C3E50055 +:100C0000F5F0E50B95F0F500E500F5F0E50F45F0A2 +:100C1000F50FC3E501F5F0E50C95F0F500E500F5FD +:100C2000F0E50F45F0F50FC3E509F5F0E50D95F09A +:100C3000F500E500F5F0E50F45F0F50FC3E50AF521 +:100C4000F0E50E95F0F500E500F5F0E50F45F0F55F +:100C50000F750100750900750A00E50FF500750FA5 +:100C600001C3750B00E500F5F0E50B95F0F50B758C +:100C70000B00E50BF5F0E50B35F0F50BE50BF5F0AA +:100C8000E50F65F0F50FC3750B00E501F5F0E50B19 +:100C900095F0F50B750B00E50BF5F0E50B35F0F570 +:100CA0000BE50BF5F0E50F65F0F50FC3750B00E5EF +:100CB00009F5F0E50B95F0F50B750B00E50BF5F07C +:100CC000E50B35F0F50BE50BF5F0E50F65F0F50FED +:100CD000C3750B00E50AF5F0E50B95F0F50B750B08 +:100CE00000E50BF5F0E50B35F0F50BE50BF5F0E560 +:100CF0000F65F0F50F750100750900750A007500A4 +:100D000000E50FF5F0E50045F0F500E501F5F0E54B +:100D10000045F0F500E509F5F0E50045F0F500E5E2 +:100D20000AF5F0E50045F0F500E5007002800302E9 +:100D30000D4200750100750900750A00750B00026F +:100D4000075E00750101750900750A00750B000248 +:100D5000075E00000000000000000000000000002E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/postincr-1.s.expected b/tests/GCCTestSuite/postincr-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/postincr-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr11459-1.c b/tests/GCCTestSuite/pr11459-1.c new file mode 100644 index 0000000..1edd94f --- /dev/null +++ b/tests/GCCTestSuite/pr11459-1.c @@ -0,0 +1,6 @@ +/* -ansi -std=c99 should mean -std=c99, but the specs reordered the + options. Bug 11459. */ +/* { dg-do compile } */ +/* { dg-options "-ansi -std=c99 -pedantic" } */ + +long long i; diff --git a/tests/GCCTestSuite/pr11459-1.c.expected b/tests/GCCTestSuite/pr11459-1.c.expected new file mode 100644 index 0000000..1edd94f --- /dev/null +++ b/tests/GCCTestSuite/pr11459-1.c.expected @@ -0,0 +1,6 @@ +/* -ansi -std=c99 should mean -std=c99, but the specs reordered the + options. Bug 11459. */ +/* { dg-do compile } */ +/* { dg-options "-ansi -std=c99 -pedantic" } */ + +long long i; diff --git a/tests/GCCTestSuite/pr11459-1.hex.expected b/tests/GCCTestSuite/pr11459-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/pr11459-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr11459-1.s.expected b/tests/GCCTestSuite/pr11459-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr11459-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr11864-1.c b/tests/GCCTestSuite/pr11864-1.c new file mode 100644 index 0000000..1aa3f1a --- /dev/null +++ b/tests/GCCTestSuite/pr11864-1.c @@ -0,0 +1,42 @@ +/* PR optimization/11864 + * Reporter: Kazumoto Kojima + * Summary: [3.3/3.4 regression] miscompiles zero extension and test + * Description: + * gcc-3.3/3.4 -O2 for sh target may miscompile the combination of zero extension + * and test if it's zero. + * + * Testcase tweaked by dank@kegel.com. Not marked as xfail because it's a regression. + */ +/* { dg-do run } */ +/* { dg-options "-O2" } */ + +extern void abort(void); + +int val = 0xff00; + +int f(void) +{ + return val; +} + +unsigned char a[1] = {0,0}; + +void foo(void) +{ + a[0] = f() & 255; + + if (!a[0]) + a[0] = f() & 255; + + if (!a[0]) + a[0] = 1 + (f() & 127); +} + +int main() +{ + foo(); + if (!a[0]) + abort(); + + return 0; +} diff --git a/tests/GCCTestSuite/pr11864-1.c.expected b/tests/GCCTestSuite/pr11864-1.c.expected new file mode 100644 index 0000000..1aa3f1a --- /dev/null +++ b/tests/GCCTestSuite/pr11864-1.c.expected @@ -0,0 +1,42 @@ +/* PR optimization/11864 + * Reporter: Kazumoto Kojima + * Summary: [3.3/3.4 regression] miscompiles zero extension and test + * Description: + * gcc-3.3/3.4 -O2 for sh target may miscompile the combination of zero extension + * and test if it's zero. + * + * Testcase tweaked by dank@kegel.com. Not marked as xfail because it's a regression. + */ +/* { dg-do run } */ +/* { dg-options "-O2" } */ + +extern void abort(void); + +int val = 0xff00; + +int f(void) +{ + return val; +} + +unsigned char a[1] = {0,0}; + +void foo(void) +{ + a[0] = f() & 255; + + if (!a[0]) + a[0] = f() & 255; + + if (!a[0]) + a[0] = 1 + (f() & 127); +} + +int main() +{ + foo(); + if (!a[0]) + abort(); + + return 0; +} diff --git a/tests/GCCTestSuite/pr11864-1.hex.expected b/tests/GCCTestSuite/pr11864-1.hex.expected new file mode 100644 index 0000000..4ca3f4b --- /dev/null +++ b/tests/GCCTestSuite/pr11864-1.hex.expected @@ -0,0 +1,215 @@ +:1000000075812F7506FF7507FF12097102000C003C +:1000100000D0E0F518D0E0F519E511F50EE510F582 +:100020000F900000E582F509900000E583F50A7560 +:100030000100C3750000E501F5F0E50935F0F501B3 +:10004000E500F5F0E50A35F0F500E500F502E5011B +:10005000F582E502F583E0F50B750101C37500003B +:10006000E501F5F0E50935F0F501E500F5F0E50A03 +:1000700035F0F500E500F502E501F582E502F583CE +:10008000E0F50C750102C3750000E501F5F0E50926 +:1000900035F0F501E500F5F0E50A35F0F500E5008D +:1000A000F502E501F582E502F583E0F50D75010342 +:1000B000C3750000E501F5F0E50935F0F501E5004F +:1000C000F5F0E50A35F0F500E500F502E501F58209 +:1000D000E502F583E0F500E50BF502E50CF503E537 +:1000E0000DF504E500F505E50EF511E50FF510E554 +:1000F00019C0E0E518C0E0E502F582E503F583E507 +:1001000004F500E505F5012200E506758205C395B5 +:1001100082F506E5077583009583F507D0E0F508BD +:1001200075E0012506F58275E0003507F583E508E1 +:10013000F0D0E0F50875E0002506F58275E00035A1 +:1001400007F583E508F075E0042506F58275E00003 +:100150003507F583E512F075E0032506F58275E0B5 +:10016000003507F583E511F075E0022506F5827587 +:10017000E0003507F583E510F0120010E582F50286 +:10018000E502F512900004E582F510900004E58385 +:10019000F511750000750100750C01750D00750EE7 +:1001A00000750F00C3750900E500F5F0E50CA4F536 +:1001B0000BE500F5F0E50CA4E5F0F50AE50BF5F02C +:1001C000E50935F0F509E501F5F0E50CA4F50BE5D9 +:1001D00001F5F0E50CA4E5F0F501E50BF5F0E50A15 +:1001E00035F0F50AC3C3750100E509F5F0E50E35F4 +:1001F000F0F50EE50AF5F0E50F35F0F50FC3750AD9 +:1002000000E500F5F0E50DA4F50BE500F5F0E50DD2 +:10021000A4E5F0F501E50BF5F0E50A35F0F50A7512 +:100220000900C3C3750000E509F5F0E50E35F0F5EA +:100230000EE50AF5F0E50F35F0F50FC37509007509 +:100240000A00C3C3750000E509F5F0E50E35F0F5C9 +:100250000EE50AF5F0E50F35F0F50FC375090075E9 +:100260000A00C3C3750000E509F5F0E50E35F0F5A9 +:100270000EE50AF5F0E50F35F0F50FC3750000E562 +:100280000EF5F0E51035F0F500E50FF5F0E5113568 +:10029000F0F5017509FFC3E509F5F0E51255F0F534 +:1002A0000B750A00C3750900E50AF5F0E50035F0A5 +:1002B000F500E509F5F0E50135F0F501E50BF5038D +:1002C000E501F502E500F582E502F583E503F0902E +:1002D0000004E582F510900004E583F51175000037 +:1002E000750100750C01750D00750E00750F00C3CA +:1002F000750900E500F5F0E50CA4F50BE500F5F057 +:10030000E50CA4E5F0F50AE50BF5F0E50935F0F5A7 +:1003100009E501F5F0E50CA4F50BE501F5F0E50CB8 +:10032000A4E5F0F501E50BF5F0E50A35F0F50AC3B3 +:10033000C3750100E509F5F0E50E35F0F50EE50AA7 +:10034000F5F0E50F35F0F50FC3750A00E500F5F09F +:10035000E50DA4F50BE500F5F0E50DA4E5F0F501DC +:10036000E50BF5F0E50A35F0F50A750900C3C3752C +:100370000000E509F5F0E50E35F0F50EE50AF5F0BB +:10038000E50F35F0F50FC3750900750A00C3C37595 +:100390000000E509F5F0E50E35F0F50EE50AF5F09B +:1003A000E50F35F0F50FC3750900750A00C3C37575 +:1003B0000000E509F5F0E50E35F0F50EE50AF5F07B +:1003C000E50F35F0F50FC3750000E50EF5F0E5100B +:1003D00035F0F500E50FF5F0E51135F0F501E50034 +:1003E000F509E501F50A750100C3750000E501F5A1 +:1003F000F0E50935F0F501E500F5F0E50A35F0F531 +:1004000000E500F502E501F582E502F583E0F5017E +:10041000750001C3750900E501F5F0E50995F0F5F2 +:1004200009750900E509F5F0E50935F0F509E50973 +:10043000F5F0E50065F0F500750900750A00750B2B +:1004400000750100E500F5F0E50145F0F501E5096D +:10045000F5F0E50145F0F501E50AF5F0E50145F0B7 +:10046000F501E50BF5F0E50145F0F501E501700258 +:10047000800302081700900004E582F51090000444 +:10048000E583F511750000750100750C01750D000F +:10049000750E00750F00C3750900E500F5F0E50C59 +:1004A000A4F50BE500F5F0E50CA4E5F0F50AE50B85 +:1004B000F5F0E50935F0F509E501F5F0E50CA4F5F1 +:1004C0000BE501F5F0E50CA4E5F0F501E50BF5F021 +:1004D000E50A35F0F50AC3C3750100E509F5F0E555 +:1004E0000E35F0F50EE50AF5F0E50F35F0F50FC322 +:1004F000750A00E500F5F0E50DA4F50BE500F5F053 +:10050000E50DA4E5F0F501E50BF5F0E50A35F0F5AC +:100510000A750900C3C3750000E509F5F0E50E355D +:10052000F0F50EE50AF5F0E50F35F0F50FC37509A6 +:1005300000750A00C3C3750000E509F5F0E50E3546 +:10054000F0F50EE50AF5F0E50F35F0F50FC3750986 +:1005500000750A00C3C3750000E509F5F0E50E3526 +:10056000F0F50EE50AF5F0E50F35F0F50FC375006F +:1005700000E50EF5F0E51035F0F500E50FF5F0E5D6 +:100580001135F0F501E500F509E501F50A75010001 +:10059000C3750000E501F5F0E50935F0F501E5006A +:1005A000F5F0E50A35F0F500E500F502E501F58224 +:1005B000E502F583E0F501750001C3750900E50169 +:1005C000F5F0E50995F0F509750900E509F5F0E59F +:1005D0000935F0F509E509F5F0E50065F0F5007578 +:1005E0000900750A00750B00750100E500F5F0E5DE +:1005F0000145F0F501E509F5F0E50145F0F501E506 +:100600000AF5F0E50145F0F501E50BF5F0E50145EA +:10061000F0F501E501700280030206AC00750000F0 +:10062000E500F502E500F503E500F504E500F50554 +:1006300075E0042506F58275E0003507F583E0F5E1 +:100640001275E0032506F58275E0003507F583E0B5 +:10065000F51175E0022506F58275E0003507F58392 +:10066000E0F51075E0002506F58275E0003507F528 +:1006700083E0F508E508C0E075E0012506F5827520 +:10068000E0003507F583E0F508E508C0E075E00512 +:100690002506F50675E0003507F507E502F582E564 +:1006A00003F583E504F500E505F5012200120010CD +:1006B000E582F502E502F512900004E582F510905E +:1006C0000004E583F511750000750100750C0175D6 +:1006D0000D00750E00750F00C3750900E500F5F0FB +:1006E000E50CA4F50BE500F5F0E50CA4E5F0F50A42 +:1006F000E50BF5F0E50935F0F509E501F5F0E50C58 +:10070000A4F50BE501F5F0E50CA4E5F0F501E50B2A +:10071000F5F0E50A35F0F50AC3C3750100E509F502 +:10072000F0E50E35F0F50EE50AF5F0E50F35F0F5DC +:100730000FC3750A00E500F5F0E50DA4F50BE50023 +:10074000F5F0E50DA4E5F0F501E50BF5F0E50A356A +:10075000F0F50A750900C3C3750000E509F5F0E579 +:100760000E35F0F50EE50AF5F0E50F35F0F50FC39F +:10077000750900750A00C3C3750000E509F5F0E5C9 +:100780000E35F0F50EE50AF5F0E50F35F0F50FC37F +:10079000750900750A00C3C3750000E509F5F0E5A9 +:1007A0000E35F0F50EE50AF5F0E50F35F0F50FC35F +:1007B000750000E50EF5F0E51035F0F500E50FF5F4 +:1007C000F0E51135F0F50A75090175017FC3E50102 +:1007D000F5F0E51255F0F50BC3750100E50BF5F0EA +:1007E000E50935F0F50B750900C3750100E509F55C +:1007F000F0E50035F0F500E501F5F0E50A35F0F536 +:1008000001E50BF503E501F502E500F582E502F5EA +:1008100083E503F002061D00120010E582F502E5F3 +:1008200002F512900004E582F510900004E583F5CE +:1008300011750000750100750C01750D00750E0035 +:10084000750F00C3750900E500F5F0E50CA4F50B84 +:10085000E500F5F0E50CA4E5F0F50AE50BF5F0E5AB +:100860000935F0F509E501F5F0E50CA4F50BE50116 +:10087000F5F0E50CA4E5F0F501E50BF5F0E50A353A +:10088000F0F50AC3C3750100E509F5F0E50E35F092 +:10089000F50EE50AF5F0E50F35F0F50FC3750A0022 +:1008A000E500F5F0E50DA4F50BE500F5F0E50DA488 +:1008B000E5F0F501E50BF5F0E50A35F0F50A750907 +:1008C00000C3C3750000E509F5F0E50E35F0F50E3F +:1008D000E50AF5F0E50F35F0F50FC3750900750A67 +:1008E00000C3C3750000E509F5F0E50E35F0F50E1F +:1008F000E50AF5F0E50F35F0F50FC3750900750A47 +:1009000000C3C3750000E509F5F0E50E35F0F50EFE +:10091000E50AF5F0E50F35F0F50FC3750000E50EBB +:10092000F5F0E51035F0F500E50FF5F0E51135F0DF +:10093000F5017509FFC3E509F5F0E51255F0F50B72 +:10094000750A00C3750900E50AF5F0E50035F0F514 +:1009500000E509F5F0E50135F0F501E50BF503E5F6 +:1009600001F502E500F582E502F583E503F00204F6 +:100970007600E506758204C39582F506E507758362 +:10098000009583F507D0E0F50875E0012506F582AE +:1009900075E0003507F583E508F0D0E0F50875E06F +:1009A000002506F58275E0003507F583E508F0754A +:1009B000E0032506F58275E0003507F583E511F0C3 +:1009C00075E0022506F58275E0003507F583E51030 +:1009D000F0900000E582F50A900000E583F50175CE +:1009E0000900C3750000E509F5F0E50A35F0F50DDD +:1009F000E500F5F0E50135F0F50E750900750AFF23 +:100A0000750B00750C00750100C3750000E501F55C +:100A1000F0E50D35F0F501E500F5F0E50E35F0F502 +:100A200000E509F503E500F502E501F582E502F5CB +:100A300083E503F0750101C3750000E501F5F0E5FC +:100A40000D35F0F501E500F5F0E50E35F0F500E5C2 +:100A50000AF503E500F502E501F582E502F583E517 +:100A600003F0750102C3750000E501F5F0E50D35F1 +:100A7000F0F501E500F5F0E50E35F0F500E50BF5D4 +:100A800003E500F502E501F582E502F583E503F0F3 +:100A9000750103C3750000E501F5F0E50D35F0F5CE +:100AA00001E500F5F0E50E35F0F500E50CF503E5A0 +:100AB00000F502E501F582E502F583E503F090001B +:100AC00004E582F50A900004E583F50B75090075CD +:100AD0000100C3750000E501F5F0E50935F0F5000A +:100AE000C3750100E500F5F0E50A35F0F500E50114 +:100AF000F5F0E50B35F0F50B750A00750900C375C7 +:100B00000100E509F5F0E50035F0F500E501F5F047 +:100B1000E50B35F0F501E50AF503E501F502E50021 +:100B2000F582E502F583E503F0120108900004E583 +:100B300082F510900004E583F51175000075010041 +:100B4000750C01750D00750E00750F00C375090059 +:100B5000E500F5F0E50CA4F50BE500F5F0E50CA4D7 +:100B6000E5F0F50AE50BF5F0E50935F0F509E501E5 +:100B7000F5F0E50CA4F50BE501F5F0E50CA4E5F0C6 +:100B8000F501E50BF5F0E50A35F0F50AC3C375018B +:100B900000E509F5F0E50E35F0F50EE50AF5F0E5AE +:100BA0000F35F0F50FC3750A00E500F5F0E50DA46B +:100BB000F50BE500F5F0E50DA4E5F0F501E50BF525 +:100BC000F0E50A35F0F50A750900C3C3750000E5C4 +:100BD00009F5F0E50E35F0F50EE50AF5F0E50F350F +:100BE000F0F50FC3750900750A00C3C3750000E571 +:100BF00009F5F0E50E35F0F50EE50AF5F0E50F35EF +:100C0000F0F50FC3750900750A00C3C3750000E550 +:100C100009F5F0E50E35F0F50EE50AF5F0E50F35CE +:100C2000F0F50FC3750000E50EF5F0E51035F0F5B1 +:100C300000E50FF5F0E51135F0F501E500F509E502 +:100C400001F50A750100C3750000E501F5F0E5093D +:100C500035F0F501E500F5F0E50A35F0F500E500C1 +:100C6000F502E501F582E502F583E0F50175000185 +:100C7000C3750900E501F5F0E50995F0F509750979 +:100C800000E509F5F0E50935F0F509E509F5F0E5C8 +:100C90000065F0F500750900750A00750B00750117 +:100CA00000E500F5F0E50145F0F501E509F5F0E5B1 +:100CB0000145F0F501E50AF5F0E50145F0F501E53E +:100CC0000BF5F0E50145F0F501E501700280030246 +:100CD0000D5A00750000750100750900750A00E5E0 +:100CE00000F502E501F503E509F504E50AF50575EA +:100CF000E0032506F58275E0003507F583E0F51180 +:100D000075E0022506F58275E0003507F583E0F50C +:100D10001075E0002506F58275E0003507F583E0E3 +:100D2000F508E508C0E075E0012506F58275E000EC +:100D30003507F583E0F508E508C0E075E004250611 +:100D4000F50675E0003507F507E502F582E503F5E0 +:100D500083E504F500E505F5012200020CD300004F +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr11864-1.s.expected b/tests/GCCTestSuite/pr11864-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr11864-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr14092-1.c b/tests/GCCTestSuite/pr14092-1.c new file mode 100644 index 0000000..927ecf6 --- /dev/null +++ b/tests/GCCTestSuite/pr14092-1.c @@ -0,0 +1,20 @@ +/* PR c/14092 + * Origin: bonzini@gnu.org + * rejects-valid + */ +/* { dg-do compile } */ + +/* Define this so that we are more portable. The testcase in the + PR failed on 64-bit hosts. */ +typedef int __attribute__ ((mode (__pointer__))) intptr_t; + +typedef struct _PLCI { + unsigned char x; + unsigned char buf[1]; +} PLCI; + +void nl_ind(PLCI * plci) +{ + plci->x = -((intptr_t)(plci->buf)) & 3; +} + diff --git a/tests/GCCTestSuite/pr14092-1.c.expected b/tests/GCCTestSuite/pr14092-1.c.expected new file mode 100644 index 0000000..927ecf6 --- /dev/null +++ b/tests/GCCTestSuite/pr14092-1.c.expected @@ -0,0 +1,20 @@ +/* PR c/14092 + * Origin: bonzini@gnu.org + * rejects-valid + */ +/* { dg-do compile } */ + +/* Define this so that we are more portable. The testcase in the + PR failed on 64-bit hosts. */ +typedef int __attribute__ ((mode (__pointer__))) intptr_t; + +typedef struct _PLCI { + unsigned char x; + unsigned char buf[1]; +} PLCI; + +void nl_ind(PLCI * plci) +{ + plci->x = -((intptr_t)(plci->buf)) & 3; +} + diff --git a/tests/GCCTestSuite/pr14092-1.hex.expected b/tests/GCCTestSuite/pr14092-1.hex.expected new file mode 100644 index 0000000..59f7086 --- /dev/null +++ b/tests/GCCTestSuite/pr14092-1.hex.expected @@ -0,0 +1,19 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F50ED0E0F50FE510F50D6E +:10002000750000C3750100E500F5F0E51F35F0F53A +:1000300000E501F5F0E51E35F0F501750A01C3751F +:100040000900E50AF5F0E51F35F0F50AE509F5F0D8 +:10005000E51E35F0F509E50AF50BE509F50C750A1D +:1000600000C3750900E50AF5F0E50B35F0F50AE582 +:1000700009F5F0E50C35F0F509E509F502E50AF5B5 +:1000800082E502F583E0F509C3E509F4F50AD375C5 +:100090000900E509F5F0E50A35F0F50A750903C32D +:1000A000E509F5F0E50A55F0F50B750A00C3750989 +:1000B00000E50AF5F0E50035F0F500E509F5F0E5B5 +:1000C0000135F0F501E50BF503E501F502E500F575 +:1000D00082E502F583E503F0750000E500F502E531 +:1000E00000F503E500F504E500F505E50DF510E57F +:1000F0000FC0E0E50EC0E075E0022506F50675E0EC +:10010000003507F507E502F582E503F583E504F51B +:1001100000E505F5012200000000000000000000DD +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr14092-1.s.expected b/tests/GCCTestSuite/pr14092-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr14092-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr14475.c b/tests/GCCTestSuite/pr14475.c new file mode 100644 index 0000000..8009d46 --- /dev/null +++ b/tests/GCCTestSuite/pr14475.c @@ -0,0 +1,8 @@ +/* This used to ICE because there was no null check in + check_bitfield_type_and_width. */ + +struct tree_common +{ + enum tree_code code : 8; /* {dg-error "" "" } */ +/* { dg-warning "" "" { target *-*-* } 6 } */ +}; diff --git a/tests/GCCTestSuite/pr14475.c.expected b/tests/GCCTestSuite/pr14475.c.expected new file mode 100644 index 0000000..8009d46 --- /dev/null +++ b/tests/GCCTestSuite/pr14475.c.expected @@ -0,0 +1,8 @@ +/* This used to ICE because there was no null check in + check_bitfield_type_and_width. */ + +struct tree_common +{ + enum tree_code code : 8; /* {dg-error "" "" } */ +/* { dg-warning "" "" { target *-*-* } 6 } */ +}; diff --git a/tests/GCCTestSuite/pr14475.hex.expected b/tests/GCCTestSuite/pr14475.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/pr14475.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr14475.s.expected b/tests/GCCTestSuite/pr14475.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr14475.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr14796-1.c b/tests/GCCTestSuite/pr14796-1.c new file mode 100644 index 0000000..7ddc4fe --- /dev/null +++ b/tests/GCCTestSuite/pr14796-1.c @@ -0,0 +1,24 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ + +int f (int a) { + return (a << 3) << 6; +} + +int g (int b) { + return (b >> 5) << 5; +} + +unsigned long long h (unsigned long long c) { + return (c << 60) >> 60; +} + +int l (int d) { + return (d << 6) >> 6; +} + +/* { dg-final { scan-tree-dump "a << 9" "gimple" } } */ +/* { dg-final { scan-tree-dump "b & -32" "gimple" } } */ +/* { dg-final { scan-tree-dump "c & 15" "gimple" } } */ +/* { dg-final { scan-tree-dump "d << 6" "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/pr14796-1.c.expected b/tests/GCCTestSuite/pr14796-1.c.expected new file mode 100644 index 0000000..7ddc4fe --- /dev/null +++ b/tests/GCCTestSuite/pr14796-1.c.expected @@ -0,0 +1,24 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ + +int f (int a) { + return (a << 3) << 6; +} + +int g (int b) { + return (b >> 5) << 5; +} + +unsigned long long h (unsigned long long c) { + return (c << 60) >> 60; +} + +int l (int d) { + return (d << 6) >> 6; +} + +/* { dg-final { scan-tree-dump "a << 9" "gimple" } } */ +/* { dg-final { scan-tree-dump "b & -32" "gimple" } } */ +/* { dg-final { scan-tree-dump "c & 15" "gimple" } } */ +/* { dg-final { scan-tree-dump "d << 6" "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/pr14796-2.c b/tests/GCCTestSuite/pr14796-2.c new file mode 100644 index 0000000..195530b --- /dev/null +++ b/tests/GCCTestSuite/pr14796-2.c @@ -0,0 +1,22 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ + +int f (int a) { + return (a << 31) << 6; +} + +unsigned int g (unsigned int a) { + return (a >> 7) >> 25; +} + +int h (int b) { + return (b >> 30) >> 30; +} + +long long j (long long c) { + return (c >> 35) << 35; +} +/* { dg-final { scan-tree-dump-times "= 0" 2 "gimple" } } */ +/* { dg-final { scan-tree-dump "b >> 31" "gimple" } } */ +/* { dg-final { scan-tree-dump "c & -(34359738368|800000000)" "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/pr14796-2.c.expected b/tests/GCCTestSuite/pr14796-2.c.expected new file mode 100644 index 0000000..195530b --- /dev/null +++ b/tests/GCCTestSuite/pr14796-2.c.expected @@ -0,0 +1,22 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ + +int f (int a) { + return (a << 31) << 6; +} + +unsigned int g (unsigned int a) { + return (a >> 7) >> 25; +} + +int h (int b) { + return (b >> 30) >> 30; +} + +long long j (long long c) { + return (c >> 35) << 35; +} +/* { dg-final { scan-tree-dump-times "= 0" 2 "gimple" } } */ +/* { dg-final { scan-tree-dump "b >> 31" "gimple" } } */ +/* { dg-final { scan-tree-dump "c & -(34359738368|800000000)" "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/pr15443-2.c b/tests/GCCTestSuite/pr15443-2.c new file mode 100644 index 0000000..d97fa25 --- /dev/null +++ b/tests/GCCTestSuite/pr15443-2.c @@ -0,0 +1,15 @@ +/* { dg-do compile } */ + +struct foo { + int bar; +}; + +typedef struct foo* bar; +void f () __attribute__ ((__malloc__)); /* { dg-warning "ignored" } */ +int g () __attribute__ ((__malloc__)); /* { dg-warning "ignored" } */ +int* h () __attribute__ ((__malloc__)); +void* i () __attribute__ ((__malloc__)); + +struct foo j () __attribute__ ((__malloc__)); /* { dg-warning "ignored" } */ +struct foo* k () __attribute__ ((__malloc__)); +bar l () __attribute__((malloc)); diff --git a/tests/GCCTestSuite/pr15443-2.c.expected b/tests/GCCTestSuite/pr15443-2.c.expected new file mode 100644 index 0000000..d97fa25 --- /dev/null +++ b/tests/GCCTestSuite/pr15443-2.c.expected @@ -0,0 +1,15 @@ +/* { dg-do compile } */ + +struct foo { + int bar; +}; + +typedef struct foo* bar; +void f () __attribute__ ((__malloc__)); /* { dg-warning "ignored" } */ +int g () __attribute__ ((__malloc__)); /* { dg-warning "ignored" } */ +int* h () __attribute__ ((__malloc__)); +void* i () __attribute__ ((__malloc__)); + +struct foo j () __attribute__ ((__malloc__)); /* { dg-warning "ignored" } */ +struct foo* k () __attribute__ ((__malloc__)); +bar l () __attribute__((malloc)); diff --git a/tests/GCCTestSuite/pr15443-2.hex.expected b/tests/GCCTestSuite/pr15443-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/pr15443-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15443-2.s.expected b/tests/GCCTestSuite/pr15443-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr15443-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15698-3.c b/tests/GCCTestSuite/pr15698-3.c new file mode 100644 index 0000000..15d998a --- /dev/null +++ b/tests/GCCTestSuite/pr15698-3.c @@ -0,0 +1,11 @@ +/* Test diagnostics for old-style definition not matching prior + prototype are present and give correct location for that prototype + (bug 15698). Prototype not last declaration. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ + +void f(); +void f(int); /* { dg-error "error: prototype declaration" } */ +void f(); +void f(a) long a; {} /* { dg-error "error: argument 'a' doesn't match prototype" } */ diff --git a/tests/GCCTestSuite/pr15698-3.c.expected b/tests/GCCTestSuite/pr15698-3.c.expected new file mode 100644 index 0000000..15d998a --- /dev/null +++ b/tests/GCCTestSuite/pr15698-3.c.expected @@ -0,0 +1,11 @@ +/* Test diagnostics for old-style definition not matching prior + prototype are present and give correct location for that prototype + (bug 15698). Prototype not last declaration. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ + +void f(); +void f(int); /* { dg-error "error: prototype declaration" } */ +void f(); +void f(a) long a; {} /* { dg-error "error: argument 'a' doesn't match prototype" } */ diff --git a/tests/GCCTestSuite/pr15698-3.hex.expected b/tests/GCCTestSuite/pr15698-3.hex.expected new file mode 100644 index 0000000..7af2347 --- /dev/null +++ b/tests/GCCTestSuite/pr15698-3.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F501750900E51E +:1000200009F502E509F503E509F504E509F505E536 +:1000300001C0E0E500C0E075E0042506F50675E0C6 +:10004000003507F507E502F582E503F583E504F5DC +:1000500000E505F50122000000000000000000009E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15698-3.s.expected b/tests/GCCTestSuite/pr15698-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr15698-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15698-4.c b/tests/GCCTestSuite/pr15698-4.c new file mode 100644 index 0000000..b1554f4 --- /dev/null +++ b/tests/GCCTestSuite/pr15698-4.c @@ -0,0 +1,9 @@ +/* Test diagnostics for old-style definition not matching prior + prototype are present and give correct location for that prototype + (bug 15698). Unprototyped built-in function with user prototype. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ + +int isnan(void); /* { dg-error "error: prototype declaration" } */ +int isnan(a) int a; {} /* { dg-error "error: number of arguments doesn't match prototype" } */ diff --git a/tests/GCCTestSuite/pr15698-4.c.expected b/tests/GCCTestSuite/pr15698-4.c.expected new file mode 100644 index 0000000..b1554f4 --- /dev/null +++ b/tests/GCCTestSuite/pr15698-4.c.expected @@ -0,0 +1,9 @@ +/* Test diagnostics for old-style definition not matching prior + prototype are present and give correct location for that prototype + (bug 15698). Unprototyped built-in function with user prototype. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ + +int isnan(void); /* { dg-error "error: prototype declaration" } */ +int isnan(a) int a; {} /* { dg-error "error: number of arguments doesn't match prototype" } */ diff --git a/tests/GCCTestSuite/pr15698-4.hex.expected b/tests/GCCTestSuite/pr15698-4.hex.expected new file mode 100644 index 0000000..c059f8b --- /dev/null +++ b/tests/GCCTestSuite/pr15698-4.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F501E509F5029C +:10002000E509F503E509F504E509F505E501C0E095 +:10003000E500C0E075E0042506F50675E00035072B +:10004000F507E502F582E503F583E504F500E5052E +:10005000F501220000000000000000000000000088 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15698-4.s.expected b/tests/GCCTestSuite/pr15698-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr15698-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15698-6.c b/tests/GCCTestSuite/pr15698-6.c new file mode 100644 index 0000000..bca51f2 --- /dev/null +++ b/tests/GCCTestSuite/pr15698-6.c @@ -0,0 +1,9 @@ +/* Test diagnostics for old-style definition not matching prior + prototype are present and give correct location for that prototype + (bug 15698). Prototyped built-in function, wrong number of + arguments. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ + +char *strchr(a) const char *a; { return 0; } /* { dg-warning "warning: number of arguments doesn't match built-in prototype" } */ diff --git a/tests/GCCTestSuite/pr15698-6.c.expected b/tests/GCCTestSuite/pr15698-6.c.expected new file mode 100644 index 0000000..bca51f2 --- /dev/null +++ b/tests/GCCTestSuite/pr15698-6.c.expected @@ -0,0 +1,9 @@ +/* Test diagnostics for old-style definition not matching prior + prototype are present and give correct location for that prototype + (bug 15698). Prototyped built-in function, wrong number of + arguments. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ + +char *strchr(a) const char *a; { return 0; } /* { dg-warning "warning: number of arguments doesn't match built-in prototype" } */ diff --git a/tests/GCCTestSuite/pr15698-6.hex.expected b/tests/GCCTestSuite/pr15698-6.hex.expected new file mode 100644 index 0000000..69b482c --- /dev/null +++ b/tests/GCCTestSuite/pr15698-6.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F500D0E0F501750900758E +:100020000A00750B00E509F502E50AF503E50BF595 +:1000300004E50BF505E501C0E0E500C0E075E00270 +:100040002506F50675E0003507F507E502F582E5BA +:1000500003F583E504F500E505F501220000000045 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15698-6.s.expected b/tests/GCCTestSuite/pr15698-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr15698-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15698-7.c b/tests/GCCTestSuite/pr15698-7.c new file mode 100644 index 0000000..b75f815 --- /dev/null +++ b/tests/GCCTestSuite/pr15698-7.c @@ -0,0 +1,10 @@ +/* Test diagnostics for old-style definition not matching prior + prototype are present and give correct location for that prototype + (bug 15698). Prototyped built-in function, wrong number of + arguments, with explicit prototype as well. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ + +char *strchr(const char *, int); /* { dg-error "error: prototype declaration" } */ +char *strchr(a) const char *a; { return 0; } /* { dg-error "error: number of arguments doesn't match prototype" } */ diff --git a/tests/GCCTestSuite/pr15698-7.c.expected b/tests/GCCTestSuite/pr15698-7.c.expected new file mode 100644 index 0000000..b75f815 --- /dev/null +++ b/tests/GCCTestSuite/pr15698-7.c.expected @@ -0,0 +1,10 @@ +/* Test diagnostics for old-style definition not matching prior + prototype are present and give correct location for that prototype + (bug 15698). Prototyped built-in function, wrong number of + arguments, with explicit prototype as well. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ + +char *strchr(const char *, int); /* { dg-error "error: prototype declaration" } */ +char *strchr(a) const char *a; { return 0; } /* { dg-error "error: number of arguments doesn't match prototype" } */ diff --git a/tests/GCCTestSuite/pr15698-7.hex.expected b/tests/GCCTestSuite/pr15698-7.hex.expected new file mode 100644 index 0000000..69b482c --- /dev/null +++ b/tests/GCCTestSuite/pr15698-7.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F500D0E0F501750900758E +:100020000A00750B00E509F502E50AF503E50BF595 +:1000300004E50BF505E501C0E0E500C0E075E00270 +:100040002506F50675E0003507F507E502F582E5BA +:1000500003F583E504F500E505F501220000000045 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15698-7.s.expected b/tests/GCCTestSuite/pr15698-7.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr15698-7.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15784-4.c b/tests/GCCTestSuite/pr15784-4.c new file mode 100644 index 0000000..0d31697 --- /dev/null +++ b/tests/GCCTestSuite/pr15784-4.c @@ -0,0 +1,13 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-optimized" } */ +int a (int x) { + return ~x + 1; /* -x */ +} + +int b (int x) { + return -x -1; /* ~x */ +} + +/* { dg-final { scan-tree-dump "~x;" "optimized" } } */ +/* { dg-final { scan-tree-dump "-x;" "optimized" } } */ +/* { dg-final { cleanup-tree-dump "optimized" } } */ diff --git a/tests/GCCTestSuite/pr15784-4.c.expected b/tests/GCCTestSuite/pr15784-4.c.expected new file mode 100644 index 0000000..0d31697 --- /dev/null +++ b/tests/GCCTestSuite/pr15784-4.c.expected @@ -0,0 +1,13 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-optimized" } */ +int a (int x) { + return ~x + 1; /* -x */ +} + +int b (int x) { + return -x -1; /* ~x */ +} + +/* { dg-final { scan-tree-dump "~x;" "optimized" } } */ +/* { dg-final { scan-tree-dump "-x;" "optimized" } } */ +/* { dg-final { cleanup-tree-dump "optimized" } } */ diff --git a/tests/GCCTestSuite/pr15784-4.hex.expected b/tests/GCCTestSuite/pr15784-4.hex.expected new file mode 100644 index 0000000..5297a51 --- /dev/null +++ b/tests/GCCTestSuite/pr15784-4.hex.expected @@ -0,0 +1,26 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F518D0E0F519E512F50F56 +:10002000E51EF500E51DF501E51CF509E51FF4F5F4 +:100030000BE500F4F50CE501F4F50DE509F4F50E1A +:10004000750001750100750900750A00C37512007D +:10005000E500F5F0E50B35F0F500E501F5F0E50C10 +:1000600035F0F501E509F5F0E50D35F0F509E50A9E +:10007000F5F0E50E35F0F50AE500F502E501F503CA +:10008000E509F504E50AF505E50FF512E519C0E007 +:10009000E518C0E075E0042506F50675E0003507B3 +:1000A000F507E502F582E503F583E504F500E505CE +:1000B000F5012200E506758204C39582F506E50781 +:1000C0007583009583F507D0E0F518D0E0F519E5C4 +:1000D00012F50FE51EF500E51DF501E51CF509E536 +:1000E0001FF4F50BE500F4F50CE501F4F50DE50959 +:1000F000F4F50ED3750000E500F5F0E50B35F0F5ED +:100100000BE500F5F0E50C35F0F50CE500F5F0E554 +:100110000D35F0F50DE500F5F0E50E35F0F50E7551 +:100120000001750100750900750A00C3E500F5F0CE +:10013000E50B95F0F500E501F5F0E50C95F0F5011E +:10014000E509F5F0E50D95F0F509E50AF5F0E50EA0 +:1001500095F0F50AE500F502E501F503E509F5047A +:10016000E50AF505E50FF512E519C0E0E518C0E070 +:1001700075E0042506F50675E0003507F507E5028C +:10018000F582E503F583E504F500E505F5012200B8 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15784-4.s.expected b/tests/GCCTestSuite/pr15784-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr15784-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15825-1.c b/tests/GCCTestSuite/pr15825-1.c new file mode 100644 index 0000000..a4b46d4 --- /dev/null +++ b/tests/GCCTestSuite/pr15825-1.c @@ -0,0 +1,18 @@ +/* PR middle-end/15825 */ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +unsigned int foo(long long high, int unsigned_p) +{ + int i; + if (high < 0) + if (!unsigned_p) + { + i = 1; + goto t; + } + i = 0; +t: + return i; +} + diff --git a/tests/GCCTestSuite/pr15825-1.c.expected b/tests/GCCTestSuite/pr15825-1.c.expected new file mode 100644 index 0000000..a4b46d4 --- /dev/null +++ b/tests/GCCTestSuite/pr15825-1.c.expected @@ -0,0 +1,18 @@ +/* PR middle-end/15825 */ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +unsigned int foo(long long high, int unsigned_p) +{ + int i; + if (high < 0) + if (!unsigned_p) + { + i = 1; + goto t; + } + i = 0; +t: + return i; +} + diff --git a/tests/GCCTestSuite/pr15825-1.hex.expected b/tests/GCCTestSuite/pr15825-1.hex.expected new file mode 100644 index 0000000..377b09a --- /dev/null +++ b/tests/GCCTestSuite/pr15825-1.hex.expected @@ -0,0 +1,91 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF50DE51EF500E51DCC +:1000D000F501E51CF509E519F517E518F516750C98 +:1000E00000750B00750A00751100E50DF519E500A6 +:1000F000F515E501F512E509F513E50CF518E50B25 +:10010000F514E50AF510750080E500F5F0E5132516 +:10011000F0F513E500F5F0E51125F0F511750C008B +:10012000750D00750E00750F00750B00750A0175D1 +:100130000001C3E511F5F0E51395F0F509E50BF5C0 +:10014000F0E50B35F0F509E509F5F0E50055F0F5BA +:1001500000E500F5F0E50C45F0F50C750001C3E590 +:1001600011F5F0E51395F0F509E50BF5F0E50B3524 +:10017000F0F509E513F5F0E51195F0F501E50BF55E +:10018000F0E50B35F0F501E501F5F0E50945F0F591 +:1001900009E50AF5F0E50965F0F509E509F5F0E589 +:1001A0000055F0F500C3E510F5F0E51295F0F509FE +:1001B000E50BF5F0E50B35F0F509E509F5F0E5009F +:1001C00055F0F500E500F5F0E50C45F0F50C75008F +:1001D00001C3E511F5F0E51395F0F509E50BF5F030 +:1001E000E50B35F0F509E513F5F0E51195F0F501AE +:1001F000E50BF5F0E50B35F0F501E501F5F0E50966 +:1002000045F0F509E50AF5F0E50965F0F509E509B8 +:10021000F5F0E50055F0F500C3E510F5F0E51295B1 +:10022000F0F509E50BF5F0E50B35F0F509E512F50C +:10023000F0E51095F0F501E50BF5F0E50B35F0F57F +:1002400001E501F5F0E50945F0F509E50AF5F0E508 +:100250000965F0F509E509F5F0E50055F0F500C38D +:10026000E514F5F0E51595F0F509E50BF5F0E50B6E +:1002700035F0F509E509F5F0E50055F0F500E50084 +:10028000F5F0E50C45F0F50C750001C3E511F5F04E +:10029000E51395F0F509E50BF5F0E50B35F0F509FB +:1002A000E513F5F0E51195F0F501E50BF5F0E50B3B +:1002B00035F0F501E501F5F0E50945F0F509E50A48 +:1002C000F5F0E50965F0F509E509F5F0E50055F00B +:1002D000F500C3E510F5F0E51295F0F509E50BF52D +:1002E000F0E50B35F0F509E512F5F0E51095F0F5C0 +:1002F00001E50BF5F0E50B35F0F501E501F5F0E56D +:100300000945F0F509E50AF5F0E50965F0F509E5B7 +:1003100009F5F0E50055F0F500C3E514F5F0E51535 +:1003200095F0F509E50BF5F0E50B35F0F509E51568 +:10033000F5F0E51495F0F501E50BF5F0E50B35F07A +:10034000F501E501F5F0E50945F0F509E50AF5F0F7 +:10035000E50965F0F509E509F5F0E50055F0F5006A +:10036000C3E518F5F0E51995F0F509E50BF5F0E5AD +:100370000B35F0F509E509F5F0E50055F0F500E578 +:1003800000F5F0E50C45F0F50C750000E50CF5F016 +:10039000E50045F0F500E50DF5F0E50045F0F50068 +:1003A000E50EF5F0E50045F0F500E50FF5F0E500A8 +:1003B00045F0F500E500700280030204AC00750012 +:1003C00000750100750900750A0000E500F502E5F9 +:1003D00001F503E509F504E50AF50575E0092506CB +:1003E000F58275E0003507F583E0F51775E008251F +:1003F00006F58275E0003507F583E0F51675E00730 +:100400002506F58275E0003507F583E0F51575E002 +:10041000062506F58275E0003507F583E0F51475CD +:10042000E0052506F58275E0003507F583E0F51354 +:1004300075E0042506F58275E0003507F583E0F5E3 +:100440001275E0032506F58275E0003507F583E0B7 +:10045000F51175E0022506F58275E0003507F58394 +:10046000E0F51075E0002506F58275E0003507F52A +:1004700083E0F508E508C0E075E0012506F5827522 +:10048000E0003507F583E0F508E508C0E075E01207 +:100490002506F50675E0003507F507E502F582E566 +:1004A00003F583E504F500E505F50122007501017A +:1004B000C3750000E51BF5F0E50095F0F50075004B +:1004C00000E500F5F0E50035F0F500E500F5F0E5B4 +:1004D0000165F0F501C3750000E51AF5F0E500953A +:1004E000F0F500750000E500F5F0E50035F0F500E9 +:1004F000E500F5F0E50165F0F501C3750000E517CD +:10050000F5F0E50095F0F500750000E500F5F0E583 +:100510000035F0F500E500F5F0E50165F0F501C303 +:10052000750000E516F5F0E50095F0F500750000A2 +:10053000E500F5F0E50035F0F500E500F5F0E50142 +:1005400065F0F501750900750A00750B007500006E +:10055000E501F5F0E50045F0F500E509F5F0E50009 +:1005600045F0F500E50AF5F0E50045F0F500E50B8E +:10057000F5F0E50045F0F500E500700280030205A6 +:1005800085000203BE007500017501007509007544 +:100590000A000203CA000000000000000000000082 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr15825-1.s.expected b/tests/GCCTestSuite/pr15825-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr15825-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr17036-1.c b/tests/GCCTestSuite/pr17036-1.c new file mode 100644 index 0000000..ea2c9ca --- /dev/null +++ b/tests/GCCTestSuite/pr17036-1.c @@ -0,0 +1,11 @@ +/* { dg-do compile } */ + +int main () +{ + int R, N = 4; + unsigned int A = 2; + signed int B = 2; + ((B >> N) & 1) ? 1 : 0; + ((A >> N) & 1) ? 1 : 0; + return 0; +} diff --git a/tests/GCCTestSuite/pr17036-1.c.expected b/tests/GCCTestSuite/pr17036-1.c.expected new file mode 100644 index 0000000..ea2c9ca --- /dev/null +++ b/tests/GCCTestSuite/pr17036-1.c.expected @@ -0,0 +1,11 @@ +/* { dg-do compile } */ + +int main () +{ + int R, N = 4; + unsigned int A = 2; + signed int B = 2; + ((B >> N) & 1) ? 1 : 0; + ((A >> N) & 1) ? 1 : 0; + return 0; +} diff --git a/tests/GCCTestSuite/pr17036-1.hex.expected b/tests/GCCTestSuite/pr17036-1.hex.expected new file mode 100644 index 0000000..e5526d6 --- /dev/null +++ b/tests/GCCTestSuite/pr17036-1.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501750900750A00750B18 +:1000200000750C00E509F502E50AF503E50BF5049A +:10003000E50CF505E501C0E0E500C0E0E502F5826C +:10004000E503F583E504F500E505F5012200000070 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr17036-1.s.expected b/tests/GCCTestSuite/pr17036-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr17036-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr17319.c b/tests/GCCTestSuite/pr17319.c new file mode 100644 index 0000000..5d39e4c --- /dev/null +++ b/tests/GCCTestSuite/pr17319.c @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fno-tree-dce" } */ + +typedef unsigned long long HARD_REG_ELT_TYPE; +typedef HARD_REG_ELT_TYPE HARD_REG_SET[2]; +static HARD_REG_SET newpat_used_regs; +int try_combine (void) +{ + HARD_REG_ELT_TYPE *scan_tp_ = newpat_used_regs; + scan_tp_[0] = 0; + scan_tp_[1] = 0; +} diff --git a/tests/GCCTestSuite/pr17319.c.expected b/tests/GCCTestSuite/pr17319.c.expected new file mode 100644 index 0000000..5d39e4c --- /dev/null +++ b/tests/GCCTestSuite/pr17319.c.expected @@ -0,0 +1,12 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fno-tree-dce" } */ + +typedef unsigned long long HARD_REG_ELT_TYPE; +typedef HARD_REG_ELT_TYPE HARD_REG_SET[2]; +static HARD_REG_SET newpat_used_regs; +int try_combine (void) +{ + HARD_REG_ELT_TYPE *scan_tp_ = newpat_used_regs; + scan_tp_[0] = 0; + scan_tp_[1] = 0; +} diff --git a/tests/GCCTestSuite/pr17319.hex.expected b/tests/GCCTestSuite/pr17319.hex.expected new file mode 100644 index 0000000..318f5e8 --- /dev/null +++ b/tests/GCCTestSuite/pr17319.hex.expected @@ -0,0 +1,63 @@ +:1000000000D0E0F51AD0E0F51BE511F518E510F584 +:1000100019900000E582F510900000E583F5117558 +:100020000000750100750C04750D00750E00750F4C +:1000300000C3750900E500F5F0E50CA4F50BE5003B +:10004000F5F0E50CA4E5F0F50AE50BF5F0E509356A +:10005000F0F509E501F5F0E50CA4F50BE501F5F087 +:10006000E50CA4E5F0F501E50BF5F0E50A35F0F552 +:100070000AC3C3750100E509F5F0E50E35F0F50E8C +:10008000E50AF5F0E50F35F0F50FC3750A00E50058 +:10009000F5F0E50DA4F50BE500F5F0E50DA4E5F0B0 +:1000A000F501E50BF5F0E50A35F0F50A750900C331 +:1000B000C3750000E509F5F0E50E35F0F50EE50A2B +:1000C000F5F0E50F35F0F50FC3750900750A00C3AB +:1000D000C3750000E509F5F0E50E35F0F50EE50A0B +:1000E000F5F0E50F35F0F50FC3750900750A00C38B +:1000F000C3750000E509F5F0E50E35F0F50EE50AEB +:10010000F5F0E50F35F0F50FC3750000E50EF5F0DD +:10011000E51035F0F500E50FF5F0E51135F0F50ED9 +:10012000750A00750B00750C00750D00750900C38C +:10013000750100E509F5F0E50035F0F509E501F593 +:10014000F0E50E35F0F501E50AF503E501F502E508 +:1001500009F582E502F583E503F0750901C3750130 +:1001600000E509F5F0E50035F0F509E501F5F0E504 +:100170000E35F0F501E50BF503E501F502E509F5AE +:1001800082E502F583E503F0750902C3750100E518 +:1001900009F5F0E50035F0F509E501F5F0E50E3576 +:1001A000F0F501E50CF503E501F502E509F582E559 +:1001B00002F583E503F0750903C3750100E509F550 +:1001C000F0E50035F0F509E501F5F0E50E35F0F55F +:1001D00001E50DF503E501F502E509F582E502F516 +:1001E00083E503F0750001750100750C04750D00C1 +:1001F000750E00750F00C3750900E500F5F0E50CFC +:10020000A4F50BE500F5F0E50CA4E5F0F50AE50B27 +:10021000F5F0E50935F0F509E501F5F0E50CA4F593 +:100220000BE501F5F0E50CA4E5F0F501E50BF5F0C3 +:10023000E50A35F0F50AC3C3750100E509F5F0E5F7 +:100240000E35F0F50EE50AF5F0E50F35F0F50FC3C4 +:10025000750A00E500F5F0E50DA4F50BE500F5F0F5 +:10026000E50DA4E5F0F501E50BF5F0E50A35F0F54F +:100270000A750900C3C3750000E509F5F0E50E3500 +:10028000F0F50EE50AF5F0E50F35F0F50FC3750949 +:1002900000750A00C3C3750000E509F5F0E50E35E9 +:1002A000F0F50EE50AF5F0E50F35F0F50FC3750929 +:1002B00000750A00C3C3750000E509F5F0E50E35C9 +:1002C000F0F50EE50AF5F0E50F35F0F50FC3750012 +:1002D00000E50EF5F0E51035F0F500E50FF5F0E579 +:1002E0001135F0F50E750A00750B00750C00750DD3 +:1002F00000750900C3750100E509F5F0E50035F06A +:10030000F509E501F5F0E50E35F0F501E50AF5032F +:10031000E501F502E509F582E502F583E503F075EF +:100320000901C3750100E509F5F0E50035F0F509AF +:10033000E501F5F0E50E35F0F501E50BF503E50116 +:10034000F502E509F582E502F583E503F07509029A +:10035000C3750100E509F5F0E50035F0F509E501A3 +:10036000F5F0E50E35F0F501E50CF503E501F502D4 +:10037000E509F582E502F583E503F0750903C37528 +:100380000100E509F5F0E50035F0F509E501F5F0C6 +:10039000E50E35F0F501E50DF503E501F502E5099A +:1003A000F582E502F583E503F0E51CF502E51CF5B1 +:1003B00003E51CF504E51CF505E518F511E519F54F +:1003C00010E51BC0E0E51AC0E0E502F582E503F5A3 +:1003D00083E504F500E505F50122000000000000BA +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr17319.s.expected b/tests/GCCTestSuite/pr17319.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr17319.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr17581-1.c b/tests/GCCTestSuite/pr17581-1.c new file mode 100644 index 0000000..b63517c --- /dev/null +++ b/tests/GCCTestSuite/pr17581-1.c @@ -0,0 +1,30 @@ +/* PR rtl-optimization/17581 */ +/* { dg-do run } */ +/* { dg-options "-O2" } */ + +void abort (void); + +int foo(int x) +{ + unsigned long long tmp = 0; + + switch(x) { + case 21: + tmp |= 1; + tmp |= 2; + tmp |= 8; + break; + default: + break; + } + + return (int)tmp; +} + +int main() +{ + if (foo(21) != 11) + abort (); + return 0; +} + diff --git a/tests/GCCTestSuite/pr17581-1.c.expected b/tests/GCCTestSuite/pr17581-1.c.expected new file mode 100644 index 0000000..b63517c --- /dev/null +++ b/tests/GCCTestSuite/pr17581-1.c.expected @@ -0,0 +1,30 @@ +/* PR rtl-optimization/17581 */ +/* { dg-do run } */ +/* { dg-options "-O2" } */ + +void abort (void); + +int foo(int x) +{ + unsigned long long tmp = 0; + + switch(x) { + case 21: + tmp |= 1; + tmp |= 2; + tmp |= 8; + break; + default: + break; + } + + return (int)tmp; +} + +int main() +{ + if (foo(21) != 11) + abort (); + return 0; +} + diff --git a/tests/GCCTestSuite/pr17581-1.hex.expected b/tests/GCCTestSuite/pr17581-1.hex.expected new file mode 100644 index 0000000..f6784e7 --- /dev/null +++ b/tests/GCCTestSuite/pr17581-1.hex.expected @@ -0,0 +1,64 @@ +:1000000075812F7506FF7507FF12027202000C0042 +:1000100000E506758204C39582F506E50775830041 +:100020009583F507D0E0F51AD0E0F51BE511F5183A +:10003000E510F519750000750100750900750A00D5 +:10004000750B15750C00750D00750E00E51DF50F8F +:10005000E51CF510751100C3E50BF5F0E51F95F0F3 +:10006000F50BE50BF5F0E51145F0F511C3E50CF5E1 +:10007000F0E51E95F0F50BE50BF5F0E51145F0F513 +:1000800011C3E50DF5F0E50F95F0F50BE50BF5F077 +:10009000E51145F0F511C3E50EF5F0E51095F0F525 +:1000A0000BE50BF5F0E51145F0F511750C00750D3C +:1000B00000750E00E511F50B751101C3750F00E514 +:1000C0000BF5F0E50F95F0F50F750F00E50FF5F066 +:1000D000E50F35F0F50FE50FF5F0E51165F0F511D9 +:1000E000C3750F00E50CF5F0E50F95F0F50F750FF2 +:1000F00000E50FF5F0E50F35F0F50FE50FF5F0E54C +:100100001165F0F511C3750F00E50DF5F0E50F95DC +:10011000F0F50F750F00E50FF5F0E50F35F0F50F71 +:10012000E50FF5F0E51165F0F511C3750F00E50E6B +:10013000F5F0E50F95F0F50F750F00E50FF5F0E51B +:100140000F35F0F50FE50FF5F0E51165F0F51175D8 +:100150000C00750D00750E00750B00E511F5F0E54E +:100160000B45F0F50BE50CF5F0E50B45F0F50BE56F +:100170000DF5F0E50B45F0F50BE50EF5F0E50B455B +:10018000F0F50BE50B700280030201CE000000E5E4 +:1001900000F502E501F503E509F504E50AF505E5D5 +:1001A00018F511E519F510E51BC0E0E51AC0E0757A +:1001B000E0042506F50675E0003507F507E502F5CC +:1001C00082E503F583E504F500E505F5012200006D +:1001D000750B01750C00750D00750E00C3E50BF570 +:1001E000F0E50045F0F500E50CF5F0E50145F0F52A +:1001F00001E50DF5F0E50945F0F509E50EF5F0E549 +:100200000A45F0F50A750B02750C00750D00750EA8 +:1002100000C3E50BF5F0E50045F0F500E50CF5F061 +:10022000E50145F0F501E50DF5F0E50945F0F509C5 +:10023000E50EF5F0E50A45F0F50A750B08750C00BA +:10024000750D00750E00C3E50BF5F0E50045F0F502 +:1002500000E50CF5F0E50145F0F501E50DF5F0E5FB +:100260000945F0F509E50EF5F0E50A45F0F50A0255 +:10027000018E00E506758202C39582F506E50775D5 +:1002800083009583F507D0E0F50875E0012506F5B4 +:100290008275E0003507F583E508F0D0E0F50875D4 +:1002A000E0002506F58275E0003507F583E508F0E6 +:1002B000751F15751E00751D00751C00120010E5D8 +:1002C00082F502E583F503E500F504E501F505E5B2 +:1002D00002F50BE503F50CE504F50DE505F50E75E6 +:1002E000000B750100750900750A00750F00C3E564 +:1002F00000F5F0E50B95F0F500E500F5F0E50F45AC +:10030000F0F50FC3E501F5F0E50C95F0F500E5001B +:10031000F5F0E50F45F0F50FC3E509F5F0E50D95AE +:10032000F0F500E500F5F0E50F45F0F50FC3E50A3F +:10033000F5F0E50E95F0F500E500F5F0E50F45F078 +:10034000F50F750100750900750A00750000E50FCD +:10035000F5F0E50045F0F500E501F5F0E50045F0C4 +:10036000F500E509F5F0E50045F0F500E50AF5F0E2 +:10037000E50045F0F500E500700280030203E500AA +:10038000750000750100750900750A00E500F502A9 +:10039000E501F503E509F504E50AF50575E0002535 +:1003A00006F58275E0003507F583E0F508E508C03D +:1003B000E075E0012506F58275E0003507F583E07C +:1003C000F508E508C0E075E0022506F50675E000D1 +:1003D0003507F507E502F582E503F583E504F50049 +:1003E000E505F50122000203800000000000000086 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr17581-1.s.expected b/tests/GCCTestSuite/pr17581-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr17581-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr17635.c b/tests/GCCTestSuite/pr17635.c new file mode 100644 index 0000000..d2154c3 --- /dev/null +++ b/tests/GCCTestSuite/pr17635.c @@ -0,0 +1,11 @@ +/* PR 17635 */ +/* Contributed by Devang Patel */ +/* { dg-do compile } */ +/* { dg-options "-O2 -ftree-vectorize" } */ + +void foo(int i) +{ + while (1) + if (i) ++i; +} + diff --git a/tests/GCCTestSuite/pr17635.c.expected b/tests/GCCTestSuite/pr17635.c.expected new file mode 100644 index 0000000..d2154c3 --- /dev/null +++ b/tests/GCCTestSuite/pr17635.c.expected @@ -0,0 +1,11 @@ +/* PR 17635 */ +/* Contributed by Devang Patel */ +/* { dg-do compile } */ +/* { dg-options "-O2 -ftree-vectorize" } */ + +void foo(int i) +{ + while (1) + if (i) ++i; +} + diff --git a/tests/GCCTestSuite/pr17635.hex.expected b/tests/GCCTestSuite/pr17635.hex.expected new file mode 100644 index 0000000..3e9e2c6 --- /dev/null +++ b/tests/GCCTestSuite/pr17635.hex.expected @@ -0,0 +1,30 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F518D0E0F519E514F50D56 +:10002000E513F50EE512F50F750001750100750970 +:1000300000750A00750C01C3750B00E500F5F0E5CD +:100040000B95F0F50B750B00E50BF5F0E50B35F0B6 +:10005000F50BE50BF5F0E50C65F0F50CC3750B0041 +:10006000E501F5F0E50B95F0F50B750B00E50BF5EB +:10007000F0E50B35F0F50BE50BF5F0E50C65F0F56B +:100080000CC3750B00E509F5F0E50B95F0F50B7564 +:100090000B00E50BF5F0E50B35F0F50BE50BF5F096 +:1000A000E50C65F0F50CC3750B00E50AF5F0E50B02 +:1000B00095F0F50B750B00E50BF5F0E50B35F0F55C +:1000C0000BE50BF5F0E50C65F0F50C750100750915 +:1000D00000750A00750000E50CF5F0E50045F0F547 +:1000E00000E501F5F0E50045F0F500E509F5F0E57E +:1000F0000045F0F500E50AF5F0E50045F0F500E50E +:10010000007002800302017D00750000E51FF5F01C +:10011000E50045F0F500E51EF5F0E50045F0F500D9 +:10012000E51DF5F0E50045F0F500E51CF5F0E5000E +:1001300045F0F500E5007002800302014100020075 +:100140002800750001750100750900750A00C37566 +:100150000B00E500F5F0E51F35F0F51FE501F5F0C2 +:10016000E51E35F0F51EE509F5F0E51D35F0F51D48 +:10017000E50AF5F0E51C35F0F51C020028007500D5 +:1001800000E500F502E500F503E500F504E500F5FE +:1001900005E50DF514E50EF513E50FF512E519C0AB +:1001A000E0E518C0E075E0042506F50675E00035C9 +:1001B00007F507E502F582E503F583E504F500E5BB +:1001C00005F5012200000000000000000000000012 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr17635.s.expected b/tests/GCCTestSuite/pr17635.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr17635.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr17957.c b/tests/GCCTestSuite/pr17957.c new file mode 100644 index 0000000..ea18ea8 --- /dev/null +++ b/tests/GCCTestSuite/pr17957.c @@ -0,0 +1,19 @@ +/* { dg-do compile } */ +/* { dg-options "--param ggc-min-expand=0 --param ggc-min-heapsize=0" } */ +/* { dg-options "-fno-common --param ggc-min-expand=0 --param ggc-min-heapsize=0" { target hppa*-*-hpux* } } */ +__attribute__ ((vector_size (64))) unsigned char v1, v2, v3; +void +vadd (void) +{ + v1 = v2 + v3; +} +void +test_add (void) +{ + vadd (); +} +void +vsub (void) +{ + v1 = v2 - v3; +} diff --git a/tests/GCCTestSuite/pr17957.c.expected b/tests/GCCTestSuite/pr17957.c.expected new file mode 100644 index 0000000..ea18ea8 --- /dev/null +++ b/tests/GCCTestSuite/pr17957.c.expected @@ -0,0 +1,19 @@ +/* { dg-do compile } */ +/* { dg-options "--param ggc-min-expand=0 --param ggc-min-heapsize=0" } */ +/* { dg-options "-fno-common --param ggc-min-expand=0 --param ggc-min-heapsize=0" { target hppa*-*-hpux* } } */ +__attribute__ ((vector_size (64))) unsigned char v1, v2, v3; +void +vadd (void) +{ + v1 = v2 + v3; +} +void +test_add (void) +{ + vadd (); +} +void +vsub (void) +{ + v1 = v2 - v3; +} diff --git a/tests/GCCTestSuite/pr17957.hex.expected b/tests/GCCTestSuite/pr17957.hex.expected new file mode 100644 index 0000000..a740e73 --- /dev/null +++ b/tests/GCCTestSuite/pr17957.hex.expected @@ -0,0 +1,43 @@ +:1000000000D0E0F518D0E0F519E511F50EE510F592 +:100010000F900000E582F50C900000E583F50D904F +:100020000001E582F509900001E583F50A750100FC +:10003000C3750000E501F5F0E50935F0F501E500CF +:10004000F5F0E50A35F0F500E500F502E501F58289 +:10005000E502F583E0F50B900002E582F5099000DA +:1000600002E583F50A750100C3750000E501F5F0AE +:10007000E50935F0F501E500F5F0E50A35F0F500A4 +:10008000E500F502E501F582E502F583E0F500C340 +:10009000750100E500F5F0E50B35F0F50975010097 +:1000A000C3750000E501F5F0E50C35F0F501E5005C +:1000B000F5F0E50D35F0F500E509F503E500F5028D +:1000C000E501F582E502F583E503F0750000E50042 +:1000D000F502E500F503E500F504E500F505E50E9C +:1000E000F511E50FF510E519C0E0E518C0E0E502EF +:1000F000F582E503F583E504F500E505F501220049 +:10010000E506758202C39582F506E50775830095BD +:1001100083F507D0E0F50875E0012506F58275E066 +:10012000003507F583E508F0D0E0F50875E0002517 +:1001300006F58275E0003507F583E508F01200004A +:10014000750000E500F502E500F503E500F504E5BE +:1001500000F50575E0002506F58275E0003507F528 +:1001600083E0F508E508C0E075E0012506F5827535 +:10017000E0003507F583E0F508E508C0E075E0022A +:100180002506F50675E0003507F507E502F582E579 +:1001900003F583E504F500E505F5012200D0E0F55F +:1001A00018D0E0F519E511F50EE510F50F900000F7 +:1001B000E582F50C900000E583F50D900001E582E5 +:1001C000F509900001E583F50A750100C37500008B +:1001D000E501F5F0E50935F0F501E500F5F0E50A92 +:1001E00035F0F500E500F502E501F582E502F5835D +:1001F000E0F50B900002E582F509900002E583F539 +:100200000A750100C3750000E501F5F0E50935F058 +:10021000F501E500F5F0E50A35F0F500E500F50239 +:10022000E501F582E502F583E0F500C3E500F5F0B0 +:10023000E50B95F0F509750100C3750000E501F5C2 +:10024000F0E50C35F0F501E500F5F0E50D35F0F5DC +:1002500000E509F503E500F502E501F582E502F5A3 +:1002600083E503F0750000E500F502E500F503E520 +:1002700000F504E500F505E50EF511E50FF510E5CF +:1002800019C0E0E518C0E0E502F582E503F583E575 +:1002900004F500E505F50122000000000000000063 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr17957.s.expected b/tests/GCCTestSuite/pr17957.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr17957.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr18241-5.c b/tests/GCCTestSuite/pr18241-5.c new file mode 100644 index 0000000..87b06ba --- /dev/null +++ b/tests/GCCTestSuite/pr18241-5.c @@ -0,0 +1,14 @@ +/* { dg-do run } */ +/* { dg-options "-O1" } */ + +void exit (int); + +int main () +{ + int a; + volatile int *b = &a; + a = 1; + if (*b != 1) + exit (1); + return 0; +} diff --git a/tests/GCCTestSuite/pr18241-5.c.expected b/tests/GCCTestSuite/pr18241-5.c.expected new file mode 100644 index 0000000..87b06ba --- /dev/null +++ b/tests/GCCTestSuite/pr18241-5.c.expected @@ -0,0 +1,14 @@ +/* { dg-do run } */ +/* { dg-options "-O1" } */ + +void exit (int); + +int main () +{ + int a; + volatile int *b = &a; + a = 1; + if (*b != 1) + exit (1); + return 0; +} diff --git a/tests/GCCTestSuite/pr18241-5.hex.expected b/tests/GCCTestSuite/pr18241-5.hex.expected new file mode 100644 index 0000000..b93f57d --- /dev/null +++ b/tests/GCCTestSuite/pr18241-5.hex.expected @@ -0,0 +1,53 @@ +:1000000075812F7506FF7507FF12001002000C00A6 +:1000100000E506758207C39582F506E5077583003E +:100020009583F507D0E0F50875E0052506F582759E +:10003000E0003507F583E508F0D0E0F50875E00449 +:100040002506F58275E0003507F583E508F075E0D3 +:10005000062506F58275E0003507F583E510F0E525 +:1000600006F50AE507F501750900C3750000E50905 +:10007000F5F0E50A35F0F50FE500F5F0E50135F0AE +:10008000F510E506F50AE507F501750900C37500E9 +:1000900000E509F5F0E50A35F0F50DE500F5F0E5C8 +:1000A0000135F0F50E750901750A00750B00750C28 +:1000B00000750100C3750000E501F5F0E50D35F0B0 +:1000C000F501E500F5F0E50E35F0F500E509F5037D +:1000D000E500F502E501F582E502F583E503F0753B +:1000E0000101C3750000E501F5F0E50D35F0F501FE +:1000F000E500F5F0E50E35F0F500E50AF503E5005D +:10010000F502E501F582E502F583E503F0750102EC +:10011000C3750000E501F5F0E50D35F0F501E500EA +:10012000F5F0E50E35F0F500E50BF503E500F50219 +:10013000E501F582E502F583E503F0750103C3757A +:100140000000E501F5F0E50D35F0F501E500F5F00D +:10015000E50E35F0F500E50CF503E500F502E501E7 +:10016000F582E502F583E503F0E50FF500E510F50E +:1001700001750A00C3750900E50AF5F0E50035F0E0 +:10018000F50AE509F5F0E50135F0F509E509F502AF +:10019000E50AF582E502F583E0F50B750A01C37502 +:1001A0000900E50AF5F0E50035F0F50AE509F5F096 +:1001B000E50135F0F509E509F502E50AF582E50204 +:1001C000F583E0F50C750A02C3750900E50AF5F040 +:1001D000E50035F0F50AE509F5F0E50135F0F5093A +:1001E000E509F502E50AF582E502F583E0F50D750E +:1001F0000A03C3750900E50AF5F0E50035F0F50AD4 +:10020000E509F5F0E50135F0F509E509F502E50A3E +:10021000F582E502F583E0F50E75000175010075C4 +:100220000900750A00750F00C3E500F5F0E50B95B0 +:10023000F0F500E500F5F0E50F45F0F50FC3E50139 +:10024000F5F0E50C95F0F500E500F5F0E50F45F06B +:10025000F50FC3E509F5F0E50D95F0F500E500F5BE +:10026000F0E50F45F0F50FC3E50AF5F0E50E95F062 +:10027000F500E500F5F0E50F45F0F50F75010075A7 +:100280000900750A00750000E50FF5F0E50045F07E +:10029000F500E501F5F0E50045F0F500E509F5F0BC +:1002A000E50045F0F500E50AF5F0E50045F0F5005C +:1002B000E500700280030203300075000075010044 +:1002C000750900750A00E500F502E501F503E50989 +:1002D000F504E50AF50575E0062506F58275E000EA +:1002E0003507F583E0F51075E0042506F58275E025 +:1002F000003507F583E0F508E508C0E075E0052561 +:1003000006F58275E0003507F583E0F508E508C0DD +:10031000E075E0072506F50675E0003507F507E509 +:1003200002F582E503F583E504F500E505F5012214 +:1003300000751F01751E00751D00751C000202BAB4 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr18241-5.s.expected b/tests/GCCTestSuite/pr18241-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr18241-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr18479.c b/tests/GCCTestSuite/pr18479.c new file mode 100644 index 0000000..493574e --- /dev/null +++ b/tests/GCCTestSuite/pr18479.c @@ -0,0 +1,3 @@ +/* { dg-do compile } */ +/* { dg-options "" } */ +struct __attribute__ ((visibility("default"))) Foo { int foo; }; /* { dg-warning "attribute ignored on types" } */ diff --git a/tests/GCCTestSuite/pr18479.c.expected b/tests/GCCTestSuite/pr18479.c.expected new file mode 100644 index 0000000..493574e --- /dev/null +++ b/tests/GCCTestSuite/pr18479.c.expected @@ -0,0 +1,3 @@ +/* { dg-do compile } */ +/* { dg-options "" } */ +struct __attribute__ ((visibility("default"))) Foo { int foo; }; /* { dg-warning "attribute ignored on types" } */ diff --git a/tests/GCCTestSuite/pr18479.hex.expected b/tests/GCCTestSuite/pr18479.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/pr18479.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr18479.s.expected b/tests/GCCTestSuite/pr18479.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr18479.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr18809-1.c b/tests/GCCTestSuite/pr18809-1.c new file mode 100644 index 0000000..f20f004 --- /dev/null +++ b/tests/GCCTestSuite/pr18809-1.c @@ -0,0 +1,7 @@ +/* PR c/18809 */ +/* Origin: Andrew Pinski */ + +/* { dg-do compile } */ + +void foo(enum E e) {} /* { dg-error "" } */ +void bar() { foo(0); } /* { dg-error "formal" } */ diff --git a/tests/GCCTestSuite/pr18809-1.c.expected b/tests/GCCTestSuite/pr18809-1.c.expected new file mode 100644 index 0000000..f20f004 --- /dev/null +++ b/tests/GCCTestSuite/pr18809-1.c.expected @@ -0,0 +1,7 @@ +/* PR c/18809 */ +/* Origin: Andrew Pinski */ + +/* { dg-do compile } */ + +void foo(enum E e) {} /* { dg-error "" } */ +void bar() { foo(0); } /* { dg-error "formal" } */ diff --git a/tests/GCCTestSuite/pr18809-1.hex.expected b/tests/GCCTestSuite/pr18809-1.hex.expected new file mode 100644 index 0000000..b8ad5fd --- /dev/null +++ b/tests/GCCTestSuite/pr18809-1.hex.expected @@ -0,0 +1,17 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F501750900E51E +:1000200009F502E509F503E509F504E509F505E536 +:1000300001C0E0E500C0E075E0042506F50675E0C6 +:10004000003507F507E502F582E503F583E504F5DC +:1000500000E505F5012200E506758202C39582F5EB +:1000600006E5077583009583F507D0E0F50875E090 +:10007000012506F58275E0003507F583E508F0D027 +:10008000E0F50875E0002506F58275E0003507F516 +:1000900083E508F0751F00751E00751D00751C00B6 +:1000A000120000750000E500F502E500F503E5002B +:1000B000F504E500F50575E0002506F58275E0001C +:1000C0003507F583E0F508E508C0E075E001250691 +:1000D000F58275E0003507F583E0F508E508C0E036 +:1000E00075E0022506F50675E0003507F507E5021F +:1000F000F582E503F583E504F500E505F501220049 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr18809-1.s.expected b/tests/GCCTestSuite/pr18809-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr18809-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr18921-1.c b/tests/GCCTestSuite/pr18921-1.c new file mode 100644 index 0000000..b8c91aa --- /dev/null +++ b/tests/GCCTestSuite/pr18921-1.c @@ -0,0 +1,20 @@ +/* PR middle-end/18921 */ +/* { dg-do run } */ +/* { dg-options "-O2" } */ + +extern void abort (void); + +int foo (int k) +{ + unsigned char j = 0; + (k ? 0 : j++) == -1; + return j; +} + +int main () +{ + if (!foo (0)) + abort (); + return 0; +} + diff --git a/tests/GCCTestSuite/pr18921-1.c.expected b/tests/GCCTestSuite/pr18921-1.c.expected new file mode 100644 index 0000000..b8c91aa --- /dev/null +++ b/tests/GCCTestSuite/pr18921-1.c.expected @@ -0,0 +1,20 @@ +/* PR middle-end/18921 */ +/* { dg-do run } */ +/* { dg-options "-O2" } */ + +extern void abort (void); + +int foo (int k) +{ + unsigned char j = 0; + (k ? 0 : j++) == -1; + return j; +} + +int main () +{ + if (!foo (0)) + abort (); + return 0; +} + diff --git a/tests/GCCTestSuite/pr18921-1.hex.expected b/tests/GCCTestSuite/pr18921-1.hex.expected new file mode 100644 index 0000000..f301622 --- /dev/null +++ b/tests/GCCTestSuite/pr18921-1.hex.expected @@ -0,0 +1,40 @@ +:1000000075812F7506FF7507FF1200C302000C00F3 +:1000100000E506758204C39582F506E50775830041 +:100020009583F507D0E0F509D0E0F50A7501007574 +:100030000000E51FF5F0E50045F0F500E51EF5F0E0 +:10004000E50045F0F500E51DF5F0E50045F0F500AB +:10005000E51CF5F0E50045F0F500E50070028003D1 +:100060000200BF00E501F500750B01C3750100E555 +:100070000BF5F0E50035F0F500E500F50175000041 +:10008000E500F50BE500F50CE501F502E50BF503E0 +:10009000E50CF504E500F505E50AC0E0E509C0E07A +:1000A00075E0042506F50675E0003507F507E5025D +:1000B000F582E503F583E504F500E505F501220089 +:1000C00002007D00E506758202C39582F506E5070C +:1000D0007583009583F507D0E0F50875E0012506E6 +:1000E000F58275E0003507F583E508F0D0E0F50806 +:1000F00075E0002506F58275E0003507F583E50813 +:10010000F0751F00751E00751D00751C0012001093 +:10011000E582F502E583F503E500F504E501F50563 +:10012000E502F500E503F501E504F509E505F50A45 +:10013000750C01C3750B00E500F5F0E50B95F0F5C6 +:100140000B750B00E50BF5F0E50B35F0F50BE50B4A +:10015000F5F0E50C65F0F50CC3750B00E501F5F065 +:10016000E50B95F0F50B750B00E50BF5F0E50B35A0 +:10017000F0F50BE50BF5F0E50C65F0F50CC3750B30 +:1001800000E509F5F0E50B95F0F50B750B00E50BB7 +:10019000F5F0E50B35F0F50BE50BF5F0E50C65F04A +:1001A000F50CC3750B00E50AF5F0E50B95F0F50BC2 +:1001B000750B00E50BF5F0E50B35F0F50BE50BF5F0 +:1001C000F0E50C65F0F50C750100750900750A0085 +:1001D000750000E50CF5F0E50045F0F500E501F5EA +:1001E000F0E50045F0F500E509F5F0E50045F0F52E +:1001F00000E50AF5F0E50045F0F500E50070028045 +:100200000302026A00750000750100750900750A95 +:1002100000E500F502E501F503E509F504E50AF559 +:100220000575E0002506F58275E0003507F583E0E9 +:10023000F508E508C0E075E0012506F58275E000E7 +:100240003507F583E0F508E508C0E075E00225060E +:10025000F50675E0003507F507E502F582E503F5DB +:1002600083E504F500E505F5012200020205000022 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr18921-1.s.expected b/tests/GCCTestSuite/pr18921-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr18921-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr18928-1.c b/tests/GCCTestSuite/pr18928-1.c new file mode 100644 index 0000000..406b2fc --- /dev/null +++ b/tests/GCCTestSuite/pr18928-1.c @@ -0,0 +1,20 @@ +/* PR rtl-optimization/18928 */ +/* { dg-do compile { target fpic } } */ +/* { dg-options "-O2 -fPIC" } */ + +const char *toHex( unsigned short u ) +{ + static char hexVal[5]; + int i = 3; + while ( i >= 0 ) { + unsigned short hex = (u & 0x000f); + if ( hex < 0x0a ) + hexVal[i] = '0'+hex; + else + hexVal[i] = 'A'+(hex-0x0a); + i--; + } + hexVal[4] = '\0'; + return hexVal; +} + diff --git a/tests/GCCTestSuite/pr18928-1.c.expected b/tests/GCCTestSuite/pr18928-1.c.expected new file mode 100644 index 0000000..406b2fc --- /dev/null +++ b/tests/GCCTestSuite/pr18928-1.c.expected @@ -0,0 +1,20 @@ +/* PR rtl-optimization/18928 */ +/* { dg-do compile { target fpic } } */ +/* { dg-options "-O2 -fPIC" } */ + +const char *toHex( unsigned short u ) +{ + static char hexVal[5]; + int i = 3; + while ( i >= 0 ) { + unsigned short hex = (u & 0x000f); + if ( hex < 0x0a ) + hexVal[i] = '0'+hex; + else + hexVal[i] = 'A'+(hex-0x0a); + i--; + } + hexVal[4] = '\0'; + return hexVal; +} + diff --git a/tests/GCCTestSuite/pr18928-1.hex.expected b/tests/GCCTestSuite/pr18928-1.hex.expected new file mode 100644 index 0000000..b0553e6 --- /dev/null +++ b/tests/GCCTestSuite/pr18928-1.hex.expected @@ -0,0 +1,208 @@ +:1000000000E50675820CC39582F506E50775830049 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF51DE51EF51C75101D +:1000D000037511007512007517007518007516006C +:1000E000750E00750F00E517F513750080E500F536 +:1000F000F0E51325F0F513E500F5F0E50F25F0F533 +:100100000F750B00750C00751500750D00750A0054 +:10011000751401750001C3E50FF5F0E51395F0F5D1 +:1001200009E50AF5F0E50A35F0F509E509F5F0E528 +:100130000055F0F500E500F5F0E50B45F0F50B7521 +:100140000001C3E50FF5F0E51395F0F509E50AF5B3 +:10015000F0E50A35F0F509E513F5F0E50F95F0F552 +:1001600001E50AF5F0E50A35F0F501E501F5F0E500 +:100170000945F0F509E514F5F0E50965F0F509E53F +:1001800009F5F0E50055F0F500C3E50EF5F0E512D0 +:1001900095F0F509E50AF5F0E50A35F0F509E50908 +:1001A000F5F0E50055F0F500E500F5F0E50B45F05C +:1001B000F50B750001C3E50FF5F0E51395F0F509B2 +:1001C000E50AF5F0E50A35F0F509E513F5F0E50F78 +:1001D00095F0F501E50AF5F0E50A35F0F501E501E0 +:1001E000F5F0E50945F0F509E514F5F0E50965F0E8 +:1001F000F509E509F5F0E50055F0F500C3E50EF564 +:10020000F0E51295F0F509E50AF5F0E50A35F0F5A7 +:1002100009E512F5F0E50E95F0F501E50AF5F0E5D2 +:100220000A35F0F501E501F5F0E50945F0F509E5D8 +:1002300014F5F0E50965F0F509E509F5F0E5005577 +:10024000F0F500C3E516F5F0E51195F0F509E50ABE +:10025000F5F0E50A35F0F509E509F5F0E50055F0AA +:10026000F500E500F5F0E50B45F0F50B750001C371 +:10027000E50FF5F0E51395F0F509E50AF5F0E50A67 +:1002800035F0F509E513F5F0E50F95F0F501E50A10 +:10029000F5F0E50A35F0F501E501F5F0E50945F081 +:1002A000F509E514F5F0E50965F0F509E509F5F05E +:1002B000E50055F0F500C3E50EF5F0E51295F0F513 +:1002C00009E50AF5F0E50A35F0F509E512F5F0E57E +:1002D0000E95F0F501E50AF5F0E50A35F0F501E5D2 +:1002E00001F5F0E50945F0F509E514F5F0E50965D6 +:1002F000F0F509E509F5F0E50055F0F500C3E51660 +:10030000F5F0E51195F0F509E50AF5F0E50A35F0A7 +:10031000F509E511F5F0E51695F0F501E50AF5F0BA +:10032000E50A35F0F501E501F5F0E50945F0F509D7 +:10033000E514F5F0E50965F0F509E509F5F0E500E6 +:1003400055F0F500C3E518F5F0E51095F0F509E571 +:100350000AF5F0E50A35F0F509E509F5F0E500558F +:10036000F0F500E500F5F0E50B45F0F50BE50BF5D4 +:1003700000E515F501750B01C3750900E500F5F001 +:10038000E50995F0F509750900E509F5F0E5093588 +:10039000F0F509E509F5F0E50B65F0F50BC3750916 +:1003A00000E50CF5F0E50995F0F509750900E5099A +:1003B000F5F0E50935F0F509E509F5F0E50B65F02F +:1003C000F50BC3750900E501F5F0E50995F0F509B0 +:1003D000750900E509F5F0E50935F0F509E509F5D8 +:1003E000F0E50B65F0F50BC3750900E50DF5F0E5DB +:1003F0000995F0F509750900E509F5F0E50935F00D +:10040000F509E509F5F0E50B65F0F50B750C0075E0 +:100410001500750D00E50CF500E515F501E50DF588 +:1004200009750C01C3750A00E50BF5F0E50A95F0B6 +:10043000F50A750A00E50AF5F0E50A35F0F50AE572 +:100440000AF5F0E50C65F0F50CC3750A00E500F55A +:10045000F0E50A95F0F50A750A00E50AF5F0E50AF7 +:1004600035F0F50AE50AF5F0E50C65F0F50CC37515 +:100470000A00E501F5F0E50A95F0F50A750A00E5D0 +:100480000AF5F0E50A35F0F50AE50AF5F0E50C6540 +:10049000F0F50CC3750A00E509F5F0E50A95F0F5ED +:1004A0000A750A00E50AF5F0E50A35F0F50AE50AED +:1004B000F5F0E50C65F0F50C750100750900750A9D +:1004C00000750000E50CF5F0E50045F0F500E501EC +:1004D000F5F0E50045F0F500E509F5F0E50045F03B +:1004E000F500E50AF5F0E50045F0F500E5007002DD +:1004F0008003020ABA0075010F750000C3E501F51B +:10050000F0E51D55F0F513E500F5F0E51C55F0F5A7 +:100510000E750F00E50FF514751B0A751600750CA6 +:1005200000750D00E513F51E750080E500F5F0E59A +:100530000F25F0F50FE500F5F0E50D25F0F50D754B +:100540000B00751800751900751A00750A007515ED +:1005500001750001C3E50DF5F0E50F95F0F509E52E +:100560000AF5F0E50A35F0F509E509F5F0E500557D +:10057000F0F500E500F5F0E50B45F0F50B75000131 +:10058000C3E50DF5F0E50F95F0F509E50AF5F0E5A1 +:100590000A35F0F509E50FF5F0E50D95F0F501E503 +:1005A0000AF5F0E50A35F0F501E501F5F0E5094554 +:1005B000F0F509E515F5F0E50965F0F509E509F54A +:1005C000F0E50055F0F500C3E50CF5F0E51495F005 +:1005D000F509E50AF5F0E50A35F0F509E509F5F064 +:1005E000E50055F0F500E500F5F0E50B45F0F50BFD +:1005F000750001C3E50DF5F0E50F95F0F509E50A85 +:10060000F5F0E50A35F0F509E50FF5F0E50D95F0A3 +:10061000F501E50AF5F0E50A35F0F501E501F5F03B +:10062000E50945F0F509E515F5F0E50965F0F50989 +:10063000E509F5F0E50055F0F500C3E50CF5F0E54A +:100640001495F0F509E50AF5F0E50A35F0F509E548 +:1006500014F5F0E50C95F0F501E50AF5F0E50A353D +:10066000F0F501E501F5F0E50945F0F509E515F5C9 +:10067000F0E50965F0F509E509F5F0E50055F0F557 +:1006800000C3E516F5F0E50E95F0F509E50AF5F07D +:10069000E50A35F0F509E509F5F0E50055F0F50056 +:1006A000E500F5F0E50B45F0F50B750001C3E50D30 +:1006B000F5F0E50F95F0F509E50AF5F0E50A35F0F6 +:1006C000F509E50FF5F0E50D95F0F501E50AF5F012 +:1006D000E50A35F0F501E501F5F0E50945F0F50924 +:1006E000E515F5F0E50965F0F509E509F5F0E50032 +:1006F00055F0F500C3E50CF5F0E51495F0F509E5C6 +:100700000AF5F0E50A35F0F509E514F5F0E50C9584 +:10071000F0F501E50AF5F0E50A35F0F501E501F53A +:10072000F0E50945F0F509E515F5F0E50965F0F5A1 +:1007300009E509F5F0E50055F0F500C3E516F5F01B +:10074000E50E95F0F509E50AF5F0E50A35F0F5094D +:10075000E50EF5F0E51695F0F501E50AF5F0E50A88 +:1007600035F0F501E501F5F0E50945F0F509E51588 +:10077000F5F0E50965F0F509E509F5F0E50055F056 +:10078000F500C3E51BF5F0E51E95F0F509E50AF562 +:10079000F0E50A35F0F509E509F5F0E50055F0F565 +:1007A00000E500F5F0E50B45F0F50B750000E50BF5 +:1007B000F5F0E50045F0F500E518F5F0E50045F049 +:1007C000F500E519F5F0E50045F0F500E51AF5F05E +:1007D000E50045F0F500E5007002800302096E00B7 +:1007E000900000E582F50E900000E583F50F750995 +:1007F00001750B00750C00750D00C3750000E51048 +:10080000F5F0E509A4F50AE510F5F0E509A4E5F031 +:10081000F501E50AF5F0E50035F0F500E511F5F034 +:10082000E509A4F50AE511F5F0E509A4E5F0F509F7 +:10083000E50AF5F0E50135F0F501C3C3750900E5FA +:1008400000F5F0E50C35F0F50CE501F5F0E50D35BA +:10085000F0F50DC3750100E510F5F0E50BA4F50A00 +:10086000E510F5F0E50BA4E5F0F509E50AF5F0E58E +:100870000135F0F501750000C3C3750900E500F509 +:10088000F0E50C35F0F50CE501F5F0E50D35F0F58A +:100890000DC3750000750100C3C3750900E500F5BF +:1008A000F0E50C35F0F50CE501F5F0E50D35F0F56A +:1008B0000DC3750000750100C3C3750900E500F59F +:1008C000F0E50C35F0F50CE501F5F0E50D35F0F54A +:1008D0000DC3750000E50CF5F0E50E35F0F500E50B +:1008E0000DF5F0E50F35F0F509750141750A0AC3FC +:1008F000E50AF5F0E51395F0F50BC3750A00E50B75 +:10090000F5F0E50135F0F50B750A00C3750100E55A +:100910000AF5F0E50035F0F500E501F5F0E50935FB +:10092000F0F501E50BF503E501F502E500F582E5DB +:1009300002F583E503F07500017501007509007586 +:100940000A00C3E500F5F0E51095F0F510E501F5B6 +:10095000F0E51195F0F511E509F5F0E51295F0F5E2 +:1009600012E50AF5F0E51795F0F5170200DA0090A8 +:100970000000E582F50E900000E583F50F75090192 +:10098000750B00750C00750D00C3750000E510F5C2 +:10099000F0E509A4F50AE510F5F0E509A4E5F0F5A0 +:1009A00001E50AF5F0E50035F0F500E511F5F0E5B3 +:1009B00009A4F50AE511F5F0E509A4E5F0F509E566 +:1009C0000AF5F0E50135F0F501C3C3750900E5004E +:1009D000F5F0E50C35F0F50CE501F5F0E50D35F039 +:1009E000F50DC3750100E510F5F0E50BA4F50AE57A +:1009F00010F5F0E50BA4E5F0F509E50AF5F0E501E1 +:100A000035F0F501750000C3C3750900E500F5F088 +:100A1000E50C35F0F50CE501F5F0E50D35F0F50DDB +:100A2000C3750000750100C3C3750900E500F5F04A +:100A3000E50C35F0F50CE501F5F0E50D35F0F50DBB +:100A4000C3750000750100C3C3750900E500F5F02A +:100A5000E50C35F0F50CE501F5F0E50D35F0F50D9B +:100A6000C3750000E50CF5F0E50E35F0F500E50D79 +:100A7000F5F0E50F35F0F509750130C3750A00E5AD +:100A800013F5F0E50135F0F50B750A00C3750100AB +:100A9000E50AF5F0E50035F0F500E501F5F0E509CA +:100AA00035F0F501E50BF503E501F502E500F5820A +:100AB000E502F583E503F002093600900000E582C7 +:100AC000F510900000E583F51175000475010075BF +:100AD0000C01750D00750E00750F00C3750900E55A +:100AE00000F5F0E50CA4F50BE500F5F0E50CA4E548 +:100AF000F0F50AE50BF5F0E50935F0F509E501F546 +:100B0000F0E50CA4F50BE501F5F0E50CA4E5F0F536 +:100B100001E50BF5F0E50A35F0F50AC3C3750100F0 +:100B2000E509F5F0E50E35F0F50EE50AF5F0E50F0F +:100B300035F0F50FC3750A00E500F5F0E50DA4F5F5 +:100B40000BE500F5F0E50DA4E5F0F501E50BF5F09A +:100B5000E50A35F0F50A750900C3C3750000E5091B +:100B6000F5F0E50E35F0F50EE50AF5F0E50F35F098 +:100B7000F50FC3750900750A00C3C3750000E509C8 +:100B8000F5F0E50E35F0F50EE50AF5F0E50F35F078 +:100B9000F50FC3750900750A00C3C3750000E509A8 +:100BA000F5F0E50E35F0F50EE50AF5F0E50F35F058 +:100BB000F50FC3750000E50EF5F0E51035F0F50012 +:100BC000E50FF5F0E51135F0F50B750A0075090034 +:100BD000C3750100E509F5F0E50035F0F500E50124 +:100BE000F5F0E50B35F0F501E50AF503E501F50251 +:100BF000E500F582E502F583E503F0900000E5826B +:100C0000F501900000E583F509750000E501F502A6 +:100C1000E509F503E500F504E500F50575E00925AE +:100C200006F58275E0003507F583E0F51775E008F5 +:100C30002506F58275E0003507F583E0F51675E0C9 +:100C4000072506F58275E0003507F583E0F5157593 +:100C5000E0062506F58275E0003507F583E0F5141A +:100C600075E0052506F58275E0003507F583E0F5AA +:100C70001375E0042506F58275E0003507F583E07D +:100C8000F51275E0032506F58275E0003507F5835A +:100C9000E0F51175E0022506F58275E0003507F5EF +:100CA00083E0F51075E0002506F58275E000350754 +:100CB000F583E0F508E508C0E075E0012506F5825A +:100CC00075E0003507F583E0F508E508C0E075E05C +:100CD0000C2506F50675E0003507F507E502F582F7 +:100CE000E503F583E504F500E505F50122000000C4 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr18928-1.s.expected b/tests/GCCTestSuite/pr18928-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr18928-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr20017.c b/tests/GCCTestSuite/pr20017.c new file mode 100644 index 0000000..1fd6d58 --- /dev/null +++ b/tests/GCCTestSuite/pr20017.c @@ -0,0 +1,41 @@ +/* PR rtl-optimization/20017 + + After CSE/GCSE folds a switch statement to an unconditional jump, + cfg_cleanup did not remove a dead jump table, confusing the CFG + layout code later on. */ + +/* { dg-do compile } */ +/* { dg-options "-O1" } */ +/* { dg-options "-O1 -march=i386" { target { { i?86-*-* x86_64-*-* } && ilp32 } } } */ + +int +foo (int *buf, int *p) +{ + int result; + const int *tmp; + + if (*buf) + return 1; + + result = 2; + *buf = 2; + tmp = buf; + switch (*tmp) + { + case 3: + case 4: + case 6: + case 14: + return 1; + + case 0: + result = *p; + + /* Fall through. */ + default: + if (result) + return 1; + } + + return 0; +} diff --git a/tests/GCCTestSuite/pr20017.c.expected b/tests/GCCTestSuite/pr20017.c.expected new file mode 100644 index 0000000..1fd6d58 --- /dev/null +++ b/tests/GCCTestSuite/pr20017.c.expected @@ -0,0 +1,41 @@ +/* PR rtl-optimization/20017 + + After CSE/GCSE folds a switch statement to an unconditional jump, + cfg_cleanup did not remove a dead jump table, confusing the CFG + layout code later on. */ + +/* { dg-do compile } */ +/* { dg-options "-O1" } */ +/* { dg-options "-O1 -march=i386" { target { { i?86-*-* x86_64-*-* } && ilp32 } } } */ + +int +foo (int *buf, int *p) +{ + int result; + const int *tmp; + + if (*buf) + return 1; + + result = 2; + *buf = 2; + tmp = buf; + switch (*tmp) + { + case 3: + case 4: + case 6: + case 14: + return 1; + + case 0: + result = *p; + + /* Fall through. */ + default: + if (result) + return 1; + } + + return 0; +} diff --git a/tests/GCCTestSuite/pr20017.hex.expected b/tests/GCCTestSuite/pr20017.hex.expected new file mode 100644 index 0000000..1b7e11a --- /dev/null +++ b/tests/GCCTestSuite/pr20017.hex.expected @@ -0,0 +1,219 @@ +:1000000000E506758208C39582F506E5077583004D +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0E5153E +:10004000F518E514F519E513F51AE512F51B75E039 +:10005000032506F58275E0003507F583E511F07597 +:10006000E0022506F58275E0003507F583E510F01E +:10007000E51FF500E51EF501750A00C3750900E5E9 +:100080000AF5F0E50035F0F50AE509F5F0E501358A +:10009000F0F509E509F502E50AF582E502F583E0E8 +:1000A000F50B750A01C3750900E50AF5F0E50035A1 +:1000B000F0F50AE509F5F0E50135F0F509E509F592 +:1000C00002E50AF582E502F583E0F50C750A02C344 +:1000D000750900E50AF5F0E50035F0F50AE509F5E2 +:1000E000F0E50135F0F509E509F502E50AF582E5E7 +:1000F00002F583E0F50D750A03C3750900E50AF5FD +:10010000F0E50035F0F50AE509F5F0E50135F0F523 +:1001100009E509F502E50AF582E502F583E0F50A4D +:10012000750900E50BF5F0E50945F0F509E50CF575 +:10013000F0E50945F0F509E50DF5F0E50945F0F5BF +:1001400009E50AF5F0E50945F0F509E509700280D1 +:1001500003020D81007512027513007514007515E8 +:1001600000750B02750C00750D00750E00750A0008 +:10017000C3750900E50AF5F0E50035F0F50AE50973 +:10018000F5F0E50135F0F509E50BF503E509F502B4 +:10019000E50AF582E502F583E503F0750A01C3750A +:1001A0000900E50AF5F0E50035F0F50AE509F5F096 +:1001B000E50135F0F509E50CF503E509F502E50A79 +:1001C000F582E502F583E503F0750A02C3750900BF +:1001D000E50AF5F0E50035F0F50AE509F5F0E50189 +:1001E00035F0F509E50DF503E509F502E50AF582B7 +:1001F000E502F583E503F0750A03C3750900E50A16 +:10020000F5F0E50035F0F50AE509F5F0E50135F022 +:10021000F509E50EF503E509F502E50AF582E502C3 +:10022000F583E503F0E500F510E501F51175010032 +:10023000C3750000E501F5F0E51035F0F501E500C6 +:10024000F5F0E51135F0F500E500F502E501F58280 +:10025000E502F583E0F50B750101C3750000E501CA +:10026000F5F0E51035F0F501E500F5F0E51135F0B4 +:10027000F500E500F502E501F582E502F583E0F51C +:100280000C750102C3750000E501F5F0E51035F0CD +:10029000F501E500F5F0E51135F0F500E500F502B2 +:1002A000E501F582E502F583E0F50D750103C375FF +:1002B0000000E501F5F0E51035F0F501E500F5F099 +:1002C000E51135F0F500E500F502E501F582E502FE +:1002D000F583E0F50E750003750100750900750AD8 +:1002E00000750F00C3E500F5F0E50B95F0F500E5AE +:1002F00000F5F0E50F45F0F50FC3E501F5F0E50C6D +:1003000095F0F500E500F5F0E50F45F0F50FC3E5D4 +:1003100009F5F0E50D95F0F500E500F5F0E50F4580 +:10032000F0F50FC3E50AF5F0E50E95F0F500E500F0 +:10033000F5F0E50F45F0F50F750100750900750A38 +:1003400000E50FF500750F01C3750B00E500F5F032 +:10035000E50B95F0F50B750B00E50BF5F0E50B35AE +:10036000F0F50BE50BF5F0E50F65F0F50FC3750B38 +:1003700000E501F5F0E50B95F0F50B750B00E50BCD +:10038000F5F0E50B35F0F50BE50BF5F0E50F65F055 +:10039000F50FC3750B00E509F5F0E50B95F0F50BCE +:1003A000750B00E50BF5F0E50B35F0F50BE50BF5FE +:1003B000F0E50F65F0F50FC3750B00E50AF5F0E504 +:1003C0000B95F0F50B750B00E50BF5F0E50B35F033 +:1003D000F50BE50BF5F0E50F65F0F50F7501007510 +:1003E0000900750A00750000E50FF5F0E50045F01D +:1003F000F500E501F5F0E50045F0F500E509F5F05B +:10040000E50045F0F500E50AF5F0E50045F0F500FA +:10041000E50070028003020D7C00750100C37500C9 +:1004200000E501F5F0E51035F0F501E500F5F0E542 +:100430001135F0F500E500F502E501F582E502F57C +:1004400083E0F50B750101C3750000E501F5F0E5EA +:100450001035F0F501E500F5F0E51135F0F500E5B2 +:1004600000F502E501F582E502F583E0F50C750182 +:1004700002C3750000E501F5F0E51035F0F501E582 +:1004800000F5F0E51135F0F500E500F502E501F5C0 +:1004900082E502F583E0F50D750103C3750000E503 +:1004A00001F5F0E51035F0F501E500F5F0E5113561 +:1004B000F0F500E500F502E501F582E502F583E0DF +:1004C000F50E750004750100750900750A00750FB9 +:1004D00000C3E500F5F0E50B95F0F500E500F5F05B +:1004E000E50F45F0F50FC3E501F5F0E50C95F0F5E6 +:1004F00000E500F5F0E50F45F0F50FC3E509F5F06F +:10050000E50D95F0F500E500F5F0E50F45F0F50F88 +:10051000C3E50AF5F0E50E95F0F500E500F5F0E528 +:100520000F45F0F50F750100750900750A00E50F1C +:10053000F500750F01C3750B00E500F5F0E50B95AF +:10054000F0F50B750B00E50BF5F0E50B35F0F50B51 +:10055000E50BF5F0E50F65F0F50FC3750B00E50150 +:10056000F5F0E50B95F0F50B750B00E50BF5F0E5F7 +:100570000B35F0F50BE50BF5F0E50F65F0F50FC366 +:10058000750B00E509F5F0E50B95F0F50B750B0023 +:10059000E50BF5F0E50B35F0F50BE50BF5F0E50FA8 +:1005A00065F0F50FC3750B00E50AF5F0E50B95F066 +:1005B000F50B750B00E50BF5F0E50B35F0F50BE5EC +:1005C0000BF5F0E50F65F0F50F7501007509007585 +:1005D0000A00750000E50FF5F0E50045F0F500E5CF +:1005E00001F5F0E50045F0F500E509F5F0E5004519 +:1005F000F0F500E50AF5F0E50045F0F500E50070DE +:10060000028003020D7700750100C3750000E5014B +:10061000F5F0E51035F0F501E500F5F0E51135F000 +:10062000F500E500F502E501F582E502F583E0F568 +:100630000B750101C3750000E501F5F0E51035F01B +:10064000F501E500F5F0E51135F0F500E500F502FE +:10065000E501F582E502F583E0F50C750102C3754D +:100660000000E501F5F0E51035F0F501E500F5F0E5 +:10067000E51135F0F500E500F502E501F582E5024A +:10068000F583E0F50D750103C3750000E501F5F094 +:10069000E51035F0F501E500F5F0E51135F0F50070 +:1006A000E500F502E501F582E502F583E0F50E755A +:1006B0000006750100750900750A00750F00C3E595 +:1006C00000F5F0E50B95F0F500E500F5F0E50F45D8 +:1006D000F0F50FC3E501F5F0E50C95F0F500E50048 +:1006E000F5F0E50F45F0F50FC3E509F5F0E50D95DB +:1006F000F0F500E500F5F0E50F45F0F50FC3E50A6C +:10070000F5F0E50E95F0F500E500F5F0E50F45F0A4 +:10071000F50F750100750900750A00E50FF5007504 +:100720000F01C3750B00E500F5F0E50B95F0F50B37 +:10073000750B00E50BF5F0E50B35F0F50BE50BF56A +:10074000F0E50F65F0F50FC3750B00E501F5F0E579 +:100750000B95F0F50B750B00E50BF5F0E50B35F09F +:10076000F50BE50BF5F0E50F65F0F50FC3750B0024 +:10077000E509F5F0E50B95F0F50B750B00E50BF5CC +:10078000F0E50B35F0F50BE50BF5F0E50F65F0F551 +:100790000FC3750B00E50AF5F0E50B95F0F50B7549 +:1007A0000B00E50BF5F0E50B35F0F50BE50BF5F07F +:1007B000E50F65F0F50F750100750900750A007504 +:1007C0000000E50FF5F0E50045F0F500E501F5F076 +:1007D000E50045F0F500E509F5F0E50045F0F50028 +:1007E000E50AF5F0E50045F0F500E500700280034C +:1007F000020D7200750100C3750000E501F5F0E51A +:100800001035F0F501E500F5F0E51135F0F500E5FE +:1008100000F502E501F582E502F583E0F50B7501CF +:1008200001C3750000E501F5F0E51035F0F501E5CF +:1008300000F5F0E51135F0F500E500F502E501F50C +:1008400082E502F583E0F50C750102C3750000E551 +:1008500001F5F0E51035F0F501E500F5F0E51135AD +:10086000F0F500E500F502E501F582E502F583E02B +:10087000F50D750103C3750000E501F5F0E51035D0 +:10088000F0F501E500F5F0E51135F0F500E500F5CE +:1008900002E501F582E502F583E0F50E75000E75BF +:1008A0000100750900750A00750F00C3E500F5F039 +:1008B000E50B95F0F500E500F5F0E50F45F0F50FD7 +:1008C000C3E501F5F0E50C95F0F500E500F5F0E580 +:1008D0000F45F0F50FC3E509F5F0E50D95F0F500CE +:1008E000E500F5F0E50F45F0F50FC3E50AF5F0E595 +:1008F0000E95F0F500E500F5F0E50F45F0F50F7504 +:100900000100750900750A00E50FF500750F01C3B8 +:10091000750B00E500F5F0E50B95F0F50B750B0098 +:10092000E50BF5F0E50B35F0F50BE50BF5F0E50F14 +:1009300065F0F50FC3750B00E501F5F0E50B95F0DB +:10094000F50B750B00E50BF5F0E50B35F0F50BE558 +:100950000BF5F0E50F65F0F50FC3750B00E509F534 +:10096000F0E50B95F0F50B750B00E50BF5F0E50BDD +:1009700035F0F50BE50BF5F0E50F65F0F50FC375F8 +:100980000B00E50AF5F0E50B95F0F50B750B00E5AE +:100990000BF5F0E50B35F0F50BE50BF5F0E50F6524 +:1009A000F0F50F750100750900750A00750000E586 +:1009B0000FF5F0E50045F0F500E501F5F0E500453F +:1009C000F0F500E509F5F0E50045F0F500E50AF57C +:1009D000F0E50045F0F500E50070028003020D61CE +:1009E00000E510F500E511F501750A00C375090071 +:1009F000E50AF5F0E50035F0F50AE509F5F0E50161 +:100A000035F0F509E509F502E50AF582E502F58319 +:100A1000E0F50B750A01C3750900E50AF5F0E5007C +:100A200035F0F50AE509F5F0E50135F0F509E509D8 +:100A3000F502E50AF582E502F583E0F50C750A0298 +:100A4000C3750900E50AF5F0E50035F0F50AE5099A +:100A5000F5F0E50135F0F509E509F502E50AF5825D +:100A6000E502F583E0F50D750A03C3750900E50A93 +:100A7000F5F0E50035F0F50AE509F5F0E50135F0AA +:100A8000F509E509F502E50AF582E502F583E0F5E9 +:100A90000E750000750100750900750A00750F00DC +:100AA000C3E500F5F0E50B95F0F500E500F5F0E5A0 +:100AB0000F45F0F50FC3E501F5F0E50C95F0F500F5 +:100AC000E500F5F0E50F45F0F50FC3E509F5F0E5B4 +:100AD0000D95F0F500E500F5F0E50F45F0F50FC3D5 +:100AE000E50AF5F0E50E95F0F500E500F5F0E50F07 +:100AF00045F0F50F750100750900750A00E50FF561 +:100B000000750F01C3750B00E500F5F0E50B95F0DE +:100B1000F50B750B00E50BF5F0E50B35F0F50BE586 +:100B20000BF5F0E50F65F0F50FC3750B00E501F56A +:100B3000F0E50B95F0F50B750B00E50BF5F0E50B0B +:100B400035F0F50BE50BF5F0E50F65F0F50FC37526 +:100B50000B00E509F5F0E50B95F0F50B750B00E5DD +:100B60000BF5F0E50B35F0F50BE50BF5F0E50F6552 +:100B7000F0F50FC3750B00E50AF5F0E50B95F0F500 +:100B80000B750B00E50BF5F0E50B35F0F50BE50B00 +:100B9000F5F0E50F65F0F50F750100750900750AB0 +:100BA00000750000E50FF5F0E50045F0F500E50102 +:100BB000F5F0E50045F0F500E509F5F0E50045F054 +:100BC000F500E50AF5F0E50045F0F500E5007002F6 +:100BD0008003020CB40000750000E512F5F0E5009A +:100BE00045F0F500E513F5F0E50045F0F500E514F6 +:100BF000F5F0E50045F0F500E515F5F0E50045F008 +:100C0000F500E50070028003020CA40000750000EE +:100C1000750100750900750A00E500F502E501F5AA +:100C200003E509F504E50AF505E518F515E519F5F7 +:100C300014E51AF513E51BF51275E0032506F58298 +:100C400075E0003507F583E0F51175E0022506F53E +:100C50008275E0003507F583E0F51075E0002506A4 +:100C6000F58275E0003507F583E0F508E508C0E09A +:100C700075E0012506F58275E0003507F583E0F59E +:100C800008E508C0E075E0082506F50675E00035C2 +:100C900007F507E502F582E503F583E504F500E5D0 +:100CA00005F5012200750001750100750900750A3E +:100CB00000020C190000750100C3750000E501F584 +:100CC000F0E51D35F0F501E500F5F0E51C35F0F532 +:100CD00000E500F502E501F582E502F583E0F51295 +:100CE000750101C3750000E501F5F0E51D35F0F56E +:100CF00001E500F5F0E51C35F0F500E500F502E54D +:100D000001F582E502F583E0F513750102C3750074 +:100D100000E501F5F0E51D35F0F501E500F5F0E53C +:100D20001C35F0F500E500F502E501F582E502F578 +:100D300083E0F514750103C3750000E501F5F0E5E6 +:100D40001D35F0F501E500F5F0E51C35F0F500E5A1 +:100D500000F502E501F582E502F583E0F515020BE9 +:100D6000D60000750001750100750900750A0002C2 +:100D70000C190000020D620000020D730000020D4C +:100D80007800750001750100750900750A00020CF4 +:100D9000190000000000000000000000000000003A +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr20017.s.expected b/tests/GCCTestSuite/pr20017.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr20017.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr20115-1.c b/tests/GCCTestSuite/pr20115-1.c new file mode 100644 index 0000000..60313cd --- /dev/null +++ b/tests/GCCTestSuite/pr20115-1.c @@ -0,0 +1,15 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-dom1" } */ + +extern int foo (void) __attribute__((pure)); + +int bar() +{ + int a = foo (); + a += foo (); + return a; +} + +/* Check that we only have one call to foo. */ +/* { dg-final { scan-tree-dump-times "foo" 1 "dom1" } } */ +/* { dg-final { cleanup-tree-dump "dom1" } } */ diff --git a/tests/GCCTestSuite/pr20115-1.c.expected b/tests/GCCTestSuite/pr20115-1.c.expected new file mode 100644 index 0000000..60313cd --- /dev/null +++ b/tests/GCCTestSuite/pr20115-1.c.expected @@ -0,0 +1,15 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-dom1" } */ + +extern int foo (void) __attribute__((pure)); + +int bar() +{ + int a = foo (); + a += foo (); + return a; +} + +/* Check that we only have one call to foo. */ +/* { dg-final { scan-tree-dump-times "foo" 1 "dom1" } } */ +/* { dg-final { cleanup-tree-dump "dom1" } } */ diff --git a/tests/GCCTestSuite/pr20115-1.hex.expected b/tests/GCCTestSuite/pr20115-1.hex.expected new file mode 100644 index 0000000..9c64b9f --- /dev/null +++ b/tests/GCCTestSuite/pr20115-1.hex.expected @@ -0,0 +1,26 @@ +:100000000000E506758206C39582F506E50775834F +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:10004000E0052506F58275E0003507F583E513F038 +:1000500075E0042506F58275E0003507F583E512A5 +:10006000F075E0032506F58275E0003507F583E5B8 +:1000700011F075E0022506F58275E0003507F5837D +:10008000E510F0E582F502E583F503E500F504E50A +:1000900001F505E502F510E503F511E504F512E5B6 +:1000A00005F513E582F502E583F503E500F504E5C2 +:1000B00001F505E502F500E503F501E504F509E5BF +:1000C00005F50AC3750B00E500F5F0E51035F0F510 +:1000D00010E501F5F0E51135F0F511E509F5F0E56C +:1000E0001235F0F512E50AF5F0E51335F0F513E5F4 +:1000F00010F502E511F503E512F504E513F50575B4 +:10010000E0052506F58275E0003507F583E0F51377 +:1001100075E0042506F58275E0003507F583E0F506 +:100120001275E0032506F58275E0003507F583E0DA +:10013000F51175E0022506F58275E0003507F583B7 +:10014000E0F51075E0002506F58275E0003507F54D +:1001500083E0F508E508C0E075E0012506F5827545 +:10016000E0003507F583E0F508E508C0E075E00636 +:100170002506F50675E0003507F507E502F582E589 +:1001800003F583E504F500E505F501220000000014 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr20115-1.s.expected b/tests/GCCTestSuite/pr20115-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr20115-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr20115.c b/tests/GCCTestSuite/pr20115.c new file mode 100644 index 0000000..cea4b48 --- /dev/null +++ b/tests/GCCTestSuite/pr20115.c @@ -0,0 +1,28 @@ +/* { dg-do run } */ +/* { dg-options "-O2" } */ + +int func_pure (void); +void func_other (int); +int global_int; +int func_pure (void) { return global_int; } +void func_other (int a) +{ + global_int = a + 1; +} +int f(void) +{ + int a; + a = func_pure(); + func_other (a); + a = func_pure (); // We were removing this function call + return a; +} +void abort (void); + +int main(void) +{ + global_int = 10; + if (f() != 11) + abort (); + return 0; +} diff --git a/tests/GCCTestSuite/pr20115.c.expected b/tests/GCCTestSuite/pr20115.c.expected new file mode 100644 index 0000000..cea4b48 --- /dev/null +++ b/tests/GCCTestSuite/pr20115.c.expected @@ -0,0 +1,28 @@ +/* { dg-do run } */ +/* { dg-options "-O2" } */ + +int func_pure (void); +void func_other (int); +int global_int; +int func_pure (void) { return global_int; } +void func_other (int a) +{ + global_int = a + 1; +} +int f(void) +{ + int a; + a = func_pure(); + func_other (a); + a = func_pure (); // We were removing this function call + return a; +} +void abort (void); + +int main(void) +{ + global_int = 10; + if (f() != 11) + abort (); + return 0; +} diff --git a/tests/GCCTestSuite/pr20115.hex.expected b/tests/GCCTestSuite/pr20115.hex.expected new file mode 100644 index 0000000..63c2865 --- /dev/null +++ b/tests/GCCTestSuite/pr20115.hex.expected @@ -0,0 +1,91 @@ +:1000000075812F7506FF7507FF12035402000C005F +:10001000D0E0F518D0E0F519E511F50EE510F50F73 +:10002000900000E582F509900000E583F50A75016E +:1000300000C3750000E501F5F0E50935F0F501E5CF +:1000400000F5F0E50A35F0F500E500F502E501F50B +:1000500082E502F583E0F50B750101C3750000E54B +:1000600001F5F0E50935F0F501E500F5F0E50A35B3 +:10007000F0F500E500F502E501F582E502F583E023 +:10008000F50C750102C3750000E501F5F0E50935D1 +:10009000F0F501E500F5F0E50A35F0F500E500F5CD +:1000A00002E501F582E502F583E0F50D750103C374 +:1000B000750000E501F5F0E50935F0F501E500F51D +:1000C000F0E50A35F0F500E500F502E501F582E519 +:1000D00002F583E0F500E50BF502E50CF503E50D0F +:1000E000F504E500F505E50EF511E50FF510E51948 +:1000F000C0E0E518C0E0E502F582E503F583E5041C +:10010000F500E505F5012200E506758204C3958238 +:10011000F506E5077583009583F507D0E0F519D05E +:10012000E0F51AE514F50DE513F50EE510F5189058 +:100130000000E582F50B900000E583F50C750001E9 +:10014000750100750900750A00C3750F00E500F51B +:10015000F0E51F35F0F500E501F5F0E51E35F0F5A9 +:1001600001E509F5F0E51D35F0F509E50AF5F0E5DD +:100170001C35F0F510750F00C3750A00E50FF5F09A +:10018000E50B35F0F50FE50AF5F0E50C35F0F50A6D +:10019000E500F503E50AF502E50FF582E502F583D2 +:1001A000E503F0750F01C3750000E50FF5F0E50BF1 +:1001B00035F0F50FE500F5F0E50C35F0F50AE50151 +:1001C000F503E50AF502E50FF582E502F583E5039F +:1001D000F0750F02C3750000E50FF5F0E50B35F083 +:1001E000F50FE500F5F0E50C35F0F50AE509F50346 +:1001F000E50AF502E50FF582E502F583E503F07502 +:100200000F03C3750000E50FF5F0E50B35F0F50FB2 +:10021000E500F5F0E50C35F0F50AE510F503E50A23 +:10022000F502E50FF582E502F583E503F0750000C0 +:10023000E500F502E500F503E500F504E500F50548 +:10024000E50DF514E50EF513E518F510E51AC0E017 +:10025000E519C0E075E0042506F50675E0003507F0 +:10026000F507E502F582E503F583E504F500E5050C +:10027000F5012200E506758202C39582F506E507C1 +:100280007583009583F507D0E0F50875E001250634 +:10029000F58275E0003507F583E508F0D0E0F50854 +:1002A00075E0002506F58275E0003507F583E50861 +:1002B000F012000FE582F502E583F503E500F50491 +:1002C000E501F505E502F51FE503F51EE504F51D5D +:1002D000E505F51C12010712000FE582F502E58322 +:1002E000F503E500F504E501F505E502F51FE50375 +:1002F000F51EE504F51DE505F51CE51FF502E51EF7 +:10030000F503E51DF504E51CF50575E0002506F58A +:100310008275E0003507F583E0F508E508C0E07573 +:10032000E0012506F58275E0003507F583E0F50864 +:10033000E508C0E075E0022506F50675E000350722 +:10034000F507E502F582E503F583E504F500E5052B +:10035000F501220000E506758202C39582F506E5E7 +:10036000077583009583F507D0E0F50875E0012552 +:1003700006F58275E0003507F583E508F0D0E0F575 +:100380000875E0002506F58275E0003507F583E580 +:1003900008F0900000E582F50D900000E583F50E71 +:1003A00075090A750A00750B00750C00750100C30C +:1003B000750000E501F5F0E50D35F0F501E500F516 +:1003C000F0E50E35F0F500E509F503E500F502E589 +:1003D00001F582E502F583E503F0750101C37500BF +:1003E00000E501F5F0E50D35F0F501E500F5F0E586 +:1003F0000E35F0F500E50AF503E500F502E501F537 +:1004000082E502F583E503F0750102C3750000E59E +:1004100001F5F0E50D35F0F501E500F5F0E50E35F7 +:10042000F0F500E50BF503E500F502E501F582E5E1 +:1004300002F583E503F0750103C3750000E501F5DE +:10044000F0E50D35F0F501E500F5F0E50E35F0F5D8 +:1004500000E50CF503E500F502E501F582E502F59E +:1004600083E503F0120273E582F502E583F503E507 +:1004700000F504E501F505E502F50BE503F50CE5EE +:1004800004F50DE505F50E75000B75010075090005 +:10049000750A00750F00C3E500F5F0E50B95F0F562 +:1004A00000E500F5F0E50F45F0F50FC3E501F5F0C7 +:1004B000E50C95F0F500E500F5F0E50F45F0F50FDA +:1004C000C3E509F5F0E50D95F0F500E500F5F0E57B +:1004D0000F45F0F50FC3E50AF5F0E50E95F0F500D0 +:1004E000E500F5F0E50F45F0F50F75010075090021 +:1004F000750A00750000E50FF5F0E50045F0F50020 +:10050000E501F5F0E50045F0F500E509F5F0E50059 +:1005100045F0F500E50AF5F0E50045F0F500E500E9 +:100520007002800302058D007500007501007509D9 +:1005300000750A00E500F502E501F503E509F5049B +:10054000E50AF50575E0002506F58275E00035073A +:10055000F583E0F508E508C0E075E0012506F582C1 +:1005600075E0003507F583E0F508E508C0E075E0C3 +:10057000022506F50675E0003507F507E502F58268 +:10058000E503F583E504F500E505F5012200020524 +:100590002800000000000000000000000000000033 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr20115.s.expected b/tests/GCCTestSuite/pr20115.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr20115.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr20130-1.c b/tests/GCCTestSuite/pr20130-1.c new file mode 100644 index 0000000..9763725 --- /dev/null +++ b/tests/GCCTestSuite/pr20130-1.c @@ -0,0 +1,15 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ +int z (int a) { + return a * -1; +} + +int x (int a) { + return -1 * a; +} + +int y (int a) { + return -(-1 * -a); +} +/* { dg-final { scan-tree-dump-times "-a" 3 "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/pr20130-1.c.expected b/tests/GCCTestSuite/pr20130-1.c.expected new file mode 100644 index 0000000..9763725 --- /dev/null +++ b/tests/GCCTestSuite/pr20130-1.c.expected @@ -0,0 +1,15 @@ +/* { dg-do compile } */ +/* { dg-options "-fdump-tree-gimple" } */ +int z (int a) { + return a * -1; +} + +int x (int a) { + return -1 * a; +} + +int y (int a) { + return -(-1 * -a); +} +/* { dg-final { scan-tree-dump-times "-a" 3 "gimple" } } */ +/* { dg-final { cleanup-tree-dump "gimple" } } */ diff --git a/tests/GCCTestSuite/pr20130-1.hex.expected b/tests/GCCTestSuite/pr20130-1.hex.expected new file mode 100644 index 0000000..d0a84f7 --- /dev/null +++ b/tests/GCCTestSuite/pr20130-1.hex.expected @@ -0,0 +1,183 @@ +:1000000000E50675820AC39582F506E5077583004B +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0E5173C +:10004000F518E516F519E515F51AE514F51B75E033 +:10005000052506F58275E0003507F583E513F07593 +:10006000E0042506F58275E0003507F583E512F01A +:1000700075E0032506F58275E0003507F583E51187 +:10008000F075E0022506F58275E0003507F583E599 +:1000900010F0E51FF500E51EF501E51DF509E51C6D +:1000A000F517750D01750C00750B00750A00E50D4F +:1000B000F4F511E50CF4F512E50BF4F513E50AF48B +:1000C000F515D3750A00E50AF5F0E51135F0F511DF +:1000D000E50AF5F0E51235F0F512E50AF5F0E5135D +:1000E00035F0F513E50AF5F0E51535F0F515E50100 +:1000F000F514E509F516750D00750E00750F007500 +:100100001000C3750100E500F5F0E511A4F50CE55C +:1001100000F5F0E511A4E5F0F509E50CF5F0E501D1 +:1001200035F0F501E514F5F0E511A4F50CE514F54D +:10013000F0E511A4E5F0F50AE50CF5F0E50935F078 +:10014000F509E516F5F0E511A4F50CE516F5F0E571 +:1001500011A4E5F0F50BE50CF5F0E50A35F0F50A2C +:10016000E517F5F0E511A4F50CE517F5F0E511A498 +:10017000E5F0F511E50CF5F0E50B35F0F50BC3C333 +:10018000750C00E501F5F0E50D35F0F50DE509F527 +:10019000F0E50E35F0F50EE50AF5F0E50F35F0F572 +:1001A0000FE50BF5F0E51035F0F510C3750900E526 +:1001B00000F5F0E512A4F50CE500F5F0E512A4E574 +:1001C000F0F50AE50CF5F0E50935F0F509E514F56B +:1001D000F0E512A4F50CE514F5F0E512A4E5F0F550 +:1001E0000BE50CF5F0E50A35F0F50AE516F5F0E556 +:1001F00012A4F50CE516F5F0E512A4E5F0F511E50D +:100200000CF5F0E50B35F0F50B750100C3C3750C6B +:1002100000E501F5F0E50D35F0F50DE509F5F0E542 +:100220000E35F0F50EE50AF5F0E50F35F0F50FE5C2 +:100230000BF5F0E51035F0F510C3750A00E500F593 +:10024000F0E513A4F50CE500F5F0E513A4E5F0F5F1 +:100250000BE50CF5F0E50A35F0F50AE514F5F0E5E7 +:1002600013A4F50CE514F5F0E513A4E5F0F511E59C +:100270000CF5F0E50B35F0F50B750100750900C3C1 +:10028000C3750C00E501F5F0E50D35F0F50DE50958 +:10029000F5F0E50E35F0F50EE50AF5F0E50F35F071 +:1002A000F50FE50BF5F0E51035F0F510C3750B0013 +:1002B000E500F5F0E515A4F50CE500F5F0E515A46D +:1002C000E5F0F511E50CF5F0E50B35F0F50B7501F2 +:1002D00000750900750A00C3C3750000E501F5F05B +:1002E000E50D35F0F50DE509F5F0E50E35F0F50E07 +:1002F000E50AF5F0E50F35F0F50FE50BF5F0E51043 +:1003000035F0F510E50DF502E50EF503E50FF50402 +:10031000E510F505E518F517E519F516E51AF515D3 +:10032000E51BF51475E0052506F58275E000350737 +:10033000F583E0F51375E0042506F58275E00035D8 +:1003400007F583E0F51275E0032506F58275E000F8 +:100350003507F583E0F51175E0022506F58275E0B5 +:10036000003507F583E0F51075E0002506F5827588 +:10037000E0003507F583E0F508E508C0E075E00129 +:100380002506F58275E0003507F583E0F508E508F8 +:10039000C0E075E00A2506F50675E0003507F507AB +:1003A000E502F582E503F583E504F500E505F501D1 +:1003B0002200E506758209C39582F506E507758377 +:1003C000009583F507D0E0F50875E0012506F58274 +:1003D00075E0003507F583E508F0D0E0F50875E035 +:1003E000002506F58275E0003507F583E508F0E5A0 +:1003F00016F518E515F519E514F51AE513F51B754D +:10040000E0042506F58275E0003507F583E512F076 +:1004100075E0032506F58275E0003507F583E511E3 +:10042000F075E0022506F58275E0003507F583E5F5 +:1004300010F0E51EF513E51DF515E51CF516750024 +:1004400001750100750900750A00E500F4F500E585 +:1004500001F4F501E509F4F509E50AF4F514D3759D +:100460000A00E50AF5F0E50035F0F500E50AF5F0DB +:10047000E50135F0F501E50AF5F0E50935F0F50996 +:10048000E50AF5F0E51435F0F514750F0075100068 +:10049000751100751200C3750A00E500F5F0E51F3F +:1004A000A4F50EE500F5F0E51FA4E5F0F50BE50E6B +:1004B000F5F0E50A35F0F50AE501F5F0E51FA4F5DC +:1004C0000EE501F5F0E51FA4E5F0F50CE50EF5F0FD +:1004D000E50B35F0F50BE509F5F0E51FA4F50EE5A4 +:1004E00009F5F0E51FA4E5F0F50DE50EF5F0E50CD6 +:1004F00035F0F50CE514F5F0E51FA4F50EE514F55F +:10050000F0E51FA4E5F0F514E50EF5F0E50D35F086 +:10051000F50DC3C3750E00E50AF5F0E50F35F0F5EE +:100520000FE50BF5F0E51035F0F510E50CF5F0E50D +:100530001135F0F511E50DF5F0E51235F0F512C3C2 +:10054000750B00E500F5F0E513A4F50EE500F5F0F8 +:10055000E513A4E5F0F50CE50EF5F0E50B35F0F547 +:100560000BE501F5F0E513A4F50EE501F5F0E51353 +:10057000A4E5F0F50DE50EF5F0E50C35F0F50CE52C +:1005800009F5F0E513A4F50EE509F5F0E513A4E58A +:10059000F0F514E50EF5F0E50D35F0F50D750A00F2 +:1005A000C3C3750900E50AF5F0E50F35F0F50FE571 +:1005B0000BF5F0E51035F0F510E50CF5F0E511352B +:1005C000F0F511E50DF5F0E51235F0F512C3750CF7 +:1005D00000E500F5F0E515A4F50EE500F5F0E515EC +:1005E000A4E5F0F50DE50EF5F0E50C35F0F50CE5BC +:1005F00001F5F0E515A4F50EE501F5F0E515A4E526 +:10060000F0F514E50EF5F0E50D35F0F50D750A0081 +:10061000750B00C3C3750100E50AF5F0E50F35F071 +:10062000F50FE50BF5F0E51035F0F510E50CF5F0FC +:10063000E51135F0F511E50DF5F0E51235F0F5129F +:10064000C3750D00E500F5F0E516A4F50EE500F51F +:10065000F0E516A4E5F0F514E50EF5F0E50D35F03E +:10066000F50D750A00750B00750C00C3C37500000D +:10067000E50AF5F0E50F35F0F50FE50BF5F0E510BF +:1006800035F0F510E50CF5F0E51135F0F511E50D57 +:10069000F5F0E51235F0F512E50FF502E510F5037A +:1006A000E511F504E512F505E518F516E519F5155A +:1006B000E51AF514E51BF51375E0042506F58275BA +:1006C000E0003507F583E0F51275E0032506F582B5 +:1006D00075E0003507F583E0F51175E0022506F5B4 +:1006E0008275E0003507F583E0F51075E00025061A +:1006F000F58275E0003507F583E0F508E508C0E010 +:1007000075E0012506F58275E0003507F583E0F513 +:1007100008E508C0E075E0092506F50675E0003536 +:1007200007F507E502F582E503F583E504F500E545 +:1007300005F5012200E50675820AC39582F506E5F6 +:10074000077583009583F507D0E0F50875E001256E +:1007500006F58275E0003507F583E508F0D0E0F591 +:100760000875E0002506F58275E0003507F583E59C +:1007700008F0E517F518E516F519E515F51AE5146D +:10078000F51B75E0052506F58275E0003507F58354 +:10079000E513F075E0042506F58275E0003507F5F0 +:1007A00083E512F075E0032506F58275E000350754 +:1007B000F583E511F075E0022506F58275E0003558 +:1007C00007F583E510F0E51FF509E51EF50AE51DBF +:1007D000F50BE51CF50C750001750100750E007533 +:1007E0000D00E500F4F500E501F4F501E50EF4F582 +:1007F00014E50DF4F516D3750D00E50DF5F0E500E3 +:1008000035F0F500E50DF5F0E50135F0F501E50D04 +:10081000F5F0E51435F0F514E50DF5F0E51635F0D5 +:10082000F516E509F4F50EE50AF4F50FE50BF4F518 +:1008300015E50CF4F517D3750900E509F5F0E50E9B +:1008400035F0F50EE509F5F0E50F35F0F50FE509A2 +:10085000F5F0E51535F0F515E509F5F0E51735F096 +:10086000F517751000751100751200751300C3752A +:100870000900E500F5F0E50EA4F50DE500F5F0E55D +:100880000EA4E5F0F50AE50DF5F0E50935F0F509FA +:10089000E501F5F0E50EA4F50DE501F5F0E50EA492 +:1008A000E5F0F50BE50DF5F0E50A35F0F50AE51490 +:1008B000F5F0E50EA4F50DE514F5F0E50EA4E5F070 +:1008C000F50CE50DF5F0E50B35F0F50BE516F5F05B +:1008D000E50EA4F50DE516F5F0E50EA4E5F0F50E30 +:1008E000E50DF5F0E50C35F0F50CC3C3750D00E52D +:1008F00009F5F0E51035F0F510E50AF5F0E51135EC +:10090000F0F511E50BF5F0E51235F0F512E50CF513 +:10091000F0E51335F0F513C3750A00E500F5F0E5D1 +:100920000FA4F50DE500F5F0E50FA4E5F0F50BE5F6 +:100930000DF5F0E50A35F0F50AE501F5F0E50FA44F +:10094000F50DE501F5F0E50FA4E5F0F50CE50DF585 +:10095000F0E50B35F0F50BE514F5F0E50FA4F50D1A +:10096000E514F5F0E50FA4E5F0F50EE50DF5F0E57D +:100970000C35F0F50C750900C3C3750D00E509F5DC +:10098000F0E51035F0F510E50AF5F0E51135F0F574 +:1009900011E50BF5F0E51235F0F512E50CF5F0E593 +:1009A0001335F0F513C3750B00E500F5F0E515A45C +:1009B000F50DE500F5F0E515A4E5F0F50CE50DF510 +:1009C000F0E50B35F0F50BE501F5F0E515A4F50DB7 +:1009D000E501F5F0E515A4E5F0F50EE50DF5F0E51A +:1009E0000C35F0F50C750900750A00C3C3750100DC +:1009F000E509F5F0E51035F0F510E50AF5F0E5113B +:100A000035F0F511E50BF5F0E51235F0F512E50CD2 +:100A1000F5F0E51335F0F513C3750C00E500F5F0BE +:100A2000E517A4F50DE500F5F0E517A4E5F0F50EE2 +:100A3000E50DF5F0E50C35F0F50C750900750A00CB +:100A4000750B00C3C3750000E509F5F0E51035F03E +:100A5000F510E50AF5F0E51135F0F511E50BF5F0C7 +:100A6000E51235F0F512E50CF5F0E51335F0F51368 +:100A7000E510F4F500E511F4F501E512F4F509E5EA +:100A800013F4F50BD3750A00E50AF5F0E50035F02F +:100A9000F500E50AF5F0E50135F0F501E50AF5F0B8 +:100AA000E50935F0F509E50AF5F0E50B35F0F50B4C +:100AB000E500F502E501F503E509F504E50BF505AB +:100AC000E518F517E519F516E51AF515E51BF51402 +:100AD00075E0052506F58275E0003507F583E0F53C +:100AE0001375E0042506F58275E0003507F583E00F +:100AF000F51275E0032506F58275E0003507F583EC +:100B0000E0F51175E0022506F58275E0003507F580 +:100B100083E0F51075E0002506F58275E0003507E5 +:100B2000F583E0F508E508C0E075E0012506F582EB +:100B300075E0003507F583E0F508E508C0E075E0ED +:100B40000A2506F50675E0003507F507E502F5828A +:100B5000E503F583E504F500E505F5012200000055 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr20130-1.s.expected b/tests/GCCTestSuite/pr20130-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr20130-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr21085.c b/tests/GCCTestSuite/pr21085.c new file mode 100644 index 0000000..6a51adb --- /dev/null +++ b/tests/GCCTestSuite/pr21085.c @@ -0,0 +1,9 @@ +/* { dg-do compile } */ +/* This used to cause excessive use, or a stack overflow, depending on which + came first. */ +void foo (void) +{ + int maxstringlen = 1; + int limit = 0, maxblock = 0, maxblockrem = 0; + maxblockrem = (maxstringlen) % (2147483647 + 1); /* { dg-warning "overflow" } */ +} diff --git a/tests/GCCTestSuite/pr21085.c.expected b/tests/GCCTestSuite/pr21085.c.expected new file mode 100644 index 0000000..6a51adb --- /dev/null +++ b/tests/GCCTestSuite/pr21085.c.expected @@ -0,0 +1,9 @@ +/* { dg-do compile } */ +/* This used to cause excessive use, or a stack overflow, depending on which + came first. */ +void foo (void) +{ + int maxstringlen = 1; + int limit = 0, maxblock = 0, maxblockrem = 0; + maxblockrem = (maxstringlen) % (2147483647 + 1); /* { dg-warning "overflow" } */ +} diff --git a/tests/GCCTestSuite/pr21085.hex.expected b/tests/GCCTestSuite/pr21085.hex.expected new file mode 100644 index 0000000..ef312fd --- /dev/null +++ b/tests/GCCTestSuite/pr21085.hex.expected @@ -0,0 +1,395 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF500E51EF501E51DD8 +:1000D000F509E51CF50AE51AF515E519F513750F8F +:1000E00000751000751100751200E500F516E501A8 +:1000F000F514E509F50DE50AF50E750C0075170008 +:10010000751900751A00750B00750A01750001C399 +:10011000E518F5F0E50E95F0F509E50BF5F0E50BC2 +:1001200035F0F509E509F5F0E50055F0F500E500D5 +:10013000F5F0E50C45F0F50C750001C3E518F5F098 +:10014000E50E95F0F509E50BF5F0E50B35F0F50951 +:10015000E50EF5F0E51895F0F501E50BF5F0E50B8A +:1001600035F0F501E501F5F0E50945F0F509E50A99 +:10017000F5F0E50965F0F509E509F5F0E50055F05C +:10018000F500C3E513F5F0E50D95F0F509E50BF580 +:10019000F0E50B35F0F509E509F5F0E50055F0F56A +:1001A00000E500F5F0E50C45F0F50C750001C3E540 +:1001B00018F5F0E50E95F0F509E50BF5F0E50B35D2 +:1001C000F0F509E50EF5F0E51895F0F501E50BF50C +:1001D000F0E50B35F0F501E501F5F0E50945F0F541 +:1001E00009E50AF5F0E50965F0F509E509F5F0E539 +:1001F0000055F0F500C3E513F5F0E50D95F0F509B0 +:10020000E50BF5F0E50B35F0F509E50DF5F0E51337 +:1002100095F0F501E50BF5F0E50B35F0F501E5019D +:10022000F5F0E50945F0F509E50AF5F0E50965F0B1 +:10023000F509E509F5F0E50055F0F500C3E515F51C +:10024000F0E51495F0F509E50BF5F0E50B35F0F563 +:1002500009E509F5F0E50055F0F500E500F5F0E5F4 +:100260000C45F0F50C750001C3E518F5F0E50E95A9 +:10027000F0F509E50BF5F0E50B35F0F509E50EF5C0 +:10028000F0E51895F0F501E50BF5F0E50B35F0F527 +:1002900001E501F5F0E50945F0F509E50AF5F0E5B8 +:1002A0000965F0F509E509F5F0E50055F0F500C33D +:1002B000E513F5F0E50D95F0F509E50BF5F0E50B27 +:1002C00035F0F509E50DF5F0E51395F0F501E50BD1 +:1002D000F5F0E50B35F0F501E501F5F0E50945F040 +:1002E000F509E50AF5F0E50965F0F509E509F5F028 +:1002F000E50055F0F500C3E515F5F0E51495F0F5CA +:1003000009E50BF5F0E50B35F0F509E514F5F0E539 +:100310001595F0F501E50BF5F0E50B35F0F501E588 +:1003200001F5F0E50945F0F509E50AF5F0E509659F +:10033000F0F509E509F5F0E50055F0F500C3E51B1A +:10034000F5F0E51695F0F509E50BF5F0E50B35F060 +:10035000F509E509F5F0E50055F0F500E500F5F0E3 +:10036000E50C45F0F50CE517F500E519F501E51A82 +:10037000F509E50CF50B750C01C3750A00E50BF5E5 +:10038000F0E50A95F0F50A750A00E50AF5F0E50AC8 +:1003900035F0F50AE50AF5F0E50C65F0F50CC375E6 +:1003A0000A00E500F5F0E50A95F0F50A750A00E5A2 +:1003B0000AF5F0E50A35F0F50AE50AF5F0E50C6511 +:1003C000F0F50CC3750A00E501F5F0E50A95F0F5C6 +:1003D0000A750A00E50AF5F0E50A35F0F50AE50ABE +:1003E000F5F0E50C65F0F50CC3750A00E509F5F0CC +:1003F000E50A95F0F50A750A00E50AF5F0E50A3513 +:10040000F0F50AE50AF5F0E50C65F0F50C7500006D +:10041000750100750900E500F50BE501F50A7501A8 +:1004200001C3750000E50CF5F0E50095F0F50075E9 +:100430000000E500F5F0E50035F0F500E500F5F029 +:10044000E50165F0F501C3750000E50BF5F0E50089 +:1004500095F0F500750000E500F5F0E50035F0F5E4 +:1004600000E500F5F0E50165F0F501C3750000E574 +:100470000AF5F0E50095F0F500750000E500F5F0EF +:10048000E50035F0F500E500F5F0E50165F0F50172 +:10049000C3750000E509F5F0E50095F0F50075007D +:1004A00000E500F5F0E50035F0F500E500F5F0E5D4 +:1004B0000165F0F501750900750A00750B007500FE +:1004C00000E501F5F0E50045F0F500E509F5F0E59A +:1004D0000045F0F500E50AF5F0E50045F0F500E52A +:1004E0000BF5F0E50045F0F500E500700280030231 +:1004F000055700750001750100750900750A00C3F4 +:10050000750B00E500F5F0E50F35F0F50FE501F5A9 +:10051000F0E51035F0F510E509F5F0E51135F0F5E9 +:1005200011E50AF5F0E51235F0F512C3E51BF5F01B +:10053000E51695F0F516E515F5F0E51495F0F514CA +:10054000E513F5F0E50D95F0F50DE518F5F0E50E80 +:1005500095F0F50E0200FA00E50FF502E510F5033F +:10056000E511F504E512F50575E0092506F5827536 +:10057000E0003507F583E0F51775E0082506F582FC +:1005800075E0003507F583E0F51675E0072506F5FB +:100590008275E0003507F583E0F51575E006250660 +:1005A000F58275E0003507F583E0F51475E0052563 +:1005B00006F58275E0003507F583E0F51375E00474 +:1005C0002506F58275E0003507F583E0F51275E044 +:1005D000032506F58275E0003507F583E0F5117512 +:1005E000E0022506F58275E0003507F583E0F51099 +:1005F00075E0002506F58275E0003507F583E0F526 +:1006000008E508C0E075E0012506F58275E00035D3 +:1006100007F583E0F508E508C0E075E0122506F56A +:100620000675E0003507F507E502F582E503F58379 +:10063000E504F500E505F5012200E506758217C31E +:100640009582F506E5077583009583F507D0E0F5FB +:100650000875E0062506F58275E0003507F583E5A7 +:1006600008F0D0E0F50875E0052506F58275E00094 +:100670003507F583E508F075E00E2506F58275E08F +:10068000003507F583E517F075E00D2506F5827551 +:10069000E0003507F583E516F075E00C2506F582D8 +:1006A00075E0003507F583E515F075E00B2506F5D7 +:1006B0008275E0003507F583E514F075E00A25063C +:1006C000F58275E0003507F583E513F075E009253F +:1006D00006F58275E0003507F583E512F075E00850 +:1006E0002506F58275E0003507F583E511F075E024 +:1006F000072506F58275E0003507F583E510F0E57E +:100700001FF511E51BF512E51AF513E519F514753A +:10071000E0042506F58275E0003507F583E511F064 +:1007200075E0032506F58275E0003507F583E51EC3 +:10073000F075E0022506F58275E0003507F583E5E2 +:100740001DF075E0012506F58275E0003507F5839B +:10075000E51CF07515017516007517007508007514 +:10076000E0002506F58275E0003507F583E508F021 +:10077000751900750D00750E00750F00E51CF5105C +:10078000750080E500F5F0E51025F0F510E500F5C1 +:10079000F0E50F25F0F50F750C00751A00751B00BC +:1007A000751F00750B00750A01750001C3E50FF593 +:1007B000F0E51095F0F509E50BF5F0E50B35F0F5F2 +:1007C00009E509F5F0E50055F0F500E500F5F0E57F +:1007D0000C45F0F50C750001C3E50FF5F0E510953B +:1007E000F0F509E50BF5F0E50B35F0F509E510F549 +:1007F000F0E50F95F0F501E50BF5F0E50B35F0F5BB +:1008000001E501F5F0E50945F0F509E50AF5F0E542 +:100810000965F0F509E509F5F0E50055F0F500C3C7 +:10082000E50EF5F0E51D95F0F509E50BF5F0E50BA6 +:1008300035F0F509E509F5F0E50055F0F500E500BE +:10084000F5F0E50C45F0F50C750001C3E50FF5F08A +:10085000E51095F0F509E50BF5F0E50B35F0F50938 +:10086000E510F5F0E50F95F0F501E50BF5F0E50B7A +:1008700035F0F501E501F5F0E50945F0F509E50A82 +:10088000F5F0E50965F0F509E509F5F0E50055F045 +:10089000F500C3E50EF5F0E51D95F0F509E50BF55E +:1008A000F0E50B35F0F509E51DF5F0E50E95F0F5F1 +:1008B00001E50BF5F0E50B35F0F501E501F5F0E5A7 +:1008C0000945F0F509E50AF5F0E50965F0F509E5F2 +:1008D00009F5F0E50055F0F500C3E50DF5F0E51E6E +:1008E00095F0F509E50BF5F0E50B35F0F509E509AF +:1008F000F5F0E50055F0F500E500F5F0E50C45F004 +:10090000F50C750001C3E50FF5F0E51095F0F5095C +:10091000E50BF5F0E50B35F0F509E510F5F0E50F21 +:1009200095F0F501E50BF5F0E50B35F0F501E50186 +:10093000F5F0E50945F0F509E50AF5F0E50965F09A +:10094000F509E509F5F0E50055F0F500C3E50EF50C +:10095000F0E51D95F0F509E50BF5F0E50B35F0F543 +:1009600009E51DF5F0E50E95F0F501E50BF5F0E56F +:100970000B35F0F501E501F5F0E50945F0F509E580 +:100980000AF5F0E50965F0F509E509F5F0E500552A +:10099000F0F500C3E50DF5F0E51E95F0F509E50B62 +:1009A000F5F0E50B35F0F509E51EF5F0E50D95F0F0 +:1009B000F501E50BF5F0E50B35F0F501E501F5F096 +:1009C000E50945F0F509E50AF5F0E50965F0F509F1 +:1009D000E509F5F0E50055F0F500C3E519F5F0E59A +:1009E0001195F0F509E50BF5F0E50B35F0F509E5A6 +:1009F00009F5F0E50055F0F500E500F5F0E50C45EA +:100A0000F0F50CE51AF501E51BF509E51FF50A758A +:100A10000000E50CF5F0E50045F0F500E501F5F026 +:100A2000E50045F0F500E509F5F0E50045F0F500D5 +:100A3000E50AF5F0E50045F0F500E50070028003F9 +:100A400002116B00751900750D00750E00750F0011 +:100A5000E512F51BE513F51AE514F510E518F51187 +:100A6000750080E500F5F0E51125F0F511E500F5DC +:100A7000F0E50F25F0F50F750C00751C00751D00D5 +:100A8000751E00750B00750A01750001C3E50FF5B1 +:100A9000F0E51195F0F509E50BF5F0E50B35F0F50E +:100AA00009E509F5F0E50055F0F500E500F5F0E59C +:100AB0000C45F0F50C750001C3E50FF5F0E5119557 +:100AC000F0F509E50BF5F0E50B35F0F509E511F565 +:100AD000F0E50F95F0F501E50BF5F0E50B35F0F5D8 +:100AE00001E501F5F0E50945F0F509E50AF5F0E560 +:100AF0000965F0F509E509F5F0E50055F0F500C3E5 +:100B0000E50EF5F0E51095F0F509E50BF5F0E50BD0 +:100B100035F0F509E509F5F0E50055F0F500E500DB +:100B2000F5F0E50C45F0F50C750001C3E50FF5F0A7 +:100B3000E51195F0F509E50BF5F0E50B35F0F50954 +:100B4000E511F5F0E50F95F0F501E50BF5F0E50B96 +:100B500035F0F501E501F5F0E50945F0F509E50A9F +:100B6000F5F0E50965F0F509E509F5F0E50055F062 +:100B7000F500C3E50EF5F0E51095F0F509E50BF588 +:100B8000F0E50B35F0F509E510F5F0E50E95F0F51B +:100B900001E50BF5F0E50B35F0F501E501F5F0E5C4 +:100BA0000945F0F509E50AF5F0E50965F0F509E50F +:100BB00009F5F0E50055F0F500C3E50DF5F0E51A8F +:100BC00095F0F509E50BF5F0E50B35F0F509E509CC +:100BD000F5F0E50055F0F500E500F5F0E50C45F021 +:100BE000F50C750001C3E50FF5F0E51195F0F50979 +:100BF000E50BF5F0E50B35F0F509E511F5F0E50F3E +:100C000095F0F501E50BF5F0E50B35F0F501E501A3 +:100C1000F5F0E50945F0F509E50AF5F0E50965F0B7 +:100C2000F509E509F5F0E50055F0F500C3E50EF529 +:100C3000F0E51095F0F509E50BF5F0E50B35F0F56D +:100C400009E510F5F0E50E95F0F501E50BF5F0E599 +:100C50000B35F0F501E501F5F0E50945F0F509E59D +:100C60000AF5F0E50965F0F509E509F5F0E5005547 +:100C7000F0F500C3E50DF5F0E51A95F0F509E50B83 +:100C8000F5F0E50B35F0F509E51AF5F0E50D95F011 +:100C9000F501E50BF5F0E50B35F0F501E501F5F0B3 +:100CA000E50945F0F509E50AF5F0E50965F0F5090E +:100CB000E509F5F0E50055F0F500C3E519F5F0E5B7 +:100CC0001B95F0F509E50BF5F0E50B35F0F509E5B9 +:100CD00009F5F0E50055F0F500E500F5F0E50C4507 +:100CE000F0F50CE51CF501E51DF509E51EF50A75A5 +:100CF0000000E50CF5F0E50045F0F500E501F5F044 +:100D0000E50045F0F500E509F5F0E50045F0F500F2 +:100D1000E50AF5F0E50045F0F500E5007002800316 +:100D20000210A30075E0042506F58275E000350782 +:100D3000F583E0F51F75E0032506F58275E00035C3 +:100D400007F583E0F51E75E0022506F58275E000E3 +:100D50003507F583E0F51D75E0012506F58275E0A0 +:100D6000003507F583E0F51CE512F51BE513F51AD0 +:100D7000E514F519120000E582F502E583F503E5B7 +:100D800000F504E501F505E502F511E503F512E5C9 +:100D900004F513E505F514E515F500E516F515E57B +:100DA00017F51675E0002506F58275E0003507F5A4 +:100DB00083E0F517750D00750E00750F00751000B6 +:100DC000C3750100E500F5F0E511A4F50CE500F5AB +:100DD000F0E511A4E5F0F509E50CF5F0E50135F0D5 +:100DE000F501E515F5F0E511A4F50CE515F5F0E5CF +:100DF00011A4E5F0F50AE50CF5F0E50935F0F50983 +:100E0000E516F5F0E511A4F50CE516F5F0E511A4ED +:100E1000E5F0F50BE50CF5F0E50A35F0F50AE51718 +:100E2000F5F0E511A4F50CE517F5F0E511A4E5F0F2 +:100E3000F511E50CF5F0E50B35F0F50BC3C3750CBA +:100E400000E501F5F0E50D35F0F50DE509F5F0E506 +:100E50000E35F0F50EE50AF5F0E50F35F0F50FE586 +:100E60000BF5F0E51035F0F510C3750900E500F558 +:100E7000F0E512A4F50CE500F5F0E512A4E5F0F5B7 +:100E80000AE50CF5F0E50935F0F509E515F5F0E5AD +:100E900012A4F50CE515F5F0E512A4E5F0F50BE567 +:100EA0000CF5F0E50A35F0F50AE516F5F0E512A4C3 +:100EB000F50CE516F5F0E512A4E5F0F511E50CF5F5 +:100EC000F0E50B35F0F50B750100C3C3750C00E5BB +:100ED00001F5F0E50D35F0F50DE509F5F0E50E3518 +:100EE000F0F50EE50AF5F0E50F35F0F50FE50BF539 +:100EF000F0E51035F0F510C3750A00E500F5F0E5F2 +:100F000013A4F50CE500F5F0E513A4E5F0F50BE509 +:100F10000CF5F0E50A35F0F50AE515F5F0E513A452 +:100F2000F50CE515F5F0E513A4E5F0F511E50CF584 +:100F3000F0E50B35F0F50B750100750900C3C375BD +:100F40000C00E501F5F0E50D35F0F50DE509F5F0DE +:100F5000E50E35F0F50EE50AF5F0E50F35F0F50F85 +:100F6000E50BF5F0E51035F0F510C3750B00E50065 +:100F7000F5F0E514A4F50CE500F5F0E514A4E5F0B2 +:100F8000F511E50CF5F0E50B35F0F50B7501007585 +:100F90000900750A00C3C3750000E501F5F0E50D11 +:100FA00035F0F50DE509F5F0E50E35F0F50EE50A3D +:100FB000F5F0E50F35F0F50FE50BF5F0E51035F040 +:100FC000F510E50DF502E50EF503E50FF504E51066 +:100FD000F50575E00E2506F58275E0003507F58309 +:100FE000E0F51775E00D2506F58275E0003507F58B +:100FF00083E0F51675E00C2506F58275E0003507EF +:10100000F583E0F51575E00B2506F58275E00035F2 +:1010100007F583E0F51475E00A2506F58275E00012 +:101020003507F583E0F51375E0092506F58275E0CF +:10103000003507F583E0F51275E0082506F58275A1 +:10104000E0003507F583E0F51175E0072506F58228 +:1010500075E0003507F583E0F51075E0052506F528 +:101060008275E0003507F583E0F508E508C0E07516 +:10107000E0062506F58275E0003507F583E0F50802 +:10108000E508C0E075E0172506F50675E0003507B0 +:10109000F507E502F582E503F583E504F500E505CE +:1010A000F5012200E512F4F512E513F4F513E51449 +:1010B000F4F514E518F4F518D3750000E500F5F023 +:1010C000E51235F0F512E500F5F0E51335F0F5130E +:1010D000E500F5F0E51435F0F514E500F5F0E51858 +:1010E00035F0F518E515F4F515E516F4F516E517E0 +:1010F000F4F51775E0002506F58275E0003507F573 +:1011000083E0F508E508F4F50875E0002506F582AA +:1011100075E0003507F583E508F0D3750000E500BC +:10112000F5F0E51535F0F515E500F5F0E51635F0C7 +:10113000F516E500F5F0E51735F0F517E500F5F0E3 +:1011400075E0002506F58275E0003507F583E0F5CA +:1011500008E50835F0F50875E0002506F58275E02C +:10116000003507F583E508F0020D2400E511F4F5DC +:1011700000E51EF4F501E51DF4F509E51CF4F50B99 +:10118000D3750A00E50AF5F0E50035F0F500E50A4B +:10119000F5F0E50135F0F501E50AF5F0E50935F082 +:1011A000F509E50AF5F0E50B35F0F50B75E00425DA +:1011B00006F58275E0003507F583E500F075E0037C +:1011C0002506F58275E0003507F583E501F075E049 +:1011D000022506F58275E0003507F583E509F0750F +:1011E000E0012506F58275E0003507F583E50BF093 +:1011F000E515F4F515E516F4F516E517F4F517758C +:10120000E0002506F58275E0003507F583E0F50876 +:10121000E508F4F50875E0002506F58275E000356F +:1012200007F583E508F0D3750000E500F5F0E51556 +:1012300035F0F515E500F5F0E51635F0F516E500A5 +:10124000F5F0E51735F0F517E500F5F075E0002548 +:1012500006F58275E0003507F583E0F508E5083509 +:10126000F0F50875E0002506F58275E0003507F514 +:1012700083E508F0020A4400E506758216C39582EC +:10128000F506E5077583009583F507D0E0F5087549 +:10129000E0052506F58275E0003507F583E508F0E1 +:1012A000D0E0F50875E0042506F58275E000350705 +:1012B000F583E508F075E00D2506F58275E000354B +:1012C00007F583E517F075E00C2506F58275E0005B +:1012D0003507F583E516F075E00B2506F58275E018 +:1012E000003507F583E515F075E00A2506F58275EA +:1012F000E0003507F583E514F075E0092506F58271 +:1013000075E0003507F583E513F075E0082506F56F +:101310008275E0003507F583E512F075E0072506D4 +:10132000F58275E0003507F583E511F075E00625D7 +:1013300006F58275E0003507F583E510F075E003EA +:101340002506F58275E0003507F583E51FF075E0A9 +:10135000022506F58275E0003507F583E51EF07578 +:10136000E0012506F58275E0003507F583E51DF0FF +:1013700075E0002506F58275E0003507F583E51C6C +:10138000F0E51BF514E51AF515E519F516E518F560 +:101390001775E0032506F58275E0003507F583E053 +:1013A000F51F75E0022506F58275E0003507F58327 +:1013B000E0F51E75E0012506F58275E0003507F5BC +:1013C00083E0F51D75E0002506F58275E000350720 +:1013D000F583E0F51CE514F51BE515F51AE516F5A2 +:1013E00019E517F518120639E582F502E583F503CC +:1013F000E500F504E501F505E502F500E503F50175 +:10140000E504F509E505F50A75100075110075127A +:1014100000751300C3750B00E500F5F0E514A4F5A5 +:101420000FE500F5F0E514A4E5F0F50CE50FF5F097 +:10143000E50B35F0F50BE501F5F0E514A4F50FE546 +:1014400001F5F0E514A4E5F0F50DE50FF5F0E50C78 +:1014500035F0F50CE509F5F0E514A4F50FE509F50F +:10146000F0E514A4E5F0F50EE50FF5F0E50D35F027 +:10147000F50DE50AF5F0E514A4F50FE50AF5F0E53C +:1014800014A4E5F0F50AE50FF5F0E50E35F0F50EDC +:10149000C3C3750A00E50BF5F0E51035F0F510E56E +:1014A0000CF5F0E51135F0F511E50DF5F0E5123527 +:1014B000F0F512E50EF5F0E51335F0F513C3750CF4 +:1014C00000E500F5F0E515A4F50FE500F5F0E515EC +:1014D000A4E5F0F50DE50FF5F0E50C35F0F50CE5BC +:1014E00001F5F0E515A4F50FE501F5F0E515A4E526 +:1014F000F0F50EE50FF5F0E50D35F0F50DE509F524 +:10150000F0E515A4F50FE509F5F0E515A4E5F0F50E +:101510000AE50FF5F0E50E35F0F50E750B00C3C3C7 +:10152000750900E50BF5F0E51035F0F510E50CF563 +:10153000F0E51135F0F511E50DF5F0E51235F0F5B2 +:1015400012E50EF5F0E51335F0F513C3750D00E562 +:1015500000F5F0E516A4F50FE500F5F0E516A4E5B5 +:10156000F0F50EE50FF5F0E50D35F0F50DE501F5BB +:10157000F0E516A4F50FE501F5F0E516A4E5F0F5A4 +:101580000AE50FF5F0E50E35F0F50E750B00750C5C +:1015900000C3C3750100E50BF5F0E51035F0F5105B +:1015A000E50CF5F0E51135F0F511E50DF5F0E51276 +:1015B00035F0F512E50EF5F0E51335F0F513C375CA +:1015C0000E00E500F5F0E517A4F50FE500F5F0E5F0 +:1015D00017A4E5F0F50AE50FF5F0E50E35F0F50E88 +:1015E000750B00750C00750D00C3C3750000E50B8D +:1015F000F5F0E51035F0F510E50CF5F0E51135F0F6 +:10160000F511E50DF5F0E51235F0F512E50EF5F002 +:10161000E51335F0F513C3E510F5F075E003250685 +:10162000F58275E0003507F583E0F508E50895F0EB +:10163000F500E511F5F075E0022506F58275E0008C +:101640003507F583E0F508E50895F0F501E512F5B5 +:10165000F075E0012506F58275E0003507F583E0B9 +:10166000F508E50895F0F509E513F5F075E00025B6 +:1016700006F58275E0003507F583E0F508E5089585 +:10168000F0F50AE500F502E501F503E509F504E5E5 +:101690000AF50575E00D2506F58275E0003507F5BC +:1016A00083E0F51775E00C2506F58275E000350737 +:1016B000F583E0F51675E00B2506F58275E000353B +:1016C00007F583E0F51575E00A2506F58275E0005B +:1016D0003507F583E0F51475E0092506F58275E018 +:1016E000003507F583E0F51375E0082506F58275EA +:1016F000E0003507F583E0F51275E0072506F58271 +:1017000075E0003507F583E0F51175E0062506F56F +:101710008275E0003507F583E0F51075E0042506D5 +:10172000F58275E0003507F583E0F508E508C0E0CF +:1017300075E0052506F58275E0003507F583E0F5CF +:1017400008E508C0E075E0162506F50675E00035E9 +:1017500007F507E502F582E503F583E504F500E505 +:1017600005F5012200E506758202C39582F506E5BE +:10177000077583009583F507D0E0F50875E001252E +:1017800006F58275E0003507F583E508F0D0E0F551 +:101790000875E0002506F58275E0003507F583E55C +:1017A00008F0751F01751E00751D00751C00750A77 +:1017B00001750900750100750000E50AF4F50EE5F4 +:1017C00009F4F50CE501F4F50AE500F4F501D3752B +:1017D0000000E500F5F0E50E35F0F50EE500F5F05A +:1017E000E50C35F0F50CE500F5F0E50A35F0F50A05 +:1017F000E500F5F0E50135F0F501750D01750B001B +:10180000750900750000C3750F00E50DF5F0E50ED4 +:1018100035F0F51BE50BF5F0E50C35F0F51AE509AB +:10182000F5F0E50A35F0F519E500F5F0E50135F0DC +:10183000F518121277750000E500F502E500F503D2 +:10184000E500F504E500F50575E0002506F582756F +:10185000E0003507F583E0F508E508C0E075E00134 +:101860002506F58275E0003507F583E0F508E50803 +:10187000C0E075E0022506F50675E0003507F507BE +:10188000E502F582E503F583E504F500E505F501DC +:101890002200000000000000000000000000000026 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr21085.s.expected b/tests/GCCTestSuite/pr21085.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr21085.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr22308-1.c b/tests/GCCTestSuite/pr22308-1.c new file mode 100644 index 0000000..bcbb294 --- /dev/null +++ b/tests/GCCTestSuite/pr22308-1.c @@ -0,0 +1,13 @@ +/* Bug 22308: C_TYPE_FIELDS_READONLY not updated on type variants. */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +struct foo s; +volatile struct foo t; +struct foo { const int z; }; + +void +bar (void) +{ + t = s; /* { dg-error "error: assignment of read-only variable 't'" } */ +} diff --git a/tests/GCCTestSuite/pr22308-1.c.expected b/tests/GCCTestSuite/pr22308-1.c.expected new file mode 100644 index 0000000..bcbb294 --- /dev/null +++ b/tests/GCCTestSuite/pr22308-1.c.expected @@ -0,0 +1,13 @@ +/* Bug 22308: C_TYPE_FIELDS_READONLY not updated on type variants. */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +struct foo s; +volatile struct foo t; +struct foo { const int z; }; + +void +bar (void) +{ + t = s; /* { dg-error "error: assignment of read-only variable 't'" } */ +} diff --git a/tests/GCCTestSuite/pr22308-1.hex.expected b/tests/GCCTestSuite/pr22308-1.hex.expected new file mode 100644 index 0000000..0ff08c4 --- /dev/null +++ b/tests/GCCTestSuite/pr22308-1.hex.expected @@ -0,0 +1,32 @@ +:1000000000D0E0F518D0E0F519900004E582F50A7B +:10001000900004E583F501750900C3750000E5094A +:10002000F5F0E50A35F0F50EE500F5F0E50135F0FF +:10003000F50F900000E582F509900000E583F50AD0 +:10004000750100C3750000E501F5F0E50935F0F52F +:1000500001E500F5F0E50A35F0F500E501F509E503 +:1000600000F50A750100C3750000E501F5F0E5092A +:1000700035F0F501E500F5F0E50A35F0F500E500AD +:10008000F502E501F582E502F583E0F50B75010166 +:10009000C3750000E501F5F0E50935F0F501E5006F +:1000A000F5F0E50A35F0F500E500F502E501F58229 +:1000B000E502F583E0F50C750102C3750000E5016A +:1000C000F5F0E50935F0F501E500F5F0E50A35F064 +:1000D000F500E500F502E501F582E502F583E0F5BE +:1000E0000D750103C3750000E501F5F0E50935F074 +:1000F000F501E500F5F0E50A35F0F500E500F5025B +:10010000E501F582E502F583E0F509750100C375A7 +:100110000000E501F5F0E50E35F0F501E500F5F03C +:10012000E50F35F0F500E50BF503E500F502E50117 +:10013000F582E502F583E503F0750101C375000062 +:10014000E501F5F0E50E35F0F501E500F5F0E50F18 +:1001500035F0F500E50CF503E500F502E501F58263 +:10016000E502F583E503F0750102C3750000E501C2 +:10017000F5F0E50E35F0F501E500F5F0E50F35F0A9 +:10018000F500E50DF503E500F502E501F582E50270 +:10019000F583E503F0750103C3750000E501F5F093 +:1001A000E50E35F0F501E500F5F0E50F35F0F50069 +:1001B000E509F503E500F502E501F582E502F583C1 +:1001C000E503F0750000E500F502E500F503E50044 +:1001D000F504E500F505E519C0E0E518C0E0E50225 +:1001E000F582E503F583E504F500E505F501220058 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr22308-1.s.expected b/tests/GCCTestSuite/pr22308-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr22308-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr22311-1.c b/tests/GCCTestSuite/pr22311-1.c new file mode 100644 index 0000000..4eec5ce --- /dev/null +++ b/tests/GCCTestSuite/pr22311-1.c @@ -0,0 +1,6 @@ +/* Bug 22311: ICE with -fshort-enums on shortened operations. */ +/* { dg-do compile } */ +/* { dg-options "-fshort-enums" } */ + +typedef enum { A = 1 } E; +void f(E e, unsigned char c) { c |= e; } diff --git a/tests/GCCTestSuite/pr22311-1.c.expected b/tests/GCCTestSuite/pr22311-1.c.expected new file mode 100644 index 0000000..4eec5ce --- /dev/null +++ b/tests/GCCTestSuite/pr22311-1.c.expected @@ -0,0 +1,6 @@ +/* Bug 22311: ICE with -fshort-enums on shortened operations. */ +/* { dg-do compile } */ +/* { dg-options "-fshort-enums" } */ + +typedef enum { A = 1 } E; +void f(E e, unsigned char c) { c |= e; } diff --git a/tests/GCCTestSuite/pr22311-1.hex.expected b/tests/GCCTestSuite/pr22311-1.hex.expected new file mode 100644 index 0000000..1e1030b --- /dev/null +++ b/tests/GCCTestSuite/pr22311-1.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758205C39582F506E50775830050 +:100010009583F507D0E0F500D0E0F501C375090040 +:10002000E509F502E509F503E509F504E509F50536 +:10003000E501C0E0E500C0E075E0052506F50675C0 +:10004000E0003507F507E502F582E503F583E504F1 +:10005000F500E505F50122000000000000000000A9 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr22311-1.s.expected b/tests/GCCTestSuite/pr22311-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr22311-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr22329.c b/tests/GCCTestSuite/pr22329.c new file mode 100644 index 0000000..94e32d6 --- /dev/null +++ b/tests/GCCTestSuite/pr22329.c @@ -0,0 +1,9 @@ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ +int f(int i) +{ + int k = 0; + if (i == 0) + k = i == 0; + return k; +} diff --git a/tests/GCCTestSuite/pr22329.c.expected b/tests/GCCTestSuite/pr22329.c.expected new file mode 100644 index 0000000..94e32d6 --- /dev/null +++ b/tests/GCCTestSuite/pr22329.c.expected @@ -0,0 +1,9 @@ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ +int f(int i) +{ + int k = 0; + if (i == 0) + k = i == 0; + return k; +} diff --git a/tests/GCCTestSuite/pr22329.hex.expected b/tests/GCCTestSuite/pr22329.hex.expected new file mode 100644 index 0000000..a708d0f --- /dev/null +++ b/tests/GCCTestSuite/pr22329.hex.expected @@ -0,0 +1,45 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F519D0E0F51AE510F5184D +:10002000750C00750D00750E00750F0075000075DC +:100030000100750900750A00750B00C3E500F5F0B5 +:10004000E51F95F0F500E500F5F0E50B45F0F50B43 +:10005000C3E501F5F0E51E95F0F500E500F5F0E5E6 +:100060000B45F0F50BC3E509F5F0E51D95F0F5003E +:10007000E500F5F0E50B45F0F50BC3E50AF5F0E515 +:100080001C95F0F500E500F5F0E50B45F0F50B7576 +:100090000000750100750900E50BF510750B01C333 +:1000A000750A00E510F5F0E50A95F0F50A750A0005 +:1000B000E50AF5F0E50A35F0F50AE50AF5F0E50B95 +:1000C00065F0F50BC3750A00E500F5F0E50A95F05B +:1000D000F50A750A00E50AF5F0E50A35F0F50AE5D6 +:1000E0000AF5F0E50B65F0F50BC3750A00E501F5BF +:1000F000F0E50A95F0F50A750A00E50AF5F0E50A5B +:1001000035F0F50AE50AF5F0E50B65F0F50BC3757A +:100110000A00E509F5F0E50A95F0F50A750A00E52B +:100120000AF5F0E50A35F0F50AE50AF5F0E50B65A4 +:10013000F0F50B750000750100750900750A00E502 +:100140000BF5F0E50A45F0F50AE500F5F0E50A459E +:10015000F0F50AE501F5F0E50A45F0F50AE509F5DF +:10016000F0E50A45F0F50AE50A700280030201ACE9 +:1001700000E50CF502E50DF503E50EF504E50FF5D8 +:1001800005E518F510E51AC0E0E519C0E075E004D2 +:100190002506F50675E0003507F507E502F582E569 +:1001A00003F583E504F500E505F50122007500007F +:1001B000750100750900750A00750C00C3E500F5AE +:1001C000F0E51F95F0F500E500F5F0E50C45F0F5DC +:1001D0000CC3E501F5F0E51E95F0F500E500F5F03E +:1001E000E50C45F0F50CC3E509F5F0E51D95F0F5D6 +:1001F00000E500F5F0E50C45F0F50CC3E50AF5F077 +:10020000E51C95F0F500E500F5F0E50C45F0F50C82 +:10021000750D00750E00750F00E50CF500750C01ED +:10022000C3750100E500F5F0E50195F0F5017501F4 +:1002300000E501F5F0E50135F0F501E501F5F0E542 +:100240000C65F0F50CC3750100E50DF5F0E50195C1 +:10025000F0F501750100E501F5F0E50135F0F50176 +:10026000E501F5F0E50C65F0F50CC3750100E50E50 +:10027000F5F0E50195F0F501750100E501F5F0E512 +:100280000135F0F501E501F5F0E50C65F0F50CC37D +:10029000750100E50FF5F0E50195F0F50175010038 +:1002A000E501F5F0E50135F0F501E501F5F0E50CC6 +:1002B00065F0F50C750D00750E00750F00020171EB +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr22329.s.expected b/tests/GCCTestSuite/pr22329.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr22329.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr22335-1.c b/tests/GCCTestSuite/pr22335-1.c new file mode 100644 index 0000000..a2a760b --- /dev/null +++ b/tests/GCCTestSuite/pr22335-1.c @@ -0,0 +1,10 @@ +/* { dg-do compile } */ +/* { dg-options "-O1 -fdelete-null-pointer-checks" } */ +int t(int *a) +{ + int i; + *a = 1; + i = a == 0; + return i; +} + diff --git a/tests/GCCTestSuite/pr22335-1.c.expected b/tests/GCCTestSuite/pr22335-1.c.expected new file mode 100644 index 0000000..a2a760b --- /dev/null +++ b/tests/GCCTestSuite/pr22335-1.c.expected @@ -0,0 +1,10 @@ +/* { dg-do compile } */ +/* { dg-options "-O1 -fdelete-null-pointer-checks" } */ +int t(int *a) +{ + int i; + *a = 1; + i = a == 0; + return i; +} + diff --git a/tests/GCCTestSuite/pr22335-1.hex.expected b/tests/GCCTestSuite/pr22335-1.hex.expected new file mode 100644 index 0000000..8b84783 --- /dev/null +++ b/tests/GCCTestSuite/pr22335-1.hex.expected @@ -0,0 +1,35 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F518D0E0F519E512F50D58 +:10002000E511F50EE510F50F750901750A00750B60 +:1000300000750C00750100C3750000E501F5F0E5E1 +:100040001F35F0F501E500F5F0E51E35F0F500E5AA +:1000500009F503E500F502E501F582E502F583E522 +:1000600003F0750101C3750000E501F5F0E51F35EA +:10007000F0F501E500F5F0E51E35F0F500E50AF5CF +:1000800003E500F502E501F582E502F583E503F0FD +:10009000750102C3750000E501F5F0E51F35F0F5C7 +:1000A00001E500F5F0E51E35F0F500E50BF503E59B +:1000B00000F502E501F582E502F583E503F075013F +:1000C00003C3750000E501F5F0E51F35F0F501E526 +:1000D00000F5F0E51E35F0F500E50CF503E500F55B +:1000E00002E501F582E502F583E503F07509007587 +:1000F0000A00E51FF500E51EF501750C00C3E509D2 +:10010000F5F0E50095F0F500E500F5F0E50C45F0BB +:10011000F50CC3E50AF5F0E50195F0F500E500F50D +:10012000F0E50C45F0F50C750100750900750A0045 +:10013000E50CF500750C01C3750B00E500F5F0E565 +:100140000B95F0F50B750B00E50BF5F0E50B35F0B5 +:10015000F50BE50BF5F0E50C65F0F50CC3750B0040 +:10016000E501F5F0E50B95F0F50B750B00E50BF5EA +:10017000F0E50B35F0F50BE50BF5F0E50C65F0F56A +:100180000CC3750B00E509F5F0E50B95F0F50B7563 +:100190000B00E50BF5F0E50B35F0F50BE50BF5F095 +:1001A000E50C65F0F50CC3750B00E50AF5F0E50B01 +:1001B00095F0F50B750B00E50BF5F0E50B35F0F55B +:1001C0000BE50BF5F0E50C65F0F50C750100750914 +:1001D00000750A00E50CF502E501F503E509F504F3 +:1001E000E50AF505E50DF512E50EF511E50FF5103B +:1001F000E519C0E0E518C0E075E0022506F50675D2 +:10020000E0003507F507E502F582E503F583E5042F +:10021000F500E505F50122000000000000000000E7 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr22335-1.s.expected b/tests/GCCTestSuite/pr22335-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr22335-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr22335-2.c b/tests/GCCTestSuite/pr22335-2.c new file mode 100644 index 0000000..afba955 --- /dev/null +++ b/tests/GCCTestSuite/pr22335-2.c @@ -0,0 +1,39 @@ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ +void abort(void) __attribute__((__noreturn__)); +typedef struct { + int container; +} edge_iterator; +struct ls_expr +{ + int index; + int stores; + struct ls_expr * next; +}; +struct ls_expr * pre_ldst_mems; +edge_iterator ei; +void +store_motion (void) +{ + struct ls_expr * ptr, **prev_next_ptr_ptr; + edge_iterator ei1; + edge_iterator ei2; + int a = ptr != ((void *)0); + for (ptr = pre_ldst_mems, prev_next_ptr_ptr = &pre_ldst_mems; + ptr != ((void *)0); + ptr = *prev_next_ptr_ptr) + if (!((ptr)->stores)) + *prev_next_ptr_ptr = ptr->next; + else + prev_next_ptr_ptr = &ptr->next; + + for (ptr = pre_ldst_mems; ptr != 0; ptr = ptr->next) + ; + ei1 = ei; + ei2 = ei1; + if (!ei2.container) + abort (); + ei2 = ei1; + if (!ei2.container) + abort (); +} diff --git a/tests/GCCTestSuite/pr22335-2.c.expected b/tests/GCCTestSuite/pr22335-2.c.expected new file mode 100644 index 0000000..afba955 --- /dev/null +++ b/tests/GCCTestSuite/pr22335-2.c.expected @@ -0,0 +1,39 @@ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ +void abort(void) __attribute__((__noreturn__)); +typedef struct { + int container; +} edge_iterator; +struct ls_expr +{ + int index; + int stores; + struct ls_expr * next; +}; +struct ls_expr * pre_ldst_mems; +edge_iterator ei; +void +store_motion (void) +{ + struct ls_expr * ptr, **prev_next_ptr_ptr; + edge_iterator ei1; + edge_iterator ei2; + int a = ptr != ((void *)0); + for (ptr = pre_ldst_mems, prev_next_ptr_ptr = &pre_ldst_mems; + ptr != ((void *)0); + ptr = *prev_next_ptr_ptr) + if (!((ptr)->stores)) + *prev_next_ptr_ptr = ptr->next; + else + prev_next_ptr_ptr = &ptr->next; + + for (ptr = pre_ldst_mems; ptr != 0; ptr = ptr->next) + ; + ei1 = ei; + ei2 = ei1; + if (!ei2.container) + abort (); + ei2 = ei1; + if (!ei2.container) + abort (); +} diff --git a/tests/GCCTestSuite/pr22335-2.hex.expected b/tests/GCCTestSuite/pr22335-2.hex.expected new file mode 100644 index 0000000..129f8ac --- /dev/null +++ b/tests/GCCTestSuite/pr22335-2.hex.expected @@ -0,0 +1,263 @@ +:100000000000E50675820CC39582F506E507758349 +:10001000009583F507D0E0F50875E0092506F5821F +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000082506F58275E0003507F583E508F075BB +:10004000E00B2506F58275E0003507F583E511F034 +:1000500075E00A2506F58275E0003507F583E510A1 +:10006000F0C3C3900000E582F509900000E583F538 +:100070000A750100C3750000E501F5F0E50935F0EA +:10008000F501E500F5F0E50A35F0F500E500F502CB +:10009000E501F582E502F583E0F50E750101C37512 +:1000A0000000E501F5F0E50935F0F501E500F5F0B2 +:1000B000E50A35F0F500E500F502E501F582E50217 +:1000C000F583E0F50F900000E582F510900000E563 +:1000D00083F511750100750900750000C3E501F590 +:1000E000F0E50E95F0F501E501F5F0E50045F0F5D8 +:1000F00000C3E509F5F0E50F95F0F501E501F5F030 +:10010000E50045F0F500750100750900750A0075F8 +:100110000C01C3750B00E500F5F0E50B95F0F50B50 +:10012000750B00E50BF5F0E50B35F0F50BE50BF580 +:10013000F0E50C65F0F50CC3750B00E501F5F0E595 +:100140000B95F0F50B750B00E50BF5F0E50B35F0B5 +:10015000F50BE50BF5F0E50C65F0F50CC3750B0040 +:10016000E509F5F0E50B95F0F50B750B00E50BF5E2 +:10017000F0E50B35F0F50BE50BF5F0E50C65F0F56A +:100180000CC3750B00E50AF5F0E50B95F0F50B7562 +:100190000B00E50BF5F0E50B35F0F50BE50BF5F095 +:1001A000E50C65F0F50C750100750900750A007520 +:1001B0000000E50CF5F0E50045F0F500E501F5F08F +:1001C000E50045F0F500E509F5F0E50045F0F5003E +:1001D000E50AF5F0E50045F0F500E5007002800362 +:1001E0000204C500750104C3750000E501F5F0E5E2 +:1001F0000E35F0F509E500F5F0E50F35F0F50A7577 +:100200000100C3750000E501F5F0E50935F0F501E1 +:10021000E500F5F0E50A35F0F500E500F502E50149 +:10022000F582E502F583E0F50B750101C375000069 +:10023000E501F5F0E50935F0F501E500F5F0E50A31 +:1002400035F0F500E500F502E501F582E502F583FC +:10025000E0F50C750102C3750000E501F5F0E50954 +:1002600035F0F501E500F5F0E50A35F0F500E500BB +:10027000F502E501F582E502F583E0F50D75010370 +:10028000C3750000E501F5F0E50935F0F501E5007D +:10029000F5F0E50A35F0F500E500F502E501F58237 +:1002A000E502F583E0F500750901C3750100E50B72 +:1002B000F5F0E50195F0F501750100E501F5F0E5D2 +:1002C0000135F0F501E501F5F0E50965F0F509C343 +:1002D000750100E50CF5F0E50195F0F501750100FB +:1002E000E501F5F0E50135F0F501E501F5F0E50989 +:1002F00065F0F509C3750100E50DF5F0E50195F030 +:10030000F501750100E501F5F0E50135F0F501E5D0 +:1003100001F5F0E50965F0F509C3750100E500F5A3 +:10032000F0E50195F0F501750100E501F5F0E50155 +:1003300035F0F501E501F5F0E50965F0F509750120 +:1003400000750A00750B00750000E509F5F0E50081 +:1003500045F0F500E501F5F0E50045F0F500E50AAA +:10036000F5F0E50045F0F500E50BF5F0E50045F0AA +:10037000F500E500700280030203EE00750108C37A +:10038000750000E501F5F0E50E35F0F510E500F536 +:10039000F0E50F35F0F511750100C3750000E501BA +:1003A000F5F0E51035F0F501E500F5F0E51135F073 +:1003B000F500E500F502E501F582E502F583E0F5DB +:1003C0000E750101C3750000E501F5F0E51035F08B +:1003D000F501E500F5F0E51135F0F500E500F50271 +:1003E000E501F582E502F583E0F50F0200D3007523 +:1003F0000108C3750000E501F5F0E50E35F0F501E3 +:10040000E500F5F0E50F35F0F500E501F509E5004B +:10041000F50A750100C3750000E501F5F0E5093541 +:10042000F0F501E500F5F0E50A35F0F500E500F539 +:1004300002E501F582E502F583E0F50B750101C3E4 +:10044000750000E501F5F0E50935F0F501E500F589 +:10045000F0E50A35F0F500E500F502E501F582E585 +:1004600002F583E0F509750100C3750000E501F5AB +:10047000F0E51035F0F501E500F5F0E51135F0F5A2 +:1004800000E50BF503E500F502E501F582E502F56F +:1004900083E503F0750101C3750000E501F5F0E5A2 +:1004A0001035F0F501E500F5F0E51135F0F500E562 +:1004B00009F503E500F502E501F582E502F583E5BE +:1004C00003F002039700900000E582F50990000018 +:1004D000E583F50A750100C3750000E501F5F0E557 +:1004E0000935F0F501E500F5F0E50A35F0F500E530 +:1004F00000F502E501F582E502F583E0F50E7501F0 +:1005000001C3750000E501F5F0E50935F0F501E5F9 +:1005100000F5F0E50A35F0F500E500F502E501F536 +:1005200082E502F583E0F50F75010075090075009D +:1005300000C3E501F5F0E50E95F0F501E501F5F0F4 +:10054000E50045F0F500C3E509F5F0E50F95F0F598 +:1005500001E501F5F0E50045F0F5007501007509CC +:1005600000750A00750C01C3750B00E500F5F0E598 +:100570000B95F0F50B750B00E50BF5F0E50B35F081 +:10058000F50BE50BF5F0E50C65F0F50CC3750B000C +:10059000E501F5F0E50B95F0F50B750B00E50BF5B6 +:1005A000F0E50B35F0F50BE50BF5F0E50C65F0F536 +:1005B0000CC3750B00E509F5F0E50B95F0F50B752F +:1005C0000B00E50BF5F0E50B35F0F50BE50BF5F061 +:1005D000E50C65F0F50CC3750B00E50AF5F0E50BCD +:1005E00095F0F50B750B00E50BF5F0E50B35F0F527 +:1005F0000BE50BF5F0E50C65F0F50C7501007509E0 +:1006000000750A00750000E50CF5F0E50045F0F511 +:1006100000E501F5F0E50045F0F500E509F5F0E548 +:100620000045F0F500E50AF5F0E50045F0F500E5D8 +:1006300000700280030206B300750108C375000054 +:10064000E501F5F0E50E35F0F501E500F5F0E50F13 +:1006500035F0F500E501F509E500F50A750100C37F +:10066000750000E501F5F0E50935F0F501E500F567 +:10067000F0E50A35F0F500E500F502E501F582E563 +:1006800002F583E0F50E750101C3750000E501F583 +:10069000F0E50935F0F501E500F5F0E50A35F0F58E +:1006A00000E500F502E501F582E502F583E0F50FCE +:1006B00002052800E506F509E507F50A750100C3FE +:1006C000750000E501F5F0E50935F0F501E500F507 +:1006D000F0E50A35F0F509750A00C3750000E50A72 +:1006E000F5F0E50135F0F50EE500F5F0E50935F03A +:1006F000F50F900002E582F509900002E583F50A06 +:10070000750100C3750000E501F5F0E50935F0F568 +:1007100001E500F5F0E50A35F0F500E501F509E53C +:1007200000F50A750100C3750000E501F5F0E50963 +:1007300035F0F501E500F5F0E50A35F0F500E500E6 +:10074000F502E501F582E502F583E0F50B7501019F +:10075000C3750000E501F5F0E50935F0F501E500A8 +:10076000F5F0E50A35F0F500E500F502E501F58262 +:10077000E502F583E0F50C750102C3750000E501A3 +:10078000F5F0E50935F0F501E500F5F0E50A35F09D +:10079000F500E500F502E501F582E502F583E0F5F7 +:1007A0000D750103C3750000E501F5F0E50935F0AD +:1007B000F501E500F5F0E50A35F0F500E500F50294 +:1007C000E501F582E502F583E0F509750100C375E1 +:1007D0000000E501F5F0E50E35F0F501E500F5F076 +:1007E000E50F35F0F500E50BF503E500F502E50151 +:1007F000F582E502F583E503F0750101C37500009C +:10080000E501F5F0E50E35F0F501E500F5F0E50F51 +:1008100035F0F500E50CF503E500F502E501F5829C +:10082000E502F583E503F0750102C3750000E501FB +:10083000F5F0E50E35F0F501E500F5F0E50F35F0E2 +:10084000F500E50DF503E500F502E501F582E502A9 +:10085000F583E503F0750103C3750000E501F5F0CC +:10086000E50E35F0F501E500F5F0E50F35F0F500A2 +:10087000E509F503E500F502E501F582E502F583FA +:10088000E503F0E506F509E507F50A750104C3750A +:100890000000E501F5F0E50935F0F501E500F5F0BA +:1008A000E50A35F0F509750A00C3750000E50AF59B +:1008B000F0E50135F0F50EE500F5F0E50935F0F568 +:1008C0000FE506F509E507F50A750100C375000097 +:1008D000E501F5F0E50935F0F501E500F5F0E50A8B +:1008E00035F0F50A750900C3750000E509F5F0E576 +:1008F0000135F0F501E500F5F0E50A35F0F500E524 +:1009000001F509E500F50A750100C3750000E50170 +:10091000F5F0E50935F0F501E500F5F0E50A35F00B +:10092000F500E500F502E501F582E502F583E0F565 +:100930000B750101C3750000E501F5F0E50935F01F +:10094000F501E500F5F0E50A35F0F500E500F50202 +:10095000E501F582E502F583E0F50C750102C3754A +:100960000000E501F5F0E50935F0F501E500F5F0E9 +:10097000E50A35F0F500E500F502E501F582E5024E +:10098000F583E0F50D750103C3750000E501F5F091 +:10099000E50935F0F501E500F5F0E50A35F0F5007B +:1009A000E500F502E501F582E502F583E0F509755C +:1009B0000100C3750000E501F5F0E50E35F0F50125 +:1009C000E500F5F0E50F35F0F500E50BF503E50082 +:1009D000F502E501F582E502F583E503F075010115 +:1009E000C3750000E501F5F0E50E35F0F501E50011 +:1009F000F5F0E50F35F0F500E50CF503E500F5023F +:100A0000E501F582E502F583E503F0750102C375A2 +:100A10000000E501F5F0E50E35F0F501E500F5F033 +:100A2000E50F35F0F500E50DF503E500F502E5010C +:100A3000F582E502F583E503F0750103C375000057 +:100A4000E501F5F0E50E35F0F501E500F5F0E50F0F +:100A500035F0F500E509F503E500F502E501F5825D +:100A6000E502F583E503F0E506F509E507F50A7506 +:100A70000104C3750000E501F5F0E50935F0F50165 +:100A8000E500F5F0E50A35F0F50A750900C37500D3 +:100A900000E509F5F0E50135F0F501E500F5F0E5D3 +:100AA0000A35F0F500E501F509E500F50A750100E4 +:100AB000C3750000E501F5F0E50935F0F501E50045 +:100AC000F5F0E50A35F0F500E500F502E501F582FF +:100AD000E502F583E0F50B750101C3750000E50142 +:100AE000F5F0E50935F0F501E500F5F0E50A35F03A +:100AF000F500E500F502E501F582E502F583E0F594 +:100B00000C750102C3750000E501F5F0E50935F04B +:100B1000F501E500F5F0E50A35F0F500E500F50230 +:100B2000E501F582E502F583E0F50D750103C37576 +:100B30000000E501F5F0E50935F0F501E500F5F017 +:100B4000E50A35F0F500E500F502E501F582E5027C +:100B5000F583E0F500750901C3750100E50BF5F0BB +:100B6000E50195F0F501750100E501F5F0E50135C8 +:100B7000F0F501E501F5F0E50965F0F509C375014A +:100B800000E50CF5F0E50195F0F501750100E501D2 +:100B9000F5F0E50135F0F501E501F5F0E50965F061 +:100BA000F509C3750100E50DF5F0E50195F0F501D6 +:100BB000750100E501F5F0E50135F0F501E501F518 +:100BC000F0E50965F0F509C3750100E500F5F0E50C +:100BD0000195F0F501750100E501F5F0E50135F04D +:100BE000F501E501F5F0E50965F0F5097501007518 +:100BF0000A00750B00750000E509F5F0E50045F009 +:100C0000F500E501F5F0E50045F0F500E50AF5F041 +:100C1000E50045F0F500E50BF5F0E50045F0F500E1 +:100C2000E5007002800302105300E506F509E507B0 +:100C3000F50A750104C3750000E501F5F0E5093515 +:100C4000F0F501E500F5F0E50A35F0F509750A0063 +:100C5000C3750000E50AF5F0E50135F0F50EE50095 +:100C6000F5F0E50935F0F50FE506F509E507F50AB4 +:100C7000750100C3750000E501F5F0E50935F0F5F3 +:100C800001E500F5F0E50A35F0F50A750900C375D0 +:100C90000000E509F5F0E50135F0F501E500F5F0B6 +:100CA000E50A35F0F500E501F509E500F50A7501FD +:100CB00000C3750000E501F5F0E50935F0F501E543 +:100CC00000F5F0E50A35F0F500E500F502E501F57F +:100CD00082E502F583E0F50B750101C3750000E5BF +:100CE00001F5F0E50935F0F501E500F5F0E50A3527 +:100CF000F0F500E500F502E501F582E502F583E097 +:100D0000F50C750102C3750000E501F5F0E5093544 +:100D1000F0F501E500F5F0E50A35F0F500E500F540 +:100D200002E501F582E502F583E0F50D750103C3E7 +:100D3000750000E501F5F0E50935F0F501E500F590 +:100D4000F0E50A35F0F500E500F502E501F582E58C +:100D500002F583E0F509750100C3750000E501F5B2 +:100D6000F0E50E35F0F501E500F5F0E50F35F0F5AD +:100D700000E50BF503E500F502E501F582E502F576 +:100D800083E503F0750101C3750000E501F5F0E5A9 +:100D90000E35F0F501E500F5F0E50F35F0F500E56D +:100DA0000CF503E500F502E501F582E502F583E5C2 +:100DB00003F0750102C3750000E501F5F0E50E359D +:100DC000F0F501E500F5F0E50F35F0F500E50DF57E +:100DD00003E500F502E501F582E502F583E503F0A0 +:100DE000750103C3750000E501F5F0E50E35F0F57A +:100DF00001E500F5F0E50F35F0F500E509F503E54F +:100E000000F502E501F582E502F583E503F0E5066C +:100E1000F509E507F50A750104C3750000E501F55C +:100E2000F0E50935F0F501E500F5F0E50A35F0F5F6 +:100E30000A750900C3750000E509F5F0E50135F014 +:100E4000F501E500F5F0E50A35F0F500E501F509F5 +:100E5000E500F50A750100C3750000E501F5F0E550 +:100E60000935F0F501E500F5F0E50A35F0F500E5A6 +:100E700000F502E501F582E502F583E0F50B750169 +:100E800001C3750000E501F5F0E50935F0F501E570 +:100E900000F5F0E50A35F0F500E500F502E501F5AD +:100EA00082E502F583E0F50C750102C3750000E5EB +:100EB00001F5F0E50935F0F501E500F5F0E50A3555 +:100EC000F0F500E500F502E501F582E502F583E0C5 +:100ED000F50D750103C3750000E501F5F0E5093571 +:100EE000F0F501E500F5F0E50A35F0F500E500F56F +:100EF00002E501F582E502F583E0F500750901C31D +:100F0000750100E50BF5F0E50195F0F501750100BF +:100F1000E501F5F0E50135F0F501E501F5F0E5094C +:100F200065F0F509C3750100E50CF5F0E50195F0F4 +:100F3000F501750100E501F5F0E50135F0F501E594 +:100F400001F5F0E50965F0F509C3750100E50DF55A +:100F5000F0E50195F0F501750100E501F5F0E50119 +:100F600035F0F501E501F5F0E50965F0F509C37522 +:100F70000100E500F5F0E50195F0F501750100E5EA +:100F800001F5F0E50135F0F501E501F5F0E509655C +:100F9000F0F509750100750A00750B00750000E594 +:100FA00009F5F0E50045F0F500E501F5F0E500454F +:100FB000F0F500E50AF5F0E50045F0F500E50BF584 +:100FC000F0E50045F0F500E5007002800302104FE7 +:100FD00000750000E500F502E500F503E500F50405 +:100FE000E500F50575E00B2506F58275E00035078F +:100FF000F583E0F51175E00A2506F58275E0003508 +:1010000007F583E0F51075E0082506F58275E00028 +:101010003507F583E0F508E508C0E075E009250629 +:10102000F58275E0003507F583E0F508E508C0E0D6 +:1010300075E00C2506F50675E0003507F507E502B5 +:10104000F582E503F583E504F500E505F5012200E9 +:10105000020FD100020C2A00000000000000000076 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr22335-2.s.expected b/tests/GCCTestSuite/pr22335-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr22335-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr23049.c b/tests/GCCTestSuite/pr23049.c new file mode 100644 index 0000000..0a71cec --- /dev/null +++ b/tests/GCCTestSuite/pr23049.c @@ -0,0 +1,26 @@ +/* This was an ICE in fold where we tried to fold something like, + + a = 0 == 0 ? 0 : 3988292384 + + after doing if-conversion for the vectorizer. Folding "0 == 0" + should have been done before calling fold on the whole rhs of + the above expression. */ + +/* { dg-do compile } */ +/* { dg-options "-O3 -ftree-vectorize" } */ + +static unsigned short int crc_table[256]; +void AC3_encode_init(void) +{ + unsigned int c, n, k; + for(n=0; n<256; n++) + { + c = n << 8; + for (k = 0; k < 8; k++) + { + if (c & (1 << 15)) + c = ((c << 1) & 0xffff) ^ (((1 << 0) | (1 << 2) | (1 << 15) | (1 << 16)) & 0xffff); + } + crc_table[n] = c; + } +} diff --git a/tests/GCCTestSuite/pr23049.c.expected b/tests/GCCTestSuite/pr23049.c.expected new file mode 100644 index 0000000..0a71cec --- /dev/null +++ b/tests/GCCTestSuite/pr23049.c.expected @@ -0,0 +1,26 @@ +/* This was an ICE in fold where we tried to fold something like, + + a = 0 == 0 ? 0 : 3988292384 + + after doing if-conversion for the vectorizer. Folding "0 == 0" + should have been done before calling fold on the whole rhs of + the above expression. */ + +/* { dg-do compile } */ +/* { dg-options "-O3 -ftree-vectorize" } */ + +static unsigned short int crc_table[256]; +void AC3_encode_init(void) +{ + unsigned int c, n, k; + for(n=0; n<256; n++) + { + c = n << 8; + for (k = 0; k < 8; k++) + { + if (c & (1 << 15)) + c = ((c << 1) & 0xffff) ^ (((1 << 0) | (1 << 2) | (1 << 15) | (1 << 16)) & 0xffff); + } + crc_table[n] = c; + } +} diff --git a/tests/GCCTestSuite/pr23165.c b/tests/GCCTestSuite/pr23165.c new file mode 100644 index 0000000..2c63eb1 --- /dev/null +++ b/tests/GCCTestSuite/pr23165.c @@ -0,0 +1,9 @@ +/* { dg-do compile } */ +/* { dg-options "-Wextra" } */ +void foo (void) +{ + if (0) + a: ; /* { dg-warning "empty body in an if-statement" } */ + + +} diff --git a/tests/GCCTestSuite/pr23165.c.expected b/tests/GCCTestSuite/pr23165.c.expected new file mode 100644 index 0000000..2c63eb1 --- /dev/null +++ b/tests/GCCTestSuite/pr23165.c.expected @@ -0,0 +1,9 @@ +/* { dg-do compile } */ +/* { dg-options "-Wextra" } */ +void foo (void) +{ + if (0) + a: ; /* { dg-warning "empty body in an if-statement" } */ + + +} diff --git a/tests/GCCTestSuite/pr23165.hex.expected b/tests/GCCTestSuite/pr23165.hex.expected new file mode 100644 index 0000000..bf8b056 --- /dev/null +++ b/tests/GCCTestSuite/pr23165.hex.expected @@ -0,0 +1,9 @@ +:1000000000D0E0F500D0E0F50D750900750A007527 +:100010000B00750C00750100E509F5F0E50145F0F0 +:10002000F501E50AF5F0E50145F0F501E50BF5F020 +:10003000E50145F0F501E50CF5F0E50145F0F501C8 +:10004000E5017002800302007600750100E501F50C +:1000500002E501F503E501F504E501F505E50DC04F +:10006000E0E500C0E0E502F582E503F583E504F58F +:1000700000E505F50122000002004A000000000032 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr23165.s.expected b/tests/GCCTestSuite/pr23165.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr23165.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr23584.c b/tests/GCCTestSuite/pr23584.c new file mode 100644 index 0000000..691a119 --- /dev/null +++ b/tests/GCCTestSuite/pr23584.c @@ -0,0 +1,21 @@ +/* Regression test for PR middle-end/23584 */ +/* Verify that dereferencing an absolute address inside of a function + makes that function impure. */ + +/* { dg-do compile } */ +/* { dg-options "-O1 -fdump-ipa-pure-const" } */ + +int test1 (void) +{ + return * (volatile int *) 0x1234; +} + +int test2 (void) +{ + int local = * (volatile int *) 0x1234; + return local; +} + +/* { dg-final { scan-ipa-dump-not "found to be pure: test1" "pure-const" } } */ +/* { dg-final { scan-ipa-dump-not "found to be pure: test2" "pure-const" } } */ +/* { dg-final { cleanup-ipa-dump "pure-const" } } */ diff --git a/tests/GCCTestSuite/pr23584.c.expected b/tests/GCCTestSuite/pr23584.c.expected new file mode 100644 index 0000000..691a119 --- /dev/null +++ b/tests/GCCTestSuite/pr23584.c.expected @@ -0,0 +1,21 @@ +/* Regression test for PR middle-end/23584 */ +/* Verify that dereferencing an absolute address inside of a function + makes that function impure. */ + +/* { dg-do compile } */ +/* { dg-options "-O1 -fdump-ipa-pure-const" } */ + +int test1 (void) +{ + return * (volatile int *) 0x1234; +} + +int test2 (void) +{ + int local = * (volatile int *) 0x1234; + return local; +} + +/* { dg-final { scan-ipa-dump-not "found to be pure: test1" "pure-const" } } */ +/* { dg-final { scan-ipa-dump-not "found to be pure: test2" "pure-const" } } */ +/* { dg-final { cleanup-ipa-dump "pure-const" } } */ diff --git a/tests/GCCTestSuite/pr23584.hex.expected b/tests/GCCTestSuite/pr23584.hex.expected new file mode 100644 index 0000000..d86dfa2 --- /dev/null +++ b/tests/GCCTestSuite/pr23584.hex.expected @@ -0,0 +1,31 @@ +:1000000000D0E0F518D0E0F519E511F50EE510F592 +:100010000F750934750A12750100C3750000E501FA +:10002000F5F0E50935F0F501E500F5F0E50A35F004 +:10003000F500E500F502E501F582E502F583E0F55E +:100040000B750101C3750000E501F5F0E50935F018 +:10005000F501E500F5F0E50A35F0F500E500F502FB +:10006000E501F582E502F583E0F50C750102C37543 +:100070000000E501F5F0E50935F0F501E500F5F0E2 +:10008000E50A35F0F500E500F502E501F582E50247 +:10009000F583E0F50D750103C3750000E501F5F08A +:1000A000E50935F0F501E500F5F0E50A35F0F50074 +:1000B000E500F502E501F582E502F583E0F500E5EE +:1000C0000BF502E50CF503E50DF504E500F505E596 +:1000D0000EF511E50FF510E519C0E0E518C0E0E5F3 +:1000E00002F582E503F583E504F500E505F5012257 +:1000F00000D0E0F518D0E0F519E511F50EE510F5A2 +:100100000F750934750A12750100C3750000E50109 +:10011000F5F0E50935F0F501E500F5F0E50A35F013 +:10012000F500E500F502E501F582E502F583E0F56D +:100130000B750101C3750000E501F5F0E50935F027 +:10014000F501E500F5F0E50A35F0F500E500F5020A +:10015000E501F582E502F583E0F50C750102C37552 +:100160000000E501F5F0E50935F0F501E500F5F0F1 +:10017000E50A35F0F500E500F502E501F582E50256 +:10018000F583E0F50D750103C3750000E501F5F099 +:10019000E50935F0F501E500F5F0E50A35F0F50083 +:1001A000E500F502E501F582E502F583E0F500E5FD +:1001B0000BF502E50CF503E50DF504E500F505E5A5 +:1001C0000EF511E50FF510E519C0E0E518C0E0E502 +:1001D00002F582E503F583E504F500E505F5012266 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr23584.s.expected b/tests/GCCTestSuite/pr23584.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr23584.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr23625.c b/tests/GCCTestSuite/pr23625.c new file mode 100644 index 0000000..aaeddb2 --- /dev/null +++ b/tests/GCCTestSuite/pr23625.c @@ -0,0 +1,27 @@ +/* Test case for PR23625 */ +/* { dg-do compile } */ +/* { dg-options "-O2 -ftree-vectorize -ftree-loop-linear" } */ + +typedef long INT32; +void find_best_colors () +{ +int ic0, ic1, ic2; +INT32 * bptr; +INT32 dist1; +INT32 dist2; +INT32 xx1; +for (ic0 = (1<<(5 -3))-1;ic0 >= 0;ic0--) +{ + for (ic1 = (1<<(6 -3))-1;ic1 >= 0;ic1--) + { + dist2 = dist1; + for (ic2 = (1<<(5 -3))-1;ic2 >= 0;ic2--) + { + *bptr = dist2; + bptr++; + } + dist1 += xx1; + } +} +} + diff --git a/tests/GCCTestSuite/pr23625.c.expected b/tests/GCCTestSuite/pr23625.c.expected new file mode 100644 index 0000000..aaeddb2 --- /dev/null +++ b/tests/GCCTestSuite/pr23625.c.expected @@ -0,0 +1,27 @@ +/* Test case for PR23625 */ +/* { dg-do compile } */ +/* { dg-options "-O2 -ftree-vectorize -ftree-loop-linear" } */ + +typedef long INT32; +void find_best_colors () +{ +int ic0, ic1, ic2; +INT32 * bptr; +INT32 dist1; +INT32 dist2; +INT32 xx1; +for (ic0 = (1<<(5 -3))-1;ic0 >= 0;ic0--) +{ + for (ic1 = (1<<(6 -3))-1;ic1 >= 0;ic1--) + { + dist2 = dist1; + for (ic2 = (1<<(5 -3))-1;ic2 >= 0;ic2--) + { + *bptr = dist2; + bptr++; + } + dist1 += xx1; + } +} +} + diff --git a/tests/GCCTestSuite/pr23625.hex.expected b/tests/GCCTestSuite/pr23625.hex.expected new file mode 100644 index 0000000..55d5e41 --- /dev/null +++ b/tests/GCCTestSuite/pr23625.hex.expected @@ -0,0 +1,474 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF500E51EF501E51DD8 +:1000D000F509E51CF50AE51BF51EE519F516E51809 +:1000E000F51FE500F50FE501F510E509F511E50A45 +:1000F000F512751900751500751300751D00E51DC5 +:10010000F50EE51FF50D750080E500F5F0E50E250F +:10011000F0F50EE500F5F0E50D25F0F50D750C0098 +:10012000751400751700751800750B00750A0175B8 +:100130000001C3E50DF5F0E50E95F0F509E50BF5C9 +:10014000F0E50B35F0F509E509F5F0E50055F0F5BA +:1001500000E500F5F0E50C45F0F50C750001C3E590 +:100160000DF5F0E50E95F0F509E50BF5F0E50B352D +:10017000F0F509E50EF5F0E50D95F0F501E50BF567 +:10018000F0E50B35F0F501E501F5F0E50945F0F591 +:1001900009E50AF5F0E50965F0F509E509F5F0E589 +:1001A0000055F0F500C3E516F5F0E51395F0F509F7 +:1001B000E50BF5F0E50B35F0F509E509F5F0E5009F +:1001C00055F0F500E500F5F0E50C45F0F50C75008F +:1001D00001C3E50DF5F0E50E95F0F509E50BF5F039 +:1001E000E50B35F0F509E50EF5F0E50D95F0F501B7 +:1001F000E50BF5F0E50B35F0F501E501F5F0E50966 +:1002000045F0F509E50AF5F0E50965F0F509E509B8 +:10021000F5F0E50055F0F500C3E516F5F0E51395AA +:10022000F0F509E50BF5F0E50B35F0F509E513F50B +:10023000F0E51695F0F501E50BF5F0E50B35F0F579 +:1002400001E501F5F0E50945F0F509E50AF5F0E508 +:100250000965F0F509E509F5F0E50055F0F500C38D +:10026000E51AF5F0E51595F0F509E50BF5F0E50B68 +:1002700035F0F509E509F5F0E50055F0F500E50084 +:10028000F5F0E50C45F0F50C750001C3E50DF5F052 +:10029000E50E95F0F509E50BF5F0E50B35F0F50900 +:1002A000E50EF5F0E50D95F0F501E50BF5F0E50B44 +:1002B00035F0F501E501F5F0E50945F0F509E50A48 +:1002C000F5F0E50965F0F509E509F5F0E50055F00B +:1002D000F500C3E516F5F0E51395F0F509E50BF526 +:1002E000F0E50B35F0F509E513F5F0E51695F0F5B9 +:1002F00001E50BF5F0E50B35F0F501E501F5F0E56D +:100300000945F0F509E50AF5F0E50965F0F509E5B7 +:1003100009F5F0E50055F0F500C3E51AF5F0E5152F +:1003200095F0F509E50BF5F0E50B35F0F509E51568 +:10033000F5F0E51A95F0F501E50BF5F0E50B35F074 +:10034000F501E501F5F0E50945F0F509E50AF5F0F7 +:10035000E50965F0F509E509F5F0E50055F0F5006A +:10036000C3E51EF5F0E51995F0F509E50BF5F0E5A7 +:100370000B35F0F509E509F5F0E50055F0F500E578 +:1003800000F5F0E50C45F0F50CE50CF50AE514F583 +:1003900000E517F501E518F509E50AF50C750B01FF +:1003A000C3750A00E50CF5F0E50A95F0F50A750A43 +:1003B00000E50AF5F0E50A35F0F50AE50AF5F0E59D +:1003C0000B65F0F50BC3750A00E500F5F0E50A953D +:1003D000F0F50A750A00E50AF5F0E50A35F0F50AC8 +:1003E000E50AF5F0E50B65F0F50BC3750A00E501CC +:1003F000F5F0E50A95F0F50A750A00E50AF5F0E56D +:100400000A35F0F50AE50AF5F0E50B65F0F50BC3E2 +:10041000750A00E509F5F0E50A95F0F50A750A0098 +:10042000E50AF5F0E50A35F0F50AE50AF5F0E50B21 +:1004300065F0F50B750100750900750A007500007F +:10044000E50BF5F0E50045F0F500E501F5F0E50018 +:1004500045F0F500E509F5F0E50045F0F500E50AA1 +:10046000F5F0E50045F0F500E500700280030206B6 +:10047000D700750D02750E00751700751B00E50F8E +:10048000F500E510F514E511F518E512F51C750FEA +:1004900000751000751100751200C3750100E500AC +:1004A000F5F0E50DA4F50CE500F5F0E50DA4E5F09B +:1004B000F509E50CF5F0E50135F0F501E514F5F089 +:1004C000E50DA4F50CE514F5F0E50DA4E5F0F50A4D +:1004D000E50CF5F0E50935F0F509E518F5F0E50D61 +:1004E000A4F50CE518F5F0E50DA4E5F0F50BE50C29 +:1004F000F5F0E50A35F0F50AE51CF5F0E50DA4F593 +:100500000CE51CF5F0E50DA4E5F0F50DE50CF5F0B6 +:10051000E50B35F0F50BC3C3750C00E501F5F0E50F +:100520000F35F0F50FE509F5F0E51035F0F510E5BC +:100530000AF5F0E51135F0F511E50BF5F0E51235AA +:10054000F0F512C3750900E500F5F0E50EA4F50C11 +:10055000E500F5F0E50EA4E5F0F50AE50CF5F0E5AB +:100560000935F0F509E514F5F0E50EA4F50CE514F0 +:10057000F5F0E50EA4E5F0F50BE50CF5F0E50A3530 +:10058000F0F50AE518F5F0E50EA4F50CE518F5F020 +:10059000E50EA4E5F0F50DE50CF5F0E50B35F0F50D +:1005A0000B750100C3C3750C00E501F5F0E50F35CF +:1005B000F0F50FE509F5F0E51035F0F510E50AF571 +:1005C000F0E51135F0F511E50BF5F0E51235F0F534 +:1005D00012C3750A00E500F5F0E517A4F50CE50077 +:1005E000F5F0E517A4E5F0F50BE50CF5F0E50A35B7 +:1005F000F0F50AE514F5F0E517A4F50CE514F5F0AF +:10060000E517A4E5F0F50DE50CF5F0E50B35F0F593 +:100610000B750100750900C3C3750C00E501F5F009 +:10062000E50F35F0F50FE509F5F0E51035F0F510BB +:10063000E50AF5F0E51135F0F511E50BF5F0E512F9 +:1006400035F0F512C3750B00E500F5F0E51BA4F5D8 +:100650000CE500F5F0E51BA4E5F0F50DE50CF5F073 +:10066000E50B35F0F50B750100750900750A00C33F +:10067000C3750000E501F5F0E50F35F0F50FE5096C +:10068000F5F0E51035F0F510E50AF5F0E51135F077 +:10069000F511E50BF5F0E51235F0F5127500017571 +:1006A0000100750900750A00C3750B00E500F5F03F +:1006B000E51935F0F519E501F5F0E51535F0F51515 +:1006C000E509F5F0E51335F0F513E50AF5F0E51D5C +:1006D00035F0F51D0200FE00E50FF502E510F5030B +:1006E000E511F504E512F50575E0092506F58275B5 +:1006F000E0003507F583E0F51775E0082506F5827B +:1007000075E0003507F583E0F51675E0072506F579 +:100710008275E0003507F583E0F51575E0062506DE +:10072000F58275E0003507F583E0F51475E00525E1 +:1007300006F58275E0003507F583E0F51375E004F2 +:100740002506F58275E0003507F583E0F51275E0C2 +:10075000032506F58275E0003507F583E0F5117590 +:10076000E0022506F58275E0003507F583E0F51017 +:1007700075E0002506F58275E0003507F583E0F5A4 +:1007800008E508C0E075E0012506F58275E0003552 +:1007900007F583E0F508E508C0E075E0122506F5E9 +:1007A0000675E0003507F507E502F582E503F583F8 +:1007B000E504F500E505F5012200E506758216C39E +:1007C0009582F506E5077583009583F507D0E0F57A +:1007D0000875E00D2506F58275E0003507F583E51F +:1007E00008F0D0E0F50875E00C2506F58275E0000C +:1007F0003507F583E508F075E0152506F58275E007 +:10080000003507F583E517F075E0142506F58275C8 +:10081000E0003507F583E516F075E0132506F5824F +:1008200075E0003507F583E515F075E0122506F54E +:100830008275E0003507F583E514F075E0112506B3 +:10084000F58275E0003507F583E513F075E01025B6 +:1008500006F58275E0003507F583E512F075E00FC7 +:100860002506F58275E0003507F583E511F075E0A2 +:100870000E2506F58275E0003507F583E510F07565 +:100880001F01751E00751D00751C00750E05750C89 +:1008900000750A00750100750D03750B00750900E0 +:1008A000750000C3E50DF5F0E50E95F0F51BE50BC1 +:1008B000F5F0E50C95F0F51AE509F5F0E50A95F087 +:1008C000F519E500F5F0E50195F0F518120000E5E1 +:1008D00082F502E583F503E500F504E501F505E59C +:1008E00002F50EE503F50CE504F50AE505F50175DD +:1008F0000D01750B00750900750000C3E50DF5F0DD +:10090000E50E95F0F50875E00B2506F58275E0001B +:100910003507F583E508F0E50BF5F0E50C95F0F506 +:100920000875E00A2506F58275E0003507F583E5D0 +:1009300008F0E509F5F0E50A95F0F516E500F5F0A3 +:10094000E50195F0F50875E0062506F58275E000ED +:100950003507F583E508F075140075100075110072 +:1009600075120075E0062506F58275E0003507F57D +:1009700083E0F513750080E500F5F0E51325F0F54B +:1009800013E500F5F0E51225F0F512750C00750D74 +:1009900000750E00750F00750B00750A01750001DA +:1009A000C3E512F5F0E51395F0F509E50BF5F0E573 +:1009B0000B35F0F509E509F5F0E50055F0F500E532 +:1009C00000F5F0E50C45F0F50C750001C3E512F5F6 +:1009D000F0E51395F0F509E50BF5F0E50B35F0F5CD +:1009E00009E513F5F0E51295F0F501E50BF5F0E5F5 +:1009F0000B35F0F501E501F5F0E50945F0F509E500 +:100A00000AF5F0E50965F0F509E509F5F0E50055A9 +:100A1000F0F500C3E511F5F0E51695F0F509E50BE5 +:100A2000F5F0E50B35F0F509E509F5F0E50055F0D1 +:100A3000F500E500F5F0E50C45F0F50C750001C397 +:100A4000E512F5F0E51395F0F509E50BF5F0E50B8A +:100A500035F0F509E513F5F0E51295F0F501E50B34 +:100A6000F5F0E50B35F0F501E501F5F0E50945F0A8 +:100A7000F509E50AF5F0E50965F0F509E509F5F090 +:100A8000E50055F0F500C3E511F5F0E51695F0F534 +:100A900009E50BF5F0E50B35F0F509E516F5F0E5A0 +:100AA0001195F0F501E50BF5F0E50B35F0F501E5F5 +:100AB00001F5F0E50945F0F509E50AF5F0E5096508 +:100AC000F0F509E509F5F0E50055F0F500C3E5108E +:100AD000F5F075E00A2506F58275E0003507F58327 +:100AE000E0F508E50895F0F509E50BF5F0E50B35BF +:100AF000F0F509E509F5F0E50055F0F500E500F53C +:100B0000F0E50C45F0F50C750001C3E512F5F0E5D4 +:100B10001395F0F509E50BF5F0E50B35F0F509E572 +:100B200013F5F0E51295F0F501E50BF5F0E50B3561 +:100B3000F0F501E501F5F0E50945F0F509E50AF5FF +:100B4000F0E50965F0F509E509F5F0E50055F0F582 +:100B500000C3E511F5F0E51695F0F509E50BF5F0A4 +:100B6000E50B35F0F509E516F5F0E51195F0F50121 +:100B7000E50BF5F0E50B35F0F501E501F5F0E509DC +:100B800045F0F509E50AF5F0E50965F0F509E5092F +:100B9000F5F0E50055F0F500C3E510F5F075E00A55 +:100BA0002506F58275E0003507F583E0F508E508D0 +:100BB00095F0F509E50BF5F0E50B35F0F50975E075 +:100BC0000A2506F58275E0003507F583E0F508E5AE +:100BD00008F5F0E51095F0F501E50BF5F0E50B35BE +:100BE000F0F501E501F5F0E50945F0F509E50AF54F +:100BF000F0E50965F0F509E509F5F0E50055F0F5D2 +:100C000000C3E514F5F075E00B2506F58275E000EC +:100C10003507F583E0F508E50895F0F509E50BF5EE +:100C2000F0E50B35F0F509E509F5F0E50055F0F5CF +:100C300000E500F5F0E50C45F0F50CE50CF500E5F8 +:100C40000EF501750C01C3750900E500F5F0E50925 +:100C500095F0F509750900E509F5F0E50935F0F5B8 +:100C600009E509F5F0E50C65F0F50CC3750900E53B +:100C70000DF5F0E50995F0F509750900E509F5F0C0 +:100C8000E50935F0F509E509F5F0E50C65F0F50C39 +:100C9000C3750900E501F5F0E50995F0F509750959 +:100CA00000E509F5F0E50935F0F509E509F5F0E5A8 +:100CB0000C65F0F50CC3750900E50FF5F0E5099535 +:100CC000F0F509750900E509F5F0E50935F0F509D4 +:100CD000E509F5F0E50C65F0F50C750D00750E00F5 +:100CE000750F00E50DF500E50EF501E50FF5097549 +:100CF0000B01C3750A00E50CF5F0E50A95F0F50A5D +:100D0000750A00E50AF5F0E50A35F0F50AE50AF599 +:100D1000F0E50B65F0F50BC3750A00E500F5F0E5AD +:100D20000A95F0F50A750A00E50AF5F0E50A35F0CE +:100D3000F50AE50AF5F0E50B65F0F50BC3750A0059 +:100D4000E501F5F0E50A95F0F50A750A00E50AF502 +:100D5000F0E50A35F0F50AE50AF5F0E50B65F0F582 +:100D60000BC3750A00E509F5F0E50A95F0F50A757B +:100D70000A00E50AF5F0E50A35F0F50AE50AF5F0AE +:100D8000E50B65F0F50B750100750900750A007536 +:100D90000000E50BF5F0E50045F0F500E501F5F0A4 +:100DA000E50045F0F500E509F5F0E50045F0F50052 +:100DB000E50AF5F0E50045F0F500E5007002800376 +:100DC000021CA300751F01751E00751D00751C0017 +:100DD000750E06750C00750A00750100750D03751A +:100DE0000B00750900750000C3E50DF5F0E50E95E3 +:100DF000F0F51BE50BF5F0E50C95F0F51AE509F5B6 +:100E0000F0E50A95F0F519E500F5F0E50195F0F546 +:100E100018120000E582F502E583F503E500F5040C +:100E2000E501F505E502F50EE503F50CE504F50A27 +:100E3000E505F501750D01750B00750900750000DC +:100E4000C3E50DF5F0E50E95F0F50875E00925060A +:100E5000F58275E0003507F583E508F0E50BF5F060 +:100E6000E50C95F0F517E509F5F0E50A95F0F514B0 +:100E7000E500F5F0E50195F0F50875E0072506F5C4 +:100E80008275E0003507F583E508F07515007510EB +:100E90000075110075120075E0072506F58275E0F2 +:100EA000003507F583E0F513750080E500F5F0E502 +:100EB0001325F0F513E500F5F0E51225F0F51275B0 +:100EC0000C00750D00750E00750F00750B00750A8E +:100ED00001750001C3E512F5F0E51395F0F509E59C +:100EE0000BF5F0E50B35F0F509E509F5F0E50055F2 +:100EF000F0F500E500F5F0E50C45F0F50C750001A6 +:100F0000C3E512F5F0E51395F0F509E50BF5F0E50D +:100F10000B35F0F509E513F5F0E51295F0F501E56F +:100F20000BF5F0E50B35F0F501E501F5F0E50945C8 +:100F3000F0F509E50AF5F0E50965F0F509E509F5CB +:100F4000F0E50055F0F500C3E511F5F0E51495F076 +:100F5000F509E50BF5F0E50B35F0F509E509F5F0D8 +:100F6000E50055F0F500E500F5F0E50C45F0F50C71 +:100F7000750001C3E512F5F0E51395F0F509E50BF1 +:100F8000F5F0E50B35F0F509E513F5F0E51295F010 +:100F9000F501E50BF5F0E50B35F0F501E501F5F0B0 +:100FA000E50945F0F509E50AF5F0E50965F0F5090B +:100FB000E509F5F0E50055F0F500C3E511F5F0E5BC +:100FC0001495F0F509E50BF5F0E50B35F0F509E5BD +:100FD00014F5F0E51195F0F501E50BF5F0E50B35AD +:100FE000F0F501E501F5F0E50945F0F509E50AF54B +:100FF000F0E50965F0F509E509F5F0E50055F0F5CE +:1010000000C3E510F5F0E51795F0F509E50BF5F0EF +:10101000E50B35F0F509E509F5F0E50055F0F500CB +:10102000E500F5F0E50C45F0F50C750001C3E5129F +:10103000F5F0E51395F0F509E50BF5F0E50B35F066 +:10104000F509E513F5F0E51295F0F501E50BF5F07E +:10105000E50B35F0F501E501F5F0E50945F0F50999 +:10106000E50AF5F0E50965F0F509E509F5F0E500B3 +:1010700055F0F500C3E511F5F0E51495F0F509E537 +:101080000BF5F0E50B35F0F509E514F5F0E51195F4 +:10109000F0F501E50BF5F0E50B35F0F501E501F5AF +:1010A000F0E50945F0F509E50AF5F0E50965F0F523 +:1010B00009E509F5F0E50055F0F500C3E510F5F098 +:1010C000E51795F0F509E50BF5F0E50B35F0F509B9 +:1010D000E517F5F0E51095F0F501E50BF5F0E50BFA +:1010E00035F0F501E501F5F0E50945F0F509E50A0A +:1010F000F5F0E50965F0F509E509F5F0E50055F0CD +:10110000F500C3E515F5F075E0092506F58275E0F3 +:10111000003507F583E0F508E50895F0F509E50BDE +:10112000F5F0E50B35F0F509E509F5F0E50055F0CA +:10113000F500E500F5F0E50C45F0F50CE50CF500E3 +:10114000E50EF501750C01C3750900E500F5F0E544 +:101150000995F0F509750900E509F5F0E50935F09F +:10116000F509E509F5F0E50C65F0F50CC375090026 +:10117000E50DF5F0E50995F0F509750900E509F5C6 +:10118000F0E50935F0F509E509F5F0E50C65F0F550 +:101190000CC3750900E501F5F0E50995F0F5097551 +:1011A0000900E509F5F0E50935F0F509E509F5F07F +:1011B000E50C65F0F50CC3750900E50FF5F0E509E0 +:1011C00095F0F509750900E509F5F0E50935F0F543 +:1011D00009E509F5F0E50C65F0F50C750D00750EE7 +:1011E00000750F00E50DF500E50EF501E50FF509B9 +:1011F000750B01C3750A00E50CF5F0E50A95F0F5ED +:101200000A750A00E50AF5F0E50A35F0F50AE50A7F +:10121000F5F0E50B65F0F50BC3750A00E500F5F098 +:10122000E50A95F0F50A750A00E50AF5F0E50A35D4 +:10123000F0F50AE50AF5F0E50B65F0F50BC3750A64 +:1012400000E501F5F0E50A95F0F50A750A00E50AF2 +:10125000F5F0E50A35F0F50AE50AF5F0E50B65F07D +:10126000F50BC3750A00E509F5F0E50A95F0F50AF6 +:10127000750A00E50AF5F0E50A35F0F50AE50AF524 +:10128000F0E50B65F0F50B750100750900750A00B6 +:10129000750000E50BF5F0E50045F0F500E501F51A +:1012A000F0E50045F0F500E509F5F0E50045F0F55D +:1012B00000E50AF5F0E50045F0F500E50070028074 +:1012C00003021C0400751F01751E00750F007510C8 +:1012D00000750E05750C00750A00750100750D038B +:1012E000750B00750900750000C3E50DF5F0E50EFE +:1012F00095F0F51BE50BF5F0E50C95F0F51AE50911 +:10130000F5F0E50A95F0F519E500F5F0E50195F041 +:10131000F518E50FF51DE510F51C120000E582F546 +:1013200002E583F503E500F504E501F505E502F5C1 +:101330000EE503F50CE504F50AE505F501750D016B +:10134000750B00750900750000C3E50DF5F0E50E9D +:1013500095F0F511E50BF5F0E50C95F0F512E509C2 +:10136000F5F0E50A95F0F513E500F5F0E50195F0E7 +:10137000F518751500750D00750E00750F00E51850 +:10138000F510750080E500F5F0E51025F0F510E5A5 +:1013900000F5F0E50F25F0F50F750C0075190075D7 +:1013A0001A00751B00750B00750A01750001C3E575 +:1013B0000FF5F0E51095F0F509E50BF5F0E50B35C7 +:1013C000F0F509E509F5F0E50055F0F500E500F563 +:1013D000F0E50C45F0F50C750001C3E50FF5F0E5FF +:1013E0001095F0F509E50BF5F0E50B35F0F509E59D +:1013F00010F5F0E50F95F0F501E50BF5F0E50B358F +:10140000F0F501E501F5F0E50945F0F509E50AF526 +:10141000F0E50965F0F509E509F5F0E50055F0F5A9 +:1014200000C3E50EF5F0E51395F0F509E50BF5F0D1 +:10143000E50B35F0F509E509F5F0E50055F0F500A7 +:10144000E500F5F0E50C45F0F50C750001C3E50F7E +:10145000F5F0E51095F0F509E50BF5F0E50B35F045 +:10146000F509E510F5F0E50F95F0F501E50BF5F060 +:10147000E50B35F0F501E501F5F0E50945F0F50975 +:10148000E50AF5F0E50965F0F509E509F5F0E5008F +:1014900055F0F500C3E50EF5F0E51395F0F509E517 +:1014A0000BF5F0E50B35F0F509E513F5F0E50E95D4 +:1014B000F0F501E50BF5F0E50B35F0F501E501F58B +:1014C000F0E50945F0F509E50AF5F0E50965F0F5FF +:1014D00009E509F5F0E50055F0F500C3E50DF5F077 +:1014E000E51295F0F509E50BF5F0E50B35F0F5099A +:1014F000E509F5F0E50055F0F500E500F5F0E50C3F +:1015000045F0F50C750001C3E50FF5F0E51095F019 +:10151000F509E50BF5F0E50B35F0F509E510F5F00B +:10152000E50F95F0F501E50BF5F0E50B35F0F5016C +:10153000E501F5F0E50945F0F509E50AF5F0E509FD +:1015400065F0F509E509F5F0E50055F0F500C3E5AE +:101550000EF5F0E51395F0F509E50BF5F0E50B3523 +:10156000F0F509E513F5F0E50E95F0F501E50BF55D +:10157000F0E50B35F0F501E501F5F0E50945F0F58D +:1015800009E50AF5F0E50965F0F509E509F5F0E585 +:101590000055F0F500C3E50DF5F0E51295F0F509FD +:1015A000E50BF5F0E50B35F0F509E512F5F0E50D85 +:1015B00095F0F501E50BF5F0E50B35F0F501E501EA +:1015C000F5F0E50945F0F509E50AF5F0E50965F0FE +:1015D000F509E509F5F0E50055F0F500C3E515F569 +:1015E000F0E51195F0F509E50BF5F0E50B35F0F5B3 +:1015F00009E509F5F0E50055F0F500E500F5F0E541 +:101600000C45F0F50CE519F50AE51AF500E51BF5B2 +:1016100001E50CF509750C01C3750B00E509F5F042 +:10162000E50B95F0F50B750B00E50BF5F0E50B35CB +:10163000F0F50BE50BF5F0E50C65F0F50CC3750B5B +:1016400000E50AF5F0E50B95F0F50B750B00E50BE1 +:10165000F5F0E50B35F0F50BE50BF5F0E50C65F075 +:10166000F50CC3750B00E500F5F0E50B95F0F50BF7 +:10167000750B00E50BF5F0E50B35F0F50BE50BF51B +:10168000F0E50C65F0F50CC3750B00E501F5F0E530 +:101690000B95F0F50B750B00E50BF5F0E50B35F050 +:1016A000F50BE50BF5F0E50C65F0F50C750A00752A +:1016B0000000750100E50AF509750B01C3750A0004 +:1016C000E50CF5F0E50A95F0F50A750A00E50AF56E +:1016D000F0E50A35F0F50AE50AF5F0E50B65F0F5F9 +:1016E0000BC3750A00E509F5F0E50A95F0F50A75F2 +:1016F0000A00E50AF5F0E50A35F0F50AE50AF5F025 +:10170000E50B65F0F50BC3750A00E500F5F0E50A99 +:1017100095F0F50A750A00E50AF5F0E50A35F0F5E9 +:101720000AE50AF5F0E50B65F0F50BC3750A00E56F +:1017300001F5F0E50A95F0F50A750A00E50AF5F0FD +:10174000E50A35F0F50AE50AF5F0E50B65F0F50B6D +:10175000750100750900750A00750000E50BF5F0CC +:10176000E50045F0F500E501F5F0E50045F0F50090 +:10177000E509F5F0E50045F0F500E50AF5F0E500CE +:1017800045F0F500E50070028003021A8F00750134 +:1017900000C3750000E501F5F075E0012506F5824E +:1017A00075E0003507F583E0F508E50835F0F5014B +:1017B000E500F5F075E0002506F58275E0003507D7 +:1017C000F583E0F508E50835F0F50075E005250638 +:1017D000F58275E0003507F583E0F508E508F503C7 +:1017E000E500F502E501F582E502F583E503F07514 +:1017F0000101C3750000E501F5F075E0012506F56E +:101800008275E0003507F583E0F508E50835F0F569 +:1018100001E500F5F075E0002506F58275E000357C +:1018200007F583E0F508E50835F0F50075E00425D7 +:1018300006F58275E0003507F583E0F508E508F563 +:1018400003E500F502E501F582E502F583E503F025 +:10185000750102C3750000E501F5F075E00125068C +:10186000F58275E0003507F583E0F508E50835F009 +:10187000F501E500F5F075E0002506F58275E0005C +:101880003507F583E0F508E50835F0F50075E00368 +:101890002506F58275E0003507F583E0F508E508D3 +:1018A000F503E500F502E501F582E502F583E503C0 +:1018B000F0750103C3750000E501F5F075E0012541 +:1018C00006F58275E0003507F583E0F508E5083593 +:1018D000F0F501E500F5F075E0002506F58275E00C +:1018E000003507F583E0F508E50835F0F50075E00B +:1018F000022506F58275E0003507F583E0F508E579 +:1019000008F503E500F502E501F582E502F583E55A +:1019100003F0750001750100750C04750D00750E5E +:1019200000750F00C3750900E500F5F0E50CA4F59E +:101930000BE500F5F0E50CA4E5F0F50AE50BF5F094 +:10194000E50935F0F509E501F5F0E50CA4F50BE541 +:1019500001F5F0E50CA4E5F0F501E50BF5F0E50A7D +:1019600035F0F50AC3C3750100E509F5F0E50E355C +:10197000F0F50EE50AF5F0E50F35F0F50FC3750A41 +:1019800000E500F5F0E50DA4F50BE500F5F0E50D3B +:10199000A4E5F0F501E50BF5F0E50A35F0F50A757B +:1019A0000900C3C3750000E509F5F0E50E35F0F553 +:1019B0000EE50AF5F0E50F35F0F50FC37509007572 +:1019C0000A00C3C3750000E509F5F0E50E35F0F532 +:1019D0000EE50AF5F0E50F35F0F50FC37509007552 +:1019E0000A00C3C3750000E509F5F0E50E35F0F512 +:1019F0000EE50AF5F0E50F35F0F50FC3750000E5CB +:101A00000EF5F075E0012506F58275E0003507F565 +:101A100083E0F508E50835F0F50875E0012506F5E1 +:101A20008275E0003507F583E508F0E50FF5F07500 +:101A3000E0002506F58275E0003507F583E0F5083E +:101A4000E50835F0F50875E0002506F58275E0003B +:101A50003507F583E508F07500017501007509008B +:101A6000750A00C3E500F5F0E51195F0F511E50103 +:101A7000F5F0E51295F0F512E509F5F0E51395F0AE +:101A8000F513E50AF5F0E51895F0F5180213720064 +:101A9000C375000075E0082506F58275E00035077E +:101AA000F583E0F508E508F5F075E0052506F58213 +:101AB00075E0003507F583E0F508E50835F0F50831 +:101AC00075E0052506F58275E0003507F583E50824 +:101AD000F075E0082506F58275E0003507F583E02E +:101AE000F508E508F5F075E0042506F58275E000D7 +:101AF0003507F583E0F508E50835F0F50875E004ED +:101B00002506F58275E0003507F583E508F075E0F8 +:101B1000082506F58275E0003507F583E0F508E550 +:101B200008F5F075E0032506F58275E0003507F548 +:101B300083E0F508E50835F0F50875E0032506F5BE +:101B40008275E0003507F583E508F075E0082506A5 +:101B5000F58275E0003507F583E0F508E508F5F056 +:101B600075E0022506F58275E0003507F583E0F59E +:101B700008E50835F0F50875E0022506F58275E000 +:101B8000003507F583E508F075000175010075095A +:101B900000750A00C3E500F5F075E0092506F58239 +:101BA00075E0003507F583E0F508E50895F0F508E0 +:101BB00075E0092506F58275E0003507F583E5082F +:101BC000F0E501F5F0E51795F0F517E509F5F0E515 +:101BD0001495F0F514E50AF5F075E0072506F58291 +:101BE00075E0003507F583E0F508E50895F0F508A0 +:101BF00075E0072506F58275E0003507F583E508F1 +:101C0000F0020E8B00750001750100750900750A60 +:101C100000C3E500F5F075E00B2506F58275E000E0 +:101C20003507F583E0F508E50895F0F50875E00B54 +:101C30002506F58275E0003507F583E508F0E50136 +:101C4000F5F075E00A2506F58275E0003507F583A5 +:101C5000E0F508E50895F0F50875E00A2506F58237 +:101C600075E0003507F583E508F0E509F5F0E516C0 +:101C700095F0F516E50AF5F075E0062506F582758E +:101C8000E0003507F583E0F508E50895F0F50875FF +:101C9000E0062506F58275E0003507F583E508F0D6 +:101CA00002095700750000E500F502E500F503E5BF +:101CB00000F504E500F50575E0152506F58275E0EB +:101CC000003507F583E0F51775E0142506F58275F4 +:101CD000E0003507F583E0F51675E0132506F5827B +:101CE00075E0003507F583E0F51575E0122506F57A +:101CF0008275E0003507F583E0F51475E0112506DF +:101D0000F58275E0003507F583E0F51375E01025E1 +:101D100006F58275E0003507F583E0F51275E00FF2 +:101D20002506F58275E0003507F583E0F51175E0CD +:101D30000E2506F58275E0003507F583E0F5107590 +:101D4000E00C2506F58275E0003507F583E0F5081F +:101D5000E508C0E075E00D2506F58275E000350761 +:101D6000F583E0F508E508C0E075E0162506F50600 +:101D700075E0003507F507E502F582E503F583E533 +:101D800004F500E505F50122000000000000000058 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr23625.s.expected b/tests/GCCTestSuite/pr23625.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr23625.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr24367.c b/tests/GCCTestSuite/pr24367.c new file mode 100644 index 0000000..6486719 --- /dev/null +++ b/tests/GCCTestSuite/pr24367.c @@ -0,0 +1,17 @@ +/* { dg-do compile { target fpic } } */ +/* { dg-options "-O2 -fPIC -funroll-loops" } */ + +char * +test (const char *parent, const char *child) +{ + static char rtn_path[1024]; + char *s = rtn_path; + char *s_end = rtn_path + sizeof (rtn_path); + const char *s2 = child; + + while (*s != '\0') + s++; + while ((s < s_end) && (*s2 != '\0')) + *s++ = *s2++; + return (rtn_path); +} diff --git a/tests/GCCTestSuite/pr24367.c.expected b/tests/GCCTestSuite/pr24367.c.expected new file mode 100644 index 0000000..6486719 --- /dev/null +++ b/tests/GCCTestSuite/pr24367.c.expected @@ -0,0 +1,17 @@ +/* { dg-do compile { target fpic } } */ +/* { dg-options "-O2 -fPIC -funroll-loops" } */ + +char * +test (const char *parent, const char *child) +{ + static char rtn_path[1024]; + char *s = rtn_path; + char *s_end = rtn_path + sizeof (rtn_path); + const char *s2 = child; + + while (*s != '\0') + s++; + while ((s < s_end) && (*s2 != '\0')) + *s++ = *s2++; + return (rtn_path); +} diff --git a/tests/GCCTestSuite/pr24367.hex.expected b/tests/GCCTestSuite/pr24367.hex.expected new file mode 100644 index 0000000..0990d8e --- /dev/null +++ b/tests/GCCTestSuite/pr24367.hex.expected @@ -0,0 +1,160 @@ +:1000000000E506758208C39582F506E5077583004D +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0E5173C +:10004000F518E516F519E515F51AE514F51BE51390 +:10005000F51EE512F51F75E0032506F58275E00033 +:100060003507F583E511F075E0022506F58275E0A8 +:10007000003507F583E510F0E51DF515E51CF514D1 +:10008000900000E582F512900000E583F5139000E2 +:1000900000E582F510900000E583F511750000750C +:1000A0000104750C01750D00750E00750F00C37508 +:1000B0000900E500F5F0E50CA4F50BE500F5F0E529 +:1000C0000CA4E5F0F50AE50BF5F0E50935F0F509C6 +:1000D000E501F5F0E50CA4F50BE501F5F0E50CA460 +:1000E000E5F0F501E50BF5F0E50A35F0F50AC3C3D7 +:1000F000750100E509F5F0E50E35F0F50EE50AF5B8 +:10010000F0E50F35F0F50FC3750A00E500F5F0E5F1 +:100110000DA4F50BE500F5F0E50DA4E5F0F501E51E +:100120000BF5F0E50A35F0F50A750900C3C3750053 +:1001300000E509F5F0E50E35F0F50EE50AF5F0E518 +:100140000F35F0F50FC3750900750A00C3C37500BC +:1001500000E509F5F0E50E35F0F50EE50AF5F0E5F8 +:100160000F35F0F50FC3750900750A00C3C375009C +:1001700000E509F5F0E50E35F0F50EE50AF5F0E5D8 +:100180000F35F0F50FC3750000E50EF5F0E51035FD +:10019000F0F517E50FF5F0E51135F0F516E515F575 +:1001A00000E514F501750A00C3750900E50AF5F0CC +:1001B000E51235F0F50AE509F5F0E51335F0F50936 +:1001C000E509F502E50AF582E502F583E0F50D752E +:1001D0001000E510F50EE510F50F750900750A0021 +:1001E000750B00750C00751100C3E509F5F0E50D00 +:1001F00095F0F509E509F5F0E51145F0F511C3E5D0 +:100200000AF5F0E50E95F0F509E509F5F0E511457B +:10021000F0F511C3E50BF5F0E50F95F0F509E509EB +:10022000F5F0E51145F0F511C3E50CF5F0E5109595 +:10023000F0F509E509F5F0E51145F0F5117509004E +:10024000750A00750B00750D01C3750C00E511F5FD +:10025000F0E50C95F0F50C750C00E50CF5F0E50CEF +:1002600035F0F50CE50CF5F0E50D65F0F50DC37511 +:100270000C00E509F5F0E50C95F0F50C750C00E5C2 +:100280000CF5F0E50C35F0F50CE50CF5F0E50D6539 +:10029000F0F50DC3750C00E50AF5F0E50C95F0F5E9 +:1002A0000C750C00E50CF5F0E50C35F0F50CE50CE3 +:1002B000F5F0E50D65F0F50DC3750C00E50BF5F0F7 +:1002C000E50C95F0F50C750C00E50CF5F0E50C353A +:1002D000F0F50CE50CF5F0E50D65F0F50D750A008F +:1002E000750B00750C00750900E50DF5F0E5094585 +:1002F000F0F509E50AF5F0E50945F0F509E50BF536 +:10030000F0E50945F0F509E50CF5F0E50945F0F5EE +:1003100009E5097002800302041F00750901750ACE +:1003200000750E01750F00751000751100C3750B77 +:1003300000E509F5F0E50EA4F50DE509F5F0E50E8B +:10034000A4E5F0F50CE50DF5F0E50B35F0F50BE562 +:100350000AF5F0E50EA4F50DE50AF5F0E50EA4E5C5 +:10036000F0F50AE50DF5F0E50C35F0F50CC3C375B5 +:100370000A00E50BF5F0E51035F0F510E50CF5F0A9 +:10038000E51135F0F511C3750C00E509F5F0E50F41 +:10039000A4F50DE509F5F0E50FA4E5F0F50AE50D86 +:1003A000F5F0E50C35F0F50C750B00C3C3750900CD +:1003B000E50BF5F0E51035F0F510E50CF5F0E5117D +:1003C00035F0F511C3750B00750C00C3C37509003A +:1003D000E50BF5F0E51035F0F510E50CF5F0E5115D +:1003E00035F0F511C3750B00750C00C3C37509001A +:1003F000E50BF5F0E51035F0F510E50CF5F0E5113D +:1004000035F0F511C3750900E510F5F0E51235F08A +:10041000F512E511F5F0E51335F0F5130201A5002D +:10042000750E00750F00751000751100750D0075C3 +:100430000C01750901C3E516F5F0E51395F0F50B10 +:10044000E50DF5F0E50D35F0F50BE50BF5F0E509FB +:1004500055F0F509E509F5F0E50E45F0F50E7509DD +:1004600001C3E516F5F0E51395F0F50BE50DF5F094 +:10047000E50D35F0F50BE513F5F0E51695F0F50A09 +:10048000E50DF5F0E50D35F0F50AE50AF5F0E50BBB +:1004900045F0F50BE50CF5F0E50B65F0F50BE50B1C +:1004A000F5F0E50955F0F509C3E517F5F0E5129506 +:1004B000F0F50BE50DF5F0E50D35F0F50BE50BF579 +:1004C000F0E50955F0F509E509F5F0E50E45F0F51B +:1004D0000E750900E50EF5F0E50945F0F509E50FA3 +:1004E000F5F0E50945F0F509E510F5F0E50945F009 +:1004F000F509E511F5F0E50945F0F509E5097002A2 +:1005000080030208F900750900750A00750B007573 +:100510000C00750E01C3750D00E509F5F0E50D95AC +:10052000F0F50D750D00E50DF5F0E50D35F0F50D67 +:10053000E50DF5F0E50E65F0F50EC3750D00E50A65 +:10054000F5F0E50D95F0F50D750D00E50DF5F0E50F +:100550000D35F0F50DE50DF5F0E50E65F0F50EC382 +:10056000750D00E50BF5F0E50D95F0F50D750D0039 +:10057000E50DF5F0E50D35F0F50DE50DF5F0E50EC1 +:1005800065F0F50EC3750D00E50CF5F0E50D95F081 +:10059000F50D750D00E50DF5F0E50D35F0F50DE502 +:1005A0000DF5F0E50E65F0F50E750A00750B00759A +:1005B0000C00750900E50EF5F0E50945F0F509E5D3 +:1005C0000AF5F0E50945F0F509E50BF5F0E5094513 +:1005D000F0F509E50CF5F0E50945F0F509E50970D8 +:1005E00002800302085400E512F514E513F51575B1 +:1005F0000A01750B00750F01751000751100750962 +:1006000000C3750C00E50AF5F0E50FA4F50EE50A48 +:10061000F5F0E50FA4E5F0F50DE50EF5F0E50C3588 +:10062000F0F50CE50BF5F0E50FA4F50EE50BF5F094 +:10063000E50FA4E5F0F50BE50EF5F0E50D35F0F569 +:100640000DC3C3750B00E50CF5F0E51135F0F511A0 +:10065000E50DF5F0E50935F0F509C3750D00E50A7E +:10066000F5F0E510A4F50EE50AF5F0E510A4E5F0C7 +:10067000F50BE50EF5F0E50D35F0F50D750C00C345 +:10068000C3750A00E50CF5F0E51135F0F511E50D3F +:10069000F5F0E50935F0F509C3750C00750D00C3DB +:1006A000C3750A00E50CF5F0E51135F0F511E50D1F +:1006B000F5F0E50935F0F509C3750C00750D00C3BB +:1006C000C3750A00E50CF5F0E51135F0F511E50DFF +:1006D000F5F0E50935F0F509C3750A00E511F5F007 +:1006E000E51435F0F512E509F5F0E51535F0F513EB +:1006F000E500F510E501F511750001750100750CB7 +:1007000001750D00750E00750F00C3750900E50039 +:10071000F5F0E50CA4F50BE500F5F0E50CA4E5F02B +:10072000F50AE50BF5F0E50935F0F509E501F5F019 +:10073000E50CA4F50BE501F5F0E50CA4E5F0F501F9 +:10074000E50BF5F0E50A35F0F50AC3C3750100E5E0 +:1007500009F5F0E50E35F0F50EE50AF5F0E50F3593 +:10076000F0F50FC3750A00E500F5F0E50DA4F50BF3 +:10077000E500F5F0E50DA4E5F0F501E50BF5F0E594 +:100780000A35F0F50A750900C3C3750000E509F5DF +:10079000F0E50E35F0F50EE50AF5F0E50F35F0F56C +:1007A0000FC3750900750A00C3C3750000E509F59C +:1007B000F0E50E35F0F50EE50AF5F0E50F35F0F54C +:1007C0000FC3750900750A00C3C3750000E509F57C +:1007D000F0E50E35F0F50EE50AF5F0E50F35F0F52C +:1007E0000FC3750000E50EF5F0E51035F0F500E5F6 +:1007F0000FF5F0E51135F0F501750A00C375090034 +:10080000E50AF5F0E51035F0F50AE509F5F0E51132 +:1008100035F0F509E509F502E50AF582E502F5830B +:10082000E0F50B750A00C3750900E50AF5F0E5145B +:1008300035F0F50AE509F5F0E51535F0F509E50BB4 +:10084000F503E509F502E50AF582E502F583E5031E +:10085000F002042000900000E582F501900000E520 +:1008600083F509750000E501F502E509F503E500EA +:10087000F504E500F505E518F517E519F516E51A8F +:10088000F515E51BF514E51EF513E51FF51275E0EA +:10089000032506F58275E0003507F583E0F511754F +:1008A000E0022506F58275E0003507F583E0F510D6 +:1008B00075E0002506F58275E0003507F583E0F563 +:1008C00008E508C0E075E0012506F58275E0003511 +:1008D00007F583E0F508E508C0E075E0082506F5B2 +:1008E0000675E0003507F507E502F582E503F583B7 +:1008F000E504F500E505F5012200750A00C3750958 +:1009000000E50AF5F0E50035F0F50AE509F5F0E552 +:100910000135F0F509E509F502E50AF582E502F58C +:1009200083E0F50D751000E510F50EE510F50F7577 +:100930000900750A00750B00750C00751100C3E500 +:1009400009F5F0E50D95F0F509E509F5F0E5114536 +:10095000F0F511C3E50AF5F0E50E95F0F509E509A6 +:10096000F5F0E51145F0F511C3E50BF5F0E50F9550 +:10097000F0F509E509F5F0E51145F0F511C3E50CD1 +:10098000F5F0E51095F0F509E509F5F0E51145F00C +:10099000F511750A00750B00750C00750900E5115D +:1009A000F5F0E50945F0F509E50AF5F0E50945F04A +:1009B000F509E50BF5F0E50945F0F509E50CF5F06D +:1009C000E50945F0F509E509700280030209DF0039 +:1009D000750900750A00750B00750C000205120000 +:1009E000750901750A00750B00750C0002051200EF +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr24367.s.expected b/tests/GCCTestSuite/pr24367.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr24367.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr24445.c b/tests/GCCTestSuite/pr24445.c new file mode 100644 index 0000000..f34784c --- /dev/null +++ b/tests/GCCTestSuite/pr24445.c @@ -0,0 +1,9 @@ +/* { dg-do compile { target fpic } } */ +/* { dg-options "-O1 -fpic" } */ +extern int *bar (void) __attribute__ ((__pure__)); +extern char *baz; +void +foo (void) +{ + baz = (char *) bar (); +} diff --git a/tests/GCCTestSuite/pr24445.c.expected b/tests/GCCTestSuite/pr24445.c.expected new file mode 100644 index 0000000..f34784c --- /dev/null +++ b/tests/GCCTestSuite/pr24445.c.expected @@ -0,0 +1,9 @@ +/* { dg-do compile { target fpic } } */ +/* { dg-options "-O1 -fpic" } */ +extern int *bar (void) __attribute__ ((__pure__)); +extern char *baz; +void +foo (void) +{ + baz = (char *) bar (); +} diff --git a/tests/GCCTestSuite/pr24445.hex.expected b/tests/GCCTestSuite/pr24445.hex.expected new file mode 100644 index 0000000..0cdd748 --- /dev/null +++ b/tests/GCCTestSuite/pr24445.hex.expected @@ -0,0 +1,19 @@ +:100000000000E506758202C39582F506E507758353 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F0E553 +:1000400082F502E583F503E502F50BE503F50C9077 +:100050000000E582F509900000E583F50A750100CE +:10006000C3750000E501F5F0E50935F0F501E5009F +:10007000F5F0E50A35F0F500E50BF503E500F502CE +:10008000E501F582E502F583E503F0750101C3752D +:100090000000E501F5F0E50935F0F501E500F5F0C2 +:1000A000E50A35F0F500E50CF503E500F502E5019C +:1000B000F582E502F583E503F0750000E500F50241 +:1000C000E500F503E500F504E500F50575E000251C +:1000D00006F58275E0003507F583E0F508E508C010 +:1000E000E075E0012506F58275E0003507F583E04F +:1000F000F508E508C0E075E0022506F50675E000A4 +:100100003507F507E502F582E503F583E504F5001B +:10011000E505F501220000000000000000000000DD +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr24445.s.expected b/tests/GCCTestSuite/pr24445.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr24445.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr24600.c b/tests/GCCTestSuite/pr24600.c new file mode 100644 index 0000000..62bb7ca --- /dev/null +++ b/tests/GCCTestSuite/pr24600.c @@ -0,0 +1,16 @@ +/* This used to ICE on s390 due to a old-loop bug. */ + +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +char *strcpy (char *dest, const char *src); + +void test (char *Line, int len) +{ + int z; + + for (z = 1; z <= len; z++) + if (Line[z - 1]) + strcpy (Line + z + 1, Line); +} + diff --git a/tests/GCCTestSuite/pr24600.c.expected b/tests/GCCTestSuite/pr24600.c.expected new file mode 100644 index 0000000..62bb7ca --- /dev/null +++ b/tests/GCCTestSuite/pr24600.c.expected @@ -0,0 +1,16 @@ +/* This used to ICE on s390 due to a old-loop bug. */ + +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +char *strcpy (char *dest, const char *src); + +void test (char *Line, int len) +{ + int z; + + for (z = 1; z <= len; z++) + if (Line[z - 1]) + strcpy (Line + z + 1, Line); +} + diff --git a/tests/GCCTestSuite/pr24600.hex.expected b/tests/GCCTestSuite/pr24600.hex.expected new file mode 100644 index 0000000..f972680 --- /dev/null +++ b/tests/GCCTestSuite/pr24600.hex.expected @@ -0,0 +1,165 @@ +:100000000000E506758214C39582F506E507758341 +:10001000009583F507D0E0F50875E0052506F58223 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000042506F58275E0003507F583E508F075BF +:10004000E00D2506F58275E0003507F583E517F02C +:1000500075E00C2506F58275E0003507F583E51699 +:10006000F075E00B2506F58275E0003507F583E5B0 +:1000700015F075E00A2506F58275E0003507F58371 +:10008000E514F075E0092506F58275E0003507F501 +:1000900083E513F075E0082506F58275E000350765 +:1000A000F583E512F075E0072506F58275E0003569 +:1000B00007F583E511F075E0062506F58275E00089 +:1000C0003507F583E510F075E0012506F58275E04A +:1000D000003507F583E51FF075E0002506F582750C +:1000E000E0003507F583E51EF075E0032506F5828F +:1000F00075E0003507F583E51DF0E51CF517E51BF8 +:10010000F51575E0022506F58275E0003507F583E3 +:10011000E51AF0751001751100751200751600755D +:10012000E0022506F58275E0003507F583E0F5135A +:10013000E516F50F750080E500F5F0E51325F0F5FF +:1001400013E500F5F0E50F25F0F50F750C00750DC2 +:1001500000751400750E00750B00750A017500011D +:10016000C3E50FF5F0E51395F0F509E50BF5F0E5BE +:100170000B35F0F509E509F5F0E50055F0F500E57A +:1001800000F5F0E50C45F0F50C750001C3E50FF541 +:10019000F0E51395F0F509E50BF5F0E50B35F0F515 +:1001A00009E513F5F0E50F95F0F501E50BF5F0E540 +:1001B0000B35F0F501E501F5F0E50945F0F509E548 +:1001C0000AF5F0E50965F0F509E509F5F0E50055F2 +:1001D000F0F500C3E512F5F0E51595F0F509E50B2E +:1001E000F5F0E50B35F0F509E509F5F0E50055F01A +:1001F000F500E500F5F0E50C45F0F50C750001C3E0 +:10020000E50FF5F0E51395F0F509E50BF5F0E50BD5 +:1002100035F0F509E513F5F0E50F95F0F501E50B7F +:10022000F5F0E50B35F0F501E501F5F0E50945F0F0 +:10023000F509E50AF5F0E50965F0F509E509F5F0D8 +:10024000E50055F0F500C3E512F5F0E51595F0F57C +:1002500009E50BF5F0E50B35F0F509E515F5F0E5E9 +:100260001295F0F501E50BF5F0E50B35F0F501E53C +:1002700001F5F0E50945F0F509E50AF5F0E5096550 +:10028000F0F509E509F5F0E50055F0F500C3E511D5 +:10029000F5F0E51795F0F509E50BF5F0E50B35F010 +:1002A000F509E509F5F0E50055F0F500E500F5F094 +:1002B000E50C45F0F50C750001C3E50FF5F0E5130D +:1002C00095F0F509E50BF5F0E50B35F0F509E513CB +:1002D000F5F0E50F95F0F501E50BF5F0E50B35F0E0 +:1002E000F501E501F5F0E50945F0F509E50AF5F058 +:1002F000E50965F0F509E509F5F0E50055F0F500CB +:10030000C3E512F5F0E51595F0F509E50BF5F0E517 +:100310000B35F0F509E515F5F0E51295F0F501E579 +:100320000BF5F0E50B35F0F501E501F5F0E50945D4 +:10033000F0F509E50AF5F0E50965F0F509E509F5D7 +:10034000F0E50055F0F500C3E511F5F0E51795F07F +:10035000F509E50BF5F0E50B35F0F509E517F5F0D6 +:10036000E51195F0F501E50BF5F0E50B35F0F5013C +:10037000E501F5F0E50945F0F509E50AF5F0E509CF +:1003800065F0F509E509F5F0E50055F0F500C3E580 +:1003900010F5F075E0032506F58275E0003507F5E8 +:1003A00083E0F508E50895F0F509E50BF5F0E50BB8 +:1003B00035F0F509E509F5F0E50055F0F500E50043 +:1003C000F5F0E50C45F0F50CE50CF500E514F5014C +:1003D000750C01C3750900E500F5F0E50995F0F528 +:1003E00009750900E509F5F0E50935F0F509E509B4 +:1003F000F5F0E50C65F0F50CC3750900E50DF5F0B9 +:10040000E50995F0F509750900E509F5F0E5093507 +:10041000F0F509E509F5F0E50C65F0F50CC3750993 +:1004200000E501F5F0E50995F0F509750900E50924 +:10043000F5F0E50935F0F509E509F5F0E50C65F0AD +:10044000F50CC3750900E50EF5F0E50995F0F50921 +:10045000750900E509F5F0E50935F0F509E509F557 +:10046000F0E50C65F0F50C750D00751400750E00C7 +:10047000E50DF500E514F501E50EF509750B01C371 +:10048000750A00E50CF5F0E50A95F0F50A750A0025 +:10049000E50AF5F0E50A35F0F50AE50AF5F0E50BB1 +:1004A00065F0F50BC3750A00E500F5F0E50A95F077 +:1004B000F50A750A00E50AF5F0E50A35F0F50AE5F2 +:1004C0000AF5F0E50B65F0F50BC3750A00E501F5DB +:1004D000F0E50A95F0F50A750A00E50AF5F0E50A77 +:1004E00035F0F50AE50AF5F0E50B65F0F50BC37597 +:1004F0000A00E509F5F0E50A95F0F50A750A00E548 +:100500000AF5F0E50A35F0F50AE50AF5F0E50B65C0 +:10051000F0F50B750100750900750A00750000E51E +:100520000BF5F0E50045F0F500E501F5F0E50045D7 +:10053000F0F500E509F5F0E50045F0F500E50AF510 +:10054000F0E50045F0F500E5007002800302095572 +:1005500000750001750100C3E500F5F0E51095F0A8 +:10056000F500E501F5F0E51195F0F501750C017563 +:100570000D00750E00750F00C3750900E500F5F05C +:10058000E50CA4F50BE500F5F0E50CA4E5F0F50AA3 +:10059000E50BF5F0E50935F0F509E501F5F0E50CB9 +:1005A000A4F50BE501F5F0E50CA4E5F0F501E50B8C +:1005B000F5F0E50A35F0F50AC3C3750100E509F564 +:1005C000F0E50E35F0F50EE50AF5F0E50F35F0F53E +:1005D0000FC3750A00E500F5F0E50DA4F50BE50085 +:1005E000F5F0E50DA4E5F0F501E50BF5F0E50A35CC +:1005F000F0F50A750900C3C3750000E509F5F0E5DB +:100600000E35F0F50EE50AF5F0E50F35F0F50FC300 +:10061000750900750A00C3C3750000E509F5F0E52A +:100620000E35F0F50EE50AF5F0E50F35F0F50FC3E0 +:10063000750900750A00C3C3750000E509F5F0E50A +:100640000E35F0F50EE50AF5F0E50F35F0F50FC3C0 +:10065000750000E50EF5F075E0012506F58275E000 +:10066000003507F583E0F508E50835F0F500E50FFE +:10067000F5F075E0002506F58275E0003507F58395 +:10068000E0F508E50835F0F50AE500F50975010023 +:10069000C3750000E501F5F0E50935F0F501E50069 +:1006A000F5F0E50A35F0F500E500F502E501F58223 +:1006B000E502F583E0F501750000E501F5F0E500E0 +:1006C00045F0F500E500700280030207090075019E +:1006D00001750900750A00750B00C3750000E5017E +:1006E000F5F0E51035F0F510E509F5F0E51135F018 +:1006F000F511E50AF5F0E51235F0F512E50BF5F028 +:10070000E51635F0F51602011F00750A01750C009B +:10071000750D00750000C3750100E510F5F0E50AE0 +:10072000A4F50BE510F5F0E50AA4E5F0F509E50BF5 +:10073000F5F0E50135F0F501E511F5F0E50AA4F570 +:100740000BE511F5F0E50AA4E5F0F50AE50BF5F087 +:10075000E50935F0F509C3C3750A00E501F5F0E5D3 +:100760000D35F0F50DE509F5F0E50035F0F500C3C0 +:10077000750900E510F5F0E50CA4F50BE510F5F0B2 +:10078000E50CA4E5F0F50AE50BF5F0E50935F0F523 +:1007900009750100C3C3750A00E501F5F0E50D35E3 +:1007A000F0F50DE509F5F0E50035F0F500C375014C +:1007B00000750900C3C3750A00E501F5F0E50D35C4 +:1007C000F0F50DE509F5F0E50035F0F500C375012C +:1007D00000750900C3C3750A00E501F5F0E50D35A4 +:1007E000F0F50DE509F5F0E50035F0F500C375010C +:1007F00000E50DF5F075E0012506F58275E00035A0 +:1008000007F583E0F508E50835F0F513E500F5F0A8 +:1008100075E0002506F58275E0003507F583E0F503 +:1008200008E50835F0F514750001750100750C0137 +:10083000750D00750E00750F00C3750900E500F514 +:10084000F0E50CA4F50BE500F5F0E50CA4E5F0F5FA +:100850000AE50BF5F0E50935F0F509E501F5F0E5F8 +:100860000CA4F50BE501F5F0E50CA4E5F0F501E5C8 +:100870000BF5F0E50A35F0F50AC3C3750100E5098B +:10088000F5F0E50E35F0F50EE50AF5F0E50F35F07B +:10089000F50FC3750A00E500F5F0E50DA4F50BE5CD +:1008A00000F5F0E50DA4E5F0F501E50BF5F0E50A3E +:1008B00035F0F50A750900C3C3750000E509F5F0C8 +:1008C000E50E35F0F50EE50AF5F0E50F35F0F50F1C +:1008D000C3750900750A00C3C3750000E509F5F08A +:1008E000E50E35F0F50EE50AF5F0E50F35F0F50FFC +:1008F000C3750900750A00C3C3750000E509F5F06A +:10090000E50E35F0F50EE50AF5F0E50F35F0F50FDB +:10091000C3750000E50EF5F0E51335F0F500E50FC1 +:10092000F5F0E51435F0F501E500F51FE501F51EDC +:1009300075E0012506F58275E0003507F583E0F5E1 +:100940001D75E0002506F58275E0003507F583E0AA +:10095000F51C0206CE00750000E500F502E500F585 +:1009600003E500F504E500F50575E00D2506F582C3 +:1009700075E0003507F583E0F51775E00C2506F501 +:100980008275E0003507F583E0F51675E00B250666 +:10099000F58275E0003507F583E0F51575E00A2569 +:1009A00006F58275E0003507F583E0F51475E0097A +:1009B0002506F58275E0003507F583E0F51375E04F +:1009C000082506F58275E0003507F583E0F5127518 +:1009D000E0072506F58275E0003507F583E0F5119F +:1009E00075E0062506F58275E0003507F583E0F52C +:1009F0001075E0042506F58275E0003507F583E003 +:100A0000F508E508C0E075E0052506F58275E0000B +:100A10003507F583E0F508E508C0E075E014250624 +:100A2000F50675E0003507F507E502F582E503F503 +:100A300083E504F500E505F5012200000000000053 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr24600.s.expected b/tests/GCCTestSuite/pr24600.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr24600.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr24615.c b/tests/GCCTestSuite/pr24615.c new file mode 100644 index 0000000..9e42911 --- /dev/null +++ b/tests/GCCTestSuite/pr24615.c @@ -0,0 +1,27 @@ + +/* { dg-do compile { target fpic } } */ +/* { dg-options "-Os -fPIC" } */ + +void *memset (void *, int, __SIZE_TYPE__); +void *memcpy (void *, const void *, __SIZE_TYPE__); + +char *alloc (int); + +char * +test (int type, int size, char *data, int len) +{ + char *block = alloc (size); + char *bp = block; + + *bp++ = type; + switch (type) + { + case 0: + case 1: + memset (bp, type == 0 ? 0x00 : 0xff, size); + memcpy (bp, data, len); + } + + return block; +} + diff --git a/tests/GCCTestSuite/pr24615.c.expected b/tests/GCCTestSuite/pr24615.c.expected new file mode 100644 index 0000000..9e42911 --- /dev/null +++ b/tests/GCCTestSuite/pr24615.c.expected @@ -0,0 +1,27 @@ + +/* { dg-do compile { target fpic } } */ +/* { dg-options "-Os -fPIC" } */ + +void *memset (void *, int, __SIZE_TYPE__); +void *memcpy (void *, const void *, __SIZE_TYPE__); + +char *alloc (int); + +char * +test (int type, int size, char *data, int len) +{ + char *block = alloc (size); + char *bp = block; + + *bp++ = type; + switch (type) + { + case 0: + case 1: + memset (bp, type == 0 ? 0x00 : 0xff, size); + memcpy (bp, data, len); + } + + return block; +} + diff --git a/tests/GCCTestSuite/pr24615.hex.expected b/tests/GCCTestSuite/pr24615.hex.expected new file mode 100644 index 0000000..c28e7d6 --- /dev/null +++ b/tests/GCCTestSuite/pr24615.hex.expected @@ -0,0 +1,170 @@ +:1000000000000000E506758228C39582F506E50725 +:100010007583009583F507D0E0F50875E011250696 +:10002000F58275E0003507F583E508F0D0E0F508C6 +:1000300075E0102506F58275E0003507F583E508C3 +:10004000F075E0192506F58275E0003507F583E5C2 +:1000500017F075E0182506F58275E0003507F58381 +:10006000E516F075E0172506F58275E0003507F511 +:1000700083E515F075E0162506F58275E000350775 +:10008000F583E514F075E0152506F58275E0003579 +:1000900007F583E513F075E0142506F58275E00099 +:1000A0003507F583E512F075E0132506F58275E056 +:1000B000003507F583E511F075E0122506F5827528 +:1000C000E0003507F583E510F0E51FF510E51EF5B6 +:1000D00011E51DF512E51CF51375E0092506F582FD +:1000E00075E0003507F583E51BF075E0082506F59A +:1000F0008275E0003507F583E51AF075E0072506FF +:10010000F58275E0003507F583E519F075E0062501 +:1001100006F58275E0003507F583E518F0750928C6 +:10012000750001E500F5F0E50995F0F509E506F53E +:1001300000E500F5F0E50925F0F509750100E50792 +:10014000F500E500F5F0E50135F0F501E501F50212 +:10015000E509F582E502F583E0F50875E00B250673 +:10016000F58275E0003507F583E508F07509287517 +:100170000002E500F5F0E50995F0F509E506F50062 +:10018000E500F5F0E50925F0F509750100E507F54D +:1001900000E500F5F0E50135F0F501E501F502E5D2 +:1001A00009F582E502F583E0F50875E00A2506F514 +:1001B0008275E0003507F583E508F07509287500BC +:1001C00003E500F5F0E50995F0F509E506F500E52C +:1001D00000F5F0E50925F0F509750100E507F500E2 +:1001E000E500F5F0E50135F0F501E501F502E50979 +:1001F000F582E502F583E0F50875E00F2506F58246 +:1002000075E0003507F583E508F0750928750004E9 +:10021000E500F5F0E50995F0F509E506F500E500DE +:10022000F5F0E50925F0F509750100E507F500E5AC +:1002300000F5F0E50135F0F501E501F502E509F518 +:1002400082E502F583E0F50875E00E2506F5827576 +:10025000E0003507F583E508F0750928750005E528 +:1002600000F5F0E50995F0F509E506F500E500F57E +:10027000F0E50925F0F509750100E507F500E50051 +:10028000F5F0E50135F0F501E501F502E509F58246 +:10029000E502F583E0F50875E00D2506F58275E0C9 +:1002A000003507F583E508F0750928750006E500B7 +:1002B000F5F0E50995F0F509E506F500E500F5F03E +:1002C000E50925F0F509750100E507F500E500F5FC +:1002D000F0E50135F0F501E501F502E509F582E506 +:1002E00002F583E0F50875E00C2506F58275E0005F +:1002F0003507F583E508F075E0092506F58275E018 +:10030000003507F583E0F51F75E0082506F58275D1 +:10031000E0003507F583E0F51E75E0072506F58258 +:1003200075E0003507F583E0F51D75E0062506F557 +:100330008275E0003507F583E0F51CE582F502E5FE +:1003400083F503E502F514E503F515E514F517E566 +:1003500015F516E517F518E516F51975000175017F +:1003600000750C01750D00750E00750F00C3750941 +:1003700000E500F5F0E50CA4F50BE500F5F0E50C63 +:10038000A4E5F0F50AE50BF5F0E50935F0F509E52A +:1003900001F5F0E50CA4F50BE501F5F0E50CA4E59D +:1003A000F0F501E50BF5F0E50A35F0F50AC3C37584 +:1003B0000100E509F5F0E50E35F0F50EE50AF5F07A +:1003C000E50F35F0F50FC3750A00E500F5F0E50D12 +:1003D000A4F50BE500F5F0E50DA4E5F0F501E50B5E +:1003E000F5F0E50A35F0F50A750900C3C37500009C +:1003F000E509F5F0E50E35F0F50EE50AF5F0E50F47 +:1004000035F0F50FC3750900750A00C3C375000008 +:10041000E509F5F0E50E35F0F50EE50AF5F0E50F26 +:1004200035F0F50FC3750900750A00C3C3750000E8 +:10043000E509F5F0E50E35F0F50EE50AF5F0E50F06 +:1004400035F0F50FC3750000E50EF5F0E51835F051 +:10045000F517E50FF5F0E51935F0F516750100C350 +:10046000750000E501F5F0E51835F0F501E500F55A +:10047000F0E51935F0F500E510F503E500F502E5C6 +:1004800001F582E502F583E503F0750000750100D2 +:10049000750900750A00750B00C3E500F5F0E5105D +:1004A00095F0F500E500F5F0E50B45F0F50BC3E53B +:1004B00001F5F0E51195F0F500E500F5F0E50B45E7 +:1004C000F0F50BC3E509F5F0E51295F0F500E50050 +:1004D000F5F0E50B45F0F50BC3E50AF5F0E51395EE +:1004E000F0F500E500F5F0E50B45F0F50B750000C3 +:1004F000750100750900E50BF50C750B01C3750A54 +:1005000000E50CF5F0E50A95F0F50A750A00E50A34 +:10051000F5F0E50A35F0F50AE50AF5F0E50B65F0CA +:10052000F50BC3750A00E500F5F0E50A95F0F50A4C +:10053000750A00E50AF5F0E50A35F0F50AE50AF571 +:10054000F0E50B65F0F50BC3750A00E501F5F0E584 +:100550000A95F0F50A750A00E50AF5F0E50A35F0A6 +:10056000F50AE50AF5F0E50B65F0F50BC3750A0031 +:10057000E509F5F0E50A95F0F50A750A00E50AF5D2 +:10058000F0E50A35F0F50AE50AF5F0E50B65F0F55A +:100590000B750000750100750900750A00E50BF583 +:1005A000F0E50A45F0F50AE500F5F0E50A45F0F555 +:1005B0000AE501F5F0E50A45F0F50AE509F5F0E58B +:1005C0000A45F0F50AE50A70028003020A86007502 +:1005D0000001750100750900750A00750B00C3E57F +:1005E00000F5F0E51095F0F500E500F5F0E50B45B8 +:1005F000F0F50BC3E501F5F0E51195F0F500E50028 +:10060000F5F0E50B45F0F50BC3E509F5F0E51295BE +:10061000F0F500E500F5F0E50B45F0F50BC3E50A54 +:10062000F5F0E51395F0F500E500F5F0E50B45F084 +:10063000F50B750000750100750900E50BF50C75EB +:100640000B01C3750A00E50CF5F0E50A95F0F50A13 +:10065000750A00E50AF5F0E50A35F0F50AE50AF550 +:10066000F0E50B65F0F50BC3750A00E500F5F0E564 +:100670000A95F0F50A750A00E50AF5F0E50A35F085 +:10068000F50AE50AF5F0E50B65F0F50BC3750A0010 +:10069000E501F5F0E50A95F0F50A750A00E50AF5B9 +:1006A000F0E50A35F0F50AE50AF5F0E50B65F0F539 +:1006B0000BC3750A00E509F5F0E50A95F0F50A7532 +:1006C0000A00E50AF5F0E50A35F0F50AE50AF5F065 +:1006D000E50B65F0F50B75000075010075090075F7 +:1006E0000A00E50BF5F0E50A45F0F50AE500F5F03E +:1006F000E50A45F0F50AE501F5F0E50A45F0F50AE9 +:10070000E509F5F0E50A45F0F50AE50A700280030F +:100710000207FA000000750000E514F502E515F582 +:1007200003E500F504E500F50575E0192506F582F9 +:1007300075E0003507F583E0F51775E0182506F537 +:100740008275E0003507F583E0F51675E01725069C +:10075000F58275E0003507F583E0F51575E016259F +:1007600006F58275E0003507F583E0F51475E015B0 +:100770002506F58275E0003507F583E0F51375E091 +:10078000142506F58275E0003507F583E0F512754E +:10079000E0132506F58275E0003507F583E0F511D5 +:1007A00075E0122506F58275E0003507F583E0F562 +:1007B0001075E0102506F58275E0003507F583E039 +:1007C000F508E508C0E075E0112506F58275E00042 +:1007D0003507F583E0F508E508C0E075E028250653 +:1007E000F50675E0003507F507E502F582E503F546 +:1007F00083E504F500E505F50122000075000075AC +:100800000100750900750A00750B00C3E500F5F0DD +:10081000E51095F0F500E500F5F0E50B45F0F50B7A +:10082000C3E501F5F0E51195F0F500E500F5F0E51B +:100830000B45F0F50BC3E509F5F0E51295F0F50071 +:10084000E500F5F0E50B45F0F50BC3E50AF5F0E53D +:100850001395F0F500E500F5F0E50B45F0F50B75A7 +:100860000100750900750A00E50BF500750B01C361 +:10087000750C00E500F5F0E50C95F0F50C750C0035 +:10088000E50CF5F0E50C35F0F50CE50CF5F0E50BB5 +:1008900065F0F50BC3750C00E501F5F0E50C95F07E +:1008A000F50C750C00E50CF5F0E50C35F0F50CE5F4 +:1008B0000CF5F0E50B65F0F50BC3750C00E509F5DB +:1008C000F0E50C95F0F50C750C00E50CF5F0E50C79 +:1008D00035F0F50CE50CF5F0E50B65F0F50BC3759F +:1008E0000C00E50AF5F0E50C95F0F50C750C00E54B +:1008F0000CF5F0E50C35F0F50CE50CF5F0E50B65C5 +:10090000F0F50B750100750900750A00750000E52A +:100910000BF5F0E50045F0F500E501F5F0E50045E3 +:10092000F0F500E509F5F0E50045F0F500E50AF51C +:10093000F0E50045F0F500E50070028003020A765C +:1009400000751DFF751C00751B00751A0075E00908 +:100950002506F58275E0003507F583E0F51975E0A9 +:10096000082506F58275E0003507F583E0F5187572 +:10097000E0072506F58275E0003507F583E0F50A06 +:1009800075E0062506F58275E0003507F583E0F58C +:100990000BE517F51FE516F51E750901E506F500CF +:1009A000C3E509F5F0E50095F0F509E507F50075F3 +:1009B0000100E501F5F0E50095F0F501E50AF50324 +:1009C000E501F502E509F582E502F583E503F07539 +:1009D0000902E506F500C3E509F5F0E50095F0F537 +:1009E00009E507F500750100E501F5F0E50095F072 +:1009F000F501E50BF503E501F502E509F582E502F0 +:100A0000F583E503F0E517F51FE516F51E75E00B18 +:100A10002506F58275E0003507F583E0F51D75E0E4 +:100A20000A2506F58275E0003507F583E0F51C75AB +:100A3000E00F2506F58275E0003507F583E0F51B2C +:100A400075E00E2506F58275E0003507F583E0F5C3 +:100A50001A75E00D2506F58275E0003507F583E08F +:100A6000F51975E00C2506F58275E0003507F5836C +:100A7000E0F51802071400751D00751C00751B00B9 +:100A8000751A0002094D00000207FB00000000007B +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr24615.s.expected b/tests/GCCTestSuite/pr24615.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr24615.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr24620.c b/tests/GCCTestSuite/pr24620.c new file mode 100644 index 0000000..926a524 --- /dev/null +++ b/tests/GCCTestSuite/pr24620.c @@ -0,0 +1,27 @@ +/* This used to ICE due to a backend problem on s390. */ + +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +struct rgba +{ + unsigned char r; + unsigned char g; + unsigned char b; + unsigned char a; +}; + +void g (struct rgba); + +void f (void) +{ + struct rgba x; + + x.r = 0; + x.g = 128; + x.b = 128; + x.a = 26; + + g (x); +} + diff --git a/tests/GCCTestSuite/pr24620.c.expected b/tests/GCCTestSuite/pr24620.c.expected new file mode 100644 index 0000000..926a524 --- /dev/null +++ b/tests/GCCTestSuite/pr24620.c.expected @@ -0,0 +1,27 @@ +/* This used to ICE due to a backend problem on s390. */ + +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +struct rgba +{ + unsigned char r; + unsigned char g; + unsigned char b; + unsigned char a; +}; + +void g (struct rgba); + +void f (void) +{ + struct rgba x; + + x.r = 0; + x.g = 128; + x.b = 128; + x.a = 26; + + g (x); +} + diff --git a/tests/GCCTestSuite/pr24620.hex.expected b/tests/GCCTestSuite/pr24620.hex.expected new file mode 100644 index 0000000..48dcb96 --- /dev/null +++ b/tests/GCCTestSuite/pr24620.hex.expected @@ -0,0 +1,42 @@ +:100000000000E506758206C39582F506E50775834F +:10001000009583F507D0E0F50875E0052506F58223 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000042506F58275E0003507F583E508F0E54F +:1000400006F509E507F50A750100C3750000E5012D +:10005000F5F0E50935F0F501E500F5F0E50A35F0D4 +:10006000F509750A00C3750000E50AF5F0E50135EC +:10007000F0F50AE500F5F0E50935F0F50B75090036 +:10008000750100C3750000E501F5F0E50A35F0F5EE +:1000900001E500F5F0E50B35F0F500E509F503E5C0 +:1000A00000F502E501F582E502F583E503F0E506DA +:1000B000F509E507F50A750100C3750000E501F5CE +:1000C000F0E50935F0F501E500F5F0E50A35F0F564 +:1000D00009750A01C3750000E50AF5F0E50135F080 +:1000E000F50AE500F5F0E50935F0F50B75098075C1 +:1000F0000100C3750000E501F5F0E50A35F0F501F2 +:10010000E500F5F0E50B35F0F500E509F503E50050 +:10011000F502E501F582E502F583E503F0E506F574 +:1001200009E507F50A750100C3750000E501F5F062 +:10013000E50935F0F501E500F5F0E50A35F0F509DA +:10014000750A02C3750000E50AF5F0E50135F0F522 +:100150000AE500F5F0E50935F0F50B750980750144 +:1001600000C3750000E501F5F0E50A35F0F501E59D +:1001700000F5F0E50B35F0F500E509F503E500F5D0 +:1001800002E501F582E502F583E503F0E506F509F0 +:10019000E507F50A750100C3750000E501F5F0E516 +:1001A0000935F0F501E500F5F0E50A35F0F50975DA +:1001B0000A03C3750000E50AF5F0E50135F0F50A1C +:1001C000E500F5F0E50935F0F50B75091A75010044 +:1001D000C3750000E501F5F0E50A35F0F501E5002D +:1001E000F5F0E50B35F0F500E509F503E500F5025E +:1001F000E501F582E502F583E503F0E506F509E59D +:1002000007F50A750100C3750000E501F5F0E50981 +:1002100035F0F501E500F5F0E50A35F0F500E5010A +:10022000F51FE500F51E750000E500F502E500F597 +:1002300003E500F504E500F50575E0042506F58203 +:1002400075E0003507F583E0F508E508C0E075E0E6 +:10025000052506F58275E0003507F583E0F508E52C +:1002600008C0E075E0062506F50675E0003507F5DF +:1002700007E502F582E503F583E504F500E505F5FC +:10028000012200000000000000000000000000004B +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr24620.s.expected b/tests/GCCTestSuite/pr24620.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr24620.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr24683.c b/tests/GCCTestSuite/pr24683.c new file mode 100644 index 0000000..79d3210 --- /dev/null +++ b/tests/GCCTestSuite/pr24683.c @@ -0,0 +1,11 @@ +/* { dg-do compile { target fpic } } */ +/* { dg-options "-O2 -fPIC" } */ +int *block; +void final(unsigned int j) +{ + unsigned int i; + unsigned char *data = (unsigned char *)"\0"; + for (i = 0; i < 8; i++) + for (; j + 63 < 1; j += 64) + block = (int *) &data[j]; +} diff --git a/tests/GCCTestSuite/pr24683.c.expected b/tests/GCCTestSuite/pr24683.c.expected new file mode 100644 index 0000000..79d3210 --- /dev/null +++ b/tests/GCCTestSuite/pr24683.c.expected @@ -0,0 +1,11 @@ +/* { dg-do compile { target fpic } } */ +/* { dg-options "-O2 -fPIC" } */ +int *block; +void final(unsigned int j) +{ + unsigned int i; + unsigned char *data = (unsigned char *)"\0"; + for (i = 0; i < 8; i++) + for (; j + 63 < 1; j += 64) + block = (int *) &data[j]; +} diff --git a/tests/GCCTestSuite/pr25196.c b/tests/GCCTestSuite/pr25196.c new file mode 100644 index 0000000..6ea3a6f --- /dev/null +++ b/tests/GCCTestSuite/pr25196.c @@ -0,0 +1,34 @@ +/* { dg-do run { target i?86-*-* x86_64-*-* } } */ +/* { dg-require-effective-target ilp32 } */ +/* { dg-options "-march=i386 -O3 -fomit-frame-pointer" } */ + +/* For this test case, we used to do an invalid load motion after + reload, because we missed autoincrements of the stack pointer. */ + +extern void exit (int); + +static int j; + +static void __attribute__((noinline)) +f1 (int a, int b, int c, int d, int e) +{ + j = a; +} + +int __attribute__((noinline)) +f2 (int a, int b, int c, int d, int e) +{ + if ((b & 0x1111) != 1) + f1 (a, b, c, d, e); + return 0; +} + +int +main (void) +{ + int tmp = f2 (123, 0, 0, 0, 0); + if (j != 123) + exit (1); + return 0; +} + diff --git a/tests/GCCTestSuite/pr25196.c.expected b/tests/GCCTestSuite/pr25196.c.expected new file mode 100644 index 0000000..6ea3a6f --- /dev/null +++ b/tests/GCCTestSuite/pr25196.c.expected @@ -0,0 +1,34 @@ +/* { dg-do run { target i?86-*-* x86_64-*-* } } */ +/* { dg-require-effective-target ilp32 } */ +/* { dg-options "-march=i386 -O3 -fomit-frame-pointer" } */ + +/* For this test case, we used to do an invalid load motion after + reload, because we missed autoincrements of the stack pointer. */ + +extern void exit (int); + +static int j; + +static void __attribute__((noinline)) +f1 (int a, int b, int c, int d, int e) +{ + j = a; +} + +int __attribute__((noinline)) +f2 (int a, int b, int c, int d, int e) +{ + if ((b & 0x1111) != 1) + f1 (a, b, c, d, e); + return 0; +} + +int +main (void) +{ + int tmp = f2 (123, 0, 0, 0, 0); + if (j != 123) + exit (1); + return 0; +} + diff --git a/tests/GCCTestSuite/pr25196.hex.expected b/tests/GCCTestSuite/pr25196.hex.expected new file mode 100644 index 0000000..afb77e0 --- /dev/null +++ b/tests/GCCTestSuite/pr25196.hex.expected @@ -0,0 +1,259 @@ +:1000000075812F7506FF7507FF120A7402000C0038 +:1000100000E506758220C39582F506E50775830025 +:100020009583F507D0E0F50ED0E0F50FE512F50B5E +:10003000E511F50CE510F50D900000E582F509904D +:100040000000E583F50A750100C3750000E501F5C0 +:10005000F0E50935F0F501E500F5F0E50A35F0F5D4 +:1000600000E51FF503E500F502E501F582E502F57F +:1000700083E503F0750101C3750000E501F5F0E5C6 +:100080000935F0F501E500F5F0E50A35F0F500E594 +:100090001EF503E500F502E501F582E502F583E5CD +:1000A00003F0750102C3750000E501F5F0E50935BF +:1000B000F0F501E500F5F0E50A35F0F500E51DF590 +:1000C00003E500F502E501F582E502F583E503F0BD +:1000D000750103C3750000E501F5F0E50935F0F59C +:1000E00001E500F5F0E50A35F0F500E51CF503E55E +:1000F00000F502E501F582E502F583E503F0750000 +:1001000000E500F502E500F503E500F504E500F57E +:1001100005E50BF512E50CF511E50DF510E50FC041 +:10012000E0E50EC0E075E0202506F50675E0003537 +:1001300007F507E502F582E503F583E504F500E53B +:1001400005F5012200E506758232C39582F506E5C4 +:10015000077583009583F507D0E0F50875E0152550 +:1001600006F58275E0003507F583E508F0D0E0F587 +:100170000875E0142506F58275E0003507F583E57E +:1001800008F075E01D2506F58275E0003507F5835A +:10019000E517F075E01C2506F58275E0003507F5DA +:1001A00083E516F075E01B2506F58275E00035073E +:1001B000F583E515F075E01A2506F58275E0003542 +:1001C00007F583E514F075E0192506F58275E00062 +:1001D0003507F583E513F075E0182506F58275E01F +:1001E000003507F583E512F075E0172506F58275F1 +:1001F000E0003507F583E511F075E0162506F58278 +:1002000075E0003507F583E510F0E51FF510E51EF4 +:10021000F511E51DF512E51CF513750932750001A0 +:10022000E500F5F0E50995F0F509E506F500E500CE +:10023000F5F0E50925F0F509750100E507F500E59C +:1002400000F5F0E50135F0F501E501F502E509F508 +:1002500082E502F583E0F516750932750002E500C6 +:10026000F5F0E50995F0F509E506F500E500F5F08E +:10027000E50925F0F509750100E507F500E500F54C +:10028000F0E50135F0F501E501F502E509F582E556 +:1002900002F583E0F517750932750003E500F5F006 +:1002A000E50995F0F509E506F500E500F5F0E50945 +:1002B00025F0F509750100E507F500E500F5F0E525 +:1002C0000135F0F501E501F502E509F582E502F5F4 +:1002D00083E0F50875E00D2506F58275E000350729 +:1002E000F583E508F0750932750004E500F5F0E5E1 +:1002F0000995F0F509E506F500E500F5F0E50925B5 +:10030000F0F509750100E507F500E500F5F0E501F8 +:1003100035F0F501E501F502E509F582E502F58321 +:10032000E0F50875E00C2506F58275E0003507F567 +:1003300083E508F0750932750005E500F5F0E5097B +:1003400095F0F509E506F500E500F5F0E50925F07D +:10035000F509750100E507F500E500F5F0E5013563 +:10036000F0F501E501F502E509F582E502F583E026 +:10037000F50875E0112506F58275E0003507F5836F +:10038000E508F0750932750006E500F5F0E5099518 +:10039000F0F509E506F500E500F5F0E50925F0F5CD +:1003A00009750100E507F500E500F5F0E50135F018 +:1003B000F501E501F502E509F582E502F583E0F5D1 +:1003C0000875E0102506F58275E0003507F583E530 +:1003D00008F0750932750007E500F5F0E50995F0BC +:1003E000F509E506F500E500F5F0E50925F0F50964 +:1003F000750100E507F500E500F5F0E50135F0F5DC +:1004000001E501F502E509F582E502F583E0F5086D +:1004100075E00F2506F58275E0003507F583E508E0 +:10042000F0750932750008E500F5F0E50995F0F57D +:1004300009E506F500E500F5F0E50925F0F5097593 +:100440000100E507F500E500F5F0E50135F0F501FF +:10045000E501F502E509F582E502F583E0F50875A9 +:10046000E00E2506F58275E0003507F583E508F016 +:10047000750932750009E500F5F0E50995F0F50913 +:10048000E506F500E500F5F0E50925F0F50975014B +:1004900000E507F500E500F5F0E50135F0F501E5CB +:1004A00001F502E509F582E502F583E0F50875E05E +:1004B000132506F58275E0003507F583E508F0752C +:1004C000093275000AE500F5F0E50995F0F509E552 +:1004D00006F500E500F5F0E50925F0F509750100E0 +:1004E000E507F500E500F5F0E50135F0F501E5017A +:1004F000F502E509F582E502F583E0F50875E012FD +:100500002506F58275E0003507F583E508F07509E5 +:100510003275000BE500F5F0E50995F0F509E50603 +:10052000F500E500F5F0E50925F0F509750100E5B0 +:1005300007F500E500F5F0E50135F0F501E501F519 +:1005400002E509F582E502F583E0F51475093275D7 +:10055000000CE500F5F0E50995F0F509E506F50074 +:10056000E500F5F0E50925F0F509750100E507F569 +:1005700000E500F5F0E50135F0F501E501F502E5EE +:1005800009F582E502F583E0F515750A1175091183 +:10059000750100750000C3E50AF5F0E51B55F0F59F +:1005A0000BE509F5F0E51A55F0F50CE501F5F0E578 +:1005B0001955F0F50DE500F5F0E51855F0F50E7557 +:1005C0000001750100750900750A00750F00C3E58B +:1005D00000F5F0E50B95F0F500E500F5F0E50F45C9 +:1005E000F0F50FC3E501F5F0E50C95F0F500E50039 +:1005F000F5F0E50F45F0F50FC3E509F5F0E50D95CC +:10060000F0F500E500F5F0E50F45F0F50FC3E50A5C +:10061000F5F0E50E95F0F500E500F5F0E50F45F095 +:10062000F50F750100750900750A00750000E50FEA +:10063000F5F0E50045F0F500E501F5F0E50045F0E1 +:10064000F500E509F5F0E50045F0F500E50AF5F0FF +:10065000E50045F0F500E5007002800302074D005B +:10066000750000750100750900750A00E500F502C6 +:10067000E501F503E509F504E50AF50575E01D2535 +:1006800006F58275E0003507F583E0F51775E01C87 +:100690002506F58275E0003507F583E0F51675E06F +:1006A0001B2506F58275E0003507F583E0F5157525 +:1006B000E01A2506F58275E0003507F583E0F514AC +:1006C00075E0192506F58275E0003507F583E0F53C +:1006D0001375E0182506F58275E0003507F583E00F +:1006E000F51275E0172506F58275E0003507F583EC +:1006F000E0F51175E0162506F58275E0003507F581 +:1007000083E0F51075E0142506F58275E0003507E5 +:10071000F583E0F508E508C0E075E0152506F582EB +:1007200075E0003507F583E0F508E508C0E075E001 +:10073000322506F50675E0003507F507E502F58276 +:10074000E503F583E504F500E505F5012200E51074 +:10075000F51FE511F51EE512F51DE513F51C7509EC +:1007600001E506F500C3E509F5F0E50095F0F509AA +:10077000E507F500750100E501F5F0E50095F0F5F8 +:1007800001E516F503E501F502E509F582E502F557 +:1007900083E503F0750902E506F500C3E509F5F008 +:1007A000E50095F0F509E507F500750100E501F5AF +:1007B000F0E50095F0F501E517F503E501F502E533 +:1007C00009F582E502F583E503F0750903E506F511 +:1007D00000C3E509F5F0E50095F0F509E507F5003A +:1007E000750100E501F5F0E50095F0F50175E00D06 +:1007F0002506F58275E0003507F583E0F508E50884 +:10080000F503E501F502E509F582E502F583E50367 +:10081000F0750904E506F500C3E509F5F0E5009576 +:10082000F0F509E507F500750100E501F5F0E500D3 +:1008300095F0F50175E00C2506F58275E0003507A9 +:10084000F583E0F508E508F503E501F502E509F5AE +:1008500082E502F583E503F0750905E506F500C3B9 +:10086000E509F5F0E50095F0F509E507F5007501F6 +:1008700000E501F5F0E50095F0F50175E0112506BC +:10088000F58275E0003507F583E0F508E508F50326 +:10089000E501F502E509F582E502F583E503F0756A +:1008A0000906E506F500C3E509F5F0E50095F0F564 +:1008B00009E507F500750100E501F5F0E50095F0A3 +:1008C000F50175E0102506F58275E0003507F58322 +:1008D000E0F508E508F503E501F502E509F582E52F +:1008E00002F583E503F0750907E506F500C3E509A0 +:1008F000F5F0E50095F0F509E507F500750100E56F +:1009000001F5F0E50095F0F50175E00F2506F5829B +:1009100075E0003507F583E0F508E508F503E50126 +:10092000F502E509F582E502F583E503F0750908AE +:10093000E506F500C3E509F5F0E50095F0F509E5F4 +:1009400007F500750100E501F5F0E50095F0F5010A +:1009500075E00E2506F58275E0003507F583E0F5B4 +:1009600008E508F503E501F502E509F582E502F57C +:1009700083E503F0750909E506F500C3E509F5F01F +:10098000E50095F0F509E507F500750100E501F5CD +:10099000F0E50095F0F50175E0132506F58275E0A8 +:1009A000003507F583E0F508E508F503E501F502F4 +:1009B000E509F582E502F583E503F075090AE50628 +:1009C000F500C3E509F5F0E50095F0F509E507F553 +:1009D00000750100E501F5F0E50095F0F50175E021 +:1009E000122506F58275E0003507F583E0F508E588 +:1009F00008F503E501F502E509F582E502F583E571 +:100A000003F075090BE506F500C3E509F5F0E5000F +:100A100095F0F509E507F500750100E501F5F0E54C +:100A20000095F0F501E514F503E501F502E509F59A +:100A300082E502F583E503F075090CE506F500C3D0 +:100A4000E509F5F0E50095F0F509E507F500750114 +:100A500000E501F5F0E50095F0F501E515F503E594 +:100A600001F502E509F582E502F583E503F01200E0 +:100A70001002066000E506758208C39582F506E55A +:100A8000077583009583F507D0E0F50875E001252B +:100A900006F58275E0003507F583E508F0D0E0F54E +:100AA0000875E0002506F58275E0003507F583E559 +:100AB00008F075E0072506F58275E0003507F58337 +:100AC000E515F075E0062506F58275E0003507F5B9 +:100AD00083E514F075E0052506F58275E00035071D +:100AE000F583E513F075E0042506F58275E0003521 +:100AF00007F583E512F075E0032506F58275E00041 +:100B00003507F583E511F075E0022506F58275E0FD +:100B1000003507F583E510F0751F7B751E00751D08 +:100B200000751C00751B00751A00751900751800FA +:100B3000750C00750D00750E00750F0075100075B1 +:100B40001100751200751300750A00750B007514FD +:100B500000751500750901E506F500C3E509F5F016 +:100B6000E50095F0F509E507F500750100E501F5EB +:100B7000F0E50095F0F501E50CF503E501F502E57A +:100B800009F582E502F583E503F0750902E506F54E +:100B900000C3E509F5F0E50095F0F509E507F50076 +:100BA000750100E501F5F0E50095F0F501E50DF5BD +:100BB00003E501F502E509F582E502F583E503F0B9 +:100BC000750903E506F500C3E509F5F0E50095F0C4 +:100BD000F509E507F500750100E501F5F0E500957B +:100BE000F0F501E50EF503E501F502E509F582E50D +:100BF00002F583E503F0750904E506F500C3E50990 +:100C0000F5F0E50095F0F509E507F500750100E55B +:100C100001F5F0E50095F0F501E50FF503E501F5C7 +:100C200002E509F582E502F583E503F0750905E5BE +:100C300006F500C3E509F5F0E50095F0F509E507CF +:100C4000F500750100E501F5F0E50095F0F501E529 +:100C500010F503E501F502E509F582E502F583E506 +:100C600003F0750906E506F500C3E509F5F0E500B2 +:100C700095F0F509E507F500750100E501F5F0E5EA +:100C80000095F0F501E511F503E501F502E509F53B +:100C900082E502F583E503F0750907E506F500C373 +:100CA000E509F5F0E50095F0F509E507F5007501B2 +:100CB00000E501F5F0E50095F0F501E512F503E535 +:100CC00001F502E509F582E502F583E503F0750912 +:100CD00008E506F500C3E509F5F0E50095F0F5092E +:100CE000E507F500750100E501F5F0E50095F0F583 +:100CF00001E513F503E501F502E509F582E502F5E5 +:100D000083E503F0750909E506F500C3E509F5F08B +:100D1000E50095F0F509E507F500750100E501F539 +:100D2000F0E50095F0F501E50AF503E501F502E5CA +:100D300009F582E502F583E503F075090AE506F594 +:100D400000C3E509F5F0E50095F0F509E507F500C4 +:100D5000750100E501F5F0E50095F0F501E50BF50D +:100D600003E501F502E509F582E502F583E503F007 +:100D700075090BE506F500C3E509F5F0E50095F00A +:100D8000F509E507F500750100E501F5F0E50095C9 +:100D9000F0F501E514F503E501F502E509F582E555 +:100DA00002F583E503F075090CE506F500C3E509D6 +:100DB000F5F0E50095F0F509E507F500750100E5AA +:100DC00001F5F0E50095F0F501E515F503E501F510 +:100DD00002E509F582E502F583E503F0120144908E +:100DE0000000E582F509900000E583F50A75010031 +:100DF000C3750000E501F5F0E50935F0F501E50002 +:100E0000F5F0E50A35F0F500E500F502E501F582BB +:100E1000E502F583E0F50B750101C3750000E501FE +:100E2000F5F0E50935F0F501E500F5F0E50A35F0F6 +:100E3000F500E500F502E501F582E502F583E0F550 +:100E40000C750102C3750000E501F5F0E50935F008 +:100E5000F501E500F5F0E50A35F0F500E500F502ED +:100E6000E501F582E502F583E0F50D750103C37533 +:100E70000000E501F5F0E50935F0F501E500F5F0D4 +:100E8000E50A35F0F500E500F502E501F582E50239 +:100E9000F583E0F50E75007B750100750900750A94 +:100EA00000750F00C3E500F5F0E50B95F0F500E5E2 +:100EB00000F5F0E50F45F0F50FC3E501F5F0E50CA1 +:100EC00095F0F500E500F5F0E50F45F0F50FC3E509 +:100ED00009F5F0E50D95F0F500E500F5F0E50F45B5 +:100EE000F0F50FC3E50AF5F0E50E95F0F500E50025 +:100EF000F5F0E50F45F0F50F750100750900750A6D +:100F000000750000E50FF5F0E50045F0F500E5019E +:100F1000F5F0E50045F0F500E509F5F0E50045F0F0 +:100F2000F500E50AF5F0E50045F0F500E500700292 +:100F3000800302100100750000750100750900753D +:100F40000A00E500F502E501F503E509F504E50A07 +:100F5000F50575E0072506F58275E0003507F58390 +:100F6000E0F51575E0062506F58275E0003507F514 +:100F700083E0F51475E0052506F58275E000350778 +:100F8000F583E0F51375E0042506F58275E000357C +:100F900007F583E0F51275E0032506F58275E0009C +:100FA0003507F583E0F51175E0022506F58275E059 +:100FB000003507F583E0F51075E0002506F582752C +:100FC000E0003507F583E0F508E508C0E075E001CD +:100FD0002506F58275E0003507F583E0F508E5089C +:100FE000C0E075E0082506F50675E0003507F50751 +:100FF000E502F582E503F583E504F500E505F50175 +:101000002200751F01751E00751D00751C00020F62 +:10101000360000000000000000000000000000009A +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr25196.s.expected b/tests/GCCTestSuite/pr25196.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr25196.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr25559.c b/tests/GCCTestSuite/pr25559.c new file mode 100644 index 0000000..7879a15 --- /dev/null +++ b/tests/GCCTestSuite/pr25559.c @@ -0,0 +1,10 @@ +/* PR c/25559 */ +/* { dg-do compile } */ + +#define vs(n) __attribute__((vector_size (n))) +int vs (-1) a; /* { dg-warning "attribute ignored" } */ +int vs (0) b; /* { dg-error "zero vector size" } */ +int vs (1) c; /* { dg-error "multiple of component size" } */ +int vs (sizeof (int) / 2) d; /* { dg-error "multiple of component size" } */ +int vs (sizeof (int)) e; +int vs (sizeof (int) * 2) f; diff --git a/tests/GCCTestSuite/pr25559.c.expected b/tests/GCCTestSuite/pr25559.c.expected new file mode 100644 index 0000000..7879a15 --- /dev/null +++ b/tests/GCCTestSuite/pr25559.c.expected @@ -0,0 +1,10 @@ +/* PR c/25559 */ +/* { dg-do compile } */ + +#define vs(n) __attribute__((vector_size (n))) +int vs (-1) a; /* { dg-warning "attribute ignored" } */ +int vs (0) b; /* { dg-error "zero vector size" } */ +int vs (1) c; /* { dg-error "multiple of component size" } */ +int vs (sizeof (int) / 2) d; /* { dg-error "multiple of component size" } */ +int vs (sizeof (int)) e; +int vs (sizeof (int) * 2) f; diff --git a/tests/GCCTestSuite/pr25559.hex.expected b/tests/GCCTestSuite/pr25559.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/pr25559.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr25559.s.expected b/tests/GCCTestSuite/pr25559.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr25559.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr25795-1.c b/tests/GCCTestSuite/pr25795-1.c new file mode 100644 index 0000000..e568b25 --- /dev/null +++ b/tests/GCCTestSuite/pr25795-1.c @@ -0,0 +1,10 @@ +/* { dg-do compile } */ +/* { dg-options "-O3 -fwhole-program" } */ +/* { dg-final { scan-assembler-not "mystr" } } */ + + +extern const char *mystr; /* normally in a header */ +const char *mystr; +main() +{ +} diff --git a/tests/GCCTestSuite/pr25795-1.c.expected b/tests/GCCTestSuite/pr25795-1.c.expected new file mode 100644 index 0000000..e568b25 --- /dev/null +++ b/tests/GCCTestSuite/pr25795-1.c.expected @@ -0,0 +1,10 @@ +/* { dg-do compile } */ +/* { dg-options "-O3 -fwhole-program" } */ +/* { dg-final { scan-assembler-not "mystr" } } */ + + +extern const char *mystr; /* normally in a header */ +const char *mystr; +main() +{ +} diff --git a/tests/GCCTestSuite/pr25795-1.hex.expected b/tests/GCCTestSuite/pr25795-1.hex.expected new file mode 100644 index 0000000..923c6d3 --- /dev/null +++ b/tests/GCCTestSuite/pr25795-1.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501E509F502E509F503CA +:10002000E509F504E509F505E501C0E0E500C0E0F6 +:10003000E502F582E503F583E504F500E505F50144 +:10004000220000000000000000000000000000008E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr25795-1.s.expected b/tests/GCCTestSuite/pr25795-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr25795-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr25795.c b/tests/GCCTestSuite/pr25795.c new file mode 100644 index 0000000..decbe54 --- /dev/null +++ b/tests/GCCTestSuite/pr25795.c @@ -0,0 +1,10 @@ +/* { dg-do compile } */ +/* { dg-options "-O3 -fwhole-program" } */ +/* { dg-final { scan-assembler "mystr" } } */ + + +extern const char *mystr; /* normally in a header */ +const char *mystr __attribute__ ((externally_visible)); +main() +{ +} diff --git a/tests/GCCTestSuite/pr25795.c.expected b/tests/GCCTestSuite/pr25795.c.expected new file mode 100644 index 0000000..decbe54 --- /dev/null +++ b/tests/GCCTestSuite/pr25795.c.expected @@ -0,0 +1,10 @@ +/* { dg-do compile } */ +/* { dg-options "-O3 -fwhole-program" } */ +/* { dg-final { scan-assembler "mystr" } } */ + + +extern const char *mystr; /* normally in a header */ +const char *mystr __attribute__ ((externally_visible)); +main() +{ +} diff --git a/tests/GCCTestSuite/pr25795.hex.expected b/tests/GCCTestSuite/pr25795.hex.expected new file mode 100644 index 0000000..923c6d3 --- /dev/null +++ b/tests/GCCTestSuite/pr25795.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501E509F502E509F503CA +:10002000E509F504E509F505E501C0E0E500C0E0F6 +:10003000E502F582E503F583E504F500E505F50144 +:10004000220000000000000000000000000000008E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr25795.s.expected b/tests/GCCTestSuite/pr25795.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr25795.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr25993.c b/tests/GCCTestSuite/pr25993.c new file mode 100644 index 0000000..c771966 --- /dev/null +++ b/tests/GCCTestSuite/pr25993.c @@ -0,0 +1,14 @@ +/* { dg-do assemble { target i?86-*-* x86_64-*-* } } */ +/* { dg-skip-if "" { "*-*-darwin*" } { "*" } { "" } } */ +/* { dg-options "-std=c99 -x assembler-with-cpp" } */ + +#ifndef __ASSEMBLER__ +extern int func(void); +#else +.global func +.type func,%function +.align 4 +func: + ret +.size func,.-func +#endif diff --git a/tests/GCCTestSuite/pr25993.c.expected b/tests/GCCTestSuite/pr25993.c.expected new file mode 100644 index 0000000..c771966 --- /dev/null +++ b/tests/GCCTestSuite/pr25993.c.expected @@ -0,0 +1,14 @@ +/* { dg-do assemble { target i?86-*-* x86_64-*-* } } */ +/* { dg-skip-if "" { "*-*-darwin*" } { "*" } { "" } } */ +/* { dg-options "-std=c99 -x assembler-with-cpp" } */ + +#ifndef __ASSEMBLER__ +extern int func(void); +#else +.global func +.type func,%function +.align 4 +func: + ret +.size func,.-func +#endif diff --git a/tests/GCCTestSuite/pr25993.hex.expected b/tests/GCCTestSuite/pr25993.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/pr25993.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr25993.s.expected b/tests/GCCTestSuite/pr25993.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr25993.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr26004.c b/tests/GCCTestSuite/pr26004.c new file mode 100644 index 0000000..35e6a2f --- /dev/null +++ b/tests/GCCTestSuite/pr26004.c @@ -0,0 +1,11 @@ +/* PR c/26004 */ +/* Bug: the return slot optimization was taking the address of s_3, + causing an error. */ + +struct s_3 { short s[3]; } z_3, s_3; +struct s_3 add_struct_3 (struct s_3 s){} +wack_struct_3 (void) +{ + int i; register struct s_3 u = z_3; + u = add_struct_3 (u); +} diff --git a/tests/GCCTestSuite/pr26004.c.expected b/tests/GCCTestSuite/pr26004.c.expected new file mode 100644 index 0000000..35e6a2f --- /dev/null +++ b/tests/GCCTestSuite/pr26004.c.expected @@ -0,0 +1,11 @@ +/* PR c/26004 */ +/* Bug: the return slot optimization was taking the address of s_3, + causing an error. */ + +struct s_3 { short s[3]; } z_3, s_3; +struct s_3 add_struct_3 (struct s_3 s){} +wack_struct_3 (void) +{ + int i; register struct s_3 u = z_3; + u = add_struct_3 (u); +} diff --git a/tests/GCCTestSuite/pr26004.hex.expected b/tests/GCCTestSuite/pr26004.hex.expected new file mode 100644 index 0000000..782e4b4 --- /dev/null +++ b/tests/GCCTestSuite/pr26004.hex.expected @@ -0,0 +1,400 @@ +:1000000000E50675820AC39582F506E5077583004B +:100010009583F507D0E0F51ED0E0F51FE513F51840 +:10002000E512F519E511F51AE510F51BE506F509D8 +:10003000E507F50A750100C3750000E501F5F0E577 +:100040000935F0F501E500F5F0E50A35F0F50A753A +:100050000900C3750000E509F5F0E50135F0F5018B +:10006000E500F5F0E50A35F0F500E501F509E500F4 +:10007000F50A750100C3750000E501F5F0E50935E5 +:10008000F0F501E500F5F0E50A35F0F500E500F5DD +:1000900002E501F582E502F583E0F511750101C382 +:1000A000750000E501F5F0E50935F0F501E500F52D +:1000B000F0E50A35F0F500E500F502E501F582E529 +:1000C00002F583E0F501750900750A00750E0275E9 +:1000D0000F00751000750000C3750B00E509F5F001 +:1000E000E50EA4F50DE509F5F0E50EA4E5F0F50C37 +:1000F000E50DF5F0E50B35F0F50BE50AF5F0E50E4D +:10010000A4F50DE50AF5F0E50EA4E5F0F50AE50D18 +:10011000F5F0E50C35F0F50CC3C3750A00E50BF5F9 +:10012000F0E51035F0F510E50CF5F0E50035F0F5EB +:1001300000C3750C00E509F5F0E50FA4F50DE50920 +:10014000F5F0E50FA4E5F0F50AE50DF5F0E50C3561 +:10015000F0F50C750B00C3C3750900E50BF5F0E570 +:100160001035F0F510E50CF5F0E50035F0F500C3BD +:10017000750B00750C00C3C3750900E50BF5F0E5C0 +:100180001035F0F510E50CF5F0E50035F0F500C39D +:10019000750B00750C00C3C3750900E50BF5F0E5A0 +:1001A0001035F0F510E50CF5F0E50035F0F500C37D +:1001B000750900E510F5F0E51135F0F510E500F5ED +:1001C000F0E50135F0F511750100C3750000E5019A +:1001D000F5F0E51D35F0F509E500F5F0E51C35F025 +:1001E000F50A750100C3750000E501F5F0E5093574 +:1001F000F0F501E500F5F0E50A35F0F500E500F56C +:1002000002E501F582E502F583E0F512750101C30F +:10021000750000E501F5F0E50935F0F501E500F5BB +:10022000F0E50A35F0F500E500F502E501F582E5B7 +:1002300002F583E0F513750000750100750C027579 +:100240000D00750E00750F00C3750900E500F5F08F +:10025000E50CA4F50BE500F5F0E50CA4E5F0F50AD6 +:10026000E50BF5F0E50935F0F509E501F5F0E50CEC +:10027000A4F50BE501F5F0E50CA4E5F0F501E50BBF +:10028000F5F0E50A35F0F50AC3C3750100E509F597 +:10029000F0E50E35F0F50EE50AF5F0E50F35F0F571 +:1002A0000FC3750A00E500F5F0E50DA4F50BE500B8 +:1002B000F5F0E50DA4E5F0F501E50BF5F0E50A35FF +:1002C000F0F50A750900C3C3750000E509F5F0E50E +:1002D0000E35F0F50EE50AF5F0E50F35F0F50FC334 +:1002E000750900750A00C3C3750000E509F5F0E55E +:1002F0000E35F0F50EE50AF5F0E50F35F0F50FC314 +:10030000750900750A00C3C3750000E509F5F0E53D +:100310000E35F0F50EE50AF5F0E50F35F0F50FC3F3 +:10032000750000E50EF5F0E51235F0F500E50FF586 +:10033000F0E51335F0F501E500F509E501F50A757D +:100340000100C3750000E501F5F0E50935F0F501A0 +:10035000E500F5F0E50A35F0F500E500F502E50108 +:10036000F582E502F583E0F50B750101C375000028 +:10037000E501F5F0E50935F0F501E500F5F0E50AF0 +:1003800035F0F500E500F502E501F582E502F583BB +:10039000E0F509750100C3750000E501F5F0E51011 +:1003A00035F0F501E500F5F0E51135F0F500E50B68 +:1003B000F503E500F502E501F582E502F583E503C5 +:1003C000F0750101C3750000E501F5F0E51035F0A9 +:1003D000F501E500F5F0E51135F0F500E509F50367 +:1003E000E500F502E501F582E502F583E503F0E5B8 +:1003F00006F509E507F50A750100C3750000E5017A +:10040000F5F0E50935F0F501E500F5F0E50A35F020 +:10041000F50A750900C3750000E509F5F0E5013539 +:10042000F0F501E500F5F0E50A35F0F500E501F538 +:1004300009E500F50A750100C3750000E501F5F056 +:10044000E50935F0F501E500F5F0E50A35F0F500D0 +:10045000E500F502E501F582E502F583E0F51175A9 +:100460000101C3750000E501F5F0E50935F0F5017E +:10047000E500F5F0E50A35F0F500E500F502E501E7 +:10048000F582E502F583E0F501750901750A00754D +:100490000E02750F00751000750000C3750B00E5A6 +:1004A00009F5F0E50EA4F50DE509F5F0E50EA4E576 +:1004B000F0F50CE50DF5F0E50B35F0F50BE50AF57B +:1004C000F0E50EA4F50DE50AF5F0E50EA4E5F0F56E +:1004D0000AE50DF5F0E50C35F0F50CC3C3750A001F +:1004E000E50BF5F0E51035F0F510E50CF5F0E5005D +:1004F00035F0F500C3750C00E509F5F0E50FA4F53E +:100500000DE509F5F0E50FA4E5F0F50AE50DF5F0C8 +:10051000E50C35F0F50C750B00C3C3750900E50B50 +:10052000F5F0E51035F0F510E50CF5F0E50035F0E7 +:10053000F500C3750B00750C00C3C3750900E50B0E +:10054000F5F0E51035F0F510E50CF5F0E50035F0C7 +:10055000F500C3750B00750C00C3C3750900E50BEE +:10056000F5F0E51035F0F510E50CF5F0E50035F0A7 +:10057000F500C3750900E510F5F0E51135F0F5104B +:10058000E500F5F0E50135F0F511750100C37500E2 +:1005900000E501F5F0E51D35F0F509E500F5F0E5BC +:1005A0001C35F0F50A750100C3750000E501F5F092 +:1005B000E50935F0F501E500F5F0E50A35F0F5005F +:1005C000E500F502E501F582E502F583E0F5127537 +:1005D0000101C3750000E501F5F0E50935F0F5010D +:1005E000E500F5F0E50A35F0F500E500F502E50176 +:1005F000F582E502F583E0F51375000175010075DC +:100600000C02750D00750E00750F00C3750900E52D +:1006100000F5F0E50CA4F50BE500F5F0E50CA4E51C +:10062000F0F50AE50BF5F0E50935F0F509E501F51A +:10063000F0E50CA4F50BE501F5F0E50CA4E5F0F50B +:1006400001E50BF5F0E50A35F0F50AC3C3750100C5 +:10065000E509F5F0E50E35F0F50EE50AF5F0E50FE4 +:1006600035F0F50FC3750A00E500F5F0E50DA4F5CA +:100670000BE500F5F0E50DA4E5F0F501E50BF5F06F +:10068000E50A35F0F50A750900C3C3750000E509F0 +:10069000F5F0E50E35F0F50EE50AF5F0E50F35F06D +:1006A000F50FC3750900750A00C3C3750000E5099D +:1006B000F5F0E50E35F0F50EE50AF5F0E50F35F04D +:1006C000F50FC3750900750A00C3C3750000E5097D +:1006D000F5F0E50E35F0F50EE50AF5F0E50F35F02D +:1006E000F50FC3750000E50EF5F0E51235F0F500E5 +:1006F000E50FF5F0E51335F0F501E500F509E50145 +:10070000F50A750100C3750000E501F5F0E509354E +:10071000F0F501E500F5F0E50A35F0F500E500F546 +:1007200002E501F582E502F583E0F50B750101C3F1 +:10073000750000E501F5F0E50935F0F501E500F596 +:10074000F0E50A35F0F500E500F502E501F582E592 +:1007500002F583E0F509750100C3750000E501F5B8 +:10076000F0E51035F0F501E500F5F0E51135F0F5AF +:1007700000E50BF503E500F502E501F582E502F57C +:1007800083E503F0750101C3750000E501F5F0E5AF +:100790001035F0F501E500F5F0E51135F0F500E56F +:1007A00009F503E500F502E501F582E502F583E5CB +:1007B00003F0E506F509E507F50A750100C37500C4 +:1007C00000E501F5F0E50935F0F501E500F5F0E5A6 +:1007D0000A35F0F50A750900C3750000E509F5F062 +:1007E000E50135F0F501E500F5F0E50A35F0F50035 +:1007F000E501F509E500F50A750100C3750000E59E +:1008000001F5F0E50935F0F501E500F5F0E50A350B +:10081000F0F500E500F502E501F582E502F583E07B +:10082000F510750101C3750000E501F5F0E5093526 +:10083000F0F501E500F5F0E50A35F0F500E500F525 +:1008400002E501F582E502F583E0F5117500027518 +:100850000100750C02750D00750E00750F00C37553 +:100860000900E500F5F0E50CA4F50BE500F5F0E571 +:100870000CA4E5F0F50AE50BF5F0E50935F0F5090E +:10088000E501F5F0E50CA4F50BE501F5F0E50CA4A8 +:10089000E5F0F501E50BF5F0E50A35F0F50AC3C31F +:1008A000750100E509F5F0E50E35F0F50EE50AF500 +:1008B000F0E50F35F0F50FC3750A00E500F5F0E53A +:1008C0000DA4F50BE500F5F0E50DA4E5F0F501E567 +:1008D0000BF5F0E50A35F0F50A750900C3C375009C +:1008E00000E509F5F0E50E35F0F50EE50AF5F0E561 +:1008F0000F35F0F50FC3750900750A00C3C3750005 +:1009000000E509F5F0E50E35F0F50EE50AF5F0E540 +:100910000F35F0F50FC3750900750A00C3C37500E4 +:1009200000E509F5F0E50E35F0F50EE50AF5F0E520 +:100930000F35F0F50FC3750000E50EF5F0E5103545 +:10094000F0F500E50FF5F0E51135F0F501750A0059 +:10095000C3750900E50AF5F0E51D35F0F50AE5096E +:10096000F5F0E51C35F0F509E50AF50BE509F50CA0 +:10097000750A00C3750900E50AF5F0E50B35F0F5D9 +:100980000AE509F5F0E50C35F0F509E509F502E5AC +:100990000AF582E502F583E0F512750A01C37509CF +:1009A00000E50AF5F0E50B35F0F50AE509F5F0E5A7 +:1009B0000C35F0F509E509F502E50AF582E502F5E1 +:1009C00083E0F513750902750A00750E02750F00B4 +:1009D000751000751100C3750B00E509F5F0E50E03 +:1009E000A4F50DE509F5F0E50EA4E5F0F50CE50D2F +:1009F000F5F0E50B35F0F50BE50AF5F0E50EA4F59D +:100A00000DE50AF5F0E50EA4E5F0F50AE50DF5F0C3 +:100A1000E50C35F0F50CC3C3750A00E50BF5F0E500 +:100A20001035F0F510E50CF5F0E51135F0F511C3D2 +:100A3000750C00E509F5F0E50FA4F50DE509F5F0F5 +:100A4000E50FA4E5F0F50AE50DF5F0E50C35F0F558 +:100A50000C750B00C3C3750900E50BF5F0E5103507 +:100A6000F0F510E50CF5F0E51135F0F511C3750B57 +:100A700000750C00C3C3750900E50BF5F0E51035F2 +:100A8000F0F510E50CF5F0E51135F0F511C3750B37 +:100A900000750C00C3C3750900E50BF5F0E51035D2 +:100AA000F0F510E50CF5F0E51135F0F511C3750919 +:100AB00000E510F5F0E51235F0F509E511F5F0E582 +:100AC0001335F0F50AE509F50BE50AF50C750A0092 +:100AD000C3750900E50AF5F0E50B35F0F50AE509FF +:100AE000F5F0E50C35F0F509E509F502E50AF582C2 +:100AF000E502F583E0F50D750A01C3750900E50A05 +:100B0000F5F0E50B35F0F50AE509F5F0E50C35F003 +:100B1000F509E509F502E50AF582E502F583E0F558 +:100B20000B750A00C3750900E50AF5F0E50035F01C +:100B3000F50AE509F5F0E50135F0F509E50DF503F0 +:100B4000E509F502E50AF582E502F583E503F075AE +:100B50000A01C3750900E50AF5F0E50035F0F50A6C +:100B6000E509F5F0E50135F0F509E50BF503E509D3 +:100B7000F502E50AF582E502F583E503F07500006C +:100B8000E500F502E500F503E500F504E500F505EF +:100B9000E518F513E519F512E51AF511E51BF51041 +:100BA000E51FC0E0E51EC0E075E00A2506F5067504 +:100BB000E0003507F507E502F582E503F583E50476 +:100BC000F500E505F5012200E50675820DC3958265 +:100BD000F506E5077583009583F507D0E0F5087500 +:100BE000E0082506F58275E0003507F583E508F095 +:100BF000D0E0F50875E0072506F58275E0003507B9 +:100C0000F583E508F075E00C2506F58275E0003502 +:100C100007F583E513F075E00B2506F58275E00016 +:100C20003507F583E512F075E00A2506F58275E0D3 +:100C3000003507F583E511F075E0092506F58275A5 +:100C4000E0003507F583E510F0E506F509E507F561 +:100C50000A750100C3750000E501F5F0E50935F0FE +:100C6000F501E500F5F0E50A35F0F50A750900C370 +:100C7000750000E509F5F0E50135F0F501E500F551 +:100C8000F0E50A35F0F500E501F509E500F50A752E +:100C90000100C3750000E501F5F0E50935F0F50147 +:100CA000E500F5F0E50A35F0F500E500F502E501AF +:100CB000F582E502F583E0F511750101C3750000C9 +:100CC000E501F5F0E50935F0F501E500F5F0E50A97 +:100CD00035F0F500E500F502E501F582E502F58362 +:100CE000E0F501750900750A00750E02750F0075B3 +:100CF0001000750000C3750B00E509F5F0E50EA4C2 +:100D0000F50DE509F5F0E50EA4E5F0F50CE50DF5BA +:100D1000F0E50B35F0F50BE50AF5F0E50EA4F50D61 +:100D2000E50AF5F0E50EA4E5F0F50AE50DF5F0E5C8 +:100D30000C35F0F50CC3C3750A00E50BF5F0E510B2 +:100D400035F0F510E50CF5F0E50035F0F500C3756C +:100D50000C00E509F5F0E50FA4F50DE509F5F0E562 +:100D60000FA4E5F0F50AE50DF5F0E50C35F0F50C0E +:100D7000750B00C3C3750900E50BF5F0E51035F000 +:100D8000F510E50CF5F0E50035F0F500C3750B0046 +:100D9000750C00C3C3750900E50BF5F0E51035F0DF +:100DA000F510E50CF5F0E50035F0F500C3750B0026 +:100DB000750C00C3C3750900E50BF5F0E51035F0BF +:100DC000F510E50CF5F0E50035F0F500C375090008 +:100DD000E510F5F0E51135F0F512E500F5F0E50167 +:100DE00035F0F513900000E582F509900000E583E9 +:100DF000F50A750100C3750000E501F5F0E5093558 +:100E0000F0F501E500F5F0E50A35F0F500E501F54E +:100E100009E500F50A750100C3750000E501F5F06C +:100E2000E50935F0F501E500F5F0E50A35F0F500E6 +:100E3000E500F502E501F582E502F583E0F51075C0 +:100E40000101C3750000E501F5F0E50935F0F50194 +:100E5000E500F5F0E50A35F0F500E500F502E501FD +:100E6000F582E502F583E0F5117500007501007566 +:100E70000C02750D00750E00750F00C3750900E5B5 +:100E800000F5F0E50CA4F50BE500F5F0E50CA4E5A4 +:100E9000F0F50AE50BF5F0E50935F0F509E501F5A2 +:100EA000F0E50CA4F50BE501F5F0E50CA4E5F0F593 +:100EB00001E50BF5F0E50A35F0F50AC3C37501004D +:100EC000E509F5F0E50E35F0F50EE50AF5F0E50F6C +:100ED00035F0F50FC3750A00E500F5F0E50DA4F552 +:100EE0000BE500F5F0E50DA4E5F0F501E50BF5F0F7 +:100EF000E50A35F0F50A750900C3C3750000E50978 +:100F0000F5F0E50E35F0F50EE50AF5F0E50F35F0F4 +:100F1000F50FC3750900750A00C3C3750000E50924 +:100F2000F5F0E50E35F0F50EE50AF5F0E50F35F0D4 +:100F3000F50FC3750900750A00C3C3750000E50904 +:100F4000F5F0E50E35F0F50EE50AF5F0E50F35F0B4 +:100F5000F50FC3750000E50EF5F0E51035F0F5006E +:100F6000E50FF5F0E51135F0F501E500F509E501CE +:100F7000F50A750100C3750000E501F5F0E50935D6 +:100F8000F0F501E500F5F0E50A35F0F500E500F5CE +:100F900002E501F582E502F583E0F50B750101C379 +:100FA000750000E501F5F0E50935F0F501E500F51E +:100FB000F0E50A35F0F500E500F502E501F582E51A +:100FC00002F583E0F509750100C3750000E501F540 +:100FD000F0E51235F0F501E500F5F0E51335F0F533 +:100FE00000E50BF503E500F502E501F582E502F504 +:100FF00083E503F0750101C3750000E501F5F0E537 +:101000001235F0F501E500F5F0E51335F0F500E5F2 +:1010100009F503E500F502E501F582E502F583E552 +:1010200003F0E506F509E507F50A750100C375004B +:1010300000E501F5F0E50935F0F501E500F5F0E52D +:101040000A35F0F50A750900C3750000E509F5F0E9 +:10105000E50135F0F501E500F5F0E50A35F0F500BC +:10106000E501F509E500F50A750100C3750000E525 +:1010700001F5F0E50935F0F501E500F5F0E50A3593 +:10108000F0F500E500F502E501F582E502F583E003 +:10109000F511750101C3750000E501F5F0E50935AD +:1010A000F0F501E500F5F0E50A35F0F500E500F5AD +:1010B00002E501F582E502F583E0F50175090175A8 +:1010C0000A00750E02750F00751000750000C375DB +:1010D0000B00E509F5F0E50EA4F50DE509F5F0E5E1 +:1010E0000EA4E5F0F50CE50DF5F0E50B35F0F50B8C +:1010F000E50AF5F0E50EA4F50DE50AF5F0E50EA418 +:10110000E5F0F50AE50DF5F0E50C35F0F50CC3C397 +:10111000750A00E50BF5F0E51035F0F510E50CF576 +:10112000F0E50035F0F500C3750C00E509F5F0E5D4 +:101130000FA4F50DE509F5F0E50FA4E5F0F50AE5D6 +:101140000DF5F0E50C35F0F50C750B00C3C3750912 +:1011500000E50BF5F0E51035F0F510E50CF5F0E5E0 +:101160000035F0F500C3750B00750C00C3C375099D +:1011700000E50BF5F0E51035F0F510E50CF5F0E5C0 +:101180000035F0F500C3750B00750C00C3C375097D +:1011900000E50BF5F0E51035F0F510E50CF5F0E5A0 +:1011A0000035F0F500C3750900E510F5F0E51135DF +:1011B000F0F512E500F5F0E50135F0F513900000CB +:1011C000E582F509900000E583F50A750100C37515 +:1011D0000000E501F5F0E50935F0F501E500F5F071 +:1011E000E50A35F0F500E501F509E500F50A7501B8 +:1011F00000C3750000E501F5F0E50935F0F501E5FE +:1012000000F5F0E50A35F0F500E500F502E501F539 +:1012100082E502F583E0F510750101C3750000E574 +:1012200001F5F0E50935F0F501E500F5F0E50A35E1 +:10123000F0F500E500F502E501F582E502F583E051 +:10124000F511750001750100750C02750D00750E24 +:1012500000750F00C3750900E500F5F0E50CA4F575 +:101260000BE500F5F0E50CA4E5F0F50AE50BF5F06B +:10127000E50935F0F509E501F5F0E50CA4F50BE518 +:1012800001F5F0E50CA4E5F0F501E50BF5F0E50A54 +:1012900035F0F50AC3C3750100E509F5F0E50E3533 +:1012A000F0F50EE50AF5F0E50F35F0F50FC3750A18 +:1012B00000E500F5F0E50DA4F50BE500F5F0E50D12 +:1012C000A4E5F0F501E50BF5F0E50A35F0F50A7552 +:1012D0000900C3C3750000E509F5F0E50E35F0F52A +:1012E0000EE50AF5F0E50F35F0F50FC37509007549 +:1012F0000A00C3C3750000E509F5F0E50E35F0F509 +:101300000EE50AF5F0E50F35F0F50FC37509007528 +:101310000A00C3C3750000E509F5F0E50E35F0F5E8 +:101320000EE50AF5F0E50F35F0F50FC3750000E5A1 +:101330000EF5F0E51035F0F500E50FF5F0E51135A7 +:10134000F0F501E500F509E501F50A750100C37541 +:101350000000E501F5F0E50935F0F501E500F5F0EF +:10136000E50A35F0F500E500F502E501F582E50254 +:10137000F583E0F50B750101C3750000E501F5F09B +:10138000E50935F0F501E500F5F0E50A35F0F50081 +:10139000E500F502E501F582E502F583E0F5097562 +:1013A0000100C3750000E501F5F0E51235F0F50127 +:1013B000E500F5F0E51335F0F500E50BF503E50084 +:1013C000F502E501F582E502F583E503F07501011B +:1013D000C3750000E501F5F0E51235F0F501E50013 +:1013E000F5F0E51335F0F500E509F503E500F50244 +:1013F000E501F582E502F583E503F0E506F509E58B +:1014000007F50A750100C3750000E501F5F0E5096F +:1014100035F0F501E500F5F0E50A35F0F50A750956 +:1014200000C3750000E509F5F0E50135F0F501E5CB +:1014300000F5F0E50A35F0F500E501F509E500F500 +:101440000A750100C3750000E501F5F0E50935F006 +:10145000F501E500F5F0E50A35F0F500E500F502E7 +:10146000E501F582E502F583E0F511750101C3752B +:101470000000E501F5F0E50935F0F501E500F5F0CE +:10148000E50A35F0F500E500F502E501F582E50233 +:10149000F583E0F501750902750A00750E02750FF6 +:1014A00000751000750000C3750B00E509F5F0E547 +:1014B0000EA4F50DE509F5F0E50EA4E5F0F50CE553 +:1014C0000DF5F0E50B35F0F50BE50AF5F0E50EA4AA +:1014D000F50DE50AF5F0E50EA4E5F0F50AE50DF5E4 +:1014E000F0E50C35F0F50CC3C3750A00E50BF5F01B +:1014F000E51035F0F510E50CF5F0E50035F0F500F8 +:10150000C3750C00E509F5F0E50FA4F50DE509F547 +:10151000F0E50FA4E5F0F50AE50DF5F0E50C35F082 +:10152000F50C750B00C3C3750900E50BF5F0E5106C +:1015300035F0F510E50CF5F0E50035F0F500C37574 +:101540000B00750C00C3C3750900E50BF5F0E51041 +:1015500035F0F510E50CF5F0E50035F0F500C37554 +:101560000B00750C00C3C3750900E50BF5F0E51021 +:1015700035F0F510E50CF5F0E50035F0F500C37534 +:101580000900E510F5F0E51135F0F512E500F5F08C +:10159000E50135F0F513900000E582F509900000B3 +:1015A000E583F50A750100C3750000E501F5F0E576 +:1015B0000935F0F501E500F5F0E50A35F0F500E54F +:1015C00001F509E500F50A750100C3750000E501A4 +:1015D000F5F0E50935F0F501E500F5F0E50A35F03F +:1015E000F500E500F502E501F582E502F583E0F599 +:1015F00010750101C3750000E501F5F0E50935F04E +:10160000F501E500F5F0E50A35F0F500E500F50235 +:10161000E501F582E502F583E0F51175000275013B +:1016200000750C02750D00750E00750F00C375096D +:1016300000E500F5F0E50CA4F50BE500F5F0E50C90 +:10164000A4E5F0F50AE50BF5F0E50935F0F509E557 +:1016500001F5F0E50CA4F50BE501F5F0E50CA4E5CA +:10166000F0F501E50BF5F0E50A35F0F50AC3C375B1 +:101670000100E509F5F0E50E35F0F50EE50AF5F0A7 +:10168000E50F35F0F50FC3750A00E500F5F0E50D3F +:10169000A4F50BE500F5F0E50DA4E5F0F501E50B8B +:1016A000F5F0E50A35F0F50A750900C3C3750000C9 +:1016B000E509F5F0E50E35F0F50EE50AF5F0E50F74 +:1016C00035F0F50FC3750900750A00C3C375000036 +:1016D000E509F5F0E50E35F0F50EE50AF5F0E50F54 +:1016E00035F0F50FC3750900750A00C3C375000016 +:1016F000E509F5F0E50E35F0F50EE50AF5F0E50F34 +:1017000035F0F50FC3750000E50EF5F0E51035F086 +:10171000F500E50FF5F0E51135F0F501E500F50907 +:10172000E501F50A750100C3750000E501F5F0E576 +:101730000935F0F501E500F5F0E50A35F0F500E5CD +:1017400000F502E501F582E502F583E0F50B750190 +:1017500001C3750000E501F5F0E50935F0F501E597 +:1017600000F5F0E50A35F0F500E500F502E501F5D4 +:1017700082E502F583E0F509750100C3750000E517 +:1017800001F5F0E51235F0F501E500F5F0E513356A +:10179000F0F500E50BF503E500F502E501F582E55E +:1017A00002F583E503F0750101C3750000E501F55D +:1017B000F0E51235F0F501E500F5F0E51335F0F54B +:1017C00000E509F503E500F502E501F582E502F51E +:1017D00083E503F0E506F50AE507F501750900C3A1 +:1017E000750000E509F5F0E50A35F0F51FE500F5AF +:1017F000F0E50135F0F51EE506F50AE507F501759A +:101800000900C3750000E509F5F0E50A35F0F51D9E +:10181000E500F5F0E50135F0F51C12000075E00675 +:101820002506F58275E0003507F583E0F50275E0E1 +:10183000062506F58275E0003507F583E0F50375AA +:10184000E0062506F58275E0003507F583E0F5042E +:1018500075E0062506F58275E0003507F583E0F5AD +:101860000575E00C2506F58275E0003507F583E087 +:10187000F51375E00B2506F58275E0003507F58355 +:10188000E0F51275E00A2506F58275E0003507F5EA +:1018900083E0F51175E0092506F58275E00035074E +:1018A000F583E0F51075E0072506F58275E0003553 +:1018B00007F583E0F508E508C0E075E0082506F5C2 +:1018C0008275E0003507F583E0F508E508C0E075AE +:1018D000E00D2506F50675E0003507F507E502F58C +:1018E00082E503F583E504F500E505F50122000036 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr26004.s.expected b/tests/GCCTestSuite/pr26004.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr26004.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr26570.c b/tests/GCCTestSuite/pr26570.c new file mode 100644 index 0000000..999b240 --- /dev/null +++ b/tests/GCCTestSuite/pr26570.c @@ -0,0 +1,7 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fprofile-generate -fprofile-use" } */ + +unsigned test (unsigned a, unsigned b) +{ + return a / b; +} /* { dg-warning "execution counts estimated" } */ diff --git a/tests/GCCTestSuite/pr26570.c.expected b/tests/GCCTestSuite/pr26570.c.expected new file mode 100644 index 0000000..999b240 --- /dev/null +++ b/tests/GCCTestSuite/pr26570.c.expected @@ -0,0 +1,7 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fprofile-generate -fprofile-use" } */ + +unsigned test (unsigned a, unsigned b) +{ + return a / b; +} /* { dg-warning "execution counts estimated" } */ diff --git a/tests/GCCTestSuite/pr26570.hex.expected b/tests/GCCTestSuite/pr26570.hex.expected new file mode 100644 index 0000000..4b31e39 --- /dev/null +++ b/tests/GCCTestSuite/pr26570.hex.expected @@ -0,0 +1,113 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF500E51EF501E51DD8 +:1000D000F509E51CF50AE51AF515E519F513750F8F +:1000E00000751000751100751200E500F516E501A8 +:1000F000F514E509F50DE50AF50E750C0075170008 +:10010000751900751A00750B00750A01750001C399 +:10011000E518F5F0E50E95F0F509E50BF5F0E50BC2 +:1001200035F0F509E509F5F0E50055F0F500E500D5 +:10013000F5F0E50C45F0F50C750001C3E518F5F098 +:10014000E50E95F0F509E50BF5F0E50B35F0F50951 +:10015000E50EF5F0E51895F0F501E50BF5F0E50B8A +:1001600035F0F501E501F5F0E50945F0F509E50A99 +:10017000F5F0E50965F0F509E509F5F0E50055F05C +:10018000F500C3E513F5F0E50D95F0F509E50BF580 +:10019000F0E50B35F0F509E509F5F0E50055F0F56A +:1001A00000E500F5F0E50C45F0F50C750001C3E540 +:1001B00018F5F0E50E95F0F509E50BF5F0E50B35D2 +:1001C000F0F509E50EF5F0E51895F0F501E50BF50C +:1001D000F0E50B35F0F501E501F5F0E50945F0F541 +:1001E00009E50AF5F0E50965F0F509E509F5F0E539 +:1001F0000055F0F500C3E513F5F0E50D95F0F509B0 +:10020000E50BF5F0E50B35F0F509E50DF5F0E51337 +:1002100095F0F501E50BF5F0E50B35F0F501E5019D +:10022000F5F0E50945F0F509E50AF5F0E50965F0B1 +:10023000F509E509F5F0E50055F0F500C3E515F51C +:10024000F0E51495F0F509E50BF5F0E50B35F0F563 +:1002500009E509F5F0E50055F0F500E500F5F0E5F4 +:100260000C45F0F50C750001C3E518F5F0E50E95A9 +:10027000F0F509E50BF5F0E50B35F0F509E50EF5C0 +:10028000F0E51895F0F501E50BF5F0E50B35F0F527 +:1002900001E501F5F0E50945F0F509E50AF5F0E5B8 +:1002A0000965F0F509E509F5F0E50055F0F500C33D +:1002B000E513F5F0E50D95F0F509E50BF5F0E50B27 +:1002C00035F0F509E50DF5F0E51395F0F501E50BD1 +:1002D000F5F0E50B35F0F501E501F5F0E50945F040 +:1002E000F509E50AF5F0E50965F0F509E509F5F028 +:1002F000E50055F0F500C3E515F5F0E51495F0F5CA +:1003000009E50BF5F0E50B35F0F509E514F5F0E539 +:100310001595F0F501E50BF5F0E50B35F0F501E588 +:1003200001F5F0E50945F0F509E50AF5F0E509659F +:10033000F0F509E509F5F0E50055F0F500C3E51B1A +:10034000F5F0E51695F0F509E50BF5F0E50B35F060 +:10035000F509E509F5F0E50055F0F500E500F5F0E3 +:10036000E50C45F0F50CE517F500E519F501E51A82 +:10037000F509E50CF50B750C01C3750A00E50BF5E5 +:10038000F0E50A95F0F50A750A00E50AF5F0E50AC8 +:1003900035F0F50AE50AF5F0E50C65F0F50CC375E6 +:1003A0000A00E500F5F0E50A95F0F50A750A00E5A2 +:1003B0000AF5F0E50A35F0F50AE50AF5F0E50C6511 +:1003C000F0F50CC3750A00E501F5F0E50A95F0F5C6 +:1003D0000A750A00E50AF5F0E50A35F0F50AE50ABE +:1003E000F5F0E50C65F0F50CC3750A00E509F5F0CC +:1003F000E50A95F0F50A750A00E50AF5F0E50A3513 +:10040000F0F50AE50AF5F0E50C65F0F50C7500006D +:10041000750100750900E500F50BE501F50A7501A8 +:1004200001C3750000E50CF5F0E50095F0F50075E9 +:100430000000E500F5F0E50035F0F500E500F5F029 +:10044000E50165F0F501C3750000E50BF5F0E50089 +:1004500095F0F500750000E500F5F0E50035F0F5E4 +:1004600000E500F5F0E50165F0F501C3750000E574 +:100470000AF5F0E50095F0F500750000E500F5F0EF +:10048000E50035F0F500E500F5F0E50165F0F50172 +:10049000C3750000E509F5F0E50095F0F50075007D +:1004A00000E500F5F0E50035F0F500E500F5F0E5D4 +:1004B0000165F0F501750900750A00750B007500FE +:1004C00000E501F5F0E50045F0F500E509F5F0E59A +:1004D0000045F0F500E50AF5F0E50045F0F500E52A +:1004E0000BF5F0E50045F0F500E500700280030231 +:1004F000055700750001750100750900750A00C3F4 +:10050000750B00E500F5F0E50F35F0F50FE501F5A9 +:10051000F0E51035F0F510E509F5F0E51135F0F5E9 +:1005200011E50AF5F0E51235F0F512C3E51BF5F01B +:10053000E51695F0F516E515F5F0E51495F0F514CA +:10054000E513F5F0E50D95F0F50DE518F5F0E50E80 +:1005500095F0F50E0200FA00E50FF502E510F5033F +:10056000E511F504E512F50575E0092506F5827536 +:10057000E0003507F583E0F51775E0082506F582FC +:1005800075E0003507F583E0F51675E0072506F5FB +:100590008275E0003507F583E0F51575E006250660 +:1005A000F58275E0003507F583E0F51475E0052563 +:1005B00006F58275E0003507F583E0F51375E00474 +:1005C0002506F58275E0003507F583E0F51275E044 +:1005D000032506F58275E0003507F583E0F5117512 +:1005E000E0022506F58275E0003507F583E0F51099 +:1005F00075E0002506F58275E0003507F583E0F526 +:1006000008E508C0E075E0012506F58275E00035D3 +:1006100007F583E0F508E508C0E075E0122506F56A +:100620000675E0003507F507E502F582E503F58379 +:10063000E504F500E505F5012200E50675820AC32B +:100640009582F506E5077583009583F507D0E0F5FB +:100650000875E0012506F58275E0003507F583E5AC +:1006600008F0D0E0F50875E0002506F58275E00099 +:100670003507F583E508F0120000E582F502E58311 +:10068000F503E500F504E501F505E502F500E503F0 +:10069000F501E504F509E505F50AE500F502E501D2 +:1006A000F503E509F504E50AF50575E0002506F50D +:1006B0008275E0003507F583E0F508E508C0E075D0 +:1006C000E0012506F58275E0003507F583E0F508C1 +:1006D000E508C0E075E00A2506F50675E000350777 +:1006E000F507E502F582E503F583E504F500E50588 +:1006F000F5012200000000000000000000000000E2 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr26570.s.expected b/tests/GCCTestSuite/pr26570.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr26570.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr26961-1.c b/tests/GCCTestSuite/pr26961-1.c new file mode 100644 index 0000000..56907d8 --- /dev/null +++ b/tests/GCCTestSuite/pr26961-1.c @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +long long foo(int i, int j) +{ + return i ? (long long)(!j) : 0; +} + diff --git a/tests/GCCTestSuite/pr26961-1.c.expected b/tests/GCCTestSuite/pr26961-1.c.expected new file mode 100644 index 0000000..56907d8 --- /dev/null +++ b/tests/GCCTestSuite/pr26961-1.c.expected @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +long long foo(int i, int j) +{ + return i ? (long long)(!j) : 0; +} + diff --git a/tests/GCCTestSuite/pr26961-1.hex.expected b/tests/GCCTestSuite/pr26961-1.hex.expected new file mode 100644 index 0000000..5646c95 --- /dev/null +++ b/tests/GCCTestSuite/pr26961-1.hex.expected @@ -0,0 +1,28 @@ +:1000000000E50675820AC39582F506E5077583004B +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0E51241 +:10004000F501E511F509E510F50F750000E51FF55F +:10005000F0E50045F0F500E51EF5F0E50045F0F5AA +:1000600000E51DF5F0E50045F0F500E51CF5F0E5CF +:100070000045F0F500E500700280030200F0007515 +:100080000E00750000750A00750B00E50EF502E51F +:1000900000F503E50AF504E50BF505E501F512E5C4 +:1000A00009F511E50FF51075E0002506F58275E0FC +:1000B000003507F583E0F508E508C0E075E00125A7 +:1000C00006F58275E0003507F583E0F508E508C020 +:1000D000E075E00A2506F50675E0003507F507E549 +:1000E00002F582E503F583E504F500E505F5012257 +:1000F00000E51BF500E51AF50AE519F50BE518F51D +:100100000C750E01C3750D00E500F5F0E50D95F0D9 +:10011000F50D750D00E50DF5F0E50D35F0F50DE586 +:100120000DF5F0E50E65F0F50EC3750D00E50AF569 +:10013000F0E50D95F0F50D750D00E50DF5F0E50D0B +:1001400035F0F50DE50DF5F0E50E65F0F50EC3752E +:100150000D00E50BF5F0E50D95F0F50D750D00E5DD +:100160000DF5F0E50D35F0F50DE50DF5F0E50E6555 +:10017000F0F50EC3750D00E50CF5F0E50D95F0F505 +:100180000D750D00E50DF5F0E50D35F0F50DE50DFE +:10019000F5F0E50E65F0F50E750000750A00750BBB +:1001A0000002008B000000000000000000000000C2 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr26961-1.s.expected b/tests/GCCTestSuite/pr26961-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr26961-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr28187.c b/tests/GCCTestSuite/pr28187.c new file mode 100644 index 0000000..bc3b62d --- /dev/null +++ b/tests/GCCTestSuite/pr28187.c @@ -0,0 +1,22 @@ +/* { dg-do compile } */ +/* { dg-options "-O -ftree-vrp -fwrapv" } */ + +extern void bar(int); +void checkgroups(int last, int verbose) +{ + int window = 0; + int outstanding = 0; + while (window < last || outstanding) { + while (outstanding < 47 && window < last) { + if (window < last) { + outstanding++; + if (verbose) + bar(window); + bar(window++); + } + } + if (outstanding > 0) + bar(0); + } +} + diff --git a/tests/GCCTestSuite/pr28187.c.expected b/tests/GCCTestSuite/pr28187.c.expected new file mode 100644 index 0000000..bc3b62d --- /dev/null +++ b/tests/GCCTestSuite/pr28187.c.expected @@ -0,0 +1,22 @@ +/* { dg-do compile } */ +/* { dg-options "-O -ftree-vrp -fwrapv" } */ + +extern void bar(int); +void checkgroups(int last, int verbose) +{ + int window = 0; + int outstanding = 0; + while (window < last || outstanding) { + while (outstanding < 47 && window < last) { + if (window < last) { + outstanding++; + if (verbose) + bar(window); + bar(window++); + } + } + if (outstanding > 0) + bar(0); + } +} + diff --git a/tests/GCCTestSuite/pr28187.hex.expected b/tests/GCCTestSuite/pr28187.hex.expected new file mode 100644 index 0000000..ece8215 --- /dev/null +++ b/tests/GCCTestSuite/pr28187.hex.expected @@ -0,0 +1,336 @@ +:100000000000E50675821BC39582F506E50775833A +:10001000009583F507D0E0F50875E00A2506F5821E +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000092506F58275E0003507F583E508F075BA +:10004000E0122506F58275E0003507F583E517F027 +:1000500075E0112506F58275E0003507F583E51694 +:10006000F075E0102506F58275E0003507F583E5AB +:1000700015F075E00F2506F58275E0003507F5836C +:10008000E514F075E00E2506F58275E0003507F5FC +:1000900083E513F075E00D2506F58275E000350760 +:1000A000F583E512F075E00C2506F58275E0003564 +:1000B00007F583E511F075E00B2506F58275E00084 +:1000C0003507F583E510F075E0072506F58275E044 +:1000D000003507F583E51FF0E51EF514E51DF51164 +:1000E00075E0002506F58275E0003507F583E51C0F +:1000F000F075E0042506F58275E0003507F583E527 +:100100001BF075E0032506F58275E0003507F583E1 +:10011000E51AF075E0022506F58275E0003507F571 +:1001200083E519F075E0012506F58275E0003507D5 +:10013000F583E518F0751700751200751000750845 +:100140000075E0062506F58275E0003507F583E5C4 +:1001500008F075080075E0082506F58275E00035A1 +:1001600007F583E508F0751600751300750800752E +:10017000E0052506F58275E0003507F583E508F012 +:1001800075E0062506F58275E0003507F583E0F594 +:100190000E75E0002506F58275E0003507F583E071 +:1001A000F50D750080E500F5F0E50E25F0F50EE59E +:1001B00000F5F0E50D25F0F50D750C00750F0075D7 +:1001C0001500751800750B00750A01750001C3E56F +:1001D0000DF5F0E50E95F0F509E50BF5F0E50B35BD +:1001E000F0F509E509F5F0E50055F0F500E500F555 +:1001F000F0E50C45F0F50C750001C3E50DF5F0E5F3 +:100200000E95F0F509E50BF5F0E50B35F0F509E590 +:100210000EF5F0E50D95F0F501E50BF5F0E50B3584 +:10022000F0F501E501F5F0E50945F0F509E50AF518 +:10023000F0E50965F0F509E509F5F0E50055F0F59B +:1002400000C3E511F5F0E51095F0F509E50BF5F0C3 +:10025000E50B35F0F509E509F5F0E50055F0F50099 +:10026000E500F5F0E50C45F0F50C750001C3E50D72 +:10027000F5F0E50E95F0F509E50BF5F0E50B35F039 +:10028000F509E50EF5F0E50D95F0F501E50BF5F056 +:10029000E50B35F0F501E501F5F0E50945F0F50967 +:1002A000E50AF5F0E50965F0F509E509F5F0E50081 +:1002B00055F0F500C3E511F5F0E51095F0F509E509 +:1002C0000BF5F0E50B35F0F509E510F5F0E51195C6 +:1002D000F0F501E50BF5F0E50B35F0F501E501F57D +:1002E000F0E50945F0F509E50AF5F0E50965F0F5F1 +:1002F00009E509F5F0E50055F0F500C3E514F5F062 +:10030000E51295F0F509E50BF5F0E50B35F0F5098B +:10031000E509F5F0E50055F0F500E500F5F0E50C30 +:1003200045F0F50C750001C3E50DF5F0E50E95F00F +:10033000F509E50BF5F0E50B35F0F509E50EF5F0FF +:10034000E50D95F0F501E50BF5F0E50B35F0F50160 +:10035000E501F5F0E50945F0F509E50AF5F0E509EF +:1003600065F0F509E509F5F0E50055F0F500C3E5A0 +:1003700011F5F0E51095F0F509E50BF5F0E50B3515 +:10038000F0F509E510F5F0E51195F0F501E50BF54F +:10039000F0E50B35F0F501E501F5F0E50945F0F57F +:1003A00009E50AF5F0E50965F0F509E509F5F0E577 +:1003B0000055F0F500C3E514F5F0E51295F0F509E8 +:1003C000E50BF5F0E50B35F0F509E512F5F0E51470 +:1003D00095F0F501E50BF5F0E50B35F0F501E501DC +:1003E000F5F0E50945F0F509E50AF5F0E50965F0F0 +:1003F000F509E509F5F0E50055F0F500C375E007EE +:100400002506F58275E0003507F583E0F508E50877 +:10041000F5F0E51795F0F509E50BF5F0E50B35F08E +:10042000F509E509F5F0E50055F0F500E500F5F012 +:10043000E50C45F0F50C750000E50CF5F0E5004520 +:10044000F0F500E50FF5F0E50045F0F500E515F5F0 +:10045000F0E50045F0F500E518F5F0E50045F0F5AC +:1004600000E500700280030214D20075000075E000 +:10047000082506F58275E0003507F583E0F508E507 +:1004800008F5F0E50045F0F500E516F5F0E5004566 +:10049000F0F500E513F5F0E50045F0F50075E00531 +:1004A0002506F58275E0003507F583E0F508E508D7 +:1004B000F5F0E50045F0F500E50070028003021458 +:1004C000C200750000750100750900750A00750C01 +:1004D00001C3750B00E500F5F0E50B95F0F50B7524 +:1004E0000B00E50BF5F0E50B35F0F50BE50BF5F042 +:1004F000E50C65F0F50CC3750B00E501F5F0E50BB7 +:1005000095F0F50B750B00E50BF5F0E50B35F0F507 +:100510000BE50BF5F0E50C65F0F50CC3750B00E58C +:1005200009F5F0E50B95F0F50B750B00E50BF5F013 +:10053000E50B35F0F50BE50BF5F0E50C65F0F50C8A +:10054000C3750B00E50AF5F0E50B95F0F50B750B9F +:1005500000E50BF5F0E50B35F0F50BE50BF5F0E5F7 +:100560000C65F0F50C750100750900750A00750041 +:1005700000E50CF5F0E50045F0F500E501F5F0E5E6 +:100580000045F0F500E509F5F0E50045F0F500E57A +:100590000AF5F0E50045F0F500E500700280030281 +:1005A00013DD00751B2F751500750C00750D00759A +:1005B000E0052506F58275E0003507F583E0F50EC8 +:1005C000750080E500F5F0E50E25F0F50EE500F587 +:1005D000F0E50D25F0F50D750B0075180075190087 +:1005E000751A00750A00750F01750001C3E50DF558 +:1005F000F0E50E95F0F509E50AF5F0E50A35F0F5B8 +:1006000009E509F5F0E50055F0F500E500F5F0E540 +:100610000B45F0F50B750001C3E50DF5F0E50E9502 +:10062000F0F509E50AF5F0E50A35F0F509E50EF50E +:10063000F0E50D95F0F501E50AF5F0E50A35F0F580 +:1006400001E501F5F0E50945F0F509E50FF5F0E5FF +:100650000965F0F509E509F5F0E50055F0F500C389 +:10066000E50CF5F0E51395F0F509E50AF5F0E50A76 +:1006700035F0F509E509F5F0E50055F0F500E50080 +:10068000F5F0E50B45F0F50B750001C3E50DF5F050 +:10069000E50E95F0F509E50AF5F0E50A35F0F509FE +:1006A000E50EF5F0E50D95F0F501E50AF5F0E50A42 +:1006B00035F0F501E501F5F0E50945F0F509E50F3F +:1006C000F5F0E50965F0F509E509F5F0E50055F007 +:1006D000F500C3E50CF5F0E51395F0F509E50AF52D +:1006E000F0E50A35F0F509E513F5F0E50C95F0F5C0 +:1006F00001E50AF5F0E50A35F0F501E501F5F0E56B +:100700000945F0F509E50FF5F0E50965F0F509E5AE +:1007100009F5F0E50055F0F500C3E515F5F0E5162F +:1007200095F0F509E50AF5F0E50A35F0F509E50972 +:10073000F5F0E50055F0F500E500F5F0E50B45F0C6 +:10074000F50B750001C3E50DF5F0E50E95F0F50923 +:10075000E50AF5F0E50A35F0F509E50EF5F0E50DE9 +:1007600095F0F501E50AF5F0E50A35F0F501E5014A +:10077000F5F0E50945F0F509E50FF5F0E50965F057 +:10078000F509E509F5F0E50055F0F500C3E50CF5D0 +:10079000F0E51395F0F509E50AF5F0E50A35F0F511 +:1007A00009E513F5F0E50C95F0F501E50AF5F0E53E +:1007B0000A35F0F501E501F5F0E50945F0F509E543 +:1007C0000FF5F0E50965F0F509E509F5F0E50055E7 +:1007D000F0F500C3E515F5F0E51695F0F509E50A25 +:1007E000F5F0E50A35F0F509E516F5F0E51595F0B3 +:1007F000F501E50AF5F0E50A35F0F501E501F5F05A +:10080000E50945F0F509E50FF5F0E50965F0F509AD +:10081000E509F5F0E50055F0F500C3E51BF5F075C9 +:10082000E0082506F58275E0003507F583E0F50858 +:10083000E50895F0F509E50AF5F0E50A35F0F50962 +:10084000E509F5F0E50055F0F500E500F5F0E50BFC +:1008500045F0F50B750000E50BF5F0E50045F0F50A +:1008600000E518F5F0E50045F0F500E519F5F0E5CF +:100870000045F0F500E51AF5F0E50045F0F500E576 +:1008800000700280030210D200750000750100752F +:100890000900750A00750C01C3750B00E500F5F041 +:1008A000E50B95F0F50B750B00E50BF5F0E50B3559 +:1008B000F0F50BE50BF5F0E50C65F0F50CC3750BE9 +:1008C00000E501F5F0E50B95F0F50B750B00E50B78 +:1008D000F5F0E50B35F0F50BE50BF5F0E50C65F003 +:1008E000F50CC3750B00E509F5F0E50B95F0F50B7C +:1008F000750B00E50BF5F0E50B35F0F50BE50BF5A9 +:10090000F0E50C65F0F50CC3750B00E50AF5F0E5B4 +:100910000B95F0F50B750B00E50BF5F0E50B35F0DD +:10092000F50BE50BF5F0E50C65F0F50C75010075C0 +:100930000900750A00750000E50CF5F0E50045F0CA +:10094000F500E501F5F0E50045F0F500E509F5F005 +:10095000E50045F0F500E50AF5F0E50045F0F500A5 +:10096000E50070028003020DD80075E0062506F54B +:100970008275E0003507F583E0F50E75E000250689 +:10098000F58275E0003507F583E0F50D750080E52B +:1009900000F5F0E50E25F0F50EE500F5F0E50D2586 +:1009A000F0F50D750C00750F0075150075180075C4 +:1009B0000B00750A01750001C3E50DF5F0E50E9514 +:1009C000F0F509E50BF5F0E50B35F0F509E509F56E +:1009D000F0E50055F0F500E500F5F0E50C45F0F523 +:1009E0000C750001C3E50DF5F0E50E95F0F509E590 +:1009F0000BF5F0E50B35F0F509E50EF5F0E50D9595 +:100A0000F0F501E50BF5F0E50B35F0F501E501F545 +:100A1000F0E50945F0F509E50AF5F0E50965F0F5B9 +:100A200009E509F5F0E50055F0F500C3E511F5F02D +:100A3000E51095F0F509E50BF5F0E50B35F0F50956 +:100A4000E509F5F0E50055F0F500E500F5F0E50CF9 +:100A500045F0F50C750001C3E50DF5F0E50E95F0D8 +:100A6000F509E50BF5F0E50B35F0F509E50EF5F0C8 +:100A7000E50D95F0F501E50BF5F0E50B35F0F50129 +:100A8000E501F5F0E50945F0F509E50AF5F0E509B8 +:100A900065F0F509E509F5F0E50055F0F500C3E569 +:100AA00011F5F0E51095F0F509E50BF5F0E50B35DE +:100AB000F0F509E510F5F0E51195F0F501E50BF518 +:100AC000F0E50B35F0F501E501F5F0E50945F0F548 +:100AD00009E50AF5F0E50965F0F509E509F5F0E540 +:100AE0000055F0F500C3E514F5F0E51295F0F509B1 +:100AF000E50BF5F0E50B35F0F509E509F5F0E50056 +:100B000055F0F500E500F5F0E50C45F0F50C750045 +:100B100001C3E50DF5F0E50E95F0F509E50BF5F0EF +:100B2000E50B35F0F509E50EF5F0E50D95F0F5016D +:100B3000E50BF5F0E50B35F0F501E501F5F0E5091C +:100B400045F0F509E50AF5F0E50965F0F509E5096F +:100B5000F5F0E50055F0F500C3E511F5F0E5109569 +:100B6000F0F509E50BF5F0E50B35F0F509E510F5C5 +:100B7000F0E51195F0F501E50BF5F0E50B35F0F535 +:100B800001E501F5F0E50945F0F509E50AF5F0E5BF +:100B90000965F0F509E509F5F0E50055F0F500C344 +:100BA000E514F5F0E51295F0F509E50BF5F0E50B28 +:100BB00035F0F509E512F5F0E51495F0F501E50BD2 +:100BC000F5F0E50B35F0F501E501F5F0E50945F047 +:100BD000F509E50AF5F0E50965F0F509E509F5F02F +:100BE000E50055F0F500C375E0072506F58275E0D0 +:100BF000003507F583E0F508E508F5F0E51795F011 +:100C0000F509E50BF5F0E50B35F0F509E509F5F02B +:100C1000E50055F0F500E500F5F0E50C45F0F50CC4 +:100C2000750000E50CF5F0E50045F0F500E50FF581 +:100C3000F0E50045F0F500E515F5F0E50045F0F5C7 +:100C400000E518F5F0E50045F0F500E500700280DC +:100C500003020C58000205A3007500017501007520 +:100C60000900750A00C3750B00E500F5F075E00892 +:100C70002506F58275E0003507F583E0F508E508FF +:100C800035F0F50875E0082506F58275E0003507B2 +:100C9000F583E508F0E501F5F0E51635F0F516E524 +:100CA00009F5F0E51335F0F513E50AF5F075E00503 +:100CB0002506F58275E0003507F583E0F508E508BF +:100CC00035F0F50875E0052506F58275E000350775 +:100CD000F583E508F075000075E0042506F58275DA +:100CE000E0003507F583E0F508E508F5F0E5004597 +:100CF000F0F50075E0032506F58275E0003507F58F +:100D000083E0F508E508F5F0E50045F0F50075E04D +:100D1000022506F58275E0003507F583E0F508E564 +:100D200008F5F0E50045F0F50075E0012506F582CF +:100D300075E0003507F583E0F508E508F5F0E50016 +:100D400045F0F500E50070028003020DB700E517DD +:100D5000F51FE512F51EE510F51D75E0062506F5F3 +:100D60008275E0003507F583E0F51C750901750112 +:100D700000750000750A00C3750B00E509F5F0E584 +:100D80001F35F0F517E501F5F0E51E35F0F512E534 +:100D900000F5F0E51D35F0F510E50AF5F0E51C3538 +:100DA000F0F50875E0062506F58275E0003507F5D3 +:100DB00083E508F00205A300E517F51FE512F51E0F +:100DC000E510F51D75E0062506F58275E00035078E +:100DD000F583E0F51C020D4E00751B0075150075BE +:100DE0000D00750E0075E0052506F58275E00035ED +:100DF00007F583E0F50C750080E500F5F0E50E25BC +:100E0000F0F50EE500F5F0E50C25F0F50C750B009E +:100E1000751800751900751A00750A00750F0175AF +:100E20000001C3E50CF5F0E50E95F0F509E50AF5CE +:100E3000F0E50A35F0F509E509F5F0E50055F0F5BE +:100E400000E500F5F0E50B45F0F50B750001C3E595 +:100E50000CF5F0E50E95F0F509E50AF5F0E50A3533 +:100E6000F0F509E50EF5F0E50C95F0F501E50AF56C +:100E7000F0E50A35F0F501E501F5F0E50945F0F595 +:100E800009E50FF5F0E50965F0F509E509F5F0E587 +:100E90000055F0F500C3E513F5F0E50D95F0F50903 +:100EA000E50AF5F0E50A35F0F509E509F5F0E500A4 +:100EB00055F0F500E500F5F0E50B45F0F50B750094 +:100EC00001C3E50CF5F0E50E95F0F509E50AF5F03E +:100ED000E50A35F0F509E50EF5F0E50C95F0F501BC +:100EE000E50AF5F0E50A35F0F501E501F5F0E5096B +:100EF00045F0F509E50FF5F0E50965F0F509E509B7 +:100F0000F5F0E50055F0F500C3E513F5F0E50D95B6 +:100F1000F0F509E50AF5F0E50A35F0F509E50DF516 +:100F2000F0E51395F0F501E50AF5F0E50A35F0F581 +:100F300001E501F5F0E50945F0F509E50FF5F0E506 +:100F40000965F0F509E509F5F0E50055F0F500C390 +:100F5000E516F5F0E51595F0F509E50AF5F0E50A71 +:100F600035F0F509E509F5F0E50055F0F500E50087 +:100F7000F5F0E50B45F0F50B750001C3E50CF5F058 +:100F8000E50E95F0F509E50AF5F0E50A35F0F50905 +:100F9000E50EF5F0E50C95F0F501E50AF5F0E50A4A +:100FA00035F0F501E501F5F0E50945F0F509E50F46 +:100FB000F5F0E50965F0F509E509F5F0E50055F00E +:100FC000F500C3E513F5F0E50D95F0F509E50AF533 +:100FD000F0E50A35F0F509E50DF5F0E51395F0F5C6 +:100FE00001E50AF5F0E50A35F0F501E501F5F0E572 +:100FF0000945F0F509E50FF5F0E50965F0F509E5B6 +:1010000009F5F0E50055F0F500C3E516F5F0E51536 +:1010100095F0F509E50AF5F0E50A35F0F509E5156D +:10102000F5F0E51695F0F501E50AF5F0E50A35F07D +:10103000F501E501F5F0E50945F0F509E50FF5F0F5 +:10104000E50965F0F509E509F5F0E50055F0F5006D +:10105000C375E0082506F58275E0003507F583E0E5 +:10106000F508E508F5F0E51B95F0F509E50AF5F05A +:10107000E50A35F0F509E509F5F0E50055F0F5006C +:10108000E500F5F0E50B45F0F50B750000E50BF517 +:10109000F0E50045F0F500E518F5F0E50045F0F560 +:1010A00000E519F5F0E50045F0F500E51AF5F0E585 +:1010B0000045F0F500E500700280030210C2000256 +:1010C000018000751F00751E00751D00751C000253 +:1010D00001800075E0062506F58275E0003507F50C +:1010E00083E0F50E75E0002506F58275E000350712 +:1010F000F583E0F50D750080E500F5F0E50E25F0CF +:10110000F50EE500F5F0E50D25F0F50D750C007513 +:101110000F00751500751800750B00750A01750034 +:1011200001C3E50DF5F0E50E95F0F509E50BF5F0D9 +:10113000E50B35F0F509E509F5F0E50055F0F500AA +:10114000E500F5F0E50C45F0F50C750001C3E50D83 +:10115000F5F0E50E95F0F509E50BF5F0E50B35F04A +:10116000F509E50EF5F0E50D95F0F501E50BF5F067 +:10117000E50B35F0F501E501F5F0E50945F0F50978 +:10118000E50AF5F0E50965F0F509E509F5F0E50092 +:1011900055F0F500C3E511F5F0E51095F0F509E51A +:1011A0000BF5F0E50B35F0F509E509F5F0E500552F +:1011B000F0F500E500F5F0E50C45F0F50C750001E3 +:1011C000C3E50DF5F0E50E95F0F509E50BF5F0E555 +:1011D0000B35F0F509E50EF5F0E50D95F0F501E5B7 +:1011E0000BF5F0E50B35F0F501E501F5F0E5094506 +:1011F000F0F509E50AF5F0E50965F0F509E509F509 +:10120000F0E50055F0F500C3E511F5F0E51095F0B7 +:10121000F509E50BF5F0E50B35F0F509E510F5F00E +:10122000E51195F0F501E50BF5F0E50B35F0F5016D +:10123000E501F5F0E50945F0F509E50AF5F0E50900 +:1012400065F0F509E509F5F0E50055F0F500C3E5B1 +:1012500014F5F0E51295F0F509E50BF5F0E50B3521 +:10126000F0F509E509F5F0E50055F0F500E500F5C4 +:10127000F0E50C45F0F50C750001C3E50DF5F0E562 +:101280000E95F0F509E50BF5F0E50B35F0F509E500 +:101290000EF5F0E50D95F0F501E50BF5F0E50B35F4 +:1012A000F0F501E501F5F0E50945F0F509E50AF588 +:1012B000F0E50965F0F509E509F5F0E50055F0F50B +:1012C00000C3E511F5F0E51095F0F509E50BF5F033 +:1012D000E50B35F0F509E510F5F0E51195F0F501B0 +:1012E000E50BF5F0E50B35F0F501E501F5F0E50965 +:1012F00045F0F509E50AF5F0E50965F0F509E509B8 +:10130000F5F0E50055F0F500C3E514F5F0E51295AC +:10131000F0F509E50BF5F0E50B35F0F509E512F50B +:10132000F0E51495F0F501E50BF5F0E50B35F0F57A +:1013300001E501F5F0E50945F0F509E50AF5F0E507 +:101340000965F0F509E509F5F0E50055F0F500C38C +:1013500075E0072506F58275E0003507F583E0F5B1 +:1013600008E508F5F0E51795F0F509E50BF5F0E56A +:101370000B35F0F509E509F5F0E50055F0F500E568 +:1013800000F5F0E50C45F0F50C750000E50CF5F006 +:10139000E50045F0F500E50FF5F0E50045F0F50056 +:1013A000E515F5F0E50045F0F500E518F5F0E50088 +:1013B00045F0F500E500700280030213CD007500D2 +:1013C00000750100750900750A0002089500750096 +:1013D00001750100750900750A0002089500750085 +:1013E00000E500F502E500F503E500F504E500F58C +:1013F0000575E0122506F58275E0003507F583E0F6 +:10140000F51775E0112506F58275E0003507F583BF +:10141000E0F51675E0102506F58275E0003507F554 +:1014200083E0F51575E00F2506F58275E0003507B8 +:10143000F583E0F51475E00E2506F58275E00035BC +:1014400007F583E0F51375E00D2506F58275E000DC +:101450003507F583E0F51275E00C2506F58275E099 +:10146000003507F583E0F51175E00B2506F582756B +:10147000E0003507F583E0F51075E0092506F582F3 +:1014800075E0003507F583E0F508E508C0E075E094 +:101490000A2506F58275E0003507F583E0F508E5D5 +:1014A00008C0E075E01B2506F50675E0003507F578 +:1014B00007E502F582E503F583E504F500E505F5AA +:1014C000012200750001750100750900750A00020E +:1014D00004CE00750001750100750900750A00024F +:1014E00004CE00000000000000000000000000002A +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr28187.s.expected b/tests/GCCTestSuite/pr28187.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr28187.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr28402.c b/tests/GCCTestSuite/pr28402.c new file mode 100644 index 0000000..1368ac7 --- /dev/null +++ b/tests/GCCTestSuite/pr28402.c @@ -0,0 +1,22 @@ +/* { dg-options "" } */ +typedef long long ll; +typedef unsigned long long ull; + +int global; + +#define A(BASE, OP, AMT) \ + ll BASE ## AMT (ll x) { return x OP AMT; } \ + ull BASE ## AMT ## u (ull x) { return x OP AMT; } + +#define B(BASE, OP) \ + A (BASE, OP, 1) \ + A (BASE, OP, 10) \ + A (BASE, OP, 31) \ + A (BASE, OP, 33) \ + A (BASE, OP, 61) \ + A (BASE, OP, global) + +B (left, <<) +B (right, >>) + +/* { dg-final { scan-assembler-not "__\[a-z\]*si3" } } */ diff --git a/tests/GCCTestSuite/pr28402.c.expected b/tests/GCCTestSuite/pr28402.c.expected new file mode 100644 index 0000000..1368ac7 --- /dev/null +++ b/tests/GCCTestSuite/pr28402.c.expected @@ -0,0 +1,22 @@ +/* { dg-options "" } */ +typedef long long ll; +typedef unsigned long long ull; + +int global; + +#define A(BASE, OP, AMT) \ + ll BASE ## AMT (ll x) { return x OP AMT; } \ + ull BASE ## AMT ## u (ull x) { return x OP AMT; } + +#define B(BASE, OP) \ + A (BASE, OP, 1) \ + A (BASE, OP, 10) \ + A (BASE, OP, 31) \ + A (BASE, OP, 33) \ + A (BASE, OP, 61) \ + A (BASE, OP, global) + +B (left, <<) +B (right, >>) + +/* { dg-final { scan-assembler-not "__\[a-z\]*si3" } } */ diff --git a/tests/GCCTestSuite/pr29581-1.c b/tests/GCCTestSuite/pr29581-1.c new file mode 100644 index 0000000..b213872 --- /dev/null +++ b/tests/GCCTestSuite/pr29581-1.c @@ -0,0 +1,44 @@ +/* PR tree-optimization/29581 */ +/* Origin: gcc.dg/vect/vect-85.c */ +/* { dg-do run } */ +/* { dg-options "-O2 -ftree-loop-linear" } */ + +extern void exit (int); + +#define N 16 + +int main1 (int *a) +{ + int i, j, k; + int b[N]; + + for (i = 0; i < N; i++) + { + for (j = 0; j < N; j++) + { + k = i + N; + a[j] = k; + } + b[i] = k; + } + + + for (j = 0; j < N; j++) + if (a[j] != i + N - 1) + exit(1); + + for (j = 0; j < N; j++) + if (b[j] != j + N) + exit(1); + + return 0; +} + +int main (void) +{ + int a[N] __attribute__ ((__aligned__(16))); + + int tmp = main1 (a); + + return 0; +} diff --git a/tests/GCCTestSuite/pr29581-1.c.expected b/tests/GCCTestSuite/pr29581-1.c.expected new file mode 100644 index 0000000..b213872 --- /dev/null +++ b/tests/GCCTestSuite/pr29581-1.c.expected @@ -0,0 +1,44 @@ +/* PR tree-optimization/29581 */ +/* Origin: gcc.dg/vect/vect-85.c */ +/* { dg-do run } */ +/* { dg-options "-O2 -ftree-loop-linear" } */ + +extern void exit (int); + +#define N 16 + +int main1 (int *a) +{ + int i, j, k; + int b[N]; + + for (i = 0; i < N; i++) + { + for (j = 0; j < N; j++) + { + k = i + N; + a[j] = k; + } + b[i] = k; + } + + + for (j = 0; j < N; j++) + if (a[j] != i + N - 1) + exit(1); + + for (j = 0; j < N; j++) + if (b[j] != j + N) + exit(1); + + return 0; +} + +int main (void) +{ + int a[N] __attribute__ ((__aligned__(16))); + + int tmp = main1 (a); + + return 0; +} diff --git a/tests/GCCTestSuite/pr29581-1.hex.expected b/tests/GCCTestSuite/pr29581-1.hex.expected new file mode 100644 index 0000000..78bd3c1 --- /dev/null +++ b/tests/GCCTestSuite/pr29581-1.hex.expected @@ -0,0 +1,449 @@ +:1000000075812F7506FF7507FF121B2E02000C006D +:1000100000E506758250C39582F506E507758300F5 +:100020009583F507D0E0F50875E0452506F582755E +:10003000E0003507F583E508F0D0E0F50875E04409 +:100040002506F58275E0003507F583E508F075E0D3 +:100050004D2506F58275E0003507F583E517F07547 +:10006000E04C2506F58275E0003507F583E516F0CE +:1000700075E04B2506F58275E0003507F583E5153B +:10008000F075E04A2506F58275E0003507F583E551 +:1000900014F075E0492506F58275E0003507F58313 +:1000A000E513F075E0482506F58275E0003507F5A3 +:1000B00083E512F075E0472506F58275E000350707 +:1000C000F583E511F075E0462506F58275E000350B +:1000D00007F583E510F075E0412506F58275E0002F +:1000E0003507F583E51FF075E0402506F58275E0DC +:1000F000003507F583E51EF07513007514007508CB +:100100000075E0432506F58275E0003507F583E5C7 +:1001100008F075080075E0422506F58275E00035A7 +:1001200007F583E508F0751610751500750F007555 +:10013000100075E0422506F58275E0003507F5836D +:10014000E0F511750080E500F5F0E51125F0F511F9 +:10015000E500F5F0E51025F0F510750C00750D00C3 +:10016000750E00751200750B00750A01750001C34C +:10017000E510F5F0E51195F0F509E50BF5F0E50B67 +:1001800035F0F509E509F5F0E50055F0F500E50075 +:10019000F5F0E50C45F0F50C750001C3E510F5F040 +:1001A000E51195F0F509E50BF5F0E50B35F0F509EE +:1001B000E511F5F0E51095F0F501E50BF5F0E50B2F +:1001C00035F0F501E501F5F0E50945F0F509E50A39 +:1001D000F5F0E50965F0F509E509F5F0E50055F0FC +:1001E000F500C3E50FF5F075E0432506F58275E0EF +:1001F000003507F583E0F508E50895F0F509E50B0E +:10020000F5F0E50B35F0F509E509F5F0E50055F0F9 +:10021000F500E500F5F0E50C45F0F50C750001C3BF +:10022000E510F5F0E51195F0F509E50BF5F0E50BB6 +:1002300035F0F509E511F5F0E51095F0F501E50B60 +:10024000F5F0E50B35F0F501E501F5F0E50945F0D0 +:10025000F509E50AF5F0E50965F0F509E509F5F0B8 +:10026000E50055F0F500C3E50FF5F075E043250610 +:10027000F58275E0003507F583E0F508E50895F0AF +:10028000F509E50BF5F0E50B35F0F50975E04325CB +:1002900006F58275E0003507F583E0F508E508F519 +:1002A000F0E50F95F0F501E50BF5F0E50B35F0F510 +:1002B00001E501F5F0E50945F0F509E50AF5F0E598 +:1002C0000965F0F509E509F5F0E50055F0F500C31D +:1002D000E515F5F0E51495F0F509E50BF5F0E50BFE +:1002E00035F0F509E509F5F0E50055F0F500E50014 +:1002F000F5F0E50C45F0F50C750001C3E510F5F0DF +:10030000E51195F0F509E50BF5F0E50B35F0F5098C +:10031000E511F5F0E51095F0F501E50BF5F0E50BCD +:1003200035F0F501E501F5F0E50945F0F509E50AD7 +:10033000F5F0E50965F0F509E509F5F0E50055F09A +:10034000F500C3E50FF5F075E0432506F58275E08D +:10035000003507F583E0F508E50895F0F509E50BAC +:10036000F5F0E50B35F0F50975E0432506F58275E6 +:10037000E0003507F583E0F508E508F5F0E50F95B1 +:10038000F0F501E50BF5F0E50B35F0F501E501F5CC +:10039000F0E50945F0F509E50AF5F0E50965F0F540 +:1003A00009E509F5F0E50055F0F500C3E515F5F0B0 +:1003B000E51495F0F509E50BF5F0E50B35F0F509D9 +:1003C000E514F5F0E51595F0F501E50BF5F0E50B15 +:1003D00035F0F501E501F5F0E50945F0F509E50A27 +:1003E000F5F0E50965F0F509E509F5F0E50055F0EA +:1003F000F500C3E516F5F0E51395F0F509E50BF505 +:10040000F0E50B35F0F509E509F5F0E50055F0F5F7 +:1004100000E500F5F0E50C45F0F50C750101C3753C +:100420000000E50CF5F0E50095F0F500750000E53D +:1004300000F5F0E50035F0F500E500F5F0E50165C3 +:10044000F0F501C3750000E50DF5F0E50095F0F558 +:1004500000750000E500F5F0E50035F0F500E50079 +:10046000F5F0E50165F0F501C3750000E50EF5F066 +:10047000E50095F0F500750000E500F5F0E50035C4 +:10048000F0F500E500F5F0E50165F0F501C3750054 +:1004900000E512F5F0E50095F0F500750000E500C7 +:1004A000F5F0E50035F0F500E500F5F0E50165F063 +:1004B000F501750900750A00750B00750000E5016E +:1004C000F5F0E50045F0F500E509F5F0E50045F04B +:1004D000F500E50AF5F0E50045F0F500E50BF5F06F +:1004E000E50045F0F500E50070028003020D2400F0 +:1004F000751000751100751200751500751A1075CC +:100500001900750C00750D00E515F50E750080E5F8 +:1005100000F5F0E50E25F0F50EE500F5F0E50D250A +:10052000F0F50D750B007516007517007518007540 +:100530000A00750F01750001C3E50DF5F0E50E9594 +:10054000F0F509E50AF5F0E50A35F0F509E509F5F4 +:10055000F0E50055F0F500E500F5F0E50B45F0F5A8 +:100560000B750001C3E50DF5F0E50E95F0F509E515 +:100570000AF5F0E50A35F0F509E50EF5F0E50D951B +:10058000F0F501E50AF5F0E50A35F0F501E501F5CC +:10059000F0E50945F0F509E50FF5F0E50965F0F539 +:1005A00009E509F5F0E50055F0F500C3E50CF5F0B7 +:1005B000E51295F0F509E50AF5F0E50A35F0F509DB +:1005C000E509F5F0E50055F0F500E500F5F0E50B7F +:1005D00045F0F50B750001C3E50DF5F0E50E95F05E +:1005E000F509E50AF5F0E50A35F0F509E50EF5F04F +:1005F000E50D95F0F501E50AF5F0E50A35F0F501B0 +:10060000E501F5F0E50945F0F509E50FF5F0E50937 +:1006100065F0F509E509F5F0E50055F0F500C3E5ED +:100620000CF5F0E51295F0F509E50AF5F0E50A3567 +:10063000F0F509E512F5F0E50C95F0F501E50AF5A0 +:10064000F0E50A35F0F501E501F5F0E50945F0F5CD +:1006500009E50FF5F0E50965F0F509E509F5F0E5BF +:100660000055F0F500C3E519F5F0E51195F0F50931 +:10067000E50AF5F0E50A35F0F509E509F5F0E500DC +:1006800055F0F500E500F5F0E50B45F0F50B7500CC +:1006900001C3E50DF5F0E50E95F0F509E50AF5F075 +:1006A000E50A35F0F509E50EF5F0E50D95F0F501F3 +:1006B000E50AF5F0E50A35F0F501E501F5F0E509A3 +:1006C00045F0F509E50FF5F0E50965F0F509E509EF +:1006D000F5F0E50055F0F500C3E50CF5F0E51295F1 +:1006E000F0F509E50AF5F0E50A35F0F509E512F54A +:1006F000F0E50C95F0F501E50AF5F0E50A35F0F5C1 +:1007000001E501F5F0E50945F0F509E50FF5F0E53E +:100710000965F0F509E509F5F0E50055F0F500C3C8 +:10072000E519F5F0E51195F0F509E50AF5F0E50AAA +:1007300035F0F509E511F5F0E51995F0F501E50A53 +:10074000F5F0E50A35F0F501E501F5F0E50945F0CC +:10075000F509E50FF5F0E50965F0F509E509F5F0AE +:10076000E50055F0F500C3E51AF5F0E51095F0F554 +:1007700009E50AF5F0E50A35F0F509E509F5F0E5D2 +:100780000055F0F500E500F5F0E50B45F0F50B75CB +:100790000101C3750000E50BF5F0E50095F0F500EB +:1007A000750000E500F5F0E50035F0F500E500F531 +:1007B000F0E50165F0F501C3750000E516F5F0E51B +:1007C0000095F0F500750000E500F5F0E50035F066 +:1007D000F500E500F5F0E50165F0F501C3750000F1 +:1007E000E517F5F0E50095F0F500750000E500F57A +:1007F000F0E50035F0F500E500F5F0E50165F0F510 +:1008000001C3750000E518F5F0E50095F0F50075F9 +:100810000000E500F5F0E50035F0F500E500F5F045 +:10082000E50165F0F501750900750A00750B0075A5 +:100830000000E501F5F0E50045F0F500E509F5F00B +:10084000E50045F0F500E50AF5F0E50045F0F500B6 +:10085000E50BF5F0E50045F0F500E50070028003DA +:10086000020ACE00750B10750900750100750000B5 +:10087000C3750A00E50BF5F0E51335F0F51BE50946 +:10088000F5F0E51435F0F51CE501F5F075E04325CC +:1008900006F58275E0003507F583E0F508E50835D3 +:1008A000F0F51DE500F5F075E0422506F58275E0EE +:1008B000003507F583E0F508E50835F0F51E750904 +:1008C00004750B00750C00750D00C3750000E51074 +:1008D000F5F0E509A4F50AE510F5F0E509A4E5F061 +:1008E000F501E50AF5F0E50035F0F500E511F5F064 +:1008F000E509A4F50AE511F5F0E509A4E5F0F50927 +:10090000E50AF5F0E50135F0F501C3C3750900E529 +:1009100000F5F0E50C35F0F50CE501F5F0E50D35E9 +:10092000F0F50DC3750100E510F5F0E50BA4F50A2F +:10093000E510F5F0E50BA4E5F0F509E50AF5F0E5BD +:100940000135F0F501750000C3C3750900E500F538 +:10095000F0E50C35F0F50CE501F5F0E50D35F0F5B9 +:100960000DC3750000750100C3C3750900E500F5EE +:10097000F0E50C35F0F50CE501F5F0E50D35F0F599 +:100980000DC3750000750100C3C3750900E500F5CE +:10099000F0E50C35F0F50CE501F5F0E50D35F0F579 +:1009A0000DC3750000E50CF5F075E0412506F582F4 +:1009B00075E0003507F583E0F508E50835F0F5004A +:1009C000E50DF5F075E0402506F58275E000350788 +:1009D000F583E0F508E50835F0F50A750900C375FB +:1009E0000100E509F5F0E50035F0F509E501F5F060 +:1009F000E50A35F0F501E51BF503E501F502E5092A +:100A0000F582E502F583E503F0750901C375010080 +:100A1000E509F5F0E50035F0F509E501F5F0E50A41 +:100A200035F0F501E51CF503E501F502E509F58270 +:100A3000E502F583E503F0750902C3750100E509D8 +:100A4000F5F0E50035F0F509E501F5F0E50A35F0DA +:100A5000F501E51DF503E501F502E509F582E5027D +:100A6000F583E503F0750903C3750100E509F5F0A9 +:100A7000E50035F0F509E501F5F0E50A35F0F50199 +:100A8000E51EF503E501F502E509F582E502F583CA +:100A9000E503F0750101750900750A00750B00C3C7 +:100AA000750000E501F5F0E51035F0F510E509F504 +:100AB000F0E51135F0F511E50AF5F0E51235F0F540 +:100AC00012E50BF5F0E51535F0F5150204FC00E52F +:100AD00006F50AE507F501750900C3750000E5098B +:100AE000F5F0E50A35F0F50EE500F5F0E50135F035 +:100AF000F50F750904750B00750C00750D00C375B5 +:100B00000000E513F5F0E509A4F50AE513F5F0E5B5 +:100B100009A4E5F0F501E50AF5F0E50035F0F5008A +:100B2000E514F5F0E509A4F50AE514F5F0E509A4E6 +:100B3000E5F0F509E50AF5F0E50135F0F501C3C387 +:100B4000750900E500F5F0E50C35F0F50CE501F56B +:100B5000F0E50D35F0F50DC3750100E513F5F0E591 +:100B60000BA4F50AE513F5F0E50BA4E5F0F509E5AE +:100B70000AF5F0E50135F0F501750000C3C375090C +:100B800000E500F5F0E50C35F0F50CE501F5F0E5D4 +:100B90000D35F0F50DC3750000750100C3C375096F +:100BA00000E500F5F0E50C35F0F50CE501F5F0E5B4 +:100BB0000D35F0F50DC3750000750100C3C375094F +:100BC00000E500F5F0E50C35F0F50CE501F5F0E594 +:100BD0000D35F0F50DC3750000E50CF5F0E50E35AB +:100BE000F0F500E50DF5F0E50F35F0F50A750900B3 +:100BF000C3750100E509F5F0E50035F0F509E501FB +:100C0000F5F0E50A35F0F501E51BF503E501F50220 +:100C1000E509F582E502F583E503F0750901C37581 +:100C20000100E509F5F0E50035F0F509E501F5F01D +:100C3000E50A35F0F501E51CF503E501F502E509E6 +:100C4000F582E502F583E503F0750902C37501003D +:100C5000E509F5F0E50035F0F509E501F5F0E50AFF +:100C600035F0F501E51DF503E501F502E509F5822D +:100C7000E502F583E503F0750903C3750100E50995 +:100C8000F5F0E50035F0F509E501F5F0E50A35F098 +:100C9000F501E51EF503E501F502E509F582E5023A +:100CA000F583E503F0750101750900750A00750B00 +:100CB00000C3750000E501F5F0E51335F0F513E527 +:100CC00009F5F0E51435F0F514E50AF5F075E043A3 +:100CD0002506F58275E0003507F583E0F508E5089F +:100CE00035F0F50875E0432506F58275E000350717 +:100CF000F583E508F0E50BF5F075E0422506F58291 +:100D000075E0003507F583E0F508E50835F0F508EE +:100D100075E0422506F58275E0003507F583E508A4 +:100D2000F00201260075100075110075120075158E +:100D300000751A10751900750C00750D00E515F594 +:100D40000E750080E500F5F0E50E25F0F50EE500E6 +:100D5000F5F0E50D25F0F50D750B0075160075170E +:100D600000751800750A00750F01750001C3E50DC7 +:100D7000F5F0E50E95F0F509E50AF5F0E50A35F030 +:100D8000F509E509F5F0E50055F0F500E500F5F0A9 +:100D9000E50B45F0F50B750001C3E50DF5F0E50E2B +:100DA00095F0F509E50AF5F0E50A35F0F509E50EE7 +:100DB000F5F0E50D95F0F501E50AF5F0E50A35F0F9 +:100DC000F501E501F5F0E50945F0F509E50FF5F068 +:100DD000E50965F0F509E509F5F0E50055F0F500E0 +:100DE000C3E50CF5F0E51295F0F509E50AF5F0E537 +:100DF0000A35F0F509E509F5F0E50055F0F500E5EF +:100E000000F5F0E50B45F0F50B750001C3E50DF5B8 +:100E1000F0E50E95F0F509E50AF5F0E50A35F0F58F +:100E200009E50EF5F0E50D95F0F501E50AF5F0E5BB +:100E30000A35F0F501E501F5F0E50945F0F509E5BC +:100E40000FF5F0E50965F0F509E509F5F0E5005560 +:100E5000F0F500C3E50CF5F0E51295F0F509E50AAB +:100E6000F5F0E50A35F0F509E512F5F0E50C95F039 +:100E7000F501E50AF5F0E50A35F0F501E501F5F0D3 +:100E8000E50945F0F509E50FF5F0E50965F0F50927 +:100E9000E509F5F0E50055F0F500C3E519F5F0E5D5 +:100EA0001195F0F509E50AF5F0E50A35F0F509E5E3 +:100EB00009F5F0E50055F0F500E500F5F0E50B4526 +:100EC000F0F50B750001C3E50DF5F0E50E95F0F5B5 +:100ED00009E50AF5F0E50A35F0F509E50EF5F0E566 +:100EE0000D95F0F501E50AF5F0E50A35F0F501E5B7 +:100EF00001F5F0E50945F0F509E50FF5F0E50965BF +:100F0000F0F509E509F5F0E50055F0F500C3E50C4D +:100F1000F5F0E51295F0F509E50AF5F0E50A35F08A +:100F2000F509E512F5F0E50C95F0F501E50AF5F0A7 +:100F3000E50A35F0F501E501F5F0E50945F0F509BB +:100F4000E50FF5F0E50965F0F509E509F5F0E500CF +:100F500055F0F500C3E519F5F0E51195F0F509E553 +:100F60000AF5F0E50A35F0F509E511F5F0E5199512 +:100F7000F0F501E50AF5F0E50A35F0F501E501F5D2 +:100F8000F0E50945F0F509E50FF5F0E50965F0F53F +:100F900009E509F5F0E50055F0F500C3E51AF5F0AF +:100FA000E51095F0F509E50AF5F0E50A35F0F509E3 +:100FB000E509F5F0E50055F0F500E500F5F0E50B85 +:100FC00045F0F50B750101C3750000E50BF5F0E583 +:100FD0000095F0F500750000E500F5F0E50035F04E +:100FE000F500E500F5F0E50165F0F501C3750000D9 +:100FF000E516F5F0E50095F0F500750000E500F563 +:10100000F0E50035F0F500E500F5F0E50165F0F5F7 +:1010100001C3750000E517F5F0E50095F0F50075E2 +:101020000000E500F5F0E50035F0F500E500F5F02D +:10103000E50165F0F501C3750000E518F5F0E50080 +:1010400095F0F500750000E500F5F0E50035F0F5E8 +:1010500000E500F5F0E50165F0F501750900750A98 +:1010600000750B00750000E501F5F0E50045F0F5B1 +:1010700000E509F5F0E50045F0F500E50AF5F0E5D5 +:101080000045F0F500E50BF5F0E50045F0F500E56D +:1010900000700280030213E500750904750B0075EA +:1010A0000C00750D00C3750000E510F5F0E509A40E +:1010B000F50AE510F5F0E509A4E5F0F501E50AF516 +:1010C000F0E50035F0F500E511F5F0E509A4F50AC5 +:1010D000E511F5F0E509A4E5F0F509E50AF5F0E517 +:1010E0000135F0F501C3C3750900E500F5F0E50C25 +:1010F00035F0F50CE501F5F0E50D35F0F50DC375AE +:101100000100E510F5F0E50BA4F50AE510F5F0E5B2 +:101110000BA4E5F0F509E50AF5F0E50135F0F50178 +:10112000750000C3C3750900E500F5F0E50C35F066 +:10113000F50CE501F5F0E50D35F0F50DC375000092 +:10114000750100C3C3750900E500F5F0E50C35F045 +:10115000F50CE501F5F0E50D35F0F50DC375000072 +:10116000750100C3C3750900E500F5F0E50C35F025 +:10117000F50CE501F5F0E50D35F0F50DC375000052 +:10118000E50CF5F075E0412506F58275E0003507C0 +:10119000F583E0F508E50835F0F500E50DF5F075A7 +:1011A000E0402506F58275E0003507F583E0F50897 +:1011B000E50835F0F50AE500F509750100C375008D +:1011C00000E501F5F0E50935F0F501E500F5F0E59C +:1011D0000A35F0F500E500F502E501F582E502F5D6 +:1011E00083E0F517750101C3750000E501F5F0E531 +:1011F0000935F0F501E500F5F0E50A35F0F500E513 +:1012000000F502E501F582E502F583E0F5187501C8 +:1012100002C3750000E501F5F0E50935F0F501E5DB +:1012200000F5F0E50A35F0F500E500F502E501F519 +:1012300082E502F583E0F519750103C3750000E549 +:1012400001F5F0E50935F0F501E500F5F0E50A35C1 +:10125000F0F500E500F502E501F582E502F583E031 +:10126000F50F750A10750900750100750000C3754A +:101270000B00E50AF5F0E51335F0F50BE509F5F09F +:10128000E51435F0F50CE501F5F075E0432506F5BC +:101290008275E0003507F583E0F508E50835F0F5DF +:1012A0000DE500F5F075E0422506F58275E00035A4 +:1012B00007F583E0F508E50835F0F50E75000175D2 +:1012C0000100750900750A00C3E500F5F0E50B950E +:1012D000F0F516E501F5F0E50C95F0F50CE509F5EE +:1012E000F0E50D95F0F500E50AF5F0E50E95F0F561 +:1012F0000AE517F50BE518F50DE519F50EE516F5F8 +:1013000001E50CF509750C00C3E501F5F0E50B9559 +:10131000F0F501E501F5F0E50C45F0F50CC3E50944 +:10132000F5F0E50D95F0F501E501F5F0E50C45F07A +:10133000F50CC3E500F5F0E50E95F0F501E501F5D6 +:10134000F0E50C45F0F50CC3E50AF5F0E50F95F076 +:10135000F501E501F5F0E50C45F0F50C75010075BA +:101360000900750A00750000E50CF5F0E50045F090 +:10137000F500E501F5F0E50045F0F500E509F5F0CB +:10138000E50045F0F500E50AF5F0E50045F0F5006B +:10139000E500700280030213D50075010175090094 +:1013A000750A00750B00C3750000E501F5F0E51046 +:1013B00035F0F510E509F5F0E51135F0F511E50A20 +:1013C000F5F0E51235F0F512E50BF5F0E51535F021 +:1013D000F515020D3100751F01751E00751D007594 +:1013E0001C0002139A00751000751100751200752B +:1013F0001500751810751700750D00750E00E515B0 +:10140000F50F750080E500F5F0E50F25F0F50FE527 +:1014100000F5F0E50E25F0F50E750C00751300755E +:101420001400751600750B00750A01750001C3E5FF +:101430000EF5F0E50F95F0F509E50BF5F0E50B3548 +:10144000F0F509E509F5F0E50055F0F500E500F5E2 +:10145000F0E50C45F0F50C750001C3E50EF5F0E57F +:101460000F95F0F509E50BF5F0E50B35F0F509E51D +:101470000FF5F0E50E95F0F501E50BF5F0E50B3510 +:10148000F0F501E501F5F0E50945F0F509E50AF5A6 +:10149000F0E50965F0F509E509F5F0E50055F0F529 +:1014A00000C3E50DF5F0E51295F0F509E50BF5F053 +:1014B000E50B35F0F509E509F5F0E50055F0F50027 +:1014C000E500F5F0E50C45F0F50C750001C3E50EFF +:1014D000F5F0E50F95F0F509E50BF5F0E50B35F0C6 +:1014E000F509E50FF5F0E50E95F0F501E50BF5F0E2 +:1014F000E50B35F0F501E501F5F0E50945F0F509F5 +:10150000E50AF5F0E50965F0F509E509F5F0E5000E +:1015100055F0F500C3E50DF5F0E51295F0F509E598 +:101520000BF5F0E50B35F0F509E512F5F0E50D9555 +:10153000F0F501E50BF5F0E50B35F0F501E501F50A +:10154000F0E50945F0F509E50AF5F0E50965F0F57E +:1015500009E509F5F0E50055F0F500C3E517F5F0EC +:10156000E51195F0F509E50BF5F0E50B35F0F5091A +:10157000E509F5F0E50055F0F500E500F5F0E50CBE +:1015800045F0F50C750001C3E50EF5F0E50F95F09B +:10159000F509E50BF5F0E50B35F0F509E50FF5F08C +:1015A000E50E95F0F501E50BF5F0E50B35F0F501ED +:1015B000E501F5F0E50945F0F509E50AF5F0E5097D +:1015C00065F0F509E509F5F0E50055F0F500C3E52E +:1015D0000DF5F0E51295F0F509E50BF5F0E50B35A5 +:1015E000F0F509E512F5F0E50D95F0F501E50BF5DF +:1015F000F0E50B35F0F501E501F5F0E50945F0F50D +:1016000009E50AF5F0E50965F0F509E509F5F0E504 +:101610000055F0F500C3E517F5F0E51195F0F50973 +:10162000E50BF5F0E50B35F0F509E511F5F0E517FB +:1016300095F0F501E50BF5F0E50B35F0F501E50169 +:10164000F5F0E50945F0F509E50AF5F0E50965F07D +:10165000F509E509F5F0E50055F0F500C3E518F5E5 +:10166000F0E51095F0F509E50BF5F0E50B35F0F533 +:1016700009E509F5F0E50055F0F500E500F5F0E5C0 +:101680000C45F0F50C750101C3750000E50CF5F093 +:10169000E50095F0F500750000E500F5F0E5003592 +:1016A000F0F500E500F5F0E50165F0F501C3750022 +:1016B00000E513F5F0E50095F0F500750000E50094 +:1016C000F5F0E50035F0F500E500F5F0E50165F031 +:1016D000F501C3750000E514F5F0E50095F0F5009F +:1016E000750000E500F5F0E50035F0F500E500F5E2 +:1016F000F0E50165F0F501C3750000E516F5F0E5CC +:101700000095F0F500750000E500F5F0E50035F016 +:10171000F500E500F5F0E50165F0F50175090075E6 +:101720000A00750B00750000E501F5F0E50045F0D5 +:10173000F500E509F5F0E50045F0F500E50AF5F0FE +:10174000E50045F0F500E50BF5F0E50045F0F500A6 +:10175000E50070028003021A4000E506F50AE5077D +:10176000F501750900C3750000E509F5F0E50A35D6 +:10177000F0F50EE500F5F0E50135F0F50F7509041B +:10178000750B00750C00750D00C3750000E510F5B4 +:10179000F0E509A4F50AE510F5F0E509A4E5F0F592 +:1017A00001E50AF5F0E50035F0F500E511F5F0E5A5 +:1017B00009A4F50AE511F5F0E509A4E5F0F509E558 +:1017C0000AF5F0E50135F0F501C3C3750900E50040 +:1017D000F5F0E50C35F0F50CE501F5F0E50D35F02B +:1017E000F50DC3750100E510F5F0E50BA4F50AE56C +:1017F00010F5F0E50BA4E5F0F509E50AF5F0E501D3 +:1018000035F0F501750000C3C3750900E500F5F07A +:10181000E50C35F0F50CE501F5F0E50D35F0F50DCD +:10182000C3750000750100C3C3750900E500F5F03C +:10183000E50C35F0F50CE501F5F0E50D35F0F50DAD +:10184000C3750000750100C3C3750900E500F5F01C +:10185000E50C35F0F50CE501F5F0E50D35F0F50D8D +:10186000C3750000E50CF5F0E50E35F0F500E50D6B +:10187000F5F0E50F35F0F501E500F509E501F50AAC +:10188000750100C3750000E501F5F0E50935F0F5D7 +:1018900001E500F5F0E50A35F0F500E500F502E5B3 +:1018A00001F582E502F583E0F50B750101C37500D2 +:1018B00000E501F5F0E50935F0F501E500F5F0E5A5 +:1018C0000A35F0F500E500F502E501F582E502F5DF +:1018D00083E0F50C750102C3750000E501F5F0E544 +:1018E0000935F0F501E500F5F0E50A35F0F500E51C +:1018F00000F502E501F582E502F583E0F50D7501DD +:1019000003C3750000E501F5F0E50935F0F501E5E3 +:1019100000F5F0E50A35F0F500E500F502E501F522 +:1019200082E502F583E0F50E750F1075010075096B +:1019300000750A00C3750000E50FF5F0E51035F0FD +:10194000F500E501F5F0E51135F0F501E509F5F0F3 +:10195000E51235F0F509E50AF5F0E51535F0F50A7B +:10196000750F00C3E500F5F0E50B95F0F500E50017 +:10197000F5F0E50F45F0F50FC3E501F5F0E50C9541 +:10198000F0F500E500F5F0E50F45F0F50FC3E509CA +:10199000F5F0E50D95F0F500E500F5F0E50F45F003 +:1019A000F50FC3E50AF5F0E50E95F0F500E500F555 +:1019B000F0E50F45F0F50F750100750900750A0097 +:1019C000750000E50FF5F0E50045F0F500E501F5DF +:1019D000F0E50045F0F500E509F5F0E50045F0F526 +:1019E00000E50AF5F0E50045F0F500E5007002803D +:1019F00003021A3000750101750900750A00750BA4 +:101A000000C3750000E501F5F0E51035F0F510E5CF +:101A100009F5F0E51135F0F511E50AF5F0E51235B7 +:101A2000F0F512E50BF5F0E51535F0F5150213F2BA +:101A300000751F01751E00751D00751C000219F54B +:101A400000750000750100750900750A00E500F5D4 +:101A500002E501F503E509F504E50AF50575E04D34 +:101A60002506F58275E0003507F583E0F51775E08A +:101A70004C2506F58275E0003507F583E0F516750F +:101A8000E04B2506F58275E0003507F583E0F51596 +:101A900075E04A2506F58275E0003507F583E0F527 +:101AA0001475E0492506F58275E0003507F583E0F9 +:101AB000F51375E0482506F58275E0003507F583D6 +:101AC000E0F51275E0472506F58275E0003507F56B +:101AD00083E0F51175E0462506F58275E0003507CF +:101AE000F583E0F51075E0442506F58275E00035D4 +:101AF00007F583E0F508E508C0E075E0452506F543 +:101B00008275E0003507F583E0F508E508C0E0756B +:101B1000E0502506F50675E0003507F507E502F506 +:101B200082E503F583E504F500E505F5012200E50E +:101B300006758242C39582F506E507758300958395 +:101B4000F507D0E0F50875E0412506F58275E0005F +:101B50003507F583E508F0D0E0F50875E040250687 +:101B6000F58275E0003507F583E508F0E506F5092F +:101B7000E507F50A750100C3750000E501F5F0E51C +:101B80000935F0F501E500F5F0E50A35F0F500E579 +:101B900001F51FE500F51E1200107500007501002B +:101BA000750900750A00E500F502E501F503E50990 +:101BB000F504E50AF50575E0402506F58275E000B7 +:101BC0003507F583E0F508E508C0E075E041250636 +:101BD000F58275E0003507F583E0F508E508C0E01B +:101BE00075E0422506F50675E0003507F507E502C4 +:101BF000F582E503F583E504F500E505F50122002E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr29581-1.s.expected b/tests/GCCTestSuite/pr29581-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr29581-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr29581-3.c b/tests/GCCTestSuite/pr29581-3.c new file mode 100644 index 0000000..a6c8d19 --- /dev/null +++ b/tests/GCCTestSuite/pr29581-3.c @@ -0,0 +1,48 @@ +/* PR tree-optimization/29581 */ +/* Origin: gcc.dg/vect/vect-87.c */ +/* { dg-do run } */ +/* { dg-options "-O2 -ftree-loop-linear" } */ + +extern void exit (int); + +#define N 16 + +int main1 (int n, int *a) +{ + int i, j, k; + int b[N]; + + for (i = 0; i < n; i++) + { + for (j = 0; j < n; j++) + { + k = i + n; + a[j] = k; + } + b[i] = k; + } + + + for (j = 0; j < n; j++) + if (a[j] != i + n - 1) + exit(1); + + for (j = 0; j < n; j++) + if (b[j] != j + n) + exit(1); + + return 0; +} + +int main (void) +{ + int a[N] __attribute__ ((__aligned__(16))); +int tmp; + tmp=main1 (N, a); + tmp=main1 (0, a); + tmp=main1 (1, a); + tmp=main1 (2, a); + tmp=main1 (N-1, a); + + return 0; +} diff --git a/tests/GCCTestSuite/pr29581-3.c.expected b/tests/GCCTestSuite/pr29581-3.c.expected new file mode 100644 index 0000000..a6c8d19 --- /dev/null +++ b/tests/GCCTestSuite/pr29581-3.c.expected @@ -0,0 +1,48 @@ +/* PR tree-optimization/29581 */ +/* Origin: gcc.dg/vect/vect-87.c */ +/* { dg-do run } */ +/* { dg-options "-O2 -ftree-loop-linear" } */ + +extern void exit (int); + +#define N 16 + +int main1 (int n, int *a) +{ + int i, j, k; + int b[N]; + + for (i = 0; i < n; i++) + { + for (j = 0; j < n; j++) + { + k = i + n; + a[j] = k; + } + b[i] = k; + } + + + for (j = 0; j < n; j++) + if (a[j] != i + n - 1) + exit(1); + + for (j = 0; j < n; j++) + if (b[j] != j + n) + exit(1); + + return 0; +} + +int main (void) +{ + int a[N] __attribute__ ((__aligned__(16))); +int tmp; + tmp=main1 (N, a); + tmp=main1 (0, a); + tmp=main1 (1, a); + tmp=main1 (2, a); + tmp=main1 (N-1, a); + + return 0; +} diff --git a/tests/GCCTestSuite/pr29581-3.hex.expected b/tests/GCCTestSuite/pr29581-3.hex.expected new file mode 100644 index 0000000..d538336 --- /dev/null +++ b/tests/GCCTestSuite/pr29581-3.hex.expected @@ -0,0 +1,480 @@ +:1000000075812F7506FF7507FF121C1202000C0088 +:1000100000E506758256C39582F506E507758300EF +:100020009583F507D0E0F50875E0472506F582755C +:10003000E0003507F583E508F0D0E0F50875E04607 +:100040002506F58275E0003507F583E508F075E0D3 +:100050004F2506F58275E0003507F583E517F07545 +:10006000E04E2506F58275E0003507F583E516F0CC +:1000700075E04D2506F58275E0003507F583E51539 +:10008000F075E04C2506F58275E0003507F583E54F +:1000900014F075E04B2506F58275E0003507F58311 +:1000A000E513F075E04A2506F58275E0003507F5A1 +:1000B00083E512F075E0492506F58275E000350705 +:1000C000F583E511F075E0482506F58275E0003509 +:1000D00007F583E510F075E0452506F58275E0002B +:1000E0003507F583E51FF0E51EF514E51DF51375DD +:1000F000E0402506F58275E0003507F583E51CF044 +:1001000075E0422506F58275E0003507F583E51BAD +:10011000F075E0412506F58275E0003507F583E5C9 +:100120001AF075150075160075080075E04425066F +:10013000F58275E0003507F583E508F07508007570 +:10014000E0432506F58275E0003507F583E508F004 +:1001500075E0432506F58275E0003507F583E0F587 +:100160001075E0402506F58275E0003507F583E05F +:10017000F50F750080E500F5F0E51025F0F510E5C8 +:1001800000F5F0E50F25F0F50F750C00750D007505 +:100190000E00751100750B00750A01750001C3E5AD +:1001A0000FF5F0E51095F0F509E50BF5F0E50B35E9 +:1001B000F0F509E509F5F0E50055F0F500E500F585 +:1001C000F0E50C45F0F50C750001C3E50FF5F0E521 +:1001D0001095F0F509E50BF5F0E50B35F0F509E5BF +:1001E00010F5F0E50F95F0F501E50BF5F0E50B35B1 +:1001F000F0F501E501F5F0E50945F0F509E50AF549 +:10020000F0E50965F0F509E509F5F0E50055F0F5CB +:1002100000C3E513F5F075E0442506F58275E000AE +:100220003507F583E0F508E50895F0F509E50BF5E8 +:10023000F0E50B35F0F509E509F5F0E50055F0F5C9 +:1002400000E500F5F0E50C45F0F50C750001C3E59F +:100250000FF5F0E51095F0F509E50BF5F0E50B3538 +:10026000F0F509E510F5F0E50F95F0F501E50BF572 +:10027000F0E50B35F0F501E501F5F0E50945F0F5A0 +:1002800009E50AF5F0E50965F0F509E509F5F0E598 +:100290000055F0F500C3E513F5F075E0442506F5CB +:1002A0008275E0003507F583E0F508E50895F0F57F +:1002B00009E50BF5F0E50B35F0F50975E044250689 +:1002C000F58275E0003507F583E0F508E508F5F0FF +:1002D000E51395F0F501E50BF5F0E50B35F0F501CB +:1002E000E501F5F0E50945F0F509E50AF5F0E50960 +:1002F00065F0F509E509F5F0E50055F0F500C3E511 +:1003000014F5F0E51695F0F509E50BF5F0E50B357C +:10031000F0F509E509F5F0E50055F0F500E500F523 +:10032000F0E50C45F0F50C750001C3E50FF5F0E5BF +:100330001095F0F509E50BF5F0E50B35F0F509E55D +:1003400010F5F0E50F95F0F501E50BF5F0E50B354F +:10035000F0F501E501F5F0E50945F0F509E50AF5E7 +:10036000F0E50965F0F509E509F5F0E50055F0F56A +:1003700000C3E513F5F075E0442506F58275E0004D +:100380003507F583E0F508E50895F0F509E50BF587 +:10039000F0E50B35F0F50975E0442506F58275E0CA +:1003A000003507F583E0F508E508F5F0E51395F06D +:1003B000F501E50BF5F0E50B35F0F501E501F5F09C +:1003C000E50945F0F509E50AF5F0E50965F0F509F7 +:1003D000E509F5F0E50055F0F500C3E514F5F0E5A5 +:1003E0001695F0F509E50BF5F0E50B35F0F509E5A7 +:1003F00016F5F0E51495F0F501E50BF5F0E50B3594 +:10040000F0F501E501F5F0E50945F0F509E50AF536 +:10041000F0E50965F0F509E509F5F0E50055F0F5B9 +:1004200000C375E0452506F58275E0003507F583C4 +:10043000E0F508E508F5F0E51595F0F509E50BF5AB +:10044000F0E50B35F0F509E509F5F0E50055F0F5B7 +:1004500000E500F5F0E50C45F0F50C750101C375FC +:100460000000E50CF5F0E50095F0F500750000E5FD +:1004700000F5F0E50035F0F500E500F5F0E5016583 +:10048000F0F501C3750000E50DF5F0E50095F0F518 +:1004900000750000E500F5F0E50035F0F500E50039 +:1004A000F5F0E50165F0F501C3750000E50EF5F026 +:1004B000E50095F0F500750000E500F5F0E5003584 +:1004C000F0F500E500F5F0E50165F0F501C3750014 +:1004D00000E511F5F0E50095F0F500750000E50088 +:1004E000F5F0E50035F0F500E500F5F0E50165F023 +:1004F000F501750900750A00750B00750000E5012E +:10050000F5F0E50045F0F500E509F5F0E50045F00A +:10051000F500E50AF5F0E50045F0F500E50BF5F02E +:10052000E50045F0F500E50070028003020D9C0037 +:10053000751000751100751200751700E517F50D9F +:1005400075E0402506F58275E0003507F583E0F596 +:100550000C750080E500F5F0E50D25F0F50DE500E2 +:10056000F5F0E50C25F0F50C750B00750F0075180E +:1005700000751900750A00750E01750001C3E50CC0 +:10058000F5F0E50D95F0F509E50AF5F0E50A35F029 +:10059000F509E509F5F0E50055F0F500E500F5F0A1 +:1005A000E50B45F0F50B750001C3E50CF5F0E50D25 +:1005B00095F0F509E50AF5F0E50A35F0F509E50DE0 +:1005C000F5F0E50C95F0F501E50AF5F0E50A35F0F2 +:1005D000F501E501F5F0E50945F0F509E50EF5F061 +:1005E000E50965F0F509E509F5F0E50055F0F500D8 +:1005F000C3E513F5F0E51295F0F509E50AF5F0E528 +:100600000A35F0F509E509F5F0E50055F0F500E5E6 +:1006100000F5F0E50B45F0F50B750001C3E50CF5B1 +:10062000F0E50D95F0F509E50AF5F0E50A35F0F588 +:1006300009E50DF5F0E50C95F0F501E50AF5F0E5B5 +:100640000A35F0F501E501F5F0E50945F0F509E5B4 +:100650000EF5F0E50965F0F509E509F5F0E5005559 +:10066000F0F500C3E513F5F0E51295F0F509E50A9C +:10067000F5F0E50A35F0F509E512F5F0E51395F02A +:10068000F501E50AF5F0E50A35F0F501E501F5F0CB +:10069000E50945F0F509E50EF5F0E50965F0F50920 +:1006A000E509F5F0E50055F0F500C3E514F5F0E5D2 +:1006B0001195F0F509E50AF5F0E50A35F0F509E5DB +:1006C00009F5F0E50055F0F500E500F5F0E50B451E +:1006D000F0F50B750001C3E50CF5F0E50D95F0F5AF +:1006E00009E50AF5F0E50A35F0F509E50DF5F0E55F +:1006F0000C95F0F501E50AF5F0E50A35F0F501E5B0 +:1007000001F5F0E50945F0F509E50EF5F0E50965B7 +:10071000F0F509E509F5F0E50055F0F500C3E5133E +:10072000F5F0E51295F0F509E50AF5F0E50A35F082 +:10073000F509E512F5F0E51395F0F501E50AF5F098 +:10074000E50A35F0F501E501F5F0E50945F0F509B3 +:10075000E50EF5F0E50965F0F509E509F5F0E500C8 +:1007600055F0F500C3E514F5F0E51195F0F509E550 +:100770000AF5F0E50A35F0F509E511F5F0E514950F +:10078000F0F501E50AF5F0E50A35F0F501E501F5CA +:10079000F0E50945F0F509E50EF5F0E50965F0F538 +:1007A00009E509F5F0E50055F0F500C375E04525CC +:1007B00006F58275E0003507F583E0F508E508F5F4 +:1007C000F0E51095F0F509E50AF5F0E50A35F0F5E4 +:1007D00009E509F5F0E50055F0F500E500F5F0E56F +:1007E0000B45F0F50BE50FF500E518F501E519F5FA +:1007F0000C750A01C3750900E50BF5F0E50995F0E4 +:10080000F509750900E509F5F0E50935F0F509E5A3 +:1008100009F5F0E50A65F0F50AC3750900E500F58C +:10082000F0E50995F0F509750900E509F5F0E50928 +:1008300035F0F509E509F5F0E50A65F0F50AC37547 +:100840000900E501F5F0E50995F0F509750900E500 +:1008500009F5F0E50935F0F509E509F5F0E50A6572 +:10086000F0F50AC3750900E50CF5F0E50995F0F51A +:1008700009750900E509F5F0E50935F0F509E5091F +:10088000F5F0E50A65F0F50A750100750900750BCC +:1008900000750000E50AF5F0E50045F0F500E5011A +:1008A000F5F0E50045F0F500E509F5F0E50045F067 +:1008B000F500E50BF5F0E50045F0F500E500700208 +:1008C0008003020B4600C375000075E0452506F560 +:1008D0008275E0003507F583E0F508E508F5F0E5F9 +:1008E0001535F0F51AE514F5F0E51635F0F51BE5CC +:1008F00013F5F075E0442506F58275E0003507F53F +:1009000083E0F508E50835F0F51C75E0402506F5AF +:100910008275E0003507F583E0F508E508F5F07528 +:10092000E0432506F58275E0003507F583E0F5081C +:10093000E50835F0F51D750904750B00750C00759B +:100940000D00C3750000E510F5F0E509A4F50AE512 +:1009500010F5F0E509A4E5F0F501E50AF5F0E5008C +:1009600035F0F500E511F5F0E509A4F50AE511F516 +:10097000F0E509A4E5F0F509E50AF5F0E50135F043 +:10098000F501C3C3750900E500F5F0E50C35F0F598 +:100990000CE501F5F0E50D35F0F50DC3750100E549 +:1009A00010F5F0E50BA4F50AE510F5F0E50BA4E56C +:1009B000F0F509E50AF5F0E50135F0F501750000FF +:1009C000C3C3750900E500F5F0E50C35F0F50CE55D +:1009D00001F5F0E50D35F0F50DC37500007501006A +:1009E000C3C3750900E500F5F0E50C35F0F50CE53D +:1009F00001F5F0E50D35F0F50DC37500007501004A +:100A0000C3C3750900E500F5F0E50C35F0F50CE51C +:100A100001F5F0E50D35F0F50DC3750000E50CF5B9 +:100A2000F075E0422506F58275E0003507F583E0B4 +:100A3000F508E50835F0F500E50DF5F075E0412520 +:100A400006F58275E0003507F583E0F508E5083521 +:100A5000F0F50A750100C3750900E501F5F0E50040 +:100A600035F0F501E509F5F0E50A35F0F509E51A87 +:100A7000F503E509F502E501F582E502F583E503F5 +:100A8000F0750101C3750900E501F5F0E50035F0E9 +:100A9000F501E509F5F0E50A35F0F509E51BF50383 +:100AA000E509F502E501F582E502F583E503F07558 +:100AB0000102C3750900E501F5F0E50035F0F50127 +:100AC000E509F5F0E50A35F0F509E51CF503E5095A +:100AD000F502E501F582E502F583E503F075010312 +:100AE000C3750900E501F5F0E50035F0F501E5090C +:100AF000F5F0E50A35F0F509E51DF503E509F50220 +:100B0000E501F582E502F583E503F0750001750165 +:100B100000750900750A00C3750B00E500F5F0E5E6 +:100B20001035F0F510E501F5F0E51135F0F511E5BA +:100B300009F5F0E51235F0F512E50AF5F0E517359F +:100B4000F0F51702053C00E506F50AE507F5017525 +:100B50000900C3750000E509F5F0E50A35F0F50E6A +:100B6000E500F5F0E50135F0F50F750904750B00AA +:100B7000750C00750D00C3750000E515F5F0E5096D +:100B8000A4F50AE515F5F0E509A4E5F0F501E50A97 +:100B9000F5F0E50035F0F500E516F5F0E509A4F50A +:100BA0000AE516F5F0E509A4E5F0F509E50AF5F022 +:100BB000E50135F0F501C3C3750900E500F5F0E581 +:100BC0000C35F0F50CE501F5F0E50D35F0F50DC34C +:100BD000750100E515F5F0E50BA4F50AE515F5F04E +:100BE000E50BA4E5F0F509E50AF5F0E50135F0F5CA +:100BF00001750000C3C3750900E500F5F0E50C358B +:100C0000F0F50CE501F5F0E50D35F0F50DC37500D7 +:100C100000750100C3C3750900E500F5F0E50C356A +:100C2000F0F50CE501F5F0E50D35F0F50DC37500B7 +:100C300000750100C3C3750900E500F5F0E50C354A +:100C4000F0F50CE501F5F0E50D35F0F50DC3750097 +:100C500000E50CF5F0E50E35F0F500E50DF5F0E5F5 +:100C60000F35F0F50A750900C3750100E509F5F0C7 +:100C7000E50035F0F509E501F5F0E50A35F0F50197 +:100C8000E51AF503E501F502E509F582E502F583CC +:100C9000E503F0750901C3750100E509F5F0E5000C +:100CA00035F0F509E501F5F0E50A35F0F501E51B4C +:100CB000F503E501F502E509F582E502F583E503B3 +:100CC000F0750902C3750100E509F5F0E50035F09E +:100CD000F509E501F5F0E50A35F0F501E51CF50348 +:100CE000E501F502E509F582E502F583E503F07516 +:100CF0000903C3750100E509F5F0E50035F0F509D4 +:100D0000E501F5F0E50A35F0F501E51DF503E5012E +:100D1000F502E509F582E502F583E503F0750101C9 +:100D2000750900750A00750B00C3750000E501F533 +:100D3000F0E51535F0F515E509F5F0E51635F0F5B2 +:100D400016E50AF5F075E0442506F58275E00035F4 +:100D500007F583E0F508E50835F0F50875E044256A +:100D600006F58275E0003507F583E508F0E50BF53B +:100D7000F075E0432506F58275E0003507F583E060 +:100D8000F508E50835F0F50875E0432506F58275A8 +:100D9000E0003507F583E508F0020150007510000A +:100DA000751100751200751700E517F50D75E04017 +:100DB0002506F58275E0003507F583E0F50C750032 +:100DC00080E500F5F0E50D25F0F50DE500F5F0E521 +:100DD0000C25F0F50C750B00750F007518007519D2 +:100DE00000750A00750E01750001C3E50CF5F0E50C +:100DF0000D95F0F509E50AF5F0E50A35F0F509E598 +:100E000009F5F0E50055F0F500E500F5F0E50B45D6 +:100E1000F0F50B750001C3E50CF5F0E50D95F0F567 +:100E200009E50AF5F0E50A35F0F509E50DF5F0E517 +:100E30000C95F0F501E50AF5F0E50A35F0F501E568 +:100E400001F5F0E50945F0F509E50EF5F0E5096570 +:100E5000F0F509E509F5F0E50055F0F500C3E513F7 +:100E6000F5F0E51295F0F509E50AF5F0E50A35F03B +:100E7000F509E509F5F0E50055F0F500E500F5F0B8 +:100E8000E50B45F0F50B750001C3E50CF5F0E50D3C +:100E900095F0F509E50AF5F0E50A35F0F509E50DF7 +:100EA000F5F0E50C95F0F501E50AF5F0E50A35F009 +:100EB000F501E501F5F0E50945F0F509E50EF5F078 +:100EC000E50965F0F509E509F5F0E50055F0F500EF +:100ED000C3E513F5F0E51295F0F509E50AF5F0E53F +:100EE0000A35F0F509E512F5F0E51395F0F501E5A1 +:100EF0000AF5F0E50A35F0F501E501F5F0E50945FB +:100F0000F0F509E50EF5F0E50965F0F509E509F5F7 +:100F1000F0E50055F0F500C3E514F5F0E51195F0A6 +:100F2000F509E50AF5F0E50A35F0F509E509F5F00A +:100F3000E50055F0F500E500F5F0E50B45F0F50BA3 +:100F4000750001C3E50CF5F0E50D95F0F509E50A2E +:100F5000F5F0E50A35F0F509E50DF5F0E50C95F04D +:100F6000F501E50AF5F0E50A35F0F501E501F5F0E2 +:100F7000E50945F0F509E50EF5F0E50965F0F50937 +:100F8000E509F5F0E50055F0F500C3E513F5F0E5EA +:100F90001295F0F509E50AF5F0E50A35F0F509E5F1 +:100FA00012F5F0E51395F0F501E50AF5F0E50A35DF +:100FB000F0F501E501F5F0E50945F0F509E50EF577 +:100FC000F0E50965F0F509E509F5F0E50055F0F5FE +:100FD00000C3E514F5F0E51195F0F509E50AF5F023 +:100FE000E50A35F0F509E511F5F0E51495F0F501A0 +:100FF000E50AF5F0E50A35F0F501E501F5F0E5095A +:1010000045F0F509E50EF5F0E50965F0F509E509A6 +:10101000F5F0E50055F0F500C375E0452506F582CD +:1010200075E0003507F583E0F508E508F5F0E51013 +:1010300095F0F509E50AF5F0E50A35F0F509E50959 +:10104000F5F0E50055F0F500E500F5F0E50B45F0AD +:10105000F50BE50FF500E518F501E519F50C750A36 +:1010600001C3750900E50BF5F0E50995F0F5097583 +:101070000900E509F5F0E50935F0F509E509F5F0B0 +:10108000E50A65F0F50AC3750900E500F5F0E50924 +:1010900095F0F509750900E509F5F0E50935F0F574 +:1010A00009E509F5F0E50A65F0F50AC3750900E5FB +:1010B00001F5F0E50995F0F509750900E509F5F088 +:1010C000E50935F0F509E509F5F0E50A65F0F50AF9 +:1010D000C3750900E50CF5F0E50995F0F50975090A +:1010E00000E509F5F0E50935F0F509E509F5F0E564 +:1010F0000A65F0F50A750100750900750B007500A9 +:1011000000E50AF5F0E50045F0F500E501F5F0E54C +:101110000045F0F500E509F5F0E50045F0F500E5DE +:101120000BF5F0E50045F0F500E5007002800302E4 +:10113000149900750904750B00750C00750D00C33A +:10114000750000E510F5F0E509A4F50AE510F5F0E5 +:10115000E509A4E5F0F501E50AF5F0E50035F0F55F +:1011600000E511F5F0E509A4F50AE511F5F0E5094A +:10117000A4E5F0F509E50AF5F0E50135F0F501C360 +:10118000C3750900E500F5F0E50C35F0F50CE50157 +:10119000F5F0E50D35F0F50DC3750100E510F5F03E +:1011A000E50BA4F50AE510F5F0E50BA4E5F0F5096B +:1011B000E50AF5F0E50135F0F501750000C3C375EA +:1011C0000900E500F5F0E50C35F0F50CE501F5F06A +:1011D000E50D35F0F50DC3750000750100C3C3754D +:1011E0000900E500F5F0E50C35F0F50CE501F5F04A +:1011F000E50D35F0F50DC3750000750100C3C3752D +:101200000900E500F5F0E50C35F0F50CE501F5F029 +:10121000E50D35F0F50DC3750000E50CF5F075E052 +:10122000422506F58275E0003507F583E0F508E50F +:101230000835F0F500E50DF5F075E0412506F5827D +:1012400075E0003507F583E0F508E50835F0F50AA7 +:10125000E500F509750000C3750100E500F5F0E54E +:101260000935F0F500E501F5F0E50A35F0F501E5A1 +:1012700001F502E500F582E502F583E0F50F750062 +:1012800001C3750100E500F5F0E50935F0F500E56D +:1012900001F5F0E50A35F0F501E501F502E500F5A7 +:1012A00082E502F583E0F519750002C3750100E5DA +:1012B00000F5F0E50935F0F500E501F5F0E50A3552 +:1012C000F0F501E501F502E500F582E502F583E0C0 +:1012D000F51A750003C3750100E500F5F0E5093561 +:1012E000F0F500E501F5F0E50A35F0F501E501F569 +:1012F00002E500F582E502F583E0F518C37500000C +:1013000075E0452506F58275E0003507F583E0F5C3 +:1013100008E508F5F0E51535F0F50AE514F5F0E512 +:101320001635F0F50BE513F5F075E0442506F5826A +:1013300075E0003507F583E0F508E50835F0F50CB4 +:1013400075E0402506F58275E0003507F583E0F588 +:1013500008E508F5F075E0432506F58275E00035EF +:1013600007F583E0F508E50835F0F50E7500017521 +:101370000100750900750D00C3E500F5F0E50A955B +:10138000F0F50AE501F5F0E50B95F0F501E509F555 +:10139000F0E50C95F0F509E50DF5F0E50E95F0F5A5 +:1013A00000E50FF50DE519F50EE51AF50FE50AF55F +:1013B0000BE501F50CE509F50A750900C3E50BF528 +:1013C000F0E50D95F0F501E501F5F0E50945F0F5DD +:1013D00009C3E50CF5F0E50E95F0F501E501F5F032 +:1013E000E50945F0F509C3E50AF5F0E50F95F0F5D7 +:1013F00001E501F5F0E50945F0F509C3E500F5F073 +:10140000E51895F0F501E501F5F0E50945F0F50978 +:10141000750100750A00750B00750000E509F5F00F +:10142000E50045F0F500E501F5F0E50045F0F500D3 +:10143000E50AF5F0E50045F0F500E50BF5F0E5000F +:1014400045F0F500E5007002800302148900750084 +:1014500001750100750900750A00C3750B00E500F0 +:10146000F5F0E51035F0F510E501F5F0E51135F092 +:10147000F511E509F5F0E51235F0F512E50AF5F09C +:10148000E51735F0F517020DA900751F01751E004F +:10149000751D00751C0002144E00751000751100BA +:1014A000751200751700E517F50E75E0402506F575 +:1014B0008275E0003507F583E0F50D750080E500E5 +:1014C000F5F0E50E25F0F50EE500F5F0E50D25F05B +:1014D000F50D750C00750F00751500751600750B70 +:1014E00000750A01750001C3E50DF5F0E50E95F0F4 +:1014F000F509E50BF5F0E50B35F0F509E509F5F033 +:10150000E50055F0F500E500F5F0E50C45F0F50CCB +:10151000750001C3E50DF5F0E50E95F0F509E50B55 +:10152000F5F0E50B35F0F509E50EF5F0E50D95F074 +:10153000F501E50BF5F0E50B35F0F501E501F5F00A +:10154000E50945F0F509E50AF5F0E50965F0F50965 +:10155000E509F5F0E50055F0F500C3E513F5F0E514 +:101560001295F0F509E50BF5F0E50B35F0F509E519 +:1015700009F5F0E50055F0F500E500F5F0E50C455E +:10158000F0F50C750001C3E50DF5F0E50E95F0F5ED +:1015900009E50BF5F0E50B35F0F509E50EF5F0E59D +:1015A0000D95F0F501E50BF5F0E50B35F0F501E5EE +:1015B00001F5F0E50945F0F509E50AF5F0E50965FD +:1015C000F0F509E509F5F0E50055F0F500C3E51380 +:1015D000F5F0E51295F0F509E50BF5F0E50B35F0C2 +:1015E000F509E512F5F0E51395F0F501E50BF5F0D9 +:1015F000E50B35F0F501E501F5F0E50945F0F509F4 +:10160000E50AF5F0E50965F0F509E509F5F0E5000D +:1016100055F0F500C3E514F5F0E51195F0F509E591 +:101620000BF5F0E50B35F0F509E509F5F0E50055AA +:10163000F0F500E500F5F0E50C45F0F50C7500015E +:10164000C3E50DF5F0E50E95F0F509E50BF5F0E5D0 +:101650000B35F0F509E50EF5F0E50D95F0F501E532 +:101660000BF5F0E50B35F0F501E501F5F0E5094581 +:10167000F0F509E50AF5F0E50965F0F509E509F584 +:10168000F0E50055F0F500C3E513F5F0E51295F02F +:10169000F509E50BF5F0E50B35F0F509E512F5F088 +:1016A000E51395F0F501E50BF5F0E50B35F0F501E7 +:1016B000E501F5F0E50945F0F509E50AF5F0E5097C +:1016C00065F0F509E509F5F0E50055F0F500C3E52D +:1016D00014F5F0E51195F0F509E50BF5F0E50B359E +:1016E000F0F509E511F5F0E51495F0F501E50BF5D8 +:1016F000F0E50B35F0F501E501F5F0E50945F0F50C +:1017000009E50AF5F0E50965F0F509E509F5F0E503 +:101710000055F0F500C375E0452506F58275E0003B +:101720003507F583E0F508E508F5F0E51095F0F5E7 +:1017300009E50BF5F0E50B35F0F509E509F5F0E500 +:101740000055F0F500E500F5F0E50C45F0F50C75F9 +:101750000101C3750000E50CF5F0E50095F0F5001A +:10176000750000E500F5F0E50035F0F500E500F561 +:10177000F0E50165F0F501C3750000E50FF5F0E552 +:101780000095F0F500750000E500F5F0E50035F096 +:10179000F500E500F5F0E50165F0F501C375000021 +:1017A000E515F5F0E50095F0F500750000E500F5AC +:1017B000F0E50035F0F500E500F5F0E50165F0F540 +:1017C00001C3750000E516F5F0E50095F0F500752C +:1017D0000000E500F5F0E50035F0F500E500F5F076 +:1017E000E50165F0F501750900750A00750B0075D6 +:1017F0000000E501F5F0E50045F0F500E509F5F03C +:10180000E50045F0F500E50AF5F0E50045F0F500E6 +:10181000E50BF5F0E50045F0F500E500700280030A +:10182000021B2400E506F50AE507F501750900C36A +:10183000750000E509F5F0E50A35F0F50EE500F56F +:10184000F0E50135F0F50F750904750B00750C0016 +:10185000750D00C3750000E510F5F0E509A4F50A63 +:10186000E510F5F0E509A4E5F0F501E50AF5F0E588 +:101870000035F0F500E511F5F0E509A4F50AE511EC +:10188000F5F0E509A4E5F0F509E50AF5F0E501351F +:10189000F0F501C3C3750900E500F5F0E50C35F07E +:1018A000F50CE501F5F0E50D35F0F50DC37501001A +:1018B000E510F5F0E50BA4F50AE510F5F0E50BA44D +:1018C000E5F0F509E50AF5F0E50135F0F5017500FB +:1018D00000C3C3750900E500F5F0E50C35F0F50C23 +:1018E000E501F5F0E50D35F0F50DC3750000750166 +:1018F00000C3C3750900E500F5F0E50C35F0F50C03 +:10190000E501F5F0E50D35F0F50DC3750000750145 +:1019100000C3C3750900E500F5F0E50C35F0F50CE2 +:10192000E501F5F0E50D35F0F50DC3750000E50CAA +:10193000F5F0E50E35F0F500E50DF5F0E50F35F0C5 +:10194000F501E500F509E501F50A750100C375002B +:1019500000E501F5F0E50935F0F501E500F5F0E504 +:101960000A35F0F500E500F502E501F582E502F53E +:1019700083E0F50B750101C3750000E501F5F0E5A5 +:101980000935F0F501E500F5F0E50A35F0F500E57B +:1019900000F502E501F582E502F583E0F50D75013C +:1019A00002C3750000E501F5F0E50935F0F501E544 +:1019B00000F5F0E50A35F0F500E500F502E501F582 +:1019C00082E502F583E0F50F750103C3750000E5BC +:1019D00001F5F0E50935F0F501E500F5F0E50A352A +:1019E000F0F500E500F502E501F582E502F583E09A +:1019F000F50CC375000075E0452506F58275E0001D +:101A00003507F583E0F508E508F5F0E51035F0F564 +:101A100000E514F5F0E51135F0F501E513F5F0E515 +:101A20001235F0F50975E0402506F58275E00035C0 +:101A300007F583E0F508E508F5F0E51735F0F50A58 +:101A4000E50DF50E750D00C3E500F5F0E50B95F01D +:101A5000F500E500F5F0E50D45F0F50DC3E501F500 +:101A6000F0E50E95F0F500E500F5F0E50D45F0F533 +:101A70000DC3E509F5F0E50F95F0F500E500F5F08B +:101A8000E50D45F0F50DC3E50AF5F0E50C95F0F52B +:101A900000E500F5F0E50D45F0F50D75010075095F +:101AA00000750A00750000E50DF5F0E50045F0F55C +:101AB00000E501F5F0E50045F0F500E509F5F0E594 +:101AC0000045F0F500E50AF5F0E50045F0F500E524 +:101AD0000070028003021B14007501017509007576 +:101AE0000A00750B00C3750000E501F5F0E510353F +:101AF000F0F510E509F5F0E51135F0F511E50AF519 +:101B0000F0E51235F0F512E50BF5F0E51735F0F5D7 +:101B1000170214A600751F01751E00751D00751CA7 +:101B200000021AD900750000750100750900750AD8 +:101B300000E500F502E501F503E509F504E50AF520 +:101B40000575E04F2506F58275E0003507F583E061 +:101B5000F51775E04E2506F58275E0003507F5832B +:101B6000E0F51675E04D2506F58275E0003507F5C0 +:101B700083E0F51575E04C2506F58275E000350724 +:101B8000F583E0F51475E04B2506F58275E0003528 +:101B900007F583E0F51375E04A2506F58275E00048 +:101BA0003507F583E0F51275E0492506F58275E005 +:101BB000003507F583E0F51175E0482506F58275D7 +:101BC000E0003507F583E0F51075E0462506F5825F +:101BD00075E0003507F583E0F508E508C0E075E03D +:101BE000472506F58275E0003507F583E0F508E541 +:101BF00008C0E075E0562506F50675E0003507F5E6 +:101C000007E502F582E503F583E504F500E505F552 +:101C1000012200E506758242C39582F506E5077547 +:101C200083009583F507D0E0F50875E0412506F5BA +:101C30008275E0003507F583E508F0D0E0F508751A +:101C4000E0402506F58275E0003507F583E508F0EC +:101C5000751F10751E00751D00751C00E506F50A40 +:101C6000E507F501750900C3750000E509F5F0E524 +:101C70000A35F0F51BE500F5F0E50135F0F51A122F +:101C80000010751F00751E00751D00751C00E5060F +:101C9000F50AE507F501750900C3750000E509F5CA +:101CA000F0E50A35F0F51BE500F5F0E50135F0F556 +:101CB0001A120010751F01751E00751D00751C009D +:101CC000E506F50AE507F501750900C3750000E5AD +:101CD00009F5F0E50A35F0F51BE500F5F0E501350D +:101CE000F0F51A120010751F02751E00751D0075A3 +:101CF0001C00E506F50AE507F501750900C3750046 +:101D000000E509F5F0E50A35F0F51BE500F5F0E52D +:101D10000135F0F51A120010750E10750C00750AD9 +:101D200000750100750D01750B0075090075000047 +:101D3000C3E50DF5F0E50E95F0F51FE50BF5F0E5C3 +:101D40000C95F0F51EE509F5F0E50A95F0F51DE5B1 +:101D500000F5F0E50195F0F51CE506F50AE507F557 +:101D600001750900C3750000E509F5F0E50A35F0D5 +:101D7000F51BE500F5F0E50135F0F51A12001075D8 +:101D80000000750100750900750A00E500F502E51F +:101D900001F503E509F504E50AF50575E0402506BA +:101DA000F58275E0003507F583E0F508E508C0E049 +:101DB00075E0412506F58275E0003507F583E0F50D +:101DC00008E508C0E075E0422506F50675E0003537 +:101DD00007F507E502F582E503F583E504F500E57F +:101DE00005F50122000000000000000000000000D6 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr29581-3.s.expected b/tests/GCCTestSuite/pr29581-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr29581-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr29637.c b/tests/GCCTestSuite/pr29637.c new file mode 100644 index 0000000..5dfee41 --- /dev/null +++ b/tests/GCCTestSuite/pr29637.c @@ -0,0 +1,23 @@ +/* PR tree-optimization/29637 */ +/* { dg-do compile } */ +/* { dg-options "-O2 -ftree-vectorize" } */ + +typedef struct __attribute__ ((aligned (8))) +{ + short a, b, c, d; +} A; + +typedef struct +{ + A a[24]; +} B; + +static const A b = { 0, 0, 1, -1 }; + +void +foo (B *x) +{ + int i; + for (i = 0; i <= 20; i += 4) + x->a[i] = b; +} diff --git a/tests/GCCTestSuite/pr29637.c.expected b/tests/GCCTestSuite/pr29637.c.expected new file mode 100644 index 0000000..5dfee41 --- /dev/null +++ b/tests/GCCTestSuite/pr29637.c.expected @@ -0,0 +1,23 @@ +/* PR tree-optimization/29637 */ +/* { dg-do compile } */ +/* { dg-options "-O2 -ftree-vectorize" } */ + +typedef struct __attribute__ ((aligned (8))) +{ + short a, b, c, d; +} A; + +typedef struct +{ + A a[24]; +} B; + +static const A b = { 0, 0, 1, -1 }; + +void +foo (B *x) +{ + int i; + for (i = 0; i <= 20; i += 4) + x->a[i] = b; +} diff --git a/tests/GCCTestSuite/pr29637.hex.expected b/tests/GCCTestSuite/pr29637.hex.expected new file mode 100644 index 0000000..e7bf5ea --- /dev/null +++ b/tests/GCCTestSuite/pr29637.hex.expected @@ -0,0 +1,247 @@ +:1000000000E506758209C39582F506E5077583004C +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0E5173C +:10004000F51BE516F51CE515F51D75E0062506F50D +:100050008275E0003507F583E514F075E0052506A7 +:10006000F58275E0003507F583E513F075E00425AA +:1000700006F58275E0003507F583E512F075E003BB +:100080002506F58275E0003507F583E511F075E08A +:10009000022506F58275E0003507F583E510F0E5E9 +:1000A0001FF51AE51EF5197511007512007513007C +:1000B000751400751814751700750F00751000E59C +:1000C00014F50E750080E500F5F0E51025F0F5104B +:1000D000E500F5F0E50E25F0F50E750B00750C004A +:1000E000751600750D00750A00751501750001C3C0 +:1000F000E50EF5F0E51095F0F509E50AF5F0E50AED +:1001000035F0F509E509F5F0E50055F0F500E500F5 +:10011000F5F0E50B45F0F50B750001C3E50EF5F0C4 +:10012000E51095F0F509E50AF5F0E50A35F0F50971 +:10013000E510F5F0E50E95F0F501E50AF5F0E50AB4 +:1001400035F0F501E501F5F0E50945F0F509E515AE +:10015000F5F0E50965F0F509E509F5F0E50055F07C +:10016000F500C3E513F5F0E50F95F0F509E50AF59F +:10017000F0E50A35F0F509E509F5F0E50055F0F58B +:1001800000E500F5F0E50B45F0F50B750001C3E562 +:100190000EF5F0E51095F0F509E50AF5F0E50A35FC +:1001A000F0F509E510F5F0E50E95F0F501E50AF535 +:1001B000F0E50A35F0F501E501F5F0E50945F0F562 +:1001C00009E515F5F0E50965F0F509E509F5F0E54E +:1001D0000055F0F500C3E513F5F0E50F95F0F509CE +:1001E000E50AF5F0E50A35F0F509E50FF5F0E51358 +:1001F00095F0F501E50AF5F0E50A35F0F501E501C0 +:10020000F5F0E50945F0F509E515F5F0E50965F0C6 +:10021000F509E509F5F0E50055F0F500C3E512F53F +:10022000F0E51795F0F509E50AF5F0E50A35F0F582 +:1002300009E509F5F0E50055F0F500E500F5F0E514 +:100240000B45F0F50B750001C3E50EF5F0E51095D3 +:10025000F0F509E50AF5F0E50A35F0F509E510F5E0 +:10026000F0E50E95F0F501E50AF5F0E50A35F0F553 +:1002700001E501F5F0E50945F0F509E515F5F0E5CD +:100280000965F0F509E509F5F0E50055F0F500C35D +:10029000E513F5F0E50F95F0F509E50AF5F0E50A47 +:1002A00035F0F509E50FF5F0E51395F0F501E50AF0 +:1002B000F5F0E50A35F0F501E501F5F0E50945F061 +:1002C000F509E515F5F0E50965F0F509E509F5F03D +:1002D000E50055F0F500C3E512F5F0E51795F0F5EA +:1002E00009E50AF5F0E50A35F0F509E517F5F0E559 +:1002F0001295F0F501E50AF5F0E50A35F0F501E5AE +:1003000001F5F0E50945F0F509E515F5F0E50965B4 +:10031000F0F509E509F5F0E50055F0F500C3E51144 +:10032000F5F0E51895F0F509E50AF5F0E50A35F080 +:10033000F509E509F5F0E50055F0F500E500F5F003 +:10034000E50B45F0F50BE50BF500E516F501750B32 +:1003500001C3750900E500F5F0E50995F0F50975AB +:100360000900E509F5F0E50935F0F509E509F5F0CD +:10037000E50B65F0F50BC3750900E50CF5F0E50933 +:1003800095F0F509750900E509F5F0E50935F0F591 +:1003900009E509F5F0E50B65F0F50BC3750900E516 +:1003A00001F5F0E50995F0F509750900E509F5F0A5 +:1003B000E50935F0F509E509F5F0E50B65F0F50B14 +:1003C000C3750900E50DF5F0E50995F0F509750926 +:1003D00000E509F5F0E50935F0F509E509F5F0E581 +:1003E0000B65F0F50B750C00751600750D00E50C2E +:1003F000F500E516F501E50DF509750C01C3750A63 +:1004000000E50BF5F0E50A95F0F50A750A00E50A36 +:10041000F5F0E50A35F0F50AE50AF5F0E50C65F0CA +:10042000F50CC3750A00E500F5F0E50A95F0F50A4C +:10043000750A00E50AF5F0E50A35F0F50AE50AF572 +:10044000F0E50C65F0F50CC3750A00E501F5F0E583 +:100450000A95F0F50A750A00E50AF5F0E50A35F0A7 +:10046000F50AE50AF5F0E50C65F0F50CC3750A0030 +:10047000E509F5F0E50A95F0F50A750A00E50AF5D3 +:10048000F0E50A35F0F50AE50AF5F0E50C65F0F55A +:100490000C750100750900750A00750000E50CF582 +:1004A000F0E50045F0F500E501F5F0E50045F0F573 +:1004B00000E509F5F0E50045F0F500E50AF5F0E5A1 +:1004C0000045F0F500E50070028003020EA2007501 +:1004D0000100C3750000E501F5F0E51A35F0F509F6 +:1004E000E500F5F0E51935F0F50A750100C3750072 +:1004F00000E501F5F0E50935F0F501E500F5F0E579 +:100500000A35F0F500E500F502E501F582E502F5B2 +:1005100083E0F50E750101C3750000E501F5F0E516 +:100520000935F0F501E500F5F0E50A35F0F500E5EF +:1005300000F502E501F582E502F583E0F50F7509A6 +:1005400008750B00750C00750D00C3750000E511F2 +:10055000F5F0E509A4F50AE511F5F0E509A4E5F0E3 +:10056000F501E50AF5F0E50035F0F500E512F5F0E6 +:10057000E509A4F50AE512F5F0E509A4E5F0F509A9 +:10058000E50AF5F0E50135F0F501C3C3750900E5AD +:1005900000F5F0E50C35F0F50CE501F5F0E50D356D +:1005A000F0F50DC3750100E511F5F0E50BA4F50AB2 +:1005B000E511F5F0E50BA4E5F0F509E50AF5F0E540 +:1005C0000135F0F501750000C3C3750900E500F5BC +:1005D000F0E50C35F0F50CE501F5F0E50D35F0F53D +:1005E0000DC3750000750100C3C3750900E500F572 +:1005F000F0E50C35F0F50CE501F5F0E50D35F0F51D +:100600000DC3750000750100C3C3750900E500F551 +:10061000F0E50C35F0F50CE501F5F0E50D35F0F5FC +:100620000DC3750000E50CF5F0E50E35F0F500E5BD +:100630000DF5F0E50F35F0F509750A00C3750100F9 +:10064000E50AF5F0E50035F0F50CE501F5F0E50912 +:1006500035F0F50D900000E582F509900000E58386 +:10066000F50A750100C3750000E501F5F0E50935EF +:10067000F0F501E500F5F0E50A35F0F500E501F5E6 +:1006800009E500F50A750100C3750000E501F5F004 +:10069000E50935F0F501E500F5F0E50A35F0F5007E +:1006A000E500F502E501F582E502F583E0F50B755D +:1006B0000101C3750000E501F5F0E50935F0F5012C +:1006C000E500F5F0E50A35F0F500E500F502E50195 +:1006D000F582E502F583E0F509750100C3750000B8 +:1006E000E501F5F0E50C35F0F501E500F5F0E50D77 +:1006F00035F0F500E50BF503E500F502E501F582BF +:10070000E502F583E503F0750101C3750000E5011D +:10071000F5F0E50C35F0F501E500F5F0E50D35F007 +:10072000F500E509F503E500F502E501F582E502CE +:10073000F583E503F0750100C3750000E501F5F0F0 +:10074000E51A35F0F509E500F5F0E51935F0F50A9B +:10075000750100C3750000E501F5F0E50935F0F518 +:1007600001E500F5F0E50A35F0F500E500F502E5F4 +:1007700001F582E502F583E0F50E750101C3750010 +:1007800000E501F5F0E50935F0F501E500F5F0E5E6 +:100790000A35F0F500E500F502E501F582E502F520 +:1007A00083E0F50F750908750B00750C00750D00D9 +:1007B000C3750000E511F5F0E509A4F50AE511F5AA +:1007C000F0E509A4E5F0F501E50AF5F0E50035F0FE +:1007D000F500E512F5F0E509A4F50AE512F5F0E5F6 +:1007E00009A4E5F0F509E50AF5F0E50135F0F501B4 +:1007F000C3C3750900E500F5F0E50C35F0F50CE52F +:1008000001F5F0E50D35F0F50DC3750100E511F5C5 +:10081000F0E50BA4F50AE511F5F0E50BA4E5F0F51C +:1008200009E50AF5F0E50135F0F501750000C3C3EF +:10083000750900E500F5F0E50C35F0F50CE501F57E +:10084000F0E50D35F0F50DC3750000750100C3C36B +:10085000750900E500F5F0E50C35F0F50CE501F55E +:10086000F0E50D35F0F50DC3750000750100C3C34B +:10087000750900E500F5F0E50C35F0F50CE501F53E +:10088000F0E50D35F0F50DC3750000E50CF5F0E56C +:100890000E35F0F500E50DF5F0E50F35F0F50975CD +:1008A0000A02C3750100E50AF5F0E50035F0F50C24 +:1008B000E501F5F0E50935F0F50D900000E582F56C +:1008C00009900000E583F50A750102C3750000E593 +:1008D00001F5F0E50935F0F501E500F5F0E50A353B +:1008E000F0F500E501F509E500F50A750100C375AD +:1008F0000000E501F5F0E50935F0F501E500F5F05A +:10090000E50A35F0F500E500F502E501F582E502BE +:10091000F583E0F50B750101C3750000E501F5F005 +:10092000E50935F0F501E500F5F0E50A35F0F500EB +:10093000E500F502E501F582E502F583E0F50975CC +:100940000100C3750000E501F5F0E50C35F0F50197 +:10095000E500F5F0E50D35F0F500E50BF503E500F4 +:10096000F502E501F582E502F583E503F075010185 +:10097000C3750000E501F5F0E50C35F0F501E50083 +:10098000F5F0E50D35F0F500E509F503E500F502B4 +:10099000E501F582E502F583E503F0750100C37515 +:1009A0000000E501F5F0E51A35F0F509E500F5F090 +:1009B000E51935F0F50A750100C3750000E501F58C +:1009C000F0E50935F0F501E500F5F0E50A35F0F55B +:1009D00000E500F502E501F582E502F583E0F50E9C +:1009E000750101C3750000E501F5F0E50935F0F585 +:1009F00001E500F5F0E50A35F0F500E500F502E562 +:100A000001F582E502F583E0F50F750908750B0025 +:100A1000750C00750D00C3750000E511F5F0E509D2 +:100A2000A4F50AE511F5F0E509A4E5F0F501E50AFC +:100A3000F5F0E50035F0F500E512F5F0E509A4F56F +:100A40000AE512F5F0E509A4E5F0F509E50AF5F087 +:100A5000E50135F0F501C3C3750900E500F5F0E5E2 +:100A60000C35F0F50CE501F5F0E50D35F0F50DC3AD +:100A7000750100E511F5F0E50BA4F50AE511F5F0B7 +:100A8000E50BA4E5F0F509E50AF5F0E50135F0F52B +:100A900001750000C3C3750900E500F5F0E50C35EC +:100AA000F0F50CE501F5F0E50D35F0F50DC3750039 +:100AB00000750100C3C3750900E500F5F0E50C35CC +:100AC000F0F50CE501F5F0E50D35F0F50DC3750019 +:100AD00000750100C3C3750900E500F5F0E50C35AC +:100AE000F0F50CE501F5F0E50D35F0F50DC37500F9 +:100AF00000E50CF5F0E50E35F0F500E50DF5F0E557 +:100B00000F35F0F509750A04C3750100E50AF5F023 +:100B1000E50035F0F50CE501F5F0E50935F0F50DEA +:100B2000900000E582F509900000E583F50A750163 +:100B300004C3750000E501F5F0E50935F0F501E5C0 +:100B400000F5F0E50A35F0F500E501F509E500F5F9 +:100B50000A750100C3750000E501F5F0E50935F0FF +:100B6000F501E500F5F0E50A35F0F500E500F502E0 +:100B7000E501F582E502F583E0F50B750101C3752A +:100B80000000E501F5F0E50935F0F501E500F5F0C7 +:100B9000E50A35F0F500E500F502E501F582E5022C +:100BA000F583E0F509750100C3750000E501F5F076 +:100BB000E50C35F0F501E500F5F0E50D35F0F50053 +:100BC000E50BF503E500F502E501F582E502F583A5 +:100BD000E503F0750101C3750000E501F5F0E50CD2 +:100BE00035F0F501E500F5F0E50D35F0F500E50926 +:100BF000F503E500F502E501F582E502F583E5037D +:100C0000F0750100C3750000E501F5F0E51A35F057 +:100C1000F509E500F5F0E51935F0F50A750100C3B1 +:100C2000750000E501F5F0E50935F0F501E500F5A1 +:100C3000F0E50A35F0F500E500F502E501F582E59D +:100C400002F583E0F50E750101C3750000E501F5BD +:100C5000F0E50935F0F501E500F5F0E50A35F0F5C8 +:100C600000E500F502E501F582E502F583E0F50F08 +:100C7000750908750B00750C00750D00C375000033 +:100C8000E511F5F0E509A4F50AE511F5F0E509A48B +:100C9000E5F0F501E50AF5F0E50035F0F500E512BF +:100CA000F5F0E509A4F50AE512F5F0E509A4E5F08B +:100CB000F509E50AF5F0E50135F0F501C3C375095D +:100CC00000E500F5F0E50C35F0F50CE501F5F0E593 +:100CD0000D35F0F50DC3750100E511F5F0E50BA438 +:100CE000F50AE511F5F0E50BA4E5F0F509E50AF5DF +:100CF000F0E50135F0F501750000C3C3750900E5A5 +:100D000000F5F0E50C35F0F50CE501F5F0E50D35F5 +:100D1000F0F50DC3750000750100C3C3750900E54A +:100D200000F5F0E50C35F0F50CE501F5F0E50D35D5 +:100D3000F0F50DC3750000750100C3C3750900E52A +:100D400000F5F0E50C35F0F50CE501F5F0E50D35B5 +:100D5000F0F50DC3750000E50CF5F0E50E35F0F586 +:100D600000E50DF5F0E50F35F0F509750A06C375D8 +:100D70000100E50AF5F0E50035F0F50CE501F5F0C8 +:100D8000E50935F0F50D900000E582F509900000C9 +:100D9000E583F50A750106C3750000E501F5F0E588 +:100DA0000935F0F501E500F5F0E50A35F0F500E567 +:100DB00001F509E500F50A750100C3750000E501BC +:100DC000F5F0E50935F0F501E500F5F0E50A35F057 +:100DD000F500E500F502E501F582E502F583E0F5B1 +:100DE0000B750101C3750000E501F5F0E50935F06B +:100DF000F501E500F5F0E50A35F0F500E500F5024E +:100E0000E501F582E502F583E0F509750100C3759A +:100E10000000E501F5F0E50C35F0F501E500F5F031 +:100E2000E50D35F0F500E50BF503E500F502E5010C +:100E3000F582E502F583E503F0750101C375000055 +:100E4000E501F5F0E50C35F0F501E500F5F0E50D0F +:100E500035F0F500E509F503E500F502E501F58259 +:100E6000E502F583E503F0750104750900750A00D4 +:100E7000750B00C3750000E501F5F0E51135F0F5DF +:100E800011E509F5F0E51235F0F512E50AF5F0E5A2 +:100E90001335F0F513E50BF5F0E51435F0F5140214 +:100EA00000B300750000E500F502E500F503E5007C +:100EB000F504E500F505E51BF517E51CF516E51D40 +:100EC000F51575E0062506F58275E0003507F58312 +:100ED000E0F51475E0052506F58275E0003507F5A7 +:100EE00083E0F51375E0042506F58275E00035070B +:100EF000F583E0F51275E0032506F58275E000350F +:100F000007F583E0F51175E0022506F58275E0002E +:100F10003507F583E0F51075E0002506F58275E0EC +:100F2000003507F583E0F508E508C0E075E0012528 +:100F300006F58275E0003507F583E0F508E508C0A1 +:100F4000E075E0092506F50675E0003507F507E5CB +:100F500002F582E503F583E504F500E505F50122D8 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr29637.s.expected b/tests/GCCTestSuite/pr29637.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr29637.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr29736.c b/tests/GCCTestSuite/pr29736.c new file mode 100644 index 0000000..54eb9aa --- /dev/null +++ b/tests/GCCTestSuite/pr29736.c @@ -0,0 +1,13 @@ +/* PR c/29736 */ + +int __attribute__ ((vector_size (8), vector_size (8))) v; /* { dg-error "invalid vector type" } */ + +extern int __attribute__ ((vector_size (8))) w; +int __attribute__ ((vector_size (8))) w; + +void +foo () +{ + v = v + v; + w = w + w; +} diff --git a/tests/GCCTestSuite/pr29736.c.expected b/tests/GCCTestSuite/pr29736.c.expected new file mode 100644 index 0000000..54eb9aa --- /dev/null +++ b/tests/GCCTestSuite/pr29736.c.expected @@ -0,0 +1,13 @@ +/* PR c/29736 */ + +int __attribute__ ((vector_size (8), vector_size (8))) v; /* { dg-error "invalid vector type" } */ + +extern int __attribute__ ((vector_size (8))) w; +int __attribute__ ((vector_size (8))) w; + +void +foo () +{ + v = v + v; + w = w + w; +} diff --git a/tests/GCCTestSuite/pr29736.hex.expected b/tests/GCCTestSuite/pr29736.hex.expected new file mode 100644 index 0000000..792f614 --- /dev/null +++ b/tests/GCCTestSuite/pr29736.hex.expected @@ -0,0 +1,83 @@ +:1000000000D0E0F51CD0E0F51DE513F518E512F57C +:1000100019E511F51AE510F51B900000E582F512BF +:10002000900000E583F513900000E582F50990004B +:1000300000E583F50A750100C3750000E501F5F0E0 +:10004000E50935F0F501E500F5F0E50A35F0F500D4 +:10005000E500F502E501F582E502F583E0F50E75B0 +:100060000101C3750000E501F5F0E50935F0F50182 +:10007000E500F5F0E50A35F0F500E500F502E501EB +:10008000F582E502F583E0F50F750102C375000006 +:10009000E501F5F0E50935F0F501E500F5F0E50AD3 +:1000A00035F0F500E500F502E501F582E502F5839E +:1000B000E0F510750103C3750000E501F5F0E509F1 +:1000C00035F0F501E500F5F0E50A35F0F500E5005D +:1000D000F502E501F582E502F583E0F511900000F7 +:1000E000E582F509900000E583F50A750100C37506 +:1000F0000000E501F5F0E50935F0F501E500F5F062 +:10010000E50A35F0F500E500F502E501F582E502C6 +:10011000F583E0F50B750101C3750000E501F5F00D +:10012000E50935F0F501E500F5F0E50A35F0F500F3 +:10013000E500F502E501F582E502F583E0F50C75D1 +:100140000102C3750000E501F5F0E50935F0F501A0 +:10015000E500F5F0E50A35F0F500E500F502E5010A +:10016000F582E502F583E0F50D750103C375000026 +:10017000E501F5F0E50935F0F501E500F5F0E50AF2 +:1001800035F0F500E500F502E501F582E502F583BD +:10019000E0F501C3750000E50BF5F0E50E35F0F56F +:1001A00000E50CF5F0E50F35F0F509E50DF5F0E5A6 +:1001B0001035F0F50AE501F5F0E51135F0F50C75AF +:1001C0000B00C3750100E50BF5F0E51235F0F50BFA +:1001D000E501F5F0E51335F0F501E500F503E5017E +:1001E000F502E50BF582E502F583E503F0750B01F9 +:1001F000C3750000E50BF5F0E51235F0F50BE500F1 +:10020000F5F0E51335F0F501E509F503E501F50233 +:10021000E50BF582E502F583E503F0750B02C37586 +:100220000000E50BF5F0E51235F0F50BE500F5F013 +:10023000E51335F0F501E50AF503E501F502E50BF7 +:10024000F582E502F583E503F0750B03C375000045 +:10025000E50BF5F0E51235F0F50BE500F5F0E513EB +:1002600035F0F501E50CF503E501F502E50BF58246 +:10027000E502F583E503F0900004E582F5129000B5 +:1002800004E583F513900004E582F509900004E588 +:1002900083F50A750100C3750000E501F5F0E50975 +:1002A00035F0F501E500F5F0E50A35F0F500E5007B +:1002B000F502E501F582E502F583E0F50E75010131 +:1002C000C3750000E501F5F0E50935F0F501E5003D +:1002D000F5F0E50A35F0F500E500F502E501F582F7 +:1002E000E502F583E0F50F750102C3750000E50135 +:1002F000F5F0E50935F0F501E500F5F0E50A35F032 +:10030000F500E500F502E501F582E502F583E0F58B +:1003100010750103C3750000E501F5F0E50935F03E +:10032000F501E500F5F0E50A35F0F500E500F50228 +:10033000E501F582E502F583E0F511900004E58220 +:10034000F509900004E583F50A750100C375000006 +:10035000E501F5F0E50935F0F501E500F5F0E50A10 +:1003600035F0F500E500F502E501F582E502F583DB +:10037000E0F50B750101C3750000E501F5F0E50935 +:1003800035F0F501E500F5F0E50A35F0F500E5009A +:10039000F502E501F582E502F583E0F50C75010251 +:1003A000C3750000E501F5F0E50935F0F501E5005C +:1003B000F5F0E50A35F0F500E500F502E501F58216 +:1003C000E502F583E0F50D750103C3750000E50155 +:1003D000F5F0E50935F0F501E500F5F0E50A35F051 +:1003E000F500E500F502E501F582E502F583E0F5AB +:1003F00001C3750000E50BF5F0E50E35F0F500E5FD +:100400000CF5F0E50F35F0F509E50DF5F0E51035E3 +:10041000F0F50AE501F5F0E51135F0F50C750B0086 +:10042000C3750100E50BF5F0E51235F0F50BE501BC +:10043000F5F0E51335F0F501E500F503E501F5020A +:10044000E50BF582E502F583E503F0750B01C37555 +:100450000000E50BF5F0E51235F0F50BE500F5F0E1 +:10046000E51335F0F501E509F503E501F502E50BC6 +:10047000F582E502F583E503F0750B02C375000014 +:10048000E50BF5F0E51235F0F50BE500F5F0E513B9 +:1004900035F0F501E50AF503E501F502E50BF58216 +:1004A000E502F583E503F0750B03C3750000E50B6A +:1004B000F5F0E51235F0F50BE500F5F0E51335F054 +:1004C000F501E50CF503E501F502E50BF582E50222 +:1004D000F583E503F0750000E500F502E500F5039E +:1004E000E500F504E500F505E518F513E519F51245 +:1004F000E51AF511E51BF510E51DC0E0E51CC0E0AF +:10050000E502F582E503F583E504F500E505F5016F +:1005100022000000000000000000000000000000B9 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr29736.s.expected b/tests/GCCTestSuite/pr29736.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr29736.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr3074-1.c b/tests/GCCTestSuite/pr3074-1.c new file mode 100644 index 0000000..c2258d5 --- /dev/null +++ b/tests/GCCTestSuite/pr3074-1.c @@ -0,0 +1,10 @@ +/* PR middle-end/3074 */ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +void foo() +{ + int a; + 5 * (a == 1) | (a == 2); /* { dg-warning "no effect" "no effect" } */ +} + diff --git a/tests/GCCTestSuite/pr3074-1.c.expected b/tests/GCCTestSuite/pr3074-1.c.expected new file mode 100644 index 0000000..c2258d5 --- /dev/null +++ b/tests/GCCTestSuite/pr3074-1.c.expected @@ -0,0 +1,10 @@ +/* PR middle-end/3074 */ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +void foo() +{ + int a; + 5 * (a == 1) | (a == 2); /* { dg-warning "no effect" "no effect" } */ +} + diff --git a/tests/GCCTestSuite/pr3074-1.hex.expected b/tests/GCCTestSuite/pr3074-1.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/pr3074-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr3074-1.s.expected b/tests/GCCTestSuite/pr3074-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr3074-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pr32450.c b/tests/GCCTestSuite/pr32450.c new file mode 100644 index 0000000..7261a3e --- /dev/null +++ b/tests/GCCTestSuite/pr32450.c @@ -0,0 +1,33 @@ +/* Contributed by Joost VandeVondele */ + +/* { dg-do run } */ +/* { dg-require-profiling "-pg" } */ +/* { dg-options "-O2 -pg" } */ +/* { dg-options "-O2 -pg -static" { target hppa*-*-hpux* } } */ + +extern void abort (void); + +int stack_pointer=0; + +void +__attribute__((noinline)) +mystop () +{ + abort (); +} + +void +__attribute__((noinline)) +add () +{ + if (stack_pointer + 1 > 10) + mystop (); + + stack_pointer = stack_pointer + 1; +} + +int main () +{ + add (); + return stack_pointer - 1; +} diff --git a/tests/GCCTestSuite/pr32450.c.expected b/tests/GCCTestSuite/pr32450.c.expected new file mode 100644 index 0000000..7261a3e --- /dev/null +++ b/tests/GCCTestSuite/pr32450.c.expected @@ -0,0 +1,33 @@ +/* Contributed by Joost VandeVondele */ + +/* { dg-do run } */ +/* { dg-require-profiling "-pg" } */ +/* { dg-options "-O2 -pg" } */ +/* { dg-options "-O2 -pg -static" { target hppa*-*-hpux* } } */ + +extern void abort (void); + +int stack_pointer=0; + +void +__attribute__((noinline)) +mystop () +{ + abort (); +} + +void +__attribute__((noinline)) +add () +{ + if (stack_pointer + 1 > 10) + mystop (); + + stack_pointer = stack_pointer + 1; +} + +int main () +{ + add (); + return stack_pointer - 1; +} diff --git a/tests/GCCTestSuite/pr32450.hex.expected b/tests/GCCTestSuite/pr32450.hex.expected new file mode 100644 index 0000000..0e82a6f --- /dev/null +++ b/tests/GCCTestSuite/pr32450.hex.expected @@ -0,0 +1,165 @@ +:1000000075812F7506FF7507FF1207C102000C00EE +:1000100000E506758202C39582F506E50775830043 +:100020009583F507D0E0F50875E0012506F58275A2 +:10003000E0003507F583E508F0D0E0F50875E0004D +:100040002506F58275E0003507F583E508F07500B3 +:1000500000E500F502E500F503E500F504E500F52F +:100060000575E0002506F58275E0003507F583E0AB +:10007000F508E508C0E075E0012506F58275E000A9 +:100080003507F583E0F508E508C0E075E0022506D0 +:10009000F50675E0003507F507E502F582E503F59D +:1000A00083E504F500E505F5012200E50675820A01 +:1000B000C39582F506E5077583009583F507D0E0C3 +:1000C000F50875E0012506F58275E0003507F58332 +:1000D000E508F0D0E0F50875E0002506F58275E04A +:1000E000003507F583E508F075E0092506F582750A +:1000F000E0003507F583E517F075E0082506F58281 +:1001000075E0003507F583E516F075E0072506F57F +:100110008275E0003507F583E515F075E0062506E4 +:10012000F58275E0003507F583E514F075E00525E7 +:1001300006F58275E0003507F583E513F075E004F8 +:100140002506F58275E0003507F583E512F075E0C8 +:10015000032506F58275E0003507F583E511F07596 +:10016000E0022506F58275E0003507F583E510F01D +:10017000900000E582F509900000E583F50B75011C +:1001800000C3750000E501F5F0E50935F0F501E57E +:1001900000F5F0E50B35F0F500E500F502E501F5B9 +:1001A00082E502F583E0F50F750101C3750000E5F6 +:1001B00001F5F0E50935F0F501E500F5F0E50B3561 +:1001C000F0F500E500F502E501F582E502F583E0D2 +:1001D000F50C750102C3750000E501F5F0E5093580 +:1001E000F0F501E500F5F0E50B35F0F500E500F57B +:1001F00002E501F582E502F583E0F50A750103C326 +:10020000750000E501F5F0E50935F0F501E500F5CB +:10021000F0E50B35F0F500E500F502E501F582E5C6 +:1002200002F583E0F501750E01750B007509007587 +:100230000000C3750D00E50EF5F0E50F35F0F5167D +:10024000E50BF5F0E50C35F0F50EE509F5F0E50AFE +:1002500035F0F50FE500F5F0E50135F0F51075170F +:100260000A751100751200751300750080E500F520 +:10027000F0E51325F0F513E500F5F0E51025F0F5B0 +:1002800010750C00750D00751400751500750B00C8 +:10029000750A01750001C3E510F5F0E51395F0F559 +:1002A00009E50BF5F0E50B35F0F509E509F5F0E5A5 +:1002B0000055F0F500E500F5F0E50C45F0F50C759E +:1002C0000001C3E510F5F0E51395F0F509E50BF530 +:1002D000F0E50B35F0F509E513F5F0E51095F0F5CF +:1002E00001E50BF5F0E50B35F0F501E501F5F0E57D +:1002F0000945F0F509E50AF5F0E50965F0F509E5C8 +:1003000009F5F0E50055F0F500C3E50FF5F0E5124D +:1003100095F0F509E50BF5F0E50B35F0F509E50984 +:10032000F5F0E50055F0F500E500F5F0E50C45F0D9 +:10033000F50C750001C3E510F5F0E51395F0F5092E +:10034000E50BF5F0E50B35F0F509E513F5F0E510F3 +:1003500095F0F501E50BF5F0E50B35F0F501E5015C +:10036000F5F0E50945F0F509E50AF5F0E50965F070 +:10037000F509E509F5F0E50055F0F500C3E50FF5E1 +:10038000F0E51295F0F509E50BF5F0E50B35F0F524 +:1003900009E512F5F0E50F95F0F501E50BF5F0E54F +:1003A0000B35F0F501E501F5F0E50945F0F509E556 +:1003B0000AF5F0E50965F0F509E509F5F0E5005500 +:1003C000F0F500C3E50EF5F0E51195F0F509E50B44 +:1003D000F5F0E50B35F0F509E509F5F0E50055F028 +:1003E000F500E500F5F0E50C45F0F50C750001C3EE +:1003F000E510F5F0E51395F0F509E50BF5F0E50BE3 +:1004000035F0F509E513F5F0E51095F0F501E50B8C +:10041000F5F0E50B35F0F501E501F5F0E50945F0FE +:10042000F509E50AF5F0E50965F0F509E509F5F0E6 +:10043000E50055F0F500C3E50FF5F0E51295F0F590 +:1004400009E50BF5F0E50B35F0F509E512F5F0E5FA +:100450000F95F0F501E50BF5F0E50B35F0F501E54D +:1004600001F5F0E50945F0F509E50AF5F0E509655E +:10047000F0F509E509F5F0E50055F0F500C3E50EE6 +:10048000F5F0E51195F0F509E50BF5F0E50B35F024 +:10049000F509E511F5F0E50E95F0F501E50BF5F040 +:1004A000E50B35F0F501E501F5F0E50945F0F50955 +:1004B000E50AF5F0E50965F0F509E509F5F0E5006F +:1004C00055F0F500C3E516F5F0E51795F0F509E5EB +:1004D0000BF5F0E50B35F0F509E509F5F0E500550C +:1004E000F0F500E500F5F0E50C45F0F50C750000C1 +:1004F000E50CF5F0E50045F0F500E50DF5F0E5005B +:1005000045F0F500E514F5F0E50045F0F500E515DA +:10051000F5F0E50045F0F500E50070028003020704 +:10052000BA00900000E582F510900000E583F51117 +:10053000900000E582F509900000E583F50A750159 +:1005400000C3750000E501F5F0E50935F0F501E5BA +:1005500000F5F0E50A35F0F500E500F502E501F5F6 +:1005600082E502F583E0F50C750101C3750000E535 +:1005700001F5F0E50935F0F501E500F5F0E50A359E +:10058000F0F500E500F502E501F582E502F583E00E +:10059000F50D750102C3750000E501F5F0E50935BB +:1005A000F0F501E500F5F0E50A35F0F500E500F5B8 +:1005B00002E501F582E502F583E0F50E750103C35E +:1005C000750000E501F5F0E50935F0F501E500F508 +:1005D000F0E50A35F0F500E500F502E501F582E504 +:1005E00002F583E0F50F750101750900750A0075C4 +:1005F0000B00C3750000E501F5F0E50C35F0F500E2 +:10060000E509F5F0E50D35F0F501E50AF5F0E50E43 +:1006100035F0F509E50BF5F0E50F35F0F50C750B48 +:1006200000C3750A00E50BF5F0E51035F0F50BE5B4 +:100630000AF5F0E51135F0F50AE500F503E50AF5F0 +:1006400002E50BF582E502F583E503F0750B01C3C6 +:10065000750000E50BF5F0E51035F0F50BE500F55C +:10066000F0E51135F0F50AE501F503E50AF502E5D7 +:100670000BF582E502F583E503F0750B02C3750007 +:1006800000E50BF5F0E51035F0F50BE500F5F0E5CC +:100690001135F0F50AE509F503E50AF502E50BF574 +:1006A00082E502F583E503F0750B03C3750000E5F1 +:1006B0000BF5F0E51035F0F50BE500F5F0E511353B +:1006C000F0F50AE50CF503E50AF502E50BF582E520 +:1006D00002F583E503F0750000E500F502E500F59D +:1006E00003E500F504E500F50575E0092506F5824A +:1006F00075E0003507F583E0F51775E0082506F588 +:100700008275E0003507F583E0F51675E0072506EC +:10071000F58275E0003507F583E0F51575E00625EF +:1007200006F58275E0003507F583E0F51475E00500 +:100730002506F58275E0003507F583E0F51375E0D1 +:10074000042506F58275E0003507F583E0F512759E +:10075000E0032506F58275E0003507F583E0F51125 +:1007600075E0022506F58275E0003507F583E0F5B2 +:100770001075E0002506F58275E0003507F583E089 +:10078000F508E508C0E075E0012506F58275E00092 +:100790003507F583E0F508E508C0E075E00A2506B1 +:1007A000F50675E0003507F507E502F582E503F586 +:1007B00083E504F500E505F50122001200100205AD +:1007C0002200E506758202C39582F506E50775836A +:1007D000009583F507D0E0F50875E0012506F58260 +:1007E00075E0003507F583E508F0D0E0F50875E021 +:1007F000002506F58275E0003507F583E508F090E1 +:100800000000E582F50A900000E583F50175090016 +:10081000C3750000E509F5F0E50A35F0F50DE500D2 +:10082000F5F0E50135F0F50E750900750A00750B58 +:1008300000750C00750100C3750000E501F5F0E5D9 +:100840000D35F0F501E500F5F0E50E35F0F500E5C4 +:1008500009F503E500F502E501F582E502F583E51A +:1008600003F0750101C3750000E501F5F0E50D35F4 +:10087000F0F501E500F5F0E50E35F0F500E50AF5D7 +:1008800003E500F502E501F582E502F583E503F0F5 +:10089000750102C3750000E501F5F0E50D35F0F5D1 +:1008A00001E500F5F0E50E35F0F500E50BF503E5A3 +:1008B00000F502E501F582E502F583E503F0750137 +:1008C00003C3750000E501F5F0E50D35F0F501E530 +:1008D00000F5F0E50E35F0F500E50CF503E500F563 +:1008E00002E501F582E502F583E503F01200AA9026 +:1008F0000000E582F509900000E583F50A75010026 +:10090000C3750000E501F5F0E50935F0F501E500F6 +:10091000F5F0E50A35F0F500E500F502E501F582B0 +:10092000E502F583E0F50B750101C3750000E501F3 +:10093000F5F0E50935F0F501E500F5F0E50A35F0EB +:10094000F500E500F502E501F582E502F583E0F545 +:100950000C750102C3750000E501F5F0E50935F0FD +:10096000F501E500F5F0E50A35F0F500E500F502E2 +:10097000E501F582E502F583E0F50D750103C37528 +:100980000000E501F5F0E50935F0F501E500F5F0C9 +:10099000E50A35F0F500E500F502E501F582E5022E +:1009A000F583E0F50E750001750100750900750A03 +:1009B00000C3E500F5F0E50B95F0F500E501F5F075 +:1009C000E50C95F0F501E509F5F0E50D95F0F50973 +:1009D000E50AF5F0E50E95F0F50AE500F502E5010A +:1009E000F503E509F504E50AF50575E0002506F5CA +:1009F0008275E0003507F583E0F508E508C0E0758D +:100A0000E0012506F58275E0003507F583E0F5087D +:100A1000E508C0E075E0022506F50675E00035073B +:100A2000F507E502F582E503F583E504F500E50544 +:100A3000F50122000000000000000000000000009E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pr32450.s.expected b/tests/GCCTestSuite/pr32450.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pr32450.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-ep-2.c b/tests/GCCTestSuite/pragma-ep-2.c new file mode 100644 index 0000000..6e5c467 --- /dev/null +++ b/tests/GCCTestSuite/pragma-ep-2.c @@ -0,0 +1,7 @@ +/* { dg-do compile { target *-*-osf5* } } */ + +#pragma extern_prefix /* { dg-warning "malformed" } */ +#pragma extern_prefix foo /* { dg-warning "malformed" } */ +#pragma extern_prefix "foo" 1 /* { dg-warning "junk" } */ + +int bar; /* silence `ISO C forbids an empty source file' warning */ diff --git a/tests/GCCTestSuite/pragma-ep-2.c.expected b/tests/GCCTestSuite/pragma-ep-2.c.expected new file mode 100644 index 0000000..6e5c467 --- /dev/null +++ b/tests/GCCTestSuite/pragma-ep-2.c.expected @@ -0,0 +1,7 @@ +/* { dg-do compile { target *-*-osf5* } } */ + +#pragma extern_prefix /* { dg-warning "malformed" } */ +#pragma extern_prefix foo /* { dg-warning "malformed" } */ +#pragma extern_prefix "foo" 1 /* { dg-warning "junk" } */ + +int bar; /* silence `ISO C forbids an empty source file' warning */ diff --git a/tests/GCCTestSuite/pragma-ep-2.hex.expected b/tests/GCCTestSuite/pragma-ep-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/pragma-ep-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-ep-2.s.expected b/tests/GCCTestSuite/pragma-ep-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pragma-ep-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-ep-3.c b/tests/GCCTestSuite/pragma-ep-3.c new file mode 100644 index 0000000..a3e1e6e --- /dev/null +++ b/tests/GCCTestSuite/pragma-ep-3.c @@ -0,0 +1,10 @@ +/* { dg-do compile { target alpha*-*-osf5* } } */ +/* { dg-final { scan-assembler ",Xfoo" } } */ + +#pragma extern_prefix "X" +void foo(void) __attribute__((noreturn)); +void foo(void) __attribute__((noreturn)); +void bar() +{ + foo(); +} diff --git a/tests/GCCTestSuite/pragma-ep-3.c.expected b/tests/GCCTestSuite/pragma-ep-3.c.expected new file mode 100644 index 0000000..a3e1e6e --- /dev/null +++ b/tests/GCCTestSuite/pragma-ep-3.c.expected @@ -0,0 +1,10 @@ +/* { dg-do compile { target alpha*-*-osf5* } } */ +/* { dg-final { scan-assembler ",Xfoo" } } */ + +#pragma extern_prefix "X" +void foo(void) __attribute__((noreturn)); +void foo(void) __attribute__((noreturn)); +void bar() +{ + foo(); +} diff --git a/tests/GCCTestSuite/pragma-ep-3.hex.expected b/tests/GCCTestSuite/pragma-ep-3.hex.expected new file mode 100644 index 0000000..0680eba --- /dev/null +++ b/tests/GCCTestSuite/pragma-ep-3.hex.expected @@ -0,0 +1,11 @@ +:100000000000E506758202C39582F506E507758353 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:100040000000E500F502E500F503E500F504E50034 +:10005000F50575E0002506F58275E0003507F583A6 +:10006000E0F508E508C0E075E0012506F58275E0D9 +:10007000003507F583E0F508E508C0E075E00225E6 +:1000800006F50675E0003507F507E502F582E5039C +:10009000F583E504F500E505F50122000000000008 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-ep-3.s.expected b/tests/GCCTestSuite/pragma-ep-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pragma-ep-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-isr-trap_exit.c b/tests/GCCTestSuite/pragma-isr-trap_exit.c new file mode 100644 index 0000000..9b3233a --- /dev/null +++ b/tests/GCCTestSuite/pragma-isr-trap_exit.c @@ -0,0 +1,17 @@ +/* { dg-do compile { target sh-*-* sh[1234ble]*-*-*} } */ +/* { dg-options "-O" } */ +/* This test case will check whether trapa is generated only for isr. */ +#pragma interrupt +void isr() __attribute__ ((trap_exit (4))); +void isr() +{ +} +void delay(int a) +{ +} +int main() +{ + return 0; +} + +/* { dg-final { scan-assembler-times "trapa\[ \t\]\[ \t\]*#4" 1} } */ diff --git a/tests/GCCTestSuite/pragma-isr-trap_exit.c.expected b/tests/GCCTestSuite/pragma-isr-trap_exit.c.expected new file mode 100644 index 0000000..9b3233a --- /dev/null +++ b/tests/GCCTestSuite/pragma-isr-trap_exit.c.expected @@ -0,0 +1,17 @@ +/* { dg-do compile { target sh-*-* sh[1234ble]*-*-*} } */ +/* { dg-options "-O" } */ +/* This test case will check whether trapa is generated only for isr. */ +#pragma interrupt +void isr() __attribute__ ((trap_exit (4))); +void isr() +{ +} +void delay(int a) +{ +} +int main() +{ + return 0; +} + +/* { dg-final { scan-assembler-times "trapa\[ \t\]\[ \t\]*#4" 1} } */ diff --git a/tests/GCCTestSuite/pragma-isr-trap_exit.hex.expected b/tests/GCCTestSuite/pragma-isr-trap_exit.hex.expected new file mode 100644 index 0000000..bc6b9e7 --- /dev/null +++ b/tests/GCCTestSuite/pragma-isr-trap_exit.hex.expected @@ -0,0 +1,15 @@ +:1000000075812F7506FF7507FF12009A02000C001C +:10001000D0E0F500D0E0F501750900E509F502E54D +:1000200009F503E509F504E509F505E501C0E0E595 +:1000300000C0E0E502F582E503F583E504F500E59F +:1000400005F5012200E506758204C39582F506E5F3 +:10005000077583009583F507D0E0F500D0E0F50142 +:10006000750900E509F502E509F503E509F504E57B +:1000700009F505E501C0E0E500C0E075E0042506EE +:10008000F50675E0003507F507E502F582E503F5AD +:1000900083E504F500E505F5012200D0E0F500D088 +:1000A000E0F501750900750A00750B00750C00E597 +:1000B00009F502E50AF503E50BF504E50CF505E5A0 +:1000C00001C0E0E500C0E0E502F582E503F583E567 +:1000D00004F500E505F50122000000000000000025 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-isr-trap_exit.s.expected b/tests/GCCTestSuite/pragma-isr-trap_exit.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pragma-isr-trap_exit.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-isr2.c b/tests/GCCTestSuite/pragma-isr2.c new file mode 100644 index 0000000..7dba7f9 --- /dev/null +++ b/tests/GCCTestSuite/pragma-isr2.c @@ -0,0 +1,16 @@ +/* { dg-do compile { target h8300-*-* sh-*-* sh[1234ble]*-*-*} } */ +/* { dg-options "-O" } */ +/* This test case will check whether rte is generated only for isr. */ +#pragma interrupt +void isr() +{ +} +void delay(int a) +{ +} +int main() +{ + return 0; +} + +/* { dg-final { scan-assembler-times "rte" 1} } */ diff --git a/tests/GCCTestSuite/pragma-isr2.c.expected b/tests/GCCTestSuite/pragma-isr2.c.expected new file mode 100644 index 0000000..7dba7f9 --- /dev/null +++ b/tests/GCCTestSuite/pragma-isr2.c.expected @@ -0,0 +1,16 @@ +/* { dg-do compile { target h8300-*-* sh-*-* sh[1234ble]*-*-*} } */ +/* { dg-options "-O" } */ +/* This test case will check whether rte is generated only for isr. */ +#pragma interrupt +void isr() +{ +} +void delay(int a) +{ +} +int main() +{ + return 0; +} + +/* { dg-final { scan-assembler-times "rte" 1} } */ diff --git a/tests/GCCTestSuite/pragma-isr2.hex.expected b/tests/GCCTestSuite/pragma-isr2.hex.expected new file mode 100644 index 0000000..bc6b9e7 --- /dev/null +++ b/tests/GCCTestSuite/pragma-isr2.hex.expected @@ -0,0 +1,15 @@ +:1000000075812F7506FF7507FF12009A02000C001C +:10001000D0E0F500D0E0F501750900E509F502E54D +:1000200009F503E509F504E509F505E501C0E0E595 +:1000300000C0E0E502F582E503F583E504F500E59F +:1000400005F5012200E506758204C39582F506E5F3 +:10005000077583009583F507D0E0F500D0E0F50142 +:10006000750900E509F502E509F503E509F504E57B +:1000700009F505E501C0E0E500C0E075E0042506EE +:10008000F50675E0003507F507E502F582E503F5AD +:1000900083E504F500E505F5012200D0E0F500D088 +:1000A000E0F501750900750A00750B00750C00E597 +:1000B00009F502E50AF503E50BF504E50CF505E5A0 +:1000C00001C0E0E500C0E0E502F582E503F583E567 +:1000D00004F500E505F50122000000000000000025 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-isr2.s.expected b/tests/GCCTestSuite/pragma-isr2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pragma-isr2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-pack-4.c b/tests/GCCTestSuite/pragma-pack-4.c new file mode 100644 index 0000000..1d78f47 --- /dev/null +++ b/tests/GCCTestSuite/pragma-pack-4.c @@ -0,0 +1,7 @@ +/* PR c/28286 */ +/* { dg-do compile } */ + +#pragma pack(0.5) /* { dg-warning "invalid constant" } */ +#pragma pack(push,0.5) /* { dg-warning "invalid constant" } */ +#pragma pack(push,x,0.5) /* { dg-warning "invalid constant" } */ +int i; diff --git a/tests/GCCTestSuite/pragma-pack-4.c.expected b/tests/GCCTestSuite/pragma-pack-4.c.expected new file mode 100644 index 0000000..1d78f47 --- /dev/null +++ b/tests/GCCTestSuite/pragma-pack-4.c.expected @@ -0,0 +1,7 @@ +/* PR c/28286 */ +/* { dg-do compile } */ + +#pragma pack(0.5) /* { dg-warning "invalid constant" } */ +#pragma pack(push,0.5) /* { dg-warning "invalid constant" } */ +#pragma pack(push,x,0.5) /* { dg-warning "invalid constant" } */ +int i; diff --git a/tests/GCCTestSuite/pragma-pack-4.hex.expected b/tests/GCCTestSuite/pragma-pack-4.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/pragma-pack-4.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-pack-4.s.expected b/tests/GCCTestSuite/pragma-pack-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pragma-pack-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-re-2.c b/tests/GCCTestSuite/pragma-re-2.c new file mode 100644 index 0000000..40b9148 --- /dev/null +++ b/tests/GCCTestSuite/pragma-re-2.c @@ -0,0 +1,8 @@ +/* { dg-do compile { target *-*-solaris* } } */ + +#pragma redefine_extname /* { dg-warning "malformed" } */ +#pragma redefine_extname foo /* { dg-warning "malformed" } */ +#pragma redefine_extname foo 1 /* { dg-warning "malformed" } */ +#pragma redefine_extname foo bar 2 /* { dg-warning "junk" } */ + +int bar; /* silence `ISO C forbids an empty source file' warning */ diff --git a/tests/GCCTestSuite/pragma-re-2.c.expected b/tests/GCCTestSuite/pragma-re-2.c.expected new file mode 100644 index 0000000..40b9148 --- /dev/null +++ b/tests/GCCTestSuite/pragma-re-2.c.expected @@ -0,0 +1,8 @@ +/* { dg-do compile { target *-*-solaris* } } */ + +#pragma redefine_extname /* { dg-warning "malformed" } */ +#pragma redefine_extname foo /* { dg-warning "malformed" } */ +#pragma redefine_extname foo 1 /* { dg-warning "malformed" } */ +#pragma redefine_extname foo bar 2 /* { dg-warning "junk" } */ + +int bar; /* silence `ISO C forbids an empty source file' warning */ diff --git a/tests/GCCTestSuite/pragma-re-2.hex.expected b/tests/GCCTestSuite/pragma-re-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/pragma-re-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pragma-re-2.s.expected b/tests/GCCTestSuite/pragma-re-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pragma-re-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/profile-generate-2.c b/tests/GCCTestSuite/profile-generate-2.c new file mode 100644 index 0000000..eaea065 --- /dev/null +++ b/tests/GCCTestSuite/profile-generate-2.c @@ -0,0 +1,35 @@ +/* PR middle-end/23199 */ +/* Testcase by Ralf Menzel */ + +/* { dg-do compile } */ +/* { dg-options "-O -fprofile-generate" } */ + +union rtunion_def +{ + struct rtx_def *rt_rtx; +}; + +typedef union rtunion_def rtunion; + +struct rtx_def +{ + unsigned int in_struct : 1; + union u { + rtunion fld[1]; + } u; +}; + +typedef struct rtx_def *rtx; + +static void +check_annul_list_true_false (int annul_true_p, rtx delay_list) +{ + rtx temp; + while (1) + { + temp = delay_list; + rtx trial = (((temp)->u.fld[0]).rt_rtx); + if ((annul_true_p && (((trial))->in_struct))) + return; + } +} diff --git a/tests/GCCTestSuite/profile-generate-2.c.expected b/tests/GCCTestSuite/profile-generate-2.c.expected new file mode 100644 index 0000000..eaea065 --- /dev/null +++ b/tests/GCCTestSuite/profile-generate-2.c.expected @@ -0,0 +1,35 @@ +/* PR middle-end/23199 */ +/* Testcase by Ralf Menzel */ + +/* { dg-do compile } */ +/* { dg-options "-O -fprofile-generate" } */ + +union rtunion_def +{ + struct rtx_def *rt_rtx; +}; + +typedef union rtunion_def rtunion; + +struct rtx_def +{ + unsigned int in_struct : 1; + union u { + rtunion fld[1]; + } u; +}; + +typedef struct rtx_def *rtx; + +static void +check_annul_list_true_false (int annul_true_p, rtx delay_list) +{ + rtx temp; + while (1) + { + temp = delay_list; + rtx trial = (((temp)->u.fld[0]).rt_rtx); + if ((annul_true_p && (((trial))->in_struct))) + return; + } +} diff --git a/tests/GCCTestSuite/profile-generate-2.hex.expected b/tests/GCCTestSuite/profile-generate-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/profile-generate-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/profile-generate-2.s.expected b/tests/GCCTestSuite/profile-generate-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/profile-generate-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/pure-1.c b/tests/GCCTestSuite/pure-1.c new file mode 100644 index 0000000..f365c8d --- /dev/null +++ b/tests/GCCTestSuite/pure-1.c @@ -0,0 +1,16 @@ +/* Regression test for PR middle-end/23584 */ +/* Verify that dereferencing a volatile element in a struct causes + the function not be pure. */ + +/* { dg-do compile } */ +/* { dg-options "-O1 -fdump-ipa-pure-const" } */ + +struct test_a { volatile int a; }; + +int func_a(struct test_a *a) +{ + return a->a; +} + +/* { dg-final { scan-ipa-dump-not "found to be pure: func_a" "pure-const" } } */ +/* { dg-final { cleanup-ipa-dump "pure-const" } } */ diff --git a/tests/GCCTestSuite/pure-1.c.expected b/tests/GCCTestSuite/pure-1.c.expected new file mode 100644 index 0000000..f365c8d --- /dev/null +++ b/tests/GCCTestSuite/pure-1.c.expected @@ -0,0 +1,16 @@ +/* Regression test for PR middle-end/23584 */ +/* Verify that dereferencing a volatile element in a struct causes + the function not be pure. */ + +/* { dg-do compile } */ +/* { dg-options "-O1 -fdump-ipa-pure-const" } */ + +struct test_a { volatile int a; }; + +int func_a(struct test_a *a) +{ + return a->a; +} + +/* { dg-final { scan-ipa-dump-not "found to be pure: func_a" "pure-const" } } */ +/* { dg-final { cleanup-ipa-dump "pure-const" } } */ diff --git a/tests/GCCTestSuite/pure-1.hex.expected b/tests/GCCTestSuite/pure-1.hex.expected new file mode 100644 index 0000000..98269a1 --- /dev/null +++ b/tests/GCCTestSuite/pure-1.hex.expected @@ -0,0 +1,20 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F518D0E0F519E511F50E58 +:10002000E510F50F750100C3750000E501F5F0E579 +:100030001F35F0F501E500F5F0E51E35F0F500E5BA +:1000400001F509E500F50A750100C3750000E50139 +:10005000F5F0E50935F0F501E500F5F0E50A35F0D4 +:10006000F500E500F502E501F582E502F583E0F52E +:100070000B750101C3750000E501F5F0E50935F0E8 +:10008000F501E500F5F0E50A35F0F500E500F502CB +:10009000E501F582E502F583E0F50C750102C37513 +:1000A0000000E501F5F0E50935F0F501E500F5F0B2 +:1000B000E50A35F0F500E500F502E501F582E50217 +:1000C000F583E0F50D750103C3750000E501F5F05A +:1000D000E50935F0F501E500F5F0E50A35F0F50044 +:1000E000E500F502E501F582E502F583E0F500E5BE +:1000F0000BF502E50CF503E50DF504E500F505E566 +:100100000EF511E50FF510E519C0E0E518C0E07532 +:10011000E0022506F50675E0003507F507E502F56E +:1001200082E503F583E504F500E505F5012200000D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/pure-1.s.expected b/tests/GCCTestSuite/pure-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/pure-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/qual-return-1.c b/tests/GCCTestSuite/qual-return-1.c new file mode 100644 index 0000000..ac94df6 --- /dev/null +++ b/tests/GCCTestSuite/qual-return-1.c @@ -0,0 +1,22 @@ +/* Test for warnings for qualified function return types. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99 -Wreturn-type" } */ + +/* Qualifying a function return type makes no sense. */ + +const int int_fn (void); /* { dg-warning "qualifiers" "int decl" } */ +const int (*int_ptr) (void); /* { dg-warning "qualifiers" "int ptr" } */ +const int int_fn2 (void) { return 0; } /* { dg-warning "qualifiers" "int defn" } */ + +const void void_fn (void); /* { dg-warning "qualifiers" "void decl" } */ +const void (*void_ptr) (void); /* { dg-warning "qualifiers" "void ptr" } */ +const void void_fn2 (void) { } /* { dg-warning "qualified" "void defn" } */ + +volatile void vvoid_fn (void); /* { dg-warning "qualifiers" "void decl" } */ +volatile void (*vvoid_ptr) (void); /* { dg-warning "qualifiers" "void ptr" } */ +volatile void vvoid_fn2 (void) { } /* { dg-warning "qualified" "void defn" } */ + +int *restrict ip_fn (void); /* { dg-warning "qualifiers" "restrict decl" } */ +int *restrict (*ip_ptr) (void); /* { dg-warning "qualifiers" "restrict ptr" } */ +int *restrict ip_fn2 (void) { return (int *)0; }; /* { dg-warning "qualifiers" "restrict defn" } */ diff --git a/tests/GCCTestSuite/qual-return-1.c.expected b/tests/GCCTestSuite/qual-return-1.c.expected new file mode 100644 index 0000000..ac94df6 --- /dev/null +++ b/tests/GCCTestSuite/qual-return-1.c.expected @@ -0,0 +1,22 @@ +/* Test for warnings for qualified function return types. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99 -Wreturn-type" } */ + +/* Qualifying a function return type makes no sense. */ + +const int int_fn (void); /* { dg-warning "qualifiers" "int decl" } */ +const int (*int_ptr) (void); /* { dg-warning "qualifiers" "int ptr" } */ +const int int_fn2 (void) { return 0; } /* { dg-warning "qualifiers" "int defn" } */ + +const void void_fn (void); /* { dg-warning "qualifiers" "void decl" } */ +const void (*void_ptr) (void); /* { dg-warning "qualifiers" "void ptr" } */ +const void void_fn2 (void) { } /* { dg-warning "qualified" "void defn" } */ + +volatile void vvoid_fn (void); /* { dg-warning "qualifiers" "void decl" } */ +volatile void (*vvoid_ptr) (void); /* { dg-warning "qualifiers" "void ptr" } */ +volatile void vvoid_fn2 (void) { } /* { dg-warning "qualified" "void defn" } */ + +int *restrict ip_fn (void); /* { dg-warning "qualifiers" "restrict decl" } */ +int *restrict (*ip_ptr) (void); /* { dg-warning "qualifiers" "restrict ptr" } */ +int *restrict ip_fn2 (void) { return (int *)0; }; /* { dg-warning "qualifiers" "restrict defn" } */ diff --git a/tests/GCCTestSuite/qual-return-1.hex.expected b/tests/GCCTestSuite/qual-return-1.hex.expected new file mode 100644 index 0000000..b42d50e --- /dev/null +++ b/tests/GCCTestSuite/qual-return-1.hex.expected @@ -0,0 +1,16 @@ +:1000000000D0E0F500D0E0F501750900750A007533 +:100010000B00750C00E509F502E50AF503E50BF5A3 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F5012200D02E +:10004000E0F500D0E0F501750900E509F502E509E4 +:10005000F503E509F504E509F505E501C0E0E5006E +:10006000C0E0E502F582E503F583E504F500E5056A +:10007000F5012200D0E0F500D0E0F501750900E5BA +:1000800009F502E509F503E509F504E509F505E5D6 +:1000900001C0E0E500C0E0E502F582E503F583E597 +:1000A00004F500E505F5012200D0E0F500D0E0F50B +:1000B00001750900750A00750B00E509F502E50AEE +:1000C000F503E50BF504E50BF505E501C0E0E500FA +:1000D000C0E0E502F582E503F583E504F500E505FA +:1000E000F5012200000000000000000000000000F8 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/qual-return-1.s.expected b/tests/GCCTestSuite/qual-return-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/qual-return-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/qual-return-2.c b/tests/GCCTestSuite/qual-return-2.c new file mode 100644 index 0000000..22a1946 --- /dev/null +++ b/tests/GCCTestSuite/qual-return-2.c @@ -0,0 +1,13 @@ +/* Test for warnings for qualified function return types. -pedantic test. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +/* Qualifying a function return type makes no sense. */ + +/* The first two of these shouldn't warn (with just -pedantic) as long + as the function is not defined. */ + +volatile void vvoid_fn (void); +volatile void (*vvoid_ptr) (void); +volatile void vvoid_fn2 (void) { } /* { dg-warning "qualified" "volatile defn" } */ diff --git a/tests/GCCTestSuite/qual-return-2.c.expected b/tests/GCCTestSuite/qual-return-2.c.expected new file mode 100644 index 0000000..22a1946 --- /dev/null +++ b/tests/GCCTestSuite/qual-return-2.c.expected @@ -0,0 +1,13 @@ +/* Test for warnings for qualified function return types. -pedantic test. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +/* Qualifying a function return type makes no sense. */ + +/* The first two of these shouldn't warn (with just -pedantic) as long + as the function is not defined. */ + +volatile void vvoid_fn (void); +volatile void (*vvoid_ptr) (void); +volatile void vvoid_fn2 (void) { } /* { dg-warning "qualified" "volatile defn" } */ diff --git a/tests/GCCTestSuite/qual-return-2.hex.expected b/tests/GCCTestSuite/qual-return-2.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/qual-return-2.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/qual-return-2.s.expected b/tests/GCCTestSuite/qual-return-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/qual-return-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/qual-return-3.c b/tests/GCCTestSuite/qual-return-3.c new file mode 100644 index 0000000..7a92046 --- /dev/null +++ b/tests/GCCTestSuite/qual-return-3.c @@ -0,0 +1,16 @@ +/* Test for warnings for qualified function return types. Bug 15052 + from Olatunji Ruwase (tjruwase at stanfordalumni.org): qualifiers + should not be lost when merging declarations. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +int foo (); /* { dg-error "previous declaration" "different qualifiers" } */ +const int foo () { return 0; } /* { dg-error "conflicting types" "different qualifiers" } */ + +void bar (void); +volatile void bar () { } /* { dg-warning "qualified|volatile" "different qualifiers" } */ + +volatile void baz (void); +void baz () { } /* { dg-warning "not compatible" "different qualifiers" } */ diff --git a/tests/GCCTestSuite/qual-return-3.c.expected b/tests/GCCTestSuite/qual-return-3.c.expected new file mode 100644 index 0000000..7a92046 --- /dev/null +++ b/tests/GCCTestSuite/qual-return-3.c.expected @@ -0,0 +1,16 @@ +/* Test for warnings for qualified function return types. Bug 15052 + from Olatunji Ruwase (tjruwase at stanfordalumni.org): qualifiers + should not be lost when merging declarations. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +int foo (); /* { dg-error "previous declaration" "different qualifiers" } */ +const int foo () { return 0; } /* { dg-error "conflicting types" "different qualifiers" } */ + +void bar (void); +volatile void bar () { } /* { dg-warning "qualified|volatile" "different qualifiers" } */ + +volatile void baz (void); +void baz () { } /* { dg-warning "not compatible" "different qualifiers" } */ diff --git a/tests/GCCTestSuite/qual-return-3.hex.expected b/tests/GCCTestSuite/qual-return-3.hex.expected new file mode 100644 index 0000000..ab443da --- /dev/null +++ b/tests/GCCTestSuite/qual-return-3.hex.expected @@ -0,0 +1,12 @@ +:1000000000D0E0F500D0E0F501750900750A007533 +:100010000B00750C00E509F502E50AF503E50BF5A3 +:1000200004E50CF505E501C0E0E500C0E0E502F5FA +:1000300082E503F583E504F500E505F5012200D02E +:10004000E0F500D0E0F501750900E509F502E509E4 +:10005000F503E509F504E509F505E501C0E0E5006E +:10006000C0E0E502F582E503F583E504F500E5056A +:10007000F5012200D0E0F500D0E0F501750900E5BA +:1000800009F502E509F503E509F504E509F505E5D6 +:1000900001C0E0E500C0E0E502F582E503F583E597 +:1000A00004F500E505F50122000000000000000055 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/qual-return-3.s.expected b/tests/GCCTestSuite/qual-return-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/qual-return-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/qual-return-4.c b/tests/GCCTestSuite/qual-return-4.c new file mode 100644 index 0000000..9b61cfe --- /dev/null +++ b/tests/GCCTestSuite/qual-return-4.c @@ -0,0 +1,10 @@ +/* Test for warnings for qualified function return types. -pedantic + test. Only the definition gets a warning for qualified void return + types, not other such types within the definition. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +volatile void (*y)(int); + +volatile void (*vvf(int x))(int) { return y; } diff --git a/tests/GCCTestSuite/qual-return-4.c.expected b/tests/GCCTestSuite/qual-return-4.c.expected new file mode 100644 index 0000000..9b61cfe --- /dev/null +++ b/tests/GCCTestSuite/qual-return-4.c.expected @@ -0,0 +1,10 @@ +/* Test for warnings for qualified function return types. -pedantic + test. Only the definition gets a warning for qualified void return + types, not other such types within the definition. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +volatile void (*y)(int); + +volatile void (*vvf(int x))(int) { return y; } diff --git a/tests/GCCTestSuite/qual-return-4.hex.expected b/tests/GCCTestSuite/qual-return-4.hex.expected new file mode 100644 index 0000000..a162382 --- /dev/null +++ b/tests/GCCTestSuite/qual-return-4.hex.expected @@ -0,0 +1,13 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F50CD0E0F50D900000E5F4 +:1000200082F509900000E583F50A750100C37500AB +:1000300000E501F5F0E50935F0F501E500F5F0E53D +:100040000A35F0F500E500F502E501F582E502F577 +:1000500083E0F50B750101C3750000E501F5F0E5DE +:100060000935F0F501E500F5F0E50A35F0F500E5B4 +:1000700000F502E501F582E502F583E0F501750082 +:1000800000E50BF502E501F503E500F504E500F5F3 +:1000900005E50DC0E0E50CC0E075E0042506F506B9 +:1000A00075E0003507F507E502F582E503F583E520 +:1000B00004F500E505F50122000000000000000045 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/qual-return-4.s.expected b/tests/GCCTestSuite/qual-return-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/qual-return-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/redecl-13.c b/tests/GCCTestSuite/redecl-13.c new file mode 100644 index 0000000..54be4db --- /dev/null +++ b/tests/GCCTestSuite/redecl-13.c @@ -0,0 +1,9 @@ +/* Some incompatible external linkage declarations were not diagnosed. + Bug 21342. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +extern int a[]; +void f(void) { extern int a[10]; } /* { dg-error "error: previous declaration of 'a' was here" } */ +extern int a[5]; /* { dg-error "error: conflicting types for 'a'" } */ diff --git a/tests/GCCTestSuite/redecl-13.c.expected b/tests/GCCTestSuite/redecl-13.c.expected new file mode 100644 index 0000000..54be4db --- /dev/null +++ b/tests/GCCTestSuite/redecl-13.c.expected @@ -0,0 +1,9 @@ +/* Some incompatible external linkage declarations were not diagnosed. + Bug 21342. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +extern int a[]; +void f(void) { extern int a[10]; } /* { dg-error "error: previous declaration of 'a' was here" } */ +extern int a[5]; /* { dg-error "error: conflicting types for 'a'" } */ diff --git a/tests/GCCTestSuite/redecl-13.hex.expected b/tests/GCCTestSuite/redecl-13.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/redecl-13.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/redecl-13.s.expected b/tests/GCCTestSuite/redecl-13.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/redecl-13.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/redecl-16.c b/tests/GCCTestSuite/redecl-16.c new file mode 100644 index 0000000..52941cb --- /dev/null +++ b/tests/GCCTestSuite/redecl-16.c @@ -0,0 +1,18 @@ +/* PR 21502 */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +typedef int IA[]; +typedef int IA5[5]; +typedef int IA10[10]; +typedef IA *IAP; +typedef IA5 *IA5P; +typedef IA10 *IA10P; +extern IAP a[]; +void +f (void) +{ + extern IA5P a[]; +} +IAP a[] = { 0 }; /* { dg-error "previous definition" } */ +extern IA10P a[]; /* { dg-error "conflicting types" } */ diff --git a/tests/GCCTestSuite/redecl-16.c.expected b/tests/GCCTestSuite/redecl-16.c.expected new file mode 100644 index 0000000..52941cb --- /dev/null +++ b/tests/GCCTestSuite/redecl-16.c.expected @@ -0,0 +1,18 @@ +/* PR 21502 */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +typedef int IA[]; +typedef int IA5[5]; +typedef int IA10[10]; +typedef IA *IAP; +typedef IA5 *IA5P; +typedef IA10 *IA10P; +extern IAP a[]; +void +f (void) +{ + extern IA5P a[]; +} +IAP a[] = { 0 }; /* { dg-error "previous definition" } */ +extern IA10P a[]; /* { dg-error "conflicting types" } */ diff --git a/tests/GCCTestSuite/redecl-16.hex.expected b/tests/GCCTestSuite/redecl-16.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/redecl-16.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/redecl-16.s.expected b/tests/GCCTestSuite/redecl-16.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/redecl-16.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/redecl-6.c b/tests/GCCTestSuite/redecl-6.c new file mode 100644 index 0000000..164ec97 --- /dev/null +++ b/tests/GCCTestSuite/redecl-6.c @@ -0,0 +1,24 @@ +/* Test for multiple declarations and composite types. As in bug + 13801. Illustrates how bug causes correct code to be wrongly + diagnosed. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +typedef int IA[]; +typedef int A5[5]; +typedef int A10[10]; + +A10 array10; + +A5 *ap; +void +f (void) +{ + int ap; + { + extern IA *ap; + /* This assignment is valid. */ + ap = &array10; + } +} diff --git a/tests/GCCTestSuite/redecl-6.c.expected b/tests/GCCTestSuite/redecl-6.c.expected new file mode 100644 index 0000000..164ec97 --- /dev/null +++ b/tests/GCCTestSuite/redecl-6.c.expected @@ -0,0 +1,24 @@ +/* Test for multiple declarations and composite types. As in bug + 13801. Illustrates how bug causes correct code to be wrongly + diagnosed. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +typedef int IA[]; +typedef int A5[5]; +typedef int A10[10]; + +A10 array10; + +A5 *ap; +void +f (void) +{ + int ap; + { + extern IA *ap; + /* This assignment is valid. */ + ap = &array10; + } +} diff --git a/tests/GCCTestSuite/redecl-6.hex.expected b/tests/GCCTestSuite/redecl-6.hex.expected new file mode 100644 index 0000000..35ff0d3 --- /dev/null +++ b/tests/GCCTestSuite/redecl-6.hex.expected @@ -0,0 +1,13 @@ +:1000000000D0E0F50ED0E0F50FE510F50D900028DA +:10001000E582F50B900028E583F50C900000E58261 +:10002000F509900000E583F50A750100C37500002D +:10003000E501F5F0E50B35F0F501E500F5F0E50C2F +:1000400035F0F500E509F503E500F502E501F58277 +:10005000E502F583E503F0750101C3750000E501D4 +:10006000F5F0E50B35F0F501E500F5F0E50C35F0C0 +:10007000F500E50AF503E500F502E501F582E50284 +:10008000F583E503F0750000E500F502E500F503F2 +:10009000E500F504E500F505E50DF510E50FC0E018 +:1000A000E50EC0E0E502F582E503F583E504F50021 +:1000B000E505F5012200000000000000000000003E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/redecl-6.s.expected b/tests/GCCTestSuite/redecl-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/redecl-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/redecl-8.c b/tests/GCCTestSuite/redecl-8.c new file mode 100644 index 0000000..9145b9f --- /dev/null +++ b/tests/GCCTestSuite/redecl-8.c @@ -0,0 +1,23 @@ +/* Test for multiple declarations and composite types. Diagnosis of + completion incompatible with implicit initializer. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-g" } */ + +static int x[]; + +void +f (void) +{ + extern int x[2]; /* { dg-error "completed incompatibly" } */ +} + +/* The following is OK. */ + +static int y[]; +void +g (void) +{ + extern int y[1]; +} diff --git a/tests/GCCTestSuite/redecl-8.c.expected b/tests/GCCTestSuite/redecl-8.c.expected new file mode 100644 index 0000000..9145b9f --- /dev/null +++ b/tests/GCCTestSuite/redecl-8.c.expected @@ -0,0 +1,23 @@ +/* Test for multiple declarations and composite types. Diagnosis of + completion incompatible with implicit initializer. */ + +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-g" } */ + +static int x[]; + +void +f (void) +{ + extern int x[2]; /* { dg-error "completed incompatibly" } */ +} + +/* The following is OK. */ + +static int y[]; +void +g (void) +{ + extern int y[1]; +} diff --git a/tests/GCCTestSuite/redecl-8.hex.expected b/tests/GCCTestSuite/redecl-8.hex.expected new file mode 100644 index 0000000..64d1011 --- /dev/null +++ b/tests/GCCTestSuite/redecl-8.hex.expected @@ -0,0 +1,8 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F5012200D0E0F500D0E0F5017509F5 +:1000400000E509F502E509F503E509F504E509F51B +:1000500005E501C0E0E500C0E0E502F582E503F555 +:1000600083E504F500E505F501220000000000002D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/redecl-8.s.expected b/tests/GCCTestSuite/redecl-8.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/redecl-8.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/redecl-9.c b/tests/GCCTestSuite/redecl-9.c new file mode 100644 index 0000000..6fe2580 --- /dev/null +++ b/tests/GCCTestSuite/redecl-9.c @@ -0,0 +1,30 @@ +/* Test for multiple declarations and composite types, as in bug + 13801. Test types saved from outer scopes are up to date. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +int x[]; + +void +f (void) +{ + extern int x[]; +} + +int x[10]; + +void +g (void) +{ + int x; + { + extern int x[10]; + } +} + +void +h (void) +{ + sizeof (x); +} diff --git a/tests/GCCTestSuite/redecl-9.c.expected b/tests/GCCTestSuite/redecl-9.c.expected new file mode 100644 index 0000000..6fe2580 --- /dev/null +++ b/tests/GCCTestSuite/redecl-9.c.expected @@ -0,0 +1,30 @@ +/* Test for multiple declarations and composite types, as in bug + 13801. Test types saved from outer scopes are up to date. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +int x[]; + +void +f (void) +{ + extern int x[]; +} + +int x[10]; + +void +g (void) +{ + int x; + { + extern int x[10]; + } +} + +void +h (void) +{ + sizeof (x); +} diff --git a/tests/GCCTestSuite/redecl-9.hex.expected b/tests/GCCTestSuite/redecl-9.hex.expected new file mode 100644 index 0000000..d22e115 --- /dev/null +++ b/tests/GCCTestSuite/redecl-9.hex.expected @@ -0,0 +1,11 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F5012200D0E0F500D0E0F5017509F5 +:1000400000E509F502E509F503E509F504E509F51B +:1000500005E501C0E0E500C0E0E502F582E503F555 +:1000600083E504F500E505F5012200D0E0F500D0B8 +:10007000E0F501750900E509F502E509F503E50973 +:10008000F504E509F505E501C0E0E500C0E0E5029D +:10009000F582E503F583E504F500E505F5012200A9 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/redecl-9.s.expected b/tests/GCCTestSuite/redecl-9.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/redecl-9.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/reg-vol-struct-1.c b/tests/GCCTestSuite/reg-vol-struct-1.c new file mode 100644 index 0000000..7751bb4 --- /dev/null +++ b/tests/GCCTestSuite/reg-vol-struct-1.c @@ -0,0 +1,18 @@ +/* Test cases of structures with volatile fields declared register: + should be allowed unless register name given but explicitly taking + the address forbidden. */ +/* Origin: Joseph Myers */ + +/* { dg-do compile } */ + +struct S { volatile int field; }; + +void +f (void) +{ + register struct S a; + register struct S b[2]; + register struct S c __asm__("nosuchreg"); /* { dg-error "object with volatile field" "explicit reg name" } */ + &a; /* { dg-warning "address of register" "explicit address" } */ + b; /* { dg-warning "address of register" "implicit address" } */ +} diff --git a/tests/GCCTestSuite/reg-vol-struct-1.c.expected b/tests/GCCTestSuite/reg-vol-struct-1.c.expected new file mode 100644 index 0000000..7751bb4 --- /dev/null +++ b/tests/GCCTestSuite/reg-vol-struct-1.c.expected @@ -0,0 +1,18 @@ +/* Test cases of structures with volatile fields declared register: + should be allowed unless register name given but explicitly taking + the address forbidden. */ +/* Origin: Joseph Myers */ + +/* { dg-do compile } */ + +struct S { volatile int field; }; + +void +f (void) +{ + register struct S a; + register struct S b[2]; + register struct S c __asm__("nosuchreg"); /* { dg-error "object with volatile field" "explicit reg name" } */ + &a; /* { dg-warning "address of register" "explicit address" } */ + b; /* { dg-warning "address of register" "implicit address" } */ +} diff --git a/tests/GCCTestSuite/reg-vol-struct-1.hex.expected b/tests/GCCTestSuite/reg-vol-struct-1.hex.expected new file mode 100644 index 0000000..03140ee --- /dev/null +++ b/tests/GCCTestSuite/reg-vol-struct-1.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758210C39582F506E50775830045 +:100010009583F507D0E0F500D0E0F501750900E51E +:1000200009F502E509F503E509F504E509F505E536 +:1000300001C0E0E500C0E075E0102506F50675E0BA +:10004000003507F507E502F582E503F583E504F5DC +:1000500000E505F50122000000000000000000009E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/reg-vol-struct-1.s.expected b/tests/GCCTestSuite/reg-vol-struct-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/reg-vol-struct-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/register-var-1.c b/tests/GCCTestSuite/register-var-1.c new file mode 100644 index 0000000..a27d56c --- /dev/null +++ b/tests/GCCTestSuite/register-var-1.c @@ -0,0 +1,14 @@ +/* PR/18160 */ + +/* { dg-do compile { target i?86-*-* x86_64-*-* } } */ + +/* This should yield an error even without -pedantic. */ +/* { dg-options "-ansi" } */ + +void g(int *); + +void f(void) +{ + register int x __asm ("eax"); + g(&x); /* { dg-error "error: address of register variable" } */ +} diff --git a/tests/GCCTestSuite/register-var-1.c.expected b/tests/GCCTestSuite/register-var-1.c.expected new file mode 100644 index 0000000..a27d56c --- /dev/null +++ b/tests/GCCTestSuite/register-var-1.c.expected @@ -0,0 +1,14 @@ +/* PR/18160 */ + +/* { dg-do compile { target i?86-*-* x86_64-*-* } } */ + +/* This should yield an error even without -pedantic. */ +/* { dg-options "-ansi" } */ + +void g(int *); + +void f(void) +{ + register int x __asm ("eax"); + g(&x); /* { dg-error "error: address of register variable" } */ +} diff --git a/tests/GCCTestSuite/register-var-1.hex.expected b/tests/GCCTestSuite/register-var-1.hex.expected new file mode 100644 index 0000000..106c7d2 --- /dev/null +++ b/tests/GCCTestSuite/register-var-1.hex.expected @@ -0,0 +1,14 @@ +:100000000000E506758206C39582F506E50775834F +:10001000009583F507D0E0F50875E0052506F58223 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000042506F58275E0003507F583E508F0E54F +:1000400006F509E507F50A750100C3750000E5012D +:10005000F5F0E50935F0F501E500F5F0E50A35F0D4 +:10006000F500E501F51FE500F51E750000E500F55A +:1000700002E500F503E500F504E500F50575E0048B +:100080002506F58275E0003507F583E0F508E508FB +:10009000C0E075E0052506F58275E0003507F583BB +:1000A000E0F508E508C0E075E0062506F50675E010 +:1000B000003507F507E502F582E503F583E504F56C +:1000C00000E505F50122000000000000000000002E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/register-var-1.s.expected b/tests/GCCTestSuite/register-var-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/register-var-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/register-var-2.c b/tests/GCCTestSuite/register-var-2.c new file mode 100644 index 0000000..585dfe2 --- /dev/null +++ b/tests/GCCTestSuite/register-var-2.c @@ -0,0 +1,14 @@ +/* PR/18160 */ + +/* { dg-do compile } */ + +/* This should yield an error even without -pedantic. */ +/* { dg-options "-ansi" } */ + +void g(int *); + +void f(void) +{ + register int x; + g(&x); /* { dg-error "error: address of register variable" } */ +} diff --git a/tests/GCCTestSuite/register-var-2.c.expected b/tests/GCCTestSuite/register-var-2.c.expected new file mode 100644 index 0000000..585dfe2 --- /dev/null +++ b/tests/GCCTestSuite/register-var-2.c.expected @@ -0,0 +1,14 @@ +/* PR/18160 */ + +/* { dg-do compile } */ + +/* This should yield an error even without -pedantic. */ +/* { dg-options "-ansi" } */ + +void g(int *); + +void f(void) +{ + register int x; + g(&x); /* { dg-error "error: address of register variable" } */ +} diff --git a/tests/GCCTestSuite/register-var-2.hex.expected b/tests/GCCTestSuite/register-var-2.hex.expected new file mode 100644 index 0000000..106c7d2 --- /dev/null +++ b/tests/GCCTestSuite/register-var-2.hex.expected @@ -0,0 +1,14 @@ +:100000000000E506758206C39582F506E50775834F +:10001000009583F507D0E0F50875E0052506F58223 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000042506F58275E0003507F583E508F0E54F +:1000400006F509E507F50A750100C3750000E5012D +:10005000F5F0E50935F0F501E500F5F0E50A35F0D4 +:10006000F500E501F51FE500F51E750000E500F55A +:1000700002E500F503E500F504E500F50575E0048B +:100080002506F58275E0003507F583E0F508E508FB +:10009000C0E075E0052506F58275E0003507F583BB +:1000A000E0F508E508C0E075E0062506F50675E010 +:1000B000003507F507E502F582E503F583E504F56C +:1000C00000E505F50122000000000000000000002E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/register-var-2.s.expected b/tests/GCCTestSuite/register-var-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/register-var-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/return-type-1.c b/tests/GCCTestSuite/return-type-1.c new file mode 100644 index 0000000..2507caf --- /dev/null +++ b/tests/GCCTestSuite/return-type-1.c @@ -0,0 +1,9 @@ +/* Missing warning for falling off the end of a non-void function. + egcs-1.1.2 passes, egcs-ss-19990428 fails. + http://gcc.gnu.org/ml/gcc-bugs/1999-03n/msg00221.html */ +/* { dg-do compile } */ +/* { dg-options "-O -Wreturn-type" } */ +int +foo(void) +{ +} /* { dg-warning "control reaches end of non-void function" "warning for falling off end of non-void function" } */ diff --git a/tests/GCCTestSuite/return-type-1.c.expected b/tests/GCCTestSuite/return-type-1.c.expected new file mode 100644 index 0000000..2507caf --- /dev/null +++ b/tests/GCCTestSuite/return-type-1.c.expected @@ -0,0 +1,9 @@ +/* Missing warning for falling off the end of a non-void function. + egcs-1.1.2 passes, egcs-ss-19990428 fails. + http://gcc.gnu.org/ml/gcc-bugs/1999-03n/msg00221.html */ +/* { dg-do compile } */ +/* { dg-options "-O -Wreturn-type" } */ +int +foo(void) +{ +} /* { dg-warning "control reaches end of non-void function" "warning for falling off end of non-void function" } */ diff --git a/tests/GCCTestSuite/return-type-1.hex.expected b/tests/GCCTestSuite/return-type-1.hex.expected new file mode 100644 index 0000000..16a396e --- /dev/null +++ b/tests/GCCTestSuite/return-type-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501E509F502E509F5DD +:1000100003E509F504E509F505E501C0E0E500C0E3 +:10002000E0E502F582E503F583E504F500E505F575 +:10003000012200000000000000000000000000009D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/return-type-1.s.expected b/tests/GCCTestSuite/return-type-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/return-type-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/return-type-2.c b/tests/GCCTestSuite/return-type-2.c new file mode 100644 index 0000000..183c6a8 --- /dev/null +++ b/tests/GCCTestSuite/return-type-2.c @@ -0,0 +1,47 @@ +/* Bogus warnings claiming we fall off the end of a non-void function. + By Kaveh R. Ghazi 8/27/2000. */ +/* { dg-do compile } */ +/* { dg-options "-O2 -Wreturn-type" } */ + +extern void abort (void) __attribute__ ((__noreturn__)); + +int +foo1 (int i) +{ + if (i) + return i; + + abort (); +} /* { dg-bogus "control reaches end of non-void function" "warning for falling off end of non-void function" } */ + +__inline__ int +foo2 (int i) +{ + if (i) + return i; + + abort (); +} /* { dg-bogus "control reaches end of non-void function" "warning for falling off end of non-void function" } */ + +static int +foo3 (int i) +{ + if (i) + return i; + + abort (); +} /* { dg-bogus "control reaches end of non-void function" "warning for falling off end of non-void function" } */ + +static __inline__ int +foo4 (int i) +{ + if (i) + return i; + + abort (); +} /* { dg-bogus "control reaches end of non-void function" "warning for falling off end of non-void function" } */ + +int bar (int i) +{ + return foo1 (i) + foo2 (i) + foo3 (i) + foo4 (i); +} diff --git a/tests/GCCTestSuite/return-type-2.c.expected b/tests/GCCTestSuite/return-type-2.c.expected new file mode 100644 index 0000000..183c6a8 --- /dev/null +++ b/tests/GCCTestSuite/return-type-2.c.expected @@ -0,0 +1,47 @@ +/* Bogus warnings claiming we fall off the end of a non-void function. + By Kaveh R. Ghazi 8/27/2000. */ +/* { dg-do compile } */ +/* { dg-options "-O2 -Wreturn-type" } */ + +extern void abort (void) __attribute__ ((__noreturn__)); + +int +foo1 (int i) +{ + if (i) + return i; + + abort (); +} /* { dg-bogus "control reaches end of non-void function" "warning for falling off end of non-void function" } */ + +__inline__ int +foo2 (int i) +{ + if (i) + return i; + + abort (); +} /* { dg-bogus "control reaches end of non-void function" "warning for falling off end of non-void function" } */ + +static int +foo3 (int i) +{ + if (i) + return i; + + abort (); +} /* { dg-bogus "control reaches end of non-void function" "warning for falling off end of non-void function" } */ + +static __inline__ int +foo4 (int i) +{ + if (i) + return i; + + abort (); +} /* { dg-bogus "control reaches end of non-void function" "warning for falling off end of non-void function" } */ + +int bar (int i) +{ + return foo1 (i) + foo2 (i) + foo3 (i) + foo4 (i); +} diff --git a/tests/GCCTestSuite/return-type-2.hex.expected b/tests/GCCTestSuite/return-type-2.hex.expected new file mode 100644 index 0000000..2e96468 --- /dev/null +++ b/tests/GCCTestSuite/return-type-2.hex.expected @@ -0,0 +1,155 @@ +:100000000000E50675820AC39582F506E50775834B +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:10004000E0052506F58275E0003507F583E513F038 +:1000500075E0042506F58275E0003507F583E512A5 +:10006000F075E0032506F58275E0003507F583E5B8 +:1000700011F075E0022506F58275E0003507F5837D +:10008000E510F0750000E51FF5F0E50045F0F5001E +:10009000E51EF5F0E50045F0F500E51DF5F0E5009D +:1000A00045F0F500E51CF5F0E50045F0F500E5004C +:1000B0007002800302015500E510F502E511F50319 +:1000C000E512F504E513F50575E0052506F58275DD +:1000D000E0003507F583E0F51375E0042506F582A9 +:1000E00075E0003507F583E0F51275E0032506F5A8 +:1000F0008275E0003507F583E0F51175E00225060D +:10010000F58275E0003507F583E0F51075E0002510 +:1001100006F58275E0003507F583E0F508E508C0CF +:10012000E075E0012506F58275E0003507F583E00E +:10013000F508E508C0E075E00A2506F50675E0005B +:100140003507F507E502F582E503F583E504F500DB +:10015000E505F5012200E51FF510E51EF511E51D89 +:10016000F512E51CF5130200B800E50675820AC316 +:100170009582F506E5077583009583F507D0E0F5D0 +:100180000875E0012506F58275E0003507F583E581 +:1001900008F0D0E0F50875E0002506F58275E0006E +:1001A0003507F583E508F075E0052506F58275E06D +:1001B000003507F583E513F075E0042506F5827533 +:1001C000E0003507F583E512F075E0032506F582BA +:1001D00075E0003507F583E511F075E0022506F5B9 +:1001E0008275E0003507F583E510F0750000E51F26 +:1001F000F5F0E50045F0F500E51EF5F0E50045F009 +:10020000F500E51DF5F0E50045F0F500E51CF5F01D +:10021000E50045F0F500E500700280030202BD0034 +:10022000E510F502E511F503E512F504E513F50512 +:1002300075E0052506F58275E0003507F583E0F5E4 +:100240001375E0042506F58275E0003507F583E0B7 +:10025000F51275E0032506F58275E0003507F58394 +:10026000E0F51175E0022506F58275E0003507F529 +:1002700083E0F51075E0002506F58275E00035078E +:10028000F583E0F508E508C0E075E0012506F58294 +:1002900075E0003507F583E0F508E508C0E075E096 +:1002A0000A2506F50675E0003507F507E502F58233 +:1002B000E503F583E504F500E505F5012200E51FFA +:1002C000F510E51EF511E51DF512E51CF51302020A +:1002D0002000E50675820AC39582F506E507758359 +:1002E000009583F507D0E0F50875E0012506F58255 +:1002F00075E0003507F583E508F0D0E0F50875E016 +:10030000002506F58275E0003507F583E508F075F0 +:10031000E0052506F58275E0003507F583E513F065 +:1003200075E0042506F58275E0003507F583E512D2 +:10033000F075E0032506F58275E0003507F583E5E5 +:1003400011F075E0022506F58275E0003507F583AA +:10035000E510F0750000E51FF5F0E50045F0F5004B +:10036000E51EF5F0E50045F0F500E51DF5F0E500CA +:1003700045F0F500E51CF5F0E50045F0F500E50079 +:100380007002800302042500E510F502E511F50373 +:10039000E512F504E513F50575E0052506F582750A +:1003A000E0003507F583E0F51375E0042506F582D6 +:1003B00075E0003507F583E0F51275E0032506F5D5 +:1003C0008275E0003507F583E0F51175E00225063A +:1003D000F58275E0003507F583E0F51075E000253E +:1003E00006F58275E0003507F583E0F508E508C0FD +:1003F000E075E0012506F58275E0003507F583E03C +:10040000F508E508C0E075E00A2506F50675E00088 +:100410003507F507E502F582E503F583E504F50008 +:10042000E505F5012200E51FF510E51EF511E51DB6 +:10043000F512E51CF51302038800E50675820AC370 +:100440009582F506E5077583009583F507D0E0F5FD +:100450000875E0012506F58275E0003507F583E5AE +:1004600008F0D0E0F50875E0002506F58275E0009B +:100470003507F583E508F075E0052506F58275E09A +:10048000003507F583E513F075E0042506F5827560 +:10049000E0003507F583E512F075E0032506F582E7 +:1004A00075E0003507F583E511F075E0022506F5E6 +:1004B0008275E0003507F583E510F0750000E51F53 +:1004C000F5F0E50045F0F500E51EF5F0E50045F036 +:1004D000F500E51DF5F0E50045F0F500E51CF5F04B +:1004E000E50045F0F500E5007002800302058D008F +:1004F000E510F502E511F503E512F504E513F50540 +:1005000075E0052506F58275E0003507F583E0F511 +:100510001375E0042506F58275E0003507F583E0E4 +:10052000F51275E0032506F58275E0003507F583C1 +:10053000E0F51175E0022506F58275E0003507F556 +:1005400083E0F51075E0002506F58275E0003507BB +:10055000F583E0F508E508C0E075E0012506F582C1 +:1005600075E0003507F583E0F508E508C0E075E0C3 +:100570000A2506F50675E0003507F507E502F58260 +:10058000E503F583E504F500E505F5012200E51F27 +:10059000F510E51EF511E51DF512E51CF513020435 +:1005A000F000E506758216C39582F506E5077583AA +:1005B000009583F507D0E0F50875E0092506F5827A +:1005C00075E0003507F583E508F0D0E0F50875E043 +:1005D000082506F58275E0003507F583E508F07516 +:1005E000E0112506F58275E0003507F583E517F083 +:1005F00075E0102506F58275E0003507F583E516F0 +:10060000F075E00F2506F58275E0003507F583E506 +:1006100015F075E00E2506F58275E0003507F583C7 +:10062000E514F075E00D2506F58275E0003507F557 +:1006300083E513F075E00C2506F58275E0003507BB +:10064000F583E512F075E00B2506F58275E00035BF +:1006500007F583E511F075E00A2506F58275E000DF +:100660003507F583E510F0E51FF510E51EF511E5FA +:100670001DF512E51CF513E510F51FE511F51EE556 +:1006800012F51DE513F51C120001E582F502E58364 +:10069000F503E500F504E501F50575E0032506F52C +:1006A0008275E0003507F583E502F075E002250666 +:1006B000F58275E0003507F583E503F075E0012567 +:1006C00006F58275E0003507F583E504F075E00076 +:1006D0002506F58275E0003507F583E505F0E510A0 +:1006E000F51FE511F51EE512F51DE513F51C1201C8 +:1006F00069E582F502E583F503E500F504E501F51A +:100700000575E0072506F58275E0003507F583E5F8 +:1007100002F075E0062506F58275E0003507F583E1 +:10072000E503F075E0052506F58275E0003507F56F +:1007300083E504F075E0042506F58275E0003507D1 +:10074000F583E505F0E510F51FE511F51EE512F559 +:100750001DE513F51C1202D1E582F502E583F503D0 +:10076000E500F504E501F505E502F514E503F515E9 +:10077000E504F516E505F517E510F51FE511F51E7D +:10078000E512F51DE513F51C120439E582F502E5C5 +:1007900083F503E500F504E501F505E502F500E55F +:1007A00003F501E504F509E505F50AC3750B0075C8 +:1007B000E0072506F58275E0003507F583E0F508CA +:1007C000E508F5F075E0032506F58275E0003507CC +:1007D000F583E0F508E50835F0F50C75E00625062B +:1007E000F58275E0003507F583E0F508E508F5F0DA +:1007F00075E0022506F58275E0003507F583E0F522 +:1008000008E50835F0F50B75E0052506F58275E07D +:10081000003507F583E0F508E508F5F075E00125FA +:1008200006F58275E0003507F583E0F508E5083543 +:10083000F0F50D75E0042506F58275E0003507F545 +:1008400083E0F508E508F5F075E0002506F582750A +:10085000E0003507F583E0F508E50835F0F50FC34E +:10086000750E00E514F5F0E50C35F0F50CE515F521 +:10087000F0E50B35F0F50BE516F5F0E50D35F0F587 +:100880000DE517F5F0E50F35F0F50FC3750E00E532 +:1008900000F5F0E50C35F0F500E501F5F0E50B3578 +:1008A000F0F501E509F5F0E50D35F0F509E50AF596 +:1008B000F0E50F35F0F50AE500F502E501F503E591 +:1008C00009F504E50AF50575E0112506F58275E0E0 +:1008D000003507F583E0F51775E0102506F58275FC +:1008E000E0003507F583E0F51675E00F2506F58283 +:1008F00075E0003507F583E0F51575E00E2506F582 +:100900008275E0003507F583E0F51475E00D2506E6 +:10091000F58275E0003507F583E0F51375E00C25E9 +:1009200006F58275E0003507F583E0F51275E00BFA +:100930002506F58275E0003507F583E0F51175E0D1 +:100940000A2506F58275E0003507F583E0F5107598 +:10095000E0082506F58275E0003507F583E0F50827 +:10096000E508C0E075E0092506F58275E000350769 +:10097000F583E0F508E508C0E075E0162506F50604 +:1009800075E0003507F507E502F582E503F583E537 +:1009900004F500E505F5012200000000000000005C +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/return-type-2.s.expected b/tests/GCCTestSuite/return-type-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/return-type-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/return-type-3.c b/tests/GCCTestSuite/return-type-3.c new file mode 100644 index 0000000..e06ba7c --- /dev/null +++ b/tests/GCCTestSuite/return-type-3.c @@ -0,0 +1,14 @@ +/* PR optimization/7189 + This was a missing warning caused by a cfg cleanup after sibling + call optimization. The return clobber insn was cleaned up and + the warning was never issued. */ +/* { dg-do compile } */ +/* { dg-options "-O -foptimize-sibling-calls -Wreturn-type" } */ + +extern void foo(void); + +int +bar (void) +{ + foo(); +} /* { dg-warning "control reaches end of non-void function" "warning for falling off end of non-void function" } */ diff --git a/tests/GCCTestSuite/return-type-3.c.expected b/tests/GCCTestSuite/return-type-3.c.expected new file mode 100644 index 0000000..e06ba7c --- /dev/null +++ b/tests/GCCTestSuite/return-type-3.c.expected @@ -0,0 +1,14 @@ +/* PR optimization/7189 + This was a missing warning caused by a cfg cleanup after sibling + call optimization. The return clobber insn was cleaned up and + the warning was never issued. */ +/* { dg-do compile } */ +/* { dg-options "-O -foptimize-sibling-calls -Wreturn-type" } */ + +extern void foo(void); + +int +bar (void) +{ + foo(); +} /* { dg-warning "control reaches end of non-void function" "warning for falling off end of non-void function" } */ diff --git a/tests/GCCTestSuite/return-type-3.hex.expected b/tests/GCCTestSuite/return-type-3.hex.expected new file mode 100644 index 0000000..7dbd9e4 --- /dev/null +++ b/tests/GCCTestSuite/return-type-3.hex.expected @@ -0,0 +1,14 @@ +:100000000000E506758203C39582F506E507758352 +:10001000009583F507D0E0F50875E0022506F58226 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000012506F58275E0003507F583E508F075C2 +:10004000E0002506F58275E0003507F583E0F5024E +:1000500075E0002506F58275E0003507F583E0F5CB +:100060000375E0002506F58275E0003507F583E0AD +:10007000F50475E0002506F58275E0003507F58387 +:10008000E0F50575E0012506F58275E0003507F518 +:1000900083E0F508E508C0E075E0022506F5827505 +:1000A000E0003507F583E0F508E508C0E075E003FA +:1000B0002506F50675E0003507F507E502F582E54A +:1000C00003F583E504F500E505F5012200000000D5 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/return-type-3.s.expected b/tests/GCCTestSuite/return-type-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/return-type-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/section1.c b/tests/GCCTestSuite/section1.c new file mode 100644 index 0000000..e907f19 --- /dev/null +++ b/tests/GCCTestSuite/section1.c @@ -0,0 +1,5 @@ +/* PR optimization/6871 */ +/* Constant variables belong in .rodata, not .bss. */ +/* { dg-final { scan-assembler-not "\.bss" } } */ + +const int i = 0; diff --git a/tests/GCCTestSuite/section1.c.expected b/tests/GCCTestSuite/section1.c.expected new file mode 100644 index 0000000..e907f19 --- /dev/null +++ b/tests/GCCTestSuite/section1.c.expected @@ -0,0 +1,5 @@ +/* PR optimization/6871 */ +/* Constant variables belong in .rodata, not .bss. */ +/* { dg-final { scan-assembler-not "\.bss" } } */ + +const int i = 0; diff --git a/tests/GCCTestSuite/section1.hex.expected b/tests/GCCTestSuite/section1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/section1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/section1.s.expected b/tests/GCCTestSuite/section1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/section1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/simd-1b.c b/tests/GCCTestSuite/simd-1b.c new file mode 100644 index 0000000..56d94b9 --- /dev/null +++ b/tests/GCCTestSuite/simd-1b.c @@ -0,0 +1,36 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +/* Origin: Aldy Hernandez . */ +/* Purpose: Program to test generic SIMD support. */ + +typedef int __attribute__((vector_size (16))) v4si; +typedef int __attribute__((vector_size (8))) v2si; + +v4si a, b; +v2si c, d; + +void +hanneke () +{ + /* Operators on compatible SIMD types. */ + a %= b; /* { dg-error "invalid operands to binary %" } */ + c &= d; + a |= b; + c ^= d; + a >>= b; /* { dg-error "invalid operands to binary >>" } */ + c <<= d; /* { dg-error "invalid operands to binary <<" } */ + a = +b; + c = ~d; + + /* Operators on incompatible SIMD types. */ + a = b % c; /* { dg-error "invalid operands to binary" } */ + a = b % c; /* { dg-error "invalid operands to binary" } */ + d = c & b; /* { dg-error "invalid operands to binary" } */ + a = b | c; /* { dg-error "invalid operands to binary" } */ + d = c ^ b; /* { dg-error "invalid operands to binary" } */ + a = b >> c; /* { dg-error "invalid operands to binary" } */ + a = b >> c; /* { dg-error "invalid operands to binary" } */ + d = c << b; /* { dg-error "invalid operands to binary" } */ + d = c << b; /* { dg-error "invalid operands to binary" } */ +} diff --git a/tests/GCCTestSuite/simd-1b.c.expected b/tests/GCCTestSuite/simd-1b.c.expected new file mode 100644 index 0000000..56d94b9 --- /dev/null +++ b/tests/GCCTestSuite/simd-1b.c.expected @@ -0,0 +1,36 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +/* Origin: Aldy Hernandez . */ +/* Purpose: Program to test generic SIMD support. */ + +typedef int __attribute__((vector_size (16))) v4si; +typedef int __attribute__((vector_size (8))) v2si; + +v4si a, b; +v2si c, d; + +void +hanneke () +{ + /* Operators on compatible SIMD types. */ + a %= b; /* { dg-error "invalid operands to binary %" } */ + c &= d; + a |= b; + c ^= d; + a >>= b; /* { dg-error "invalid operands to binary >>" } */ + c <<= d; /* { dg-error "invalid operands to binary <<" } */ + a = +b; + c = ~d; + + /* Operators on incompatible SIMD types. */ + a = b % c; /* { dg-error "invalid operands to binary" } */ + a = b % c; /* { dg-error "invalid operands to binary" } */ + d = c & b; /* { dg-error "invalid operands to binary" } */ + a = b | c; /* { dg-error "invalid operands to binary" } */ + d = c ^ b; /* { dg-error "invalid operands to binary" } */ + a = b >> c; /* { dg-error "invalid operands to binary" } */ + a = b >> c; /* { dg-error "invalid operands to binary" } */ + d = c << b; /* { dg-error "invalid operands to binary" } */ + d = c << b; /* { dg-error "invalid operands to binary" } */ +} diff --git a/tests/GCCTestSuite/simd-1b.hex.expected b/tests/GCCTestSuite/simd-1b.hex.expected new file mode 100644 index 0000000..0d404dd --- /dev/null +++ b/tests/GCCTestSuite/simd-1b.hex.expected @@ -0,0 +1,1402 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF500E51EF501E51DD8 +:1000D000F509E51CF50AE51AF515E519F513750F8F +:1000E00000751000751100751200E500F516E501A8 +:1000F000F514E509F50DE50AF50E750C0075170008 +:10010000751900751A00750B00750A01750001C399 +:10011000E518F5F0E50E95F0F509E50BF5F0E50BC2 +:1001200035F0F509E509F5F0E50055F0F500E500D5 +:10013000F5F0E50C45F0F50C750001C3E518F5F098 +:10014000E50E95F0F509E50BF5F0E50B35F0F50951 +:10015000E50EF5F0E51895F0F501E50BF5F0E50B8A +:1001600035F0F501E501F5F0E50945F0F509E50A99 +:10017000F5F0E50965F0F509E509F5F0E50055F05C +:10018000F500C3E513F5F0E50D95F0F509E50BF580 +:10019000F0E50B35F0F509E509F5F0E50055F0F56A +:1001A00000E500F5F0E50C45F0F50C750001C3E540 +:1001B00018F5F0E50E95F0F509E50BF5F0E50B35D2 +:1001C000F0F509E50EF5F0E51895F0F501E50BF50C +:1001D000F0E50B35F0F501E501F5F0E50945F0F541 +:1001E00009E50AF5F0E50965F0F509E509F5F0E539 +:1001F0000055F0F500C3E513F5F0E50D95F0F509B0 +:10020000E50BF5F0E50B35F0F509E50DF5F0E51337 +:1002100095F0F501E50BF5F0E50B35F0F501E5019D +:10022000F5F0E50945F0F509E50AF5F0E50965F0B1 +:10023000F509E509F5F0E50055F0F500C3E515F51C +:10024000F0E51495F0F509E50BF5F0E50B35F0F563 +:1002500009E509F5F0E50055F0F500E500F5F0E5F4 +:100260000C45F0F50C750001C3E518F5F0E50E95A9 +:10027000F0F509E50BF5F0E50B35F0F509E50EF5C0 +:10028000F0E51895F0F501E50BF5F0E50B35F0F527 +:1002900001E501F5F0E50945F0F509E50AF5F0E5B8 +:1002A0000965F0F509E509F5F0E50055F0F500C33D +:1002B000E513F5F0E50D95F0F509E50BF5F0E50B27 +:1002C00035F0F509E50DF5F0E51395F0F501E50BD1 +:1002D000F5F0E50B35F0F501E501F5F0E50945F040 +:1002E000F509E50AF5F0E50965F0F509E509F5F028 +:1002F000E50055F0F500C3E515F5F0E51495F0F5CA +:1003000009E50BF5F0E50B35F0F509E514F5F0E539 +:100310001595F0F501E50BF5F0E50B35F0F501E588 +:1003200001F5F0E50945F0F509E50AF5F0E509659F +:10033000F0F509E509F5F0E50055F0F500C3E51B1A +:10034000F5F0E51695F0F509E50BF5F0E50B35F060 +:10035000F509E509F5F0E50055F0F500E500F5F0E3 +:10036000E50C45F0F50CE517F500E519F501E51A82 +:10037000F509E50CF50B750C01C3750A00E50BF5E5 +:10038000F0E50A95F0F50A750A00E50AF5F0E50AC8 +:1003900035F0F50AE50AF5F0E50C65F0F50CC375E6 +:1003A0000A00E500F5F0E50A95F0F50A750A00E5A2 +:1003B0000AF5F0E50A35F0F50AE50AF5F0E50C6511 +:1003C000F0F50CC3750A00E501F5F0E50A95F0F5C6 +:1003D0000A750A00E50AF5F0E50A35F0F50AE50ABE +:1003E000F5F0E50C65F0F50CC3750A00E509F5F0CC +:1003F000E50A95F0F50A750A00E50AF5F0E50A3513 +:10040000F0F50AE50AF5F0E50C65F0F50C7500006D +:10041000750100750900E500F50BE501F50A7501A8 +:1004200001C3750000E50CF5F0E50095F0F50075E9 +:100430000000E500F5F0E50035F0F500E500F5F029 +:10044000E50165F0F501C3750000E50BF5F0E50089 +:1004500095F0F500750000E500F5F0E50035F0F5E4 +:1004600000E500F5F0E50165F0F501C3750000E574 +:100470000AF5F0E50095F0F500750000E500F5F0EF +:10048000E50035F0F500E500F5F0E50165F0F50172 +:10049000C3750000E509F5F0E50095F0F50075007D +:1004A00000E500F5F0E50035F0F500E500F5F0E5D4 +:1004B0000165F0F501750900750A00750B007500FE +:1004C00000E501F5F0E50045F0F500E509F5F0E59A +:1004D0000045F0F500E50AF5F0E50045F0F500E52A +:1004E0000BF5F0E50045F0F500E500700280030231 +:1004F000055700750001750100750900750A00C3F4 +:10050000750B00E500F5F0E50F35F0F50FE501F5A9 +:10051000F0E51035F0F510E509F5F0E51135F0F5E9 +:1005200011E50AF5F0E51235F0F512C3E51BF5F01B +:10053000E51695F0F516E515F5F0E51495F0F514CA +:10054000E513F5F0E50D95F0F50DE518F5F0E50E80 +:1005500095F0F50E0200FA00E50FF502E510F5033F +:10056000E511F504E512F50575E0092506F5827536 +:10057000E0003507F583E0F51775E0082506F582FC +:1005800075E0003507F583E0F51675E0072506F5FB +:100590008275E0003507F583E0F51575E006250660 +:1005A000F58275E0003507F583E0F51475E0052563 +:1005B00006F58275E0003507F583E0F51375E00474 +:1005C0002506F58275E0003507F583E0F51275E044 +:1005D000032506F58275E0003507F583E0F5117512 +:1005E000E0022506F58275E0003507F583E0F51099 +:1005F00075E0002506F58275E0003507F583E0F526 +:1006000008E508C0E075E0012506F58275E00035D3 +:1006100007F583E0F508E508C0E075E0122506F56A +:100620000675E0003507F507E502F582E503F58379 +:10063000E504F500E505F5012200E506758217C31E +:100640009582F506E5077583009583F507D0E0F5FB +:100650000875E0062506F58275E0003507F583E5A7 +:1006600008F0D0E0F50875E0052506F58275E00094 +:100670003507F583E508F075E00E2506F58275E08F +:10068000003507F583E517F075E00D2506F5827551 +:10069000E0003507F583E516F075E00C2506F582D8 +:1006A00075E0003507F583E515F075E00B2506F5D7 +:1006B0008275E0003507F583E514F075E00A25063C +:1006C000F58275E0003507F583E513F075E009253F +:1006D00006F58275E0003507F583E512F075E00850 +:1006E0002506F58275E0003507F583E511F075E024 +:1006F000072506F58275E0003507F583E510F0E57E +:100700001FF511E51BF512E51AF513E519F514753A +:10071000E0042506F58275E0003507F583E511F064 +:1007200075E0032506F58275E0003507F583E51EC3 +:10073000F075E0022506F58275E0003507F583E5E2 +:100740001DF075E0012506F58275E0003507F5839B +:10075000E51CF07515017516007517007508007514 +:10076000E0002506F58275E0003507F583E508F021 +:10077000751900750D00750E00750F00E51CF5105C +:10078000750080E500F5F0E51025F0F510E500F5C1 +:10079000F0E50F25F0F50F750C00751A00751B00BC +:1007A000751F00750B00750A01750001C3E50FF593 +:1007B000F0E51095F0F509E50BF5F0E50B35F0F5F2 +:1007C00009E509F5F0E50055F0F500E500F5F0E57F +:1007D0000C45F0F50C750001C3E50FF5F0E510953B +:1007E000F0F509E50BF5F0E50B35F0F509E510F549 +:1007F000F0E50F95F0F501E50BF5F0E50B35F0F5BB +:1008000001E501F5F0E50945F0F509E50AF5F0E542 +:100810000965F0F509E509F5F0E50055F0F500C3C7 +:10082000E50EF5F0E51D95F0F509E50BF5F0E50BA6 +:1008300035F0F509E509F5F0E50055F0F500E500BE +:10084000F5F0E50C45F0F50C750001C3E50FF5F08A +:10085000E51095F0F509E50BF5F0E50B35F0F50938 +:10086000E510F5F0E50F95F0F501E50BF5F0E50B7A +:1008700035F0F501E501F5F0E50945F0F509E50A82 +:10088000F5F0E50965F0F509E509F5F0E50055F045 +:10089000F500C3E50EF5F0E51D95F0F509E50BF55E +:1008A000F0E50B35F0F509E51DF5F0E50E95F0F5F1 +:1008B00001E50BF5F0E50B35F0F501E501F5F0E5A7 +:1008C0000945F0F509E50AF5F0E50965F0F509E5F2 +:1008D00009F5F0E50055F0F500C3E50DF5F0E51E6E +:1008E00095F0F509E50BF5F0E50B35F0F509E509AF +:1008F000F5F0E50055F0F500E500F5F0E50C45F004 +:10090000F50C750001C3E50FF5F0E51095F0F5095C +:10091000E50BF5F0E50B35F0F509E510F5F0E50F21 +:1009200095F0F501E50BF5F0E50B35F0F501E50186 +:10093000F5F0E50945F0F509E50AF5F0E50965F09A +:10094000F509E509F5F0E50055F0F500C3E50EF50C +:10095000F0E51D95F0F509E50BF5F0E50B35F0F543 +:1009600009E51DF5F0E50E95F0F501E50BF5F0E56F +:100970000B35F0F501E501F5F0E50945F0F509E580 +:100980000AF5F0E50965F0F509E509F5F0E500552A +:10099000F0F500C3E50DF5F0E51E95F0F509E50B62 +:1009A000F5F0E50B35F0F509E51EF5F0E50D95F0F0 +:1009B000F501E50BF5F0E50B35F0F501E501F5F096 +:1009C000E50945F0F509E50AF5F0E50965F0F509F1 +:1009D000E509F5F0E50055F0F500C3E519F5F0E59A +:1009E0001195F0F509E50BF5F0E50B35F0F509E5A6 +:1009F00009F5F0E50055F0F500E500F5F0E50C45EA +:100A0000F0F50CE51AF501E51BF509E51FF50A758A +:100A10000000E50CF5F0E50045F0F500E501F5F026 +:100A2000E50045F0F500E509F5F0E50045F0F500D5 +:100A3000E50AF5F0E50045F0F500E50070028003F9 +:100A400002116B00751900750D00750E00750F0011 +:100A5000E512F51BE513F51AE514F510E518F51187 +:100A6000750080E500F5F0E51125F0F511E500F5DC +:100A7000F0E50F25F0F50F750C00751C00751D00D5 +:100A8000751E00750B00750A01750001C3E50FF5B1 +:100A9000F0E51195F0F509E50BF5F0E50B35F0F50E +:100AA00009E509F5F0E50055F0F500E500F5F0E59C +:100AB0000C45F0F50C750001C3E50FF5F0E5119557 +:100AC000F0F509E50BF5F0E50B35F0F509E511F565 +:100AD000F0E50F95F0F501E50BF5F0E50B35F0F5D8 +:100AE00001E501F5F0E50945F0F509E50AF5F0E560 +:100AF0000965F0F509E509F5F0E50055F0F500C3E5 +:100B0000E50EF5F0E51095F0F509E50BF5F0E50BD0 +:100B100035F0F509E509F5F0E50055F0F500E500DB +:100B2000F5F0E50C45F0F50C750001C3E50FF5F0A7 +:100B3000E51195F0F509E50BF5F0E50B35F0F50954 +:100B4000E511F5F0E50F95F0F501E50BF5F0E50B96 +:100B500035F0F501E501F5F0E50945F0F509E50A9F +:100B6000F5F0E50965F0F509E509F5F0E50055F062 +:100B7000F500C3E50EF5F0E51095F0F509E50BF588 +:100B8000F0E50B35F0F509E510F5F0E50E95F0F51B +:100B900001E50BF5F0E50B35F0F501E501F5F0E5C4 +:100BA0000945F0F509E50AF5F0E50965F0F509E50F +:100BB00009F5F0E50055F0F500C3E50DF5F0E51A8F +:100BC00095F0F509E50BF5F0E50B35F0F509E509CC +:100BD000F5F0E50055F0F500E500F5F0E50C45F021 +:100BE000F50C750001C3E50FF5F0E51195F0F50979 +:100BF000E50BF5F0E50B35F0F509E511F5F0E50F3E +:100C000095F0F501E50BF5F0E50B35F0F501E501A3 +:100C1000F5F0E50945F0F509E50AF5F0E50965F0B7 +:100C2000F509E509F5F0E50055F0F500C3E50EF529 +:100C3000F0E51095F0F509E50BF5F0E50B35F0F56D +:100C400009E510F5F0E50E95F0F501E50BF5F0E599 +:100C50000B35F0F501E501F5F0E50945F0F509E59D +:100C60000AF5F0E50965F0F509E509F5F0E5005547 +:100C7000F0F500C3E50DF5F0E51A95F0F509E50B83 +:100C8000F5F0E50B35F0F509E51AF5F0E50D95F011 +:100C9000F501E50BF5F0E50B35F0F501E501F5F0B3 +:100CA000E50945F0F509E50AF5F0E50965F0F5090E +:100CB000E509F5F0E50055F0F500C3E519F5F0E5B7 +:100CC0001B95F0F509E50BF5F0E50B35F0F509E5B9 +:100CD00009F5F0E50055F0F500E500F5F0E50C4507 +:100CE000F0F50CE51CF501E51DF509E51EF50A75A5 +:100CF0000000E50CF5F0E50045F0F500E501F5F044 +:100D0000E50045F0F500E509F5F0E50045F0F500F2 +:100D1000E50AF5F0E50045F0F500E5007002800316 +:100D20000210A30075E0042506F58275E000350782 +:100D3000F583E0F51F75E0032506F58275E00035C3 +:100D400007F583E0F51E75E0022506F58275E000E3 +:100D50003507F583E0F51D75E0012506F58275E0A0 +:100D6000003507F583E0F51CE512F51BE513F51AD0 +:100D7000E514F519120000E582F502E583F503E5B7 +:100D800000F504E501F505E502F511E503F512E5C9 +:100D900004F513E505F514E515F500E516F515E57B +:100DA00017F51675E0002506F58275E0003507F5A4 +:100DB00083E0F517750D00750E00750F00751000B6 +:100DC000C3750100E500F5F0E511A4F50CE500F5AB +:100DD000F0E511A4E5F0F509E50CF5F0E50135F0D5 +:100DE000F501E515F5F0E511A4F50CE515F5F0E5CF +:100DF00011A4E5F0F50AE50CF5F0E50935F0F50983 +:100E0000E516F5F0E511A4F50CE516F5F0E511A4ED +:100E1000E5F0F50BE50CF5F0E50A35F0F50AE51718 +:100E2000F5F0E511A4F50CE517F5F0E511A4E5F0F2 +:100E3000F511E50CF5F0E50B35F0F50BC3C3750CBA +:100E400000E501F5F0E50D35F0F50DE509F5F0E506 +:100E50000E35F0F50EE50AF5F0E50F35F0F50FE586 +:100E60000BF5F0E51035F0F510C3750900E500F558 +:100E7000F0E512A4F50CE500F5F0E512A4E5F0F5B7 +:100E80000AE50CF5F0E50935F0F509E515F5F0E5AD +:100E900012A4F50CE515F5F0E512A4E5F0F50BE567 +:100EA0000CF5F0E50A35F0F50AE516F5F0E512A4C3 +:100EB000F50CE516F5F0E512A4E5F0F511E50CF5F5 +:100EC000F0E50B35F0F50B750100C3C3750C00E5BB +:100ED00001F5F0E50D35F0F50DE509F5F0E50E3518 +:100EE000F0F50EE50AF5F0E50F35F0F50FE50BF539 +:100EF000F0E51035F0F510C3750A00E500F5F0E5F2 +:100F000013A4F50CE500F5F0E513A4E5F0F50BE509 +:100F10000CF5F0E50A35F0F50AE515F5F0E513A452 +:100F2000F50CE515F5F0E513A4E5F0F511E50CF584 +:100F3000F0E50B35F0F50B750100750900C3C375BD +:100F40000C00E501F5F0E50D35F0F50DE509F5F0DE +:100F5000E50E35F0F50EE50AF5F0E50F35F0F50F85 +:100F6000E50BF5F0E51035F0F510C3750B00E50065 +:100F7000F5F0E514A4F50CE500F5F0E514A4E5F0B2 +:100F8000F511E50CF5F0E50B35F0F50B7501007585 +:100F90000900750A00C3C3750000E501F5F0E50D11 +:100FA00035F0F50DE509F5F0E50E35F0F50EE50A3D +:100FB000F5F0E50F35F0F50FE50BF5F0E51035F040 +:100FC000F510E50DF502E50EF503E50FF504E51066 +:100FD000F50575E00E2506F58275E0003507F58309 +:100FE000E0F51775E00D2506F58275E0003507F58B +:100FF00083E0F51675E00C2506F58275E0003507EF +:10100000F583E0F51575E00B2506F58275E00035F2 +:1010100007F583E0F51475E00A2506F58275E00012 +:101020003507F583E0F51375E0092506F58275E0CF +:10103000003507F583E0F51275E0082506F58275A1 +:10104000E0003507F583E0F51175E0072506F58228 +:1010500075E0003507F583E0F51075E0052506F528 +:101060008275E0003507F583E0F508E508C0E07516 +:10107000E0062506F58275E0003507F583E0F50802 +:10108000E508C0E075E0172506F50675E0003507B0 +:10109000F507E502F582E503F583E504F500E505CE +:1010A000F5012200E512F4F512E513F4F513E51449 +:1010B000F4F514E518F4F518D3750000E500F5F023 +:1010C000E51235F0F512E500F5F0E51335F0F5130E +:1010D000E500F5F0E51435F0F514E500F5F0E51858 +:1010E00035F0F518E515F4F515E516F4F516E517E0 +:1010F000F4F51775E0002506F58275E0003507F573 +:1011000083E0F508E508F4F50875E0002506F582AA +:1011100075E0003507F583E508F0D3750000E500BC +:10112000F5F0E51535F0F515E500F5F0E51635F0C7 +:10113000F516E500F5F0E51735F0F517E500F5F0E3 +:1011400075E0002506F58275E0003507F583E0F5CA +:1011500008E50835F0F50875E0002506F58275E02C +:10116000003507F583E508F0020D2400E511F4F5DC +:1011700000E51EF4F501E51DF4F509E51CF4F50B99 +:10118000D3750A00E50AF5F0E50035F0F500E50A4B +:10119000F5F0E50135F0F501E50AF5F0E50935F082 +:1011A000F509E50AF5F0E50B35F0F50B75E00425DA +:1011B00006F58275E0003507F583E500F075E0037C +:1011C0002506F58275E0003507F583E501F075E049 +:1011D000022506F58275E0003507F583E509F0750F +:1011E000E0012506F58275E0003507F583E50BF093 +:1011F000E515F4F515E516F4F516E517F4F517758C +:10120000E0002506F58275E0003507F583E0F50876 +:10121000E508F4F50875E0002506F58275E000356F +:1012200007F583E508F0D3750000E500F5F0E51556 +:1012300035F0F515E500F5F0E51635F0F516E500A5 +:10124000F5F0E51735F0F517E500F5F075E0002548 +:1012500006F58275E0003507F583E0F508E5083509 +:10126000F0F50875E0002506F58275E0003507F514 +:1012700083E508F0020A4400E506758216C39582EC +:10128000F506E5077583009583F507D0E0F5087549 +:10129000E0052506F58275E0003507F583E508F0E1 +:1012A000D0E0F50875E0042506F58275E000350705 +:1012B000F583E508F075E00D2506F58275E000354B +:1012C00007F583E517F075E00C2506F58275E0005B +:1012D0003507F583E516F075E00B2506F58275E018 +:1012E000003507F583E515F075E00A2506F58275EA +:1012F000E0003507F583E514F075E0092506F58271 +:1013000075E0003507F583E513F075E0082506F56F +:101310008275E0003507F583E512F075E0072506D4 +:10132000F58275E0003507F583E511F075E00625D7 +:1013300006F58275E0003507F583E510F075E003EA +:101340002506F58275E0003507F583E51FF075E0A9 +:10135000022506F58275E0003507F583E51EF07578 +:10136000E0012506F58275E0003507F583E51DF0FF +:1013700075E0002506F58275E0003507F583E51C6C +:10138000F0E51BF514E51AF515E519F516E518F560 +:101390001775E0032506F58275E0003507F583E053 +:1013A000F51F75E0022506F58275E0003507F58327 +:1013B000E0F51E75E0012506F58275E0003507F5BC +:1013C00083E0F51D75E0002506F58275E000350720 +:1013D000F583E0F51CE514F51BE515F51AE516F5A2 +:1013E00019E517F518120639E582F502E583F503CC +:1013F000E500F504E501F505E502F500E503F50175 +:10140000E504F509E505F50A75100075110075127A +:1014100000751300C3750B00E500F5F0E514A4F5A5 +:101420000FE500F5F0E514A4E5F0F50CE50FF5F097 +:10143000E50B35F0F50BE501F5F0E514A4F50FE546 +:1014400001F5F0E514A4E5F0F50DE50FF5F0E50C78 +:1014500035F0F50CE509F5F0E514A4F50FE509F50F +:10146000F0E514A4E5F0F50EE50FF5F0E50D35F027 +:10147000F50DE50AF5F0E514A4F50FE50AF5F0E53C +:1014800014A4E5F0F50AE50FF5F0E50E35F0F50EDC +:10149000C3C3750A00E50BF5F0E51035F0F510E56E +:1014A0000CF5F0E51135F0F511E50DF5F0E5123527 +:1014B000F0F512E50EF5F0E51335F0F513C3750CF4 +:1014C00000E500F5F0E515A4F50FE500F5F0E515EC +:1014D000A4E5F0F50DE50FF5F0E50C35F0F50CE5BC +:1014E00001F5F0E515A4F50FE501F5F0E515A4E526 +:1014F000F0F50EE50FF5F0E50D35F0F50DE509F524 +:10150000F0E515A4F50FE509F5F0E515A4E5F0F50E +:101510000AE50FF5F0E50E35F0F50E750B00C3C3C7 +:10152000750900E50BF5F0E51035F0F510E50CF563 +:10153000F0E51135F0F511E50DF5F0E51235F0F5B2 +:1015400012E50EF5F0E51335F0F513C3750D00E562 +:1015500000F5F0E516A4F50FE500F5F0E516A4E5B5 +:10156000F0F50EE50FF5F0E50D35F0F50DE501F5BB +:10157000F0E516A4F50FE501F5F0E516A4E5F0F5A4 +:101580000AE50FF5F0E50E35F0F50E750B00750C5C +:1015900000C3C3750100E50BF5F0E51035F0F5105B +:1015A000E50CF5F0E51135F0F511E50DF5F0E51276 +:1015B00035F0F512E50EF5F0E51335F0F513C375CA +:1015C0000E00E500F5F0E517A4F50FE500F5F0E5F0 +:1015D00017A4E5F0F50AE50FF5F0E50E35F0F50E88 +:1015E000750B00750C00750D00C3C3750000E50B8D +:1015F000F5F0E51035F0F510E50CF5F0E51135F0F6 +:10160000F511E50DF5F0E51235F0F512E50EF5F002 +:10161000E51335F0F513C3E510F5F075E003250685 +:10162000F58275E0003507F583E0F508E50895F0EB +:10163000F500E511F5F075E0022506F58275E0008C +:101640003507F583E0F508E50895F0F501E512F5B5 +:10165000F075E0012506F58275E0003507F583E0B9 +:10166000F508E50895F0F509E513F5F075E00025B6 +:1016700006F58275E0003507F583E0F508E5089585 +:10168000F0F50AE500F502E501F503E509F504E5E5 +:101690000AF50575E00D2506F58275E0003507F5BC +:1016A00083E0F51775E00C2506F58275E000350737 +:1016B000F583E0F51675E00B2506F58275E000353B +:1016C00007F583E0F51575E00A2506F58275E0005B +:1016D0003507F583E0F51475E0092506F58275E018 +:1016E000003507F583E0F51375E0082506F58275EA +:1016F000E0003507F583E0F51275E0072506F58271 +:1017000075E0003507F583E0F51175E0062506F56F +:101710008275E0003507F583E0F51075E0042506D5 +:10172000F58275E0003507F583E0F508E508C0E0CF +:1017300075E0052506F58275E0003507F583E0F5CF +:1017400008E508C0E075E0162506F50675E00035E9 +:1017500007F507E502F582E503F583E504F500E505 +:1017600005F5012200E506758212C39582F506E5AE +:10177000077583009583F507D0E0F50875E001252E +:1017800006F58275E0003507F583E508F0D0E0F551 +:101790000875E0002506F58275E0003507F583E55C +:1017A00008F075E0092506F58275E0003507F58338 +:1017B000E517F075E0082506F58275E0003507F5B8 +:1017C00083E516F075E0072506F58275E00035071C +:1017D000F583E515F075E0062506F58275E0003520 +:1017E00007F583E514F075E0052506F58275E00040 +:1017F0003507F583E513F075E0042506F58275E0FD +:10180000003507F583E512F075E0032506F58275CE +:10181000E0003507F583E511F075E0022506F58255 +:1018200075E0003507F583E510F0E51FF500E51ECE +:10183000F501E51DF509E51CF50AE51BF51EE519A1 +:10184000F516E518F51FE500F50FE501F510E509BA +:10185000F511E50AF5127519007515007513007577 +:101860001D00E51DF50EE51FF50D750080E500F581 +:10187000F0E50E25F0F50EE500F5F0E50D25F0F5A7 +:101880000D750C00751400751700751800750B00A8 +:10189000750A01750001C3E50DF5F0E50E95F0F54B +:1018A00009E50BF5F0E50B35F0F509E509F5F0E58F +:1018B0000055F0F500E500F5F0E50C45F0F50C7588 +:1018C0000001C3E50DF5F0E50E95F0F509E50BF522 +:1018D000F0E50B35F0F509E50EF5F0E50D95F0F5C1 +:1018E00001E50BF5F0E50B35F0F501E501F5F0E567 +:1018F0000945F0F509E50AF5F0E50965F0F509E5B2 +:1019000009F5F0E50055F0F500C3E516F5F0E5132F +:1019100095F0F509E50BF5F0E50B35F0F509E5096E +:10192000F5F0E50055F0F500E500F5F0E50C45F0C3 +:10193000F50C750001C3E50DF5F0E50E95F0F50920 +:10194000E50BF5F0E50B35F0F509E50EF5F0E50DE5 +:1019500095F0F501E50BF5F0E50B35F0F501E50146 +:10196000F5F0E50945F0F509E50AF5F0E50965F05A +:10197000F509E509F5F0E50055F0F500C3E516F5C4 +:10198000F0E51395F0F509E50BF5F0E50B35F0F50D +:1019900009E513F5F0E51695F0F501E50BF5F0E531 +:1019A0000B35F0F501E501F5F0E50945F0F509E540 +:1019B0000AF5F0E50965F0F509E509F5F0E50055EA +:1019C000F0F500C3E51AF5F0E51595F0F509E50B1E +:1019D000F5F0E50B35F0F509E509F5F0E50055F012 +:1019E000F500E500F5F0E50C45F0F50C750001C3D8 +:1019F000E50DF5F0E50E95F0F509E50BF5F0E50BD5 +:101A000035F0F509E50EF5F0E50D95F0F501E50B7E +:101A1000F5F0E50B35F0F501E501F5F0E50945F0E8 +:101A2000F509E50AF5F0E50965F0F509E509F5F0D0 +:101A3000E50055F0F500C3E516F5F0E51395F0F572 +:101A400009E50BF5F0E50B35F0F509E513F5F0E5E3 +:101A50001695F0F501E50BF5F0E50B35F0F501E530 +:101A600001F5F0E50945F0F509E50AF5F0E5096548 +:101A7000F0F509E509F5F0E50055F0F500C3E51AC4 +:101A8000F5F0E51595F0F509E50BF5F0E50B35F00A +:101A9000F509E515F5F0E51A95F0F501E50BF5F01A +:101AA000E50B35F0F501E501F5F0E50945F0F5093F +:101AB000E50AF5F0E50965F0F509E509F5F0E50059 +:101AC00055F0F500C3E51EF5F0E51995F0F509E5CB +:101AD0000BF5F0E50B35F0F509E509F5F0E50055F6 +:101AE000F0F500E500F5F0E50C45F0F50CE50CF53A +:101AF0000AE514F500E517F501E518F509E50AF51D +:101B00000C750B01C3750A00E50CF5F0E50A95F0BC +:101B1000F50A750A00E50AF5F0E50A35F0F50AE57B +:101B20000AF5F0E50B65F0F50BC3750A00E500F565 +:101B3000F0E50A95F0F50A750A00E50AF5F0E50A00 +:101B400035F0F50AE50AF5F0E50B65F0F50BC37520 +:101B50000A00E501F5F0E50A95F0F50A750A00E5D9 +:101B60000AF5F0E50A35F0F50AE50AF5F0E50B654A +:101B7000F0F50BC3750A00E509F5F0E50A95F0F5F7 +:101B80000A750A00E50AF5F0E50A35F0F50AE50AF6 +:101B9000F5F0E50B65F0F50B750100750900750AA8 +:101BA00000750000E50BF5F0E50045F0F500E501F6 +:101BB000F5F0E50045F0F500E509F5F0E50045F044 +:101BC000F500E50AF5F0E50045F0F500E5007002E6 +:101BD0008003021E3B00750D02750E00751700751F +:101BE0001B00E50FF500E510F514E511F518E512F9 +:101BF000F51C750F00751000751100751200C37586 +:101C00000100E500F5F0E50DA4F50CE500F5F0E5C3 +:101C10000DA4E5F0F509E50CF5F0E50135F0F50169 +:101C2000E514F5F0E50DA4F50CE514F5F0E50DA4CB +:101C3000E5F0F50AE50CF5F0E50935F0F509E518EC +:101C4000F5F0E50DA4F50CE518F5F0E50DA4E5F0CB +:101C5000F50BE50CF5F0E50A35F0F50AE51CF5F0B5 +:101C6000E50DA4F50CE51CF5F0E50DA4E5F0F50D8A +:101C7000E50CF5F0E50B35F0F50BC3C3750C00E58D +:101C800001F5F0E50F35F0F50FE509F5F0E5103554 +:101C9000F0F510E50AF5F0E51135F0F511E50BF575 +:101CA000F0E51235F0F512C3750900E500F5F0E531 +:101CB0000EA4F50CE500F5F0E50EA4E5F0F50AE557 +:101CC0000CF5F0E50935F0F509E514F5F0E50EA49D +:101CD000F50CE514F5F0E50EA4E5F0F50BE50CF5D3 +:101CE000F0E50A35F0F50AE518F5F0E50EA4F50C77 +:101CF000E518F5F0E50EA4E5F0F50DE50CF5F0E5D9 +:101D00000B35F0F50B750100C3C3750C00E501F54B +:101D1000F0E50F35F0F50FE509F5F0E51035F0F5D4 +:101D200010E50AF5F0E51135F0F511E50BF5F0E5F4 +:101D30001235F0F512C3750A00E500F5F0E517A4B9 +:101D4000F50CE500F5F0E517A4E5F0F50BE50CF56D +:101D5000F0E50A35F0F50AE514F5F0E517A4F50C01 +:101D6000E514F5F0E517A4E5F0F50DE50CF5F0E563 +:101D70000B35F0F50B750100750900C3C3750C0038 +:101D8000E501F5F0E50F35F0F50FE509F5F0E510A3 +:101D900035F0F510E50AF5F0E51135F0F511E50B34 +:101DA000F5F0E51235F0F512C3750B00E500F5F01E +:101DB000E51BA4F50CE500F5F0E51BA4E5F0F50D39 +:101DC000E50CF5F0E50B35F0F50B75010075090034 +:101DD000750A00C3C3750000E501F5F0E50F35F0A5 +:101DE000F50FE509F5F0E51035F0F510E50AF5F029 +:101DF000E51135F0F511E50BF5F0E51235F0F512CA +:101E0000750001750100750900750A00C3750B00A6 +:101E1000E500F5F0E51935F0F519E501F5F0E51502 +:101E200035F0F515E509F5F0E51335F0F513E50A9C +:101E3000F5F0E51D35F0F51D02186200E50FF5021D +:101E4000E510F503E511F504E512F50575E0092542 +:101E500006F58275E0003507F583E0F51775E008B3 +:101E60002506F58275E0003507F583E0F51675E087 +:101E7000072506F58275E0003507F583E0F5157551 +:101E8000E0062506F58275E0003507F583E0F514D8 +:101E900075E0052506F58275E0003507F583E0F568 +:101EA0001375E0042506F58275E0003507F583E03B +:101EB000F51275E0032506F58275E0003507F58318 +:101EC000E0F51175E0022506F58275E0003507F5AD +:101ED00083E0F51075E0002506F58275E000350712 +:101EE000F583E0F508E508C0E075E0012506F58218 +:101EF00075E0003507F583E0F508E508C0E075E01A +:101F0000122506F50675E0003507F507E502F582AE +:101F1000E503F583E504F500E505F5012200E50696 +:101F2000758219C39582F506E5077583009583F5DB +:101F300007D0E0F50875E0082506F58275E0003564 +:101F400007F583E508F0D0E0F50875E0072506F50C +:101F50008275E0003507F583E508F075E010250689 +:101F6000F58275E0003507F583E517F075E00F257C +:101F700006F58275E0003507F583E516F075E00E8D +:101F80002506F58275E0003507F583E515F075E067 +:101F90000D2506F58275E0003507F583E514F0752B +:101FA000E00C2506F58275E0003507F583E513F0B2 +:101FB00075E00B2506F58275E0003507F583E5121F +:101FC000F075E00A2506F58275E0003507F583E532 +:101FD00011F075E0092506F58275E0003507F583F7 +:101FE000E510F0E51DF517E51CF516E518F5157576 +:101FF0001400750D00750E00750F00E515F51075D0 +:102000000080E500F5F0E51025F0F510E500F5F0AD +:10201000E50F25F0F50F750C0075110075120075B0 +:102020001300750B00750A01750001C3E50FF5F08B +:10203000E51095F0F509E50BF5F0E50B35F0F50940 +:10204000E509F5F0E50055F0F500E500F5F0E50CE3 +:1020500045F0F50C750001C3E50FF5F0E51095F0BE +:10206000F509E50BF5F0E50B35F0F509E510F5F0B0 +:10207000E50F95F0F501E50BF5F0E50B35F0F50111 +:10208000E501F5F0E50945F0F509E50AF5F0E509A2 +:1020900065F0F509E509F5F0E50055F0F500C3E553 +:1020A0000EF5F0E51995F0F509E50BF5F0E50B35C2 +:1020B000F0F509E509F5F0E50055F0F500E500F566 +:1020C000F0E50C45F0F50C750001C3E50FF5F0E502 +:1020D0001095F0F509E50BF5F0E50B35F0F509E5A0 +:1020E00010F5F0E50F95F0F501E50BF5F0E50B3592 +:1020F000F0F501E501F5F0E50945F0F509E50AF52A +:10210000F0E50965F0F509E509F5F0E50055F0F5AC +:1021100000C3E50EF5F0E51995F0F509E50BF5F0CE +:10212000E50B35F0F509E519F5F0E50E95F0F5014B +:10213000E50BF5F0E50B35F0F501E501F5F0E50906 +:1021400045F0F509E50AF5F0E50965F0F509E50959 +:10215000F5F0E50055F0F500C3E50DF5F0E51A954D +:10216000F0F509E50BF5F0E50B35F0F509E509F5B6 +:10217000F0E50055F0F500E500F5F0E50C45F0F56B +:102180000C750001C3E50FF5F0E51095F0F509E5D4 +:102190000BF5F0E50B35F0F509E510F5F0E50F95D9 +:1021A000F0F501E50BF5F0E50B35F0F501E501F58E +:1021B000F0E50945F0F509E50AF5F0E50965F0F502 +:1021C00009E509F5F0E50055F0F500C3E50EF5F079 +:1021D000E51995F0F509E50BF5F0E50B35F0F50996 +:1021E000E519F5F0E50E95F0F501E50BF5F0E50BD9 +:1021F00035F0F501E501F5F0E50945F0F509E50AE9 +:10220000F5F0E50965F0F509E509F5F0E50055F0AB +:10221000F500C3E50DF5F0E51A95F0F509E50BF5C8 +:10222000F0E50B35F0F509E51AF5F0E50D95F0F55B +:1022300001E50BF5F0E50B35F0F501E501F5F0E50D +:102240000945F0F509E50AF5F0E50965F0F509E558 +:1022500009F5F0E50055F0F500C3E514F5F0E51BD0 +:1022600095F0F509E50BF5F0E50B35F0F509E50915 +:10227000F5F0E50055F0F500E500F5F0E50C45F06A +:10228000F50C750000E50CF5F0E50045F0F500E50E +:1022900011F5F0E50045F0F500E512F5F0E5004533 +:1022A000F0F500E513F5F0E50045F0F500E5007008 +:1022B00002800302300400E51FF51CE51EF51DE554 +:1022C00017F51FE516F51E75E0032506F58275E086 +:1022D000003507F583E51BF075E0022506F58275EC +:1022E000E0003507F583E51AF075E0012506F58273 +:1022F00075E0003507F583E519F075E0002506F572 +:102300008275E0003507F583E515F0751301751446 +:102310000075150075120075E0062506F58275E05A +:10232000003507F583E51FF075E0052506F5827594 +:10233000E0003507F583E51EF075080075E004251B +:1023400006F58275E0003507F583E508F07516009F +:1023500075110075100075171F750F00750C00754D +:102360000D00750B00751800751900751A00750AB7 +:1023700000750E01750001C3E50DF5F0E51095F04F +:10238000F509E50AF5F0E50A35F0F509E509F5F096 +:10239000E50055F0F500E500F5F0E50B45F0F50B2F +:1023A000750001C3E50DF5F0E51095F0F509E50AB6 +:1023B000F5F0E50A35F0F509E510F5F0E50D95F0D5 +:1023C000F501E50AF5F0E50A35F0F501E501F5F06E +:1023D000E50945F0F509E50EF5F0E50965F0F509C3 +:1023E000E509F5F0E50055F0F500C3E50CF5F0E57D +:1023F0001195F0F509E50AF5F0E50A35F0F509E57E +:1024000009F5F0E50055F0F500E500F5F0E50B45C0 +:10241000F0F50B750001C3E50DF5F0E51095F0F54D +:1024200009E50AF5F0E50A35F0F509E510F5F0E5FE +:102430000D95F0F501E50AF5F0E50A35F0F501E551 +:1024400001F5F0E50945F0F509E50EF5F0E509655A +:10245000F0F509E509F5F0E50055F0F500C3E50CE8 +:10246000F5F0E51195F0F509E50AF5F0E50A35F026 +:10247000F509E511F5F0E50C95F0F501E50AF5F043 +:10248000E50A35F0F501E501F5F0E50945F0F50956 +:10249000E50EF5F0E50965F0F509E509F5F0E5006B +:1024A00055F0F500C3E50FF5F0E51695F0F509E5F3 +:1024B0000AF5F0E50A35F0F509E509F5F0E500550E +:1024C000F0F500E500F5F0E50B45F0F50B750001C2 +:1024D000C3E50DF5F0E51095F0F509E50AF5F0E531 +:1024E0000A35F0F509E510F5F0E50D95F0F501E593 +:1024F0000AF5F0E50A35F0F501E501F5F0E50945E5 +:10250000F0F509E50EF5F0E50965F0F509E509F5E1 +:10251000F0E50055F0F500C3E50CF5F0E51195F098 +:10252000F509E50AF5F0E50A35F0F509E511F5F0EC +:10253000E50C95F0F501E50AF5F0E50A35F0F50151 +:10254000E501F5F0E50945F0F509E50EF5F0E509D9 +:1025500065F0F509E509F5F0E50055F0F500C3E58E +:102560000FF5F0E51695F0F509E50AF5F0E50A3501 +:10257000F0F509E516F5F0E50F95F0F501E50AF53A +:10258000F0E50A35F0F501E501F5F0E50945F0F56E +:1025900009E50EF5F0E50965F0F509E509F5F0E561 +:1025A0000055F0F500C3E517F5F075E0042506F5D4 +:1025B0008275E0003507F583E0F508E50895F0F54C +:1025C00009E50AF5F0E50A35F0F509E509F5F0E564 +:1025D0000055F0F500E500F5F0E50B45F0F50BE5ED +:1025E00018F500E519F501E51AF50C750A01C37532 +:1025F0000900E50BF5F0E50995F0F509750900E529 +:1026000009F5F0E50935F0F509E509F5F0E50A65A4 +:10261000F0F50AC3750900E500F5F0E50995F0F558 +:1026200009750900E509F5F0E50935F0F509E50951 +:10263000F5F0E50A65F0F50AC3750900E501F5F066 +:10264000E50995F0F509750900E509F5F0E50935A5 +:10265000F0F509E509F5F0E50A65F0F50AC3750935 +:1026600000E50CF5F0E50995F0F509750900E509B7 +:10267000F5F0E50935F0F509E509F5F0E50A65F04D +:10268000F50A750100750900750B00750000E50A73 +:10269000F5F0E50045F0F500E501F5F0E50045F061 +:1026A000F500E509F5F0E50045F0F500E50BF5F07E +:1026B000E50045F0F500E5007002800302294700BF +:1026C000750C02750D00750F00751800E513F50EF9 +:1026D000E514F517E515F519E512F51A75130075EA +:1026E0001400751500751200C3750000E50EF5F0B5 +:1026F000E50CA4F50BE50EF5F0E50CA4E5F0F5010D +:10270000E50BF5F0E50035F0F500E517F5F0E50C23 +:10271000A4F50BE517F5F0E50CA4E5F0F509E50BDC +:10272000F5F0E50135F0F501E519F5F0E50CA4F556 +:102730000BE519F5F0E50CA4E5F0F50AE50BF5F06D +:10274000E50935F0F509E51AF5F0E50CA4F50BE51A +:102750001AF5F0E50CA4E5F0F50CE50BF5F0E50A4B +:1027600035F0F50AC3C3750B00E500F5F0E5133548 +:10277000F0F513E501F5F0E51435F0F514E509F58C +:10278000F0E51535F0F515E50AF5F0E51235F0F54B +:1027900012C3750100E50EF5F0E50DA4F50BE50E8D +:1027A000F5F0E50DA4E5F0F509E50BF5F0E50135EB +:1027B000F0F501E517F5F0E50DA4F50BE517F5F0DB +:1027C000E50DA4E5F0F50AE50BF5F0E50935F0F5C2 +:1027D00009E519F5F0E50DA4F50BE519F5F0E50DA2 +:1027E000A4E5F0F50CE50BF5F0E50A35F0F50A7512 +:1027F0000000C3C3750B00E500F5F0E51335F0F5F7 +:1028000013E501F5F0E51435F0F514E509F5F0E50B +:102810001535F0F515E50AF5F0E51235F0F512C3BA +:10282000750900E50EF5F0E50FA4F50BE50EF5F0E2 +:10283000E50FA4E5F0F50AE50BF5F0E50935F0F54F +:1028400009E517F5F0E50FA4F50BE517F5F0E50F31 +:10285000A4E5F0F50CE50BF5F0E50A35F0F50A75A1 +:102860000000750100C3C3750B00E500F5F0E5132A +:1028700035F0F513E501F5F0E51435F0F514E5094B +:10288000F5F0E51535F0F515E50AF5F0E51235F04A +:10289000F512C3750A00E50EF5F0E518A4F50BE591 +:1028A0000EF5F0E518A4E5F0F50CE50BF5F0E50AFA +:1028B00035F0F50A750000750100750900C3C37590 +:1028C0000B00E500F5F0E51335F0F513E501F5F043 +:1028D000E51435F0F514E509F5F0E51535F0F515D5 +:1028E000E50AF5F0E51235F0F51275000175010005 +:1028F000750900750A00C3750B00E500F5F075E079 +:10290000042506F58275E0003507F583E0F508E556 +:102910000835F0F50875E0042506F58275E0003508 +:1029200007F583E508F0E501F5F0E51635F0F51655 +:10293000E509F5F0E51135F0F511E50AF5F0E510DA +:1029400035F0F51002235600C3E51CF5F0E51355EC +:10295000F0F513E51DF5F0E51455F0F514E51FF558 +:10296000F0E51555F0F515E51EF5F0E51255F0F515 +:102970001275080075E0042506F58275E00035073C +:10298000F583E508F0751600751100751000750CDB +:1029900000750D00750E00750F00750B00750A01AE +:1029A000750001C375E0002506F58275E000350766 +:1029B000F583E0F508E508F5F0E51095F0F509E593 +:1029C0000BF5F0E50B35F0F509E509F5F0E50055F7 +:1029D000F0F500E500F5F0E50C45F0F50C750001AB +:1029E000C375E0002506F58275E0003507F583E044 +:1029F000F508E508F5F0E51095F0F509E50BF5F0BB +:102A0000E50B35F0F509E510F5F075E0002506F564 +:102A10008275E0003507F583E0F508E50895F0F5E7 +:102A200001E50BF5F0E50B35F0F501E501F5F0E515 +:102A30000945F0F509E50AF5F0E50965F0F509E560 +:102A400009F5F0E50055F0F500C375E0012506F540 +:102A50008275E0003507F583E0F508E508F5F0E557 +:102A60001195F0F509E50BF5F0E50B35F0F509E505 +:102A700009F5F0E50055F0F500E500F5F0E50C4549 +:102A8000F0F50C750001C375E0002506F58275E0D0 +:102A9000003507F583E0F508E508F5F0E51095F059 +:102AA000F509E50BF5F0E50B35F0F509E510F5F066 +:102AB00075E0002506F58275E0003507F583E0F541 +:102AC00008E50895F0F501E50BF5F0E50B35F0F5B7 +:102AD00001E501F5F0E50945F0F509E50AF5F0E550 +:102AE0000965F0F509E509F5F0E50055F0F500C3D5 +:102AF00075E0012506F58275E0003507F583E0F500 +:102B000008E508F5F0E51195F0F509E50BF5F0E5B8 +:102B10000B35F0F509E511F5F075E0012506F582B4 +:102B200075E0003507F583E0F508E50895F0F50157 +:102B3000E50BF5F0E50B35F0F501E501F5F0E509FC +:102B400045F0F509E50AF5F0E50965F0F509E5094F +:102B5000F5F0E50055F0F500C375E0022506F582B5 +:102B600075E0003507F583E0F508E508F5F0E516B2 +:102B700095F0F509E50BF5F0E50B35F0F509E509FC +:102B8000F5F0E50055F0F500E500F5F0E50C45F051 +:102B9000F50C750001C375E0002506F58275E000AF +:102BA0003507F583E0F508E508F5F0E51095F0F553 +:102BB00009E50BF5F0E50B35F0F509E510F5F075D5 +:102BC000E0002506F58275E0003507F583E0F5089D +:102BD000E50895F0F501E50BF5F0E50B35F0F501AD +:102BE000E501F5F0E50945F0F509E50AF5F0E50937 +:102BF00065F0F509E509F5F0E50055F0F500C37558 +:102C0000E0012506F58275E0003507F583E0F5085B +:102C1000E508F5F0E51195F0F509E50BF5F0E50BA4 +:102C200035F0F509E511F5F075E0012506F5827539 +:102C3000E0003507F583E0F508E50895F0F501E5D6 +:102C40000BF5F0E50B35F0F501E501F5F0E509458B +:102C5000F0F509E50AF5F0E50965F0F509E509F58E +:102C6000F0E50055F0F500C375E0022506F5827524 +:102C7000E0003507F583E0F508E508F5F0E5169581 +:102C8000F0F509E50BF5F0E50B35F0F509E516F57E +:102C9000F075E0022506F58275E0003507F583E062 +:102CA000F508E50895F0F501E50BF5F0E50B35F0D5 +:102CB000F501E501F5F0E50945F0F509E50AF5F05E +:102CC000E50965F0F509E509F5F0E50055F0F500D1 +:102CD000C375E0032506F58275E0003507F583E04E +:102CE000F508E508F5F075E0042506F58275E000C5 +:102CF0003507F583E0F508E50895F0F509E50BF5EE +:102D0000F0E50B35F0F509E509F5F0E50055F0F5CE +:102D100000E500F5F0E50C45F0F50CE50DF500E5F6 +:102D20000EF501E50FF509E500F50BE501F50A756E +:102D30000101C3750000E50CF5F0E50095F0F50024 +:102D4000750000E500F5F0E50035F0F500E500F56B +:102D5000F0E50165F0F501C3750000E50BF5F0E560 +:102D60000095F0F500750000E500F5F0E50035F0A0 +:102D7000F500E500F5F0E50165F0F501C37500002B +:102D8000E50AF5F0E50095F0F500750000E500F5C1 +:102D9000F0E50035F0F500E500F5F0E50165F0F54A +:102DA00001C3750000E509F5F0E50095F0F5007543 +:102DB0000000E500F5F0E50035F0F500E500F5F080 +:102DC000E50165F0F501750900750A00750B0075E0 +:102DD0000000E501F5F0E50045F0F500E509F5F046 +:102DE000E50045F0F500E50AF5F0E50045F0F500F1 +:102DF000E50BF5F0E50045F0F500E5007002800315 +:102E0000022F0800751B02751A007519007518004D +:102E1000E51CF51FE51DF51E75E0062506F5827516 +:102E2000E0003507F583E0F51D75E0052506F58220 +:102E300075E0003507F583E0F51C120000E582F52A +:102E400002E583F503E500F504E501F505E502F586 +:102E50000AE503F509E504F501E505F500C3750B81 +:102E600000E513F5F0E50A35F0F51CE514F5F0E59D +:102E70000935F0F51DE515F5F0E50135F0F50875B6 +:102E8000E0062506F58275E0003507F583E508F0D4 +:102E9000E512F5F0E50035F0F50875E0052506F5D5 +:102EA0008275E0003507F583E508F07500017501CE +:102EB00000750900750A00C3750B00E500F5F07593 +:102EC000E0042506F58275E0003507F583E0F50896 +:102ED000E50835F0F50875E0042506F58275E00093 +:102EE0003507F583E508F0E501F5F0E51635F0F571 +:102EF00016E509F5F0E51135F0F511E50AF5F0E50F +:102F00001035F0F51002298E00E51CF502E51DF5DF +:102F10000375E0062506F58275E0003507F583E0C8 +:102F2000F50475E0052506F58275E0003507F583A3 +:102F3000E0F50575E0102506F58275E0003507F52A +:102F400083E0F51775E00F2506F58275E00035077B +:102F5000F583E0F51675E00E2506F58275E000357F +:102F600007F583E0F51575E00D2506F58275E0009F +:102F70003507F583E0F51475E00C2506F58275E05C +:102F8000003507F583E0F51375E00B2506F582752E +:102F9000E0003507F583E0F51275E00A2506F582B5 +:102FA00075E0003507F583E0F51175E0092506F5B4 +:102FB0008275E0003507F583E0F51075E00725061A +:102FC000F58275E0003507F583E0F508E508C0E017 +:102FD00075E0082506F58275E0003507F583E0F514 +:102FE00008E508C0E075E0192506F50675E000352E +:102FF00007F507E502F582E503F583E504F500E54D +:1030000005F5012200751C00751D0075080075E0AE +:10301000062506F58275E0003507F583E508F075AD +:10302000080075E0052506F58275E0003507F58393 +:10303000E508F0022F0900E506758206C39582F5C2 +:1030400006E5077583009583F507D0E0F50875E080 +:10305000012506F58275E0003507F583E508F0D017 +:10306000E0F50875E0002506F58275E0003507F506 +:1030700083E508F075E0052506F58275E000350763 +:10308000F583E513F075E0042506F58275E000355B +:1030900007F583E512F075E0032506F58275E0007B +:1030A0003507F583E511F075E0022506F58275E038 +:1030B000003507F583E510F0900000E582F50990F2 +:1030C0000000E583F50A750100C3750000E501F510 +:1030D000F0E50935F0F501E500F5F0E50A35F0F524 +:1030E00000E500F502E501F582E502F583E0F51F54 +:1030F000750101C3750000E501F5F0E50935F0F54E +:1031000001E500F5F0E50A35F0F500E500F502E52A +:1031100001F582E502F583E0F51E750102C3750035 +:1031200000E501F5F0E50935F0F501E500F5F0E51C +:103130000A35F0F500E500F502E501F582E502F556 +:1031400083E0F51D750103C3750000E501F5F0E5A9 +:103150000935F0F501E500F5F0E50A35F0F500E593 +:1031600000F502E501F582E502F583E0F51C90002B +:1031700004E582F509900004E583F50A750100C3B2 +:10318000750000E501F5F0E50935F0F501E500F51C +:10319000F0E50A35F0F500E500F502E501F582E518 +:1031A00002F583E0F51B750101C3750000E501F52B +:1031B000F0E50935F0F501E500F5F0E50A35F0F543 +:1031C00000E500F502E501F582E502F583E0F51A78 +:1031D000750102C3750000E501F5F0E50935F0F56C +:1031E00001E500F5F0E50A35F0F500E500F502E54A +:1031F00001F582E502F583E0F519750103C3750059 +:1032000000E501F5F0E50935F0F501E500F5F0E53B +:103210000A35F0F500E500F502E501F582E502F575 +:1032200083E0F518121277E582F502E583F503E5F0 +:1032300000F504E501F505E502F50BE503F50CE500 +:1032400004F50DE505F50E900000E582F509900006 +:1032500000E583F50A750100C3750000E501F5F08E +:10326000E50935F0F501E500F5F0E50A35F0F50082 +:10327000E50BF503E500F502E501F582E502F583CE +:10328000E503F0750101C3750000E501F5F0E509FE +:1032900035F0F501E500F5F0E50A35F0F500E50C4F +:1032A000F503E500F502E501F582E502F583E503A6 +:1032B000F0750102C3750000E501F5F0E50935F090 +:1032C000F501E500F5F0E50A35F0F500E50DF5034B +:1032D000E500F502E501F582E502F583E503F07509 +:1032E0000103C3750000E501F5F0E50935F0F501CE +:1032F000E500F5F0E50A35F0F500E50EF503E5002B +:10330000F502E501F582E502F583E503F09000089A +:10331000E582F512900008E583F513900008E58238 +:10332000F509900008E583F50A750100C3750000F2 +:10333000E501F5F0E50935F0F501E500F5F0E50A00 +:1033400035F0F500E500F502E501F582E502F583CB +:10335000E0F50E750101C3750000E501F5F0E50922 +:1033600035F0F501E500F5F0E50A35F0F500E5008A +:10337000F502E501F582E502F583E0F50F7501023E +:10338000C3750000E501F5F0E50935F0F501E5004C +:10339000F5F0E50A35F0F500E500F502E501F58206 +:1033A000E502F583E0F510750103C3750000E50142 +:1033B000F5F0E50935F0F501E500F5F0E50A35F041 +:1033C000F500E500F502E501F582E502F583E0F59B +:1033D0001190000CE582F50990000CE583F50A7563 +:1033E0000100C3750000E501F5F0E50935F0F501D0 +:1033F000E500F5F0E50A35F0F500E500F502E50138 +:10340000F582E502F583E0F50B750101C375000057 +:10341000E501F5F0E50935F0F501E500F5F0E50A1F +:1034200035F0F500E500F502E501F582E502F583EA +:10343000E0F50C750102C3750000E501F5F0E50942 +:1034400035F0F501E500F5F0E50A35F0F500E500A9 +:10345000F502E501F582E502F583E0F50D7501035E +:10346000C3750000E501F5F0E50935F0F501E5006B +:10347000F5F0E50A35F0F500E500F502E501F58225 +:10348000E502F583E0F500C3E50BF5F0E50E55F038 +:10349000F501E50CF5F0E50F55F0F509E50DF5F052 +:1034A000E51055F0F50AE500F5F0E51155F0F50CDD +:1034B000750B00C3750000E50BF5F0E51235F0F56E +:1034C0000BE500F5F0E51335F0F500E501F503E552 +:1034D00000F502E50BF582E502F583E503F0750BD7 +:1034E00001C3750000E50BF5F0E51235F0F50BE5CD +:1034F00000F5F0E51335F0F500E509F503E500F515 +:1035000002E50BF582E502F583E503F0750B02C3D6 +:10351000750000E50BF5F0E51235F0F50BE500F56B +:10352000F0E51335F0F500E50AF503E500F502E5F1 +:103530000BF582E502F583E503F0750B03C3750017 +:1035400000E50BF5F0E51235F0F50BE500F5F0E5DB +:103550001335F0F500E50CF503E500F502E50BF594 +:1035600082E502F583E503F0900000E582F5129014 +:103570000000E583F513900000E582F50990000056 +:10358000E583F50A750100C3750000E501F5F0E576 +:103590000935F0F501E500F5F0E50A35F0F500E54F +:1035A00000F502E501F582E502F583E0F50E75010F +:1035B00001C3750000E501F5F0E50935F0F501E519 +:1035C00000F5F0E50A35F0F500E500F502E501F556 +:1035D00082E502F583E0F50F750102C3750000E591 +:1035E00001F5F0E50935F0F501E500F5F0E50A35FE +:1035F000F0F500E500F502E501F582E502F583E06E +:10360000F510750103C3750000E501F5F0E5093516 +:10361000F0F501E500F5F0E50A35F0F500E500F517 +:1036200002E501F582E502F583E0F511900004E57D +:1036300082F509900004E583F50A750100C3750061 +:1036400000E501F5F0E50935F0F501E500F5F0E5F7 +:103650000A35F0F500E500F502E501F582E502F531 +:1036600083E0F50B750101C3750000E501F5F0E598 +:103670000935F0F501E500F5F0E50A35F0F500E56E +:1036800000F502E501F582E502F583E0F50C750130 +:1036900002C3750000E501F5F0E50935F0F501E537 +:1036A00000F5F0E50A35F0F500E500F502E501F575 +:1036B00082E502F583E0F50D750103C3750000E5B1 +:1036C00001F5F0E50935F0F501E500F5F0E50A351D +:1036D000F0F500E500F502E501F582E502F583E08D +:1036E000F500C3E50BF5F0E50E45F0F501E50CF549 +:1036F000F0E50F45F0F509E50DF5F0E51045F0F5BD +:103700000AE500F5F0E51145F0F50C750B00C37501 +:103710000000E50BF5F0E51235F0F50BE500F5F0EE +:10372000E51335F0F500E501F503E500F502E50BDD +:10373000F582E502F583E503F0750B01C375000022 +:10374000E50BF5F0E51235F0F50BE500F5F0E513C6 +:1037500035F0F500E509F503E500F502E50BF58226 +:10376000E502F583E503F0750B02C3750000E50B78 +:10377000F5F0E51235F0F50BE500F5F0E51335F061 +:10378000F500E50AF503E500F502E50BF582E50233 +:10379000F583E503F0750B03C3750000E50BF5F049 +:1037A000E51235F0F50BE500F5F0E51335F0F50021 +:1037B000E50CF503E500F502E50BF582E502F5837E +:1037C000E503F0900008E582F512900008E583F526 +:1037D00013900008E582F509900008E583F50A7565 +:1037E0000100C3750000E501F5F0E50935F0F501CC +:1037F000E500F5F0E50A35F0F500E500F502E50134 +:10380000F582E502F583E0F50E750101C375000050 +:10381000E501F5F0E50935F0F501E500F5F0E50A1B +:1038200035F0F500E500F502E501F582E502F583E6 +:10383000E0F50F750102C3750000E501F5F0E5093B +:1038400035F0F501E500F5F0E50A35F0F500E500A5 +:10385000F502E501F582E502F583E0F51075010357 +:10386000C3750000E501F5F0E50935F0F501E50067 +:10387000F5F0E50A35F0F500E500F502E501F58221 +:10388000E502F583E0F51190000CE582F509900062 +:103890000CE583F50A750100C3750000E501F5F03C +:1038A000E50935F0F501E500F5F0E50A35F0F5003C +:1038B000E500F502E501F582E502F583E0F50B751B +:1038C0000101C3750000E501F5F0E50935F0F501EA +:1038D000E500F5F0E50A35F0F500E500F502E50153 +:1038E000F582E502F583E0F50C750102C375000071 +:1038F000E501F5F0E50935F0F501E500F5F0E50A3B +:1039000035F0F500E500F502E501F582E502F58305 +:10391000E0F50D750103C3750000E501F5F0E5095B +:1039200035F0F501E500F5F0E50A35F0F500E500C4 +:10393000F502E501F582E502F583E0F500C3E50B4C +:10394000F5F0E50E65F0F501E50CF5F0E50F65F035 +:10395000F509E50DF5F0E51065F0F50AE500F5F07F +:10396000E51165F0F50C750B00C3750000E50BF56E +:10397000F0E51235F0F50BE500F5F0E51335F0F55F +:1039800000E501F503E500F502E50BF582E502F53A +:1039900083E503F0750B01C3750000E50BF5F0E559 +:1039A0001235F0F50BE500F5F0E51335F0F500E51F +:1039B00009F503E500F502E50BF582E502F583E57F +:1039C00003F0750B02C3750000E50BF5F0E5123549 +:1039D000F0F50BE500F5F0E51335F0F500E50AF537 +:1039E00003E500F502E50BF582E502F583E503F05A +:1039F000750B03C3750000E50BF5F0E51235F0F526 +:103A00000BE500F5F0E51335F0F500E50CF503E501 +:103A100000F502E50BF582E502F583E503F0900081 +:103A200000E582F509900000E583F50A750100C301 +:103A3000750000E501F5F0E50935F0F501E500F563 +:103A4000F0E50A35F0F500E500F502E501F582E55F +:103A500002F583E0F51F750101C3750000E501F56E +:103A6000F0E50935F0F501E500F5F0E50A35F0F58A +:103A700000E500F502E501F582E502F583E0F51EBB +:103A8000750102C3750000E501F5F0E50935F0F5B3 +:103A900001E500F5F0E50A35F0F500E500F502E591 +:103AA00001F582E502F583E0F51D750103C375009C +:103AB00000E501F5F0E50935F0F501E500F5F0E583 +:103AC0000A35F0F500E500F502E501F582E502F5BD +:103AD00083E0F51C900004E582F509900004E5837D +:103AE000F50A750100C3750000E501F5F0E509353B +:103AF000F0F501E500F5F0E50A35F0F500E500F533 +:103B000002E501F582E502F583E0F51B750101C3CD +:103B1000750000E501F5F0E50935F0F501E500F582 +:103B2000F0E50A35F0F500E500F502E501F582E57E +:103B300002F583E0F51A750102C3750000E501F591 +:103B4000F0E50935F0F501E500F5F0E50A35F0F5A9 +:103B500000E500F502E501F582E502F583E0F519DF +:103B6000750103C3750000E501F5F0E50935F0F5D1 +:103B700001E500F5F0E50A35F0F500E500F502E5B0 +:103B800001F582E502F583E0F518121F1DE582F5C7 +:103B900002E583F503E500F504E501F505E502F529 +:103BA0000BE503F50CE504F50DE505F50E900000B9 +:103BB000E582F509900000E583F50A750100C375FB +:103BC0000000E501F5F0E50935F0F501E500F5F057 +:103BD000E50A35F0F500E50BF503E500F502E50132 +:103BE000F582E502F583E503F0750101C375000078 +:103BF000E501F5F0E50935F0F501E500F5F0E50A38 +:103C000035F0F500E50CF503E500F502E501F58278 +:103C1000E502F583E503F0750102C3750000E501D7 +:103C2000F5F0E50935F0F501E500F5F0E50A35F0C8 +:103C3000F500E50DF503E500F502E501F582E50285 +:103C4000F583E503F0750103C3750000E501F5F0A8 +:103C5000E50935F0F501E500F5F0E50A35F0F50088 +:103C6000E50EF503E500F502E501F582E502F583D1 +:103C7000E503F0900008E582F509900008E583F57A +:103C80000A750100C3750000E501F5F0E50935F09E +:103C9000F501E500F5F0E50A35F0F500E500F5027F +:103CA000E501F582E502F583E0F51F750101C375B5 +:103CB0000000E501F5F0E50935F0F501E500F5F066 +:103CC000E50A35F0F500E500F502E501F582E502CB +:103CD000F583E0F51E750102C3750000E501F5F0FE +:103CE000E50935F0F501E500F5F0E50A35F0F500F8 +:103CF000E500F502E501F582E502F583E0F51D75C5 +:103D00000103C3750000E501F5F0E50935F0F501A3 +:103D1000E500F5F0E50A35F0F500E500F502E5010E +:103D2000F582E502F583E0F51C90000CE582F509CB +:103D300090000CE583F50A750100C3750000E501EC +:103D4000F5F0E50935F0F501E500F5F0E50A35F0A7 +:103D5000F500E500F502E501F582E502F583E0F501 +:103D60001B750101C3750000E501F5F0E50935F0AB +:103D7000F501E500F5F0E50A35F0F500E500F5029E +:103D8000E501F582E502F583E0F51A750102C375D8 +:103D90000000E501F5F0E50935F0F501E500F5F085 +:103DA000E50A35F0F500E500F502E501F582E502EA +:103DB000F583E0F519750103C3750000E501F5F021 +:103DC000E50935F0F501E500F5F0E50A35F0F50017 +:103DD000E500F502E501F582E502F583E0F518124C +:103DE0001764E582F502E583F503E500F504E501D6 +:103DF000F505E502F50BE503F50CE504F50DE50524 +:103E0000F50E900008E582F509900008E583F50AB3 +:103E1000750100C3750000E501F5F0E50935F0F521 +:103E200001E500F5F0E50A35F0F500E50BF503E5F1 +:103E300000F502E501F582E502F583E503F0750181 +:103E400001C3750000E501F5F0E50935F0F501E580 +:103E500000F5F0E50A35F0F500E50CF503E500F5B1 +:103E600002E501F582E502F583E503F0750102C381 +:103E7000750000E501F5F0E50935F0F501E500F51F +:103E8000F0E50A35F0F500E50DF503E500F502E58E +:103E900001F582E502F583E503F0750103C37500C2 +:103EA00000E501F5F0E50935F0F501E500F5F0E58F +:103EB0000A35F0F500E50EF503E500F502E501F53C +:103EC00082E502F583E503F0900000E582F50E90AF +:103ED0000000E583F50F900004E582F509900004E9 +:103EE000E583F50A750100C3750000E501F5F0E50D +:103EF0000935F0F501E500F5F0E50A35F0F500E5E6 +:103F000000F502E501F582E502F583E0F50B7501A8 +:103F100001C3750000E501F5F0E50935F0F501E5AF +:103F200000F5F0E50A35F0F500E500F502E501F5EC +:103F300082E502F583E0F50C750102C3750000E52A +:103F400001F5F0E50935F0F501E500F5F0E50A3594 +:103F5000F0F500E500F502E501F582E502F583E004 +:103F6000F50D750103C3750000E501F5F0E50935B0 +:103F7000F0F501E500F5F0E50A35F0F500E500F5AE +:103F800002E501F582E502F583E0F509750100C35C +:103F9000750000E501F5F0E50E35F0F501E500F5F9 +:103FA000F0E50F35F0F500E50BF503E500F502E56A +:103FB00001F582E502F583E503F0750101C37500A3 +:103FC00000E501F5F0E50E35F0F501E500F5F0E569 +:103FD0000F35F0F500E50CF503E500F502E501F518 +:103FE00082E502F583E503F0750102C3750000E583 +:103FF00001F5F0E50E35F0F501E500F5F0E50F35DA +:10400000F0F500E50DF503E500F502E501F582E5C3 +:1040100002F583E503F0750103C3750000E501F5C2 +:10402000F0E50E35F0F501E500F5F0E50F35F0F5BA +:1040300000E509F503E500F502E501F582E502F585 +:1040400083E503F0900008E582F50E900008E58313 +:10405000F50F90000CE582F50990000CE583F50A58 +:10406000750100C3750000E501F5F0E50935F0F5CF +:1040700001E500F5F0E50A35F0F500E500F502E5AB +:1040800001F582E502F583E0F50B750101C37500CA +:1040900000E501F5F0E50935F0F501E500F5F0E59D +:1040A0000A35F0F500E500F502E501F582E502F5D7 +:1040B00083E0F50C750102C3750000E501F5F0E53C +:1040C0000935F0F501E500F5F0E50A35F0F500E514 +:1040D00000F502E501F582E502F583E0F50D7501D5 +:1040E00003C3750000E501F5F0E50935F0F501E5DC +:1040F00000F5F0E50A35F0F500E500F502E501F51B +:1041000082E502F583E0F509E50BF4F500E50CF432 +:10411000F501E50DF4F50BE509F4F50C750A00C39E +:10412000750900E50AF5F0E50E35F0F50AE509F543 +:10413000F0E50F35F0F509E500F503E509F502E5D1 +:104140000AF582E502F583E503F0750A01C37500FF +:1041500000E50AF5F0E50E35F0F50AE500F5F0E5C5 +:104160000F35F0F509E501F503E509F502E50AF576 +:1041700082E502F583E503F0750A02C3750000E5E8 +:104180000AF5F0E50E35F0F50AE500F5F0E50F3536 +:10419000F0F509E50BF503E509F502E50AF582E519 +:1041A00002F583E503F0750A03C3750000E50AF51F +:1041B000F0E50E35F0F50AE500F5F0E50F35F0F520 +:1041C00009E50CF503E509F502E50AF582E502F5D6 +:1041D00083E503F0900004E582F509900004E5838F +:1041E000F50A750100C3750000E501F5F0E5093534 +:1041F000F0F501E500F5F0E50A35F0F500E500F52C +:1042000002E501F582E502F583E0F51F750101C3C2 +:10421000750000E501F5F0E50935F0F501E500F57B +:10422000F0E50A35F0F500E500F502E501F582E577 +:1042300002F583E0F51E750102C3750000E501F586 +:10424000F0E50935F0F501E500F5F0E50A35F0F5A2 +:1042500000E500F502E501F582E502F583E0F51DD4 +:10426000750103C3750000E501F5F0E50935F0F5CA +:1042700001E500F5F0E50A35F0F500E500F502E5A9 +:1042800001F582E502F583E0F51C900008E582F572 +:1042900009900008E583F50A750100C3750000E583 +:1042A00001F5F0E50935F0F501E500F5F0E50A3531 +:1042B000F0F500E500F502E501F582E502F583E0A1 +:1042C000F51B750101C3750000E501F5F0E5093541 +:1042D000F0F501E500F5F0E50A35F0F500E500F54B +:1042E00002E501F582E502F583E0F51A750102C3E6 +:1042F000750000E501F5F0E50935F0F501E500F59B +:10430000F0E50A35F0F500E500F502E501F582E596 +:1043100002F583E0F519750103C3750000E501F5A9 +:10432000F0E50935F0F501E500F5F0E50A35F0F5C1 +:1043300000E500F502E501F582E502F583E0F518F8 +:10434000121277E582F502E583F503E500F504E551 +:1043500001F505E502F50BE503F50CE504F50DE5C2 +:1043600005F50E900000E582F509900000E583F563 +:104370000A750100C3750000E501F5F0E50935F0A7 +:10438000F501E500F5F0E50A35F0F500E50BF5037C +:10439000E500F502E501F582E502F583E503F07538 +:1043A0000101C3750000E501F5F0E50935F0F501FF +:1043B000E500F5F0E50A35F0F500E50CF503E5005C +:1043C000F502E501F582E502F583E503F0750102EA +:1043D000C3750000E501F5F0E50935F0F501E500EC +:1043E000F5F0E50A35F0F500E50DF503E500F50219 +:1043F000E501F582E502F583E503F0750103C37578 +:104400000000E501F5F0E50935F0F501E500F5F00E +:10441000E50A35F0F500E50EF503E500F502E501E6 +:10442000F582E502F583E503F0900004E582F509E5 +:10443000900004E583F50A750100C3750000E501ED +:10444000F5F0E50935F0F501E500F5F0E50A35F0A0 +:10445000F500E500F502E501F582E502F583E0F5FA +:104460001F750101C3750000E501F5F0E50935F0A0 +:10447000F501E500F5F0E50A35F0F500E500F50297 +:10448000E501F582E502F583E0F51E750102C375CD +:104490000000E501F5F0E50935F0F501E500F5F07E +:1044A000E50A35F0F500E500F502E501F582E502E3 +:1044B000F583E0F51D750103C3750000E501F5F016 +:1044C000E50935F0F501E500F5F0E50A35F0F50010 +:1044D000E500F502E501F582E502F583E0F51C90C3 +:1044E0000008E582F509900008E583F50A750100EA +:1044F000C3750000E501F5F0E50935F0F501E500CB +:10450000F5F0E50A35F0F500E500F502E501F58284 +:10451000E502F583E0F51B750101C3750000E501B7 +:10452000F5F0E50935F0F501E500F5F0E50A35F0BF +:10453000F500E500F502E501F582E502F583E0F519 +:104540001A750102C3750000E501F5F0E50935F0C3 +:10455000F501E500F5F0E50A35F0F500E500F502B6 +:10456000E501F582E502F583E0F519750103C375F0 +:104570000000E501F5F0E50935F0F501E500F5F09D +:10458000E50A35F0F500E500F502E501F582E50202 +:10459000F583E0F518121277E582F502E583F5035D +:1045A000E500F504E501F505E502F50BE503F50C7D +:1045B000E504F50DE505F50E900000E582F509909E +:1045C0000000E583F50A750100C3750000E501F5FB +:1045D000F0E50935F0F501E500F5F0E50A35F0F50F +:1045E00000E50BF503E500F502E501F582E502F5CE +:1045F00083E503F0750101C3750000E501F5F0E501 +:104600000935F0F501E500F5F0E50A35F0F500E5CE +:104610000CF503E500F502E501F582E502F583E519 +:1046200003F0750102C3750000E501F5F0E50935F9 +:10463000F0F501E500F5F0E50A35F0F500E50DF5DA +:1046400003E500F502E501F582E502F583E503F0F7 +:10465000750103C3750000E501F5F0E50935F0F5D6 +:1046600001E500F5F0E50A35F0F500E50EF503E5A6 +:1046700000F502E501F582E502F583E503F090001F +:104680000CE582F51290000CE583F513900008E527 +:1046900082F509900008E583F50A750100C37500ED +:1046A00000E501F5F0E50935F0F501E500F5F0E587 +:1046B0000A35F0F500E500F502E501F582E502F5C1 +:1046C00083E0F50E750101C3750000E501F5F0E525 +:1046D0000935F0F501E500F5F0E50A35F0F500E5FE +:1046E00000F502E501F582E502F583E0F50F7501BD +:1046F00002C3750000E501F5F0E50935F0F501E5C7 +:1047000000F5F0E50A35F0F500E500F502E501F504 +:1047100082E502F583E0F510750103C3750000E53D +:1047200001F5F0E50935F0F501E500F5F0E50A35AC +:10473000F0F500E500F502E501F582E502F583E01C +:10474000F511900004E582F509900004E583F50A6F +:10475000750100C3750000E501F5F0E50935F0F5D8 +:1047600001E500F5F0E50A35F0F500E500F502E5B4 +:1047700001F582E502F583E0F50B750101C37500D3 +:1047800000E501F5F0E50935F0F501E500F5F0E5A6 +:104790000A35F0F500E500F502E501F582E502F5E0 +:1047A00083E0F50C750102C3750000E501F5F0E545 +:1047B0000935F0F501E500F5F0E50A35F0F500E51D +:1047C00000F502E501F582E502F583E0F50D7501DE +:1047D00003C3750000E501F5F0E50935F0F501E5E5 +:1047E00000F5F0E50A35F0F500E500F502E501F524 +:1047F00082E502F583E0F500C3E50BF5F0E50E5523 +:10480000F0F501E50CF5F0E50F55F0F509E50DF5CE +:10481000F0E51055F0F50AE500F5F0E51155F0F575 +:104820000C750B00C3750000E50BF5F0E51235F0D3 +:10483000F50BE500F5F0E51335F0F500E501F503BE +:10484000E500F502E50BF582E502F583E503F07579 +:104850000B01C3750000E50BF5F0E51235F0F50B23 +:10486000E500F5F0E51335F0F500E509F503E500A1 +:10487000F502E50BF582E502F583E503F0750B0221 +:10488000C3750000E50BF5F0E51235F0F50BE5001A +:10489000F5F0E51335F0F500E50AF503E500F5025E +:1048A000E50BF582E502F583E503F0750B03C375AF +:1048B0000000E50BF5F0E51235F0F50BE500F5F03D +:1048C000E51335F0F500E50CF503E500F502E50B21 +:1048D000F582E502F583E503F0900000E582F5122C +:1048E000900000E583F513900004E582F50990003F +:1048F00004E583F50A750100C3750000E501F5F0D4 +:10490000E50935F0F501E500F5F0E50A35F0F500CB +:10491000E500F502E501F582E502F583E0F50E75A7 +:104920000101C3750000E501F5F0E50935F0F50179 +:10493000E500F5F0E50A35F0F500E500F502E501E2 +:10494000F582E502F583E0F50F750102C3750000FD +:10495000E501F5F0E50935F0F501E500F5F0E50ACA +:1049600035F0F500E500F502E501F582E502F58395 +:10497000E0F510750103C3750000E501F5F0E509E8 +:1049800035F0F501E500F5F0E50A35F0F500E50054 +:10499000F502E501F582E502F583E0F511900008E6 +:1049A000E582F509900008E583F50A750100C375F5 +:1049B0000000E501F5F0E50935F0F501E500F5F059 +:1049C000E50A35F0F500E500F502E501F582E502BE +:1049D000F583E0F50B750101C3750000E501F5F005 +:1049E000E50935F0F501E500F5F0E50A35F0F500EB +:1049F000E500F502E501F582E502F583E0F50C75C9 +:104A00000102C3750000E501F5F0E50935F0F50197 +:104A1000E500F5F0E50A35F0F500E500F502E50101 +:104A2000F582E502F583E0F50D750103C37500001D +:104A3000E501F5F0E50935F0F501E500F5F0E50AE9 +:104A400035F0F500E500F502E501F582E502F583B4 +:104A5000E0F500C3E50BF5F0E50E45F0F501E50CDA +:104A6000F5F0E50F45F0F509E50DF5F0E51045F039 +:104A7000F50AE500F5F0E51145F0F50C750B00C3FE +:104A8000750000E50BF5F0E51235F0F50BE500F5E6 +:104A9000F0E51335F0F500E501F503E500F502E575 +:104AA0000BF582E502F583E503F0750B01C3750094 +:104AB00000E50BF5F0E51235F0F50BE500F5F0E556 +:104AC0001335F0F500E509F503E500F502E50BF512 +:104AD00082E502F583E503F0750B02C3750000E57E +:104AE0000BF5F0E51235F0F50BE500F5F0E51335C3 +:104AF000F0F500E50AF503E500F502E50BF582E5C2 +:104B000002F583E503F0750B03C3750000E50BF5B3 +:104B1000F0E51235F0F50BE500F5F0E51335F0F5AD +:104B200000E50CF503E500F502E50BF582E502F57D +:104B300083E503F090000CE582F51290000CE5830C +:104B4000F513900008E582F509900008E583F50A61 +:104B5000750100C3750000E501F5F0E50935F0F5D4 +:104B600001E500F5F0E50A35F0F500E500F502E5B0 +:104B700001F582E502F583E0F50E750101C37500CC +:104B800000E501F5F0E50935F0F501E500F5F0E5A2 +:104B90000A35F0F500E500F502E501F582E502F5DC +:104BA00083E0F50F750102C3750000E501F5F0E53E +:104BB0000935F0F501E500F5F0E50A35F0F500E519 +:104BC00000F502E501F582E502F583E0F5107501D7 +:104BD00003C3750000E501F5F0E50935F0F501E5E1 +:104BE00000F5F0E50A35F0F500E500F502E501F520 +:104BF00082E502F583E0F511900004E582F5099065 +:104C00000004E583F50A750100C3750000E501F5B0 +:104C1000F0E50935F0F501E500F5F0E50A35F0F5C8 +:104C200000E500F502E501F582E502F583E0F50B0C +:104C3000750101C3750000E501F5F0E50935F0F5F2 +:104C400001E500F5F0E50A35F0F500E500F502E5CF +:104C500001F582E502F583E0F50C750102C37500EC +:104C600000E501F5F0E50935F0F501E500F5F0E5C1 +:104C70000A35F0F500E500F502E501F582E502F5FB +:104C800083E0F50D750103C3750000E501F5F0E55E +:104C90000935F0F501E500F5F0E50A35F0F500E538 +:104CA00000F502E501F582E502F583E0F500C3E5D4 +:104CB0000BF5F0E50E65F0F501E50CF5F0E50F6597 +:104CC000F0F509E50DF5F0E51065F0F50AE500F5FC +:104CD000F0E51165F0F50C750B00C3750000E50BF0 +:104CE000F5F0E51235F0F50BE500F5F0E51335F0DC +:104CF000F500E501F503E500F502E50BF582E502B7 +:104D0000F583E503F0750B01C3750000E50BF5F0C5 +:104D1000E51235F0F50BE500F5F0E51335F0F5009B +:104D2000E509F503E500F502E50BF582E502F583FB +:104D3000E503F0750B02C3750000E50BF5F0E51215 +:104D400035F0F50BE500F5F0E51335F0F500E50A73 +:104D5000F503E500F502E50BF582E502F583E503D1 +:104D6000F0750B03C3750000E50BF5F0E51235F0A7 +:104D7000F50BE500F5F0E51335F0F500E50CF5036E +:104D8000E500F502E50BF582E502F583E503F09019 +:104D90000004E582F509900004E583F50A75010039 +:104DA000C3750000E501F5F0E50935F0F501E50012 +:104DB000F5F0E50A35F0F500E500F502E501F582CC +:104DC000E502F583E0F51F750101C3750000E501FB +:104DD000F5F0E50935F0F501E500F5F0E50A35F007 +:104DE000F500E500F502E501F582E502F583E0F561 +:104DF0001E750102C3750000E501F5F0E50935F007 +:104E0000F501E500F5F0E50A35F0F500E500F502FD +:104E1000E501F582E502F583E0F51D750103C37533 +:104E20000000E501F5F0E50935F0F501E500F5F0E4 +:104E3000E50A35F0F500E500F502E501F582E50249 +:104E4000F583E0F51C900008E582F509900008E57F +:104E500083F50A750100C3750000E501F5F0E50969 +:104E600035F0F501E500F5F0E50A35F0F500E5006F +:104E7000F502E501F582E502F583E0F51B75010118 +:104E8000C3750000E501F5F0E50935F0F501E50031 +:104E9000F5F0E50A35F0F500E500F502E501F582EB +:104EA000E502F583E0F51A750102C3750000E5011E +:104EB000F5F0E50935F0F501E500F5F0E50A35F026 +:104EC000F500E500F502E501F582E502F583E0F580 +:104ED00019750103C3750000E501F5F0E50935F02A +:104EE000F501E500F5F0E50A35F0F500E500F5021D +:104EF000E501F582E502F583E0F518121F1DE58254 +:104F0000F502E583F503E500F504E501F505E502A5 +:104F1000F50BE503F50CE504F50DE505F50E900040 +:104F200000E582F509900000E583F50A750100C3EC +:104F3000750000E501F5F0E50935F0F501E500F54E +:104F4000F0E50A35F0F500E50BF503E500F502E5BF +:104F500001F582E502F583E503F0750101C37500F3 +:104F600000E501F5F0E50935F0F501E500F5F0E5BE +:104F70000A35F0F500E50CF503E500F502E501F56D +:104F800082E502F583E503F0750102C3750000E5D3 +:104F900001F5F0E50935F0F501E500F5F0E50A3534 +:104FA000F0F500E50DF503E500F502E501F582E514 +:104FB00002F583E503F0750103C3750000E501F513 +:104FC000F0E50935F0F501E500F5F0E50A35F0F515 +:104FD00000E50EF503E500F502E501F582E502F5D1 +:104FE00083E503F0900004E582F509900004E58371 +:104FF000F50A750100C3750000E501F5F0E5093516 +:10500000F0F501E500F5F0E50A35F0F500E500F50D +:1050100002E501F582E502F583E0F51F750101C3A4 +:10502000750000E501F5F0E50935F0F501E500F55D +:10503000F0E50A35F0F500E500F502E501F582E559 +:1050400002F583E0F51E750102C3750000E501F568 +:10505000F0E50935F0F501E500F5F0E50A35F0F584 +:1050600000E500F502E501F582E502F583E0F51DB6 +:10507000750103C3750000E501F5F0E50935F0F5AC +:1050800001E500F5F0E50A35F0F500E500F502E58B +:1050900001F582E502F583E0F51C900008E582F554 +:1050A00009900008E583F50A750100C3750000E565 +:1050B00001F5F0E50935F0F501E500F5F0E50A3513 +:1050C000F0F500E500F502E501F582E502F583E083 +:1050D000F51B750101C3750000E501F5F0E5093523 +:1050E000F0F501E500F5F0E50A35F0F500E500F52D +:1050F00002E501F582E502F583E0F51A750102C3C8 +:10510000750000E501F5F0E50935F0F501E500F57C +:10511000F0E50A35F0F500E500F502E501F582E578 +:1051200002F583E0F519750103C3750000E501F58B +:10513000F0E50935F0F501E500F5F0E50A35F0F5A3 +:1051400000E500F502E501F582E502F583E0F518DA +:10515000121F1DE582F502E583F503E500F504E580 +:1051600001F505E502F50BE503F50CE504F50DE5A4 +:1051700005F50E900000E582F509900000E583F545 +:105180000A750100C3750000E501F5F0E50935F089 +:10519000F501E500F5F0E50A35F0F500E50BF5035E +:1051A000E500F502E501F582E502F583E503F0751A +:1051B0000101C3750000E501F5F0E50935F0F501E1 +:1051C000E500F5F0E50A35F0F500E50CF503E5003E +:1051D000F502E501F582E502F583E503F0750102CC +:1051E000C3750000E501F5F0E50935F0F501E500CE +:1051F000F5F0E50A35F0F500E50DF503E500F502FB +:10520000E501F582E502F583E503F0750103C37559 +:105210000000E501F5F0E50935F0F501E500F5F0F0 +:10522000E50A35F0F500E50EF503E500F502E501C8 +:10523000F582E502F583E503F0900008E582F509C3 +:10524000900008E583F50A750100C3750000E501CB +:10525000F5F0E50935F0F501E500F5F0E50A35F082 +:10526000F500E500F502E501F582E502F583E0F5DC +:105270001F750101C3750000E501F5F0E50935F082 +:10528000F501E500F5F0E50A35F0F500E500F50279 +:10529000E501F582E502F583E0F51E750102C375AF +:1052A0000000E501F5F0E50935F0F501E500F5F060 +:1052B000E50A35F0F500E500F502E501F582E502C5 +:1052C000F583E0F51D750103C3750000E501F5F0F8 +:1052D000E50935F0F501E500F5F0E50A35F0F500F2 +:1052E000E500F502E501F582E502F583E0F51C90A5 +:1052F0000004E582F509900004E583F50A750100D4 +:10530000C3750000E501F5F0E50935F0F501E500AC +:10531000F5F0E50A35F0F500E500F502E501F58266 +:10532000E502F583E0F51B750101C3750000E50199 +:10533000F5F0E50935F0F501E500F5F0E50A35F0A1 +:10534000F500E500F502E501F582E502F583E0F5FB +:105350001A750102C3750000E501F5F0E50935F0A5 +:10536000F501E500F5F0E50A35F0F500E500F50298 +:10537000E501F582E502F583E0F519750103C375D2 +:105380000000E501F5F0E50935F0F501E500F5F07F +:10539000E50A35F0F500E500F502E501F582E502E4 +:1053A000F583E0F518121764E582F502E583F5034D +:1053B000E500F504E501F505E502F50BE503F50C5F +:1053C000E504F50DE505F50E90000CE582F5099074 +:1053D000000CE583F50A750100C3750000E501F5D1 +:1053E000F0E50935F0F501E500F5F0E50A35F0F5F1 +:1053F00000E50BF503E500F502E501F582E502F5B0 +:1054000083E503F0750101C3750000E501F5F0E5E2 +:105410000935F0F501E500F5F0E50A35F0F500E5B0 +:105420000CF503E500F502E501F582E502F583E5FB +:1054300003F0750102C3750000E501F5F0E50935DB +:10544000F0F501E500F5F0E50A35F0F500E50DF5BC +:1054500003E500F502E501F582E502F583E503F0D9 +:10546000750103C3750000E501F5F0E50935F0F5B8 +:1054700001E500F5F0E50A35F0F500E50EF503E588 +:1054800000F502E501F582E502F583E503F0900001 +:1054900008E582F509900008E583F50A750100C367 +:1054A000750000E501F5F0E50935F0F501E500F5D9 +:1054B000F0E50A35F0F500E500F502E501F582E5D5 +:1054C00002F583E0F51F750101C3750000E501F5E4 +:1054D000F0E50935F0F501E500F5F0E50A35F0F500 +:1054E00000E500F502E501F582E502F583E0F51E31 +:1054F000750102C3750000E501F5F0E50935F0F529 +:1055000001E500F5F0E50A35F0F500E500F502E506 +:1055100001F582E502F583E0F51D750103C3750011 +:1055200000E501F5F0E50935F0F501E500F5F0E5F8 +:105530000A35F0F500E500F502E501F582E502F532 +:1055400083E0F51C900004E582F509900004E583F2 +:10555000F50A750100C3750000E501F5F0E50935B0 +:10556000F0F501E500F5F0E50A35F0F500E500F5A8 +:1055700002E501F582E502F583E0F51B750101C343 +:10558000750000E501F5F0E50935F0F501E500F5F8 +:10559000F0E50A35F0F500E500F502E501F582E5F4 +:1055A00002F583E0F51A750102C3750000E501F507 +:1055B000F0E50935F0F501E500F5F0E50A35F0F51F +:1055C00000E500F502E501F582E502F583E0F51955 +:1055D000750103C3750000E501F5F0E50935F0F547 +:1055E00001E500F5F0E50A35F0F500E500F502E526 +:1055F00001F582E502F583E0F518121764E582F5FE +:1056000002E583F503E500F504E501F505E502F59E +:105610000BE503F50CE504F50DE505F50E90000C22 +:10562000E582F50990000CE583F50A750100C37564 +:105630000000E501F5F0E50935F0F501E500F5F0CC +:10564000E50A35F0F500E50BF503E500F502E501A7 +:10565000F582E502F583E503F0750101C3750000ED +:10566000E501F5F0E50935F0F501E500F5F0E50AAD +:1056700035F0F500E50CF503E500F502E501F582EE +:10568000E502F583E503F0750102C3750000E5014D +:10569000F5F0E50935F0F501E500F5F0E50A35F03E +:1056A000F500E50DF503E500F502E501F582E502FB +:1056B000F583E503F0750103C3750000E501F5F01E +:1056C000E50935F0F501E500F5F0E50A35F0F500FE +:1056D000E50EF503E500F502E501F582E502F58347 +:1056E000E503F0750000E500F502E500F503E500CF +:1056F000F504E500F50575E0052506F58275E00081 +:105700003507F583E0F51375E0042506F58275E0AD +:10571000003507F583E0F51275E0032506F582757F +:10572000E0003507F583E0F51175E0022506F58206 +:1057300075E0003507F583E0F51075E0002506F506 +:105740008275E0003507F583E0F508E508C0E075EF +:10575000E0012506F58275E0003507F583E0F508E0 +:10576000E508C0E075E0062506F50675E00035079A +:10577000F507E502F582E503F583E504F500E505A7 +:10578000F501220000000000000000000000000001 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/simd-1b.s.expected b/tests/GCCTestSuite/simd-1b.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/simd-1b.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/simd-3.c b/tests/GCCTestSuite/simd-3.c new file mode 100644 index 0000000..34ad75d --- /dev/null +++ b/tests/GCCTestSuite/simd-3.c @@ -0,0 +1,16 @@ +/* { dg-do compile } */ +/* { dg-options "-maltivec" { target powerpc-*-* } } */ + +__attribute__ ((vector_size (2))) signed char v1, v2, v3; +void +one (void) +{ + v1 = v2 + v3; +} + +__attribute__ ((vector_size (8))) signed char v4, v5, v6; +void +two (void) +{ + v4 = v5 + v6; +} diff --git a/tests/GCCTestSuite/simd-3.c.expected b/tests/GCCTestSuite/simd-3.c.expected new file mode 100644 index 0000000..34ad75d --- /dev/null +++ b/tests/GCCTestSuite/simd-3.c.expected @@ -0,0 +1,16 @@ +/* { dg-do compile } */ +/* { dg-options "-maltivec" { target powerpc-*-* } } */ + +__attribute__ ((vector_size (2))) signed char v1, v2, v3; +void +one (void) +{ + v1 = v2 + v3; +} + +__attribute__ ((vector_size (8))) signed char v4, v5, v6; +void +two (void) +{ + v4 = v5 + v6; +} diff --git a/tests/GCCTestSuite/simd-3.hex.expected b/tests/GCCTestSuite/simd-3.hex.expected new file mode 100644 index 0000000..27fcf56 --- /dev/null +++ b/tests/GCCTestSuite/simd-3.hex.expected @@ -0,0 +1,33 @@ +:1000000000D0E0F518D0E0F519E511F50EE510F592 +:100010000F900000E582F50C900000E583F50D904F +:100020000001E582F509900001E583F50A750100FC +:10003000C3750000E501F5F0E50935F0F501E500CF +:10004000F5F0E50A35F0F500E500F502E501F58289 +:10005000E502F583E0F50B900002E582F5099000DA +:1000600002E583F50A750100C3750000E501F5F0AE +:10007000E50935F0F501E500F5F0E50A35F0F500A4 +:10008000E500F502E501F582E502F583E0F500C340 +:10009000750100E500F5F0E50B35F0F50975010097 +:1000A000C3750000E501F5F0E50C35F0F501E5005C +:1000B000F5F0E50D35F0F500E509F503E500F5028D +:1000C000E501F582E502F583E503F0750000E50042 +:1000D000F502E500F503E500F504E500F505E50E9C +:1000E000F511E50FF510E519C0E0E518C0E0E502EF +:1000F000F582E503F583E504F500E505F501220049 +:10010000D0E0F518D0E0F519E511F50EE510F50F82 +:10011000900003E582F50C900003E583F50D900057 +:1001200004E582F509900004E583F50A750100C332 +:10013000750000E501F5F0E50935F0F501E500F59C +:10014000F0E50A35F0F500E500F502E501F582E598 +:1001500002F583E0F50B900005E582F509900005B6 +:10016000E583F50A750100C3750000E501F5F0E5CA +:100170000935F0F501E500F5F0E50A35F0F500E5A3 +:1001800000F502E501F582E502F583E0F500C375AF +:100190000100E500F5F0E50B35F0F509750100C348 +:1001A000750000E501F5F0E50C35F0F501E500F529 +:1001B000F0E50D35F0F500E509F503E500F502E59C +:1001C00001F582E502F583E503F0750000E500F531 +:1001D00002E500F503E500F504E500F505E50EF59B +:1001E00011E50FF510E519C0E0E518C0E0E502F5EE +:1001F00082E503F583E504F500E505F5012200003D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/simd-3.s.expected b/tests/GCCTestSuite/simd-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/simd-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/sparc-constant-1.c b/tests/GCCTestSuite/sparc-constant-1.c new file mode 100644 index 0000000..bb4b1bc --- /dev/null +++ b/tests/GCCTestSuite/sparc-constant-1.c @@ -0,0 +1,12 @@ +/* PR optimization/10876 */ +/* { dg-do compile { target sparc*-*-* } } */ + +/* Verify that adding the constant 4096 is turned + into substracting the constant -4096. */ + +int foo(int a) +{ + return a+4096; +} + +/* { dg-final { scan-assembler "sub" } } */ diff --git a/tests/GCCTestSuite/sparc-constant-1.c.expected b/tests/GCCTestSuite/sparc-constant-1.c.expected new file mode 100644 index 0000000..bb4b1bc --- /dev/null +++ b/tests/GCCTestSuite/sparc-constant-1.c.expected @@ -0,0 +1,12 @@ +/* PR optimization/10876 */ +/* { dg-do compile { target sparc*-*-* } } */ + +/* Verify that adding the constant 4096 is turned + into substracting the constant -4096. */ + +int foo(int a) +{ + return a+4096; +} + +/* { dg-final { scan-assembler "sub" } } */ diff --git a/tests/GCCTestSuite/sparc-constant-1.hex.expected b/tests/GCCTestSuite/sparc-constant-1.hex.expected new file mode 100644 index 0000000..463f762 --- /dev/null +++ b/tests/GCCTestSuite/sparc-constant-1.hex.expected @@ -0,0 +1,12 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F50ED0E0F50FE512F50B6E +:10002000E511F50CE510F50D750000750110750969 +:1000300000750A00C3751000E500F5F0E51F35F006 +:10004000F500E501F5F0E51E35F0F501E509F5F0FF +:10005000E51D35F0F509E50AF5F0E51C35F0F50A82 +:10006000E500F502E501F503E509F504E50AF50506 +:10007000E50BF512E50CF511E50DF510E50FC0E007 +:10008000E50EC0E075E0042506F50675E0003507CD +:10009000F507E502F582E503F583E504F500E505DE +:1000A000F501220000000000000000000000000038 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/sparc-constant-1.s.expected b/tests/GCCTestSuite/sparc-constant-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/sparc-constant-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/struct-empty-1.c b/tests/GCCTestSuite/struct-empty-1.c new file mode 100644 index 0000000..7797465 --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-1.c @@ -0,0 +1,10 @@ +/* Test diagnostics for empty structures and unions. Test with no + special options. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +struct s0 {}; +union u0 {}; +struct s1 { int : 1; }; +union u1 { int : 1; }; diff --git a/tests/GCCTestSuite/struct-empty-1.c.expected b/tests/GCCTestSuite/struct-empty-1.c.expected new file mode 100644 index 0000000..7797465 --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-1.c.expected @@ -0,0 +1,10 @@ +/* Test diagnostics for empty structures and unions. Test with no + special options. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +struct s0 {}; +union u0 {}; +struct s1 { int : 1; }; +union u1 { int : 1; }; diff --git a/tests/GCCTestSuite/struct-empty-1.hex.expected b/tests/GCCTestSuite/struct-empty-1.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-1.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/struct-empty-1.s.expected b/tests/GCCTestSuite/struct-empty-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/struct-empty-2.c b/tests/GCCTestSuite/struct-empty-2.c new file mode 100644 index 0000000..132ef45 --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-2.c @@ -0,0 +1,10 @@ +/* Test diagnostics for empty structures and unions. Test with + -pedantic. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +struct s0 {}; /* { dg-warning "warning: struct has no members" } */ +union u0 {}; /* { dg-warning "warning: union has no members" } */ +struct s1 { int : 1; }; /* { dg-warning "warning: struct has no named members" } */ +union u1 { int : 1; }; /* { dg-warning "warning: union has no named members" } */ diff --git a/tests/GCCTestSuite/struct-empty-2.c.expected b/tests/GCCTestSuite/struct-empty-2.c.expected new file mode 100644 index 0000000..132ef45 --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-2.c.expected @@ -0,0 +1,10 @@ +/* Test diagnostics for empty structures and unions. Test with + -pedantic. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic" } */ + +struct s0 {}; /* { dg-warning "warning: struct has no members" } */ +union u0 {}; /* { dg-warning "warning: union has no members" } */ +struct s1 { int : 1; }; /* { dg-warning "warning: struct has no named members" } */ +union u1 { int : 1; }; /* { dg-warning "warning: union has no named members" } */ diff --git a/tests/GCCTestSuite/struct-empty-2.hex.expected b/tests/GCCTestSuite/struct-empty-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/struct-empty-2.s.expected b/tests/GCCTestSuite/struct-empty-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/struct-empty-3.c b/tests/GCCTestSuite/struct-empty-3.c new file mode 100644 index 0000000..b9285c0 --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-3.c @@ -0,0 +1,10 @@ +/* Test diagnostics for empty structures and unions. Test with + -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic-errors" } */ + +struct s0 {}; /* { dg-error "error: struct has no members" } */ +union u0 {}; /* { dg-error "error: union has no members" } */ +struct s1 { int : 1; }; /* { dg-error "error: struct has no named members" } */ +union u1 { int : 1; }; /* { dg-error "error: union has no named members" } */ diff --git a/tests/GCCTestSuite/struct-empty-3.c.expected b/tests/GCCTestSuite/struct-empty-3.c.expected new file mode 100644 index 0000000..b9285c0 --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-3.c.expected @@ -0,0 +1,10 @@ +/* Test diagnostics for empty structures and unions. Test with + -pedantic-errors. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-pedantic-errors" } */ + +struct s0 {}; /* { dg-error "error: struct has no members" } */ +union u0 {}; /* { dg-error "error: union has no members" } */ +struct s1 { int : 1; }; /* { dg-error "error: struct has no named members" } */ +union u1 { int : 1; }; /* { dg-error "error: union has no named members" } */ diff --git a/tests/GCCTestSuite/struct-empty-3.hex.expected b/tests/GCCTestSuite/struct-empty-3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/struct-empty-3.s.expected b/tests/GCCTestSuite/struct-empty-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/struct-empty-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/struct-ret-2.c b/tests/GCCTestSuite/struct-ret-2.c new file mode 100644 index 0000000..0d9b86f --- /dev/null +++ b/tests/GCCTestSuite/struct-ret-2.c @@ -0,0 +1,15 @@ +/* Simplified by Alexandre Oliva + from bug report by Helmut Jarausch + + Copyright (C) 1999 Free Software Foundation */ + +/* { dg-do compile } */ +/* { dg-options "-O3 -w" } */ + +struct { + unsigned i[4]; +} foo() {} + +void bar() { + foo(); +} diff --git a/tests/GCCTestSuite/struct-ret-2.c.expected b/tests/GCCTestSuite/struct-ret-2.c.expected new file mode 100644 index 0000000..0d9b86f --- /dev/null +++ b/tests/GCCTestSuite/struct-ret-2.c.expected @@ -0,0 +1,15 @@ +/* Simplified by Alexandre Oliva + from bug report by Helmut Jarausch + + Copyright (C) 1999 Free Software Foundation */ + +/* { dg-do compile } */ +/* { dg-options "-O3 -w" } */ + +struct { + unsigned i[4]; +} foo() {} + +void bar() { + foo(); +} diff --git a/tests/GCCTestSuite/struct-ret-2.hex.expected b/tests/GCCTestSuite/struct-ret-2.hex.expected new file mode 100644 index 0000000..2d47535 --- /dev/null +++ b/tests/GCCTestSuite/struct-ret-2.hex.expected @@ -0,0 +1,19 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F500D0E0F501750900E51E +:1000200009F502E509F503E509F504E509F505E536 +:1000300001C0E0E500C0E075E0022506F50675E0C8 +:10004000003507F507E502F582E503F583E504F5DC +:1000500000E505F5012200E506758212C39582F5DB +:1000600006E5077583009583F507D0E0F50875E090 +:10007000112506F58275E0003507F583E508F0D017 +:10008000E0F50875E0102506F58275E0003507F506 +:1000900083E508F0E506F509E507F50A750100C3F3 +:1000A000750000E501F5F0E50935F0F501E500F52D +:1000B000F0E50A35F0F500E501F51FE500F51E1243 +:1000C0000000750000E500F502E500F503E500F528 +:1000D00004E500F50575E0102506F58275E00035AC +:1000E00007F583E0F508E508C0E075E0112506F5A1 +:1000F0008275E0003507F583E0F508E508C0E07596 +:10010000E0122506F50675E0003507F507E502F56E +:1001100082E503F583E504F500E505F5012200001D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/struct-ret-2.s.expected b/tests/GCCTestSuite/struct-ret-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/struct-ret-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/switch-1.c b/tests/GCCTestSuite/switch-1.c new file mode 100644 index 0000000..457c520 --- /dev/null +++ b/tests/GCCTestSuite/switch-1.c @@ -0,0 +1,17 @@ +/* { dg-do compile { target rs6000-*-linux* powerpc-*-linux*} } */ +/* { dg-options "-fpic -O2" } */ + +void f (char *s) +{ + for (;;) + { + int t = 6; + switch (t) + { + case 2: + *s = '2'; + case 6: case 4: case 3: case 1: + break; + } + } +} diff --git a/tests/GCCTestSuite/switch-1.c.expected b/tests/GCCTestSuite/switch-1.c.expected new file mode 100644 index 0000000..457c520 --- /dev/null +++ b/tests/GCCTestSuite/switch-1.c.expected @@ -0,0 +1,17 @@ +/* { dg-do compile { target rs6000-*-linux* powerpc-*-linux*} } */ +/* { dg-options "-fpic -O2" } */ + +void f (char *s) +{ + for (;;) + { + int t = 6; + switch (t) + { + case 2: + *s = '2'; + case 6: case 4: case 3: case 1: + break; + } + } +} diff --git a/tests/GCCTestSuite/switch-1.hex.expected b/tests/GCCTestSuite/switch-1.hex.expected new file mode 100644 index 0000000..a59d492 --- /dev/null +++ b/tests/GCCTestSuite/switch-1.hex.expected @@ -0,0 +1,129 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F519D0E0F51AE510F5184D +:10002000750001750100750900750A00750C01C3A2 +:10003000750B00E500F5F0E50B95F0F50B750B0081 +:10004000E50BF5F0E50B35F0F50BE50BF5F0E50C00 +:1000500065F0F50CC3750B00E501F5F0E50B95F0C7 +:10006000F50B750B00E50BF5F0E50B35F0F50BE541 +:100070000BF5F0E50C65F0F50CC3750B00E509F523 +:10008000F0E50B95F0F50B750B00E50BF5F0E50BC6 +:1000900035F0F50BE50BF5F0E50C65F0F50CC375E7 +:1000A0000B00E50AF5F0E50B95F0F50B750B00E597 +:1000B0000BF5F0E50B35F0F50BE50BF5F0E50C6510 +:1000C000F0F50C750100750900750A00750000E572 +:1000D0000CF5F0E50045F0F500E501F5F0E500452B +:1000E000F0F500E509F5F0E50045F0F500E50AF565 +:1000F000F0E50045F0F500E500700280030207B569 +:1001000000750D06750E00750F0075100075000264 +:10011000750100750900750A00750C00C3E500F54E +:10012000F0E50D95F0F500E500F5F0E50C45F0F58E +:100130000CC3E501F5F0E50E95F0F500E500F5F0EE +:10014000E50C45F0F50CC3E509F5F0E50F95F0F584 +:1001500000E500F5F0E50C45F0F50CC3E50AF5F017 +:10016000E51095F0F500E500F5F0E50C45F0F50C2F +:10017000750100750900750A00E50CF500750C01A4 +:10018000C3750B00E500F5F0E50B95F0F50B750B6D +:1001900000E50BF5F0E50B35F0F50BE50BF5F0E5BB +:1001A0000C65F0F50CC3750B00E501F5F0E50B955A +:1001B000F0F50B750B00E50BF5F0E50B35F0F50BE5 +:1001C000E50BF5F0E50C65F0F50CC3750B00E509E2 +:1001D000F5F0E50B95F0F50B750B00E50BF5F0E58B +:1001E0000B35F0F50BE50BF5F0E50C65F0F50CC300 +:1001F000750B00E50AF5F0E50B95F0F50B750B00B6 +:10020000E50BF5F0E50B35F0F50BE50BF5F0E50C3E +:1002100065F0F50C750100750900750A00750000A0 +:10022000E50CF5F0E50045F0F500E501F5F0E50039 +:1002300045F0F500E509F5F0E50045F0F500E50AC3 +:10024000F5F0E50045F0F500E500700280030207D7 +:100250007F00750006750100750900750A00750CB0 +:1002600000C3E500F5F0E50D95F0F500E500F5F0CB +:10027000E50C45F0F50CC3E501F5F0E50E95F0F55C +:1002800000E500F5F0E50C45F0F50CC3E509F5F0E7 +:10029000E50F95F0F500E500F5F0E50C45F0F50CFF +:1002A000C3E50AF5F0E51095F0F500E500F5F0E599 +:1002B0000C45F0F50C750100750900750A00E50C98 +:1002C000F500750C01C3750B00E500F5F0E50B9525 +:1002D000F0F50B750B00E50BF5F0E50B35F0F50BC4 +:1002E000E50BF5F0E50C65F0F50CC3750B00E501C9 +:1002F000F5F0E50B95F0F50B750B00E50BF5F0E56A +:100300000B35F0F50BE50BF5F0E50C65F0F50CC3DE +:10031000750B00E509F5F0E50B95F0F50B750B0095 +:10032000E50BF5F0E50B35F0F50BE50BF5F0E50C1D +:1003300065F0F50CC3750B00E50AF5F0E50B95F0DB +:10034000F50B750B00E50BF5F0E50B35F0F50BE55E +:100350000BF5F0E50C65F0F50C75010075090075FD +:100360000A00750000E50CF5F0E50045F0F500E544 +:1003700001F5F0E50045F0F500E509F5F0E500458B +:10038000F0F500E50AF5F0E50045F0F500E5007050 +:1003900002800302077A00750004750100750900E8 +:1003A000750A00750C00C3E500F5F0E50D95F0F554 +:1003B00000E500F5F0E50C45F0F50CC3E501F5F0BE +:1003C000E50E95F0F500E500F5F0E50C45F0F50CCF +:1003D000C3E509F5F0E50F95F0F500E500F5F0E56A +:1003E0000C45F0F50CC3E50AF5F0E51095F0F500C5 +:1003F000E500F5F0E50C45F0F50C75010075090018 +:10040000750A00E50CF500750C01C3750B00E500DD +:10041000F5F0E50B95F0F50B750B00E50BF5F0E548 +:100420000B35F0F50BE50BF5F0E50C65F0F50CC3BD +:10043000750B00E501F5F0E50B95F0F50B750B007C +:10044000E50BF5F0E50B35F0F50BE50BF5F0E50CFC +:1004500065F0F50CC3750B00E509F5F0E50B95F0BB +:10046000F50B750B00E50BF5F0E50B35F0F50BE53D +:100470000BF5F0E50C65F0F50CC3750B00E50AF51E +:10048000F0E50B95F0F50B750B00E50BF5F0E50BC2 +:1004900035F0F50BE50BF5F0E50C65F0F50C7501A5 +:1004A00000750900750A00750000E50CF5F0E5001F +:1004B00045F0F500E501F5F0E50045F0F500E5094A +:1004C000F5F0E50045F0F500E50AF5F0E50045F04A +:1004D000F500E500700280030207750075000375E2 +:1004E0000100750900750A00750C00C3E500F5F000 +:1004F000E50D95F0F500E500F5F0E50C45F0F50C9F +:10050000C3E501F5F0E50E95F0F500E500F5F0E541 +:100510000C45F0F50CC3E509F5F0E50F95F0F50095 +:10052000E500F5F0E50C45F0F50CC3E50AF5F0E55E +:100530001095F0F500E500F5F0E50C45F0F50C75CB +:100540000100750900750A00E50CF500750C01C382 +:10055000750B00E500F5F0E50B95F0F50B750B005C +:10056000E50BF5F0E50B35F0F50BE50BF5F0E50CDB +:1005700065F0F50CC3750B00E501F5F0E50B95F0A2 +:10058000F50B750B00E50BF5F0E50B35F0F50BE51C +:100590000BF5F0E50C65F0F50CC3750B00E509F5FE +:1005A000F0E50B95F0F50B750B00E50BF5F0E50BA1 +:1005B00035F0F50BE50BF5F0E50C65F0F50CC375C2 +:1005C0000B00E50AF5F0E50B95F0F50B750B00E572 +:1005D0000BF5F0E50B35F0F50BE50BF5F0E50C65EB +:1005E000F0F50C750100750900750A00750000E54D +:1005F0000CF5F0E50045F0F500E501F5F0E5004506 +:10060000F0F500E509F5F0E50045F0F500E50AF53F +:10061000F0E50045F0F500E5007002800302077088 +:1006200000750001750100750900750A00750B0061 +:10063000C3E500F5F0E50D95F0F500E500F5F0E512 +:100640000B45F0F50BC3E501F5F0E50E95F0F5006F +:10065000E500F5F0E50B45F0F50BC3E509F5F0E530 +:100660000F95F0F500E500F5F0E50B45F0F50BC34F +:10067000E50AF5F0E51095F0F500E500F5F0E50B7D +:1006800045F0F50B750100750900750A00E50BF5DD +:1006900000750B01C3750C00E500F5F0E50C95F055 +:1006A000F50C750C00E50CF5F0E50C35F0F50CE5F6 +:1006B0000CF5F0E50B65F0F50BC3750C00E501F5E5 +:1006C000F0E50C95F0F50C750C00E50CF5F0E50C7B +:1006D00035F0F50CE50CF5F0E50B65F0F50BC375A1 +:1006E0000C00E509F5F0E50C95F0F50C750C00E54E +:1006F0000CF5F0E50C35F0F50CE50CF5F0E50B65C7 +:10070000F0F50BC3750C00E50AF5F0E50C95F0F576 +:100710000C750C00E50CF5F0E50C35F0F50CE50C6E +:10072000F5F0E50B65F0F50B750100750900750A2C +:1007300000750000E50BF5F0E50045F0F500E5017A +:10074000F5F0E50045F0F500E509F5F0E50045F0C8 +:10075000F500E50AF5F0E50045F0F500E50070026A +:10076000800302076B000000020020000002076700 +:10077000000002076C00000207710000020776000B +:1007800000750932750100C3750000E501F5F0E55B +:100790001F35F0F501E500F5F0E51E35F0F500E553 +:1007A00009F503E500F502E501F582E502F583E5CB +:1007B00003F002077B00750000E500F502E500F597 +:1007C00003E500F504E500F505E518F510E51AC0A8 +:1007D000E0E519C0E075E0022506F50675E0003594 +:1007E00007F507E502F582E503F583E504F500E585 +:1007F00005F50122000000000000000000000000DC +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/switch-1.s.expected b/tests/GCCTestSuite/switch-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/switch-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/switch-4.c b/tests/GCCTestSuite/switch-4.c new file mode 100644 index 0000000..f2d8530 --- /dev/null +++ b/tests/GCCTestSuite/switch-4.c @@ -0,0 +1,24 @@ +/* PR middle-end/17657 */ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +extern signed char foo(int); + +void bar (void) +{ + signed char tmp = foo (0); + int t1 = tmp; + switch (t1) + { + case 1: foo (1); break; + case 2: foo (2); break; + case 3: foo (3); break; + case 4: foo (4); break; + case 5: foo (5); break; + case 6: foo (6); break; + case 7: foo (7); break; + case 255: foo (8); break; + default: break; + } +} + diff --git a/tests/GCCTestSuite/switch-4.c.expected b/tests/GCCTestSuite/switch-4.c.expected new file mode 100644 index 0000000..f2d8530 --- /dev/null +++ b/tests/GCCTestSuite/switch-4.c.expected @@ -0,0 +1,24 @@ +/* PR middle-end/17657 */ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +extern signed char foo(int); + +void bar (void) +{ + signed char tmp = foo (0); + int t1 = tmp; + switch (t1) + { + case 1: foo (1); break; + case 2: foo (2); break; + case 3: foo (3); break; + case 4: foo (4); break; + case 5: foo (5); break; + case 6: foo (6); break; + case 7: foo (7); break; + case 255: foo (8); break; + default: break; + } +} + diff --git a/tests/GCCTestSuite/switch-4.hex.expected b/tests/GCCTestSuite/switch-4.hex.expected new file mode 100644 index 0000000..8c635f2 --- /dev/null +++ b/tests/GCCTestSuite/switch-4.hex.expected @@ -0,0 +1,188 @@ +:100000000000E506758203C39582F506E507758352 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:10004000E0022506F58275E0003507F583E510F03E +:10005000751F00751E00751D00751C00E582F502F8 +:10006000E502F50D750080E50DF5F0E50055F0F5BC +:1000700010E500F5F0E51084F5107500FFE500F5DA +:10008000F0E510A4F510E510F50EE510F50F75007C +:1000900001750100750900750A00750C00C3E500C3 +:1000A000F5F0E50D95F0F500E500F5F0E50C45F00F +:1000B000F50CC3E501F5F0E50E95F0F500E500F56A +:1000C000F0E50C45F0F50CC3E509F5F0E50F95F00A +:1000D000F500E500F5F0E50C45F0F50CC3E50AF593 +:1000E000F0E51095F0F500E500F5F0E50C45F0F5CC +:1000F0000C750100750900750A00E50CF500750C1A +:1001000001C3750B00E500F5F0E50B95F0F50B75F7 +:100110000B00E50BF5F0E50B35F0F50BE50BF5F015 +:10012000E50C65F0F50CC3750B00E501F5F0E50B8A +:1001300095F0F50B750B00E50BF5F0E50B35F0F5DB +:100140000BE50BF5F0E50C65F0F50CC3750B00E560 +:1001500009F5F0E50B95F0F50B750B00E50BF5F0E7 +:10016000E50B35F0F50BE50BF5F0E50C65F0F50C5E +:10017000C3750B00E50AF5F0E50B95F0F50B750B73 +:1001800000E50BF5F0E50B35F0F50BE50BF5F0E5CB +:100190000C65F0F50C750100750900750A00750015 +:1001A00000E50CF5F0E50045F0F500E501F5F0E5BA +:1001B0000045F0F500E509F5F0E50045F0F500E54E +:1001C0000AF5F0E50045F0F500E500700280030255 +:1001D0000B9C00750002750100750900750A007519 +:1001E0000C00C3E500F5F0E50D95F0F500E500F530 +:1001F000F0E50C45F0F50CC3E501F5F0E50E95F0E2 +:10020000F500E500F5F0E50C45F0F50CC3E509F562 +:10021000F0E50F95F0F500E500F5F0E50C45F0F59B +:100220000CC3E50AF5F0E51095F0F500E500F5F0F2 +:10023000E50C45F0F50C750100750900750A00E53F +:100240000CF500750C01C3750B00E500F5F0E50B2E +:1002500095F0F50B750B00E50BF5F0E50B35F0F5BA +:100260000BE50BF5F0E50C65F0F50CC3750B00E53F +:1002700001F5F0E50B95F0F50B750B00E50BF5F0CE +:10028000E50B35F0F50BE50BF5F0E50C65F0F50C3D +:10029000C3750B00E509F5F0E50B95F0F50B750B53 +:1002A00000E50BF5F0E50B35F0F50BE50BF5F0E5AA +:1002B0000C65F0F50CC3750B00E50AF5F0E50B9540 +:1002C000F0F50B750B00E50BF5F0E50B35F0F50BD4 +:1002D000E50BF5F0E50C65F0F50C7501007509000E +:1002E000750A00750000E50CF5F0E50045F0F50035 +:1002F000E501F5F0E50045F0F500E509F5F0E5006C +:1003000045F0F500E50AF5F0E50045F0F500E500FB +:1003100070028003020B8B007500037501007509E4 +:1003200000750A00750C00C3E500F5F0E50D95F0C9 +:10033000F500E500F5F0E50C45F0F50CC3E501F539 +:10034000F0E50E95F0F500E500F5F0E50C45F0F56B +:100350000CC3E509F5F0E50F95F0F500E500F5F0C3 +:10036000E50C45F0F50CC3E50AF5F0E51095F0F560 +:1003700000E500F5F0E50C45F0F50C750100750998 +:1003800000750A00E50CF500750C01C3750B00E55E +:1003900000F5F0E50B95F0F50B750B00E50BF5F0AE +:1003A000E50B35F0F50BE50BF5F0E50C65F0F50C1C +:1003B000C3750B00E501F5F0E50B95F0F50B750B3A +:1003C00000E50BF5F0E50B35F0F50BE50BF5F0E589 +:1003D0000C65F0F50CC3750B00E509F5F0E50B9520 +:1003E000F0F50B750B00E50BF5F0E50B35F0F50BB3 +:1003F000E50BF5F0E50C65F0F50CC3750B00E50AAF +:10040000F5F0E50B95F0F50B750B00E50BF5F0E558 +:100410000B35F0F50BE50BF5F0E50C65F0F50C751B +:100420000100750900750A00750000E50CF5F0E59E +:100430000045F0F500E501F5F0E50045F0F500E5D3 +:1004400009F5F0E50045F0F500E50AF5F0E50045B1 +:10045000F0F500E50070028003020B7A00750004DD +:10046000750100750900750A00750C00C3E500F5FB +:10047000F0E50D95F0F500E500F5F0E50C45F0F53B +:100480000CC3E501F5F0E50E95F0F500E500F5F09B +:10049000E50C45F0F50CC3E509F5F0E50F95F0F531 +:1004A00000E500F5F0E50C45F0F50CC3E50AF5F0C4 +:1004B000E51095F0F500E500F5F0E50C45F0F50CDC +:1004C000750100750900750A00E50CF500750C0151 +:1004D000C3750B00E500F5F0E50B95F0F50B750B1A +:1004E00000E50BF5F0E50B35F0F50BE50BF5F0E568 +:1004F0000C65F0F50CC3750B00E501F5F0E50B9507 +:10050000F0F50B750B00E50BF5F0E50B35F0F50B91 +:10051000E50BF5F0E50C65F0F50CC3750B00E5098E +:10052000F5F0E50B95F0F50B750B00E50BF5F0E537 +:100530000B35F0F50BE50BF5F0E50C65F0F50CC3AC +:10054000750B00E50AF5F0E50B95F0F50B750B0062 +:10055000E50BF5F0E50B35F0F50BE50BF5F0E50CEB +:1005600065F0F50C750100750900750A007500004D +:10057000E50CF5F0E50045F0F500E501F5F0E500E6 +:1005800045F0F500E509F5F0E50045F0F500E50A70 +:10059000F5F0E50045F0F500E50070028003020B80 +:1005A0006900750005750100750900750A00750C74 +:1005B00000C3E500F5F0E50D95F0F500E500F5F078 +:1005C000E50C45F0F50CC3E501F5F0E50E95F0F509 +:1005D00000E500F5F0E50C45F0F50CC3E509F5F094 +:1005E000E50F95F0F500E500F5F0E50C45F0F50CAC +:1005F000C3E50AF5F0E51095F0F500E500F5F0E546 +:100600000C45F0F50C750100750900750A00E50C44 +:10061000F500750C01C3750B00E500F5F0E50B95D1 +:10062000F0F50B750B00E50BF5F0E50B35F0F50B70 +:10063000E50BF5F0E50C65F0F50CC3750B00E50175 +:10064000F5F0E50B95F0F50B750B00E50BF5F0E516 +:100650000B35F0F50BE50BF5F0E50C65F0F50CC38B +:10066000750B00E509F5F0E50B95F0F50B750B0042 +:10067000E50BF5F0E50B35F0F50BE50BF5F0E50CCA +:1006800065F0F50CC3750B00E50AF5F0E50B95F088 +:10069000F50B750B00E50BF5F0E50B35F0F50BE50B +:1006A0000BF5F0E50C65F0F50C75010075090075AA +:1006B0000A00750000E50CF5F0E50045F0F500E5F1 +:1006C00001F5F0E50045F0F500E509F5F0E5004538 +:1006D000F0F500E50AF5F0E50045F0F500E50070FD +:1006E000028003020B5800750006750100750900B1 +:1006F000750A00750C00C3E500F5F0E50D95F0F501 +:1007000000E500F5F0E50C45F0F50CC3E501F5F06A +:10071000E50E95F0F500E500F5F0E50C45F0F50C7B +:10072000C3E509F5F0E50F95F0F500E500F5F0E516 +:100730000C45F0F50CC3E50AF5F0E51095F0F50071 +:10074000E500F5F0E50C45F0F50C750100750900C4 +:10075000750A00E50CF500750C01C3750B00E5008A +:10076000F5F0E50B95F0F50B750B00E50BF5F0E5F5 +:100770000B35F0F50BE50BF5F0E50C65F0F50CC36A +:10078000750B00E501F5F0E50B95F0F50B750B0029 +:10079000E50BF5F0E50B35F0F50BE50BF5F0E50CA9 +:1007A00065F0F50CC3750B00E509F5F0E50B95F068 +:1007B000F50B750B00E50BF5F0E50B35F0F50BE5EA +:1007C0000BF5F0E50C65F0F50CC3750B00E50AF5CB +:1007D000F0E50B95F0F50B750B00E50BF5F0E50B6F +:1007E00035F0F50BE50BF5F0E50C65F0F50C750152 +:1007F00000750900750A00750000E50CF5F0E500CC +:1008000045F0F500E501F5F0E50045F0F500E509F6 +:10081000F5F0E50045F0F500E50AF5F0E50045F0F6 +:10082000F500E50070028003020B470075000775B4 +:100830000100750900750A00750C00C3E500F5F0AC +:10084000E50D95F0F500E500F5F0E50C45F0F50C4B +:10085000C3E501F5F0E50E95F0F500E500F5F0E5EE +:100860000C45F0F50CC3E509F5F0E50F95F0F50042 +:10087000E500F5F0E50C45F0F50CC3E50AF5F0E50B +:100880001095F0F500E500F5F0E50C45F0F50C7578 +:100890000100750900750A00E50CF500750C01C32F +:1008A000750B00E500F5F0E50B95F0F50B750B0009 +:1008B000E50BF5F0E50B35F0F50BE50BF5F0E50C88 +:1008C00065F0F50CC3750B00E501F5F0E50B95F04F +:1008D000F50B750B00E50BF5F0E50B35F0F50BE5C9 +:1008E0000BF5F0E50C65F0F50CC3750B00E509F5AB +:1008F000F0E50B95F0F50B750B00E50BF5F0E50B4E +:1009000035F0F50BE50BF5F0E50C65F0F50CC3756E +:100910000B00E50AF5F0E50B95F0F50B750B00E51E +:100920000BF5F0E50B35F0F50BE50BF5F0E50C6597 +:10093000F0F50C750100750900750A00750000E5F9 +:100940000CF5F0E50045F0F500E501F5F0E50045B2 +:10095000F0F500E509F5F0E50045F0F500E50AF5EC +:10096000F0E50045F0F500E50070028003020B366B +:10097000007500FF750100750900750A00750B0010 +:10098000C3E500F5F0E50D95F0F500E500F5F0E5BF +:100990000B45F0F50BC3E501F5F0E50E95F0F5001C +:1009A000E500F5F0E50B45F0F50BC3E509F5F0E5DD +:1009B0000F95F0F500E500F5F0E50B45F0F50BC3FC +:1009C000E50AF5F0E51095F0F500E500F5F0E50B2A +:1009D00045F0F50B750100750900750A00E50BF58A +:1009E00000750B01C3750C00E500F5F0E50C95F002 +:1009F000F50C750C00E50CF5F0E50C35F0F50CE5A3 +:100A00000CF5F0E50B65F0F50BC3750C00E501F591 +:100A1000F0E50C95F0F50C750C00E50CF5F0E50C27 +:100A200035F0F50CE50CF5F0E50B65F0F50BC3754D +:100A30000C00E509F5F0E50C95F0F50C750C00E5FA +:100A40000CF5F0E50C35F0F50CE50CF5F0E50B6573 +:100A5000F0F50BC3750C00E50AF5F0E50C95F0F523 +:100A60000C750C00E50CF5F0E50C35F0F50CE50C1B +:100A7000F5F0E50B65F0F50B750100750900750AD9 +:100A800000750000E50BF5F0E50045F0F500E50127 +:100A9000F5F0E50045F0F500E509F5F0E50045F075 +:100AA000F500E50AF5F0E50045F0F500E500700217 +:100AB0008003020B25000000750000E500F502E54B +:100AC00000F503E500F504E500F50575E0022506EF +:100AD000F58275E0003507F583E0F51075E0002537 +:100AE00006F58275E0003507F583E0F508E508C0F6 +:100AF000E075E0012506F58275E0003507F583E035 +:100B0000F508E508C0E075E0032506F50675E00088 +:100B10003507F507E502F582E503F583E504F50001 +:100B2000E505F501220000751F08751E00751D0002 +:100B3000751C00020AB70000751F07751E00751DA1 +:100B400000751C00020AB70000751F06751E0075AF +:100B50001D00751C00020AB70000751F05751E00F8 +:100B6000751D00751C00020AB70000751F04751E74 +:100B700000751D00751C00020AB70000751F037583 +:100B80001E00751D00751C00020AB70000751F02CB +:100B9000751E00751D00751C00020AB70000751F48 +:100BA00001751E00751D00751C00020AB7000000CB +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/switch-4.s.expected b/tests/GCCTestSuite/switch-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/switch-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/symbian1.c b/tests/GCCTestSuite/symbian1.c new file mode 100644 index 0000000..25e8128 --- /dev/null +++ b/tests/GCCTestSuite/symbian1.c @@ -0,0 +1,11 @@ +/* { dg-do compile { target arm*-*-symbianelf* } } */ +/* Symbian OS requires that all defined symbols with external linkage + have the ELF STV_HIDDEN attribute set by default. */ +/* { dg-final { scan-assembler ".hidden.*i" } } */ +/* { dg-final { scan-assembler ".hidden.*j" } } */ +/* { dg-final { scan-assembler ".hidden.*f" } } */ + +int i; +int j = 3; +void f() {} + diff --git a/tests/GCCTestSuite/symbian1.c.expected b/tests/GCCTestSuite/symbian1.c.expected new file mode 100644 index 0000000..25e8128 --- /dev/null +++ b/tests/GCCTestSuite/symbian1.c.expected @@ -0,0 +1,11 @@ +/* { dg-do compile { target arm*-*-symbianelf* } } */ +/* Symbian OS requires that all defined symbols with external linkage + have the ELF STV_HIDDEN attribute set by default. */ +/* { dg-final { scan-assembler ".hidden.*i" } } */ +/* { dg-final { scan-assembler ".hidden.*j" } } */ +/* { dg-final { scan-assembler ".hidden.*f" } } */ + +int i; +int j = 3; +void f() {} + diff --git a/tests/GCCTestSuite/symbian1.hex.expected b/tests/GCCTestSuite/symbian1.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/symbian1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/symbian1.s.expected b/tests/GCCTestSuite/symbian1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/symbian1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/symbian3.c b/tests/GCCTestSuite/symbian3.c new file mode 100644 index 0000000..2f11d35 --- /dev/null +++ b/tests/GCCTestSuite/symbian3.c @@ -0,0 +1,7 @@ +/* { dg-do compile { target arm*-*-symbianelf* } } */ +/* Check that enumeration types are 4-byte types. */ + +enum e { e_1 }; + +extern int i[sizeof (enum e)]; +int i[4]; diff --git a/tests/GCCTestSuite/symbian3.c.expected b/tests/GCCTestSuite/symbian3.c.expected new file mode 100644 index 0000000..2f11d35 --- /dev/null +++ b/tests/GCCTestSuite/symbian3.c.expected @@ -0,0 +1,7 @@ +/* { dg-do compile { target arm*-*-symbianelf* } } */ +/* Check that enumeration types are 4-byte types. */ + +enum e { e_1 }; + +extern int i[sizeof (enum e)]; +int i[4]; diff --git a/tests/GCCTestSuite/symbian3.hex.expected b/tests/GCCTestSuite/symbian3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/symbian3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/symbian3.s.expected b/tests/GCCTestSuite/symbian3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/symbian3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/symbian4.c b/tests/GCCTestSuite/symbian4.c new file mode 100644 index 0000000..aede7f5 --- /dev/null +++ b/tests/GCCTestSuite/symbian4.c @@ -0,0 +1,5 @@ +/* { dg-do compile { target arm*-*-symbianelf* } } */ +/* Check that wchar_t is a 2-byte type. */ + +extern int i[sizeof (L'a')]; +int i[2]; diff --git a/tests/GCCTestSuite/symbian4.c.expected b/tests/GCCTestSuite/symbian4.c.expected new file mode 100644 index 0000000..aede7f5 --- /dev/null +++ b/tests/GCCTestSuite/symbian4.c.expected @@ -0,0 +1,5 @@ +/* { dg-do compile { target arm*-*-symbianelf* } } */ +/* Check that wchar_t is a 2-byte type. */ + +extern int i[sizeof (L'a')]; +int i[2]; diff --git a/tests/GCCTestSuite/symbian4.hex.expected b/tests/GCCTestSuite/symbian4.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/symbian4.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/symbian4.s.expected b/tests/GCCTestSuite/symbian4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/symbian4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/symbian5.c b/tests/GCCTestSuite/symbian5.c new file mode 100644 index 0000000..0bde6b0 --- /dev/null +++ b/tests/GCCTestSuite/symbian5.c @@ -0,0 +1,8 @@ +/* { dg-do compile { target arm*-*-symbianelf* } } */ +/* { dg-options "-fno-short-wchar" } */ +/* Check that wchar_t is a 4-byte type when -fno-short-wchar is + used. */ + +extern int i[sizeof (L'a')]; +int i[4]; + diff --git a/tests/GCCTestSuite/symbian5.c.expected b/tests/GCCTestSuite/symbian5.c.expected new file mode 100644 index 0000000..0bde6b0 --- /dev/null +++ b/tests/GCCTestSuite/symbian5.c.expected @@ -0,0 +1,8 @@ +/* { dg-do compile { target arm*-*-symbianelf* } } */ +/* { dg-options "-fno-short-wchar" } */ +/* Check that wchar_t is a 4-byte type when -fno-short-wchar is + used. */ + +extern int i[sizeof (L'a')]; +int i[4]; + diff --git a/tests/GCCTestSuite/symbian5.hex.expected b/tests/GCCTestSuite/symbian5.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/symbian5.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/symbian5.s.expected b/tests/GCCTestSuite/symbian5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/symbian5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/transparent-union-2.c b/tests/GCCTestSuite/transparent-union-2.c new file mode 100644 index 0000000..f466c4a --- /dev/null +++ b/tests/GCCTestSuite/transparent-union-2.c @@ -0,0 +1,18 @@ +/* PR c/20043 */ +/* { dg-compile } */ +/* { dg-options "-std=gnu99" } */ + +typedef union { int *i; long *l; } U + __attribute__((transparent_union)); + +extern void f0 (U); /* { dg-error "previous declaration" } */ +extern void f0 (void *); /* { dg-error "conflicting types" } */ + +extern void f1 (U); /* { dg-error "previous declaration" } */ +extern void f1 (unsigned long); /* { dg-error "conflicting types" } */ + +extern void f2 (void *); /* { dg-error "previous declaration" } */ +extern void f2 (U); /* { dg-error "conflicting types" } */ + +extern void f3 (unsigned long); /* { dg-error "previous declaration" } */ +extern void f3 (U); /* { dg-error "conflicting types" } */ diff --git a/tests/GCCTestSuite/transparent-union-2.c.expected b/tests/GCCTestSuite/transparent-union-2.c.expected new file mode 100644 index 0000000..f466c4a --- /dev/null +++ b/tests/GCCTestSuite/transparent-union-2.c.expected @@ -0,0 +1,18 @@ +/* PR c/20043 */ +/* { dg-compile } */ +/* { dg-options "-std=gnu99" } */ + +typedef union { int *i; long *l; } U + __attribute__((transparent_union)); + +extern void f0 (U); /* { dg-error "previous declaration" } */ +extern void f0 (void *); /* { dg-error "conflicting types" } */ + +extern void f1 (U); /* { dg-error "previous declaration" } */ +extern void f1 (unsigned long); /* { dg-error "conflicting types" } */ + +extern void f2 (void *); /* { dg-error "previous declaration" } */ +extern void f2 (U); /* { dg-error "conflicting types" } */ + +extern void f3 (unsigned long); /* { dg-error "previous declaration" } */ +extern void f3 (U); /* { dg-error "conflicting types" } */ diff --git a/tests/GCCTestSuite/transparent-union-2.hex.expected b/tests/GCCTestSuite/transparent-union-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/transparent-union-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/transparent-union-2.s.expected b/tests/GCCTestSuite/transparent-union-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/transparent-union-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/transparent-union-3.c b/tests/GCCTestSuite/transparent-union-3.c new file mode 100644 index 0000000..cebd5f8 --- /dev/null +++ b/tests/GCCTestSuite/transparent-union-3.c @@ -0,0 +1,22 @@ +/* Test for ICEs on invalid transparent unions (empty or no named + members). Bug 21213. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +enum e { A }; + +union __attribute__((__transparent_union__)) ue1 { enum e; }; /* { dg-warning "warning: declaration does not declare anything" } */ +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 9 } */ +union ue2 { enum e; } __attribute__((__transparent_union__)); /* { dg-warning "warning: declaration does not declare anything" } */ +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 11 } */ + +union __attribute__((__transparent_union__)) ui1 { int; }; /* { dg-warning "warning: declaration does not declare anything" } */ +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 14 } */ +union ui2 { int; } __attribute__((__transparent_union__)); /* { dg-warning "warning: declaration does not declare anything" } */ +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 16 } */ + +union __attribute__((__transparent_union__)) u1 { }; +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 19 } */ +union u2 { } __attribute__((__transparent_union__)); +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 21 } */ diff --git a/tests/GCCTestSuite/transparent-union-3.c.expected b/tests/GCCTestSuite/transparent-union-3.c.expected new file mode 100644 index 0000000..cebd5f8 --- /dev/null +++ b/tests/GCCTestSuite/transparent-union-3.c.expected @@ -0,0 +1,22 @@ +/* Test for ICEs on invalid transparent unions (empty or no named + members). Bug 21213. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +enum e { A }; + +union __attribute__((__transparent_union__)) ue1 { enum e; }; /* { dg-warning "warning: declaration does not declare anything" } */ +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 9 } */ +union ue2 { enum e; } __attribute__((__transparent_union__)); /* { dg-warning "warning: declaration does not declare anything" } */ +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 11 } */ + +union __attribute__((__transparent_union__)) ui1 { int; }; /* { dg-warning "warning: declaration does not declare anything" } */ +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 14 } */ +union ui2 { int; } __attribute__((__transparent_union__)); /* { dg-warning "warning: declaration does not declare anything" } */ +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 16 } */ + +union __attribute__((__transparent_union__)) u1 { }; +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 19 } */ +union u2 { } __attribute__((__transparent_union__)); +/* { dg-warning "warning: union cannot be made transparent" "" { target *-*-* } 21 } */ diff --git a/tests/GCCTestSuite/transparent-union-3.hex.expected b/tests/GCCTestSuite/transparent-union-3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/transparent-union-3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/transparent-union-3.s.expected b/tests/GCCTestSuite/transparent-union-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/transparent-union-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/trunc-1.c b/tests/GCCTestSuite/trunc-1.c new file mode 100644 index 0000000..0d6a48b --- /dev/null +++ b/tests/GCCTestSuite/trunc-1.c @@ -0,0 +1,15 @@ +/* Origin: PR c/675 from aj@suse.de. */ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +#include + +int +main (void) +{ + size_t len; + + len = ~(sizeof (size_t) - 1); /* { dg-bogus "truncated" "bogus truncation warning" } */ + + return 0; +} diff --git a/tests/GCCTestSuite/trunc-1.c.expected b/tests/GCCTestSuite/trunc-1.c.expected new file mode 100644 index 0000000..0d6a48b --- /dev/null +++ b/tests/GCCTestSuite/trunc-1.c.expected @@ -0,0 +1,15 @@ +/* Origin: PR c/675 from aj@suse.de. */ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +#include + +int +main (void) +{ + size_t len; + + len = ~(sizeof (size_t) - 1); /* { dg-bogus "truncated" "bogus truncation warning" } */ + + return 0; +} diff --git a/tests/GCCTestSuite/trunc-1.hex.expected b/tests/GCCTestSuite/trunc-1.hex.expected new file mode 100644 index 0000000..1209c8d --- /dev/null +++ b/tests/GCCTestSuite/trunc-1.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501C3750900750A007560 +:100020000B00750C00E509F502E50AF503E50BF593 +:1000300004E50CF505E501C0E0E500C0E0E502F5EA +:1000400082E503F583E504F500E505F501220000EE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/trunc-1.s.expected b/tests/GCCTestSuite/trunc-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/trunc-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/typedef-init.c b/tests/GCCTestSuite/typedef-init.c new file mode 100644 index 0000000..52928da --- /dev/null +++ b/tests/GCCTestSuite/typedef-init.c @@ -0,0 +1,16 @@ +/* { dg-do compile } */ +/* { dg-options "-std=gnu89" } // suppress default -pedantic-errors */ + +/* This code used to be a legitimate, if dubious, extension. However, + it's been broken since GCC 3.0 (caused ICE) and we have now removed + the extension. See PR c/7353. */ + +/* Case A: just the bare name = initializer. */ + +typedef A = 0; /* { dg-error "initialized" "A" } */ +A a; /* { dg-bogus "" "A error cascade" } */ + +/* Case B: with a type also. */ + +typedef int B = 0; /* { dg-error "initialized" "B" } */ +B b; /* { dg-bogus "" "B error cascade" } */ diff --git a/tests/GCCTestSuite/typedef-init.c.expected b/tests/GCCTestSuite/typedef-init.c.expected new file mode 100644 index 0000000..52928da --- /dev/null +++ b/tests/GCCTestSuite/typedef-init.c.expected @@ -0,0 +1,16 @@ +/* { dg-do compile } */ +/* { dg-options "-std=gnu89" } // suppress default -pedantic-errors */ + +/* This code used to be a legitimate, if dubious, extension. However, + it's been broken since GCC 3.0 (caused ICE) and we have now removed + the extension. See PR c/7353. */ + +/* Case A: just the bare name = initializer. */ + +typedef A = 0; /* { dg-error "initialized" "A" } */ +A a; /* { dg-bogus "" "A error cascade" } */ + +/* Case B: with a type also. */ + +typedef int B = 0; /* { dg-error "initialized" "B" } */ +B b; /* { dg-bogus "" "B error cascade" } */ diff --git a/tests/GCCTestSuite/typedef-init.hex.expected b/tests/GCCTestSuite/typedef-init.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/typedef-init.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/typedef-init.s.expected b/tests/GCCTestSuite/typedef-init.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/typedef-init.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/ultrasp1.c b/tests/GCCTestSuite/ultrasp1.c new file mode 100644 index 0000000..82f586c --- /dev/null +++ b/tests/GCCTestSuite/ultrasp1.c @@ -0,0 +1,9 @@ +/* Simplified from testcase by David Staepelaere */ + +/* { dg-do compile } */ +/* { dg-options "" } */ +/* { dg-options -mcpu=ultrasparc { target sparc-*-* } } */ + +int foo(long long y) { + return -1 * y; +} diff --git a/tests/GCCTestSuite/ultrasp1.c.expected b/tests/GCCTestSuite/ultrasp1.c.expected new file mode 100644 index 0000000..82f586c --- /dev/null +++ b/tests/GCCTestSuite/ultrasp1.c.expected @@ -0,0 +1,9 @@ +/* Simplified from testcase by David Staepelaere */ + +/* { dg-do compile } */ +/* { dg-options "" } */ +/* { dg-options -mcpu=ultrasparc { target sparc-*-* } } */ + +int foo(long long y) { + return -1 * y; +} diff --git a/tests/GCCTestSuite/ultrasp1.hex.expected b/tests/GCCTestSuite/ultrasp1.hex.expected new file mode 100644 index 0000000..8dfde0c --- /dev/null +++ b/tests/GCCTestSuite/ultrasp1.hex.expected @@ -0,0 +1,60 @@ +:1000000000E50675820AC39582F506E5077583004B +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0E5173C +:10004000F518E516F519E515F51AE514F51B75E033 +:10005000052506F58275E0003507F583E513F07593 +:10006000E0042506F58275E0003507F583E512F01A +:1000700075E0032506F58275E0003507F583E51187 +:10008000F075E0022506F58275E0003507F583E599 +:1000900010F0E51FF514E51EF515E51DF516E51C38 +:1000A000F517750001750100750900750A00E50076 +:1000B000F4F500E501F4F501E509F4F509E50AF4C4 +:1000C000F50AD3750B00E50BF5F0E50035F0F5000A +:1000D000E50BF5F0E50135F0F501E50BF5F0E50987 +:1000E00035F0F509E50BF5F0E50A35F0F50A751080 +:1000F00000751100751200751300C3750B00E50043 +:10010000F5F0E514A4F50FE500F5F0E514A4E5F02D +:10011000F50CE50FF5F0E50B35F0F50BE501F5F025 +:10012000E514A4F50FE501F5F0E514A4E5F0F50DEF +:10013000E50FF5F0E50C35F0F50CE509F5F0E51403 +:10014000A4F50FE509F5F0E514A4E5F0F50EE50FCB +:10015000F5F0E50D35F0F50DE50AF5F0E514A4F53B +:100160000FE50AF5F0E514A4E5F0F50AE50FF5F062 +:10017000E50E35F0F50EC3C3750A00E50BF5F0E5A5 +:100180001035F0F510E50CF5F0E51135F0F511E559 +:100190000DF5F0E51235F0F512E50EF5F0E5133545 +:1001A000F0F513C3750C00E500F5F0E515A4F50FA7 +:1001B000E500F5F0E515A4E5F0F50DE50FF5F0E542 +:1001C0000C35F0F50CE501F5F0E515A4F50FE501AA +:1001D000F5F0E515A4E5F0F50EE50FF5F0E50D35C4 +:1001E000F0F50DE509F5F0E515A4F50FE509F5F0D5 +:1001F000E515A4E5F0F50AE50FF5F0E50E35F0F5A7 +:100200000E750B00C3C3750900E50BF5F0E510355D +:10021000F0F510E50CF5F0E51135F0F511E50DF50B +:10022000F0E51235F0F512E50EF5F0E51335F0F5D1 +:1002300013C3750D00E500F5F0E516A4F50FE50014 +:10024000F5F0E516A4E5F0F50EE50FF5F0E50D3552 +:10025000F0F50DE501F5F0E516A4F50FE501F5F073 +:10026000E516A4E5F0F50AE50FF5F0E50E35F0F535 +:100270000E750B00750C00C3C3750100E50BF5F09E +:10028000E51035F0F510E50CF5F0E51135F0F51158 +:10029000E50DF5F0E51235F0F512E50EF5F0E51394 +:1002A00035F0F513C3750E00E500F5F0E517A4F57C +:1002B0000FE500F5F0E517A4E5F0F50AE50FF5F018 +:1002C000E50E35F0F50E750B00750C00750D00C3CD +:1002D000C3750000E50BF5F0E51035F0F510E50C01 +:1002E000F5F0E51135F0F511E50DF5F0E51235F015 +:1002F000F512E50EF5F0E51335F0F513E510F5020E +:10030000E511F503E512F504E513F505E518F51714 +:10031000E519F516E51AF515E51BF51475E0052543 +:1003200006F58275E0003507F583E0F51375E00406 +:100330002506F58275E0003507F583E0F51275E0D6 +:10034000032506F58275E0003507F583E0F51175A4 +:10035000E0022506F58275E0003507F583E0F5102B +:1003600075E0002506F58275E0003507F583E0F5B8 +:1003700008E508C0E075E0012506F58275E0003566 +:1003800007F583E0F508E508C0E075E00A2506F505 +:100390000675E0003507F507E502F582E503F5830C +:1003A000E504F500E505F50122000000000000006D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/ultrasp1.s.expected b/tests/GCCTestSuite/ultrasp1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/ultrasp1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/ultrasp10.c b/tests/GCCTestSuite/ultrasp10.c new file mode 100644 index 0000000..ffa3229 --- /dev/null +++ b/tests/GCCTestSuite/ultrasp10.c @@ -0,0 +1,25 @@ +/* PR target/11965 */ +/* Originator: */ +/* { dg-do run { target sparc*-*-* } } */ +/* { dg-options "-O -mcpu=ultrasparc" } */ + +/* This used to fail on 32-bit Ultrasparc because GCC emitted + an invalid shift instruction. */ + + +static inline unsigned int shift(int n, unsigned int value) +{ + return value << n; +} + +unsigned int val = 1; + +int main(void) +{ + int i; + + for (i = 0; i < 4; i++) + val = shift(32, val); + + return 0; +} diff --git a/tests/GCCTestSuite/ultrasp10.c.expected b/tests/GCCTestSuite/ultrasp10.c.expected new file mode 100644 index 0000000..ffa3229 --- /dev/null +++ b/tests/GCCTestSuite/ultrasp10.c.expected @@ -0,0 +1,25 @@ +/* PR target/11965 */ +/* Originator: */ +/* { dg-do run { target sparc*-*-* } } */ +/* { dg-options "-O -mcpu=ultrasparc" } */ + +/* This used to fail on 32-bit Ultrasparc because GCC emitted + an invalid shift instruction. */ + + +static inline unsigned int shift(int n, unsigned int value) +{ + return value << n; +} + +unsigned int val = 1; + +int main(void) +{ + int i; + + for (i = 0; i < 4; i++) + val = shift(32, val); + + return 0; +} diff --git a/tests/GCCTestSuite/ultrasp2.c b/tests/GCCTestSuite/ultrasp2.c new file mode 100644 index 0000000..1fd821c --- /dev/null +++ b/tests/GCCTestSuite/ultrasp2.c @@ -0,0 +1,12 @@ +/* Copyright (C) 1999 Free Software Foundation + by Alexandre Oliva + Simplified from libg++/src/Fix16.cc */ + +/* { dg-do compile } */ +/* { dg-options "" } */ +/* { dg-options "-O0" { target sparc64-*-* sparcv9-*-* } } */ + +short foo() { + short i = (short)(1<<15); + return i; +} diff --git a/tests/GCCTestSuite/ultrasp2.c.expected b/tests/GCCTestSuite/ultrasp2.c.expected new file mode 100644 index 0000000..1fd821c --- /dev/null +++ b/tests/GCCTestSuite/ultrasp2.c.expected @@ -0,0 +1,12 @@ +/* Copyright (C) 1999 Free Software Foundation + by Alexandre Oliva + Simplified from libg++/src/Fix16.cc */ + +/* { dg-do compile } */ +/* { dg-options "" } */ +/* { dg-options "-O0" { target sparc64-*-* sparcv9-*-* } } */ + +short foo() { + short i = (short)(1<<15); + return i; +} diff --git a/tests/GCCTestSuite/ultrasp2.hex.expected b/tests/GCCTestSuite/ultrasp2.hex.expected new file mode 100644 index 0000000..8336a20 --- /dev/null +++ b/tests/GCCTestSuite/ultrasp2.hex.expected @@ -0,0 +1,137 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF500E51EF501E51DD8 +:1000D000F509E51CF50AE51BF51EE519F516E51809 +:1000E000F51FE500F50FE501F510E509F511E50A45 +:1000F000F512751900751500751300751D00E51DC5 +:10010000F50EE51FF50D750080E500F5F0E50E250F +:10011000F0F50EE500F5F0E50D25F0F50D750C0098 +:10012000751400751700751800750B00750A0175B8 +:100130000001C3E50DF5F0E50E95F0F509E50BF5C9 +:10014000F0E50B35F0F509E509F5F0E50055F0F5BA +:1001500000E500F5F0E50C45F0F50C750001C3E590 +:100160000DF5F0E50E95F0F509E50BF5F0E50B352D +:10017000F0F509E50EF5F0E50D95F0F501E50BF567 +:10018000F0E50B35F0F501E501F5F0E50945F0F591 +:1001900009E50AF5F0E50965F0F509E509F5F0E589 +:1001A0000055F0F500C3E516F5F0E51395F0F509F7 +:1001B000E50BF5F0E50B35F0F509E509F5F0E5009F +:1001C00055F0F500E500F5F0E50C45F0F50C75008F +:1001D00001C3E50DF5F0E50E95F0F509E50BF5F039 +:1001E000E50B35F0F509E50EF5F0E50D95F0F501B7 +:1001F000E50BF5F0E50B35F0F501E501F5F0E50966 +:1002000045F0F509E50AF5F0E50965F0F509E509B8 +:10021000F5F0E50055F0F500C3E516F5F0E51395AA +:10022000F0F509E50BF5F0E50B35F0F509E513F50B +:10023000F0E51695F0F501E50BF5F0E50B35F0F579 +:1002400001E501F5F0E50945F0F509E50AF5F0E508 +:100250000965F0F509E509F5F0E50055F0F500C38D +:10026000E51AF5F0E51595F0F509E50BF5F0E50B68 +:1002700035F0F509E509F5F0E50055F0F500E50084 +:10028000F5F0E50C45F0F50C750001C3E50DF5F052 +:10029000E50E95F0F509E50BF5F0E50B35F0F50900 +:1002A000E50EF5F0E50D95F0F501E50BF5F0E50B44 +:1002B00035F0F501E501F5F0E50945F0F509E50A48 +:1002C000F5F0E50965F0F509E509F5F0E50055F00B +:1002D000F500C3E516F5F0E51395F0F509E50BF526 +:1002E000F0E50B35F0F509E513F5F0E51695F0F5B9 +:1002F00001E50BF5F0E50B35F0F501E501F5F0E56D +:100300000945F0F509E50AF5F0E50965F0F509E5B7 +:1003100009F5F0E50055F0F500C3E51AF5F0E5152F +:1003200095F0F509E50BF5F0E50B35F0F509E51568 +:10033000F5F0E51A95F0F501E50BF5F0E50B35F074 +:10034000F501E501F5F0E50945F0F509E50AF5F0F7 +:10035000E50965F0F509E509F5F0E50055F0F5006A +:10036000C3E51EF5F0E51995F0F509E50BF5F0E5A7 +:100370000B35F0F509E509F5F0E50055F0F500E578 +:1003800000F5F0E50C45F0F50CE50CF50AE514F583 +:1003900000E517F501E518F509E50AF50C750B01FF +:1003A000C3750A00E50CF5F0E50A95F0F50A750A43 +:1003B00000E50AF5F0E50A35F0F50AE50AF5F0E59D +:1003C0000B65F0F50BC3750A00E500F5F0E50A953D +:1003D000F0F50A750A00E50AF5F0E50A35F0F50AC8 +:1003E000E50AF5F0E50B65F0F50BC3750A00E501CC +:1003F000F5F0E50A95F0F50A750A00E50AF5F0E56D +:100400000A35F0F50AE50AF5F0E50B65F0F50BC3E2 +:10041000750A00E509F5F0E50A95F0F50A750A0098 +:10042000E50AF5F0E50A35F0F50AE50AF5F0E50B21 +:1004300065F0F50B750100750900750A007500007F +:10044000E50BF5F0E50045F0F500E501F5F0E50018 +:1004500045F0F500E509F5F0E50045F0F500E50AA1 +:10046000F5F0E50045F0F500E500700280030206B6 +:10047000D700750D02750E00751700751B00E50F8E +:10048000F500E510F514E511F518E512F51C750FEA +:1004900000751000751100751200C3750100E500AC +:1004A000F5F0E50DA4F50CE500F5F0E50DA4E5F09B +:1004B000F509E50CF5F0E50135F0F501E514F5F089 +:1004C000E50DA4F50CE514F5F0E50DA4E5F0F50A4D +:1004D000E50CF5F0E50935F0F509E518F5F0E50D61 +:1004E000A4F50CE518F5F0E50DA4E5F0F50BE50C29 +:1004F000F5F0E50A35F0F50AE51CF5F0E50DA4F593 +:100500000CE51CF5F0E50DA4E5F0F50DE50CF5F0B6 +:10051000E50B35F0F50BC3C3750C00E501F5F0E50F +:100520000F35F0F50FE509F5F0E51035F0F510E5BC +:100530000AF5F0E51135F0F511E50BF5F0E51235AA +:10054000F0F512C3750900E500F5F0E50EA4F50C11 +:10055000E500F5F0E50EA4E5F0F50AE50CF5F0E5AB +:100560000935F0F509E514F5F0E50EA4F50CE514F0 +:10057000F5F0E50EA4E5F0F50BE50CF5F0E50A3530 +:10058000F0F50AE518F5F0E50EA4F50CE518F5F020 +:10059000E50EA4E5F0F50DE50CF5F0E50B35F0F50D +:1005A0000B750100C3C3750C00E501F5F0E50F35CF +:1005B000F0F50FE509F5F0E51035F0F510E50AF571 +:1005C000F0E51135F0F511E50BF5F0E51235F0F534 +:1005D00012C3750A00E500F5F0E517A4F50CE50077 +:1005E000F5F0E517A4E5F0F50BE50CF5F0E50A35B7 +:1005F000F0F50AE514F5F0E517A4F50CE514F5F0AF +:10060000E517A4E5F0F50DE50CF5F0E50B35F0F593 +:100610000B750100750900C3C3750C00E501F5F009 +:10062000E50F35F0F50FE509F5F0E51035F0F510BB +:10063000E50AF5F0E51135F0F511E50BF5F0E512F9 +:1006400035F0F512C3750B00E500F5F0E51BA4F5D8 +:100650000CE500F5F0E51BA4E5F0F50DE50CF5F073 +:10066000E50B35F0F50B750100750900750A00C33F +:10067000C3750000E501F5F0E50F35F0F50FE5096C +:10068000F5F0E51035F0F510E50AF5F0E51135F077 +:10069000F511E50BF5F0E51235F0F5127500017571 +:1006A0000100750900750A00C3750B00E500F5F03F +:1006B000E51935F0F519E501F5F0E51535F0F51515 +:1006C000E509F5F0E51335F0F513E50AF5F0E51D5C +:1006D00035F0F51D0200FE00E50FF502E510F5030B +:1006E000E511F504E512F50575E0092506F58275B5 +:1006F000E0003507F583E0F51775E0082506F5827B +:1007000075E0003507F583E0F51675E0072506F579 +:100710008275E0003507F583E0F51575E0062506DE +:10072000F58275E0003507F583E0F51475E00525E1 +:1007300006F58275E0003507F583E0F51375E004F2 +:100740002506F58275E0003507F583E0F51275E0C2 +:10075000032506F58275E0003507F583E0F5117590 +:10076000E0022506F58275E0003507F583E0F51017 +:1007700075E0002506F58275E0003507F583E0F5A4 +:1007800008E508C0E075E0012506F58275E0003552 +:1007900007F583E0F508E508C0E075E0122506F5E9 +:1007A0000675E0003507F507E502F582E503F583F8 +:1007B000E504F500E505F5012200E506758202C3B2 +:1007C0009582F506E5077583009583F507D0E0F57A +:1007D0000875E0012506F58275E0003507F583E52B +:1007E00008F0D0E0F50875E0002506F58275E00018 +:1007F0003507F583E508F0751F01751E00751D00AE +:10080000751C00751B0F751A0075190075180012FC +:100810000000E582F502E583F503E502F500E50356 +:10082000F501750900E500F502E501F503E509F5B7 +:1008300004E509F50575E0002506F58275E000354B +:1008400007F583E0F508E508C0E075E0012506F549 +:100850008275E0003507F583E0F508E508C0E0752E +:10086000E0022506F50675E0003507F507E502F517 +:1008700082E503F583E504F500E505F501220000B6 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/ultrasp2.s.expected b/tests/GCCTestSuite/ultrasp2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/ultrasp2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/ultrasp4.c b/tests/GCCTestSuite/ultrasp4.c new file mode 100644 index 0000000..1c72d06 --- /dev/null +++ b/tests/GCCTestSuite/ultrasp4.c @@ -0,0 +1,21 @@ +/* Simplified from PR target/5309. */ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ +/* { dg-options "-O2 -mcpu=ultrasparc" { target sparc64-*-* sparcv9-*-* } } */ + +#if __INT_MAX__ > 32767 +#define PTR_TYPE long +#else +/* For 16-bit ports a long is a 32-bit quantity. So you cannot + cast a 32-bit long integer into a pointer which will only be + 16-bits long. */ +#define PTR_TYPE int +#endif + +extern PTR_TYPE bar (unsigned int); + +PTR_TYPE +foo (PTR_TYPE x, unsigned int y) +{ + return *(((PTR_TYPE *) (bar (y) - 1)) + 1 + (x >> 2) % 359); +} diff --git a/tests/GCCTestSuite/ultrasp4.c.expected b/tests/GCCTestSuite/ultrasp4.c.expected new file mode 100644 index 0000000..1c72d06 --- /dev/null +++ b/tests/GCCTestSuite/ultrasp4.c.expected @@ -0,0 +1,21 @@ +/* Simplified from PR target/5309. */ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ +/* { dg-options "-O2 -mcpu=ultrasparc" { target sparc64-*-* sparcv9-*-* } } */ + +#if __INT_MAX__ > 32767 +#define PTR_TYPE long +#else +/* For 16-bit ports a long is a 32-bit quantity. So you cannot + cast a 32-bit long integer into a pointer which will only be + 16-bits long. */ +#define PTR_TYPE int +#endif + +extern PTR_TYPE bar (unsigned int); + +PTR_TYPE +foo (PTR_TYPE x, unsigned int y) +{ + return *(((PTR_TYPE *) (bar (y) - 1)) + 1 + (x >> 2) % 359); +} diff --git a/tests/GCCTestSuite/ultrasp4.hex.expected b/tests/GCCTestSuite/ultrasp4.hex.expected new file mode 100644 index 0000000..22a8607 --- /dev/null +++ b/tests/GCCTestSuite/ultrasp4.hex.expected @@ -0,0 +1,725 @@ +:1000000000E506758212C39582F506E50775830043 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0E51FF500E51EF501E51DD8 +:1000D000F509E51CF50AE51AF515E519F513750F8F +:1000E00000751000751100751200E500F516E501A8 +:1000F000F514E509F50DE50AF50E750C0075170008 +:10010000751900751A00750B00750A01750001C399 +:10011000E518F5F0E50E95F0F509E50BF5F0E50BC2 +:1001200035F0F509E509F5F0E50055F0F500E500D5 +:10013000F5F0E50C45F0F50C750001C3E518F5F098 +:10014000E50E95F0F509E50BF5F0E50B35F0F50951 +:10015000E50EF5F0E51895F0F501E50BF5F0E50B8A +:1001600035F0F501E501F5F0E50945F0F509E50A99 +:10017000F5F0E50965F0F509E509F5F0E50055F05C +:10018000F500C3E513F5F0E50D95F0F509E50BF580 +:10019000F0E50B35F0F509E509F5F0E50055F0F56A +:1001A00000E500F5F0E50C45F0F50C750001C3E540 +:1001B00018F5F0E50E95F0F509E50BF5F0E50B35D2 +:1001C000F0F509E50EF5F0E51895F0F501E50BF50C +:1001D000F0E50B35F0F501E501F5F0E50945F0F541 +:1001E00009E50AF5F0E50965F0F509E509F5F0E539 +:1001F0000055F0F500C3E513F5F0E50D95F0F509B0 +:10020000E50BF5F0E50B35F0F509E50DF5F0E51337 +:1002100095F0F501E50BF5F0E50B35F0F501E5019D +:10022000F5F0E50945F0F509E50AF5F0E50965F0B1 +:10023000F509E509F5F0E50055F0F500C3E515F51C +:10024000F0E51495F0F509E50BF5F0E50B35F0F563 +:1002500009E509F5F0E50055F0F500E500F5F0E5F4 +:100260000C45F0F50C750001C3E518F5F0E50E95A9 +:10027000F0F509E50BF5F0E50B35F0F509E50EF5C0 +:10028000F0E51895F0F501E50BF5F0E50B35F0F527 +:1002900001E501F5F0E50945F0F509E50AF5F0E5B8 +:1002A0000965F0F509E509F5F0E50055F0F500C33D +:1002B000E513F5F0E50D95F0F509E50BF5F0E50B27 +:1002C00035F0F509E50DF5F0E51395F0F501E50BD1 +:1002D000F5F0E50B35F0F501E501F5F0E50945F040 +:1002E000F509E50AF5F0E50965F0F509E509F5F028 +:1002F000E50055F0F500C3E515F5F0E51495F0F5CA +:1003000009E50BF5F0E50B35F0F509E514F5F0E539 +:100310001595F0F501E50BF5F0E50B35F0F501E588 +:1003200001F5F0E50945F0F509E50AF5F0E509659F +:10033000F0F509E509F5F0E50055F0F500C3E51B1A +:10034000F5F0E51695F0F509E50BF5F0E50B35F060 +:10035000F509E509F5F0E50055F0F500E500F5F0E3 +:10036000E50C45F0F50CE517F500E519F501E51A82 +:10037000F509E50CF50B750C01C3750A00E50BF5E5 +:10038000F0E50A95F0F50A750A00E50AF5F0E50AC8 +:1003900035F0F50AE50AF5F0E50C65F0F50CC375E6 +:1003A0000A00E500F5F0E50A95F0F50A750A00E5A2 +:1003B0000AF5F0E50A35F0F50AE50AF5F0E50C6511 +:1003C000F0F50CC3750A00E501F5F0E50A95F0F5C6 +:1003D0000A750A00E50AF5F0E50A35F0F50AE50ABE +:1003E000F5F0E50C65F0F50CC3750A00E509F5F0CC +:1003F000E50A95F0F50A750A00E50AF5F0E50A3513 +:10040000F0F50AE50AF5F0E50C65F0F50C7500006D +:10041000750100750900E500F50BE501F50A7501A8 +:1004200001C3750000E50CF5F0E50095F0F50075E9 +:100430000000E500F5F0E50035F0F500E500F5F029 +:10044000E50165F0F501C3750000E50BF5F0E50089 +:1004500095F0F500750000E500F5F0E50035F0F5E4 +:1004600000E500F5F0E50165F0F501C3750000E574 +:100470000AF5F0E50095F0F500750000E500F5F0EF +:10048000E50035F0F500E500F5F0E50165F0F50172 +:10049000C3750000E509F5F0E50095F0F50075007D +:1004A00000E500F5F0E50035F0F500E500F5F0E5D4 +:1004B0000165F0F501750900750A00750B007500FE +:1004C00000E501F5F0E50045F0F500E509F5F0E59A +:1004D0000045F0F500E50AF5F0E50045F0F500E52A +:1004E0000BF5F0E50045F0F500E500700280030231 +:1004F000055700750001750100750900750A00C3F4 +:10050000750B00E500F5F0E50F35F0F50FE501F5A9 +:10051000F0E51035F0F510E509F5F0E51135F0F5E9 +:1005200011E50AF5F0E51235F0F512C3E51BF5F01B +:10053000E51695F0F516E515F5F0E51495F0F514CA +:10054000E513F5F0E50D95F0F50DE518F5F0E50E80 +:1005500095F0F50E0200FA00E50FF502E510F5033F +:10056000E511F504E512F50575E0092506F5827536 +:10057000E0003507F583E0F51775E0082506F582FC +:1005800075E0003507F583E0F51675E0072506F5FB +:100590008275E0003507F583E0F51575E006250660 +:1005A000F58275E0003507F583E0F51475E0052563 +:1005B00006F58275E0003507F583E0F51375E00474 +:1005C0002506F58275E0003507F583E0F51275E044 +:1005D000032506F58275E0003507F583E0F5117512 +:1005E000E0022506F58275E0003507F583E0F51099 +:1005F00075E0002506F58275E0003507F583E0F526 +:1006000008E508C0E075E0012506F58275E00035D3 +:1006100007F583E0F508E508C0E075E0122506F56A +:100620000675E0003507F507E502F582E503F58379 +:10063000E504F500E505F5012200E506758217C31E +:100640009582F506E5077583009583F507D0E0F5FB +:100650000875E0062506F58275E0003507F583E5A7 +:1006600008F0D0E0F50875E0052506F58275E00094 +:100670003507F583E508F075E00E2506F58275E08F +:10068000003507F583E517F075E00D2506F5827551 +:10069000E0003507F583E516F075E00C2506F582D8 +:1006A00075E0003507F583E515F075E00B2506F5D7 +:1006B0008275E0003507F583E514F075E00A25063C +:1006C000F58275E0003507F583E513F075E009253F +:1006D00006F58275E0003507F583E512F075E00850 +:1006E0002506F58275E0003507F583E511F075E024 +:1006F000072506F58275E0003507F583E510F0E57E +:100700001FF511E51BF512E51AF513E519F514753A +:10071000E0042506F58275E0003507F583E511F064 +:1007200075E0032506F58275E0003507F583E51EC3 +:10073000F075E0022506F58275E0003507F583E5E2 +:100740001DF075E0012506F58275E0003507F5839B +:10075000E51CF07515017516007517007508007514 +:10076000E0002506F58275E0003507F583E508F021 +:10077000751900750D00750E00750F00E51CF5105C +:10078000750080E500F5F0E51025F0F510E500F5C1 +:10079000F0E50F25F0F50F750C00751A00751B00BC +:1007A000751F00750B00750A01750001C3E50FF593 +:1007B000F0E51095F0F509E50BF5F0E50B35F0F5F2 +:1007C00009E509F5F0E50055F0F500E500F5F0E57F +:1007D0000C45F0F50C750001C3E50FF5F0E510953B +:1007E000F0F509E50BF5F0E50B35F0F509E510F549 +:1007F000F0E50F95F0F501E50BF5F0E50B35F0F5BB +:1008000001E501F5F0E50945F0F509E50AF5F0E542 +:100810000965F0F509E509F5F0E50055F0F500C3C7 +:10082000E50EF5F0E51D95F0F509E50BF5F0E50BA6 +:1008300035F0F509E509F5F0E50055F0F500E500BE +:10084000F5F0E50C45F0F50C750001C3E50FF5F08A +:10085000E51095F0F509E50BF5F0E50B35F0F50938 +:10086000E510F5F0E50F95F0F501E50BF5F0E50B7A +:1008700035F0F501E501F5F0E50945F0F509E50A82 +:10088000F5F0E50965F0F509E509F5F0E50055F045 +:10089000F500C3E50EF5F0E51D95F0F509E50BF55E +:1008A000F0E50B35F0F509E51DF5F0E50E95F0F5F1 +:1008B00001E50BF5F0E50B35F0F501E501F5F0E5A7 +:1008C0000945F0F509E50AF5F0E50965F0F509E5F2 +:1008D00009F5F0E50055F0F500C3E50DF5F0E51E6E +:1008E00095F0F509E50BF5F0E50B35F0F509E509AF +:1008F000F5F0E50055F0F500E500F5F0E50C45F004 +:10090000F50C750001C3E50FF5F0E51095F0F5095C +:10091000E50BF5F0E50B35F0F509E510F5F0E50F21 +:1009200095F0F501E50BF5F0E50B35F0F501E50186 +:10093000F5F0E50945F0F509E50AF5F0E50965F09A +:10094000F509E509F5F0E50055F0F500C3E50EF50C +:10095000F0E51D95F0F509E50BF5F0E50B35F0F543 +:1009600009E51DF5F0E50E95F0F501E50BF5F0E56F +:100970000B35F0F501E501F5F0E50945F0F509E580 +:100980000AF5F0E50965F0F509E509F5F0E500552A +:10099000F0F500C3E50DF5F0E51E95F0F509E50B62 +:1009A000F5F0E50B35F0F509E51EF5F0E50D95F0F0 +:1009B000F501E50BF5F0E50B35F0F501E501F5F096 +:1009C000E50945F0F509E50AF5F0E50965F0F509F1 +:1009D000E509F5F0E50055F0F500C3E519F5F0E59A +:1009E0001195F0F509E50BF5F0E50B35F0F509E5A6 +:1009F00009F5F0E50055F0F500E500F5F0E50C45EA +:100A0000F0F50CE51AF501E51BF509E51FF50A758A +:100A10000000E50CF5F0E50045F0F500E501F5F026 +:100A2000E50045F0F500E509F5F0E50045F0F500D5 +:100A3000E50AF5F0E50045F0F500E50070028003F9 +:100A400002116B00751900750D00750E00750F0011 +:100A5000E512F51BE513F51AE514F510E518F51187 +:100A6000750080E500F5F0E51125F0F511E500F5DC +:100A7000F0E50F25F0F50F750C00751C00751D00D5 +:100A8000751E00750B00750A01750001C3E50FF5B1 +:100A9000F0E51195F0F509E50BF5F0E50B35F0F50E +:100AA00009E509F5F0E50055F0F500E500F5F0E59C +:100AB0000C45F0F50C750001C3E50FF5F0E5119557 +:100AC000F0F509E50BF5F0E50B35F0F509E511F565 +:100AD000F0E50F95F0F501E50BF5F0E50B35F0F5D8 +:100AE00001E501F5F0E50945F0F509E50AF5F0E560 +:100AF0000965F0F509E509F5F0E50055F0F500C3E5 +:100B0000E50EF5F0E51095F0F509E50BF5F0E50BD0 +:100B100035F0F509E509F5F0E50055F0F500E500DB +:100B2000F5F0E50C45F0F50C750001C3E50FF5F0A7 +:100B3000E51195F0F509E50BF5F0E50B35F0F50954 +:100B4000E511F5F0E50F95F0F501E50BF5F0E50B96 +:100B500035F0F501E501F5F0E50945F0F509E50A9F +:100B6000F5F0E50965F0F509E509F5F0E50055F062 +:100B7000F500C3E50EF5F0E51095F0F509E50BF588 +:100B8000F0E50B35F0F509E510F5F0E50E95F0F51B +:100B900001E50BF5F0E50B35F0F501E501F5F0E5C4 +:100BA0000945F0F509E50AF5F0E50965F0F509E50F +:100BB00009F5F0E50055F0F500C3E50DF5F0E51A8F +:100BC00095F0F509E50BF5F0E50B35F0F509E509CC +:100BD000F5F0E50055F0F500E500F5F0E50C45F021 +:100BE000F50C750001C3E50FF5F0E51195F0F50979 +:100BF000E50BF5F0E50B35F0F509E511F5F0E50F3E +:100C000095F0F501E50BF5F0E50B35F0F501E501A3 +:100C1000F5F0E50945F0F509E50AF5F0E50965F0B7 +:100C2000F509E509F5F0E50055F0F500C3E50EF529 +:100C3000F0E51095F0F509E50BF5F0E50B35F0F56D +:100C400009E510F5F0E50E95F0F501E50BF5F0E599 +:100C50000B35F0F501E501F5F0E50945F0F509E59D +:100C60000AF5F0E50965F0F509E509F5F0E5005547 +:100C7000F0F500C3E50DF5F0E51A95F0F509E50B83 +:100C8000F5F0E50B35F0F509E51AF5F0E50D95F011 +:100C9000F501E50BF5F0E50B35F0F501E501F5F0B3 +:100CA000E50945F0F509E50AF5F0E50965F0F5090E +:100CB000E509F5F0E50055F0F500C3E519F5F0E5B7 +:100CC0001B95F0F509E50BF5F0E50B35F0F509E5B9 +:100CD00009F5F0E50055F0F500E500F5F0E50C4507 +:100CE000F0F50CE51CF501E51DF509E51EF50A75A5 +:100CF0000000E50CF5F0E50045F0F500E501F5F044 +:100D0000E50045F0F500E509F5F0E50045F0F500F2 +:100D1000E50AF5F0E50045F0F500E5007002800316 +:100D20000210A30075E0042506F58275E000350782 +:100D3000F583E0F51F75E0032506F58275E00035C3 +:100D400007F583E0F51E75E0022506F58275E000E3 +:100D50003507F583E0F51D75E0012506F58275E0A0 +:100D6000003507F583E0F51CE512F51BE513F51AD0 +:100D7000E514F519120000E582F502E583F503E5B7 +:100D800000F504E501F505E502F511E503F512E5C9 +:100D900004F513E505F514E515F500E516F515E57B +:100DA00017F51675E0002506F58275E0003507F5A4 +:100DB00083E0F517750D00750E00750F00751000B6 +:100DC000C3750100E500F5F0E511A4F50CE500F5AB +:100DD000F0E511A4E5F0F509E50CF5F0E50135F0D5 +:100DE000F501E515F5F0E511A4F50CE515F5F0E5CF +:100DF00011A4E5F0F50AE50CF5F0E50935F0F50983 +:100E0000E516F5F0E511A4F50CE516F5F0E511A4ED +:100E1000E5F0F50BE50CF5F0E50A35F0F50AE51718 +:100E2000F5F0E511A4F50CE517F5F0E511A4E5F0F2 +:100E3000F511E50CF5F0E50B35F0F50BC3C3750CBA +:100E400000E501F5F0E50D35F0F50DE509F5F0E506 +:100E50000E35F0F50EE50AF5F0E50F35F0F50FE586 +:100E60000BF5F0E51035F0F510C3750900E500F558 +:100E7000F0E512A4F50CE500F5F0E512A4E5F0F5B7 +:100E80000AE50CF5F0E50935F0F509E515F5F0E5AD +:100E900012A4F50CE515F5F0E512A4E5F0F50BE567 +:100EA0000CF5F0E50A35F0F50AE516F5F0E512A4C3 +:100EB000F50CE516F5F0E512A4E5F0F511E50CF5F5 +:100EC000F0E50B35F0F50B750100C3C3750C00E5BB +:100ED00001F5F0E50D35F0F50DE509F5F0E50E3518 +:100EE000F0F50EE50AF5F0E50F35F0F50FE50BF539 +:100EF000F0E51035F0F510C3750A00E500F5F0E5F2 +:100F000013A4F50CE500F5F0E513A4E5F0F50BE509 +:100F10000CF5F0E50A35F0F50AE515F5F0E513A452 +:100F2000F50CE515F5F0E513A4E5F0F511E50CF584 +:100F3000F0E50B35F0F50B750100750900C3C375BD +:100F40000C00E501F5F0E50D35F0F50DE509F5F0DE +:100F5000E50E35F0F50EE50AF5F0E50F35F0F50F85 +:100F6000E50BF5F0E51035F0F510C3750B00E50065 +:100F7000F5F0E514A4F50CE500F5F0E514A4E5F0B2 +:100F8000F511E50CF5F0E50B35F0F50B7501007585 +:100F90000900750A00C3C3750000E501F5F0E50D11 +:100FA00035F0F50DE509F5F0E50E35F0F50EE50A3D +:100FB000F5F0E50F35F0F50FE50BF5F0E51035F040 +:100FC000F510E50DF502E50EF503E50FF504E51066 +:100FD000F50575E00E2506F58275E0003507F58309 +:100FE000E0F51775E00D2506F58275E0003507F58B +:100FF00083E0F51675E00C2506F58275E0003507EF +:10100000F583E0F51575E00B2506F58275E00035F2 +:1010100007F583E0F51475E00A2506F58275E00012 +:101020003507F583E0F51375E0092506F58275E0CF +:10103000003507F583E0F51275E0082506F58275A1 +:10104000E0003507F583E0F51175E0072506F58228 +:1010500075E0003507F583E0F51075E0052506F528 +:101060008275E0003507F583E0F508E508C0E07516 +:10107000E0062506F58275E0003507F583E0F50802 +:10108000E508C0E075E0172506F50675E0003507B0 +:10109000F507E502F582E503F583E504F500E505CE +:1010A000F5012200E512F4F512E513F4F513E51449 +:1010B000F4F514E518F4F518D3750000E500F5F023 +:1010C000E51235F0F512E500F5F0E51335F0F5130E +:1010D000E500F5F0E51435F0F514E500F5F0E51858 +:1010E00035F0F518E515F4F515E516F4F516E517E0 +:1010F000F4F51775E0002506F58275E0003507F573 +:1011000083E0F508E508F4F50875E0002506F582AA +:1011100075E0003507F583E508F0D3750000E500BC +:10112000F5F0E51535F0F515E500F5F0E51635F0C7 +:10113000F516E500F5F0E51735F0F517E500F5F0E3 +:1011400075E0002506F58275E0003507F583E0F5CA +:1011500008E50835F0F50875E0002506F58275E02C +:10116000003507F583E508F0020D2400E511F4F5DC +:1011700000E51EF4F501E51DF4F509E51CF4F50B99 +:10118000D3750A00E50AF5F0E50035F0F500E50A4B +:10119000F5F0E50135F0F501E50AF5F0E50935F082 +:1011A000F509E50AF5F0E50B35F0F50B75E00425DA +:1011B00006F58275E0003507F583E500F075E0037C +:1011C0002506F58275E0003507F583E501F075E049 +:1011D000022506F58275E0003507F583E509F0750F +:1011E000E0012506F58275E0003507F583E50BF093 +:1011F000E515F4F515E516F4F516E517F4F517758C +:10120000E0002506F58275E0003507F583E0F50876 +:10121000E508F4F50875E0002506F58275E000356F +:1012200007F583E508F0D3750000E500F5F0E51556 +:1012300035F0F515E500F5F0E51635F0F516E500A5 +:10124000F5F0E51735F0F517E500F5F075E0002548 +:1012500006F58275E0003507F583E0F508E5083509 +:10126000F0F50875E0002506F58275E0003507F514 +:1012700083E508F0020A4400E506758216C39582EC +:10128000F506E5077583009583F507D0E0F5087549 +:10129000E0052506F58275E0003507F583E508F0E1 +:1012A000D0E0F50875E0042506F58275E000350705 +:1012B000F583E508F075E00D2506F58275E000354B +:1012C00007F583E517F075E00C2506F58275E0005B +:1012D0003507F583E516F075E00B2506F58275E018 +:1012E000003507F583E515F075E00A2506F58275EA +:1012F000E0003507F583E514F075E0092506F58271 +:1013000075E0003507F583E513F075E0082506F56F +:101310008275E0003507F583E512F075E0072506D4 +:10132000F58275E0003507F583E511F075E00625D7 +:1013300006F58275E0003507F583E510F075E003EA +:101340002506F58275E0003507F583E51FF075E0A9 +:10135000022506F58275E0003507F583E51EF07578 +:10136000E0012506F58275E0003507F583E51DF0FF +:1013700075E0002506F58275E0003507F583E51C6C +:10138000F0E51BF514E51AF515E519F516E518F560 +:101390001775E0032506F58275E0003507F583E053 +:1013A000F51F75E0022506F58275E0003507F58327 +:1013B000E0F51E75E0012506F58275E0003507F5BC +:1013C00083E0F51D75E0002506F58275E000350720 +:1013D000F583E0F51CE514F51BE515F51AE516F5A2 +:1013E00019E517F518120639E582F502E583F503CC +:1013F000E500F504E501F505E502F500E503F50175 +:10140000E504F509E505F50A75100075110075127A +:1014100000751300C3750B00E500F5F0E514A4F5A5 +:101420000FE500F5F0E514A4E5F0F50CE50FF5F097 +:10143000E50B35F0F50BE501F5F0E514A4F50FE546 +:1014400001F5F0E514A4E5F0F50DE50FF5F0E50C78 +:1014500035F0F50CE509F5F0E514A4F50FE509F50F +:10146000F0E514A4E5F0F50EE50FF5F0E50D35F027 +:10147000F50DE50AF5F0E514A4F50FE50AF5F0E53C +:1014800014A4E5F0F50AE50FF5F0E50E35F0F50EDC +:10149000C3C3750A00E50BF5F0E51035F0F510E56E +:1014A0000CF5F0E51135F0F511E50DF5F0E5123527 +:1014B000F0F512E50EF5F0E51335F0F513C3750CF4 +:1014C00000E500F5F0E515A4F50FE500F5F0E515EC +:1014D000A4E5F0F50DE50FF5F0E50C35F0F50CE5BC +:1014E00001F5F0E515A4F50FE501F5F0E515A4E526 +:1014F000F0F50EE50FF5F0E50D35F0F50DE509F524 +:10150000F0E515A4F50FE509F5F0E515A4E5F0F50E +:101510000AE50FF5F0E50E35F0F50E750B00C3C3C7 +:10152000750900E50BF5F0E51035F0F510E50CF563 +:10153000F0E51135F0F511E50DF5F0E51235F0F5B2 +:1015400012E50EF5F0E51335F0F513C3750D00E562 +:1015500000F5F0E516A4F50FE500F5F0E516A4E5B5 +:10156000F0F50EE50FF5F0E50D35F0F50DE501F5BB +:10157000F0E516A4F50FE501F5F0E516A4E5F0F5A4 +:101580000AE50FF5F0E50E35F0F50E750B00750C5C +:1015900000C3C3750100E50BF5F0E51035F0F5105B +:1015A000E50CF5F0E51135F0F511E50DF5F0E51276 +:1015B00035F0F512E50EF5F0E51335F0F513C375CA +:1015C0000E00E500F5F0E517A4F50FE500F5F0E5F0 +:1015D00017A4E5F0F50AE50FF5F0E50E35F0F50E88 +:1015E000750B00750C00750D00C3C3750000E50B8D +:1015F000F5F0E51035F0F510E50CF5F0E51135F0F6 +:10160000F511E50DF5F0E51235F0F512E50EF5F002 +:10161000E51335F0F513C3E510F5F075E003250685 +:10162000F58275E0003507F583E0F508E50895F0EB +:10163000F500E511F5F075E0022506F58275E0008C +:101640003507F583E0F508E50895F0F501E512F5B5 +:10165000F075E0012506F58275E0003507F583E0B9 +:10166000F508E50895F0F509E513F5F075E00025B6 +:1016700006F58275E0003507F583E0F508E5089585 +:10168000F0F50AE500F502E501F503E509F504E5E5 +:101690000AF50575E00D2506F58275E0003507F5BC +:1016A00083E0F51775E00C2506F58275E000350737 +:1016B000F583E0F51675E00B2506F58275E000353B +:1016C00007F583E0F51575E00A2506F58275E0005B +:1016D0003507F583E0F51475E0092506F58275E018 +:1016E000003507F583E0F51375E0082506F58275EA +:1016F000E0003507F583E0F51275E0072506F58271 +:1017000075E0003507F583E0F51175E0062506F56F +:101710008275E0003507F583E0F51075E0042506D5 +:10172000F58275E0003507F583E0F508E508C0E0CF +:1017300075E0052506F58275E0003507F583E0F5CF +:1017400008E508C0E075E0162506F50675E00035E9 +:1017500007F507E502F582E503F583E504F500E505 +:1017600005F5012200E506758219C39582F506E5A7 +:10177000077583009583F507D0E0F50875E0082527 +:1017800006F58275E0003507F583E508F0D0E0F551 +:101790000875E0072506F58275E0003507F583E555 +:1017A00008F075E0102506F58275E0003507F58331 +:1017B000E517F075E00F2506F58275E0003507F5B1 +:1017C00083E516F075E00E2506F58275E000350715 +:1017D000F583E515F075E00D2506F58275E0003519 +:1017E00007F583E514F075E00C2506F58275E00039 +:1017F0003507F583E513F075E00B2506F58275E0F6 +:10180000003507F583E512F075E00A2506F58275C7 +:10181000E0003507F583E511F075E0092506F5824E +:1018200075E0003507F583E510F0E51DF517E51CBB +:10183000F516E518F515751400750D00750E007593 +:101840000F00E515F510750080E500F5F0E51025B1 +:10185000F0F510E500F5F0E50F25F0F50F750C003B +:10186000751100751200751300750B00750A01756E +:101870000001C3E50FF5F0E51095F0F509E50BF56E +:10188000F0E50B35F0F509E509F5F0E50055F0F563 +:1018900000E500F5F0E50C45F0F50C750001C3E539 +:1018A0000FF5F0E51095F0F509E50BF5F0E50B35D2 +:1018B000F0F509E510F5F0E50F95F0F501E50BF50C +:1018C000F0E50B35F0F501E501F5F0E50945F0F53A +:1018D00009E50AF5F0E50965F0F509E509F5F0E532 +:1018E0000055F0F500C3E50EF5F0E51995F0F509A2 +:1018F000E50BF5F0E50B35F0F509E509F5F0E50048 +:1019000055F0F500E500F5F0E50C45F0F50C750037 +:1019100001C3E50FF5F0E51095F0F509E50BF5F0DD +:10192000E50B35F0F509E510F5F0E50F95F0F5015B +:10193000E50BF5F0E50B35F0F501E501F5F0E5090E +:1019400045F0F509E50AF5F0E50965F0F509E50961 +:10195000F5F0E50055F0F500C3E50EF5F0E5199555 +:10196000F0F509E50BF5F0E50B35F0F509E519F5AE +:10197000F0E50E95F0F501E50BF5F0E50B35F0F52A +:1019800001E501F5F0E50945F0F509E50AF5F0E5B1 +:101990000965F0F509E509F5F0E50055F0F500C336 +:1019A000E50DF5F0E51A95F0F509E50BF5F0E50B19 +:1019B00035F0F509E509F5F0E50055F0F500E5002D +:1019C000F5F0E50C45F0F50C750001C3E50FF5F0F9 +:1019D000E51095F0F509E50BF5F0E50B35F0F509A7 +:1019E000E510F5F0E50F95F0F501E50BF5F0E50BE9 +:1019F00035F0F501E501F5F0E50945F0F509E50AF1 +:101A0000F5F0E50965F0F509E509F5F0E50055F0B3 +:101A1000F500C3E50EF5F0E51995F0F509E50BF5D0 +:101A2000F0E50B35F0F509E519F5F0E50E95F0F563 +:101A300001E50BF5F0E50B35F0F501E501F5F0E515 +:101A40000945F0F509E50AF5F0E50965F0F509E560 +:101A500009F5F0E50055F0F500C3E50DF5F0E51AE0 +:101A600095F0F509E50BF5F0E50B35F0F509E51A0C +:101A7000F5F0E50D95F0F501E50BF5F0E50B35F02A +:101A8000F501E501F5F0E50945F0F509E50AF5F0A0 +:101A9000E50965F0F509E509F5F0E50055F0F50013 +:101AA000C3E514F5F0E51B95F0F509E50BF5F0E558 +:101AB0000B35F0F509E509F5F0E50055F0F500E521 +:101AC00000F5F0E50C45F0F50C750000E50CF5F0BF +:101AD000E50045F0F500E511F5F0E50045F0F5000D +:101AE000E512F5F0E50045F0F500E513F5F0E50049 +:101AF00045F0F500E5007002800302284B00E51F69 +:101B0000F51CE51EF51DE517F51FE516F51E75E03C +:101B1000032506F58275E0003507F583E51BF075B2 +:101B2000E0022506F58275E0003507F583E51AF039 +:101B300075E0012506F58275E0003507F583E519A6 +:101B4000F075E0002506F58275E0003507F583E5C0 +:101B500015F075130175140075150075120075E008 +:101B6000062506F58275E0003507F583E51FF0755B +:101B7000E0052506F58275E0003507F583E51EF0E2 +:101B800075080075E0042506F58275E0003507F557 +:101B900083E508F075160075110075100075171FA4 +:101BA000750F00750C00750D00750B00751800752C +:101BB0001900751A00750A00750E01750001C3E55C +:101BC0000DF5F0E51095F0F509E50AF5F0E50A35B3 +:101BD000F0F509E509F5F0E50055F0F500E500F54B +:101BE000F0E50B45F0F50B750001C3E50DF5F0E5EB +:101BF0001095F0F509E50AF5F0E50A35F0F509E587 +:101C000010F5F0E50D95F0F501E50AF5F0E50A357A +:101C1000F0F501E501F5F0E50945F0F509E50EF50A +:101C2000F0E50965F0F509E509F5F0E50055F0F591 +:101C300000C3E50CF5F0E51195F0F509E50AF5F0BE +:101C4000E50A35F0F509E509F5F0E50055F0F50090 +:101C5000E500F5F0E50B45F0F50B750001C3E50D6A +:101C6000F5F0E51095F0F509E50AF5F0E50A35F02F +:101C7000F509E510F5F0E50D95F0F501E50AF5F04B +:101C8000E50A35F0F501E501F5F0E50945F0F5095E +:101C9000E50EF5F0E50965F0F509E509F5F0E50073 +:101CA00055F0F500C3E50CF5F0E51195F0F509E503 +:101CB0000AF5F0E50A35F0F509E511F5F0E50C95C2 +:101CC000F0F501E50AF5F0E50A35F0F501E501F575 +:101CD000F0E50945F0F509E50EF5F0E50965F0F5E3 +:101CE00009E509F5F0E50055F0F500C3E50FF5F05D +:101CF000E51695F0F509E50AF5F0E50A35F0F50980 +:101D0000E509F5F0E50055F0F500E500F5F0E50B27 +:101D100045F0F50B750001C3E50DF5F0E51095F004 +:101D2000F509E50AF5F0E50A35F0F509E510F5F0F5 +:101D3000E50D95F0F501E50AF5F0E50A35F0F50158 +:101D4000E501F5F0E50945F0F509E50EF5F0E509E1 +:101D500065F0F509E509F5F0E50055F0F500C3E596 +:101D60000CF5F0E51195F0F509E50AF5F0E50A3511 +:101D7000F0F509E511F5F0E50C95F0F501E50AF54A +:101D8000F0E50A35F0F501E501F5F0E50945F0F576 +:101D900009E50EF5F0E50965F0F509E509F5F0E569 +:101DA0000055F0F500C3E50FF5F0E51695F0F509DF +:101DB000E50AF5F0E50A35F0F509E516F5F0E50F69 +:101DC00095F0F501E50AF5F0E50A35F0F501E501D4 +:101DD000F5F0E50945F0F509E50EF5F0E50965F0E2 +:101DE000F509E509F5F0E50055F0F500C3E517F54F +:101DF000F075E0042506F58275E0003507F583E00F +:101E0000F508E50895F0F509E50AF5F0E50A35F07D +:101E1000F509E509F5F0E50055F0F500E500F5F008 +:101E2000E50B45F0F50BE518F500E519F501E51AA8 +:101E3000F50C750A01C3750900E50BF5F0E5099588 +:101E4000F0F509750900E509F5F0E50935F0F50942 +:101E5000E509F5F0E50A65F0F50AC3750900E50046 +:101E6000F5F0E50995F0F509750900E509F5F0E5E6 +:101E70000935F0F509E509F5F0E50A65F0F50AC35D +:101E8000750900E501F5F0E50995F0F5097509001A +:101E9000E509F5F0E50935F0F509E509F5F0E50A9C +:101EA00065F0F50AC3750900E50CF5F0E50995F054 +:101EB000F509750900E509F5F0E50935F0F509E5DD +:101EC00009F5F0E50A65F0F50A7501007509007578 +:101ED0000B00750000E50AF5F0E50045F0F500E5BA +:101EE00001F5F0E50045F0F500E509F5F0E5004500 +:101EF000F0F500E50BF5F0E50045F0F500E50070C4 +:101F000002800302218E00750C02750D00750F0012 +:101F1000751800E513F50EE514F517E515F519E547 +:101F200012F51A751300751400751500751200C3AB +:101F3000750000E50EF5F0E50CA4F50BE50EF5F0E7 +:101F4000E50CA4E5F0F501E50BF5F0E50035F0F55D +:101F500000E517F5F0E50CA4F50BE517F5F0E50C39 +:101F6000A4E5F0F509E50BF5F0E50135F0F501E53F +:101F700019F5F0E50CA4F50BE519F5F0E50CA4E571 +:101F8000F0F50AE50BF5F0E50935F0F509E51AF588 +:101F9000F0E50CA4F50BE51AF5F0E50CA4E5F0F579 +:101FA0000CE50BF5F0E50A35F0F50AC3C3750B0037 +:101FB000E500F5F0E51335F0F513E501F5F0E5146E +:101FC00035F0F514E509F5F0E51535F0F515E50AF8 +:101FD000F5F0E51235F0F512C3750100E50EF5F0E8 +:101FE000E50DA4F50BE50EF5F0E50DA4E5F0F5091A +:101FF000E50BF5F0E50135F0F501E517F5F0E50D38 +:10200000A4F50BE517F5F0E50DA4E5F0F50AE50BF1 +:10201000F5F0E50935F0F509E519F5F0E50DA4F55C +:102020000BE519F5F0E50DA4E5F0F50CE50BF5F081 +:10203000E50A35F0F50A750000C3C3750B00E5002D +:10204000F5F0E51335F0F513E501F5F0E51435F09D +:10205000F514E509F5F0E51535F0F515E50AF5F0A7 +:10206000E51235F0F512C3750900E50EF5F0E50F40 +:10207000A4F50BE50EF5F0E50FA4E5F0F50AE50B88 +:10208000F5F0E50935F0F509E517F5F0E50FA4F5EC +:102090000BE517F5F0E50FA4E5F0F50CE50BF5F011 +:1020A000E50A35F0F50A750000750100C3C3750B2C +:1020B00000E500F5F0E51335F0F513E501F5F0E581 +:1020C0001435F0F514E509F5F0E51535F0F515E5ED +:1020D0000AF5F0E51235F0F512C3750A00E50EF5C4 +:1020E000F0E518A4F50BE50EF5F0E518A4E5F0F51C +:1020F0000CE50BF5F0E50A35F0F50A750000750101 +:1021000000750900C3C3750B00E500F5F0E5133554 +:10211000F0F513E501F5F0E51435F0F514E509F5F2 +:10212000F0E51535F0F515E50AF5F0E51235F0F5B1 +:1021300012750001750100750900750A00C3750B61 +:1021400000E500F5F075E0042506F58275E0003540 +:1021500007F583E0F508E50835F0F50875E0042596 +:1021600006F58275E0003507F583E508F0E501F531 +:10217000F0E51635F0F516E509F5F0E51135F0F561 +:1021800011E50AF5F0E51035F0F510021B9D00C3CE +:10219000E51CF5F0E51355F0F513E51DF5F0E51434 +:1021A00055F0F514E51FF5F0E51555F0F515E51EAC +:1021B000F5F0E51255F0F51275080075E0042506F6 +:1021C000F58275E0003507F583E508F075160075B2 +:1021D0001100751000750C00750D00750E00750F5F +:1021E00000750B00750A01750001C375E000250636 +:1021F000F58275E0003507F583E0F508E508F5F0B0 +:10220000E51095F0F509E50BF5F0E50B35F0F5096E +:10221000E509F5F0E50055F0F500E500F5F0E50C11 +:1022200045F0F50C750001C375E0002506F58275D3 +:10223000E0003507F583E0F508E508F5F0E51095D1 +:10224000F0F509E50BF5F0E50B35F0F509E510F5CE +:10225000F075E0002506F58275E0003507F583E0AE +:10226000F508E50895F0F501E50BF5F0E50B35F01F +:10227000F501E501F5F0E50945F0F509E50AF5F0A8 +:10228000E50965F0F509E509F5F0E50055F0F5001B +:10229000C375E0012506F58275E0003507F583E09A +:1022A000F508E508F5F0E51195F0F509E50BF5F011 +:1022B000E50B35F0F509E509F5F0E50055F0F50019 +:1022C000E500F5F0E50C45F0F50C750001C375E08F +:1022D000002506F58275E0003507F583E0F508E591 +:1022E00008F5F0E51095F0F509E50BF5F0E50B358F +:1022F000F0F509E510F5F075E0002506F58275E0CA +:10230000003507F583E0F508E50895F0F501E50BE4 +:10231000F5F0E50B35F0F501E501F5F0E50945F0DF +:10232000F509E50AF5F0E50965F0F509E509F5F0C7 +:10233000E50055F0F500C375E0012506F58275E06E +:10234000003507F583E0F508E508F5F0E51195F0AF +:10235000F509E50BF5F0E50B35F0F509E511F5F0BC +:1023600075E0012506F58275E0003507F583E0F597 +:1023700008E50895F0F501E50BF5F0E50B35F0F50E +:1023800001E501F5F0E50945F0F509E50AF5F0E5A7 +:102390000965F0F509E509F5F0E50055F0F500C32C +:1023A00075E0022506F58275E0003507F583E0F556 +:1023B00008E508F5F0E51695F0F509E50BF5F0E50B +:1023C0000B35F0F509E509F5F0E50055F0F500E508 +:1023D00000F5F0E50C45F0F50C750001C375E00063 +:1023E0002506F58275E0003507F583E0F508E50878 +:1023F000F5F0E51095F0F509E50BF5F0E50B35F096 +:10240000F509E510F5F075E0002506F58275E000A8 +:102410003507F583E0F508E50895F0F501E50BF5DE +:10242000F0E50B35F0F501E501F5F0E50945F0F5CE +:1024300009E50AF5F0E50965F0F509E509F5F0E5C6 +:102440000055F0F500C375E0012506F58275E00042 +:102450003507F583E0F508E508F5F0E51195F0F5A9 +:1024600009E50BF5F0E50B35F0F509E511F5F0752B +:10247000E0012506F58275E0003507F583E0F508F3 +:10248000E50895F0F501E50BF5F0E50B35F0F50104 +:10249000E501F5F0E50945F0F509E50AF5F0E5098E +:1024A00065F0F509E509F5F0E50055F0F500C375AF +:1024B000E0022506F58275E0003507F583E0F508B2 +:1024C000E508F5F0E51695F0F509E50BF5F0E50BF7 +:1024D00035F0F509E516F5F075E0022506F582758B +:1024E000E0003507F583E0F508E50895F0F501E52E +:1024F0000BF5F0E50B35F0F501E501F5F0E50945E3 +:10250000F0F509E50AF5F0E50965F0F509E509F5E5 +:10251000F0E50055F0F500C375E0032506F582757A +:10252000E0003507F583E0F508E508F5F075E0040F +:102530002506F58275E0003507F583E0F508E50826 +:1025400095F0F509E50BF5F0E50B35F0F509E50932 +:10255000F5F0E50055F0F500E500F5F0E50C45F087 +:10256000F50CE50DF500E50EF501E50FF509E500C3 +:10257000F50BE501F50A750101C3750000E50CF5E1 +:10258000F0E50095F0F500750000E500F5F0E500D8 +:1025900035F0F500E500F5F0E50165F0F501C375EE +:1025A0000000E50BF5F0E50095F0F500750000E59D +:1025B00000F5F0E50035F0F500E500F5F0E5016522 +:1025C000F0F501C3750000E50AF5F0E50095F0F5BA +:1025D00000750000E500F5F0E50035F0F500E500D8 +:1025E000F5F0E50165F0F501C3750000E509F5F0CA +:1025F000E50095F0F500750000E500F5F0E5003523 +:10260000F0F500E500F5F0E50165F0F5017509006C +:10261000750A00750B00750000E501F5F0E5004551 +:10262000F0F500E509F5F0E50045F0F500E50AF5FF +:10263000F0E50045F0F500E50BF5F0E50045F0F5B7 +:1026400000E5007002800302274F00751B02751A17 +:1026500000751900751800E51CF51FE51DF51E75C0 +:10266000E0062506F58275E0003507F583E0F51DE7 +:1026700075E0052506F58275E0003507F583E0F580 +:102680001C120000E582F502E583F503E500F50480 +:10269000E501F505E502F50AE503F509E504F501AF +:1026A000E505F500C3750B00E513F5F0E50A35F017 +:1026B000F51CE514F5F0E50935F0F51DE515F5F027 +:1026C000E50135F0F50875E0062506F58275E000B0 +:1026D0003507F583E508F0E512F5F0E50035F0F58E +:1026E0000875E0052506F58275E0003507F583E5F8 +:1026F00008F0750001750100750900750A00C375C1 +:102700000B00E500F5F075E0042506F58275E000A4 +:102710003507F583E0F508E50835F0F50875E004C0 +:102720002506F58275E0003507F583E508F0E5013B +:10273000F5F0E51635F0F516E509F5F0E51135F09B +:10274000F511E50AF5F0E51035F0F5100221D50098 +:10275000E51CF502E51DF50375E0062506F5827515 +:10276000E0003507F583E0F50475E0052506F58200 +:1027700075E0003507F583E0F50575E0102506F5F1 +:102780008275E0003507F583E0F51775E00F250643 +:10279000F58275E0003507F583E0F51675E00E2546 +:1027A00006F58275E0003507F583E0F51575E00D57 +:1027B0002506F58275E0003507F583E0F51475E030 +:1027C0000C2506F58275E0003507F583E0F51375F5 +:1027D000E00B2506F58275E0003507F583E0F5127C +:1027E00075E00A2506F58275E0003507F583E0F50A +:1027F0001175E0092506F58275E0003507F583E0DF +:10280000F51075E0072506F58275E0003507F583BC +:10281000E0F508E508C0E075E0082506F58275E0FA +:10282000003507F583E0F508E508C0E075E01925F7 +:1028300006F50675E0003507F507E502F582E503C4 +:10284000F583E504F500E505F5012200751C00752A +:102850001D0075080075E0062506F58275E0003557 +:1028600007F583E508F075080075E0052506F58293 +:1028700075E0003507F583E508F00227500000E514 +:1028800006758210C39582F506E50775830095836A +:10289000F507D0E0F50875E0012506F58275E00042 +:1028A0003507F583E508F0D0E0F50875E00025066A +:1028B000F58275E0003507F583E508F075E007253A +:1028C00006F58275E0003507F583E515F075E0063D +:1028D0002506F58275E0003507F583E514F075E00F +:1028E000052506F58275E0003507F583E513F075DB +:1028F000E0042506F58275E0003507F583E512F062 +:1029000075E0032506F58275E0003507F583E511CE +:10291000F075E0022506F58275E0003507F583E5E0 +:1029200010F0E51FF512E51EF513E51DF514E51C85 +:10293000F515E51BF51FE51AF51EE519F51DE5185A +:10294000F51CE582F502E583F503E502F510E503E4 +:10295000F511751B02751A00751900751800E5123E +:10296000F51FE513F51EE514F51DE515F51C121709 +:1029700064E582F502E583F503E500F504E501F57C +:1029800005E502F51FE503F51EE504F51DE505F572 +:102990001C751B67751A01751900751800121277DE +:1029A000E582F502E583F503E502F500E503F501AF +:1029B000750901750A00C3E509F5F0E51095F0F514 +:1029C00009E50AF5F0E51195F0F50AE509F512E5D6 +:1029D0000AF513750901750A00750E04750F007567 +:1029E0001000751100C3750B00E509F5F0E50EA4A4 +:1029F000F50DE509F5F0E50EA4E5F0F50CE50DF5AE +:102A0000F0E50B35F0F50BE50AF5F0E50EA4F50D54 +:102A1000E50AF5F0E50EA4E5F0F50AE50DF5F0E5BB +:102A20000C35F0F50CC3C3750A00E50BF5F0E510A5 +:102A300035F0F510E50CF5F0E51135F0F511C3753D +:102A40000C00E509F5F0E50FA4F50DE509F5F0E555 +:102A50000FA4E5F0F50AE50DF5F0E50C35F0F50C01 +:102A6000750B00C3C3750900E50BF5F0E51035F0F3 +:102A7000F510E50CF5F0E51135F0F511C3750B0017 +:102A8000750C00C3C3750900E50BF5F0E51035F0D2 +:102A9000F510E50CF5F0E51135F0F511C3750B00F7 +:102AA000750C00C3C3750900E50BF5F0E51035F0B2 +:102AB000F510E50CF5F0E51135F0F511C3750900D9 +:102AC000E510F5F0E51235F0F509E511F5F0E5133F +:102AD00035F0F50C750A04750B00751000751100C2 +:102AE000C3750D00E500F5F0E50AA4F50FE500F566 +:102AF000F0E50AA4E5F0F50EE50FF5F0E50D35F08B +:102B0000F50DE501F5F0E50AA4F50FE501F5F0E5B1 +:102B10000AA4E5F0F501E50FF5F0E50E35F0F50E48 +:102B2000C3C3750100E50DF5F0E51035F0F510E5CE +:102B30000EF5F0E51135F0F511C3750E00E500F561 +:102B4000F0E50BA4F50FE500F5F0E50BA4E5F0F5D5 +:102B500001E50FF5F0E50E35F0F50E750D00C3C378 +:102B6000750000E50DF5F0E51035F0F510E50EF512 +:102B7000F0E51135F0F511C3750D00750E00C3C3F6 +:102B8000750000E50DF5F0E51035F0F510E50EF5F2 +:102B9000F0E51135F0F511C3750D00750E00C3C3D6 +:102BA000750000E50DF5F0E51035F0F510E50EF5D2 +:102BB000F0E51135F0F511C3750000E510F5F0E50D +:102BC0000935F0F500E511F5F0E50C35F0F501E516 +:102BD00000F509E501F50A750100C3750000E5017E +:102BE000F5F0E50935F0F501E500F5F0E50A35F019 +:102BF000F500E500F502E501F582E502F583E0F573 +:102C00000B750101C3750000E501F5F0E50935F02C +:102C1000F501E500F5F0E50A35F0F500E500F5020F +:102C2000E501F582E502F583E0F50C750102C37557 +:102C30000000E501F5F0E50935F0F501E500F5F0F6 +:102C4000E50A35F0F500E500F502E501F582E5025B +:102C5000F583E0F50D750103C3750000E501F5F09E +:102C6000E50935F0F501E500F5F0E50A35F0F50088 +:102C7000E500F502E501F582E502F583E0F500E502 +:102C80000BF502E50CF503E50DF504E500F505751A +:102C9000E0072506F58275E0003507F583E0F515B8 +:102CA00075E0062506F58275E0003507F583E0F549 +:102CB0001475E0052506F58275E0003507F583E01B +:102CC000F51375E0042506F58275E0003507F583F8 +:102CD000E0F51275E0032506F58275E0003507F58D +:102CE00083E0F51175E0022506F58275E0003507F1 +:102CF000F583E0F51075E0002506F58275E00035F6 +:102D000007F583E0F508E508C0E075E0012506F564 +:102D10008275E0003507F583E0F508E508C0E07549 +:102D2000E0102506F50675E0003507F507E502F524 +:102D300082E503F583E504F500E505F501220000D1 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/ultrasp4.s.expected b/tests/GCCTestSuite/ultrasp4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/ultrasp4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-1.c b/tests/GCCTestSuite/uninit-1.c new file mode 100644 index 0000000..060ec25 --- /dev/null +++ b/tests/GCCTestSuite/uninit-1.c @@ -0,0 +1,30 @@ +/* Spurious uninitialized variable warnings, case 1. + Taken from cppfiles.c (merge_include_chains) */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +struct list +{ + struct list *next; + int id; +}; + +extern void free (void *); + +void remove_dupes (struct list *el) +{ + struct list *p, *q, *r; /* { dg-bogus "r" "uninitialized variable warning" } */ + + for (p = el; p; p = p->next) + { + for (q = el; q != p; q = q->next) + if (q->id == p->id) + { + r->next = p->next; + free (p); + p = r; + break; + } + r = p; + } +} diff --git a/tests/GCCTestSuite/uninit-1.c.expected b/tests/GCCTestSuite/uninit-1.c.expected new file mode 100644 index 0000000..060ec25 --- /dev/null +++ b/tests/GCCTestSuite/uninit-1.c.expected @@ -0,0 +1,30 @@ +/* Spurious uninitialized variable warnings, case 1. + Taken from cppfiles.c (merge_include_chains) */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +struct list +{ + struct list *next; + int id; +}; + +extern void free (void *); + +void remove_dupes (struct list *el) +{ + struct list *p, *q, *r; /* { dg-bogus "r" "uninitialized variable warning" } */ + + for (p = el; p; p = p->next) + { + for (q = el; q != p; q = q->next) + if (q->id == p->id) + { + r->next = p->next; + free (p); + p = r; + break; + } + r = p; + } +} diff --git a/tests/GCCTestSuite/uninit-1.hex.expected b/tests/GCCTestSuite/uninit-1.hex.expected new file mode 100644 index 0000000..bffac8e --- /dev/null +++ b/tests/GCCTestSuite/uninit-1.hex.expected @@ -0,0 +1,128 @@ +:100000000000E50675820CC39582F506E507758349 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:10004000E0092506F58275E0003507F583E517F030 +:1000500075E0082506F58275E0003507F583E5169D +:10006000F075E0072506F58275E0003507F583E5B4 +:1000700015F075E0062506F58275E0003507F58375 +:10008000E514F075E0052506F58275E0003507F505 +:1000900083E513F075E0042506F58275E000350769 +:1000A000F583E512F075E0032506F58275E000356D +:1000B00007F583E511F075E0022506F58275E0008D +:1000C0003507F583E510F0E51FF516E51EF517E594 +:1000D00016F51FE517F51E750101C3750000E51F34 +:1000E000F5F0E50095F0F500750000E500F5F0E5A8 +:1000F0000035F0F500E500F5F0E50165F0F501C328 +:10010000750000E51EF5F0E50095F0F500750000BE +:10011000E500F5F0E50035F0F500E500F5F0E50166 +:1001200065F0F501750900750000E501F5F0E500E1 +:1001300045F0F500E509F5F0E50045F0F500E500CE +:100140007002800302070600E516F510E517F511A9 +:10015000750000C3E51FF5F0E51095F0F501E50128 +:10016000F5F0E50045F0F500C3E51EF5F0E5119565 +:10017000F0F501E501F5F0E50045F0F50075010049 +:10018000750900750A00750C01C3750B00E500F5D3 +:10019000F0E50B95F0F50B750B00E50BF5F0E50BB5 +:1001A00035F0F50BE50BF5F0E50C65F0F50CC375D6 +:1001B0000B00E501F5F0E50B95F0F50B750B00E58F +:1001C0000BF5F0E50B35F0F50BE50BF5F0E50C65FF +:1001D000F0F50CC3750B00E509F5F0E50B95F0F5AE +:1001E0000B750B00E50BF5F0E50B35F0F50BE50BAA +:1001F000F5F0E50C65F0F50CC3750B00E50AF5F0BC +:10020000E50B95F0F50B750B00E50BF5F0E50B35FF +:10021000F0F50BE50BF5F0E50C65F0F50C7501005C +:10022000750900750A00750000E50CF5F0E500455C +:10023000F0F500E501F5F0E50045F0F500E509F51C +:10024000F0E50045F0F500E50AF5F0E50045F0F5CC +:1002500000E5007002800302068300750102C37589 +:100260000000E501F5F0E51035F0F509E500F5F0E1 +:10027000E51135F0F50A750100C3750000E501F5DB +:10028000F0E50935F0F501E500F5F0E50A35F0F5A2 +:1002900000E500F502E501F582E502F583E0F50EE3 +:1002A000750101C3750000E501F5F0E50935F0F5CC +:1002B00001E500F5F0E50A35F0F500E500F502E5A9 +:1002C00001F582E502F583E0F50F750102C37500C3 +:1002D00000E501F5F0E50935F0F501E500F5F0E59B +:1002E0000A35F0F500E500F502E501F582E502F5D5 +:1002F00083E0F512750103C3750000E501F5F0E533 +:100300000935F0F501E500F5F0E50A35F0F500E511 +:1003100000F502E501F582E502F583E0F5137501CC +:1003200002C3750000E501F5F0E51F35F0F509E5BC +:1003300000F5F0E51E35F0F50A750000C375010003 +:10034000E500F5F0E50935F0F500E501F5F0E50A21 +:1003500035F0F501E501F502E500F582E502F583EA +:10036000E0F50B750001C3750100E500F5F0E50946 +:1003700035F0F500E501F5F0E50A35F0F501E501A8 +:10038000F502E500F582E502F583E0F50C75000263 +:10039000C3750100E500F5F0E50935F0F500E5016C +:1003A000F5F0E50A35F0F501E501F502E500F58225 +:1003B000E502F583E0F50D750003C3750100E50066 +:1003C000F5F0E50935F0F500E501F5F0E50A35F061 +:1003D000F501E501F502E500F582E502F583E0F5BA +:1003E00000750100C3E50BF5F0E50E95F0F509E5A4 +:1003F00009F5F0E50145F0F501C3E50CF5F0E50F71 +:1004000095F0F509E509F5F0E50145F0F501C3E5DD +:100410000DF5F0E51295F0F509E509F5F0E5014572 +:10042000F0F501C3E500F5F0E51395F0F509E509F0 +:10043000F5F0E50145F0F501750900750A00750B49 +:1004400000E501F500750101C3750C00E500F5F04C +:10045000E50C95F0F50C750C00E50CF5F0E50C35A8 +:10046000F0F50CE50CF5F0E50165F0F501C3750C50 +:1004700000E509F5F0E50C95F0F50C750C00E50CC0 +:10048000F5F0E50C35F0F50CE50CF5F0E50165F05F +:10049000F501C3750C00E50AF5F0E50C95F0F50CD7 +:1004A000750C00E50CF5F0E50C35F0F50CE50CF5F8 +:1004B000F0E50165F0F501C3750C00E50BF5F0E51D +:1004C0000C95F0F50C750C00E50CF5F0E50C35F02D +:1004D000F50CE50CF5F0E50165F0F5017509007521 +:1004E0000A00750B00750000E501F5F0E50045F028 +:1004F000F500E509F5F0E50045F0F500E50AF5F051 +:10050000E50045F0F500E50BF5F0E50045F0F500F8 +:10051000E5007002800302059400750100C37500B8 +:1005200000E501F5F0E51035F0F501E500F5F0E541 +:100530001135F0F500E501F509E500F50A75010052 +:10054000C3750000E501F5F0E50935F0F501E500BA +:10055000F5F0E50A35F0F500E500F502E501F58274 +:10056000E502F583E0F510750101C3750000E501B2 +:10057000F5F0E50935F0F501E500F5F0E50A35F0AF +:10058000F500E500F502E501F582E502F583E0F509 +:100590001102015000750100C3750000E501F5F07E +:1005A000E51435F0F50CE500F5F0E51535F0F50D41 +:1005B000750100C3750000E501F5F0E51F35F0F5A4 +:1005C00009E500F5F0E51E35F0F50A750100C37583 +:1005D0000000E501F5F0E50935F0F501E500F5F07D +:1005E000E50A35F0F500E500F502E501F582E502E2 +:1005F000F583E0F50B750101C3750000E501F5F029 +:10060000E50935F0F501E500F5F0E50A35F0F5000E +:10061000E500F502E501F582E502F583E0F50975EF +:100620000100C3750000E501F5F0E50C35F0F501BA +:10063000E500F5F0E50D35F0F500E50BF503E50017 +:10064000F502E501F582E502F583E503F0750101A8 +:10065000C3750000E501F5F0E50C35F0F501E500A6 +:10066000F5F0E50D35F0F500E509F503E500F502D7 +:10067000E501F582E502F583E503F0E514F51FE5F4 +:1006800015F51E00E51FF514E51EF515750100C3EF +:10069000750000E501F5F0E51F35F0F501E500F521 +:1006A000F0E51E35F0F500E501F509E500F50A7500 +:1006B0000100C3750000E501F5F0E50935F0F5012D +:1006C000E500F5F0E50A35F0F500E500F502E50195 +:1006D000F582E502F583E0F51F750101C3750000A1 +:1006E000E501F5F0E50935F0F501E500F5F0E50A7D +:1006F00035F0F500E500F502E501F582E502F58348 +:10070000E0F51E0200D700750000E500F502E500E7 +:10071000F503E500F504E500F50575E0092506F5A6 +:100720008275E0003507F583E0F51775E0082506CA +:10073000F58275E0003507F583E0F51675E00725CD +:1007400006F58275E0003507F583E0F51575E006DE +:100750002506F58275E0003507F583E0F51475E0B0 +:10076000052506F58275E0003507F583E0F513757C +:10077000E0042506F58275E0003507F583E0F51203 +:1007800075E0032506F58275E0003507F583E0F591 +:100790001175E0022506F58275E0003507F583E066 +:1007A000F51075E0002506F58275E0003507F58344 +:1007B000E0F508E508C0E075E0012506F58275E082 +:1007C000003507F583E0F508E508C0E075E00C2585 +:1007D00006F50675E0003507F507E502F582E50345 +:1007E000F583E504F500E505F501220000000000B1 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-1.s.expected b/tests/GCCTestSuite/uninit-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-11.c b/tests/GCCTestSuite/uninit-11.c new file mode 100644 index 0000000..5251f0a --- /dev/null +++ b/tests/GCCTestSuite/uninit-11.c @@ -0,0 +1,42 @@ +/* Positive test for uninitialized variables. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +int sink; + +void f1(int parm) /* { dg-bogus "uninitialized" "parameter" } */ +{ + sink = parm; /* { dg-bogus "uninitialized" "parameter" } */ +} + +void f2(void) +{ + int x; + sink = x; /* { dg-warning "is used" "unconditional" } */ +} + +void f3(int p) +{ + int x; /* { dg-warning "may be used" "conditional" } */ + if (p) + x = p; + sink = x; +} + +void f4(int p) +{ + int x; /* { dg-bogus "uninitialized" "easy if" } */ + if (p) + x = 1; + else + x = 2; + sink = x; +} + +void f5(void) +{ + int x, i; /* { dg-bogus "uninitialized" "easy loop" } */ + for (i = 0; i < 10; ++i) + x = 1; + sink = x; +} diff --git a/tests/GCCTestSuite/uninit-11.c.expected b/tests/GCCTestSuite/uninit-11.c.expected new file mode 100644 index 0000000..5251f0a --- /dev/null +++ b/tests/GCCTestSuite/uninit-11.c.expected @@ -0,0 +1,42 @@ +/* Positive test for uninitialized variables. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +int sink; + +void f1(int parm) /* { dg-bogus "uninitialized" "parameter" } */ +{ + sink = parm; /* { dg-bogus "uninitialized" "parameter" } */ +} + +void f2(void) +{ + int x; + sink = x; /* { dg-warning "is used" "unconditional" } */ +} + +void f3(int p) +{ + int x; /* { dg-warning "may be used" "conditional" } */ + if (p) + x = p; + sink = x; +} + +void f4(int p) +{ + int x; /* { dg-bogus "uninitialized" "easy if" } */ + if (p) + x = 1; + else + x = 2; + sink = x; +} + +void f5(void) +{ + int x, i; /* { dg-bogus "uninitialized" "easy loop" } */ + for (i = 0; i < 10; ++i) + x = 1; + sink = x; +} diff --git a/tests/GCCTestSuite/uninit-11.hex.expected b/tests/GCCTestSuite/uninit-11.hex.expected new file mode 100644 index 0000000..b8ee611 --- /dev/null +++ b/tests/GCCTestSuite/uninit-11.hex.expected @@ -0,0 +1,176 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F50ED0E0F50FE512F50B6E +:10002000E511F50CE510F50D900000E582F509905D +:100030000000E583F50A750100C3750000E501F5D0 +:10004000F0E50935F0F501E500F5F0E50A35F0F5E4 +:1000500000E51FF503E500F502E501F582E502F58F +:1000600083E503F0750101C3750000E501F5F0E5D6 +:100070000935F0F501E500F5F0E50A35F0F500E5A4 +:100080001EF503E500F502E501F582E502F583E5DD +:1000900003F0750102C3750000E501F5F0E50935CF +:1000A000F0F501E500F5F0E50A35F0F500E51DF5A0 +:1000B00003E500F502E501F582E502F583E503F0CD +:1000C000750103C3750000E501F5F0E50935F0F5AC +:1000D00001E500F5F0E50A35F0F500E51CF503E56E +:1000E00000F502E501F582E502F583E503F0750010 +:1000F00000E500F502E500F503E500F504E500F58F +:1001000005E50BF512E50CF511E50DF510E50FC051 +:10011000E0E50EC0E075E0042506F50675E0003563 +:1001200007F507E502F582E503F583E504F500E54B +:1001300005F5012200D0E0F50BD0E0F50C900000B1 +:10014000E582F509900000E583F50A750100C375A5 +:100150000000E501F5F0E50935F0F501E500F5F001 +:10016000E50A35F0F500E50DF503E500F502E501DA +:10017000F582E502F583E503F0750101C375000022 +:10018000E501F5F0E50935F0F501E500F5F0E50AE2 +:1001900035F0F500E50DF503E500F502E501F58222 +:1001A000E502F583E503F0750102C3750000E50182 +:1001B000F5F0E50935F0F501E500F5F0E50A35F073 +:1001C000F500E50DF503E500F502E501F582E50230 +:1001D000F583E503F0750103C3750000E501F5F053 +:1001E000E50935F0F501E500F5F0E50A35F0F50033 +:1001F000E50DF503E500F502E501F582E502F5837D +:10020000E503F0750000E500F502E500F503E50003 +:10021000F504E500F505E50CC0E0E50BC0E0E502FE +:10022000F582E503F583E504F500E505F501220017 +:10023000E506758204C39582F506E507758300958A +:1002400083F507D0E0F518D0E0F519E512F50F7544 +:100250000B00E51FF5F0E50B45F0F50BE51EF5F09D +:10026000E50B45F0F50BE51DF5F0E50B45F0F50B5D +:10027000E51CF5F0E50B45F0F50BE50B700280038E +:1002800002038800900000E582F50D900000E583F0 +:10029000F50E750C00C3750B00E50CF5F0E50D359A +:1002A000F0F50CE50BF5F0E50E35F0F50BE500F596 +:1002B00003E50BF502E50CF582E502F583E503F0B5 +:1002C000750C01C3750000E50CF5F0E50D35F0F592 +:1002D0000CE500F5F0E50E35F0F50BE501F503E56D +:1002E0000BF502E50CF582E502F583E503F0750CEC +:1002F00002C3750000E50CF5F0E50D35F0F50CE5F1 +:1003000000F5F0E50E35F0F50BE509F503E50BF525 +:1003100002E50CF582E502F583E503F0750C03C3F5 +:10032000750000E50CF5F0E50D35F0F50CE500F590 +:10033000F0E50E35F0F50BE50AF503E50BF502E502 +:100340000CF582E502F583E503F0750000E500F5A4 +:1003500002E500F503E500F504E500F505E50FF518 +:1003600012E519C0E0E518C0E075E0042506F506C1 +:1003700075E0003507F507E502F582E503F583E54D +:1003800004F500E505F5012200E51FF500E51EF581 +:1003900001E51DF509E51CF50A02028400E5067574 +:1003A0008204C39582F506E5077583009583F507FA +:1003B000D0E0F518D0E0F519E512F50F750000E56D +:1003C0001FF5F0E50045F0F500E51EF5F0E5004508 +:1003D000F0F500E51DF5F0E50045F0F500E51CF54C +:1003E000F0E50045F0F500E500700280030205012C +:1003F00000750B02750C00750D00750E0090000065 +:10040000E582F509900000E583F50A750100C375E2 +:100410000000E501F5F0E50935F0F501E500F5F03E +:10042000E50A35F0F500E50BF503E500F502E50119 +:10043000F582E502F583E503F0750101C37500005F +:10044000E501F5F0E50935F0F501E500F5F0E50A1F +:1004500035F0F500E50CF503E500F502E501F58260 +:10046000E502F583E503F0750102C3750000E501BF +:10047000F5F0E50935F0F501E500F5F0E50A35F0B0 +:10048000F500E50DF503E500F502E501F582E5026D +:10049000F583E503F0750103C3750000E501F5F090 +:1004A000E50935F0F501E500F5F0E50A35F0F50070 +:1004B000E50EF503E500F502E501F582E502F583B9 +:1004C000E503F0750000E500F502E500F503E50041 +:1004D000F504E500F505E50FF512E519C0E0E518AE +:1004E000C0E075E0042506F50675E0003507F50760 +:1004F000E502F582E503F583E504F500E505F50180 +:100500002200750B01750C00750D00750E000203BD +:10051000FD00E506758207C39582F506E50775833C +:10052000009583F507D0E0F50875E0012506F58212 +:1005300075E0003507F583E508F0D0E0F50875E0D3 +:10054000002506F58275E0003507F583E508F0E53E +:1005500017F51DE516F51EE515F51F75E0062506D0 +:10056000F58275E0003507F583E514F075E00525A3 +:1005700006F58275E0003507F583E513F075E004B4 +:100580002506F58275E0003507F583E512F075E084 +:10059000032506F58275E0003507F583E511F07552 +:1005A000E0022506F58275E0003507F583E510F0D9 +:1005B00075160075120075130075180075170A7509 +:1005C0001500750F00751000E518F511750080E530 +:1005D00000F5F0E51125F0F511E500F5F0E5102541 +:1005E000F0F510750C00750D00750E007514007592 +:1005F0000B00750A01750001C3E510F5F0E51195D2 +:10060000F0F509E50BF5F0E50B35F0F509E509F531 +:10061000F0E50055F0F500E500F5F0E50C45F0F5E6 +:100620000C750001C3E510F5F0E51195F0F509E54D +:100630000BF5F0E50B35F0F509E511F5F0E5109552 +:10064000F0F501E50BF5F0E50B35F0F501E501F509 +:10065000F0E50945F0F509E50AF5F0E50965F0F57D +:1006600009E509F5F0E50055F0F500C3E50FF5F0F3 +:10067000E51395F0F509E50BF5F0E50B35F0F50917 +:10068000E509F5F0E50055F0F500E500F5F0E50CBD +:1006900045F0F50C750001C3E510F5F0E51195F096 +:1006A000F509E50BF5F0E50B35F0F509E511F5F089 +:1006B000E51095F0F501E50BF5F0E50B35F0F501EA +:1006C000E501F5F0E50945F0F509E50AF5F0E5097C +:1006D00065F0F509E509F5F0E50055F0F500C3E52D +:1006E0000FF5F0E51395F0F509E50BF5F0E50B35A1 +:1006F000F0F509E513F5F0E50F95F0F501E50BF5DB +:10070000F0E50B35F0F501E501F5F0E50945F0F50B +:1007100009E50AF5F0E50965F0F509E509F5F0E503 +:100720000055F0F500C3E515F5F0E51295F0F50973 +:10073000E50BF5F0E50B35F0F509E509F5F0E50019 +:1007400055F0F500E500F5F0E50C45F0F50C750009 +:1007500001C3E510F5F0E51195F0F509E50BF5F0AD +:10076000E50B35F0F509E511F5F0E51095F0F5012B +:10077000E50BF5F0E50B35F0F501E501F5F0E509E0 +:1007800045F0F509E50AF5F0E50965F0F509E50933 +:10079000F5F0E50055F0F500C3E50FF5F0E513952C +:1007A000F0F509E50BF5F0E50B35F0F509E513F586 +:1007B000F0E50F95F0F501E50BF5F0E50B35F0F5FB +:1007C00001E501F5F0E50945F0F509E50AF5F0E583 +:1007D0000965F0F509E509F5F0E50055F0F500C308 +:1007E000E515F5F0E51295F0F509E50BF5F0E50BEB +:1007F00035F0F509E512F5F0E51595F0F501E50B95 +:10080000F5F0E50B35F0F501E501F5F0E50945F00A +:10081000F509E50AF5F0E50965F0F509E509F5F0F2 +:10082000E50055F0F500C3E517F5F0E51695F0F590 +:1008300009E50BF5F0E50B35F0F509E509F5F0E50F +:100840000055F0F500E500F5F0E50C45F0F50C7508 +:100850000101C3750000E50CF5F0E50095F0F50029 +:10086000750000E500F5F0E50035F0F500E500F570 +:10087000F0E50165F0F501C3750000E50DF5F0E563 +:100880000095F0F500750000E500F5F0E50035F0A5 +:10089000F500E500F5F0E50165F0F501C375000030 +:1008A000E50EF5F0E50095F0F500750000E500F5C2 +:1008B000F0E50035F0F500E500F5F0E50165F0F54F +:1008C00001C3750000E514F5F0E50095F0F500753D +:1008D0000000E500F5F0E50035F0F500E500F5F085 +:1008E000E50165F0F501750900750A00750B0075E5 +:1008F0000000E501F5F0E50045F0F500E509F5F04B +:10090000E50045F0F500E50AF5F0E50045F0F500F5 +:10091000E50BF5F0E50045F0F500E5007002800319 +:1009200002096B00751901751A00751B00751C0012 +:10093000750101750900750A00750B00C37500008B +:10094000E501F5F0E51635F0F516E509F5F0E512E7 +:1009500035F0F512E50AF5F0E51335F0F513E50B82 +:10096000F5F0E51835F0F5180205BC00900000E53B +:1009700082F509900000E583F50A750100C3750052 +:1009800000E501F5F0E50935F0F501E500F5F0E5E4 +:100990000A35F0F500E519F503E500F502E501F586 +:1009A00082E502F583E503F0750101C3750000E5FA +:1009B00001F5F0E50935F0F501E500F5F0E50A355A +:1009C000F0F500E51AF503E500F502E501F582E52D +:1009D00002F583E503F0750102C3750000E501F53A +:1009E000F0E50935F0F501E500F5F0E50A35F0F53B +:1009F00000E51BF503E500F502E501F582E502F5EA +:100A000083E503F0750103C3750000E501F5F0E52A +:100A10000935F0F501E500F5F0E50A35F0F500E5FA +:100A20001CF503E500F502E501F582E502F583E535 +:100A300003F0750000E500F502E500F503E500F5BB +:100A400004E500F505E51DF517E51EF516E51FF5AE +:100A50001575E0062506F58275E0003507F583E09B +:100A6000F51475E0052506F58275E0003507F58378 +:100A7000E0F51375E0042506F58275E0003507F50D +:100A800083E0F51275E0032506F58275E000350771 +:100A9000F583E0F51175E0022506F58275E0003575 +:100AA00007F583E0F51075E0002506F58275E00096 +:100AB0003507F583E0F508E508C0E075E001250697 +:100AC000F58275E0003507F583E0F508E508C0E03C +:100AD00075E0072506F50675E0003507F507E50220 +:100AE000F582E503F583E504F500E505F50122004F +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-11.s.expected b/tests/GCCTestSuite/uninit-11.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-11.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-2.c b/tests/GCCTestSuite/uninit-2.c new file mode 100644 index 0000000..352bbac --- /dev/null +++ b/tests/GCCTestSuite/uninit-2.c @@ -0,0 +1,52 @@ +/* Spurious uninitialized variable warnings, case 2. + Taken from cpphash.c (macroexpand) */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +struct definition +{ + int nargs; + int rest_args; +}; + +struct cpp_reader; + +enum cpp_token +{ + CPP_EOF, CPP_POP, CPP_COMMA, CPP_RPAREN +}; + +extern enum cpp_token macarg (struct cpp_reader *, int); + +void +macroexpand (struct cpp_reader *pfile, struct definition *defn) +{ + int nargs = defn->nargs; + + if (nargs >= 0) + { + enum cpp_token token; /* { dg-bogus "token" "uninitialized variable warning" } */ + int i, rest_args; + i = 0; + rest_args = 0; + do + { + if (rest_args) + continue; + if (i < nargs || (nargs == 0 && i == 0)) + { + /* if we are working on last arg which absorbs rest of args... */ + if (i == nargs - 1 && defn->rest_args) + rest_args = 1; + token = macarg (pfile, rest_args); + } + else + token = macarg (pfile, 0); + if (token == CPP_EOF || token == CPP_POP) + return; + + i++; + } + while (token == CPP_COMMA); + } +} diff --git a/tests/GCCTestSuite/uninit-2.c.expected b/tests/GCCTestSuite/uninit-2.c.expected new file mode 100644 index 0000000..352bbac --- /dev/null +++ b/tests/GCCTestSuite/uninit-2.c.expected @@ -0,0 +1,52 @@ +/* Spurious uninitialized variable warnings, case 2. + Taken from cpphash.c (macroexpand) */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +struct definition +{ + int nargs; + int rest_args; +}; + +struct cpp_reader; + +enum cpp_token +{ + CPP_EOF, CPP_POP, CPP_COMMA, CPP_RPAREN +}; + +extern enum cpp_token macarg (struct cpp_reader *, int); + +void +macroexpand (struct cpp_reader *pfile, struct definition *defn) +{ + int nargs = defn->nargs; + + if (nargs >= 0) + { + enum cpp_token token; /* { dg-bogus "token" "uninitialized variable warning" } */ + int i, rest_args; + i = 0; + rest_args = 0; + do + { + if (rest_args) + continue; + if (i < nargs || (nargs == 0 && i == 0)) + { + /* if we are working on last arg which absorbs rest of args... */ + if (i == nargs - 1 && defn->rest_args) + rest_args = 1; + token = macarg (pfile, rest_args); + } + else + token = macarg (pfile, 0); + if (token == CPP_EOF || token == CPP_POP) + return; + + i++; + } + while (token == CPP_COMMA); + } +} diff --git a/tests/GCCTestSuite/uninit-2.hex.expected b/tests/GCCTestSuite/uninit-2.hex.expected new file mode 100644 index 0000000..dd721cd --- /dev/null +++ b/tests/GCCTestSuite/uninit-2.hex.expected @@ -0,0 +1,373 @@ +:100000000000E506758218C39582F506E50775833D +:10001000009583F507D0E0F50875E00B2506F5821D +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:100030000A2506F58275E0003507F583E508F075B9 +:10004000E0132506F58275E0003507F583E517F026 +:1000500075E0122506F58275E0003507F583E51693 +:10006000F075E0112506F58275E0003507F583E5AA +:1000700015F075E0102506F58275E0003507F5836B +:10008000E514F075E00F2506F58275E0003507F5FB +:1000900083E513F075E00E2506F58275E00035075F +:1000A000F583E512F075E00D2506F58275E0003563 +:1000B00007F583E511F075E00C2506F58275E00083 +:1000C0003507F583E510F075E0012506F58275E04A +:1000D000003507F583E51FF075E0002506F582750C +:1000E000E0003507F583E51EF075E0032506F5828F +:1000F00075E0003507F583E51DF075E0022506F58E +:100100008275E0003507F583E51CF0750C00C375BA +:100110000B00E50CF5F075E0032506F58275E000AF +:100120003507F583E0F508E50835F0F50DE50BF545 +:10013000F075E0022506F58275E0003507F583E0ED +:10014000F508E50835F0F50E750C00C3750B00E5F4 +:100150000CF5F0E50D35F0F50CE50BF5F0E50E3599 +:10016000F0F50BE50BF502E50CF582E502F583E011 +:10017000F50875E0092506F58275E0003507F58379 +:10018000E508F0750C01C3750B00E50CF5F0E50D05 +:1001900035F0F50CE50BF5F0E50E35F0F50BE50B5C +:1001A000F502E50CF582E502F583E0F512750C0227 +:1001B000C3750B00E50CF5F0E50D35F0F50CE50B1E +:1001C000F5F0E50E35F0F50BE50BF502E50CF582E3 +:1001D000E502F583E0F510750C03C3750B00E50C23 +:1001E000F5F0E50D35F0F50CE50BF5F0E50E35F025 +:1001F000F50BE50BF502E50CF582E502F583E0F57C +:100200000875E0082506F58275E0003507F583E5F9 +:1002100008F0751A0075190075160075110075E063 +:10022000082506F58275E0003507F583E0F51375BE +:100230000B80E50BF5F0E51325F0F513E50BF5F074 +:10024000E51125F0F511750F00751400751800758E +:100250001500750E00751701750B01C3E511F5F05A +:10026000E51395F0F50DE50EF5F0E50E35F0F50D1D +:10027000E50DF5F0E50B55F0F50BE50BF5F0E50FA9 +:1002800045F0F50F750B01C3E511F5F0E51395F099 +:10029000F50DE50EF5F0E50E35F0F50DE513F5F08D +:1002A000E51195F0F50CE50EF5F0E50E35F0F50CE1 +:1002B000E50CF5F0E50D45F0F50DE517F5F0E50D6C +:1002C00065F0F50DE50DF5F0E50B55F0F50BC3E523 +:1002D00016F5F0E51095F0F50DE50EF5F0E50E35A7 +:1002E000F0F50DE50DF5F0E50B55F0F50BE50BF52B +:1002F000F0E50F45F0F50F750B01C3E511F5F0E5DD +:100300001395F0F50DE50EF5F0E50E35F0F50DE57C +:1003100013F5F0E51195F0F50CE50EF5F0E50E3569 +:10032000F0F50CE50CF5F0E50D45F0F50DE517F5EC +:10033000F0E50D65F0F50DE50DF5F0E50B55F0F583 +:100340000BC3E516F5F0E51095F0F50DE50EF5F0AB +:10035000E50E35F0F50DE510F5F0E51695F0F50C28 +:10036000E50EF5F0E50E35F0F50CE50CF5F0E50DD4 +:1003700045F0F50DE517F5F0E50D65F0F50DE50D2A +:10038000F5F0E50B55F0F50BC3E519F5F0E5129521 +:10039000F0F50DE50EF5F0E50E35F0F50DE50DF592 +:1003A000F0E50B55F0F50BE50BF5F0E50F45F0F535 +:1003B0000F750B01C3E511F5F0E51395F0F50DE5AB +:1003C0000EF5F0E50E35F0F50DE513F5F0E51195B8 +:1003D000F0F50CE50EF5F0E50E35F0F50CE50CF555 +:1003E000F0E50D45F0F50DE517F5F0E50D65F0F5D7 +:1003F0000DE50DF5F0E50B55F0F50BC3E516F5F041 +:10040000E51095F0F50DE50EF5F0E50E35F0F50D7E +:10041000E510F5F0E51695F0F50CE50EF5F0E50EB6 +:1004200035F0F50CE50CF5F0E50D45F0F50DE517AB +:10043000F5F0E50D65F0F50DE50DF5F0E50B55F082 +:10044000F50BC3E519F5F0E51295F0F50DE50EF5A0 +:10045000F0E50E35F0F50DE512F5F0E51995F0F53E +:100460000CE50EF5F0E50E35F0F50CE50CF5F0E5D4 +:100470000D45F0F50DE517F5F0E50D65F0F50DE529 +:100480000DF5F0E50B55F0F50BC3E51AF5F075E049 +:10049000092506F58275E0003507F583E0F508E5E6 +:1004A0000895F0F50DE50EF5F0E50E35F0F50DE5E6 +:1004B0000DF5F0E50B55F0F50BE50BF5F0E50F4507 +:1004C000F0F50FE50FF50BE518F50C750F01C37589 +:1004D0000D00E50BF5F0E50D95F0F50D750D00E55A +:1004E0000DF5F0E50D35F0F50DE50DF5F0E50F65D1 +:1004F000F0F50FC3750D00E514F5F0E50D95F0F579 +:100500000D750D00E50DF5F0E50D35F0F50DE50D7A +:10051000F5F0E50F65F0F50FC3750D00E50CF5F08E +:10052000E50D95F0F50D750D00E50DF5F0E50D35D2 +:10053000F0F50DE50DF5F0E50F65F0F50FC3750D60 +:1005400000E515F5F0E50D95F0F50D750D00E50DDF +:10055000F5F0E50D35F0F50DE50DF5F0E50F65F07D +:10056000F50F751400751800751500750B00E50F73 +:10057000F5F0E50B45F0F50BE514F5F0E50B45F06E +:10058000F50BE518F5F0E50B45F0F50BE515F5F085 +:10059000E50B45F0F50BE50B7002800302068400C5 +:1005A000750000E500F502E500F503E500F504E55A +:1005B00000F50575E0132506F58275E0003507F5B1 +:1005C00083E0F51775E0122506F58275E000350722 +:1005D000F583E0F51675E0112506F58275E0003526 +:1005E00007F583E0F51575E0102506F58275E00046 +:1005F0003507F583E0F51475E00F2506F58275E003 +:10060000003507F583E0F51375E00E2506F58275D4 +:10061000E0003507F583E0F51275E00D2506F5825B +:1006200075E0003507F583E0F51175E00C2506F55A +:100630008275E0003507F583E0F51075E00A2506C0 +:10064000F58275E0003507F583E0F508E508C0E0C0 +:1006500075E00B2506F58275E0003507F583E0F5BA +:1006600008E508C0E075E0182506F50675E00035D8 +:1006700007F507E502F582E503F583E504F500E5F6 +:1006800005F501220075140075130075110075172A +:100690000075080075E0072506F58275E00035074E +:1006A000F583E508F075080075E0062506F5827506 +:1006B000E0003507F583E508F075080075E00525CD +:1006C00006F58275E0003507F583E508F07508004A +:1006D00075E0042506F58275E0003507F583E50829 +:1006E000F000750B0075E0072506F58275E0003512 +:1006F00007F583E0F508E508F5F0E50B45F0F50BA7 +:1007000075E0062506F58275E0003507F583E0F50E +:1007100008E508F5F0E50B45F0F50B75E005250655 +:10072000F58275E0003507F583E0F508E508F5F09A +:10073000E50B45F0F50B75E0042506F58275E00044 +:100740003507F583E0F508E508F5F0E50B45F0F52C +:100750000BE50B7002800302172F00E517F50E75ED +:10076000E0082506F58275E0003507F583E0F50D14 +:10077000750080E500F5F0E50E25F0F50EE500F5D5 +:10078000F0E50D25F0F50D750C00750F00751500E1 +:10079000751600750B00750A01750001C3E50DF5AE +:1007A000F0E50E95F0F509E50BF5F0E50B35F0F504 +:1007B00009E509F5F0E50055F0F500E500F5F0E58F +:1007C0000C45F0F50C750001C3E50DF5F0E50E954F +:1007D000F0F509E50BF5F0E50B35F0F509E50EF55B +:1007E000F0E50D95F0F501E50BF5F0E50B35F0F5CD +:1007F00001E501F5F0E50945F0F509E50AF5F0E553 +:100800000965F0F509E509F5F0E50055F0F500C3D7 +:10081000E510F5F0E51195F0F509E50BF5F0E50BC0 +:1008200035F0F509E509F5F0E50055F0F500E500CE +:10083000F5F0E50C45F0F50C750001C3E50DF5F09C +:10084000E50E95F0F509E50BF5F0E50B35F0F5094A +:10085000E50EF5F0E50D95F0F501E50BF5F0E50B8E +:1008600035F0F501E501F5F0E50945F0F509E50A92 +:10087000F5F0E50965F0F509E509F5F0E50055F055 +:10088000F500C3E510F5F0E51195F0F509E50BF578 +:10089000F0E50B35F0F509E511F5F0E51095F0F50B +:1008A00001E50BF5F0E50B35F0F501E501F5F0E5B7 +:1008B0000945F0F509E50AF5F0E50965F0F509E502 +:1008C00009F5F0E50055F0F500C3E512F5F0E51384 +:1008D00095F0F509E50BF5F0E50B35F0F509E509BF +:1008E000F5F0E50055F0F500E500F5F0E50C45F014 +:1008F000F50C750001C3E50DF5F0E50E95F0F50971 +:10090000E50BF5F0E50B35F0F509E50EF5F0E50D35 +:1009100095F0F501E50BF5F0E50B35F0F501E50196 +:10092000F5F0E50945F0F509E50AF5F0E50965F0AA +:10093000F509E509F5F0E50055F0F500C3E510F51A +:10094000F0E51195F0F509E50BF5F0E50B35F0F55F +:1009500009E511F5F0E51095F0F501E50BF5F0E589 +:100960000B35F0F501E501F5F0E50945F0F509E590 +:100970000AF5F0E50965F0F509E509F5F0E500553A +:10098000F0F500C3E512F5F0E51395F0F509E50B78 +:10099000F5F0E50B35F0F509E513F5F0E51295F006 +:1009A000F501E50BF5F0E50B35F0F501E501F5F0A6 +:1009B000E50945F0F509E50AF5F0E50965F0F50901 +:1009C000E509F5F0E50055F0F500C375E0092506E9 +:1009D000F58275E0003507F583E0F508E508F5F0E8 +:1009E000E51495F0F509E50BF5F0E50B35F0F509A3 +:1009F000E509F5F0E50055F0F500E500F5F0E50C4A +:100A000045F0F50C750000E50CF5F0E50045F0F556 +:100A100000E50FF5F0E50045F0F500E515F5F0E52A +:100A20000045F0F500E516F5F0E50045F0F500E5C8 +:100A3000007002800302171F007500007501007529 +:100A40000900750A00750C00C3E500F5F075E009B2 +:100A50002506F58275E0003507F583E0F508E50821 +:100A600095F0F500E500F5F0E50C45F0F50CC3E573 +:100A700001F5F0E51295F0F500E500F5F0E50C451F +:100A8000F0F50CC3E509F5F0E51095F0F500E5008B +:100A9000F5F0E50C45F0F50CC3E50AF5F075E00856 +:100AA0002506F58275E0003507F583E0F508E508D1 +:100AB00095F0F500E500F5F0E50C45F0F50C750155 +:100AC00000750900750A00E50CF500750C01C37589 +:100AD0000B00E500F5F0E50B95F0F50B750B00E567 +:100AE0000BF5F0E50B35F0F50BE50BF5F0E50C65D6 +:100AF000F0F50CC3750B00E501F5F0E50B95F0F58D +:100B00000B750B00E50BF5F0E50B35F0F50BE50B80 +:100B1000F5F0E50C65F0F50CC3750B00E509F5F093 +:100B2000E50B95F0F50B750B00E50BF5F0E50B35D6 +:100B3000F0F50BE50BF5F0E50C65F0F50CC3750B66 +:100B400000E50AF5F0E50B95F0F50B750B00E50BEC +:100B5000F5F0E50B35F0F50BE50BF5F0E50C65F080 +:100B6000F50C750100750900750A00750000E50CAB +:100B7000F5F0E50045F0F500E501F5F0E50045F09C +:100B8000F500E509F5F0E50045F0F500E50AF5F0BA +:100B9000E50045F0F500E500700280030215BA009B +:100BA000750100750900750A00750B00750000E5F8 +:100BB00001F5F0E50045F0F500E509F5F0E5004543 +:100BC000F0F500E50AF5F0E50045F0F500E50BF578 +:100BD000F0E50045F0F500E500700280030215AA7B +:100BE00000750100750900750A00750B007500009D +:100BF000E501F5F0E50045F0F500E509F5F0E50063 +:100C000045F0F500E50AF5F0E50045F0F500E50BE7 +:100C1000F5F0E50045F0F500E500700280030211F3 +:100C2000A200751D00751C00751B00751A0075E08B +:100C3000012506F58275E0003507F583E0F51F759F +:100C4000E0002506F58275E0003507F583E0F51E26 +:100C5000E582F502E583F503E500F504E501F50518 +:100C6000E502F500E503F501E504F509E505F50AFA +:100C7000750B00750C00750D00750F00750E00C327 +:100C8000E50BF5F0E50095F0F50BE50BF5F0E50E5D +:100C900045F0F50EC3E50CF5F0E50195F0F50BE533 +:100CA0000BF5F0E50E45F0F50EC3E50DF5F0E509A1 +:100CB00095F0F50BE50BF5F0E50E45F0F50EC3E507 +:100CC0000FF5F0E50A95F0F50BE50BF5F0E50E45AF +:100CD000F0F50E750C00750D00750F00E50EF5169C +:100CE000E50CF515E50FF50C750E01C3750B00E568 +:100CF00016F5F0E50B95F0F50B750B00E50BF5F02F +:100D0000E50B35F0F50BE50BF5F0E50E65F0F50EAE +:100D1000C3750B00E515F5F0E50B95F0F50B750BBC +:100D200000E50BF5F0E50B35F0F50BE50BF5F0E51F +:100D30000E65F0F50EC3750B00E50DF5F0E50B95AE +:100D4000F0F50B750B00E50BF5F0E50B35F0F50B49 +:100D5000E50BF5F0E50E65F0F50EC3750B00E50C3F +:100D6000F5F0E50B95F0F50B750B00E50BF5F0E5EF +:100D70000B35F0F50BE50BF5F0E50E65F0F50E75AE +:100D80000C00750D00750F00750B00E50EF5F0E514 +:100D90000B45F0F50BE50CF5F0E50B45F0F50BE533 +:100DA0000DF5F0E50B45F0F50BE50FF5F0E50B451E +:100DB000F0F50BE50B7002800302119200750B0138 +:100DC000750C00750D00750F00750E00C3E50BF571 +:100DD000F0E50095F0F50BE50BF5F0E50E45F0F5C7 +:100DE0000EC3E50CF5F0E50195F0F50BE50BF5F01C +:100DF000E50E45F0F50EC3E50DF5F0E50995F0F5C6 +:100E00000BE50BF5F0E50E45F0F50EC3E50FF5F03B +:100E1000E50A95F0F50BE50BF5F0E50E45F0F50E5E +:100E2000750C00750D00750F00E50EF516E50CF557 +:100E300015E50FF50C750E01C3750B00E516F5F001 +:100E4000E50B95F0F50B750B00E50BF5F0E50B35B3 +:100E5000F0F50BE50BF5F0E50E65F0F50EC3750B3F +:100E600000E515F5F0E50B95F0F50B750B00E50BBE +:100E7000F5F0E50B35F0F50BE50BF5F0E50E65F05B +:100E8000F50EC3750B00E50DF5F0E50B95F0F50BD0 +:100E9000750B00E50BF5F0E50B35F0F50BE50BF503 +:100EA000F0E50E65F0F50EC3750B00E50CF5F0E509 +:100EB0000B95F0F50B750B00E50BF5F0E50B35F038 +:100EC000F50BE50BF5F0E50E65F0F50E750C00750C +:100ED0000D00750F00750B00E50EF5F0E50B45F004 +:100EE000F50BE50CF5F0E50B45F0F50BE50DF5F030 +:100EF000E50B45F0F50BE50FF5F0E50B45F0F50BCF +:100F0000E50B7002800302118200750C00750D0064 +:100F1000750E00750F00750B00E50CF5F0E50B453F +:100F2000F0F50BE50DF5F0E50B45F0F50BE50EF5ED +:100F3000F0E50B45F0F50BE50FF5F0E50B45F0F5A9 +:100F40000BE50B7002800302117E00750B01750C1E +:100F500000750D00750E00C3750F00E50BF5F0E58B +:100F60001435F0F514E50CF5F0E51335F0F513E55F +:100F70000DF5F0E51135F0F511E50EF5F0E5173555 +:100F8000F0F517750B02750C00750D00750F0075E7 +:100F90000E00C3E50BF5F0E50095F0F50BE50BF55C +:100FA000F0E50E45F0F50EC3E50CF5F0E50195F022 +:100FB000F50BE50BF5F0E50E45F0F50EC3E50DF587 +:100FC000F0E50995F0F50BE50BF5F0E50E45F0F5CC +:100FD0000EC3E50FF5F0E50A95F0F50BE50BF5F01E +:100FE000E50E45F0F50E750B00750C00750F00E56C +:100FF0000EF515750E01C3750D00E515F5F0E50D3F +:1010000095F0F50D750D00E50DF5F0E50D35F0F5F4 +:101010000DE50DF5F0E50E65F0F50EC3750D00E577 +:101020000BF5F0E50D95F0F50D750D00E50DF5F0FE +:10103000E50D35F0F50DE50DF5F0E50E65F0F50E75 +:10104000C3750D00E50CF5F0E50D95F0F50D750D8A +:1010500000E50DF5F0E50D35F0F50DE50DF5F0E5E4 +:101060000E65F0F50EC3750D00E50FF5F0E50D9575 +:10107000F0F50D750D00E50DF5F0E50D35F0F50D0C +:10108000E50DF5F0E50E65F0F50E750B00750C003D +:10109000750F00E50EF516E50BF515E50CF50EE5FB +:1010A0000FF50D750C01C3750B00E516F5F0E50B9A +:1010B00095F0F50B750B00E50BF5F0E50B35F0F54C +:1010C0000BE50BF5F0E50C65F0F50CC3750B00E5D1 +:1010D00015F5F0E50B95F0F50B750B00E50BF5F04C +:1010E000E50B35F0F50BE50BF5F0E50C65F0F50CCF +:1010F000C3750B00E50EF5F0E50B95F0F50B750BE0 +:1011000000E50BF5F0E50B35F0F50BE50BF5F0E53B +:101110000C65F0F50CC3750B00E50DF5F0E50B95CE +:10112000F0F50B750B00E50BF5F0E50B35F0F50B65 +:10113000E50BF5F0E50C65F0F50C750D00750E008E +:10114000750F00750B00E50CF5F0E50B45F0F50BA0 +:10115000E50DF5F0E50B45F0F50BE50EF5F0E50BCB +:1011600045F0F50BE50FF5F0E50B45F0F50BE50B5C +:101170007002800302117A0206E1000205A000025B +:1011800005A000750C01750D00750E00750F0002AD +:101190000F1600750C01750D00750E00750F00021D +:1011A0000F1600750001750100750900750A00C36E +:1011B000E500F5F075E0092506F58275E0003507D4 +:1011C000F583E0F508E50895F0F500E501F5F0E5B3 +:1011D0001295F0F501E509F5F0E51095F0F509E552 +:1011E0000AF5F075E0082506F58275E0003507F58B +:1011F00083E0F508E50895F0F50A750C00C3E500F5 +:10120000F5F0E51495F0F500E500F5F0E50C45F096 +:10121000F50CC3E501F5F0E51395F0F500E500F5F3 +:10122000F0E50C45F0F50CC3E509F5F0E51195F096 +:10123000F500E500F5F0E50C45F0F50CC3E50AF521 +:10124000F0E51795F0F500E500F5F0E50C45F0F553 +:101250000C750100750900750A00E50CF500750CA8 +:1012600001C3750B00E500F5F0E50B95F0F50B7586 +:101270000B00E50BF5F0E50B35F0F50BE50BF5F0A4 +:10128000E50C65F0F50CC3750B00E501F5F0E50B19 +:1012900095F0F50B750B00E50BF5F0E50B35F0F56A +:1012A0000BE50BF5F0E50C65F0F50CC3750B00E5EF +:1012B00009F5F0E50B95F0F50B750B00E50BF5F076 +:1012C000E50B35F0F50BE50BF5F0E50C65F0F50CED +:1012D000C3750B00E50AF5F0E50B95F0F50B750B02 +:1012E00000E50BF5F0E50B35F0F50BE50BF5F0E55A +:1012F0000C65F0F50C750100750900750A007500A4 +:1013000000E50CF5F0E50045F0F500E501F5F0E548 +:101310000045F0F500E509F5F0E50045F0F500E5DC +:101320000AF5F0E50045F0F500E5007002800302E3 +:10133000145100750D00750100750900750A0075DE +:101340000000E50DF5F0E50045F0F500E501F5F0EC +:10135000E50045F0F500E509F5F0E50045F0F5009C +:10136000E50AF5F0E50045F0F500E50070028003C0 +:101370000213FD0075E0012506F58275E0003507D2 +:10138000F583E0F51F75E0002506F58275E0003570 +:1013900007F583E0F51E75E0072506F58275E00088 +:1013A0003507F583E0F51D75E0062506F58275E045 +:1013B000003507F583E0F51C75E0052506F5827517 +:1013C000E0003507F583E0F51B75E0042506F5829E +:1013D00075E0003507F583E0F51AE582F502E5834F +:1013E000F503E500F504E501F505E502F500E50383 +:1013F000F501E504F509E505F50A020C700075082C +:101400000175E0072506F58275E0003507F583E5EF +:1014100008F075080075E0062506F58275E00035D0 +:1014200007F583E508F075080075E0052506F582E7 +:1014300075E0003507F583E508F075080075E004F0 +:101440002506F58275E0003507F583E508F00213FF +:101450007400750104C3750000E501F5F075E00343 +:101460002506F58275E0003507F583E0F508E50807 +:1014700035F0F509E500F5F075E0022506F5827511 +:10148000E0003507F583E0F508E50835F0F50A7565 +:101490000100C3750000E501F5F0E50935F0F5013F +:1014A000E500F5F0E50A35F0F500E500F502E501A7 +:1014B000F582E502F583E0F50B750101C3750000C7 +:1014C000E501F5F0E50935F0F501E500F5F0E50A8F +:1014D00035F0F500E500F502E501F582E502F5835A +:1014E000E0F50D750102C3750000E501F5F0E509B1 +:1014F00035F0F501E500F5F0E50A35F0F500E50019 +:10150000F502E501F582E502F583E0F50F750103CB +:10151000C3750000E501F5F0E50935F0F501E500DA +:10152000F5F0E50A35F0F500E500F502E501F58294 +:10153000E502F583E0F50C75000075010075090002 +:10154000750A00E50DF50E750D00C3E500F5F0E533 +:101550000B95F0F500E500F5F0E50D45F0F50DC350 +:10156000E501F5F0E50E95F0F500E500F5F0E50D87 +:1015700045F0F50DC3E509F5F0E50F95F0F500E54B +:1015800000F5F0E50D45F0F50DC3E50AF5F0E50CC5 +:1015900095F0F500E500F5F0E50D45F0F50D750168 +:1015A00000750900750A0002133F007501017509F5 +:1015B00000750A00750B00020BED00750000750147 +:1015C00000750900750A00750C00C3E500F5F0E52B +:1015D0001495F0F500E500F5F0E50C45F0F50CC3C9 +:1015E000E501F5F0E51395F0F500E500F5F0E50C03 +:1015F00045F0F50CC3E509F5F0E51195F0F500E5CA +:1016000000F5F0E50C45F0F50CC3E50AF5F0E5173B +:1016100095F0F500E500F5F0E50C45F0F50C7501E9 +:1016200000750900750A00E50CF500750C01C3751D +:101630000B00E500F5F0E50B95F0F50B750B00E5FB +:101640000BF5F0E50B35F0F50BE50BF5F0E50C656A +:10165000F0F50CC3750B00E501F5F0E50B95F0F521 +:101660000B750B00E50BF5F0E50B35F0F50BE50B15 +:10167000F5F0E50C65F0F50CC3750B00E509F5F028 +:10168000E50B95F0F50B750B00E50BF5F0E50B356B +:10169000F0F50BE50BF5F0E50C65F0F50CC3750BFB +:1016A00000E50AF5F0E50B95F0F50B750B00E50B81 +:1016B000F5F0E50B35F0F50BE50BF5F0E50C65F015 +:1016C000F50C750100750900750A00750000E50C40 +:1016D000F5F0E50045F0F500E501F5F0E50045F031 +:1016E000F500E509F5F0E50045F0F500E50AF5F04F +:1016F000E50045F0F500E5007002800302170F00D9 +:10170000750100750900750A00750B00020BAC002D +:10171000750101750900750A00750B00020BAC001C +:10172000750101750900750A00750B00020BED00CB +:10173000020F830000000000000000000000000015 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-2.s.expected b/tests/GCCTestSuite/uninit-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-3.c b/tests/GCCTestSuite/uninit-3.c new file mode 100644 index 0000000..ac5bfec --- /dev/null +++ b/tests/GCCTestSuite/uninit-3.c @@ -0,0 +1,33 @@ +/* Spurious uninit variable warnings, case 3. + Inspired by cppexp.c (parse_charconst) */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +extern void error (char *); + +int +parse_charconst (const char *start, const char *end) +{ + int c; /* { dg-bogus "c" "uninitialized variable warning" } */ + int nchars, retval; + + nchars = 0; + retval = 0; + while (start < end) + { + c = *start++; + if (c == '\'') + break; + nchars++; + retval += c; + retval <<= 8; + } + + if (nchars == 0) + return 0; + + if (c != '\'') + error ("malformed character constant"); + + return retval; +} diff --git a/tests/GCCTestSuite/uninit-3.c.expected b/tests/GCCTestSuite/uninit-3.c.expected new file mode 100644 index 0000000..ac5bfec --- /dev/null +++ b/tests/GCCTestSuite/uninit-3.c.expected @@ -0,0 +1,33 @@ +/* Spurious uninit variable warnings, case 3. + Inspired by cppexp.c (parse_charconst) */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +extern void error (char *); + +int +parse_charconst (const char *start, const char *end) +{ + int c; /* { dg-bogus "c" "uninitialized variable warning" } */ + int nchars, retval; + + nchars = 0; + retval = 0; + while (start < end) + { + c = *start++; + if (c == '\'') + break; + nchars++; + retval += c; + retval <<= 8; + } + + if (nchars == 0) + return 0; + + if (c != '\'') + error ("malformed character constant"); + + return retval; +} diff --git a/tests/GCCTestSuite/uninit-4.c b/tests/GCCTestSuite/uninit-4.c new file mode 100644 index 0000000..d39ecac --- /dev/null +++ b/tests/GCCTestSuite/uninit-4.c @@ -0,0 +1,52 @@ +/* Spurious uninit variable warnings, case 4. + Simplified version of cppexp.c (cpp_parse_expr). + + This one is really fragile, it gets it right if you take out case + 1, or if the structure is replaced by an int, or if the structure + has fewer members (!) */ + +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +extern void abort (void); + +struct operation { + short op; + char rprio; + char flags; + char unsignedp; + long value; +}; + +extern struct operation cpp_lex (void); + +void +cpp_parse_expr (void) +{ + int rprio; /* { dg-bogus "rprio" "uninitialized variable warning PR19833" } */ + struct operation op; + + for (;;) + { + op = cpp_lex (); + + switch (op.op) + { + case 0: + break; + case 1: + return; + case 2: + rprio = 1; + break; + default: + return; + } + + if (op.op == 0) + return; + + if (rprio != 1) + abort(); + } +} diff --git a/tests/GCCTestSuite/uninit-4.c.expected b/tests/GCCTestSuite/uninit-4.c.expected new file mode 100644 index 0000000..d39ecac --- /dev/null +++ b/tests/GCCTestSuite/uninit-4.c.expected @@ -0,0 +1,52 @@ +/* Spurious uninit variable warnings, case 4. + Simplified version of cppexp.c (cpp_parse_expr). + + This one is really fragile, it gets it right if you take out case + 1, or if the structure is replaced by an int, or if the structure + has fewer members (!) */ + +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +extern void abort (void); + +struct operation { + short op; + char rprio; + char flags; + char unsignedp; + long value; +}; + +extern struct operation cpp_lex (void); + +void +cpp_parse_expr (void) +{ + int rprio; /* { dg-bogus "rprio" "uninitialized variable warning PR19833" } */ + struct operation op; + + for (;;) + { + op = cpp_lex (); + + switch (op.op) + { + case 0: + break; + case 1: + return; + case 2: + rprio = 1; + break; + default: + return; + } + + if (op.op == 0) + return; + + if (rprio != 1) + abort(); + } +} diff --git a/tests/GCCTestSuite/uninit-4.hex.expected b/tests/GCCTestSuite/uninit-4.hex.expected new file mode 100644 index 0000000..a682541 --- /dev/null +++ b/tests/GCCTestSuite/uninit-4.hex.expected @@ -0,0 +1,179 @@ +:10000000000000E50675820FC39582F506E50775C9 +:1000100083009583F507D0E0F50875E00A2506F51D +:100020008275E0003507F583E508F0D0E0F5087546 +:10003000E0092506F58275E0003507F583E508F04F +:1000400075E00E2506F58275E0003507F583E513AA +:10005000F075E00D2506F58275E0003507F583E5BE +:1000600012F075E00C2506F58275E0003507F58382 +:10007000E511F075E00B2506F58275E0003507F512 +:1000800083E510F0750001750100750900750A001F +:10009000750C01C3750B00E500F5F0E50B95F0F567 +:1000A0000B750B00E50BF5F0E50B35F0F50BE50BEB +:1000B000F5F0E50C65F0F50CC3750B00E501F5F006 +:1000C000E50B95F0F50B750B00E50BF5F0E50B3541 +:1000D000F0F50BE50BF5F0E50C65F0F50CC3750BD1 +:1000E00000E509F5F0E50B95F0F50B750B00E50B58 +:1000F000F5F0E50B35F0F50BE50BF5F0E50C65F0EB +:10010000F50CC3750B00E50AF5F0E50B95F0F50B62 +:10011000750B00E50BF5F0E50B35F0F50BE50BF590 +:10012000F0E50C65F0F50C750100750900750A0025 +:10013000750000E50CF5F0E50045F0F500E501F58A +:10014000F0E50045F0F500E509F5F0E50045F0F5CE +:1001500000E50AF5F0E50045F0F500E500700280E5 +:1001600003020B1A00E506F509E507F50A7501001B +:10017000C3750000E501F5F0E50935F0F501E5008E +:10018000F5F0E50A35F0F500E501F51FE500F51E8F +:10019000E506F509E507F50A750100C3750000E5F8 +:1001A00001F5F0E50935F0F501E500F5F0E50A3572 +:1001B000F0F50A750900C3750000E509F5F0E501E1 +:1001C00035F0F501E500F5F0E50A35F0F500E5015B +:1001D000F509E500F50A750100C3750000E501F5B4 +:1001E000F0E50935F0F501E500F5F0E50A35F0F543 +:1001F00000E500F502E501F582E502F583E0F50B87 +:10020000750101C3750000E501F5F0E50935F0F56C +:1002100001E500F5F0E50A35F0F500E500F502E549 +:1002200001F582E502F583E0F501E501F50C7500C5 +:1002300080E501F5F0E50055F0F50EE500F5F0E597 +:100240000E84F50E7500FFE500F5F0E50EA4F50E41 +:10025000E50EF50D750000750100750900750A00C1 +:10026000750F00C3E500F5F0E50B95F0F500E5002E +:10027000F5F0E50F45F0F50FC3E501F5F0E50C9558 +:10028000F0F500E500F5F0E50F45F0F50FC3E509E1 +:10029000F5F0E50D95F0F500E500F5F0E50F45F01A +:1002A000F50FC3E50AF5F0E50E95F0F500E500F56C +:1002B000F0E50F45F0F50F750100750900750A00AE +:1002C000E50FF500750F01C3750B00E500F5F0E5CE +:1002D0000B95F0F50B750B00E50BF5F0E50B35F024 +:1002E000F50BE50BF5F0E50F65F0F50FC3750B00A9 +:1002F000E501F5F0E50B95F0F50B750B00E50BF559 +:10030000F0E50B35F0F50BE50BF5F0E50F65F0F5D5 +:100310000FC3750B00E509F5F0E50B95F0F50B75CE +:100320000B00E50BF5F0E50B35F0F50BE50BF5F003 +:10033000E50F65F0F50FC3750B00E50AF5F0E50B69 +:1003400095F0F50B750B00E50BF5F0E50B35F0F5C9 +:100350000BE50BF5F0E50F65F0F50F75010075097C +:1003600000750A00750000E50FF5F0E50045F0F5B1 +:1003700000E501F5F0E50045F0F500E509F5F0E5EB +:100380000045F0F500E50AF5F0E50045F0F500E57B +:100390000070028003020B1500E506F509E507F57C +:1003A0000A750100C3750000E501F5F0E50935F0B7 +:1003B000F501E500F5F0E50A35F0F50A750900C329 +:1003C000750000E509F5F0E50135F0F501E500F50A +:1003D000F0E50A35F0F500E501F509E500F50A75E7 +:1003E0000100C3750000E501F5F0E50935F0F50100 +:1003F000E500F5F0E50A35F0F500E500F502E50168 +:10040000F582E502F583E0F50B750101C375000087 +:10041000E501F5F0E50935F0F501E500F5F0E50A4F +:1004200035F0F500E500F502E501F582E502F5831A +:10043000E0F501E501F50C750080E501F5F0E5005A +:1004400055F0F50EE500F5F0E50E84F50E7500FFAC +:10045000E500F5F0E50EA4F50EE50EF50D750001CD +:10046000750100750900750A00750F00C3E500F5F8 +:10047000F0E50B95F0F500E500F5F0E50F45F0F53A +:100480000FC3E501F5F0E50C95F0F500E500F5F09A +:10049000E50F45F0F50FC3E509F5F0E50D95F0F52D +:1004A00000E500F5F0E50F45F0F50FC3E50AF5F0BE +:1004B000E50E95F0F500E500F5F0E50F45F0F50FD8 +:1004C000750100750900750A00E50FF500750F014B +:1004D000C3750B00E500F5F0E50B95F0F50B750B1A +:1004E00000E50BF5F0E50B35F0F50BE50BF5F0E568 +:1004F0000F65F0F50FC3750B00E501F5F0E50B9501 +:10050000F0F50B750B00E50BF5F0E50B35F0F50B91 +:10051000E50BF5F0E50F65F0F50FC3750B00E50988 +:10052000F5F0E50B95F0F50B750B00E50BF5F0E537 +:100530000B35F0F50BE50BF5F0E50F65F0F50FC3A6 +:10054000750B00E50AF5F0E50B95F0F50B750B0062 +:10055000E50BF5F0E50B35F0F50BE50BF5F0E50FE8 +:1005600065F0F50F750100750900750A007500004A +:10057000E50FF5F0E50045F0F500E501F5F0E500E3 +:1005800045F0F500E509F5F0E50045F0F500E50A70 +:10059000F5F0E50045F0F500E50070028003020B80 +:1005A0001000E506F509E507F50A750100C37500B9 +:1005B00000E501F5F0E50935F0F501E500F5F0E5B8 +:1005C0000A35F0F50A750900C3750000E509F5F074 +:1005D000E50135F0F501E500F5F0E50A35F0F50047 +:1005E000E501F509E500F50A750100C3750000E5B0 +:1005F00001F5F0E50935F0F501E500F5F0E50A351E +:10060000F0F500E500F502E501F582E502F583E08D +:10061000F50B750101C3750000E501F5F0E509353D +:10062000F0F501E500F5F0E50A35F0F500E500F537 +:1006300002E501F582E502F583E0F501E501F50C3F +:10064000750080E501F5F0E50055F0F50EE500F5E3 +:10065000F0E50E84F50E7500FFE500F5F0E50EA45B +:10066000F50EE50EF50D75000275010075090075B2 +:100670000A00750F00C3E500F5F0E50B95F0F500F5 +:10068000E500F5F0E50F45F0F50FC3E501F5F0E500 +:100690000C95F0F500E500F5F0E50F45F0F50FC31A +:1006A000E509F5F0E50D95F0F500E500F5F0E50F4D +:1006B00045F0F50FC3E50AF5F0E50E95F0F500E518 +:1006C00000F5F0E50F45F0F50F75010075090075AF +:1006D0000A00E50FF500750F01C3750B00E500F585 +:1006E000F0E50B95F0F50B750B00E50BF5F0E50B60 +:1006F00035F0F50BE50BF5F0E50F65F0F50FC3757B +:100700000B00E501F5F0E50B95F0F50B750B00E539 +:100710000BF5F0E50B35F0F50BE50BF5F0E50F65A6 +:10072000F0F50FC3750B00E509F5F0E50B95F0F555 +:100730000B750B00E50BF5F0E50B35F0F50BE50B54 +:10074000F5F0E50F65F0F50FC3750B00E50AF5F060 +:10075000E50B95F0F50B750B00E50BF5F0E50B35AA +:10076000F0F50BE50BF5F0E50F65F0F50F75010001 +:10077000750900750A00750000E50FF5F0E5004504 +:10078000F0F500E501F5F0E50045F0F500E509F5C7 +:10079000F0E50045F0F500E50AF5F0E50045F0F577 +:1007A00000E5007002800302084C0000750000E5BF +:1007B00000F502E500F503E500F504E500F5057533 +:1007C000E00E2506F58275E0003507F583E0F513A8 +:1007D00075E00D2506F58275E0003507F583E0F537 +:1007E0001275E00C2506F58275E0003507F583E00B +:1007F000F51175E00B2506F58275E0003507F583E8 +:10080000E0F51075E0092506F58275E0003507F57D +:1008100083E0F508E508C0E075E00A2506F5827575 +:10082000E0003507F583E0F508E508C0E075E00F66 +:100830002506F50675E0003507F507E502F582E5C2 +:1008400003F583E504F500E505F5012200007510C8 +:100850000175110075120075130000E506F509E534 +:1008600007F50A750100C3750000E501F5F0E5091B +:1008700035F0F501E500F5F0E50A35F0F50A750902 +:1008800000C3750000E509F5F0E50135F0F501E577 +:1008900000F5F0E50A35F0F500E501F509E500F5AC +:1008A0000A750100C3750000E501F5F0E50935F0B2 +:1008B000F501E500F5F0E50A35F0F500E500F50293 +:1008C000E501F582E502F583E0F50B750101C375DD +:1008D0000000E501F5F0E50935F0F501E500F5F07A +:1008E000E50A35F0F500E500F502E501F582E502DF +:1008F000F583E0F501E501F50C750080E501F5F003 +:10090000E50055F0F50EE500F5F0E50E84F50E7501 +:1009100000FFE500F5F0E50EA4F50EE50EF50D750A +:100920000000750100750900750A00750F00C3E528 +:1009300000F5F0E50B95F0F500E500F5F0E50F4565 +:10094000F0F50FC3E501F5F0E50C95F0F500E500D5 +:10095000F5F0E50F45F0F50FC3E509F5F0E50D9568 +:10096000F0F500E500F5F0E50F45F0F50FC3E50AF9 +:10097000F5F0E50E95F0F500E500F5F0E50F45F032 +:10098000F50F750100750900750A00E50FF5007592 +:100990000F01C3750B00E500F5F0E50B95F0F50BC5 +:1009A000750B00E50BF5F0E50B35F0F50BE50BF5F8 +:1009B000F0E50F65F0F50FC3750B00E501F5F0E507 +:1009C0000B95F0F50B750B00E50BF5F0E50B35F02D +:1009D000F50BE50BF5F0E50F65F0F50FC3750B00B2 +:1009E000E509F5F0E50B95F0F50B750B00E50BF55A +:1009F000F0E50B35F0F50BE50BF5F0E50F65F0F5DF +:100A00000FC3750B00E50AF5F0E50B95F0F50B75D6 +:100A10000B00E50BF5F0E50B35F0F50BE50BF5F00C +:100A2000E50F65F0F50F750100750900750A007591 +:100A30000000E50FF5F0E50045F0F500E501F5F003 +:100A4000E50045F0F500E509F5F0E50045F0F500B5 +:100A5000E50AF5F0E50045F0F500E50070028003D9 +:100A6000020B0C00750001750100750900750A0084 +:100A7000750B00C3E500F5F0E51095F0F500E50015 +:100A8000F5F0E50B45F0F50BC3E501F5F0E5119543 +:100A9000F0F500E500F5F0E50B45F0F50BC3E509D1 +:100AA000F5F0E51295F0F500E500F5F0E50B45F001 +:100AB000F50BC3E50AF5F0E51395F0F500E500F553 +:100AC000F0E50B45F0F50B750100750900750A009E +:100AD000750000E50BF5F0E50045F0F500E501F5E2 +:100AE000F0E50045F0F500E509F5F0E50045F0F525 +:100AF00000E50AF5F0E50045F0F500E5007002803C +:100B000003020B080002008400020084000207AC0C +:100B100000000207AC000002085A000207AC000007 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-4.s.expected b/tests/GCCTestSuite/uninit-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-5.c b/tests/GCCTestSuite/uninit-5.c new file mode 100644 index 0000000..ae7a8de --- /dev/null +++ b/tests/GCCTestSuite/uninit-5.c @@ -0,0 +1,39 @@ +/* Spurious uninitialized-variable warnings. */ + +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +extern void use(int); +extern void foo(void); + +void +func1(int cond) +{ + int x; /* { dg-bogus "x" "uninitialized variable warning" } */ + + if(cond) + x = 1; + + foo(); + + if(cond) + use(x); +} + +void +func2 (int cond) +{ + int x; /* { dg-bogus "x" "uninitialized variable warning" } */ + int flag = 0; + + if(cond) + { + x = 1; + flag = 1; + } + + foo(); + + if(flag) + use(x); +} diff --git a/tests/GCCTestSuite/uninit-5.c.expected b/tests/GCCTestSuite/uninit-5.c.expected new file mode 100644 index 0000000..ae7a8de --- /dev/null +++ b/tests/GCCTestSuite/uninit-5.c.expected @@ -0,0 +1,39 @@ +/* Spurious uninitialized-variable warnings. */ + +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +extern void use(int); +extern void foo(void); + +void +func1(int cond) +{ + int x; /* { dg-bogus "x" "uninitialized variable warning" } */ + + if(cond) + x = 1; + + foo(); + + if(cond) + use(x); +} + +void +func2 (int cond) +{ + int x; /* { dg-bogus "x" "uninitialized variable warning" } */ + int flag = 0; + + if(cond) + { + x = 1; + flag = 1; + } + + foo(); + + if(flag) + use(x); +} diff --git a/tests/GCCTestSuite/uninit-5.hex.expected b/tests/GCCTestSuite/uninit-5.hex.expected new file mode 100644 index 0000000..c67c70d --- /dev/null +++ b/tests/GCCTestSuite/uninit-5.hex.expected @@ -0,0 +1,75 @@ +:10000000000000E50675820EC39582F506E50775CA +:1000100083009583F507D0E0F50875E0012506F526 +:100020008275E0003507F583E508F0D0E0F5087546 +:10003000E0002506F58275E0003507F583E508F058 +:1000400075E0092506F58275E0003507F583E517AB +:10005000F075E0082506F58275E0003507F583E5C3 +:1000600016F075E0072506F58275E0003507F58383 +:10007000E515F075E0062506F58275E0003507F513 +:1000800083E514F075E0052506F58275E000350777 +:10009000F583E513F075E0042506F58275E000357B +:1000A00007F583E512F075E0032506F58275E0009B +:1000B0003507F583E511F075E0022506F58275E058 +:1000C000003507F583E510F0E51FF510E51EF51185 +:1000D000E51DF512E51CF513750000E510F5F0E5DA +:1000E0000045F0F500E511F5F0E50045F0F500E517 +:1000F00012F5F0E50045F0F500E513F5F0E50045F3 +:10010000F0F500E5007002800302023A007500007D +:10011000E510F5F0E50045F0F500E511F5F0E50036 +:1001200045F0F500E512F5F0E50045F0F500E513C2 +:10013000F5F0E50045F0F500E500700280030202ED +:100140002600750000E500F502E500F503E500F581 +:1001500004E500F50575E0092506F58275E0003532 +:1001600007F583E0F51775E0082506F58275E000D0 +:100170003507F583E0F51675E0072506F58275E08D +:10018000003507F583E0F51575E0062506F582755F +:10019000E0003507F583E0F51475E0052506F582E6 +:1001A00075E0003507F583E0F51375E0042506F5E5 +:1001B0008275E0003507F583E0F51275E00325064A +:1001C000F58275E0003507F583E0F51175E002254D +:1001D00006F58275E0003507F583E0F51075E0005F +:1001E0002506F58275E0003507F583E0F508E5089A +:1001F000C0E075E0012506F58275E0003507F5835E +:10020000E0F508E508C0E075E00E2506F50675E0A6 +:10021000003507F507E502F582E503F583E504F50A +:1002200000E505F5012200E514F51FE515F51EE5CD +:1002300016F51DE517F51C02014200751401751530 +:100240000075160075170002010D00E50675820E97 +:10025000C39582F506E5077583009583F507D0E021 +:10026000F50875E0012506F58275E0003507F58390 +:10027000E508F0D0E0F50875E0002506F58275E0A8 +:10028000003507F583E508F075E0092506F5827568 +:10029000E0003507F583E517F075E0082506F582DF +:1002A00075E0003507F583E516F075E0072506F5DE +:1002B0008275E0003507F583E515F075E006250643 +:1002C000F58275E0003507F583E514F075E0052546 +:1002D00006F58275E0003507F583E513F075E00457 +:1002E0002506F58275E0003507F583E512F075E027 +:1002F000032506F58275E0003507F583E511F075F5 +:10030000E0022506F58275E0003507F583E510F07B +:10031000751000751100751200751300750000E569 +:100320001FF5F0E50045F0F500E51EF5F0E50045A8 +:10033000F0F500E51DF5F0E50045F0F500E51CF5EC +:10034000F0E50045F0F500E5007002800302047E50 +:1003500000750000E510F5F0E50045F0F500E51149 +:10036000F5F0E50045F0F500E512F5F0E50045F0A3 +:10037000F500E513F5F0E50045F0F500E500700245 +:10038000800302046A00750000E500F502E500F54F +:1003900003E500F504E500F50575E0092506F5829D +:1003A00075E0003507F583E0F51775E0082506F5DB +:1003B0008275E0003507F583E0F51675E007250640 +:1003C000F58275E0003507F583E0F51575E0062543 +:1003D00006F58275E0003507F583E0F51475E00554 +:1003E0002506F58275E0003507F583E0F51375E025 +:1003F000042506F58275E0003507F583E0F51275F2 +:10040000E0032506F58275E0003507F583E0F51178 +:1004100075E0022506F58275E0003507F583E0F505 +:100420001075E0002506F58275E0003507F583E0DC +:10043000F508E508C0E075E0012506F58275E000E5 +:100440003507F583E0F508E508C0E075E00E250600 +:10045000F50675E0003507F507E502F582E503F5D9 +:1004600083E504F500E505F5012200E514F51FE537 +:1004700015F51EE516F51DE517F51C02038600753A +:1004800014017515007516007517007510017511AA +:1004900000751200751300020351000000000000F7 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-5.s.expected b/tests/GCCTestSuite/uninit-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-6.c b/tests/GCCTestSuite/uninit-6.c new file mode 100644 index 0000000..b0f2083 --- /dev/null +++ b/tests/GCCTestSuite/uninit-6.c @@ -0,0 +1,47 @@ +/* Spurious uninitialized variable warnings. + This one inspired by java/class.c:build_utf8_ref. */ + +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +#include + +struct tree +{ + struct tree *car; + struct tree *cdr; + int type, data; +}; + +extern void *malloc(size_t); + +#define INTEGER_T 1 +#define PTR_T 2 + +#define APPEND(TREE, LAST, TYPE, VALUE) \ +do { \ + struct tree *tmp = malloc (sizeof (struct tree)); \ + tmp->car = 0; tmp->cdr = 0; tmp->type = TYPE; \ + tmp->data = VALUE; \ + if (TREE->car) \ + LAST->cdr = tmp; \ + else \ + TREE->car = tmp; \ + LAST = tmp; \ +} while(0) + +struct tree * +make_something(int a, int b, int c) +{ + struct tree *rv; + struct tree *field; + + rv = malloc (sizeof (struct tree)); + rv->car = 0; + + APPEND(rv, field, INTEGER_T, a); /* { dg-bogus "field" "uninitialized variable warning" { xfail *-*-* } } */ + APPEND(rv, field, PTR_T, b); + APPEND(rv, field, INTEGER_T, c); + + return rv; +} diff --git a/tests/GCCTestSuite/uninit-6.c.expected b/tests/GCCTestSuite/uninit-6.c.expected new file mode 100644 index 0000000..b0f2083 --- /dev/null +++ b/tests/GCCTestSuite/uninit-6.c.expected @@ -0,0 +1,47 @@ +/* Spurious uninitialized variable warnings. + This one inspired by java/class.c:build_utf8_ref. */ + +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +#include + +struct tree +{ + struct tree *car; + struct tree *cdr; + int type, data; +}; + +extern void *malloc(size_t); + +#define INTEGER_T 1 +#define PTR_T 2 + +#define APPEND(TREE, LAST, TYPE, VALUE) \ +do { \ + struct tree *tmp = malloc (sizeof (struct tree)); \ + tmp->car = 0; tmp->cdr = 0; tmp->type = TYPE; \ + tmp->data = VALUE; \ + if (TREE->car) \ + LAST->cdr = tmp; \ + else \ + TREE->car = tmp; \ + LAST = tmp; \ +} while(0) + +struct tree * +make_something(int a, int b, int c) +{ + struct tree *rv; + struct tree *field; + + rv = malloc (sizeof (struct tree)); + rv->car = 0; + + APPEND(rv, field, INTEGER_T, a); /* { dg-bogus "field" "uninitialized variable warning" { xfail *-*-* } } */ + APPEND(rv, field, PTR_T, b); + APPEND(rv, field, INTEGER_T, c); + + return rv; +} diff --git a/tests/GCCTestSuite/uninit-6.hex.expected b/tests/GCCTestSuite/uninit-6.hex.expected new file mode 100644 index 0000000..05932db --- /dev/null +++ b/tests/GCCTestSuite/uninit-6.hex.expected @@ -0,0 +1,323 @@ +:100000000000E506758223C39582F506E507758332 +:10001000009583F507D0E0F50875E00E2506F5821A +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:100030000D2506F58275E0003507F583E508F075B6 +:10004000E0162506F58275E0003507F583E517F023 +:1000500075E0152506F58275E0003507F583E51690 +:10006000F075E0142506F58275E0003507F583E5A7 +:1000700015F075E0132506F58275E0003507F58368 +:10008000E514F075E0122506F58275E0003507F5F8 +:1000900083E513F075E0112506F58275E00035075C +:1000A000F583E512F075E0102506F58275E0003560 +:1000B00007F583E511F075E00F2506F58275E00080 +:1000C0003507F583E510F0E51FF515E51EF516E596 +:1000D0001DF51775E0042506F58275E0003507F576 +:1000E00083E51CF075E0082506F58275E00035070C +:1000F000F583E51BF075E0072506F58275E0003510 +:1001000007F583E51AF075E0062506F58275E0002F +:100110003507F583E519F075E0052506F58275E0EC +:10012000003507F583E518F0750923750001E50032 +:10013000F5F0E50995F0F509E506F500E500F5F0BF +:10014000E50925F0F509750100E507F500E500F57D +:10015000F0E50135F0F501E501F502E509F582E587 +:1001600002F583E0F50875E00C2506F58275E000E0 +:100170003507F583E508F0750923750002E500F5FC +:10018000F0E50995F0F509E506F500E500F5F0E57F +:100190000925F0F509750100E507F500E500F5F022 +:1001A000E50135F0F501E501F502E509F582E50225 +:1001B000F583E0F50875E00B2506F58275E000355E +:1001C00007F583E508F0750923750003E500F5F0F0 +:1001D000E50995F0F509E506F500E500F5F0E50916 +:1001E00025F0F509750100E507F500E500F5F0E5F6 +:1001F0000135F0F501E501F502E509F582E502F5C5 +:1002000083E0F50875E00A2506F58275E0003507FC +:10021000F583E508F0750923750004E500F5F0E5C0 +:100220000995F0F509E506F500E500F5F0E5092585 +:10023000F0F509750100E507F500E500F5F0E501C9 +:1002400035F0F501E501F502E509F582E502F583F2 +:10025000E0F50875E0092506F58275E0003507F53B +:1002600083E508F0751F0C751E00751D00751C00D8 +:10027000E582F502E583F503E502F510E503F511E6 +:10028000750100C3750000E501F5F0E51035F0F5E6 +:100290000BE500F5F0E51135F0F50C750900750A70 +:1002A00000750100C3750000E501F5F0E50B35F0C0 +:1002B000F501E500F5F0E50C35F0F500E509F5038D +:1002C000E500F502E501F582E502F583E503F07549 +:1002D0000101C3750000E501F5F0E50B35F0F5010E +:1002E000E500F5F0E50C35F0F500E50AF503E5006D +:1002F000F502E501F582E502F583E503F000751FDF +:100300000C751E00751D00751C00E582F502E58365 +:10031000F503E502F50EE503F50F750100C3750061 +:1003200000E501F5F0E50E35F0F50BE500F5F0E53B +:100330000F35F0F50C750900750A00750100C375DD +:100340000000E501F5F0E50B35F0F501E500F5F00D +:10035000E50C35F0F500E509F503E500F502E501EA +:10036000F582E502F583E503F0750101C375000030 +:10037000E501F5F0E50B35F0F501E500F5F0E50CEC +:1003800035F0F500E50AF503E500F502E501F58233 +:10039000E502F583E503F0750102C3750000E50190 +:1003A000F5F0E50E35F0F50BE500F5F0E50F35F06D +:1003B000F50C750900750A00750100C3750000E5AC +:1003C00001F5F0E50B35F0F501E500F5F0E50C354C +:1003D000F0F500E509F503E500F502E501F582E534 +:1003E00002F583E503F0750101C3750000E501F531 +:1003F000F0E50B35F0F501E500F5F0E50C35F0F52D +:1004000000E50AF503E500F502E501F582E502F5F0 +:1004100083E503F0750104C3750000E501F5F0E51F +:100420000E35F0F50CE500F5F0E50F35F0F50D753E +:100430000901750A00750B00751400750100C3757C +:100440000000E501F5F0E50C35F0F501E500F5F00B +:10045000E50D35F0F500E509F503E500F502E501E8 +:10046000F582E502F583E503F0750101C37500002F +:10047000E501F5F0E50C35F0F501E500F5F0E50DE9 +:1004800035F0F500E50AF503E500F502E501F58232 +:10049000E502F583E503F0750102C3750000E5018F +:1004A000F5F0E50C35F0F501E500F5F0E50D35F07A +:1004B000F500E50BF503E500F502E501F582E5023F +:1004C000F583E503F0750103C3750000E501F5F060 +:1004D000E50C35F0F501E500F5F0E50D35F0F5003A +:1004E000E514F503E500F502E501F582E502F58383 +:1004F000E503F0750108C3750000E501F5F0E50EB0 +:1005000035F0F509E500F5F0E50F35F0F50A750170 +:1005100000C3750000E501F5F0E50935F0F501E5EA +:1005200000F5F0E50A35F0F500E515F503E500F511 +:1005300002E501F582E502F583E503F0750101C3EB +:10054000750000E501F5F0E50935F0F501E500F588 +:10055000F0E50A35F0F500E516F503E500F502E5EE +:1005600001F582E502F583E503F0750102C375002C +:1005700000E501F5F0E50935F0F501E500F5F0E5F8 +:100580000A35F0F500E517F503E500F502E501F59C +:1005900082E502F583E503F0750103C3750000E50C +:1005A00001F5F0E50935F0F501E500F5F0E50A356E +:1005B000F0F50075E0042506F58275E0003507F5D5 +:1005C00083E0F508E508F503E500F502E501F582AD +:1005D000E502F583E503F0750100C3750000E50150 +:1005E000F5F0E51035F0F509E500F5F0E51135F029 +:1005F000F50A750100C3750000E501F5F0E5093560 +:10060000F0F501E500F5F0E50A35F0F500E500F557 +:1006100002E501F582E502F583E0F50B750101C302 +:10062000750000E501F5F0E50935F0F501E500F5A7 +:10063000F0E50A35F0F500E500F502E501F582E5A3 +:1006400002F583E0F501750000E50BF5F0E50045E6 +:10065000F0F500E501F5F0E50045F0F500E5007086 +:100660000280030213A400750100C3750000E501B8 +:10067000F5F0E51035F0F509E500F5F0E51135F098 +:10068000F50A750100C3750000E501F5F0E50935CF +:10069000F0F501E500F5F0E50A35F0F500E50EF5B9 +:1006A00003E500F502E501F582E502F583E503F0D7 +:1006B000750101C3750000E501F5F0E50935F0F5B8 +:1006C00001E500F5F0E50A35F0F500E50FF503E585 +:1006D00000F502E501F582E502F583E503F0E50E9C +:1006E000F512E50FF5137500007501007509007529 +:1006F0000A00750C01C3750B00E500F5F0E50B95DC +:10070000F0F50B750B00E50BF5F0E50B35F0F50B8F +:10071000E50BF5F0E50C65F0F50CC3750B00E50194 +:10072000F5F0E50B95F0F50B750B00E50BF5F0E535 +:100730000B35F0F50BE50BF5F0E50C65F0F50CC3AA +:10074000750B00E509F5F0E50B95F0F50B750B0061 +:10075000E50BF5F0E50B35F0F50BE50BF5F0E50CE9 +:1007600065F0F50CC3750B00E50AF5F0E50B95F0A7 +:10077000F50B750B00E50BF5F0E50B35F0F50BE52A +:100780000BF5F0E50C65F0F50C75010075090075C9 +:100790000A00750000E50CF5F0E50045F0F500E510 +:1007A00001F5F0E50045F0F500E509F5F0E5004557 +:1007B000F0F500E50AF5F0E50045F0F500E500701C +:1007C0000280030207C90202FD0000751F0C751E9E +:1007D00000751D00751C00E582F502E583F503E553 +:1007E00002F50EE503F50F750100C3750000E50184 +:1007F000F5F0E50E35F0F50BE500F5F0E50F35F019 +:10080000F50C750900750A00750100C3750000E557 +:1008100001F5F0E50B35F0F501E500F5F0E50C35F7 +:10082000F0F500E509F503E500F502E501F582E5DF +:1008300002F583E503F0750101C3750000E501F5DC +:10084000F0E50B35F0F501E500F5F0E50C35F0F5D8 +:1008500000E50AF503E500F502E501F582E502F59C +:1008600083E503F0750102C3750000E501F5F0E5CD +:100870000E35F0F50BE500F5F0E50F35F0F50C75EC +:100880000900750A00750100C3750000E501F5F067 +:10089000E50B35F0F501E500F5F0E50C35F0F50078 +:1008A000E509F503E500F502E501F582E502F583CA +:1008B000E503F0750101C3750000E501F5F0E50BF6 +:1008C00035F0F501E500F5F0E50C35F0F500E50A49 +:1008D000F503E500F502E501F582E502F583E503A0 +:1008E000F0750104C3750000E501F5F0E50E35F083 +:1008F000F50CE500F5F0E50F35F0F50D750902751D +:100900000A00750B00751400750100C3750000E541 +:1009100001F5F0E50C35F0F501E500F5F0E50D35F4 +:10092000F0F500E509F503E500F502E501F582E5DE +:1009300002F583E503F0750101C3750000E501F5DB +:10094000F0E50C35F0F501E500F5F0E50D35F0F5D5 +:1009500000E50AF503E500F502E501F582E502F59B +:1009600083E503F0750102C3750000E501F5F0E5CC +:100970000C35F0F501E500F5F0E50D35F0F500E595 +:100980000BF503E500F502E501F582E502F583E5E7 +:1009900003F0750103C3750000E501F5F0E50C35C2 +:1009A000F0F501E500F5F0E50D35F0F500E514F59D +:1009B00003E500F502E501F582E502F583E503F0C4 +:1009C000750108C3750000E501F5F0E50E35F0F599 +:1009D00009E500F5F0E50F35F0F50A750100C3757E +:1009E0000000E501F5F0E50935F0F501E500F5F069 +:1009F000E50A35F0F50075E0082506F58275E0009A +:100A00003507F583E0F508E508F503E500F502E5AF +:100A100001F582E502F583E503F0750101C3750078 +:100A200000E501F5F0E50935F0F501E500F5F0E543 +:100A30000A35F0F50075E0072506F58275E000350A +:100A400007F583E0F508E508F503E500F502E501A3 +:100A5000F582E502F583E503F0750102C375000038 +:100A6000E501F5F0E50935F0F501E500F5F0E50AF9 +:100A700035F0F50075E0062506F58275E0003507CE +:100A8000F583E0F508E508F503E500F502E501F575 +:100A900082E502F583E503F0750103C3750000E507 +:100AA00001F5F0E50935F0F501E500F5F0E50A3569 +:100AB000F0F50075E0052506F58275E0003507F5CF +:100AC00083E0F508E508F503E500F502E501F582A8 +:100AD000E502F583E503F0750100C3750000E5014B +:100AE000F5F0E51035F0F509E500F5F0E51135F024 +:100AF000F50A750100C3750000E501F5F0E509355B +:100B0000F0F501E500F5F0E50A35F0F500E500F552 +:100B100002E501F582E502F583E0F50B750101C3FD +:100B2000750000E501F5F0E50935F0F501E500F5A2 +:100B3000F0E50A35F0F500E500F502E501F582E59E +:100B400002F583E0F501750000E50BF5F0E50045E1 +:100B5000F0F500E501F5F0E50045F0F500E5007081 +:100B600002800302132900750100C3750000E5012E +:100B7000F5F0E51035F0F509E500F5F0E51135F093 +:100B8000F50A750100C3750000E501F5F0E50935CA +:100B9000F0F501E500F5F0E50A35F0F500E50EF5B4 +:100BA00003E500F502E501F582E502F583E503F0D2 +:100BB000750101C3750000E501F5F0E50935F0F5B3 +:100BC00001E500F5F0E50A35F0F500E50FF503E580 +:100BD00000F502E501F582E502F583E503F0E50E97 +:100BE000F512E50FF5137500007501007509007524 +:100BF0000A00750C01C3750B00E500F5F0E50B95D7 +:100C0000F0F50B750B00E50BF5F0E50B35F0F50B8A +:100C1000E50BF5F0E50C65F0F50CC3750B00E5018F +:100C2000F5F0E50B95F0F50B750B00E50BF5F0E530 +:100C30000B35F0F50BE50BF5F0E50C65F0F50CC3A5 +:100C4000750B00E509F5F0E50B95F0F50B750B005C +:100C5000E50BF5F0E50B35F0F50BE50BF5F0E50CE4 +:100C600065F0F50CC3750B00E50AF5F0E50B95F0A2 +:100C7000F50B750B00E50BF5F0E50B35F0F50BE525 +:100C80000BF5F0E50C65F0F50C75010075090075C4 +:100C90000A00750000E50CF5F0E50045F0F500E50B +:100CA00001F5F0E50045F0F500E509F5F0E5004552 +:100CB000F0F500E50AF5F0E50045F0F500E5007017 +:100CC000028003020CC90207CA0000751F0C751EC2 +:100CD00000751D00751C00E582F502E583F503E54E +:100CE00002F50EE503F50F750100C3750000E5017F +:100CF000F5F0E50E35F0F50BE500F5F0E50F35F014 +:100D0000F50C750900750A00750100C3750000E552 +:100D100001F5F0E50B35F0F501E500F5F0E50C35F2 +:100D2000F0F500E509F503E500F502E501F582E5DA +:100D300002F583E503F0750101C3750000E501F5D7 +:100D4000F0E50B35F0F501E500F5F0E50C35F0F5D3 +:100D500000E50AF503E500F502E501F582E502F597 +:100D600083E503F0750102C3750000E501F5F0E5C8 +:100D70000E35F0F50BE500F5F0E50F35F0F50C75E7 +:100D80000900750A00750100C3750000E501F5F062 +:100D9000E50B35F0F501E500F5F0E50C35F0F50073 +:100DA000E509F503E500F502E501F582E502F583C5 +:100DB000E503F0750101C3750000E501F5F0E50BF1 +:100DC00035F0F501E500F5F0E50C35F0F500E50A44 +:100DD000F503E500F502E501F582E502F583E5039B +:100DE000F0750104C3750000E501F5F0E50E35F07E +:100DF000F50CE500F5F0E50F35F0F50D7509017519 +:100E00000A00750B00751400750100C3750000E53C +:100E100001F5F0E50C35F0F501E500F5F0E50D35EF +:100E2000F0F500E509F503E500F502E501F582E5D9 +:100E300002F583E503F0750101C3750000E501F5D6 +:100E4000F0E50C35F0F501E500F5F0E50D35F0F5D0 +:100E500000E50AF503E500F502E501F582E502F596 +:100E600083E503F0750102C3750000E501F5F0E5C7 +:100E70000C35F0F501E500F5F0E50D35F0F500E590 +:100E80000BF503E500F502E501F582E502F583E5E2 +:100E900003F0750103C3750000E501F5F0E50C35BD +:100EA000F0F501E500F5F0E50D35F0F500E514F598 +:100EB00003E500F502E501F582E502F583E503F0BF +:100EC000750108C3750000E501F5F0E50E35F0F594 +:100ED00009E500F5F0E50F35F0F50A750100C37579 +:100EE0000000E501F5F0E50935F0F501E500F5F064 +:100EF000E50A35F0F50075E00C2506F58275E00091 +:100F00003507F583E0F508E508F503E500F502E5AA +:100F100001F582E502F583E503F0750101C3750073 +:100F200000E501F5F0E50935F0F501E500F5F0E53E +:100F30000A35F0F50075E00B2506F58275E0003501 +:100F400007F583E0F508E508F503E500F502E5019E +:100F5000F582E502F583E503F0750102C375000033 +:100F6000E501F5F0E50935F0F501E500F5F0E50AF4 +:100F700035F0F50075E00A2506F58275E0003507C5 +:100F8000F583E0F508E508F503E500F502E501F570 +:100F900082E502F583E503F0750103C3750000E502 +:100FA00001F5F0E50935F0F501E500F5F0E50A3564 +:100FB000F0F50075E0092506F58275E0003507F5C6 +:100FC00083E0F508E508F503E500F502E501F582A3 +:100FD000E502F583E503F0750100C3750000E50146 +:100FE000F5F0E51035F0F509E500F5F0E51135F01F +:100FF000F50A750100C3750000E501F5F0E5093556 +:10100000F0F501E500F5F0E50A35F0F500E500F54D +:1010100002E501F582E502F583E0F50B750101C3F8 +:10102000750000E501F5F0E50935F0F501E500F59D +:10103000F0E50A35F0F500E500F502E501F582E599 +:1010400002F583E0F501750000E50BF5F0E50045DC +:10105000F0F500E501F5F0E50045F0F500E500707C +:101060000280030212AE00750100C3750000E501A5 +:10107000F5F0E51035F0F509E500F5F0E51135F08E +:10108000F50A750100C3750000E501F5F0E50935C5 +:10109000F0F501E500F5F0E50A35F0F500E50EF5AF +:1010A00003E500F502E501F582E502F583E503F0CD +:1010B000750101C3750000E501F5F0E50935F0F5AE +:1010C00001E500F5F0E50A35F0F500E50FF503E57B +:1010D00000F502E501F582E502F583E503F0E50E92 +:1010E000F512E50FF513750000750100750900751F +:1010F0000A00750C01C3750B00E500F5F0E50B95D2 +:10110000F0F50B750B00E50BF5F0E50B35F0F50B85 +:10111000E50BF5F0E50C65F0F50CC3750B00E5018A +:10112000F5F0E50B95F0F50B750B00E50BF5F0E52B +:101130000B35F0F50BE50BF5F0E50C65F0F50CC3A0 +:10114000750B00E509F5F0E50B95F0F50B750B0057 +:10115000E50BF5F0E50B35F0F50BE50BF5F0E50CDF +:1011600065F0F50CC3750B00E50AF5F0E50B95F09D +:10117000F50B750B00E50BF5F0E50B35F0F50BE520 +:101180000BF5F0E50C65F0F50C75010075090075BF +:101190000A00750000E50CF5F0E50045F0F500E506 +:1011A00001F5F0E50045F0F500E509F5F0E500454D +:1011B000F0F500E50AF5F0E50045F0F500E5007012 +:1011C0000280030211C9020CCA00750000E510F587 +:1011D00002E511F503E500F504E500F50575E016F7 +:1011E0002506F58275E0003507F583E0F51775E013 +:1011F000152506F58275E0003507F583E0F51675CF +:10120000E0142506F58275E0003507F583E0F51555 +:1012100075E0132506F58275E0003507F583E0F5E6 +:101220001475E0122506F58275E0003507F583E0B8 +:10123000F51375E0112506F58275E0003507F58395 +:10124000E0F51275E0102506F58275E0003507F52A +:1012500083E0F51175E00F2506F58275E00035078E +:10126000F583E0F51075E00D2506F58275E0003593 +:1012700007F583E0F508E508C0E075E00E2506F502 +:101280008275E0003507F583E0F508E508C0E075F4 +:10129000E0232506F50675E0003507F507E502F5BC +:1012A00082E503F583E504F500E505F50122007507 +:1012B0000002C3750100E500F5F0E51235F0F50018 +:1012C000E501F5F0E51335F0F50A750900C3750180 +:1012D00000E509F5F0E50035F0F509E501F5F0E583 +:1012E0000A35F0F501E50EF503E501F502E509F52E +:1012F00082E502F583E503F0750901C3750100E598 +:1013000009F5F0E50035F0F509E501F5F0E50A35F8 +:10131000F0F501E50FF503E501F502E509F582E5D4 +:1013200002F583E503F00210DE00750002C37501CB +:1013300000E500F5F0E51235F0F500E501F5F0E522 +:101340001335F0F50A750900C3750100E509F5F0DC +:10135000E50035F0F509E501F5F0E50A35F0F501B0 +:10136000E50EF503E501F502E509F582E502F583F1 +:10137000E503F0750901C3750100E509F5F0E50025 +:1013800035F0F509E501F5F0E50A35F0F501E50F71 +:10139000F503E501F502E509F582E502F583E503CC +:1013A000F0020BDE00750002C3750100E500F5F0E8 +:1013B000E51235F0F500E501F5F0E51335F0F50A35 +:1013C000750900C3750100E509F5F0E50035F0F594 +:1013D00009E501F5F0E50A35F0F501E50EF503E55F +:1013E00001F502E509F582E502F583E503F07509EB +:1013F00001C3750100E509F5F0E50035F0F509E5F3 +:1014000001F5F0E50A35F0F501E50FF503E501F525 +:1014100002E509F582E502F583E503F00206DE0048 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-6.s.expected b/tests/GCCTestSuite/uninit-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-8.c b/tests/GCCTestSuite/uninit-8.c new file mode 100644 index 0000000..98700f4 --- /dev/null +++ b/tests/GCCTestSuite/uninit-8.c @@ -0,0 +1,32 @@ +/* Uninitialized variable warning tests... + Inspired by part of optabs.c:expand_binop. + May be the same as uninit-1.c. */ + +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +#include + +void +add_bignums (int *out, int *x, int *y) +{ + int p, sum; + int carry; /* { dg-bogus "carry" "uninitialized variable warning" } */ + + p = 0; + for (; *x; x++, y++, out++, p++) + { + if (p) + sum = *x + *y + carry; + else + sum = *x + *y; + + if (sum < 0) + { + carry = 1; + sum -= INT_MAX; + } + else + carry = 0; + } +} diff --git a/tests/GCCTestSuite/uninit-8.c.expected b/tests/GCCTestSuite/uninit-8.c.expected new file mode 100644 index 0000000..98700f4 --- /dev/null +++ b/tests/GCCTestSuite/uninit-8.c.expected @@ -0,0 +1,32 @@ +/* Uninitialized variable warning tests... + Inspired by part of optabs.c:expand_binop. + May be the same as uninit-1.c. */ + +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +#include + +void +add_bignums (int *out, int *x, int *y) +{ + int p, sum; + int carry; /* { dg-bogus "carry" "uninitialized variable warning" } */ + + p = 0; + for (; *x; x++, y++, out++, p++) + { + if (p) + sum = *x + *y + carry; + else + sum = *x + *y; + + if (sum < 0) + { + carry = 1; + sum -= INT_MAX; + } + else + carry = 0; + } +} diff --git a/tests/GCCTestSuite/uninit-8.hex.expected b/tests/GCCTestSuite/uninit-8.hex.expected new file mode 100644 index 0000000..5b2c0e9 --- /dev/null +++ b/tests/GCCTestSuite/uninit-8.hex.expected @@ -0,0 +1,190 @@ +:1000000000E506758210C39582F506E50775830045 +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F075E0E3 +:10004000092506F58275E0003507F583E517F0759B +:10005000E0082506F58275E0003507F583E516F022 +:1000600075E0072506F58275E0003507F583E5158F +:10007000F075E0062506F58275E0003507F583E5A5 +:1000800014F075E0052506F58275E0003507F58367 +:10009000E513F075E0042506F58275E0003507F5F7 +:1000A00083E512F075E0032506F58275E00035075B +:1000B000F583E511F075E0022506F58275E000355F +:1000C00007F583E510F0751800751900751E0075A9 +:1000D0001F00750B00C3750000E50BF5F0E51D353D +:1000E000F0F50BE500F5F0E51C35F0F50AE50AF54D +:1000F00002E50BF582E502F583E0F500750B01C31F +:10010000750100E50BF5F0E51D35F0F50BE501F5A2 +:10011000F0E51C35F0F50AE50AF502E50BF582E598 +:1001200002F583E0F501750B02C3750900E50BF5D7 +:10013000F0E51D35F0F50BE509F5F0E51C35F0F5BA +:100140000AE50AF502E50BF582E502F583E0F5091B +:10015000750B03C3750A00E50BF5F0E51D35F0F5E9 +:100160000BE50AF5F0E51C35F0F50AE50AF502E5C0 +:100170000BF582E502F583E0F50A750C01C3750BFA +:1001800000E500F5F0E50B95F0F50B750B00E50BC0 +:10019000F5F0E50B35F0F50BE50BF5F0E50C65F04A +:1001A000F50CC3750B00E501F5F0E50B95F0F50BCB +:1001B000750B00E50BF5F0E50B35F0F50BE50BF5F0 +:1001C000F0E50C65F0F50CC3750B00E509F5F0E5FD +:1001D0000B95F0F50B750B00E50BF5F0E50B35F025 +:1001E000F50BE50BF5F0E50C65F0F50CC3750B00B0 +:1001F000E50AF5F0E50B95F0F50B750B00E50BF551 +:10020000F0E50B35F0F50BE50BF5F0E50C65F0F5D9 +:100210000C750100750900750A00750000E50CF504 +:10022000F0E50045F0F500E501F5F0E50045F0F5F5 +:1002300000E509F5F0E50045F0F500E50AF5F0E523 +:100240000045F0F500E50070028003020ADC00754D +:100250000000E518F5F0E50045F0F500E519F5F0CA +:10026000E50045F0F500E51EF5F0E50045F0F50088 +:10027000E51FF5F0E50045F0F500E50070028003AC +:1002800002093000750100C3750000E501F5F0E5D5 +:100290001D35F0F501E500F5F0E51C35F0F500E55C +:1002A00000F502E501F582E502F583E0F50E750142 +:1002B00001C3750000E501F5F0E51D35F0F501E538 +:1002C00000F5F0E51C35F0F500E500F502E501F577 +:1002D00082E502F583E0F50D750102C3750000E5C6 +:1002E00001F5F0E51D35F0F501E500F5F0E51C350B +:1002F000F0F500E500F502E501F582E502F583E0A1 +:10030000F50B750103C3750000E501F5F0E51D353A +:10031000F0F501E500F5F0E51C35F0F500E500F538 +:1003200002E501F582E502F583E0F509750F00C3EA +:10033000750000E50FF5F0E51B35F0F50FE500F56C +:10034000F0E51A35F0F501E501F502E50FF582E576 +:1003500002F583E0F500750F01C3750100E50FF5A7 +:10036000F0E51B35F0F50FE501F5F0E51A35F0F590 +:1003700001E501F502E50FF582E502F583E0F50CF4 +:10038000750F02C3750100E50FF5F0E51B35F0F5BB +:100390000FE501F5F0E51A35F0F501E501F502E5A7 +:1003A0000FF582E502F583E0F50A750F03C37501C9 +:1003B00000E50FF5F0E51B35F0F50FE501F5F0E58B +:1003C0001A35F0F501E501F502E50FF582E502F5D4 +:1003D00083E0F501C3750F00E500F5F0E50E35F09B +:1003E000F500E50CF5F0E50D35F0F50DE50AF5F055 +:1003F000E50B35F0F50EE501F5F0E50935F0F50F03 +:10040000751600751200751000750C00E500F517E3 +:10041000750080E500F5F0E50F25F0F50FE500F536 +:10042000F0E50C25F0F50C750B0075130075140044 +:10043000751500750A00751101750001C3E50CF50D +:10044000F0E50F95F0F509E50AF5F0E50A35F0F568 +:1004500009E509F5F0E50055F0F500E500F5F0E5F2 +:100460000B45F0F50B750001C3E50CF5F0E50F95B4 +:10047000F0F509E50AF5F0E50A35F0F509E50FF5BF +:10048000F0E50C95F0F501E50AF5F0E50A35F0F533 +:1004900001E501F5F0E50945F0F509E511F5F0E5AF +:1004A0000965F0F509E509F5F0E50055F0F500C33B +:1004B000E510F5F0E50E95F0F509E50AF5F0E50A29 +:1004C00035F0F509E509F5F0E50055F0F500E50032 +:1004D000F5F0E50B45F0F50B750001C3E50CF5F003 +:1004E000E50F95F0F509E50AF5F0E50A35F0F509AF +:1004F000E50FF5F0E50C95F0F501E50AF5F0E50AF4 +:1005000035F0F501E501F5F0E50945F0F509E511EE +:10051000F5F0E50965F0F509E509F5F0E50055F0B8 +:10052000F500C3E510F5F0E50E95F0F509E50AF5DF +:10053000F0E50A35F0F509E50EF5F0E51095F0F572 +:1005400001E50AF5F0E50A35F0F501E501F5F0E51C +:100550000945F0F509E511F5F0E50965F0F509E55E +:1005600009F5F0E50055F0F500C3E512F5F0E50DED +:1005700095F0F509E50AF5F0E50A35F0F509E50924 +:10058000F5F0E50055F0F500E500F5F0E50B45F078 +:10059000F50B750001C3E50CF5F0E50F95F0F509D5 +:1005A000E50AF5F0E50A35F0F509E50FF5F0E50C9B +:1005B00095F0F501E50AF5F0E50A35F0F501E501FC +:1005C000F5F0E50945F0F509E511F5F0E50965F007 +:1005D000F509E509F5F0E50055F0F500C3E510F57E +:1005E000F0E50E95F0F509E50AF5F0E50A35F0F5C8 +:1005F00009E50EF5F0E51095F0F501E50AF5F0E5F1 +:100600000A35F0F501E501F5F0E50945F0F509E5F4 +:1006100011F5F0E50965F0F509E509F5F0E5005596 +:10062000F0F500C3E512F5F0E50D95F0F509E50AE2 +:10063000F5F0E50A35F0F509E50DF5F0E51295F070 +:10064000F501E50AF5F0E50A35F0F501E501F5F00B +:10065000E50945F0F509E511F5F0E50965F0F5095D +:10066000E509F5F0E50055F0F500C3E516F5F0E510 +:100670001795F0F509E50AF5F0E50A35F0F509E515 +:1006800009F5F0E50055F0F500E500F5F0E50B455E +:10069000F0F50B750000E50BF5F0E50045F0F50011 +:1006A000E513F5F0E50045F0F500E514F5F0E5009B +:1006B00045F0F500E515F5F0E50045F0F500E5003D +:1006C0007002800302091E0075100075110075127A +:1006D00000751300750001750100750C04750D009F +:1006E000750E00750F00C3750900E500F5F0E50C07 +:1006F000A4F50BE500F5F0E50CA4E5F0F50AE50B33 +:10070000F5F0E50935F0F509E501F5F0E50CA4F59E +:100710000BE501F5F0E50CA4E5F0F501E50BF5F0CE +:10072000E50A35F0F50AC3C3750100E509F5F0E502 +:100730000E35F0F50EE50AF5F0E50F35F0F50FC3CF +:10074000750A00E500F5F0E50DA4F50BE500F5F000 +:10075000E50DA4E5F0F501E50BF5F0E50A35F0F55A +:100760000A750900C3C3750000E509F5F0E50E350B +:10077000F0F50EE50AF5F0E50F35F0F50FC3750954 +:1007800000750A00C3C3750000E509F5F0E50E35F4 +:10079000F0F50EE50AF5F0E50F35F0F50FC3750934 +:1007A00000750A00C3C3750000E509F5F0E50E35D4 +:1007B000F0F50EE50AF5F0E50F35F0F50FC375001D +:1007C00000E50EF5F0E51D35F0F51DE50FF5F0E55A +:1007D0001C35F0F51C750001750100750C04750DD4 +:1007E00000750E00750F00C3750900E500F5F0E512 +:1007F0000CA4F50BE500F5F0E50CA4E5F0F50AE531 +:100800000BF5F0E50935F0F509E501F5F0E50CA487 +:10081000F50BE501F5F0E50CA4E5F0F501E50BF5C8 +:10082000F0E50A35F0F50AC3C3750100E509F5F0F6 +:10083000E50E35F0F50EE50AF5F0E50F35F0F50FAC +:10084000C3750A00E500F5F0E50DA4F50BE500F52C +:10085000F0E50DA4E5F0F501E50BF5F0E50A35F05E +:10086000F50A750900C3C3750000E509F5F0E50E4A +:1008700035F0F50EE50AF5F0E50F35F0F50FC37527 +:100880000900750A00C3C3750000E509F5F0E50E1F +:1008900035F0F50EE50AF5F0E50F35F0F50FC37507 +:1008A0000900750A00C3C3750000E509F5F0E50EFF +:1008B00035F0F50EE50AF5F0E50F35F0F50FC375E7 +:1008C0000000E50EF5F0E51B35F0F51BE50FF5F042 +:1008D000E51A35F0F51AC3C3C3C3C3C3C3C3C3C347 +:1008E000C3C3C3750101750900750A00750B00C308 +:1008F000750000E501F5F0E51835F0F518E509F5A6 +:10090000F0E51935F0F519E50AF5F0E51E35F0F5D5 +:100910001EE50BF5F0E51F35F0F51F0200D200755E +:100920001001751100751200751300D3C30206D4AF +:1009300000750100C3750000E501F5F0E51D35F017 +:10094000F501E500F5F0E51C35F0F500E500F502F0 +:10095000E501F582E502F583E0F50C750101C3754B +:100960000000E501F5F0E51D35F0F501E500F5F0D5 +:10097000E51C35F0F500E500F502E501F582E5023C +:10098000F583E0F50D750102C3750000E501F5F092 +:10099000E51D35F0F501E500F5F0E51C35F0F50055 +:1009A000E500F502E501F582E502F583E0F50E7557 +:1009B0000103C3750000E501F5F0E51D35F0F50113 +:1009C000E500F5F0E51C35F0F500E500F502E50180 +:1009D000F582E502F583E0F50F750100C3750000AF +:1009E000E501F5F0E51B35F0F501E500F5F0E51A58 +:1009F00035F0F500E500F502E501F582E502F58345 +:100A0000E0F509750101C3750000E501F5F0E51B8E +:100A100035F0F501E500F5F0E51A35F0F500E500F3 +:100A2000F502E501F582E502F583E0F50A750102BC +:100A3000C3750000E501F5F0E51B35F0F501E500B3 +:100A4000F5F0E51A35F0F500E500F502E501F5826F +:100A5000E502F583E0F50B750103C3750000E501C0 +:100A6000F5F0E51B35F0F501E500F5F0E51A35F098 +:100A7000F500E500F502E501F582E502F583E0F514 +:100A800000C3750100E509F5F0E50C35F0F501E569 +:100A90000AF5F0E50D35F0F509E50BF5F0E50E3555 +:100AA000F0F50AE500F5F0E50F35F0F50BC375003C +:100AB00000E510F5F0E50135F0F500E511F5F0E59C +:100AC0000935F0F50DE512F5F0E50A35F0F50EE51E +:100AD00013F5F0E50B35F0F50F020400007500008A +:100AE000E500F502E500F503E500F504E500F50590 +:100AF00075E0092506F58275E0003507F583E0F518 +:100B00001775E0082506F58275E0003507F583E0E6 +:100B1000F51675E0072506F58275E0003507F583C3 +:100B2000E0F51575E0062506F58275E0003507F558 +:100B300083E0F51475E0052506F58275E0003507BC +:100B4000F583E0F51375E0042506F58275E00035C0 +:100B500007F583E0F51275E0032506F58275E000E0 +:100B60003507F583E0F51175E0022506F58275E09D +:100B7000003507F583E0F51075E0002506F5827570 +:100B8000E0003507F583E0F508E508C0E075E00111 +:100B90002506F58275E0003507F583E0F508E508E0 +:100BA000C0E075E0102506F50675E0003507F5078D +:100BB000E502F582E503F583E504F500E505F501B9 +:100BC0002200000000000000000000000000000003 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-8.s.expected b/tests/GCCTestSuite/uninit-8.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-8.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-B.c b/tests/GCCTestSuite/uninit-B.c new file mode 100644 index 0000000..450bb38 --- /dev/null +++ b/tests/GCCTestSuite/uninit-B.c @@ -0,0 +1,15 @@ +/* Origin: PR c/179 from Gray Watson , adapted as a testcase + by Joseph Myers . */ +/* { dg-do compile } */ +/* { dg-options "-O2 -Wuninitialized" } */ +extern void foo (int *); +extern void bar (int); + +void +baz (void) +{ + int i; + if (i) /* { dg-warning "uninit" "uninit i warning" { xfail *-*-* } } */ + bar (i); + foo (&i); +} diff --git a/tests/GCCTestSuite/uninit-B.c.expected b/tests/GCCTestSuite/uninit-B.c.expected new file mode 100644 index 0000000..450bb38 --- /dev/null +++ b/tests/GCCTestSuite/uninit-B.c.expected @@ -0,0 +1,15 @@ +/* Origin: PR c/179 from Gray Watson , adapted as a testcase + by Joseph Myers . */ +/* { dg-do compile } */ +/* { dg-options "-O2 -Wuninitialized" } */ +extern void foo (int *); +extern void bar (int); + +void +baz (void) +{ + int i; + if (i) /* { dg-warning "uninit" "uninit i warning" { xfail *-*-* } } */ + bar (i); + foo (&i); +} diff --git a/tests/GCCTestSuite/uninit-B.hex.expected b/tests/GCCTestSuite/uninit-B.hex.expected new file mode 100644 index 0000000..a917eb2 --- /dev/null +++ b/tests/GCCTestSuite/uninit-B.hex.expected @@ -0,0 +1,44 @@ +:10000000000000E506758206C39582F506E50775D2 +:1000100083009583F507D0E0F50875E0052506F522 +:100020008275E0003507F583E508F0D0E0F5087546 +:10003000E0042506F58275E0003507F583E508F054 +:10004000E506F509E507F50A750100C3750000E549 +:1000500001F5F0E50935F0F501E500F5F0E50A35C3 +:10006000F0F500E501F509E500F50A750100C37535 +:100070000000E501F5F0E50935F0F501E500F5F0E2 +:10008000E50A35F0F500E500F502E501F582E50247 +:10009000F583E0F50B750101C3750000E501F5F08E +:1000A000E50935F0F501E500F5F0E50A35F0F50074 +:1000B000E500F502E501F582E502F583E0F50C7552 +:1000C0000102C3750000E501F5F0E50935F0F50121 +:1000D000E500F5F0E50A35F0F500E500F502E5018B +:1000E000F582E502F583E0F50D750103C3750000A7 +:1000F000E501F5F0E50935F0F501E500F5F0E50A73 +:1001000035F0F500E500F502E501F582E502F5833D +:10011000E0F501750000E50BF5F0E50045F0F500B0 +:10012000E50CF5F0E50045F0F500E50DF5F0E5002E +:1001300045F0F500E501F5F0E50045F0F500E500D6 +:10014000700280030201CF00E506F509E507F50A14 +:10015000750100C3750000E501F5F0E50935F0F51E +:1001600001E500F5F0E50A35F0F500E501F51FE5DC +:1001700000F51E750000E500F502E500F503E50059 +:10018000F504E500F50575E0042506F58275E00047 +:100190003507F583E0F508E508C0E075E0052506BC +:1001A000F58275E0003507F583E0F508E508C0E065 +:1001B00075E0062506F50675E0003507F507E5024A +:1001C000F582E503F583E504F500E505F501220078 +:1001D000E506F509E507F50A750100C3750000E5B8 +:1001E00001F5F0E50935F0F501E500F5F0E50A3532 +:1001F000F0F500E501F509E500F50A750100C375A4 +:100200000000E501F5F0E50935F0F501E500F5F050 +:10021000E50A35F0F500E500F502E501F582E502B5 +:10022000F583E0F51F750101C3750000E501F5F0E8 +:10023000E50935F0F501E500F5F0E50A35F0F500E2 +:10024000E500F502E501F582E502F583E0F51E75AE +:100250000102C3750000E501F5F0E50935F0F5018F +:10026000E500F5F0E50A35F0F500E500F502E501F9 +:10027000F582E502F583E0F51D750103C375000005 +:10028000E501F5F0E50935F0F501E500F5F0E50AE1 +:1002900035F0F500E500F502E501F582E502F583AC +:1002A000E0F500E500F51C02014800000000000038 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-B.s.expected b/tests/GCCTestSuite/uninit-B.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-B.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-C.c b/tests/GCCTestSuite/uninit-C.c new file mode 100644 index 0000000..741106c --- /dev/null +++ b/tests/GCCTestSuite/uninit-C.c @@ -0,0 +1,21 @@ +/* Spurious uninitialized variable warning, inspired by libgcc2.c. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +/* Not all platforms support TImode integers. */ +#if defined(__LP64__) && !defined(__hppa__) +typedef int TItype __attribute__ ((mode (TI))); +#else +typedef long TItype; +#endif + + +TItype +__subvdi3 (TItype a, TItype b) +{ + TItype w; + + w = a - b; + + return w; +} diff --git a/tests/GCCTestSuite/uninit-C.c.expected b/tests/GCCTestSuite/uninit-C.c.expected new file mode 100644 index 0000000..741106c --- /dev/null +++ b/tests/GCCTestSuite/uninit-C.c.expected @@ -0,0 +1,21 @@ +/* Spurious uninitialized variable warning, inspired by libgcc2.c. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +/* Not all platforms support TImode integers. */ +#if defined(__LP64__) && !defined(__hppa__) +typedef int TItype __attribute__ ((mode (TI))); +#else +typedef long TItype; +#endif + + +TItype +__subvdi3 (TItype a, TItype b) +{ + TItype w; + + w = a - b; + + return w; +} diff --git a/tests/GCCTestSuite/uninit-C.hex.expected b/tests/GCCTestSuite/uninit-C.hex.expected new file mode 100644 index 0000000..d20221f --- /dev/null +++ b/tests/GCCTestSuite/uninit-C.hex.expected @@ -0,0 +1,10 @@ +:1000000000E506758208C39582F506E5077583004D +:100010009583F507D0E0F50CD0E0F50EE511F5017C +:10002000E510F50AC3E51BF5F0E51F95F0F500E5D1 +:100030001AF5F0E51E95F0F509E519F5F0E51D95C1 +:10004000F0F50BE518F5F0E51C95F0F50DE500F57C +:1000500002E509F503E50BF504E50DF505E501F508 +:1000600011E50AF510E50EC0E0E50CC0E075E0080A +:100070002506F50675E0003507F507E502F582E58A +:1000800003F583E504F500E505F501220000000015 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-C.s.expected b/tests/GCCTestSuite/uninit-C.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-C.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-D.c b/tests/GCCTestSuite/uninit-D.c new file mode 100644 index 0000000..ea957e4 --- /dev/null +++ b/tests/GCCTestSuite/uninit-D.c @@ -0,0 +1,9 @@ +/* Test we do not warn about initializing variable with self. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +int f() +{ + int i = i; + return i; +} diff --git a/tests/GCCTestSuite/uninit-D.c.expected b/tests/GCCTestSuite/uninit-D.c.expected new file mode 100644 index 0000000..ea957e4 --- /dev/null +++ b/tests/GCCTestSuite/uninit-D.c.expected @@ -0,0 +1,9 @@ +/* Test we do not warn about initializing variable with self. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +int f() +{ + int i = i; + return i; +} diff --git a/tests/GCCTestSuite/uninit-D.hex.expected b/tests/GCCTestSuite/uninit-D.hex.expected new file mode 100644 index 0000000..1f7859d --- /dev/null +++ b/tests/GCCTestSuite/uninit-D.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501E509F502E50AF5DC +:1000100003E50BF504E50CF505E501C0E0E500C0DE +:10002000E0E502F582E503F583E504F500E505F575 +:10003000012200000000000000000000000000009D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-D.s.expected b/tests/GCCTestSuite/uninit-D.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-D.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-E.c b/tests/GCCTestSuite/uninit-E.c new file mode 100644 index 0000000..eb356c3 --- /dev/null +++ b/tests/GCCTestSuite/uninit-E.c @@ -0,0 +1,9 @@ +/* Test we do warn about initializing variable with self when -Winit-self is supplied. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized -Winit-self" } */ + +int f() +{ + int i = i; /* { dg-warning "i" "uninitialized variable warning" } */ + return i; +} diff --git a/tests/GCCTestSuite/uninit-E.c.expected b/tests/GCCTestSuite/uninit-E.c.expected new file mode 100644 index 0000000..eb356c3 --- /dev/null +++ b/tests/GCCTestSuite/uninit-E.c.expected @@ -0,0 +1,9 @@ +/* Test we do warn about initializing variable with self when -Winit-self is supplied. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized -Winit-self" } */ + +int f() +{ + int i = i; /* { dg-warning "i" "uninitialized variable warning" } */ + return i; +} diff --git a/tests/GCCTestSuite/uninit-E.hex.expected b/tests/GCCTestSuite/uninit-E.hex.expected new file mode 100644 index 0000000..1f7859d --- /dev/null +++ b/tests/GCCTestSuite/uninit-E.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501E509F502E50AF5DC +:1000100003E50BF504E50CF505E501C0E0E500C0DE +:10002000E0E502F582E503F583E504F500E505F575 +:10003000012200000000000000000000000000009D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-E.s.expected b/tests/GCCTestSuite/uninit-E.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-E.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-F.c b/tests/GCCTestSuite/uninit-F.c new file mode 100644 index 0000000..1dbb365 --- /dev/null +++ b/tests/GCCTestSuite/uninit-F.c @@ -0,0 +1,9 @@ +/* Test we do warn about initializing variable with self in the initialization. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +int f() +{ + int i = i + 1; /* { dg-warning "i" "uninitialized variable warning" } */ + return i; +} diff --git a/tests/GCCTestSuite/uninit-F.c.expected b/tests/GCCTestSuite/uninit-F.c.expected new file mode 100644 index 0000000..1dbb365 --- /dev/null +++ b/tests/GCCTestSuite/uninit-F.c.expected @@ -0,0 +1,9 @@ +/* Test we do warn about initializing variable with self in the initialization. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +int f() +{ + int i = i + 1; /* { dg-warning "i" "uninitialized variable warning" } */ + return i; +} diff --git a/tests/GCCTestSuite/uninit-F.hex.expected b/tests/GCCTestSuite/uninit-F.hex.expected new file mode 100644 index 0000000..68dbf87 --- /dev/null +++ b/tests/GCCTestSuite/uninit-F.hex.expected @@ -0,0 +1,9 @@ +:1000000000D0E0F518D0E0F519E512F50F75000104 +:10001000750100750900750A00C3751200E500F549 +:10002000F0E50B35F0F50BE501F5F0E50C35F0F5F5 +:100030000CE509F5F0E50D35F0F50DE50AF5F0E50F +:100040000E35F0F50EE50BF502E50CF503E50DF5C3 +:1000500004E50EF505E50FF512E519C0E0E518C059 +:10006000E0E502F582E503F583E504F500E505F535 +:10007000012200000000000000000000000000005D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-F.s.expected b/tests/GCCTestSuite/uninit-F.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-F.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-G.c b/tests/GCCTestSuite/uninit-G.c new file mode 100644 index 0000000..08f5f53 --- /dev/null +++ b/tests/GCCTestSuite/uninit-G.c @@ -0,0 +1,9 @@ +/* Test we do not warn about initializing variable with address of self in the initialization. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +void *f() +{ + void *i = &i; + return i; +} diff --git a/tests/GCCTestSuite/uninit-G.c.expected b/tests/GCCTestSuite/uninit-G.c.expected new file mode 100644 index 0000000..08f5f53 --- /dev/null +++ b/tests/GCCTestSuite/uninit-G.c.expected @@ -0,0 +1,9 @@ +/* Test we do not warn about initializing variable with address of self in the initialization. */ +/* { dg-do compile } */ +/* { dg-options "-O -Wuninitialized" } */ + +void *f() +{ + void *i = &i; + return i; +} diff --git a/tests/GCCTestSuite/uninit-G.hex.expected b/tests/GCCTestSuite/uninit-G.hex.expected new file mode 100644 index 0000000..5b96c01 --- /dev/null +++ b/tests/GCCTestSuite/uninit-G.hex.expected @@ -0,0 +1,25 @@ +:1000000000E506758202C39582F506E50775830053 +:100010009583F507D0E0F50ED0E0F50FE510F50D6E +:10002000E506F50AE507F501750900C3750000E569 +:1000300009F5F0E50A35F0F50BE500F5F0E50135D9 +:10004000F0F50CE506F50AE507F501750900C3753D +:100050000000E509F5F0E50A35F0F509E500F5F0F1 +:10006000E50135F0F50A750100C3750000E501F5FD +:10007000F0E50B35F0F501E500F5F0E50C35F0F5B0 +:1000800000E509F503E500F502E501F582E502F575 +:1000900083E503F0750101C3750000E501F5F0E5A6 +:1000A0000B35F0F501E500F5F0E50C35F0F500E570 +:1000B0000AF503E500F502E501F582E502F583E5C1 +:1000C00003F0E506F509E507F50A750100C37500BB +:1000D00000E501F5F0E50935F0F501E500F5F0E59D +:1000E0000A35F0F500E501F509E500F50A750100AE +:1000F000C3750000E501F5F0E50935F0F501E5000F +:10010000F5F0E50A35F0F500E500F502E501F582C8 +:10011000E502F583E0F50B750101C3750000E5010B +:10012000F5F0E50935F0F501E500F5F0E50A35F003 +:10013000F500E500F502E501F582E502F583E0F55D +:1001400001750000E50BF502E501F503E500F50496 +:10015000E500F505E50DF510E50FC0E0E50EC0E0A2 +:1001600075E0022506F50675E0003507F507E5029E +:10017000F582E503F583E504F500E505F5012200C8 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-G.s.expected b/tests/GCCTestSuite/uninit-G.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-G.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-H.c b/tests/GCCTestSuite/uninit-H.c new file mode 100644 index 0000000..b93bf8d --- /dev/null +++ b/tests/GCCTestSuite/uninit-H.c @@ -0,0 +1,33 @@ +/* PR 14204 */ +/* { dg-do compile } */ +/* { dg-options "-O -Wall -Werror" } */ + +#if defined __alpha__ +# define ASM __asm__("$30") +#elif defined __i386__ +# define ASM __asm__("esp") +#elif defined (__powerpc__) || defined (__PPC__) || defined (__ppc__) || defined (_POWER) +# define ASM __asm__("r1") +#elif defined __s390__ +# define ASM __asm__("r15") +#elif defined __mips +# define ASM __asm__("$sp") +#elif defined __sparc__ +# define ASM __asm__("sp") +#elif defined __ia64__ +# define ASM __asm__("r12") +#elif defined __hppa__ +# define ASM __asm__("%r30") +#elif defined __xtensa__ +# define ASM __asm__("sp") +#else +/* The register name should be target-dependent so for other targets, + we just silence the test. */ +# define ASM = 0 +#endif + +void *load_PCB (void) +{ + register void *sp ASM; + return sp; /* { dg-bogus "uninitialized" } */ +} diff --git a/tests/GCCTestSuite/uninit-H.c.expected b/tests/GCCTestSuite/uninit-H.c.expected new file mode 100644 index 0000000..b93bf8d --- /dev/null +++ b/tests/GCCTestSuite/uninit-H.c.expected @@ -0,0 +1,33 @@ +/* PR 14204 */ +/* { dg-do compile } */ +/* { dg-options "-O -Wall -Werror" } */ + +#if defined __alpha__ +# define ASM __asm__("$30") +#elif defined __i386__ +# define ASM __asm__("esp") +#elif defined (__powerpc__) || defined (__PPC__) || defined (__ppc__) || defined (_POWER) +# define ASM __asm__("r1") +#elif defined __s390__ +# define ASM __asm__("r15") +#elif defined __mips +# define ASM __asm__("$sp") +#elif defined __sparc__ +# define ASM __asm__("sp") +#elif defined __ia64__ +# define ASM __asm__("r12") +#elif defined __hppa__ +# define ASM __asm__("%r30") +#elif defined __xtensa__ +# define ASM __asm__("sp") +#else +/* The register name should be target-dependent so for other targets, + we just silence the test. */ +# define ASM = 0 +#endif + +void *load_PCB (void) +{ + register void *sp ASM; + return sp; /* { dg-bogus "uninitialized" } */ +} diff --git a/tests/GCCTestSuite/uninit-H.hex.expected b/tests/GCCTestSuite/uninit-H.hex.expected new file mode 100644 index 0000000..2f63230 --- /dev/null +++ b/tests/GCCTestSuite/uninit-H.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750B00E509F50240 +:10001000E50AF503E50BF504E50BF505E501C0E0A0 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-H.s.expected b/tests/GCCTestSuite/uninit-H.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-H.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-I.c b/tests/GCCTestSuite/uninit-I.c new file mode 100644 index 0000000..7be60d7 --- /dev/null +++ b/tests/GCCTestSuite/uninit-I.c @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -Wuninitialized" } */ + +int sys_msgctl (void) +{ + struct { int mode; } setbuf; /* { dg-warning "'setbuf\.mode' is used" } */ + return setbuf.mode; +} diff --git a/tests/GCCTestSuite/uninit-I.c.expected b/tests/GCCTestSuite/uninit-I.c.expected new file mode 100644 index 0000000..7be60d7 --- /dev/null +++ b/tests/GCCTestSuite/uninit-I.c.expected @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -Wuninitialized" } */ + +int sys_msgctl (void) +{ + struct { int mode; } setbuf; /* { dg-warning "'setbuf\.mode' is used" } */ + return setbuf.mode; +} diff --git a/tests/GCCTestSuite/uninit-I.hex.expected b/tests/GCCTestSuite/uninit-I.hex.expected new file mode 100644 index 0000000..ded3d6b --- /dev/null +++ b/tests/GCCTestSuite/uninit-I.hex.expected @@ -0,0 +1,23 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F518D0E0F519E511F50E58 +:10002000E510F50FE506F509E507F50A750100C3CA +:10003000750000E501F5F0E50935F0F501E500F59D +:10004000F0E50A35F0F50A750900C3750000E50909 +:10005000F5F0E50135F0F501E500F5F0E50A35F0DC +:10006000F500E501F509E500F50A750100C3750025 +:1000700000E501F5F0E50935F0F501E500F5F0E5FD +:100080000A35F0F500E500F502E501F582E502F537 +:1000900083E0F50B750101C3750000E501F5F0E59E +:1000A0000935F0F501E500F5F0E50A35F0F500E574 +:1000B00000F502E501F582E502F583E0F50C750136 +:1000C00002C3750000E501F5F0E50935F0F501E53D +:1000D00000F5F0E50A35F0F500E500F502E501F57B +:1000E00082E502F583E0F50D750103C3750000E5B7 +:1000F00001F5F0E50935F0F501E500F5F0E50A3523 +:10010000F0F500E500F502E501F582E502F583E092 +:10011000F500E50BF502E50CF503E50DF504E5004A +:10012000F505E50EF511E50FF510E519C0E0E51848 +:10013000C0E075E0042506F50675E0003507F50713 +:10014000E502F582E503F583E504F500E505F50133 +:10015000220000000000000000000000000000007D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/uninit-I.s.expected b/tests/GCCTestSuite/uninit-I.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/uninit-I.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/unroll-1.c b/tests/GCCTestSuite/unroll-1.c new file mode 100644 index 0000000..5ff07e2 --- /dev/null +++ b/tests/GCCTestSuite/unroll-1.c @@ -0,0 +1,27 @@ +/* PR optimization/8599 */ +/* { dg-do run } */ +/* { dg-options "-O2 -funroll-loops" } */ +/* { dg-options "-mtune=k6 -O2 -funroll-loops" { target { { i?86-*-* x86_64-*-* } && ilp32 } } } */ + + +extern void abort (void); + +int array[6] = { 1,2,3,4,5,6 }; + +void foo() +{ + int i; + + for (i = 0; i < 5; i++) + array[i] = 0; +} + +int main() +{ + foo(); + if (array[0] || array [1] || array[2] || array[3] || array[4]) + abort (); + if (array[5] != 6) + abort (); + return 0; +} diff --git a/tests/GCCTestSuite/unroll-1.c.expected b/tests/GCCTestSuite/unroll-1.c.expected new file mode 100644 index 0000000..5ff07e2 --- /dev/null +++ b/tests/GCCTestSuite/unroll-1.c.expected @@ -0,0 +1,27 @@ +/* PR optimization/8599 */ +/* { dg-do run } */ +/* { dg-options "-O2 -funroll-loops" } */ +/* { dg-options "-mtune=k6 -O2 -funroll-loops" { target { { i?86-*-* x86_64-*-* } && ilp32 } } } */ + + +extern void abort (void); + +int array[6] = { 1,2,3,4,5,6 }; + +void foo() +{ + int i; + + for (i = 0; i < 5; i++) + array[i] = 0; +} + +int main() +{ + foo(); + if (array[0] || array [1] || array[2] || array[3] || array[4]) + abort (); + if (array[5] != 6) + abort (); + return 0; +} diff --git a/tests/GCCTestSuite/unroll-1.hex.expected b/tests/GCCTestSuite/unroll-1.hex.expected new file mode 100644 index 0000000..0a6c658 --- /dev/null +++ b/tests/GCCTestSuite/unroll-1.hex.expected @@ -0,0 +1,434 @@ +:1000000075812F7506FF7507FF12068102000C002F +:1000100000E506758203C39582F506E50775830042 +:100020009583F507D0E0F50875E0012506F58275A2 +:10003000E0003507F583E508F0D0E0F50875E0004D +:100040002506F58275E0003507F583E508F0E5172C +:10005000F519E516F51AE515F51BE514F51CE5137C +:10006000F51DE512F51EE511F51F75E0022506F5F3 +:100070008275E0003507F583E510F0751100751203 +:1000800000751300751700751805751600750E00BC +:10009000750F00E517F510750080E500F5F0E51027 +:1000A00025F0F510E500F5F0E50F25F0F50F750CDE +:1000B00000750D00751400751500750B00750A01AB +:1000C000750001C3E50FF5F0E51095F0F509E50BB6 +:1000D000F5F0E50B35F0F509E509F5F0E50055F02B +:1000E000F500E500F5F0E50C45F0F50C750001C3F1 +:1000F000E50FF5F0E51095F0F509E50BF5F0E50BEA +:1001000035F0F509E510F5F0E50F95F0F501E50B93 +:10011000F5F0E50B35F0F501E501F5F0E50945F001 +:10012000F509E50AF5F0E50965F0F509E509F5F0E9 +:10013000E50055F0F500C3E50EF5F0E51395F0F593 +:1001400009E50BF5F0E50B35F0F509E509F5F0E506 +:100150000055F0F500E500F5F0E50C45F0F50C75FF +:100160000001C3E50FF5F0E51095F0F509E50BF595 +:10017000F0E50B35F0F509E510F5F0E50F95F0F534 +:1001800001E50BF5F0E50B35F0F501E501F5F0E5DE +:100190000945F0F509E50AF5F0E50965F0F509E529 +:1001A00009F5F0E50055F0F500C3E50EF5F0E513AF +:1001B00095F0F509E50BF5F0E50B35F0F509E513DC +:1001C000F5F0E50E95F0F501E50BF5F0E50B35F0F2 +:1001D000F501E501F5F0E50945F0F509E50AF5F069 +:1001E000E50965F0F509E509F5F0E50055F0F500DC +:1001F000C3E516F5F0E51295F0F509E50BF5F0E528 +:100200000B35F0F509E509F5F0E50055F0F500E5E9 +:1002100000F5F0E50C45F0F50C750001C3E50FF5B0 +:10022000F0E51095F0F509E50BF5F0E50B35F0F587 +:1002300009E510F5F0E50F95F0F501E50BF5F0E5B2 +:100240000B35F0F501E501F5F0E50945F0F509E5B7 +:100250000AF5F0E50965F0F509E509F5F0E5005561 +:10026000F0F500C3E50EF5F0E51395F0F509E50BA3 +:10027000F5F0E50B35F0F509E513F5F0E50E95F031 +:10028000F501E50BF5F0E50B35F0F501E501F5F0CD +:10029000E50945F0F509E50AF5F0E50965F0F50928 +:1002A000E509F5F0E50055F0F500C3E516F5F0E5D4 +:1002B0001295F0F509E50BF5F0E50B35F0F509E5DC +:1002C00012F5F0E51695F0F501E50BF5F0E50B35C7 +:1002D000F0F501E501F5F0E50945F0F509E50AF568 +:1002E000F0E50965F0F509E509F5F0E50055F0F5EB +:1002F00000C3E518F5F0E51195F0F509E50BF5F00B +:10030000E50B35F0F509E509F5F0E50055F0F500E8 +:10031000E500F5F0E50C45F0F50C750101C375003D +:1003200000E50CF5F0E50095F0F500750000E5003E +:10033000F5F0E50035F0F500E500F5F0E50165F0D4 +:10034000F501C3750000E50DF5F0E50095F0F50049 +:10035000750000E500F5F0E50035F0F500E500F585 +:10036000F0E50165F0F501C3750000E514F5F0E571 +:100370000095F0F500750000E500F5F0E50035F0BA +:10038000F500E500F5F0E50165F0F501C375000045 +:10039000E515F5F0E50095F0F500750000E500F5D0 +:1003A000F0E50035F0F500E500F5F0E50165F0F564 +:1003B00001750900750A00750B00750000E501F56F +:1003C000F0E50045F0F500E509F5F0E50045F0F54C +:1003D00000E50AF5F0E50045F0F500E50BF5F0E580 +:1003E0000045F0F500E500700280030205F700907B +:1003F0000000E582F50E900000E583F50F75090415 +:10040000750B00750C00750D00C3750000E511F546 +:10041000F0E509A4F50AE511F5F0E509A4E5F0F524 +:1004200001E50AF5F0E50035F0F500E512F5F0E537 +:1004300009A4F50AE512F5F0E509A4E5F0F509E5EA +:100440000AF5F0E50135F0F501C3C3750900E500D3 +:10045000F5F0E50C35F0F50CE501F5F0E50D35F0BE +:10046000F50DC3750100E511F5F0E50BA4F50AE5FE +:1004700011F5F0E50BA4E5F0F509E50AF5F0E50165 +:1004800035F0F501750000C3C3750900E500F5F00E +:10049000E50C35F0F50CE501F5F0E50D35F0F50D61 +:1004A000C3750000750100C3C3750900E500F5F0D0 +:1004B000E50C35F0F50CE501F5F0E50D35F0F50D41 +:1004C000C3750000750100C3C3750900E500F5F0B0 +:1004D000E50C35F0F50CE501F5F0E50D35F0F50D21 +:1004E000C3750000E50CF5F0E50E35F0F500E50DFF +:1004F000F5F0E50F35F0F50E750A00750B00750C7B +:1005000000750D00750900C3750100E509F5F0E5FA +:100510000035F0F509E501F5F0E50E35F0F501E5FA +:100520000AF503E501F502E509F582E502F583E543 +:1005300003F0750901C3750100E509F5F0E5003523 +:10054000F0F509E501F5F0E50E35F0F501E50BF5FF +:1005500003E501F502E509F582E502F583E503F01F +:10056000750902C3750100E509F5F0E50035F0F500 +:1005700009E501F5F0E50E35F0F501E50CF503E5CB +:1005800001F502E509F582E502F583E503F0750959 +:1005900003C3750100E509F5F0E50035F0F509E55F +:1005A00001F5F0E50E35F0F501E50DF503E501F592 +:1005B00002E509F582E502F583E503F075010175B1 +:1005C0000900750A00750B00C3750000E501F5F020 +:1005D000E51135F0F511E509F5F0E51235F0F51204 +:1005E000E50AF5F0E51335F0F513E50BF5F0E51741 +:1005F00035F0F51702008700750000E500F502E50B +:1006000000F503E500F504E500F505E519F517E546 +:100610001AF516E51BF515E51CF514E51DF513E5B2 +:100620001EF512E51FF51175E0022506F58275E04D +:10063000003507F583E0F51075E0002506F58275B5 +:10064000E0003507F583E0F508E508C0E075E00156 +:100650002506F58275E0003507F583E0F508E50825 +:10066000C0E075E0032506F50675E0003507F507DF +:10067000E502F582E503F583E504F500E505F501FE +:100680002200E506758204C39582F506E5077583A9 +:10069000009583F507D0E0F50875E0012506F582A1 +:1006A00075E0003507F583E508F0D0E0F50875E062 +:1006B000002506F58275E0003507F583E508F0753D +:1006C000E0032506F58275E0003507F583E511F0B6 +:1006D00075E0022506F58275E0003507F583E51023 +:1006E000F0900000E582F50B900000E583F50075C1 +:1006F0000A00750900C3750100E509F5F0E50A3542 +:10070000F0F509C3750100E509F5F0E50B35F0F5E5 +:100710000DE501F5F0E50035F0F50E750901750AF6 +:1007200000750B00750C00750100C3750000E50134 +:10073000F5F0E50D35F0F501E500F5F0E50E35F0E5 +:10074000F500E509F503E500F502E501F582E502AE +:10075000F583E503F0750101C3750000E501F5F0CF +:10076000E50D35F0F501E500F5F0E50E35F0F500A5 +:10077000E50AF503E500F502E501F582E502F583FA +:10078000E503F0750102C3750000E501F5F0E50D24 +:1007900035F0F501E500F5F0E50E35F0F500E50B77 +:1007A000F503E500F502E501F582E502F583E503D1 +:1007B000F0750103C3750000E501F5F0E50D35F0B6 +:1007C000F501E500F5F0E50E35F0F500E50CF50373 +:1007D000E500F502E501F582E502F583E503F09019 +:1007E0000000E582F50B900000E583F500750A0036 +:1007F000750904C3750100E509F5F0E50A35F0F562 +:1008000009C3750100E509F5F0E50B35F0F50DE5D7 +:1008100001F5F0E50035F0F50E750902750A007571 +:100820000B00750C00750100C3750000E501F5F0C3 +:10083000E50D35F0F501E500F5F0E50E35F0F500D4 +:10084000E509F503E500F502E501F582E502F5832A +:10085000E503F0750101C3750000E501F5F0E50D54 +:1008600035F0F501E500F5F0E50E35F0F500E50AA7 +:10087000F503E500F502E501F582E502F583E50300 +:10088000F0750102C3750000E501F5F0E50D35F0E6 +:10089000F501E500F5F0E50E35F0F500E50BF503A3 +:1008A000E500F502E501F582E502F583E503F07563 +:1008B0000103C3750000E501F5F0E50D35F0F50124 +:1008C000E500F5F0E50E35F0F500E50CF503E50083 +:1008D000F502E501F582E502F583E503F0900000FD +:1008E000E582F50B900000E583F500750A007509B7 +:1008F00008C3750100E509F5F0E50A35F0F509C30F +:10090000750100E509F5F0E50B35F0F50DE501F5AC +:10091000F0E50035F0F50E750903750A00750B005A +:10092000750C00750100C3750000E501F5F0E50DDB +:1009300035F0F501E500F5F0E50E35F0F500E509D7 +:10094000F503E500F502E501F582E502F583E5032F +:10095000F0750101C3750000E501F5F0E50D35F016 +:10096000F501E500F5F0E50E35F0F500E50AF503D3 +:10097000E500F502E501F582E502F583E503F07592 +:100980000102C3750000E501F5F0E50D35F0F50154 +:10099000E500F5F0E50E35F0F500E50BF503E500B3 +:1009A000F502E501F582E502F583E503F075010343 +:1009B000C3750000E501F5F0E50D35F0F501E50042 +:1009C000F5F0E50E35F0F500E50CF503E500F50270 +:1009D000E501F582E502F583E503F0900000E5828C +:1009E000F50B900000E583F500750A0075090CC34E +:1009F000750100E509F5F0E50A35F0F509C3750163 +:100A000000E509F5F0E50B35F0F50DE501F5F0E54C +:100A10000035F0F50E750904750A00750B00750CAC +:100A200000750100C3750000E501F5F0E50D35F036 +:100A3000F501E500F5F0E50E35F0F500E509F50303 +:100A4000E500F502E501F582E502F583E503F075C1 +:100A50000101C3750000E501F5F0E50D35F0F50184 +:100A6000E500F5F0E50E35F0F500E50AF503E500E3 +:100A7000F502E501F582E502F583E503F075010273 +:100A8000C3750000E501F5F0E50D35F0F501E50071 +:100A9000F5F0E50E35F0F500E50BF503E500F502A0 +:100AA000E501F582E502F583E503F0750103C37501 +:100AB0000000E501F5F0E50D35F0F501E500F5F094 +:100AC000E50E35F0F500E50CF503E500F502E5016E +:100AD000F582E502F583E503F0900000E582F50B71 +:100AE000900000E583F500750A00750910C37501D3 +:100AF00000E509F5F0E50A35F0F509C3750100E5F3 +:100B000009F5F0E50B35F0F50DE501F5F0E50035FB +:100B1000F0F50E750905750A00750B00750C00756A +:100B20000100C3750000E501F5F0E50D35F0F501B4 +:100B3000E500F5F0E50E35F0F500E509F503E50013 +:100B4000F502E501F582E502F583E503F0750101A3 +:100B5000C3750000E501F5F0E50D35F0F501E500A0 +:100B6000F5F0E50E35F0F500E50AF503E500F502D0 +:100B7000E501F582E502F583E503F0750102C37531 +:100B80000000E501F5F0E50D35F0F501E500F5F0C3 +:100B9000E50E35F0F500E50BF503E500F502E5019E +:100BA000F582E502F583E503F0750103C3750000E6 +:100BB000E501F5F0E50D35F0F501E500F5F0E50EA0 +:100BC00035F0F500E50CF503E500F502E501F582E9 +:100BD000E502F583E503F0900000E582F50B900057 +:100BE00000E583F500750A00750914C3750100E579 +:100BF00009F5F0E50A35F0F509C3750100E509F5D9 +:100C0000F0E50B35F0F50DE501F5F0E50035F0F513 +:100C10000E750906750A00750B00750C007501004C +:100C2000C3750000E501F5F0E50D35F0F501E500CF +:100C3000F5F0E50E35F0F500E509F503E500F50200 +:100C4000E501F582E502F583E503F0750101C37561 +:100C50000000E501F5F0E50D35F0F501E500F5F0F2 +:100C6000E50E35F0F500E50AF503E500F502E501CE +:100C7000F582E502F583E503F0750102C375000016 +:100C8000E501F5F0E50D35F0F501E500F5F0E50ECF +:100C900035F0F500E50BF503E500F502E501F58219 +:100CA000E502F583E503F0750103C3750000E50176 +:100CB000F5F0E50D35F0F501E500F5F0E50E35F060 +:100CC000F500E50CF503E500F502E501F582E50226 +:100CD000F583E503F0120010900000E582F5109016 +:100CE0000000E583F511750000750100750C0475B1 +:100CF0000D00750E00750F00C3750900E500F5F0D5 +:100D0000E50CA4F50BE500F5F0E50CA4E5F0F50A1B +:100D1000E50BF5F0E50935F0F509E501F5F0E50C31 +:100D2000A4F50BE501F5F0E50CA4E5F0F501E50B04 +:100D3000F5F0E50A35F0F50AC3C3750100E509F5DC +:100D4000F0E50E35F0F50EE50AF5F0E50F35F0F5B6 +:100D50000FC3750A00E500F5F0E50DA4F50BE500FD +:100D6000F5F0E50DA4E5F0F501E50BF5F0E50A3544 +:100D7000F0F50A750900C3C3750000E509F5F0E553 +:100D80000E35F0F50EE50AF5F0E50F35F0F50FC379 +:100D9000750900750A00C3C3750000E509F5F0E5A3 +:100DA0000E35F0F50EE50AF5F0E50F35F0F50FC359 +:100DB000750900750A00C3C3750000E509F5F0E583 +:100DC0000E35F0F50EE50AF5F0E50F35F0F50FC339 +:100DD000750000E50EF5F0E51035F0F500E50FF5CE +:100DE000F0E51135F0F501E500F509E501F50A75C5 +:100DF0000100C3750000E501F5F0E50935F0F501E6 +:100E0000E500F5F0E50A35F0F500E500F502E5014D +:100E1000F582E502F583E0F50B750101C37500006D +:100E2000E501F5F0E50935F0F501E500F5F0E50A35 +:100E300035F0F500E500F502E501F582E502F58300 +:100E4000E0F50C750102C3750000E501F5F0E50958 +:100E500035F0F501E500F5F0E50A35F0F500E500BF +:100E6000F502E501F582E502F583E0F50D75010374 +:100E7000C3750000E501F5F0E50935F0F501E50081 +:100E8000F5F0E50A35F0F500E500F502E501F5823B +:100E9000E502F583E0F501750000E50BF5F0E500EE +:100EA00045F0F500E50CF5F0E50045F0F500E50D41 +:100EB000F5F0E50045F0F500E501F5F0E50045F059 +:100EC000F500E50070028003021AFF00900000E5C3 +:100ED00082F510900000E583F511750001750100A1 +:100EE000750C04750D00750E00750F00C3750900B3 +:100EF000E500F5F0E50CA4F50BE500F5F0E50CA434 +:100F0000E5F0F50AE50BF5F0E50935F0F509E50141 +:100F1000F5F0E50CA4F50BE501F5F0E50CA4E5F022 +:100F2000F501E50BF5F0E50A35F0F50AC3C37501E7 +:100F300000E509F5F0E50E35F0F50EE50AF5F0E50A +:100F40000F35F0F50FC3750A00E500F5F0E50DA4C7 +:100F5000F50BE500F5F0E50DA4E5F0F501E50BF581 +:100F6000F0E50A35F0F50A750900C3C3750000E520 +:100F700009F5F0E50E35F0F50EE50AF5F0E50F356B +:100F8000F0F50FC3750900750A00C3C3750000E5CD +:100F900009F5F0E50E35F0F50EE50AF5F0E50F354B +:100FA000F0F50FC3750900750A00C3C3750000E5AD +:100FB00009F5F0E50E35F0F50EE50AF5F0E50F352B +:100FC000F0F50FC3750000E50EF5F0E51035F0F50E +:100FD00000E50FF5F0E51135F0F501E500F509E55F +:100FE00001F50A750100C3750000E501F5F0E5099A +:100FF00035F0F501E500F5F0E50A35F0F500E5001E +:10100000F502E501F582E502F583E0F50B750101D6 +:10101000C3750000E501F5F0E50935F0F501E500DF +:10102000F5F0E50A35F0F500E500F502E501F58299 +:10103000E502F583E0F50C750102C3750000E501DA +:10104000F5F0E50935F0F501E500F5F0E50A35F0D4 +:10105000F500E500F502E501F582E502F583E0F52E +:101060000D750103C3750000E501F5F0E50935F0E4 +:10107000F501E500F5F0E50A35F0F500E500F502CB +:10108000E501F582E502F583E0F501750000E50B69 +:10109000F5F0E50045F0F500E50CF5F0E50045F06C +:1010A000F500E50DF5F0E50045F0F500E501F5F09A +:1010B000E50045F0F500E50070028003021AEF003C +:1010C000750100750900750A00750B00750000E5D3 +:1010D00001F5F0E50045F0F500E509F5F0E500451E +:1010E000F0F500E50AF5F0E50045F0F500E50BF553 +:1010F000F0E50045F0F500E50070028003021ADF1C +:1011000000900000E582F510900000E583F5117570 +:101110000002750100750C04750D00750E00750F49 +:1011200000C3750900E500F5F0E50CA4F50BE5003A +:10113000F5F0E50CA4E5F0F50AE50BF5F0E5093569 +:10114000F0F509E501F5F0E50CA4F50BE501F5F086 +:10115000E50CA4E5F0F501E50BF5F0E50A35F0F551 +:101160000AC3C3750100E509F5F0E50E35F0F50E8B +:10117000E50AF5F0E50F35F0F50FC3750A00E50057 +:10118000F5F0E50DA4F50BE500F5F0E50DA4E5F0AF +:10119000F501E50BF5F0E50A35F0F50A750900C330 +:1011A000C3750000E509F5F0E50E35F0F50EE50A2A +:1011B000F5F0E50F35F0F50FC3750900750A00C3AA +:1011C000C3750000E509F5F0E50E35F0F50EE50A0A +:1011D000F5F0E50F35F0F50FC3750900750A00C38A +:1011E000C3750000E509F5F0E50E35F0F50EE50AEA +:1011F000F5F0E50F35F0F50FC3750000E50EF5F0DD +:10120000E51035F0F500E50FF5F0E51135F0F501E5 +:10121000E500F509E501F50A750100C3750000E573 +:1012200001F5F0E50935F0F501E500F5F0E50A35E1 +:10123000F0F500E500F502E501F582E502F583E051 +:10124000F50B750101C3750000E501F5F0E5093501 +:10125000F0F501E500F5F0E50A35F0F500E500F5FB +:1012600002E501F582E502F583E0F50C750102C3A4 +:10127000750000E501F5F0E50935F0F501E500F54B +:10128000F0E50A35F0F500E500F502E501F582E547 +:1012900002F583E0F50D750103C3750000E501F566 +:1012A000F0E50935F0F501E500F5F0E50A35F0F572 +:1012B00000E500F502E501F582E502F583E0F501C0 +:1012C000750000E50BF5F0E50045F0F500E50CF5DF +:1012D000F0E50045F0F500E50DF5F0E50045F0F529 +:1012E00000E501F5F0E50045F0F500E5007002804D +:1012F00003021ACF00750100750900750A00750B0D +:1013000000750000E501F5F0E50045F0F500E509A0 +:10131000F5F0E50045F0F500E50AF5F0E50045F0EB +:10132000F500E50BF5F0E50045F0F500E50070028D +:101330008003021ABF00900000E582F510900000C3 +:10134000E583F511750003750100750C04750D003A +:10135000750E00750F00C3750900E500F5F0E50C8A +:10136000A4F50BE500F5F0E50CA4E5F0F50AE50BB6 +:10137000F5F0E50935F0F509E501F5F0E50CA4F522 +:101380000BE501F5F0E50CA4E5F0F501E50BF5F052 +:10139000E50A35F0F50AC3C3750100E509F5F0E586 +:1013A0000E35F0F50EE50AF5F0E50F35F0F50FC353 +:1013B000750A00E500F5F0E50DA4F50BE500F5F084 +:1013C000E50DA4E5F0F501E50BF5F0E50A35F0F5DE +:1013D0000A750900C3C3750000E509F5F0E50E358F +:1013E000F0F50EE50AF5F0E50F35F0F50FC37509D8 +:1013F00000750A00C3C3750000E509F5F0E50E3578 +:10140000F0F50EE50AF5F0E50F35F0F50FC37509B7 +:1014100000750A00C3C3750000E509F5F0E50E3557 +:10142000F0F50EE50AF5F0E50F35F0F50FC37500A0 +:1014300000E50EF5F0E51035F0F500E50FF5F0E507 +:101440001135F0F501E500F509E501F50A75010032 +:10145000C3750000E501F5F0E50935F0F501E5009B +:10146000F5F0E50A35F0F500E500F502E501F58255 +:10147000E502F583E0F50B750101C3750000E50198 +:10148000F5F0E50935F0F501E500F5F0E50A35F090 +:10149000F500E500F502E501F582E502F583E0F5EA +:1014A0000C750102C3750000E501F5F0E50935F0A2 +:1014B000F501E500F5F0E50A35F0F500E500F50287 +:1014C000E501F582E502F583E0F50D750103C375CD +:1014D0000000E501F5F0E50935F0F501E500F5F06E +:1014E000E50A35F0F500E500F502E501F582E502D3 +:1014F000F583E0F501750000E50BF5F0E50045F03A +:10150000F500E50CF5F0E50045F0F500E50DF5F02A +:10151000E50045F0F500E501F5F0E50045F0F500E2 +:10152000E50070028003021AAF0075010075090022 +:10153000750A00750B00750000E501F5F0E5004542 +:10154000F0F500E509F5F0E50045F0F500E50AF5F0 +:10155000F0E50045F0F500E50BF5F0E50045F0F5A8 +:1015600000E50070028003021A9F00900000E582EF +:10157000F510900000E583F5117500047501007504 +:101580000C04750D00750E00750F00C3750900E59C +:1015900000F5F0E50CA4F50BE500F5F0E50CA4E58D +:1015A000F0F50AE50BF5F0E50935F0F509E501F58B +:1015B000F0E50CA4F50BE501F5F0E50CA4E5F0F57C +:1015C00001E50BF5F0E50A35F0F50AC3C375010036 +:1015D000E509F5F0E50E35F0F50EE50AF5F0E50F55 +:1015E00035F0F50FC3750A00E500F5F0E50DA4F53B +:1015F0000BE500F5F0E50DA4E5F0F501E50BF5F0E0 +:10160000E50A35F0F50A750900C3C3750000E50960 +:10161000F5F0E50E35F0F50EE50AF5F0E50F35F0DD +:10162000F50FC3750900750A00C3C3750000E5090D +:10163000F5F0E50E35F0F50EE50AF5F0E50F35F0BD +:10164000F50FC3750900750A00C3C3750000E509ED +:10165000F5F0E50E35F0F50EE50AF5F0E50F35F09D +:10166000F50FC3750000E50EF5F0E51035F0F50057 +:10167000E50FF5F0E51135F0F501E500F509E501B7 +:10168000F50A750100C3750000E501F5F0E50935BF +:10169000F0F501E500F5F0E50A35F0F500E500F5B7 +:1016A00002E501F582E502F583E0F50B750101C362 +:1016B000750000E501F5F0E50935F0F501E500F507 +:1016C000F0E50A35F0F500E500F502E501F582E503 +:1016D00002F583E0F50C750102C3750000E501F524 +:1016E000F0E50935F0F501E500F5F0E50A35F0F52E +:1016F00000E500F502E501F582E502F583E0F50D70 +:10170000750103C3750000E501F5F0E50935F0F555 +:1017100001E500F5F0E50A35F0F500E500F502E534 +:1017200001F582E502F583E0F501750000E50BF5B2 +:10173000F0E50045F0F500E50CF5F0E50045F0F5C5 +:1017400000E50DF5F0E50045F0F500E501F5F0E503 +:101750000045F0F500E50070028003021A8F007565 +:101760000100750900750A00750B00750000E501A0 +:10177000F5F0E50045F0F500E509F5F0E50045F088 +:10178000F500E50AF5F0E50045F0F500E50BF5F0AC +:10179000E50045F0F500E50070028003021A8B00B9 +:1017A000900000E582F510900000E583F5117500CA +:1017B00005750100750C04750D00750E00750F00A0 +:1017C000C3750900E500F5F0E50CA4F50BE500F59F +:1017D000F0E50CA4E5F0F50AE50BF5F0E50935F0C8 +:1017E000F509E501F5F0E50CA4F50BE501F5F0E5EB +:1017F0000CA4E5F0F501E50BF5F0E50A35F0F50A86 +:10180000C3C3750100E509F5F0E50E35F0F50EE509 +:101810000AF5F0E50F35F0F50FC3750A00E500F5A0 +:10182000F0E50DA4F50BE500F5F0E50DA4E5F0F508 +:1018300001E50BF5F0E50A35F0F50A750900C3C3BB +:10184000750000E509F5F0E50E35F0F50EE50AF551 +:10185000F0E50F35F0F50FC3750900750A00C3C335 +:10186000750000E509F5F0E50E35F0F50EE50AF531 +:10187000F0E50F35F0F50FC3750900750A00C3C315 +:10188000750000E509F5F0E50E35F0F50EE50AF511 +:10189000F0E50F35F0F50FC3750000E50EF5F0E546 +:1018A0001035F0F500E50FF5F0E51135F0F501E53F +:1018B00000F509E501F50A750100C3750000E501B1 +:1018C000F5F0E50935F0F501E500F5F0E50A35F04C +:1018D000F500E500F502E501F582E502F583E0F5A6 +:1018E0000B750101C3750000E501F5F0E50935F060 +:1018F000F501E500F5F0E50A35F0F500E500F50243 +:10190000E501F582E502F583E0F50C750102C3758A +:101910000000E501F5F0E50935F0F501E500F5F029 +:10192000E50A35F0F500E500F502E501F582E5028E +:10193000F583E0F50D750103C3750000E501F5F0D1 +:10194000E50935F0F501E500F5F0E50A35F0F500BB +:10195000E500F502E501F582E502F583E0F50E7597 +:101960000006750100750900750A00750F00C3E5D2 +:1019700000F5F0E50B95F0F500E500F5F0E50F4515 +:10198000F0F50FC3E501F5F0E50C95F0F500E50085 +:10199000F5F0E50F45F0F50FC3E509F5F0E50D9518 +:1019A000F0F500E500F5F0E50F45F0F50FC3E50AA9 +:1019B000F5F0E50E95F0F500E500F5F0E50F45F0E2 +:1019C000F50F750100750900750A00750000E50F37 +:1019D000F5F0E50045F0F500E501F5F0E50045F02E +:1019E000F500E509F5F0E50045F0F500E50AF5F04C +:1019F000E50045F0F500E50070028003021A87005B +:101A0000750000750100750900750A00E500F50212 +:101A1000E501F503E509F504E50AF50575E003259B +:101A200006F58275E0003507F583E0F51175E002F3 +:101A30002506F58275E0003507F583E0F51075E0C1 +:101A4000002506F58275E0003507F583E0F508E529 +:101A500008C0E075E0012506F58275E0003507F560 +:101A600083E0F508E508C0E075E0042506F5067595 +:101A7000E0003507F507E502F582E503F583E504A7 +:101A8000F500E505F5012200021A00000217A0008A +:101A9000750101750900750A00750B0002176B00CE +:101AA000750101750900750A00750B0002176B00BE +:101AB000750101750900750A00750B0002153600E5 +:101AC000750101750900750A00750B0002153600D5 +:101AD000750101750900750A00750B0002130100FC +:101AE000750101750900750A00750B0002130100EC +:101AF000750101750900750A00750B000210CC0014 +:101B0000750101750900750A00750B000210CC0003 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/unroll-1.s.expected b/tests/GCCTestSuite/unroll-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/unroll-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-1.c b/tests/GCCTestSuite/unused-1.c new file mode 100644 index 0000000..8db7c2c --- /dev/null +++ b/tests/GCCTestSuite/unused-1.c @@ -0,0 +1,11 @@ +/* Missing `unused parameter' warning. + egcs-1.1.2 fails, egcs-ss-19990418 passes. + http://gcc.gnu.org/ml/gcc-bugs/1998-09/msg00199.html */ +/* { dg-do compile } */ +/* { dg-options "-O -Wall -W" } */ +int +f(c) + char c; /* { dg-warning "unused parameter" "unused parameter warning" } */ +{ + return 0; +} diff --git a/tests/GCCTestSuite/unused-1.c.expected b/tests/GCCTestSuite/unused-1.c.expected new file mode 100644 index 0000000..8db7c2c --- /dev/null +++ b/tests/GCCTestSuite/unused-1.c.expected @@ -0,0 +1,11 @@ +/* Missing `unused parameter' warning. + egcs-1.1.2 fails, egcs-ss-19990418 passes. + http://gcc.gnu.org/ml/gcc-bugs/1998-09/msg00199.html */ +/* { dg-do compile } */ +/* { dg-options "-O -Wall -W" } */ +int +f(c) + char c; /* { dg-warning "unused parameter" "unused parameter warning" } */ +{ + return 0; +} diff --git a/tests/GCCTestSuite/unused-1.hex.expected b/tests/GCCTestSuite/unused-1.hex.expected new file mode 100644 index 0000000..e3c792d --- /dev/null +++ b/tests/GCCTestSuite/unused-1.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758201C39582F506E50775830054 +:100010009583F507D0E0F500D0E0F501750900758E +:100020000A00750B00750C00E509F502E50AF503F9 +:10003000E50BF504E50CF505E501C0E0E500C0E0E1 +:1000400075E0012506F50675E0003507F507E502C0 +:10005000F582E503F583E504F500E505F5012200E9 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-1.s.expected b/tests/GCCTestSuite/unused-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/unused-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-2.c b/tests/GCCTestSuite/unused-2.c new file mode 100644 index 0000000..454606e --- /dev/null +++ b/tests/GCCTestSuite/unused-2.c @@ -0,0 +1,18 @@ +/* Copyright (C) 2000 Free Software Foundation. + + by Alexandre Oliva */ + +/* { dg-do compile } */ +/* { dg-options "-O2 -finline-functions -Wunused -Wreturn-type" } */ + +static void +foo () +{ + skip_it: ; /* { dg-warning "defined but not used" "unused label warning" } */ +} + +void +bar () +{ + foo (); +} diff --git a/tests/GCCTestSuite/unused-2.c.expected b/tests/GCCTestSuite/unused-2.c.expected new file mode 100644 index 0000000..454606e --- /dev/null +++ b/tests/GCCTestSuite/unused-2.c.expected @@ -0,0 +1,18 @@ +/* Copyright (C) 2000 Free Software Foundation. + + by Alexandre Oliva */ + +/* { dg-do compile } */ +/* { dg-options "-O2 -finline-functions -Wunused -Wreturn-type" } */ + +static void +foo () +{ + skip_it: ; /* { dg-warning "defined but not used" "unused label warning" } */ +} + +void +bar () +{ + foo (); +} diff --git a/tests/GCCTestSuite/unused-2.hex.expected b/tests/GCCTestSuite/unused-2.hex.expected new file mode 100644 index 0000000..db50dab --- /dev/null +++ b/tests/GCCTestSuite/unused-2.hex.expected @@ -0,0 +1,15 @@ +:1000000000D0E0F500D0E0F50100750900E509F544 +:1000100002E509F503E509F504E509F505E501C083 +:10002000E0E500C0E0E502F582E503F583E504F5CF +:1000300000E505F5012200E506758202C39582F50B +:1000400006E5077583009583F507D0E0F50875E0B0 +:10005000012506F58275E0003507F583E508F0D047 +:10006000E0F50875E0002506F58275E0003507F536 +:1000700083E508F0120000750000E500F502E500D8 +:10008000F503E500F504E500F50575E0002506F546 +:100090008275E0003507F583E0F508E508C0E075F6 +:1000A000E0012506F58275E0003507F583E0F508E7 +:1000B000E508C0E075E0022506F50675E0003507A5 +:1000C000F507E502F582E503F583E504F500E505AE +:1000D000F501220000000000000000000000000008 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-2.s.expected b/tests/GCCTestSuite/unused-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/unused-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-3.c b/tests/GCCTestSuite/unused-3.c new file mode 100644 index 0000000..1205624 --- /dev/null +++ b/tests/GCCTestSuite/unused-3.c @@ -0,0 +1,14 @@ +/* Copyright (C) 2000 Free Software Foundation. */ +/* Added extra line-breaks to check that diagnostics refer to correct token. + --Per Bothner. */ +/* { dg-do compile } */ +/* { dg-options "-Wunused" } */ + +typedef short unused_type __attribute__ ((unused)); +main () +{ + short + x /* { dg-warning "unused variable" "unused variable warning" } */ + ; + unused_type y; +} diff --git a/tests/GCCTestSuite/unused-3.c.expected b/tests/GCCTestSuite/unused-3.c.expected new file mode 100644 index 0000000..1205624 --- /dev/null +++ b/tests/GCCTestSuite/unused-3.c.expected @@ -0,0 +1,14 @@ +/* Copyright (C) 2000 Free Software Foundation. */ +/* Added extra line-breaks to check that diagnostics refer to correct token. + --Per Bothner. */ +/* { dg-do compile } */ +/* { dg-options "-Wunused" } */ + +typedef short unused_type __attribute__ ((unused)); +main () +{ + short + x /* { dg-warning "unused variable" "unused variable warning" } */ + ; + unused_type y; +} diff --git a/tests/GCCTestSuite/unused-3.hex.expected b/tests/GCCTestSuite/unused-3.hex.expected new file mode 100644 index 0000000..923c6d3 --- /dev/null +++ b/tests/GCCTestSuite/unused-3.hex.expected @@ -0,0 +1,6 @@ +:1000000075812F7506FF7507FF12000F02000C00A7 +:10001000D0E0F500D0E0F501E509F502E509F503CA +:10002000E509F504E509F505E501C0E0E500C0E0F6 +:10003000E502F582E503F583E504F500E505F50144 +:10004000220000000000000000000000000000008E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-3.s.expected b/tests/GCCTestSuite/unused-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/unused-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-4.c b/tests/GCCTestSuite/unused-4.c new file mode 100644 index 0000000..99e845f --- /dev/null +++ b/tests/GCCTestSuite/unused-4.c @@ -0,0 +1,6 @@ +/* { dg-do compile } */ +/* { dg-options "-Wunused -O3" } */ + +static const int i = 0; +static void f() { } /* { dg-warning "defined but not used" } */ +static inline void g() { } diff --git a/tests/GCCTestSuite/unused-4.c.expected b/tests/GCCTestSuite/unused-4.c.expected new file mode 100644 index 0000000..99e845f --- /dev/null +++ b/tests/GCCTestSuite/unused-4.c.expected @@ -0,0 +1,6 @@ +/* { dg-do compile } */ +/* { dg-options "-Wunused -O3" } */ + +static const int i = 0; +static void f() { } /* { dg-warning "defined but not used" } */ +static inline void g() { } diff --git a/tests/GCCTestSuite/unused-4.hex.expected b/tests/GCCTestSuite/unused-4.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/unused-4.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-4.s.expected b/tests/GCCTestSuite/unused-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/unused-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-5.c b/tests/GCCTestSuite/unused-5.c new file mode 100644 index 0000000..5ccc3f3 --- /dev/null +++ b/tests/GCCTestSuite/unused-5.c @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-Wunused" } */ +/* { dg-final { scan-assembler "string_to_look_for" } } */ + +/* 'volatile' variables get output and don't produce a warning about being + unused. */ +static volatile char string[] + = "string_to_look_for"; /* { dg-bogus "not used" } */ diff --git a/tests/GCCTestSuite/unused-5.c.expected b/tests/GCCTestSuite/unused-5.c.expected new file mode 100644 index 0000000..5ccc3f3 --- /dev/null +++ b/tests/GCCTestSuite/unused-5.c.expected @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-Wunused" } */ +/* { dg-final { scan-assembler "string_to_look_for" } } */ + +/* 'volatile' variables get output and don't produce a warning about being + unused. */ +static volatile char string[] + = "string_to_look_for"; /* { dg-bogus "not used" } */ diff --git a/tests/GCCTestSuite/unused-5.hex.expected b/tests/GCCTestSuite/unused-5.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/unused-5.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-5.s.expected b/tests/GCCTestSuite/unused-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/unused-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-6.c b/tests/GCCTestSuite/unused-6.c new file mode 100644 index 0000000..7651ecb --- /dev/null +++ b/tests/GCCTestSuite/unused-6.c @@ -0,0 +1,11 @@ + +/* { dg-do compile } */ +/* { dg-options "-O3 -Wunused-parameter" } */ +static int t(int i) /* { dg-warning "unused parameter" "unused parameter warning" } */ +{ + return 0; +} +int tt() +{ + return t(0); +} diff --git a/tests/GCCTestSuite/unused-6.c.expected b/tests/GCCTestSuite/unused-6.c.expected new file mode 100644 index 0000000..7651ecb --- /dev/null +++ b/tests/GCCTestSuite/unused-6.c.expected @@ -0,0 +1,11 @@ + +/* { dg-do compile } */ +/* { dg-options "-O3 -Wunused-parameter" } */ +static int t(int i) /* { dg-warning "unused parameter" "unused parameter warning" } */ +{ + return 0; +} +int tt() +{ + return t(0); +} diff --git a/tests/GCCTestSuite/unused-6.hex.expected b/tests/GCCTestSuite/unused-6.hex.expected new file mode 100644 index 0000000..cfaf75c --- /dev/null +++ b/tests/GCCTestSuite/unused-6.hex.expected @@ -0,0 +1,20 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F501750900758E +:100020000A00750B00750C00E509F502E50AF503F9 +:10003000E50BF504E50CF505E501C0E0E500C0E0E1 +:1000400075E0042506F50675E0003507F507E502BD +:10005000F582E503F583E504F500E505F5012200E9 +:10006000E506758202C39582F506E507758300955E +:1000700083F507D0E0F50875E0012506F58275E007 +:10008000003507F583E508F0D0E0F50875E00025B8 +:1000900006F58275E0003507F583E508F0751F0069 +:1000A000751E00751D00751C00120000E582F5022A +:1000B000E583F503E500F504E501F505E502F50046 +:1000C000E503F501E504F509E505F50AE500F502A6 +:1000D000E501F503E509F504E50AF50575E00025F8 +:1000E00006F58275E0003507F583E0F508E508C000 +:1000F000E075E0012506F58275E0003507F583E03F +:10010000F508E508C0E075E0022506F50675E00093 +:100110003507F507E502F582E503F583E504F5000B +:10012000E505F501220000000000000000000000CD +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-6.s.expected b/tests/GCCTestSuite/unused-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/unused-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-7.c b/tests/GCCTestSuite/unused-7.c new file mode 100644 index 0000000..d2b9c3c --- /dev/null +++ b/tests/GCCTestSuite/unused-7.c @@ -0,0 +1,5 @@ +/* { dg-do compile } */ +/* { dg-options "-Wunused" } */ + +static int a = 10; /* { dg-warning "defined but not used" } */ + diff --git a/tests/GCCTestSuite/unused-7.c.expected b/tests/GCCTestSuite/unused-7.c.expected new file mode 100644 index 0000000..d2b9c3c --- /dev/null +++ b/tests/GCCTestSuite/unused-7.c.expected @@ -0,0 +1,5 @@ +/* { dg-do compile } */ +/* { dg-options "-Wunused" } */ + +static int a = 10; /* { dg-warning "defined but not used" } */ + diff --git a/tests/GCCTestSuite/unused-7.hex.expected b/tests/GCCTestSuite/unused-7.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/unused-7.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/unused-7.s.expected b/tests/GCCTestSuite/unused-7.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/unused-7.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/verbose-asm.c b/tests/GCCTestSuite/verbose-asm.c new file mode 100644 index 0000000..c54478f --- /dev/null +++ b/tests/GCCTestSuite/verbose-asm.c @@ -0,0 +1,28 @@ +/* Test whether -fverbose-asm works. */ +/* { dg-do compile } */ +/* { dg-options "-fverbose-asm" } */ + +void foo (int *x) +{ + (*x)++; +} + +int bar (int *y) +{ + int a, b; + b = 10; + a = 26; + foo (&a); + a += 10; + foo (&a); + *y--; + return b; +} + +int +main () +{ + int argc; + int r =bar (&argc); + return 0; +} diff --git a/tests/GCCTestSuite/verbose-asm.c.expected b/tests/GCCTestSuite/verbose-asm.c.expected new file mode 100644 index 0000000..c54478f --- /dev/null +++ b/tests/GCCTestSuite/verbose-asm.c.expected @@ -0,0 +1,28 @@ +/* Test whether -fverbose-asm works. */ +/* { dg-do compile } */ +/* { dg-options "-fverbose-asm" } */ + +void foo (int *x) +{ + (*x)++; +} + +int bar (int *y) +{ + int a, b; + b = 10; + a = 26; + foo (&a); + a += 10; + foo (&a); + *y--; + return b; +} + +int +main () +{ + int argc; + int r =bar (&argc); + return 0; +} diff --git a/tests/GCCTestSuite/verbose-asm.hex.expected b/tests/GCCTestSuite/verbose-asm.hex.expected new file mode 100644 index 0000000..9e69d89 --- /dev/null +++ b/tests/GCCTestSuite/verbose-asm.hex.expected @@ -0,0 +1,121 @@ +:1000000075812F7506FF7507FF1206AA02000C0006 +:10001000E506758202C39582F506E50775830095AE +:1000200083F507D0E0F518D0E0F519E514F50F7564 +:100030000100C3750000E501F5F0E51F35F0F5019D +:10004000E500F5F0E51E35F0F500E500F502E50107 +:10005000F582E502F583E0F50B750101C37500003B +:10006000E501F5F0E51F35F0F501E500F5F0E51ED9 +:1000700035F0F500E500F502E501F582E502F583CE +:10008000E0F50C750102C3750000E501F5F0E51F10 +:1000900035F0F501E500F5F0E51E35F0F500E50079 +:1000A000F502E501F582E502F583E0F50D75010342 +:1000B000C3750000E501F5F0E51F35F0F501E50039 +:1000C000F5F0E51E35F0F500E500F502E501F582F5 +:1000D000E502F583E0F50E75000175010075090074 +:1000E000750A00C3751400E500F5F0E50B35F0F571 +:1000F00000E501F5F0E50C35F0F501E509F5F0E571 +:100100000D35F0F509E50AF5F0E50E35F0F50C755D +:100110000B00C3750A00E50BF5F0E51F35F0F50B94 +:10012000E50AF5F0E51E35F0F50AE500F503E50A08 +:10013000F502E50BF582E502F583E503F0750B01A9 +:10014000C3750000E50BF5F0E51F35F0F50BE50094 +:10015000F5F0E51E35F0F50AE501F503E50AF502CF +:10016000E50BF582E502F583E503F0750B02C37537 +:100170000000E50BF5F0E51F35F0F50BE500F5F0B7 +:10018000E51E35F0F50AE509F503E50AF502E50B8C +:10019000F582E502F583E503F0750B03C3750000F6 +:1001A000E50BF5F0E51F35F0F50BE500F5F0E51E84 +:1001B00035F0F50AE50CF503E50AF502E50BF582E5 +:1001C000E502F583E503F0750000E500F502E500C2 +:1001D000F503E500F504E500F505E50FF514E5196F +:1001E000C0E0E518C0E075E0022506F50675E00000 +:1001F0003507F507E502F582E503F583E504F5002B +:10020000E505F5012200E50675820EC39582F50627 +:10021000E5077583009583F507D0E0F50875E005DF +:100220002506F58275E0003507F583E508F0D0E096 +:10023000F50875E0042506F58275E0003507F583BD +:10024000E508F075E00B2506F58275E0003507F549 +:1002500083E515F075E00A2506F58275E00035079F +:10026000F583E514F075E0092506F58275E00035A3 +:1002700007F583E513F075E0082506F58275E000C3 +:100280003507F583E512F075E0072506F58275E080 +:10029000003507F583E511F075E0062506F5827552 +:1002A000E0003507F583E510F075100A751100754B +:1002B0001200751300E506F50AE507F5017509005A +:1002C000C3750000E509F5F0E50A35F0F50DE50028 +:1002D000F5F0E50135F0F50E75091A750A00750B94 +:1002E00000750C00750100C3750000E501F5F0E52F +:1002F0000D35F0F501E500F5F0E50E35F0F500E51A +:1003000009F503E500F502E501F582E502F583E56F +:1003100003F0750101C3750000E501F5F0E50D3549 +:10032000F0F501E500F5F0E50E35F0F500E50AF52C +:1003300003E500F502E501F582E502F583E503F04A +:10034000750102C3750000E501F5F0E50D35F0F526 +:1003500001E500F5F0E50E35F0F500E50BF503E5F8 +:1003600000F502E501F582E502F583E503F075018C +:1003700003C3750000E501F5F0E50D35F0F501E585 +:1003800000F5F0E50E35F0F500E50CF503E500F5B8 +:1003900002E501F582E502F583E503F0E506F509DE +:1003A000E507F50A750100C3750000E501F5F0E504 +:1003B0000935F0F501E500F5F0E50A35F0F500E561 +:1003C00001F51FE500F51E12000FE506F50AE50729 +:1003D000F501750900C3750000E509F5F0E50A357A +:1003E000F0F50EE500F5F0E50135F0F50FE506F561 +:1003F00009E507F50A750100C3750000E501F5F090 +:10040000E50935F0F501E500F5F0E50A35F0F50010 +:10041000E501F509E500F50A750100C3750000E581 +:1004200001F5F0E50935F0F501E500F5F0E50A35EF +:10043000F0F500E500F502E501F582E502F583E05F +:10044000F50B750101C3750000E501F5F0E509350F +:10045000F0F501E500F5F0E50A35F0F500E500F509 +:1004600002E501F582E502F583E0F50C750102C3B2 +:10047000750000E501F5F0E50935F0F501E500F559 +:10048000F0E50A35F0F500E500F502E501F582E555 +:1004900002F583E0F50D750103C3750000E501F574 +:1004A000F0E50935F0F501E500F5F0E50A35F0F580 +:1004B00000E500F502E501F582E502F583E0F514BB +:1004C00075000A750100750900750A00C3751500ED +:1004D000E500F5F0E50B35F0F500E501F5F0E50C8C +:1004E00035F0F501E509F5F0E50D35F0F509E50A1A +:1004F000F5F0E51435F0F50C750B00C3750A00E551 +:100500000BF5F0E50E35F0F50BE50AF5F0E50F35E6 +:10051000F0F50AE500F503E50AF502E50BF582E5DD +:1005200002F583E503F0750B01C3750000E50BF5DB +:10053000F0E50E35F0F50BE500F5F0E50F35F0F5DB +:100540000AE501F503E50AF502E50BF582E502F59A +:1005500083E503F0750B02C3750000E50BF5F0E5CC +:100560000E35F0F50BE500F5F0E50F35F0F50AE591 +:1005700009F503E50AF502E50BF582E502F583E5E9 +:1005800003F0750B03C3750000E50BF5F0E50E35C0 +:10059000F0F50BE500F5F0E50F35F0F50AE50CF5A3 +:1005A00003E50AF502E50BF582E502F583E503F0C4 +:1005B000E506F509E507F50A750100C3750000E5D4 +:1005C00001F5F0E50935F0F501E500F5F0E50A354E +:1005D000F0F500E501F51FE500F51E12000FC3C39D +:1005E000C3C3C3C3C3C3C3C3C3C3C3E510F502E5D9 +:1005F00011F503E512F504E513F50575E00B250685 +:10060000F58275E0003507F583E0F51575E00A25FC +:1006100006F58275E0003507F583E0F51475E0090D +:100620002506F58275E0003507F583E0F51375E0E2 +:10063000082506F58275E0003507F583E0F51275AB +:10064000E0072506F58275E0003507F583E0F51132 +:1006500075E0062506F58275E0003507F583E0F5BF +:100660001075E0042506F58275E0003507F583E096 +:10067000F508E508C0E075E0052506F58275E0009F +:100680003507F583E0F508E508C0E075E00E2506BE +:10069000F50675E0003507F507E502F582E503F597 +:1006A00083E504F500E505F5012200E506758206FF +:1006B000C39582F506E5077583009583F507D0E0BD +:1006C000F50875E0052506F58275E0003507F58328 +:1006D000E508F0D0E0F50875E0042506F58275E040 +:1006E000003507F583E508F0E506F509E507F50AA5 +:1006F000750100C3750000E501F5F0E50935F0F579 +:1007000001E500F5F0E50A35F0F500E501F51FE536 +:1007100000F51E12020575000075010075090075CF +:100720000A00E500F502E501F503E509F504E50A2F +:10073000F50575E0042506F58275E0003507F583BB +:10074000E0F508E508C0E075E0052506F58275E0EE +:10075000003507F583E0F508E508C0E075E00625FB +:1007600006F50675E0003507F507E502F582E503B5 +:10077000F583E504F500E505F50122000000000021 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/verbose-asm.s.expected b/tests/GCCTestSuite/verbose-asm.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/verbose-asm.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-1.c b/tests/GCCTestSuite/visibility-1.c new file mode 100644 index 0000000..864b971 --- /dev/null +++ b/tests/GCCTestSuite/visibility-1.c @@ -0,0 +1,9 @@ +/* Test visibility attribute on function definition. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "foo" } } */ + +void +__attribute__((visibility ("hidden"))) +foo() +{ } diff --git a/tests/GCCTestSuite/visibility-1.c.expected b/tests/GCCTestSuite/visibility-1.c.expected new file mode 100644 index 0000000..864b971 --- /dev/null +++ b/tests/GCCTestSuite/visibility-1.c.expected @@ -0,0 +1,9 @@ +/* Test visibility attribute on function definition. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "foo" } } */ + +void +__attribute__((visibility ("hidden"))) +foo() +{ } diff --git a/tests/GCCTestSuite/visibility-1.hex.expected b/tests/GCCTestSuite/visibility-1.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/visibility-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-1.s.expected b/tests/GCCTestSuite/visibility-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-10.c b/tests/GCCTestSuite/visibility-10.c new file mode 100644 index 0000000..d86ce1b --- /dev/null +++ b/tests/GCCTestSuite/visibility-10.c @@ -0,0 +1,19 @@ +/* Test that a definition marked with dllexport has default + visibility. */ +/* { dg-require-visibility "" } */ +/* { dg-require-dll "" } */ +/* { dg-options "-fvisibility=hidden" } */ +/* { dg-final { scan-not-hidden "g" } } */ +/* { dg-final { scan-not-hidden "h" } } */ +/* { dg-final { scan-not-hidden "k" } } */ +/* { dg-final { scan-not-hidden "l" } } */ + +__declspec(dllexport) void g() {} + +__declspec(dllexport) void h(); +void h() {} + +__declspec(dllexport) int k; + +__declspec(dllexport) extern int l; +int l; diff --git a/tests/GCCTestSuite/visibility-10.c.expected b/tests/GCCTestSuite/visibility-10.c.expected new file mode 100644 index 0000000..d86ce1b --- /dev/null +++ b/tests/GCCTestSuite/visibility-10.c.expected @@ -0,0 +1,19 @@ +/* Test that a definition marked with dllexport has default + visibility. */ +/* { dg-require-visibility "" } */ +/* { dg-require-dll "" } */ +/* { dg-options "-fvisibility=hidden" } */ +/* { dg-final { scan-not-hidden "g" } } */ +/* { dg-final { scan-not-hidden "h" } } */ +/* { dg-final { scan-not-hidden "k" } } */ +/* { dg-final { scan-not-hidden "l" } } */ + +__declspec(dllexport) void g() {} + +__declspec(dllexport) void h(); +void h() {} + +__declspec(dllexport) int k; + +__declspec(dllexport) extern int l; +int l; diff --git a/tests/GCCTestSuite/visibility-10.hex.expected b/tests/GCCTestSuite/visibility-10.hex.expected new file mode 100644 index 0000000..64d1011 --- /dev/null +++ b/tests/GCCTestSuite/visibility-10.hex.expected @@ -0,0 +1,8 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F5012200D0E0F500D0E0F5017509F5 +:1000400000E509F502E509F503E509F504E509F51B +:1000500005E501C0E0E500C0E0E502F582E503F555 +:1000600083E504F500E505F501220000000000002D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-10.s.expected b/tests/GCCTestSuite/visibility-10.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-10.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-2.c b/tests/GCCTestSuite/visibility-2.c new file mode 100644 index 0000000..0977aba --- /dev/null +++ b/tests/GCCTestSuite/visibility-2.c @@ -0,0 +1,10 @@ +/* Test that visibility attribute on declaration extends to definition. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "foo" } } */ + +void +__attribute__((visibility ("hidden"))) +foo(); + +void foo() { } diff --git a/tests/GCCTestSuite/visibility-2.c.expected b/tests/GCCTestSuite/visibility-2.c.expected new file mode 100644 index 0000000..0977aba --- /dev/null +++ b/tests/GCCTestSuite/visibility-2.c.expected @@ -0,0 +1,10 @@ +/* Test that visibility attribute on declaration extends to definition. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "foo" } } */ + +void +__attribute__((visibility ("hidden"))) +foo(); + +void foo() { } diff --git a/tests/GCCTestSuite/visibility-2.hex.expected b/tests/GCCTestSuite/visibility-2.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/visibility-2.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-2.s.expected b/tests/GCCTestSuite/visibility-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-3.c b/tests/GCCTestSuite/visibility-3.c new file mode 100644 index 0000000..cb5a715 --- /dev/null +++ b/tests/GCCTestSuite/visibility-3.c @@ -0,0 +1,8 @@ +/* Test visibility attribute on forward declaration of global variable */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "xyzzy" } } */ + +int +__attribute__((visibility ("hidden"))) +xyzzy = 5; diff --git a/tests/GCCTestSuite/visibility-3.c.expected b/tests/GCCTestSuite/visibility-3.c.expected new file mode 100644 index 0000000..cb5a715 --- /dev/null +++ b/tests/GCCTestSuite/visibility-3.c.expected @@ -0,0 +1,8 @@ +/* Test visibility attribute on forward declaration of global variable */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "xyzzy" } } */ + +int +__attribute__((visibility ("hidden"))) +xyzzy = 5; diff --git a/tests/GCCTestSuite/visibility-3.hex.expected b/tests/GCCTestSuite/visibility-3.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/visibility-3.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-3.s.expected b/tests/GCCTestSuite/visibility-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-4.c b/tests/GCCTestSuite/visibility-4.c new file mode 100644 index 0000000..af0d461 --- /dev/null +++ b/tests/GCCTestSuite/visibility-4.c @@ -0,0 +1,10 @@ +/* Test visibility attribute on forward declaration of global variable */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "xyzzy" } } */ + +extern int +__attribute__((visibility ("hidden"))) +xyzzy; + +int xyzzy = 5; diff --git a/tests/GCCTestSuite/visibility-4.c.expected b/tests/GCCTestSuite/visibility-4.c.expected new file mode 100644 index 0000000..af0d461 --- /dev/null +++ b/tests/GCCTestSuite/visibility-4.c.expected @@ -0,0 +1,10 @@ +/* Test visibility attribute on forward declaration of global variable */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "xyzzy" } } */ + +extern int +__attribute__((visibility ("hidden"))) +xyzzy; + +int xyzzy = 5; diff --git a/tests/GCCTestSuite/visibility-4.hex.expected b/tests/GCCTestSuite/visibility-4.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/visibility-4.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-4.s.expected b/tests/GCCTestSuite/visibility-4.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-4.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-5.c b/tests/GCCTestSuite/visibility-5.c new file mode 100644 index 0000000..0302768 --- /dev/null +++ b/tests/GCCTestSuite/visibility-5.c @@ -0,0 +1,12 @@ +/* Test visibility attribute on definition of a function that has + already had a forward declaration. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "foo" } } */ + +void foo(); + +void + __attribute__((visibility ("hidden"))) +foo() +{ } diff --git a/tests/GCCTestSuite/visibility-5.c.expected b/tests/GCCTestSuite/visibility-5.c.expected new file mode 100644 index 0000000..0302768 --- /dev/null +++ b/tests/GCCTestSuite/visibility-5.c.expected @@ -0,0 +1,12 @@ +/* Test visibility attribute on definition of a function that has + already had a forward declaration. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "foo" } } */ + +void foo(); + +void + __attribute__((visibility ("hidden"))) +foo() +{ } diff --git a/tests/GCCTestSuite/visibility-5.hex.expected b/tests/GCCTestSuite/visibility-5.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/visibility-5.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-5.s.expected b/tests/GCCTestSuite/visibility-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-6.c b/tests/GCCTestSuite/visibility-6.c new file mode 100644 index 0000000..4e9deeb --- /dev/null +++ b/tests/GCCTestSuite/visibility-6.c @@ -0,0 +1,11 @@ +/* Test visibility attribute on definition of global variable that has + already had a forward declaration. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "xyzzy" } } */ + +extern int xyzzy; + +int +__attribute__((visibility ("hidden"))) +xyzzy = 5; diff --git a/tests/GCCTestSuite/visibility-6.c.expected b/tests/GCCTestSuite/visibility-6.c.expected new file mode 100644 index 0000000..4e9deeb --- /dev/null +++ b/tests/GCCTestSuite/visibility-6.c.expected @@ -0,0 +1,11 @@ +/* Test visibility attribute on definition of global variable that has + already had a forward declaration. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "xyzzy" } } */ + +extern int xyzzy; + +int +__attribute__((visibility ("hidden"))) +xyzzy = 5; diff --git a/tests/GCCTestSuite/visibility-6.hex.expected b/tests/GCCTestSuite/visibility-6.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/visibility-6.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-6.s.expected b/tests/GCCTestSuite/visibility-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-7.c b/tests/GCCTestSuite/visibility-7.c new file mode 100644 index 0000000..aaa8165 --- /dev/null +++ b/tests/GCCTestSuite/visibility-7.c @@ -0,0 +1,12 @@ +/* Test warning from conflicting visibility specifications. */ +/* { dg-do compile } */ +/* { dg-require-visibility "protected" } */ +/* { dg-final { scan-hidden "xyzzy" } } */ + +extern int +__attribute__((visibility ("hidden"))) +xyzzy; /* { dg-warning "previous declaration" "" } */ + +int +__attribute__((visibility ("protected"))) +xyzzy = 5; /* { dg-warning "different visibility" "" } */ diff --git a/tests/GCCTestSuite/visibility-7.c.expected b/tests/GCCTestSuite/visibility-7.c.expected new file mode 100644 index 0000000..aaa8165 --- /dev/null +++ b/tests/GCCTestSuite/visibility-7.c.expected @@ -0,0 +1,12 @@ +/* Test warning from conflicting visibility specifications. */ +/* { dg-do compile } */ +/* { dg-require-visibility "protected" } */ +/* { dg-final { scan-hidden "xyzzy" } } */ + +extern int +__attribute__((visibility ("hidden"))) +xyzzy; /* { dg-warning "previous declaration" "" } */ + +int +__attribute__((visibility ("protected"))) +xyzzy = 5; /* { dg-warning "different visibility" "" } */ diff --git a/tests/GCCTestSuite/visibility-7.hex.expected b/tests/GCCTestSuite/visibility-7.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/visibility-7.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-7.s.expected b/tests/GCCTestSuite/visibility-7.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-7.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-8.c b/tests/GCCTestSuite/visibility-8.c new file mode 100644 index 0000000..89f89c0 --- /dev/null +++ b/tests/GCCTestSuite/visibility-8.c @@ -0,0 +1,16 @@ +/* Test hidden visibility on built-in functions (for libc). PR 13856. */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "__GI_fputs_unlocked" } } */ + +int fputs_unlocked (const char *restrict, int *restrict) + __asm__ ("__GI_fputs_unlocked") + __attribute__ ((visibility ("hidden"))); + +int +fputs_unlocked (str, fp) + const char *str; + int *fp; +{ +} diff --git a/tests/GCCTestSuite/visibility-8.c.expected b/tests/GCCTestSuite/visibility-8.c.expected new file mode 100644 index 0000000..89f89c0 --- /dev/null +++ b/tests/GCCTestSuite/visibility-8.c.expected @@ -0,0 +1,16 @@ +/* Test hidden visibility on built-in functions (for libc). PR 13856. */ +/* { dg-do compile } */ +/* { dg-options "-std=gnu99" } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "__GI_fputs_unlocked" } } */ + +int fputs_unlocked (const char *restrict, int *restrict) + __asm__ ("__GI_fputs_unlocked") + __attribute__ ((visibility ("hidden"))); + +int +fputs_unlocked (str, fp) + const char *str; + int *fp; +{ +} diff --git a/tests/GCCTestSuite/visibility-8.hex.expected b/tests/GCCTestSuite/visibility-8.hex.expected new file mode 100644 index 0000000..c059f8b --- /dev/null +++ b/tests/GCCTestSuite/visibility-8.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F501E509F5029C +:10002000E509F503E509F504E509F505E501C0E095 +:10003000E500C0E075E0042506F50675E00035072B +:10004000F507E502F582E503F583E504F500E5052E +:10005000F501220000000000000000000000000088 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-8.s.expected b/tests/GCCTestSuite/visibility-8.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-8.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-9.c b/tests/GCCTestSuite/visibility-9.c new file mode 100644 index 0000000..9d57516 --- /dev/null +++ b/tests/GCCTestSuite/visibility-9.c @@ -0,0 +1,9 @@ +/* Test that -fvisibility works. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-options "-fvisibility=hidden" } */ +/* { dg-final { scan-hidden "foo" } } */ + +void foo(); + +void foo() { } diff --git a/tests/GCCTestSuite/visibility-9.c.expected b/tests/GCCTestSuite/visibility-9.c.expected new file mode 100644 index 0000000..9d57516 --- /dev/null +++ b/tests/GCCTestSuite/visibility-9.c.expected @@ -0,0 +1,9 @@ +/* Test that -fvisibility works. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-options "-fvisibility=hidden" } */ +/* { dg-final { scan-hidden "foo" } } */ + +void foo(); + +void foo() { } diff --git a/tests/GCCTestSuite/visibility-9.hex.expected b/tests/GCCTestSuite/visibility-9.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/visibility-9.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-9.s.expected b/tests/GCCTestSuite/visibility-9.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-9.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-a.c b/tests/GCCTestSuite/visibility-a.c new file mode 100644 index 0000000..23a51d7 --- /dev/null +++ b/tests/GCCTestSuite/visibility-a.c @@ -0,0 +1,10 @@ +/* Test that #pragma GCC visibility works. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "foo" } } */ + +#pragma GCC visibility push(hidden) +void foo(); +#pragma GCC visibility pop + +void foo() { } diff --git a/tests/GCCTestSuite/visibility-a.c.expected b/tests/GCCTestSuite/visibility-a.c.expected new file mode 100644 index 0000000..23a51d7 --- /dev/null +++ b/tests/GCCTestSuite/visibility-a.c.expected @@ -0,0 +1,10 @@ +/* Test that #pragma GCC visibility works. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-hidden "foo" } } */ + +#pragma GCC visibility push(hidden) +void foo(); +#pragma GCC visibility pop + +void foo() { } diff --git a/tests/GCCTestSuite/visibility-a.hex.expected b/tests/GCCTestSuite/visibility-a.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/visibility-a.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-a.s.expected b/tests/GCCTestSuite/visibility-a.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-a.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-b.c b/tests/GCCTestSuite/visibility-b.c new file mode 100644 index 0000000..b1f1575 --- /dev/null +++ b/tests/GCCTestSuite/visibility-b.c @@ -0,0 +1,13 @@ +/* { dg-do assemble { target *-*-darwin* } } */ + +#define __private_extern__ extern __attribute__((visibility ("hidden"))) + +__private_extern__ int n; + +int +mach_error_type(int sub) +{ + if (sub >= n) + return 1; + return 0; +} diff --git a/tests/GCCTestSuite/visibility-b.c.expected b/tests/GCCTestSuite/visibility-b.c.expected new file mode 100644 index 0000000..b1f1575 --- /dev/null +++ b/tests/GCCTestSuite/visibility-b.c.expected @@ -0,0 +1,13 @@ +/* { dg-do assemble { target *-*-darwin* } } */ + +#define __private_extern__ extern __attribute__((visibility ("hidden"))) + +__private_extern__ int n; + +int +mach_error_type(int sub) +{ + if (sub >= n) + return 1; + return 0; +} diff --git a/tests/GCCTestSuite/visibility-b.hex.expected b/tests/GCCTestSuite/visibility-b.hex.expected new file mode 100644 index 0000000..f730101 --- /dev/null +++ b/tests/GCCTestSuite/visibility-b.hex.expected @@ -0,0 +1,88 @@ +:1000000000E506758209C39582F506E5077583004C +:100010009583F507D0E0F50875E0012506F58275B2 +:10002000E0003507F583E508F0D0E0F50875E0005D +:100030002506F58275E0003507F583E508F0E5163D +:10004000F518E515F519E514F51AE513F51B75E036 +:10005000042506F58275E0003507F583E512F07595 +:10006000E0032506F58275E0003507F583E511F01C +:1000700075E0022506F58275E0003507F583E51089 +:10008000F0E51FF500E51EF501E51DF509900000FE +:10009000E582F50C900000E583F50D750B00C37546 +:1000A0000A00E50BF5F0E50C35F0F50BE50AF5F087 +:1000B000E50D35F0F50AE50AF502E50BF582E502F6 +:1000C000F583E0F514750B01C3750A00E50BF5F037 +:1000D000E50C35F0F50BE50AF5F0E50D35F0F50A20 +:1000E000E50AF502E50BF582E502F583E0F510750A +:1000F0000B02C3750A00E50BF5F0E50C35F0F50BC6 +:10010000E50AF5F0E50D35F0F50AE50AF502E50B2F +:10011000F582E502F583E0F511750B03C3750A005E +:10012000E50BF5F0E50C35F0F50BE50AF5F0E50D1E +:1001300035F0F50AE50AF502E50BF582E502F583EF +:10014000E0F512E500F516E501F515E509F513757D +:100150000080E500F5F0E51C25F0F51CE500F5F064 +:10016000E51225F0F512750C00750D00750E007581 +:100170000F00750B00750A01750001C3E512F5F05B +:10018000E51C95F0F509E50BF5F0E50B35F0F50903 +:10019000E509F5F0E50055F0F500E500F5F0E50CB2 +:1001A00045F0F50C750001C3E512F5F0E51C95F07E +:1001B000F509E50BF5F0E50B35F0F509E51CF5F073 +:1001C000E51295F0F501E50BF5F0E50B35F0F501DD +:1001D000E501F5F0E50945F0F509E50AF5F0E50971 +:1001E00065F0F509E509F5F0E50055F0F500C3E522 +:1001F00011F5F0E51395F0F509E50BF5F0E50B3594 +:10020000F0F509E509F5F0E50055F0F500E500F534 +:10021000F0E50C45F0F50C750001C3E512F5F0E5CD +:100220001C95F0F509E50BF5F0E50B35F0F509E562 +:100230001CF5F0E51295F0F501E50BF5F0E50B3551 +:10024000F0F501E501F5F0E50945F0F509E50AF5F8 +:10025000F0E50965F0F509E509F5F0E50055F0F57B +:1002600000C3E511F5F0E51395F0F509E50BF5F0A0 +:10027000E50B35F0F509E513F5F0E51195F0F5011D +:10028000E50BF5F0E50B35F0F501E501F5F0E509D5 +:1002900045F0F509E50AF5F0E50965F0F509E50928 +:1002A000F5F0E50055F0F500C3E510F5F0E515951E +:1002B000F0F509E50BF5F0E50B35F0F509E509F585 +:1002C000F0E50055F0F500E500F5F0E50C45F0F53A +:1002D0000C750001C3E512F5F0E51C95F0F509E594 +:1002E0000BF5F0E50B35F0F509E51CF5F0E5129599 +:1002F000F0F501E50BF5F0E50B35F0F501E501F55D +:10030000F0E50945F0F509E50AF5F0E50965F0F5D0 +:1003100009E509F5F0E50055F0F500C3E511F5F044 +:10032000E51395F0F509E50BF5F0E50B35F0F5096A +:10033000E513F5F0E51195F0F501E50BF5F0E50BAA +:1003400035F0F501E501F5F0E50945F0F509E50AB7 +:10035000F5F0E50965F0F509E509F5F0E50055F07A +:10036000F500C3E510F5F0E51595F0F509E50BF599 +:10037000F0E50B35F0F509E515F5F0E51095F0F52C +:1003800001E50BF5F0E50B35F0F501E501F5F0E5DC +:100390000945F0F509E50AF5F0E50965F0F509E527 +:1003A00009F5F0E50055F0F500C3E514F5F0E516A4 +:1003B00095F0F509E50BF5F0E50B35F0F509E509E4 +:1003C000F5F0E50055F0F500E500F5F0E50C45F039 +:1003D000F50CE50CF500E50EF501750C01C375098A +:1003E00000E500F5F0E50995F0F509750900E50966 +:1003F000F5F0E50935F0F509E509F5F0E50C65F0EE +:10040000F50CC3750900E50DF5F0E50995F0F50962 +:10041000750900E509F5F0E50935F0F509E509F597 +:10042000F0E50C65F0F50CC3750900E501F5F0E5A4 +:100430000995F0F509750900E509F5F0E50935F0CC +:10044000F509E509F5F0E50C65F0F50CC375090053 +:10045000E50FF5F0E50995F0F509750900E509F5F1 +:10046000F0E50935F0F509E509F5F0E50C65F0F57D +:100470000C750D00750E00750F00750000E50CF58C +:10048000F0E50045F0F500E50DF5F0E50045F0F587 +:1004900000E50EF5F0E50045F0F500E50FF5F0E5B7 +:1004A0000045F0F500E50070028003020557007575 +:1004B0000000750100750900750A00E500F502E508 +:1004C00001F503E509F504E50AF505E518F516E576 +:1004D00019F515E51AF514E51BF51375E004250665 +:1004E000F58275E0003507F583E0F51275E0032528 +:1004F00006F58275E0003507F583E0F51175E00239 +:100500002506F58275E0003507F583E0F51075E006 +:10051000002506F58275E0003507F583E0F508E56E +:1005200008C0E075E0012506F58275E0003507F5A5 +:1005300083E0F508E508C0E075E0092506F50675D5 +:10054000E0003507F507E502F582E503F583E504EC +:10055000F500E505F501220075000175010075093A +:1005600000750A000204BB0000000000000000004B +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-b.s.expected b/tests/GCCTestSuite/visibility-b.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-b.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-c.c b/tests/GCCTestSuite/visibility-c.c new file mode 100644 index 0000000..22412e0 --- /dev/null +++ b/tests/GCCTestSuite/visibility-c.c @@ -0,0 +1,10 @@ +/* Test that visibility works on common symbols also. */ +/* { dg-do assemble } */ +/* { dg-require-visibility "" } */ + +int options __attribute__((__visibility__("hidden"))); + +void f(void) +{ + options = 0; +} diff --git a/tests/GCCTestSuite/visibility-c.c.expected b/tests/GCCTestSuite/visibility-c.c.expected new file mode 100644 index 0000000..22412e0 --- /dev/null +++ b/tests/GCCTestSuite/visibility-c.c.expected @@ -0,0 +1,10 @@ +/* Test that visibility works on common symbols also. */ +/* { dg-do assemble } */ +/* { dg-require-visibility "" } */ + +int options __attribute__((__visibility__("hidden"))); + +void f(void) +{ + options = 0; +} diff --git a/tests/GCCTestSuite/visibility-c.hex.expected b/tests/GCCTestSuite/visibility-c.hex.expected new file mode 100644 index 0000000..24eb86c --- /dev/null +++ b/tests/GCCTestSuite/visibility-c.hex.expected @@ -0,0 +1,18 @@ +:1000000000D0E0F518D0E0F519E512F50F900000EA +:10001000E582F50D900000E583F50E750900750A7F +:1000200000750B00750C00750100C3750000E5013B +:10003000F5F0E50D35F0F501E500F5F0E50E35F0EC +:10004000F500E509F503E500F502E501F582E502B5 +:10005000F583E503F0750101C3750000E501F5F0D6 +:10006000E50D35F0F501E500F5F0E50E35F0F500AC +:10007000E50AF503E500F502E501F582E502F58301 +:10008000E503F0750102C3750000E501F5F0E50D2B +:1000900035F0F501E500F5F0E50E35F0F500E50B7E +:1000A000F503E500F502E501F582E502F583E503D8 +:1000B000F0750103C3750000E501F5F0E50D35F0BD +:1000C000F501E500F5F0E50E35F0F500E50CF5037A +:1000D000E500F502E501F582E502F583E503F0753B +:1000E0000000E500F502E500F503E500F504E50094 +:1000F000F505E50FF512E519C0E0E518C0E0E502E9 +:10010000F582E503F583E504F500E505F501220038 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-c.s.expected b/tests/GCCTestSuite/visibility-c.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-c.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-d.c b/tests/GCCTestSuite/visibility-d.c new file mode 100644 index 0000000..6f8851b --- /dev/null +++ b/tests/GCCTestSuite/visibility-d.c @@ -0,0 +1,205 @@ +/* PR middle-end/20303 */ +/* Test nesting of #pragma GCC visibility. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-not-hidden "foo00" } } */ +/* { dg-final { scan-hidden "foo01" } } */ +/* { dg-final { scan-not-hidden "foo02" } } */ +/* { dg-final { scan-hidden "foo03" } } */ +/* { dg-final { scan-not-hidden "foo04" } } */ +/* { dg-final { scan-not-hidden "foo05" } } */ +/* { dg-final { scan-not-hidden "foo06" } } */ +/* { dg-final { scan-hidden "foo07" } } */ +/* { dg-final { scan-not-hidden "foo08" } } */ +/* { dg-final { scan-hidden "foo09" } } */ +/* { dg-final { scan-not-hidden "foo10" } } */ +/* { dg-final { scan-hidden "foo11" } } */ +/* { dg-final { scan-hidden "foo12" } } */ +/* { dg-final { scan-hidden "foo13" } } */ +/* { dg-final { scan-not-hidden "foo14" } } */ +/* { dg-final { scan-hidden "foo15" } } */ +/* { dg-final { scan-not-hidden "foo16" } } */ +/* { dg-final { scan-hidden "foo17" } } */ +/* { dg-final { scan-not-hidden "foo18" } } */ +/* { dg-final { scan-hidden "foo19" } } */ +/* { dg-final { scan-not-hidden "foo20" } } */ +/* { dg-final { scan-hidden "foo21" } } */ +/* { dg-final { scan-not-hidden "foo22" } } */ +/* { dg-final { scan-hidden "foo23" } } */ +/* { dg-final { scan-not-hidden "foo24" } } */ +/* { dg-final { scan-hidden "foo25" } } */ +/* { dg-final { scan-not-hidden "foo26" } } */ +/* { dg-final { scan-hidden "foo27" } } */ +/* { dg-final { scan-not-hidden "foo28" } } */ +/* { dg-final { scan-hidden "foo29" } } */ +/* { dg-final { scan-not-hidden "foo30" } } */ +/* { dg-final { scan-hidden "foo31" } } */ +/* { dg-final { scan-not-hidden "foo32" } } */ +/* { dg-final { scan-hidden "foo33" } } */ +/* { dg-final { scan-not-hidden "foo34" } } */ +/* { dg-final { scan-hidden "foo35" } } */ +/* { dg-final { scan-not-hidden "foo36" } } */ +/* { dg-final { scan-hidden "foo37" } } */ +/* { dg-final { scan-not-hidden "foo38" } } */ +/* { dg-final { scan-hidden "foo39" } } */ +/* { dg-final { scan-not-hidden "foo40" } } */ +/* { dg-final { scan-hidden "foo41" } } */ +/* { dg-final { scan-not-hidden "foo42" } } */ +/* { dg-final { scan-hidden "foo43" } } */ +/* { dg-final { scan-not-hidden "foo44" } } */ +/* { dg-final { scan-hidden "foo45" } } */ +/* { dg-final { scan-hidden "foo46" } } */ +/* { dg-final { scan-hidden "foo47" } } */ +/* { dg-final { scan-not-hidden "foo48" } } */ +/* { dg-final { scan-hidden "foo49" } } */ +/* { dg-final { scan-not-hidden "foo50" } } */ +/* { dg-final { scan-hidden "foo51" } } */ +/* { dg-final { scan-not-hidden "foo52" } } */ +/* { dg-final { scan-not-hidden "foo53" } } */ +/* { dg-final { scan-not-hidden "foo54" } } */ +/* { dg-final { scan-hidden "foo55" } } */ +/* { dg-final { scan-not-hidden "foo56" } } */ +/* { dg-final { scan-hidden "foo57" } } */ +/* { dg-final { scan-not-hidden "foo58" } } */ +/* { dg-final { scan-hidden "foo59" } } */ + +#pragma GCC visibility push(default) +void foo00(); +#pragma GCC visibility push(hidden) +void foo01(); +#pragma GCC visibility push(default) +void foo02(); +#pragma GCC visibility push(hidden) +void foo03(); +#pragma GCC visibility push(default) +void foo04(); +#pragma GCC visibility push(default) +void foo05(); +#pragma GCC visibility push(default) +void foo06(); +#pragma GCC visibility push(hidden) +void foo07(); +#pragma GCC visibility push(default) +void foo08(); +#pragma GCC visibility push(hidden) +void foo09(); +#pragma GCC visibility push(default) +void foo10(); +#pragma GCC visibility push(hidden) +void foo11(); +#pragma GCC visibility push(hidden) +void foo12(); +#pragma GCC visibility push(hidden) +void foo13(); +#pragma GCC visibility push(default) +void foo14(); +#pragma GCC visibility push(hidden) +void foo15(); +#pragma GCC visibility push(default) +void foo16(); +#pragma GCC visibility push(hidden) +void foo17(); +#pragma GCC visibility push(default) +void foo18(); +#pragma GCC visibility push(hidden) +void foo19(); +#pragma GCC visibility push(default) +void foo20(); +#pragma GCC visibility push(hidden) +void foo21(); +#pragma GCC visibility push(default) +void foo22(); +#pragma GCC visibility push(hidden) +void foo23(); +#pragma GCC visibility push(default) +void foo24(); +#pragma GCC visibility push(hidden) +void foo25(); +#pragma GCC visibility push(default) +void foo26(); +#pragma GCC visibility push(hidden) +void foo27(); +#pragma GCC visibility push(default) +void foo28(); +#pragma GCC visibility push(hidden) +void foo29(); +#pragma GCC visibility pop +void foo30(); +#pragma GCC visibility pop +void foo31(); +#pragma GCC visibility pop +void foo32(); +#pragma GCC visibility pop +void foo33(); +#pragma GCC visibility pop +void foo34(); +#pragma GCC visibility pop +void foo35(); +#pragma GCC visibility pop +void foo36(); +#pragma GCC visibility pop +void foo37(); +#pragma GCC visibility pop +void foo38(); +#pragma GCC visibility pop +void foo39(); +#pragma GCC visibility pop +void foo40(); +#pragma GCC visibility pop +void foo41(); +#pragma GCC visibility pop +void foo42(); +#pragma GCC visibility pop +void foo43(); +#pragma GCC visibility pop +void foo44(); +#pragma GCC visibility pop +void foo45(); +#pragma GCC visibility pop +void foo46(); +#pragma GCC visibility pop +void foo47(); +#pragma GCC visibility pop +void foo48(); +#pragma GCC visibility pop +void foo49(); +#pragma GCC visibility pop +void foo50(); +#pragma GCC visibility pop +void foo51(); +#pragma GCC visibility pop +void foo52(); +#pragma GCC visibility pop +void foo53(); +#pragma GCC visibility pop +void foo54(); +#pragma GCC visibility pop +void foo55(); +#pragma GCC visibility pop +void foo56(); +#pragma GCC visibility pop +void foo57(); +#pragma GCC visibility pop +void foo58(); +#pragma GCC visibility push (hidden) +void foo59(); +#pragma GCC visibility pop +#pragma GCC visibility pop + +#define D(N) \ +void foo##N##0() { } \ +void foo##N##1() { } \ +void foo##N##2() { } \ +void foo##N##3() { } \ +void foo##N##4() { } \ +void foo##N##5() { } \ +void foo##N##6() { } \ +void foo##N##7() { } \ +void foo##N##8() { } \ +void foo##N##9() { } +D(0) +D(1) +D(2) +D(3) +D(4) +D(5) diff --git a/tests/GCCTestSuite/visibility-d.c.expected b/tests/GCCTestSuite/visibility-d.c.expected new file mode 100644 index 0000000..6f8851b --- /dev/null +++ b/tests/GCCTestSuite/visibility-d.c.expected @@ -0,0 +1,205 @@ +/* PR middle-end/20303 */ +/* Test nesting of #pragma GCC visibility. */ +/* { dg-do compile } */ +/* { dg-require-visibility "" } */ +/* { dg-final { scan-not-hidden "foo00" } } */ +/* { dg-final { scan-hidden "foo01" } } */ +/* { dg-final { scan-not-hidden "foo02" } } */ +/* { dg-final { scan-hidden "foo03" } } */ +/* { dg-final { scan-not-hidden "foo04" } } */ +/* { dg-final { scan-not-hidden "foo05" } } */ +/* { dg-final { scan-not-hidden "foo06" } } */ +/* { dg-final { scan-hidden "foo07" } } */ +/* { dg-final { scan-not-hidden "foo08" } } */ +/* { dg-final { scan-hidden "foo09" } } */ +/* { dg-final { scan-not-hidden "foo10" } } */ +/* { dg-final { scan-hidden "foo11" } } */ +/* { dg-final { scan-hidden "foo12" } } */ +/* { dg-final { scan-hidden "foo13" } } */ +/* { dg-final { scan-not-hidden "foo14" } } */ +/* { dg-final { scan-hidden "foo15" } } */ +/* { dg-final { scan-not-hidden "foo16" } } */ +/* { dg-final { scan-hidden "foo17" } } */ +/* { dg-final { scan-not-hidden "foo18" } } */ +/* { dg-final { scan-hidden "foo19" } } */ +/* { dg-final { scan-not-hidden "foo20" } } */ +/* { dg-final { scan-hidden "foo21" } } */ +/* { dg-final { scan-not-hidden "foo22" } } */ +/* { dg-final { scan-hidden "foo23" } } */ +/* { dg-final { scan-not-hidden "foo24" } } */ +/* { dg-final { scan-hidden "foo25" } } */ +/* { dg-final { scan-not-hidden "foo26" } } */ +/* { dg-final { scan-hidden "foo27" } } */ +/* { dg-final { scan-not-hidden "foo28" } } */ +/* { dg-final { scan-hidden "foo29" } } */ +/* { dg-final { scan-not-hidden "foo30" } } */ +/* { dg-final { scan-hidden "foo31" } } */ +/* { dg-final { scan-not-hidden "foo32" } } */ +/* { dg-final { scan-hidden "foo33" } } */ +/* { dg-final { scan-not-hidden "foo34" } } */ +/* { dg-final { scan-hidden "foo35" } } */ +/* { dg-final { scan-not-hidden "foo36" } } */ +/* { dg-final { scan-hidden "foo37" } } */ +/* { dg-final { scan-not-hidden "foo38" } } */ +/* { dg-final { scan-hidden "foo39" } } */ +/* { dg-final { scan-not-hidden "foo40" } } */ +/* { dg-final { scan-hidden "foo41" } } */ +/* { dg-final { scan-not-hidden "foo42" } } */ +/* { dg-final { scan-hidden "foo43" } } */ +/* { dg-final { scan-not-hidden "foo44" } } */ +/* { dg-final { scan-hidden "foo45" } } */ +/* { dg-final { scan-hidden "foo46" } } */ +/* { dg-final { scan-hidden "foo47" } } */ +/* { dg-final { scan-not-hidden "foo48" } } */ +/* { dg-final { scan-hidden "foo49" } } */ +/* { dg-final { scan-not-hidden "foo50" } } */ +/* { dg-final { scan-hidden "foo51" } } */ +/* { dg-final { scan-not-hidden "foo52" } } */ +/* { dg-final { scan-not-hidden "foo53" } } */ +/* { dg-final { scan-not-hidden "foo54" } } */ +/* { dg-final { scan-hidden "foo55" } } */ +/* { dg-final { scan-not-hidden "foo56" } } */ +/* { dg-final { scan-hidden "foo57" } } */ +/* { dg-final { scan-not-hidden "foo58" } } */ +/* { dg-final { scan-hidden "foo59" } } */ + +#pragma GCC visibility push(default) +void foo00(); +#pragma GCC visibility push(hidden) +void foo01(); +#pragma GCC visibility push(default) +void foo02(); +#pragma GCC visibility push(hidden) +void foo03(); +#pragma GCC visibility push(default) +void foo04(); +#pragma GCC visibility push(default) +void foo05(); +#pragma GCC visibility push(default) +void foo06(); +#pragma GCC visibility push(hidden) +void foo07(); +#pragma GCC visibility push(default) +void foo08(); +#pragma GCC visibility push(hidden) +void foo09(); +#pragma GCC visibility push(default) +void foo10(); +#pragma GCC visibility push(hidden) +void foo11(); +#pragma GCC visibility push(hidden) +void foo12(); +#pragma GCC visibility push(hidden) +void foo13(); +#pragma GCC visibility push(default) +void foo14(); +#pragma GCC visibility push(hidden) +void foo15(); +#pragma GCC visibility push(default) +void foo16(); +#pragma GCC visibility push(hidden) +void foo17(); +#pragma GCC visibility push(default) +void foo18(); +#pragma GCC visibility push(hidden) +void foo19(); +#pragma GCC visibility push(default) +void foo20(); +#pragma GCC visibility push(hidden) +void foo21(); +#pragma GCC visibility push(default) +void foo22(); +#pragma GCC visibility push(hidden) +void foo23(); +#pragma GCC visibility push(default) +void foo24(); +#pragma GCC visibility push(hidden) +void foo25(); +#pragma GCC visibility push(default) +void foo26(); +#pragma GCC visibility push(hidden) +void foo27(); +#pragma GCC visibility push(default) +void foo28(); +#pragma GCC visibility push(hidden) +void foo29(); +#pragma GCC visibility pop +void foo30(); +#pragma GCC visibility pop +void foo31(); +#pragma GCC visibility pop +void foo32(); +#pragma GCC visibility pop +void foo33(); +#pragma GCC visibility pop +void foo34(); +#pragma GCC visibility pop +void foo35(); +#pragma GCC visibility pop +void foo36(); +#pragma GCC visibility pop +void foo37(); +#pragma GCC visibility pop +void foo38(); +#pragma GCC visibility pop +void foo39(); +#pragma GCC visibility pop +void foo40(); +#pragma GCC visibility pop +void foo41(); +#pragma GCC visibility pop +void foo42(); +#pragma GCC visibility pop +void foo43(); +#pragma GCC visibility pop +void foo44(); +#pragma GCC visibility pop +void foo45(); +#pragma GCC visibility pop +void foo46(); +#pragma GCC visibility pop +void foo47(); +#pragma GCC visibility pop +void foo48(); +#pragma GCC visibility pop +void foo49(); +#pragma GCC visibility pop +void foo50(); +#pragma GCC visibility pop +void foo51(); +#pragma GCC visibility pop +void foo52(); +#pragma GCC visibility pop +void foo53(); +#pragma GCC visibility pop +void foo54(); +#pragma GCC visibility pop +void foo55(); +#pragma GCC visibility pop +void foo56(); +#pragma GCC visibility pop +void foo57(); +#pragma GCC visibility pop +void foo58(); +#pragma GCC visibility push (hidden) +void foo59(); +#pragma GCC visibility pop +#pragma GCC visibility pop + +#define D(N) \ +void foo##N##0() { } \ +void foo##N##1() { } \ +void foo##N##2() { } \ +void foo##N##3() { } \ +void foo##N##4() { } \ +void foo##N##5() { } \ +void foo##N##6() { } \ +void foo##N##7() { } \ +void foo##N##8() { } \ +void foo##N##9() { } +D(0) +D(1) +D(2) +D(3) +D(4) +D(5) diff --git a/tests/GCCTestSuite/visibility-d.hex.expected b/tests/GCCTestSuite/visibility-d.hex.expected new file mode 100644 index 0000000..08b68e1 --- /dev/null +++ b/tests/GCCTestSuite/visibility-d.hex.expected @@ -0,0 +1,200 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F5012200D0E0F500D0E0F5017509F5 +:1000400000E509F502E509F503E509F504E509F51B +:1000500005E501C0E0E500C0E0E502F582E503F555 +:1000600083E504F500E505F5012200D0E0F500D0B8 +:10007000E0F501750900E509F502E509F503E50973 +:10008000F504E509F505E501C0E0E500C0E0E5029D +:10009000F582E503F583E504F500E505F5012200A9 +:1000A000D0E0F500D0E0F501750900E509F502E5BD +:1000B00009F503E509F504E509F505E501C0E0E505 +:1000C00000C0E0E502F582E503F583E504F500E50F +:1000D00005F5012200D0E0F500D0E0F5017509003A +:1000E000E509F502E509F503E509F504E509F50576 +:1000F000E501C0E0E500C0E0E502F582E503F58337 +:10010000E504F500E505F5012200D0E0F500D0E0BA +:10011000F501750900E509F502E509F503E509F5BD +:1001200004E509F505E501C0E0E500C0E0E502F5FC +:1001300082E503F583E504F500E505F5012200D02D +:10014000E0F500D0E0F501750900E509F502E509E3 +:10015000F503E509F504E509F505E501C0E0E5006D +:10016000C0E0E502F582E503F583E504F500E50569 +:10017000F5012200D0E0F500D0E0F501750900E5B9 +:1001800009F502E509F503E509F504E509F505E5D5 +:1001900001C0E0E500C0E0E502F582E503F583E596 +:1001A00004F500E505F5012200D0E0F500D0E0F50A +:1001B00001750900E509F502E509F503E509F5040E +:1001C000E509F505E501C0E0E500C0E0E502F582DE +:1001D000E503F583E504F500E505F5012200D0E02F +:1001E000F500D0E0F501750900E509F502E509F52E +:1001F00003E509F504E509F505E501C0E0E500C002 +:10020000E0E502F582E503F583E504F500E505F593 +:10021000012200D0E0F500D0E0F501750900E50904 +:10022000F502E509F503E509F504E509F505E5013C +:10023000C0E0E500C0E0E502F582E503F583E504F2 +:10024000F500E505F5012200D0E0F500D0E0F5016C +:10025000750900E509F502E509F503E509F504E589 +:1002600009F505E501C0E0E500C0E0E502F582E53D +:1002700003F583E504F500E505F5012200D0E0F57E +:1002800000D0E0F501750900E509F502E509F5037F +:10029000E509F504E509F505E501C0E0E500C0E084 +:1002A000E502F582E503F583E504F500E505F501D2 +:1002B0002200D0E0F500D0E0F501750900E509F570 +:1002C00002E509F503E509F504E509F505E501C0D1 +:1002D000E0E500C0E0E502F582E503F583E504F51D +:1002E00000E505F5012200D0E0F500D0E0F501754C +:1002F0000900E509F502E509F503E509F504E50955 +:10030000F505E501C0E0E500C0E0E502F582E503A2 +:10031000F583E504F500E505F5012200D0E0F500E0 +:10032000D0E0F501750900E509F502E509F503E5F9 +:1003300009F504E509F505E501C0E0E500C0E0E5E3 +:1003400002F582E503F583E504F500E505F50122F4 +:1003500000D0E0F500D0E0F501750900E509F502EF +:10036000E509F503E509F504E509F505E501C0E052 +:10037000E500C0E0E502F582E503F583E504F5005C +:10038000E505F5012200D0E0F500D0E0F5017509A2 +:1003900000E509F502E509F503E509F504E509F5C8 +:1003A00005E501C0E0E500C0E0E502F582E503F502 +:1003B00083E504F500E505F5012200D0E0F500D065 +:1003C000E0F501750900E509F502E509F503E50920 +:1003D000F504E509F505E501C0E0E500C0E0E5024A +:1003E000F582E503F583E504F500E505F501220056 +:1003F000D0E0F500D0E0F501750900E509F502E56A +:1004000009F503E509F504E509F505E501C0E0E5B1 +:1004100000C0E0E502F582E503F583E504F500E5BB +:1004200005F5012200D0E0F500D0E0F501750900E6 +:10043000E509F502E509F503E509F504E509F50522 +:10044000E501C0E0E500C0E0E502F582E503F583E3 +:10045000E504F500E505F5012200D0E0F500D0E067 +:10046000F501750900E509F502E509F503E509F56A +:1004700004E509F505E501C0E0E500C0E0E502F5A9 +:1004800082E503F583E504F500E505F5012200D0DA +:10049000E0F500D0E0F501750900E509F502E50990 +:1004A000F503E509F504E509F505E501C0E0E5001A +:1004B000C0E0E502F582E503F583E504F500E50516 +:1004C000F5012200D0E0F500D0E0F501750900E566 +:1004D00009F502E509F503E509F504E509F505E582 +:1004E00001C0E0E500C0E0E502F582E503F583E543 +:1004F00004F500E505F5012200D0E0F500D0E0F5B7 +:1005000001750900E509F502E509F503E509F504BA +:10051000E509F505E501C0E0E500C0E0E502F5828A +:10052000E503F583E504F500E505F5012200D0E0DB +:10053000F500D0E0F501750900E509F502E509F5DA +:1005400003E509F504E509F505E501C0E0E500C0AE +:10055000E0E502F582E503F583E504F500E505F540 +:10056000012200D0E0F500D0E0F501750900E509B1 +:10057000F502E509F503E509F504E509F505E501E9 +:10058000C0E0E500C0E0E502F582E503F583E5049F +:10059000F500E505F5012200D0E0F500D0E0F50119 +:1005A000750900E509F502E509F503E509F504E536 +:1005B00009F505E501C0E0E500C0E0E502F582E5EA +:1005C00003F583E504F500E505F5012200D0E0F52B +:1005D00000D0E0F501750900E509F502E509F5032C +:1005E000E509F504E509F505E501C0E0E500C0E031 +:1005F000E502F582E503F583E504F500E505F5017F +:100600002200D0E0F500D0E0F501750900E509F51C +:1006100002E509F503E509F504E509F505E501C07D +:10062000E0E500C0E0E502F582E503F583E504F5C9 +:1006300000E505F5012200D0E0F500D0E0F50175F8 +:100640000900E509F502E509F503E509F504E50901 +:10065000F505E501C0E0E500C0E0E502F582E5034F +:10066000F583E504F500E505F5012200D0E0F5008D +:10067000D0E0F501750900E509F502E509F503E5A6 +:1006800009F504E509F505E501C0E0E500C0E0E590 +:1006900002F582E503F583E504F500E505F50122A1 +:1006A00000D0E0F500D0E0F501750900E509F5029C +:1006B000E509F503E509F504E509F505E501C0E0FF +:1006C000E500C0E0E502F582E503F583E504F50009 +:1006D000E505F5012200D0E0F500D0E0F50175094F +:1006E00000E509F502E509F503E509F504E509F575 +:1006F00005E501C0E0E500C0E0E502F582E503F5AF +:1007000083E504F500E505F5012200D0E0F500D011 +:10071000E0F501750900E509F502E509F503E509CC +:10072000F504E509F505E501C0E0E500C0E0E502F6 +:10073000F582E503F583E504F500E505F501220002 +:10074000D0E0F500D0E0F501750900E509F502E516 +:1007500009F503E509F504E509F505E501C0E0E55E +:1007600000C0E0E502F582E503F583E504F500E568 +:1007700005F5012200D0E0F500D0E0F50175090093 +:10078000E509F502E509F503E509F504E509F505CF +:10079000E501C0E0E500C0E0E502F582E503F58390 +:1007A000E504F500E505F5012200D0E0F500D0E014 +:1007B000F501750900E509F502E509F503E509F517 +:1007C00004E509F505E501C0E0E500C0E0E502F556 +:1007D00082E503F583E504F500E505F5012200D087 +:1007E000E0F500D0E0F501750900E509F502E5093D +:1007F000F503E509F504E509F505E501C0E0E500C7 +:10080000C0E0E502F582E503F583E504F500E505C2 +:10081000F5012200D0E0F500D0E0F501750900E512 +:1008200009F502E509F503E509F504E509F505E52E +:1008300001C0E0E500C0E0E502F582E503F583E5EF +:1008400004F500E505F5012200D0E0F500D0E0F563 +:1008500001750900E509F502E509F503E509F50467 +:10086000E509F505E501C0E0E500C0E0E502F58237 +:10087000E503F583E504F500E505F5012200D0E088 +:10088000F500D0E0F501750900E509F502E509F587 +:1008900003E509F504E509F505E501C0E0E500C05B +:1008A000E0E502F582E503F583E504F500E505F5ED +:1008B000012200D0E0F500D0E0F501750900E5095E +:1008C000F502E509F503E509F504E509F505E50196 +:1008D000C0E0E500C0E0E502F582E503F583E5044C +:1008E000F500E505F5012200D0E0F500D0E0F501C6 +:1008F000750900E509F502E509F503E509F504E5E3 +:1009000009F505E501C0E0E500C0E0E502F582E596 +:1009100003F583E504F500E505F5012200D0E0F5D7 +:1009200000D0E0F501750900E509F502E509F503D8 +:10093000E509F504E509F505E501C0E0E500C0E0DD +:10094000E502F582E503F583E504F500E505F5012B +:100950002200D0E0F500D0E0F501750900E509F5C9 +:1009600002E509F503E509F504E509F505E501C02A +:10097000E0E500C0E0E502F582E503F583E504F576 +:1009800000E505F5012200D0E0F500D0E0F50175A5 +:100990000900E509F502E509F503E509F504E509AE +:1009A000F505E501C0E0E500C0E0E502F582E503FC +:1009B000F583E504F500E505F5012200D0E0F5003A +:1009C000D0E0F501750900E509F502E509F503E553 +:1009D00009F504E509F505E501C0E0E500C0E0E53D +:1009E00002F582E503F583E504F500E505F501224E +:1009F00000D0E0F500D0E0F501750900E509F50249 +:100A0000E509F503E509F504E509F505E501C0E0AB +:100A1000E500C0E0E502F582E503F583E504F500B5 +:100A2000E505F5012200D0E0F500D0E0F5017509FB +:100A300000E509F502E509F503E509F504E509F521 +:100A400005E501C0E0E500C0E0E502F582E503F55B +:100A500083E504F500E505F5012200D0E0F500D0BE +:100A6000E0F501750900E509F502E509F503E50979 +:100A7000F504E509F505E501C0E0E500C0E0E502A3 +:100A8000F582E503F583E504F500E505F5012200AF +:100A9000D0E0F500D0E0F501750900E509F502E5C3 +:100AA00009F503E509F504E509F505E501C0E0E50B +:100AB00000C0E0E502F582E503F583E504F500E515 +:100AC00005F5012200D0E0F500D0E0F50175090040 +:100AD000E509F502E509F503E509F504E509F5057C +:100AE000E501C0E0E500C0E0E502F582E503F5833D +:100AF000E504F500E505F5012200D0E0F500D0E0C1 +:100B0000F501750900E509F502E509F503E509F5C3 +:100B100004E509F505E501C0E0E500C0E0E502F502 +:100B200082E503F583E504F500E505F5012200D033 +:100B3000E0F500D0E0F501750900E509F502E509E9 +:100B4000F503E509F504E509F505E501C0E0E50073 +:100B5000C0E0E502F582E503F583E504F500E5056F +:100B6000F5012200D0E0F500D0E0F501750900E5BF +:100B700009F502E509F503E509F504E509F505E5DB +:100B800001C0E0E500C0E0E502F582E503F583E59C +:100B900004F500E505F5012200D0E0F500D0E0F510 +:100BA00001750900E509F502E509F503E509F50414 +:100BB000E509F505E501C0E0E500C0E0E502F582E4 +:100BC000E503F583E504F500E505F5012200D0E035 +:100BD000F500D0E0F501750900E509F502E509F534 +:100BE00003E509F504E509F505E501C0E0E500C008 +:100BF000E0E502F582E503F583E504F500E505F59A +:100C0000012200D0E0F500D0E0F501750900E5090A +:100C1000F502E509F503E509F504E509F505E50142 +:100C2000C0E0E500C0E0E502F582E503F583E504F8 +:100C3000F500E505F5012200D0E0F500D0E0F50172 +:100C4000750900E509F502E509F503E509F504E58F +:100C500009F505E501C0E0E500C0E0E502F582E543 +:100C600003F583E504F500E505F501220000000029 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/visibility-d.s.expected b/tests/GCCTestSuite/visibility-d.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/visibility-d.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/void-cast-1.c b/tests/GCCTestSuite/void-cast-1.c new file mode 100644 index 0000000..bd4e7b3 --- /dev/null +++ b/tests/GCCTestSuite/void-cast-1.c @@ -0,0 +1,11 @@ +/* Don't warn where the left-hand side of a comma expression is a + comma expression whose right-hand side is cast to void. Bug + 21159. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +int a, b, c, d; +int e(void) { return (void)a, b; } +int f(void) { return (void)a, (void)b, c; } +int g(void) { return (void)a, (void)b, (void)c, d; } diff --git a/tests/GCCTestSuite/void-cast-1.c.expected b/tests/GCCTestSuite/void-cast-1.c.expected new file mode 100644 index 0000000..bd4e7b3 --- /dev/null +++ b/tests/GCCTestSuite/void-cast-1.c.expected @@ -0,0 +1,11 @@ +/* Don't warn where the left-hand side of a comma expression is a + comma expression whose right-hand side is cast to void. Bug + 21159. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +int a, b, c, d; +int e(void) { return (void)a, b; } +int f(void) { return (void)a, (void)b, c; } +int g(void) { return (void)a, (void)b, (void)c, d; } diff --git a/tests/GCCTestSuite/void-cast-1.hex.expected b/tests/GCCTestSuite/void-cast-1.hex.expected new file mode 100644 index 0000000..3aa304a --- /dev/null +++ b/tests/GCCTestSuite/void-cast-1.hex.expected @@ -0,0 +1,48 @@ +:1000000000D0E0F518D0E0F519E511F50EE510F592 +:100010000F900004E582F509900004E583F50A7568 +:100020000100C3750000E501F5F0E50935F0F501C3 +:10003000E500F5F0E50A35F0F500E500F502E5012B +:10004000F582E502F583E0F50B750101C37500004B +:10005000E501F5F0E50935F0F501E500F5F0E50A13 +:1000600035F0F500E500F502E501F582E502F583DE +:10007000E0F50C750102C3750000E501F5F0E50936 +:1000800035F0F501E500F5F0E50A35F0F500E5009D +:10009000F502E501F582E502F583E0F50D75010352 +:1000A000C3750000E501F5F0E50935F0F501E5005F +:1000B000F5F0E50A35F0F500E500F502E501F58219 +:1000C000E502F583E0F500E50BF502E50CF503E547 +:1000D0000DF504E500F505E50EF511E50FF510E564 +:1000E00019C0E0E518C0E0E502F582E503F583E517 +:1000F00004F500E505F5012200D0E0F518D0E0F5A3 +:1001000019E511F50EE510F50F900008E582F509E7 +:10011000900008E583F50A750100C3750000E5014C +:10012000F5F0E50935F0F501E500F5F0E50A35F003 +:10013000F500E500F502E501F582E502F583E0F55D +:100140000B750101C3750000E501F5F0E50935F017 +:10015000F501E500F5F0E50A35F0F500E500F502FA +:10016000E501F582E502F583E0F50C750102C37542 +:100170000000E501F5F0E50935F0F501E500F5F0E1 +:10018000E50A35F0F500E500F502E501F582E50246 +:10019000F583E0F50D750103C3750000E501F5F089 +:1001A000E50935F0F501E500F5F0E50A35F0F50073 +:1001B000E500F502E501F582E502F583E0F500E5ED +:1001C0000BF502E50CF503E50DF504E500F505E595 +:1001D0000EF511E50FF510E519C0E0E518C0E0E5F2 +:1001E00002F582E503F583E504F500E505F5012256 +:1001F00000D0E0F518D0E0F519E511F50EE510F5A1 +:100200000F90000CE582F50990000CE583F50A7566 +:100210000100C3750000E501F5F0E50935F0F501D1 +:10022000E500F5F0E50A35F0F500E500F502E50139 +:10023000F582E502F583E0F50B750101C375000059 +:10024000E501F5F0E50935F0F501E500F5F0E50A21 +:1002500035F0F500E500F502E501F582E502F583EC +:10026000E0F50C750102C3750000E501F5F0E50944 +:1002700035F0F501E500F5F0E50A35F0F500E500AB +:10028000F502E501F582E502F583E0F50D75010360 +:10029000C3750000E501F5F0E50935F0F501E5006D +:1002A000F5F0E50A35F0F500E500F502E501F58227 +:1002B000E502F583E0F500E50BF502E50CF503E555 +:1002C0000DF504E500F505E50EF511E50FF510E572 +:1002D00019C0E0E518C0E0E502F582E503F583E525 +:1002E00004F500E505F50122000000000000000013 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/void-cast-1.s.expected b/tests/GCCTestSuite/void-cast-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/void-cast-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/void-cast-2.c b/tests/GCCTestSuite/void-cast-2.c new file mode 100644 index 0000000..c51e91a --- /dev/null +++ b/tests/GCCTestSuite/void-cast-2.c @@ -0,0 +1,8 @@ +/* Test further cases of warnings for comma expressions, with and + without casts to void. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ +int a, b, c, d; +int e(void) { return (char)a, b; } /* { dg-warning "warning: left-hand operand of comma expression has no effect" } */ +int f(void) { return (a ? (void)b : (void)c), d; } /* { dg-warning "warning: left-hand operand of comma expression has no effect" } */ diff --git a/tests/GCCTestSuite/void-cast-2.c.expected b/tests/GCCTestSuite/void-cast-2.c.expected new file mode 100644 index 0000000..c51e91a --- /dev/null +++ b/tests/GCCTestSuite/void-cast-2.c.expected @@ -0,0 +1,8 @@ +/* Test further cases of warnings for comma expressions, with and + without casts to void. */ +/* Origin: Joseph Myers */ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ +int a, b, c, d; +int e(void) { return (char)a, b; } /* { dg-warning "warning: left-hand operand of comma expression has no effect" } */ +int f(void) { return (a ? (void)b : (void)c), d; } /* { dg-warning "warning: left-hand operand of comma expression has no effect" } */ diff --git a/tests/GCCTestSuite/void-cast-2.hex.expected b/tests/GCCTestSuite/void-cast-2.hex.expected new file mode 100644 index 0000000..60b2fc3 --- /dev/null +++ b/tests/GCCTestSuite/void-cast-2.hex.expected @@ -0,0 +1,32 @@ +:1000000000D0E0F518D0E0F519E511F50EE510F592 +:100010000F900004E582F509900004E583F50A7568 +:100020000100C3750000E501F5F0E50935F0F501C3 +:10003000E500F5F0E50A35F0F500E500F502E5012B +:10004000F582E502F583E0F50B750101C37500004B +:10005000E501F5F0E50935F0F501E500F5F0E50A13 +:1000600035F0F500E500F502E501F582E502F583DE +:10007000E0F50C750102C3750000E501F5F0E50936 +:1000800035F0F501E500F5F0E50A35F0F500E5009D +:10009000F502E501F582E502F583E0F50D75010352 +:1000A000C3750000E501F5F0E50935F0F501E5005F +:1000B000F5F0E50A35F0F500E500F502E501F58219 +:1000C000E502F583E0F500E50BF502E50CF503E547 +:1000D0000DF504E500F505E50EF511E50FF510E564 +:1000E00019C0E0E518C0E0E502F582E503F583E517 +:1000F00004F500E505F5012200D0E0F518D0E0F5A3 +:1001000019E511F50EE510F50F90000CE582F509E3 +:1001100090000CE583F50A750100C3750000E50148 +:10012000F5F0E50935F0F501E500F5F0E50A35F003 +:10013000F500E500F502E501F582E502F583E0F55D +:100140000B750101C3750000E501F5F0E50935F017 +:10015000F501E500F5F0E50A35F0F500E500F502FA +:10016000E501F582E502F583E0F50C750102C37542 +:100170000000E501F5F0E50935F0F501E500F5F0E1 +:10018000E50A35F0F500E500F502E501F582E50246 +:10019000F583E0F50D750103C3750000E501F5F089 +:1001A000E50935F0F501E500F5F0E50A35F0F50073 +:1001B000E500F502E501F582E502F583E0F500E5ED +:1001C0000BF502E50CF503E50DF504E500F505E595 +:1001D0000EF511E50FF510E519C0E0E518C0E0E5F2 +:1001E00002F582E503F583E504F500E505F5012256 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/void-cast-2.s.expected b/tests/GCCTestSuite/void-cast-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/void-cast-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/volatile1.c b/tests/GCCTestSuite/volatile1.c new file mode 100644 index 0000000..61a3979 --- /dev/null +++ b/tests/GCCTestSuite/volatile1.c @@ -0,0 +1,9 @@ +/* PR c/12553: we were erroneously setting TREE_SIDE_EFFECTS on &y, which + confused tree-ssa. */ + +void f() +{ + int x; + volatile int y; + &x == &y; +} diff --git a/tests/GCCTestSuite/volatile1.c.expected b/tests/GCCTestSuite/volatile1.c.expected new file mode 100644 index 0000000..61a3979 --- /dev/null +++ b/tests/GCCTestSuite/volatile1.c.expected @@ -0,0 +1,9 @@ +/* PR c/12553: we were erroneously setting TREE_SIDE_EFFECTS on &y, which + confused tree-ssa. */ + +void f() +{ + int x; + volatile int y; + &x == &y; +} diff --git a/tests/GCCTestSuite/volatile1.hex.expected b/tests/GCCTestSuite/volatile1.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/volatile1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/volatile1.s.expected b/tests/GCCTestSuite/volatile1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/volatile1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/warn-1.c b/tests/GCCTestSuite/warn-1.c new file mode 100644 index 0000000..dc2cd0e --- /dev/null +++ b/tests/GCCTestSuite/warn-1.c @@ -0,0 +1,16 @@ +/* The compiler used to say passing arg 0 of, which is wrong. */ +/* Radar 3069179 */ + +/* { dg-options "-O3" } */ + +static void foo (p) + int p; +{ +} + +void bar (void) +{ + void *vp; + + foo (vp); /* { dg-warning "passing argument 1 of" } */ +} diff --git a/tests/GCCTestSuite/warn-1.c.expected b/tests/GCCTestSuite/warn-1.c.expected new file mode 100644 index 0000000..dc2cd0e --- /dev/null +++ b/tests/GCCTestSuite/warn-1.c.expected @@ -0,0 +1,16 @@ +/* The compiler used to say passing arg 0 of, which is wrong. */ +/* Radar 3069179 */ + +/* { dg-options "-O3" } */ + +static void foo (p) + int p; +{ +} + +void bar (void) +{ + void *vp; + + foo (vp); /* { dg-warning "passing argument 1 of" } */ +} diff --git a/tests/GCCTestSuite/warn-1.hex.expected b/tests/GCCTestSuite/warn-1.hex.expected new file mode 100644 index 0000000..31697af --- /dev/null +++ b/tests/GCCTestSuite/warn-1.hex.expected @@ -0,0 +1,17 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F501750900E51E +:1000200009F502E509F503E509F504E509F505E536 +:1000300001C0E0E500C0E075E0042506F50675E0C6 +:10004000003507F507E502F582E503F583E504F5DC +:1000500000E505F5012200E506758202C39582F5EB +:1000600006E5077583009583F507D0E0F50875E090 +:10007000012506F58275E0003507F583E508F0D027 +:10008000E0F50875E0002506F58275E0003507F516 +:1000900083E508F0751D00751C0012000075000056 +:1000A000E500F502E500F503E500F504E500F505DA +:1000B00075E0002506F58275E0003507F583E0F56B +:1000C00008E508C0E075E0012506F58275E0003519 +:1000D00007F583E0F508E508C0E075E0022506F5C0 +:1000E0000675E0003507F507E502F582E503F583BF +:1000F000E504F500E505F501220000000000000020 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/warn-1.s.expected b/tests/GCCTestSuite/warn-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/warn-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/wchar_t-1.c b/tests/GCCTestSuite/wchar_t-1.c new file mode 100644 index 0000000..6d95c69 --- /dev/null +++ b/tests/GCCTestSuite/wchar_t-1.c @@ -0,0 +1,17 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +/* Compile with -Wall to get a warning if built-in and system wchar_t don't + match. */ + +#define _STDDEF_H +#include + +__WCHAR_TYPE__ __wc_t__; +wchar_t *wc_t_p; + +void +wct (void) +{ + wc_t_p = &__wc_t__; +} diff --git a/tests/GCCTestSuite/wchar_t-1.c.expected b/tests/GCCTestSuite/wchar_t-1.c.expected new file mode 100644 index 0000000..6d95c69 --- /dev/null +++ b/tests/GCCTestSuite/wchar_t-1.c.expected @@ -0,0 +1,17 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +/* Compile with -Wall to get a warning if built-in and system wchar_t don't + match. */ + +#define _STDDEF_H +#include + +__WCHAR_TYPE__ __wc_t__; +wchar_t *wc_t_p; + +void +wct (void) +{ + wc_t_p = &__wc_t__; +} diff --git a/tests/GCCTestSuite/wchar_t-1.hex.expected b/tests/GCCTestSuite/wchar_t-1.hex.expected new file mode 100644 index 0000000..3e51af4 --- /dev/null +++ b/tests/GCCTestSuite/wchar_t-1.hex.expected @@ -0,0 +1,13 @@ +:1000000000D0E0F50ED0E0F50FE510F50D900004FE +:10001000E582F50B900004E583F50C900000E58285 +:10002000F509900000E583F50A750100C37500002D +:10003000E501F5F0E50B35F0F501E500F5F0E50C2F +:1000400035F0F500E509F503E500F502E501F58277 +:10005000E502F583E503F0750101C3750000E501D4 +:10006000F5F0E50B35F0F501E500F5F0E50C35F0C0 +:10007000F500E50AF503E500F502E501F582E50284 +:10008000F583E503F0750000E500F502E500F503F2 +:10009000E500F504E500F505E50DF510E50FC0E018 +:1000A000E50EC0E0E502F582E503F583E504F50021 +:1000B000E505F5012200000000000000000000003E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/wchar_t-1.s.expected b/tests/GCCTestSuite/wchar_t-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/wchar_t-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/wchar_t-2.c b/tests/GCCTestSuite/wchar_t-2.c new file mode 100644 index 0000000..95ddca0 --- /dev/null +++ b/tests/GCCTestSuite/wchar_t-2.c @@ -0,0 +1,6 @@ +/* { dg-options "-fshort-wchar" } */ +/* Check that "-fshort-wchar" makes wchar_t the same size as "unsigned + short". */ + +extern int i[sizeof (L'a')]; +int i[sizeof (unsigned short)]; diff --git a/tests/GCCTestSuite/wchar_t-2.c.expected b/tests/GCCTestSuite/wchar_t-2.c.expected new file mode 100644 index 0000000..95ddca0 --- /dev/null +++ b/tests/GCCTestSuite/wchar_t-2.c.expected @@ -0,0 +1,6 @@ +/* { dg-options "-fshort-wchar" } */ +/* Check that "-fshort-wchar" makes wchar_t the same size as "unsigned + short". */ + +extern int i[sizeof (L'a')]; +int i[sizeof (unsigned short)]; diff --git a/tests/GCCTestSuite/wchar_t-2.hex.expected b/tests/GCCTestSuite/wchar_t-2.hex.expected new file mode 100644 index 0000000..7ef5593 --- /dev/null +++ b/tests/GCCTestSuite/wchar_t-2.hex.expected @@ -0,0 +1 @@ +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/wchar_t-2.s.expected b/tests/GCCTestSuite/wchar_t-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/wchar_t-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-1.c b/tests/GCCTestSuite/winline-1.c new file mode 100644 index 0000000..ac2ae82 --- /dev/null +++ b/tests/GCCTestSuite/winline-1.c @@ -0,0 +1,13 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2" } */ + +void q(void); +inline int t(void) +{ + int ret; + q(); + ret = t(); /* We define sane semantics for inline keyword on recursive + functions, so do not warn here. */ + q(); + return ret; +} diff --git a/tests/GCCTestSuite/winline-1.c.expected b/tests/GCCTestSuite/winline-1.c.expected new file mode 100644 index 0000000..ac2ae82 --- /dev/null +++ b/tests/GCCTestSuite/winline-1.c.expected @@ -0,0 +1,13 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2" } */ + +void q(void); +inline int t(void) +{ + int ret; + q(); + ret = t(); /* We define sane semantics for inline keyword on recursive + functions, so do not warn here. */ + q(); + return ret; +} diff --git a/tests/GCCTestSuite/winline-1.hex.expected b/tests/GCCTestSuite/winline-1.hex.expected new file mode 100644 index 0000000..5c35517 --- /dev/null +++ b/tests/GCCTestSuite/winline-1.hex.expected @@ -0,0 +1,22 @@ +:100000000000E506758206C39582F506E50775834F +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:10004000E0052506F58275E0003507F583E513F038 +:1000500075E0042506F58275E0003507F583E512A5 +:10006000F075E0032506F58275E0003507F583E5B8 +:1000700011F075E0022506F58275E0003507F5837D +:10008000E510F0120001E582F502E583F503E500D5 +:10009000F504E501F505E502F510E503F511E504C4 +:1000A000F512E505F513E510F502E511F503E51286 +:1000B000F504E513F50575E0052506F58275E00004 +:1000C0003507F583E0F51375E0042506F58275E044 +:1000D000003507F583E0F51275E0032506F5827516 +:1000E000E0003507F583E0F51175E0022506F5829D +:1000F00075E0003507F583E0F51075E0002506F59D +:100100008275E0003507F583E0F508E508C0E07585 +:10011000E0012506F58275E0003507F583E0F50876 +:10012000E508C0E075E0062506F50675E000350730 +:10013000F507E502F582E503F583E504F500E5053D +:10014000F501220000000000000000000000000097 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-1.s.expected b/tests/GCCTestSuite/winline-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/winline-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-2.c b/tests/GCCTestSuite/winline-2.c new file mode 100644 index 0000000..584c68f --- /dev/null +++ b/tests/GCCTestSuite/winline-2.c @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2" } */ + +inline int q(void); /* { dg-warning "body not available" "" } */ +inline int t(void) +{ + return q(); /* { dg-warning "called from here" "" } */ +} diff --git a/tests/GCCTestSuite/winline-2.c.expected b/tests/GCCTestSuite/winline-2.c.expected new file mode 100644 index 0000000..584c68f --- /dev/null +++ b/tests/GCCTestSuite/winline-2.c.expected @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2" } */ + +inline int q(void); /* { dg-warning "body not available" "" } */ +inline int t(void) +{ + return q(); /* { dg-warning "called from here" "" } */ +} diff --git a/tests/GCCTestSuite/winline-2.hex.expected b/tests/GCCTestSuite/winline-2.hex.expected new file mode 100644 index 0000000..d3ba75f --- /dev/null +++ b/tests/GCCTestSuite/winline-2.hex.expected @@ -0,0 +1,13 @@ +:100000000000E506758202C39582F506E507758353 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F0E553 +:1000400082F502E583F503E500F504E501F505E534 +:1000500002F500E503F501E504F509E505F50AE516 +:1000600000F502E501F503E509F504E50AF5057576 +:10007000E0002506F58275E0003507F583E0F50818 +:10008000E508C0E075E0012506F58275E00035075A +:10009000F583E0F508E508C0E075E0022506F50601 +:1000A00075E0003507F507E502F582E503F583E520 +:1000B00004F500E505F50122000000000000000045 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-2.s.expected b/tests/GCCTestSuite/winline-2.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/winline-2.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-3.c b/tests/GCCTestSuite/winline-3.c new file mode 100644 index 0000000..ce9e080 --- /dev/null +++ b/tests/GCCTestSuite/winline-3.c @@ -0,0 +1,21 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2 --param max-inline-insns-single=1" } */ + +void big (void); +inline int q(void) +{ /* { dg-warning "max-inline-insns-single" "" } */ + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); +} +inline int t (void) +{ + return q (); /* { dg-warning "called from here" "" } */ +} diff --git a/tests/GCCTestSuite/winline-3.c.expected b/tests/GCCTestSuite/winline-3.c.expected new file mode 100644 index 0000000..ce9e080 --- /dev/null +++ b/tests/GCCTestSuite/winline-3.c.expected @@ -0,0 +1,21 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2 --param max-inline-insns-single=1" } */ + +void big (void); +inline int q(void) +{ /* { dg-warning "max-inline-insns-single" "" } */ + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); +} +inline int t (void) +{ + return q (); /* { dg-warning "called from here" "" } */ +} diff --git a/tests/GCCTestSuite/winline-3.hex.expected b/tests/GCCTestSuite/winline-3.hex.expected new file mode 100644 index 0000000..4064cf1 --- /dev/null +++ b/tests/GCCTestSuite/winline-3.hex.expected @@ -0,0 +1,26 @@ +:100000000000E506758203C39582F506E507758352 +:10001000009583F507D0E0F50875E0022506F58226 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000012506F58275E0003507F583E508F075C2 +:10004000E0002506F58275E0003507F583E0F5024E +:1000500075E0002506F58275E0003507F583E0F5CB +:100060000375E0002506F58275E0003507F583E0AD +:10007000F50475E0002506F58275E0003507F58387 +:10008000E0F50575E0012506F58275E0003507F518 +:1000900083E0F508E508C0E075E0022506F5827505 +:1000A000E0003507F583E0F508E508C0E075E003FA +:1000B0002506F50675E0003507F507E502F582E54A +:1000C00003F583E504F500E505F5012200E5067575 +:1000D0008202C39582F506E5077583009583F507CF +:1000E000D0E0F50875E0012506F58275E0003507DA +:1000F000F583E508F0D0E0F50875E0002506F58207 +:1001000075E0003507F583E508F0120001E582F59A +:1001100002E583F503E500F504E501F505E502F5E3 +:1001200000E503F501E504F509E505F50AE500F547 +:1001300002E501F503E509F504E50AF50575E000BA +:100140002506F58275E0003507F583E0F508E5083A +:10015000C0E075E0012506F58275E0003507F583FE +:10016000E0F508E508C0E075E0022506F50675E053 +:10017000003507F507E502F582E503F583E504F5AB +:1001800000E505F50122000000000000000000006D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-3.s.expected b/tests/GCCTestSuite/winline-3.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/winline-3.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-5.c b/tests/GCCTestSuite/winline-5.c new file mode 100644 index 0000000..57fa393 --- /dev/null +++ b/tests/GCCTestSuite/winline-5.c @@ -0,0 +1,29 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2 --param inline-unit-growth=0 --param large-unit-insns=0" } */ + +void big (void); +inline int q(void) +{ /* { dg-warning "inline-unit-growth" } */ + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); +} +inline int q1(void) +{ + big(); + big(); + big(); +} +int t (void) +{ + /* We allow one inlining over limit. */ + q1(); + return q (); /* { dg-warning "called from here" } */ +} diff --git a/tests/GCCTestSuite/winline-5.c.expected b/tests/GCCTestSuite/winline-5.c.expected new file mode 100644 index 0000000..57fa393 --- /dev/null +++ b/tests/GCCTestSuite/winline-5.c.expected @@ -0,0 +1,29 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2 --param inline-unit-growth=0 --param large-unit-insns=0" } */ + +void big (void); +inline int q(void) +{ /* { dg-warning "inline-unit-growth" } */ + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); +} +inline int q1(void) +{ + big(); + big(); + big(); +} +int t (void) +{ + /* We allow one inlining over limit. */ + q1(); + return q (); /* { dg-warning "called from here" } */ +} diff --git a/tests/GCCTestSuite/winline-5.hex.expected b/tests/GCCTestSuite/winline-5.hex.expected new file mode 100644 index 0000000..b00aa0c --- /dev/null +++ b/tests/GCCTestSuite/winline-5.hex.expected @@ -0,0 +1,39 @@ +:100000000000E506758203C39582F506E507758352 +:10001000009583F507D0E0F50875E0022506F58226 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000012506F58275E0003507F583E508F075C2 +:10004000E0002506F58275E0003507F583E0F5024E +:1000500075E0002506F58275E0003507F583E0F5CB +:100060000375E0002506F58275E0003507F583E0AD +:10007000F50475E0002506F58275E0003507F58387 +:10008000E0F50575E0012506F58275E0003507F518 +:1000900083E0F508E508C0E075E0022506F5827505 +:1000A000E0003507F583E0F508E508C0E075E003FA +:1000B0002506F50675E0003507F507E502F582E54A +:1000C00003F583E504F500E505F5012200E5067575 +:1000D0008203C39582F506E5077583009583F507CE +:1000E000D0E0F50875E0022506F58275E0003507D9 +:1000F000F583E508F0D0E0F50875E0012506F58206 +:1001000075E0003507F583E508F075E0002506F594 +:100110008275E0003507F583E0F50275E0002506FD +:10012000F58275E0003507F583E0F50375E00025FD +:1001300006F58275E0003507F583E0F50475E0000B +:100140002506F58275E0003507F583E0F50575E0D5 +:10015000012506F58275E0003507F583E0F508E531 +:1001600008C0E075E0022506F58275E0003507F568 +:1001700083E0F508E508C0E075E0032506F506759F +:10018000E0003507F507E502F582E503F583E504B0 +:10019000F500E505F5012200E506758202C39582AA +:1001A000F506E5077583009583F507D0E0F508753A +:1001B000E0012506F58275E0003507F583E508F0D6 +:1001C000D0E0F50875E0002506F58275E0003507FA +:1001D000F583E508F01200CC120001E582F502E596 +:1001E00083F503E500F504E501F505E502F500E515 +:1001F00003F501E504F509E505F50AE500F502E575 +:1002000001F503E509F504E50AF50575E0002506A5 +:10021000F58275E0003507F583E0F508E508C0E0F4 +:1002200075E0012506F58275E0003507F583E0F5F8 +:1002300008E508C0E075E0022506F50675E0003522 +:1002400007F507E502F582E503F583E504F500E52A +:1002500005F5012200000000000000000000000081 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-5.s.expected b/tests/GCCTestSuite/winline-5.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/winline-5.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-6.c b/tests/GCCTestSuite/winline-6.c new file mode 100644 index 0000000..dd8d3a8 --- /dev/null +++ b/tests/GCCTestSuite/winline-6.c @@ -0,0 +1,21 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2 --param large-function-growth=0 --param large-function-insns=1" } */ + +void big (void); +inline int q(void) +{ /* { dg-warning "large-function-growth" } */ + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); +} +inline int t (void) +{ + return q () + 1; /* { dg-warning "called from here" } */ +} diff --git a/tests/GCCTestSuite/winline-6.c.expected b/tests/GCCTestSuite/winline-6.c.expected new file mode 100644 index 0000000..dd8d3a8 --- /dev/null +++ b/tests/GCCTestSuite/winline-6.c.expected @@ -0,0 +1,21 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2 --param large-function-growth=0 --param large-function-insns=1" } */ + +void big (void); +inline int q(void) +{ /* { dg-warning "large-function-growth" } */ + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); + big(); +} +inline int t (void) +{ + return q () + 1; /* { dg-warning "called from here" } */ +} diff --git a/tests/GCCTestSuite/winline-6.hex.expected b/tests/GCCTestSuite/winline-6.hex.expected new file mode 100644 index 0000000..05839a8 --- /dev/null +++ b/tests/GCCTestSuite/winline-6.hex.expected @@ -0,0 +1,29 @@ +:100000000000E506758203C39582F506E507758352 +:10001000009583F507D0E0F50875E0022506F58226 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000012506F58275E0003507F583E508F075C2 +:10004000E0002506F58275E0003507F583E0F5024E +:1000500075E0002506F58275E0003507F583E0F5CB +:100060000375E0002506F58275E0003507F583E0AD +:10007000F50475E0002506F58275E0003507F58387 +:10008000E0F50575E0012506F58275E0003507F518 +:1000900083E0F508E508C0E075E0022506F5827505 +:1000A000E0003507F583E0F508E508C0E075E003FA +:1000B0002506F50675E0003507F507E502F582E54A +:1000C00003F583E504F500E505F5012200E5067575 +:1000D0008202C39582F506E5077583009583F507CF +:1000E000D0E0F50875E0012506F58275E0003507DA +:1000F000F583E508F0D0E0F50875E0002506F58207 +:1001000075E0003507F583E508F0120001E582F59A +:1001100002E583F503E500F504E501F505E502F5E3 +:100120000BE503F50CE504F50DE505F50E7500018D +:10013000750100750900750A00C3750F00E500F52B +:10014000F0E50B35F0F500E501F5F0E50C35F0F5DF +:1001500001E509F5F0E50D35F0F509E50AF5F0E5FD +:100160000E35F0F50AE500F502E501F503E509F5C0 +:1001700004E50AF50575E0002506F58275E0003511 +:1001800007F583E0F508E508C0E075E0012506F510 +:100190008275E0003507F583E0F508E508C0E075F5 +:1001A000E0022506F50675E0003507F507E502F5DE +:1001B00082E503F583E504F500E505F5012200007D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-6.s.expected b/tests/GCCTestSuite/winline-6.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/winline-6.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-7.c b/tests/GCCTestSuite/winline-7.c new file mode 100644 index 0000000..bab82a2 --- /dev/null +++ b/tests/GCCTestSuite/winline-7.c @@ -0,0 +1,14 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2" } */ + +extern void *alloca (__SIZE_TYPE__); + +void big (void); +inline void *q (void) +{ /* { dg-warning "(function not inlinable|alloca)" } */ + return alloca (10); +} +inline void *t (void) +{ + return q (); /* { dg-warning "called from here" } */ +} diff --git a/tests/GCCTestSuite/winline-7.c.expected b/tests/GCCTestSuite/winline-7.c.expected new file mode 100644 index 0000000..bab82a2 --- /dev/null +++ b/tests/GCCTestSuite/winline-7.c.expected @@ -0,0 +1,14 @@ +/* { dg-do compile } */ +/* { dg-options "-Winline -O2" } */ + +extern void *alloca (__SIZE_TYPE__); + +void big (void); +inline void *q (void) +{ /* { dg-warning "(function not inlinable|alloca)" } */ + return alloca (10); +} +inline void *t (void) +{ + return q (); /* { dg-warning "called from here" } */ +} diff --git a/tests/GCCTestSuite/winline-7.hex.expected b/tests/GCCTestSuite/winline-7.hex.expected new file mode 100644 index 0000000..7f3cdee --- /dev/null +++ b/tests/GCCTestSuite/winline-7.hex.expected @@ -0,0 +1,24 @@ +:100000000000E506758202C39582F506E507758353 +:10001000009583F507D0E0F50875E0012506F58227 +:1000200075E0003507F583E508F0D0E0F50875E0E8 +:10003000002506F58275E0003507F583E508F075C3 +:100040001F0A751E00751D00751C00E582F502E58E +:1000500083F503E502F500E503F501750900E50008 +:10006000F502E501F503E509F504E509F50575E097 +:10007000002506F58275E0003507F583E0F508E513 +:1000800008C0E075E0012506F58275E0003507F54A +:1000900083E0F508E508C0E075E0022506F5067581 +:1000A000E0003507F507E502F582E503F583E50491 +:1000B000F500E505F5012200E506758202C395828B +:1000C000F506E5077583009583F507D0E0F508751B +:1000D000E0012506F58275E0003507F583E508F0B7 +:1000E000D0E0F50875E0002506F58275E0003507DB +:1000F000F583E508F0120001E582F502E583F503DA +:10010000E502F500E503F501750900E500F502E5F6 +:1001100001F503E509F504E509F50575E000250697 +:10012000F58275E0003507F583E0F508E508C0E0E5 +:1001300075E0012506F58275E0003507F583E0F5E9 +:1001400008E508C0E075E0022506F50675E0003513 +:1001500007F507E502F582E503F583E504F500E51B +:1001600005F5012200000000000000000000000072 +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/winline-7.s.expected b/tests/GCCTestSuite/winline-7.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/winline-7.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/wint_t-1.c b/tests/GCCTestSuite/wint_t-1.c new file mode 100644 index 0000000..3f88dcb --- /dev/null +++ b/tests/GCCTestSuite/wint_t-1.c @@ -0,0 +1,17 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +/* Compile with -Wall to get a warning if built-in and system wint_t don't + match. */ + +#define _STDDEF_H +#include + +__WINT_TYPE__ __wi_t__; +wint_t *wi_t_p; + +void +wit (void) +{ + wi_t_p = &__wi_t__; +} diff --git a/tests/GCCTestSuite/wint_t-1.c.expected b/tests/GCCTestSuite/wint_t-1.c.expected new file mode 100644 index 0000000..3f88dcb --- /dev/null +++ b/tests/GCCTestSuite/wint_t-1.c.expected @@ -0,0 +1,17 @@ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +/* Compile with -Wall to get a warning if built-in and system wint_t don't + match. */ + +#define _STDDEF_H +#include + +__WINT_TYPE__ __wi_t__; +wint_t *wi_t_p; + +void +wit (void) +{ + wi_t_p = &__wi_t__; +} diff --git a/tests/GCCTestSuite/wint_t-1.hex.expected b/tests/GCCTestSuite/wint_t-1.hex.expected new file mode 100644 index 0000000..3e51af4 --- /dev/null +++ b/tests/GCCTestSuite/wint_t-1.hex.expected @@ -0,0 +1,13 @@ +:1000000000D0E0F50ED0E0F50FE510F50D900004FE +:10001000E582F50B900004E583F50C900000E58285 +:10002000F509900000E583F50A750100C37500002D +:10003000E501F5F0E50B35F0F501E500F5F0E50C2F +:1000400035F0F500E509F503E500F502E501F58277 +:10005000E502F583E503F0750101C3750000E501D4 +:10006000F5F0E50B35F0F501E500F5F0E50C35F0C0 +:10007000F500E50AF503E500F502E501F582E50284 +:10008000F583E503F0750000E500F502E500F503F2 +:10009000E500F504E500F505E50DF510E50FC0E018 +:1000A000E50EC0E0E502F582E503F583E504F50021 +:1000B000E505F5012200000000000000000000003E +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/wint_t-1.s.expected b/tests/GCCTestSuite/wint_t-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/wint_t-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/wtr-escape-1.c b/tests/GCCTestSuite/wtr-escape-1.c new file mode 100644 index 0000000..7f48de5 --- /dev/null +++ b/tests/GCCTestSuite/wtr-escape-1.c @@ -0,0 +1,22 @@ +/* Test for -Wtraditional warnings on escape characters. + Note, gcc should omit these warnings in system header files. + By Kaveh R. Ghazi 8/22/2000. */ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +void +testfunc () +{ + char c; + + c = '\a'; /* { dg-warning "the meaning of" "escaped character warning " } */ + c = '\x2'; /* { dg-warning "the meaning of" "escaped character warning " } */ + c = '\n'; + +# 17 "sys-header.h" 3 +/* We are in system headers now, no -Wtraditional warnings should issue. */ + + c = '\a'; + c = '\x2'; + c = '\n'; +} diff --git a/tests/GCCTestSuite/wtr-escape-1.c.expected b/tests/GCCTestSuite/wtr-escape-1.c.expected new file mode 100644 index 0000000..7f48de5 --- /dev/null +++ b/tests/GCCTestSuite/wtr-escape-1.c.expected @@ -0,0 +1,22 @@ +/* Test for -Wtraditional warnings on escape characters. + Note, gcc should omit these warnings in system header files. + By Kaveh R. Ghazi 8/22/2000. */ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +void +testfunc () +{ + char c; + + c = '\a'; /* { dg-warning "the meaning of" "escaped character warning " } */ + c = '\x2'; /* { dg-warning "the meaning of" "escaped character warning " } */ + c = '\n'; + +# 17 "sys-header.h" 3 +/* We are in system headers now, no -Wtraditional warnings should issue. */ + + c = '\a'; + c = '\x2'; + c = '\n'; +} diff --git a/tests/GCCTestSuite/wtr-escape-1.hex.expected b/tests/GCCTestSuite/wtr-escape-1.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/wtr-escape-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/wtr-escape-1.s.expected b/tests/GCCTestSuite/wtr-escape-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/wtr-escape-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/wtr-static-1.c b/tests/GCCTestSuite/wtr-static-1.c new file mode 100644 index 0000000..42760e8 --- /dev/null +++ b/tests/GCCTestSuite/wtr-static-1.c @@ -0,0 +1,14 @@ +/* Test for -Wtraditional warnings on static/non-static mismatches. + Note, gcc should omit these warnings in system header files. + By Kaveh R. Ghazi 8/22/2000. */ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +static void testfunc1(void); /* { dg-warning "previous declaration" } */ +void testfunc1() {} /* { dg-warning "non-static.*follows static" "non-static follows static" } */ + +# 11 "sys-header.h" 3 +/* We are in system headers now, no -Wtraditional warnings should issue. */ + +static void testfunc2(void); +void testfunc2() {} diff --git a/tests/GCCTestSuite/wtr-static-1.c.expected b/tests/GCCTestSuite/wtr-static-1.c.expected new file mode 100644 index 0000000..42760e8 --- /dev/null +++ b/tests/GCCTestSuite/wtr-static-1.c.expected @@ -0,0 +1,14 @@ +/* Test for -Wtraditional warnings on static/non-static mismatches. + Note, gcc should omit these warnings in system header files. + By Kaveh R. Ghazi 8/22/2000. */ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +static void testfunc1(void); /* { dg-warning "previous declaration" } */ +void testfunc1() {} /* { dg-warning "non-static.*follows static" "non-static follows static" } */ + +# 11 "sys-header.h" 3 +/* We are in system headers now, no -Wtraditional warnings should issue. */ + +static void testfunc2(void); +void testfunc2() {} diff --git a/tests/GCCTestSuite/wtr-static-1.hex.expected b/tests/GCCTestSuite/wtr-static-1.hex.expected new file mode 100644 index 0000000..64d1011 --- /dev/null +++ b/tests/GCCTestSuite/wtr-static-1.hex.expected @@ -0,0 +1,8 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F5012200D0E0F500D0E0F5017509F5 +:1000400000E509F502E509F503E509F504E509F51B +:1000500005E501C0E0E500C0E0E502F582E503F555 +:1000600083E504F500E505F501220000000000002D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/wtr-static-1.s.expected b/tests/GCCTestSuite/wtr-static-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/wtr-static-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/wtr-switch-1.c b/tests/GCCTestSuite/wtr-switch-1.c new file mode 100644 index 0000000..f0381bc --- /dev/null +++ b/tests/GCCTestSuite/wtr-switch-1.c @@ -0,0 +1,25 @@ +/* Test for -Wtraditional warnings on switch operands of type long. + Note, gcc should omit these warnings in system header files. + By Kaveh R. Ghazi 8/22/2000. */ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +void +testfunc (l) + long l; +{ + switch (l) /* { dg-warning "switch expression" "switch expression" } */ + { + default: + break; + } + +# 17 "sys-header.h" 3 +/* We are in system headers now, no -Wtraditional warnings should issue. */ + + switch (l) + { + default: + break; + } +} diff --git a/tests/GCCTestSuite/wtr-switch-1.c.expected b/tests/GCCTestSuite/wtr-switch-1.c.expected new file mode 100644 index 0000000..f0381bc --- /dev/null +++ b/tests/GCCTestSuite/wtr-switch-1.c.expected @@ -0,0 +1,25 @@ +/* Test for -Wtraditional warnings on switch operands of type long. + Note, gcc should omit these warnings in system header files. + By Kaveh R. Ghazi 8/22/2000. */ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +void +testfunc (l) + long l; +{ + switch (l) /* { dg-warning "switch expression" "switch expression" } */ + { + default: + break; + } + +# 17 "sys-header.h" 3 +/* We are in system headers now, no -Wtraditional warnings should issue. */ + + switch (l) + { + default: + break; + } +} diff --git a/tests/GCCTestSuite/wtr-switch-1.hex.expected b/tests/GCCTestSuite/wtr-switch-1.hex.expected new file mode 100644 index 0000000..52c5e50 --- /dev/null +++ b/tests/GCCTestSuite/wtr-switch-1.hex.expected @@ -0,0 +1,7 @@ +:1000000000E506758204C39582F506E50775830051 +:100010009583F507D0E0F500D0E0F5010000000081 +:10002000750900E509F502E509F503E509F504E5BB +:1000300009F505E501C0E0E500C0E075E00425062E +:10004000F50675E0003507F507E502F582E503F5ED +:1000500083E504F500E505F501220000000000003D +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/wtr-switch-1.s.expected b/tests/GCCTestSuite/wtr-switch-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/wtr-switch-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/wtr-unary-plus-1.c b/tests/GCCTestSuite/wtr-unary-plus-1.c new file mode 100644 index 0000000..aee892c --- /dev/null +++ b/tests/GCCTestSuite/wtr-unary-plus-1.c @@ -0,0 +1,20 @@ +/* Test for -Wtraditional warnings on the unary plus operator. + Note, gcc should omit these warnings in system header files. + By Kaveh R. Ghazi 8/22/2000. */ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +void +testfunc () +{ + int i; + + i = +1; /* { dg-warning "unary plus operator" "unary plus operator" } */ + i = +i; /* { dg-warning "unary plus operator" "unary plus operator" } */ + +# 16 "sys-header.h" 3 +/* We are in system headers now, no -Wtraditional warnings should issue. */ + + i = +1; + i = +i; +} diff --git a/tests/GCCTestSuite/wtr-unary-plus-1.c.expected b/tests/GCCTestSuite/wtr-unary-plus-1.c.expected new file mode 100644 index 0000000..aee892c --- /dev/null +++ b/tests/GCCTestSuite/wtr-unary-plus-1.c.expected @@ -0,0 +1,20 @@ +/* Test for -Wtraditional warnings on the unary plus operator. + Note, gcc should omit these warnings in system header files. + By Kaveh R. Ghazi 8/22/2000. */ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +void +testfunc () +{ + int i; + + i = +1; /* { dg-warning "unary plus operator" "unary plus operator" } */ + i = +i; /* { dg-warning "unary plus operator" "unary plus operator" } */ + +# 16 "sys-header.h" 3 +/* We are in system headers now, no -Wtraditional warnings should issue. */ + + i = +1; + i = +i; +} diff --git a/tests/GCCTestSuite/wtr-unary-plus-1.hex.expected b/tests/GCCTestSuite/wtr-unary-plus-1.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/wtr-unary-plus-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/wtr-unary-plus-1.s.expected b/tests/GCCTestSuite/wtr-unary-plus-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/wtr-unary-plus-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/GCCTestSuite/wtr-union-init-1.c b/tests/GCCTestSuite/wtr-union-init-1.c new file mode 100644 index 0000000..b6a814d --- /dev/null +++ b/tests/GCCTestSuite/wtr-union-init-1.c @@ -0,0 +1,25 @@ +/* Test for -Wtraditional warnings on union initialization. + Note, gcc should omit these warnings in system header files. + By Kaveh R. Ghazi 8/22/2000. */ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +union foo +{ + int i; + long l; +}; + +void +testfunc () +{ + /* Note we only warn for nonzero initializers. */ + static union foo f1 = { 0 }; + static union foo f2 = { 1 }; /* { dg-warning "traditional C rejects initialization of unions" "initialization of unions" } */ + +# 21 "sys-header.h" 3 +/* We are in system headers now, no -Wtraditional warnings should issue. */ + + static union foo f3 = { 0 }; + static union foo f4 = { 1 }; +} diff --git a/tests/GCCTestSuite/wtr-union-init-1.c.expected b/tests/GCCTestSuite/wtr-union-init-1.c.expected new file mode 100644 index 0000000..b6a814d --- /dev/null +++ b/tests/GCCTestSuite/wtr-union-init-1.c.expected @@ -0,0 +1,25 @@ +/* Test for -Wtraditional warnings on union initialization. + Note, gcc should omit these warnings in system header files. + By Kaveh R. Ghazi 8/22/2000. */ +/* { dg-do compile } */ +/* { dg-options "-Wtraditional" } */ + +union foo +{ + int i; + long l; +}; + +void +testfunc () +{ + /* Note we only warn for nonzero initializers. */ + static union foo f1 = { 0 }; + static union foo f2 = { 1 }; /* { dg-warning "traditional C rejects initialization of unions" "initialization of unions" } */ + +# 21 "sys-header.h" 3 +/* We are in system headers now, no -Wtraditional warnings should issue. */ + + static union foo f3 = { 0 }; + static union foo f4 = { 1 }; +} diff --git a/tests/GCCTestSuite/wtr-union-init-1.hex.expected b/tests/GCCTestSuite/wtr-union-init-1.hex.expected new file mode 100644 index 0000000..666796d --- /dev/null +++ b/tests/GCCTestSuite/wtr-union-init-1.hex.expected @@ -0,0 +1,5 @@ +:1000000000D0E0F500D0E0F501750900E509F50242 +:10001000E509F503E509F504E509F505E501C0E0A5 +:10002000E500C0E0E502F582E503F583E504F500AF +:10003000E505F501220000000000000000000000BE +:00000001FF \ No newline at end of file diff --git a/tests/GCCTestSuite/wtr-union-init-1.s.expected b/tests/GCCTestSuite/wtr-union-init-1.s.expected new file mode 100644 index 0000000..a3385dc --- /dev/null +++ b/tests/GCCTestSuite/wtr-union-init-1.s.expected @@ -0,0 +1 @@ +Pretty print not requested \ No newline at end of file diff --git a/tests/Makefile b/tests/Makefile new file mode 100644 index 0000000..c6ad9be --- /dev/null +++ b/tests/Makefile @@ -0,0 +1,9 @@ +.PHONY: check + +SUBDIRS=GCCTestSuite + +check: + for i in $(SUBDIRS); do $(MAKE) -C $$i check; done + +clean: + for i in $(SUBDIRS); do $(MAKE) -C $$i clean; done \ No newline at end of file diff --git a/tests/benchs/Makefile b/tests/benchs/Makefile new file mode 100644 index 0000000..2bec82f --- /dev/null +++ b/tests/benchs/Makefile @@ -0,0 +1,63 @@ +.PHONY: clean all bench prepare + +SOURCES=$(wildcard *.c) +BASENAMES=$(SOURCES:.c=) +GCCEXES=$(SOURCES:.c=.gcc) +GCCEXES=$(SOURCES:.c=.ogcc) +ACCEXES=$(SOURCES:.c=.acc) +EXES=$(GCCEXES) $(ACCEXES) +RESULTS=$(SOURCES:.c=.result) + +GCC=gcc +CFLAGS=-O0 +OFLAGS=-O2 + +ACC=./acc.run +TIME=./meantime.sh + +all: bench + +%.gcc: %.c + @ $(GCC) $(CPPFLAGS) $(CFLAGS) -o $@ $< + +%.ogcc: %.c + @ $(GCC) $(CPPFLAGS) $(OFLAGS) -o $@ $< + +%.s: %.c + @ $(ACC) $< + +%.acc: %.s + @ $(GCC) $(CPPFLAGS) $(CFLAGS) -o $@ $< + +%.acc-run: %.acc + @ $(TIME) -f %U ./$< > $@ + +%.gcc-run: %.gcc + @ $(TIME) -f %U ./$< > $@ + +%.ogcc-run: %.ogcc + @ $(TIME) -f %U ./$< > $@ + +%.ratio1: %.acc-run %.gcc-run + @ echo "print round(`cat $*.acc-run` / `cat $*.gcc-run`, 2)" | python > $@ + +%.ratio2: %.acc-run %.ogcc-run + @ echo "print round(`cat $*.acc-run` / `cat $*.ogcc-run`, 2)" | python > $@ + +%.announce: + @ echo Benchmarking "$*.c"... + @ echo "$*.c" > $@ + +%.result: %.announce %.acc-run %.gcc-run %.ogcc-run %.ratio1 %.ratio2 + @ cat $^ | tr '\n' '&' > $@ + +prepare: + rm --force *.announce + +bench: prepare $(RESULTS) + @ echo '& acc & gcc -O0 & gcc -O2 & 1/2 & 1/3 \\' + @ for i in $(BASENAMES); do cat $$i.result; echo '\\'; done + +clean: + rm --force $(EXES) $(RESULTS) \ + *.gcc-run *.ogcc-run *.acc-run *.ratio* *.announce *.Clight *.ASM \ No newline at end of file diff --git a/tests/benchs/acc.run b/tests/benchs/acc.run new file mode 100755 index 0000000..d06dfb9 --- /dev/null +++ b/tests/benchs/acc.run @@ -0,0 +1,5 @@ +#!/usr/bin/env bash + +# On MIPS Debian, I had trouble loading cparser.so file... +# FIXME: This should be investigated. +LD_LIBRARY_PATH=../../lib:$LD_LIBRARY_PATH ../../acc -no-annotation $* diff --git a/tests/benchs/badsort.c b/tests/benchs/badsort.c new file mode 100644 index 0000000..7440397 --- /dev/null +++ b/tests/benchs/badsort.c @@ -0,0 +1,85 @@ + +/* function badsort: sorting algorithm of quadratic complexity + ran 10000000 times on 3 lists of size 100 */ + + +int tab1[] = + {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, + 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, + 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, + 98, 99}; +int tab2[] = + {99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, + 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, + 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, + 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, + 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, + 2, 1, 0}; + +int min (int tab[], int size, int n) { + int i, min_index, min; + + if (size == 0) return 0; + + min_index = n; + min = tab[min_index]; + for (i = n+1 ; i < size ; i++) { + if (tab[i] < min) { + min_index = i; + min = tab[min_index]; + } + } + + return min_index; +} + +void swap (int tab[], int i, int j) { + int t; + t = tab[i] ; tab[i] = tab[j] ; tab[j] = t; +} + +void badsort(int tab[], int size) { + int i, min_index; + + for (i = 0 ; i < size ; i++) { + min_index = min(tab, size, i); + swap(tab, i, min_index); + } +} + +void copy (int dest[], int src[], int size) { + int i; + + for (i = 0 ; i < size ; i++) + dest[i] = src[i]; +} + +void run (int tab[]) { + int size, tmp[100]; + + size = sizeof(tab) / sizeof(int); + copy(tmp, tab, size); + badsort(tmp, size); +} + +int main () { + int i; + int tab3[] = + {-21, 19, -26, -62, -72, 33, -14, 20, 85, 92, -26, -33, 38, -14, -88, -35, + -51, 29, -84, -98, -92, -60, -52, 53, 53, -11, -99, 72, -55, 90, -83, 98, + 29, -25, -32, -33, -98, 14, -86, 99, 77, -38, -1, -7, -98, 57, 5, -64, 72, + 60, -5, -66, -7, -84, -97, 92, 2, 11, 70, -27, -56, -16, -81, 86, 27, 24, + 68, -54, -15, -45, 60, 25, -31, 67, 7, -14, -41, -67, 51, -27, -1, -98, + -97, -16, -41, 33, -8, -45, 48, -44, -1, 56, -70, 59, -60, 64, 5, 32, 86, + -72}; + + for (i = 0 ; i < 10000000 ; i++) { + run(tab1); + run(tab2); + run(tab3); + } + + return 0; +} diff --git a/tests/benchs/fib.c b/tests/benchs/fib.c new file mode 100644 index 0000000..40e8ba4 --- /dev/null +++ b/tests/benchs/fib.c @@ -0,0 +1,20 @@ + +/* Fibonacci function ran 100 times for values 10, 20 and 30 */ + + +int fib (int n) { + if (n < 2) return 1; + else return (fib (n-1) + fib (n-2)); +} + +int main () { + int i, res1, res2, res3; + + for (i = 0 ; i < 100 ; i++) { + res1 = fib (10); + res2 = fib (20); + res3 = fib (30); + } + + return 0; +} diff --git a/tests/benchs/mat_det.c b/tests/benchs/mat_det.c new file mode 100644 index 0000000..16ea23e --- /dev/null +++ b/tests/benchs/mat_det.c @@ -0,0 +1,54 @@ + +/* function det: computes the determinant of a square matrice in exponential + complexity + ran 50 times on 3 matrices of dimension 3*3 */ + + +int mat1[9] = {-5, 2, -2, -10, 7, -1, 4, -8, 5}; +int mat2[9] = {7, -9, 4, 8, 8, 10, -8, 10, 1}; + +void lmatrice (int mat[], int lmat[], int n, int l) { + int i, j, line = 0, m = n-1; + + for (i = 0; i < n ; i++) { + if (i != l) { + for (j = 1 ; j < n ; j++) + lmat[line*m + j-1] = mat[i*n + j]; + line++; + } + } +} + +int det (int mat[], int n) { + int res = 0, signe = 1, i; + int lmat[100]; + + if (n == 0) return 0; + if (n == 1) return mat[0]; + + for (i = 0 ; i < n ; i++) { + lmatrice(mat, lmat, n, i); + /* The real computation has been disable to avoid overflow, but the + complexity is the same. */ + res = det(lmat, n-1); + // res += signe * mat[i] * det(lmat, n-1); + // signe = -signe; + } + + return res; +} + +int main () { + int i, res1, res2, res3; + int size = 9; + + int mat3[9] = {7, -9, 7, 6, -10, -10, -5, -4, 1}; + + for (i = 0 ; i < 50 ; i++) { + res1 = det(mat1, size); + res2 = det(mat2, size); + res3 = det(mat3, size); + } + + return 0; +} diff --git a/tests/benchs/meantime.sh b/tests/benchs/meantime.sh new file mode 100755 index 0000000..9f15890 --- /dev/null +++ b/tests/benchs/meantime.sh @@ -0,0 +1,11 @@ +#!/usr/bin/env bash + +RUNS=2 +COUNT=$RUNS +VAL=0. +while [ $COUNT -gt 0 ]; do + R=`/usr/bin/time -f %U $* 2>&1 | tail -n1` + VAL=`echo "print $VAL + $R" | bc` + COUNT=$(($COUNT - 1)) +done +echo "print $VAL / $RUNS" | python diff --git a/tests/benchs/min.c b/tests/benchs/min.c new file mode 100644 index 0000000..1a926ea --- /dev/null +++ b/tests/benchs/min.c @@ -0,0 +1,48 @@ + +/* function min: minimum of a list in linear complexity + ran 100000000 times on 3 lists of size 100 */ + +int tab1[100] = + {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, + 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, + 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, + 98, 99}; +int tab2[100] = + {99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, + 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, + 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, + 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, + 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, + 2, 1, 0}; + +int min (int tab[100]) { + int i, min; + + min = tab[0]; + for (i = 1 ; i < 100 ; i++) { + if (tab[i] < min) min = tab[i]; + } + + return min; +} + +int main () { + int i, sum; + int tab3[100] = + {-21, 19, -26, -62, -72, 33, -14, 20, 85, 92, -26, -33, 38, -14, -88, -35, + -51, 29, -84, -98, -92, -60, -52, 53, 53, -11, -99, 72, -55, 90, -83, 98, + 29, -25, -32, -33, -98, 14, -86, 99, 77, -38, -1, -7, -98, 57, 5, -64, 72, + 60, -5, -66, -7, -84, -97, 92, 2, 11, 70, -27, -56, -16, -81, 86, 27, 24, + 68, -54, -15, -45, 60, 25, -31, 67, 7, -14, -41, -67, 51, -27, -1, -98, + -97, -16, -41, 33, -8, -45, 48, -44, -1, 56, -70, 59, -60, 64, 5, 32, 86, + -72}; + + sum = 0; + for (i = 0 ; i < 100000000 ; i++) { + sum += i & 1 == 0 ? min(tab1) : i & 2 == 0 ? min(tab2) : min(tab3); + } + + return (sum); +} diff --git a/tests/benchs/quicksort.c b/tests/benchs/quicksort.c new file mode 100644 index 0000000..bf541b4 --- /dev/null +++ b/tests/benchs/quicksort.c @@ -0,0 +1,84 @@ + +/* function quicksort: sorting algorithm of n*log(n) complexity + ran 10000000 times on 3 lists of size 100 */ + + +int a1[] = + {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, + 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, + 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, + 98, 99}; +int a2[] = + {99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, + 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, + 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, + 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, + 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, + 2, 1, 0}; + +void swap (int a[], int i, int j) { + int t; + t = a[i] ; a[i] = a[j] ; a[j] = t; +} + +int partition (int a[], int l, int r) { + int pivot, i, j; + pivot = a[l]; + i = l; j = r+1; + + while (1) { + do ++i; while (a[i] <= pivot && i <= r); + do --j; while (a[j] > pivot); + if (i >= j) break; + swap(a, i, j); + } + swap(a, l, j); + return j; +} + +void quickSort (int a[], int l, int r) { + int j; + + if (l < r) { + j = partition(a, l, r); + quickSort(a, l, j-1); + quickSort(a, j+1, r); + } +} + +void copy (int dest[], int src[], int size) { + int i; + + for (i = 0 ; i < size ; i++) + dest[i] = src[i]; +} + +void run (int a[]) { + int size, tab[100]; + + size = sizeof(a) / sizeof(int); + copy(tab, a, size); + quickSort(tab, 0, size-1); +} + +int main () { + int i; + int a3[] = + {-21, 19, -26, -62, -72, 33, -14, 20, 85, 92, -26, -33, 38, -14, -88, -35, + -51, 29, -84, -98, -92, -60, -52, 53, 53, -11, -99, 72, -55, 90, -83, 98, + 29, -25, -32, -33, -98, 14, -86, 99, 77, -38, -1, -7, -98, 57, 5, -64, 72, + 60, -5, -66, -7, -84, -97, 92, 2, 11, 70, -27, -56, -16, -81, 86, 27, 24, + 68, -54, -15, -45, 60, 25, -31, 67, 7, -14, -41, -67, 51, -27, -1, -98, + -97, -16, -41, 33, -8, -45, 48, -44, -1, 56, -70, 59, -60, 64, 5, 32, 86, + -72}; + + for (i = 0 ; i < 10000000 ; i++) { + run(a1); + run(a2); + run(a3); + } + + return 0; +} diff --git a/tests/benchs/search.c b/tests/benchs/search.c new file mode 100644 index 0000000..e3ea9bc --- /dev/null +++ b/tests/benchs/search.c @@ -0,0 +1,59 @@ + +/* function search: element searching in a sorted list in logarithmic complexity + ran 100000000 times on 3 lists of size 100 */ +#define N 100 + +int tab1[] = + {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, + 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, + 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, + 98, 99}; +int tab2[] = + {99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, + 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, + 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, + 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, + 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, + 2, 1, 0}; + +int search (int tab[], int e) { + int i, size, left, right, previous, middle; + + size = 100; + + if (size == 0) return 0; + + left = 0; + right = size; + middle = (left + right) / 2; + while ((middle != left) && (middle != right)) { + if (e == tab[middle]) return 1; + if (e > tab[middle]) left = middle; + else right = middle; + middle = (left + right) / 2; + } + + return 0; +} + +int main () { + int i, search1, search2, search3; + int tab3[] = + {-21, 19, -26, -62, -72, 33, -14, 20, 85, 92, -26, -33, 38, -14, -88, -35, + -51, 29, -84, -98, -92, -60, -52, 53, 53, -11, -99, 72, -55, 90, -83, 98, + 29, -25, -32, -33, -98, 14, -86, 99, 77, -38, -1, -7, -98, 57, 5, -64, 72, + 60, -5, -66, -7, -84, -97, 92, 2, 11, 70, -27, -56, -16, -81, 86, 27, 24, + 68, -54, -15, -45, 60, 25, -31, 67, 7, -14, -41, -67, 51, -27, -1, -98, + -97, -16, -41, 33, -8, -45, 48, -44, -1, 56, -70, 59, -60, 64, 5, 32, 86, + -72}; + + for (i = 0 ; i < 100000000 ; i++) { + search1 = search(tab1, 18); + search2 = search(tab2, -1); + search3 = search(tab3, 36); + } + + return 0; +} diff --git a/tests/clight/Makefile b/tests/clight/Makefile new file mode 100644 index 0000000..cefdd09 --- /dev/null +++ b/tests/clight/Makefile @@ -0,0 +1,73 @@ +# -*- Makefile -*- +.PHONY: prepare-check check clean prepare-expected expected all + +all: check + +-include ../../Makefile.local + +IN_EXT=c +OUT_EXT=ASM +OPTIONS=$(shell if test -f options; then cat options; else echo ""; fi) +PROGRAM=../../$(TARGET) -d $(OPTIONS) + +# Compute the set of input files. +INPUTS=$(shell find . -name "*.$(IN_EXT)") + +OUTPUTS=$(INPUTS:$(IN_EXT)=$(OUT_EXT)) + +# We run the compiler in debugging mode on each input file. +# This will produce an $(OUTEXT) file as well as a lot of +# files that contain execution traces. We check that these +# traces are the ones that are expected. +%.$(OUT_EXT): %.$(IN_EXT) ../../$(TARGET) + @ echo ----------------------------------------\ + -------------------------------------- + @ echo -n Checking $* ... + @ (($(PROGRAM) -d $< 2> $*.log 1> $*.log && (echo OK | tee -a ok-counter)) \ + || (echo "KO"; echo " ($*.log for details)" | tee -a ko-counter)) + @ for i in `ls $** | grep -v expected | grep -v log`; do \ + if [ ! -e $$i.expected ]; then \ + echo No reference to compare to.; \ + if [ x`cat generate` == x1 ]; then \ + echo "Current output becomes expected behavior, as asked."; \ + cp $$i $$i.expected; \ + fi; \ + elif diff -u $$i $$i.expected 2> /dev/null 1> /dev/null; then \ + echo " [OK] $$i" | tee -a ok-counter; \ + else \ + echo " [KO] $$i" | tee -a ko-counter; \ + fi; \ + done + +prepare-check: + @ rm --force ok-counter ko-counter + @ touch ok-counter + @ touch ko-counter + +check: clean prepare-check $(OUTPUTS) + @ cat ok-counter ko-counter > total-counter + @ echo ----------------------------------------\ + -------------------------------------- + @ echo ----------------------------------------\ + -------------------------------------- + @ echo Total: \ + `wc -l ok-counter | cut -f1 -d' '` \ + /`wc -l total-counter | cut -f1 -d' '` + @ echo ----------------------------------------\ + -------------------------------------- + +prepare-expected: + @ GENERATE=1 + @ export GENERATE + @ echo You asked for overwriting of the expected outputs. + @ echo -n "Are you sure? [Y/N] " + @ read R; if [ $$R == "Y" ]; then \ + echo 1 > generate; \ + else \ + echo 0 > generate; \ + fi + +expected: clean prepare-expected check + +clean: + rm --force *.ASM *.Clight *.Cminor *.RTLabs *.RTL *.ERTL *.LTL *.LIN *.log \ No newline at end of file diff --git a/tests/clight/array.ASM.expected b/tests/clight/array.ASM.expected new file mode 100644 index 0000000..94c6af1 --- /dev/null +++ b/tests/clight/array.ASM.expected @@ -0,0 +1,680 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 0 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main181 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin array_param +array_param79: +c37: +li $a3, 1 +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a3, 0($v0) +c36: +li $a3, 1 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c35: +c34: +li $a1, 7 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c33: +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +c32: +c31: +jr $ra +# end array_param + + +# begin array_mixte +array_mixte223: +addi $sp, $sp, -40 +c30: +li $t0, 0 +move $a3, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a3, $v0 +sw $t0, 0($v0) +c29: +move $t0, $sp +li $a3, 1 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c28: +move $t0, $sp +li $a3, 2 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c27: +move $t0, $sp +li $a3, 3 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c26: +move $t0, $sp +li $a3, 4 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c25: +move $t0, $sp +li $a3, 5 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c24: +move $t0, $sp +li $a3, 6 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c23: +move $t0, $sp +li $a3, 7 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c22: +move $t0, $sp +li $a3, 8 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c21: +move $t0, $sp +li $a3, 9 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c20: +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $a3, 0($v0) +li $v0, 1 +add $t0, $a3, $v0 +move $a3, $sp +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a3, $v0 +sw $t0, 0($v0) +c19: +move $a3, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a3, $v0 +lw $a3, 0($v0) +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +sw $a3, 0($v0) +c18: +li $a2, 1 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $a2, 0($v0) +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a0, $v0 +sw $a2, 0($v0) +c17: +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $sp, $v0 +lw $v0, 0($v0) +addi $sp, $sp, 40 +jr $ra +# end array_mixte + + +# begin array_local +array_local234: +addi $sp, $sp, -40 +c16: +li $a1, 0 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c15: +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c14: +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c13: +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c12: +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c11: +move $a1, $sp +li $a0, 5 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c10: +move $a1, $sp +li $a0, 6 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c9: +move $a1, $sp +li $a0, 7 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c8: +move $a1, $sp +li $a0, 8 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c7: +move $a1, $sp +li $a0, 9 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c6: +li $a1, 1 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c5: +li $a2, 5 +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c4: +c3: +li $a2, 7 +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c2: +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $sp, $v0 +lw $v0, 0($v0) +c1: +c0: +addi $sp, $sp, 40 +jr $ra +# end array_local + + +# begin _main +main181: +addi $sp, $sp, -52 +sw $ra, 48($sp) +sw $s1, 44($sp) +sw $s0, 40($sp) +c51: +li $a1, 1 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c50: +li $a2, 2 +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c49: +li $a2, 3 +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c48: +li $a2, 4 +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c47: +li $a2, 5 +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c46: +li $a2, 6 +move $a1, $sp +li $a0, 5 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c45: +li $a2, 7 +move $a1, $sp +li $a0, 6 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c44: +li $a2, 8 +move $a1, $sp +li $a0, 7 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c43: +li $a2, 9 +move $a1, $sp +li $a0, 8 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c42: +move $a1, $sp +li $a0, 9 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c41: +la $v0, array_local234 +jalr $v0 +move $s0, $v0 +c40: +move $a0, $sp +li $a1, 2 +li $a2, 3 +la $v0, array_mixte223 +jalr $v0 +move $s1, $v0 +c39: +move $a0, $sp +li $a1, 2 +li $a2, 3 +la $v0, array_param79 +jalr $v0 +c38: +add $a0, $s0, $s1 +add $v0, $a0, $v0 +lw $ra, 48($sp) +lw $s1, 44($sp) +lw $s0, 40($sp) +addi $sp, $sp, 52 +jr $ra +# end _main diff --git a/tests/clight/array.Clight.expected b/tests/clight/array.Clight.expected new file mode 100644 index 0000000..ce1ca8a --- /dev/null +++ b/tests/clight/array.Clight.expected @@ -0,0 +1,399 @@ +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +int array_local(void) +{ + int i; + int j; + int a; + int b; + int tab[10]; + c16: + tab[0] = 0; + c15: + tab[1] = 0; + c14: + tab[2] = 0; + c13: + tab[3] = 0; + c12: + tab[4] = 0; + c11: + tab[5] = 0; + c10: + tab[6] = 0; + c9: + tab[7] = 0; + c8: + tab[8] = 0; + c7: + tab[9] = 0; + c6: + tab[0] = 1; + c5: + tab[1] = 5; + c4: + a = tab[0]; + c3: + tab[1] = 7; + c2: + a = tab[1]; + c1: + b = tab[0]; + c0: + return a; +} + +int array_mixte(int *tab1, int a, int b) +{ + int tab2[10]; + c30: + tab2[0] = 0; + c29: + tab2[1] = 0; + c28: + tab2[2] = 0; + c27: + tab2[3] = 0; + c26: + tab2[4] = 0; + c25: + tab2[5] = 0; + c24: + tab2[6] = 0; + c23: + tab2[7] = 0; + c22: + tab2[8] = 0; + c21: + tab2[9] = 0; + c20: + tab2[a] = tab1[b] + 1; + c19: + tab1[b] = tab2[0]; + c18: + tab1[a] = tab1[1]; + c17: + return tab2[a]; +} + +int array_param(int *tab, int c, int d) +{ + int i; + int j; + int a; + int b; + c37: + tab[0] = 1; + c36: + tab[1] = c; + c35: + a = tab[0]; + c34: + tab[d] = 7; + c33: + a = tab[d]; + c32: + b = tab[0]; + c31: + return a; +} + +int main(void) +{ + int t[10]; + int a; + int b; + int c; + c51: + t[0] = 1; + c50: + t[1] = 2; + c49: + t[2] = 3; + c48: + t[3] = 4; + c47: + t[4] = 5; + c46: + t[5] = 6; + c45: + t[6] = 7; + c44: + t[7] = 8; + c43: + t[8] = 9; + c42: + t[9] = 0; + c41: + a = array_local(); + c40: + b = array_mixte(t, 2, 3); + c39: + c = array_param(t, 2, 3); + c38: + return (a + b) + c; +} + + diff --git a/tests/clight/array.Cminor.expected b/tests/clight/array.Cminor.expected new file mode 100644 index 0000000..e664112 --- /dev/null +++ b/tests/clight/array.Cminor.expected @@ -0,0 +1,541 @@ + + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"array_local" () : int { + + stack 40; + + var j, i, b, a; + + c16: + int32[&0 + (0 * 4)] = 0; + c15: + int32[&0 + (1 * 4)] = 0; + c14: + int32[&0 + (2 * 4)] = 0; + c13: + int32[&0 + (3 * 4)] = 0; + c12: + int32[&0 + (4 * 4)] = 0; + c11: + int32[&0 + (5 * 4)] = 0; + c10: + int32[&0 + (6 * 4)] = 0; + c9: + int32[&0 + (7 * 4)] = 0; + c8: + int32[&0 + (8 * 4)] = 0; + c7: + int32[&0 + (9 * 4)] = 0; + c6: + int32[&0 + (0 * 4)] = 1; + c5: + int32[&0 + (1 * 4)] = 5; + c4: + a = int32[&0 + (0 * 4)]; + c3: + int32[&0 + (1 * 4)] = 7; + c2: + a = int32[&0 + (1 * 4)]; + c1: + b = int32[&0 + (0 * 4)]; + c0: + return a; + +} + + +"array_mixte" (tab1, a, b) : int -> int -> int -> int { + + stack 40; + + c30: + int32[&0 + (0 * 4)] = 0; + c29: + int32[&0 + (1 * 4)] = 0; + c28: + int32[&0 + (2 * 4)] = 0; + c27: + int32[&0 + (3 * 4)] = 0; + c26: + int32[&0 + (4 * 4)] = 0; + c25: + int32[&0 + (5 * 4)] = 0; + c24: + int32[&0 + (6 * 4)] = 0; + c23: + int32[&0 + (7 * 4)] = 0; + c22: + int32[&0 + (8 * 4)] = 0; + c21: + int32[&0 + (9 * 4)] = 0; + c20: + int32[&0 + (a * 4)] = int32[tab1 + (b * 4)] + 1; + c19: + int32[tab1 + (b * 4)] = int32[&0 + (0 * 4)]; + c18: + int32[tab1 + (a * 4)] = int32[tab1 + (1 * 4)]; + c17: + return int32[&0 + (a * 4)]; + +} + + +"array_param" (tab, c, d) : int -> int -> int -> int { + + stack 0; + + var j, i, b, a; + + c37: + int32[tab + (0 * 4)] = 1; + c36: + int32[tab + (1 * 4)] = c; + c35: + a = int32[tab + (0 * 4)]; + c34: + int32[tab + (d * 4)] = 7; + c33: + a = int32[tab + (d * 4)]; + c32: + b = int32[tab + (0 * 4)]; + c31: + return a; + +} + + +"main" () : int { + + stack 40; + + var c, b, a; + + c51: + int32[&0 + (0 * 4)] = 1; + c50: + int32[&0 + (1 * 4)] = 2; + c49: + int32[&0 + (2 * 4)] = 3; + c48: + int32[&0 + (3 * 4)] = 4; + c47: + int32[&0 + (4 * 4)] = 5; + c46: + int32[&0 + (5 * 4)] = 6; + c45: + int32[&0 + (6 * 4)] = 7; + c44: + int32[&0 + (7 * 4)] = 8; + c43: + int32[&0 + (8 * 4)] = 9; + c42: + int32[&0 + (9 * 4)] = 0; + c41: + a = "array_local"() : int; + c40: + b = "array_mixte"(&0, 2, 3) : int -> int -> int -> int; + c39: + c = "array_param"(&0, 2, 3) : int -> int -> int -> int; + c38: + return (a + b) + c; + +} + + diff --git a/tests/clight/array.ERTL.expected b/tests/clight/array.ERTL.expected new file mode 100644 index 0000000..9ce9ec6 --- /dev/null +++ b/tests/clight/array.ERTL.expected @@ -0,0 +1,1287 @@ +program + +globals 0 + +procedure array_param(3) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40 +entry array_param79 +array_param79: newframe --> array_param78 +array_param78: move %40, $ra --> array_param77 +array_param77: move %39, $s7 --> array_param76 +array_param76: move %38, $s6 --> array_param75 +array_param75: move %37, $s5 --> array_param74 +array_param74: move %36, $s4 --> array_param73 +array_param73: move %35, $s3 --> array_param72 +array_param72: move %34, $s2 --> array_param71 +array_param71: move %33, $s1 --> array_param70 +array_param70: move %32, $s0 --> array_param69 +array_param69: move %0, $a0 --> array_param68 +array_param68: move %1, $a1 --> array_param67 +array_param67: move %2, $a2 --> array_param66 +array_param66: li %3, 0 --> array_param65 +array_param65: li %4, 0 --> array_param64 +array_param64: li %5, 0 --> array_param63 +array_param63: li %6, 0 --> array_param62 +array_param62: li %8, 0 --> array_param61 +array_param61: li %9, 0 --> array_param60 +array_param60: li %10, 0 --> array_param59 +array_param59: li %11, 0 --> array_param58 +array_param58: li %12, 0 --> array_param57 +array_param57: li %13, 0 --> array_param56 +array_param56: li %14, 0 --> array_param55 +array_param55: li %15, 0 --> array_param54 +array_param54: li %16, 0 --> array_param53 +array_param53: li %17, 0 --> array_param52 +array_param52: li %18, 0 --> array_param51 +array_param51: li %19, 0 --> array_param50 +array_param50: li %20, 0 --> array_param49 +array_param49: li %21, 0 --> array_param48 +array_param48: li %22, 0 --> array_param47 +array_param47: li %23, 0 --> array_param46 +array_param46: li %24, 0 --> array_param45 +array_param45: li %25, 0 --> array_param44 +array_param44: li %26, 0 --> array_param43 +array_param43: li %27, 0 --> array_param42 +array_param42: li %28, 0 --> array_param41 +array_param41: li %29, 0 --> array_param40 +array_param40: li %30, 0 --> array_param39 +array_param39: li %31, 0 --> array_param32 +array_param32: emit c37 --> array_param31 +array_param31: li %22, 1 --> array_param30 +array_param30: li %24, 0 --> array_param29 +array_param29: li %25, 4 --> array_param28 +array_param28: mulo %23, %24, %25 --> array_param27 +array_param27: add %29, %0, %23 --> array_param36 +array_param36: sw %22, 0(%29) --> array_param26 +array_param26: emit c36 --> array_param25 +array_param25: li %20, 1 --> array_param24 +array_param24: li %21, 4 --> array_param23 +array_param23: mulo %19, %20, %21 --> array_param22 +array_param22: add %28, %0, %19 --> array_param35 +array_param35: sw %1, 0(%28) --> array_param21 +array_param21: emit c35 --> array_param20 +array_param20: li %17, 0 --> array_param19 +array_param19: li %18, 4 --> array_param18 +array_param18: mulo %16, %17, %18 --> array_param17 +array_param17: add %27, %0, %16 --> array_param34 +array_param34: lw %6, 0(%27) --> array_param16 +array_param16: emit c34 --> array_param15 +array_param15: li %13, 7 --> array_param14 +array_param14: li %15, 4 --> array_param13 +array_param13: mulo %14, %2, %15 --> array_param12 +array_param12: add %26, %0, %14 --> array_param33 +array_param33: sw %13, 0(%26) --> array_param11 +array_param11: emit c33 --> array_param10 +array_param10: li %12, 4 --> array_param9 +array_param9 : mulo %11, %2, %12 --> array_param8 +array_param8 : add %31, %0, %11 --> array_param38 +array_param38: lw %6, 0(%31) --> array_param7 +array_param7 : emit c32 --> array_param6 +array_param6 : li %9, 0 --> array_param5 +array_param5 : li %10, 4 --> array_param4 +array_param4 : mulo %8, %9, %10 --> array_param3 +array_param3 : add %30, %0, %8 --> array_param37 +array_param37: lw %5, 0(%30) --> array_param2 +array_param2 : emit c31 --> array_param1 +array_param1 : move %7, %6 --> array_param0 +array_param0 : j --> array_param91 +array_param91: move $v0, %7 --> array_param90 +array_param90: move $ra, %40 --> array_param89 +array_param89: move $s7, %39 --> array_param88 +array_param88: move $s6, %38 --> array_param87 +array_param87: move $s5, %37 --> array_param86 +array_param86: move $s4, %36 --> array_param85 +array_param85: move $s3, %35 --> array_param84 +array_param84: move $s2, %34 --> array_param83 +array_param83: move $s1, %33 --> array_param82 +array_param82: move $s0, %32 --> array_param81 +array_param81: delframe --> array_param80 +array_param80: jr $ra (xmits $v0) + +procedure array_mixte(3) +stacksize 40 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103 +entry array_mixte223 +array_mixte223: newframe --> array_mixte222 +array_mixte222: move %103, $ra --> array_mixte221 +array_mixte221: move %102, $s7 --> array_mixte220 +array_mixte220: move %101, $s6 --> array_mixte219 +array_mixte219: move %100, $s5 --> array_mixte218 +array_mixte218: move %99, $s4 --> array_mixte217 +array_mixte217: move %98, $s3 --> array_mixte216 +array_mixte216: move %97, $s2 --> array_mixte215 +array_mixte215: move %96, $s1 --> array_mixte214 +array_mixte214: move %95, $s0 --> array_mixte213 +array_mixte213: move %0, $a0 --> array_mixte212 +array_mixte212: move %1, $a1 --> array_mixte211 +array_mixte211: move %2, $a2 --> array_mixte210 +array_mixte210: li %4, 0 --> array_mixte209 +array_mixte209: li %5, 0 --> array_mixte208 +array_mixte208: li %6, 0 --> array_mixte207 +array_mixte207: li %7, 0 --> array_mixte206 +array_mixte206: li %8, 0 --> array_mixte205 +array_mixte205: li %9, 0 --> array_mixte204 +array_mixte204: li %10, 0 --> array_mixte203 +array_mixte203: li %11, 0 --> array_mixte202 +array_mixte202: li %12, 0 --> array_mixte201 +array_mixte201: li %13, 0 --> array_mixte200 +array_mixte200: li %14, 0 --> array_mixte199 +array_mixte199: li %15, 0 --> array_mixte198 +array_mixte198: li %16, 0 --> array_mixte197 +array_mixte197: li %17, 0 --> array_mixte196 +array_mixte196: li %18, 0 --> array_mixte195 +array_mixte195: li %19, 0 --> array_mixte194 +array_mixte194: li %20, 0 --> array_mixte193 +array_mixte193: li %21, 0 --> array_mixte192 +array_mixte192: li %22, 0 --> array_mixte191 +array_mixte191: li %23, 0 --> array_mixte190 +array_mixte190: li %24, 0 --> array_mixte189 +array_mixte189: li %25, 0 --> array_mixte188 +array_mixte188: li %26, 0 --> array_mixte187 +array_mixte187: li %27, 0 --> array_mixte186 +array_mixte186: li %28, 0 --> array_mixte185 +array_mixte185: li %29, 0 --> array_mixte184 +array_mixte184: li %30, 0 --> array_mixte183 +array_mixte183: li %31, 0 --> array_mixte182 +array_mixte182: li %32, 0 --> array_mixte181 +array_mixte181: li %33, 0 --> array_mixte180 +array_mixte180: li %34, 0 --> array_mixte179 +array_mixte179: li %35, 0 --> array_mixte178 +array_mixte178: li %36, 0 --> array_mixte177 +array_mixte177: li %37, 0 --> array_mixte176 +array_mixte176: li %38, 0 --> array_mixte175 +array_mixte175: li %39, 0 --> array_mixte174 +array_mixte174: li %40, 0 --> array_mixte173 +array_mixte173: li %41, 0 --> array_mixte172 +array_mixte172: li %42, 0 --> array_mixte171 +array_mixte171: li %43, 0 --> array_mixte170 +array_mixte170: li %44, 0 --> array_mixte169 +array_mixte169: li %45, 0 --> array_mixte168 +array_mixte168: li %46, 0 --> array_mixte167 +array_mixte167: li %47, 0 --> array_mixte166 +array_mixte166: li %48, 0 --> array_mixte165 +array_mixte165: li %49, 0 --> array_mixte164 +array_mixte164: li %50, 0 --> array_mixte163 +array_mixte163: li %51, 0 --> array_mixte162 +array_mixte162: li %52, 0 --> array_mixte161 +array_mixte161: li %53, 0 --> array_mixte160 +array_mixte160: li %54, 0 --> array_mixte159 +array_mixte159: li %55, 0 --> array_mixte158 +array_mixte158: li %56, 0 --> array_mixte157 +array_mixte157: li %57, 0 --> array_mixte156 +array_mixte156: li %58, 0 --> array_mixte155 +array_mixte155: li %59, 0 --> array_mixte154 +array_mixte154: li %60, 0 --> array_mixte153 +array_mixte153: li %61, 0 --> array_mixte152 +array_mixte152: li %62, 0 --> array_mixte151 +array_mixte151: li %63, 0 --> array_mixte150 +array_mixte150: li %64, 0 --> array_mixte149 +array_mixte149: li %65, 0 --> array_mixte148 +array_mixte148: li %66, 0 --> array_mixte147 +array_mixte147: li %67, 0 --> array_mixte146 +array_mixte146: li %68, 0 --> array_mixte145 +array_mixte145: li %69, 0 --> array_mixte144 +array_mixte144: li %70, 0 --> array_mixte143 +array_mixte143: li %71, 0 --> array_mixte142 +array_mixte142: li %72, 0 --> array_mixte141 +array_mixte141: li %73, 0 --> array_mixte140 +array_mixte140: li %74, 0 --> array_mixte139 +array_mixte139: li %75, 0 --> array_mixte138 +array_mixte138: li %76, 0 --> array_mixte137 +array_mixte137: li %77, 0 --> array_mixte136 +array_mixte136: li %78, 0 --> array_mixte135 +array_mixte135: li %79, 0 --> array_mixte134 +array_mixte134: li %80, 0 --> array_mixte133 +array_mixte133: li %81, 0 --> array_mixte132 +array_mixte132: li %82, 0 --> array_mixte131 +array_mixte131: li %83, 0 --> array_mixte130 +array_mixte130: li %84, 0 --> array_mixte129 +array_mixte129: li %85, 0 --> array_mixte128 +array_mixte128: li %86, 0 --> array_mixte127 +array_mixte127: li %87, 0 --> array_mixte126 +array_mixte126: li %88, 0 --> array_mixte125 +array_mixte125: li %89, 0 --> array_mixte124 +array_mixte124: li %90, 0 --> array_mixte123 +array_mixte123: li %91, 0 --> array_mixte122 +array_mixte122: li %92, 0 --> array_mixte121 +array_mixte121: li %93, 0 --> array_mixte120 +array_mixte120: li %94, 0 --> array_mixte102 +array_mixte102: emit c30 --> array_mixte101 +array_mixte101: li %73, 0 --> array_mixte100 +array_mixte100: move %74, $sp --> array_mixte236 +array_mixte236: move %74, %74 --> array_mixte99 +array_mixte99 : li %76, 0 --> array_mixte98 +array_mixte98 : li %77, 4 --> array_mixte97 +array_mixte97 : mulo %75, %76, %77 --> array_mixte96 +array_mixte96 : add %94, %74, %75 --> array_mixte119 +array_mixte119: sw %73, 0(%94) --> array_mixte95 +array_mixte95 : emit c29 --> array_mixte94 +array_mixte94 : li %68, 0 --> array_mixte93 +array_mixte93 : move %69, $sp --> array_mixte248 +array_mixte248: move %69, %69 --> array_mixte92 +array_mixte92 : li %71, 1 --> array_mixte91 +array_mixte91 : li %72, 4 --> array_mixte90 +array_mixte90 : mulo %70, %71, %72 --> array_mixte89 +array_mixte89 : add %92, %69, %70 --> array_mixte117 +array_mixte117: sw %68, 0(%92) --> array_mixte88 +array_mixte88 : emit c28 --> array_mixte87 +array_mixte87 : li %63, 0 --> array_mixte86 +array_mixte86 : move %64, $sp --> array_mixte247 +array_mixte247: move %64, %64 --> array_mixte85 +array_mixte85 : li %66, 2 --> array_mixte84 +array_mixte84 : li %67, 4 --> array_mixte83 +array_mixte83 : mulo %65, %66, %67 --> array_mixte82 +array_mixte82 : add %91, %64, %65 --> array_mixte116 +array_mixte116: sw %63, 0(%91) --> array_mixte81 +array_mixte81 : emit c27 --> array_mixte80 +array_mixte80 : li %58, 0 --> array_mixte79 +array_mixte79 : move %59, $sp --> array_mixte246 +array_mixte246: move %59, %59 --> array_mixte78 +array_mixte78 : li %61, 3 --> array_mixte77 +array_mixte77 : li %62, 4 --> array_mixte76 +array_mixte76 : mulo %60, %61, %62 --> array_mixte75 +array_mixte75 : add %90, %59, %60 --> array_mixte115 +array_mixte115: sw %58, 0(%90) --> array_mixte74 +array_mixte74 : emit c26 --> array_mixte73 +array_mixte73 : li %53, 0 --> array_mixte72 +array_mixte72 : move %54, $sp --> array_mixte245 +array_mixte245: move %54, %54 --> array_mixte71 +array_mixte71 : li %56, 4 --> array_mixte70 +array_mixte70 : li %57, 4 --> array_mixte69 +array_mixte69 : mulo %55, %56, %57 --> array_mixte68 +array_mixte68 : add %89, %54, %55 --> array_mixte114 +array_mixte114: sw %53, 0(%89) --> array_mixte67 +array_mixte67 : emit c25 --> array_mixte66 +array_mixte66 : li %48, 0 --> array_mixte65 +array_mixte65 : move %49, $sp --> array_mixte244 +array_mixte244: move %49, %49 --> array_mixte64 +array_mixte64 : li %51, 5 --> array_mixte63 +array_mixte63 : li %52, 4 --> array_mixte62 +array_mixte62 : mulo %50, %51, %52 --> array_mixte61 +array_mixte61 : add %88, %49, %50 --> array_mixte113 +array_mixte113: sw %48, 0(%88) --> array_mixte60 +array_mixte60 : emit c24 --> array_mixte59 +array_mixte59 : li %43, 0 --> array_mixte58 +array_mixte58 : move %44, $sp --> array_mixte243 +array_mixte243: move %44, %44 --> array_mixte57 +array_mixte57 : li %46, 6 --> array_mixte56 +array_mixte56 : li %47, 4 --> array_mixte55 +array_mixte55 : mulo %45, %46, %47 --> array_mixte54 +array_mixte54 : add %86, %44, %45 --> array_mixte111 +array_mixte111: sw %43, 0(%86) --> array_mixte53 +array_mixte53 : emit c23 --> array_mixte52 +array_mixte52 : li %38, 0 --> array_mixte51 +array_mixte51 : move %39, $sp --> array_mixte242 +array_mixte242: move %39, %39 --> array_mixte50 +array_mixte50 : li %41, 7 --> array_mixte49 +array_mixte49 : li %42, 4 --> array_mixte48 +array_mixte48 : mulo %40, %41, %42 --> array_mixte47 +array_mixte47 : add %85, %39, %40 --> array_mixte110 +array_mixte110: sw %38, 0(%85) --> array_mixte46 +array_mixte46 : emit c22 --> array_mixte45 +array_mixte45 : li %33, 0 --> array_mixte44 +array_mixte44 : move %34, $sp --> array_mixte241 +array_mixte241: move %34, %34 --> array_mixte43 +array_mixte43 : li %36, 8 --> array_mixte42 +array_mixte42 : li %37, 4 --> array_mixte41 +array_mixte41 : mulo %35, %36, %37 --> array_mixte40 +array_mixte40 : add %84, %34, %35 --> array_mixte109 +array_mixte109: sw %33, 0(%84) --> array_mixte39 +array_mixte39 : emit c21 --> array_mixte38 +array_mixte38 : li %28, 0 --> array_mixte37 +array_mixte37 : move %29, $sp --> array_mixte239 +array_mixte239: move %29, %29 --> array_mixte36 +array_mixte36 : li %31, 9 --> array_mixte35 +array_mixte35 : li %32, 4 --> array_mixte34 +array_mixte34 : mulo %30, %31, %32 --> array_mixte33 +array_mixte33 : add %83, %29, %30 --> array_mixte108 +array_mixte108: sw %28, 0(%83) --> array_mixte32 +array_mixte32 : emit c20 --> array_mixte31 +array_mixte31 : li %27, 4 --> array_mixte30 +array_mixte30 : mulo %26, %2, %27 --> array_mixte29 +array_mixte29 : add %82, %0, %26 --> array_mixte107 +array_mixte107: lw %24, 0(%82) --> array_mixte28 +array_mixte28 : li %25, 1 --> array_mixte27 +array_mixte27 : add %20, %24, %25 --> array_mixte26 +array_mixte26 : move %21, $sp --> array_mixte238 +array_mixte238: move %21, %21 --> array_mixte25 +array_mixte25 : li %23, 4 --> array_mixte24 +array_mixte24 : mulo %22, %1, %23 --> array_mixte23 +array_mixte23 : add %81, %21, %22 --> array_mixte106 +array_mixte106: sw %20, 0(%81) --> array_mixte22 +array_mixte22 : emit c19 --> array_mixte21 +array_mixte21 : move %16, $sp --> array_mixte237 +array_mixte237: move %16, %16 --> array_mixte20 +array_mixte20 : li %18, 0 --> array_mixte19 +array_mixte19 : li %19, 4 --> array_mixte18 +array_mixte18 : mulo %17, %18, %19 --> array_mixte17 +array_mixte17 : add %80, %16, %17 --> array_mixte105 +array_mixte105: lw %13, 0(%80) --> array_mixte16 +array_mixte16 : li %15, 4 --> array_mixte15 +array_mixte15 : mulo %14, %2, %15 --> array_mixte14 +array_mixte14 : add %79, %0, %14 --> array_mixte104 +array_mixte104: sw %13, 0(%79) --> array_mixte13 +array_mixte13 : emit c18 --> array_mixte12 +array_mixte12 : li %11, 1 --> array_mixte11 +array_mixte11 : li %12, 4 --> array_mixte10 +array_mixte10 : mulo %10, %11, %12 --> array_mixte9 +array_mixte9 : add %93, %0, %10 --> array_mixte118 +array_mixte118: lw %7, 0(%93) --> array_mixte8 +array_mixte8 : li %9, 4 --> array_mixte7 +array_mixte7 : mulo %8, %1, %9 --> array_mixte6 +array_mixte6 : add %87, %0, %8 --> array_mixte112 +array_mixte112: sw %7, 0(%87) --> array_mixte5 +array_mixte5 : emit c17 --> array_mixte4 +array_mixte4 : move %4, $sp --> array_mixte240 +array_mixte240: move %4, %4 --> array_mixte3 +array_mixte3 : li %6, 4 --> array_mixte2 +array_mixte2 : mulo %5, %1, %6 --> array_mixte1 +array_mixte1 : add %78, %4, %5 --> array_mixte103 +array_mixte103: lw %3, 0(%78) --> array_mixte0 +array_mixte0 : j --> array_mixte235 +array_mixte235: move $v0, %3 --> array_mixte234 +array_mixte234: move $ra, %103 --> array_mixte233 +array_mixte233: move $s7, %102 --> array_mixte232 +array_mixte232: move $s6, %101 --> array_mixte231 +array_mixte231: move $s5, %100 --> array_mixte230 +array_mixte230: move $s4, %99 --> array_mixte229 +array_mixte229: move $s3, %98 --> array_mixte228 +array_mixte228: move $s2, %97 --> array_mixte227 +array_mixte227: move $s1, %96 --> array_mixte226 +array_mixte226: move $s0, %95 --> array_mixte225 +array_mixte225: delframe --> array_mixte224 +array_mixte224: jr $ra (xmits $v0) + +procedure array_local(0) +stacksize 40 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106 +entry array_local234 +array_local234: newframe --> array_local233 +array_local233: move %106, $ra --> array_local232 +array_local232: move %105, $s7 --> array_local231 +array_local231: move %104, $s6 --> array_local230 +array_local230: move %103, $s5 --> array_local229 +array_local229: move %102, $s4 --> array_local228 +array_local228: move %101, $s3 --> array_local227 +array_local227: move %100, $s2 --> array_local226 +array_local226: move %99, $s1 --> array_local225 +array_local225: move %98, $s0 --> array_local224 +array_local224: li %0, 0 --> array_local223 +array_local223: li %1, 0 --> array_local222 +array_local222: li %2, 0 --> array_local221 +array_local221: li %3, 0 --> array_local220 +array_local220: li %5, 0 --> array_local219 +array_local219: li %6, 0 --> array_local218 +array_local218: li %7, 0 --> array_local217 +array_local217: li %8, 0 --> array_local216 +array_local216: li %9, 0 --> array_local215 +array_local215: li %10, 0 --> array_local214 +array_local214: li %11, 0 --> array_local213 +array_local213: li %12, 0 --> array_local212 +array_local212: li %13, 0 --> array_local211 +array_local211: li %14, 0 --> array_local210 +array_local210: li %15, 0 --> array_local209 +array_local209: li %16, 0 --> array_local208 +array_local208: li %17, 0 --> array_local207 +array_local207: li %18, 0 --> array_local206 +array_local206: li %19, 0 --> array_local205 +array_local205: li %20, 0 --> array_local204 +array_local204: li %21, 0 --> array_local203 +array_local203: li %22, 0 --> array_local202 +array_local202: li %23, 0 --> array_local201 +array_local201: li %24, 0 --> array_local200 +array_local200: li %25, 0 --> array_local199 +array_local199: li %26, 0 --> array_local198 +array_local198: li %27, 0 --> array_local197 +array_local197: li %28, 0 --> array_local196 +array_local196: li %29, 0 --> array_local195 +array_local195: li %30, 0 --> array_local194 +array_local194: li %31, 0 --> array_local193 +array_local193: li %32, 0 --> array_local192 +array_local192: li %33, 0 --> array_local191 +array_local191: li %34, 0 --> array_local190 +array_local190: li %35, 0 --> array_local189 +array_local189: li %36, 0 --> array_local188 +array_local188: li %37, 0 --> array_local187 +array_local187: li %38, 0 --> array_local186 +array_local186: li %39, 0 --> array_local185 +array_local185: li %40, 0 --> array_local184 +array_local184: li %41, 0 --> array_local183 +array_local183: li %42, 0 --> array_local182 +array_local182: li %43, 0 --> array_local181 +array_local181: li %44, 0 --> array_local180 +array_local180: li %45, 0 --> array_local179 +array_local179: li %46, 0 --> array_local178 +array_local178: li %47, 0 --> array_local177 +array_local177: li %48, 0 --> array_local176 +array_local176: li %49, 0 --> array_local175 +array_local175: li %50, 0 --> array_local174 +array_local174: li %51, 0 --> array_local173 +array_local173: li %52, 0 --> array_local172 +array_local172: li %53, 0 --> array_local171 +array_local171: li %54, 0 --> array_local170 +array_local170: li %55, 0 --> array_local169 +array_local169: li %56, 0 --> array_local168 +array_local168: li %57, 0 --> array_local167 +array_local167: li %58, 0 --> array_local166 +array_local166: li %59, 0 --> array_local165 +array_local165: li %60, 0 --> array_local164 +array_local164: li %61, 0 --> array_local163 +array_local163: li %62, 0 --> array_local162 +array_local162: li %63, 0 --> array_local161 +array_local161: li %64, 0 --> array_local160 +array_local160: li %65, 0 --> array_local159 +array_local159: li %66, 0 --> array_local158 +array_local158: li %67, 0 --> array_local157 +array_local157: li %68, 0 --> array_local156 +array_local156: li %69, 0 --> array_local155 +array_local155: li %70, 0 --> array_local154 +array_local154: li %71, 0 --> array_local153 +array_local153: li %72, 0 --> array_local152 +array_local152: li %73, 0 --> array_local151 +array_local151: li %74, 0 --> array_local150 +array_local150: li %75, 0 --> array_local149 +array_local149: li %76, 0 --> array_local148 +array_local148: li %77, 0 --> array_local147 +array_local147: li %78, 0 --> array_local146 +array_local146: li %79, 0 --> array_local145 +array_local145: li %80, 0 --> array_local144 +array_local144: li %81, 0 --> array_local143 +array_local143: li %82, 0 --> array_local142 +array_local142: li %83, 0 --> array_local141 +array_local141: li %84, 0 --> array_local140 +array_local140: li %85, 0 --> array_local139 +array_local139: li %86, 0 --> array_local138 +array_local138: li %87, 0 --> array_local137 +array_local137: li %88, 0 --> array_local136 +array_local136: li %89, 0 --> array_local135 +array_local135: li %90, 0 --> array_local134 +array_local134: li %91, 0 --> array_local133 +array_local133: li %92, 0 --> array_local132 +array_local132: li %93, 0 --> array_local131 +array_local131: li %94, 0 --> array_local130 +array_local130: li %95, 0 --> array_local129 +array_local129: li %96, 0 --> array_local128 +array_local128: li %97, 0 --> array_local111 +array_local111: emit c16 --> array_local110 +array_local110: li %77, 0 --> array_local109 +array_local109: move %78, $sp --> array_local248 +array_local248: move %78, %78 --> array_local108 +array_local108: li %80, 0 --> array_local107 +array_local107: li %81, 4 --> array_local106 +array_local106: mulo %79, %80, %81 --> array_local105 +array_local105: add %82, %78, %79 --> array_local112 +array_local112: sw %77, 0(%82) --> array_local104 +array_local104: emit c15 --> array_local103 +array_local103: li %72, 0 --> array_local102 +array_local102: move %73, $sp --> array_local247 +array_local247: move %73, %73 --> array_local101 +array_local101: li %75, 1 --> array_local100 +array_local100: li %76, 4 --> array_local99 +array_local99 : mulo %74, %75, %76 --> array_local98 +array_local98 : add %97, %73, %74 --> array_local127 +array_local127: sw %72, 0(%97) --> array_local97 +array_local97 : emit c14 --> array_local96 +array_local96 : li %67, 0 --> array_local95 +array_local95 : move %68, $sp --> array_local262 +array_local262: move %68, %68 --> array_local94 +array_local94 : li %70, 2 --> array_local93 +array_local93 : li %71, 4 --> array_local92 +array_local92 : mulo %69, %70, %71 --> array_local91 +array_local91 : add %96, %68, %69 --> array_local126 +array_local126: sw %67, 0(%96) --> array_local90 +array_local90 : emit c13 --> array_local89 +array_local89 : li %62, 0 --> array_local88 +array_local88 : move %63, $sp --> array_local261 +array_local261: move %63, %63 --> array_local87 +array_local87 : li %65, 3 --> array_local86 +array_local86 : li %66, 4 --> array_local85 +array_local85 : mulo %64, %65, %66 --> array_local84 +array_local84 : add %94, %63, %64 --> array_local124 +array_local124: sw %62, 0(%94) --> array_local83 +array_local83 : emit c12 --> array_local82 +array_local82 : li %57, 0 --> array_local81 +array_local81 : move %58, $sp --> array_local260 +array_local260: move %58, %58 --> array_local80 +array_local80 : li %60, 4 --> array_local79 +array_local79 : li %61, 4 --> array_local78 +array_local78 : mulo %59, %60, %61 --> array_local77 +array_local77 : add %93, %58, %59 --> array_local123 +array_local123: sw %57, 0(%93) --> array_local76 +array_local76 : emit c11 --> array_local75 +array_local75 : li %52, 0 --> array_local74 +array_local74 : move %53, $sp --> array_local259 +array_local259: move %53, %53 --> array_local73 +array_local73 : li %55, 5 --> array_local72 +array_local72 : li %56, 4 --> array_local71 +array_local71 : mulo %54, %55, %56 --> array_local70 +array_local70 : add %92, %53, %54 --> array_local122 +array_local122: sw %52, 0(%92) --> array_local69 +array_local69 : emit c10 --> array_local68 +array_local68 : li %47, 0 --> array_local67 +array_local67 : move %48, $sp --> array_local257 +array_local257: move %48, %48 --> array_local66 +array_local66 : li %50, 6 --> array_local65 +array_local65 : li %51, 4 --> array_local64 +array_local64 : mulo %49, %50, %51 --> array_local63 +array_local63 : add %91, %48, %49 --> array_local121 +array_local121: sw %47, 0(%91) --> array_local62 +array_local62 : emit c9 --> array_local61 +array_local61 : li %42, 0 --> array_local60 +array_local60 : move %43, $sp --> array_local256 +array_local256: move %43, %43 --> array_local59 +array_local59 : li %45, 7 --> array_local58 +array_local58 : li %46, 4 --> array_local57 +array_local57 : mulo %44, %45, %46 --> array_local56 +array_local56 : add %90, %43, %44 --> array_local120 +array_local120: sw %42, 0(%90) --> array_local55 +array_local55 : emit c8 --> array_local54 +array_local54 : li %37, 0 --> array_local53 +array_local53 : move %38, $sp --> array_local255 +array_local255: move %38, %38 --> array_local52 +array_local52 : li %40, 8 --> array_local51 +array_local51 : li %41, 4 --> array_local50 +array_local50 : mulo %39, %40, %41 --> array_local49 +array_local49 : add %89, %38, %39 --> array_local119 +array_local119: sw %37, 0(%89) --> array_local48 +array_local48 : emit c7 --> array_local47 +array_local47 : li %32, 0 --> array_local46 +array_local46 : move %33, $sp --> array_local254 +array_local254: move %33, %33 --> array_local45 +array_local45 : li %35, 9 --> array_local44 +array_local44 : li %36, 4 --> array_local43 +array_local43 : mulo %34, %35, %36 --> array_local42 +array_local42 : add %88, %33, %34 --> array_local118 +array_local118: sw %32, 0(%88) --> array_local41 +array_local41 : emit c6 --> array_local40 +array_local40 : li %27, 1 --> array_local39 +array_local39 : move %28, $sp --> array_local253 +array_local253: move %28, %28 --> array_local38 +array_local38 : li %30, 0 --> array_local37 +array_local37 : li %31, 4 --> array_local36 +array_local36 : mulo %29, %30, %31 --> array_local35 +array_local35 : add %87, %28, %29 --> array_local117 +array_local117: sw %27, 0(%87) --> array_local34 +array_local34 : emit c5 --> array_local33 +array_local33 : li %22, 5 --> array_local32 +array_local32 : move %23, $sp --> array_local252 +array_local252: move %23, %23 --> array_local31 +array_local31 : li %25, 1 --> array_local30 +array_local30 : li %26, 4 --> array_local29 +array_local29 : mulo %24, %25, %26 --> array_local28 +array_local28 : add %85, %23, %24 --> array_local115 +array_local115: sw %22, 0(%85) --> array_local27 +array_local27 : emit c4 --> array_local26 +array_local26 : move %18, $sp --> array_local251 +array_local251: move %18, %18 --> array_local25 +array_local25 : li %20, 0 --> array_local24 +array_local24 : li %21, 4 --> array_local23 +array_local23 : mulo %19, %20, %21 --> array_local22 +array_local22 : add %84, %18, %19 --> array_local114 +array_local114: lw %3, 0(%84) --> array_local21 +array_local21 : emit c3 --> array_local20 +array_local20 : li %13, 7 --> array_local19 +array_local19 : move %14, $sp --> array_local250 +array_local250: move %14, %14 --> array_local18 +array_local18 : li %16, 1 --> array_local17 +array_local17 : li %17, 4 --> array_local16 +array_local16 : mulo %15, %16, %17 --> array_local15 +array_local15 : add %83, %14, %15 --> array_local113 +array_local113: sw %13, 0(%83) --> array_local14 +array_local14 : emit c2 --> array_local13 +array_local13 : move %9, $sp --> array_local249 +array_local249: move %9, %9 --> array_local12 +array_local12 : li %11, 1 --> array_local11 +array_local11 : li %12, 4 --> array_local10 +array_local10 : mulo %10, %11, %12 --> array_local9 +array_local9 : add %95, %9, %10 --> array_local125 +array_local125: lw %3, 0(%95) --> array_local8 +array_local8 : emit c1 --> array_local7 +array_local7 : move %5, $sp --> array_local258 +array_local258: move %5, %5 --> array_local6 +array_local6 : li %7, 0 --> array_local5 +array_local5 : li %8, 4 --> array_local4 +array_local4 : mulo %6, %7, %8 --> array_local3 +array_local3 : add %86, %5, %6 --> array_local116 +array_local116: lw %2, 0(%86) --> array_local2 +array_local2 : emit c0 --> array_local1 +array_local1 : move %4, %3 --> array_local0 +array_local0 : j --> array_local246 +array_local246: move $v0, %4 --> array_local245 +array_local245: move $ra, %106 --> array_local244 +array_local244: move $s7, %105 --> array_local243 +array_local243: move $s6, %104 --> array_local242 +array_local242: move $s5, %103 --> array_local241 +array_local241: move $s4, %102 --> array_local240 +array_local240: move $s3, %101 --> array_local239 +array_local239: move $s2, %100 --> array_local238 +array_local238: move $s1, %99 --> array_local237 +array_local237: move $s0, %98 --> array_local236 +array_local236: delframe --> array_local235 +array_local235: jr $ra (xmits $v0) + +procedure _main(0) +stacksize 40 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82 +entry main181 +main181: newframe --> main180 +main180: move %82, $ra --> main179 +main179: move %81, $s7 --> main178 +main178: move %80, $s6 --> main177 +main177: move %79, $s5 --> main176 +main176: move %78, $s4 --> main175 +main175: move %77, $s3 --> main174 +main174: move %76, $s2 --> main173 +main173: move %75, $s1 --> main172 +main172: move %74, $s0 --> main171 +main171: li %0, 0 --> main170 +main170: li %1, 0 --> main169 +main169: li %2, 0 --> main168 +main168: li %4, 0 --> main167 +main167: li %5, 0 --> main166 +main166: li %6, 0 --> main165 +main165: li %7, 0 --> main164 +main164: li %8, 0 --> main163 +main163: li %9, 0 --> main162 +main162: li %10, 0 --> main161 +main161: li %11, 0 --> main160 +main160: li %12, 0 --> main159 +main159: li %13, 0 --> main158 +main158: li %14, 0 --> main157 +main157: li %15, 0 --> main156 +main156: li %16, 0 --> main155 +main155: li %17, 0 --> main154 +main154: li %18, 0 --> main153 +main153: li %19, 0 --> main152 +main152: li %20, 0 --> main151 +main151: li %21, 0 --> main150 +main150: li %22, 0 --> main149 +main149: li %23, 0 --> main148 +main148: li %24, 0 --> main147 +main147: li %25, 0 --> main146 +main146: li %26, 0 --> main145 +main145: li %27, 0 --> main144 +main144: li %28, 0 --> main143 +main143: li %29, 0 --> main142 +main142: li %30, 0 --> main141 +main141: li %31, 0 --> main140 +main140: li %32, 0 --> main139 +main139: li %33, 0 --> main138 +main138: li %34, 0 --> main137 +main137: li %35, 0 --> main136 +main136: li %36, 0 --> main135 +main135: li %37, 0 --> main134 +main134: li %38, 0 --> main133 +main133: li %39, 0 --> main132 +main132: li %40, 0 --> main131 +main131: li %41, 0 --> main130 +main130: li %42, 0 --> main129 +main129: li %43, 0 --> main128 +main128: li %44, 0 --> main127 +main127: li %45, 0 --> main126 +main126: li %46, 0 --> main125 +main125: li %47, 0 --> main124 +main124: li %48, 0 --> main123 +main123: li %49, 0 --> main122 +main122: li %50, 0 --> main121 +main121: li %51, 0 --> main120 +main120: li %52, 0 --> main119 +main119: li %53, 0 --> main118 +main118: li %54, 0 --> main117 +main117: li %55, 0 --> main116 +main116: li %56, 0 --> main115 +main115: li %57, 0 --> main114 +main114: li %58, 0 --> main113 +main113: li %59, 0 --> main112 +main112: li %60, 0 --> main111 +main111: li %61, 0 --> main110 +main110: li %62, 0 --> main109 +main109: li %63, 0 --> main108 +main108: li %64, 0 --> main107 +main107: li %65, 0 --> main106 +main106: li %66, 0 --> main105 +main105: li %67, 0 --> main104 +main104: li %68, 0 --> main103 +main103: li %69, 0 --> main102 +main102: li %70, 0 --> main101 +main101: li %71, 0 --> main100 +main100: li %72, 0 --> main99 +main99 : li %73, 0 --> main85 +main85 : emit c51 --> main84 +main84 : li %56, 1 --> main83 +main83 : move %57, $sp --> main205 +main205: move %57, %57 --> main82 +main82 : li %59, 0 --> main81 +main81 : li %60, 4 --> main80 +main80 : mulo %58, %59, %60 --> main79 +main79 : add %72, %57, %58 --> main97 +main97 : sw %56, 0(%72) --> main78 +main78 : emit c50 --> main77 +main77 : li %51, 2 --> main76 +main76 : move %52, $sp --> main204 +main204: move %52, %52 --> main75 +main75 : li %54, 1 --> main74 +main74 : li %55, 4 --> main73 +main73 : mulo %53, %54, %55 --> main72 +main72 : add %71, %52, %53 --> main96 +main96 : sw %51, 0(%71) --> main71 +main71 : emit c49 --> main70 +main70 : li %46, 3 --> main69 +main69 : move %47, $sp --> main202 +main202: move %47, %47 --> main68 +main68 : li %49, 2 --> main67 +main67 : li %50, 4 --> main66 +main66 : mulo %48, %49, %50 --> main65 +main65 : add %70, %47, %48 --> main95 +main95 : sw %46, 0(%70) --> main64 +main64 : emit c48 --> main63 +main63 : li %41, 4 --> main62 +main62 : move %42, $sp --> main201 +main201: move %42, %42 --> main61 +main61 : li %44, 3 --> main60 +main60 : li %45, 4 --> main59 +main59 : mulo %43, %44, %45 --> main58 +main58 : add %69, %42, %43 --> main94 +main94 : sw %41, 0(%69) --> main57 +main57 : emit c47 --> main56 +main56 : li %36, 5 --> main55 +main55 : move %37, $sp --> main200 +main200: move %37, %37 --> main54 +main54 : li %39, 4 --> main53 +main53 : li %40, 4 --> main52 +main52 : mulo %38, %39, %40 --> main51 +main51 : add %68, %37, %38 --> main93 +main93 : sw %36, 0(%68) --> main50 +main50 : emit c46 --> main49 +main49 : li %31, 6 --> main48 +main48 : move %32, $sp --> main199 +main199: move %32, %32 --> main47 +main47 : li %34, 5 --> main46 +main46 : li %35, 4 --> main45 +main45 : mulo %33, %34, %35 --> main44 +main44 : add %67, %32, %33 --> main92 +main92 : sw %31, 0(%67) --> main43 +main43 : emit c45 --> main42 +main42 : li %26, 7 --> main41 +main41 : move %27, $sp --> main198 +main198: move %27, %27 --> main40 +main40 : li %29, 6 --> main39 +main39 : li %30, 4 --> main38 +main38 : mulo %28, %29, %30 --> main37 +main37 : add %65, %27, %28 --> main90 +main90 : sw %26, 0(%65) --> main36 +main36 : emit c44 --> main35 +main35 : li %21, 8 --> main34 +main34 : move %22, $sp --> main197 +main197: move %22, %22 --> main33 +main33 : li %24, 7 --> main32 +main32 : li %25, 4 --> main31 +main31 : mulo %23, %24, %25 --> main30 +main30 : add %64, %22, %23 --> main89 +main89 : sw %21, 0(%64) --> main29 +main29 : emit c43 --> main28 +main28 : li %16, 9 --> main27 +main27 : move %17, $sp --> main196 +main196: move %17, %17 --> main26 +main26 : li %19, 8 --> main25 +main25 : li %20, 4 --> main24 +main24 : mulo %18, %19, %20 --> main23 +main23 : add %63, %17, %18 --> main88 +main88 : sw %16, 0(%63) --> main22 +main22 : emit c42 --> main21 +main21 : li %11, 0 --> main20 +main20 : move %12, $sp --> main195 +main195: move %12, %12 --> main19 +main19 : li %14, 9 --> main18 +main18 : li %15, 4 --> main17 +main17 : mulo %13, %14, %15 --> main16 +main16 : add %62, %12, %13 --> main87 +main87 : sw %11, 0(%62) --> main15 +main15 : emit c41 --> main14 +main14 : la %61, array_local --> main86 +main86 : j --> main207 +main207: call %61(0) --> main206 +main206: move %2, $v0 --> main13 +main13 : emit c40 --> main12 +main12 : move %8, $sp --> main194 +main194: move %8, %8 --> main11 +main11 : li %9, 2 --> main10 +main10 : li %10, 3 --> main9 +main9 : la %73, array_mixte --> main98 +main98 : j --> main217 +main217: move $a0, %8 --> main216 +main216: move $a1, %9 --> main215 +main215: move $a2, %10 --> main214 +main214: call %73(3) --> main213 +main213: move %1, $v0 --> main8 +main8 : emit c39 --> main7 +main7 : move %5, $sp --> main203 +main203: move %5, %5 --> main6 +main6 : li %6, 2 --> main5 +main5 : li %7, 3 --> main4 +main4 : la %66, array_param --> main91 +main91 : j --> main212 +main212: move $a0, %5 --> main211 +main211: move $a1, %6 --> main210 +main210: move $a2, %7 --> main209 +main209: call %66(3) --> main208 +main208: move %0, $v0 --> main3 +main3 : emit c38 --> main2 +main2 : add %4, %2, %1 --> main1 +main1 : add %3, %4, %0 --> main0 +main0 : j --> main193 +main193: move $v0, %3 --> main192 +main192: move $ra, %82 --> main191 +main191: move $s7, %81 --> main190 +main190: move $s6, %80 --> main189 +main189: move $s5, %79 --> main188 +main188: move $s4, %78 --> main187 +main187: move $s3, %77 --> main186 +main186: move $s2, %76 --> main185 +main185: move $s1, %75 --> main184 +main184: move $s0, %74 --> main183 +main183: delframe --> main182 +main182: jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/array.LIN.expected b/tests/clight/array.LIN.expected new file mode 100644 index 0000000..e6c4722 --- /dev/null +++ b/tests/clight/array.LIN.expected @@ -0,0 +1,767 @@ +program + +globals 0 + +procedure array_param(3) +var 0 +array_param79: +newframe +c37: +li $a3, 1 +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a3, 0($v0) +c36: +li $a3, 1 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c35: +c34: +li $a1, 7 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c33: +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +c32: +c31: +delframe +jr $ra + +procedure array_mixte(3) +var 40 +array_mixte223: +newframe +c30: +li $t0, 0 +move $a3, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a3, $v0 +sw $t0, 0($v0) +c29: +move $t0, $sp +li $a3, 1 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c28: +move $t0, $sp +li $a3, 2 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c27: +move $t0, $sp +li $a3, 3 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c26: +move $t0, $sp +li $a3, 4 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c25: +move $t0, $sp +li $a3, 5 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c24: +move $t0, $sp +li $a3, 6 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c23: +move $t0, $sp +li $a3, 7 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c22: +move $t0, $sp +li $a3, 8 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c21: +move $t0, $sp +li $a3, 9 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c20: +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $a3, 0($v0) +li $v0, 1 +add $t0, $a3, $v0 +move $a3, $sp +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a3, $v0 +sw $t0, 0($v0) +c19: +move $a3, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a3, $v0 +lw $a3, 0($v0) +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +sw $a3, 0($v0) +c18: +li $a2, 1 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $a2, 0($v0) +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a0, $v0 +sw $a2, 0($v0) +c17: +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $sp, $v0 +lw $v0, 0($v0) +delframe +jr $ra + +procedure array_local(0) +var 40 +array_local234: +newframe +c16: +li $a1, 0 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c15: +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c14: +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c13: +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c12: +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c11: +move $a1, $sp +li $a0, 5 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c10: +move $a1, $sp +li $a0, 6 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c9: +move $a1, $sp +li $a0, 7 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c8: +move $a1, $sp +li $a0, 8 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c7: +move $a1, $sp +li $a0, 9 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c6: +li $a1, 1 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c5: +li $a2, 5 +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c4: +c3: +li $a2, 7 +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c2: +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $sp, $v0 +lw $v0, 0($v0) +c1: +c0: +delframe +jr $ra + +procedure _main(0) +var 52 +main181: +newframe +sw $ra, 48($sp) +sw $s1, 44($sp) +sw $s0, 40($sp) +c51: +li $a1, 1 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c50: +li $a2, 2 +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c49: +li $a2, 3 +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c48: +li $a2, 4 +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c47: +li $a2, 5 +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c46: +li $a2, 6 +move $a1, $sp +li $a0, 5 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c45: +li $a2, 7 +move $a1, $sp +li $a0, 6 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c44: +li $a2, 8 +move $a1, $sp +li $a0, 7 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c43: +li $a2, 9 +move $a1, $sp +li $a0, 8 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c42: +move $a1, $sp +li $a0, 9 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c41: +la $v0, array_local +call $v0 +move $s0, $v0 +c40: +move $a0, $sp +li $a1, 2 +li $a2, 3 +la $v0, array_mixte +call $v0 +move $s1, $v0 +c39: +move $a0, $sp +li $a1, 2 +li $a2, 3 +la $v0, array_param +call $v0 +c38: +add $a0, $s0, $s1 +add $v0, $a0, $v0 +lw $ra, 48($sp) +lw $s1, 44($sp) +lw $s0, 40($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/array.LTL.expected b/tests/clight/array.LTL.expected new file mode 100644 index 0000000..dae642e --- /dev/null +++ b/tests/clight/array.LTL.expected @@ -0,0 +1,1238 @@ +program + +globals 0 + +procedure array_param(3) +var 0 +entry array_param79 +array_param79: newframe --> array_param78 +array_param78: j --> array_param77 +array_param77: j --> array_param76 +array_param76: j --> array_param75 +array_param75: j --> array_param74 +array_param74: j --> array_param73 +array_param73: j --> array_param72 +array_param72: j --> array_param71 +array_param71: j --> array_param70 +array_param70: j --> array_param69 +array_param69: j --> array_param68 +array_param68: j --> array_param67 +array_param67: j --> array_param66 +array_param66: j --> array_param65 +array_param65: j --> array_param64 +array_param64: j --> array_param63 +array_param63: j --> array_param62 +array_param62: j --> array_param61 +array_param61: j --> array_param60 +array_param60: j --> array_param59 +array_param59: j --> array_param58 +array_param58: j --> array_param57 +array_param57: j --> array_param56 +array_param56: j --> array_param55 +array_param55: j --> array_param54 +array_param54: j --> array_param53 +array_param53: j --> array_param52 +array_param52: j --> array_param51 +array_param51: j --> array_param50 +array_param50: j --> array_param49 +array_param49: j --> array_param48 +array_param48: j --> array_param47 +array_param47: j --> array_param46 +array_param46: j --> array_param45 +array_param45: j --> array_param44 +array_param44: j --> array_param43 +array_param43: j --> array_param42 +array_param42: j --> array_param41 +array_param41: j --> array_param40 +array_param40: j --> array_param39 +array_param39: j --> array_param32 +array_param32: emit c37 --> array_param31 +array_param31: li $a3, 1 --> array_param30 +array_param30: j --> array_param29 +array_param29: li $v0, 4 --> array_param28 +array_param28: mulo $v0, $zero, $v0 --> array_param27 +array_param27: add $v0, $a0, $v0 --> array_param36 +array_param36: lw $a3, 0($v0) --> array_param26 +array_param26: emit c36 --> array_param25 +array_param25: li $a3, 1 --> array_param24 +array_param24: li $v0, 4 --> array_param23 +array_param23: mulo $v0, $a3, $v0 --> array_param22 +array_param22: add $v0, $a0, $v0 --> array_param35 +array_param35: lw $a1, 0($v0) --> array_param21 +array_param21: emit c35 --> array_param20 +array_param20: j --> array_param19 +array_param19: j --> array_param18 +array_param18: j --> array_param17 +array_param17: j --> array_param34 +array_param34: j --> array_param16 +array_param16: emit c34 --> array_param15 +array_param15: li $a1, 7 --> array_param14 +array_param14: li $v0, 4 --> array_param13 +array_param13: mulo $v0, $a2, $v0 --> array_param12 +array_param12: add $v0, $a0, $v0 --> array_param33 +array_param33: lw $a1, 0($v0) --> array_param11 +array_param11: emit c33 --> array_param10 +array_param10: li $v0, 4 --> array_param9 +array_param9 : mulo $v0, $a2, $v0 --> array_param8 +array_param8 : add $v0, $a0, $v0 --> array_param38 +array_param38: lw $v0, 0($v0) --> array_param7 +array_param7 : emit c32 --> array_param6 +array_param6 : j --> array_param5 +array_param5 : j --> array_param4 +array_param4 : j --> array_param3 +array_param3 : j --> array_param37 +array_param37: j --> array_param2 +array_param2 : emit c31 --> array_param1 +array_param1 : j --> array_param0 +array_param0 : j --> array_param91 +array_param91: j --> array_param90 +array_param90: j --> array_param89 +array_param89: j --> array_param88 +array_param88: j --> array_param87 +array_param87: j --> array_param86 +array_param86: j --> array_param85 +array_param85: j --> array_param84 +array_param84: j --> array_param83 +array_param83: j --> array_param82 +array_param82: j --> array_param81 +array_param81: delframe --> array_param80 +array_param80: jr $ra + +procedure array_mixte(3) +var 40 +entry array_mixte223 +array_mixte223: newframe --> array_mixte222 +array_mixte222: j --> array_mixte221 +array_mixte221: j --> array_mixte220 +array_mixte220: j --> array_mixte219 +array_mixte219: j --> array_mixte218 +array_mixte218: j --> array_mixte217 +array_mixte217: j --> array_mixte216 +array_mixte216: j --> array_mixte215 +array_mixte215: j --> array_mixte214 +array_mixte214: j --> array_mixte213 +array_mixte213: j --> array_mixte212 +array_mixte212: j --> array_mixte211 +array_mixte211: j --> array_mixte210 +array_mixte210: j --> array_mixte209 +array_mixte209: j --> array_mixte208 +array_mixte208: j --> array_mixte207 +array_mixte207: j --> array_mixte206 +array_mixte206: j --> array_mixte205 +array_mixte205: j --> array_mixte204 +array_mixte204: j --> array_mixte203 +array_mixte203: j --> array_mixte202 +array_mixte202: j --> array_mixte201 +array_mixte201: j --> array_mixte200 +array_mixte200: j --> array_mixte199 +array_mixte199: j --> array_mixte198 +array_mixte198: j --> array_mixte197 +array_mixte197: j --> array_mixte196 +array_mixte196: j --> array_mixte195 +array_mixte195: j --> array_mixte194 +array_mixte194: j --> array_mixte193 +array_mixte193: j --> array_mixte192 +array_mixte192: j --> array_mixte191 +array_mixte191: j --> array_mixte190 +array_mixte190: j --> array_mixte189 +array_mixte189: j --> array_mixte188 +array_mixte188: j --> array_mixte187 +array_mixte187: j --> array_mixte186 +array_mixte186: j --> array_mixte185 +array_mixte185: j --> array_mixte184 +array_mixte184: j --> array_mixte183 +array_mixte183: j --> array_mixte182 +array_mixte182: j --> array_mixte181 +array_mixte181: j --> array_mixte180 +array_mixte180: j --> array_mixte179 +array_mixte179: j --> array_mixte178 +array_mixte178: j --> array_mixte177 +array_mixte177: j --> array_mixte176 +array_mixte176: j --> array_mixte175 +array_mixte175: j --> array_mixte174 +array_mixte174: j --> array_mixte173 +array_mixte173: j --> array_mixte172 +array_mixte172: j --> array_mixte171 +array_mixte171: j --> array_mixte170 +array_mixte170: j --> array_mixte169 +array_mixte169: j --> array_mixte168 +array_mixte168: j --> array_mixte167 +array_mixte167: j --> array_mixte166 +array_mixte166: j --> array_mixte165 +array_mixte165: j --> array_mixte164 +array_mixte164: j --> array_mixte163 +array_mixte163: j --> array_mixte162 +array_mixte162: j --> array_mixte161 +array_mixte161: j --> array_mixte160 +array_mixte160: j --> array_mixte159 +array_mixte159: j --> array_mixte158 +array_mixte158: j --> array_mixte157 +array_mixte157: j --> array_mixte156 +array_mixte156: j --> array_mixte155 +array_mixte155: j --> array_mixte154 +array_mixte154: j --> array_mixte153 +array_mixte153: j --> array_mixte152 +array_mixte152: j --> array_mixte151 +array_mixte151: j --> array_mixte150 +array_mixte150: j --> array_mixte149 +array_mixte149: j --> array_mixte148 +array_mixte148: j --> array_mixte147 +array_mixte147: j --> array_mixte146 +array_mixte146: j --> array_mixte145 +array_mixte145: j --> array_mixte144 +array_mixte144: j --> array_mixte143 +array_mixte143: j --> array_mixte142 +array_mixte142: j --> array_mixte141 +array_mixte141: j --> array_mixte140 +array_mixte140: j --> array_mixte139 +array_mixte139: j --> array_mixte138 +array_mixte138: j --> array_mixte137 +array_mixte137: j --> array_mixte136 +array_mixte136: j --> array_mixte135 +array_mixte135: j --> array_mixte134 +array_mixte134: j --> array_mixte133 +array_mixte133: j --> array_mixte132 +array_mixte132: j --> array_mixte131 +array_mixte131: j --> array_mixte130 +array_mixte130: j --> array_mixte129 +array_mixte129: j --> array_mixte128 +array_mixte128: j --> array_mixte127 +array_mixte127: j --> array_mixte126 +array_mixte126: j --> array_mixte125 +array_mixte125: j --> array_mixte124 +array_mixte124: j --> array_mixte123 +array_mixte123: j --> array_mixte122 +array_mixte122: j --> array_mixte121 +array_mixte121: j --> array_mixte120 +array_mixte120: j --> array_mixte102 +array_mixte102: emit c30 --> array_mixte101 +array_mixte101: li $t0, 0 --> array_mixte100 +array_mixte100: move $a3, $sp --> array_mixte236 +array_mixte236: j --> array_mixte99 +array_mixte99 : j --> array_mixte98 +array_mixte98 : li $v0, 4 --> array_mixte97 +array_mixte97 : mulo $v0, $zero, $v0 --> array_mixte96 +array_mixte96 : add $v0, $a3, $v0 --> array_mixte119 +array_mixte119: lw $t0, 0($v0) --> array_mixte95 +array_mixte95 : emit c29 --> array_mixte94 +array_mixte94 : j --> array_mixte93 +array_mixte93 : move $t0, $sp --> array_mixte248 +array_mixte248: j --> array_mixte92 +array_mixte92 : li $a3, 1 --> array_mixte91 +array_mixte91 : li $v0, 4 --> array_mixte90 +array_mixte90 : mulo $v0, $a3, $v0 --> array_mixte89 +array_mixte89 : add $v0, $t0, $v0 --> array_mixte117 +array_mixte117: lw $zero, 0($v0) --> array_mixte88 +array_mixte88 : emit c28 --> array_mixte87 +array_mixte87 : j --> array_mixte86 +array_mixte86 : move $t0, $sp --> array_mixte247 +array_mixte247: j --> array_mixte85 +array_mixte85 : li $a3, 2 --> array_mixte84 +array_mixte84 : li $v0, 4 --> array_mixte83 +array_mixte83 : mulo $v0, $a3, $v0 --> array_mixte82 +array_mixte82 : add $v0, $t0, $v0 --> array_mixte116 +array_mixte116: lw $zero, 0($v0) --> array_mixte81 +array_mixte81 : emit c27 --> array_mixte80 +array_mixte80 : j --> array_mixte79 +array_mixte79 : move $t0, $sp --> array_mixte246 +array_mixte246: j --> array_mixte78 +array_mixte78 : li $a3, 3 --> array_mixte77 +array_mixte77 : li $v0, 4 --> array_mixte76 +array_mixte76 : mulo $v0, $a3, $v0 --> array_mixte75 +array_mixte75 : add $v0, $t0, $v0 --> array_mixte115 +array_mixte115: lw $zero, 0($v0) --> array_mixte74 +array_mixte74 : emit c26 --> array_mixte73 +array_mixte73 : j --> array_mixte72 +array_mixte72 : move $t0, $sp --> array_mixte245 +array_mixte245: j --> array_mixte71 +array_mixte71 : li $a3, 4 --> array_mixte70 +array_mixte70 : li $v0, 4 --> array_mixte69 +array_mixte69 : mulo $v0, $a3, $v0 --> array_mixte68 +array_mixte68 : add $v0, $t0, $v0 --> array_mixte114 +array_mixte114: lw $zero, 0($v0) --> array_mixte67 +array_mixte67 : emit c25 --> array_mixte66 +array_mixte66 : j --> array_mixte65 +array_mixte65 : move $t0, $sp --> array_mixte244 +array_mixte244: j --> array_mixte64 +array_mixte64 : li $a3, 5 --> array_mixte63 +array_mixte63 : li $v0, 4 --> array_mixte62 +array_mixte62 : mulo $v0, $a3, $v0 --> array_mixte61 +array_mixte61 : add $v0, $t0, $v0 --> array_mixte113 +array_mixte113: lw $zero, 0($v0) --> array_mixte60 +array_mixte60 : emit c24 --> array_mixte59 +array_mixte59 : j --> array_mixte58 +array_mixte58 : move $t0, $sp --> array_mixte243 +array_mixte243: j --> array_mixte57 +array_mixte57 : li $a3, 6 --> array_mixte56 +array_mixte56 : li $v0, 4 --> array_mixte55 +array_mixte55 : mulo $v0, $a3, $v0 --> array_mixte54 +array_mixte54 : add $v0, $t0, $v0 --> array_mixte111 +array_mixte111: lw $zero, 0($v0) --> array_mixte53 +array_mixte53 : emit c23 --> array_mixte52 +array_mixte52 : j --> array_mixte51 +array_mixte51 : move $t0, $sp --> array_mixte242 +array_mixte242: j --> array_mixte50 +array_mixte50 : li $a3, 7 --> array_mixte49 +array_mixte49 : li $v0, 4 --> array_mixte48 +array_mixte48 : mulo $v0, $a3, $v0 --> array_mixte47 +array_mixte47 : add $v0, $t0, $v0 --> array_mixte110 +array_mixte110: lw $zero, 0($v0) --> array_mixte46 +array_mixte46 : emit c22 --> array_mixte45 +array_mixte45 : j --> array_mixte44 +array_mixte44 : move $t0, $sp --> array_mixte241 +array_mixte241: j --> array_mixte43 +array_mixte43 : li $a3, 8 --> array_mixte42 +array_mixte42 : li $v0, 4 --> array_mixte41 +array_mixte41 : mulo $v0, $a3, $v0 --> array_mixte40 +array_mixte40 : add $v0, $t0, $v0 --> array_mixte109 +array_mixte109: lw $zero, 0($v0) --> array_mixte39 +array_mixte39 : emit c21 --> array_mixte38 +array_mixte38 : j --> array_mixte37 +array_mixte37 : move $t0, $sp --> array_mixte239 +array_mixte239: j --> array_mixte36 +array_mixte36 : li $a3, 9 --> array_mixte35 +array_mixte35 : li $v0, 4 --> array_mixte34 +array_mixte34 : mulo $v0, $a3, $v0 --> array_mixte33 +array_mixte33 : add $v0, $t0, $v0 --> array_mixte108 +array_mixte108: lw $zero, 0($v0) --> array_mixte32 +array_mixte32 : emit c20 --> array_mixte31 +array_mixte31 : li $v0, 4 --> array_mixte30 +array_mixte30 : mulo $v0, $a2, $v0 --> array_mixte29 +array_mixte29 : add $v0, $a0, $v0 --> array_mixte107 +array_mixte107: lw $a3, 0($v0) --> array_mixte28 +array_mixte28 : li $v0, 1 --> array_mixte27 +array_mixte27 : add $t0, $a3, $v0 --> array_mixte26 +array_mixte26 : move $a3, $sp --> array_mixte238 +array_mixte238: j --> array_mixte25 +array_mixte25 : li $v0, 4 --> array_mixte24 +array_mixte24 : mulo $v0, $a1, $v0 --> array_mixte23 +array_mixte23 : add $v0, $a3, $v0 --> array_mixte106 +array_mixte106: lw $t0, 0($v0) --> array_mixte22 +array_mixte22 : emit c19 --> array_mixte21 +array_mixte21 : move $a3, $sp --> array_mixte237 +array_mixte237: j --> array_mixte20 +array_mixte20 : j --> array_mixte19 +array_mixte19 : li $v0, 4 --> array_mixte18 +array_mixte18 : mulo $v0, $zero, $v0 --> array_mixte17 +array_mixte17 : add $v0, $a3, $v0 --> array_mixte105 +array_mixte105: lw $a3, 0($v0) --> array_mixte16 +array_mixte16 : li $v0, 4 --> array_mixte15 +array_mixte15 : mulo $v0, $a2, $v0 --> array_mixte14 +array_mixte14 : add $v0, $a0, $v0 --> array_mixte104 +array_mixte104: lw $a3, 0($v0) --> array_mixte13 +array_mixte13 : emit c18 --> array_mixte12 +array_mixte12 : li $a2, 1 --> array_mixte11 +array_mixte11 : li $v0, 4 --> array_mixte10 +array_mixte10 : mulo $v0, $a2, $v0 --> array_mixte9 +array_mixte9 : add $v0, $a0, $v0 --> array_mixte118 +array_mixte118: lw $a2, 0($v0) --> array_mixte8 +array_mixte8 : li $v0, 4 --> array_mixte7 +array_mixte7 : mulo $v0, $a1, $v0 --> array_mixte6 +array_mixte6 : add $v0, $a0, $v0 --> array_mixte112 +array_mixte112: lw $a2, 0($v0) --> array_mixte5 +array_mixte5 : emit c17 --> array_mixte4 +array_mixte4 : j --> array_mixte240 +array_mixte240: j --> array_mixte3 +array_mixte3 : li $v0, 4 --> array_mixte2 +array_mixte2 : mulo $v0, $a1, $v0 --> array_mixte1 +array_mixte1 : add $v0, $sp, $v0 --> array_mixte103 +array_mixte103: lw $v0, 0($v0) --> array_mixte0 +array_mixte0 : j --> array_mixte235 +array_mixte235: j --> array_mixte234 +array_mixte234: j --> array_mixte233 +array_mixte233: j --> array_mixte232 +array_mixte232: j --> array_mixte231 +array_mixte231: j --> array_mixte230 +array_mixte230: j --> array_mixte229 +array_mixte229: j --> array_mixte228 +array_mixte228: j --> array_mixte227 +array_mixte227: j --> array_mixte226 +array_mixte226: j --> array_mixte225 +array_mixte225: delframe --> array_mixte224 +array_mixte224: jr $ra + +procedure array_local(0) +var 40 +entry array_local234 +array_local234: newframe --> array_local233 +array_local233: j --> array_local232 +array_local232: j --> array_local231 +array_local231: j --> array_local230 +array_local230: j --> array_local229 +array_local229: j --> array_local228 +array_local228: j --> array_local227 +array_local227: j --> array_local226 +array_local226: j --> array_local225 +array_local225: j --> array_local224 +array_local224: j --> array_local223 +array_local223: j --> array_local222 +array_local222: j --> array_local221 +array_local221: j --> array_local220 +array_local220: j --> array_local219 +array_local219: j --> array_local218 +array_local218: j --> array_local217 +array_local217: j --> array_local216 +array_local216: j --> array_local215 +array_local215: j --> array_local214 +array_local214: j --> array_local213 +array_local213: j --> array_local212 +array_local212: j --> array_local211 +array_local211: j --> array_local210 +array_local210: j --> array_local209 +array_local209: j --> array_local208 +array_local208: j --> array_local207 +array_local207: j --> array_local206 +array_local206: j --> array_local205 +array_local205: j --> array_local204 +array_local204: j --> array_local203 +array_local203: j --> array_local202 +array_local202: j --> array_local201 +array_local201: j --> array_local200 +array_local200: j --> array_local199 +array_local199: j --> array_local198 +array_local198: j --> array_local197 +array_local197: j --> array_local196 +array_local196: j --> array_local195 +array_local195: j --> array_local194 +array_local194: j --> array_local193 +array_local193: j --> array_local192 +array_local192: j --> array_local191 +array_local191: j --> array_local190 +array_local190: j --> array_local189 +array_local189: j --> array_local188 +array_local188: j --> array_local187 +array_local187: j --> array_local186 +array_local186: j --> array_local185 +array_local185: j --> array_local184 +array_local184: j --> array_local183 +array_local183: j --> array_local182 +array_local182: j --> array_local181 +array_local181: j --> array_local180 +array_local180: j --> array_local179 +array_local179: j --> array_local178 +array_local178: j --> array_local177 +array_local177: j --> array_local176 +array_local176: j --> array_local175 +array_local175: j --> array_local174 +array_local174: j --> array_local173 +array_local173: j --> array_local172 +array_local172: j --> array_local171 +array_local171: j --> array_local170 +array_local170: j --> array_local169 +array_local169: j --> array_local168 +array_local168: j --> array_local167 +array_local167: j --> array_local166 +array_local166: j --> array_local165 +array_local165: j --> array_local164 +array_local164: j --> array_local163 +array_local163: j --> array_local162 +array_local162: j --> array_local161 +array_local161: j --> array_local160 +array_local160: j --> array_local159 +array_local159: j --> array_local158 +array_local158: j --> array_local157 +array_local157: j --> array_local156 +array_local156: j --> array_local155 +array_local155: j --> array_local154 +array_local154: j --> array_local153 +array_local153: j --> array_local152 +array_local152: j --> array_local151 +array_local151: j --> array_local150 +array_local150: j --> array_local149 +array_local149: j --> array_local148 +array_local148: j --> array_local147 +array_local147: j --> array_local146 +array_local146: j --> array_local145 +array_local145: j --> array_local144 +array_local144: j --> array_local143 +array_local143: j --> array_local142 +array_local142: j --> array_local141 +array_local141: j --> array_local140 +array_local140: j --> array_local139 +array_local139: j --> array_local138 +array_local138: j --> array_local137 +array_local137: j --> array_local136 +array_local136: j --> array_local135 +array_local135: j --> array_local134 +array_local134: j --> array_local133 +array_local133: j --> array_local132 +array_local132: j --> array_local131 +array_local131: j --> array_local130 +array_local130: j --> array_local129 +array_local129: j --> array_local128 +array_local128: j --> array_local111 +array_local111: emit c16 --> array_local110 +array_local110: li $a1, 0 --> array_local109 +array_local109: move $a0, $sp --> array_local248 +array_local248: j --> array_local108 +array_local108: j --> array_local107 +array_local107: li $v0, 4 --> array_local106 +array_local106: mulo $v0, $zero, $v0 --> array_local105 +array_local105: add $v0, $a0, $v0 --> array_local112 +array_local112: lw $a1, 0($v0) --> array_local104 +array_local104: emit c15 --> array_local103 +array_local103: j --> array_local102 +array_local102: move $a1, $sp --> array_local247 +array_local247: j --> array_local101 +array_local101: li $a0, 1 --> array_local100 +array_local100: li $v0, 4 --> array_local99 +array_local99 : mulo $v0, $a0, $v0 --> array_local98 +array_local98 : add $v0, $a1, $v0 --> array_local127 +array_local127: lw $zero, 0($v0) --> array_local97 +array_local97 : emit c14 --> array_local96 +array_local96 : j --> array_local95 +array_local95 : move $a1, $sp --> array_local262 +array_local262: j --> array_local94 +array_local94 : li $a0, 2 --> array_local93 +array_local93 : li $v0, 4 --> array_local92 +array_local92 : mulo $v0, $a0, $v0 --> array_local91 +array_local91 : add $v0, $a1, $v0 --> array_local126 +array_local126: lw $zero, 0($v0) --> array_local90 +array_local90 : emit c13 --> array_local89 +array_local89 : j --> array_local88 +array_local88 : move $a1, $sp --> array_local261 +array_local261: j --> array_local87 +array_local87 : li $a0, 3 --> array_local86 +array_local86 : li $v0, 4 --> array_local85 +array_local85 : mulo $v0, $a0, $v0 --> array_local84 +array_local84 : add $v0, $a1, $v0 --> array_local124 +array_local124: lw $zero, 0($v0) --> array_local83 +array_local83 : emit c12 --> array_local82 +array_local82 : j --> array_local81 +array_local81 : move $a1, $sp --> array_local260 +array_local260: j --> array_local80 +array_local80 : li $a0, 4 --> array_local79 +array_local79 : li $v0, 4 --> array_local78 +array_local78 : mulo $v0, $a0, $v0 --> array_local77 +array_local77 : add $v0, $a1, $v0 --> array_local123 +array_local123: lw $zero, 0($v0) --> array_local76 +array_local76 : emit c11 --> array_local75 +array_local75 : j --> array_local74 +array_local74 : move $a1, $sp --> array_local259 +array_local259: j --> array_local73 +array_local73 : li $a0, 5 --> array_local72 +array_local72 : li $v0, 4 --> array_local71 +array_local71 : mulo $v0, $a0, $v0 --> array_local70 +array_local70 : add $v0, $a1, $v0 --> array_local122 +array_local122: lw $zero, 0($v0) --> array_local69 +array_local69 : emit c10 --> array_local68 +array_local68 : j --> array_local67 +array_local67 : move $a1, $sp --> array_local257 +array_local257: j --> array_local66 +array_local66 : li $a0, 6 --> array_local65 +array_local65 : li $v0, 4 --> array_local64 +array_local64 : mulo $v0, $a0, $v0 --> array_local63 +array_local63 : add $v0, $a1, $v0 --> array_local121 +array_local121: lw $zero, 0($v0) --> array_local62 +array_local62 : emit c9 --> array_local61 +array_local61 : j --> array_local60 +array_local60 : move $a1, $sp --> array_local256 +array_local256: j --> array_local59 +array_local59 : li $a0, 7 --> array_local58 +array_local58 : li $v0, 4 --> array_local57 +array_local57 : mulo $v0, $a0, $v0 --> array_local56 +array_local56 : add $v0, $a1, $v0 --> array_local120 +array_local120: lw $zero, 0($v0) --> array_local55 +array_local55 : emit c8 --> array_local54 +array_local54 : j --> array_local53 +array_local53 : move $a1, $sp --> array_local255 +array_local255: j --> array_local52 +array_local52 : li $a0, 8 --> array_local51 +array_local51 : li $v0, 4 --> array_local50 +array_local50 : mulo $v0, $a0, $v0 --> array_local49 +array_local49 : add $v0, $a1, $v0 --> array_local119 +array_local119: lw $zero, 0($v0) --> array_local48 +array_local48 : emit c7 --> array_local47 +array_local47 : j --> array_local46 +array_local46 : move $a1, $sp --> array_local254 +array_local254: j --> array_local45 +array_local45 : li $a0, 9 --> array_local44 +array_local44 : li $v0, 4 --> array_local43 +array_local43 : mulo $v0, $a0, $v0 --> array_local42 +array_local42 : add $v0, $a1, $v0 --> array_local118 +array_local118: lw $zero, 0($v0) --> array_local41 +array_local41 : emit c6 --> array_local40 +array_local40 : li $a1, 1 --> array_local39 +array_local39 : move $a0, $sp --> array_local253 +array_local253: j --> array_local38 +array_local38 : j --> array_local37 +array_local37 : li $v0, 4 --> array_local36 +array_local36 : mulo $v0, $zero, $v0 --> array_local35 +array_local35 : add $v0, $a0, $v0 --> array_local117 +array_local117: lw $a1, 0($v0) --> array_local34 +array_local34 : emit c5 --> array_local33 +array_local33 : li $a2, 5 --> array_local32 +array_local32 : move $a1, $sp --> array_local252 +array_local252: j --> array_local31 +array_local31 : li $a0, 1 --> array_local30 +array_local30 : li $v0, 4 --> array_local29 +array_local29 : mulo $v0, $a0, $v0 --> array_local28 +array_local28 : add $v0, $a1, $v0 --> array_local115 +array_local115: lw $a2, 0($v0) --> array_local27 +array_local27 : emit c4 --> array_local26 +array_local26 : j --> array_local251 +array_local251: j --> array_local25 +array_local25 : j --> array_local24 +array_local24 : j --> array_local23 +array_local23 : j --> array_local22 +array_local22 : j --> array_local114 +array_local114: j --> array_local21 +array_local21 : emit c3 --> array_local20 +array_local20 : li $a2, 7 --> array_local19 +array_local19 : move $a1, $sp --> array_local250 +array_local250: j --> array_local18 +array_local18 : li $a0, 1 --> array_local17 +array_local17 : li $v0, 4 --> array_local16 +array_local16 : mulo $v0, $a0, $v0 --> array_local15 +array_local15 : add $v0, $a1, $v0 --> array_local113 +array_local113: lw $a2, 0($v0) --> array_local14 +array_local14 : emit c2 --> array_local13 +array_local13 : j --> array_local249 +array_local249: j --> array_local12 +array_local12 : li $a0, 1 --> array_local11 +array_local11 : li $v0, 4 --> array_local10 +array_local10 : mulo $v0, $a0, $v0 --> array_local9 +array_local9 : add $v0, $sp, $v0 --> array_local125 +array_local125: lw $v0, 0($v0) --> array_local8 +array_local8 : emit c1 --> array_local7 +array_local7 : j --> array_local258 +array_local258: j --> array_local6 +array_local6 : j --> array_local5 +array_local5 : j --> array_local4 +array_local4 : j --> array_local3 +array_local3 : j --> array_local116 +array_local116: j --> array_local2 +array_local2 : emit c0 --> array_local1 +array_local1 : j --> array_local0 +array_local0 : j --> array_local246 +array_local246: j --> array_local245 +array_local245: j --> array_local244 +array_local244: j --> array_local243 +array_local243: j --> array_local242 +array_local242: j --> array_local241 +array_local241: j --> array_local240 +array_local240: j --> array_local239 +array_local239: j --> array_local238 +array_local238: j --> array_local237 +array_local237: j --> array_local236 +array_local236: delframe --> array_local235 +array_local235: jr $ra + +procedure _main(0) +var 52 +entry main181 +main181: newframe --> main180 +main180: lw $ra, 48($sp) --> main179 +main179: j --> main178 +main178: j --> main177 +main177: j --> main176 +main176: j --> main175 +main175: j --> main174 +main174: j --> main173 +main173: lw $s1, 44($sp) --> main172 +main172: lw $s0, 40($sp) --> main171 +main171: j --> main170 +main170: j --> main169 +main169: j --> main168 +main168: j --> main167 +main167: j --> main166 +main166: j --> main165 +main165: j --> main164 +main164: j --> main163 +main163: j --> main162 +main162: j --> main161 +main161: j --> main160 +main160: j --> main159 +main159: j --> main158 +main158: j --> main157 +main157: j --> main156 +main156: j --> main155 +main155: j --> main154 +main154: j --> main153 +main153: j --> main152 +main152: j --> main151 +main151: j --> main150 +main150: j --> main149 +main149: j --> main148 +main148: j --> main147 +main147: j --> main146 +main146: j --> main145 +main145: j --> main144 +main144: j --> main143 +main143: j --> main142 +main142: j --> main141 +main141: j --> main140 +main140: j --> main139 +main139: j --> main138 +main138: j --> main137 +main137: j --> main136 +main136: j --> main135 +main135: j --> main134 +main134: j --> main133 +main133: j --> main132 +main132: j --> main131 +main131: j --> main130 +main130: j --> main129 +main129: j --> main128 +main128: j --> main127 +main127: j --> main126 +main126: j --> main125 +main125: j --> main124 +main124: j --> main123 +main123: j --> main122 +main122: j --> main121 +main121: j --> main120 +main120: j --> main119 +main119: j --> main118 +main118: j --> main117 +main117: j --> main116 +main116: j --> main115 +main115: j --> main114 +main114: j --> main113 +main113: j --> main112 +main112: j --> main111 +main111: j --> main110 +main110: j --> main109 +main109: j --> main108 +main108: j --> main107 +main107: j --> main106 +main106: j --> main105 +main105: j --> main104 +main104: j --> main103 +main103: j --> main102 +main102: j --> main101 +main101: j --> main100 +main100: j --> main99 +main99 : j --> main85 +main85 : emit c51 --> main84 +main84 : li $a1, 1 --> main83 +main83 : move $a0, $sp --> main205 +main205: j --> main82 +main82 : j --> main81 +main81 : li $v0, 4 --> main80 +main80 : mulo $v0, $zero, $v0 --> main79 +main79 : add $v0, $a0, $v0 --> main97 +main97 : lw $a1, 0($v0) --> main78 +main78 : emit c50 --> main77 +main77 : li $a2, 2 --> main76 +main76 : move $a1, $sp --> main204 +main204: j --> main75 +main75 : li $a0, 1 --> main74 +main74 : li $v0, 4 --> main73 +main73 : mulo $v0, $a0, $v0 --> main72 +main72 : add $v0, $a1, $v0 --> main96 +main96 : lw $a2, 0($v0) --> main71 +main71 : emit c49 --> main70 +main70 : li $a2, 3 --> main69 +main69 : move $a1, $sp --> main202 +main202: j --> main68 +main68 : li $a0, 2 --> main67 +main67 : li $v0, 4 --> main66 +main66 : mulo $v0, $a0, $v0 --> main65 +main65 : add $v0, $a1, $v0 --> main95 +main95 : lw $a2, 0($v0) --> main64 +main64 : emit c48 --> main63 +main63 : li $a2, 4 --> main62 +main62 : move $a1, $sp --> main201 +main201: j --> main61 +main61 : li $a0, 3 --> main60 +main60 : li $v0, 4 --> main59 +main59 : mulo $v0, $a0, $v0 --> main58 +main58 : add $v0, $a1, $v0 --> main94 +main94 : lw $a2, 0($v0) --> main57 +main57 : emit c47 --> main56 +main56 : li $a2, 5 --> main55 +main55 : move $a1, $sp --> main200 +main200: j --> main54 +main54 : li $a0, 4 --> main53 +main53 : li $v0, 4 --> main52 +main52 : mulo $v0, $a0, $v0 --> main51 +main51 : add $v0, $a1, $v0 --> main93 +main93 : lw $a2, 0($v0) --> main50 +main50 : emit c46 --> main49 +main49 : li $a2, 6 --> main48 +main48 : move $a1, $sp --> main199 +main199: j --> main47 +main47 : li $a0, 5 --> main46 +main46 : li $v0, 4 --> main45 +main45 : mulo $v0, $a0, $v0 --> main44 +main44 : add $v0, $a1, $v0 --> main92 +main92 : lw $a2, 0($v0) --> main43 +main43 : emit c45 --> main42 +main42 : li $a2, 7 --> main41 +main41 : move $a1, $sp --> main198 +main198: j --> main40 +main40 : li $a0, 6 --> main39 +main39 : li $v0, 4 --> main38 +main38 : mulo $v0, $a0, $v0 --> main37 +main37 : add $v0, $a1, $v0 --> main90 +main90 : lw $a2, 0($v0) --> main36 +main36 : emit c44 --> main35 +main35 : li $a2, 8 --> main34 +main34 : move $a1, $sp --> main197 +main197: j --> main33 +main33 : li $a0, 7 --> main32 +main32 : li $v0, 4 --> main31 +main31 : mulo $v0, $a0, $v0 --> main30 +main30 : add $v0, $a1, $v0 --> main89 +main89 : lw $a2, 0($v0) --> main29 +main29 : emit c43 --> main28 +main28 : li $a2, 9 --> main27 +main27 : move $a1, $sp --> main196 +main196: j --> main26 +main26 : li $a0, 8 --> main25 +main25 : li $v0, 4 --> main24 +main24 : mulo $v0, $a0, $v0 --> main23 +main23 : add $v0, $a1, $v0 --> main88 +main88 : lw $a2, 0($v0) --> main22 +main22 : emit c42 --> main21 +main21 : j --> main20 +main20 : move $a1, $sp --> main195 +main195: j --> main19 +main19 : li $a0, 9 --> main18 +main18 : li $v0, 4 --> main17 +main17 : mulo $v0, $a0, $v0 --> main16 +main16 : add $v0, $a1, $v0 --> main87 +main87 : lw $zero, 0($v0) --> main15 +main15 : emit c41 --> main14 +main14 : la $v0, array_local --> main86 +main86 : j --> main207 +main207: call $v0 --> main206 +main206: move $s0, $v0 --> main13 +main13 : emit c40 --> main12 +main12 : move $a0, $sp --> main194 +main194: j --> main11 +main11 : li $a1, 2 --> main10 +main10 : li $a2, 3 --> main9 +main9 : la $v0, array_mixte --> main98 +main98 : j --> main217 +main217: j --> main216 +main216: j --> main215 +main215: j --> main214 +main214: call $v0 --> main213 +main213: move $s1, $v0 --> main8 +main8 : emit c39 --> main7 +main7 : move $a0, $sp --> main203 +main203: j --> main6 +main6 : li $a1, 2 --> main5 +main5 : li $a2, 3 --> main4 +main4 : la $v0, array_param --> main91 +main91 : j --> main212 +main212: j --> main211 +main211: j --> main210 +main210: j --> main209 +main209: call $v0 --> main208 +main208: j --> main3 +main3 : emit c38 --> main2 +main2 : add $a0, $s0, $s1 --> main1 +main1 : add $v0, $a0, $v0 --> main0 +main0 : j --> main193 +main193: j --> main192 +main192: lw $ra, 48($sp) --> main191 +main191: j --> main190 +main190: j --> main189 +main189: j --> main188 +main188: j --> main187 +main187: j --> main186 +main186: j --> main185 +main185: lw $s1, 44($sp) --> main184 +main184: lw $s0, 40($sp) --> main183 +main183: delframe --> main182 +main182: jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/array.RTL.expected b/tests/clight/array.RTL.expected new file mode 100644 index 0000000..1eba49c --- /dev/null +++ b/tests/clight/array.RTL.expected @@ -0,0 +1,1135 @@ +program + +globals 0 + +function array_param(%0; %1; %2) : %7 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31 +entry array_param66 +array_param66: li %3, 0 --> array_param65 +array_param65: li %4, 0 --> array_param64 +array_param64: li %5, 0 --> array_param63 +array_param63: li %6, 0 --> array_param62 +array_param62: li %8, 0 --> array_param61 +array_param61: li %9, 0 --> array_param60 +array_param60: li %10, 0 --> array_param59 +array_param59: li %11, 0 --> array_param58 +array_param58: li %12, 0 --> array_param57 +array_param57: li %13, 0 --> array_param56 +array_param56: li %14, 0 --> array_param55 +array_param55: li %15, 0 --> array_param54 +array_param54: li %16, 0 --> array_param53 +array_param53: li %17, 0 --> array_param52 +array_param52: li %18, 0 --> array_param51 +array_param51: li %19, 0 --> array_param50 +array_param50: li %20, 0 --> array_param49 +array_param49: li %21, 0 --> array_param48 +array_param48: li %22, 0 --> array_param47 +array_param47: li %23, 0 --> array_param46 +array_param46: li %24, 0 --> array_param45 +array_param45: li %25, 0 --> array_param44 +array_param44: li %26, 0 --> array_param43 +array_param43: li %27, 0 --> array_param42 +array_param42: li %28, 0 --> array_param41 +array_param41: li %29, 0 --> array_param40 +array_param40: li %30, 0 --> array_param39 +array_param39: li %31, 0 --> array_param32 +array_param32: emit c37 --> array_param31 +array_param31: li %22, 1 --> array_param30 +array_param30: li %24, 0 --> array_param29 +array_param29: li %25, 4 --> array_param28 +array_param28: mulo %23, %24, %25 --> array_param27 +array_param27: add %29, %0, %23 --> array_param36 +array_param36: sw %22, 0(%29) --> array_param26 +array_param26: emit c36 --> array_param25 +array_param25: li %20, 1 --> array_param24 +array_param24: li %21, 4 --> array_param23 +array_param23: mulo %19, %20, %21 --> array_param22 +array_param22: add %28, %0, %19 --> array_param35 +array_param35: sw %1, 0(%28) --> array_param21 +array_param21: emit c35 --> array_param20 +array_param20: li %17, 0 --> array_param19 +array_param19: li %18, 4 --> array_param18 +array_param18: mulo %16, %17, %18 --> array_param17 +array_param17: add %27, %0, %16 --> array_param34 +array_param34: lw %6, 0(%27) --> array_param16 +array_param16: emit c34 --> array_param15 +array_param15: li %13, 7 --> array_param14 +array_param14: li %15, 4 --> array_param13 +array_param13: mulo %14, %2, %15 --> array_param12 +array_param12: add %26, %0, %14 --> array_param33 +array_param33: sw %13, 0(%26) --> array_param11 +array_param11: emit c33 --> array_param10 +array_param10: li %12, 4 --> array_param9 +array_param9 : mulo %11, %2, %12 --> array_param8 +array_param8 : add %31, %0, %11 --> array_param38 +array_param38: lw %6, 0(%31) --> array_param7 +array_param7 : emit c32 --> array_param6 +array_param6 : li %9, 0 --> array_param5 +array_param5 : li %10, 4 --> array_param4 +array_param4 : mulo %8, %9, %10 --> array_param3 +array_param3 : add %30, %0, %8 --> array_param37 +array_param37: lw %5, 0(%30) --> array_param2 +array_param2 : emit c31 --> array_param1 +array_param1 : move %7, %6 --> array_param0 +array_param0 : return %7 + +function array_mixte(%0; %1; %2) : %3 +stacksize 40 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94 +entry array_mixte210 +array_mixte210: li %4, 0 --> array_mixte209 +array_mixte209: li %5, 0 --> array_mixte208 +array_mixte208: li %6, 0 --> array_mixte207 +array_mixte207: li %7, 0 --> array_mixte206 +array_mixte206: li %8, 0 --> array_mixte205 +array_mixte205: li %9, 0 --> array_mixte204 +array_mixte204: li %10, 0 --> array_mixte203 +array_mixte203: li %11, 0 --> array_mixte202 +array_mixte202: li %12, 0 --> array_mixte201 +array_mixte201: li %13, 0 --> array_mixte200 +array_mixte200: li %14, 0 --> array_mixte199 +array_mixte199: li %15, 0 --> array_mixte198 +array_mixte198: li %16, 0 --> array_mixte197 +array_mixte197: li %17, 0 --> array_mixte196 +array_mixte196: li %18, 0 --> array_mixte195 +array_mixte195: li %19, 0 --> array_mixte194 +array_mixte194: li %20, 0 --> array_mixte193 +array_mixte193: li %21, 0 --> array_mixte192 +array_mixte192: li %22, 0 --> array_mixte191 +array_mixte191: li %23, 0 --> array_mixte190 +array_mixte190: li %24, 0 --> array_mixte189 +array_mixte189: li %25, 0 --> array_mixte188 +array_mixte188: li %26, 0 --> array_mixte187 +array_mixte187: li %27, 0 --> array_mixte186 +array_mixte186: li %28, 0 --> array_mixte185 +array_mixte185: li %29, 0 --> array_mixte184 +array_mixte184: li %30, 0 --> array_mixte183 +array_mixte183: li %31, 0 --> array_mixte182 +array_mixte182: li %32, 0 --> array_mixte181 +array_mixte181: li %33, 0 --> array_mixte180 +array_mixte180: li %34, 0 --> array_mixte179 +array_mixte179: li %35, 0 --> array_mixte178 +array_mixte178: li %36, 0 --> array_mixte177 +array_mixte177: li %37, 0 --> array_mixte176 +array_mixte176: li %38, 0 --> array_mixte175 +array_mixte175: li %39, 0 --> array_mixte174 +array_mixte174: li %40, 0 --> array_mixte173 +array_mixte173: li %41, 0 --> array_mixte172 +array_mixte172: li %42, 0 --> array_mixte171 +array_mixte171: li %43, 0 --> array_mixte170 +array_mixte170: li %44, 0 --> array_mixte169 +array_mixte169: li %45, 0 --> array_mixte168 +array_mixte168: li %46, 0 --> array_mixte167 +array_mixte167: li %47, 0 --> array_mixte166 +array_mixte166: li %48, 0 --> array_mixte165 +array_mixte165: li %49, 0 --> array_mixte164 +array_mixte164: li %50, 0 --> array_mixte163 +array_mixte163: li %51, 0 --> array_mixte162 +array_mixte162: li %52, 0 --> array_mixte161 +array_mixte161: li %53, 0 --> array_mixte160 +array_mixte160: li %54, 0 --> array_mixte159 +array_mixte159: li %55, 0 --> array_mixte158 +array_mixte158: li %56, 0 --> array_mixte157 +array_mixte157: li %57, 0 --> array_mixte156 +array_mixte156: li %58, 0 --> array_mixte155 +array_mixte155: li %59, 0 --> array_mixte154 +array_mixte154: li %60, 0 --> array_mixte153 +array_mixte153: li %61, 0 --> array_mixte152 +array_mixte152: li %62, 0 --> array_mixte151 +array_mixte151: li %63, 0 --> array_mixte150 +array_mixte150: li %64, 0 --> array_mixte149 +array_mixte149: li %65, 0 --> array_mixte148 +array_mixte148: li %66, 0 --> array_mixte147 +array_mixte147: li %67, 0 --> array_mixte146 +array_mixte146: li %68, 0 --> array_mixte145 +array_mixte145: li %69, 0 --> array_mixte144 +array_mixte144: li %70, 0 --> array_mixte143 +array_mixte143: li %71, 0 --> array_mixte142 +array_mixte142: li %72, 0 --> array_mixte141 +array_mixte141: li %73, 0 --> array_mixte140 +array_mixte140: li %74, 0 --> array_mixte139 +array_mixte139: li %75, 0 --> array_mixte138 +array_mixte138: li %76, 0 --> array_mixte137 +array_mixte137: li %77, 0 --> array_mixte136 +array_mixte136: li %78, 0 --> array_mixte135 +array_mixte135: li %79, 0 --> array_mixte134 +array_mixte134: li %80, 0 --> array_mixte133 +array_mixte133: li %81, 0 --> array_mixte132 +array_mixte132: li %82, 0 --> array_mixte131 +array_mixte131: li %83, 0 --> array_mixte130 +array_mixte130: li %84, 0 --> array_mixte129 +array_mixte129: li %85, 0 --> array_mixte128 +array_mixte128: li %86, 0 --> array_mixte127 +array_mixte127: li %87, 0 --> array_mixte126 +array_mixte126: li %88, 0 --> array_mixte125 +array_mixte125: li %89, 0 --> array_mixte124 +array_mixte124: li %90, 0 --> array_mixte123 +array_mixte123: li %91, 0 --> array_mixte122 +array_mixte122: li %92, 0 --> array_mixte121 +array_mixte121: li %93, 0 --> array_mixte120 +array_mixte120: li %94, 0 --> array_mixte102 +array_mixte102: emit c30 --> array_mixte101 +array_mixte101: li %73, 0 --> array_mixte100 +array_mixte100: addi %74, STACK, 0 --> array_mixte99 +array_mixte99 : li %76, 0 --> array_mixte98 +array_mixte98 : li %77, 4 --> array_mixte97 +array_mixte97 : mulo %75, %76, %77 --> array_mixte96 +array_mixte96 : add %94, %74, %75 --> array_mixte119 +array_mixte119: sw %73, 0(%94) --> array_mixte95 +array_mixte95 : emit c29 --> array_mixte94 +array_mixte94 : li %68, 0 --> array_mixte93 +array_mixte93 : addi %69, STACK, 0 --> array_mixte92 +array_mixte92 : li %71, 1 --> array_mixte91 +array_mixte91 : li %72, 4 --> array_mixte90 +array_mixte90 : mulo %70, %71, %72 --> array_mixte89 +array_mixte89 : add %92, %69, %70 --> array_mixte117 +array_mixte117: sw %68, 0(%92) --> array_mixte88 +array_mixte88 : emit c28 --> array_mixte87 +array_mixte87 : li %63, 0 --> array_mixte86 +array_mixte86 : addi %64, STACK, 0 --> array_mixte85 +array_mixte85 : li %66, 2 --> array_mixte84 +array_mixte84 : li %67, 4 --> array_mixte83 +array_mixte83 : mulo %65, %66, %67 --> array_mixte82 +array_mixte82 : add %91, %64, %65 --> array_mixte116 +array_mixte116: sw %63, 0(%91) --> array_mixte81 +array_mixte81 : emit c27 --> array_mixte80 +array_mixte80 : li %58, 0 --> array_mixte79 +array_mixte79 : addi %59, STACK, 0 --> array_mixte78 +array_mixte78 : li %61, 3 --> array_mixte77 +array_mixte77 : li %62, 4 --> array_mixte76 +array_mixte76 : mulo %60, %61, %62 --> array_mixte75 +array_mixte75 : add %90, %59, %60 --> array_mixte115 +array_mixte115: sw %58, 0(%90) --> array_mixte74 +array_mixte74 : emit c26 --> array_mixte73 +array_mixte73 : li %53, 0 --> array_mixte72 +array_mixte72 : addi %54, STACK, 0 --> array_mixte71 +array_mixte71 : li %56, 4 --> array_mixte70 +array_mixte70 : li %57, 4 --> array_mixte69 +array_mixte69 : mulo %55, %56, %57 --> array_mixte68 +array_mixte68 : add %89, %54, %55 --> array_mixte114 +array_mixte114: sw %53, 0(%89) --> array_mixte67 +array_mixte67 : emit c25 --> array_mixte66 +array_mixte66 : li %48, 0 --> array_mixte65 +array_mixte65 : addi %49, STACK, 0 --> array_mixte64 +array_mixte64 : li %51, 5 --> array_mixte63 +array_mixte63 : li %52, 4 --> array_mixte62 +array_mixte62 : mulo %50, %51, %52 --> array_mixte61 +array_mixte61 : add %88, %49, %50 --> array_mixte113 +array_mixte113: sw %48, 0(%88) --> array_mixte60 +array_mixte60 : emit c24 --> array_mixte59 +array_mixte59 : li %43, 0 --> array_mixte58 +array_mixte58 : addi %44, STACK, 0 --> array_mixte57 +array_mixte57 : li %46, 6 --> array_mixte56 +array_mixte56 : li %47, 4 --> array_mixte55 +array_mixte55 : mulo %45, %46, %47 --> array_mixte54 +array_mixte54 : add %86, %44, %45 --> array_mixte111 +array_mixte111: sw %43, 0(%86) --> array_mixte53 +array_mixte53 : emit c23 --> array_mixte52 +array_mixte52 : li %38, 0 --> array_mixte51 +array_mixte51 : addi %39, STACK, 0 --> array_mixte50 +array_mixte50 : li %41, 7 --> array_mixte49 +array_mixte49 : li %42, 4 --> array_mixte48 +array_mixte48 : mulo %40, %41, %42 --> array_mixte47 +array_mixte47 : add %85, %39, %40 --> array_mixte110 +array_mixte110: sw %38, 0(%85) --> array_mixte46 +array_mixte46 : emit c22 --> array_mixte45 +array_mixte45 : li %33, 0 --> array_mixte44 +array_mixte44 : addi %34, STACK, 0 --> array_mixte43 +array_mixte43 : li %36, 8 --> array_mixte42 +array_mixte42 : li %37, 4 --> array_mixte41 +array_mixte41 : mulo %35, %36, %37 --> array_mixte40 +array_mixte40 : add %84, %34, %35 --> array_mixte109 +array_mixte109: sw %33, 0(%84) --> array_mixte39 +array_mixte39 : emit c21 --> array_mixte38 +array_mixte38 : li %28, 0 --> array_mixte37 +array_mixte37 : addi %29, STACK, 0 --> array_mixte36 +array_mixte36 : li %31, 9 --> array_mixte35 +array_mixte35 : li %32, 4 --> array_mixte34 +array_mixte34 : mulo %30, %31, %32 --> array_mixte33 +array_mixte33 : add %83, %29, %30 --> array_mixte108 +array_mixte108: sw %28, 0(%83) --> array_mixte32 +array_mixte32 : emit c20 --> array_mixte31 +array_mixte31 : li %27, 4 --> array_mixte30 +array_mixte30 : mulo %26, %2, %27 --> array_mixte29 +array_mixte29 : add %82, %0, %26 --> array_mixte107 +array_mixte107: lw %24, 0(%82) --> array_mixte28 +array_mixte28 : li %25, 1 --> array_mixte27 +array_mixte27 : add %20, %24, %25 --> array_mixte26 +array_mixte26 : addi %21, STACK, 0 --> array_mixte25 +array_mixte25 : li %23, 4 --> array_mixte24 +array_mixte24 : mulo %22, %1, %23 --> array_mixte23 +array_mixte23 : add %81, %21, %22 --> array_mixte106 +array_mixte106: sw %20, 0(%81) --> array_mixte22 +array_mixte22 : emit c19 --> array_mixte21 +array_mixte21 : addi %16, STACK, 0 --> array_mixte20 +array_mixte20 : li %18, 0 --> array_mixte19 +array_mixte19 : li %19, 4 --> array_mixte18 +array_mixte18 : mulo %17, %18, %19 --> array_mixte17 +array_mixte17 : add %80, %16, %17 --> array_mixte105 +array_mixte105: lw %13, 0(%80) --> array_mixte16 +array_mixte16 : li %15, 4 --> array_mixte15 +array_mixte15 : mulo %14, %2, %15 --> array_mixte14 +array_mixte14 : add %79, %0, %14 --> array_mixte104 +array_mixte104: sw %13, 0(%79) --> array_mixte13 +array_mixte13 : emit c18 --> array_mixte12 +array_mixte12 : li %11, 1 --> array_mixte11 +array_mixte11 : li %12, 4 --> array_mixte10 +array_mixte10 : mulo %10, %11, %12 --> array_mixte9 +array_mixte9 : add %93, %0, %10 --> array_mixte118 +array_mixte118: lw %7, 0(%93) --> array_mixte8 +array_mixte8 : li %9, 4 --> array_mixte7 +array_mixte7 : mulo %8, %1, %9 --> array_mixte6 +array_mixte6 : add %87, %0, %8 --> array_mixte112 +array_mixte112: sw %7, 0(%87) --> array_mixte5 +array_mixte5 : emit c17 --> array_mixte4 +array_mixte4 : addi %4, STACK, 0 --> array_mixte3 +array_mixte3 : li %6, 4 --> array_mixte2 +array_mixte2 : mulo %5, %1, %6 --> array_mixte1 +array_mixte1 : add %78, %4, %5 --> array_mixte103 +array_mixte103: lw %3, 0(%78) --> array_mixte0 +array_mixte0 : return %3 + +function array_local() : %4 +stacksize 40 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97 +entry array_local224 +array_local224: li %0, 0 --> array_local223 +array_local223: li %1, 0 --> array_local222 +array_local222: li %2, 0 --> array_local221 +array_local221: li %3, 0 --> array_local220 +array_local220: li %5, 0 --> array_local219 +array_local219: li %6, 0 --> array_local218 +array_local218: li %7, 0 --> array_local217 +array_local217: li %8, 0 --> array_local216 +array_local216: li %9, 0 --> array_local215 +array_local215: li %10, 0 --> array_local214 +array_local214: li %11, 0 --> array_local213 +array_local213: li %12, 0 --> array_local212 +array_local212: li %13, 0 --> array_local211 +array_local211: li %14, 0 --> array_local210 +array_local210: li %15, 0 --> array_local209 +array_local209: li %16, 0 --> array_local208 +array_local208: li %17, 0 --> array_local207 +array_local207: li %18, 0 --> array_local206 +array_local206: li %19, 0 --> array_local205 +array_local205: li %20, 0 --> array_local204 +array_local204: li %21, 0 --> array_local203 +array_local203: li %22, 0 --> array_local202 +array_local202: li %23, 0 --> array_local201 +array_local201: li %24, 0 --> array_local200 +array_local200: li %25, 0 --> array_local199 +array_local199: li %26, 0 --> array_local198 +array_local198: li %27, 0 --> array_local197 +array_local197: li %28, 0 --> array_local196 +array_local196: li %29, 0 --> array_local195 +array_local195: li %30, 0 --> array_local194 +array_local194: li %31, 0 --> array_local193 +array_local193: li %32, 0 --> array_local192 +array_local192: li %33, 0 --> array_local191 +array_local191: li %34, 0 --> array_local190 +array_local190: li %35, 0 --> array_local189 +array_local189: li %36, 0 --> array_local188 +array_local188: li %37, 0 --> array_local187 +array_local187: li %38, 0 --> array_local186 +array_local186: li %39, 0 --> array_local185 +array_local185: li %40, 0 --> array_local184 +array_local184: li %41, 0 --> array_local183 +array_local183: li %42, 0 --> array_local182 +array_local182: li %43, 0 --> array_local181 +array_local181: li %44, 0 --> array_local180 +array_local180: li %45, 0 --> array_local179 +array_local179: li %46, 0 --> array_local178 +array_local178: li %47, 0 --> array_local177 +array_local177: li %48, 0 --> array_local176 +array_local176: li %49, 0 --> array_local175 +array_local175: li %50, 0 --> array_local174 +array_local174: li %51, 0 --> array_local173 +array_local173: li %52, 0 --> array_local172 +array_local172: li %53, 0 --> array_local171 +array_local171: li %54, 0 --> array_local170 +array_local170: li %55, 0 --> array_local169 +array_local169: li %56, 0 --> array_local168 +array_local168: li %57, 0 --> array_local167 +array_local167: li %58, 0 --> array_local166 +array_local166: li %59, 0 --> array_local165 +array_local165: li %60, 0 --> array_local164 +array_local164: li %61, 0 --> array_local163 +array_local163: li %62, 0 --> array_local162 +array_local162: li %63, 0 --> array_local161 +array_local161: li %64, 0 --> array_local160 +array_local160: li %65, 0 --> array_local159 +array_local159: li %66, 0 --> array_local158 +array_local158: li %67, 0 --> array_local157 +array_local157: li %68, 0 --> array_local156 +array_local156: li %69, 0 --> array_local155 +array_local155: li %70, 0 --> array_local154 +array_local154: li %71, 0 --> array_local153 +array_local153: li %72, 0 --> array_local152 +array_local152: li %73, 0 --> array_local151 +array_local151: li %74, 0 --> array_local150 +array_local150: li %75, 0 --> array_local149 +array_local149: li %76, 0 --> array_local148 +array_local148: li %77, 0 --> array_local147 +array_local147: li %78, 0 --> array_local146 +array_local146: li %79, 0 --> array_local145 +array_local145: li %80, 0 --> array_local144 +array_local144: li %81, 0 --> array_local143 +array_local143: li %82, 0 --> array_local142 +array_local142: li %83, 0 --> array_local141 +array_local141: li %84, 0 --> array_local140 +array_local140: li %85, 0 --> array_local139 +array_local139: li %86, 0 --> array_local138 +array_local138: li %87, 0 --> array_local137 +array_local137: li %88, 0 --> array_local136 +array_local136: li %89, 0 --> array_local135 +array_local135: li %90, 0 --> array_local134 +array_local134: li %91, 0 --> array_local133 +array_local133: li %92, 0 --> array_local132 +array_local132: li %93, 0 --> array_local131 +array_local131: li %94, 0 --> array_local130 +array_local130: li %95, 0 --> array_local129 +array_local129: li %96, 0 --> array_local128 +array_local128: li %97, 0 --> array_local111 +array_local111: emit c16 --> array_local110 +array_local110: li %77, 0 --> array_local109 +array_local109: addi %78, STACK, 0 --> array_local108 +array_local108: li %80, 0 --> array_local107 +array_local107: li %81, 4 --> array_local106 +array_local106: mulo %79, %80, %81 --> array_local105 +array_local105: add %82, %78, %79 --> array_local112 +array_local112: sw %77, 0(%82) --> array_local104 +array_local104: emit c15 --> array_local103 +array_local103: li %72, 0 --> array_local102 +array_local102: addi %73, STACK, 0 --> array_local101 +array_local101: li %75, 1 --> array_local100 +array_local100: li %76, 4 --> array_local99 +array_local99 : mulo %74, %75, %76 --> array_local98 +array_local98 : add %97, %73, %74 --> array_local127 +array_local127: sw %72, 0(%97) --> array_local97 +array_local97 : emit c14 --> array_local96 +array_local96 : li %67, 0 --> array_local95 +array_local95 : addi %68, STACK, 0 --> array_local94 +array_local94 : li %70, 2 --> array_local93 +array_local93 : li %71, 4 --> array_local92 +array_local92 : mulo %69, %70, %71 --> array_local91 +array_local91 : add %96, %68, %69 --> array_local126 +array_local126: sw %67, 0(%96) --> array_local90 +array_local90 : emit c13 --> array_local89 +array_local89 : li %62, 0 --> array_local88 +array_local88 : addi %63, STACK, 0 --> array_local87 +array_local87 : li %65, 3 --> array_local86 +array_local86 : li %66, 4 --> array_local85 +array_local85 : mulo %64, %65, %66 --> array_local84 +array_local84 : add %94, %63, %64 --> array_local124 +array_local124: sw %62, 0(%94) --> array_local83 +array_local83 : emit c12 --> array_local82 +array_local82 : li %57, 0 --> array_local81 +array_local81 : addi %58, STACK, 0 --> array_local80 +array_local80 : li %60, 4 --> array_local79 +array_local79 : li %61, 4 --> array_local78 +array_local78 : mulo %59, %60, %61 --> array_local77 +array_local77 : add %93, %58, %59 --> array_local123 +array_local123: sw %57, 0(%93) --> array_local76 +array_local76 : emit c11 --> array_local75 +array_local75 : li %52, 0 --> array_local74 +array_local74 : addi %53, STACK, 0 --> array_local73 +array_local73 : li %55, 5 --> array_local72 +array_local72 : li %56, 4 --> array_local71 +array_local71 : mulo %54, %55, %56 --> array_local70 +array_local70 : add %92, %53, %54 --> array_local122 +array_local122: sw %52, 0(%92) --> array_local69 +array_local69 : emit c10 --> array_local68 +array_local68 : li %47, 0 --> array_local67 +array_local67 : addi %48, STACK, 0 --> array_local66 +array_local66 : li %50, 6 --> array_local65 +array_local65 : li %51, 4 --> array_local64 +array_local64 : mulo %49, %50, %51 --> array_local63 +array_local63 : add %91, %48, %49 --> array_local121 +array_local121: sw %47, 0(%91) --> array_local62 +array_local62 : emit c9 --> array_local61 +array_local61 : li %42, 0 --> array_local60 +array_local60 : addi %43, STACK, 0 --> array_local59 +array_local59 : li %45, 7 --> array_local58 +array_local58 : li %46, 4 --> array_local57 +array_local57 : mulo %44, %45, %46 --> array_local56 +array_local56 : add %90, %43, %44 --> array_local120 +array_local120: sw %42, 0(%90) --> array_local55 +array_local55 : emit c8 --> array_local54 +array_local54 : li %37, 0 --> array_local53 +array_local53 : addi %38, STACK, 0 --> array_local52 +array_local52 : li %40, 8 --> array_local51 +array_local51 : li %41, 4 --> array_local50 +array_local50 : mulo %39, %40, %41 --> array_local49 +array_local49 : add %89, %38, %39 --> array_local119 +array_local119: sw %37, 0(%89) --> array_local48 +array_local48 : emit c7 --> array_local47 +array_local47 : li %32, 0 --> array_local46 +array_local46 : addi %33, STACK, 0 --> array_local45 +array_local45 : li %35, 9 --> array_local44 +array_local44 : li %36, 4 --> array_local43 +array_local43 : mulo %34, %35, %36 --> array_local42 +array_local42 : add %88, %33, %34 --> array_local118 +array_local118: sw %32, 0(%88) --> array_local41 +array_local41 : emit c6 --> array_local40 +array_local40 : li %27, 1 --> array_local39 +array_local39 : addi %28, STACK, 0 --> array_local38 +array_local38 : li %30, 0 --> array_local37 +array_local37 : li %31, 4 --> array_local36 +array_local36 : mulo %29, %30, %31 --> array_local35 +array_local35 : add %87, %28, %29 --> array_local117 +array_local117: sw %27, 0(%87) --> array_local34 +array_local34 : emit c5 --> array_local33 +array_local33 : li %22, 5 --> array_local32 +array_local32 : addi %23, STACK, 0 --> array_local31 +array_local31 : li %25, 1 --> array_local30 +array_local30 : li %26, 4 --> array_local29 +array_local29 : mulo %24, %25, %26 --> array_local28 +array_local28 : add %85, %23, %24 --> array_local115 +array_local115: sw %22, 0(%85) --> array_local27 +array_local27 : emit c4 --> array_local26 +array_local26 : addi %18, STACK, 0 --> array_local25 +array_local25 : li %20, 0 --> array_local24 +array_local24 : li %21, 4 --> array_local23 +array_local23 : mulo %19, %20, %21 --> array_local22 +array_local22 : add %84, %18, %19 --> array_local114 +array_local114: lw %3, 0(%84) --> array_local21 +array_local21 : emit c3 --> array_local20 +array_local20 : li %13, 7 --> array_local19 +array_local19 : addi %14, STACK, 0 --> array_local18 +array_local18 : li %16, 1 --> array_local17 +array_local17 : li %17, 4 --> array_local16 +array_local16 : mulo %15, %16, %17 --> array_local15 +array_local15 : add %83, %14, %15 --> array_local113 +array_local113: sw %13, 0(%83) --> array_local14 +array_local14 : emit c2 --> array_local13 +array_local13 : addi %9, STACK, 0 --> array_local12 +array_local12 : li %11, 1 --> array_local11 +array_local11 : li %12, 4 --> array_local10 +array_local10 : mulo %10, %11, %12 --> array_local9 +array_local9 : add %95, %9, %10 --> array_local125 +array_local125: lw %3, 0(%95) --> array_local8 +array_local8 : emit c1 --> array_local7 +array_local7 : addi %5, STACK, 0 --> array_local6 +array_local6 : li %7, 0 --> array_local5 +array_local5 : li %8, 4 --> array_local4 +array_local4 : mulo %6, %7, %8 --> array_local3 +array_local3 : add %86, %5, %6 --> array_local116 +array_local116: lw %2, 0(%86) --> array_local2 +array_local2 : emit c0 --> array_local1 +array_local1 : move %4, %3 --> array_local0 +array_local0 : return %4 + +function _main() : %3 +stacksize 40 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73 +entry main171 +main171: li %0, 0 --> main170 +main170: li %1, 0 --> main169 +main169: li %2, 0 --> main168 +main168: li %4, 0 --> main167 +main167: li %5, 0 --> main166 +main166: li %6, 0 --> main165 +main165: li %7, 0 --> main164 +main164: li %8, 0 --> main163 +main163: li %9, 0 --> main162 +main162: li %10, 0 --> main161 +main161: li %11, 0 --> main160 +main160: li %12, 0 --> main159 +main159: li %13, 0 --> main158 +main158: li %14, 0 --> main157 +main157: li %15, 0 --> main156 +main156: li %16, 0 --> main155 +main155: li %17, 0 --> main154 +main154: li %18, 0 --> main153 +main153: li %19, 0 --> main152 +main152: li %20, 0 --> main151 +main151: li %21, 0 --> main150 +main150: li %22, 0 --> main149 +main149: li %23, 0 --> main148 +main148: li %24, 0 --> main147 +main147: li %25, 0 --> main146 +main146: li %26, 0 --> main145 +main145: li %27, 0 --> main144 +main144: li %28, 0 --> main143 +main143: li %29, 0 --> main142 +main142: li %30, 0 --> main141 +main141: li %31, 0 --> main140 +main140: li %32, 0 --> main139 +main139: li %33, 0 --> main138 +main138: li %34, 0 --> main137 +main137: li %35, 0 --> main136 +main136: li %36, 0 --> main135 +main135: li %37, 0 --> main134 +main134: li %38, 0 --> main133 +main133: li %39, 0 --> main132 +main132: li %40, 0 --> main131 +main131: li %41, 0 --> main130 +main130: li %42, 0 --> main129 +main129: li %43, 0 --> main128 +main128: li %44, 0 --> main127 +main127: li %45, 0 --> main126 +main126: li %46, 0 --> main125 +main125: li %47, 0 --> main124 +main124: li %48, 0 --> main123 +main123: li %49, 0 --> main122 +main122: li %50, 0 --> main121 +main121: li %51, 0 --> main120 +main120: li %52, 0 --> main119 +main119: li %53, 0 --> main118 +main118: li %54, 0 --> main117 +main117: li %55, 0 --> main116 +main116: li %56, 0 --> main115 +main115: li %57, 0 --> main114 +main114: li %58, 0 --> main113 +main113: li %59, 0 --> main112 +main112: li %60, 0 --> main111 +main111: li %61, 0 --> main110 +main110: li %62, 0 --> main109 +main109: li %63, 0 --> main108 +main108: li %64, 0 --> main107 +main107: li %65, 0 --> main106 +main106: li %66, 0 --> main105 +main105: li %67, 0 --> main104 +main104: li %68, 0 --> main103 +main103: li %69, 0 --> main102 +main102: li %70, 0 --> main101 +main101: li %71, 0 --> main100 +main100: li %72, 0 --> main99 +main99 : li %73, 0 --> main85 +main85 : emit c51 --> main84 +main84 : li %56, 1 --> main83 +main83 : addi %57, STACK, 0 --> main82 +main82 : li %59, 0 --> main81 +main81 : li %60, 4 --> main80 +main80 : mulo %58, %59, %60 --> main79 +main79 : add %72, %57, %58 --> main97 +main97 : sw %56, 0(%72) --> main78 +main78 : emit c50 --> main77 +main77 : li %51, 2 --> main76 +main76 : addi %52, STACK, 0 --> main75 +main75 : li %54, 1 --> main74 +main74 : li %55, 4 --> main73 +main73 : mulo %53, %54, %55 --> main72 +main72 : add %71, %52, %53 --> main96 +main96 : sw %51, 0(%71) --> main71 +main71 : emit c49 --> main70 +main70 : li %46, 3 --> main69 +main69 : addi %47, STACK, 0 --> main68 +main68 : li %49, 2 --> main67 +main67 : li %50, 4 --> main66 +main66 : mulo %48, %49, %50 --> main65 +main65 : add %70, %47, %48 --> main95 +main95 : sw %46, 0(%70) --> main64 +main64 : emit c48 --> main63 +main63 : li %41, 4 --> main62 +main62 : addi %42, STACK, 0 --> main61 +main61 : li %44, 3 --> main60 +main60 : li %45, 4 --> main59 +main59 : mulo %43, %44, %45 --> main58 +main58 : add %69, %42, %43 --> main94 +main94 : sw %41, 0(%69) --> main57 +main57 : emit c47 --> main56 +main56 : li %36, 5 --> main55 +main55 : addi %37, STACK, 0 --> main54 +main54 : li %39, 4 --> main53 +main53 : li %40, 4 --> main52 +main52 : mulo %38, %39, %40 --> main51 +main51 : add %68, %37, %38 --> main93 +main93 : sw %36, 0(%68) --> main50 +main50 : emit c46 --> main49 +main49 : li %31, 6 --> main48 +main48 : addi %32, STACK, 0 --> main47 +main47 : li %34, 5 --> main46 +main46 : li %35, 4 --> main45 +main45 : mulo %33, %34, %35 --> main44 +main44 : add %67, %32, %33 --> main92 +main92 : sw %31, 0(%67) --> main43 +main43 : emit c45 --> main42 +main42 : li %26, 7 --> main41 +main41 : addi %27, STACK, 0 --> main40 +main40 : li %29, 6 --> main39 +main39 : li %30, 4 --> main38 +main38 : mulo %28, %29, %30 --> main37 +main37 : add %65, %27, %28 --> main90 +main90 : sw %26, 0(%65) --> main36 +main36 : emit c44 --> main35 +main35 : li %21, 8 --> main34 +main34 : addi %22, STACK, 0 --> main33 +main33 : li %24, 7 --> main32 +main32 : li %25, 4 --> main31 +main31 : mulo %23, %24, %25 --> main30 +main30 : add %64, %22, %23 --> main89 +main89 : sw %21, 0(%64) --> main29 +main29 : emit c43 --> main28 +main28 : li %16, 9 --> main27 +main27 : addi %17, STACK, 0 --> main26 +main26 : li %19, 8 --> main25 +main25 : li %20, 4 --> main24 +main24 : mulo %18, %19, %20 --> main23 +main23 : add %63, %17, %18 --> main88 +main88 : sw %16, 0(%63) --> main22 +main22 : emit c42 --> main21 +main21 : li %11, 0 --> main20 +main20 : addi %12, STACK, 0 --> main19 +main19 : li %14, 9 --> main18 +main18 : li %15, 4 --> main17 +main17 : mulo %13, %14, %15 --> main16 +main16 : add %62, %12, %13 --> main87 +main87 : sw %11, 0(%62) --> main15 +main15 : emit c41 --> main14 +main14 : la %61, array_local --> main86 +main86 : call %2, %61() --> main13 +main13 : emit c40 --> main12 +main12 : addi %8, STACK, 0 --> main11 +main11 : li %9, 2 --> main10 +main10 : li %10, 3 --> main9 +main9 : la %73, array_mixte --> main98 +main98 : call %1, %73(%8, %9, %10) --> main8 +main8 : emit c39 --> main7 +main7 : addi %5, STACK, 0 --> main6 +main6 : li %6, 2 --> main5 +main5 : li %7, 3 --> main4 +main4 : la %66, array_param --> main91 +main91 : call %0, %66(%5, %6, %7) --> main3 +main3 : emit c38 --> main2 +main2 : add %4, %2, %1 --> main1 +main1 : add %3, %4, %0 --> main0 +main0 : return %3 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/array.RTLabs.expected b/tests/clight/array.RTLabs.expected new file mode 100644 index 0000000..0194bc3 --- /dev/null +++ b/tests/clight/array.RTLabs.expected @@ -0,0 +1,772 @@ +program: (main function is "main") + + + globals: + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "array_local"(): int + locals: %4, %0, %1, %2, %3, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45, %46, %47, %48, %49, %50, %51, %52, %53, %54, %55, %56, %57, %58, %59, %60, %61, %62, %63, %64, %65, %66, %67, %68, %69, %70, %71, %72, %73, %74, %75, %76, %77, %78, %79, %80, %81 + result: %4 + stacksize: 40 + entry: array_local111 + exit: array_local0 + + array_local99: mul %74, %75, %76 --> array_local98 + array_local98: store int32, add, %73, %74, %72 --> array_local97 + array_local97: emit c14 --> array_local96 + array_local96: imm_int 0, %67, --> array_local95 + array_local95: imm_addr 0($sp), %68, --> array_local94 + array_local94: imm_int 2, %70, --> array_local93 + array_local93: imm_int 4, %71, --> array_local92 + array_local92: mul %69, %70, %71 --> array_local91 + array_local91: store int32, add, %68, %69, %67 --> array_local90 + array_local90: emit c13 --> array_local89 + array_local9: load int32, add, %9, %10, %3 --> array_local8 + array_local89: imm_int 0, %62, --> array_local88 + array_local88: imm_addr 0($sp), %63, --> array_local87 + array_local87: imm_int 3, %65, --> array_local86 + array_local86: imm_int 4, %66, --> array_local85 + array_local85: mul %64, %65, %66 --> array_local84 + array_local84: store int32, add, %63, %64, %62 --> array_local83 + array_local83: emit c12 --> array_local82 + array_local82: imm_int 0, %57, --> array_local81 + array_local81: imm_addr 0($sp), %58, --> array_local80 + array_local80: imm_int 4, %60, --> array_local79 + array_local8: emit c1 --> array_local7 + array_local79: imm_int 4, %61, --> array_local78 + array_local78: mul %59, %60, %61 --> array_local77 + array_local77: store int32, add, %58, %59, %57 --> array_local76 + array_local76: emit c11 --> array_local75 + array_local75: imm_int 0, %52, --> array_local74 + array_local74: imm_addr 0($sp), %53, --> array_local73 + array_local73: imm_int 5, %55, --> array_local72 + array_local72: imm_int 4, %56, --> array_local71 + array_local71: mul %54, %55, %56 --> array_local70 + array_local70: store int32, add, %53, %54, %52 --> array_local69 + array_local7: imm_addr 0($sp), %5, --> array_local6 + array_local69: emit c10 --> array_local68 + array_local68: imm_int 0, %47, --> array_local67 + array_local67: imm_addr 0($sp), %48, --> array_local66 + array_local66: imm_int 6, %50, --> array_local65 + array_local65: imm_int 4, %51, --> array_local64 + array_local64: mul %49, %50, %51 --> array_local63 + array_local63: store int32, add, %48, %49, %47 --> array_local62 + array_local62: emit c9 --> array_local61 + array_local61: imm_int 0, %42, --> array_local60 + array_local60: imm_addr 0($sp), %43, --> array_local59 + array_local6: imm_int 0, %7, --> array_local5 + array_local59: imm_int 7, %45, --> array_local58 + array_local58: imm_int 4, %46, --> array_local57 + array_local57: mul %44, %45, %46 --> array_local56 + array_local56: store int32, add, %43, %44, %42 --> array_local55 + array_local55: emit c8 --> array_local54 + array_local54: imm_int 0, %37, --> array_local53 + array_local53: imm_addr 0($sp), %38, --> array_local52 + array_local52: imm_int 8, %40, --> array_local51 + array_local51: imm_int 4, %41, --> array_local50 + array_local50: mul %39, %40, %41 --> array_local49 + array_local5: imm_int 4, %8, --> array_local4 + array_local49: store int32, add, %38, %39, %37 --> array_local48 + array_local48: emit c7 --> array_local47 + array_local47: imm_int 0, %32, --> array_local46 + array_local46: imm_addr 0($sp), %33, --> array_local45 + array_local45: imm_int 9, %35, --> array_local44 + array_local44: imm_int 4, %36, --> array_local43 + array_local43: mul %34, %35, %36 --> array_local42 + array_local42: store int32, add, %33, %34, %32 --> array_local41 + array_local41: emit c6 --> array_local40 + array_local40: imm_int 1, %27, --> array_local39 + array_local4: mul %6, %7, %8 --> array_local3 + array_local39: imm_addr 0($sp), %28, --> array_local38 + array_local38: imm_int 0, %30, --> array_local37 + array_local37: imm_int 4, %31, --> array_local36 + array_local36: mul %29, %30, %31 --> array_local35 + array_local35: store int32, add, %28, %29, %27 --> array_local34 + array_local34: emit c5 --> array_local33 + array_local33: imm_int 5, %22, --> array_local32 + array_local32: imm_addr 0($sp), %23, --> array_local31 + array_local31: imm_int 1, %25, --> array_local30 + array_local30: imm_int 4, %26, --> array_local29 + array_local3: load int32, add, %5, %6, %2 --> array_local2 + array_local29: mul %24, %25, %26 --> array_local28 + array_local28: store int32, add, %23, %24, %22 --> array_local27 + array_local27: emit c4 --> array_local26 + array_local26: imm_addr 0($sp), %18, --> array_local25 + array_local25: imm_int 0, %20, --> array_local24 + array_local24: imm_int 4, %21, --> array_local23 + array_local23: mul %19, %20, %21 --> array_local22 + array_local22: load int32, add, %18, %19, %3 --> array_local21 + array_local21: emit c3 --> array_local20 + array_local20: imm_int 7, %13, --> array_local19 + array_local2: emit c0 --> array_local1 + array_local19: imm_addr 0($sp), %14, --> array_local18 + array_local18: imm_int 1, %16, --> array_local17 + array_local17: imm_int 4, %17, --> array_local16 + array_local16: mul %15, %16, %17 --> array_local15 + array_local15: store int32, add, %14, %15, %13 --> array_local14 + array_local14: emit c2 --> array_local13 + array_local13: imm_addr 0($sp), %9, --> array_local12 + array_local12: imm_int 1, %11, --> array_local11 + array_local111: emit c16 --> array_local110 + array_local110: imm_int 0, %77, --> array_local109 + array_local11: imm_int 4, %12, --> array_local10 + array_local109: imm_addr 0($sp), %78, --> array_local108 + array_local108: imm_int 0, %80, --> array_local107 + array_local107: imm_int 4, %81, --> array_local106 + array_local106: mul %79, %80, %81 --> array_local105 + array_local105: store int32, add, %78, %79, %77 --> array_local104 + array_local104: emit c15 --> array_local103 + array_local103: imm_int 0, %72, --> array_local102 + array_local102: imm_addr 0($sp), %73, --> array_local101 + array_local101: imm_int 1, %75, --> array_local100 + array_local100: imm_int 4, %76, --> array_local99 + array_local10: mul %10, %11, %12 --> array_local9 + array_local1: mov %4, %3 --> array_local0 + array_local0: return %4 + + + "array_mixte"(%0, %1, %2): int -> int -> int -> int + locals: %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45, %46, %47, %48, %49, %50, %51, %52, %53, %54, %55, %56, %57, %58, %59, %60, %61, %62, %63, %64, %65, %66, %67, %68, %69, %70, %71, %72, %73, %74, %75, %76, %77 + result: %3 + stacksize: 40 + entry: array_mixte102 + exit: array_mixte0 + + array_mixte99: imm_int 0, %76, --> array_mixte98 + array_mixte98: imm_int 4, %77, --> array_mixte97 + array_mixte97: mul %75, %76, %77 --> array_mixte96 + array_mixte96: store int32, add, %74, %75, %73 --> array_mixte95 + array_mixte95: emit c29 --> array_mixte94 + array_mixte94: imm_int 0, %68, --> array_mixte93 + array_mixte93: imm_addr 0($sp), %69, --> array_mixte92 + array_mixte92: imm_int 1, %71, --> array_mixte91 + array_mixte91: imm_int 4, %72, --> array_mixte90 + array_mixte90: mul %70, %71, %72 --> array_mixte89 + array_mixte9: load int32, add, %0, %10, %7 --> array_mixte8 + array_mixte89: store int32, add, %69, %70, %68 --> array_mixte88 + array_mixte88: emit c28 --> array_mixte87 + array_mixte87: imm_int 0, %63, --> array_mixte86 + array_mixte86: imm_addr 0($sp), %64, --> array_mixte85 + array_mixte85: imm_int 2, %66, --> array_mixte84 + array_mixte84: imm_int 4, %67, --> array_mixte83 + array_mixte83: mul %65, %66, %67 --> array_mixte82 + array_mixte82: store int32, add, %64, %65, %63 --> array_mixte81 + array_mixte81: emit c27 --> array_mixte80 + array_mixte80: imm_int 0, %58, --> array_mixte79 + array_mixte8: imm_int 4, %9, --> array_mixte7 + array_mixte79: imm_addr 0($sp), %59, --> array_mixte78 + array_mixte78: imm_int 3, %61, --> array_mixte77 + array_mixte77: imm_int 4, %62, --> array_mixte76 + array_mixte76: mul %60, %61, %62 --> array_mixte75 + array_mixte75: store int32, add, %59, %60, %58 --> array_mixte74 + array_mixte74: emit c26 --> array_mixte73 + array_mixte73: imm_int 0, %53, --> array_mixte72 + array_mixte72: imm_addr 0($sp), %54, --> array_mixte71 + array_mixte71: imm_int 4, %56, --> array_mixte70 + array_mixte70: imm_int 4, %57, --> array_mixte69 + array_mixte7: mul %8, %1, %9 --> array_mixte6 + array_mixte69: mul %55, %56, %57 --> array_mixte68 + array_mixte68: store int32, add, %54, %55, %53 --> array_mixte67 + array_mixte67: emit c25 --> array_mixte66 + array_mixte66: imm_int 0, %48, --> array_mixte65 + array_mixte65: imm_addr 0($sp), %49, --> array_mixte64 + array_mixte64: imm_int 5, %51, --> array_mixte63 + array_mixte63: imm_int 4, %52, --> array_mixte62 + array_mixte62: mul %50, %51, %52 --> array_mixte61 + array_mixte61: store int32, add, %49, %50, %48 --> array_mixte60 + array_mixte60: emit c24 --> array_mixte59 + array_mixte6: store int32, add, %0, %8, %7 --> array_mixte5 + array_mixte59: imm_int 0, %43, --> array_mixte58 + array_mixte58: imm_addr 0($sp), %44, --> array_mixte57 + array_mixte57: imm_int 6, %46, --> array_mixte56 + array_mixte56: imm_int 4, %47, --> array_mixte55 + array_mixte55: mul %45, %46, %47 --> array_mixte54 + array_mixte54: store int32, add, %44, %45, %43 --> array_mixte53 + array_mixte53: emit c23 --> array_mixte52 + array_mixte52: imm_int 0, %38, --> array_mixte51 + array_mixte51: imm_addr 0($sp), %39, --> array_mixte50 + array_mixte50: imm_int 7, %41, --> array_mixte49 + array_mixte5: emit c17 --> array_mixte4 + array_mixte49: imm_int 4, %42, --> array_mixte48 + array_mixte48: mul %40, %41, %42 --> array_mixte47 + array_mixte47: store int32, add, %39, %40, %38 --> array_mixte46 + array_mixte46: emit c22 --> array_mixte45 + array_mixte45: imm_int 0, %33, --> array_mixte44 + array_mixte44: imm_addr 0($sp), %34, --> array_mixte43 + array_mixte43: imm_int 8, %36, --> array_mixte42 + array_mixte42: imm_int 4, %37, --> array_mixte41 + array_mixte41: mul %35, %36, %37 --> array_mixte40 + array_mixte40: store int32, add, %34, %35, %33 --> array_mixte39 + array_mixte4: imm_addr 0($sp), %4, --> array_mixte3 + array_mixte39: emit c21 --> array_mixte38 + array_mixte38: imm_int 0, %28, --> array_mixte37 + array_mixte37: imm_addr 0($sp), %29, --> array_mixte36 + array_mixte36: imm_int 9, %31, --> array_mixte35 + array_mixte35: imm_int 4, %32, --> array_mixte34 + array_mixte34: mul %30, %31, %32 --> array_mixte33 + array_mixte33: store int32, add, %29, %30, %28 --> array_mixte32 + array_mixte32: emit c20 --> array_mixte31 + array_mixte31: imm_int 4, %27, --> array_mixte30 + array_mixte30: mul %26, %2, %27 --> array_mixte29 + array_mixte3: imm_int 4, %6, --> array_mixte2 + array_mixte29: load int32, add, %0, %26, %24 --> array_mixte28 + array_mixte28: imm_int 1, %25, --> array_mixte27 + array_mixte27: add %20, %24, %25 --> array_mixte26 + array_mixte26: imm_addr 0($sp), %21, --> array_mixte25 + array_mixte25: imm_int 4, %23, --> array_mixte24 + array_mixte24: mul %22, %1, %23 --> array_mixte23 + array_mixte23: store int32, add, %21, %22, %20 --> array_mixte22 + array_mixte22: emit c19 --> array_mixte21 + array_mixte21: imm_addr 0($sp), %16, --> array_mixte20 + array_mixte20: imm_int 0, %18, --> array_mixte19 + array_mixte2: mul %5, %1, %6 --> array_mixte1 + array_mixte19: imm_int 4, %19, --> array_mixte18 + array_mixte18: mul %17, %18, %19 --> array_mixte17 + array_mixte17: load int32, add, %16, %17, %13 --> array_mixte16 + array_mixte16: imm_int 4, %15, --> array_mixte15 + array_mixte15: mul %14, %2, %15 --> array_mixte14 + array_mixte14: store int32, add, %0, %14, %13 --> array_mixte13 + array_mixte13: emit c18 --> array_mixte12 + array_mixte12: imm_int 1, %11, --> array_mixte11 + array_mixte11: imm_int 4, %12, --> array_mixte10 + array_mixte102: emit c30 --> array_mixte101 + array_mixte101: imm_int 0, %73, --> array_mixte100 + array_mixte100: imm_addr 0($sp), %74, --> array_mixte99 + array_mixte10: mul %10, %11, %12 --> array_mixte9 + array_mixte1: load int32, add, %4, %5, %3 --> array_mixte0 + array_mixte0: return %3 + + + "array_param"(%0, %1, %2): int -> int -> int -> int + locals: %7, %3, %4, %5, %6, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25 + result: %7 + stacksize: 0 + entry: array_param32 + exit: array_param0 + + array_param9: mul %11, %2, %12 --> array_param8 + array_param8: load int32, add, %0, %11, %6 --> array_param7 + array_param7: emit c32 --> array_param6 + array_param6: imm_int 0, %9, --> array_param5 + array_param5: imm_int 4, %10, --> array_param4 + array_param4: mul %8, %9, %10 --> array_param3 + array_param32: emit c37 --> array_param31 + array_param31: imm_int 1, %22, --> array_param30 + array_param30: imm_int 0, %24, --> array_param29 + array_param3: load int32, add, %0, %8, %5 --> array_param2 + array_param29: imm_int 4, %25, --> array_param28 + array_param28: mul %23, %24, %25 --> array_param27 + array_param27: store int32, add, %0, %23, %22 --> array_param26 + array_param26: emit c36 --> array_param25 + array_param25: imm_int 1, %20, --> array_param24 + array_param24: imm_int 4, %21, --> array_param23 + array_param23: mul %19, %20, %21 --> array_param22 + array_param22: store int32, add, %0, %19, %1 --> array_param21 + array_param21: emit c35 --> array_param20 + array_param20: imm_int 0, %17, --> array_param19 + array_param2: emit c31 --> array_param1 + array_param19: imm_int 4, %18, --> array_param18 + array_param18: mul %16, %17, %18 --> array_param17 + array_param17: load int32, add, %0, %16, %6 --> array_param16 + array_param16: emit c34 --> array_param15 + array_param15: imm_int 7, %13, --> array_param14 + array_param14: imm_int 4, %15, --> array_param13 + array_param13: mul %14, %2, %15 --> array_param12 + array_param12: store int32, add, %0, %14, %13 --> array_param11 + array_param11: emit c33 --> array_param10 + array_param10: imm_int 4, %12, --> array_param9 + array_param1: mov %7, %6 --> array_param0 + array_param0: return %7 + + + "main"(): int + locals: %3, %0, %1, %2, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45, %46, %47, %48, %49, %50, %51, %52, %53, %54, %55, %56, %57, %58, %59, %60 + result: %3 + stacksize: 40 + entry: main85 + exit: main0 + + main9: call "array_mixte", %8, %9, %10, %1: int -> int -> int -> int --> main8 + main85: emit c51 --> main84 + main84: imm_int 1, %56, --> main83 + main83: imm_addr 0($sp), %57, --> main82 + main82: imm_int 0, %59, --> main81 + main81: imm_int 4, %60, --> main80 + main80: mul %58, %59, %60 --> main79 + main8: emit c39 --> main7 + main79: store int32, add, %57, %58, %56 --> main78 + main78: emit c50 --> main77 + main77: imm_int 2, %51, --> main76 + main76: imm_addr 0($sp), %52, --> main75 + main75: imm_int 1, %54, --> main74 + main74: imm_int 4, %55, --> main73 + main73: mul %53, %54, %55 --> main72 + main72: store int32, add, %52, %53, %51 --> main71 + main71: emit c49 --> main70 + main70: imm_int 3, %46, --> main69 + main7: imm_addr 0($sp), %5, --> main6 + main69: imm_addr 0($sp), %47, --> main68 + main68: imm_int 2, %49, --> main67 + main67: imm_int 4, %50, --> main66 + main66: mul %48, %49, %50 --> main65 + main65: store int32, add, %47, %48, %46 --> main64 + main64: emit c48 --> main63 + main63: imm_int 4, %41, --> main62 + main62: imm_addr 0($sp), %42, --> main61 + main61: imm_int 3, %44, --> main60 + main60: imm_int 4, %45, --> main59 + main6: imm_int 2, %6, --> main5 + main59: mul %43, %44, %45 --> main58 + main58: store int32, add, %42, %43, %41 --> main57 + main57: emit c47 --> main56 + main56: imm_int 5, %36, --> main55 + main55: imm_addr 0($sp), %37, --> main54 + main54: imm_int 4, %39, --> main53 + main53: imm_int 4, %40, --> main52 + main52: mul %38, %39, %40 --> main51 + main51: store int32, add, %37, %38, %36 --> main50 + main50: emit c46 --> main49 + main5: imm_int 3, %7, --> main4 + main49: imm_int 6, %31, --> main48 + main48: imm_addr 0($sp), %32, --> main47 + main47: imm_int 5, %34, --> main46 + main46: imm_int 4, %35, --> main45 + main45: mul %33, %34, %35 --> main44 + main44: store int32, add, %32, %33, %31 --> main43 + main43: emit c45 --> main42 + main42: imm_int 7, %26, --> main41 + main41: imm_addr 0($sp), %27, --> main40 + main40: imm_int 6, %29, --> main39 + main4: call "array_param", %5, %6, %7, %0: int -> int -> int -> int --> main3 + main39: imm_int 4, %30, --> main38 + main38: mul %28, %29, %30 --> main37 + main37: store int32, add, %27, %28, %26 --> main36 + main36: emit c44 --> main35 + main35: imm_int 8, %21, --> main34 + main34: imm_addr 0($sp), %22, --> main33 + main33: imm_int 7, %24, --> main32 + main32: imm_int 4, %25, --> main31 + main31: mul %23, %24, %25 --> main30 + main30: store int32, add, %22, %23, %21 --> main29 + main3: emit c38 --> main2 + main29: emit c43 --> main28 + main28: imm_int 9, %16, --> main27 + main27: imm_addr 0($sp), %17, --> main26 + main26: imm_int 8, %19, --> main25 + main25: imm_int 4, %20, --> main24 + main24: mul %18, %19, %20 --> main23 + main23: store int32, add, %17, %18, %16 --> main22 + main22: emit c42 --> main21 + main21: imm_int 0, %11, --> main20 + main20: imm_addr 0($sp), %12, --> main19 + main2: add %4, %2, %1 --> main1 + main19: imm_int 9, %14, --> main18 + main18: imm_int 4, %15, --> main17 + main17: mul %13, %14, %15 --> main16 + main16: store int32, add, %12, %13, %11 --> main15 + main15: emit c41 --> main14 + main14: call "array_local", , %2: int --> main13 + main13: emit c40 --> main12 + main12: imm_addr 0($sp), %8, --> main11 + main11: imm_int 2, %9, --> main10 + main10: imm_int 3, %10, --> main9 + main1: add %3, %4, %0 --> main0 + main0: return %3 + + diff --git a/tests/clight/array.c b/tests/clight/array.c new file mode 100644 index 0000000..896991b --- /dev/null +++ b/tests/clight/array.c @@ -0,0 +1,48 @@ +int array_local () { + int i,j,a,b; + int tab[10] = {0,0,0,0,0,0,0,0,0,0}; + + tab[0]=1; //Ecriture + tab[1]=5; + + a=tab[0]; //Lecture & Ecriture + tab[1]=7; + + a=tab[1]; //Lecture + b=tab[0]; + + return a;//7 +} + +int array_mixte (int tab1[], int a, int b) { + int tab2[10] = {0,0,0,0,0,0,0,0,0,0}; + + tab2[a] = tab1[b]+1; + tab1[b] = tab2[0]; + tab1[a] = tab1[1]; + return tab2[a];//5 +} + +int array_param (int tab[], int c, int d) { + int i,j,a,b; + + tab[0]=1; //Ecriture + tab[1]=c; + + a=tab[0]; //Lecture & Ecriture + tab[d]=7; + + a=tab[d]; //Lecture + b=tab[0]; + + return a;//7 +} + +int main(){ + int t[10] = {1,2,3,4,5,6,7,8,9,0}; + int a = array_local(); + int b = array_mixte(t,2,3); + int c = array_param(t,2,3); + return a+b+c; //19 + // return b; +} diff --git a/tests/clight/array.c.expected b/tests/clight/array.c.expected new file mode 100644 index 0000000..0df5e53 --- /dev/null +++ b/tests/clight/array.c.expected @@ -0,0 +1,48 @@ +int array_local () { + int i,j,a,b; + int tab[10] = {0,0,0,0,0,0,0,0,0,0}; + + tab[0]=1; //Ecriture + tab[1]=5; + + a=tab[0]; //Lecture & Ecriture + tab[1]=7; + + a=tab[1]; //Lecture + b=tab[0]; + + return a;//7 +} + +int array_mixte (int tab1[], int a, int b) { + int tab2[10] = {0,0,0,0,0,0,0,0,0,0}; + + tab2[a] = tab1[b]+1; + tab1[b] = tab2[0]; + tab1[a] = tab1[1]; + return tab2[a];//5 +} + +int array_param (int tab[], int c, int d) { + int i,j,a,b; + + tab[0]=1; //Ecriture + tab[1]=c; + + a=tab[0]; //Lecture & Ecriture + tab[d]=7; + + a=tab[d]; //Lecture + b=tab[0]; + + return a;//7 +} + +main(){ + int t[10] = {1,2,3,4,5,6,7,8,9,0}; + int a = array_local(); + int b = array_mixte(t,2,3); + int c = array_param(t,2,3); + return a+b+c; //19 + //return b; +} diff --git a/tests/clight/array.log.expected b/tests/clight/array.log.expected new file mode 100644 index 0000000..ba50dc8 --- /dev/null +++ b/tests/clight/array.log.expected @@ -0,0 +1,2 @@ +Global Error (Translation RTLabs -> RTL): + Constant not supported. diff --git a/tests/clight/binop.ASM.expected b/tests/clight/binop.ASM.expected new file mode 100644 index 0000000..81536ee --- /dev/null +++ b/tests/clight/binop.ASM.expected @@ -0,0 +1,353 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 0 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main57 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin _main +main57: +addi $sp, $sp, -12 +sw $ra, 8($sp) +sw $s1, 4($sp) +sw $s0, 0($sp) +c20: +li $s0, 4 +c19: +li $s1, 5 +c18: +c17: +c16: +c15: +c14: +c13: +c12: +la $v0, mod +move $a0, $s0 +move $a1, $s1 +jalr $v0 +c11: +c10: +c9: +c8: +c7: +c6: +c5: +c4: +c3: +c2: +c1: +sge $v0, $s0, $s1 +c0: +lw $ra, 8($sp) +lw $s1, 4($sp) +lw $s0, 0($sp) +addi $sp, $sp, 12 +jr $ra +# end _main diff --git a/tests/clight/binop.Clight.expected b/tests/clight/binop.Clight.expected new file mode 100644 index 0000000..d4668ad --- /dev/null +++ b/tests/clight/binop.Clight.expected @@ -0,0 +1,314 @@ +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +int main(void) +{ + int a; + int b; + int c; + c20: + a = 4; + c19: + b = 5; + c18: + c = a; + c17: + c = 10; + c16: + c = a + b; + c15: + c = a - b; + c14: + c = a * b; + c13: + c = a / b; + c12: + c = a % b; + c11: + c = a & b; + c10: + c = a | b; + c9: + c = a << b; + c8: + c = a >> b; + c7: + c = a ^ b; + c6: + c = a < b; + c5: + c = a > b; + c4: + c = a == b; + c3: + c = a != b; + c2: + c = a <= b; + c1: + c = a >= b; + c0: + return c; +} + + diff --git a/tests/clight/binop.Cminor.expected b/tests/clight/binop.Cminor.expected new file mode 100644 index 0000000..6093629 --- /dev/null +++ b/tests/clight/binop.Cminor.expected @@ -0,0 +1,451 @@ + + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"main" () : int { + + stack 0; + + var c, b, a; + + c20: + a = 4; + c19: + b = 5; + c18: + c = a; + c17: + c = 10; + c16: + c = a + b; + c15: + c = a - b; + c14: + c = a * b; + c13: + c = a / b; + c12: + c = a % b; + c11: + c = a && b; + c10: + c = a || b; + c9: + c = a << b; + c8: + c = a >> b; + c7: + c = a ^ b; + c6: + c = a < b; + c5: + c = a > b; + c4: + c = a == b; + c3: + c = a != b; + c2: + c = a <= b; + c1: + c = a >= b; + c0: + return c; + +} + + diff --git a/tests/clight/binop.ERTL.expected b/tests/clight/binop.ERTL.expected new file mode 100644 index 0000000..88c63af --- /dev/null +++ b/tests/clight/binop.ERTL.expected @@ -0,0 +1,480 @@ +program + +globals 0 + +procedure _main(0) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13 +entry main57 +main57: newframe --> main56 +main56: move %13, $ra --> main55 +main55: move %12, $s7 --> main54 +main54: move %11, $s6 --> main53 +main53: move %10, $s5 --> main52 +main52: move %9, $s4 --> main51 +main51: move %8, $s3 --> main50 +main50: move %7, $s2 --> main49 +main49: move %6, $s1 --> main48 +main48: move %5, $s0 --> main47 +main47: li %0, 0 --> main46 +main46: li %1, 0 --> main45 +main45: li %2, 0 --> main44 +main44: li %4, 0 --> main42 +main42: emit c20 --> main41 +main41: li %2, 4 --> main40 +main40: emit c19 --> main39 +main39: li %1, 5 --> main38 +main38: emit c18 --> main37 +main37: move %0, %2 --> main36 +main36: emit c17 --> main35 +main35: li %0, 10 --> main34 +main34: emit c16 --> main33 +main33: add %0, %2, %1 --> main32 +main32: emit c15 --> main31 +main31: sub %0, %2, %1 --> main30 +main30: emit c14 --> main29 +main29: mulo %0, %2, %1 --> main28 +main28: emit c13 --> main27 +main27: div %0, %2, %1 --> main26 +main26: emit c12 --> main25 +main25: la %4, mod --> main43 +main43: j --> main73 +main73: move $a0, %2 --> main72 +main72: move $a1, %1 --> main71 +main71: call %4(2) --> main70 +main70: move %0, $v0 --> main24 +main24: emit c11 --> main23 +main23: and %0, %2, %1 --> main22 +main22: emit c10 --> main21 +main21: or %0, %2, %1 --> main20 +main20: emit c9 --> main19 +main19: sllv %0, %2, %1 --> main18 +main18: emit c8 --> main17 +main17: srav %0, %2, %1 --> main16 +main16: emit c7 --> main15 +main15: xor %0, %2, %1 --> main14 +main14: emit c6 --> main13 +main13: slt %0, %2, %1 --> main12 +main12: emit c5 --> main11 +main11: sgt %0, %2, %1 --> main10 +main10: emit c4 --> main9 +main9 : seq %0, %2, %1 --> main8 +main8 : emit c3 --> main7 +main7 : sne %0, %2, %1 --> main6 +main6 : emit c2 --> main5 +main5 : sle %0, %2, %1 --> main4 +main4 : emit c1 --> main3 +main3 : sge %0, %2, %1 --> main2 +main2 : emit c0 --> main1 +main1 : move %3, %0 --> main0 +main0 : j --> main69 +main69: move $v0, %3 --> main68 +main68: move $ra, %13 --> main67 +main67: move $s7, %12 --> main66 +main66: move $s6, %11 --> main65 +main65: move $s5, %10 --> main64 +main64: move $s4, %9 --> main63 +main63: move $s3, %8 --> main62 +main62: move $s2, %7 --> main61 +main61: move $s1, %6 --> main60 +main60: move $s0, %5 --> main59 +main59: delframe --> main58 +main58: jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/binop.LIN.expected b/tests/clight/binop.LIN.expected new file mode 100644 index 0000000..029cadb --- /dev/null +++ b/tests/clight/binop.LIN.expected @@ -0,0 +1,441 @@ +program + +globals 0 + +procedure _main(0) +var 12 +main57: +newframe +sw $ra, 8($sp) +sw $s1, 4($sp) +sw $s0, 0($sp) +c20: +li $s0, 4 +c19: +li $s1, 5 +c18: +c17: +c16: +c15: +c14: +c13: +c12: +la $v0, mod +move $a0, $s0 +move $a1, $s1 +call $v0 +c11: +c10: +c9: +c8: +c7: +c6: +c5: +c4: +c3: +c2: +c1: +sge $v0, $s0, $s1 +c0: +lw $ra, 8($sp) +lw $s1, 4($sp) +lw $s0, 0($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/binop.LTL.expected b/tests/clight/binop.LTL.expected new file mode 100644 index 0000000..e808e97 --- /dev/null +++ b/tests/clight/binop.LTL.expected @@ -0,0 +1,478 @@ +program + +globals 0 + +procedure _main(0) +var 12 +entry main57 +main57: newframe --> main56 +main56: lw $ra, 8($sp) --> main55 +main55: j --> main54 +main54: j --> main53 +main53: j --> main52 +main52: j --> main51 +main51: j --> main50 +main50: j --> main49 +main49: lw $s1, 4($sp) --> main48 +main48: lw $s0, 0($sp) --> main47 +main47: j --> main46 +main46: j --> main45 +main45: j --> main44 +main44: j --> main42 +main42: emit c20 --> main41 +main41: li $s0, 4 --> main40 +main40: emit c19 --> main39 +main39: li $s1, 5 --> main38 +main38: emit c18 --> main37 +main37: j --> main36 +main36: emit c17 --> main35 +main35: j --> main34 +main34: emit c16 --> main33 +main33: j --> main32 +main32: emit c15 --> main31 +main31: j --> main30 +main30: emit c14 --> main29 +main29: j --> main28 +main28: emit c13 --> main27 +main27: j --> main26 +main26: emit c12 --> main25 +main25: la $v0, mod --> main43 +main43: j --> main73 +main73: move $a0, $s0 --> main72 +main72: move $a1, $s1 --> main71 +main71: call $v0 --> main70 +main70: j --> main24 +main24: emit c11 --> main23 +main23: j --> main22 +main22: emit c10 --> main21 +main21: j --> main20 +main20: emit c9 --> main19 +main19: j --> main18 +main18: emit c8 --> main17 +main17: j --> main16 +main16: emit c7 --> main15 +main15: j --> main14 +main14: emit c6 --> main13 +main13: j --> main12 +main12: emit c5 --> main11 +main11: j --> main10 +main10: emit c4 --> main9 +main9 : j --> main8 +main8 : emit c3 --> main7 +main7 : j --> main6 +main6 : emit c2 --> main5 +main5 : j --> main4 +main4 : emit c1 --> main3 +main3 : sge $v0, $s0, $s1 --> main2 +main2 : emit c0 --> main1 +main1 : j --> main0 +main0 : j --> main69 +main69: j --> main68 +main68: lw $ra, 8($sp) --> main67 +main67: j --> main66 +main66: j --> main65 +main65: j --> main64 +main64: j --> main63 +main63: j --> main62 +main62: j --> main61 +main61: lw $s1, 4($sp) --> main60 +main60: lw $s0, 0($sp) --> main59 +main59: delframe --> main58 +main58: jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/binop.RTL.expected b/tests/clight/binop.RTL.expected new file mode 100644 index 0000000..1712f71 --- /dev/null +++ b/tests/clight/binop.RTL.expected @@ -0,0 +1,453 @@ +program + +globals 0 + +function _main() : %3 +stacksize 0 +var %0, %1, %2, %3, %4 +entry main47 +main47: li %0, 0 --> main46 +main46: li %1, 0 --> main45 +main45: li %2, 0 --> main44 +main44: li %4, 0 --> main42 +main42: emit c20 --> main41 +main41: li %2, 4 --> main40 +main40: emit c19 --> main39 +main39: li %1, 5 --> main38 +main38: emit c18 --> main37 +main37: move %0, %2 --> main36 +main36: emit c17 --> main35 +main35: li %0, 10 --> main34 +main34: emit c16 --> main33 +main33: add %0, %2, %1 --> main32 +main32: emit c15 --> main31 +main31: sub %0, %2, %1 --> main30 +main30: emit c14 --> main29 +main29: mulo %0, %2, %1 --> main28 +main28: emit c13 --> main27 +main27: div %0, %2, %1 --> main26 +main26: emit c12 --> main25 +main25: la %4, mod --> main43 +main43: call %0, %4(%2, %1) --> main24 +main24: emit c11 --> main23 +main23: and %0, %2, %1 --> main22 +main22: emit c10 --> main21 +main21: or %0, %2, %1 --> main20 +main20: emit c9 --> main19 +main19: sllv %0, %2, %1 --> main18 +main18: emit c8 --> main17 +main17: srav %0, %2, %1 --> main16 +main16: emit c7 --> main15 +main15: xor %0, %2, %1 --> main14 +main14: emit c6 --> main13 +main13: slt %0, %2, %1 --> main12 +main12: emit c5 --> main11 +main11: sgt %0, %2, %1 --> main10 +main10: emit c4 --> main9 +main9 : seq %0, %2, %1 --> main8 +main8 : emit c3 --> main7 +main7 : sne %0, %2, %1 --> main6 +main6 : emit c2 --> main5 +main5 : sle %0, %2, %1 --> main4 +main4 : emit c1 --> main3 +main3 : sge %0, %2, %1 --> main2 +main2 : emit c0 --> main1 +main1 : move %3, %0 --> main0 +main0 : return %3 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/binop.RTLabs.expected b/tests/clight/binop.RTLabs.expected new file mode 100644 index 0000000..515ee34 --- /dev/null +++ b/tests/clight/binop.RTLabs.expected @@ -0,0 +1,454 @@ +program: (main function is "main") + + + globals: + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "main"(): int + locals: %3, %0, %1, %2 + result: %3 + stacksize: 0 + entry: main42 + exit: main0 + + main9: eq %0, %2, %1 --> main8 + main8: emit c3 --> main7 + main7: ne %0, %2, %1 --> main6 + main6: emit c2 --> main5 + main5: le %0, %2, %1 --> main4 + main42: emit c20 --> main41 + main41: imm_int 4, %2, --> main40 + main40: emit c19 --> main39 + main4: emit c1 --> main3 + main39: imm_int 5, %1, --> main38 + main38: emit c18 --> main37 + main37: mov %0, %2 --> main36 + main36: emit c17 --> main35 + main35: imm_int 10, %0, --> main34 + main34: emit c16 --> main33 + main33: add %0, %2, %1 --> main32 + main32: emit c15 --> main31 + main31: sub %0, %2, %1 --> main30 + main30: emit c14 --> main29 + main3: ge %0, %2, %1 --> main2 + main29: mul %0, %2, %1 --> main28 + main28: emit c13 --> main27 + main27: div %0, %2, %1 --> main26 + main26: emit c12 --> main25 + main25: mod %0, %2, %1 --> main24 + main24: emit c11 --> main23 + main23: and %0, %2, %1 --> main22 + main22: emit c10 --> main21 + main21: or %0, %2, %1 --> main20 + main20: emit c9 --> main19 + main2: emit c0 --> main1 + main19: shl %0, %2, %1 --> main18 + main18: emit c8 --> main17 + main17: shr %0, %2, %1 --> main16 + main16: emit c7 --> main15 + main15: xor %0, %2, %1 --> main14 + main14: emit c6 --> main13 + main13: lt %0, %2, %1 --> main12 + main12: emit c5 --> main11 + main11: gt %0, %2, %1 --> main10 + main10: emit c4 --> main9 + main1: mov %3, %0 --> main0 + main0: return %3 + + diff --git a/tests/clight/binop.c b/tests/clight/binop.c new file mode 100644 index 0000000..800cfe9 --- /dev/null +++ b/tests/clight/binop.c @@ -0,0 +1,40 @@ +int main(){ + int a=4,b=5,c; +// double d=3.5,e=0.1,f; + + c = a; + c = 10; + c = a+b; + c = a-b; + c = a*b; + c = a/b; + c = a%b; + c = a&b; + c = a|b; + c = a<>b; + c = a^b; + c = ab; + c = a==b; + c = a!=b; + c = a<=b; + c = a>=b; + +// f = d; +// f = 1.0; +// f = d+e; +// f = d-e; +// f = d*e; +// f = d/e; +// c = de; +// c = d==e; +// c = d!=e; +// c = d<=e; +// c = d>=e; + + return c; +} + + diff --git a/tests/clight/binop.c.expected b/tests/clight/binop.c.expected new file mode 100644 index 0000000..7f56782 --- /dev/null +++ b/tests/clight/binop.c.expected @@ -0,0 +1,40 @@ +int main(){ + int a=4,b=5,c; + double d=3.5,e=0.1,f; + + c = a; + c = 10; + c = a+b; + c = a-b; + c = a*b; + c = a/b; + c = a%b; + c = a&b; + c = a|b; + c = a<>b; + c = a^b; + c = ab; + c = a==b; + c = a!=b; + c = a<=b; + c = a>=b; + + f = d; + f = 1.0; + f = d+e; + f = d-e; + f = d*e; + f = d/e; + c = de; + c = d==e; + c = d!=e; + c = d<=e; + c = d>=e; + + return c; +} + + diff --git a/tests/clight/binop.log.expected b/tests/clight/binop.log.expected new file mode 100644 index 0000000..962e977 --- /dev/null +++ b/tests/clight/binop.log.expected @@ -0,0 +1 @@ +Fatal error: exception Assert_failure("src/RTLabs/RTLabsToRTL.ml", 23, 9) diff --git a/tests/clight/complets.ASM.expected b/tests/clight/complets.ASM.expected new file mode 100644 index 0000000..39ee23b --- /dev/null +++ b/tests/clight/complets.ASM.expected @@ -0,0 +1,1300 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 0 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main307 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin comp_tri +comp_tri123: +c108: +li $v0, 0 +c107: +c106: +li $t1, 0 +comp_tri55: +li $a3, 0 +c105: +slt $a2, $t1, $a1 +seq $a2, $a2, $zero +beq $a2, $a3, comp_tri50 +c95: +jr $ra +comp_tri50: +c103: +c102: +li $t2, 1 +comp_tri47: +li $a3, 0 +c101: +sub $a2, $a1, $t1 +slt $a2, $t2, $a2 +seq $a2, $a2, $zero +beq $a2, $a3, comp_tri41 +c104: +li $a2, 1 +add $t1, $t1, $a2 +j comp_tri55 +comp_tri41: +c99: +li $a2, 4 +mulo $a2, $t2, $a2 +add $a2, $a0, $a2 +lw $t0, 0($a2) +li $a2, 1 +sub $a3, $t2, $a2 +li $a2, 4 +mulo $a2, $a3, $a2 +add $a2, $a0, $a2 +lw $a2, 0($a2) +slt $a2, $t0, $a2 +beq $a2, $zero, comp_tri10 +c98: +li $v0, 1 +sub $a2, $t2, $v0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +c97: +li $a2, 4 +mulo $a2, $t2, $a2 +add $a2, $a0, $a2 +lw $t0, 0($a2) +li $a2, 1 +sub $a3, $t2, $a2 +li $a2, 4 +mulo $a2, $a3, $a2 +add $a2, $a0, $a2 +sw $t0, 0($a2) +c96: +li $a2, 4 +mulo $a2, $t2, $a2 +add $a2, $a0, $a2 +sw $v0, 0($a2) +comp_tri10: +c100: +li $a2, 1 +add $t2, $t2, $a2 +j comp_tri47 +# end comp_tri + + +# begin comp_total +comp_total410: +addi $sp, $sp, -80 +c94: +li $t0, 0 +move $a3, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a3, $v0 +sw $t0, 0($v0) +c93: +move $t0, $sp +li $a3, 1 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c92: +move $t0, $sp +li $a3, 2 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c91: +move $t0, $sp +li $a3, 3 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c90: +move $t0, $sp +li $a3, 4 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c89: +move $t0, $sp +li $a3, 5 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c88: +move $t0, $sp +li $a3, 6 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c87: +move $t0, $sp +li $a3, 7 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c86: +move $t0, $sp +li $a3, 8 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c85: +move $t0, $sp +li $a3, 9 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c84: +li $t0, 0 +move $a3, $sp +addi $a3, $a3, 40 +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a3, $v0 +sw $t0, 0($v0) +c83: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 1 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c82: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 2 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c81: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 3 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c80: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 4 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c79: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 5 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c78: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 6 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c77: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 7 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c76: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 8 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c75: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 9 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c74: +slt $v0, $a1, $a2 +beq $v0, $zero, comp_total40 +c73: +c72: +li $t0, 0 +comp_total58: +li $a2, 0 +c71: +sle $v0, $t0, $a1 +seq $v0, $v0, $zero +beq $v0, $a2, comp_total53 +comp_total2: +c59: +li $v0, 0 +addi $sp, $sp, 80 +jr $ra +comp_total53: +c69: +sub $a2, $a1, $t0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $a3, 0($v0) +move $a2, $sp +li $v0, 4 +mulo $v0, $t0, $v0 +add $v0, $a2, $v0 +sw $a3, 0($v0) +c70: +li $v0, 1 +add $t0, $t0, $v0 +j comp_total58 +comp_total40: +c68: +c67: +li $t2, 0 +comp_total37: +li $a3, 0 +c66: +slt $v0, $t2, $a1 +seq $v0, $v0, $zero +bne $v0, $a3, comp_total2 +c64: +c63: +move $t1, $a2 +comp_total29: +li $a3, 0 +c62: +sgt $v0, $t1, $zero +seq $v0, $v0, $zero +beq $v0, $a3, comp_total23 +c65: +li $v0, 1 +add $t2, $t2, $v0 +j comp_total37 +comp_total23: +c60: +move $a3, $sp +li $v0, 4 +mulo $v0, $t2, $v0 +add $v0, $a3, $v0 +lw $t0, 0($v0) +move $a3, $sp +addi $a3, $a3, 40 +li $v0, 4 +mulo $v0, $t1, $v0 +add $v0, $a3, $v0 +lw $v0, 0($v0) +add $a3, $t0, $v0 +li $v0, 4 +mulo $v0, $t2, $v0 +add $v0, $a0, $v0 +sw $a3, 0($v0) +c61: +li $v0, 1 +sub $t1, $t1, $v0 +j comp_total29 +# end comp_total + + +# begin comp_ifFor +comp_ifFor45: +c58: +li $v0, 0 +c57: +c56: +li $t0, 0 +comp_ifFor18: +li $t1, 0 +c55: +slt $a3, $t0, $a0 +seq $a3, $a3, $zero +beq $a3, $t1, comp_ifFor13 +c50: +jr $ra +comp_ifFor13: +c53: +sne $a3, $t0, $a1 +beq $a3, $zero, comp_ifFor7 +c52: +add $v0, $v0, $t0 +comp_ifFor5: +c54: +add $t0, $t0, $a2 +j comp_ifFor18 +comp_ifFor7: +c51: +li $v0, 0 +j comp_ifFor5 +# end comp_ifFor + + +# begin comp_forif2 +comp_forif2153: +addi $sp, $sp, -16 +sw $ra, 12($sp) +sw $s2, 8($sp) +sw $s1, 4($sp) +sw $s0, 0($sp) +c130: +li $s0, 0 +c129: +li $s1, 0 +c128: +c127: +li $t0, 0 +comp_forif275: +li $t1, 0 +c126: +slt $v0, $t0, $a2 +seq $v0, $v0, $zero +beq $v0, $t1, comp_forif270 +c123: +c122: +li $a0, 0 +comp_forif258: +li $a2, 0 +c121: +slt $v0, $a0, $a3 +seq $v0, $v0, $zero +beq $v0, $a2, comp_forif253 +c118: +li $s2, 0 +c117: +li $a1, 2 +la $v0, mod +move $a0, $s0 +jalr $v0 +li $a0, 0 +seq $v0, $v0, $a0 +beq $v0, $zero, comp_forif226 +c116: +li $a1, 2 +la $v0, mod +move $a0, $s1 +jalr $v0 +li $a0, 0 +seq $v0, $v0, $a0 +beq $v0, $zero, comp_forif227 +li $v0, 1 +comp_forif225: +beq $v0, $s2, comp_forif222 +c115: +comp_forif22: +c109: +li $v0, 0 +lw $ra, 12($sp) +lw $s2, 8($sp) +lw $s1, 4($sp) +lw $s0, 0($sp) +addi $sp, $sp, 16 +jr $ra +comp_forif222: +c114: +li $a1, 2 +la $v0, mod +move $a0, $s0 +jalr $v0 +li $a0, 0 +seq $v0, $v0, $a0 +beq $v0, $zero, comp_forif213 +c113: +j comp_forif22 +comp_forif213: +c112: +li $a1, 2 +la $v0, mod +move $a0, $s1 +jalr $v0 +li $a0, 0 +seq $v0, $v0, $a0 +beq $v0, $zero, comp_forif24 +c111: +j comp_forif22 +comp_forif24: +c110: +j comp_forif22 +comp_forif227: +li $v0, 0 +j comp_forif225 +comp_forif226: +li $v0, 0 +j comp_forif225 +comp_forif253: +c119: +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +lw $v0, 0($v0) +add $s1, $s1, $v0 +c120: +li $v0, 1 +add $a0, $a0, $v0 +j comp_forif258 +comp_forif270: +c124: +li $v0, 4 +mulo $v0, $t0, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +add $s0, $s0, $v0 +c125: +li $v0, 1 +add $t0, $t0, $v0 +j comp_forif275 +# end comp_forif2 + + +# begin comp_forif +comp_forif65: +addi $sp, $sp, -12 +sw $ra, 8($sp) +sw $s1, 4($sp) +sw $s0, 0($sp) +c141: +li $s1, 0 +c140: +c139: +c138: +li $s0, 0 +comp_forif28: +li $a0, 0 +c137: +li $v0, 10 +slt $v0, $s0, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, comp_forif22 +c131: +move $v0, $s1 +lw $ra, 8($sp) +lw $s1, 4($sp) +lw $s0, 0($sp) +addi $sp, $sp, 12 +jr $ra +comp_forif22: +c135: +li $v0, 1 +add $s1, $s1, $v0 +c134: +li $v0, 1 +add $s1, $s1, $v0 +c133: +li $a1, 2 +la $v0, mod +move $a0, $s0 +jalr $v0 +li $a0, 0 +seq $v0, $v0, $a0 +beq $v0, $zero, comp_forif6 +c132: +comp_forif6: +c136: +li $v0, 1 +add $s0, $s0, $v0 +j comp_forif28 +# end comp_forif + + +# begin comp_fir_basic +comp_fir_basic141: +addi $sp, $sp, -4 +c16: +li $v0, 0 +c15: +c14: +li $t3, 0 +comp_fir_basic64: +li $t0, 0 +c13: +li $a3, 3 +slt $a3, $t3, $a3 +seq $a3, $a3, $zero +beq $a3, $t0, comp_fir_basic58 +c0: +addi $sp, $sp, 4 +jr $ra +comp_fir_basic58: +c11: +li $a3, 4 +mulo $a3, $t3, $a3 +add $a3, $a0, $a3 +lw $t0, 0($a3) +li $a3, 4 +mulo $a3, $zero, $a3 +add $a3, $a2, $a3 +sw $t0, 0($a3) +c10: +c9: +li $t0, 0 +comp_fir_basic47: +li $t1, 0 +c8: +li $a3, 3 +slt $a3, $t0, $a3 +seq $a3, $a3, $zero +beq $a3, $t1, comp_fir_basic41 +c5: +c4: +li $t2, 2 +comp_fir_basic25: +li $t0, 0 +c3: +sge $a3, $t2, $zero +seq $a3, $a3, $zero +beq $a3, $t0, comp_fir_basic19 +c12: +li $a3, 1 +add $t3, $t3, $a3 +j comp_fir_basic64 +comp_fir_basic19: +c1: +li $a3, 4 +mulo $a3, $t2, $a3 +add $a3, $a2, $a3 +lw $t1, 0($a3) +li $a3, 1 +add $t0, $t2, $a3 +li $a3, 4 +mulo $a3, $t0, $a3 +add $a3, $a2, $a3 +sw $t1, 0($a3) +c2: +li $a3, 1 +sub $t2, $t2, $a3 +j comp_fir_basic25 +comp_fir_basic41: +c6: +li $a3, 4 +mulo $a3, $t0, $a3 +add $a3, $a1, $a3 +lw $t1, 0($a3) +li $a3, 4 +mulo $a3, $t0, $a3 +add $a3, $a2, $a3 +lw $a3, 0($a3) +mulo $a3, $t1, $a3 +add $v0, $v0, $a3 +c7: +li $a3, 1 +add $t0, $t0, $a3 +j comp_fir_basic47 +# end comp_fir_basic + + +# begin comp_fir16 +comp_fir16373: +addi $sp, $sp, -96 +sw $ra, 92($sp) +sw $s6, 88($sp) +sw $s5, 84($sp) +sw $s4, 80($sp) +sw $s3, 76($sp) +sw $s2, 72($sp) +sw $s1, 68($sp) +sw $s0, 64($sp) +move $s6, $a0 +move $s5, $a1 +move $s4, $a2 +move $s3, $a3 +c49: +li $a1, 0 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c48: +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c47: +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c46: +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c45: +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c44: +move $a1, $sp +li $a0, 5 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c43: +move $a1, $sp +li $a0, 6 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c42: +move $a1, $sp +li $a0, 7 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c41: +move $a1, $sp +li $a0, 8 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c40: +move $a1, $sp +li $a0, 9 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c39: +move $a1, $sp +li $a0, 10 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c38: +move $a1, $sp +li $a0, 11 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c37: +move $a1, $sp +li $a0, 12 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c36: +move $a1, $sp +li $a0, 13 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c35: +move $a1, $sp +li $a0, 14 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c34: +move $a1, $sp +li $a0, 15 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c33: +li $v0, 0 +c32: +li $s2, 0 +c31: +c30: +li $s1, 0 +comp_fir1665: +li $a1, 0 +c29: +slt $a0, $s1, $s3 +seq $a0, $a0, $zero +beq $a0, $a1, comp_fir1660 +c17: +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $sp, $v0 +lw $v0, 0($v0) +lw $ra, 92($sp) +lw $s6, 88($sp) +lw $s5, 84($sp) +lw $s4, 80($sp) +lw $s3, 76($sp) +lw $s2, 72($sp) +lw $s1, 68($sp) +lw $s0, 64($sp) +addi $sp, $sp, 96 +jr $ra +comp_fir1660: +c27: +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s6, $a0 +lw $a2, 0($a0) +move $a1, $sp +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +sw $a2, 0($a0) +c26: +c25: +li $s0, 0 +comp_fir1649: +li $a1, 0 +c24: +li $a0, 16 +slt $a0, $s0, $a0 +seq $a0, $a0, $zero +beq $a0, $a1, comp_fir1643 +c19: +li $a0, 1 +add $a0, $v0, $a0 +li $a1, 16 +la $v0, mod +jalr $v0 +c18: +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s4, $a0 +sw $s2, 0($a0) +c28: +li $a0, 1 +add $s1, $s1, $a0 +j comp_fir1665 +comp_fir1643: +c22: +move $a1, $sp +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +lw $a1, 0($a0) +li $a0, 4 +mulo $a0, $s0, $a0 +add $a0, $s5, $a0 +lw $a0, 0($a0) +mulo $a2, $a1, $a0 +li $a1, 2 +li $a0, 16 +xor $a0, $a1, $a0 +mulo $a0, $a2, $a0 +c21: +add $s2, $s2, $a0 +c20: +li $a0, 1 +add $a0, $v0, $a0 +li $a1, 16 +la $v0, mod +jalr $v0 +c23: +li $a0, 1 +add $s0, $s0, $a0 +j comp_fir1649 +# end comp_fir16 + + +# begin _main +main307: +addi $sp, $sp, -68 +sw $ra, 64($sp) +c165: +li $a1, 10 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c164: +li $a2, 9 +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c163: +li $a2, 8 +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c162: +li $a2, 7 +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c161: +li $a2, 6 +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c160: +move $a1, $sp +li $a0, 5 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c159: +li $a2, 5 +move $a1, $sp +li $a0, 6 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c158: +li $a2, 4 +move $a1, $sp +li $a0, 7 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c157: +li $a2, 3 +move $a1, $sp +li $a0, 8 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c156: +li $a2, 2 +move $a1, $sp +li $a0, 9 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c155: +move $a1, $sp +li $a0, 10 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c154: +move $a1, $sp +li $a0, 11 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c153: +move $a1, $sp +li $a0, 12 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c152: +move $a1, $sp +li $a0, 13 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c151: +move $a1, $sp +li $a0, 14 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c150: +move $a1, $sp +li $a0, 15 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c149: +move $a0, $sp +move $a1, $sp +move $a2, $sp +li $a3, 10 +li $t0, 10 +la $v0, comp_fir_basic141 +sw $t0, -4($sp) +jalr $v0 +c148: +move $a0, $sp +move $a1, $sp +move $a2, $sp +li $a3, 16 +la $v0, comp_fir16373 +jalr $v0 +c147: +li $a0, 4 +li $a1, 1 +li $a2, 1 +la $v0, comp_ifFor45 +jalr $v0 +c146: +move $a0, $sp +li $a1, 9 +li $a2, 3 +la $v0, comp_total410 +jalr $v0 +c145: +move $a0, $sp +li $a1, 10 +la $v0, comp_tri123 +jalr $v0 +c144: +move $a0, $sp +move $a1, $sp +li $a2, 10 +li $a3, 10 +la $v0, comp_forif2153 +jalr $v0 +c143: +la $v0, comp_forif65 +jalr $v0 +c142: +lw $ra, 64($sp) +addi $sp, $sp, 68 +jr $ra +# end _main diff --git a/tests/clight/complets.Clight.expected b/tests/clight/complets.Clight.expected new file mode 100644 index 0000000..8a80289 --- /dev/null +++ b/tests/clight/complets.Clight.expected @@ -0,0 +1,602 @@ +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +int comp_fir_basic(int *input, int *h, int *z, int N, int n) +{ + int i; + int j; + int k; + int y; + c16: + y = 0; + c15: + for (({ c14: k = 0; }); (/* c13 */ k < 3); ({ c12: k = k + 1; })) { + c11: + z[0] = input[k]; + c10: + for (({ c9: i = 0; }); (/* c8 */ i < 3); ({ c7: i = i + 1; })) { + c6: + y = y + h[i] * z[i]; + } + c5: + for (({ c4: j = 2; }); (/* c3 */ j >= 0); ({ c2: j = j - 1; })) { + c1: + z[(j + 1)] = z[j]; + } + } + c0: + return y; +} + +int comp_fir16(int *in, int *c, int *out, int size) +{ + int i; + int j; + int res; + int tmp; + int x[16]; + int adx; + c49: + x[0] = 0; + c48: + x[1] = 0; + c47: + x[2] = 0; + c46: + x[3] = 0; + c45: + x[4] = 0; + c44: + x[5] = 0; + c43: + x[6] = 0; + c42: + x[7] = 0; + c41: + x[8] = 0; + c40: + x[9] = 0; + c39: + x[10] = 0; + c38: + x[11] = 0; + c37: + x[12] = 0; + c36: + x[13] = 0; + c35: + x[14] = 0; + c34: + x[15] = 0; + c33: + adx = 0; + c32: + res = 0; + c31: + for (({ c30: j = 0; }); (/* c29 */ j < size); ({ c28: j = j + 1; })) { + c27: + x[adx] = in[j]; + c26: + for (({ c25: i = 0; }); (/* c24 */ i < 16); ({ c23: i = i + 1; })) { + c22: + tmp = (x[adx] * c[i]) * (2 ^ 16); + c21: + res = res + tmp; + c20: + adx = (adx + 1) % 16; + } + c19: + adx = (adx + 1) % 16; + c18: + out[j] = res; + } + c17: + return x[0]; +} + +int comp_ifFor(int a, int b, int pas) +{ + int i; + int result; + c58: + result = 0; + c57: + for (({ c56: i = 0; }); (/* c55 */ i < a); ({ c54: i = i + pas; })) { + c53: + if (i != b) { + c52: + result = result + i; + } else { + c51: + result = 0; + } + } + c50: + return result; +} + +int comp_total(int *tabParam, int a, int b) +{ + int i; + int j; + int k; + int tabLocal1[10]; + int tabLocal2[10]; + c94: + tabLocal1[0] = 0; + c93: + tabLocal1[1] = 0; + c92: + tabLocal1[2] = 0; + c91: + tabLocal1[3] = 0; + c90: + tabLocal1[4] = 0; + c89: + tabLocal1[5] = 0; + c88: + tabLocal1[6] = 0; + c87: + tabLocal1[7] = 0; + c86: + tabLocal1[8] = 0; + c85: + tabLocal1[9] = 0; + c84: + tabLocal2[0] = 0; + c83: + tabLocal2[1] = 0; + c82: + tabLocal2[2] = 0; + c81: + tabLocal2[3] = 0; + c80: + tabLocal2[4] = 0; + c79: + tabLocal2[5] = 0; + c78: + tabLocal2[6] = 0; + c77: + tabLocal2[7] = 0; + c76: + tabLocal2[8] = 0; + c75: + tabLocal2[9] = 0; + c74: + if (a < b) { + c73: + for (({ c72: i = 0; }); (/* c71 */ i <= a); ({ c70: i = i + 1; })) { + c69: + tabLocal1[i] = tabParam[(a - i)]; + } + } else { + c68: + for (({ c67: k = 0; }); (/* c66 */ k < a); ({ c65: k = k + 1; })) { + c64: + for (({ c63: j = b; }); (/* c62 */ j > 0); ({ c61: j = j - 1; })) { + c60: + tabParam[k] = tabLocal1[k] + tabLocal2[j]; + } + } + } + c59: + return 0; +} + +int comp_tri(int *t, int n) +{ + int i; + int j; + int tmp; + c108: + tmp = 0; + c107: + for (({ c106: i = 0; }); (/* c105 */ i < n); ({ c104: i = i + 1; })) { + c103: + for (({ c102: + j = 1; }); + (/* c101 */ + j < n - i); + ({ c100: + j = j + 1; })) { + c99: + if (t[j] < t[(j - 1)]) { + c98: + tmp = t[(j - 1)]; + c97: + t[(j - 1)] = t[j]; + c96: + t[j] = tmp; + } + } + } + c95: + return tmp; +} + +int comp_forif2(int *u, int *v, int a, int b) +{ + int i; + int j; + int k; + int l; + int res; + c130: + k = 0; + c129: + l = 0; + c128: + for (({ c127: i = 0; }); (/* c126 */ i < a); ({ c125: i = i + 1; })) { + c124: + k = k + u[i]; + } + c123: + for (({ c122: j = 0; }); (/* c121 */ j < b); ({ c120: j = j + 1; })) { + c119: + l = l + v[j]; + } + c118: + if ((/* c117 */ k % 2 == 0) && (/* c116 */ l % 2 == 0)) { + c115: + res = 0; + } else { + c114: + if (k % 2 == 0) { + c113: + res = 1; + } else { + c112: + if (l % 2 == 0) { + c111: + res = 2; + } else { + c110: + res = 3; + } + } + } + c109: + return 0; +} + +int comp_forif(void) +{ + int i; + int j; + int k; + c141: + j = 0; + c140: + k = 0; + c139: + for (({ c138: i = 0; }); (/* c137 */ i < 10); ({ c136: i = i + 1; })) { + c135: + j = j + 1; + c134: + j = j + 1; + c133: + if (i % 2 == 0) { + c132: + k = k + 1; + } + } + c131: + return j; +} + +int main(void) +{ + int a; + int t[16]; + c165: + t[0] = 10; + c164: + t[1] = 9; + c163: + t[2] = 8; + c162: + t[3] = 7; + c161: + t[4] = 6; + c160: + t[5] = 0; + c159: + t[6] = 5; + c158: + t[7] = 4; + c157: + t[8] = 3; + c156: + t[9] = 2; + c155: + t[10] = 0; + c154: + t[11] = 0; + c153: + t[12] = 0; + c152: + t[13] = 0; + c151: + t[14] = 0; + c150: + t[15] = 0; + c149: + a = comp_fir_basic(t, t, t, 10, 10); + c148: + a = comp_fir16(t, t, t, 16); + c147: + a = comp_ifFor(4, 1, 1); + c146: + a = comp_total(t, 9, 3); + c145: + a = comp_tri(t, 10); + c144: + a = comp_forif2(t, t, 10, 10); + c143: + a = comp_forif(); + c142: + return a; +} + + diff --git a/tests/clight/complets.Cminor.expected b/tests/clight/complets.Cminor.expected new file mode 100644 index 0000000..3fe731c --- /dev/null +++ b/tests/clight/complets.Cminor.expected @@ -0,0 +1,940 @@ + + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"comp_fir_basic" (input, h, z, N, n) : int -> int -> int -> int -> int -> int { + + stack 0; + + var y, k, j, i; + + c16: + y = 0; + c15: + c14: + k = 0; + block { + loop { + if (!(/* c13 */ k < 3)) { + exit 0; + } + else { + } + block { + c11: + int32[z + (0 * 4)] = int32[input + (k * 4)]; + c10: + c9: + i = 0; + block { + loop { + if (!(/* c8 */ i < 3)) { + exit 0; + } + else { + } + block { + c6: + y = y + (int32[h + (i * 4)] * int32[z + (i * 4)]); + } + c7: + i = i + 1; + } + } + c5: + c4: + j = 2; + block { + loop { + if (!(/* c3 */ j >= 0)) { + exit 0; + } + else { + } + block { + c1: + int32[z + ((j + 1) * 4)] = int32[z + (j * 4)]; + } + c2: + j = j - 1; + } + } + } + c12: + k = k + 1; + } + } + c0: + return y; + +} + + +"comp_fir16" (in, c, out, size) : int -> int -> int -> int -> int { + + stack 64; + + var res, tmp, j, i, adx; + + c49: + int32[&0 + (0 * 4)] = 0; + c48: + int32[&0 + (1 * 4)] = 0; + c47: + int32[&0 + (2 * 4)] = 0; + c46: + int32[&0 + (3 * 4)] = 0; + c45: + int32[&0 + (4 * 4)] = 0; + c44: + int32[&0 + (5 * 4)] = 0; + c43: + int32[&0 + (6 * 4)] = 0; + c42: + int32[&0 + (7 * 4)] = 0; + c41: + int32[&0 + (8 * 4)] = 0; + c40: + int32[&0 + (9 * 4)] = 0; + c39: + int32[&0 + (10 * 4)] = 0; + c38: + int32[&0 + (11 * 4)] = 0; + c37: + int32[&0 + (12 * 4)] = 0; + c36: + int32[&0 + (13 * 4)] = 0; + c35: + int32[&0 + (14 * 4)] = 0; + c34: + int32[&0 + (15 * 4)] = 0; + c33: + adx = 0; + c32: + res = 0; + c31: + c30: + j = 0; + block { + loop { + if (!(/* c29 */ j < size)) { + exit 0; + } + else { + } + block { + c27: + int32[&0 + (adx * 4)] = int32[in + (j * 4)]; + c26: + c25: + i = 0; + block { + loop { + if (!(/* c24 */ i < 16)) { + exit 0; + } + else { + } + block { + c22: + tmp = (int32[&0 + (adx * 4)] * int32[c + (i * 4)]) * (2 ^ 16); + c21: + res = res + tmp; + c20: + adx = (adx + 1) % 16; + } + c23: + i = i + 1; + } + } + c19: + adx = (adx + 1) % 16; + c18: + int32[out + (j * 4)] = res; + } + c28: + j = j + 1; + } + } + c17: + return int32[&0 + (0 * 4)]; + +} + + +"comp_ifFor" (a, b, pas) : int -> int -> int -> int { + + stack 0; + + var i, result; + + c58: + result = 0; + c57: + c56: + i = 0; + block { + loop { + if (!(/* c55 */ i < a)) { + exit 0; + } + else { + } + block { + c53: + if (i != b) { + c52: + result = result + i; + } + else { + c51: + result = 0; + } + } + c54: + i = i + pas; + } + } + c50: + return result; + +} + + +"comp_total" (tabParam, a, b) : int -> int -> int -> int { + + stack 80; + + var k, j, i; + + c94: + int32[&0 + (0 * 4)] = 0; + c93: + int32[&0 + (1 * 4)] = 0; + c92: + int32[&0 + (2 * 4)] = 0; + c91: + int32[&0 + (3 * 4)] = 0; + c90: + int32[&0 + (4 * 4)] = 0; + c89: + int32[&0 + (5 * 4)] = 0; + c88: + int32[&0 + (6 * 4)] = 0; + c87: + int32[&0 + (7 * 4)] = 0; + c86: + int32[&0 + (8 * 4)] = 0; + c85: + int32[&0 + (9 * 4)] = 0; + c84: + int32[&40 + (0 * 4)] = 0; + c83: + int32[&40 + (1 * 4)] = 0; + c82: + int32[&40 + (2 * 4)] = 0; + c81: + int32[&40 + (3 * 4)] = 0; + c80: + int32[&40 + (4 * 4)] = 0; + c79: + int32[&40 + (5 * 4)] = 0; + c78: + int32[&40 + (6 * 4)] = 0; + c77: + int32[&40 + (7 * 4)] = 0; + c76: + int32[&40 + (8 * 4)] = 0; + c75: + int32[&40 + (9 * 4)] = 0; + c74: + if (a < b) { + c73: + c72: + i = 0; + block { + loop { + if (!(/* c71 */ i <= a)) { + exit 0; + } + else { + } + block { + c69: + int32[&0 + (i * 4)] = int32[tabParam + ((a - i) * 4)]; + } + c70: + i = i + 1; + } + } + } + else { + c68: + c67: + k = 0; + block { + loop { + if (!(/* c66 */ k < a)) { + exit 0; + } + else { + } + block { + c64: + c63: + j = b; + block { + loop { + if (!(/* c62 */ j > 0)) { + exit 0; + } + else { + } + block { + c60: + int32[tabParam + (k * 4)] = int32[&0 + (k * 4)] + int32[&40 + (j * 4)]; + } + c61: + j = j - 1; + } + } + } + c65: + k = k + 1; + } + } + } + c59: + return 0; + +} + + +"comp_tri" (t, n) : int -> int -> int { + + stack 0; + + var tmp, j, i; + + c108: + tmp = 0; + c107: + c106: + i = 0; + block { + loop { + if (!(/* c105 */ i < n)) { + exit 0; + } + else { + } + block { + c103: + c102: + j = 1; + block { + loop { + if (!(/* c101 */ j < (n - i))) { + exit 0; + } + else { + } + block { + c99: + if (int32[t + (j * 4)] < int32[t + ((j - 1) * 4)]) { + c98: + tmp = int32[t + ((j - 1) * 4)]; + c97: + int32[t + ((j - 1) * 4)] = int32[t + (j * 4)]; + c96: + int32[t + (j * 4)] = tmp; + } + else { + } + } + c100: + j = j + 1; + } + } + } + c104: + i = i + 1; + } + } + c95: + return tmp; + +} + + +"comp_forif2" (u, v, a, b) : int -> int -> int -> int -> int { + + stack 0; + + var res, l, k, j, i; + + c130: + k = 0; + c129: + l = 0; + c128: + c127: + i = 0; + block { + loop { + if (!(/* c126 */ i < a)) { + exit 0; + } + else { + } + block { + c124: + k = k + int32[u + (i * 4)]; + } + c125: + i = i + 1; + } + } + c123: + c122: + j = 0; + block { + loop { + if (!(/* c121 */ j < b)) { + exit 0; + } + else { + } + block { + c119: + l = l + int32[v + (j * 4)]; + } + c120: + j = j + 1; + } + } + c118: + if ((/* c117 */ (k % 2) == 0) ? ((/* c116 */ (l % 2) == 0) ? 1 : 0) : 0) { + c115: + res = 0; + } + else { + c114: + if ((k % 2) == 0) { + c113: + res = 1; + } + else { + c112: + if ((l % 2) == 0) { + c111: + res = 2; + } + else { + c110: + res = 3; + } + } + } + c109: + return 0; + +} + + +"comp_forif" () : int { + + stack 0; + + var k, j, i; + + c141: + j = 0; + c140: + k = 0; + c139: + c138: + i = 0; + block { + loop { + if (!(/* c137 */ i < 10)) { + exit 0; + } + else { + } + block { + c135: + j = j + 1; + c134: + j = j + 1; + c133: + if ((i % 2) == 0) { + c132: + k = k + 1; + } + else { + } + } + c136: + i = i + 1; + } + } + c131: + return j; + +} + + +"main" () : int { + + stack 64; + + var a; + + c165: + int32[&0 + (0 * 4)] = 10; + c164: + int32[&0 + (1 * 4)] = 9; + c163: + int32[&0 + (2 * 4)] = 8; + c162: + int32[&0 + (3 * 4)] = 7; + c161: + int32[&0 + (4 * 4)] = 6; + c160: + int32[&0 + (5 * 4)] = 0; + c159: + int32[&0 + (6 * 4)] = 5; + c158: + int32[&0 + (7 * 4)] = 4; + c157: + int32[&0 + (8 * 4)] = 3; + c156: + int32[&0 + (9 * 4)] = 2; + c155: + int32[&0 + (10 * 4)] = 0; + c154: + int32[&0 + (11 * 4)] = 0; + c153: + int32[&0 + (12 * 4)] = 0; + c152: + int32[&0 + (13 * 4)] = 0; + c151: + int32[&0 + (14 * 4)] = 0; + c150: + int32[&0 + (15 * 4)] = 0; + c149: + a = "comp_fir_basic"(&0, &0, &0, 10, 10) : int -> int -> int -> int -> int -> int; + c148: + a = "comp_fir16"(&0, &0, &0, 16) : int -> int -> int -> int -> int; + c147: + a = "comp_ifFor"(4, 1, 1) : int -> int -> int -> int; + c146: + a = "comp_total"(&0, 9, 3) : int -> int -> int -> int; + c145: + a = "comp_tri"(&0, 10) : int -> int -> int; + c144: + a = "comp_forif2"(&0, &0, 10, 10) : int -> int -> int -> int -> int; + c143: + a = "comp_forif"() : int; + c142: + return a; + +} + + diff --git a/tests/clight/complets.ERTL.expected b/tests/clight/complets.ERTL.expected new file mode 100644 index 0000000..1456c06 --- /dev/null +++ b/tests/clight/complets.ERTL.expected @@ -0,0 +1,2387 @@ +program + +globals 0 + +procedure comp_tri(2) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54 +entry comp_tri123 +comp_tri123: newframe --> comp_tri122 +comp_tri122: move %54, $ra --> comp_tri121 +comp_tri121: move %53, $s7 --> comp_tri120 +comp_tri120: move %52, $s6 --> comp_tri119 +comp_tri119: move %51, $s5 --> comp_tri118 +comp_tri118: move %50, $s4 --> comp_tri117 +comp_tri117: move %49, $s3 --> comp_tri116 +comp_tri116: move %48, $s2 --> comp_tri115 +comp_tri115: move %47, $s1 --> comp_tri114 +comp_tri114: move %46, $s0 --> comp_tri113 +comp_tri113: move %0, $a0 --> comp_tri112 +comp_tri112: move %1, $a1 --> comp_tri111 +comp_tri111: li %2, 0 --> comp_tri110 +comp_tri110: li %3, 0 --> comp_tri109 +comp_tri109: li %4, 0 --> comp_tri108 +comp_tri108: li %6, 0 --> comp_tri107 +comp_tri107: li %7, 0 --> comp_tri106 +comp_tri106: li %8, 0 --> comp_tri105 +comp_tri105: li %9, 0 --> comp_tri104 +comp_tri104: li %10, 0 --> comp_tri103 +comp_tri103: li %11, 0 --> comp_tri102 +comp_tri102: li %12, 0 --> comp_tri101 +comp_tri101: li %13, 0 --> comp_tri100 +comp_tri100: li %14, 0 --> comp_tri99 +comp_tri99 : li %15, 0 --> comp_tri98 +comp_tri98 : li %16, 0 --> comp_tri97 +comp_tri97 : li %17, 0 --> comp_tri96 +comp_tri96 : li %18, 0 --> comp_tri95 +comp_tri95 : li %19, 0 --> comp_tri94 +comp_tri94 : li %20, 0 --> comp_tri93 +comp_tri93 : li %21, 0 --> comp_tri92 +comp_tri92 : li %22, 0 --> comp_tri91 +comp_tri91 : li %23, 0 --> comp_tri90 +comp_tri90 : li %24, 0 --> comp_tri89 +comp_tri89 : li %25, 0 --> comp_tri88 +comp_tri88 : li %26, 0 --> comp_tri87 +comp_tri87 : li %27, 0 --> comp_tri86 +comp_tri86 : li %28, 0 --> comp_tri85 +comp_tri85 : li %29, 0 --> comp_tri84 +comp_tri84 : li %30, 0 --> comp_tri83 +comp_tri83 : li %31, 0 --> comp_tri82 +comp_tri82 : li %32, 0 --> comp_tri81 +comp_tri81 : li %33, 0 --> comp_tri80 +comp_tri80 : li %34, 0 --> comp_tri79 +comp_tri79 : li %35, 0 --> comp_tri78 +comp_tri78 : li %36, 0 --> comp_tri77 +comp_tri77 : li %37, 0 --> comp_tri76 +comp_tri76 : li %38, 0 --> comp_tri75 +comp_tri75 : li %39, 0 --> comp_tri74 +comp_tri74 : li %40, 0 --> comp_tri73 +comp_tri73 : li %41, 0 --> comp_tri72 +comp_tri72 : li %42, 0 --> comp_tri71 +comp_tri71 : li %43, 0 --> comp_tri70 +comp_tri70 : li %44, 0 --> comp_tri69 +comp_tri69 : li %45, 0 --> comp_tri60 +comp_tri60 : emit c108 --> comp_tri59 +comp_tri59 : li %2, 0 --> comp_tri58 +comp_tri58 : emit c107 --> comp_tri57 +comp_tri57 : emit c106 --> comp_tri56 +comp_tri56 : li %4, 0 --> comp_tri3 +comp_tri3 : j --> comp_tri55 +comp_tri55 : li %36, 0 --> comp_tri54 +comp_tri54 : emit c105 --> comp_tri53 +comp_tri53 : slt %37, %4, %1 --> comp_tri52 +comp_tri52 : li %45, 0 --> comp_tri68 +comp_tri68 : seq %35, %37, %45 --> comp_tri51 +comp_tri51 : beq %35, %36 --> comp_tri50, comp_tri2 +comp_tri2 : emit c95 --> comp_tri1 +comp_tri1 : move %5, %2 --> comp_tri0 +comp_tri0 : j --> comp_tri135 +comp_tri135: move $v0, %5 --> comp_tri134 +comp_tri134: move $ra, %54 --> comp_tri133 +comp_tri133: move $s7, %53 --> comp_tri132 +comp_tri132: move $s6, %52 --> comp_tri131 +comp_tri131: move $s5, %51 --> comp_tri130 +comp_tri130: move $s4, %50 --> comp_tri129 +comp_tri129: move $s3, %49 --> comp_tri128 +comp_tri128: move $s2, %48 --> comp_tri127 +comp_tri127: move $s1, %47 --> comp_tri126 +comp_tri126: move $s0, %46 --> comp_tri125 +comp_tri125: delframe --> comp_tri124 +comp_tri124: jr $ra (xmits $v0) +comp_tri50 : emit c103 --> comp_tri49 +comp_tri49 : emit c102 --> comp_tri48 +comp_tri48 : li %3, 1 --> comp_tri7 +comp_tri7 : j --> comp_tri47 +comp_tri47 : li %32, 0 --> comp_tri46 +comp_tri46 : emit c101 --> comp_tri45 +comp_tri45 : sub %34, %1, %4 --> comp_tri44 +comp_tri44 : slt %33, %3, %34 --> comp_tri43 +comp_tri43 : li %44, 0 --> comp_tri67 +comp_tri67 : seq %31, %33, %44 --> comp_tri42 +comp_tri42 : beq %31, %32 --> comp_tri41, comp_tri6 +comp_tri6 : emit c104 --> comp_tri5 +comp_tri5 : li %6, 1 --> comp_tri4 +comp_tri4 : add %4, %4, %6 --> comp_tri3 +comp_tri41 : emit c99 --> comp_tri40 +comp_tri40 : li %22, 0 --> comp_tri39 +comp_tri39 : li %30, 4 --> comp_tri38 +comp_tri38 : mulo %29, %3, %30 --> comp_tri37 +comp_tri37 : add %43, %0, %29 --> comp_tri66 +comp_tri66 : lw %23, 0(%43) --> comp_tri36 +comp_tri36 : li %28, 1 --> comp_tri35 +comp_tri35 : sub %26, %3, %28 --> comp_tri34 +comp_tri34 : li %27, 4 --> comp_tri33 +comp_tri33 : mulo %25, %26, %27 --> comp_tri32 +comp_tri32 : add %42, %0, %25 --> comp_tri65 +comp_tri65 : lw %24, 0(%42) --> comp_tri31 +comp_tri31 : slt %21, %23, %24 --> comp_tri30 +comp_tri30 : beq %21, %22 --> comp_tri10, comp_tri29 +comp_tri29 : emit c98 --> comp_tri28 +comp_tri28 : li %20, 1 --> comp_tri27 +comp_tri27 : sub %18, %3, %20 --> comp_tri26 +comp_tri26 : li %19, 4 --> comp_tri25 +comp_tri25 : mulo %17, %18, %19 --> comp_tri24 +comp_tri24 : add %41, %0, %17 --> comp_tri64 +comp_tri64 : lw %2, 0(%41) --> comp_tri23 +comp_tri23 : emit c97 --> comp_tri22 +comp_tri22 : li %16, 4 --> comp_tri21 +comp_tri21 : mulo %15, %3, %16 --> comp_tri20 +comp_tri20 : add %40, %0, %15 --> comp_tri63 +comp_tri63 : lw %10, 0(%40) --> comp_tri19 +comp_tri19 : li %14, 1 --> comp_tri18 +comp_tri18 : sub %12, %3, %14 --> comp_tri17 +comp_tri17 : li %13, 4 --> comp_tri16 +comp_tri16 : mulo %11, %12, %13 --> comp_tri15 +comp_tri15 : add %39, %0, %11 --> comp_tri62 +comp_tri62 : sw %10, 0(%39) --> comp_tri14 +comp_tri14 : emit c96 --> comp_tri13 +comp_tri13 : li %9, 4 --> comp_tri12 +comp_tri12 : mulo %8, %3, %9 --> comp_tri11 +comp_tri11 : add %38, %0, %8 --> comp_tri61 +comp_tri61 : sw %2, 0(%38) --> comp_tri10 +comp_tri10 : emit c100 --> comp_tri9 +comp_tri9 : li %7, 1 --> comp_tri8 +comp_tri8 : add %3, %3, %7 --> comp_tri7 + +procedure comp_total(3) +stacksize 80 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106, %107, %108, %109, %110, %111, + %112, %113, %114, %115, %116, %117, %118, + %119, %120, %121, %122, %123, %124, %125, + %126, %127, %128, %129, %130, %131, %132, + %133, %134, %135, %136, %137, %138, %139, + %140, %141, %142, %143, %144, %145, %146, + %147, %148, %149, %150, %151, %152, %153, + %154, %155, %156, %157, %158, %159, %160, + %161, %162, %163, %164, %165, %166, %167, + %168, %169, %170, %171, %172, %173, %174, + %175, %176 +entry comp_total410 +comp_total410: newframe --> comp_total409 +comp_total409: move %176, $ra --> comp_total408 +comp_total408: move %175, $s7 --> comp_total407 +comp_total407: move %174, $s6 --> comp_total406 +comp_total406: move %173, $s5 --> comp_total405 +comp_total405: move %172, $s4 --> comp_total404 +comp_total404: move %171, $s3 --> comp_total403 +comp_total403: move %170, $s2 --> comp_total402 +comp_total402: move %169, $s1 --> comp_total401 +comp_total401: move %168, $s0 --> comp_total400 +comp_total400: move %0, $a0 --> comp_total399 +comp_total399: move %1, $a1 --> comp_total398 +comp_total398: move %2, $a2 --> comp_total397 +comp_total397: li %3, 0 --> comp_total396 +comp_total396: li %4, 0 --> comp_total395 +comp_total395: li %5, 0 --> comp_total394 +comp_total394: li %7, 0 --> comp_total393 +comp_total393: li %8, 0 --> comp_total392 +comp_total392: li %9, 0 --> comp_total391 +comp_total391: li %10, 0 --> comp_total390 +comp_total390: li %11, 0 --> comp_total389 +comp_total389: li %12, 0 --> comp_total388 +comp_total388: li %13, 0 --> comp_total387 +comp_total387: li %14, 0 --> comp_total386 +comp_total386: li %15, 0 --> comp_total385 +comp_total385: li %16, 0 --> comp_total384 +comp_total384: li %17, 0 --> comp_total383 +comp_total383: li %18, 0 --> comp_total382 +comp_total382: li %19, 0 --> comp_total381 +comp_total381: li %20, 0 --> comp_total380 +comp_total380: li %21, 0 --> comp_total379 +comp_total379: li %22, 0 --> comp_total378 +comp_total378: li %23, 0 --> comp_total377 +comp_total377: li %24, 0 --> comp_total376 +comp_total376: li %25, 0 --> comp_total375 +comp_total375: li %26, 0 --> comp_total374 +comp_total374: li %27, 0 --> comp_total373 +comp_total373: li %28, 0 --> comp_total372 +comp_total372: li %29, 0 --> comp_total371 +comp_total371: li %30, 0 --> comp_total370 +comp_total370: li %31, 0 --> comp_total369 +comp_total369: li %32, 0 --> comp_total368 +comp_total368: li %33, 0 --> comp_total367 +comp_total367: li %34, 0 --> comp_total366 +comp_total366: li %35, 0 --> comp_total365 +comp_total365: li %36, 0 --> comp_total364 +comp_total364: li %37, 0 --> comp_total363 +comp_total363: li %38, 0 --> comp_total362 +comp_total362: li %39, 0 --> comp_total361 +comp_total361: li %40, 0 --> comp_total360 +comp_total360: li %41, 0 --> comp_total359 +comp_total359: li %42, 0 --> comp_total358 +comp_total358: li %43, 0 --> comp_total357 +comp_total357: li %44, 0 --> comp_total356 +comp_total356: li %45, 0 --> comp_total355 +comp_total355: li %46, 0 --> comp_total354 +comp_total354: li %47, 0 --> comp_total353 +comp_total353: li %48, 0 --> comp_total352 +comp_total352: li %49, 0 --> comp_total351 +comp_total351: li %50, 0 --> comp_total350 +comp_total350: li %51, 0 --> comp_total349 +comp_total349: li %52, 0 --> comp_total348 +comp_total348: li %53, 0 --> comp_total347 +comp_total347: li %54, 0 --> comp_total346 +comp_total346: li %55, 0 --> comp_total345 +comp_total345: li %56, 0 --> comp_total344 +comp_total344: li %57, 0 --> comp_total343 +comp_total343: li %58, 0 --> comp_total342 +comp_total342: li %59, 0 --> comp_total341 +comp_total341: li %60, 0 --> comp_total340 +comp_total340: li %61, 0 --> comp_total339 +comp_total339: li %62, 0 --> comp_total338 +comp_total338: li %63, 0 --> comp_total337 +comp_total337: li %64, 0 --> comp_total336 +comp_total336: li %65, 0 --> comp_total335 +comp_total335: li %66, 0 --> comp_total334 +comp_total334: li %67, 0 --> comp_total333 +comp_total333: li %68, 0 --> comp_total332 +comp_total332: li %69, 0 --> comp_total331 +comp_total331: li %70, 0 --> comp_total330 +comp_total330: li %71, 0 --> comp_total329 +comp_total329: li %72, 0 --> comp_total328 +comp_total328: li %73, 0 --> comp_total327 +comp_total327: li %74, 0 --> comp_total326 +comp_total326: li %75, 0 --> comp_total325 +comp_total325: li %76, 0 --> comp_total324 +comp_total324: li %77, 0 --> comp_total323 +comp_total323: li %78, 0 --> comp_total322 +comp_total322: li %79, 0 --> comp_total321 +comp_total321: li %80, 0 --> comp_total320 +comp_total320: li %81, 0 --> comp_total319 +comp_total319: li %82, 0 --> comp_total318 +comp_total318: li %83, 0 --> comp_total317 +comp_total317: li %84, 0 --> comp_total316 +comp_total316: li %85, 0 --> comp_total315 +comp_total315: li %86, 0 --> comp_total314 +comp_total314: li %87, 0 --> comp_total313 +comp_total313: li %88, 0 --> comp_total312 +comp_total312: li %89, 0 --> comp_total311 +comp_total311: li %90, 0 --> comp_total310 +comp_total310: li %91, 0 --> comp_total309 +comp_total309: li %92, 0 --> comp_total308 +comp_total308: li %93, 0 --> comp_total307 +comp_total307: li %94, 0 --> comp_total306 +comp_total306: li %95, 0 --> comp_total305 +comp_total305: li %96, 0 --> comp_total304 +comp_total304: li %97, 0 --> comp_total303 +comp_total303: li %98, 0 --> comp_total302 +comp_total302: li %99, 0 --> comp_total301 +comp_total301: li %100, 0 --> comp_total300 +comp_total300: li %101, 0 --> comp_total299 +comp_total299: li %102, 0 --> comp_total298 +comp_total298: li %103, 0 --> comp_total297 +comp_total297: li %104, 0 --> comp_total296 +comp_total296: li %105, 0 --> comp_total295 +comp_total295: li %106, 0 --> comp_total294 +comp_total294: li %107, 0 --> comp_total293 +comp_total293: li %108, 0 --> comp_total292 +comp_total292: li %109, 0 --> comp_total291 +comp_total291: li %110, 0 --> comp_total290 +comp_total290: li %111, 0 --> comp_total289 +comp_total289: li %112, 0 --> comp_total288 +comp_total288: li %113, 0 --> comp_total287 +comp_total287: li %114, 0 --> comp_total286 +comp_total286: li %115, 0 --> comp_total285 +comp_total285: li %116, 0 --> comp_total284 +comp_total284: li %117, 0 --> comp_total283 +comp_total283: li %118, 0 --> comp_total282 +comp_total282: li %119, 0 --> comp_total281 +comp_total281: li %120, 0 --> comp_total280 +comp_total280: li %121, 0 --> comp_total279 +comp_total279: li %122, 0 --> comp_total278 +comp_total278: li %123, 0 --> comp_total277 +comp_total277: li %124, 0 --> comp_total276 +comp_total276: li %125, 0 --> comp_total275 +comp_total275: li %126, 0 --> comp_total274 +comp_total274: li %127, 0 --> comp_total273 +comp_total273: li %128, 0 --> comp_total272 +comp_total272: li %129, 0 --> comp_total271 +comp_total271: li %130, 0 --> comp_total270 +comp_total270: li %131, 0 --> comp_total269 +comp_total269: li %132, 0 --> comp_total268 +comp_total268: li %133, 0 --> comp_total267 +comp_total267: li %134, 0 --> comp_total266 +comp_total266: li %135, 0 --> comp_total265 +comp_total265: li %136, 0 --> comp_total264 +comp_total264: li %137, 0 --> comp_total263 +comp_total263: li %138, 0 --> comp_total262 +comp_total262: li %139, 0 --> comp_total261 +comp_total261: li %140, 0 --> comp_total260 +comp_total260: li %141, 0 --> comp_total259 +comp_total259: li %142, 0 --> comp_total258 +comp_total258: li %143, 0 --> comp_total257 +comp_total257: li %144, 0 --> comp_total256 +comp_total256: li %145, 0 --> comp_total255 +comp_total255: li %146, 0 --> comp_total254 +comp_total254: li %147, 0 --> comp_total253 +comp_total253: li %148, 0 --> comp_total252 +comp_total252: li %149, 0 --> comp_total251 +comp_total251: li %150, 0 --> comp_total250 +comp_total250: li %151, 0 --> comp_total249 +comp_total249: li %152, 0 --> comp_total248 +comp_total248: li %153, 0 --> comp_total247 +comp_total247: li %154, 0 --> comp_total246 +comp_total246: li %155, 0 --> comp_total245 +comp_total245: li %156, 0 --> comp_total244 +comp_total244: li %157, 0 --> comp_total243 +comp_total243: li %158, 0 --> comp_total242 +comp_total242: li %159, 0 --> comp_total241 +comp_total241: li %160, 0 --> comp_total240 +comp_total240: li %161, 0 --> comp_total239 +comp_total239: li %162, 0 --> comp_total238 +comp_total238: li %163, 0 --> comp_total237 +comp_total237: li %164, 0 --> comp_total236 +comp_total236: li %165, 0 --> comp_total235 +comp_total235: li %166, 0 --> comp_total234 +comp_total234: li %167, 0 --> comp_total205 +comp_total205: emit c94 --> comp_total204 +comp_total204: li %135, 0 --> comp_total203 +comp_total203: move %136, $sp --> comp_total438 +comp_total438: move %136, %136 --> comp_total202 +comp_total202: li %138, 0 --> comp_total201 +comp_total201: li %139, 4 --> comp_total200 +comp_total200: mulo %137, %138, %139 --> comp_total199 +comp_total199: add %157, %136, %137 --> comp_total223 +comp_total223: sw %135, 0(%157) --> comp_total198 +comp_total198: emit c93 --> comp_total197 +comp_total197: li %130, 0 --> comp_total196 +comp_total196: move %131, $sp --> comp_total437 +comp_total437: move %131, %131 --> comp_total195 +comp_total195: li %133, 1 --> comp_total194 +comp_total194: li %134, 4 --> comp_total193 +comp_total193: mulo %132, %133, %134 --> comp_total192 +comp_total192: add %156, %131, %132 --> comp_total222 +comp_total222: sw %130, 0(%156) --> comp_total191 +comp_total191: emit c92 --> comp_total190 +comp_total190: li %125, 0 --> comp_total189 +comp_total189: move %126, $sp --> comp_total436 +comp_total436: move %126, %126 --> comp_total188 +comp_total188: li %128, 2 --> comp_total187 +comp_total187: li %129, 4 --> comp_total186 +comp_total186: mulo %127, %128, %129 --> comp_total185 +comp_total185: add %154, %126, %127 --> comp_total220 +comp_total220: sw %125, 0(%154) --> comp_total184 +comp_total184: emit c91 --> comp_total183 +comp_total183: li %120, 0 --> comp_total182 +comp_total182: move %121, $sp --> comp_total435 +comp_total435: move %121, %121 --> comp_total181 +comp_total181: li %123, 3 --> comp_total180 +comp_total180: li %124, 4 --> comp_total179 +comp_total179: mulo %122, %123, %124 --> comp_total178 +comp_total178: add %153, %121, %122 --> comp_total219 +comp_total219: sw %120, 0(%153) --> comp_total177 +comp_total177: emit c90 --> comp_total176 +comp_total176: li %115, 0 --> comp_total175 +comp_total175: move %116, $sp --> comp_total433 +comp_total433: move %116, %116 --> comp_total174 +comp_total174: li %118, 4 --> comp_total173 +comp_total173: li %119, 4 --> comp_total172 +comp_total172: mulo %117, %118, %119 --> comp_total171 +comp_total171: add %152, %116, %117 --> comp_total218 +comp_total218: sw %115, 0(%152) --> comp_total170 +comp_total170: emit c89 --> comp_total169 +comp_total169: li %110, 0 --> comp_total168 +comp_total168: move %111, $sp --> comp_total432 +comp_total432: move %111, %111 --> comp_total167 +comp_total167: li %113, 5 --> comp_total166 +comp_total166: li %114, 4 --> comp_total165 +comp_total165: mulo %112, %113, %114 --> comp_total164 +comp_total164: add %151, %111, %112 --> comp_total217 +comp_total217: sw %110, 0(%151) --> comp_total163 +comp_total163: emit c88 --> comp_total162 +comp_total162: li %105, 0 --> comp_total161 +comp_total161: move %106, $sp --> comp_total431 +comp_total431: move %106, %106 --> comp_total160 +comp_total160: li %108, 6 --> comp_total159 +comp_total159: li %109, 4 --> comp_total158 +comp_total158: mulo %107, %108, %109 --> comp_total157 +comp_total157: add %150, %106, %107 --> comp_total216 +comp_total216: sw %105, 0(%150) --> comp_total156 +comp_total156: emit c87 --> comp_total155 +comp_total155: li %100, 0 --> comp_total154 +comp_total154: move %101, $sp --> comp_total430 +comp_total430: move %101, %101 --> comp_total153 +comp_total153: li %103, 7 --> comp_total152 +comp_total152: li %104, 4 --> comp_total151 +comp_total151: mulo %102, %103, %104 --> comp_total150 +comp_total150: add %149, %101, %102 --> comp_total215 +comp_total215: sw %100, 0(%149) --> comp_total149 +comp_total149: emit c86 --> comp_total148 +comp_total148: li %95, 0 --> comp_total147 +comp_total147: move %96, $sp --> comp_total429 +comp_total429: move %96, %96 --> comp_total146 +comp_total146: li %98, 8 --> comp_total145 +comp_total145: li %99, 4 --> comp_total144 +comp_total144: mulo %97, %98, %99 --> comp_total143 +comp_total143: add %147, %96, %97 --> comp_total213 +comp_total213: sw %95, 0(%147) --> comp_total142 +comp_total142: emit c85 --> comp_total141 +comp_total141: li %90, 0 --> comp_total140 +comp_total140: move %91, $sp --> comp_total428 +comp_total428: move %91, %91 --> comp_total139 +comp_total139: li %93, 9 --> comp_total138 +comp_total138: li %94, 4 --> comp_total137 +comp_total137: mulo %92, %93, %94 --> comp_total136 +comp_total136: add %146, %91, %92 --> comp_total212 +comp_total212: sw %90, 0(%146) --> comp_total135 +comp_total135: emit c84 --> comp_total134 +comp_total134: li %85, 0 --> comp_total133 +comp_total133: move %86, $sp --> comp_total427 +comp_total427: addi %86, %86, 40 --> comp_total132 +comp_total132: li %88, 0 --> comp_total131 +comp_total131: li %89, 4 --> comp_total130 +comp_total130: mulo %87, %88, %89 --> comp_total129 +comp_total129: add %145, %86, %87 --> comp_total211 +comp_total211: sw %85, 0(%145) --> comp_total128 +comp_total128: emit c83 --> comp_total127 +comp_total127: li %80, 0 --> comp_total126 +comp_total126: move %81, $sp --> comp_total426 +comp_total426: addi %81, %81, 40 --> comp_total125 +comp_total125: li %83, 1 --> comp_total124 +comp_total124: li %84, 4 --> comp_total123 +comp_total123: mulo %82, %83, %84 --> comp_total122 +comp_total122: add %144, %81, %82 --> comp_total210 +comp_total210: sw %80, 0(%144) --> comp_total121 +comp_total121: emit c82 --> comp_total120 +comp_total120: li %75, 0 --> comp_total119 +comp_total119: move %76, $sp --> comp_total425 +comp_total425: addi %76, %76, 40 --> comp_total118 +comp_total118: li %78, 2 --> comp_total117 +comp_total117: li %79, 4 --> comp_total116 +comp_total116: mulo %77, %78, %79 --> comp_total115 +comp_total115: add %143, %76, %77 --> comp_total209 +comp_total209: sw %75, 0(%143) --> comp_total114 +comp_total114: emit c81 --> comp_total113 +comp_total113: li %70, 0 --> comp_total112 +comp_total112: move %71, $sp --> comp_total424 +comp_total424: addi %71, %71, 40 --> comp_total111 +comp_total111: li %73, 3 --> comp_total110 +comp_total110: li %74, 4 --> comp_total109 +comp_total109: mulo %72, %73, %74 --> comp_total108 +comp_total108: add %141, %71, %72 --> comp_total207 +comp_total207: sw %70, 0(%141) --> comp_total107 +comp_total107: emit c80 --> comp_total106 +comp_total106: li %65, 0 --> comp_total105 +comp_total105: move %66, $sp --> comp_total423 +comp_total423: addi %66, %66, 40 --> comp_total104 +comp_total104: li %68, 4 --> comp_total103 +comp_total103: li %69, 4 --> comp_total102 +comp_total102: mulo %67, %68, %69 --> comp_total101 +comp_total101: add %140, %66, %67 --> comp_total206 +comp_total206: sw %65, 0(%140) --> comp_total100 +comp_total100: emit c79 --> comp_total99 +comp_total99 : li %60, 0 --> comp_total98 +comp_total98 : move %61, $sp --> comp_total445 +comp_total445: addi %61, %61, 40 --> comp_total97 +comp_total97 : li %63, 5 --> comp_total96 +comp_total96 : li %64, 4 --> comp_total95 +comp_total95 : mulo %62, %63, %64 --> comp_total94 +comp_total94 : add %167, %61, %62 --> comp_total233 +comp_total233: sw %60, 0(%167) --> comp_total93 +comp_total93 : emit c78 --> comp_total92 +comp_total92 : li %55, 0 --> comp_total91 +comp_total91 : move %56, $sp --> comp_total444 +comp_total444: addi %56, %56, 40 --> comp_total90 +comp_total90 : li %58, 6 --> comp_total89 +comp_total89 : li %59, 4 --> comp_total88 +comp_total88 : mulo %57, %58, %59 --> comp_total87 +comp_total87 : add %166, %56, %57 --> comp_total232 +comp_total232: sw %55, 0(%166) --> comp_total86 +comp_total86 : emit c77 --> comp_total85 +comp_total85 : li %50, 0 --> comp_total84 +comp_total84 : move %51, $sp --> comp_total443 +comp_total443: addi %51, %51, 40 --> comp_total83 +comp_total83 : li %53, 7 --> comp_total82 +comp_total82 : li %54, 4 --> comp_total81 +comp_total81 : mulo %52, %53, %54 --> comp_total80 +comp_total80 : add %165, %51, %52 --> comp_total231 +comp_total231: sw %50, 0(%165) --> comp_total79 +comp_total79 : emit c76 --> comp_total78 +comp_total78 : li %45, 0 --> comp_total77 +comp_total77 : move %46, $sp --> comp_total442 +comp_total442: addi %46, %46, 40 --> comp_total76 +comp_total76 : li %48, 8 --> comp_total75 +comp_total75 : li %49, 4 --> comp_total74 +comp_total74 : mulo %47, %48, %49 --> comp_total73 +comp_total73 : add %164, %46, %47 --> comp_total230 +comp_total230: sw %45, 0(%164) --> comp_total72 +comp_total72 : emit c75 --> comp_total71 +comp_total71 : li %40, 0 --> comp_total70 +comp_total70 : move %41, $sp --> comp_total441 +comp_total441: addi %41, %41, 40 --> comp_total69 +comp_total69 : li %43, 9 --> comp_total68 +comp_total68 : li %44, 4 --> comp_total67 +comp_total67 : mulo %42, %43, %44 --> comp_total66 +comp_total66 : add %163, %41, %42 --> comp_total229 +comp_total229: sw %40, 0(%163) --> comp_total65 +comp_total65 : emit c74 --> comp_total64 +comp_total64 : li %39, 0 --> comp_total63 +comp_total63 : slt %38, %1, %2 --> comp_total62 +comp_total62 : beq %38, %39 --> comp_total40, comp_total61 +comp_total61 : emit c73 --> comp_total60 +comp_total60 : emit c72 --> comp_total59 +comp_total59 : li %5, 0 --> comp_total41 +comp_total41 : j --> comp_total58 +comp_total58 : li %36, 0 --> comp_total57 +comp_total57 : emit c71 --> comp_total56 +comp_total56 : sle %37, %5, %1 --> comp_total55 +comp_total55 : li %162, 0 --> comp_total228 +comp_total228: seq %35, %37, %162 --> comp_total54 +comp_total54 : beq %35, %36 --> comp_total53, comp_total2 +comp_total2 : emit c59 --> comp_total1 +comp_total1 : li %6, 0 --> comp_total0 +comp_total0 : j --> comp_total422 +comp_total422: move $v0, %6 --> comp_total421 +comp_total421: move $ra, %176 --> comp_total420 +comp_total420: move $s7, %175 --> comp_total419 +comp_total419: move $s6, %174 --> comp_total418 +comp_total418: move $s5, %173 --> comp_total417 +comp_total417: move $s4, %172 --> comp_total416 +comp_total416: move $s3, %171 --> comp_total415 +comp_total415: move $s2, %170 --> comp_total414 +comp_total414: move $s1, %169 --> comp_total413 +comp_total413: move $s0, %168 --> comp_total412 +comp_total412: delframe --> comp_total411 +comp_total411: jr $ra (xmits $v0) +comp_total53 : emit c69 --> comp_total52 +comp_total52 : sub %33, %1, %5 --> comp_total51 +comp_total51 : li %34, 4 --> comp_total50 +comp_total50 : mulo %32, %33, %34 --> comp_total49 +comp_total49 : add %161, %0, %32 --> comp_total227 +comp_total227: lw %28, 0(%161) --> comp_total48 +comp_total48 : move %29, $sp --> comp_total440 +comp_total440: move %29, %29 --> comp_total47 +comp_total47 : li %31, 4 --> comp_total46 +comp_total46 : mulo %30, %5, %31 --> comp_total45 +comp_total45 : add %160, %29, %30 --> comp_total226 +comp_total226: sw %28, 0(%160) --> comp_total44 +comp_total44 : emit c70 --> comp_total43 +comp_total43 : li %27, 1 --> comp_total42 +comp_total42 : add %5, %5, %27 --> comp_total41 +comp_total40 : emit c68 --> comp_total39 +comp_total39 : emit c67 --> comp_total38 +comp_total38 : li %3, 0 --> comp_total3 +comp_total3 : j --> comp_total37 +comp_total37 : li %25, 0 --> comp_total36 +comp_total36 : emit c66 --> comp_total35 +comp_total35 : slt %26, %3, %1 --> comp_total34 +comp_total34 : li %159, 0 --> comp_total225 +comp_total225: seq %24, %26, %159 --> comp_total33 +comp_total33 : beq %24, %25 --> comp_total32, comp_total2 +comp_total32 : emit c64 --> comp_total31 +comp_total31 : emit c63 --> comp_total30 +comp_total30 : move %4, %2 --> comp_total7 +comp_total7 : j --> comp_total29 +comp_total29 : li %21, 0 --> comp_total28 +comp_total28 : emit c62 --> comp_total27 +comp_total27 : li %23, 0 --> comp_total26 +comp_total26 : sgt %22, %4, %23 --> comp_total25 +comp_total25 : li %158, 0 --> comp_total224 +comp_total224: seq %20, %22, %158 --> comp_total24 +comp_total24 : beq %20, %21 --> comp_total23, comp_total6 +comp_total6 : emit c65 --> comp_total5 +comp_total5 : li %7, 1 --> comp_total4 +comp_total4 : add %3, %3, %7 --> comp_total3 +comp_total23 : emit c60 --> comp_total22 +comp_total22 : move %17, $sp --> comp_total439 +comp_total439: move %17, %17 --> comp_total21 +comp_total21 : li %19, 4 --> comp_total20 +comp_total20 : mulo %18, %3, %19 --> comp_total19 +comp_total19 : add %155, %17, %18 --> comp_total221 +comp_total221: lw %12, 0(%155) --> comp_total18 +comp_total18 : move %14, $sp --> comp_total434 +comp_total434: addi %14, %14, 40 --> comp_total17 +comp_total17 : li %16, 4 --> comp_total16 +comp_total16 : mulo %15, %4, %16 --> comp_total15 +comp_total15 : add %148, %14, %15 --> comp_total214 +comp_total214: lw %13, 0(%148) --> comp_total14 +comp_total14 : add %9, %12, %13 --> comp_total13 +comp_total13 : li %11, 4 --> comp_total12 +comp_total12 : mulo %10, %3, %11 --> comp_total11 +comp_total11 : add %142, %0, %10 --> comp_total208 +comp_total208: sw %9, 0(%142) --> comp_total10 +comp_total10 : emit c61 --> comp_total9 +comp_total9 : li %8, 1 --> comp_total8 +comp_total8 : sub %4, %4, %8 --> comp_total7 + +procedure comp_ifFor(3) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20 +entry comp_ifFor45 +comp_ifFor45: newframe --> comp_ifFor44 +comp_ifFor44: move %20, $ra --> comp_ifFor43 +comp_ifFor43: move %19, $s7 --> comp_ifFor42 +comp_ifFor42: move %18, $s6 --> comp_ifFor41 +comp_ifFor41: move %17, $s5 --> comp_ifFor40 +comp_ifFor40: move %16, $s4 --> comp_ifFor39 +comp_ifFor39: move %15, $s3 --> comp_ifFor38 +comp_ifFor38: move %14, $s2 --> comp_ifFor37 +comp_ifFor37: move %13, $s1 --> comp_ifFor36 +comp_ifFor36: move %12, $s0 --> comp_ifFor35 +comp_ifFor35: move %0, $a0 --> comp_ifFor34 +comp_ifFor34: move %1, $a1 --> comp_ifFor33 +comp_ifFor33: move %2, $a2 --> comp_ifFor32 +comp_ifFor32: li %3, 0 --> comp_ifFor31 +comp_ifFor31: li %4, 0 --> comp_ifFor30 +comp_ifFor30: li %6, 0 --> comp_ifFor29 +comp_ifFor29: li %7, 0 --> comp_ifFor28 +comp_ifFor28: li %8, 0 --> comp_ifFor27 +comp_ifFor27: li %9, 0 --> comp_ifFor26 +comp_ifFor26: li %10, 0 --> comp_ifFor25 +comp_ifFor25: li %11, 0 --> comp_ifFor23 +comp_ifFor23: emit c58 --> comp_ifFor22 +comp_ifFor22: li %4, 0 --> comp_ifFor21 +comp_ifFor21: emit c57 --> comp_ifFor20 +comp_ifFor20: emit c56 --> comp_ifFor19 +comp_ifFor19: li %3, 0 --> comp_ifFor3 +comp_ifFor3 : j --> comp_ifFor18 +comp_ifFor18: li %9, 0 --> comp_ifFor17 +comp_ifFor17: emit c55 --> comp_ifFor16 +comp_ifFor16: slt %10, %3, %0 --> comp_ifFor15 +comp_ifFor15: li %11, 0 --> comp_ifFor24 +comp_ifFor24: seq %8, %10, %11 --> comp_ifFor14 +comp_ifFor14: beq %8, %9 --> comp_ifFor13, comp_ifFor2 +comp_ifFor2 : emit c50 --> comp_ifFor1 +comp_ifFor1 : move %5, %4 --> comp_ifFor0 +comp_ifFor0 : j --> comp_ifFor57 +comp_ifFor57: move $v0, %5 --> comp_ifFor56 +comp_ifFor56: move $ra, %20 --> comp_ifFor55 +comp_ifFor55: move $s7, %19 --> comp_ifFor54 +comp_ifFor54: move $s6, %18 --> comp_ifFor53 +comp_ifFor53: move $s5, %17 --> comp_ifFor52 +comp_ifFor52: move $s4, %16 --> comp_ifFor51 +comp_ifFor51: move $s3, %15 --> comp_ifFor50 +comp_ifFor50: move $s2, %14 --> comp_ifFor49 +comp_ifFor49: move $s1, %13 --> comp_ifFor48 +comp_ifFor48: move $s0, %12 --> comp_ifFor47 +comp_ifFor47: delframe --> comp_ifFor46 +comp_ifFor46: jr $ra (xmits $v0) +comp_ifFor13: emit c53 --> comp_ifFor12 +comp_ifFor12: li %7, 0 --> comp_ifFor11 +comp_ifFor11: sne %6, %3, %1 --> comp_ifFor10 +comp_ifFor10: beq %6, %7 --> comp_ifFor7, comp_ifFor9 +comp_ifFor9 : emit c52 --> comp_ifFor8 +comp_ifFor8 : add %4, %4, %3 --> comp_ifFor5 +comp_ifFor5 : emit c54 --> comp_ifFor4 +comp_ifFor4 : add %3, %3, %2 --> comp_ifFor3 +comp_ifFor7 : emit c51 --> comp_ifFor6 +comp_ifFor6 : li %4, 0 --> comp_ifFor5 + +procedure comp_forif2(4) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62 +entry comp_forif2153 +comp_forif2153: newframe --> comp_forif2152 +comp_forif2152: move %62, $ra --> comp_forif2151 +comp_forif2151: move %61, $s7 --> comp_forif2150 +comp_forif2150: move %60, $s6 --> comp_forif2149 +comp_forif2149: move %59, $s5 --> comp_forif2148 +comp_forif2148: move %58, $s4 --> comp_forif2147 +comp_forif2147: move %57, $s3 --> comp_forif2146 +comp_forif2146: move %56, $s2 --> comp_forif2145 +comp_forif2145: move %55, $s1 --> comp_forif2144 +comp_forif2144: move %54, $s0 --> comp_forif2143 +comp_forif2143: move %0, $a0 --> comp_forif2142 +comp_forif2142: move %1, $a1 --> comp_forif2141 +comp_forif2141: move %2, $a2 --> comp_forif2140 +comp_forif2140: move %3, $a3 --> comp_forif2139 +comp_forif2139: li %4, 0 --> comp_forif2138 +comp_forif2138: li %5, 0 --> comp_forif2137 +comp_forif2137: li %6, 0 --> comp_forif2136 +comp_forif2136: li %7, 0 --> comp_forif2135 +comp_forif2135: li %8, 0 --> comp_forif2134 +comp_forif2134: li %10, 0 --> comp_forif2133 +comp_forif2133: li %11, 0 --> comp_forif2132 +comp_forif2132: li %12, 0 --> comp_forif2131 +comp_forif2131: li %13, 0 --> comp_forif2130 +comp_forif2130: li %14, 0 --> comp_forif2129 +comp_forif2129: li %15, 0 --> comp_forif2128 +comp_forif2128: li %16, 0 --> comp_forif2127 +comp_forif2127: li %17, 0 --> comp_forif2126 +comp_forif2126: li %18, 0 --> comp_forif2125 +comp_forif2125: li %19, 0 --> comp_forif2124 +comp_forif2124: li %20, 0 --> comp_forif2123 +comp_forif2123: li %21, 0 --> comp_forif2122 +comp_forif2122: li %22, 0 --> comp_forif2121 +comp_forif2121: li %23, 0 --> comp_forif2120 +comp_forif2120: li %24, 0 --> comp_forif2119 +comp_forif2119: li %25, 0 --> comp_forif2118 +comp_forif2118: li %26, 0 --> comp_forif2117 +comp_forif2117: li %27, 0 --> comp_forif2116 +comp_forif2116: li %28, 0 --> comp_forif2115 +comp_forif2115: li %29, 0 --> comp_forif2114 +comp_forif2114: li %30, 0 --> comp_forif2113 +comp_forif2113: li %31, 0 --> comp_forif2112 +comp_forif2112: li %32, 0 --> comp_forif2111 +comp_forif2111: li %33, 0 --> comp_forif2110 +comp_forif2110: li %34, 0 --> comp_forif2109 +comp_forif2109: li %35, 0 --> comp_forif2108 +comp_forif2108: li %36, 0 --> comp_forif2107 +comp_forif2107: li %37, 0 --> comp_forif2106 +comp_forif2106: li %38, 0 --> comp_forif2105 +comp_forif2105: li %39, 0 --> comp_forif2104 +comp_forif2104: li %40, 0 --> comp_forif2103 +comp_forif2103: li %41, 0 --> comp_forif2102 +comp_forif2102: li %42, 0 --> comp_forif2101 +comp_forif2101: li %43, 0 --> comp_forif2100 +comp_forif2100: li %44, 0 --> comp_forif299 +comp_forif299 : li %45, 0 --> comp_forif298 +comp_forif298 : li %46, 0 --> comp_forif297 +comp_forif297 : li %47, 0 --> comp_forif296 +comp_forif296 : li %48, 0 --> comp_forif295 +comp_forif295 : li %49, 0 --> comp_forif294 +comp_forif294 : li %50, 0 --> comp_forif293 +comp_forif293 : li %51, 0 --> comp_forif292 +comp_forif292 : li %52, 0 --> comp_forif291 +comp_forif291 : li %53, 0 --> comp_forif282 +comp_forif282 : emit c130 --> comp_forif281 +comp_forif281 : li %6, 0 --> comp_forif280 +comp_forif280 : emit c129 --> comp_forif279 +comp_forif279 : li %5, 0 --> comp_forif278 +comp_forif278 : emit c128 --> comp_forif277 +comp_forif277 : emit c127 --> comp_forif276 +comp_forif276 : li %8, 0 --> comp_forif262 +comp_forif262 : j --> comp_forif275 +comp_forif275 : li %44, 0 --> comp_forif274 +comp_forif274 : emit c126 --> comp_forif273 +comp_forif273 : slt %45, %8, %2 --> comp_forif272 +comp_forif272 : li %53, 0 --> comp_forif290 +comp_forif290 : seq %43, %45, %53 --> comp_forif271 +comp_forif271 : beq %43, %44 --> comp_forif270, comp_forif261 +comp_forif261 : emit c123 --> comp_forif260 +comp_forif260 : emit c122 --> comp_forif259 +comp_forif259 : li %7, 0 --> comp_forif245 +comp_forif245 : j --> comp_forif258 +comp_forif258 : li %37, 0 --> comp_forif257 +comp_forif257 : emit c121 --> comp_forif256 +comp_forif256 : slt %38, %7, %3 --> comp_forif255 +comp_forif255 : li %51, 0 --> comp_forif288 +comp_forif288 : seq %36, %38, %51 --> comp_forif254 +comp_forif254 : beq %36, %37 --> comp_forif253, comp_forif244 +comp_forif244 : emit c118 --> comp_forif243 +comp_forif243 : li %21, 0 --> comp_forif242 +comp_forif242 : li %28, 0 --> comp_forif241 +comp_forif241 : emit c117 --> comp_forif240 +comp_forif240 : li %31, 2 --> comp_forif239 +comp_forif239 : la %49, mod --> comp_forif286 +comp_forif286 : j --> comp_forif2181 +comp_forif2181: move $a0, %6 --> comp_forif2180 +comp_forif2180: move $a1, %31 --> comp_forif2179 +comp_forif2179: call %49(2) --> comp_forif2178 +comp_forif2178: move %29, $v0 --> comp_forif238 +comp_forif238 : li %30, 0 --> comp_forif237 +comp_forif237 : seq %27, %29, %30 --> comp_forif236 +comp_forif236 : beq %27, %28 --> comp_forif226, comp_forif235 +comp_forif235 : li %23, 0 --> comp_forif234 +comp_forif234 : emit c116 --> comp_forif233 +comp_forif233 : li %26, 2 --> comp_forif232 +comp_forif232 : la %48, mod --> comp_forif285 +comp_forif285 : j --> comp_forif2177 +comp_forif2177: move $a0, %5 --> comp_forif2176 +comp_forif2176: move $a1, %26 --> comp_forif2175 +comp_forif2175: call %48(2) --> comp_forif2174 +comp_forif2174: move %24, $v0 --> comp_forif231 +comp_forif231 : li %25, 0 --> comp_forif230 +comp_forif230 : seq %22, %24, %25 --> comp_forif229 +comp_forif229 : beq %22, %23 --> comp_forif227, comp_forif228 +comp_forif228 : li %20, 1 --> comp_forif225 +comp_forif225 : beq %20, %21 --> comp_forif222, comp_forif224 +comp_forif224 : emit c115 --> comp_forif223 +comp_forif223 : li %4, 0 --> comp_forif22 +comp_forif22 : emit c109 --> comp_forif21 +comp_forif21 : li %9, 0 --> comp_forif20 +comp_forif20 : j --> comp_forif2165 +comp_forif2165: move $v0, %9 --> comp_forif2164 +comp_forif2164: move $ra, %62 --> comp_forif2163 +comp_forif2163: move $s7, %61 --> comp_forif2162 +comp_forif2162: move $s6, %60 --> comp_forif2161 +comp_forif2161: move $s5, %59 --> comp_forif2160 +comp_forif2160: move $s4, %58 --> comp_forif2159 +comp_forif2159: move $s3, %57 --> comp_forif2158 +comp_forif2158: move $s2, %56 --> comp_forif2157 +comp_forif2157: move $s1, %55 --> comp_forif2156 +comp_forif2156: move $s0, %54 --> comp_forif2155 +comp_forif2155: delframe --> comp_forif2154 +comp_forif2154: jr $ra (xmits $v0) +comp_forif222 : emit c114 --> comp_forif221 +comp_forif221 : li %16, 0 --> comp_forif220 +comp_forif220 : li %19, 2 --> comp_forif219 +comp_forif219 : la %47, mod --> comp_forif284 +comp_forif284 : j --> comp_forif2173 +comp_forif2173: move $a0, %6 --> comp_forif2172 +comp_forif2172: move $a1, %19 --> comp_forif2171 +comp_forif2171: call %47(2) --> comp_forif2170 +comp_forif2170: move %17, $v0 --> comp_forif218 +comp_forif218 : li %18, 0 --> comp_forif217 +comp_forif217 : seq %15, %17, %18 --> comp_forif216 +comp_forif216 : beq %15, %16 --> comp_forif213, comp_forif215 +comp_forif215 : emit c113 --> comp_forif214 +comp_forif214 : li %4, 1 --> comp_forif22 +comp_forif213 : emit c112 --> comp_forif212 +comp_forif212 : li %11, 0 --> comp_forif211 +comp_forif211 : li %14, 2 --> comp_forif210 +comp_forif210 : la %46, mod --> comp_forif283 +comp_forif283 : j --> comp_forif2169 +comp_forif2169: move $a0, %5 --> comp_forif2168 +comp_forif2168: move $a1, %14 --> comp_forif2167 +comp_forif2167: call %46(2) --> comp_forif2166 +comp_forif2166: move %12, $v0 --> comp_forif29 +comp_forif29 : li %13, 0 --> comp_forif28 +comp_forif28 : seq %10, %12, %13 --> comp_forif27 +comp_forif27 : beq %10, %11 --> comp_forif24, comp_forif26 +comp_forif26 : emit c111 --> comp_forif25 +comp_forif25 : li %4, 2 --> comp_forif22 +comp_forif24 : emit c110 --> comp_forif23 +comp_forif23 : li %4, 3 --> comp_forif22 +comp_forif227 : li %20, 0 --> comp_forif225 +comp_forif226 : li %20, 0 --> comp_forif225 +comp_forif253 : emit c119 --> comp_forif252 +comp_forif252 : li %35, 4 --> comp_forif251 +comp_forif251 : mulo %34, %7, %35 --> comp_forif250 +comp_forif250 : add %50, %1, %34 --> comp_forif287 +comp_forif287 : lw %33, 0(%50) --> comp_forif249 +comp_forif249 : add %5, %5, %33 --> comp_forif248 +comp_forif248 : emit c120 --> comp_forif247 +comp_forif247 : li %32, 1 --> comp_forif246 +comp_forif246 : add %7, %7, %32 --> comp_forif245 +comp_forif270 : emit c124 --> comp_forif269 +comp_forif269 : li %42, 4 --> comp_forif268 +comp_forif268 : mulo %41, %8, %42 --> comp_forif267 +comp_forif267 : add %52, %0, %41 --> comp_forif289 +comp_forif289 : lw %40, 0(%52) --> comp_forif266 +comp_forif266 : add %6, %6, %40 --> comp_forif265 +comp_forif265 : emit c125 --> comp_forif264 +comp_forif264 : li %39, 1 --> comp_forif263 +comp_forif263 : add %8, %8, %39 --> comp_forif262 + +procedure comp_forif(0) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27 +entry comp_forif65 +comp_forif65: newframe --> comp_forif64 +comp_forif64: move %27, $ra --> comp_forif63 +comp_forif63: move %26, $s7 --> comp_forif62 +comp_forif62: move %25, $s6 --> comp_forif61 +comp_forif61: move %24, $s5 --> comp_forif60 +comp_forif60: move %23, $s4 --> comp_forif59 +comp_forif59: move %22, $s3 --> comp_forif58 +comp_forif58: move %21, $s2 --> comp_forif57 +comp_forif57: move %20, $s1 --> comp_forif56 +comp_forif56: move %19, $s0 --> comp_forif55 +comp_forif55: li %0, 0 --> comp_forif54 +comp_forif54: li %1, 0 --> comp_forif53 +comp_forif53: li %2, 0 --> comp_forif52 +comp_forif52: li %4, 0 --> comp_forif51 +comp_forif51: li %5, 0 --> comp_forif50 +comp_forif50: li %6, 0 --> comp_forif49 +comp_forif49: li %7, 0 --> comp_forif48 +comp_forif48: li %8, 0 --> comp_forif47 +comp_forif47: li %9, 0 --> comp_forif46 +comp_forif46: li %10, 0 --> comp_forif45 +comp_forif45: li %11, 0 --> comp_forif44 +comp_forif44: li %12, 0 --> comp_forif43 +comp_forif43: li %13, 0 --> comp_forif42 +comp_forif42: li %14, 0 --> comp_forif41 +comp_forif41: li %15, 0 --> comp_forif40 +comp_forif40: li %16, 0 --> comp_forif39 +comp_forif39: li %17, 0 --> comp_forif38 +comp_forif38: li %18, 0 --> comp_forif35 +comp_forif35: emit c141 --> comp_forif34 +comp_forif34: li %1, 0 --> comp_forif33 +comp_forif33: emit c140 --> comp_forif32 +comp_forif32: li %0, 0 --> comp_forif31 +comp_forif31: emit c139 --> comp_forif30 +comp_forif30: emit c138 --> comp_forif29 +comp_forif29: li %2, 0 --> comp_forif3 +comp_forif3 : j --> comp_forif28 +comp_forif28: li %14, 0 --> comp_forif27 +comp_forif27: emit c137 --> comp_forif26 +comp_forif26: li %16, 10 --> comp_forif25 +comp_forif25: slt %15, %2, %16 --> comp_forif24 +comp_forif24: li %18, 0 --> comp_forif37 +comp_forif37: seq %13, %15, %18 --> comp_forif23 +comp_forif23: beq %13, %14 --> comp_forif22, comp_forif2 +comp_forif2 : emit c131 --> comp_forif1 +comp_forif1 : move %3, %1 --> comp_forif0 +comp_forif0 : j --> comp_forif77 +comp_forif77: move $v0, %3 --> comp_forif76 +comp_forif76: move $ra, %27 --> comp_forif75 +comp_forif75: move $s7, %26 --> comp_forif74 +comp_forif74: move $s6, %25 --> comp_forif73 +comp_forif73: move $s5, %24 --> comp_forif72 +comp_forif72: move $s4, %23 --> comp_forif71 +comp_forif71: move $s3, %22 --> comp_forif70 +comp_forif70: move $s2, %21 --> comp_forif69 +comp_forif69: move $s1, %20 --> comp_forif68 +comp_forif68: move $s0, %19 --> comp_forif67 +comp_forif67: delframe --> comp_forif66 +comp_forif66: jr $ra (xmits $v0) +comp_forif22: emit c135 --> comp_forif21 +comp_forif21: li %12, 1 --> comp_forif20 +comp_forif20: add %1, %1, %12 --> comp_forif19 +comp_forif19: emit c134 --> comp_forif18 +comp_forif18: li %11, 1 --> comp_forif17 +comp_forif17: add %1, %1, %11 --> comp_forif16 +comp_forif16: emit c133 --> comp_forif15 +comp_forif15: li %7, 0 --> comp_forif14 +comp_forif14: li %10, 2 --> comp_forif13 +comp_forif13: la %17, mod --> comp_forif36 +comp_forif36: j --> comp_forif81 +comp_forif81: move $a0, %2 --> comp_forif80 +comp_forif80: move $a1, %10 --> comp_forif79 +comp_forif79: call %17(2) --> comp_forif78 +comp_forif78: move %8, $v0 --> comp_forif12 +comp_forif12: li %9, 0 --> comp_forif11 +comp_forif11: seq %6, %8, %9 --> comp_forif10 +comp_forif10: beq %6, %7 --> comp_forif6, comp_forif9 +comp_forif9 : emit c132 --> comp_forif8 +comp_forif8 : li %5, 1 --> comp_forif7 +comp_forif7 : add %0, %0, %5 --> comp_forif6 +comp_forif6 : emit c136 --> comp_forif5 +comp_forif5 : li %4, 1 --> comp_forif4 +comp_forif4 : add %2, %2, %4 --> comp_forif3 + +procedure comp_fir_basic(5) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62 +entry comp_fir_basic141 +comp_fir_basic141: newframe --> comp_fir_basic140 +comp_fir_basic140: move %62, $ra --> comp_fir_basic139 +comp_fir_basic139: move %61, $s7 --> comp_fir_basic138 +comp_fir_basic138: move %60, $s6 --> comp_fir_basic137 +comp_fir_basic137: move %59, $s5 --> comp_fir_basic136 +comp_fir_basic136: move %58, $s4 --> comp_fir_basic135 +comp_fir_basic135: move %57, $s3 --> comp_fir_basic134 +comp_fir_basic134: move %56, $s2 --> comp_fir_basic133 +comp_fir_basic133: move %55, $s1 --> comp_fir_basic132 +comp_fir_basic132: move %54, $s0 --> comp_fir_basic131 +comp_fir_basic131: move %0, $a0 --> comp_fir_basic130 +comp_fir_basic130: move %1, $a1 --> comp_fir_basic129 +comp_fir_basic129: move %2, $a2 --> comp_fir_basic128 +comp_fir_basic128: move %3, $a3 --> comp_fir_basic127 +comp_fir_basic127: gets %4, in(0) --> comp_fir_basic126 +comp_fir_basic126: li %5, 0 --> comp_fir_basic125 +comp_fir_basic125: li %6, 0 --> comp_fir_basic124 +comp_fir_basic124: li %7, 0 --> comp_fir_basic123 +comp_fir_basic123: li %8, 0 --> comp_fir_basic122 +comp_fir_basic122: li %10, 0 --> comp_fir_basic121 +comp_fir_basic121: li %11, 0 --> comp_fir_basic120 +comp_fir_basic120: li %12, 0 --> comp_fir_basic119 +comp_fir_basic119: li %13, 0 --> comp_fir_basic118 +comp_fir_basic118: li %14, 0 --> comp_fir_basic117 +comp_fir_basic117: li %15, 0 --> comp_fir_basic116 +comp_fir_basic116: li %16, 0 --> comp_fir_basic115 +comp_fir_basic115: li %17, 0 --> comp_fir_basic114 +comp_fir_basic114: li %18, 0 --> comp_fir_basic113 +comp_fir_basic113: li %19, 0 --> comp_fir_basic112 +comp_fir_basic112: li %20, 0 --> comp_fir_basic111 +comp_fir_basic111: li %21, 0 --> comp_fir_basic110 +comp_fir_basic110: li %22, 0 --> comp_fir_basic109 +comp_fir_basic109: li %23, 0 --> comp_fir_basic108 +comp_fir_basic108: li %24, 0 --> comp_fir_basic107 +comp_fir_basic107: li %25, 0 --> comp_fir_basic106 +comp_fir_basic106: li %26, 0 --> comp_fir_basic105 +comp_fir_basic105: li %27, 0 --> comp_fir_basic104 +comp_fir_basic104: li %28, 0 --> comp_fir_basic103 +comp_fir_basic103: li %29, 0 --> comp_fir_basic102 +comp_fir_basic102: li %30, 0 --> comp_fir_basic101 +comp_fir_basic101: li %31, 0 --> comp_fir_basic100 +comp_fir_basic100: li %32, 0 --> comp_fir_basic99 +comp_fir_basic99 : li %33, 0 --> comp_fir_basic98 +comp_fir_basic98 : li %34, 0 --> comp_fir_basic97 +comp_fir_basic97 : li %35, 0 --> comp_fir_basic96 +comp_fir_basic96 : li %36, 0 --> comp_fir_basic95 +comp_fir_basic95 : li %37, 0 --> comp_fir_basic94 +comp_fir_basic94 : li %38, 0 --> comp_fir_basic93 +comp_fir_basic93 : li %39, 0 --> comp_fir_basic92 +comp_fir_basic92 : li %40, 0 --> comp_fir_basic91 +comp_fir_basic91 : li %41, 0 --> comp_fir_basic90 +comp_fir_basic90 : li %42, 0 --> comp_fir_basic89 +comp_fir_basic89 : li %43, 0 --> comp_fir_basic88 +comp_fir_basic88 : li %44, 0 --> comp_fir_basic87 +comp_fir_basic87 : li %45, 0 --> comp_fir_basic86 +comp_fir_basic86 : li %46, 0 --> comp_fir_basic85 +comp_fir_basic85 : li %47, 0 --> comp_fir_basic84 +comp_fir_basic84 : li %48, 0 --> comp_fir_basic83 +comp_fir_basic83 : li %49, 0 --> comp_fir_basic82 +comp_fir_basic82 : li %50, 0 --> comp_fir_basic81 +comp_fir_basic81 : li %51, 0 --> comp_fir_basic80 +comp_fir_basic80 : li %52, 0 --> comp_fir_basic79 +comp_fir_basic79 : li %53, 0 --> comp_fir_basic69 +comp_fir_basic69 : emit c16 --> comp_fir_basic68 +comp_fir_basic68 : li %5, 0 --> comp_fir_basic67 +comp_fir_basic67 : emit c15 --> comp_fir_basic66 +comp_fir_basic66 : emit c14 --> comp_fir_basic65 +comp_fir_basic65 : li %6, 0 --> comp_fir_basic3 +comp_fir_basic3 : j --> comp_fir_basic64 +comp_fir_basic64 : li %42, 0 --> comp_fir_basic63 +comp_fir_basic63 : emit c13 --> comp_fir_basic62 +comp_fir_basic62 : li %44, 3 --> comp_fir_basic61 +comp_fir_basic61 : slt %43, %6, %44 --> comp_fir_basic60 +comp_fir_basic60 : li %53, 0 --> comp_fir_basic78 +comp_fir_basic78 : seq %41, %43, %53 --> comp_fir_basic59 +comp_fir_basic59 : beq %41, %42 --> comp_fir_basic58, comp_fir_basic2 +comp_fir_basic2 : emit c0 --> comp_fir_basic1 +comp_fir_basic1 : move %9, %5 --> comp_fir_basic0 +comp_fir_basic0 : j --> comp_fir_basic153 +comp_fir_basic153: move $v0, %9 --> comp_fir_basic152 +comp_fir_basic152: move $ra, %62 --> comp_fir_basic151 +comp_fir_basic151: move $s7, %61 --> comp_fir_basic150 +comp_fir_basic150: move $s6, %60 --> comp_fir_basic149 +comp_fir_basic149: move $s5, %59 --> comp_fir_basic148 +comp_fir_basic148: move $s4, %58 --> comp_fir_basic147 +comp_fir_basic147: move $s3, %57 --> comp_fir_basic146 +comp_fir_basic146: move $s2, %56 --> comp_fir_basic145 +comp_fir_basic145: move $s1, %55 --> comp_fir_basic144 +comp_fir_basic144: move $s0, %54 --> comp_fir_basic143 +comp_fir_basic143: delframe --> comp_fir_basic142 +comp_fir_basic142: jr $ra (xmits $v0) +comp_fir_basic58 : emit c11 --> comp_fir_basic57 +comp_fir_basic57 : li %40, 4 --> comp_fir_basic56 +comp_fir_basic56 : mulo %39, %6, %40 --> comp_fir_basic55 +comp_fir_basic55 : add %52, %0, %39 --> comp_fir_basic77 +comp_fir_basic77 : lw %35, 0(%52) --> comp_fir_basic54 +comp_fir_basic54 : li %37, 0 --> comp_fir_basic53 +comp_fir_basic53 : li %38, 4 --> comp_fir_basic52 +comp_fir_basic52 : mulo %36, %37, %38 --> comp_fir_basic51 +comp_fir_basic51 : add %51, %2, %36 --> comp_fir_basic76 +comp_fir_basic76 : sw %35, 0(%51) --> comp_fir_basic50 +comp_fir_basic50 : emit c10 --> comp_fir_basic49 +comp_fir_basic49 : emit c9 --> comp_fir_basic48 +comp_fir_basic48 : li %8, 0 --> comp_fir_basic29 +comp_fir_basic29 : j --> comp_fir_basic47 +comp_fir_basic47 : li %32, 0 --> comp_fir_basic46 +comp_fir_basic46 : emit c8 --> comp_fir_basic45 +comp_fir_basic45 : li %34, 3 --> comp_fir_basic44 +comp_fir_basic44 : slt %33, %8, %34 --> comp_fir_basic43 +comp_fir_basic43 : li %50, 0 --> comp_fir_basic75 +comp_fir_basic75 : seq %31, %33, %50 --> comp_fir_basic42 +comp_fir_basic42 : beq %31, %32 --> comp_fir_basic41, comp_fir_basic28 +comp_fir_basic28 : emit c5 --> comp_fir_basic27 +comp_fir_basic27 : emit c4 --> comp_fir_basic26 +comp_fir_basic26 : li %7, 2 --> comp_fir_basic7 +comp_fir_basic7 : j --> comp_fir_basic25 +comp_fir_basic25 : li %20, 0 --> comp_fir_basic24 +comp_fir_basic24 : emit c3 --> comp_fir_basic23 +comp_fir_basic23 : li %22, 0 --> comp_fir_basic22 +comp_fir_basic22 : sge %21, %7, %22 --> comp_fir_basic21 +comp_fir_basic21 : li %47, 0 --> comp_fir_basic72 +comp_fir_basic72 : seq %19, %21, %47 --> comp_fir_basic20 +comp_fir_basic20 : beq %19, %20 --> comp_fir_basic19, comp_fir_basic6 +comp_fir_basic6 : emit c12 --> comp_fir_basic5 +comp_fir_basic5 : li %10, 1 --> comp_fir_basic4 +comp_fir_basic4 : add %6, %6, %10 --> comp_fir_basic3 +comp_fir_basic19 : emit c1 --> comp_fir_basic18 +comp_fir_basic18 : li %18, 4 --> comp_fir_basic17 +comp_fir_basic17 : mulo %17, %7, %18 --> comp_fir_basic16 +comp_fir_basic16 : add %46, %2, %17 --> comp_fir_basic71 +comp_fir_basic71 : lw %12, 0(%46) --> comp_fir_basic15 +comp_fir_basic15 : li %16, 1 --> comp_fir_basic14 +comp_fir_basic14 : add %14, %7, %16 --> comp_fir_basic13 +comp_fir_basic13 : li %15, 4 --> comp_fir_basic12 +comp_fir_basic12 : mulo %13, %14, %15 --> comp_fir_basic11 +comp_fir_basic11 : add %45, %2, %13 --> comp_fir_basic70 +comp_fir_basic70 : sw %12, 0(%45) --> comp_fir_basic10 +comp_fir_basic10 : emit c2 --> comp_fir_basic9 +comp_fir_basic9 : li %11, 1 --> comp_fir_basic8 +comp_fir_basic8 : sub %7, %7, %11 --> comp_fir_basic7 +comp_fir_basic41 : emit c6 --> comp_fir_basic40 +comp_fir_basic40 : li %30, 4 --> comp_fir_basic39 +comp_fir_basic39 : mulo %29, %8, %30 --> comp_fir_basic38 +comp_fir_basic38 : add %49, %1, %29 --> comp_fir_basic74 +comp_fir_basic74 : lw %25, 0(%49) --> comp_fir_basic37 +comp_fir_basic37 : li %28, 4 --> comp_fir_basic36 +comp_fir_basic36 : mulo %27, %8, %28 --> comp_fir_basic35 +comp_fir_basic35 : add %48, %2, %27 --> comp_fir_basic73 +comp_fir_basic73 : lw %26, 0(%48) --> comp_fir_basic34 +comp_fir_basic34 : mulo %24, %25, %26 --> comp_fir_basic33 +comp_fir_basic33 : add %5, %5, %24 --> comp_fir_basic32 +comp_fir_basic32 : emit c7 --> comp_fir_basic31 +comp_fir_basic31 : li %23, 1 --> comp_fir_basic30 +comp_fir_basic30 : add %8, %8, %23 --> comp_fir_basic29 + +procedure comp_fir16(4) +stacksize 64 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106, %107, %108, %109, %110, %111, + %112, %113, %114, %115, %116, %117, %118, + %119, %120, %121, %122, %123, %124, %125, + %126, %127, %128, %129, %130, %131, %132, + %133, %134, %135, %136, %137, %138, %139, + %140, %141, %142, %143, %144, %145, %146, + %147, %148, %149, %150, %151, %152, %153, + %154, %155, %156, %157, %158, %159, %160, + %161, %162 +entry comp_fir16373 +comp_fir16373: newframe --> comp_fir16372 +comp_fir16372: move %162, $ra --> comp_fir16371 +comp_fir16371: move %161, $s7 --> comp_fir16370 +comp_fir16370: move %160, $s6 --> comp_fir16369 +comp_fir16369: move %159, $s5 --> comp_fir16368 +comp_fir16368: move %158, $s4 --> comp_fir16367 +comp_fir16367: move %157, $s3 --> comp_fir16366 +comp_fir16366: move %156, $s2 --> comp_fir16365 +comp_fir16365: move %155, $s1 --> comp_fir16364 +comp_fir16364: move %154, $s0 --> comp_fir16363 +comp_fir16363: move %0, $a0 --> comp_fir16362 +comp_fir16362: move %1, $a1 --> comp_fir16361 +comp_fir16361: move %2, $a2 --> comp_fir16360 +comp_fir16360: move %3, $a3 --> comp_fir16359 +comp_fir16359: li %4, 0 --> comp_fir16358 +comp_fir16358: li %5, 0 --> comp_fir16357 +comp_fir16357: li %6, 0 --> comp_fir16356 +comp_fir16356: li %7, 0 --> comp_fir16355 +comp_fir16355: li %8, 0 --> comp_fir16354 +comp_fir16354: li %10, 0 --> comp_fir16353 +comp_fir16353: li %11, 0 --> comp_fir16352 +comp_fir16352: li %12, 0 --> comp_fir16351 +comp_fir16351: li %13, 0 --> comp_fir16350 +comp_fir16350: li %14, 0 --> comp_fir16349 +comp_fir16349: li %15, 0 --> comp_fir16348 +comp_fir16348: li %16, 0 --> comp_fir16347 +comp_fir16347: li %17, 0 --> comp_fir16346 +comp_fir16346: li %18, 0 --> comp_fir16345 +comp_fir16345: li %19, 0 --> comp_fir16344 +comp_fir16344: li %20, 0 --> comp_fir16343 +comp_fir16343: li %21, 0 --> comp_fir16342 +comp_fir16342: li %22, 0 --> comp_fir16341 +comp_fir16341: li %23, 0 --> comp_fir16340 +comp_fir16340: li %24, 0 --> comp_fir16339 +comp_fir16339: li %25, 0 --> comp_fir16338 +comp_fir16338: li %26, 0 --> comp_fir16337 +comp_fir16337: li %27, 0 --> comp_fir16336 +comp_fir16336: li %28, 0 --> comp_fir16335 +comp_fir16335: li %29, 0 --> comp_fir16334 +comp_fir16334: li %30, 0 --> comp_fir16333 +comp_fir16333: li %31, 0 --> comp_fir16332 +comp_fir16332: li %32, 0 --> comp_fir16331 +comp_fir16331: li %33, 0 --> comp_fir16330 +comp_fir16330: li %34, 0 --> comp_fir16329 +comp_fir16329: li %35, 0 --> comp_fir16328 +comp_fir16328: li %36, 0 --> comp_fir16327 +comp_fir16327: li %37, 0 --> comp_fir16326 +comp_fir16326: li %38, 0 --> comp_fir16325 +comp_fir16325: li %39, 0 --> comp_fir16324 +comp_fir16324: li %40, 0 --> comp_fir16323 +comp_fir16323: li %41, 0 --> comp_fir16322 +comp_fir16322: li %42, 0 --> comp_fir16321 +comp_fir16321: li %43, 0 --> comp_fir16320 +comp_fir16320: li %44, 0 --> comp_fir16319 +comp_fir16319: li %45, 0 --> comp_fir16318 +comp_fir16318: li %46, 0 --> comp_fir16317 +comp_fir16317: li %47, 0 --> comp_fir16316 +comp_fir16316: li %48, 0 --> comp_fir16315 +comp_fir16315: li %49, 0 --> comp_fir16314 +comp_fir16314: li %50, 0 --> comp_fir16313 +comp_fir16313: li %51, 0 --> comp_fir16312 +comp_fir16312: li %52, 0 --> comp_fir16311 +comp_fir16311: li %53, 0 --> comp_fir16310 +comp_fir16310: li %54, 0 --> comp_fir16309 +comp_fir16309: li %55, 0 --> comp_fir16308 +comp_fir16308: li %56, 0 --> comp_fir16307 +comp_fir16307: li %57, 0 --> comp_fir16306 +comp_fir16306: li %58, 0 --> comp_fir16305 +comp_fir16305: li %59, 0 --> comp_fir16304 +comp_fir16304: li %60, 0 --> comp_fir16303 +comp_fir16303: li %61, 0 --> comp_fir16302 +comp_fir16302: li %62, 0 --> comp_fir16301 +comp_fir16301: li %63, 0 --> comp_fir16300 +comp_fir16300: li %64, 0 --> comp_fir16299 +comp_fir16299: li %65, 0 --> comp_fir16298 +comp_fir16298: li %66, 0 --> comp_fir16297 +comp_fir16297: li %67, 0 --> comp_fir16296 +comp_fir16296: li %68, 0 --> comp_fir16295 +comp_fir16295: li %69, 0 --> comp_fir16294 +comp_fir16294: li %70, 0 --> comp_fir16293 +comp_fir16293: li %71, 0 --> comp_fir16292 +comp_fir16292: li %72, 0 --> comp_fir16291 +comp_fir16291: li %73, 0 --> comp_fir16290 +comp_fir16290: li %74, 0 --> comp_fir16289 +comp_fir16289: li %75, 0 --> comp_fir16288 +comp_fir16288: li %76, 0 --> comp_fir16287 +comp_fir16287: li %77, 0 --> comp_fir16286 +comp_fir16286: li %78, 0 --> comp_fir16285 +comp_fir16285: li %79, 0 --> comp_fir16284 +comp_fir16284: li %80, 0 --> comp_fir16283 +comp_fir16283: li %81, 0 --> comp_fir16282 +comp_fir16282: li %82, 0 --> comp_fir16281 +comp_fir16281: li %83, 0 --> comp_fir16280 +comp_fir16280: li %84, 0 --> comp_fir16279 +comp_fir16279: li %85, 0 --> comp_fir16278 +comp_fir16278: li %86, 0 --> comp_fir16277 +comp_fir16277: li %87, 0 --> comp_fir16276 +comp_fir16276: li %88, 0 --> comp_fir16275 +comp_fir16275: li %89, 0 --> comp_fir16274 +comp_fir16274: li %90, 0 --> comp_fir16273 +comp_fir16273: li %91, 0 --> comp_fir16272 +comp_fir16272: li %92, 0 --> comp_fir16271 +comp_fir16271: li %93, 0 --> comp_fir16270 +comp_fir16270: li %94, 0 --> comp_fir16269 +comp_fir16269: li %95, 0 --> comp_fir16268 +comp_fir16268: li %96, 0 --> comp_fir16267 +comp_fir16267: li %97, 0 --> comp_fir16266 +comp_fir16266: li %98, 0 --> comp_fir16265 +comp_fir16265: li %99, 0 --> comp_fir16264 +comp_fir16264: li %100, 0 --> comp_fir16263 +comp_fir16263: li %101, 0 --> comp_fir16262 +comp_fir16262: li %102, 0 --> comp_fir16261 +comp_fir16261: li %103, 0 --> comp_fir16260 +comp_fir16260: li %104, 0 --> comp_fir16259 +comp_fir16259: li %105, 0 --> comp_fir16258 +comp_fir16258: li %106, 0 --> comp_fir16257 +comp_fir16257: li %107, 0 --> comp_fir16256 +comp_fir16256: li %108, 0 --> comp_fir16255 +comp_fir16255: li %109, 0 --> comp_fir16254 +comp_fir16254: li %110, 0 --> comp_fir16253 +comp_fir16253: li %111, 0 --> comp_fir16252 +comp_fir16252: li %112, 0 --> comp_fir16251 +comp_fir16251: li %113, 0 --> comp_fir16250 +comp_fir16250: li %114, 0 --> comp_fir16249 +comp_fir16249: li %115, 0 --> comp_fir16248 +comp_fir16248: li %116, 0 --> comp_fir16247 +comp_fir16247: li %117, 0 --> comp_fir16246 +comp_fir16246: li %118, 0 --> comp_fir16245 +comp_fir16245: li %119, 0 --> comp_fir16244 +comp_fir16244: li %120, 0 --> comp_fir16243 +comp_fir16243: li %121, 0 --> comp_fir16242 +comp_fir16242: li %122, 0 --> comp_fir16241 +comp_fir16241: li %123, 0 --> comp_fir16240 +comp_fir16240: li %124, 0 --> comp_fir16239 +comp_fir16239: li %125, 0 --> comp_fir16238 +comp_fir16238: li %126, 0 --> comp_fir16237 +comp_fir16237: li %127, 0 --> comp_fir16236 +comp_fir16236: li %128, 0 --> comp_fir16235 +comp_fir16235: li %129, 0 --> comp_fir16234 +comp_fir16234: li %130, 0 --> comp_fir16233 +comp_fir16233: li %131, 0 --> comp_fir16232 +comp_fir16232: li %132, 0 --> comp_fir16231 +comp_fir16231: li %133, 0 --> comp_fir16230 +comp_fir16230: li %134, 0 --> comp_fir16229 +comp_fir16229: li %135, 0 --> comp_fir16228 +comp_fir16228: li %136, 0 --> comp_fir16227 +comp_fir16227: li %137, 0 --> comp_fir16226 +comp_fir16226: li %138, 0 --> comp_fir16225 +comp_fir16225: li %139, 0 --> comp_fir16224 +comp_fir16224: li %140, 0 --> comp_fir16223 +comp_fir16223: li %141, 0 --> comp_fir16222 +comp_fir16222: li %142, 0 --> comp_fir16221 +comp_fir16221: li %143, 0 --> comp_fir16220 +comp_fir16220: li %144, 0 --> comp_fir16219 +comp_fir16219: li %145, 0 --> comp_fir16218 +comp_fir16218: li %146, 0 --> comp_fir16217 +comp_fir16217: li %147, 0 --> comp_fir16216 +comp_fir16216: li %148, 0 --> comp_fir16215 +comp_fir16215: li %149, 0 --> comp_fir16214 +comp_fir16214: li %150, 0 --> comp_fir16213 +comp_fir16213: li %151, 0 --> comp_fir16212 +comp_fir16212: li %152, 0 --> comp_fir16211 +comp_fir16211: li %153, 0 --> comp_fir16184 +comp_fir16184: emit c49 --> comp_fir16183 +comp_fir16183: li %123, 0 --> comp_fir16182 +comp_fir16182: move %124, $sp --> comp_fir16397 +comp_fir16397: move %124, %124 --> comp_fir16181 +comp_fir16181: li %126, 0 --> comp_fir16180 +comp_fir16180: li %127, 4 --> comp_fir16179 +comp_fir16179: mulo %125, %126, %127 --> comp_fir16178 +comp_fir16178: add %142, %124, %125 --> comp_fir16199 +comp_fir16199: sw %123, 0(%142) --> comp_fir16177 +comp_fir16177: emit c48 --> comp_fir16176 +comp_fir16176: li %118, 0 --> comp_fir16175 +comp_fir16175: move %119, $sp --> comp_fir16396 +comp_fir16396: move %119, %119 --> comp_fir16174 +comp_fir16174: li %121, 1 --> comp_fir16173 +comp_fir16173: li %122, 4 --> comp_fir16172 +comp_fir16172: mulo %120, %121, %122 --> comp_fir16171 +comp_fir16171: add %141, %119, %120 --> comp_fir16198 +comp_fir16198: sw %118, 0(%141) --> comp_fir16170 +comp_fir16170: emit c47 --> comp_fir16169 +comp_fir16169: li %113, 0 --> comp_fir16168 +comp_fir16168: move %114, $sp --> comp_fir16395 +comp_fir16395: move %114, %114 --> comp_fir16167 +comp_fir16167: li %116, 2 --> comp_fir16166 +comp_fir16166: li %117, 4 --> comp_fir16165 +comp_fir16165: mulo %115, %116, %117 --> comp_fir16164 +comp_fir16164: add %140, %114, %115 --> comp_fir16197 +comp_fir16197: sw %113, 0(%140) --> comp_fir16163 +comp_fir16163: emit c46 --> comp_fir16162 +comp_fir16162: li %108, 0 --> comp_fir16161 +comp_fir16161: move %109, $sp --> comp_fir16394 +comp_fir16394: move %109, %109 --> comp_fir16160 +comp_fir16160: li %111, 3 --> comp_fir16159 +comp_fir16159: li %112, 4 --> comp_fir16158 +comp_fir16158: mulo %110, %111, %112 --> comp_fir16157 +comp_fir16157: add %139, %109, %110 --> comp_fir16196 +comp_fir16196: sw %108, 0(%139) --> comp_fir16156 +comp_fir16156: emit c45 --> comp_fir16155 +comp_fir16155: li %103, 0 --> comp_fir16154 +comp_fir16154: move %104, $sp --> comp_fir16393 +comp_fir16393: move %104, %104 --> comp_fir16153 +comp_fir16153: li %106, 4 --> comp_fir16152 +comp_fir16152: li %107, 4 --> comp_fir16151 +comp_fir16151: mulo %105, %106, %107 --> comp_fir16150 +comp_fir16150: add %138, %104, %105 --> comp_fir16195 +comp_fir16195: sw %103, 0(%138) --> comp_fir16149 +comp_fir16149: emit c44 --> comp_fir16148 +comp_fir16148: li %98, 0 --> comp_fir16147 +comp_fir16147: move %99, $sp --> comp_fir16392 +comp_fir16392: move %99, %99 --> comp_fir16146 +comp_fir16146: li %101, 5 --> comp_fir16145 +comp_fir16145: li %102, 4 --> comp_fir16144 +comp_fir16144: mulo %100, %101, %102 --> comp_fir16143 +comp_fir16143: add %136, %99, %100 --> comp_fir16193 +comp_fir16193: sw %98, 0(%136) --> comp_fir16142 +comp_fir16142: emit c43 --> comp_fir16141 +comp_fir16141: li %93, 0 --> comp_fir16140 +comp_fir16140: move %94, $sp --> comp_fir16391 +comp_fir16391: move %94, %94 --> comp_fir16139 +comp_fir16139: li %96, 6 --> comp_fir16138 +comp_fir16138: li %97, 4 --> comp_fir16137 +comp_fir16137: mulo %95, %96, %97 --> comp_fir16136 +comp_fir16136: add %135, %94, %95 --> comp_fir16192 +comp_fir16192: sw %93, 0(%135) --> comp_fir16135 +comp_fir16135: emit c42 --> comp_fir16134 +comp_fir16134: li %88, 0 --> comp_fir16133 +comp_fir16133: move %89, $sp --> comp_fir16390 +comp_fir16390: move %89, %89 --> comp_fir16132 +comp_fir16132: li %91, 7 --> comp_fir16131 +comp_fir16131: li %92, 4 --> comp_fir16130 +comp_fir16130: mulo %90, %91, %92 --> comp_fir16129 +comp_fir16129: add %134, %89, %90 --> comp_fir16191 +comp_fir16191: sw %88, 0(%134) --> comp_fir16128 +comp_fir16128: emit c41 --> comp_fir16127 +comp_fir16127: li %83, 0 --> comp_fir16126 +comp_fir16126: move %84, $sp --> comp_fir16389 +comp_fir16389: move %84, %84 --> comp_fir16125 +comp_fir16125: li %86, 8 --> comp_fir16124 +comp_fir16124: li %87, 4 --> comp_fir16123 +comp_fir16123: mulo %85, %86, %87 --> comp_fir16122 +comp_fir16122: add %133, %84, %85 --> comp_fir16190 +comp_fir16190: sw %83, 0(%133) --> comp_fir16121 +comp_fir16121: emit c40 --> comp_fir16120 +comp_fir16120: li %78, 0 --> comp_fir16119 +comp_fir16119: move %79, $sp --> comp_fir16388 +comp_fir16388: move %79, %79 --> comp_fir16118 +comp_fir16118: li %81, 9 --> comp_fir16117 +comp_fir16117: li %82, 4 --> comp_fir16116 +comp_fir16116: mulo %80, %81, %82 --> comp_fir16115 +comp_fir16115: add %132, %79, %80 --> comp_fir16189 +comp_fir16189: sw %78, 0(%132) --> comp_fir16114 +comp_fir16114: emit c39 --> comp_fir16113 +comp_fir16113: li %73, 0 --> comp_fir16112 +comp_fir16112: move %74, $sp --> comp_fir16387 +comp_fir16387: move %74, %74 --> comp_fir16111 +comp_fir16111: li %76, 10 --> comp_fir16110 +comp_fir16110: li %77, 4 --> comp_fir16109 +comp_fir16109: mulo %75, %76, %77 --> comp_fir16108 +comp_fir16108: add %130, %74, %75 --> comp_fir16187 +comp_fir16187: sw %73, 0(%130) --> comp_fir16107 +comp_fir16107: emit c38 --> comp_fir16106 +comp_fir16106: li %68, 0 --> comp_fir16105 +comp_fir16105: move %69, $sp --> comp_fir16386 +comp_fir16386: move %69, %69 --> comp_fir16104 +comp_fir16104: li %71, 11 --> comp_fir16103 +comp_fir16103: li %72, 4 --> comp_fir16102 +comp_fir16102: mulo %70, %71, %72 --> comp_fir16101 +comp_fir16101: add %129, %69, %70 --> comp_fir16186 +comp_fir16186: sw %68, 0(%129) --> comp_fir16100 +comp_fir16100: emit c37 --> comp_fir1699 +comp_fir1699 : li %63, 0 --> comp_fir1698 +comp_fir1698 : move %64, $sp --> comp_fir16412 +comp_fir16412: move %64, %64 --> comp_fir1697 +comp_fir1697 : li %66, 12 --> comp_fir1696 +comp_fir1696 : li %67, 4 --> comp_fir1695 +comp_fir1695 : mulo %65, %66, %67 --> comp_fir1694 +comp_fir1694 : add %153, %64, %65 --> comp_fir16210 +comp_fir16210: sw %63, 0(%153) --> comp_fir1693 +comp_fir1693 : emit c36 --> comp_fir1692 +comp_fir1692 : li %58, 0 --> comp_fir1691 +comp_fir1691 : move %59, $sp --> comp_fir16411 +comp_fir16411: move %59, %59 --> comp_fir1690 +comp_fir1690 : li %61, 13 --> comp_fir1689 +comp_fir1689 : li %62, 4 --> comp_fir1688 +comp_fir1688 : mulo %60, %61, %62 --> comp_fir1687 +comp_fir1687 : add %152, %59, %60 --> comp_fir16209 +comp_fir16209: sw %58, 0(%152) --> comp_fir1686 +comp_fir1686 : emit c35 --> comp_fir1685 +comp_fir1685 : li %53, 0 --> comp_fir1684 +comp_fir1684 : move %54, $sp --> comp_fir16410 +comp_fir16410: move %54, %54 --> comp_fir1683 +comp_fir1683 : li %56, 14 --> comp_fir1682 +comp_fir1682 : li %57, 4 --> comp_fir1681 +comp_fir1681 : mulo %55, %56, %57 --> comp_fir1680 +comp_fir1680 : add %151, %54, %55 --> comp_fir16208 +comp_fir16208: sw %53, 0(%151) --> comp_fir1679 +comp_fir1679 : emit c34 --> comp_fir1678 +comp_fir1678 : li %48, 0 --> comp_fir1677 +comp_fir1677 : move %49, $sp --> comp_fir16409 +comp_fir16409: move %49, %49 --> comp_fir1676 +comp_fir1676 : li %51, 15 --> comp_fir1675 +comp_fir1675 : li %52, 4 --> comp_fir1674 +comp_fir1674 : mulo %50, %51, %52 --> comp_fir1673 +comp_fir1673 : add %150, %49, %50 --> comp_fir16207 +comp_fir16207: sw %48, 0(%150) --> comp_fir1672 +comp_fir1672 : emit c33 --> comp_fir1671 +comp_fir1671 : li %8, 0 --> comp_fir1670 +comp_fir1670 : emit c32 --> comp_fir1669 +comp_fir1669 : li %4, 0 --> comp_fir1668 +comp_fir1668 : emit c31 --> comp_fir1667 +comp_fir1667 : emit c30 --> comp_fir1666 +comp_fir1666 : li %6, 0 --> comp_fir167 +comp_fir167 : j --> comp_fir1665 +comp_fir1665 : li %46, 0 --> comp_fir1664 +comp_fir1664 : emit c29 --> comp_fir1663 +comp_fir1663 : slt %47, %6, %3 --> comp_fir1662 +comp_fir1662 : li %149, 0 --> comp_fir16206 +comp_fir16206: seq %45, %47, %149 --> comp_fir1661 +comp_fir1661 : beq %45, %46 --> comp_fir1660, comp_fir166 +comp_fir166 : emit c17 --> comp_fir165 +comp_fir165 : move %10, $sp --> comp_fir16407 +comp_fir16407: move %10, %10 --> comp_fir164 +comp_fir164 : li %12, 0 --> comp_fir163 +comp_fir163 : li %13, 4 --> comp_fir162 +comp_fir162 : mulo %11, %12, %13 --> comp_fir161 +comp_fir161 : add %128, %10, %11 --> comp_fir16185 +comp_fir16185: lw %9, 0(%128) --> comp_fir160 +comp_fir160 : j --> comp_fir16385 +comp_fir16385: move $v0, %9 --> comp_fir16384 +comp_fir16384: move $ra, %162 --> comp_fir16383 +comp_fir16383: move $s7, %161 --> comp_fir16382 +comp_fir16382: move $s6, %160 --> comp_fir16381 +comp_fir16381: move $s5, %159 --> comp_fir16380 +comp_fir16380: move $s4, %158 --> comp_fir16379 +comp_fir16379: move $s3, %157 --> comp_fir16378 +comp_fir16378: move $s2, %156 --> comp_fir16377 +comp_fir16377: move $s1, %155 --> comp_fir16376 +comp_fir16376: move $s0, %154 --> comp_fir16375 +comp_fir16375: delframe --> comp_fir16374 +comp_fir16374: jr $ra (xmits $v0) +comp_fir1660 : emit c27 --> comp_fir1659 +comp_fir1659 : li %44, 4 --> comp_fir1658 +comp_fir1658 : mulo %43, %6, %44 --> comp_fir1657 +comp_fir1657 : add %148, %0, %43 --> comp_fir16205 +comp_fir16205: lw %39, 0(%148) --> comp_fir1656 +comp_fir1656 : move %40, $sp --> comp_fir16408 +comp_fir16408: move %40, %40 --> comp_fir1655 +comp_fir1655 : li %42, 4 --> comp_fir1654 +comp_fir1654 : mulo %41, %8, %42 --> comp_fir1653 +comp_fir1653 : add %147, %40, %41 --> comp_fir16204 +comp_fir16204: sw %39, 0(%147) --> comp_fir1652 +comp_fir1652 : emit c26 --> comp_fir1651 +comp_fir1651 : emit c25 --> comp_fir1650 +comp_fir1650 : li %7, 0 --> comp_fir1620 +comp_fir1620 : j --> comp_fir1649 +comp_fir1649 : li %36, 0 --> comp_fir1648 +comp_fir1648 : emit c24 --> comp_fir1647 +comp_fir1647 : li %38, 16 --> comp_fir1646 +comp_fir1646 : slt %37, %7, %38 --> comp_fir1645 +comp_fir1645 : li %146, 0 --> comp_fir16203 +comp_fir16203: seq %35, %37, %146 --> comp_fir1644 +comp_fir1644 : beq %35, %36 --> comp_fir1643, comp_fir1619 +comp_fir1619 : emit c19 --> comp_fir1618 +comp_fir1618 : li %19, 1 --> comp_fir1617 +comp_fir1617 : add %17, %8, %19 --> comp_fir1616 +comp_fir1616 : li %18, 16 --> comp_fir1615 +comp_fir1615 : la %137, mod --> comp_fir16194 +comp_fir16194: j --> comp_fir16401 +comp_fir16401: move $a0, %17 --> comp_fir16400 +comp_fir16400: move $a1, %18 --> comp_fir16399 +comp_fir16399: call %137(2) --> comp_fir16398 +comp_fir16398: move %8, $v0 --> comp_fir1614 +comp_fir1614 : emit c18 --> comp_fir1613 +comp_fir1613 : li %16, 4 --> comp_fir1612 +comp_fir1612 : mulo %15, %6, %16 --> comp_fir1611 +comp_fir1611 : add %131, %2, %15 --> comp_fir16188 +comp_fir16188: sw %4, 0(%131) --> comp_fir1610 +comp_fir1610 : emit c28 --> comp_fir169 +comp_fir169 : li %14, 1 --> comp_fir168 +comp_fir168 : add %6, %6, %14 --> comp_fir167 +comp_fir1643 : emit c22 --> comp_fir1642 +comp_fir1642 : move %32, $sp --> comp_fir16406 +comp_fir16406: move %32, %32 --> comp_fir1641 +comp_fir1641 : li %34, 4 --> comp_fir1640 +comp_fir1640 : mulo %33, %8, %34 --> comp_fir1639 +comp_fir1639 : add %145, %32, %33 --> comp_fir16202 +comp_fir16202: lw %28, 0(%145) --> comp_fir1638 +comp_fir1638 : li %31, 4 --> comp_fir1637 +comp_fir1637 : mulo %30, %7, %31 --> comp_fir1636 +comp_fir1636 : add %144, %1, %30 --> comp_fir16201 +comp_fir16201: lw %29, 0(%144) --> comp_fir1635 +comp_fir1635 : mulo %24, %28, %29 --> comp_fir1634 +comp_fir1634 : li %26, 2 --> comp_fir1633 +comp_fir1633 : li %27, 16 --> comp_fir1632 +comp_fir1632 : xor %25, %26, %27 --> comp_fir1631 +comp_fir1631 : mulo %5, %24, %25 --> comp_fir1630 +comp_fir1630 : emit c21 --> comp_fir1629 +comp_fir1629 : add %4, %4, %5 --> comp_fir1628 +comp_fir1628 : emit c20 --> comp_fir1627 +comp_fir1627 : li %23, 1 --> comp_fir1626 +comp_fir1626 : add %21, %8, %23 --> comp_fir1625 +comp_fir1625 : li %22, 16 --> comp_fir1624 +comp_fir1624 : la %143, mod --> comp_fir16200 +comp_fir16200: j --> comp_fir16405 +comp_fir16405: move $a0, %21 --> comp_fir16404 +comp_fir16404: move $a1, %22 --> comp_fir16403 +comp_fir16403: call %143(2) --> comp_fir16402 +comp_fir16402: move %8, $v0 --> comp_fir1623 +comp_fir1623 : emit c23 --> comp_fir1622 +comp_fir1622 : li %20, 1 --> comp_fir1621 +comp_fir1621 : add %7, %7, %20 --> comp_fir1620 + +procedure _main(0) +stacksize 64 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106, %107, %108, %109, %110, %111, + %112, %113, %114, %115, %116, %117, %118, + %119, %120, %121, %122, %123, %124, %125, + %126, %127, %128, %129, %130, %131, %132, + %133, %134 +entry main307 +main307: newframe --> main306 +main306: move %134, $ra --> main305 +main305: move %133, $s7 --> main304 +main304: move %132, $s6 --> main303 +main303: move %131, $s5 --> main302 +main302: move %130, $s4 --> main301 +main301: move %129, $s3 --> main300 +main300: move %128, $s2 --> main299 +main299: move %127, $s1 --> main298 +main298: move %126, $s0 --> main297 +main297: li %0, 0 --> main296 +main296: li %2, 0 --> main295 +main295: li %3, 0 --> main294 +main294: li %4, 0 --> main293 +main293: li %5, 0 --> main292 +main292: li %6, 0 --> main291 +main291: li %7, 0 --> main290 +main290: li %8, 0 --> main289 +main289: li %9, 0 --> main288 +main288: li %10, 0 --> main287 +main287: li %11, 0 --> main286 +main286: li %12, 0 --> main285 +main285: li %13, 0 --> main284 +main284: li %14, 0 --> main283 +main283: li %15, 0 --> main282 +main282: li %16, 0 --> main281 +main281: li %17, 0 --> main280 +main280: li %18, 0 --> main279 +main279: li %19, 0 --> main278 +main278: li %20, 0 --> main277 +main277: li %21, 0 --> main276 +main276: li %22, 0 --> main275 +main275: li %23, 0 --> main274 +main274: li %24, 0 --> main273 +main273: li %25, 0 --> main272 +main272: li %26, 0 --> main271 +main271: li %27, 0 --> main270 +main270: li %28, 0 --> main269 +main269: li %29, 0 --> main268 +main268: li %30, 0 --> main267 +main267: li %31, 0 --> main266 +main266: li %32, 0 --> main265 +main265: li %33, 0 --> main264 +main264: li %34, 0 --> main263 +main263: li %35, 0 --> main262 +main262: li %36, 0 --> main261 +main261: li %37, 0 --> main260 +main260: li %38, 0 --> main259 +main259: li %39, 0 --> main258 +main258: li %40, 0 --> main257 +main257: li %41, 0 --> main256 +main256: li %42, 0 --> main255 +main255: li %43, 0 --> main254 +main254: li %44, 0 --> main253 +main253: li %45, 0 --> main252 +main252: li %46, 0 --> main251 +main251: li %47, 0 --> main250 +main250: li %48, 0 --> main249 +main249: li %49, 0 --> main248 +main248: li %50, 0 --> main247 +main247: li %51, 0 --> main246 +main246: li %52, 0 --> main245 +main245: li %53, 0 --> main244 +main244: li %54, 0 --> main243 +main243: li %55, 0 --> main242 +main242: li %56, 0 --> main241 +main241: li %57, 0 --> main240 +main240: li %58, 0 --> main239 +main239: li %59, 0 --> main238 +main238: li %60, 0 --> main237 +main237: li %61, 0 --> main236 +main236: li %62, 0 --> main235 +main235: li %63, 0 --> main234 +main234: li %64, 0 --> main233 +main233: li %65, 0 --> main232 +main232: li %66, 0 --> main231 +main231: li %67, 0 --> main230 +main230: li %68, 0 --> main229 +main229: li %69, 0 --> main228 +main228: li %70, 0 --> main227 +main227: li %71, 0 --> main226 +main226: li %72, 0 --> main225 +main225: li %73, 0 --> main224 +main224: li %74, 0 --> main223 +main223: li %75, 0 --> main222 +main222: li %76, 0 --> main221 +main221: li %77, 0 --> main220 +main220: li %78, 0 --> main219 +main219: li %79, 0 --> main218 +main218: li %80, 0 --> main217 +main217: li %81, 0 --> main216 +main216: li %82, 0 --> main215 +main215: li %83, 0 --> main214 +main214: li %84, 0 --> main213 +main213: li %85, 0 --> main212 +main212: li %86, 0 --> main211 +main211: li %87, 0 --> main210 +main210: li %88, 0 --> main209 +main209: li %89, 0 --> main208 +main208: li %90, 0 --> main207 +main207: li %91, 0 --> main206 +main206: li %92, 0 --> main205 +main205: li %93, 0 --> main204 +main204: li %94, 0 --> main203 +main203: li %95, 0 --> main202 +main202: li %96, 0 --> main201 +main201: li %97, 0 --> main200 +main200: li %98, 0 --> main199 +main199: li %99, 0 --> main198 +main198: li %100, 0 --> main197 +main197: li %101, 0 --> main196 +main196: li %102, 0 --> main195 +main195: li %103, 0 --> main194 +main194: li %104, 0 --> main193 +main193: li %105, 0 --> main192 +main192: li %106, 0 --> main191 +main191: li %107, 0 --> main190 +main190: li %108, 0 --> main189 +main189: li %109, 0 --> main188 +main188: li %110, 0 --> main187 +main187: li %111, 0 --> main186 +main186: li %112, 0 --> main185 +main185: li %113, 0 --> main184 +main184: li %114, 0 --> main183 +main183: li %115, 0 --> main182 +main182: li %116, 0 --> main181 +main181: li %117, 0 --> main180 +main180: li %118, 0 --> main179 +main179: li %119, 0 --> main178 +main178: li %120, 0 --> main177 +main177: li %121, 0 --> main176 +main176: li %122, 0 --> main175 +main175: li %123, 0 --> main174 +main174: li %124, 0 --> main173 +main173: li %125, 0 --> main149 +main149: emit c165 --> main148 +main148: li %98, 10 --> main147 +main147: move %99, $sp --> main327 +main327: move %99, %99 --> main146 +main146: li %101, 0 --> main145 +main145: li %102, 4 --> main144 +main144: mulo %100, %101, %102 --> main143 +main143: add %110, %99, %100 --> main157 +main157: sw %98, 0(%110) --> main142 +main142: emit c164 --> main141 +main141: li %93, 9 --> main140 +main140: move %94, $sp --> main326 +main326: move %94, %94 --> main139 +main139: li %96, 1 --> main138 +main138: li %97, 4 --> main137 +main137: mulo %95, %96, %97 --> main136 +main136: add %109, %94, %95 --> main156 +main156: sw %93, 0(%109) --> main135 +main135: emit c163 --> main134 +main134: li %88, 8 --> main133 +main133: move %89, $sp --> main325 +main325: move %89, %89 --> main132 +main132: li %91, 2 --> main131 +main131: li %92, 4 --> main130 +main130: mulo %90, %91, %92 --> main129 +main129: add %108, %89, %90 --> main155 +main155: sw %88, 0(%108) --> main128 +main128: emit c162 --> main127 +main127: li %83, 7 --> main126 +main126: move %84, $sp --> main323 +main323: move %84, %84 --> main125 +main125: li %86, 3 --> main124 +main124: li %87, 4 --> main123 +main123: mulo %85, %86, %87 --> main122 +main122: add %107, %84, %85 --> main154 +main154: sw %83, 0(%107) --> main121 +main121: emit c161 --> main120 +main120: li %78, 6 --> main119 +main119: move %79, $sp --> main322 +main322: move %79, %79 --> main118 +main118: li %81, 4 --> main117 +main117: li %82, 4 --> main116 +main116: mulo %80, %81, %82 --> main115 +main115: add %106, %79, %80 --> main153 +main153: sw %78, 0(%106) --> main114 +main114: emit c160 --> main113 +main113: li %73, 0 --> main112 +main112: move %74, $sp --> main321 +main321: move %74, %74 --> main111 +main111: li %76, 5 --> main110 +main110: li %77, 4 --> main109 +main109: mulo %75, %76, %77 --> main108 +main108: add %104, %74, %75 --> main151 +main151: sw %73, 0(%104) --> main107 +main107: emit c159 --> main106 +main106: li %68, 5 --> main105 +main105: move %69, $sp --> main320 +main320: move %69, %69 --> main104 +main104: li %71, 6 --> main103 +main103: li %72, 4 --> main102 +main102: mulo %70, %71, %72 --> main101 +main101: add %103, %69, %70 --> main150 +main150: sw %68, 0(%103) --> main100 +main100: emit c158 --> main99 +main99 : li %63, 4 --> main98 +main98 : move %64, $sp --> main380 +main380: move %64, %64 --> main97 +main97 : li %66, 7 --> main96 +main96 : li %67, 4 --> main95 +main95 : mulo %65, %66, %67 --> main94 +main94 : add %125, %64, %65 --> main172 +main172: sw %63, 0(%125) --> main93 +main93 : emit c157 --> main92 +main92 : li %58, 3 --> main91 +main91 : move %59, $sp --> main379 +main379: move %59, %59 --> main90 +main90 : li %61, 8 --> main89 +main89 : li %62, 4 --> main88 +main88 : mulo %60, %61, %62 --> main87 +main87 : add %124, %59, %60 --> main171 +main171: sw %58, 0(%124) --> main86 +main86 : emit c156 --> main85 +main85 : li %53, 2 --> main84 +main84 : move %54, $sp --> main377 +main377: move %54, %54 --> main83 +main83 : li %56, 9 --> main82 +main82 : li %57, 4 --> main81 +main81 : mulo %55, %56, %57 --> main80 +main80 : add %123, %54, %55 --> main170 +main170: sw %53, 0(%123) --> main79 +main79 : emit c155 --> main78 +main78 : li %48, 0 --> main77 +main77 : move %49, $sp --> main375 +main375: move %49, %49 --> main76 +main76 : li %51, 10 --> main75 +main75 : li %52, 4 --> main74 +main74 : mulo %50, %51, %52 --> main73 +main73 : add %122, %49, %50 --> main169 +main169: sw %48, 0(%122) --> main72 +main72 : emit c154 --> main71 +main71 : li %43, 0 --> main70 +main70 : move %44, $sp --> main374 +main374: move %44, %44 --> main69 +main69 : li %46, 11 --> main68 +main68 : li %47, 4 --> main67 +main67 : mulo %45, %46, %47 --> main66 +main66 : add %121, %44, %45 --> main168 +main168: sw %43, 0(%121) --> main65 +main65 : emit c153 --> main64 +main64 : li %38, 0 --> main63 +main63 : move %39, $sp --> main373 +main373: move %39, %39 --> main62 +main62 : li %41, 12 --> main61 +main61 : li %42, 4 --> main60 +main60 : mulo %40, %41, %42 --> main59 +main59 : add %120, %39, %40 --> main167 +main167: sw %38, 0(%120) --> main58 +main58 : emit c152 --> main57 +main57 : li %33, 0 --> main56 +main56 : move %34, $sp --> main372 +main372: move %34, %34 --> main55 +main55 : li %36, 13 --> main54 +main54 : li %37, 4 --> main53 +main53 : mulo %35, %36, %37 --> main52 +main52 : add %119, %34, %35 --> main166 +main166: sw %33, 0(%119) --> main51 +main51 : emit c151 --> main50 +main50 : li %28, 0 --> main49 +main49 : move %29, $sp --> main371 +main371: move %29, %29 --> main48 +main48 : li %31, 14 --> main47 +main47 : li %32, 4 --> main46 +main46 : mulo %30, %31, %32 --> main45 +main45 : add %117, %29, %30 --> main164 +main164: sw %28, 0(%117) --> main44 +main44 : emit c150 --> main43 +main43 : li %23, 0 --> main42 +main42 : move %24, $sp --> main370 +main370: move %24, %24 --> main41 +main41 : li %26, 15 --> main40 +main40 : li %27, 4 --> main39 +main39 : mulo %25, %26, %27 --> main38 +main38 : add %116, %24, %25 --> main163 +main163: sw %23, 0(%116) --> main37 +main37 : emit c149 --> main36 +main36 : move %18, $sp --> main369 +main369: move %18, %18 --> main35 +main35 : move %19, $sp --> main368 +main368: move %19, %19 --> main34 +main34 : move %20, $sp --> main367 +main367: move %20, %20 --> main33 +main33 : li %21, 10 --> main32 +main32 : li %22, 10 --> main31 +main31 : la %115, comp_fir_basic --> main162 +main162: j --> main356 +main356: move $a0, %18 --> main355 +main355: move $a1, %19 --> main354 +main354: move $a2, %20 --> main353 +main353: move $a3, %21 --> main352 +main352: sets out(0), %22 --> main351 +main351: call %115(5) --> main350 +main350: move %0, $v0 --> main30 +main30 : emit c148 --> main29 +main29 : move %14, $sp --> main366 +main366: move %14, %14 --> main28 +main28 : move %15, $sp --> main365 +main365: move %15, %15 --> main27 +main27 : move %16, $sp --> main364 +main364: move %16, %16 --> main26 +main26 : li %17, 16 --> main25 +main25 : la %113, comp_fir16 --> main160 +main160: j --> main347 +main347: move $a0, %14 --> main346 +main346: move $a1, %15 --> main345 +main345: move $a2, %16 --> main344 +main344: move $a3, %17 --> main343 +main343: call %113(4) --> main342 +main342: move %0, $v0 --> main24 +main24 : emit c147 --> main23 +main23 : li %11, 4 --> main22 +main22 : li %12, 1 --> main21 +main21 : li %13, 1 --> main20 +main20 : la %112, comp_ifFor --> main159 +main159: j --> main341 +main341: move $a0, %11 --> main340 +main340: move $a1, %12 --> main339 +main339: move $a2, %13 --> main338 +main338: call %112(3) --> main337 +main337: move %0, $v0 --> main19 +main19 : emit c146 --> main18 +main18 : move %8, $sp --> main363 +main363: move %8, %8 --> main17 +main17 : li %9, 9 --> main16 +main16 : li %10, 3 --> main15 +main15 : la %111, comp_total --> main158 +main158: j --> main336 +main336: move $a0, %8 --> main335 +main335: move $a1, %9 --> main334 +main334: move $a2, %10 --> main333 +main333: call %111(3) --> main332 +main332: move %0, $v0 --> main14 +main14 : emit c145 --> main13 +main13 : move %6, $sp --> main324 +main324: move %6, %6 --> main12 +main12 : li %7, 10 --> main11 +main11 : la %105, comp_tri --> main152 +main152: j --> main331 +main331: move $a0, %6 --> main330 +main330: move $a1, %7 --> main329 +main329: call %105(2) --> main328 +main328: move %0, $v0 --> main10 +main10 : emit c144 --> main9 +main9 : move %2, $sp --> main378 +main378: move %2, %2 --> main8 +main8 : move %3, $sp --> main376 +main376: move %3, %3 --> main7 +main7 : li %4, 10 --> main6 +main6 : li %5, 10 --> main5 +main5 : la %118, comp_forif2 --> main165 +main165: j --> main362 +main362: move $a0, %2 --> main361 +main361: move $a1, %3 --> main360 +main360: move $a2, %4 --> main359 +main359: move $a3, %5 --> main358 +main358: call %118(4) --> main357 +main357: move %0, $v0 --> main4 +main4 : emit c143 --> main3 +main3 : la %114, comp_forif --> main161 +main161: j --> main349 +main349: call %114(0) --> main348 +main348: move %0, $v0 --> main2 +main2 : emit c142 --> main1 +main1 : move %1, %0 --> main0 +main0 : j --> main319 +main319: move $v0, %1 --> main318 +main318: move $ra, %134 --> main317 +main317: move $s7, %133 --> main316 +main316: move $s6, %132 --> main315 +main315: move $s5, %131 --> main314 +main314: move $s4, %130 --> main313 +main313: move $s3, %129 --> main312 +main312: move $s2, %128 --> main311 +main311: move $s1, %127 --> main310 +main310: move $s0, %126 --> main309 +main309: delframe --> main308 +main308: jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/complets.LIN.expected b/tests/clight/complets.LIN.expected new file mode 100644 index 0000000..dd59104 --- /dev/null +++ b/tests/clight/complets.LIN.expected @@ -0,0 +1,1385 @@ +program + +globals 0 + +procedure comp_tri(2) +var 0 +comp_tri123: +newframe +c108: +li $v0, 0 +c107: +c106: +li $t1, 0 +comp_tri55: +li $a3, 0 +c105: +slt $a2, $t1, $a1 +seq $a2, $a2, $zero +beq $a2, $a3, comp_tri50 +c95: +delframe +jr $ra +comp_tri50: +c103: +c102: +li $t2, 1 +comp_tri47: +li $a3, 0 +c101: +sub $a2, $a1, $t1 +slt $a2, $t2, $a2 +seq $a2, $a2, $zero +beq $a2, $a3, comp_tri41 +c104: +li $a2, 1 +add $t1, $t1, $a2 +j comp_tri55 +comp_tri41: +c99: +li $a2, 4 +mulo $a2, $t2, $a2 +add $a2, $a0, $a2 +lw $t0, 0($a2) +li $a2, 1 +sub $a3, $t2, $a2 +li $a2, 4 +mulo $a2, $a3, $a2 +add $a2, $a0, $a2 +lw $a2, 0($a2) +slt $a2, $t0, $a2 +beq $a2, $zero, comp_tri10 +c98: +li $v0, 1 +sub $a2, $t2, $v0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +c97: +li $a2, 4 +mulo $a2, $t2, $a2 +add $a2, $a0, $a2 +lw $t0, 0($a2) +li $a2, 1 +sub $a3, $t2, $a2 +li $a2, 4 +mulo $a2, $a3, $a2 +add $a2, $a0, $a2 +sw $t0, 0($a2) +c96: +li $a2, 4 +mulo $a2, $t2, $a2 +add $a2, $a0, $a2 +sw $v0, 0($a2) +comp_tri10: +c100: +li $a2, 1 +add $t2, $t2, $a2 +j comp_tri47 + +procedure comp_total(3) +var 80 +comp_total410: +newframe +c94: +li $t0, 0 +move $a3, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a3, $v0 +sw $t0, 0($v0) +c93: +move $t0, $sp +li $a3, 1 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c92: +move $t0, $sp +li $a3, 2 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c91: +move $t0, $sp +li $a3, 3 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c90: +move $t0, $sp +li $a3, 4 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c89: +move $t0, $sp +li $a3, 5 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c88: +move $t0, $sp +li $a3, 6 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c87: +move $t0, $sp +li $a3, 7 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c86: +move $t0, $sp +li $a3, 8 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c85: +move $t0, $sp +li $a3, 9 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c84: +li $t0, 0 +move $a3, $sp +addi $a3, $a3, 40 +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a3, $v0 +sw $t0, 0($v0) +c83: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 1 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c82: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 2 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c81: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 3 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c80: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 4 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c79: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 5 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c78: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 6 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c77: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 7 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c76: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 8 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c75: +move $t0, $sp +addi $t0, $t0, 40 +li $a3, 9 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $t0, $v0 +sw $zero, 0($v0) +c74: +slt $v0, $a1, $a2 +beq $v0, $zero, comp_total40 +c73: +c72: +li $t0, 0 +comp_total58: +li $a2, 0 +c71: +sle $v0, $t0, $a1 +seq $v0, $v0, $zero +beq $v0, $a2, comp_total53 +comp_total2: +c59: +li $v0, 0 +delframe +jr $ra +comp_total53: +c69: +sub $a2, $a1, $t0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $a3, 0($v0) +move $a2, $sp +li $v0, 4 +mulo $v0, $t0, $v0 +add $v0, $a2, $v0 +sw $a3, 0($v0) +c70: +li $v0, 1 +add $t0, $t0, $v0 +j comp_total58 +comp_total40: +c68: +c67: +li $t2, 0 +comp_total37: +li $a3, 0 +c66: +slt $v0, $t2, $a1 +seq $v0, $v0, $zero +bne $v0, $a3, comp_total2 +c64: +c63: +move $t1, $a2 +comp_total29: +li $a3, 0 +c62: +sgt $v0, $t1, $zero +seq $v0, $v0, $zero +beq $v0, $a3, comp_total23 +c65: +li $v0, 1 +add $t2, $t2, $v0 +j comp_total37 +comp_total23: +c60: +move $a3, $sp +li $v0, 4 +mulo $v0, $t2, $v0 +add $v0, $a3, $v0 +lw $t0, 0($v0) +move $a3, $sp +addi $a3, $a3, 40 +li $v0, 4 +mulo $v0, $t1, $v0 +add $v0, $a3, $v0 +lw $v0, 0($v0) +add $a3, $t0, $v0 +li $v0, 4 +mulo $v0, $t2, $v0 +add $v0, $a0, $v0 +sw $a3, 0($v0) +c61: +li $v0, 1 +sub $t1, $t1, $v0 +j comp_total29 + +procedure comp_ifFor(3) +var 0 +comp_ifFor45: +newframe +c58: +li $v0, 0 +c57: +c56: +li $t0, 0 +comp_ifFor18: +li $t1, 0 +c55: +slt $a3, $t0, $a0 +seq $a3, $a3, $zero +beq $a3, $t1, comp_ifFor13 +c50: +delframe +jr $ra +comp_ifFor13: +c53: +sne $a3, $t0, $a1 +beq $a3, $zero, comp_ifFor7 +c52: +add $v0, $v0, $t0 +comp_ifFor5: +c54: +add $t0, $t0, $a2 +j comp_ifFor18 +comp_ifFor7: +c51: +li $v0, 0 +j comp_ifFor5 + +procedure comp_forif2(4) +var 16 +comp_forif2153: +newframe +sw $ra, 12($sp) +sw $s2, 8($sp) +sw $s1, 4($sp) +sw $s0, 0($sp) +c130: +li $s0, 0 +c129: +li $s1, 0 +c128: +c127: +li $t0, 0 +comp_forif275: +li $t1, 0 +c126: +slt $v0, $t0, $a2 +seq $v0, $v0, $zero +beq $v0, $t1, comp_forif270 +c123: +c122: +li $a0, 0 +comp_forif258: +li $a2, 0 +c121: +slt $v0, $a0, $a3 +seq $v0, $v0, $zero +beq $v0, $a2, comp_forif253 +c118: +li $s2, 0 +c117: +li $a1, 2 +la $v0, mod +move $a0, $s0 +call $v0 +li $a0, 0 +seq $v0, $v0, $a0 +beq $v0, $zero, comp_forif226 +c116: +li $a1, 2 +la $v0, mod +move $a0, $s1 +call $v0 +li $a0, 0 +seq $v0, $v0, $a0 +beq $v0, $zero, comp_forif227 +li $v0, 1 +comp_forif225: +beq $v0, $s2, comp_forif222 +c115: +comp_forif22: +c109: +li $v0, 0 +lw $ra, 12($sp) +lw $s2, 8($sp) +lw $s1, 4($sp) +lw $s0, 0($sp) +delframe +jr $ra +comp_forif222: +c114: +li $a1, 2 +la $v0, mod +move $a0, $s0 +call $v0 +li $a0, 0 +seq $v0, $v0, $a0 +beq $v0, $zero, comp_forif213 +c113: +j comp_forif22 +comp_forif213: +c112: +li $a1, 2 +la $v0, mod +move $a0, $s1 +call $v0 +li $a0, 0 +seq $v0, $v0, $a0 +beq $v0, $zero, comp_forif24 +c111: +j comp_forif22 +comp_forif24: +c110: +j comp_forif22 +comp_forif227: +li $v0, 0 +j comp_forif225 +comp_forif226: +li $v0, 0 +j comp_forif225 +comp_forif253: +c119: +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +lw $v0, 0($v0) +add $s1, $s1, $v0 +c120: +li $v0, 1 +add $a0, $a0, $v0 +j comp_forif258 +comp_forif270: +c124: +li $v0, 4 +mulo $v0, $t0, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +add $s0, $s0, $v0 +c125: +li $v0, 1 +add $t0, $t0, $v0 +j comp_forif275 + +procedure comp_forif(0) +var 12 +comp_forif65: +newframe +sw $ra, 8($sp) +sw $s1, 4($sp) +sw $s0, 0($sp) +c141: +li $s1, 0 +c140: +c139: +c138: +li $s0, 0 +comp_forif28: +li $a0, 0 +c137: +li $v0, 10 +slt $v0, $s0, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, comp_forif22 +c131: +move $v0, $s1 +lw $ra, 8($sp) +lw $s1, 4($sp) +lw $s0, 0($sp) +delframe +jr $ra +comp_forif22: +c135: +li $v0, 1 +add $s1, $s1, $v0 +c134: +li $v0, 1 +add $s1, $s1, $v0 +c133: +li $a1, 2 +la $v0, mod +move $a0, $s0 +call $v0 +li $a0, 0 +seq $v0, $v0, $a0 +beq $v0, $zero, comp_forif6 +c132: +comp_forif6: +c136: +li $v0, 1 +add $s0, $s0, $v0 +j comp_forif28 + +procedure comp_fir_basic(5) +var 4 +comp_fir_basic141: +newframe +c16: +li $v0, 0 +c15: +c14: +li $t3, 0 +comp_fir_basic64: +li $t0, 0 +c13: +li $a3, 3 +slt $a3, $t3, $a3 +seq $a3, $a3, $zero +beq $a3, $t0, comp_fir_basic58 +c0: +delframe +jr $ra +comp_fir_basic58: +c11: +li $a3, 4 +mulo $a3, $t3, $a3 +add $a3, $a0, $a3 +lw $t0, 0($a3) +li $a3, 4 +mulo $a3, $zero, $a3 +add $a3, $a2, $a3 +sw $t0, 0($a3) +c10: +c9: +li $t0, 0 +comp_fir_basic47: +li $t1, 0 +c8: +li $a3, 3 +slt $a3, $t0, $a3 +seq $a3, $a3, $zero +beq $a3, $t1, comp_fir_basic41 +c5: +c4: +li $t2, 2 +comp_fir_basic25: +li $t0, 0 +c3: +sge $a3, $t2, $zero +seq $a3, $a3, $zero +beq $a3, $t0, comp_fir_basic19 +c12: +li $a3, 1 +add $t3, $t3, $a3 +j comp_fir_basic64 +comp_fir_basic19: +c1: +li $a3, 4 +mulo $a3, $t2, $a3 +add $a3, $a2, $a3 +lw $t1, 0($a3) +li $a3, 1 +add $t0, $t2, $a3 +li $a3, 4 +mulo $a3, $t0, $a3 +add $a3, $a2, $a3 +sw $t1, 0($a3) +c2: +li $a3, 1 +sub $t2, $t2, $a3 +j comp_fir_basic25 +comp_fir_basic41: +c6: +li $a3, 4 +mulo $a3, $t0, $a3 +add $a3, $a1, $a3 +lw $t1, 0($a3) +li $a3, 4 +mulo $a3, $t0, $a3 +add $a3, $a2, $a3 +lw $a3, 0($a3) +mulo $a3, $t1, $a3 +add $v0, $v0, $a3 +c7: +li $a3, 1 +add $t0, $t0, $a3 +j comp_fir_basic47 + +procedure comp_fir16(4) +var 96 +comp_fir16373: +newframe +sw $ra, 92($sp) +sw $s6, 88($sp) +sw $s5, 84($sp) +sw $s4, 80($sp) +sw $s3, 76($sp) +sw $s2, 72($sp) +sw $s1, 68($sp) +sw $s0, 64($sp) +move $s6, $a0 +move $s5, $a1 +move $s4, $a2 +move $s3, $a3 +c49: +li $a1, 0 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c48: +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c47: +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c46: +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c45: +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c44: +move $a1, $sp +li $a0, 5 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c43: +move $a1, $sp +li $a0, 6 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c42: +move $a1, $sp +li $a0, 7 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c41: +move $a1, $sp +li $a0, 8 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c40: +move $a1, $sp +li $a0, 9 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c39: +move $a1, $sp +li $a0, 10 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c38: +move $a1, $sp +li $a0, 11 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c37: +move $a1, $sp +li $a0, 12 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c36: +move $a1, $sp +li $a0, 13 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c35: +move $a1, $sp +li $a0, 14 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c34: +move $a1, $sp +li $a0, 15 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c33: +li $v0, 0 +c32: +li $s2, 0 +c31: +c30: +li $s1, 0 +comp_fir1665: +li $a1, 0 +c29: +slt $a0, $s1, $s3 +seq $a0, $a0, $zero +beq $a0, $a1, comp_fir1660 +c17: +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $sp, $v0 +lw $v0, 0($v0) +lw $ra, 92($sp) +lw $s6, 88($sp) +lw $s5, 84($sp) +lw $s4, 80($sp) +lw $s3, 76($sp) +lw $s2, 72($sp) +lw $s1, 68($sp) +lw $s0, 64($sp) +delframe +jr $ra +comp_fir1660: +c27: +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s6, $a0 +lw $a2, 0($a0) +move $a1, $sp +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +sw $a2, 0($a0) +c26: +c25: +li $s0, 0 +comp_fir1649: +li $a1, 0 +c24: +li $a0, 16 +slt $a0, $s0, $a0 +seq $a0, $a0, $zero +beq $a0, $a1, comp_fir1643 +c19: +li $a0, 1 +add $a0, $v0, $a0 +li $a1, 16 +la $v0, mod +call $v0 +c18: +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s4, $a0 +sw $s2, 0($a0) +c28: +li $a0, 1 +add $s1, $s1, $a0 +j comp_fir1665 +comp_fir1643: +c22: +move $a1, $sp +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +lw $a1, 0($a0) +li $a0, 4 +mulo $a0, $s0, $a0 +add $a0, $s5, $a0 +lw $a0, 0($a0) +mulo $a2, $a1, $a0 +li $a1, 2 +li $a0, 16 +xor $a0, $a1, $a0 +mulo $a0, $a2, $a0 +c21: +add $s2, $s2, $a0 +c20: +li $a0, 1 +add $a0, $v0, $a0 +li $a1, 16 +la $v0, mod +call $v0 +c23: +li $a0, 1 +add $s0, $s0, $a0 +j comp_fir1649 + +procedure _main(0) +var 68 +main307: +newframe +sw $ra, 64($sp) +c165: +li $a1, 10 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c164: +li $a2, 9 +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c163: +li $a2, 8 +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c162: +li $a2, 7 +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c161: +li $a2, 6 +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c160: +move $a1, $sp +li $a0, 5 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c159: +li $a2, 5 +move $a1, $sp +li $a0, 6 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c158: +li $a2, 4 +move $a1, $sp +li $a0, 7 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c157: +li $a2, 3 +move $a1, $sp +li $a0, 8 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c156: +li $a2, 2 +move $a1, $sp +li $a0, 9 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c155: +move $a1, $sp +li $a0, 10 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c154: +move $a1, $sp +li $a0, 11 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c153: +move $a1, $sp +li $a0, 12 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c152: +move $a1, $sp +li $a0, 13 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c151: +move $a1, $sp +li $a0, 14 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c150: +move $a1, $sp +li $a0, 15 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c149: +move $a0, $sp +move $a1, $sp +move $a2, $sp +li $a3, 10 +li $t0, 10 +la $v0, comp_fir_basic +sw $t0, -4($sp) +call $v0 +c148: +move $a0, $sp +move $a1, $sp +move $a2, $sp +li $a3, 16 +la $v0, comp_fir16 +call $v0 +c147: +li $a0, 4 +li $a1, 1 +li $a2, 1 +la $v0, comp_ifFor +call $v0 +c146: +move $a0, $sp +li $a1, 9 +li $a2, 3 +la $v0, comp_total +call $v0 +c145: +move $a0, $sp +li $a1, 10 +la $v0, comp_tri +call $v0 +c144: +move $a0, $sp +move $a1, $sp +li $a2, 10 +li $a3, 10 +la $v0, comp_forif2 +call $v0 +c143: +la $v0, comp_forif +call $v0 +c142: +lw $ra, 64($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/complets.LTL.expected b/tests/clight/complets.LTL.expected new file mode 100644 index 0000000..65b43cd --- /dev/null +++ b/tests/clight/complets.LTL.expected @@ -0,0 +1,2284 @@ +program + +globals 0 + +procedure comp_tri(2) +var 0 +entry comp_tri123 +comp_tri123: newframe --> comp_tri122 +comp_tri122: j --> comp_tri121 +comp_tri121: j --> comp_tri120 +comp_tri120: j --> comp_tri119 +comp_tri119: j --> comp_tri118 +comp_tri118: j --> comp_tri117 +comp_tri117: j --> comp_tri116 +comp_tri116: j --> comp_tri115 +comp_tri115: j --> comp_tri114 +comp_tri114: j --> comp_tri113 +comp_tri113: j --> comp_tri112 +comp_tri112: j --> comp_tri111 +comp_tri111: j --> comp_tri110 +comp_tri110: j --> comp_tri109 +comp_tri109: j --> comp_tri108 +comp_tri108: j --> comp_tri107 +comp_tri107: j --> comp_tri106 +comp_tri106: j --> comp_tri105 +comp_tri105: j --> comp_tri104 +comp_tri104: j --> comp_tri103 +comp_tri103: j --> comp_tri102 +comp_tri102: j --> comp_tri101 +comp_tri101: j --> comp_tri100 +comp_tri100: j --> comp_tri99 +comp_tri99 : j --> comp_tri98 +comp_tri98 : j --> comp_tri97 +comp_tri97 : j --> comp_tri96 +comp_tri96 : j --> comp_tri95 +comp_tri95 : j --> comp_tri94 +comp_tri94 : j --> comp_tri93 +comp_tri93 : j --> comp_tri92 +comp_tri92 : j --> comp_tri91 +comp_tri91 : j --> comp_tri90 +comp_tri90 : j --> comp_tri89 +comp_tri89 : j --> comp_tri88 +comp_tri88 : j --> comp_tri87 +comp_tri87 : j --> comp_tri86 +comp_tri86 : j --> comp_tri85 +comp_tri85 : j --> comp_tri84 +comp_tri84 : j --> comp_tri83 +comp_tri83 : j --> comp_tri82 +comp_tri82 : j --> comp_tri81 +comp_tri81 : j --> comp_tri80 +comp_tri80 : j --> comp_tri79 +comp_tri79 : j --> comp_tri78 +comp_tri78 : j --> comp_tri77 +comp_tri77 : j --> comp_tri76 +comp_tri76 : j --> comp_tri75 +comp_tri75 : j --> comp_tri74 +comp_tri74 : j --> comp_tri73 +comp_tri73 : j --> comp_tri72 +comp_tri72 : j --> comp_tri71 +comp_tri71 : j --> comp_tri70 +comp_tri70 : j --> comp_tri69 +comp_tri69 : j --> comp_tri60 +comp_tri60 : emit c108 --> comp_tri59 +comp_tri59 : li $v0, 0 --> comp_tri58 +comp_tri58 : emit c107 --> comp_tri57 +comp_tri57 : emit c106 --> comp_tri56 +comp_tri56 : li $t1, 0 --> comp_tri3 +comp_tri3 : j --> comp_tri55 +comp_tri55 : li $a3, 0 --> comp_tri54 +comp_tri54 : emit c105 --> comp_tri53 +comp_tri53 : slt $a2, $t1, $a1 --> comp_tri52 +comp_tri52 : j --> comp_tri68 +comp_tri68 : seq $a2, $a2, $zero --> comp_tri51 +comp_tri51 : beq $a2, $a3 --> comp_tri50, comp_tri2 +comp_tri2 : emit c95 --> comp_tri1 +comp_tri1 : j --> comp_tri0 +comp_tri0 : j --> comp_tri135 +comp_tri135: j --> comp_tri134 +comp_tri134: j --> comp_tri133 +comp_tri133: j --> comp_tri132 +comp_tri132: j --> comp_tri131 +comp_tri131: j --> comp_tri130 +comp_tri130: j --> comp_tri129 +comp_tri129: j --> comp_tri128 +comp_tri128: j --> comp_tri127 +comp_tri127: j --> comp_tri126 +comp_tri126: j --> comp_tri125 +comp_tri125: delframe --> comp_tri124 +comp_tri124: jr $ra +comp_tri50 : emit c103 --> comp_tri49 +comp_tri49 : emit c102 --> comp_tri48 +comp_tri48 : li $t2, 1 --> comp_tri7 +comp_tri7 : j --> comp_tri47 +comp_tri47 : li $a3, 0 --> comp_tri46 +comp_tri46 : emit c101 --> comp_tri45 +comp_tri45 : sub $a2, $a1, $t1 --> comp_tri44 +comp_tri44 : slt $a2, $t2, $a2 --> comp_tri43 +comp_tri43 : j --> comp_tri67 +comp_tri67 : seq $a2, $a2, $zero --> comp_tri42 +comp_tri42 : beq $a2, $a3 --> comp_tri41, comp_tri6 +comp_tri6 : emit c104 --> comp_tri5 +comp_tri5 : li $a2, 1 --> comp_tri4 +comp_tri4 : add $t1, $t1, $a2 --> comp_tri3 +comp_tri41 : emit c99 --> comp_tri40 +comp_tri40 : j --> comp_tri39 +comp_tri39 : li $a2, 4 --> comp_tri38 +comp_tri38 : mulo $a2, $t2, $a2 --> comp_tri37 +comp_tri37 : add $a2, $a0, $a2 --> comp_tri66 +comp_tri66 : lw $t0, 0($a2) --> comp_tri36 +comp_tri36 : li $a2, 1 --> comp_tri35 +comp_tri35 : sub $a3, $t2, $a2 --> comp_tri34 +comp_tri34 : li $a2, 4 --> comp_tri33 +comp_tri33 : mulo $a2, $a3, $a2 --> comp_tri32 +comp_tri32 : add $a2, $a0, $a2 --> comp_tri65 +comp_tri65 : lw $a2, 0($a2) --> comp_tri31 +comp_tri31 : slt $a2, $t0, $a2 --> comp_tri30 +comp_tri30 : beq $a2, $zero --> comp_tri10, comp_tri29 +comp_tri29 : emit c98 --> comp_tri28 +comp_tri28 : li $v0, 1 --> comp_tri27 +comp_tri27 : sub $a2, $t2, $v0 --> comp_tri26 +comp_tri26 : li $v0, 4 --> comp_tri25 +comp_tri25 : mulo $v0, $a2, $v0 --> comp_tri24 +comp_tri24 : add $v0, $a0, $v0 --> comp_tri64 +comp_tri64 : lw $v0, 0($v0) --> comp_tri23 +comp_tri23 : emit c97 --> comp_tri22 +comp_tri22 : li $a2, 4 --> comp_tri21 +comp_tri21 : mulo $a2, $t2, $a2 --> comp_tri20 +comp_tri20 : add $a2, $a0, $a2 --> comp_tri63 +comp_tri63 : lw $t0, 0($a2) --> comp_tri19 +comp_tri19 : li $a2, 1 --> comp_tri18 +comp_tri18 : sub $a3, $t2, $a2 --> comp_tri17 +comp_tri17 : li $a2, 4 --> comp_tri16 +comp_tri16 : mulo $a2, $a3, $a2 --> comp_tri15 +comp_tri15 : add $a2, $a0, $a2 --> comp_tri62 +comp_tri62 : lw $t0, 0($a2) --> comp_tri14 +comp_tri14 : emit c96 --> comp_tri13 +comp_tri13 : li $a2, 4 --> comp_tri12 +comp_tri12 : mulo $a2, $t2, $a2 --> comp_tri11 +comp_tri11 : add $a2, $a0, $a2 --> comp_tri61 +comp_tri61 : lw $v0, 0($a2) --> comp_tri10 +comp_tri10 : emit c100 --> comp_tri9 +comp_tri9 : li $a2, 1 --> comp_tri8 +comp_tri8 : add $t2, $t2, $a2 --> comp_tri7 + +procedure comp_total(3) +var 80 +entry comp_total410 +comp_total410: newframe --> comp_total409 +comp_total409: j --> comp_total408 +comp_total408: j --> comp_total407 +comp_total407: j --> comp_total406 +comp_total406: j --> comp_total405 +comp_total405: j --> comp_total404 +comp_total404: j --> comp_total403 +comp_total403: j --> comp_total402 +comp_total402: j --> comp_total401 +comp_total401: j --> comp_total400 +comp_total400: j --> comp_total399 +comp_total399: j --> comp_total398 +comp_total398: j --> comp_total397 +comp_total397: j --> comp_total396 +comp_total396: j --> comp_total395 +comp_total395: j --> comp_total394 +comp_total394: j --> comp_total393 +comp_total393: j --> comp_total392 +comp_total392: j --> comp_total391 +comp_total391: j --> comp_total390 +comp_total390: j --> comp_total389 +comp_total389: j --> comp_total388 +comp_total388: j --> comp_total387 +comp_total387: j --> comp_total386 +comp_total386: j --> comp_total385 +comp_total385: j --> comp_total384 +comp_total384: j --> comp_total383 +comp_total383: j --> comp_total382 +comp_total382: j --> comp_total381 +comp_total381: j --> comp_total380 +comp_total380: j --> comp_total379 +comp_total379: j --> comp_total378 +comp_total378: j --> comp_total377 +comp_total377: j --> comp_total376 +comp_total376: j --> comp_total375 +comp_total375: j --> comp_total374 +comp_total374: j --> comp_total373 +comp_total373: j --> comp_total372 +comp_total372: j --> comp_total371 +comp_total371: j --> comp_total370 +comp_total370: j --> comp_total369 +comp_total369: j --> comp_total368 +comp_total368: j --> comp_total367 +comp_total367: j --> comp_total366 +comp_total366: j --> comp_total365 +comp_total365: j --> comp_total364 +comp_total364: j --> comp_total363 +comp_total363: j --> comp_total362 +comp_total362: j --> comp_total361 +comp_total361: j --> comp_total360 +comp_total360: j --> comp_total359 +comp_total359: j --> comp_total358 +comp_total358: j --> comp_total357 +comp_total357: j --> comp_total356 +comp_total356: j --> comp_total355 +comp_total355: j --> comp_total354 +comp_total354: j --> comp_total353 +comp_total353: j --> comp_total352 +comp_total352: j --> comp_total351 +comp_total351: j --> comp_total350 +comp_total350: j --> comp_total349 +comp_total349: j --> comp_total348 +comp_total348: j --> comp_total347 +comp_total347: j --> comp_total346 +comp_total346: j --> comp_total345 +comp_total345: j --> comp_total344 +comp_total344: j --> comp_total343 +comp_total343: j --> comp_total342 +comp_total342: j --> comp_total341 +comp_total341: j --> comp_total340 +comp_total340: j --> comp_total339 +comp_total339: j --> comp_total338 +comp_total338: j --> comp_total337 +comp_total337: j --> comp_total336 +comp_total336: j --> comp_total335 +comp_total335: j --> comp_total334 +comp_total334: j --> comp_total333 +comp_total333: j --> comp_total332 +comp_total332: j --> comp_total331 +comp_total331: j --> comp_total330 +comp_total330: j --> comp_total329 +comp_total329: j --> comp_total328 +comp_total328: j --> comp_total327 +comp_total327: j --> comp_total326 +comp_total326: j --> comp_total325 +comp_total325: j --> comp_total324 +comp_total324: j --> comp_total323 +comp_total323: j --> comp_total322 +comp_total322: j --> comp_total321 +comp_total321: j --> comp_total320 +comp_total320: j --> comp_total319 +comp_total319: j --> comp_total318 +comp_total318: j --> comp_total317 +comp_total317: j --> comp_total316 +comp_total316: j --> comp_total315 +comp_total315: j --> comp_total314 +comp_total314: j --> comp_total313 +comp_total313: j --> comp_total312 +comp_total312: j --> comp_total311 +comp_total311: j --> comp_total310 +comp_total310: j --> comp_total309 +comp_total309: j --> comp_total308 +comp_total308: j --> comp_total307 +comp_total307: j --> comp_total306 +comp_total306: j --> comp_total305 +comp_total305: j --> comp_total304 +comp_total304: j --> comp_total303 +comp_total303: j --> comp_total302 +comp_total302: j --> comp_total301 +comp_total301: j --> comp_total300 +comp_total300: j --> comp_total299 +comp_total299: j --> comp_total298 +comp_total298: j --> comp_total297 +comp_total297: j --> comp_total296 +comp_total296: j --> comp_total295 +comp_total295: j --> comp_total294 +comp_total294: j --> comp_total293 +comp_total293: j --> comp_total292 +comp_total292: j --> comp_total291 +comp_total291: j --> comp_total290 +comp_total290: j --> comp_total289 +comp_total289: j --> comp_total288 +comp_total288: j --> comp_total287 +comp_total287: j --> comp_total286 +comp_total286: j --> comp_total285 +comp_total285: j --> comp_total284 +comp_total284: j --> comp_total283 +comp_total283: j --> comp_total282 +comp_total282: j --> comp_total281 +comp_total281: j --> comp_total280 +comp_total280: j --> comp_total279 +comp_total279: j --> comp_total278 +comp_total278: j --> comp_total277 +comp_total277: j --> comp_total276 +comp_total276: j --> comp_total275 +comp_total275: j --> comp_total274 +comp_total274: j --> comp_total273 +comp_total273: j --> comp_total272 +comp_total272: j --> comp_total271 +comp_total271: j --> comp_total270 +comp_total270: j --> comp_total269 +comp_total269: j --> comp_total268 +comp_total268: j --> comp_total267 +comp_total267: j --> comp_total266 +comp_total266: j --> comp_total265 +comp_total265: j --> comp_total264 +comp_total264: j --> comp_total263 +comp_total263: j --> comp_total262 +comp_total262: j --> comp_total261 +comp_total261: j --> comp_total260 +comp_total260: j --> comp_total259 +comp_total259: j --> comp_total258 +comp_total258: j --> comp_total257 +comp_total257: j --> comp_total256 +comp_total256: j --> comp_total255 +comp_total255: j --> comp_total254 +comp_total254: j --> comp_total253 +comp_total253: j --> comp_total252 +comp_total252: j --> comp_total251 +comp_total251: j --> comp_total250 +comp_total250: j --> comp_total249 +comp_total249: j --> comp_total248 +comp_total248: j --> comp_total247 +comp_total247: j --> comp_total246 +comp_total246: j --> comp_total245 +comp_total245: j --> comp_total244 +comp_total244: j --> comp_total243 +comp_total243: j --> comp_total242 +comp_total242: j --> comp_total241 +comp_total241: j --> comp_total240 +comp_total240: j --> comp_total239 +comp_total239: j --> comp_total238 +comp_total238: j --> comp_total237 +comp_total237: j --> comp_total236 +comp_total236: j --> comp_total235 +comp_total235: j --> comp_total234 +comp_total234: j --> comp_total205 +comp_total205: emit c94 --> comp_total204 +comp_total204: li $t0, 0 --> comp_total203 +comp_total203: move $a3, $sp --> comp_total438 +comp_total438: j --> comp_total202 +comp_total202: j --> comp_total201 +comp_total201: li $v0, 4 --> comp_total200 +comp_total200: mulo $v0, $zero, $v0 --> comp_total199 +comp_total199: add $v0, $a3, $v0 --> comp_total223 +comp_total223: lw $t0, 0($v0) --> comp_total198 +comp_total198: emit c93 --> comp_total197 +comp_total197: j --> comp_total196 +comp_total196: move $t0, $sp --> comp_total437 +comp_total437: j --> comp_total195 +comp_total195: li $a3, 1 --> comp_total194 +comp_total194: li $v0, 4 --> comp_total193 +comp_total193: mulo $v0, $a3, $v0 --> comp_total192 +comp_total192: add $v0, $t0, $v0 --> comp_total222 +comp_total222: lw $zero, 0($v0) --> comp_total191 +comp_total191: emit c92 --> comp_total190 +comp_total190: j --> comp_total189 +comp_total189: move $t0, $sp --> comp_total436 +comp_total436: j --> comp_total188 +comp_total188: li $a3, 2 --> comp_total187 +comp_total187: li $v0, 4 --> comp_total186 +comp_total186: mulo $v0, $a3, $v0 --> comp_total185 +comp_total185: add $v0, $t0, $v0 --> comp_total220 +comp_total220: lw $zero, 0($v0) --> comp_total184 +comp_total184: emit c91 --> comp_total183 +comp_total183: j --> comp_total182 +comp_total182: move $t0, $sp --> comp_total435 +comp_total435: j --> comp_total181 +comp_total181: li $a3, 3 --> comp_total180 +comp_total180: li $v0, 4 --> comp_total179 +comp_total179: mulo $v0, $a3, $v0 --> comp_total178 +comp_total178: add $v0, $t0, $v0 --> comp_total219 +comp_total219: lw $zero, 0($v0) --> comp_total177 +comp_total177: emit c90 --> comp_total176 +comp_total176: j --> comp_total175 +comp_total175: move $t0, $sp --> comp_total433 +comp_total433: j --> comp_total174 +comp_total174: li $a3, 4 --> comp_total173 +comp_total173: li $v0, 4 --> comp_total172 +comp_total172: mulo $v0, $a3, $v0 --> comp_total171 +comp_total171: add $v0, $t0, $v0 --> comp_total218 +comp_total218: lw $zero, 0($v0) --> comp_total170 +comp_total170: emit c89 --> comp_total169 +comp_total169: j --> comp_total168 +comp_total168: move $t0, $sp --> comp_total432 +comp_total432: j --> comp_total167 +comp_total167: li $a3, 5 --> comp_total166 +comp_total166: li $v0, 4 --> comp_total165 +comp_total165: mulo $v0, $a3, $v0 --> comp_total164 +comp_total164: add $v0, $t0, $v0 --> comp_total217 +comp_total217: lw $zero, 0($v0) --> comp_total163 +comp_total163: emit c88 --> comp_total162 +comp_total162: j --> comp_total161 +comp_total161: move $t0, $sp --> comp_total431 +comp_total431: j --> comp_total160 +comp_total160: li $a3, 6 --> comp_total159 +comp_total159: li $v0, 4 --> comp_total158 +comp_total158: mulo $v0, $a3, $v0 --> comp_total157 +comp_total157: add $v0, $t0, $v0 --> comp_total216 +comp_total216: lw $zero, 0($v0) --> comp_total156 +comp_total156: emit c87 --> comp_total155 +comp_total155: j --> comp_total154 +comp_total154: move $t0, $sp --> comp_total430 +comp_total430: j --> comp_total153 +comp_total153: li $a3, 7 --> comp_total152 +comp_total152: li $v0, 4 --> comp_total151 +comp_total151: mulo $v0, $a3, $v0 --> comp_total150 +comp_total150: add $v0, $t0, $v0 --> comp_total215 +comp_total215: lw $zero, 0($v0) --> comp_total149 +comp_total149: emit c86 --> comp_total148 +comp_total148: j --> comp_total147 +comp_total147: move $t0, $sp --> comp_total429 +comp_total429: j --> comp_total146 +comp_total146: li $a3, 8 --> comp_total145 +comp_total145: li $v0, 4 --> comp_total144 +comp_total144: mulo $v0, $a3, $v0 --> comp_total143 +comp_total143: add $v0, $t0, $v0 --> comp_total213 +comp_total213: lw $zero, 0($v0) --> comp_total142 +comp_total142: emit c85 --> comp_total141 +comp_total141: j --> comp_total140 +comp_total140: move $t0, $sp --> comp_total428 +comp_total428: j --> comp_total139 +comp_total139: li $a3, 9 --> comp_total138 +comp_total138: li $v0, 4 --> comp_total137 +comp_total137: mulo $v0, $a3, $v0 --> comp_total136 +comp_total136: add $v0, $t0, $v0 --> comp_total212 +comp_total212: lw $zero, 0($v0) --> comp_total135 +comp_total135: emit c84 --> comp_total134 +comp_total134: li $t0, 0 --> comp_total133 +comp_total133: move $a3, $sp --> comp_total427 +comp_total427: addi $a3, $a3, 40 --> comp_total132 +comp_total132: j --> comp_total131 +comp_total131: li $v0, 4 --> comp_total130 +comp_total130: mulo $v0, $zero, $v0 --> comp_total129 +comp_total129: add $v0, $a3, $v0 --> comp_total211 +comp_total211: lw $t0, 0($v0) --> comp_total128 +comp_total128: emit c83 --> comp_total127 +comp_total127: j --> comp_total126 +comp_total126: move $t0, $sp --> comp_total426 +comp_total426: addi $t0, $t0, 40 --> comp_total125 +comp_total125: li $a3, 1 --> comp_total124 +comp_total124: li $v0, 4 --> comp_total123 +comp_total123: mulo $v0, $a3, $v0 --> comp_total122 +comp_total122: add $v0, $t0, $v0 --> comp_total210 +comp_total210: lw $zero, 0($v0) --> comp_total121 +comp_total121: emit c82 --> comp_total120 +comp_total120: j --> comp_total119 +comp_total119: move $t0, $sp --> comp_total425 +comp_total425: addi $t0, $t0, 40 --> comp_total118 +comp_total118: li $a3, 2 --> comp_total117 +comp_total117: li $v0, 4 --> comp_total116 +comp_total116: mulo $v0, $a3, $v0 --> comp_total115 +comp_total115: add $v0, $t0, $v0 --> comp_total209 +comp_total209: lw $zero, 0($v0) --> comp_total114 +comp_total114: emit c81 --> comp_total113 +comp_total113: j --> comp_total112 +comp_total112: move $t0, $sp --> comp_total424 +comp_total424: addi $t0, $t0, 40 --> comp_total111 +comp_total111: li $a3, 3 --> comp_total110 +comp_total110: li $v0, 4 --> comp_total109 +comp_total109: mulo $v0, $a3, $v0 --> comp_total108 +comp_total108: add $v0, $t0, $v0 --> comp_total207 +comp_total207: lw $zero, 0($v0) --> comp_total107 +comp_total107: emit c80 --> comp_total106 +comp_total106: j --> comp_total105 +comp_total105: move $t0, $sp --> comp_total423 +comp_total423: addi $t0, $t0, 40 --> comp_total104 +comp_total104: li $a3, 4 --> comp_total103 +comp_total103: li $v0, 4 --> comp_total102 +comp_total102: mulo $v0, $a3, $v0 --> comp_total101 +comp_total101: add $v0, $t0, $v0 --> comp_total206 +comp_total206: lw $zero, 0($v0) --> comp_total100 +comp_total100: emit c79 --> comp_total99 +comp_total99 : j --> comp_total98 +comp_total98 : move $t0, $sp --> comp_total445 +comp_total445: addi $t0, $t0, 40 --> comp_total97 +comp_total97 : li $a3, 5 --> comp_total96 +comp_total96 : li $v0, 4 --> comp_total95 +comp_total95 : mulo $v0, $a3, $v0 --> comp_total94 +comp_total94 : add $v0, $t0, $v0 --> comp_total233 +comp_total233: lw $zero, 0($v0) --> comp_total93 +comp_total93 : emit c78 --> comp_total92 +comp_total92 : j --> comp_total91 +comp_total91 : move $t0, $sp --> comp_total444 +comp_total444: addi $t0, $t0, 40 --> comp_total90 +comp_total90 : li $a3, 6 --> comp_total89 +comp_total89 : li $v0, 4 --> comp_total88 +comp_total88 : mulo $v0, $a3, $v0 --> comp_total87 +comp_total87 : add $v0, $t0, $v0 --> comp_total232 +comp_total232: lw $zero, 0($v0) --> comp_total86 +comp_total86 : emit c77 --> comp_total85 +comp_total85 : j --> comp_total84 +comp_total84 : move $t0, $sp --> comp_total443 +comp_total443: addi $t0, $t0, 40 --> comp_total83 +comp_total83 : li $a3, 7 --> comp_total82 +comp_total82 : li $v0, 4 --> comp_total81 +comp_total81 : mulo $v0, $a3, $v0 --> comp_total80 +comp_total80 : add $v0, $t0, $v0 --> comp_total231 +comp_total231: lw $zero, 0($v0) --> comp_total79 +comp_total79 : emit c76 --> comp_total78 +comp_total78 : j --> comp_total77 +comp_total77 : move $t0, $sp --> comp_total442 +comp_total442: addi $t0, $t0, 40 --> comp_total76 +comp_total76 : li $a3, 8 --> comp_total75 +comp_total75 : li $v0, 4 --> comp_total74 +comp_total74 : mulo $v0, $a3, $v0 --> comp_total73 +comp_total73 : add $v0, $t0, $v0 --> comp_total230 +comp_total230: lw $zero, 0($v0) --> comp_total72 +comp_total72 : emit c75 --> comp_total71 +comp_total71 : j --> comp_total70 +comp_total70 : move $t0, $sp --> comp_total441 +comp_total441: addi $t0, $t0, 40 --> comp_total69 +comp_total69 : li $a3, 9 --> comp_total68 +comp_total68 : li $v0, 4 --> comp_total67 +comp_total67 : mulo $v0, $a3, $v0 --> comp_total66 +comp_total66 : add $v0, $t0, $v0 --> comp_total229 +comp_total229: lw $zero, 0($v0) --> comp_total65 +comp_total65 : emit c74 --> comp_total64 +comp_total64 : j --> comp_total63 +comp_total63 : slt $v0, $a1, $a2 --> comp_total62 +comp_total62 : beq $v0, $zero --> comp_total40, comp_total61 +comp_total61 : emit c73 --> comp_total60 +comp_total60 : emit c72 --> comp_total59 +comp_total59 : li $t0, 0 --> comp_total41 +comp_total41 : j --> comp_total58 +comp_total58 : li $a2, 0 --> comp_total57 +comp_total57 : emit c71 --> comp_total56 +comp_total56 : sle $v0, $t0, $a1 --> comp_total55 +comp_total55 : j --> comp_total228 +comp_total228: seq $v0, $v0, $zero --> comp_total54 +comp_total54 : beq $v0, $a2 --> comp_total53, comp_total2 +comp_total2 : emit c59 --> comp_total1 +comp_total1 : li $v0, 0 --> comp_total0 +comp_total0 : j --> comp_total422 +comp_total422: j --> comp_total421 +comp_total421: j --> comp_total420 +comp_total420: j --> comp_total419 +comp_total419: j --> comp_total418 +comp_total418: j --> comp_total417 +comp_total417: j --> comp_total416 +comp_total416: j --> comp_total415 +comp_total415: j --> comp_total414 +comp_total414: j --> comp_total413 +comp_total413: j --> comp_total412 +comp_total412: delframe --> comp_total411 +comp_total411: jr $ra +comp_total53 : emit c69 --> comp_total52 +comp_total52 : sub $a2, $a1, $t0 --> comp_total51 +comp_total51 : li $v0, 4 --> comp_total50 +comp_total50 : mulo $v0, $a2, $v0 --> comp_total49 +comp_total49 : add $v0, $a0, $v0 --> comp_total227 +comp_total227: lw $a3, 0($v0) --> comp_total48 +comp_total48 : move $a2, $sp --> comp_total440 +comp_total440: j --> comp_total47 +comp_total47 : li $v0, 4 --> comp_total46 +comp_total46 : mulo $v0, $t0, $v0 --> comp_total45 +comp_total45 : add $v0, $a2, $v0 --> comp_total226 +comp_total226: lw $a3, 0($v0) --> comp_total44 +comp_total44 : emit c70 --> comp_total43 +comp_total43 : li $v0, 1 --> comp_total42 +comp_total42 : add $t0, $t0, $v0 --> comp_total41 +comp_total40 : emit c68 --> comp_total39 +comp_total39 : emit c67 --> comp_total38 +comp_total38 : li $t2, 0 --> comp_total3 +comp_total3 : j --> comp_total37 +comp_total37 : li $a3, 0 --> comp_total36 +comp_total36 : emit c66 --> comp_total35 +comp_total35 : slt $v0, $t2, $a1 --> comp_total34 +comp_total34 : j --> comp_total225 +comp_total225: seq $v0, $v0, $zero --> comp_total33 +comp_total33 : beq $v0, $a3 --> comp_total32, comp_total2 +comp_total32 : emit c64 --> comp_total31 +comp_total31 : emit c63 --> comp_total30 +comp_total30 : move $t1, $a2 --> comp_total7 +comp_total7 : j --> comp_total29 +comp_total29 : li $a3, 0 --> comp_total28 +comp_total28 : emit c62 --> comp_total27 +comp_total27 : j --> comp_total26 +comp_total26 : sgt $v0, $t1, $zero --> comp_total25 +comp_total25 : j --> comp_total224 +comp_total224: seq $v0, $v0, $zero --> comp_total24 +comp_total24 : beq $v0, $a3 --> comp_total23, comp_total6 +comp_total6 : emit c65 --> comp_total5 +comp_total5 : li $v0, 1 --> comp_total4 +comp_total4 : add $t2, $t2, $v0 --> comp_total3 +comp_total23 : emit c60 --> comp_total22 +comp_total22 : move $a3, $sp --> comp_total439 +comp_total439: j --> comp_total21 +comp_total21 : li $v0, 4 --> comp_total20 +comp_total20 : mulo $v0, $t2, $v0 --> comp_total19 +comp_total19 : add $v0, $a3, $v0 --> comp_total221 +comp_total221: lw $t0, 0($v0) --> comp_total18 +comp_total18 : move $a3, $sp --> comp_total434 +comp_total434: addi $a3, $a3, 40 --> comp_total17 +comp_total17 : li $v0, 4 --> comp_total16 +comp_total16 : mulo $v0, $t1, $v0 --> comp_total15 +comp_total15 : add $v0, $a3, $v0 --> comp_total214 +comp_total214: lw $v0, 0($v0) --> comp_total14 +comp_total14 : add $a3, $t0, $v0 --> comp_total13 +comp_total13 : li $v0, 4 --> comp_total12 +comp_total12 : mulo $v0, $t2, $v0 --> comp_total11 +comp_total11 : add $v0, $a0, $v0 --> comp_total208 +comp_total208: lw $a3, 0($v0) --> comp_total10 +comp_total10 : emit c61 --> comp_total9 +comp_total9 : li $v0, 1 --> comp_total8 +comp_total8 : sub $t1, $t1, $v0 --> comp_total7 + +procedure comp_ifFor(3) +var 0 +entry comp_ifFor45 +comp_ifFor45: newframe --> comp_ifFor44 +comp_ifFor44: j --> comp_ifFor43 +comp_ifFor43: j --> comp_ifFor42 +comp_ifFor42: j --> comp_ifFor41 +comp_ifFor41: j --> comp_ifFor40 +comp_ifFor40: j --> comp_ifFor39 +comp_ifFor39: j --> comp_ifFor38 +comp_ifFor38: j --> comp_ifFor37 +comp_ifFor37: j --> comp_ifFor36 +comp_ifFor36: j --> comp_ifFor35 +comp_ifFor35: j --> comp_ifFor34 +comp_ifFor34: j --> comp_ifFor33 +comp_ifFor33: j --> comp_ifFor32 +comp_ifFor32: j --> comp_ifFor31 +comp_ifFor31: j --> comp_ifFor30 +comp_ifFor30: j --> comp_ifFor29 +comp_ifFor29: j --> comp_ifFor28 +comp_ifFor28: j --> comp_ifFor27 +comp_ifFor27: j --> comp_ifFor26 +comp_ifFor26: j --> comp_ifFor25 +comp_ifFor25: j --> comp_ifFor23 +comp_ifFor23: emit c58 --> comp_ifFor22 +comp_ifFor22: li $v0, 0 --> comp_ifFor21 +comp_ifFor21: emit c57 --> comp_ifFor20 +comp_ifFor20: emit c56 --> comp_ifFor19 +comp_ifFor19: li $t0, 0 --> comp_ifFor3 +comp_ifFor3 : j --> comp_ifFor18 +comp_ifFor18: li $t1, 0 --> comp_ifFor17 +comp_ifFor17: emit c55 --> comp_ifFor16 +comp_ifFor16: slt $a3, $t0, $a0 --> comp_ifFor15 +comp_ifFor15: j --> comp_ifFor24 +comp_ifFor24: seq $a3, $a3, $zero --> comp_ifFor14 +comp_ifFor14: beq $a3, $t1 --> comp_ifFor13, comp_ifFor2 +comp_ifFor2 : emit c50 --> comp_ifFor1 +comp_ifFor1 : j --> comp_ifFor0 +comp_ifFor0 : j --> comp_ifFor57 +comp_ifFor57: j --> comp_ifFor56 +comp_ifFor56: j --> comp_ifFor55 +comp_ifFor55: j --> comp_ifFor54 +comp_ifFor54: j --> comp_ifFor53 +comp_ifFor53: j --> comp_ifFor52 +comp_ifFor52: j --> comp_ifFor51 +comp_ifFor51: j --> comp_ifFor50 +comp_ifFor50: j --> comp_ifFor49 +comp_ifFor49: j --> comp_ifFor48 +comp_ifFor48: j --> comp_ifFor47 +comp_ifFor47: delframe --> comp_ifFor46 +comp_ifFor46: jr $ra +comp_ifFor13: emit c53 --> comp_ifFor12 +comp_ifFor12: j --> comp_ifFor11 +comp_ifFor11: sne $a3, $t0, $a1 --> comp_ifFor10 +comp_ifFor10: beq $a3, $zero --> comp_ifFor7, comp_ifFor9 +comp_ifFor9 : emit c52 --> comp_ifFor8 +comp_ifFor8 : add $v0, $v0, $t0 --> comp_ifFor5 +comp_ifFor5 : emit c54 --> comp_ifFor4 +comp_ifFor4 : add $t0, $t0, $a2 --> comp_ifFor3 +comp_ifFor7 : emit c51 --> comp_ifFor6 +comp_ifFor6 : li $v0, 0 --> comp_ifFor5 + +procedure comp_forif2(4) +var 16 +entry comp_forif2153 +comp_forif2153: newframe --> comp_forif2152 +comp_forif2152: lw $ra, 12($sp) --> comp_forif2151 +comp_forif2151: j --> comp_forif2150 +comp_forif2150: j --> comp_forif2149 +comp_forif2149: j --> comp_forif2148 +comp_forif2148: j --> comp_forif2147 +comp_forif2147: j --> comp_forif2146 +comp_forif2146: lw $s2, 8($sp) --> comp_forif2145 +comp_forif2145: lw $s1, 4($sp) --> comp_forif2144 +comp_forif2144: lw $s0, 0($sp) --> comp_forif2143 +comp_forif2143: j --> comp_forif2142 +comp_forif2142: j --> comp_forif2141 +comp_forif2141: j --> comp_forif2140 +comp_forif2140: j --> comp_forif2139 +comp_forif2139: j --> comp_forif2138 +comp_forif2138: j --> comp_forif2137 +comp_forif2137: j --> comp_forif2136 +comp_forif2136: j --> comp_forif2135 +comp_forif2135: j --> comp_forif2134 +comp_forif2134: j --> comp_forif2133 +comp_forif2133: j --> comp_forif2132 +comp_forif2132: j --> comp_forif2131 +comp_forif2131: j --> comp_forif2130 +comp_forif2130: j --> comp_forif2129 +comp_forif2129: j --> comp_forif2128 +comp_forif2128: j --> comp_forif2127 +comp_forif2127: j --> comp_forif2126 +comp_forif2126: j --> comp_forif2125 +comp_forif2125: j --> comp_forif2124 +comp_forif2124: j --> comp_forif2123 +comp_forif2123: j --> comp_forif2122 +comp_forif2122: j --> comp_forif2121 +comp_forif2121: j --> comp_forif2120 +comp_forif2120: j --> comp_forif2119 +comp_forif2119: j --> comp_forif2118 +comp_forif2118: j --> comp_forif2117 +comp_forif2117: j --> comp_forif2116 +comp_forif2116: j --> comp_forif2115 +comp_forif2115: j --> comp_forif2114 +comp_forif2114: j --> comp_forif2113 +comp_forif2113: j --> comp_forif2112 +comp_forif2112: j --> comp_forif2111 +comp_forif2111: j --> comp_forif2110 +comp_forif2110: j --> comp_forif2109 +comp_forif2109: j --> comp_forif2108 +comp_forif2108: j --> comp_forif2107 +comp_forif2107: j --> comp_forif2106 +comp_forif2106: j --> comp_forif2105 +comp_forif2105: j --> comp_forif2104 +comp_forif2104: j --> comp_forif2103 +comp_forif2103: j --> comp_forif2102 +comp_forif2102: j --> comp_forif2101 +comp_forif2101: j --> comp_forif2100 +comp_forif2100: j --> comp_forif299 +comp_forif299 : j --> comp_forif298 +comp_forif298 : j --> comp_forif297 +comp_forif297 : j --> comp_forif296 +comp_forif296 : j --> comp_forif295 +comp_forif295 : j --> comp_forif294 +comp_forif294 : j --> comp_forif293 +comp_forif293 : j --> comp_forif292 +comp_forif292 : j --> comp_forif291 +comp_forif291 : j --> comp_forif282 +comp_forif282 : emit c130 --> comp_forif281 +comp_forif281 : li $s0, 0 --> comp_forif280 +comp_forif280 : emit c129 --> comp_forif279 +comp_forif279 : li $s1, 0 --> comp_forif278 +comp_forif278 : emit c128 --> comp_forif277 +comp_forif277 : emit c127 --> comp_forif276 +comp_forif276 : li $t0, 0 --> comp_forif262 +comp_forif262 : j --> comp_forif275 +comp_forif275 : li $t1, 0 --> comp_forif274 +comp_forif274 : emit c126 --> comp_forif273 +comp_forif273 : slt $v0, $t0, $a2 --> comp_forif272 +comp_forif272 : j --> comp_forif290 +comp_forif290 : seq $v0, $v0, $zero --> comp_forif271 +comp_forif271 : beq $v0, $t1 --> comp_forif270, comp_forif261 +comp_forif261 : emit c123 --> comp_forif260 +comp_forif260 : emit c122 --> comp_forif259 +comp_forif259 : li $a0, 0 --> comp_forif245 +comp_forif245 : j --> comp_forif258 +comp_forif258 : li $a2, 0 --> comp_forif257 +comp_forif257 : emit c121 --> comp_forif256 +comp_forif256 : slt $v0, $a0, $a3 --> comp_forif255 +comp_forif255 : j --> comp_forif288 +comp_forif288 : seq $v0, $v0, $zero --> comp_forif254 +comp_forif254 : beq $v0, $a2 --> comp_forif253, comp_forif244 +comp_forif244 : emit c118 --> comp_forif243 +comp_forif243 : li $s2, 0 --> comp_forif242 +comp_forif242 : j --> comp_forif241 +comp_forif241 : emit c117 --> comp_forif240 +comp_forif240 : li $a1, 2 --> comp_forif239 +comp_forif239 : la $v0, mod --> comp_forif286 +comp_forif286 : j --> comp_forif2181 +comp_forif2181: move $a0, $s0 --> comp_forif2180 +comp_forif2180: j --> comp_forif2179 +comp_forif2179: call $v0 --> comp_forif2178 +comp_forif2178: j --> comp_forif238 +comp_forif238 : li $a0, 0 --> comp_forif237 +comp_forif237 : seq $v0, $v0, $a0 --> comp_forif236 +comp_forif236 : beq $v0, $zero --> comp_forif226, comp_forif235 +comp_forif235 : j --> comp_forif234 +comp_forif234 : emit c116 --> comp_forif233 +comp_forif233 : li $a1, 2 --> comp_forif232 +comp_forif232 : la $v0, mod --> comp_forif285 +comp_forif285 : j --> comp_forif2177 +comp_forif2177: move $a0, $s1 --> comp_forif2176 +comp_forif2176: j --> comp_forif2175 +comp_forif2175: call $v0 --> comp_forif2174 +comp_forif2174: j --> comp_forif231 +comp_forif231 : li $a0, 0 --> comp_forif230 +comp_forif230 : seq $v0, $v0, $a0 --> comp_forif229 +comp_forif229 : beq $v0, $zero --> comp_forif227, comp_forif228 +comp_forif228 : li $v0, 1 --> comp_forif225 +comp_forif225 : beq $v0, $s2 --> comp_forif222, comp_forif224 +comp_forif224 : emit c115 --> comp_forif223 +comp_forif223 : j --> comp_forif22 +comp_forif22 : emit c109 --> comp_forif21 +comp_forif21 : li $v0, 0 --> comp_forif20 +comp_forif20 : j --> comp_forif2165 +comp_forif2165: j --> comp_forif2164 +comp_forif2164: lw $ra, 12($sp) --> comp_forif2163 +comp_forif2163: j --> comp_forif2162 +comp_forif2162: j --> comp_forif2161 +comp_forif2161: j --> comp_forif2160 +comp_forif2160: j --> comp_forif2159 +comp_forif2159: j --> comp_forif2158 +comp_forif2158: lw $s2, 8($sp) --> comp_forif2157 +comp_forif2157: lw $s1, 4($sp) --> comp_forif2156 +comp_forif2156: lw $s0, 0($sp) --> comp_forif2155 +comp_forif2155: delframe --> comp_forif2154 +comp_forif2154: jr $ra +comp_forif222 : emit c114 --> comp_forif221 +comp_forif221 : j --> comp_forif220 +comp_forif220 : li $a1, 2 --> comp_forif219 +comp_forif219 : la $v0, mod --> comp_forif284 +comp_forif284 : j --> comp_forif2173 +comp_forif2173: move $a0, $s0 --> comp_forif2172 +comp_forif2172: j --> comp_forif2171 +comp_forif2171: call $v0 --> comp_forif2170 +comp_forif2170: j --> comp_forif218 +comp_forif218 : li $a0, 0 --> comp_forif217 +comp_forif217 : seq $v0, $v0, $a0 --> comp_forif216 +comp_forif216 : beq $v0, $zero --> comp_forif213, comp_forif215 +comp_forif215 : emit c113 --> comp_forif214 +comp_forif214 : j --> comp_forif22 +comp_forif213 : emit c112 --> comp_forif212 +comp_forif212 : j --> comp_forif211 +comp_forif211 : li $a1, 2 --> comp_forif210 +comp_forif210 : la $v0, mod --> comp_forif283 +comp_forif283 : j --> comp_forif2169 +comp_forif2169: move $a0, $s1 --> comp_forif2168 +comp_forif2168: j --> comp_forif2167 +comp_forif2167: call $v0 --> comp_forif2166 +comp_forif2166: j --> comp_forif29 +comp_forif29 : li $a0, 0 --> comp_forif28 +comp_forif28 : seq $v0, $v0, $a0 --> comp_forif27 +comp_forif27 : beq $v0, $zero --> comp_forif24, comp_forif26 +comp_forif26 : emit c111 --> comp_forif25 +comp_forif25 : j --> comp_forif22 +comp_forif24 : emit c110 --> comp_forif23 +comp_forif23 : j --> comp_forif22 +comp_forif227 : li $v0, 0 --> comp_forif225 +comp_forif226 : li $v0, 0 --> comp_forif225 +comp_forif253 : emit c119 --> comp_forif252 +comp_forif252 : li $v0, 4 --> comp_forif251 +comp_forif251 : mulo $v0, $a0, $v0 --> comp_forif250 +comp_forif250 : add $v0, $a1, $v0 --> comp_forif287 +comp_forif287 : lw $v0, 0($v0) --> comp_forif249 +comp_forif249 : add $s1, $s1, $v0 --> comp_forif248 +comp_forif248 : emit c120 --> comp_forif247 +comp_forif247 : li $v0, 1 --> comp_forif246 +comp_forif246 : add $a0, $a0, $v0 --> comp_forif245 +comp_forif270 : emit c124 --> comp_forif269 +comp_forif269 : li $v0, 4 --> comp_forif268 +comp_forif268 : mulo $v0, $t0, $v0 --> comp_forif267 +comp_forif267 : add $v0, $a0, $v0 --> comp_forif289 +comp_forif289 : lw $v0, 0($v0) --> comp_forif266 +comp_forif266 : add $s0, $s0, $v0 --> comp_forif265 +comp_forif265 : emit c125 --> comp_forif264 +comp_forif264 : li $v0, 1 --> comp_forif263 +comp_forif263 : add $t0, $t0, $v0 --> comp_forif262 + +procedure comp_forif(0) +var 12 +entry comp_forif65 +comp_forif65: newframe --> comp_forif64 +comp_forif64: lw $ra, 8($sp) --> comp_forif63 +comp_forif63: j --> comp_forif62 +comp_forif62: j --> comp_forif61 +comp_forif61: j --> comp_forif60 +comp_forif60: j --> comp_forif59 +comp_forif59: j --> comp_forif58 +comp_forif58: j --> comp_forif57 +comp_forif57: lw $s1, 4($sp) --> comp_forif56 +comp_forif56: lw $s0, 0($sp) --> comp_forif55 +comp_forif55: j --> comp_forif54 +comp_forif54: j --> comp_forif53 +comp_forif53: j --> comp_forif52 +comp_forif52: j --> comp_forif51 +comp_forif51: j --> comp_forif50 +comp_forif50: j --> comp_forif49 +comp_forif49: j --> comp_forif48 +comp_forif48: j --> comp_forif47 +comp_forif47: j --> comp_forif46 +comp_forif46: j --> comp_forif45 +comp_forif45: j --> comp_forif44 +comp_forif44: j --> comp_forif43 +comp_forif43: j --> comp_forif42 +comp_forif42: j --> comp_forif41 +comp_forif41: j --> comp_forif40 +comp_forif40: j --> comp_forif39 +comp_forif39: j --> comp_forif38 +comp_forif38: j --> comp_forif35 +comp_forif35: emit c141 --> comp_forif34 +comp_forif34: li $s1, 0 --> comp_forif33 +comp_forif33: emit c140 --> comp_forif32 +comp_forif32: j --> comp_forif31 +comp_forif31: emit c139 --> comp_forif30 +comp_forif30: emit c138 --> comp_forif29 +comp_forif29: li $s0, 0 --> comp_forif3 +comp_forif3 : j --> comp_forif28 +comp_forif28: li $a0, 0 --> comp_forif27 +comp_forif27: emit c137 --> comp_forif26 +comp_forif26: li $v0, 10 --> comp_forif25 +comp_forif25: slt $v0, $s0, $v0 --> comp_forif24 +comp_forif24: j --> comp_forif37 +comp_forif37: seq $v0, $v0, $zero --> comp_forif23 +comp_forif23: beq $v0, $a0 --> comp_forif22, comp_forif2 +comp_forif2 : emit c131 --> comp_forif1 +comp_forif1 : j --> comp_forif0 +comp_forif0 : j --> comp_forif77 +comp_forif77: move $v0, $s1 --> comp_forif76 +comp_forif76: lw $ra, 8($sp) --> comp_forif75 +comp_forif75: j --> comp_forif74 +comp_forif74: j --> comp_forif73 +comp_forif73: j --> comp_forif72 +comp_forif72: j --> comp_forif71 +comp_forif71: j --> comp_forif70 +comp_forif70: j --> comp_forif69 +comp_forif69: lw $s1, 4($sp) --> comp_forif68 +comp_forif68: lw $s0, 0($sp) --> comp_forif67 +comp_forif67: delframe --> comp_forif66 +comp_forif66: jr $ra +comp_forif22: emit c135 --> comp_forif21 +comp_forif21: li $v0, 1 --> comp_forif20 +comp_forif20: add $s1, $s1, $v0 --> comp_forif19 +comp_forif19: emit c134 --> comp_forif18 +comp_forif18: li $v0, 1 --> comp_forif17 +comp_forif17: add $s1, $s1, $v0 --> comp_forif16 +comp_forif16: emit c133 --> comp_forif15 +comp_forif15: j --> comp_forif14 +comp_forif14: li $a1, 2 --> comp_forif13 +comp_forif13: la $v0, mod --> comp_forif36 +comp_forif36: j --> comp_forif81 +comp_forif81: move $a0, $s0 --> comp_forif80 +comp_forif80: j --> comp_forif79 +comp_forif79: call $v0 --> comp_forif78 +comp_forif78: j --> comp_forif12 +comp_forif12: li $a0, 0 --> comp_forif11 +comp_forif11: seq $v0, $v0, $a0 --> comp_forif10 +comp_forif10: beq $v0, $zero --> comp_forif6, comp_forif9 +comp_forif9 : emit c132 --> comp_forif8 +comp_forif8 : j --> comp_forif7 +comp_forif7 : j --> comp_forif6 +comp_forif6 : emit c136 --> comp_forif5 +comp_forif5 : li $v0, 1 --> comp_forif4 +comp_forif4 : add $s0, $s0, $v0 --> comp_forif3 + +procedure comp_fir_basic(5) +var 4 +entry comp_fir_basic141 +comp_fir_basic141: newframe --> comp_fir_basic140 +comp_fir_basic140: j --> comp_fir_basic139 +comp_fir_basic139: j --> comp_fir_basic138 +comp_fir_basic138: j --> comp_fir_basic137 +comp_fir_basic137: j --> comp_fir_basic136 +comp_fir_basic136: j --> comp_fir_basic135 +comp_fir_basic135: j --> comp_fir_basic134 +comp_fir_basic134: j --> comp_fir_basic133 +comp_fir_basic133: j --> comp_fir_basic132 +comp_fir_basic132: j --> comp_fir_basic131 +comp_fir_basic131: j --> comp_fir_basic130 +comp_fir_basic130: j --> comp_fir_basic129 +comp_fir_basic129: j --> comp_fir_basic128 +comp_fir_basic128: j --> comp_fir_basic127 +comp_fir_basic127: j --> comp_fir_basic126 +comp_fir_basic126: j --> comp_fir_basic125 +comp_fir_basic125: j --> comp_fir_basic124 +comp_fir_basic124: j --> comp_fir_basic123 +comp_fir_basic123: j --> comp_fir_basic122 +comp_fir_basic122: j --> comp_fir_basic121 +comp_fir_basic121: j --> comp_fir_basic120 +comp_fir_basic120: j --> comp_fir_basic119 +comp_fir_basic119: j --> comp_fir_basic118 +comp_fir_basic118: j --> comp_fir_basic117 +comp_fir_basic117: j --> comp_fir_basic116 +comp_fir_basic116: j --> comp_fir_basic115 +comp_fir_basic115: j --> comp_fir_basic114 +comp_fir_basic114: j --> comp_fir_basic113 +comp_fir_basic113: j --> comp_fir_basic112 +comp_fir_basic112: j --> comp_fir_basic111 +comp_fir_basic111: j --> comp_fir_basic110 +comp_fir_basic110: j --> comp_fir_basic109 +comp_fir_basic109: j --> comp_fir_basic108 +comp_fir_basic108: j --> comp_fir_basic107 +comp_fir_basic107: j --> comp_fir_basic106 +comp_fir_basic106: j --> comp_fir_basic105 +comp_fir_basic105: j --> comp_fir_basic104 +comp_fir_basic104: j --> comp_fir_basic103 +comp_fir_basic103: j --> comp_fir_basic102 +comp_fir_basic102: j --> comp_fir_basic101 +comp_fir_basic101: j --> comp_fir_basic100 +comp_fir_basic100: j --> comp_fir_basic99 +comp_fir_basic99 : j --> comp_fir_basic98 +comp_fir_basic98 : j --> comp_fir_basic97 +comp_fir_basic97 : j --> comp_fir_basic96 +comp_fir_basic96 : j --> comp_fir_basic95 +comp_fir_basic95 : j --> comp_fir_basic94 +comp_fir_basic94 : j --> comp_fir_basic93 +comp_fir_basic93 : j --> comp_fir_basic92 +comp_fir_basic92 : j --> comp_fir_basic91 +comp_fir_basic91 : j --> comp_fir_basic90 +comp_fir_basic90 : j --> comp_fir_basic89 +comp_fir_basic89 : j --> comp_fir_basic88 +comp_fir_basic88 : j --> comp_fir_basic87 +comp_fir_basic87 : j --> comp_fir_basic86 +comp_fir_basic86 : j --> comp_fir_basic85 +comp_fir_basic85 : j --> comp_fir_basic84 +comp_fir_basic84 : j --> comp_fir_basic83 +comp_fir_basic83 : j --> comp_fir_basic82 +comp_fir_basic82 : j --> comp_fir_basic81 +comp_fir_basic81 : j --> comp_fir_basic80 +comp_fir_basic80 : j --> comp_fir_basic79 +comp_fir_basic79 : j --> comp_fir_basic69 +comp_fir_basic69 : emit c16 --> comp_fir_basic68 +comp_fir_basic68 : li $v0, 0 --> comp_fir_basic67 +comp_fir_basic67 : emit c15 --> comp_fir_basic66 +comp_fir_basic66 : emit c14 --> comp_fir_basic65 +comp_fir_basic65 : li $t3, 0 --> comp_fir_basic3 +comp_fir_basic3 : j --> comp_fir_basic64 +comp_fir_basic64 : li $t0, 0 --> comp_fir_basic63 +comp_fir_basic63 : emit c13 --> comp_fir_basic62 +comp_fir_basic62 : li $a3, 3 --> comp_fir_basic61 +comp_fir_basic61 : slt $a3, $t3, $a3 --> comp_fir_basic60 +comp_fir_basic60 : j --> comp_fir_basic78 +comp_fir_basic78 : seq $a3, $a3, $zero --> comp_fir_basic59 +comp_fir_basic59 : beq $a3, $t0 --> comp_fir_basic58, comp_fir_basic2 +comp_fir_basic2 : emit c0 --> comp_fir_basic1 +comp_fir_basic1 : j --> comp_fir_basic0 +comp_fir_basic0 : j --> comp_fir_basic153 +comp_fir_basic153: j --> comp_fir_basic152 +comp_fir_basic152: j --> comp_fir_basic151 +comp_fir_basic151: j --> comp_fir_basic150 +comp_fir_basic150: j --> comp_fir_basic149 +comp_fir_basic149: j --> comp_fir_basic148 +comp_fir_basic148: j --> comp_fir_basic147 +comp_fir_basic147: j --> comp_fir_basic146 +comp_fir_basic146: j --> comp_fir_basic145 +comp_fir_basic145: j --> comp_fir_basic144 +comp_fir_basic144: j --> comp_fir_basic143 +comp_fir_basic143: delframe --> comp_fir_basic142 +comp_fir_basic142: jr $ra +comp_fir_basic58 : emit c11 --> comp_fir_basic57 +comp_fir_basic57 : li $a3, 4 --> comp_fir_basic56 +comp_fir_basic56 : mulo $a3, $t3, $a3 --> comp_fir_basic55 +comp_fir_basic55 : add $a3, $a0, $a3 --> comp_fir_basic77 +comp_fir_basic77 : lw $t0, 0($a3) --> comp_fir_basic54 +comp_fir_basic54 : j --> comp_fir_basic53 +comp_fir_basic53 : li $a3, 4 --> comp_fir_basic52 +comp_fir_basic52 : mulo $a3, $zero, $a3 --> comp_fir_basic51 +comp_fir_basic51 : add $a3, $a2, $a3 --> comp_fir_basic76 +comp_fir_basic76 : lw $t0, 0($a3) --> comp_fir_basic50 +comp_fir_basic50 : emit c10 --> comp_fir_basic49 +comp_fir_basic49 : emit c9 --> comp_fir_basic48 +comp_fir_basic48 : li $t0, 0 --> comp_fir_basic29 +comp_fir_basic29 : j --> comp_fir_basic47 +comp_fir_basic47 : li $t1, 0 --> comp_fir_basic46 +comp_fir_basic46 : emit c8 --> comp_fir_basic45 +comp_fir_basic45 : li $a3, 3 --> comp_fir_basic44 +comp_fir_basic44 : slt $a3, $t0, $a3 --> comp_fir_basic43 +comp_fir_basic43 : j --> comp_fir_basic75 +comp_fir_basic75 : seq $a3, $a3, $zero --> comp_fir_basic42 +comp_fir_basic42 : beq $a3, $t1 --> comp_fir_basic41, comp_fir_basic28 +comp_fir_basic28 : emit c5 --> comp_fir_basic27 +comp_fir_basic27 : emit c4 --> comp_fir_basic26 +comp_fir_basic26 : li $t2, 2 --> comp_fir_basic7 +comp_fir_basic7 : j --> comp_fir_basic25 +comp_fir_basic25 : li $t0, 0 --> comp_fir_basic24 +comp_fir_basic24 : emit c3 --> comp_fir_basic23 +comp_fir_basic23 : j --> comp_fir_basic22 +comp_fir_basic22 : sge $a3, $t2, $zero --> comp_fir_basic21 +comp_fir_basic21 : j --> comp_fir_basic72 +comp_fir_basic72 : seq $a3, $a3, $zero --> comp_fir_basic20 +comp_fir_basic20 : beq $a3, $t0 --> comp_fir_basic19, comp_fir_basic6 +comp_fir_basic6 : emit c12 --> comp_fir_basic5 +comp_fir_basic5 : li $a3, 1 --> comp_fir_basic4 +comp_fir_basic4 : add $t3, $t3, $a3 --> comp_fir_basic3 +comp_fir_basic19 : emit c1 --> comp_fir_basic18 +comp_fir_basic18 : li $a3, 4 --> comp_fir_basic17 +comp_fir_basic17 : mulo $a3, $t2, $a3 --> comp_fir_basic16 +comp_fir_basic16 : add $a3, $a2, $a3 --> comp_fir_basic71 +comp_fir_basic71 : lw $t1, 0($a3) --> comp_fir_basic15 +comp_fir_basic15 : li $a3, 1 --> comp_fir_basic14 +comp_fir_basic14 : add $t0, $t2, $a3 --> comp_fir_basic13 +comp_fir_basic13 : li $a3, 4 --> comp_fir_basic12 +comp_fir_basic12 : mulo $a3, $t0, $a3 --> comp_fir_basic11 +comp_fir_basic11 : add $a3, $a2, $a3 --> comp_fir_basic70 +comp_fir_basic70 : lw $t1, 0($a3) --> comp_fir_basic10 +comp_fir_basic10 : emit c2 --> comp_fir_basic9 +comp_fir_basic9 : li $a3, 1 --> comp_fir_basic8 +comp_fir_basic8 : sub $t2, $t2, $a3 --> comp_fir_basic7 +comp_fir_basic41 : emit c6 --> comp_fir_basic40 +comp_fir_basic40 : li $a3, 4 --> comp_fir_basic39 +comp_fir_basic39 : mulo $a3, $t0, $a3 --> comp_fir_basic38 +comp_fir_basic38 : add $a3, $a1, $a3 --> comp_fir_basic74 +comp_fir_basic74 : lw $t1, 0($a3) --> comp_fir_basic37 +comp_fir_basic37 : li $a3, 4 --> comp_fir_basic36 +comp_fir_basic36 : mulo $a3, $t0, $a3 --> comp_fir_basic35 +comp_fir_basic35 : add $a3, $a2, $a3 --> comp_fir_basic73 +comp_fir_basic73 : lw $a3, 0($a3) --> comp_fir_basic34 +comp_fir_basic34 : mulo $a3, $t1, $a3 --> comp_fir_basic33 +comp_fir_basic33 : add $v0, $v0, $a3 --> comp_fir_basic32 +comp_fir_basic32 : emit c7 --> comp_fir_basic31 +comp_fir_basic31 : li $a3, 1 --> comp_fir_basic30 +comp_fir_basic30 : add $t0, $t0, $a3 --> comp_fir_basic29 + +procedure comp_fir16(4) +var 96 +entry comp_fir16373 +comp_fir16373: newframe --> comp_fir16372 +comp_fir16372: lw $ra, 92($sp) --> comp_fir16371 +comp_fir16371: j --> comp_fir16370 +comp_fir16370: lw $s6, 88($sp) --> comp_fir16369 +comp_fir16369: lw $s5, 84($sp) --> comp_fir16368 +comp_fir16368: lw $s4, 80($sp) --> comp_fir16367 +comp_fir16367: lw $s3, 76($sp) --> comp_fir16366 +comp_fir16366: lw $s2, 72($sp) --> comp_fir16365 +comp_fir16365: lw $s1, 68($sp) --> comp_fir16364 +comp_fir16364: lw $s0, 64($sp) --> comp_fir16363 +comp_fir16363: move $s6, $a0 --> comp_fir16362 +comp_fir16362: move $s5, $a1 --> comp_fir16361 +comp_fir16361: move $s4, $a2 --> comp_fir16360 +comp_fir16360: move $s3, $a3 --> comp_fir16359 +comp_fir16359: j --> comp_fir16358 +comp_fir16358: j --> comp_fir16357 +comp_fir16357: j --> comp_fir16356 +comp_fir16356: j --> comp_fir16355 +comp_fir16355: j --> comp_fir16354 +comp_fir16354: j --> comp_fir16353 +comp_fir16353: j --> comp_fir16352 +comp_fir16352: j --> comp_fir16351 +comp_fir16351: j --> comp_fir16350 +comp_fir16350: j --> comp_fir16349 +comp_fir16349: j --> comp_fir16348 +comp_fir16348: j --> comp_fir16347 +comp_fir16347: j --> comp_fir16346 +comp_fir16346: j --> comp_fir16345 +comp_fir16345: j --> comp_fir16344 +comp_fir16344: j --> comp_fir16343 +comp_fir16343: j --> comp_fir16342 +comp_fir16342: j --> comp_fir16341 +comp_fir16341: j --> comp_fir16340 +comp_fir16340: j --> comp_fir16339 +comp_fir16339: j --> comp_fir16338 +comp_fir16338: j --> comp_fir16337 +comp_fir16337: j --> comp_fir16336 +comp_fir16336: j --> comp_fir16335 +comp_fir16335: j --> comp_fir16334 +comp_fir16334: j --> comp_fir16333 +comp_fir16333: j --> comp_fir16332 +comp_fir16332: j --> comp_fir16331 +comp_fir16331: j --> comp_fir16330 +comp_fir16330: j --> comp_fir16329 +comp_fir16329: j --> comp_fir16328 +comp_fir16328: j --> comp_fir16327 +comp_fir16327: j --> comp_fir16326 +comp_fir16326: j --> comp_fir16325 +comp_fir16325: j --> comp_fir16324 +comp_fir16324: j --> comp_fir16323 +comp_fir16323: j --> comp_fir16322 +comp_fir16322: j --> comp_fir16321 +comp_fir16321: j --> comp_fir16320 +comp_fir16320: j --> comp_fir16319 +comp_fir16319: j --> comp_fir16318 +comp_fir16318: j --> comp_fir16317 +comp_fir16317: j --> comp_fir16316 +comp_fir16316: j --> comp_fir16315 +comp_fir16315: j --> comp_fir16314 +comp_fir16314: j --> comp_fir16313 +comp_fir16313: j --> comp_fir16312 +comp_fir16312: j --> comp_fir16311 +comp_fir16311: j --> comp_fir16310 +comp_fir16310: j --> comp_fir16309 +comp_fir16309: j --> comp_fir16308 +comp_fir16308: j --> comp_fir16307 +comp_fir16307: j --> comp_fir16306 +comp_fir16306: j --> comp_fir16305 +comp_fir16305: j --> comp_fir16304 +comp_fir16304: j --> comp_fir16303 +comp_fir16303: j --> comp_fir16302 +comp_fir16302: j --> comp_fir16301 +comp_fir16301: j --> comp_fir16300 +comp_fir16300: j --> comp_fir16299 +comp_fir16299: j --> comp_fir16298 +comp_fir16298: j --> comp_fir16297 +comp_fir16297: j --> comp_fir16296 +comp_fir16296: j --> comp_fir16295 +comp_fir16295: j --> comp_fir16294 +comp_fir16294: j --> comp_fir16293 +comp_fir16293: j --> comp_fir16292 +comp_fir16292: j --> comp_fir16291 +comp_fir16291: j --> comp_fir16290 +comp_fir16290: j --> comp_fir16289 +comp_fir16289: j --> comp_fir16288 +comp_fir16288: j --> comp_fir16287 +comp_fir16287: j --> comp_fir16286 +comp_fir16286: j --> comp_fir16285 +comp_fir16285: j --> comp_fir16284 +comp_fir16284: j --> comp_fir16283 +comp_fir16283: j --> comp_fir16282 +comp_fir16282: j --> comp_fir16281 +comp_fir16281: j --> comp_fir16280 +comp_fir16280: j --> comp_fir16279 +comp_fir16279: j --> comp_fir16278 +comp_fir16278: j --> comp_fir16277 +comp_fir16277: j --> comp_fir16276 +comp_fir16276: j --> comp_fir16275 +comp_fir16275: j --> comp_fir16274 +comp_fir16274: j --> comp_fir16273 +comp_fir16273: j --> comp_fir16272 +comp_fir16272: j --> comp_fir16271 +comp_fir16271: j --> comp_fir16270 +comp_fir16270: j --> comp_fir16269 +comp_fir16269: j --> comp_fir16268 +comp_fir16268: j --> comp_fir16267 +comp_fir16267: j --> comp_fir16266 +comp_fir16266: j --> comp_fir16265 +comp_fir16265: j --> comp_fir16264 +comp_fir16264: j --> comp_fir16263 +comp_fir16263: j --> comp_fir16262 +comp_fir16262: j --> comp_fir16261 +comp_fir16261: j --> comp_fir16260 +comp_fir16260: j --> comp_fir16259 +comp_fir16259: j --> comp_fir16258 +comp_fir16258: j --> comp_fir16257 +comp_fir16257: j --> comp_fir16256 +comp_fir16256: j --> comp_fir16255 +comp_fir16255: j --> comp_fir16254 +comp_fir16254: j --> comp_fir16253 +comp_fir16253: j --> comp_fir16252 +comp_fir16252: j --> comp_fir16251 +comp_fir16251: j --> comp_fir16250 +comp_fir16250: j --> comp_fir16249 +comp_fir16249: j --> comp_fir16248 +comp_fir16248: j --> comp_fir16247 +comp_fir16247: j --> comp_fir16246 +comp_fir16246: j --> comp_fir16245 +comp_fir16245: j --> comp_fir16244 +comp_fir16244: j --> comp_fir16243 +comp_fir16243: j --> comp_fir16242 +comp_fir16242: j --> comp_fir16241 +comp_fir16241: j --> comp_fir16240 +comp_fir16240: j --> comp_fir16239 +comp_fir16239: j --> comp_fir16238 +comp_fir16238: j --> comp_fir16237 +comp_fir16237: j --> comp_fir16236 +comp_fir16236: j --> comp_fir16235 +comp_fir16235: j --> comp_fir16234 +comp_fir16234: j --> comp_fir16233 +comp_fir16233: j --> comp_fir16232 +comp_fir16232: j --> comp_fir16231 +comp_fir16231: j --> comp_fir16230 +comp_fir16230: j --> comp_fir16229 +comp_fir16229: j --> comp_fir16228 +comp_fir16228: j --> comp_fir16227 +comp_fir16227: j --> comp_fir16226 +comp_fir16226: j --> comp_fir16225 +comp_fir16225: j --> comp_fir16224 +comp_fir16224: j --> comp_fir16223 +comp_fir16223: j --> comp_fir16222 +comp_fir16222: j --> comp_fir16221 +comp_fir16221: j --> comp_fir16220 +comp_fir16220: j --> comp_fir16219 +comp_fir16219: j --> comp_fir16218 +comp_fir16218: j --> comp_fir16217 +comp_fir16217: j --> comp_fir16216 +comp_fir16216: j --> comp_fir16215 +comp_fir16215: j --> comp_fir16214 +comp_fir16214: j --> comp_fir16213 +comp_fir16213: j --> comp_fir16212 +comp_fir16212: j --> comp_fir16211 +comp_fir16211: j --> comp_fir16184 +comp_fir16184: emit c49 --> comp_fir16183 +comp_fir16183: li $a1, 0 --> comp_fir16182 +comp_fir16182: move $a0, $sp --> comp_fir16397 +comp_fir16397: j --> comp_fir16181 +comp_fir16181: j --> comp_fir16180 +comp_fir16180: li $v0, 4 --> comp_fir16179 +comp_fir16179: mulo $v0, $zero, $v0 --> comp_fir16178 +comp_fir16178: add $v0, $a0, $v0 --> comp_fir16199 +comp_fir16199: lw $a1, 0($v0) --> comp_fir16177 +comp_fir16177: emit c48 --> comp_fir16176 +comp_fir16176: j --> comp_fir16175 +comp_fir16175: move $a1, $sp --> comp_fir16396 +comp_fir16396: j --> comp_fir16174 +comp_fir16174: li $a0, 1 --> comp_fir16173 +comp_fir16173: li $v0, 4 --> comp_fir16172 +comp_fir16172: mulo $v0, $a0, $v0 --> comp_fir16171 +comp_fir16171: add $v0, $a1, $v0 --> comp_fir16198 +comp_fir16198: lw $zero, 0($v0) --> comp_fir16170 +comp_fir16170: emit c47 --> comp_fir16169 +comp_fir16169: j --> comp_fir16168 +comp_fir16168: move $a1, $sp --> comp_fir16395 +comp_fir16395: j --> comp_fir16167 +comp_fir16167: li $a0, 2 --> comp_fir16166 +comp_fir16166: li $v0, 4 --> comp_fir16165 +comp_fir16165: mulo $v0, $a0, $v0 --> comp_fir16164 +comp_fir16164: add $v0, $a1, $v0 --> comp_fir16197 +comp_fir16197: lw $zero, 0($v0) --> comp_fir16163 +comp_fir16163: emit c46 --> comp_fir16162 +comp_fir16162: j --> comp_fir16161 +comp_fir16161: move $a1, $sp --> comp_fir16394 +comp_fir16394: j --> comp_fir16160 +comp_fir16160: li $a0, 3 --> comp_fir16159 +comp_fir16159: li $v0, 4 --> comp_fir16158 +comp_fir16158: mulo $v0, $a0, $v0 --> comp_fir16157 +comp_fir16157: add $v0, $a1, $v0 --> comp_fir16196 +comp_fir16196: lw $zero, 0($v0) --> comp_fir16156 +comp_fir16156: emit c45 --> comp_fir16155 +comp_fir16155: j --> comp_fir16154 +comp_fir16154: move $a1, $sp --> comp_fir16393 +comp_fir16393: j --> comp_fir16153 +comp_fir16153: li $a0, 4 --> comp_fir16152 +comp_fir16152: li $v0, 4 --> comp_fir16151 +comp_fir16151: mulo $v0, $a0, $v0 --> comp_fir16150 +comp_fir16150: add $v0, $a1, $v0 --> comp_fir16195 +comp_fir16195: lw $zero, 0($v0) --> comp_fir16149 +comp_fir16149: emit c44 --> comp_fir16148 +comp_fir16148: j --> comp_fir16147 +comp_fir16147: move $a1, $sp --> comp_fir16392 +comp_fir16392: j --> comp_fir16146 +comp_fir16146: li $a0, 5 --> comp_fir16145 +comp_fir16145: li $v0, 4 --> comp_fir16144 +comp_fir16144: mulo $v0, $a0, $v0 --> comp_fir16143 +comp_fir16143: add $v0, $a1, $v0 --> comp_fir16193 +comp_fir16193: lw $zero, 0($v0) --> comp_fir16142 +comp_fir16142: emit c43 --> comp_fir16141 +comp_fir16141: j --> comp_fir16140 +comp_fir16140: move $a1, $sp --> comp_fir16391 +comp_fir16391: j --> comp_fir16139 +comp_fir16139: li $a0, 6 --> comp_fir16138 +comp_fir16138: li $v0, 4 --> comp_fir16137 +comp_fir16137: mulo $v0, $a0, $v0 --> comp_fir16136 +comp_fir16136: add $v0, $a1, $v0 --> comp_fir16192 +comp_fir16192: lw $zero, 0($v0) --> comp_fir16135 +comp_fir16135: emit c42 --> comp_fir16134 +comp_fir16134: j --> comp_fir16133 +comp_fir16133: move $a1, $sp --> comp_fir16390 +comp_fir16390: j --> comp_fir16132 +comp_fir16132: li $a0, 7 --> comp_fir16131 +comp_fir16131: li $v0, 4 --> comp_fir16130 +comp_fir16130: mulo $v0, $a0, $v0 --> comp_fir16129 +comp_fir16129: add $v0, $a1, $v0 --> comp_fir16191 +comp_fir16191: lw $zero, 0($v0) --> comp_fir16128 +comp_fir16128: emit c41 --> comp_fir16127 +comp_fir16127: j --> comp_fir16126 +comp_fir16126: move $a1, $sp --> comp_fir16389 +comp_fir16389: j --> comp_fir16125 +comp_fir16125: li $a0, 8 --> comp_fir16124 +comp_fir16124: li $v0, 4 --> comp_fir16123 +comp_fir16123: mulo $v0, $a0, $v0 --> comp_fir16122 +comp_fir16122: add $v0, $a1, $v0 --> comp_fir16190 +comp_fir16190: lw $zero, 0($v0) --> comp_fir16121 +comp_fir16121: emit c40 --> comp_fir16120 +comp_fir16120: j --> comp_fir16119 +comp_fir16119: move $a1, $sp --> comp_fir16388 +comp_fir16388: j --> comp_fir16118 +comp_fir16118: li $a0, 9 --> comp_fir16117 +comp_fir16117: li $v0, 4 --> comp_fir16116 +comp_fir16116: mulo $v0, $a0, $v0 --> comp_fir16115 +comp_fir16115: add $v0, $a1, $v0 --> comp_fir16189 +comp_fir16189: lw $zero, 0($v0) --> comp_fir16114 +comp_fir16114: emit c39 --> comp_fir16113 +comp_fir16113: j --> comp_fir16112 +comp_fir16112: move $a1, $sp --> comp_fir16387 +comp_fir16387: j --> comp_fir16111 +comp_fir16111: li $a0, 10 --> comp_fir16110 +comp_fir16110: li $v0, 4 --> comp_fir16109 +comp_fir16109: mulo $v0, $a0, $v0 --> comp_fir16108 +comp_fir16108: add $v0, $a1, $v0 --> comp_fir16187 +comp_fir16187: lw $zero, 0($v0) --> comp_fir16107 +comp_fir16107: emit c38 --> comp_fir16106 +comp_fir16106: j --> comp_fir16105 +comp_fir16105: move $a1, $sp --> comp_fir16386 +comp_fir16386: j --> comp_fir16104 +comp_fir16104: li $a0, 11 --> comp_fir16103 +comp_fir16103: li $v0, 4 --> comp_fir16102 +comp_fir16102: mulo $v0, $a0, $v0 --> comp_fir16101 +comp_fir16101: add $v0, $a1, $v0 --> comp_fir16186 +comp_fir16186: lw $zero, 0($v0) --> comp_fir16100 +comp_fir16100: emit c37 --> comp_fir1699 +comp_fir1699 : j --> comp_fir1698 +comp_fir1698 : move $a1, $sp --> comp_fir16412 +comp_fir16412: j --> comp_fir1697 +comp_fir1697 : li $a0, 12 --> comp_fir1696 +comp_fir1696 : li $v0, 4 --> comp_fir1695 +comp_fir1695 : mulo $v0, $a0, $v0 --> comp_fir1694 +comp_fir1694 : add $v0, $a1, $v0 --> comp_fir16210 +comp_fir16210: lw $zero, 0($v0) --> comp_fir1693 +comp_fir1693 : emit c36 --> comp_fir1692 +comp_fir1692 : j --> comp_fir1691 +comp_fir1691 : move $a1, $sp --> comp_fir16411 +comp_fir16411: j --> comp_fir1690 +comp_fir1690 : li $a0, 13 --> comp_fir1689 +comp_fir1689 : li $v0, 4 --> comp_fir1688 +comp_fir1688 : mulo $v0, $a0, $v0 --> comp_fir1687 +comp_fir1687 : add $v0, $a1, $v0 --> comp_fir16209 +comp_fir16209: lw $zero, 0($v0) --> comp_fir1686 +comp_fir1686 : emit c35 --> comp_fir1685 +comp_fir1685 : j --> comp_fir1684 +comp_fir1684 : move $a1, $sp --> comp_fir16410 +comp_fir16410: j --> comp_fir1683 +comp_fir1683 : li $a0, 14 --> comp_fir1682 +comp_fir1682 : li $v0, 4 --> comp_fir1681 +comp_fir1681 : mulo $v0, $a0, $v0 --> comp_fir1680 +comp_fir1680 : add $v0, $a1, $v0 --> comp_fir16208 +comp_fir16208: lw $zero, 0($v0) --> comp_fir1679 +comp_fir1679 : emit c34 --> comp_fir1678 +comp_fir1678 : j --> comp_fir1677 +comp_fir1677 : move $a1, $sp --> comp_fir16409 +comp_fir16409: j --> comp_fir1676 +comp_fir1676 : li $a0, 15 --> comp_fir1675 +comp_fir1675 : li $v0, 4 --> comp_fir1674 +comp_fir1674 : mulo $v0, $a0, $v0 --> comp_fir1673 +comp_fir1673 : add $v0, $a1, $v0 --> comp_fir16207 +comp_fir16207: lw $zero, 0($v0) --> comp_fir1672 +comp_fir1672 : emit c33 --> comp_fir1671 +comp_fir1671 : li $v0, 0 --> comp_fir1670 +comp_fir1670 : emit c32 --> comp_fir1669 +comp_fir1669 : li $s2, 0 --> comp_fir1668 +comp_fir1668 : emit c31 --> comp_fir1667 +comp_fir1667 : emit c30 --> comp_fir1666 +comp_fir1666 : li $s1, 0 --> comp_fir167 +comp_fir167 : j --> comp_fir1665 +comp_fir1665 : li $a1, 0 --> comp_fir1664 +comp_fir1664 : emit c29 --> comp_fir1663 +comp_fir1663 : slt $a0, $s1, $s3 --> comp_fir1662 +comp_fir1662 : j --> comp_fir16206 +comp_fir16206: seq $a0, $a0, $zero --> comp_fir1661 +comp_fir1661 : beq $a0, $a1 --> comp_fir1660, comp_fir166 +comp_fir166 : emit c17 --> comp_fir165 +comp_fir165 : j --> comp_fir16407 +comp_fir16407: j --> comp_fir164 +comp_fir164 : j --> comp_fir163 +comp_fir163 : li $v0, 4 --> comp_fir162 +comp_fir162 : mulo $v0, $zero, $v0 --> comp_fir161 +comp_fir161 : add $v0, $sp, $v0 --> comp_fir16185 +comp_fir16185: lw $v0, 0($v0) --> comp_fir160 +comp_fir160 : j --> comp_fir16385 +comp_fir16385: j --> comp_fir16384 +comp_fir16384: lw $ra, 92($sp) --> comp_fir16383 +comp_fir16383: j --> comp_fir16382 +comp_fir16382: lw $s6, 88($sp) --> comp_fir16381 +comp_fir16381: lw $s5, 84($sp) --> comp_fir16380 +comp_fir16380: lw $s4, 80($sp) --> comp_fir16379 +comp_fir16379: lw $s3, 76($sp) --> comp_fir16378 +comp_fir16378: lw $s2, 72($sp) --> comp_fir16377 +comp_fir16377: lw $s1, 68($sp) --> comp_fir16376 +comp_fir16376: lw $s0, 64($sp) --> comp_fir16375 +comp_fir16375: delframe --> comp_fir16374 +comp_fir16374: jr $ra +comp_fir1660 : emit c27 --> comp_fir1659 +comp_fir1659 : li $a0, 4 --> comp_fir1658 +comp_fir1658 : mulo $a0, $s1, $a0 --> comp_fir1657 +comp_fir1657 : add $a0, $s6, $a0 --> comp_fir16205 +comp_fir16205: lw $a2, 0($a0) --> comp_fir1656 +comp_fir1656 : move $a1, $sp --> comp_fir16408 +comp_fir16408: j --> comp_fir1655 +comp_fir1655 : li $a0, 4 --> comp_fir1654 +comp_fir1654 : mulo $a0, $v0, $a0 --> comp_fir1653 +comp_fir1653 : add $a0, $a1, $a0 --> comp_fir16204 +comp_fir16204: lw $a2, 0($a0) --> comp_fir1652 +comp_fir1652 : emit c26 --> comp_fir1651 +comp_fir1651 : emit c25 --> comp_fir1650 +comp_fir1650 : li $s0, 0 --> comp_fir1620 +comp_fir1620 : j --> comp_fir1649 +comp_fir1649 : li $a1, 0 --> comp_fir1648 +comp_fir1648 : emit c24 --> comp_fir1647 +comp_fir1647 : li $a0, 16 --> comp_fir1646 +comp_fir1646 : slt $a0, $s0, $a0 --> comp_fir1645 +comp_fir1645 : j --> comp_fir16203 +comp_fir16203: seq $a0, $a0, $zero --> comp_fir1644 +comp_fir1644 : beq $a0, $a1 --> comp_fir1643, comp_fir1619 +comp_fir1619 : emit c19 --> comp_fir1618 +comp_fir1618 : li $a0, 1 --> comp_fir1617 +comp_fir1617 : add $a0, $v0, $a0 --> comp_fir1616 +comp_fir1616 : li $a1, 16 --> comp_fir1615 +comp_fir1615 : la $v0, mod --> comp_fir16194 +comp_fir16194: j --> comp_fir16401 +comp_fir16401: j --> comp_fir16400 +comp_fir16400: j --> comp_fir16399 +comp_fir16399: call $v0 --> comp_fir16398 +comp_fir16398: j --> comp_fir1614 +comp_fir1614 : emit c18 --> comp_fir1613 +comp_fir1613 : li $a0, 4 --> comp_fir1612 +comp_fir1612 : mulo $a0, $s1, $a0 --> comp_fir1611 +comp_fir1611 : add $a0, $s4, $a0 --> comp_fir16188 +comp_fir16188: lw $s2, 0($a0) --> comp_fir1610 +comp_fir1610 : emit c28 --> comp_fir169 +comp_fir169 : li $a0, 1 --> comp_fir168 +comp_fir168 : add $s1, $s1, $a0 --> comp_fir167 +comp_fir1643 : emit c22 --> comp_fir1642 +comp_fir1642 : move $a1, $sp --> comp_fir16406 +comp_fir16406: j --> comp_fir1641 +comp_fir1641 : li $a0, 4 --> comp_fir1640 +comp_fir1640 : mulo $a0, $v0, $a0 --> comp_fir1639 +comp_fir1639 : add $a0, $a1, $a0 --> comp_fir16202 +comp_fir16202: lw $a1, 0($a0) --> comp_fir1638 +comp_fir1638 : li $a0, 4 --> comp_fir1637 +comp_fir1637 : mulo $a0, $s0, $a0 --> comp_fir1636 +comp_fir1636 : add $a0, $s5, $a0 --> comp_fir16201 +comp_fir16201: lw $a0, 0($a0) --> comp_fir1635 +comp_fir1635 : mulo $a2, $a1, $a0 --> comp_fir1634 +comp_fir1634 : li $a1, 2 --> comp_fir1633 +comp_fir1633 : li $a0, 16 --> comp_fir1632 +comp_fir1632 : xor $a0, $a1, $a0 --> comp_fir1631 +comp_fir1631 : mulo $a0, $a2, $a0 --> comp_fir1630 +comp_fir1630 : emit c21 --> comp_fir1629 +comp_fir1629 : add $s2, $s2, $a0 --> comp_fir1628 +comp_fir1628 : emit c20 --> comp_fir1627 +comp_fir1627 : li $a0, 1 --> comp_fir1626 +comp_fir1626 : add $a0, $v0, $a0 --> comp_fir1625 +comp_fir1625 : li $a1, 16 --> comp_fir1624 +comp_fir1624 : la $v0, mod --> comp_fir16200 +comp_fir16200: j --> comp_fir16405 +comp_fir16405: j --> comp_fir16404 +comp_fir16404: j --> comp_fir16403 +comp_fir16403: call $v0 --> comp_fir16402 +comp_fir16402: j --> comp_fir1623 +comp_fir1623 : emit c23 --> comp_fir1622 +comp_fir1622 : li $a0, 1 --> comp_fir1621 +comp_fir1621 : add $s0, $s0, $a0 --> comp_fir1620 + +procedure _main(0) +var 68 +entry main307 +main307: newframe --> main306 +main306: lw $ra, 64($sp) --> main305 +main305: j --> main304 +main304: j --> main303 +main303: j --> main302 +main302: j --> main301 +main301: j --> main300 +main300: j --> main299 +main299: j --> main298 +main298: j --> main297 +main297: j --> main296 +main296: j --> main295 +main295: j --> main294 +main294: j --> main293 +main293: j --> main292 +main292: j --> main291 +main291: j --> main290 +main290: j --> main289 +main289: j --> main288 +main288: j --> main287 +main287: j --> main286 +main286: j --> main285 +main285: j --> main284 +main284: j --> main283 +main283: j --> main282 +main282: j --> main281 +main281: j --> main280 +main280: j --> main279 +main279: j --> main278 +main278: j --> main277 +main277: j --> main276 +main276: j --> main275 +main275: j --> main274 +main274: j --> main273 +main273: j --> main272 +main272: j --> main271 +main271: j --> main270 +main270: j --> main269 +main269: j --> main268 +main268: j --> main267 +main267: j --> main266 +main266: j --> main265 +main265: j --> main264 +main264: j --> main263 +main263: j --> main262 +main262: j --> main261 +main261: j --> main260 +main260: j --> main259 +main259: j --> main258 +main258: j --> main257 +main257: j --> main256 +main256: j --> main255 +main255: j --> main254 +main254: j --> main253 +main253: j --> main252 +main252: j --> main251 +main251: j --> main250 +main250: j --> main249 +main249: j --> main248 +main248: j --> main247 +main247: j --> main246 +main246: j --> main245 +main245: j --> main244 +main244: j --> main243 +main243: j --> main242 +main242: j --> main241 +main241: j --> main240 +main240: j --> main239 +main239: j --> main238 +main238: j --> main237 +main237: j --> main236 +main236: j --> main235 +main235: j --> main234 +main234: j --> main233 +main233: j --> main232 +main232: j --> main231 +main231: j --> main230 +main230: j --> main229 +main229: j --> main228 +main228: j --> main227 +main227: j --> main226 +main226: j --> main225 +main225: j --> main224 +main224: j --> main223 +main223: j --> main222 +main222: j --> main221 +main221: j --> main220 +main220: j --> main219 +main219: j --> main218 +main218: j --> main217 +main217: j --> main216 +main216: j --> main215 +main215: j --> main214 +main214: j --> main213 +main213: j --> main212 +main212: j --> main211 +main211: j --> main210 +main210: j --> main209 +main209: j --> main208 +main208: j --> main207 +main207: j --> main206 +main206: j --> main205 +main205: j --> main204 +main204: j --> main203 +main203: j --> main202 +main202: j --> main201 +main201: j --> main200 +main200: j --> main199 +main199: j --> main198 +main198: j --> main197 +main197: j --> main196 +main196: j --> main195 +main195: j --> main194 +main194: j --> main193 +main193: j --> main192 +main192: j --> main191 +main191: j --> main190 +main190: j --> main189 +main189: j --> main188 +main188: j --> main187 +main187: j --> main186 +main186: j --> main185 +main185: j --> main184 +main184: j --> main183 +main183: j --> main182 +main182: j --> main181 +main181: j --> main180 +main180: j --> main179 +main179: j --> main178 +main178: j --> main177 +main177: j --> main176 +main176: j --> main175 +main175: j --> main174 +main174: j --> main173 +main173: j --> main149 +main149: emit c165 --> main148 +main148: li $a1, 10 --> main147 +main147: move $a0, $sp --> main327 +main327: j --> main146 +main146: j --> main145 +main145: li $v0, 4 --> main144 +main144: mulo $v0, $zero, $v0 --> main143 +main143: add $v0, $a0, $v0 --> main157 +main157: lw $a1, 0($v0) --> main142 +main142: emit c164 --> main141 +main141: li $a2, 9 --> main140 +main140: move $a1, $sp --> main326 +main326: j --> main139 +main139: li $a0, 1 --> main138 +main138: li $v0, 4 --> main137 +main137: mulo $v0, $a0, $v0 --> main136 +main136: add $v0, $a1, $v0 --> main156 +main156: lw $a2, 0($v0) --> main135 +main135: emit c163 --> main134 +main134: li $a2, 8 --> main133 +main133: move $a1, $sp --> main325 +main325: j --> main132 +main132: li $a0, 2 --> main131 +main131: li $v0, 4 --> main130 +main130: mulo $v0, $a0, $v0 --> main129 +main129: add $v0, $a1, $v0 --> main155 +main155: lw $a2, 0($v0) --> main128 +main128: emit c162 --> main127 +main127: li $a2, 7 --> main126 +main126: move $a1, $sp --> main323 +main323: j --> main125 +main125: li $a0, 3 --> main124 +main124: li $v0, 4 --> main123 +main123: mulo $v0, $a0, $v0 --> main122 +main122: add $v0, $a1, $v0 --> main154 +main154: lw $a2, 0($v0) --> main121 +main121: emit c161 --> main120 +main120: li $a2, 6 --> main119 +main119: move $a1, $sp --> main322 +main322: j --> main118 +main118: li $a0, 4 --> main117 +main117: li $v0, 4 --> main116 +main116: mulo $v0, $a0, $v0 --> main115 +main115: add $v0, $a1, $v0 --> main153 +main153: lw $a2, 0($v0) --> main114 +main114: emit c160 --> main113 +main113: j --> main112 +main112: move $a1, $sp --> main321 +main321: j --> main111 +main111: li $a0, 5 --> main110 +main110: li $v0, 4 --> main109 +main109: mulo $v0, $a0, $v0 --> main108 +main108: add $v0, $a1, $v0 --> main151 +main151: lw $zero, 0($v0) --> main107 +main107: emit c159 --> main106 +main106: li $a2, 5 --> main105 +main105: move $a1, $sp --> main320 +main320: j --> main104 +main104: li $a0, 6 --> main103 +main103: li $v0, 4 --> main102 +main102: mulo $v0, $a0, $v0 --> main101 +main101: add $v0, $a1, $v0 --> main150 +main150: lw $a2, 0($v0) --> main100 +main100: emit c158 --> main99 +main99 : li $a2, 4 --> main98 +main98 : move $a1, $sp --> main380 +main380: j --> main97 +main97 : li $a0, 7 --> main96 +main96 : li $v0, 4 --> main95 +main95 : mulo $v0, $a0, $v0 --> main94 +main94 : add $v0, $a1, $v0 --> main172 +main172: lw $a2, 0($v0) --> main93 +main93 : emit c157 --> main92 +main92 : li $a2, 3 --> main91 +main91 : move $a1, $sp --> main379 +main379: j --> main90 +main90 : li $a0, 8 --> main89 +main89 : li $v0, 4 --> main88 +main88 : mulo $v0, $a0, $v0 --> main87 +main87 : add $v0, $a1, $v0 --> main171 +main171: lw $a2, 0($v0) --> main86 +main86 : emit c156 --> main85 +main85 : li $a2, 2 --> main84 +main84 : move $a1, $sp --> main377 +main377: j --> main83 +main83 : li $a0, 9 --> main82 +main82 : li $v0, 4 --> main81 +main81 : mulo $v0, $a0, $v0 --> main80 +main80 : add $v0, $a1, $v0 --> main170 +main170: lw $a2, 0($v0) --> main79 +main79 : emit c155 --> main78 +main78 : j --> main77 +main77 : move $a1, $sp --> main375 +main375: j --> main76 +main76 : li $a0, 10 --> main75 +main75 : li $v0, 4 --> main74 +main74 : mulo $v0, $a0, $v0 --> main73 +main73 : add $v0, $a1, $v0 --> main169 +main169: lw $zero, 0($v0) --> main72 +main72 : emit c154 --> main71 +main71 : j --> main70 +main70 : move $a1, $sp --> main374 +main374: j --> main69 +main69 : li $a0, 11 --> main68 +main68 : li $v0, 4 --> main67 +main67 : mulo $v0, $a0, $v0 --> main66 +main66 : add $v0, $a1, $v0 --> main168 +main168: lw $zero, 0($v0) --> main65 +main65 : emit c153 --> main64 +main64 : j --> main63 +main63 : move $a1, $sp --> main373 +main373: j --> main62 +main62 : li $a0, 12 --> main61 +main61 : li $v0, 4 --> main60 +main60 : mulo $v0, $a0, $v0 --> main59 +main59 : add $v0, $a1, $v0 --> main167 +main167: lw $zero, 0($v0) --> main58 +main58 : emit c152 --> main57 +main57 : j --> main56 +main56 : move $a1, $sp --> main372 +main372: j --> main55 +main55 : li $a0, 13 --> main54 +main54 : li $v0, 4 --> main53 +main53 : mulo $v0, $a0, $v0 --> main52 +main52 : add $v0, $a1, $v0 --> main166 +main166: lw $zero, 0($v0) --> main51 +main51 : emit c151 --> main50 +main50 : j --> main49 +main49 : move $a1, $sp --> main371 +main371: j --> main48 +main48 : li $a0, 14 --> main47 +main47 : li $v0, 4 --> main46 +main46 : mulo $v0, $a0, $v0 --> main45 +main45 : add $v0, $a1, $v0 --> main164 +main164: lw $zero, 0($v0) --> main44 +main44 : emit c150 --> main43 +main43 : j --> main42 +main42 : move $a1, $sp --> main370 +main370: j --> main41 +main41 : li $a0, 15 --> main40 +main40 : li $v0, 4 --> main39 +main39 : mulo $v0, $a0, $v0 --> main38 +main38 : add $v0, $a1, $v0 --> main163 +main163: lw $zero, 0($v0) --> main37 +main37 : emit c149 --> main36 +main36 : move $a0, $sp --> main369 +main369: j --> main35 +main35 : move $a1, $sp --> main368 +main368: j --> main34 +main34 : move $a2, $sp --> main367 +main367: j --> main33 +main33 : li $a3, 10 --> main32 +main32 : li $t0, 10 --> main31 +main31 : la $v0, comp_fir_basic --> main162 +main162: j --> main356 +main356: j --> main355 +main355: j --> main354 +main354: j --> main353 +main353: j --> main352 +main352: lw $t0, -4($sp) --> main351 +main351: call $v0 --> main350 +main350: j --> main30 +main30 : emit c148 --> main29 +main29 : move $a0, $sp --> main366 +main366: j --> main28 +main28 : move $a1, $sp --> main365 +main365: j --> main27 +main27 : move $a2, $sp --> main364 +main364: j --> main26 +main26 : li $a3, 16 --> main25 +main25 : la $v0, comp_fir16 --> main160 +main160: j --> main347 +main347: j --> main346 +main346: j --> main345 +main345: j --> main344 +main344: j --> main343 +main343: call $v0 --> main342 +main342: j --> main24 +main24 : emit c147 --> main23 +main23 : li $a0, 4 --> main22 +main22 : li $a1, 1 --> main21 +main21 : li $a2, 1 --> main20 +main20 : la $v0, comp_ifFor --> main159 +main159: j --> main341 +main341: j --> main340 +main340: j --> main339 +main339: j --> main338 +main338: call $v0 --> main337 +main337: j --> main19 +main19 : emit c146 --> main18 +main18 : move $a0, $sp --> main363 +main363: j --> main17 +main17 : li $a1, 9 --> main16 +main16 : li $a2, 3 --> main15 +main15 : la $v0, comp_total --> main158 +main158: j --> main336 +main336: j --> main335 +main335: j --> main334 +main334: j --> main333 +main333: call $v0 --> main332 +main332: j --> main14 +main14 : emit c145 --> main13 +main13 : move $a0, $sp --> main324 +main324: j --> main12 +main12 : li $a1, 10 --> main11 +main11 : la $v0, comp_tri --> main152 +main152: j --> main331 +main331: j --> main330 +main330: j --> main329 +main329: call $v0 --> main328 +main328: j --> main10 +main10 : emit c144 --> main9 +main9 : move $a0, $sp --> main378 +main378: j --> main8 +main8 : move $a1, $sp --> main376 +main376: j --> main7 +main7 : li $a2, 10 --> main6 +main6 : li $a3, 10 --> main5 +main5 : la $v0, comp_forif2 --> main165 +main165: j --> main362 +main362: j --> main361 +main361: j --> main360 +main360: j --> main359 +main359: j --> main358 +main358: call $v0 --> main357 +main357: j --> main4 +main4 : emit c143 --> main3 +main3 : la $v0, comp_forif --> main161 +main161: j --> main349 +main349: call $v0 --> main348 +main348: j --> main2 +main2 : emit c142 --> main1 +main1 : j --> main0 +main0 : j --> main319 +main319: j --> main318 +main318: lw $ra, 64($sp) --> main317 +main317: j --> main316 +main316: j --> main315 +main315: j --> main314 +main314: j --> main313 +main313: j --> main312 +main312: j --> main311 +main311: j --> main310 +main310: j --> main309 +main309: delframe --> main308 +main308: jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/complets.RTL.expected b/tests/clight/complets.RTL.expected new file mode 100644 index 0000000..1c3f3e7 --- /dev/null +++ b/tests/clight/complets.RTL.expected @@ -0,0 +1,2048 @@ +program + +globals 0 + +function comp_tri(%0; %1) : %5 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45 +entry comp_tri111 +comp_tri111: li %2, 0 --> comp_tri110 +comp_tri110: li %3, 0 --> comp_tri109 +comp_tri109: li %4, 0 --> comp_tri108 +comp_tri108: li %6, 0 --> comp_tri107 +comp_tri107: li %7, 0 --> comp_tri106 +comp_tri106: li %8, 0 --> comp_tri105 +comp_tri105: li %9, 0 --> comp_tri104 +comp_tri104: li %10, 0 --> comp_tri103 +comp_tri103: li %11, 0 --> comp_tri102 +comp_tri102: li %12, 0 --> comp_tri101 +comp_tri101: li %13, 0 --> comp_tri100 +comp_tri100: li %14, 0 --> comp_tri99 +comp_tri99 : li %15, 0 --> comp_tri98 +comp_tri98 : li %16, 0 --> comp_tri97 +comp_tri97 : li %17, 0 --> comp_tri96 +comp_tri96 : li %18, 0 --> comp_tri95 +comp_tri95 : li %19, 0 --> comp_tri94 +comp_tri94 : li %20, 0 --> comp_tri93 +comp_tri93 : li %21, 0 --> comp_tri92 +comp_tri92 : li %22, 0 --> comp_tri91 +comp_tri91 : li %23, 0 --> comp_tri90 +comp_tri90 : li %24, 0 --> comp_tri89 +comp_tri89 : li %25, 0 --> comp_tri88 +comp_tri88 : li %26, 0 --> comp_tri87 +comp_tri87 : li %27, 0 --> comp_tri86 +comp_tri86 : li %28, 0 --> comp_tri85 +comp_tri85 : li %29, 0 --> comp_tri84 +comp_tri84 : li %30, 0 --> comp_tri83 +comp_tri83 : li %31, 0 --> comp_tri82 +comp_tri82 : li %32, 0 --> comp_tri81 +comp_tri81 : li %33, 0 --> comp_tri80 +comp_tri80 : li %34, 0 --> comp_tri79 +comp_tri79 : li %35, 0 --> comp_tri78 +comp_tri78 : li %36, 0 --> comp_tri77 +comp_tri77 : li %37, 0 --> comp_tri76 +comp_tri76 : li %38, 0 --> comp_tri75 +comp_tri75 : li %39, 0 --> comp_tri74 +comp_tri74 : li %40, 0 --> comp_tri73 +comp_tri73 : li %41, 0 --> comp_tri72 +comp_tri72 : li %42, 0 --> comp_tri71 +comp_tri71 : li %43, 0 --> comp_tri70 +comp_tri70 : li %44, 0 --> comp_tri69 +comp_tri69 : li %45, 0 --> comp_tri60 +comp_tri60 : emit c108 --> comp_tri59 +comp_tri59 : li %2, 0 --> comp_tri58 +comp_tri58 : emit c107 --> comp_tri57 +comp_tri57 : emit c106 --> comp_tri56 +comp_tri56 : li %4, 0 --> comp_tri3 +comp_tri3 : j --> comp_tri55 +comp_tri55 : li %36, 0 --> comp_tri54 +comp_tri54 : emit c105 --> comp_tri53 +comp_tri53 : slt %37, %4, %1 --> comp_tri52 +comp_tri52 : li %45, 0 --> comp_tri68 +comp_tri68 : seq %35, %37, %45 --> comp_tri51 +comp_tri51 : beq %35, %36 --> comp_tri50, comp_tri2 +comp_tri2 : emit c95 --> comp_tri1 +comp_tri1 : move %5, %2 --> comp_tri0 +comp_tri0 : return %5 +comp_tri50 : emit c103 --> comp_tri49 +comp_tri49 : emit c102 --> comp_tri48 +comp_tri48 : li %3, 1 --> comp_tri7 +comp_tri7 : j --> comp_tri47 +comp_tri47 : li %32, 0 --> comp_tri46 +comp_tri46 : emit c101 --> comp_tri45 +comp_tri45 : sub %34, %1, %4 --> comp_tri44 +comp_tri44 : slt %33, %3, %34 --> comp_tri43 +comp_tri43 : li %44, 0 --> comp_tri67 +comp_tri67 : seq %31, %33, %44 --> comp_tri42 +comp_tri42 : beq %31, %32 --> comp_tri41, comp_tri6 +comp_tri6 : emit c104 --> comp_tri5 +comp_tri5 : li %6, 1 --> comp_tri4 +comp_tri4 : add %4, %4, %6 --> comp_tri3 +comp_tri41 : emit c99 --> comp_tri40 +comp_tri40 : li %22, 0 --> comp_tri39 +comp_tri39 : li %30, 4 --> comp_tri38 +comp_tri38 : mulo %29, %3, %30 --> comp_tri37 +comp_tri37 : add %43, %0, %29 --> comp_tri66 +comp_tri66 : lw %23, 0(%43) --> comp_tri36 +comp_tri36 : li %28, 1 --> comp_tri35 +comp_tri35 : sub %26, %3, %28 --> comp_tri34 +comp_tri34 : li %27, 4 --> comp_tri33 +comp_tri33 : mulo %25, %26, %27 --> comp_tri32 +comp_tri32 : add %42, %0, %25 --> comp_tri65 +comp_tri65 : lw %24, 0(%42) --> comp_tri31 +comp_tri31 : slt %21, %23, %24 --> comp_tri30 +comp_tri30 : beq %21, %22 --> comp_tri10, comp_tri29 +comp_tri29 : emit c98 --> comp_tri28 +comp_tri28 : li %20, 1 --> comp_tri27 +comp_tri27 : sub %18, %3, %20 --> comp_tri26 +comp_tri26 : li %19, 4 --> comp_tri25 +comp_tri25 : mulo %17, %18, %19 --> comp_tri24 +comp_tri24 : add %41, %0, %17 --> comp_tri64 +comp_tri64 : lw %2, 0(%41) --> comp_tri23 +comp_tri23 : emit c97 --> comp_tri22 +comp_tri22 : li %16, 4 --> comp_tri21 +comp_tri21 : mulo %15, %3, %16 --> comp_tri20 +comp_tri20 : add %40, %0, %15 --> comp_tri63 +comp_tri63 : lw %10, 0(%40) --> comp_tri19 +comp_tri19 : li %14, 1 --> comp_tri18 +comp_tri18 : sub %12, %3, %14 --> comp_tri17 +comp_tri17 : li %13, 4 --> comp_tri16 +comp_tri16 : mulo %11, %12, %13 --> comp_tri15 +comp_tri15 : add %39, %0, %11 --> comp_tri62 +comp_tri62 : sw %10, 0(%39) --> comp_tri14 +comp_tri14 : emit c96 --> comp_tri13 +comp_tri13 : li %9, 4 --> comp_tri12 +comp_tri12 : mulo %8, %3, %9 --> comp_tri11 +comp_tri11 : add %38, %0, %8 --> comp_tri61 +comp_tri61 : sw %2, 0(%38) --> comp_tri10 +comp_tri10 : emit c100 --> comp_tri9 +comp_tri9 : li %7, 1 --> comp_tri8 +comp_tri8 : add %3, %3, %7 --> comp_tri7 + +function comp_total(%0; %1; %2) : %6 +stacksize 80 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106, %107, %108, %109, %110, %111, + %112, %113, %114, %115, %116, %117, %118, + %119, %120, %121, %122, %123, %124, %125, + %126, %127, %128, %129, %130, %131, %132, + %133, %134, %135, %136, %137, %138, %139, + %140, %141, %142, %143, %144, %145, %146, + %147, %148, %149, %150, %151, %152, %153, + %154, %155, %156, %157, %158, %159, %160, + %161, %162, %163, %164, %165, %166, %167 +entry comp_total397 +comp_total397: li %3, 0 --> comp_total396 +comp_total396: li %4, 0 --> comp_total395 +comp_total395: li %5, 0 --> comp_total394 +comp_total394: li %7, 0 --> comp_total393 +comp_total393: li %8, 0 --> comp_total392 +comp_total392: li %9, 0 --> comp_total391 +comp_total391: li %10, 0 --> comp_total390 +comp_total390: li %11, 0 --> comp_total389 +comp_total389: li %12, 0 --> comp_total388 +comp_total388: li %13, 0 --> comp_total387 +comp_total387: li %14, 0 --> comp_total386 +comp_total386: li %15, 0 --> comp_total385 +comp_total385: li %16, 0 --> comp_total384 +comp_total384: li %17, 0 --> comp_total383 +comp_total383: li %18, 0 --> comp_total382 +comp_total382: li %19, 0 --> comp_total381 +comp_total381: li %20, 0 --> comp_total380 +comp_total380: li %21, 0 --> comp_total379 +comp_total379: li %22, 0 --> comp_total378 +comp_total378: li %23, 0 --> comp_total377 +comp_total377: li %24, 0 --> comp_total376 +comp_total376: li %25, 0 --> comp_total375 +comp_total375: li %26, 0 --> comp_total374 +comp_total374: li %27, 0 --> comp_total373 +comp_total373: li %28, 0 --> comp_total372 +comp_total372: li %29, 0 --> comp_total371 +comp_total371: li %30, 0 --> comp_total370 +comp_total370: li %31, 0 --> comp_total369 +comp_total369: li %32, 0 --> comp_total368 +comp_total368: li %33, 0 --> comp_total367 +comp_total367: li %34, 0 --> comp_total366 +comp_total366: li %35, 0 --> comp_total365 +comp_total365: li %36, 0 --> comp_total364 +comp_total364: li %37, 0 --> comp_total363 +comp_total363: li %38, 0 --> comp_total362 +comp_total362: li %39, 0 --> comp_total361 +comp_total361: li %40, 0 --> comp_total360 +comp_total360: li %41, 0 --> comp_total359 +comp_total359: li %42, 0 --> comp_total358 +comp_total358: li %43, 0 --> comp_total357 +comp_total357: li %44, 0 --> comp_total356 +comp_total356: li %45, 0 --> comp_total355 +comp_total355: li %46, 0 --> comp_total354 +comp_total354: li %47, 0 --> comp_total353 +comp_total353: li %48, 0 --> comp_total352 +comp_total352: li %49, 0 --> comp_total351 +comp_total351: li %50, 0 --> comp_total350 +comp_total350: li %51, 0 --> comp_total349 +comp_total349: li %52, 0 --> comp_total348 +comp_total348: li %53, 0 --> comp_total347 +comp_total347: li %54, 0 --> comp_total346 +comp_total346: li %55, 0 --> comp_total345 +comp_total345: li %56, 0 --> comp_total344 +comp_total344: li %57, 0 --> comp_total343 +comp_total343: li %58, 0 --> comp_total342 +comp_total342: li %59, 0 --> comp_total341 +comp_total341: li %60, 0 --> comp_total340 +comp_total340: li %61, 0 --> comp_total339 +comp_total339: li %62, 0 --> comp_total338 +comp_total338: li %63, 0 --> comp_total337 +comp_total337: li %64, 0 --> comp_total336 +comp_total336: li %65, 0 --> comp_total335 +comp_total335: li %66, 0 --> comp_total334 +comp_total334: li %67, 0 --> comp_total333 +comp_total333: li %68, 0 --> comp_total332 +comp_total332: li %69, 0 --> comp_total331 +comp_total331: li %70, 0 --> comp_total330 +comp_total330: li %71, 0 --> comp_total329 +comp_total329: li %72, 0 --> comp_total328 +comp_total328: li %73, 0 --> comp_total327 +comp_total327: li %74, 0 --> comp_total326 +comp_total326: li %75, 0 --> comp_total325 +comp_total325: li %76, 0 --> comp_total324 +comp_total324: li %77, 0 --> comp_total323 +comp_total323: li %78, 0 --> comp_total322 +comp_total322: li %79, 0 --> comp_total321 +comp_total321: li %80, 0 --> comp_total320 +comp_total320: li %81, 0 --> comp_total319 +comp_total319: li %82, 0 --> comp_total318 +comp_total318: li %83, 0 --> comp_total317 +comp_total317: li %84, 0 --> comp_total316 +comp_total316: li %85, 0 --> comp_total315 +comp_total315: li %86, 0 --> comp_total314 +comp_total314: li %87, 0 --> comp_total313 +comp_total313: li %88, 0 --> comp_total312 +comp_total312: li %89, 0 --> comp_total311 +comp_total311: li %90, 0 --> comp_total310 +comp_total310: li %91, 0 --> comp_total309 +comp_total309: li %92, 0 --> comp_total308 +comp_total308: li %93, 0 --> comp_total307 +comp_total307: li %94, 0 --> comp_total306 +comp_total306: li %95, 0 --> comp_total305 +comp_total305: li %96, 0 --> comp_total304 +comp_total304: li %97, 0 --> comp_total303 +comp_total303: li %98, 0 --> comp_total302 +comp_total302: li %99, 0 --> comp_total301 +comp_total301: li %100, 0 --> comp_total300 +comp_total300: li %101, 0 --> comp_total299 +comp_total299: li %102, 0 --> comp_total298 +comp_total298: li %103, 0 --> comp_total297 +comp_total297: li %104, 0 --> comp_total296 +comp_total296: li %105, 0 --> comp_total295 +comp_total295: li %106, 0 --> comp_total294 +comp_total294: li %107, 0 --> comp_total293 +comp_total293: li %108, 0 --> comp_total292 +comp_total292: li %109, 0 --> comp_total291 +comp_total291: li %110, 0 --> comp_total290 +comp_total290: li %111, 0 --> comp_total289 +comp_total289: li %112, 0 --> comp_total288 +comp_total288: li %113, 0 --> comp_total287 +comp_total287: li %114, 0 --> comp_total286 +comp_total286: li %115, 0 --> comp_total285 +comp_total285: li %116, 0 --> comp_total284 +comp_total284: li %117, 0 --> comp_total283 +comp_total283: li %118, 0 --> comp_total282 +comp_total282: li %119, 0 --> comp_total281 +comp_total281: li %120, 0 --> comp_total280 +comp_total280: li %121, 0 --> comp_total279 +comp_total279: li %122, 0 --> comp_total278 +comp_total278: li %123, 0 --> comp_total277 +comp_total277: li %124, 0 --> comp_total276 +comp_total276: li %125, 0 --> comp_total275 +comp_total275: li %126, 0 --> comp_total274 +comp_total274: li %127, 0 --> comp_total273 +comp_total273: li %128, 0 --> comp_total272 +comp_total272: li %129, 0 --> comp_total271 +comp_total271: li %130, 0 --> comp_total270 +comp_total270: li %131, 0 --> comp_total269 +comp_total269: li %132, 0 --> comp_total268 +comp_total268: li %133, 0 --> comp_total267 +comp_total267: li %134, 0 --> comp_total266 +comp_total266: li %135, 0 --> comp_total265 +comp_total265: li %136, 0 --> comp_total264 +comp_total264: li %137, 0 --> comp_total263 +comp_total263: li %138, 0 --> comp_total262 +comp_total262: li %139, 0 --> comp_total261 +comp_total261: li %140, 0 --> comp_total260 +comp_total260: li %141, 0 --> comp_total259 +comp_total259: li %142, 0 --> comp_total258 +comp_total258: li %143, 0 --> comp_total257 +comp_total257: li %144, 0 --> comp_total256 +comp_total256: li %145, 0 --> comp_total255 +comp_total255: li %146, 0 --> comp_total254 +comp_total254: li %147, 0 --> comp_total253 +comp_total253: li %148, 0 --> comp_total252 +comp_total252: li %149, 0 --> comp_total251 +comp_total251: li %150, 0 --> comp_total250 +comp_total250: li %151, 0 --> comp_total249 +comp_total249: li %152, 0 --> comp_total248 +comp_total248: li %153, 0 --> comp_total247 +comp_total247: li %154, 0 --> comp_total246 +comp_total246: li %155, 0 --> comp_total245 +comp_total245: li %156, 0 --> comp_total244 +comp_total244: li %157, 0 --> comp_total243 +comp_total243: li %158, 0 --> comp_total242 +comp_total242: li %159, 0 --> comp_total241 +comp_total241: li %160, 0 --> comp_total240 +comp_total240: li %161, 0 --> comp_total239 +comp_total239: li %162, 0 --> comp_total238 +comp_total238: li %163, 0 --> comp_total237 +comp_total237: li %164, 0 --> comp_total236 +comp_total236: li %165, 0 --> comp_total235 +comp_total235: li %166, 0 --> comp_total234 +comp_total234: li %167, 0 --> comp_total205 +comp_total205: emit c94 --> comp_total204 +comp_total204: li %135, 0 --> comp_total203 +comp_total203: addi %136, STACK, 0 --> comp_total202 +comp_total202: li %138, 0 --> comp_total201 +comp_total201: li %139, 4 --> comp_total200 +comp_total200: mulo %137, %138, %139 --> comp_total199 +comp_total199: add %157, %136, %137 --> comp_total223 +comp_total223: sw %135, 0(%157) --> comp_total198 +comp_total198: emit c93 --> comp_total197 +comp_total197: li %130, 0 --> comp_total196 +comp_total196: addi %131, STACK, 0 --> comp_total195 +comp_total195: li %133, 1 --> comp_total194 +comp_total194: li %134, 4 --> comp_total193 +comp_total193: mulo %132, %133, %134 --> comp_total192 +comp_total192: add %156, %131, %132 --> comp_total222 +comp_total222: sw %130, 0(%156) --> comp_total191 +comp_total191: emit c92 --> comp_total190 +comp_total190: li %125, 0 --> comp_total189 +comp_total189: addi %126, STACK, 0 --> comp_total188 +comp_total188: li %128, 2 --> comp_total187 +comp_total187: li %129, 4 --> comp_total186 +comp_total186: mulo %127, %128, %129 --> comp_total185 +comp_total185: add %154, %126, %127 --> comp_total220 +comp_total220: sw %125, 0(%154) --> comp_total184 +comp_total184: emit c91 --> comp_total183 +comp_total183: li %120, 0 --> comp_total182 +comp_total182: addi %121, STACK, 0 --> comp_total181 +comp_total181: li %123, 3 --> comp_total180 +comp_total180: li %124, 4 --> comp_total179 +comp_total179: mulo %122, %123, %124 --> comp_total178 +comp_total178: add %153, %121, %122 --> comp_total219 +comp_total219: sw %120, 0(%153) --> comp_total177 +comp_total177: emit c90 --> comp_total176 +comp_total176: li %115, 0 --> comp_total175 +comp_total175: addi %116, STACK, 0 --> comp_total174 +comp_total174: li %118, 4 --> comp_total173 +comp_total173: li %119, 4 --> comp_total172 +comp_total172: mulo %117, %118, %119 --> comp_total171 +comp_total171: add %152, %116, %117 --> comp_total218 +comp_total218: sw %115, 0(%152) --> comp_total170 +comp_total170: emit c89 --> comp_total169 +comp_total169: li %110, 0 --> comp_total168 +comp_total168: addi %111, STACK, 0 --> comp_total167 +comp_total167: li %113, 5 --> comp_total166 +comp_total166: li %114, 4 --> comp_total165 +comp_total165: mulo %112, %113, %114 --> comp_total164 +comp_total164: add %151, %111, %112 --> comp_total217 +comp_total217: sw %110, 0(%151) --> comp_total163 +comp_total163: emit c88 --> comp_total162 +comp_total162: li %105, 0 --> comp_total161 +comp_total161: addi %106, STACK, 0 --> comp_total160 +comp_total160: li %108, 6 --> comp_total159 +comp_total159: li %109, 4 --> comp_total158 +comp_total158: mulo %107, %108, %109 --> comp_total157 +comp_total157: add %150, %106, %107 --> comp_total216 +comp_total216: sw %105, 0(%150) --> comp_total156 +comp_total156: emit c87 --> comp_total155 +comp_total155: li %100, 0 --> comp_total154 +comp_total154: addi %101, STACK, 0 --> comp_total153 +comp_total153: li %103, 7 --> comp_total152 +comp_total152: li %104, 4 --> comp_total151 +comp_total151: mulo %102, %103, %104 --> comp_total150 +comp_total150: add %149, %101, %102 --> comp_total215 +comp_total215: sw %100, 0(%149) --> comp_total149 +comp_total149: emit c86 --> comp_total148 +comp_total148: li %95, 0 --> comp_total147 +comp_total147: addi %96, STACK, 0 --> comp_total146 +comp_total146: li %98, 8 --> comp_total145 +comp_total145: li %99, 4 --> comp_total144 +comp_total144: mulo %97, %98, %99 --> comp_total143 +comp_total143: add %147, %96, %97 --> comp_total213 +comp_total213: sw %95, 0(%147) --> comp_total142 +comp_total142: emit c85 --> comp_total141 +comp_total141: li %90, 0 --> comp_total140 +comp_total140: addi %91, STACK, 0 --> comp_total139 +comp_total139: li %93, 9 --> comp_total138 +comp_total138: li %94, 4 --> comp_total137 +comp_total137: mulo %92, %93, %94 --> comp_total136 +comp_total136: add %146, %91, %92 --> comp_total212 +comp_total212: sw %90, 0(%146) --> comp_total135 +comp_total135: emit c84 --> comp_total134 +comp_total134: li %85, 0 --> comp_total133 +comp_total133: addi %86, STACK, 40 --> comp_total132 +comp_total132: li %88, 0 --> comp_total131 +comp_total131: li %89, 4 --> comp_total130 +comp_total130: mulo %87, %88, %89 --> comp_total129 +comp_total129: add %145, %86, %87 --> comp_total211 +comp_total211: sw %85, 0(%145) --> comp_total128 +comp_total128: emit c83 --> comp_total127 +comp_total127: li %80, 0 --> comp_total126 +comp_total126: addi %81, STACK, 40 --> comp_total125 +comp_total125: li %83, 1 --> comp_total124 +comp_total124: li %84, 4 --> comp_total123 +comp_total123: mulo %82, %83, %84 --> comp_total122 +comp_total122: add %144, %81, %82 --> comp_total210 +comp_total210: sw %80, 0(%144) --> comp_total121 +comp_total121: emit c82 --> comp_total120 +comp_total120: li %75, 0 --> comp_total119 +comp_total119: addi %76, STACK, 40 --> comp_total118 +comp_total118: li %78, 2 --> comp_total117 +comp_total117: li %79, 4 --> comp_total116 +comp_total116: mulo %77, %78, %79 --> comp_total115 +comp_total115: add %143, %76, %77 --> comp_total209 +comp_total209: sw %75, 0(%143) --> comp_total114 +comp_total114: emit c81 --> comp_total113 +comp_total113: li %70, 0 --> comp_total112 +comp_total112: addi %71, STACK, 40 --> comp_total111 +comp_total111: li %73, 3 --> comp_total110 +comp_total110: li %74, 4 --> comp_total109 +comp_total109: mulo %72, %73, %74 --> comp_total108 +comp_total108: add %141, %71, %72 --> comp_total207 +comp_total207: sw %70, 0(%141) --> comp_total107 +comp_total107: emit c80 --> comp_total106 +comp_total106: li %65, 0 --> comp_total105 +comp_total105: addi %66, STACK, 40 --> comp_total104 +comp_total104: li %68, 4 --> comp_total103 +comp_total103: li %69, 4 --> comp_total102 +comp_total102: mulo %67, %68, %69 --> comp_total101 +comp_total101: add %140, %66, %67 --> comp_total206 +comp_total206: sw %65, 0(%140) --> comp_total100 +comp_total100: emit c79 --> comp_total99 +comp_total99 : li %60, 0 --> comp_total98 +comp_total98 : addi %61, STACK, 40 --> comp_total97 +comp_total97 : li %63, 5 --> comp_total96 +comp_total96 : li %64, 4 --> comp_total95 +comp_total95 : mulo %62, %63, %64 --> comp_total94 +comp_total94 : add %167, %61, %62 --> comp_total233 +comp_total233: sw %60, 0(%167) --> comp_total93 +comp_total93 : emit c78 --> comp_total92 +comp_total92 : li %55, 0 --> comp_total91 +comp_total91 : addi %56, STACK, 40 --> comp_total90 +comp_total90 : li %58, 6 --> comp_total89 +comp_total89 : li %59, 4 --> comp_total88 +comp_total88 : mulo %57, %58, %59 --> comp_total87 +comp_total87 : add %166, %56, %57 --> comp_total232 +comp_total232: sw %55, 0(%166) --> comp_total86 +comp_total86 : emit c77 --> comp_total85 +comp_total85 : li %50, 0 --> comp_total84 +comp_total84 : addi %51, STACK, 40 --> comp_total83 +comp_total83 : li %53, 7 --> comp_total82 +comp_total82 : li %54, 4 --> comp_total81 +comp_total81 : mulo %52, %53, %54 --> comp_total80 +comp_total80 : add %165, %51, %52 --> comp_total231 +comp_total231: sw %50, 0(%165) --> comp_total79 +comp_total79 : emit c76 --> comp_total78 +comp_total78 : li %45, 0 --> comp_total77 +comp_total77 : addi %46, STACK, 40 --> comp_total76 +comp_total76 : li %48, 8 --> comp_total75 +comp_total75 : li %49, 4 --> comp_total74 +comp_total74 : mulo %47, %48, %49 --> comp_total73 +comp_total73 : add %164, %46, %47 --> comp_total230 +comp_total230: sw %45, 0(%164) --> comp_total72 +comp_total72 : emit c75 --> comp_total71 +comp_total71 : li %40, 0 --> comp_total70 +comp_total70 : addi %41, STACK, 40 --> comp_total69 +comp_total69 : li %43, 9 --> comp_total68 +comp_total68 : li %44, 4 --> comp_total67 +comp_total67 : mulo %42, %43, %44 --> comp_total66 +comp_total66 : add %163, %41, %42 --> comp_total229 +comp_total229: sw %40, 0(%163) --> comp_total65 +comp_total65 : emit c74 --> comp_total64 +comp_total64 : li %39, 0 --> comp_total63 +comp_total63 : slt %38, %1, %2 --> comp_total62 +comp_total62 : beq %38, %39 --> comp_total40, comp_total61 +comp_total61 : emit c73 --> comp_total60 +comp_total60 : emit c72 --> comp_total59 +comp_total59 : li %5, 0 --> comp_total41 +comp_total41 : j --> comp_total58 +comp_total58 : li %36, 0 --> comp_total57 +comp_total57 : emit c71 --> comp_total56 +comp_total56 : sle %37, %5, %1 --> comp_total55 +comp_total55 : li %162, 0 --> comp_total228 +comp_total228: seq %35, %37, %162 --> comp_total54 +comp_total54 : beq %35, %36 --> comp_total53, comp_total2 +comp_total2 : emit c59 --> comp_total1 +comp_total1 : li %6, 0 --> comp_total0 +comp_total0 : return %6 +comp_total53 : emit c69 --> comp_total52 +comp_total52 : sub %33, %1, %5 --> comp_total51 +comp_total51 : li %34, 4 --> comp_total50 +comp_total50 : mulo %32, %33, %34 --> comp_total49 +comp_total49 : add %161, %0, %32 --> comp_total227 +comp_total227: lw %28, 0(%161) --> comp_total48 +comp_total48 : addi %29, STACK, 0 --> comp_total47 +comp_total47 : li %31, 4 --> comp_total46 +comp_total46 : mulo %30, %5, %31 --> comp_total45 +comp_total45 : add %160, %29, %30 --> comp_total226 +comp_total226: sw %28, 0(%160) --> comp_total44 +comp_total44 : emit c70 --> comp_total43 +comp_total43 : li %27, 1 --> comp_total42 +comp_total42 : add %5, %5, %27 --> comp_total41 +comp_total40 : emit c68 --> comp_total39 +comp_total39 : emit c67 --> comp_total38 +comp_total38 : li %3, 0 --> comp_total3 +comp_total3 : j --> comp_total37 +comp_total37 : li %25, 0 --> comp_total36 +comp_total36 : emit c66 --> comp_total35 +comp_total35 : slt %26, %3, %1 --> comp_total34 +comp_total34 : li %159, 0 --> comp_total225 +comp_total225: seq %24, %26, %159 --> comp_total33 +comp_total33 : beq %24, %25 --> comp_total32, comp_total2 +comp_total32 : emit c64 --> comp_total31 +comp_total31 : emit c63 --> comp_total30 +comp_total30 : move %4, %2 --> comp_total7 +comp_total7 : j --> comp_total29 +comp_total29 : li %21, 0 --> comp_total28 +comp_total28 : emit c62 --> comp_total27 +comp_total27 : li %23, 0 --> comp_total26 +comp_total26 : sgt %22, %4, %23 --> comp_total25 +comp_total25 : li %158, 0 --> comp_total224 +comp_total224: seq %20, %22, %158 --> comp_total24 +comp_total24 : beq %20, %21 --> comp_total23, comp_total6 +comp_total6 : emit c65 --> comp_total5 +comp_total5 : li %7, 1 --> comp_total4 +comp_total4 : add %3, %3, %7 --> comp_total3 +comp_total23 : emit c60 --> comp_total22 +comp_total22 : addi %17, STACK, 0 --> comp_total21 +comp_total21 : li %19, 4 --> comp_total20 +comp_total20 : mulo %18, %3, %19 --> comp_total19 +comp_total19 : add %155, %17, %18 --> comp_total221 +comp_total221: lw %12, 0(%155) --> comp_total18 +comp_total18 : addi %14, STACK, 40 --> comp_total17 +comp_total17 : li %16, 4 --> comp_total16 +comp_total16 : mulo %15, %4, %16 --> comp_total15 +comp_total15 : add %148, %14, %15 --> comp_total214 +comp_total214: lw %13, 0(%148) --> comp_total14 +comp_total14 : add %9, %12, %13 --> comp_total13 +comp_total13 : li %11, 4 --> comp_total12 +comp_total12 : mulo %10, %3, %11 --> comp_total11 +comp_total11 : add %142, %0, %10 --> comp_total208 +comp_total208: sw %9, 0(%142) --> comp_total10 +comp_total10 : emit c61 --> comp_total9 +comp_total9 : li %8, 1 --> comp_total8 +comp_total8 : sub %4, %4, %8 --> comp_total7 + +function comp_ifFor(%0; %1; %2) : %5 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11 +entry comp_ifFor32 +comp_ifFor32: li %3, 0 --> comp_ifFor31 +comp_ifFor31: li %4, 0 --> comp_ifFor30 +comp_ifFor30: li %6, 0 --> comp_ifFor29 +comp_ifFor29: li %7, 0 --> comp_ifFor28 +comp_ifFor28: li %8, 0 --> comp_ifFor27 +comp_ifFor27: li %9, 0 --> comp_ifFor26 +comp_ifFor26: li %10, 0 --> comp_ifFor25 +comp_ifFor25: li %11, 0 --> comp_ifFor23 +comp_ifFor23: emit c58 --> comp_ifFor22 +comp_ifFor22: li %4, 0 --> comp_ifFor21 +comp_ifFor21: emit c57 --> comp_ifFor20 +comp_ifFor20: emit c56 --> comp_ifFor19 +comp_ifFor19: li %3, 0 --> comp_ifFor3 +comp_ifFor3 : j --> comp_ifFor18 +comp_ifFor18: li %9, 0 --> comp_ifFor17 +comp_ifFor17: emit c55 --> comp_ifFor16 +comp_ifFor16: slt %10, %3, %0 --> comp_ifFor15 +comp_ifFor15: li %11, 0 --> comp_ifFor24 +comp_ifFor24: seq %8, %10, %11 --> comp_ifFor14 +comp_ifFor14: beq %8, %9 --> comp_ifFor13, comp_ifFor2 +comp_ifFor2 : emit c50 --> comp_ifFor1 +comp_ifFor1 : move %5, %4 --> comp_ifFor0 +comp_ifFor0 : return %5 +comp_ifFor13: emit c53 --> comp_ifFor12 +comp_ifFor12: li %7, 0 --> comp_ifFor11 +comp_ifFor11: sne %6, %3, %1 --> comp_ifFor10 +comp_ifFor10: beq %6, %7 --> comp_ifFor7, comp_ifFor9 +comp_ifFor9 : emit c52 --> comp_ifFor8 +comp_ifFor8 : add %4, %4, %3 --> comp_ifFor5 +comp_ifFor5 : emit c54 --> comp_ifFor4 +comp_ifFor4 : add %3, %3, %2 --> comp_ifFor3 +comp_ifFor7 : emit c51 --> comp_ifFor6 +comp_ifFor6 : li %4, 0 --> comp_ifFor5 + +function comp_forif2(%0; %1; %2; %3) : %9 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53 +entry comp_forif2139 +comp_forif2139: li %4, 0 --> comp_forif2138 +comp_forif2138: li %5, 0 --> comp_forif2137 +comp_forif2137: li %6, 0 --> comp_forif2136 +comp_forif2136: li %7, 0 --> comp_forif2135 +comp_forif2135: li %8, 0 --> comp_forif2134 +comp_forif2134: li %10, 0 --> comp_forif2133 +comp_forif2133: li %11, 0 --> comp_forif2132 +comp_forif2132: li %12, 0 --> comp_forif2131 +comp_forif2131: li %13, 0 --> comp_forif2130 +comp_forif2130: li %14, 0 --> comp_forif2129 +comp_forif2129: li %15, 0 --> comp_forif2128 +comp_forif2128: li %16, 0 --> comp_forif2127 +comp_forif2127: li %17, 0 --> comp_forif2126 +comp_forif2126: li %18, 0 --> comp_forif2125 +comp_forif2125: li %19, 0 --> comp_forif2124 +comp_forif2124: li %20, 0 --> comp_forif2123 +comp_forif2123: li %21, 0 --> comp_forif2122 +comp_forif2122: li %22, 0 --> comp_forif2121 +comp_forif2121: li %23, 0 --> comp_forif2120 +comp_forif2120: li %24, 0 --> comp_forif2119 +comp_forif2119: li %25, 0 --> comp_forif2118 +comp_forif2118: li %26, 0 --> comp_forif2117 +comp_forif2117: li %27, 0 --> comp_forif2116 +comp_forif2116: li %28, 0 --> comp_forif2115 +comp_forif2115: li %29, 0 --> comp_forif2114 +comp_forif2114: li %30, 0 --> comp_forif2113 +comp_forif2113: li %31, 0 --> comp_forif2112 +comp_forif2112: li %32, 0 --> comp_forif2111 +comp_forif2111: li %33, 0 --> comp_forif2110 +comp_forif2110: li %34, 0 --> comp_forif2109 +comp_forif2109: li %35, 0 --> comp_forif2108 +comp_forif2108: li %36, 0 --> comp_forif2107 +comp_forif2107: li %37, 0 --> comp_forif2106 +comp_forif2106: li %38, 0 --> comp_forif2105 +comp_forif2105: li %39, 0 --> comp_forif2104 +comp_forif2104: li %40, 0 --> comp_forif2103 +comp_forif2103: li %41, 0 --> comp_forif2102 +comp_forif2102: li %42, 0 --> comp_forif2101 +comp_forif2101: li %43, 0 --> comp_forif2100 +comp_forif2100: li %44, 0 --> comp_forif299 +comp_forif299 : li %45, 0 --> comp_forif298 +comp_forif298 : li %46, 0 --> comp_forif297 +comp_forif297 : li %47, 0 --> comp_forif296 +comp_forif296 : li %48, 0 --> comp_forif295 +comp_forif295 : li %49, 0 --> comp_forif294 +comp_forif294 : li %50, 0 --> comp_forif293 +comp_forif293 : li %51, 0 --> comp_forif292 +comp_forif292 : li %52, 0 --> comp_forif291 +comp_forif291 : li %53, 0 --> comp_forif282 +comp_forif282 : emit c130 --> comp_forif281 +comp_forif281 : li %6, 0 --> comp_forif280 +comp_forif280 : emit c129 --> comp_forif279 +comp_forif279 : li %5, 0 --> comp_forif278 +comp_forif278 : emit c128 --> comp_forif277 +comp_forif277 : emit c127 --> comp_forif276 +comp_forif276 : li %8, 0 --> comp_forif262 +comp_forif262 : j --> comp_forif275 +comp_forif275 : li %44, 0 --> comp_forif274 +comp_forif274 : emit c126 --> comp_forif273 +comp_forif273 : slt %45, %8, %2 --> comp_forif272 +comp_forif272 : li %53, 0 --> comp_forif290 +comp_forif290 : seq %43, %45, %53 --> comp_forif271 +comp_forif271 : beq %43, %44 --> comp_forif270, comp_forif261 +comp_forif261 : emit c123 --> comp_forif260 +comp_forif260 : emit c122 --> comp_forif259 +comp_forif259 : li %7, 0 --> comp_forif245 +comp_forif245 : j --> comp_forif258 +comp_forif258 : li %37, 0 --> comp_forif257 +comp_forif257 : emit c121 --> comp_forif256 +comp_forif256 : slt %38, %7, %3 --> comp_forif255 +comp_forif255 : li %51, 0 --> comp_forif288 +comp_forif288 : seq %36, %38, %51 --> comp_forif254 +comp_forif254 : beq %36, %37 --> comp_forif253, comp_forif244 +comp_forif244 : emit c118 --> comp_forif243 +comp_forif243 : li %21, 0 --> comp_forif242 +comp_forif242 : li %28, 0 --> comp_forif241 +comp_forif241 : emit c117 --> comp_forif240 +comp_forif240 : li %31, 2 --> comp_forif239 +comp_forif239 : la %49, mod --> comp_forif286 +comp_forif286 : call %29, %49(%6, %31) --> comp_forif238 +comp_forif238 : li %30, 0 --> comp_forif237 +comp_forif237 : seq %27, %29, %30 --> comp_forif236 +comp_forif236 : beq %27, %28 --> comp_forif226, comp_forif235 +comp_forif235 : li %23, 0 --> comp_forif234 +comp_forif234 : emit c116 --> comp_forif233 +comp_forif233 : li %26, 2 --> comp_forif232 +comp_forif232 : la %48, mod --> comp_forif285 +comp_forif285 : call %24, %48(%5, %26) --> comp_forif231 +comp_forif231 : li %25, 0 --> comp_forif230 +comp_forif230 : seq %22, %24, %25 --> comp_forif229 +comp_forif229 : beq %22, %23 --> comp_forif227, comp_forif228 +comp_forif228 : li %20, 1 --> comp_forif225 +comp_forif225 : beq %20, %21 --> comp_forif222, comp_forif224 +comp_forif224 : emit c115 --> comp_forif223 +comp_forif223 : li %4, 0 --> comp_forif22 +comp_forif22 : emit c109 --> comp_forif21 +comp_forif21 : li %9, 0 --> comp_forif20 +comp_forif20 : return %9 +comp_forif222 : emit c114 --> comp_forif221 +comp_forif221 : li %16, 0 --> comp_forif220 +comp_forif220 : li %19, 2 --> comp_forif219 +comp_forif219 : la %47, mod --> comp_forif284 +comp_forif284 : call %17, %47(%6, %19) --> comp_forif218 +comp_forif218 : li %18, 0 --> comp_forif217 +comp_forif217 : seq %15, %17, %18 --> comp_forif216 +comp_forif216 : beq %15, %16 --> comp_forif213, comp_forif215 +comp_forif215 : emit c113 --> comp_forif214 +comp_forif214 : li %4, 1 --> comp_forif22 +comp_forif213 : emit c112 --> comp_forif212 +comp_forif212 : li %11, 0 --> comp_forif211 +comp_forif211 : li %14, 2 --> comp_forif210 +comp_forif210 : la %46, mod --> comp_forif283 +comp_forif283 : call %12, %46(%5, %14) --> comp_forif29 +comp_forif29 : li %13, 0 --> comp_forif28 +comp_forif28 : seq %10, %12, %13 --> comp_forif27 +comp_forif27 : beq %10, %11 --> comp_forif24, comp_forif26 +comp_forif26 : emit c111 --> comp_forif25 +comp_forif25 : li %4, 2 --> comp_forif22 +comp_forif24 : emit c110 --> comp_forif23 +comp_forif23 : li %4, 3 --> comp_forif22 +comp_forif227 : li %20, 0 --> comp_forif225 +comp_forif226 : li %20, 0 --> comp_forif225 +comp_forif253 : emit c119 --> comp_forif252 +comp_forif252 : li %35, 4 --> comp_forif251 +comp_forif251 : mulo %34, %7, %35 --> comp_forif250 +comp_forif250 : add %50, %1, %34 --> comp_forif287 +comp_forif287 : lw %33, 0(%50) --> comp_forif249 +comp_forif249 : add %5, %5, %33 --> comp_forif248 +comp_forif248 : emit c120 --> comp_forif247 +comp_forif247 : li %32, 1 --> comp_forif246 +comp_forif246 : add %7, %7, %32 --> comp_forif245 +comp_forif270 : emit c124 --> comp_forif269 +comp_forif269 : li %42, 4 --> comp_forif268 +comp_forif268 : mulo %41, %8, %42 --> comp_forif267 +comp_forif267 : add %52, %0, %41 --> comp_forif289 +comp_forif289 : lw %40, 0(%52) --> comp_forif266 +comp_forif266 : add %6, %6, %40 --> comp_forif265 +comp_forif265 : emit c125 --> comp_forif264 +comp_forif264 : li %39, 1 --> comp_forif263 +comp_forif263 : add %8, %8, %39 --> comp_forif262 + +function comp_forif() : %3 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18 +entry comp_forif55 +comp_forif55: li %0, 0 --> comp_forif54 +comp_forif54: li %1, 0 --> comp_forif53 +comp_forif53: li %2, 0 --> comp_forif52 +comp_forif52: li %4, 0 --> comp_forif51 +comp_forif51: li %5, 0 --> comp_forif50 +comp_forif50: li %6, 0 --> comp_forif49 +comp_forif49: li %7, 0 --> comp_forif48 +comp_forif48: li %8, 0 --> comp_forif47 +comp_forif47: li %9, 0 --> comp_forif46 +comp_forif46: li %10, 0 --> comp_forif45 +comp_forif45: li %11, 0 --> comp_forif44 +comp_forif44: li %12, 0 --> comp_forif43 +comp_forif43: li %13, 0 --> comp_forif42 +comp_forif42: li %14, 0 --> comp_forif41 +comp_forif41: li %15, 0 --> comp_forif40 +comp_forif40: li %16, 0 --> comp_forif39 +comp_forif39: li %17, 0 --> comp_forif38 +comp_forif38: li %18, 0 --> comp_forif35 +comp_forif35: emit c141 --> comp_forif34 +comp_forif34: li %1, 0 --> comp_forif33 +comp_forif33: emit c140 --> comp_forif32 +comp_forif32: li %0, 0 --> comp_forif31 +comp_forif31: emit c139 --> comp_forif30 +comp_forif30: emit c138 --> comp_forif29 +comp_forif29: li %2, 0 --> comp_forif3 +comp_forif3 : j --> comp_forif28 +comp_forif28: li %14, 0 --> comp_forif27 +comp_forif27: emit c137 --> comp_forif26 +comp_forif26: li %16, 10 --> comp_forif25 +comp_forif25: slt %15, %2, %16 --> comp_forif24 +comp_forif24: li %18, 0 --> comp_forif37 +comp_forif37: seq %13, %15, %18 --> comp_forif23 +comp_forif23: beq %13, %14 --> comp_forif22, comp_forif2 +comp_forif2 : emit c131 --> comp_forif1 +comp_forif1 : move %3, %1 --> comp_forif0 +comp_forif0 : return %3 +comp_forif22: emit c135 --> comp_forif21 +comp_forif21: li %12, 1 --> comp_forif20 +comp_forif20: add %1, %1, %12 --> comp_forif19 +comp_forif19: emit c134 --> comp_forif18 +comp_forif18: li %11, 1 --> comp_forif17 +comp_forif17: add %1, %1, %11 --> comp_forif16 +comp_forif16: emit c133 --> comp_forif15 +comp_forif15: li %7, 0 --> comp_forif14 +comp_forif14: li %10, 2 --> comp_forif13 +comp_forif13: la %17, mod --> comp_forif36 +comp_forif36: call %8, %17(%2, %10) --> comp_forif12 +comp_forif12: li %9, 0 --> comp_forif11 +comp_forif11: seq %6, %8, %9 --> comp_forif10 +comp_forif10: beq %6, %7 --> comp_forif6, comp_forif9 +comp_forif9 : emit c132 --> comp_forif8 +comp_forif8 : li %5, 1 --> comp_forif7 +comp_forif7 : add %0, %0, %5 --> comp_forif6 +comp_forif6 : emit c136 --> comp_forif5 +comp_forif5 : li %4, 1 --> comp_forif4 +comp_forif4 : add %2, %2, %4 --> comp_forif3 + +function comp_fir_basic(%0; %1; %2; %3; %4) : %9 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53 +entry comp_fir_basic126 +comp_fir_basic126: li %5, 0 --> comp_fir_basic125 +comp_fir_basic125: li %6, 0 --> comp_fir_basic124 +comp_fir_basic124: li %7, 0 --> comp_fir_basic123 +comp_fir_basic123: li %8, 0 --> comp_fir_basic122 +comp_fir_basic122: li %10, 0 --> comp_fir_basic121 +comp_fir_basic121: li %11, 0 --> comp_fir_basic120 +comp_fir_basic120: li %12, 0 --> comp_fir_basic119 +comp_fir_basic119: li %13, 0 --> comp_fir_basic118 +comp_fir_basic118: li %14, 0 --> comp_fir_basic117 +comp_fir_basic117: li %15, 0 --> comp_fir_basic116 +comp_fir_basic116: li %16, 0 --> comp_fir_basic115 +comp_fir_basic115: li %17, 0 --> comp_fir_basic114 +comp_fir_basic114: li %18, 0 --> comp_fir_basic113 +comp_fir_basic113: li %19, 0 --> comp_fir_basic112 +comp_fir_basic112: li %20, 0 --> comp_fir_basic111 +comp_fir_basic111: li %21, 0 --> comp_fir_basic110 +comp_fir_basic110: li %22, 0 --> comp_fir_basic109 +comp_fir_basic109: li %23, 0 --> comp_fir_basic108 +comp_fir_basic108: li %24, 0 --> comp_fir_basic107 +comp_fir_basic107: li %25, 0 --> comp_fir_basic106 +comp_fir_basic106: li %26, 0 --> comp_fir_basic105 +comp_fir_basic105: li %27, 0 --> comp_fir_basic104 +comp_fir_basic104: li %28, 0 --> comp_fir_basic103 +comp_fir_basic103: li %29, 0 --> comp_fir_basic102 +comp_fir_basic102: li %30, 0 --> comp_fir_basic101 +comp_fir_basic101: li %31, 0 --> comp_fir_basic100 +comp_fir_basic100: li %32, 0 --> comp_fir_basic99 +comp_fir_basic99 : li %33, 0 --> comp_fir_basic98 +comp_fir_basic98 : li %34, 0 --> comp_fir_basic97 +comp_fir_basic97 : li %35, 0 --> comp_fir_basic96 +comp_fir_basic96 : li %36, 0 --> comp_fir_basic95 +comp_fir_basic95 : li %37, 0 --> comp_fir_basic94 +comp_fir_basic94 : li %38, 0 --> comp_fir_basic93 +comp_fir_basic93 : li %39, 0 --> comp_fir_basic92 +comp_fir_basic92 : li %40, 0 --> comp_fir_basic91 +comp_fir_basic91 : li %41, 0 --> comp_fir_basic90 +comp_fir_basic90 : li %42, 0 --> comp_fir_basic89 +comp_fir_basic89 : li %43, 0 --> comp_fir_basic88 +comp_fir_basic88 : li %44, 0 --> comp_fir_basic87 +comp_fir_basic87 : li %45, 0 --> comp_fir_basic86 +comp_fir_basic86 : li %46, 0 --> comp_fir_basic85 +comp_fir_basic85 : li %47, 0 --> comp_fir_basic84 +comp_fir_basic84 : li %48, 0 --> comp_fir_basic83 +comp_fir_basic83 : li %49, 0 --> comp_fir_basic82 +comp_fir_basic82 : li %50, 0 --> comp_fir_basic81 +comp_fir_basic81 : li %51, 0 --> comp_fir_basic80 +comp_fir_basic80 : li %52, 0 --> comp_fir_basic79 +comp_fir_basic79 : li %53, 0 --> comp_fir_basic69 +comp_fir_basic69 : emit c16 --> comp_fir_basic68 +comp_fir_basic68 : li %5, 0 --> comp_fir_basic67 +comp_fir_basic67 : emit c15 --> comp_fir_basic66 +comp_fir_basic66 : emit c14 --> comp_fir_basic65 +comp_fir_basic65 : li %6, 0 --> comp_fir_basic3 +comp_fir_basic3 : j --> comp_fir_basic64 +comp_fir_basic64 : li %42, 0 --> comp_fir_basic63 +comp_fir_basic63 : emit c13 --> comp_fir_basic62 +comp_fir_basic62 : li %44, 3 --> comp_fir_basic61 +comp_fir_basic61 : slt %43, %6, %44 --> comp_fir_basic60 +comp_fir_basic60 : li %53, 0 --> comp_fir_basic78 +comp_fir_basic78 : seq %41, %43, %53 --> comp_fir_basic59 +comp_fir_basic59 : beq %41, %42 --> comp_fir_basic58, comp_fir_basic2 +comp_fir_basic2 : emit c0 --> comp_fir_basic1 +comp_fir_basic1 : move %9, %5 --> comp_fir_basic0 +comp_fir_basic0 : return %9 +comp_fir_basic58 : emit c11 --> comp_fir_basic57 +comp_fir_basic57 : li %40, 4 --> comp_fir_basic56 +comp_fir_basic56 : mulo %39, %6, %40 --> comp_fir_basic55 +comp_fir_basic55 : add %52, %0, %39 --> comp_fir_basic77 +comp_fir_basic77 : lw %35, 0(%52) --> comp_fir_basic54 +comp_fir_basic54 : li %37, 0 --> comp_fir_basic53 +comp_fir_basic53 : li %38, 4 --> comp_fir_basic52 +comp_fir_basic52 : mulo %36, %37, %38 --> comp_fir_basic51 +comp_fir_basic51 : add %51, %2, %36 --> comp_fir_basic76 +comp_fir_basic76 : sw %35, 0(%51) --> comp_fir_basic50 +comp_fir_basic50 : emit c10 --> comp_fir_basic49 +comp_fir_basic49 : emit c9 --> comp_fir_basic48 +comp_fir_basic48 : li %8, 0 --> comp_fir_basic29 +comp_fir_basic29 : j --> comp_fir_basic47 +comp_fir_basic47 : li %32, 0 --> comp_fir_basic46 +comp_fir_basic46 : emit c8 --> comp_fir_basic45 +comp_fir_basic45 : li %34, 3 --> comp_fir_basic44 +comp_fir_basic44 : slt %33, %8, %34 --> comp_fir_basic43 +comp_fir_basic43 : li %50, 0 --> comp_fir_basic75 +comp_fir_basic75 : seq %31, %33, %50 --> comp_fir_basic42 +comp_fir_basic42 : beq %31, %32 --> comp_fir_basic41, comp_fir_basic28 +comp_fir_basic28 : emit c5 --> comp_fir_basic27 +comp_fir_basic27 : emit c4 --> comp_fir_basic26 +comp_fir_basic26 : li %7, 2 --> comp_fir_basic7 +comp_fir_basic7 : j --> comp_fir_basic25 +comp_fir_basic25 : li %20, 0 --> comp_fir_basic24 +comp_fir_basic24 : emit c3 --> comp_fir_basic23 +comp_fir_basic23 : li %22, 0 --> comp_fir_basic22 +comp_fir_basic22 : sge %21, %7, %22 --> comp_fir_basic21 +comp_fir_basic21 : li %47, 0 --> comp_fir_basic72 +comp_fir_basic72 : seq %19, %21, %47 --> comp_fir_basic20 +comp_fir_basic20 : beq %19, %20 --> comp_fir_basic19, comp_fir_basic6 +comp_fir_basic6 : emit c12 --> comp_fir_basic5 +comp_fir_basic5 : li %10, 1 --> comp_fir_basic4 +comp_fir_basic4 : add %6, %6, %10 --> comp_fir_basic3 +comp_fir_basic19 : emit c1 --> comp_fir_basic18 +comp_fir_basic18 : li %18, 4 --> comp_fir_basic17 +comp_fir_basic17 : mulo %17, %7, %18 --> comp_fir_basic16 +comp_fir_basic16 : add %46, %2, %17 --> comp_fir_basic71 +comp_fir_basic71 : lw %12, 0(%46) --> comp_fir_basic15 +comp_fir_basic15 : li %16, 1 --> comp_fir_basic14 +comp_fir_basic14 : add %14, %7, %16 --> comp_fir_basic13 +comp_fir_basic13 : li %15, 4 --> comp_fir_basic12 +comp_fir_basic12 : mulo %13, %14, %15 --> comp_fir_basic11 +comp_fir_basic11 : add %45, %2, %13 --> comp_fir_basic70 +comp_fir_basic70 : sw %12, 0(%45) --> comp_fir_basic10 +comp_fir_basic10 : emit c2 --> comp_fir_basic9 +comp_fir_basic9 : li %11, 1 --> comp_fir_basic8 +comp_fir_basic8 : sub %7, %7, %11 --> comp_fir_basic7 +comp_fir_basic41 : emit c6 --> comp_fir_basic40 +comp_fir_basic40 : li %30, 4 --> comp_fir_basic39 +comp_fir_basic39 : mulo %29, %8, %30 --> comp_fir_basic38 +comp_fir_basic38 : add %49, %1, %29 --> comp_fir_basic74 +comp_fir_basic74 : lw %25, 0(%49) --> comp_fir_basic37 +comp_fir_basic37 : li %28, 4 --> comp_fir_basic36 +comp_fir_basic36 : mulo %27, %8, %28 --> comp_fir_basic35 +comp_fir_basic35 : add %48, %2, %27 --> comp_fir_basic73 +comp_fir_basic73 : lw %26, 0(%48) --> comp_fir_basic34 +comp_fir_basic34 : mulo %24, %25, %26 --> comp_fir_basic33 +comp_fir_basic33 : add %5, %5, %24 --> comp_fir_basic32 +comp_fir_basic32 : emit c7 --> comp_fir_basic31 +comp_fir_basic31 : li %23, 1 --> comp_fir_basic30 +comp_fir_basic30 : add %8, %8, %23 --> comp_fir_basic29 + +function comp_fir16(%0; %1; %2; %3) : %9 +stacksize 64 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106, %107, %108, %109, %110, %111, + %112, %113, %114, %115, %116, %117, %118, + %119, %120, %121, %122, %123, %124, %125, + %126, %127, %128, %129, %130, %131, %132, + %133, %134, %135, %136, %137, %138, %139, + %140, %141, %142, %143, %144, %145, %146, + %147, %148, %149, %150, %151, %152, %153 +entry comp_fir16359 +comp_fir16359: li %4, 0 --> comp_fir16358 +comp_fir16358: li %5, 0 --> comp_fir16357 +comp_fir16357: li %6, 0 --> comp_fir16356 +comp_fir16356: li %7, 0 --> comp_fir16355 +comp_fir16355: li %8, 0 --> comp_fir16354 +comp_fir16354: li %10, 0 --> comp_fir16353 +comp_fir16353: li %11, 0 --> comp_fir16352 +comp_fir16352: li %12, 0 --> comp_fir16351 +comp_fir16351: li %13, 0 --> comp_fir16350 +comp_fir16350: li %14, 0 --> comp_fir16349 +comp_fir16349: li %15, 0 --> comp_fir16348 +comp_fir16348: li %16, 0 --> comp_fir16347 +comp_fir16347: li %17, 0 --> comp_fir16346 +comp_fir16346: li %18, 0 --> comp_fir16345 +comp_fir16345: li %19, 0 --> comp_fir16344 +comp_fir16344: li %20, 0 --> comp_fir16343 +comp_fir16343: li %21, 0 --> comp_fir16342 +comp_fir16342: li %22, 0 --> comp_fir16341 +comp_fir16341: li %23, 0 --> comp_fir16340 +comp_fir16340: li %24, 0 --> comp_fir16339 +comp_fir16339: li %25, 0 --> comp_fir16338 +comp_fir16338: li %26, 0 --> comp_fir16337 +comp_fir16337: li %27, 0 --> comp_fir16336 +comp_fir16336: li %28, 0 --> comp_fir16335 +comp_fir16335: li %29, 0 --> comp_fir16334 +comp_fir16334: li %30, 0 --> comp_fir16333 +comp_fir16333: li %31, 0 --> comp_fir16332 +comp_fir16332: li %32, 0 --> comp_fir16331 +comp_fir16331: li %33, 0 --> comp_fir16330 +comp_fir16330: li %34, 0 --> comp_fir16329 +comp_fir16329: li %35, 0 --> comp_fir16328 +comp_fir16328: li %36, 0 --> comp_fir16327 +comp_fir16327: li %37, 0 --> comp_fir16326 +comp_fir16326: li %38, 0 --> comp_fir16325 +comp_fir16325: li %39, 0 --> comp_fir16324 +comp_fir16324: li %40, 0 --> comp_fir16323 +comp_fir16323: li %41, 0 --> comp_fir16322 +comp_fir16322: li %42, 0 --> comp_fir16321 +comp_fir16321: li %43, 0 --> comp_fir16320 +comp_fir16320: li %44, 0 --> comp_fir16319 +comp_fir16319: li %45, 0 --> comp_fir16318 +comp_fir16318: li %46, 0 --> comp_fir16317 +comp_fir16317: li %47, 0 --> comp_fir16316 +comp_fir16316: li %48, 0 --> comp_fir16315 +comp_fir16315: li %49, 0 --> comp_fir16314 +comp_fir16314: li %50, 0 --> comp_fir16313 +comp_fir16313: li %51, 0 --> comp_fir16312 +comp_fir16312: li %52, 0 --> comp_fir16311 +comp_fir16311: li %53, 0 --> comp_fir16310 +comp_fir16310: li %54, 0 --> comp_fir16309 +comp_fir16309: li %55, 0 --> comp_fir16308 +comp_fir16308: li %56, 0 --> comp_fir16307 +comp_fir16307: li %57, 0 --> comp_fir16306 +comp_fir16306: li %58, 0 --> comp_fir16305 +comp_fir16305: li %59, 0 --> comp_fir16304 +comp_fir16304: li %60, 0 --> comp_fir16303 +comp_fir16303: li %61, 0 --> comp_fir16302 +comp_fir16302: li %62, 0 --> comp_fir16301 +comp_fir16301: li %63, 0 --> comp_fir16300 +comp_fir16300: li %64, 0 --> comp_fir16299 +comp_fir16299: li %65, 0 --> comp_fir16298 +comp_fir16298: li %66, 0 --> comp_fir16297 +comp_fir16297: li %67, 0 --> comp_fir16296 +comp_fir16296: li %68, 0 --> comp_fir16295 +comp_fir16295: li %69, 0 --> comp_fir16294 +comp_fir16294: li %70, 0 --> comp_fir16293 +comp_fir16293: li %71, 0 --> comp_fir16292 +comp_fir16292: li %72, 0 --> comp_fir16291 +comp_fir16291: li %73, 0 --> comp_fir16290 +comp_fir16290: li %74, 0 --> comp_fir16289 +comp_fir16289: li %75, 0 --> comp_fir16288 +comp_fir16288: li %76, 0 --> comp_fir16287 +comp_fir16287: li %77, 0 --> comp_fir16286 +comp_fir16286: li %78, 0 --> comp_fir16285 +comp_fir16285: li %79, 0 --> comp_fir16284 +comp_fir16284: li %80, 0 --> comp_fir16283 +comp_fir16283: li %81, 0 --> comp_fir16282 +comp_fir16282: li %82, 0 --> comp_fir16281 +comp_fir16281: li %83, 0 --> comp_fir16280 +comp_fir16280: li %84, 0 --> comp_fir16279 +comp_fir16279: li %85, 0 --> comp_fir16278 +comp_fir16278: li %86, 0 --> comp_fir16277 +comp_fir16277: li %87, 0 --> comp_fir16276 +comp_fir16276: li %88, 0 --> comp_fir16275 +comp_fir16275: li %89, 0 --> comp_fir16274 +comp_fir16274: li %90, 0 --> comp_fir16273 +comp_fir16273: li %91, 0 --> comp_fir16272 +comp_fir16272: li %92, 0 --> comp_fir16271 +comp_fir16271: li %93, 0 --> comp_fir16270 +comp_fir16270: li %94, 0 --> comp_fir16269 +comp_fir16269: li %95, 0 --> comp_fir16268 +comp_fir16268: li %96, 0 --> comp_fir16267 +comp_fir16267: li %97, 0 --> comp_fir16266 +comp_fir16266: li %98, 0 --> comp_fir16265 +comp_fir16265: li %99, 0 --> comp_fir16264 +comp_fir16264: li %100, 0 --> comp_fir16263 +comp_fir16263: li %101, 0 --> comp_fir16262 +comp_fir16262: li %102, 0 --> comp_fir16261 +comp_fir16261: li %103, 0 --> comp_fir16260 +comp_fir16260: li %104, 0 --> comp_fir16259 +comp_fir16259: li %105, 0 --> comp_fir16258 +comp_fir16258: li %106, 0 --> comp_fir16257 +comp_fir16257: li %107, 0 --> comp_fir16256 +comp_fir16256: li %108, 0 --> comp_fir16255 +comp_fir16255: li %109, 0 --> comp_fir16254 +comp_fir16254: li %110, 0 --> comp_fir16253 +comp_fir16253: li %111, 0 --> comp_fir16252 +comp_fir16252: li %112, 0 --> comp_fir16251 +comp_fir16251: li %113, 0 --> comp_fir16250 +comp_fir16250: li %114, 0 --> comp_fir16249 +comp_fir16249: li %115, 0 --> comp_fir16248 +comp_fir16248: li %116, 0 --> comp_fir16247 +comp_fir16247: li %117, 0 --> comp_fir16246 +comp_fir16246: li %118, 0 --> comp_fir16245 +comp_fir16245: li %119, 0 --> comp_fir16244 +comp_fir16244: li %120, 0 --> comp_fir16243 +comp_fir16243: li %121, 0 --> comp_fir16242 +comp_fir16242: li %122, 0 --> comp_fir16241 +comp_fir16241: li %123, 0 --> comp_fir16240 +comp_fir16240: li %124, 0 --> comp_fir16239 +comp_fir16239: li %125, 0 --> comp_fir16238 +comp_fir16238: li %126, 0 --> comp_fir16237 +comp_fir16237: li %127, 0 --> comp_fir16236 +comp_fir16236: li %128, 0 --> comp_fir16235 +comp_fir16235: li %129, 0 --> comp_fir16234 +comp_fir16234: li %130, 0 --> comp_fir16233 +comp_fir16233: li %131, 0 --> comp_fir16232 +comp_fir16232: li %132, 0 --> comp_fir16231 +comp_fir16231: li %133, 0 --> comp_fir16230 +comp_fir16230: li %134, 0 --> comp_fir16229 +comp_fir16229: li %135, 0 --> comp_fir16228 +comp_fir16228: li %136, 0 --> comp_fir16227 +comp_fir16227: li %137, 0 --> comp_fir16226 +comp_fir16226: li %138, 0 --> comp_fir16225 +comp_fir16225: li %139, 0 --> comp_fir16224 +comp_fir16224: li %140, 0 --> comp_fir16223 +comp_fir16223: li %141, 0 --> comp_fir16222 +comp_fir16222: li %142, 0 --> comp_fir16221 +comp_fir16221: li %143, 0 --> comp_fir16220 +comp_fir16220: li %144, 0 --> comp_fir16219 +comp_fir16219: li %145, 0 --> comp_fir16218 +comp_fir16218: li %146, 0 --> comp_fir16217 +comp_fir16217: li %147, 0 --> comp_fir16216 +comp_fir16216: li %148, 0 --> comp_fir16215 +comp_fir16215: li %149, 0 --> comp_fir16214 +comp_fir16214: li %150, 0 --> comp_fir16213 +comp_fir16213: li %151, 0 --> comp_fir16212 +comp_fir16212: li %152, 0 --> comp_fir16211 +comp_fir16211: li %153, 0 --> comp_fir16184 +comp_fir16184: emit c49 --> comp_fir16183 +comp_fir16183: li %123, 0 --> comp_fir16182 +comp_fir16182: addi %124, STACK, 0 --> comp_fir16181 +comp_fir16181: li %126, 0 --> comp_fir16180 +comp_fir16180: li %127, 4 --> comp_fir16179 +comp_fir16179: mulo %125, %126, %127 --> comp_fir16178 +comp_fir16178: add %142, %124, %125 --> comp_fir16199 +comp_fir16199: sw %123, 0(%142) --> comp_fir16177 +comp_fir16177: emit c48 --> comp_fir16176 +comp_fir16176: li %118, 0 --> comp_fir16175 +comp_fir16175: addi %119, STACK, 0 --> comp_fir16174 +comp_fir16174: li %121, 1 --> comp_fir16173 +comp_fir16173: li %122, 4 --> comp_fir16172 +comp_fir16172: mulo %120, %121, %122 --> comp_fir16171 +comp_fir16171: add %141, %119, %120 --> comp_fir16198 +comp_fir16198: sw %118, 0(%141) --> comp_fir16170 +comp_fir16170: emit c47 --> comp_fir16169 +comp_fir16169: li %113, 0 --> comp_fir16168 +comp_fir16168: addi %114, STACK, 0 --> comp_fir16167 +comp_fir16167: li %116, 2 --> comp_fir16166 +comp_fir16166: li %117, 4 --> comp_fir16165 +comp_fir16165: mulo %115, %116, %117 --> comp_fir16164 +comp_fir16164: add %140, %114, %115 --> comp_fir16197 +comp_fir16197: sw %113, 0(%140) --> comp_fir16163 +comp_fir16163: emit c46 --> comp_fir16162 +comp_fir16162: li %108, 0 --> comp_fir16161 +comp_fir16161: addi %109, STACK, 0 --> comp_fir16160 +comp_fir16160: li %111, 3 --> comp_fir16159 +comp_fir16159: li %112, 4 --> comp_fir16158 +comp_fir16158: mulo %110, %111, %112 --> comp_fir16157 +comp_fir16157: add %139, %109, %110 --> comp_fir16196 +comp_fir16196: sw %108, 0(%139) --> comp_fir16156 +comp_fir16156: emit c45 --> comp_fir16155 +comp_fir16155: li %103, 0 --> comp_fir16154 +comp_fir16154: addi %104, STACK, 0 --> comp_fir16153 +comp_fir16153: li %106, 4 --> comp_fir16152 +comp_fir16152: li %107, 4 --> comp_fir16151 +comp_fir16151: mulo %105, %106, %107 --> comp_fir16150 +comp_fir16150: add %138, %104, %105 --> comp_fir16195 +comp_fir16195: sw %103, 0(%138) --> comp_fir16149 +comp_fir16149: emit c44 --> comp_fir16148 +comp_fir16148: li %98, 0 --> comp_fir16147 +comp_fir16147: addi %99, STACK, 0 --> comp_fir16146 +comp_fir16146: li %101, 5 --> comp_fir16145 +comp_fir16145: li %102, 4 --> comp_fir16144 +comp_fir16144: mulo %100, %101, %102 --> comp_fir16143 +comp_fir16143: add %136, %99, %100 --> comp_fir16193 +comp_fir16193: sw %98, 0(%136) --> comp_fir16142 +comp_fir16142: emit c43 --> comp_fir16141 +comp_fir16141: li %93, 0 --> comp_fir16140 +comp_fir16140: addi %94, STACK, 0 --> comp_fir16139 +comp_fir16139: li %96, 6 --> comp_fir16138 +comp_fir16138: li %97, 4 --> comp_fir16137 +comp_fir16137: mulo %95, %96, %97 --> comp_fir16136 +comp_fir16136: add %135, %94, %95 --> comp_fir16192 +comp_fir16192: sw %93, 0(%135) --> comp_fir16135 +comp_fir16135: emit c42 --> comp_fir16134 +comp_fir16134: li %88, 0 --> comp_fir16133 +comp_fir16133: addi %89, STACK, 0 --> comp_fir16132 +comp_fir16132: li %91, 7 --> comp_fir16131 +comp_fir16131: li %92, 4 --> comp_fir16130 +comp_fir16130: mulo %90, %91, %92 --> comp_fir16129 +comp_fir16129: add %134, %89, %90 --> comp_fir16191 +comp_fir16191: sw %88, 0(%134) --> comp_fir16128 +comp_fir16128: emit c41 --> comp_fir16127 +comp_fir16127: li %83, 0 --> comp_fir16126 +comp_fir16126: addi %84, STACK, 0 --> comp_fir16125 +comp_fir16125: li %86, 8 --> comp_fir16124 +comp_fir16124: li %87, 4 --> comp_fir16123 +comp_fir16123: mulo %85, %86, %87 --> comp_fir16122 +comp_fir16122: add %133, %84, %85 --> comp_fir16190 +comp_fir16190: sw %83, 0(%133) --> comp_fir16121 +comp_fir16121: emit c40 --> comp_fir16120 +comp_fir16120: li %78, 0 --> comp_fir16119 +comp_fir16119: addi %79, STACK, 0 --> comp_fir16118 +comp_fir16118: li %81, 9 --> comp_fir16117 +comp_fir16117: li %82, 4 --> comp_fir16116 +comp_fir16116: mulo %80, %81, %82 --> comp_fir16115 +comp_fir16115: add %132, %79, %80 --> comp_fir16189 +comp_fir16189: sw %78, 0(%132) --> comp_fir16114 +comp_fir16114: emit c39 --> comp_fir16113 +comp_fir16113: li %73, 0 --> comp_fir16112 +comp_fir16112: addi %74, STACK, 0 --> comp_fir16111 +comp_fir16111: li %76, 10 --> comp_fir16110 +comp_fir16110: li %77, 4 --> comp_fir16109 +comp_fir16109: mulo %75, %76, %77 --> comp_fir16108 +comp_fir16108: add %130, %74, %75 --> comp_fir16187 +comp_fir16187: sw %73, 0(%130) --> comp_fir16107 +comp_fir16107: emit c38 --> comp_fir16106 +comp_fir16106: li %68, 0 --> comp_fir16105 +comp_fir16105: addi %69, STACK, 0 --> comp_fir16104 +comp_fir16104: li %71, 11 --> comp_fir16103 +comp_fir16103: li %72, 4 --> comp_fir16102 +comp_fir16102: mulo %70, %71, %72 --> comp_fir16101 +comp_fir16101: add %129, %69, %70 --> comp_fir16186 +comp_fir16186: sw %68, 0(%129) --> comp_fir16100 +comp_fir16100: emit c37 --> comp_fir1699 +comp_fir1699 : li %63, 0 --> comp_fir1698 +comp_fir1698 : addi %64, STACK, 0 --> comp_fir1697 +comp_fir1697 : li %66, 12 --> comp_fir1696 +comp_fir1696 : li %67, 4 --> comp_fir1695 +comp_fir1695 : mulo %65, %66, %67 --> comp_fir1694 +comp_fir1694 : add %153, %64, %65 --> comp_fir16210 +comp_fir16210: sw %63, 0(%153) --> comp_fir1693 +comp_fir1693 : emit c36 --> comp_fir1692 +comp_fir1692 : li %58, 0 --> comp_fir1691 +comp_fir1691 : addi %59, STACK, 0 --> comp_fir1690 +comp_fir1690 : li %61, 13 --> comp_fir1689 +comp_fir1689 : li %62, 4 --> comp_fir1688 +comp_fir1688 : mulo %60, %61, %62 --> comp_fir1687 +comp_fir1687 : add %152, %59, %60 --> comp_fir16209 +comp_fir16209: sw %58, 0(%152) --> comp_fir1686 +comp_fir1686 : emit c35 --> comp_fir1685 +comp_fir1685 : li %53, 0 --> comp_fir1684 +comp_fir1684 : addi %54, STACK, 0 --> comp_fir1683 +comp_fir1683 : li %56, 14 --> comp_fir1682 +comp_fir1682 : li %57, 4 --> comp_fir1681 +comp_fir1681 : mulo %55, %56, %57 --> comp_fir1680 +comp_fir1680 : add %151, %54, %55 --> comp_fir16208 +comp_fir16208: sw %53, 0(%151) --> comp_fir1679 +comp_fir1679 : emit c34 --> comp_fir1678 +comp_fir1678 : li %48, 0 --> comp_fir1677 +comp_fir1677 : addi %49, STACK, 0 --> comp_fir1676 +comp_fir1676 : li %51, 15 --> comp_fir1675 +comp_fir1675 : li %52, 4 --> comp_fir1674 +comp_fir1674 : mulo %50, %51, %52 --> comp_fir1673 +comp_fir1673 : add %150, %49, %50 --> comp_fir16207 +comp_fir16207: sw %48, 0(%150) --> comp_fir1672 +comp_fir1672 : emit c33 --> comp_fir1671 +comp_fir1671 : li %8, 0 --> comp_fir1670 +comp_fir1670 : emit c32 --> comp_fir1669 +comp_fir1669 : li %4, 0 --> comp_fir1668 +comp_fir1668 : emit c31 --> comp_fir1667 +comp_fir1667 : emit c30 --> comp_fir1666 +comp_fir1666 : li %6, 0 --> comp_fir167 +comp_fir167 : j --> comp_fir1665 +comp_fir1665 : li %46, 0 --> comp_fir1664 +comp_fir1664 : emit c29 --> comp_fir1663 +comp_fir1663 : slt %47, %6, %3 --> comp_fir1662 +comp_fir1662 : li %149, 0 --> comp_fir16206 +comp_fir16206: seq %45, %47, %149 --> comp_fir1661 +comp_fir1661 : beq %45, %46 --> comp_fir1660, comp_fir166 +comp_fir166 : emit c17 --> comp_fir165 +comp_fir165 : addi %10, STACK, 0 --> comp_fir164 +comp_fir164 : li %12, 0 --> comp_fir163 +comp_fir163 : li %13, 4 --> comp_fir162 +comp_fir162 : mulo %11, %12, %13 --> comp_fir161 +comp_fir161 : add %128, %10, %11 --> comp_fir16185 +comp_fir16185: lw %9, 0(%128) --> comp_fir160 +comp_fir160 : return %9 +comp_fir1660 : emit c27 --> comp_fir1659 +comp_fir1659 : li %44, 4 --> comp_fir1658 +comp_fir1658 : mulo %43, %6, %44 --> comp_fir1657 +comp_fir1657 : add %148, %0, %43 --> comp_fir16205 +comp_fir16205: lw %39, 0(%148) --> comp_fir1656 +comp_fir1656 : addi %40, STACK, 0 --> comp_fir1655 +comp_fir1655 : li %42, 4 --> comp_fir1654 +comp_fir1654 : mulo %41, %8, %42 --> comp_fir1653 +comp_fir1653 : add %147, %40, %41 --> comp_fir16204 +comp_fir16204: sw %39, 0(%147) --> comp_fir1652 +comp_fir1652 : emit c26 --> comp_fir1651 +comp_fir1651 : emit c25 --> comp_fir1650 +comp_fir1650 : li %7, 0 --> comp_fir1620 +comp_fir1620 : j --> comp_fir1649 +comp_fir1649 : li %36, 0 --> comp_fir1648 +comp_fir1648 : emit c24 --> comp_fir1647 +comp_fir1647 : li %38, 16 --> comp_fir1646 +comp_fir1646 : slt %37, %7, %38 --> comp_fir1645 +comp_fir1645 : li %146, 0 --> comp_fir16203 +comp_fir16203: seq %35, %37, %146 --> comp_fir1644 +comp_fir1644 : beq %35, %36 --> comp_fir1643, comp_fir1619 +comp_fir1619 : emit c19 --> comp_fir1618 +comp_fir1618 : li %19, 1 --> comp_fir1617 +comp_fir1617 : add %17, %8, %19 --> comp_fir1616 +comp_fir1616 : li %18, 16 --> comp_fir1615 +comp_fir1615 : la %137, mod --> comp_fir16194 +comp_fir16194: call %8, %137(%17, %18) --> comp_fir1614 +comp_fir1614 : emit c18 --> comp_fir1613 +comp_fir1613 : li %16, 4 --> comp_fir1612 +comp_fir1612 : mulo %15, %6, %16 --> comp_fir1611 +comp_fir1611 : add %131, %2, %15 --> comp_fir16188 +comp_fir16188: sw %4, 0(%131) --> comp_fir1610 +comp_fir1610 : emit c28 --> comp_fir169 +comp_fir169 : li %14, 1 --> comp_fir168 +comp_fir168 : add %6, %6, %14 --> comp_fir167 +comp_fir1643 : emit c22 --> comp_fir1642 +comp_fir1642 : addi %32, STACK, 0 --> comp_fir1641 +comp_fir1641 : li %34, 4 --> comp_fir1640 +comp_fir1640 : mulo %33, %8, %34 --> comp_fir1639 +comp_fir1639 : add %145, %32, %33 --> comp_fir16202 +comp_fir16202: lw %28, 0(%145) --> comp_fir1638 +comp_fir1638 : li %31, 4 --> comp_fir1637 +comp_fir1637 : mulo %30, %7, %31 --> comp_fir1636 +comp_fir1636 : add %144, %1, %30 --> comp_fir16201 +comp_fir16201: lw %29, 0(%144) --> comp_fir1635 +comp_fir1635 : mulo %24, %28, %29 --> comp_fir1634 +comp_fir1634 : li %26, 2 --> comp_fir1633 +comp_fir1633 : li %27, 16 --> comp_fir1632 +comp_fir1632 : xor %25, %26, %27 --> comp_fir1631 +comp_fir1631 : mulo %5, %24, %25 --> comp_fir1630 +comp_fir1630 : emit c21 --> comp_fir1629 +comp_fir1629 : add %4, %4, %5 --> comp_fir1628 +comp_fir1628 : emit c20 --> comp_fir1627 +comp_fir1627 : li %23, 1 --> comp_fir1626 +comp_fir1626 : add %21, %8, %23 --> comp_fir1625 +comp_fir1625 : li %22, 16 --> comp_fir1624 +comp_fir1624 : la %143, mod --> comp_fir16200 +comp_fir16200: call %8, %143(%21, %22) --> comp_fir1623 +comp_fir1623 : emit c23 --> comp_fir1622 +comp_fir1622 : li %20, 1 --> comp_fir1621 +comp_fir1621 : add %7, %7, %20 --> comp_fir1620 + +function _main() : %1 +stacksize 64 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106, %107, %108, %109, %110, %111, + %112, %113, %114, %115, %116, %117, %118, + %119, %120, %121, %122, %123, %124, %125 +entry main297 +main297: li %0, 0 --> main296 +main296: li %2, 0 --> main295 +main295: li %3, 0 --> main294 +main294: li %4, 0 --> main293 +main293: li %5, 0 --> main292 +main292: li %6, 0 --> main291 +main291: li %7, 0 --> main290 +main290: li %8, 0 --> main289 +main289: li %9, 0 --> main288 +main288: li %10, 0 --> main287 +main287: li %11, 0 --> main286 +main286: li %12, 0 --> main285 +main285: li %13, 0 --> main284 +main284: li %14, 0 --> main283 +main283: li %15, 0 --> main282 +main282: li %16, 0 --> main281 +main281: li %17, 0 --> main280 +main280: li %18, 0 --> main279 +main279: li %19, 0 --> main278 +main278: li %20, 0 --> main277 +main277: li %21, 0 --> main276 +main276: li %22, 0 --> main275 +main275: li %23, 0 --> main274 +main274: li %24, 0 --> main273 +main273: li %25, 0 --> main272 +main272: li %26, 0 --> main271 +main271: li %27, 0 --> main270 +main270: li %28, 0 --> main269 +main269: li %29, 0 --> main268 +main268: li %30, 0 --> main267 +main267: li %31, 0 --> main266 +main266: li %32, 0 --> main265 +main265: li %33, 0 --> main264 +main264: li %34, 0 --> main263 +main263: li %35, 0 --> main262 +main262: li %36, 0 --> main261 +main261: li %37, 0 --> main260 +main260: li %38, 0 --> main259 +main259: li %39, 0 --> main258 +main258: li %40, 0 --> main257 +main257: li %41, 0 --> main256 +main256: li %42, 0 --> main255 +main255: li %43, 0 --> main254 +main254: li %44, 0 --> main253 +main253: li %45, 0 --> main252 +main252: li %46, 0 --> main251 +main251: li %47, 0 --> main250 +main250: li %48, 0 --> main249 +main249: li %49, 0 --> main248 +main248: li %50, 0 --> main247 +main247: li %51, 0 --> main246 +main246: li %52, 0 --> main245 +main245: li %53, 0 --> main244 +main244: li %54, 0 --> main243 +main243: li %55, 0 --> main242 +main242: li %56, 0 --> main241 +main241: li %57, 0 --> main240 +main240: li %58, 0 --> main239 +main239: li %59, 0 --> main238 +main238: li %60, 0 --> main237 +main237: li %61, 0 --> main236 +main236: li %62, 0 --> main235 +main235: li %63, 0 --> main234 +main234: li %64, 0 --> main233 +main233: li %65, 0 --> main232 +main232: li %66, 0 --> main231 +main231: li %67, 0 --> main230 +main230: li %68, 0 --> main229 +main229: li %69, 0 --> main228 +main228: li %70, 0 --> main227 +main227: li %71, 0 --> main226 +main226: li %72, 0 --> main225 +main225: li %73, 0 --> main224 +main224: li %74, 0 --> main223 +main223: li %75, 0 --> main222 +main222: li %76, 0 --> main221 +main221: li %77, 0 --> main220 +main220: li %78, 0 --> main219 +main219: li %79, 0 --> main218 +main218: li %80, 0 --> main217 +main217: li %81, 0 --> main216 +main216: li %82, 0 --> main215 +main215: li %83, 0 --> main214 +main214: li %84, 0 --> main213 +main213: li %85, 0 --> main212 +main212: li %86, 0 --> main211 +main211: li %87, 0 --> main210 +main210: li %88, 0 --> main209 +main209: li %89, 0 --> main208 +main208: li %90, 0 --> main207 +main207: li %91, 0 --> main206 +main206: li %92, 0 --> main205 +main205: li %93, 0 --> main204 +main204: li %94, 0 --> main203 +main203: li %95, 0 --> main202 +main202: li %96, 0 --> main201 +main201: li %97, 0 --> main200 +main200: li %98, 0 --> main199 +main199: li %99, 0 --> main198 +main198: li %100, 0 --> main197 +main197: li %101, 0 --> main196 +main196: li %102, 0 --> main195 +main195: li %103, 0 --> main194 +main194: li %104, 0 --> main193 +main193: li %105, 0 --> main192 +main192: li %106, 0 --> main191 +main191: li %107, 0 --> main190 +main190: li %108, 0 --> main189 +main189: li %109, 0 --> main188 +main188: li %110, 0 --> main187 +main187: li %111, 0 --> main186 +main186: li %112, 0 --> main185 +main185: li %113, 0 --> main184 +main184: li %114, 0 --> main183 +main183: li %115, 0 --> main182 +main182: li %116, 0 --> main181 +main181: li %117, 0 --> main180 +main180: li %118, 0 --> main179 +main179: li %119, 0 --> main178 +main178: li %120, 0 --> main177 +main177: li %121, 0 --> main176 +main176: li %122, 0 --> main175 +main175: li %123, 0 --> main174 +main174: li %124, 0 --> main173 +main173: li %125, 0 --> main149 +main149: emit c165 --> main148 +main148: li %98, 10 --> main147 +main147: addi %99, STACK, 0 --> main146 +main146: li %101, 0 --> main145 +main145: li %102, 4 --> main144 +main144: mulo %100, %101, %102 --> main143 +main143: add %110, %99, %100 --> main157 +main157: sw %98, 0(%110) --> main142 +main142: emit c164 --> main141 +main141: li %93, 9 --> main140 +main140: addi %94, STACK, 0 --> main139 +main139: li %96, 1 --> main138 +main138: li %97, 4 --> main137 +main137: mulo %95, %96, %97 --> main136 +main136: add %109, %94, %95 --> main156 +main156: sw %93, 0(%109) --> main135 +main135: emit c163 --> main134 +main134: li %88, 8 --> main133 +main133: addi %89, STACK, 0 --> main132 +main132: li %91, 2 --> main131 +main131: li %92, 4 --> main130 +main130: mulo %90, %91, %92 --> main129 +main129: add %108, %89, %90 --> main155 +main155: sw %88, 0(%108) --> main128 +main128: emit c162 --> main127 +main127: li %83, 7 --> main126 +main126: addi %84, STACK, 0 --> main125 +main125: li %86, 3 --> main124 +main124: li %87, 4 --> main123 +main123: mulo %85, %86, %87 --> main122 +main122: add %107, %84, %85 --> main154 +main154: sw %83, 0(%107) --> main121 +main121: emit c161 --> main120 +main120: li %78, 6 --> main119 +main119: addi %79, STACK, 0 --> main118 +main118: li %81, 4 --> main117 +main117: li %82, 4 --> main116 +main116: mulo %80, %81, %82 --> main115 +main115: add %106, %79, %80 --> main153 +main153: sw %78, 0(%106) --> main114 +main114: emit c160 --> main113 +main113: li %73, 0 --> main112 +main112: addi %74, STACK, 0 --> main111 +main111: li %76, 5 --> main110 +main110: li %77, 4 --> main109 +main109: mulo %75, %76, %77 --> main108 +main108: add %104, %74, %75 --> main151 +main151: sw %73, 0(%104) --> main107 +main107: emit c159 --> main106 +main106: li %68, 5 --> main105 +main105: addi %69, STACK, 0 --> main104 +main104: li %71, 6 --> main103 +main103: li %72, 4 --> main102 +main102: mulo %70, %71, %72 --> main101 +main101: add %103, %69, %70 --> main150 +main150: sw %68, 0(%103) --> main100 +main100: emit c158 --> main99 +main99 : li %63, 4 --> main98 +main98 : addi %64, STACK, 0 --> main97 +main97 : li %66, 7 --> main96 +main96 : li %67, 4 --> main95 +main95 : mulo %65, %66, %67 --> main94 +main94 : add %125, %64, %65 --> main172 +main172: sw %63, 0(%125) --> main93 +main93 : emit c157 --> main92 +main92 : li %58, 3 --> main91 +main91 : addi %59, STACK, 0 --> main90 +main90 : li %61, 8 --> main89 +main89 : li %62, 4 --> main88 +main88 : mulo %60, %61, %62 --> main87 +main87 : add %124, %59, %60 --> main171 +main171: sw %58, 0(%124) --> main86 +main86 : emit c156 --> main85 +main85 : li %53, 2 --> main84 +main84 : addi %54, STACK, 0 --> main83 +main83 : li %56, 9 --> main82 +main82 : li %57, 4 --> main81 +main81 : mulo %55, %56, %57 --> main80 +main80 : add %123, %54, %55 --> main170 +main170: sw %53, 0(%123) --> main79 +main79 : emit c155 --> main78 +main78 : li %48, 0 --> main77 +main77 : addi %49, STACK, 0 --> main76 +main76 : li %51, 10 --> main75 +main75 : li %52, 4 --> main74 +main74 : mulo %50, %51, %52 --> main73 +main73 : add %122, %49, %50 --> main169 +main169: sw %48, 0(%122) --> main72 +main72 : emit c154 --> main71 +main71 : li %43, 0 --> main70 +main70 : addi %44, STACK, 0 --> main69 +main69 : li %46, 11 --> main68 +main68 : li %47, 4 --> main67 +main67 : mulo %45, %46, %47 --> main66 +main66 : add %121, %44, %45 --> main168 +main168: sw %43, 0(%121) --> main65 +main65 : emit c153 --> main64 +main64 : li %38, 0 --> main63 +main63 : addi %39, STACK, 0 --> main62 +main62 : li %41, 12 --> main61 +main61 : li %42, 4 --> main60 +main60 : mulo %40, %41, %42 --> main59 +main59 : add %120, %39, %40 --> main167 +main167: sw %38, 0(%120) --> main58 +main58 : emit c152 --> main57 +main57 : li %33, 0 --> main56 +main56 : addi %34, STACK, 0 --> main55 +main55 : li %36, 13 --> main54 +main54 : li %37, 4 --> main53 +main53 : mulo %35, %36, %37 --> main52 +main52 : add %119, %34, %35 --> main166 +main166: sw %33, 0(%119) --> main51 +main51 : emit c151 --> main50 +main50 : li %28, 0 --> main49 +main49 : addi %29, STACK, 0 --> main48 +main48 : li %31, 14 --> main47 +main47 : li %32, 4 --> main46 +main46 : mulo %30, %31, %32 --> main45 +main45 : add %117, %29, %30 --> main164 +main164: sw %28, 0(%117) --> main44 +main44 : emit c150 --> main43 +main43 : li %23, 0 --> main42 +main42 : addi %24, STACK, 0 --> main41 +main41 : li %26, 15 --> main40 +main40 : li %27, 4 --> main39 +main39 : mulo %25, %26, %27 --> main38 +main38 : add %116, %24, %25 --> main163 +main163: sw %23, 0(%116) --> main37 +main37 : emit c149 --> main36 +main36 : addi %18, STACK, 0 --> main35 +main35 : addi %19, STACK, 0 --> main34 +main34 : addi %20, STACK, 0 --> main33 +main33 : li %21, 10 --> main32 +main32 : li %22, 10 --> main31 +main31 : la %115, comp_fir_basic --> main162 +main162: call %0, %115(%18, %19, %20, %21, %22) --> main30 +main30 : emit c148 --> main29 +main29 : addi %14, STACK, 0 --> main28 +main28 : addi %15, STACK, 0 --> main27 +main27 : addi %16, STACK, 0 --> main26 +main26 : li %17, 16 --> main25 +main25 : la %113, comp_fir16 --> main160 +main160: call %0, %113(%14, %15, %16, %17) --> main24 +main24 : emit c147 --> main23 +main23 : li %11, 4 --> main22 +main22 : li %12, 1 --> main21 +main21 : li %13, 1 --> main20 +main20 : la %112, comp_ifFor --> main159 +main159: call %0, %112(%11, %12, %13) --> main19 +main19 : emit c146 --> main18 +main18 : addi %8, STACK, 0 --> main17 +main17 : li %9, 9 --> main16 +main16 : li %10, 3 --> main15 +main15 : la %111, comp_total --> main158 +main158: call %0, %111(%8, %9, %10) --> main14 +main14 : emit c145 --> main13 +main13 : addi %6, STACK, 0 --> main12 +main12 : li %7, 10 --> main11 +main11 : la %105, comp_tri --> main152 +main152: call %0, %105(%6, %7) --> main10 +main10 : emit c144 --> main9 +main9 : addi %2, STACK, 0 --> main8 +main8 : addi %3, STACK, 0 --> main7 +main7 : li %4, 10 --> main6 +main6 : li %5, 10 --> main5 +main5 : la %118, comp_forif2 --> main165 +main165: call %0, %118(%2, %3, %4, %5) --> main4 +main4 : emit c143 --> main3 +main3 : la %114, comp_forif --> main161 +main161: call %0, %114() --> main2 +main2 : emit c142 --> main1 +main1 : move %1, %0 --> main0 +main0 : return %1 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/complets.RTLabs.expected b/tests/clight/complets.RTLabs.expected new file mode 100644 index 0000000..e45d49b --- /dev/null +++ b/tests/clight/complets.RTLabs.expected @@ -0,0 +1,1289 @@ +program: (main function is "main") + + + globals: + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "comp_fir_basic"(%0, %1, %2, %3, %4): int -> int -> int -> int -> int -> int + locals: %9, %5, %6, %7, %8, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44 + result: %9 + stacksize: 0 + entry: comp_fir_basic69 + exit: comp_fir_basic0 + + comp_fir_basic9: imm_int 1, %11, --> comp_fir_basic8 + comp_fir_basic8: sub %7, %7, %11 --> comp_fir_basic7 + comp_fir_basic7: --> comp_fir_basic25 + comp_fir_basic69: emit c16 --> comp_fir_basic68 + comp_fir_basic68: imm_int 0, %5, --> comp_fir_basic67 + comp_fir_basic67: emit c15 --> comp_fir_basic66 + comp_fir_basic66: emit c14 --> comp_fir_basic65 + comp_fir_basic65: imm_int 0, %6, --> comp_fir_basic3 + comp_fir_basic64: imm_int 0, %42, --> comp_fir_basic63 + comp_fir_basic63: emit c13 --> comp_fir_basic62 + comp_fir_basic62: imm_int 3, %44, --> comp_fir_basic61 + comp_fir_basic61: lt %43, %6, %44 --> comp_fir_basic60 + comp_fir_basic60: notbool %41, %43 --> comp_fir_basic59 + comp_fir_basic6: emit c12 --> comp_fir_basic5 + comp_fir_basic59: eq %41, %42 --> comp_fir_basic58, comp_fir_basic2 + comp_fir_basic58: emit c11 --> comp_fir_basic57 + comp_fir_basic57: imm_int 4, %40, --> comp_fir_basic56 + comp_fir_basic56: mul %39, %6, %40 --> comp_fir_basic55 + comp_fir_basic55: load int32, add, %0, %39, %35 --> comp_fir_basic54 + comp_fir_basic54: imm_int 0, %37, --> comp_fir_basic53 + comp_fir_basic53: imm_int 4, %38, --> comp_fir_basic52 + comp_fir_basic52: mul %36, %37, %38 --> comp_fir_basic51 + comp_fir_basic51: store int32, add, %2, %36, %35 --> comp_fir_basic50 + comp_fir_basic50: emit c10 --> comp_fir_basic49 + comp_fir_basic5: imm_int 1, %10, --> comp_fir_basic4 + comp_fir_basic49: emit c9 --> comp_fir_basic48 + comp_fir_basic48: imm_int 0, %8, --> comp_fir_basic29 + comp_fir_basic47: imm_int 0, %32, --> comp_fir_basic46 + comp_fir_basic46: emit c8 --> comp_fir_basic45 + comp_fir_basic45: imm_int 3, %34, --> comp_fir_basic44 + comp_fir_basic44: lt %33, %8, %34 --> comp_fir_basic43 + comp_fir_basic43: notbool %31, %33 --> comp_fir_basic42 + comp_fir_basic42: eq %31, %32 --> comp_fir_basic41, comp_fir_basic28 + comp_fir_basic41: emit c6 --> comp_fir_basic40 + comp_fir_basic40: imm_int 4, %30, --> comp_fir_basic39 + comp_fir_basic4: add %6, %6, %10 --> comp_fir_basic3 + comp_fir_basic39: mul %29, %8, %30 --> comp_fir_basic38 + comp_fir_basic38: load int32, add, %1, %29, %25 --> comp_fir_basic37 + comp_fir_basic37: imm_int 4, %28, --> comp_fir_basic36 + comp_fir_basic36: mul %27, %8, %28 --> comp_fir_basic35 + comp_fir_basic35: load int32, add, %2, %27, %26 --> comp_fir_basic34 + comp_fir_basic34: mul %24, %25, %26 --> comp_fir_basic33 + comp_fir_basic33: add %5, %5, %24 --> comp_fir_basic32 + comp_fir_basic32: emit c7 --> comp_fir_basic31 + comp_fir_basic31: imm_int 1, %23, --> comp_fir_basic30 + comp_fir_basic30: add %8, %8, %23 --> comp_fir_basic29 + comp_fir_basic3: --> comp_fir_basic64 + comp_fir_basic29: --> comp_fir_basic47 + comp_fir_basic28: emit c5 --> comp_fir_basic27 + comp_fir_basic27: emit c4 --> comp_fir_basic26 + comp_fir_basic26: imm_int 2, %7, --> comp_fir_basic7 + comp_fir_basic25: imm_int 0, %20, --> comp_fir_basic24 + comp_fir_basic24: emit c3 --> comp_fir_basic23 + comp_fir_basic23: imm_int 0, %22, --> comp_fir_basic22 + comp_fir_basic22: ge %21, %7, %22 --> comp_fir_basic21 + comp_fir_basic21: notbool %19, %21 --> comp_fir_basic20 + comp_fir_basic20: eq %19, %20 --> comp_fir_basic19, comp_fir_basic6 + comp_fir_basic2: emit c0 --> comp_fir_basic1 + comp_fir_basic19: emit c1 --> comp_fir_basic18 + comp_fir_basic18: imm_int 4, %18, --> comp_fir_basic17 + comp_fir_basic17: mul %17, %7, %18 --> comp_fir_basic16 + comp_fir_basic16: load int32, add, %2, %17, %12 --> comp_fir_basic15 + comp_fir_basic15: imm_int 1, %16, --> comp_fir_basic14 + comp_fir_basic14: add %14, %7, %16 --> comp_fir_basic13 + comp_fir_basic13: imm_int 4, %15, --> comp_fir_basic12 + comp_fir_basic12: mul %13, %14, %15 --> comp_fir_basic11 + comp_fir_basic11: store int32, add, %2, %13, %12 --> comp_fir_basic10 + comp_fir_basic10: emit c2 --> comp_fir_basic9 + comp_fir_basic1: mov %9, %5 --> comp_fir_basic0 + comp_fir_basic0: return %9 + + + "comp_fir16"(%0, %1, %2, %3): int -> int -> int -> int -> int + locals: %9, %4, %5, %6, %7, %8, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45, %46, %47, %48, %49, %50, %51, %52, %53, %54, %55, %56, %57, %58, %59, %60, %61, %62, %63, %64, %65, %66, %67, %68, %69, %70, %71, %72, %73, %74, %75, %76, %77, %78, %79, %80, %81, %82, %83, %84, %85, %86, %87, %88, %89, %90, %91, %92, %93, %94, %95, %96, %97, %98, %99, %100, %101, %102, %103, %104, %105, %106, %107, %108, %109, %110, %111, %112, %113, %114, %115, %116, %117, %118, %119, %120, %121, %122, %123, %124, %125, %126, %127 + result: %9 + stacksize: 64 + entry: comp_fir16184 + exit: comp_fir160 + + comp_fir1699: imm_int 0, %63, --> comp_fir1698 + comp_fir1698: imm_addr 0($sp), %64, --> comp_fir1697 + comp_fir1697: imm_int 12, %66, --> comp_fir1696 + comp_fir1696: imm_int 4, %67, --> comp_fir1695 + comp_fir1695: mul %65, %66, %67 --> comp_fir1694 + comp_fir1694: store int32, add, %64, %65, %63 --> comp_fir1693 + comp_fir1693: emit c36 --> comp_fir1692 + comp_fir1692: imm_int 0, %58, --> comp_fir1691 + comp_fir1691: imm_addr 0($sp), %59, --> comp_fir1690 + comp_fir1690: imm_int 13, %61, --> comp_fir1689 + comp_fir169: imm_int 1, %14, --> comp_fir168 + comp_fir1689: imm_int 4, %62, --> comp_fir1688 + comp_fir1688: mul %60, %61, %62 --> comp_fir1687 + comp_fir1687: store int32, add, %59, %60, %58 --> comp_fir1686 + comp_fir1686: emit c35 --> comp_fir1685 + comp_fir1685: imm_int 0, %53, --> comp_fir1684 + comp_fir1684: imm_addr 0($sp), %54, --> comp_fir1683 + comp_fir1683: imm_int 14, %56, --> comp_fir1682 + comp_fir1682: imm_int 4, %57, --> comp_fir1681 + comp_fir1681: mul %55, %56, %57 --> comp_fir1680 + comp_fir1680: store int32, add, %54, %55, %53 --> comp_fir1679 + comp_fir168: add %6, %6, %14 --> comp_fir167 + comp_fir1679: emit c34 --> comp_fir1678 + comp_fir1678: imm_int 0, %48, --> comp_fir1677 + comp_fir1677: imm_addr 0($sp), %49, --> comp_fir1676 + comp_fir1676: imm_int 15, %51, --> comp_fir1675 + comp_fir1675: imm_int 4, %52, --> comp_fir1674 + comp_fir1674: mul %50, %51, %52 --> comp_fir1673 + comp_fir1673: store int32, add, %49, %50, %48 --> comp_fir1672 + comp_fir1672: emit c33 --> comp_fir1671 + comp_fir1671: imm_int 0, %8, --> comp_fir1670 + comp_fir1670: emit c32 --> comp_fir1669 + comp_fir167: --> comp_fir1665 + comp_fir1669: imm_int 0, %4, --> comp_fir1668 + comp_fir1668: emit c31 --> comp_fir1667 + comp_fir1667: emit c30 --> comp_fir1666 + comp_fir1666: imm_int 0, %6, --> comp_fir167 + comp_fir1665: imm_int 0, %46, --> comp_fir1664 + comp_fir1664: emit c29 --> comp_fir1663 + comp_fir1663: lt %47, %6, %3 --> comp_fir1662 + comp_fir1662: notbool %45, %47 --> comp_fir1661 + comp_fir1661: eq %45, %46 --> comp_fir1660, comp_fir166 + comp_fir1660: emit c27 --> comp_fir1659 + comp_fir166: emit c17 --> comp_fir165 + comp_fir1659: imm_int 4, %44, --> comp_fir1658 + comp_fir1658: mul %43, %6, %44 --> comp_fir1657 + comp_fir1657: load int32, add, %0, %43, %39 --> comp_fir1656 + comp_fir1656: imm_addr 0($sp), %40, --> comp_fir1655 + comp_fir1655: imm_int 4, %42, --> comp_fir1654 + comp_fir1654: mul %41, %8, %42 --> comp_fir1653 + comp_fir1653: store int32, add, %40, %41, %39 --> comp_fir1652 + comp_fir1652: emit c26 --> comp_fir1651 + comp_fir1651: emit c25 --> comp_fir1650 + comp_fir1650: imm_int 0, %7, --> comp_fir1620 + comp_fir165: imm_addr 0($sp), %10, --> comp_fir164 + comp_fir1649: imm_int 0, %36, --> comp_fir1648 + comp_fir1648: emit c24 --> comp_fir1647 + comp_fir1647: imm_int 16, %38, --> comp_fir1646 + comp_fir1646: lt %37, %7, %38 --> comp_fir1645 + comp_fir1645: notbool %35, %37 --> comp_fir1644 + comp_fir1644: eq %35, %36 --> comp_fir1643, comp_fir1619 + comp_fir1643: emit c22 --> comp_fir1642 + comp_fir1642: imm_addr 0($sp), %32, --> comp_fir1641 + comp_fir1641: imm_int 4, %34, --> comp_fir1640 + comp_fir1640: mul %33, %8, %34 --> comp_fir1639 + comp_fir164: imm_int 0, %12, --> comp_fir163 + comp_fir1639: load int32, add, %32, %33, %28 --> comp_fir1638 + comp_fir1638: imm_int 4, %31, --> comp_fir1637 + comp_fir1637: mul %30, %7, %31 --> comp_fir1636 + comp_fir1636: load int32, add, %1, %30, %29 --> comp_fir1635 + comp_fir1635: mul %24, %28, %29 --> comp_fir1634 + comp_fir1634: imm_int 2, %26, --> comp_fir1633 + comp_fir1633: imm_int 16, %27, --> comp_fir1632 + comp_fir1632: xor %25, %26, %27 --> comp_fir1631 + comp_fir1631: mul %5, %24, %25 --> comp_fir1630 + comp_fir1630: emit c21 --> comp_fir1629 + comp_fir163: imm_int 4, %13, --> comp_fir162 + comp_fir1629: add %4, %4, %5 --> comp_fir1628 + comp_fir1628: emit c20 --> comp_fir1627 + comp_fir1627: imm_int 1, %23, --> comp_fir1626 + comp_fir1626: add %21, %8, %23 --> comp_fir1625 + comp_fir1625: imm_int 16, %22, --> comp_fir1624 + comp_fir1624: mod %8, %21, %22 --> comp_fir1623 + comp_fir1623: emit c23 --> comp_fir1622 + comp_fir1622: imm_int 1, %20, --> comp_fir1621 + comp_fir1621: add %7, %7, %20 --> comp_fir1620 + comp_fir1620: --> comp_fir1649 + comp_fir162: mul %11, %12, %13 --> comp_fir161 + comp_fir1619: emit c19 --> comp_fir1618 + comp_fir16184: emit c49 --> comp_fir16183 + comp_fir16183: imm_int 0, %123, --> comp_fir16182 + comp_fir16182: imm_addr 0($sp), %124, --> comp_fir16181 + comp_fir16181: imm_int 0, %126, --> comp_fir16180 + comp_fir16180: imm_int 4, %127, --> comp_fir16179 + comp_fir1618: imm_int 1, %19, --> comp_fir1617 + comp_fir16179: mul %125, %126, %127 --> comp_fir16178 + comp_fir16178: store int32, add, %124, %125, %123 --> comp_fir16177 + comp_fir16177: emit c48 --> comp_fir16176 + comp_fir16176: imm_int 0, %118, --> comp_fir16175 + comp_fir16175: imm_addr 0($sp), %119, --> comp_fir16174 + comp_fir16174: imm_int 1, %121, --> comp_fir16173 + comp_fir16173: imm_int 4, %122, --> comp_fir16172 + comp_fir16172: mul %120, %121, %122 --> comp_fir16171 + comp_fir16171: store int32, add, %119, %120, %118 --> comp_fir16170 + comp_fir16170: emit c47 --> comp_fir16169 + comp_fir1617: add %17, %8, %19 --> comp_fir1616 + comp_fir16169: imm_int 0, %113, --> comp_fir16168 + comp_fir16168: imm_addr 0($sp), %114, --> comp_fir16167 + comp_fir16167: imm_int 2, %116, --> comp_fir16166 + comp_fir16166: imm_int 4, %117, --> comp_fir16165 + comp_fir16165: mul %115, %116, %117 --> comp_fir16164 + comp_fir16164: store int32, add, %114, %115, %113 --> comp_fir16163 + comp_fir16163: emit c46 --> comp_fir16162 + comp_fir16162: imm_int 0, %108, --> comp_fir16161 + comp_fir16161: imm_addr 0($sp), %109, --> comp_fir16160 + comp_fir16160: imm_int 3, %111, --> comp_fir16159 + comp_fir1616: imm_int 16, %18, --> comp_fir1615 + comp_fir16159: imm_int 4, %112, --> comp_fir16158 + comp_fir16158: mul %110, %111, %112 --> comp_fir16157 + comp_fir16157: store int32, add, %109, %110, %108 --> comp_fir16156 + comp_fir16156: emit c45 --> comp_fir16155 + comp_fir16155: imm_int 0, %103, --> comp_fir16154 + comp_fir16154: imm_addr 0($sp), %104, --> comp_fir16153 + comp_fir16153: imm_int 4, %106, --> comp_fir16152 + comp_fir16152: imm_int 4, %107, --> comp_fir16151 + comp_fir16151: mul %105, %106, %107 --> comp_fir16150 + comp_fir16150: store int32, add, %104, %105, %103 --> comp_fir16149 + comp_fir1615: mod %8, %17, %18 --> comp_fir1614 + comp_fir16149: emit c44 --> comp_fir16148 + comp_fir16148: imm_int 0, %98, --> comp_fir16147 + comp_fir16147: imm_addr 0($sp), %99, --> comp_fir16146 + comp_fir16146: imm_int 5, %101, --> comp_fir16145 + comp_fir16145: imm_int 4, %102, --> comp_fir16144 + comp_fir16144: mul %100, %101, %102 --> comp_fir16143 + comp_fir16143: store int32, add, %99, %100, %98 --> comp_fir16142 + comp_fir16142: emit c43 --> comp_fir16141 + comp_fir16141: imm_int 0, %93, --> comp_fir16140 + comp_fir16140: imm_addr 0($sp), %94, --> comp_fir16139 + comp_fir1614: emit c18 --> comp_fir1613 + comp_fir16139: imm_int 6, %96, --> comp_fir16138 + comp_fir16138: imm_int 4, %97, --> comp_fir16137 + comp_fir16137: mul %95, %96, %97 --> comp_fir16136 + comp_fir16136: store int32, add, %94, %95, %93 --> comp_fir16135 + comp_fir16135: emit c42 --> comp_fir16134 + comp_fir16134: imm_int 0, %88, --> comp_fir16133 + comp_fir16133: imm_addr 0($sp), %89, --> comp_fir16132 + comp_fir16132: imm_int 7, %91, --> comp_fir16131 + comp_fir16131: imm_int 4, %92, --> comp_fir16130 + comp_fir16130: mul %90, %91, %92 --> comp_fir16129 + comp_fir1613: imm_int 4, %16, --> comp_fir1612 + comp_fir16129: store int32, add, %89, %90, %88 --> comp_fir16128 + comp_fir16128: emit c41 --> comp_fir16127 + comp_fir16127: imm_int 0, %83, --> comp_fir16126 + comp_fir16126: imm_addr 0($sp), %84, --> comp_fir16125 + comp_fir16125: imm_int 8, %86, --> comp_fir16124 + comp_fir16124: imm_int 4, %87, --> comp_fir16123 + comp_fir16123: mul %85, %86, %87 --> comp_fir16122 + comp_fir16122: store int32, add, %84, %85, %83 --> comp_fir16121 + comp_fir16121: emit c40 --> comp_fir16120 + comp_fir16120: imm_int 0, %78, --> comp_fir16119 + comp_fir1612: mul %15, %6, %16 --> comp_fir1611 + comp_fir16119: imm_addr 0($sp), %79, --> comp_fir16118 + comp_fir16118: imm_int 9, %81, --> comp_fir16117 + comp_fir16117: imm_int 4, %82, --> comp_fir16116 + comp_fir16116: mul %80, %81, %82 --> comp_fir16115 + comp_fir16115: store int32, add, %79, %80, %78 --> comp_fir16114 + comp_fir16114: emit c39 --> comp_fir16113 + comp_fir16113: imm_int 0, %73, --> comp_fir16112 + comp_fir16112: imm_addr 0($sp), %74, --> comp_fir16111 + comp_fir16111: imm_int 10, %76, --> comp_fir16110 + comp_fir16110: imm_int 4, %77, --> comp_fir16109 + comp_fir1611: store int32, add, %2, %15, %4 --> comp_fir1610 + comp_fir16109: mul %75, %76, %77 --> comp_fir16108 + comp_fir16108: store int32, add, %74, %75, %73 --> comp_fir16107 + comp_fir16107: emit c38 --> comp_fir16106 + comp_fir16106: imm_int 0, %68, --> comp_fir16105 + comp_fir16105: imm_addr 0($sp), %69, --> comp_fir16104 + comp_fir16104: imm_int 11, %71, --> comp_fir16103 + comp_fir16103: imm_int 4, %72, --> comp_fir16102 + comp_fir16102: mul %70, %71, %72 --> comp_fir16101 + comp_fir16101: store int32, add, %69, %70, %68 --> comp_fir16100 + comp_fir16100: emit c37 --> comp_fir1699 + comp_fir1610: emit c28 --> comp_fir169 + comp_fir161: load int32, add, %10, %11, %9 --> comp_fir160 + comp_fir160: return %9 + + + "comp_ifFor"(%0, %1, %2): int -> int -> int -> int + locals: %5, %3, %4, %6, %7, %8, %9, %10 + result: %5 + stacksize: 0 + entry: comp_ifFor23 + exit: comp_ifFor0 + + comp_ifFor9: emit c52 --> comp_ifFor8 + comp_ifFor8: add %4, %4, %3 --> comp_ifFor5 + comp_ifFor7: emit c51 --> comp_ifFor6 + comp_ifFor6: imm_int 0, %4, --> comp_ifFor5 + comp_ifFor5: emit c54 --> comp_ifFor4 + comp_ifFor4: add %3, %3, %2 --> comp_ifFor3 + comp_ifFor3: --> comp_ifFor18 + comp_ifFor23: emit c58 --> comp_ifFor22 + comp_ifFor22: imm_int 0, %4, --> comp_ifFor21 + comp_ifFor21: emit c57 --> comp_ifFor20 + comp_ifFor20: emit c56 --> comp_ifFor19 + comp_ifFor2: emit c50 --> comp_ifFor1 + comp_ifFor19: imm_int 0, %3, --> comp_ifFor3 + comp_ifFor18: imm_int 0, %9, --> comp_ifFor17 + comp_ifFor17: emit c55 --> comp_ifFor16 + comp_ifFor16: lt %10, %3, %0 --> comp_ifFor15 + comp_ifFor15: notbool %8, %10 --> comp_ifFor14 + comp_ifFor14: eq %8, %9 --> comp_ifFor13, comp_ifFor2 + comp_ifFor13: emit c53 --> comp_ifFor12 + comp_ifFor12: imm_int 0, %7, --> comp_ifFor11 + comp_ifFor11: ne %6, %3, %1 --> comp_ifFor10 + comp_ifFor10: eq %6, %7 --> comp_ifFor7, comp_ifFor9 + comp_ifFor1: mov %5, %4 --> comp_ifFor0 + comp_ifFor0: return %5 + + + "comp_total"(%0, %1, %2): int -> int -> int -> int + locals: %6, %3, %4, %5, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45, %46, %47, %48, %49, %50, %51, %52, %53, %54, %55, %56, %57, %58, %59, %60, %61, %62, %63, %64, %65, %66, %67, %68, %69, %70, %71, %72, %73, %74, %75, %76, %77, %78, %79, %80, %81, %82, %83, %84, %85, %86, %87, %88, %89, %90, %91, %92, %93, %94, %95, %96, %97, %98, %99, %100, %101, %102, %103, %104, %105, %106, %107, %108, %109, %110, %111, %112, %113, %114, %115, %116, %117, %118, %119, %120, %121, %122, %123, %124, %125, %126, %127, %128, %129, %130, %131, %132, %133, %134, %135, %136, %137, %138, %139 + result: %6 + stacksize: 80 + entry: comp_total205 + exit: comp_total0 + + comp_total99: imm_int 0, %60, --> comp_total98 + comp_total98: imm_addr 40($sp), %61, --> comp_total97 + comp_total97: imm_int 5, %63, --> comp_total96 + comp_total96: imm_int 4, %64, --> comp_total95 + comp_total95: mul %62, %63, %64 --> comp_total94 + comp_total94: store int32, add, %61, %62, %60 --> comp_total93 + comp_total93: emit c78 --> comp_total92 + comp_total92: imm_int 0, %55, --> comp_total91 + comp_total91: imm_addr 40($sp), %56, --> comp_total90 + comp_total90: imm_int 6, %58, --> comp_total89 + comp_total9: imm_int 1, %8, --> comp_total8 + comp_total89: imm_int 4, %59, --> comp_total88 + comp_total88: mul %57, %58, %59 --> comp_total87 + comp_total87: store int32, add, %56, %57, %55 --> comp_total86 + comp_total86: emit c77 --> comp_total85 + comp_total85: imm_int 0, %50, --> comp_total84 + comp_total84: imm_addr 40($sp), %51, --> comp_total83 + comp_total83: imm_int 7, %53, --> comp_total82 + comp_total82: imm_int 4, %54, --> comp_total81 + comp_total81: mul %52, %53, %54 --> comp_total80 + comp_total80: store int32, add, %51, %52, %50 --> comp_total79 + comp_total8: sub %4, %4, %8 --> comp_total7 + comp_total79: emit c76 --> comp_total78 + comp_total78: imm_int 0, %45, --> comp_total77 + comp_total77: imm_addr 40($sp), %46, --> comp_total76 + comp_total76: imm_int 8, %48, --> comp_total75 + comp_total75: imm_int 4, %49, --> comp_total74 + comp_total74: mul %47, %48, %49 --> comp_total73 + comp_total73: store int32, add, %46, %47, %45 --> comp_total72 + comp_total72: emit c75 --> comp_total71 + comp_total71: imm_int 0, %40, --> comp_total70 + comp_total70: imm_addr 40($sp), %41, --> comp_total69 + comp_total7: --> comp_total29 + comp_total69: imm_int 9, %43, --> comp_total68 + comp_total68: imm_int 4, %44, --> comp_total67 + comp_total67: mul %42, %43, %44 --> comp_total66 + comp_total66: store int32, add, %41, %42, %40 --> comp_total65 + comp_total65: emit c74 --> comp_total64 + comp_total64: imm_int 0, %39, --> comp_total63 + comp_total63: lt %38, %1, %2 --> comp_total62 + comp_total62: eq %38, %39 --> comp_total40, comp_total61 + comp_total61: emit c73 --> comp_total60 + comp_total60: emit c72 --> comp_total59 + comp_total6: emit c65 --> comp_total5 + comp_total59: imm_int 0, %5, --> comp_total41 + comp_total58: imm_int 0, %36, --> comp_total57 + comp_total57: emit c71 --> comp_total56 + comp_total56: le %37, %5, %1 --> comp_total55 + comp_total55: notbool %35, %37 --> comp_total54 + comp_total54: eq %35, %36 --> comp_total53, comp_total2 + comp_total53: emit c69 --> comp_total52 + comp_total52: sub %33, %1, %5 --> comp_total51 + comp_total51: imm_int 4, %34, --> comp_total50 + comp_total50: mul %32, %33, %34 --> comp_total49 + comp_total5: imm_int 1, %7, --> comp_total4 + comp_total49: load int32, add, %0, %32, %28 --> comp_total48 + comp_total48: imm_addr 0($sp), %29, --> comp_total47 + comp_total47: imm_int 4, %31, --> comp_total46 + comp_total46: mul %30, %5, %31 --> comp_total45 + comp_total45: store int32, add, %29, %30, %28 --> comp_total44 + comp_total44: emit c70 --> comp_total43 + comp_total43: imm_int 1, %27, --> comp_total42 + comp_total42: add %5, %5, %27 --> comp_total41 + comp_total41: --> comp_total58 + comp_total40: emit c68 --> comp_total39 + comp_total4: add %3, %3, %7 --> comp_total3 + comp_total39: emit c67 --> comp_total38 + comp_total38: imm_int 0, %3, --> comp_total3 + comp_total37: imm_int 0, %25, --> comp_total36 + comp_total36: emit c66 --> comp_total35 + comp_total35: lt %26, %3, %1 --> comp_total34 + comp_total34: notbool %24, %26 --> comp_total33 + comp_total33: eq %24, %25 --> comp_total32, comp_total2 + comp_total32: emit c64 --> comp_total31 + comp_total31: emit c63 --> comp_total30 + comp_total30: mov %4, %2 --> comp_total7 + comp_total3: --> comp_total37 + comp_total29: imm_int 0, %21, --> comp_total28 + comp_total28: emit c62 --> comp_total27 + comp_total27: imm_int 0, %23, --> comp_total26 + comp_total26: gt %22, %4, %23 --> comp_total25 + comp_total25: notbool %20, %22 --> comp_total24 + comp_total24: eq %20, %21 --> comp_total23, comp_total6 + comp_total23: emit c60 --> comp_total22 + comp_total22: imm_addr 0($sp), %17, --> comp_total21 + comp_total21: imm_int 4, %19, --> comp_total20 + comp_total205: emit c94 --> comp_total204 + comp_total204: imm_int 0, %135, --> comp_total203 + comp_total203: imm_addr 0($sp), %136, --> comp_total202 + comp_total202: imm_int 0, %138, --> comp_total201 + comp_total201: imm_int 4, %139, --> comp_total200 + comp_total200: mul %137, %138, %139 --> comp_total199 + comp_total20: mul %18, %3, %19 --> comp_total19 + comp_total2: emit c59 --> comp_total1 + comp_total199: store int32, add, %136, %137, %135 --> comp_total198 + comp_total198: emit c93 --> comp_total197 + comp_total197: imm_int 0, %130, --> comp_total196 + comp_total196: imm_addr 0($sp), %131, --> comp_total195 + comp_total195: imm_int 1, %133, --> comp_total194 + comp_total194: imm_int 4, %134, --> comp_total193 + comp_total193: mul %132, %133, %134 --> comp_total192 + comp_total192: store int32, add, %131, %132, %130 --> comp_total191 + comp_total191: emit c92 --> comp_total190 + comp_total190: imm_int 0, %125, --> comp_total189 + comp_total19: load int32, add, %17, %18, %12 --> comp_total18 + comp_total189: imm_addr 0($sp), %126, --> comp_total188 + comp_total188: imm_int 2, %128, --> comp_total187 + comp_total187: imm_int 4, %129, --> comp_total186 + comp_total186: mul %127, %128, %129 --> comp_total185 + comp_total185: store int32, add, %126, %127, %125 --> comp_total184 + comp_total184: emit c91 --> comp_total183 + comp_total183: imm_int 0, %120, --> comp_total182 + comp_total182: imm_addr 0($sp), %121, --> comp_total181 + comp_total181: imm_int 3, %123, --> comp_total180 + comp_total180: imm_int 4, %124, --> comp_total179 + comp_total18: imm_addr 40($sp), %14, --> comp_total17 + comp_total179: mul %122, %123, %124 --> comp_total178 + comp_total178: store int32, add, %121, %122, %120 --> comp_total177 + comp_total177: emit c90 --> comp_total176 + comp_total176: imm_int 0, %115, --> comp_total175 + comp_total175: imm_addr 0($sp), %116, --> comp_total174 + comp_total174: imm_int 4, %118, --> comp_total173 + comp_total173: imm_int 4, %119, --> comp_total172 + comp_total172: mul %117, %118, %119 --> comp_total171 + comp_total171: store int32, add, %116, %117, %115 --> comp_total170 + comp_total170: emit c89 --> comp_total169 + comp_total17: imm_int 4, %16, --> comp_total16 + comp_total169: imm_int 0, %110, --> comp_total168 + comp_total168: imm_addr 0($sp), %111, --> comp_total167 + comp_total167: imm_int 5, %113, --> comp_total166 + comp_total166: imm_int 4, %114, --> comp_total165 + comp_total165: mul %112, %113, %114 --> comp_total164 + comp_total164: store int32, add, %111, %112, %110 --> comp_total163 + comp_total163: emit c88 --> comp_total162 + comp_total162: imm_int 0, %105, --> comp_total161 + comp_total161: imm_addr 0($sp), %106, --> comp_total160 + comp_total160: imm_int 6, %108, --> comp_total159 + comp_total16: mul %15, %4, %16 --> comp_total15 + comp_total159: imm_int 4, %109, --> comp_total158 + comp_total158: mul %107, %108, %109 --> comp_total157 + comp_total157: store int32, add, %106, %107, %105 --> comp_total156 + comp_total156: emit c87 --> comp_total155 + comp_total155: imm_int 0, %100, --> comp_total154 + comp_total154: imm_addr 0($sp), %101, --> comp_total153 + comp_total153: imm_int 7, %103, --> comp_total152 + comp_total152: imm_int 4, %104, --> comp_total151 + comp_total151: mul %102, %103, %104 --> comp_total150 + comp_total150: store int32, add, %101, %102, %100 --> comp_total149 + comp_total15: load int32, add, %14, %15, %13 --> comp_total14 + comp_total149: emit c86 --> comp_total148 + comp_total148: imm_int 0, %95, --> comp_total147 + comp_total147: imm_addr 0($sp), %96, --> comp_total146 + comp_total146: imm_int 8, %98, --> comp_total145 + comp_total145: imm_int 4, %99, --> comp_total144 + comp_total144: mul %97, %98, %99 --> comp_total143 + comp_total143: store int32, add, %96, %97, %95 --> comp_total142 + comp_total142: emit c85 --> comp_total141 + comp_total141: imm_int 0, %90, --> comp_total140 + comp_total140: imm_addr 0($sp), %91, --> comp_total139 + comp_total14: add %9, %12, %13 --> comp_total13 + comp_total139: imm_int 9, %93, --> comp_total138 + comp_total138: imm_int 4, %94, --> comp_total137 + comp_total137: mul %92, %93, %94 --> comp_total136 + comp_total136: store int32, add, %91, %92, %90 --> comp_total135 + comp_total135: emit c84 --> comp_total134 + comp_total134: imm_int 0, %85, --> comp_total133 + comp_total133: imm_addr 40($sp), %86, --> comp_total132 + comp_total132: imm_int 0, %88, --> comp_total131 + comp_total131: imm_int 4, %89, --> comp_total130 + comp_total130: mul %87, %88, %89 --> comp_total129 + comp_total13: imm_int 4, %11, --> comp_total12 + comp_total129: store int32, add, %86, %87, %85 --> comp_total128 + comp_total128: emit c83 --> comp_total127 + comp_total127: imm_int 0, %80, --> comp_total126 + comp_total126: imm_addr 40($sp), %81, --> comp_total125 + comp_total125: imm_int 1, %83, --> comp_total124 + comp_total124: imm_int 4, %84, --> comp_total123 + comp_total123: mul %82, %83, %84 --> comp_total122 + comp_total122: store int32, add, %81, %82, %80 --> comp_total121 + comp_total121: emit c82 --> comp_total120 + comp_total120: imm_int 0, %75, --> comp_total119 + comp_total12: mul %10, %3, %11 --> comp_total11 + comp_total119: imm_addr 40($sp), %76, --> comp_total118 + comp_total118: imm_int 2, %78, --> comp_total117 + comp_total117: imm_int 4, %79, --> comp_total116 + comp_total116: mul %77, %78, %79 --> comp_total115 + comp_total115: store int32, add, %76, %77, %75 --> comp_total114 + comp_total114: emit c81 --> comp_total113 + comp_total113: imm_int 0, %70, --> comp_total112 + comp_total112: imm_addr 40($sp), %71, --> comp_total111 + comp_total111: imm_int 3, %73, --> comp_total110 + comp_total110: imm_int 4, %74, --> comp_total109 + comp_total11: store int32, add, %0, %10, %9 --> comp_total10 + comp_total109: mul %72, %73, %74 --> comp_total108 + comp_total108: store int32, add, %71, %72, %70 --> comp_total107 + comp_total107: emit c80 --> comp_total106 + comp_total106: imm_int 0, %65, --> comp_total105 + comp_total105: imm_addr 40($sp), %66, --> comp_total104 + comp_total104: imm_int 4, %68, --> comp_total103 + comp_total103: imm_int 4, %69, --> comp_total102 + comp_total102: mul %67, %68, %69 --> comp_total101 + comp_total101: store int32, add, %66, %67, %65 --> comp_total100 + comp_total100: emit c79 --> comp_total99 + comp_total10: emit c61 --> comp_total9 + comp_total1: imm_int 0, %6, --> comp_total0 + comp_total0: return %6 + + + "comp_tri"(%0, %1): int -> int -> int + locals: %5, %2, %3, %4, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37 + result: %5 + stacksize: 0 + entry: comp_tri60 + exit: comp_tri0 + + comp_tri9: imm_int 1, %7, --> comp_tri8 + comp_tri8: add %3, %3, %7 --> comp_tri7 + comp_tri7: --> comp_tri47 + comp_tri60: emit c108 --> comp_tri59 + comp_tri6: emit c104 --> comp_tri5 + comp_tri59: imm_int 0, %2, --> comp_tri58 + comp_tri58: emit c107 --> comp_tri57 + comp_tri57: emit c106 --> comp_tri56 + comp_tri56: imm_int 0, %4, --> comp_tri3 + comp_tri55: imm_int 0, %36, --> comp_tri54 + comp_tri54: emit c105 --> comp_tri53 + comp_tri53: lt %37, %4, %1 --> comp_tri52 + comp_tri52: notbool %35, %37 --> comp_tri51 + comp_tri51: eq %35, %36 --> comp_tri50, comp_tri2 + comp_tri50: emit c103 --> comp_tri49 + comp_tri5: imm_int 1, %6, --> comp_tri4 + comp_tri49: emit c102 --> comp_tri48 + comp_tri48: imm_int 1, %3, --> comp_tri7 + comp_tri47: imm_int 0, %32, --> comp_tri46 + comp_tri46: emit c101 --> comp_tri45 + comp_tri45: sub %34, %1, %4 --> comp_tri44 + comp_tri44: lt %33, %3, %34 --> comp_tri43 + comp_tri43: notbool %31, %33 --> comp_tri42 + comp_tri42: eq %31, %32 --> comp_tri41, comp_tri6 + comp_tri41: emit c99 --> comp_tri40 + comp_tri40: imm_int 0, %22, --> comp_tri39 + comp_tri4: add %4, %4, %6 --> comp_tri3 + comp_tri39: imm_int 4, %30, --> comp_tri38 + comp_tri38: mul %29, %3, %30 --> comp_tri37 + comp_tri37: load int32, add, %0, %29, %23 --> comp_tri36 + comp_tri36: imm_int 1, %28, --> comp_tri35 + comp_tri35: sub %26, %3, %28 --> comp_tri34 + comp_tri34: imm_int 4, %27, --> comp_tri33 + comp_tri33: mul %25, %26, %27 --> comp_tri32 + comp_tri32: load int32, add, %0, %25, %24 --> comp_tri31 + comp_tri31: lt %21, %23, %24 --> comp_tri30 + comp_tri30: eq %21, %22 --> comp_tri10, comp_tri29 + comp_tri3: --> comp_tri55 + comp_tri29: emit c98 --> comp_tri28 + comp_tri28: imm_int 1, %20, --> comp_tri27 + comp_tri27: sub %18, %3, %20 --> comp_tri26 + comp_tri26: imm_int 4, %19, --> comp_tri25 + comp_tri25: mul %17, %18, %19 --> comp_tri24 + comp_tri24: load int32, add, %0, %17, %2 --> comp_tri23 + comp_tri23: emit c97 --> comp_tri22 + comp_tri22: imm_int 4, %16, --> comp_tri21 + comp_tri21: mul %15, %3, %16 --> comp_tri20 + comp_tri20: load int32, add, %0, %15, %10 --> comp_tri19 + comp_tri2: emit c95 --> comp_tri1 + comp_tri19: imm_int 1, %14, --> comp_tri18 + comp_tri18: sub %12, %3, %14 --> comp_tri17 + comp_tri17: imm_int 4, %13, --> comp_tri16 + comp_tri16: mul %11, %12, %13 --> comp_tri15 + comp_tri15: store int32, add, %0, %11, %10 --> comp_tri14 + comp_tri14: emit c96 --> comp_tri13 + comp_tri13: imm_int 4, %9, --> comp_tri12 + comp_tri12: mul %8, %3, %9 --> comp_tri11 + comp_tri11: store int32, add, %0, %8, %2 --> comp_tri10 + comp_tri10: emit c100 --> comp_tri9 + comp_tri1: mov %5, %2 --> comp_tri0 + comp_tri0: return %5 + + + "comp_forif2"(%0, %1, %2, %3): int -> int -> int -> int -> int + locals: %9, %4, %5, %6, %7, %8, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45 + result: %9 + stacksize: 0 + entry: comp_forif282 + exit: comp_forif20 + + comp_forif29: imm_int 0, %13, --> comp_forif28 + comp_forif282: emit c130 --> comp_forif281 + comp_forif281: imm_int 0, %6, --> comp_forif280 + comp_forif280: emit c129 --> comp_forif279 + comp_forif28: eq %10, %12, %13 --> comp_forif27 + comp_forif279: imm_int 0, %5, --> comp_forif278 + comp_forif278: emit c128 --> comp_forif277 + comp_forif277: emit c127 --> comp_forif276 + comp_forif276: imm_int 0, %8, --> comp_forif262 + comp_forif275: imm_int 0, %44, --> comp_forif274 + comp_forif274: emit c126 --> comp_forif273 + comp_forif273: lt %45, %8, %2 --> comp_forif272 + comp_forif272: notbool %43, %45 --> comp_forif271 + comp_forif271: eq %43, %44 --> comp_forif270, comp_forif261 + comp_forif270: emit c124 --> comp_forif269 + comp_forif27: eq %10, %11 --> comp_forif24, comp_forif26 + comp_forif269: imm_int 4, %42, --> comp_forif268 + comp_forif268: mul %41, %8, %42 --> comp_forif267 + comp_forif267: load int32, add, %0, %41, %40 --> comp_forif266 + comp_forif266: add %6, %6, %40 --> comp_forif265 + comp_forif265: emit c125 --> comp_forif264 + comp_forif264: imm_int 1, %39, --> comp_forif263 + comp_forif263: add %8, %8, %39 --> comp_forif262 + comp_forif262: --> comp_forif275 + comp_forif261: emit c123 --> comp_forif260 + comp_forif260: emit c122 --> comp_forif259 + comp_forif26: emit c111 --> comp_forif25 + comp_forif259: imm_int 0, %7, --> comp_forif245 + comp_forif258: imm_int 0, %37, --> comp_forif257 + comp_forif257: emit c121 --> comp_forif256 + comp_forif256: lt %38, %7, %3 --> comp_forif255 + comp_forif255: notbool %36, %38 --> comp_forif254 + comp_forif254: eq %36, %37 --> comp_forif253, comp_forif244 + comp_forif253: emit c119 --> comp_forif252 + comp_forif252: imm_int 4, %35, --> comp_forif251 + comp_forif251: mul %34, %7, %35 --> comp_forif250 + comp_forif250: load int32, add, %1, %34, %33 --> comp_forif249 + comp_forif25: imm_int 2, %4, --> comp_forif22 + comp_forif249: add %5, %5, %33 --> comp_forif248 + comp_forif248: emit c120 --> comp_forif247 + comp_forif247: imm_int 1, %32, --> comp_forif246 + comp_forif246: add %7, %7, %32 --> comp_forif245 + comp_forif245: --> comp_forif258 + comp_forif244: emit c118 --> comp_forif243 + comp_forif243: imm_int 0, %21, --> comp_forif242 + comp_forif242: imm_int 0, %28, --> comp_forif241 + comp_forif241: emit c117 --> comp_forif240 + comp_forif240: imm_int 2, %31, --> comp_forif239 + comp_forif24: emit c110 --> comp_forif23 + comp_forif239: mod %29, %6, %31 --> comp_forif238 + comp_forif238: imm_int 0, %30, --> comp_forif237 + comp_forif237: eq %27, %29, %30 --> comp_forif236 + comp_forif236: eq %27, %28 --> comp_forif226, comp_forif235 + comp_forif235: imm_int 0, %23, --> comp_forif234 + comp_forif234: emit c116 --> comp_forif233 + comp_forif233: imm_int 2, %26, --> comp_forif232 + comp_forif232: mod %24, %5, %26 --> comp_forif231 + comp_forif231: imm_int 0, %25, --> comp_forif230 + comp_forif230: eq %22, %24, %25 --> comp_forif229 + comp_forif23: imm_int 3, %4, --> comp_forif22 + comp_forif229: eq %22, %23 --> comp_forif227, comp_forif228 + comp_forif228: imm_int 1, %20, --> comp_forif225 + comp_forif227: imm_int 0, %20, --> comp_forif225 + comp_forif226: imm_int 0, %20, --> comp_forif225 + comp_forif225: eq %20, %21 --> comp_forif222, comp_forif224 + comp_forif224: emit c115 --> comp_forif223 + comp_forif223: imm_int 0, %4, --> comp_forif22 + comp_forif222: emit c114 --> comp_forif221 + comp_forif221: imm_int 0, %16, --> comp_forif220 + comp_forif220: imm_int 2, %19, --> comp_forif219 + comp_forif22: emit c109 --> comp_forif21 + comp_forif219: mod %17, %6, %19 --> comp_forif218 + comp_forif218: imm_int 0, %18, --> comp_forif217 + comp_forif217: eq %15, %17, %18 --> comp_forif216 + comp_forif216: eq %15, %16 --> comp_forif213, comp_forif215 + comp_forif215: emit c113 --> comp_forif214 + comp_forif214: imm_int 1, %4, --> comp_forif22 + comp_forif213: emit c112 --> comp_forif212 + comp_forif212: imm_int 0, %11, --> comp_forif211 + comp_forif211: imm_int 2, %14, --> comp_forif210 + comp_forif210: mod %12, %5, %14 --> comp_forif29 + comp_forif21: imm_int 0, %9, --> comp_forif20 + comp_forif20: return %9 + + + "comp_forif"(): int + locals: %3, %0, %1, %2, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16 + result: %3 + stacksize: 0 + entry: comp_forif35 + exit: comp_forif0 + + comp_forif9: emit c132 --> comp_forif8 + comp_forif8: imm_int 1, %5, --> comp_forif7 + comp_forif7: add %0, %0, %5 --> comp_forif6 + comp_forif6: emit c136 --> comp_forif5 + comp_forif5: imm_int 1, %4, --> comp_forif4 + comp_forif4: add %2, %2, %4 --> comp_forif3 + comp_forif35: emit c141 --> comp_forif34 + comp_forif34: imm_int 0, %1, --> comp_forif33 + comp_forif33: emit c140 --> comp_forif32 + comp_forif32: imm_int 0, %0, --> comp_forif31 + comp_forif31: emit c139 --> comp_forif30 + comp_forif30: emit c138 --> comp_forif29 + comp_forif3: --> comp_forif28 + comp_forif29: imm_int 0, %2, --> comp_forif3 + comp_forif28: imm_int 0, %14, --> comp_forif27 + comp_forif27: emit c137 --> comp_forif26 + comp_forif26: imm_int 10, %16, --> comp_forif25 + comp_forif25: lt %15, %2, %16 --> comp_forif24 + comp_forif24: notbool %13, %15 --> comp_forif23 + comp_forif23: eq %13, %14 --> comp_forif22, comp_forif2 + comp_forif22: emit c135 --> comp_forif21 + comp_forif21: imm_int 1, %12, --> comp_forif20 + comp_forif20: add %1, %1, %12 --> comp_forif19 + comp_forif2: emit c131 --> comp_forif1 + comp_forif19: emit c134 --> comp_forif18 + comp_forif18: imm_int 1, %11, --> comp_forif17 + comp_forif17: add %1, %1, %11 --> comp_forif16 + comp_forif16: emit c133 --> comp_forif15 + comp_forif15: imm_int 0, %7, --> comp_forif14 + comp_forif14: imm_int 2, %10, --> comp_forif13 + comp_forif13: mod %8, %2, %10 --> comp_forif12 + comp_forif12: imm_int 0, %9, --> comp_forif11 + comp_forif11: eq %6, %8, %9 --> comp_forif10 + comp_forif10: eq %6, %7 --> comp_forif6, comp_forif9 + comp_forif1: mov %3, %1 --> comp_forif0 + comp_forif0: return %3 + + + "main"(): int + locals: %1, %0, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45, %46, %47, %48, %49, %50, %51, %52, %53, %54, %55, %56, %57, %58, %59, %60, %61, %62, %63, %64, %65, %66, %67, %68, %69, %70, %71, %72, %73, %74, %75, %76, %77, %78, %79, %80, %81, %82, %83, %84, %85, %86, %87, %88, %89, %90, %91, %92, %93, %94, %95, %96, %97, %98, %99, %100, %101, %102 + result: %1 + stacksize: 64 + entry: main149 + exit: main0 + + main99: imm_int 4, %63, --> main98 + main98: imm_addr 0($sp), %64, --> main97 + main97: imm_int 7, %66, --> main96 + main96: imm_int 4, %67, --> main95 + main95: mul %65, %66, %67 --> main94 + main94: store int32, add, %64, %65, %63 --> main93 + main93: emit c157 --> main92 + main92: imm_int 3, %58, --> main91 + main91: imm_addr 0($sp), %59, --> main90 + main90: imm_int 8, %61, --> main89 + main9: imm_addr 0($sp), %2, --> main8 + main89: imm_int 4, %62, --> main88 + main88: mul %60, %61, %62 --> main87 + main87: store int32, add, %59, %60, %58 --> main86 + main86: emit c156 --> main85 + main85: imm_int 2, %53, --> main84 + main84: imm_addr 0($sp), %54, --> main83 + main83: imm_int 9, %56, --> main82 + main82: imm_int 4, %57, --> main81 + main81: mul %55, %56, %57 --> main80 + main80: store int32, add, %54, %55, %53 --> main79 + main8: imm_addr 0($sp), %3, --> main7 + main79: emit c155 --> main78 + main78: imm_int 0, %48, --> main77 + main77: imm_addr 0($sp), %49, --> main76 + main76: imm_int 10, %51, --> main75 + main75: imm_int 4, %52, --> main74 + main74: mul %50, %51, %52 --> main73 + main73: store int32, add, %49, %50, %48 --> main72 + main72: emit c154 --> main71 + main71: imm_int 0, %43, --> main70 + main70: imm_addr 0($sp), %44, --> main69 + main7: imm_int 10, %4, --> main6 + main69: imm_int 11, %46, --> main68 + main68: imm_int 4, %47, --> main67 + main67: mul %45, %46, %47 --> main66 + main66: store int32, add, %44, %45, %43 --> main65 + main65: emit c153 --> main64 + main64: imm_int 0, %38, --> main63 + main63: imm_addr 0($sp), %39, --> main62 + main62: imm_int 12, %41, --> main61 + main61: imm_int 4, %42, --> main60 + main60: mul %40, %41, %42 --> main59 + main6: imm_int 10, %5, --> main5 + main59: store int32, add, %39, %40, %38 --> main58 + main58: emit c152 --> main57 + main57: imm_int 0, %33, --> main56 + main56: imm_addr 0($sp), %34, --> main55 + main55: imm_int 13, %36, --> main54 + main54: imm_int 4, %37, --> main53 + main53: mul %35, %36, %37 --> main52 + main52: store int32, add, %34, %35, %33 --> main51 + main51: emit c151 --> main50 + main50: imm_int 0, %28, --> main49 + main5: call "comp_forif2", %2, %3, %4, %5, %0: int -> int -> int -> int -> int --> main4 + main49: imm_addr 0($sp), %29, --> main48 + main48: imm_int 14, %31, --> main47 + main47: imm_int 4, %32, --> main46 + main46: mul %30, %31, %32 --> main45 + main45: store int32, add, %29, %30, %28 --> main44 + main44: emit c150 --> main43 + main43: imm_int 0, %23, --> main42 + main42: imm_addr 0($sp), %24, --> main41 + main41: imm_int 15, %26, --> main40 + main40: imm_int 4, %27, --> main39 + main4: emit c143 --> main3 + main39: mul %25, %26, %27 --> main38 + main38: store int32, add, %24, %25, %23 --> main37 + main37: emit c149 --> main36 + main36: imm_addr 0($sp), %18, --> main35 + main35: imm_addr 0($sp), %19, --> main34 + main34: imm_addr 0($sp), %20, --> main33 + main33: imm_int 10, %21, --> main32 + main32: imm_int 10, %22, --> main31 + main31: call "comp_fir_basic", %18, %19, %20, %21, %22, %0: int -> int -> int -> int -> int -> int --> main30 + main30: emit c148 --> main29 + main3: call "comp_forif", , %0: int --> main2 + main29: imm_addr 0($sp), %14, --> main28 + main28: imm_addr 0($sp), %15, --> main27 + main27: imm_addr 0($sp), %16, --> main26 + main26: imm_int 16, %17, --> main25 + main25: call "comp_fir16", %14, %15, %16, %17, %0: int -> int -> int -> int -> int --> main24 + main24: emit c147 --> main23 + main23: imm_int 4, %11, --> main22 + main22: imm_int 1, %12, --> main21 + main21: imm_int 1, %13, --> main20 + main20: call "comp_ifFor", %11, %12, %13, %0: int -> int -> int -> int --> main19 + main2: emit c142 --> main1 + main19: emit c146 --> main18 + main18: imm_addr 0($sp), %8, --> main17 + main17: imm_int 9, %9, --> main16 + main16: imm_int 3, %10, --> main15 + main15: call "comp_total", %8, %9, %10, %0: int -> int -> int -> int --> main14 + main149: emit c165 --> main148 + main148: imm_int 10, %98, --> main147 + main147: imm_addr 0($sp), %99, --> main146 + main146: imm_int 0, %101, --> main145 + main145: imm_int 4, %102, --> main144 + main144: mul %100, %101, %102 --> main143 + main143: store int32, add, %99, %100, %98 --> main142 + main142: emit c164 --> main141 + main141: imm_int 9, %93, --> main140 + main140: imm_addr 0($sp), %94, --> main139 + main14: emit c145 --> main13 + main139: imm_int 1, %96, --> main138 + main138: imm_int 4, %97, --> main137 + main137: mul %95, %96, %97 --> main136 + main136: store int32, add, %94, %95, %93 --> main135 + main135: emit c163 --> main134 + main134: imm_int 8, %88, --> main133 + main133: imm_addr 0($sp), %89, --> main132 + main132: imm_int 2, %91, --> main131 + main131: imm_int 4, %92, --> main130 + main130: mul %90, %91, %92 --> main129 + main13: imm_addr 0($sp), %6, --> main12 + main129: store int32, add, %89, %90, %88 --> main128 + main128: emit c162 --> main127 + main127: imm_int 7, %83, --> main126 + main126: imm_addr 0($sp), %84, --> main125 + main125: imm_int 3, %86, --> main124 + main124: imm_int 4, %87, --> main123 + main123: mul %85, %86, %87 --> main122 + main122: store int32, add, %84, %85, %83 --> main121 + main121: emit c161 --> main120 + main120: imm_int 6, %78, --> main119 + main12: imm_int 10, %7, --> main11 + main119: imm_addr 0($sp), %79, --> main118 + main118: imm_int 4, %81, --> main117 + main117: imm_int 4, %82, --> main116 + main116: mul %80, %81, %82 --> main115 + main115: store int32, add, %79, %80, %78 --> main114 + main114: emit c160 --> main113 + main113: imm_int 0, %73, --> main112 + main112: imm_addr 0($sp), %74, --> main111 + main111: imm_int 5, %76, --> main110 + main110: imm_int 4, %77, --> main109 + main11: call "comp_tri", %6, %7, %0: int -> int -> int --> main10 + main109: mul %75, %76, %77 --> main108 + main108: store int32, add, %74, %75, %73 --> main107 + main107: emit c159 --> main106 + main106: imm_int 5, %68, --> main105 + main105: imm_addr 0($sp), %69, --> main104 + main104: imm_int 6, %71, --> main103 + main103: imm_int 4, %72, --> main102 + main102: mul %70, %71, %72 --> main101 + main101: store int32, add, %69, %70, %68 --> main100 + main100: emit c158 --> main99 + main10: emit c144 --> main9 + main1: mov %1, %0 --> main0 + main0: return %1 + + diff --git a/tests/clight/complets.c b/tests/clight/complets.c new file mode 100644 index 0000000..6cc5041 --- /dev/null +++ b/tests/clight/complets.c @@ -0,0 +1,138 @@ +int comp_fir_basic(int input[], int h[], int z[], int N,int n) +{ + int i,j,k; + int y ; + y = 0; + /* calc FIR */ + for(k=0;k<3;k=k+1){ + + /* store input at the beginning of the delay line */ + z[0] = input[k]; + for (i = 0; i < 3; i=i+1) { + y = y +h[i] * z[i]; + } + + /* shift delay line */ + for (j = 2; j >=0; j=j-1) { + z[j + 1] = z[j]; + } + } + return y; +} + + +int comp_fir16(int in[], int c[], int out[], int size) { + int i,j,res,tmp; + int x[16] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}; + int adx =0; + res =0; + for (j=0;j 0; j--) { + tabParam[k] = tabLocal1[k]+tabLocal2[j]; + } + } + } + return 0; +} + +int comp_tri (int t[], int n) { + int i,j,tmp; + tmp = 0; + + for(i = 0 ; (i < n); i=i+1) + { + for(j = 1 ; j < n- i ; j=j+1) + { + if(t[j] < t[j-1]) + { + tmp = t[j-1]; + t[j-1] = t[j]; + t[j] = tmp; + } + } + } + return tmp; +} +int comp_forif2 (int u[], int v[], int a, int b){ + int i,j,k,l,res; + k=0; + l=0; + for (i=0;i=0; j=j-1) { + z[j + 1] = z[j]; + } + } + return y; +} + + +int comp_fir16(int in[], int c[], int out[], int size) { + int i,j,res,tmp; + int x[16] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}; + int adx =0; + res =0; + for (j=0;j 0; j--) { + tabParam[k] = tabLocal1[k]+tabLocal2[j]; + } + } + } + return 0; +} + +int comp_tri (int t[], int n) { + int i,j,tmp; + tmp = 0; + + for(i = 0 ; (i < n); i=i+1) + { + for(j = 1 ; j < n- i ; j=j+1) + { + if(t[j] < t[j-1]) + { + tmp = t[j-1]; + t[j-1] = t[j]; + t[j] = tmp; + } + } + } + return tmp; +} +int comp_forif2 (int u[], int v[], int a, int b){ + int i,j,k,l,res; + k=0; + l=0; + for (i=0;i RTL): + Constant not supported. diff --git a/tests/clight/fib.ASM.expected b/tests/clight/fib.ASM.expected new file mode 100644 index 0000000..517472c --- /dev/null +++ b/tests/clight/fib.ASM.expected @@ -0,0 +1,76 @@ +.data +globals: +.space 0 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main17 +write: +li $v0, 1 +syscall +jr $ra +writeln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +readln: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +# begin fib +fib37: +addiu $sp, $sp, -12 +sw $ra, 8($sp) +sw $s1, 4($sp) +sw $s0, 0($sp) +move $s1, $a0 +c4: +li $v0, 2 +slt $v0, $s1, $v0 +beq $v0, $zero, fib10 +c3: +li $v0, 1 +fib48: +lw $ra, 8($sp) +lw $s1, 4($sp) +lw $s0, 0($sp) +addiu $sp, $sp, 12 +jr $ra +fib10: +c2: +li $v0, 1 +subu $a0, $s1, $v0 +jal fib37 +move $s0, $v0 +c1: +li $v0, 2 +subu $a0, $s1, $v0 +jal fib37 +c0: +addu $v0, $s0, $v0 +j fib48 +# end fib + +# begin _main +main17: +addiu $sp, $sp, -4 +sw $ra, 0($sp) +c6: +li $a0, 10 +jal fib37 +c5: +lw $ra, 0($sp) +addiu $sp, $sp, 4 +jr $ra +# end _main diff --git a/tests/clight/fib.Clight.expected b/tests/clight/fib.Clight.expected new file mode 100644 index 0000000..e2086cc --- /dev/null +++ b/tests/clight/fib.Clight.expected @@ -0,0 +1,292 @@ +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +int fib(int n) +{ + int t; + int t__1; + c4: + if (n < 2) { + c3: + return 1; + } else { + c2: + t = fib(n - 1); + c1: + t__1 = fib(n - 2); + c0: + return t + t__1; + } +} + +int main(void) +{ + int t; + c6: + t = fib(10); + c5: + return t; +} + + diff --git a/tests/clight/fib.Cminor.expected b/tests/clight/fib.Cminor.expected new file mode 100644 index 0000000..01b755b --- /dev/null +++ b/tests/clight/fib.Cminor.expected @@ -0,0 +1,436 @@ + + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"fib" (n) : int -> int { + + stack 0; + + var t, t__1; + + c4: + if (n < 2) { + c3: + return 1; + } + else { + c2: + t = "fib"(n - 1) : int -> int; + c1: + t__1 = "fib"(n - 2) : int -> int; + c0: + return t + t__1; + } + +} + + +"main" () : int { + + stack 0; + + var t; + + c6: + t = "fib"(10) : int -> int; + c5: + return t; + +} + + diff --git a/tests/clight/fib.ERTL.expected b/tests/clight/fib.ERTL.expected new file mode 100644 index 0000000..934a9c9 --- /dev/null +++ b/tests/clight/fib.ERTL.expected @@ -0,0 +1,104 @@ +program + +globals 0 + +procedure fib(1) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19 +entry fib37 +fib37: newframe --> fib36 +fib36: move %19, $ra --> fib35 +fib35: move %18, $s7 --> fib34 +fib34: move %17, $s6 --> fib33 +fib33: move %16, $s5 --> fib32 +fib32: move %15, $s4 --> fib31 +fib31: move %14, $s3 --> fib30 +fib30: move %13, $s2 --> fib29 +fib29: move %12, $s1 --> fib28 +fib28: move %11, $s0 --> fib27 +fib27: move %0, $a0 --> fib26 +fib26: li %1, 0 --> fib25 +fib25: li %2, 0 --> fib24 +fib24: li %4, 0 --> fib23 +fib23: li %5, 0 --> fib22 +fib22: li %6, 0 --> fib21 +fib21: li %7, 0 --> fib20 +fib20: li %8, 0 --> fib19 +fib19: li %9, 0 --> fib18 +fib18: li %10, 0 --> fib17 +fib17: emit c4 --> fib16 +fib16: li %9, 0 --> fib15 +fib15: li %10, 2 --> fib14 +fib14: slt %8, %0, %10 --> fib13 +fib13: beq %8, %9 --> fib10, fib12 +fib12: emit c3 --> fib11 +fib11: li %3, 1 --> fib0 +fib0 : j --> fib49 +fib49: move $v0, %3 --> fib48 +fib48: move $ra, %19 --> fib47 +fib47: move $s7, %18 --> fib46 +fib46: move $s6, %17 --> fib45 +fib45: move $s5, %16 --> fib44 +fib44: move $s4, %15 --> fib43 +fib43: move $s3, %14 --> fib42 +fib42: move $s2, %13 --> fib41 +fib41: move $s1, %12 --> fib40 +fib40: move $s0, %11 --> fib39 +fib39: delframe --> fib38 +fib38: jr $ra (xmits $v0) +fib10: emit c2 --> fib9 +fib9 : li %7, 1 --> fib8 +fib8 : subu %6, %0, %7 --> fib7 +fib7 : j --> fib55 +fib55: move $a0, %6 --> fib54 +fib54: call fib(1) --> fib53 +fib53: move %1, $v0 --> fib6 +fib6 : emit c1 --> fib5 +fib5 : li %5, 2 --> fib4 +fib4 : subu %4, %0, %5 --> fib3 +fib3 : j --> fib52 +fib52: move $a0, %4 --> fib51 +fib51: call fib(1) --> fib50 +fib50: move %2, $v0 --> fib2 +fib2 : emit c0 --> fib1 +fib1 : addu %3, %1, %2 --> fib0 + +procedure _main(0) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11 +entry main17 +main17: newframe --> main16 +main16: move %11, $ra --> main15 +main15: move %10, $s7 --> main14 +main14: move %9, $s6 --> main13 +main13: move %8, $s5 --> main12 +main12: move %7, $s4 --> main11 +main11: move %6, $s3 --> main10 +main10: move %5, $s2 --> main9 +main9 : move %4, $s1 --> main8 +main8 : move %3, $s0 --> main7 +main7 : li %0, 0 --> main6 +main6 : li %2, 0 --> main5 +main5 : emit c6 --> main4 +main4 : li %2, 10 --> main3 +main3 : j --> main32 +main32: move $a0, %2 --> main31 +main31: call fib(1) --> main30 +main30: move %0, $v0 --> main2 +main2 : emit c5 --> main1 +main1 : move %1, %0 --> main0 +main0 : j --> main29 +main29: move $v0, %1 --> main28 +main28: move $ra, %11 --> main27 +main27: move $s7, %10 --> main26 +main26: move $s6, %9 --> main25 +main25: move $s5, %8 --> main24 +main24: move $s4, %7 --> main23 +main23: move $s3, %6 --> main22 +main22: move $s2, %5 --> main21 +main21: move $s1, %4 --> main20 +main20: move $s0, %3 --> main19 +main19: delframe --> main18 +main18: jr $ra (xmits $v0) + diff --git a/tests/clight/fib.LIN.expected b/tests/clight/fib.LIN.expected new file mode 100644 index 0000000..da88ca0 --- /dev/null +++ b/tests/clight/fib.LIN.expected @@ -0,0 +1,51 @@ +program + +globals 0 + +procedure fib(1) +var 12 +fib37: +newframe +sets local(0), $ra +sets local(4), $s1 +sets local(8), $s0 +move $s1, $a0 +c4: +li $v0, 2 +slt $v0, $s1, $v0 +beq $v0, $zero, fib10 +c3: +li $v0, 1 +fib48: +gets $ra, local(0) +gets $s1, local(4) +gets $s0, local(8) +delframe +jr $ra +fib10: +c2: +li $v0, 1 +subu $a0, $s1, $v0 +call fib +move $s0, $v0 +c1: +li $v0, 2 +subu $a0, $s1, $v0 +call fib +c0: +addu $v0, $s0, $v0 +j fib48 + +procedure _main(0) +var 4 +main17: +newframe +sets local(0), $ra +c6: +li $a0, 10 +call fib +c5: +gets $ra, local(0) +delframe +jr $ra + diff --git a/tests/clight/fib.LTL.expected b/tests/clight/fib.LTL.expected new file mode 100644 index 0000000..1af0916 --- /dev/null +++ b/tests/clight/fib.LTL.expected @@ -0,0 +1,101 @@ +program + +globals 0 + +procedure fib(1) +var 12 +entry fib37 +fib37: newframe --> fib36 +fib36: sets local(0), $ra --> fib35 +fib35: j --> fib34 +fib34: j --> fib33 +fib33: j --> fib32 +fib32: j --> fib31 +fib31: j --> fib30 +fib30: j --> fib29 +fib29: sets local(4), $s1 --> fib28 +fib28: sets local(8), $s0 --> fib27 +fib27: move $s1, $a0 --> fib26 +fib26: j --> fib25 +fib25: j --> fib24 +fib24: j --> fib23 +fib23: j --> fib22 +fib22: j --> fib21 +fib21: j --> fib20 +fib20: j --> fib19 +fib19: j --> fib18 +fib18: j --> fib17 +fib17: emit c4 --> fib16 +fib16: j --> fib15 +fib15: li $v0, 2 --> fib14 +fib14: slt $v0, $s1, $v0 --> fib13 +fib13: beq $v0, $zero --> fib10, fib12 +fib12: emit c3 --> fib11 +fib11: li $v0, 1 --> fib0 +fib0 : j --> fib49 +fib49: j --> fib48 +fib48: gets $ra, local(0) --> fib47 +fib47: j --> fib46 +fib46: j --> fib45 +fib45: j --> fib44 +fib44: j --> fib43 +fib43: j --> fib42 +fib42: j --> fib41 +fib41: gets $s1, local(4) --> fib40 +fib40: gets $s0, local(8) --> fib39 +fib39: delframe --> fib38 +fib38: jr $ra +fib10: emit c2 --> fib9 +fib9 : li $v0, 1 --> fib8 +fib8 : subu $a0, $s1, $v0 --> fib7 +fib7 : j --> fib55 +fib55: j --> fib54 +fib54: call fib --> fib53 +fib53: move $s0, $v0 --> fib6 +fib6 : emit c1 --> fib5 +fib5 : li $v0, 2 --> fib4 +fib4 : subu $a0, $s1, $v0 --> fib3 +fib3 : j --> fib52 +fib52: j --> fib51 +fib51: call fib --> fib50 +fib50: j --> fib2 +fib2 : emit c0 --> fib1 +fib1 : addu $v0, $s0, $v0 --> fib0 + +procedure _main(0) +var 4 +entry main17 +main17: newframe --> main16 +main16: sets local(0), $ra --> main15 +main15: j --> main14 +main14: j --> main13 +main13: j --> main12 +main12: j --> main11 +main11: j --> main10 +main10: j --> main9 +main9 : j --> main8 +main8 : j --> main7 +main7 : j --> main6 +main6 : j --> main5 +main5 : emit c6 --> main4 +main4 : li $a0, 10 --> main3 +main3 : j --> main32 +main32: j --> main31 +main31: call fib --> main30 +main30: j --> main2 +main2 : emit c5 --> main1 +main1 : j --> main0 +main0 : j --> main29 +main29: j --> main28 +main28: gets $ra, local(0) --> main27 +main27: j --> main26 +main26: j --> main25 +main25: j --> main24 +main24: j --> main23 +main23: j --> main22 +main22: j --> main21 +main21: j --> main20 +main20: j --> main19 +main19: delframe --> main18 +main18: jr $ra + diff --git a/tests/clight/fib.RTL.expected b/tests/clight/fib.RTL.expected new file mode 100644 index 0000000..05cce69 --- /dev/null +++ b/tests/clight/fib.RTL.expected @@ -0,0 +1,48 @@ +program + +globals 0 + +function fib(%0) : %3 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10 +entry fib26 +exit fib0 +fib26: li %1, 0 --> fib25 +fib25: li %2, 0 --> fib24 +fib24: li %4, 0 --> fib23 +fib23: li %5, 0 --> fib22 +fib22: li %6, 0 --> fib21 +fib21: li %7, 0 --> fib20 +fib20: li %8, 0 --> fib19 +fib19: li %9, 0 --> fib18 +fib18: li %10, 0 --> fib17 +fib17: emit c4 --> fib16 +fib16: li %9, 0 --> fib15 +fib15: li %10, 2 --> fib14 +fib14: slt %8, %0, %10 --> fib13 +fib13: beq %8, %9 --> fib10, fib12 +fib12: emit c3 --> fib11 +fib11: li %3, 1 --> fib0 +fib10: emit c2 --> fib9 +fib9 : li %7, 1 --> fib8 +fib8 : subu %6, %0, %7 --> fib7 +fib7 : call %1, fib(%6) --> fib6 +fib6 : emit c1 --> fib5 +fib5 : li %5, 2 --> fib4 +fib4 : subu %4, %0, %5 --> fib3 +fib3 : call %2, fib(%4) --> fib2 +fib2 : emit c0 --> fib1 +fib1 : addu %3, %1, %2 --> fib0 + +function _main() : %1 +var %0, %1, %2 +entry main7 +exit main0 +main7: li %0, 0 --> main6 +main6: li %2, 0 --> main5 +main5: emit c6 --> main4 +main4: li %2, 10 --> main3 +main3: call %0, fib(%2) --> main2 +main2: emit c5 --> main1 +main1: move %1, %0 --> main0 + diff --git a/tests/clight/fib.RTLabs.expected b/tests/clight/fib.RTLabs.expected new file mode 100644 index 0000000..8ee6a73 --- /dev/null +++ b/tests/clight/fib.RTLabs.expected @@ -0,0 +1,444 @@ +program: (main function is "main") + + + globals: + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "fib"(%0): int -> int + locals: %3, %1, %2, %4, %5, %6, %7, %8, %9, %10 + result: %3 + stacksize: 0 + entry: fib17 + exit: fib0 + + fib9: imm_int 1, %7, --> fib8 + fib8: sub %6, %0, %7 --> fib7 + fib7: call "fib", %6, %1: int -> int --> fib6 + fib6: emit c1 --> fib5 + fib5: imm_int 2, %5, --> fib4 + fib4: sub %4, %0, %5 --> fib3 + fib3: call "fib", %4, %2: int -> int --> fib2 + fib2: emit c0 --> fib1 + fib17: emit c4 --> fib16 + fib16: imm_int 0, %9, --> fib15 + fib15: imm_int 2, %10, --> fib14 + fib14: lt %8, %0, %10 --> fib13 + fib13: eq %8, %9 --> fib10, fib12 + fib12: emit c3 --> fib11 + fib11: imm_int 1, %3, --> fib0 + fib10: emit c2 --> fib9 + fib1: add %3, %1, %2 --> fib0 + fib0: return %3 + + + "main"(): int + locals: %1, %0, %2 + result: %1 + stacksize: 0 + entry: main5 + exit: main0 + + main5: emit c6 --> main4 + main4: imm_int 10, %2, --> main3 + main3: call "fib", %2, %0: int -> int --> main2 + main2: emit c5 --> main1 + main1: mov %1, %0 --> main0 + main0: return %1 + + diff --git a/tests/clight/fib.c b/tests/clight/fib.c new file mode 100644 index 0000000..bd121cf --- /dev/null +++ b/tests/clight/fib.c @@ -0,0 +1,11 @@ +int fib (int n) +{ + if (n < 2) + return 1; + else { + return fib (n-1) + fib (n-2); + } +} +int main () { + return fib (10); +} diff --git a/tests/clight/fib.c.expected b/tests/clight/fib.c.expected new file mode 100644 index 0000000..bd121cf --- /dev/null +++ b/tests/clight/fib.c.expected @@ -0,0 +1,11 @@ +int fib (int n) +{ + if (n < 2) + return 1; + else { + return fib (n-1) + fib (n-2); + } +} +int main () { + return fib (10); +} diff --git a/tests/clight/fib.log.expected b/tests/clight/fib.log.expected new file mode 100644 index 0000000..95e2628 --- /dev/null +++ b/tests/clight/fib.log.expected @@ -0,0 +1,4969 @@ +Warning (during instrumentation): + Clight instrumentation is not implemented yet. +Checking execution traces...OK. +thenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(8),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(13),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(8),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(21),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(8),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(13),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(34),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(8),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(13),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(8),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(21),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(55),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(8),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(13),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(8),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(21),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(8),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(3),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(seq,call) +Regular(seq,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,seq) +Regular(call,seq) +Call(func,call) +Regular(cost,call) +Regular(ifthenelse,call) +Regular(cost,call) +Regular(return,call) +Return(Int(1),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(2),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(5),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(13),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(34),call) +Regular(skip,seq) +Regular(cost,call) +Regular(return,call) +Return(Int(89),call) +Regular(skip,seq) +Regular(cost,stop) +Regular(return,stop) +Result: Int(89) +Memory dump: +n = 533 +block 1 : Free. + +block 2 : Free. + +block 3 : Free. + +block 4 : Free. + +block 5 : Free. + +block 6 : Free. + +block 7 : Free. + +block 8 : Free. + +block 9 : Free. + +block 10 : Free. + +block 11 : Free. + +block 12 : Free. + +block 13 : Free. + +block 14 : Free. + +block 15 : Free. + +block 16 : Free. + +block 17 : Free. + +block 18 : Free. + +block 19 : Free. + +block 20 : Free. + +block 21 : Free. + +block 22 : Free. + +block 23 : Free. + +block 24 : Free. + +block 25 : Free. + +block 26 : Free. + +block 27 : Free. + +block 28 : Free. + +block 29 : Free. + +block 30 : Free. + +block 31 : Free. + +block 32 : Free. + +block 33 : Free. + +block 34 : Free. + +block 35 : Free. + +block 36 : Free. + +block 37 : Free. + +block 38 : Free. + +block 39 : Free. + +block 40 : Free. + +block 41 : Free. + +block 42 : Free. + +block 43 : Free. + +block 44 : Free. + +block 45 : Free. + +block 46 : Free. + +block 47 : Free. + +block 48 : Free. + +block 49 : Free. + +block 50 : Free. + +block 51 : Free. + +block 52 : Free. + +block 53 : Free. + +block 54 : Free. + +block 55 : Free. + +block 56 : Free. + +block 57 : Free. + +block 58 : Free. + +block 59 : Free. + +block 60 : Free. + +block 61 : Free. + +block 62 : Free. + +block 63 : Free. + +block 64 : Free. + +block 65 : Free. + +block 66 : Free. + +block 67 : Free. + +block 68 : Free. + +block 69 : Free. + +block 70 : Free. + +block 71 : Free. + +block 72 : Free. + +block 73 : Free. + +block 74 : Free. + +block 75 : Free. + +block 76 : Free. + +block 77 : Free. + +block 78 : Free. + +block 79 : Free. + +block 80 : Free. + +block 81 : Free. + +block 82 : Free. + +block 83 : Free. + +block 84 : Free. + +block 85 : Free. + +block 86 : Free. + +block 87 : Free. + +block 88 : Free. + +block 89 : Free. + +block 90 : Free. + +block 91 : Free. + +block 92 : Free. + +block 93 : Free. + +block 94 : Free. + +block 95 : Free. + +block 96 : Free. + +block 97 : Free. + +block 98 : Free. + +block 99 : Free. + +block 100 : Free. + +block 101 : Free. + +block 102 : Free. + +block 103 : Free. + +block 104 : Free. + +block 105 : Free. + +block 106 : Free. + +block 107 : Free. + +block 108 : Free. + +block 109 : Free. + +block 110 : Free. + +block 111 : Free. + +block 112 : Free. + +block 113 : Free. + +block 114 : Free. + +block 115 : Free. + +block 116 : Free. + +block 117 : Free. + +block 118 : Free. + +block 119 : Free. + +block 120 : Free. + +block 121 : Free. + +block 122 : Free. + +block 123 : Free. + +block 124 : Free. + +block 125 : Free. + +block 126 : Free. + +block 127 : Free. + +block 128 : Free. + +block 129 : Free. + +block 130 : Free. + +block 131 : Free. + +block 132 : Free. + +block 133 : Free. + +block 134 : Free. + +block 135 : Free. + +block 136 : Free. + +block 137 : Free. + +block 138 : Free. + +block 139 : Free. + +block 140 : Free. + +block 141 : Free. + +block 142 : Free. + +block 143 : Free. + +block 144 : Free. + +block 145 : Free. + +block 146 : Free. + +block 147 : Free. + +block 148 : Free. + +block 149 : Free. + +block 150 : Free. + +block 151 : Free. + +block 152 : Free. + +block 153 : Free. + +block 154 : Free. + +block 155 : Free. + +block 156 : Free. + +block 157 : Free. + +block 158 : Free. + +block 159 : Free. + +block 160 : Free. + +block 161 : Free. + +block 162 : Free. + +block 163 : Free. + +block 164 : Free. + +block 165 : Free. + +block 166 : Free. + +block 167 : Free. + +block 168 : Free. + +block 169 : Free. + +block 170 : Free. + +block 171 : Free. + +block 172 : Free. + +block 173 : Free. + +block 174 : Free. + +block 175 : Free. + +block 176 : Free. + +block 177 : Free. + +block 178 : Free. + +block 179 : Free. + +block 180 : Free. + +block 181 : Free. + +block 182 : Free. + +block 183 : Free. + +block 184 : Free. + +block 185 : Free. + +block 186 : Free. + +block 187 : Free. + +block 188 : Free. + +block 189 : Free. + +block 190 : Free. + +block 191 : Free. + +block 192 : Free. + +block 193 : Free. + +block 194 : Free. + +block 195 : Free. + +block 196 : Free. + +block 197 : Free. + +block 198 : Free. + +block 199 : Free. + +block 200 : Free. + +block 201 : Free. + +block 202 : Free. + +block 203 : Free. + +block 204 : Free. + +block 205 : Free. + +block 206 : Free. + +block 207 : Free. + +block 208 : Free. + +block 209 : Free. + +block 210 : Free. + +block 211 : Free. + +block 212 : Free. + +block 213 : Free. + +block 214 : Free. + +block 215 : Free. + +block 216 : Free. + +block 217 : Free. + +block 218 : Free. + +block 219 : Free. + +block 220 : Free. + +block 221 : Free. + +block 222 : Free. + +block 223 : Free. + +block 224 : Free. + +block 225 : Free. + +block 226 : Free. + +block 227 : Free. + +block 228 : Free. + +block 229 : Free. + +block 230 : Free. + +block 231 : Free. + +block 232 : Free. + +block 233 : Free. + +block 234 : Free. + +block 235 : Free. + +block 236 : Free. + +block 237 : Free. + +block 238 : Free. + +block 239 : Free. + +block 240 : Free. + +block 241 : Free. + +block 242 : Free. + +block 243 : Free. + +block 244 : Free. + +block 245 : Free. + +block 246 : Free. + +block 247 : Free. + +block 248 : Free. + +block 249 : Free. + +block 250 : Free. + +block 251 : Free. + +block 252 : Free. + +block 253 : Free. + +block 254 : Free. + +block 255 : Free. + +block 256 : Free. + +block 257 : Free. + +block 258 : Free. + +block 259 : Free. + +block 260 : Free. + +block 261 : Free. + +block 262 : Free. + +block 263 : Free. + +block 264 : Free. + +block 265 : Free. + +block 266 : Free. + +block 267 : Free. + +block 268 : Free. + +block 269 : Free. + +block 270 : Free. + +block 271 : Free. + +block 272 : Free. + +block 273 : Free. + +block 274 : Free. + +block 275 : Free. + +block 276 : Free. + +block 277 : Free. + +block 278 : Free. + +block 279 : Free. + +block 280 : Free. + +block 281 : Free. + +block 282 : Free. + +block 283 : Free. + +block 284 : Free. + +block 285 : Free. + +block 286 : Free. + +block 287 : Free. + +block 288 : Free. + +block 289 : Free. + +block 290 : Free. + +block 291 : Free. + +block 292 : Free. + +block 293 : Free. + +block 294 : Free. + +block 295 : Free. + +block 296 : Free. + +block 297 : Free. + +block 298 : Free. + +block 299 : Free. + +block 300 : Free. + +block 301 : Free. + +block 302 : Free. + +block 303 : Free. + +block 304 : Free. + +block 305 : Free. + +block 306 : Free. + +block 307 : Free. + +block 308 : Free. + +block 309 : Free. + +block 310 : Free. + +block 311 : Free. + +block 312 : Free. + +block 313 : Free. + +block 314 : Free. + +block 315 : Free. + +block 316 : Free. + +block 317 : Free. + +block 318 : Free. + +block 319 : Free. + +block 320 : Free. + +block 321 : Free. + +block 322 : Free. + +block 323 : Free. + +block 324 : Free. + +block 325 : Free. + +block 326 : Free. + +block 327 : Free. + +block 328 : Free. + +block 329 : Free. + +block 330 : Free. + +block 331 : Free. + +block 332 : Free. + +block 333 : Free. + +block 334 : Free. + +block 335 : Free. + +block 336 : Free. + +block 337 : Free. + +block 338 : Free. + +block 339 : Free. + +block 340 : Free. + +block 341 : Free. + +block 342 : Free. + +block 343 : Free. + +block 344 : Free. + +block 345 : Free. + +block 346 : Free. + +block 347 : Free. + +block 348 : Free. + +block 349 : Free. + +block 350 : Free. + +block 351 : Free. + +block 352 : Free. + +block 353 : Free. + +block 354 : Free. + +block 355 : Free. + +block 356 : Free. + +block 357 : Free. + +block 358 : Free. + +block 359 : Free. + +block 360 : Free. + +block 361 : Free. + +block 362 : Free. + +block 363 : Free. + +block 364 : Free. + +block 365 : Free. + +block 366 : Free. + +block 367 : Free. + +block 368 : Free. + +block 369 : Free. + +block 370 : Free. + +block 371 : Free. + +block 372 : Free. + +block 373 : Free. + +block 374 : Free. + +block 375 : Free. + +block 376 : Free. + +block 377 : Free. + +block 378 : Free. + +block 379 : Free. + +block 380 : Free. + +block 381 : Free. + +block 382 : Free. + +block 383 : Free. + +block 384 : Free. + +block 385 : Free. + +block 386 : Free. + +block 387 : Free. + +block 388 : Free. + +block 389 : Free. + +block 390 : Free. + +block 391 : Free. + +block 392 : Free. + +block 393 : Free. + +block 394 : Free. + +block 395 : Free. + +block 396 : Free. + +block 397 : Free. + +block 398 : Free. + +block 399 : Free. + +block 400 : Free. + +block 401 : Free. + +block 402 : Free. + +block 403 : Free. + +block 404 : Free. + +block 405 : Free. + +block 406 : Free. + +block 407 : Free. + +block 408 : Free. + +block 409 : Free. + +block 410 : Free. + +block 411 : Free. + +block 412 : Free. + +block 413 : Free. + +block 414 : Free. + +block 415 : Free. + +block 416 : Free. + +block 417 : Free. + +block 418 : Free. + +block 419 : Free. + +block 420 : Free. + +block 421 : Free. + +block 422 : Free. + +block 423 : Free. + +block 424 : Free. + +block 425 : Free. + +block 426 : Free. + +block 427 : Free. + +block 428 : Free. + +block 429 : Free. + +block 430 : Free. + +block 431 : Free. + +block 432 : Free. + +block 433 : Free. + +block 434 : Free. + +block 435 : Free. + +block 436 : Free. + +block 437 : Free. + +block 438 : Free. + +block 439 : Free. + +block 440 : Free. + +block 441 : Free. + +block 442 : Free. + +block 443 : Free. + +block 444 : Free. + +block 445 : Free. + +block 446 : Free. + +block 447 : Free. + +block 448 : Free. + +block 449 : Free. + +block 450 : Free. + +block 451 : Free. + +block 452 : Free. + +block 453 : Free. + +block 454 : Free. + +block 455 : Free. + +block 456 : Free. + +block 457 : Free. + +block 458 : Free. + +block 459 : Free. + +block 460 : Free. + +block 461 : Free. + +block 462 : Free. + +block 463 : Free. + +block 464 : Free. + +block 465 : Free. + +block 466 : Free. + +block 467 : Free. + +block 468 : Free. + +block 469 : Free. + +block 470 : Free. + +block 471 : Free. + +block 472 : Free. + +block 473 : Free. + +block 474 : Free. + +block 475 : Free. + +block 476 : Free. + +block 477 : Free. + +block 478 : Free. + +block 479 : Free. + +block 480 : Free. + +block 481 : Free. + +block 482 : Free. + +block 483 : Free. + +block 484 : Free. + +block 485 : Free. + +block 486 : Free. + +block 487 : Free. + +block 488 : Free. + +block 489 : Free. + +block 490 : Free. + +block 491 : Free. + +block 492 : Free. + +block 493 : Free. + +block 494 : Free. + +block 495 : Free. + +block 496 : Free. + +block 497 : Free. + +block 498 : Free. + +block 499 : Free. + +block 500 : Free. + +block 501 : Free. + +block 502 : Free. + +block 503 : Free. + +block 504 : Free. + +block 505 : Free. + +block 506 : Free. + +block 507 : Free. + +block 508 : Free. + +block 509 : Free. + +block 510 : Free. + +block 511 : Free. + +block 512 : Free. + +block 513 : Free. + +block 514 : Free. + +block 515 : Free. + +block 516 : Free. + +block 517 : Free. + +block 518 : Free. + +block 519 : Free. + +block 520 : Free. + +block 521 : Free. + +block 522 : Free. + +block 523 : Free. + +block 524 : Free. + +block 525 : Free. + +block 526 : Free. + +block 527 : Free. + +block 528 : Free. + +block 529 : Free. + +block 530 : Free. + +block 531 : Free. + +block 532 : Free. + +State_call { function() - stop } +State_regular { seq - stop } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(10)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(9)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(8)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(7)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(6)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(5)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(8) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(13) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(5)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(8) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(21) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(6)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(5)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(8) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(13) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(34) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(7)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(6)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(5)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(8) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(13) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(5)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(8) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(21) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(55) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(8)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(7)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(6)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(5)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(8) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(13) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(5)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(8) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(21) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(6)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(5)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(8) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(4)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(3)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(3) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(2)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { seq - returnto } +State_regular { seq - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(1)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - cost::cont } +State_regular { call - cost::cont } +State_call { function(Int(0)) - returnto } +State_regular { cost - returnto } +State_regular { ifthenelse - returnto } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(1) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(2) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(5) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(13) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(34) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - returnto } +State_regular { return - returnto } +State_return { Int(89) - returnto } +State_regular { skip - cost::cont } +State_regular { cost - stop } +State_regular { return - stop } +Result: Int(89) +Memory dump: +n = 179 +block 1 : Free. + +block 2 : Free. + +block 3 : Free. + +block 4 : Free. + +block 5 : Free. + +block 6 : Free. + +block 7 : Free. + +block 8 : Free. + +block 9 : Free. + +block 10 : Free. + +block 11 : Free. + +block 12 : Free. + +block 13 : Free. + +block 14 : Free. + +block 15 : Free. + +block 16 : Free. + +block 17 : Free. + +block 18 : Free. + +block 19 : Free. + +block 20 : Free. + +block 21 : Free. + +block 22 : Free. + +block 23 : Free. + +block 24 : Free. + +block 25 : Free. + +block 26 : Free. + +block 27 : Free. + +block 28 : Free. + +block 29 : Free. + +block 30 : Free. + +block 31 : Free. + +block 32 : Free. + +block 33 : Free. + +block 34 : Free. + +block 35 : Free. + +block 36 : Free. + +block 37 : Free. + +block 38 : Free. + +block 39 : Free. + +block 40 : Free. + +block 41 : Free. + +block 42 : Free. + +block 43 : Free. + +block 44 : Free. + +block 45 : Free. + +block 46 : Free. + +block 47 : Free. + +block 48 : Free. + +block 49 : Free. + +block 50 : Free. + +block 51 : Free. + +block 52 : Free. + +block 53 : Free. + +block 54 : Free. + +block 55 : Free. + +block 56 : Free. + +block 57 : Free. + +block 58 : Free. + +block 59 : Free. + +block 60 : Free. + +block 61 : Free. + +block 62 : Free. + +block 63 : Free. + +block 64 : Free. + +block 65 : Free. + +block 66 : Free. + +block 67 : Free. + +block 68 : Free. + +block 69 : Free. + +block 70 : Free. + +block 71 : Free. + +block 72 : Free. + +block 73 : Free. + +block 74 : Free. + +block 75 : Free. + +block 76 : Free. + +block 77 : Free. + +block 78 : Free. + +block 79 : Free. + +block 80 : Free. + +block 81 : Free. + +block 82 : Free. + +block 83 : Free. + +block 84 : Free. + +block 85 : Free. + +block 86 : Free. + +block 87 : Free. + +block 88 : Free. + +block 89 : Free. + +block 90 : Free. + +block 91 : Free. + +block 92 : Free. + +block 93 : Free. + +block 94 : Free. + +block 95 : Free. + +block 96 : Free. + +block 97 : Free. + +block 98 : Free. + +block 99 : Free. + +block 100 : Free. + +block 101 : Free. + +block 102 : Free. + +block 103 : Free. + +block 104 : Free. + +block 105 : Free. + +block 106 : Free. + +block 107 : Free. + +block 108 : Free. + +block 109 : Free. + +block 110 : Free. + +block 111 : Free. + +block 112 : Free. + +block 113 : Free. + +block 114 : Free. + +block 115 : Free. + +block 116 : Free. + +block 117 : Free. + +block 118 : Free. + +block 119 : Free. + +block 120 : Free. + +block 121 : Free. + +block 122 : Free. + +block 123 : Free. + +block 124 : Free. + +block 125 : Free. + +block 126 : Free. + +block 127 : Free. + +block 128 : Free. + +block 129 : Free. + +block 130 : Free. + +block 131 : Free. + +block 132 : Free. + +block 133 : Free. + +block 134 : Free. + +block 135 : Free. + +block 136 : Free. + +block 137 : Free. + +block 138 : Free. + +block 139 : Free. + +block 140 : Free. + +block 141 : Free. + +block 142 : Free. + +block 143 : Free. + +block 144 : Free. + +block 145 : Free. + +block 146 : Free. + +block 147 : Free. + +block 148 : Free. + +block 149 : Free. + +block 150 : Free. + +block 151 : Free. + +block 152 : Free. + +block 153 : Free. + +block 154 : Free. + +block 155 : Free. + +block 156 : Free. + +block 157 : Free. + +block 158 : Free. + +block 159 : Free. + +block 160 : Free. + +block 161 : Free. + +block 162 : Free. + +block 163 : Free. + +block 164 : Free. + +block 165 : Free. + +block 166 : Free. + +block 167 : Free. + +block 168 : Free. + +block 169 : Free. + +block 170 : Free. + +block 171 : Free. + +block 172 : Free. + +block 173 : Free. + +block 174 : Free. + +block 175 : Free. + +block 176 : Free. + +block 177 : Free. + +block 178 : Free. + diff --git a/tests/clight/fib.s.expected b/tests/clight/fib.s.expected new file mode 100644 index 0000000..51b5442 --- /dev/null +++ b/tests/clight/fib.s.expected @@ -0,0 +1,363 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 0 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main19 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin fib +fib41: +addi $sp, $sp, -12 +sw $ra, 8($sp) +sw $s1, 4($sp) +sw $s0, 0($sp) +move $s1, $a0 +c4: +li $v0, 2 +slt $v0, $s1, $v0 +beq $v0, $zero, fib10 +c3: +li $v0, 1 +fib52: +lw $ra, 8($sp) +lw $s1, 4($sp) +lw $s0, 0($sp) +addi $sp, $sp, 12 +jr $ra +fib10: +c2: +li $v0, 1 +sub $a0, $s1, $v0 +la $v0, fib41 +jalr $v0 +move $s0, $v0 +c1: +li $v0, 2 +sub $a0, $s1, $v0 +la $v0, fib41 +jalr $v0 +c0: +add $v0, $s0, $v0 +j fib52 +# end fib + + +# begin _main +main19: +addi $sp, $sp, -4 +sw $ra, 0($sp) +c6: +li $a0, 10 +la $v0, fib41 +jalr $v0 +c5: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end _main diff --git a/tests/clight/fir4.ASM.expected b/tests/clight/fir4.ASM.expected new file mode 100644 index 0000000..f7f3641 --- /dev/null +++ b/tests/clight/fir4.ASM.expected @@ -0,0 +1,716 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 288 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main385 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin fir4 +fir4280: +addi $sp, $sp, -116 +sw $ra, 112($sp) +sw $s7, 108($sp) +sw $s6, 104($sp) +sw $s5, 100($sp) +sw $s4, 96($sp) +sw $s3, 92($sp) +sw $s2, 88($sp) +sw $s1, 84($sp) +sw $s0, 80($sp) +sw $a0, 64($sp) +move $s6, $a1 +sw $a2, 68($sp) +sw $a3, 72($sp) +c25: +li $s1, 0 +c24: +c23: +c22: +li $s3, 0 +fir4128: +li $a0, 0 +c21: +li $v0, 16 +slt $v0, $s3, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, fir4122 +c18: +c17: +li $s4, 0 +fir4109: +li $a0, 0 +c16: +lw $fp, 72($sp) +slt $v0, $s4, $fp +seq $v0, $v0, $zero +beq $v0, $a0, fir4104 +c0: +li $v0, 0 +lw $ra, 112($sp) +lw $s7, 108($sp) +lw $s6, 104($sp) +lw $s5, 100($sp) +lw $s4, 96($sp) +lw $s3, 92($sp) +lw $s2, 88($sp) +lw $s1, 84($sp) +lw $s0, 80($sp) +addi $sp, $sp, 116 +jr $ra +fir4104: +c14: +li $v0, 4 +mulo $v0, $s4, $v0 +lw $v1, 64($sp) +add $v0, $v1, $v0 +lw $a1, 0($v0) +move $a0, $sp +li $v0, 4 +mulo $v0, $s1, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c13: +li $s5, 0 +c12: +c11: +li $s3, 0 +fir491: +li $a0, 0 +c10: +li $v0, 16 +slt $v0, $s3, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, fir485 +c2: +li $v0, 1 +add $a0, $s1, $v0 +li $a1, 16 +la $v0, mod +jalr $v0 +move $s1, $v0 +c1: +li $v0, 16 +srav $a0, $s5, $v0 +li $v0, 4 +mulo $v0, $s4, $v0 +lw $v1, 68($sp) +add $v0, $v1, $v0 +sw $a0, 0($v0) +c15: +li $v0, 1 +add $s4, $s4, $v0 +j fir4109 +fir485: +c8: +move $a0, $sp +li $v0, 4 +mulo $v0, $s1, $v0 +add $v0, $a0, $v0 +lw $a0, 0($v0) +li $v0, 4 +mulo $v0, $s3, $v0 +add $v0, $s6, $v0 +lw $v0, 0($v0) +mulo $s2, $a0, $v0 +c7: +move $s0, $sp +li $v0, 1 +add $a0, $s1, $v0 +li $a1, 16 +la $v0, mod +jalr $v0 +li $a0, 4 +mulo $v0, $v0, $a0 +add $v0, $s0, $v0 +lw $a1, 0($v0) +li $v0, 1 +add $a0, $s3, $v0 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $s6, $v0 +lw $v0, 0($v0) +mulo $v1, $a1, $v0 +sw $v1, 76($sp) +c6: +move $s0, $sp +li $v0, 2 +add $a0, $s1, $v0 +li $a1, 16 +la $v0, mod +jalr $v0 +li $a0, 4 +mulo $v0, $v0, $a0 +add $v0, $s0, $v0 +lw $a1, 0($v0) +li $v0, 2 +add $a0, $s3, $v0 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $s6, $v0 +lw $v0, 0($v0) +mulo $s7, $a1, $v0 +c5: +move $s0, $sp +li $v0, 3 +add $a0, $s1, $v0 +li $a1, 16 +la $v0, mod +jalr $v0 +li $a0, 4 +mulo $v0, $v0, $a0 +add $v0, $s0, $v0 +lw $a1, 0($v0) +li $v0, 3 +add $a0, $s3, $v0 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $s6, $v0 +lw $v0, 0($v0) +mulo $v0, $a1, $v0 +c4: +add $a0, $s5, $s2 +lw $fp, 76($sp) +add $a0, $a0, $fp +add $a0, $a0, $s7 +add $s5, $a0, $v0 +c3: +li $v0, 4 +add $a0, $s1, $v0 +li $a1, 16 +la $v0, mod +jalr $v0 +move $s1, $v0 +c9: +li $v0, 4 +add $s3, $s3, $v0 +j fir491 +fir4122: +c19: +move $a0, $sp +li $v0, 4 +mulo $v0, $s3, $v0 +add $v0, $a0, $v0 +sw $zero, 0($v0) +c20: +li $v0, 1 +add $s3, $s3, $v0 +j fir4128 +# end fir4 + + +# begin _main +main385: +addi $sp, $sp, -68 +sw $ra, 64($sp) +li $a0, 1129 +move $v0, $gp +sw $a0, 0($v0) +li $a0, 60034 +move $v0, $gp +sw $a0, 4($v0) +li $a0, 64720 +move $v0, $gp +sw $a0, 8($v0) +li $a0, 5595 +move $v0, $gp +sw $a0, 12($v0) +li $a0, 494 +move $v0, $gp +sw $a0, 16($v0) +li $a0, 59867 +move $v0, $gp +sw $a0, 20($v0) +li $a0, 65370 +move $v0, $gp +sw $a0, 24($v0) +li $a0, 5724 +move $v0, $gp +sw $a0, 28($v0) +li $a0, 5724 +move $v0, $gp +sw $a0, 32($v0) +li $a0, 65370 +move $v0, $gp +sw $a0, 36($v0) +li $a0, 59867 +move $v0, $gp +sw $a0, 40($v0) +li $a0, 494 +move $v0, $gp +sw $a0, 44($v0) +li $a0, 5595 +move $v0, $gp +sw $a0, 48($v0) +li $a0, 64720 +move $v0, $gp +sw $a0, 52($v0) +li $a0, 60034 +move $v0, $gp +sw $a0, 56($v0) +li $a0, 1129 +move $v0, $gp +sw $a0, 60($v0) +li $a0, 1 +move $v0, $gp +sw $a0, 64($v0) +move $v0, $gp +sw $zero, 68($v0) +li $a0, 16384 +move $v0, $gp +sw $a0, 72($v0) +move $v0, $gp +sw $zero, 76($v0) +move $v0, $gp +sw $zero, 80($v0) +move $v0, $gp +sw $zero, 84($v0) +move $v0, $gp +sw $zero, 88($v0) +move $v0, $gp +sw $zero, 92($v0) +move $v0, $gp +sw $zero, 96($v0) +move $v0, $gp +sw $zero, 100($v0) +move $v0, $gp +sw $zero, 104($v0) +move $v0, $gp +sw $zero, 108($v0) +move $v0, $gp +sw $zero, 112($v0) +move $v0, $gp +sw $zero, 116($v0) +move $v0, $gp +sw $zero, 120($v0) +move $v0, $gp +sw $zero, 124($v0) +move $v0, $gp +sw $zero, 128($v0) +move $v0, $gp +sw $zero, 132($v0) +move $v0, $gp +sw $zero, 136($v0) +move $v0, $gp +sw $zero, 140($v0) +move $v0, $gp +sw $zero, 144($v0) +move $v0, $gp +sw $zero, 148($v0) +move $v0, $gp +sw $zero, 152($v0) +move $v0, $gp +sw $zero, 156($v0) +move $v0, $gp +sw $zero, 160($v0) +li $a0, 7986 +move $v0, $gp +sw $a0, 164($v0) +li $a0, 8993 +move $v0, $gp +sw $a0, 168($v0) +li $a0, 1808 +move $v0, $gp +sw $a0, 172($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 176($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 180($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 184($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 188($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 192($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 196($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 200($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 204($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 208($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 212($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 216($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 220($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 224($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 228($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 232($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 236($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 240($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 244($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 248($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 252($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 256($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 260($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 264($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 268($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 272($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 276($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 280($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 284($v0) +c27: +move $a0, $gp +addi $a0, $a0, 64 +move $a1, $gp +move $a2, $sp +li $a3, 16 +la $v0, fir4280 +jalr $v0 +c26: +lw $ra, 64($sp) +addi $sp, $sp, 68 +jr $ra +# end _main diff --git a/tests/clight/fir4.Clight.expected b/tests/clight/fir4.Clight.expected new file mode 100644 index 0000000..61d6afc --- /dev/null +++ b/tests/clight/fir4.Clight.expected @@ -0,0 +1,333 @@ +int fir4_c[16] = { 1129, 60034, 64720, 5595, 494, 59867, 65370, 5724, 5724, + 65370, 59867, 494, 5595, 64720, 60034, 1129, }; + +int fir4_in[56] = { 1, 0, 16384, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 7986, 8993, 1808, 4096, 4096, 4096, 4096, 4096, 4096, + 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, + 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, }; + +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +int fir4(int *fir4_in__1, int *fir4_c__1, int *fir4_out, int size) +{ + int i; + int j; + int tmp1; + int tmp2; + int tmp3; + int tmp4; + int x[16]; + int adx; + int res; + c25: + adx = 0; + c24: + res = 0; + c23: + for (({ c22: i = 0; }); (/* c21 */ i < 16); ({ c20: i = i + 1; })) { + c19: + x[i] = 0; + } + c18: + for (({ c17: j = 0; }); (/* c16 */ j < size); ({ c15: j = j + 1; })) { + c14: + x[adx] = fir4_in__1[j]; + c13: + res = 0; + c12: + for (({ c11: i = 0; }); (/* c10 */ i < 16); ({ c9: i = i + 4; })) { + c8: + tmp1 = x[adx] * fir4_c__1[i]; + c7: + tmp2 = x[((adx + 1) % 16)] * fir4_c__1[(i + 1)]; + c6: + tmp3 = x[((adx + 2) % 16)] * fir4_c__1[(i + 2)]; + c5: + tmp4 = x[((adx + 3) % 16)] * fir4_c__1[(i + 3)]; + c4: + res = (((res + tmp1) + tmp2) + tmp3) + tmp4; + c3: + adx = (adx + 4) % 16; + } + c2: + adx = (adx + 1) % 16; + c1: + fir4_out[j] = res >> 16; + } + c0: + return 0; +} + +int main(void) +{ + int fir4_out[16]; + int t; + c27: + t = fir4(fir4_in, fir4_c, fir4_out, 16); + c26: + return t; +} + + diff --git a/tests/clight/fir4.Cminor.expected b/tests/clight/fir4.Cminor.expected new file mode 100644 index 0000000..62b0c96 --- /dev/null +++ b/tests/clight/fir4.Cminor.expected @@ -0,0 +1,501 @@ + +var "fir4_c" {1129, 60034, 64720, 5595, 494, 59867, 65370, 5724, 5724, 65370, 59867, 494, 5595, 64720, 60034, 1129} +var "fir4_in" {1, 0, 16384, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7986, 8993, 1808, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096} + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"fir4" (fir4_in__1, fir4_c__1, fir4_out, size) : int -> int -> int -> int -> int { + + stack 64; + + var res, j, i, tmp4, tmp3, tmp2, tmp1, adx; + + c25: + adx = 0; + c24: + res = 0; + c23: + c22: + i = 0; + block { + loop { + if (!(/* c21 */ i < 16)) { + exit 0; + } + else { + } + block { + c19: + int32[&0 + (i * 4)] = 0; + } + c20: + i = i + 1; + } + } + c18: + c17: + j = 0; + block { + loop { + if (!(/* c16 */ j < size)) { + exit 0; + } + else { + } + block { + c14: + int32[&0 + (adx * 4)] = int32[fir4_in__1 + (j * 4)]; + c13: + res = 0; + c12: + c11: + i = 0; + block { + loop { + if (!(/* c10 */ i < 16)) { + exit 0; + } + else { + } + block { + c8: + tmp1 = int32[&0 + (adx * 4)] * int32[fir4_c__1 + (i * 4)]; + c7: + tmp2 = int32[&0 + (((adx + 1) % 16) * 4)] * int32[fir4_c__1 + ((i + 1) * 4)]; + c6: + tmp3 = int32[&0 + (((adx + 2) % 16) * 4)] * int32[fir4_c__1 + ((i + 2) * 4)]; + c5: + tmp4 = int32[&0 + (((adx + 3) % 16) * 4)] * int32[fir4_c__1 + ((i + 3) * 4)]; + c4: + res = (((res + tmp1) + tmp2) + tmp3) + tmp4; + c3: + adx = (adx + 4) % 16; + } + c9: + i = i + 4; + } + } + c2: + adx = (adx + 1) % 16; + c1: + int32[fir4_out + (j * 4)] = res >> 16; + } + c15: + j = j + 1; + } + } + c0: + return 0; + +} + + +"main" () : int { + + stack 64; + + var t; + + c27: + t = "fir4"("fir4_in", "fir4_c", &0, 16) : int -> int -> int -> int -> int; + c26: + return t; + +} + + diff --git a/tests/clight/fir4.ERTL.expected b/tests/clight/fir4.ERTL.expected new file mode 100644 index 0000000..919b4ad --- /dev/null +++ b/tests/clight/fir4.ERTL.expected @@ -0,0 +1,1247 @@ +program + +globals 288 + +procedure fir4(4) +stacksize 64 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106, %107, %108, %109, %110, %111, + %112, %113, %114, %115, %116, %117, %118, + %119, %120, %121, %122, %123, %124 +entry fir4280 +fir4280: newframe --> fir4279 +fir4279: move %124, $ra --> fir4278 +fir4278: move %123, $s7 --> fir4277 +fir4277: move %122, $s6 --> fir4276 +fir4276: move %121, $s5 --> fir4275 +fir4275: move %120, $s4 --> fir4274 +fir4274: move %119, $s3 --> fir4273 +fir4273: move %118, $s2 --> fir4272 +fir4272: move %117, $s1 --> fir4271 +fir4271: move %116, $s0 --> fir4270 +fir4270: move %0, $a0 --> fir4269 +fir4269: move %1, $a1 --> fir4268 +fir4268: move %2, $a2 --> fir4267 +fir4267: move %3, $a3 --> fir4266 +fir4266: li %4, 0 --> fir4265 +fir4265: li %5, 0 --> fir4264 +fir4264: li %6, 0 --> fir4263 +fir4263: li %7, 0 --> fir4262 +fir4262: li %8, 0 --> fir4261 +fir4261: li %9, 0 --> fir4260 +fir4260: li %10, 0 --> fir4259 +fir4259: li %11, 0 --> fir4258 +fir4258: li %13, 0 --> fir4257 +fir4257: li %14, 0 --> fir4256 +fir4256: li %15, 0 --> fir4255 +fir4255: li %16, 0 --> fir4254 +fir4254: li %17, 0 --> fir4253 +fir4253: li %18, 0 --> fir4252 +fir4252: li %19, 0 --> fir4251 +fir4251: li %20, 0 --> fir4250 +fir4250: li %21, 0 --> fir4249 +fir4249: li %22, 0 --> fir4248 +fir4248: li %23, 0 --> fir4247 +fir4247: li %24, 0 --> fir4246 +fir4246: li %25, 0 --> fir4245 +fir4245: li %26, 0 --> fir4244 +fir4244: li %27, 0 --> fir4243 +fir4243: li %28, 0 --> fir4242 +fir4242: li %29, 0 --> fir4241 +fir4241: li %30, 0 --> fir4240 +fir4240: li %31, 0 --> fir4239 +fir4239: li %32, 0 --> fir4238 +fir4238: li %33, 0 --> fir4237 +fir4237: li %34, 0 --> fir4236 +fir4236: li %35, 0 --> fir4235 +fir4235: li %36, 0 --> fir4234 +fir4234: li %37, 0 --> fir4233 +fir4233: li %38, 0 --> fir4232 +fir4232: li %39, 0 --> fir4231 +fir4231: li %40, 0 --> fir4230 +fir4230: li %41, 0 --> fir4229 +fir4229: li %42, 0 --> fir4228 +fir4228: li %43, 0 --> fir4227 +fir4227: li %44, 0 --> fir4226 +fir4226: li %45, 0 --> fir4225 +fir4225: li %46, 0 --> fir4224 +fir4224: li %47, 0 --> fir4223 +fir4223: li %48, 0 --> fir4222 +fir4222: li %49, 0 --> fir4221 +fir4221: li %50, 0 --> fir4220 +fir4220: li %51, 0 --> fir4219 +fir4219: li %52, 0 --> fir4218 +fir4218: li %53, 0 --> fir4217 +fir4217: li %54, 0 --> fir4216 +fir4216: li %55, 0 --> fir4215 +fir4215: li %56, 0 --> fir4214 +fir4214: li %57, 0 --> fir4213 +fir4213: li %58, 0 --> fir4212 +fir4212: li %59, 0 --> fir4211 +fir4211: li %60, 0 --> fir4210 +fir4210: li %61, 0 --> fir4209 +fir4209: li %62, 0 --> fir4208 +fir4208: li %63, 0 --> fir4207 +fir4207: li %64, 0 --> fir4206 +fir4206: li %65, 0 --> fir4205 +fir4205: li %66, 0 --> fir4204 +fir4204: li %67, 0 --> fir4203 +fir4203: li %68, 0 --> fir4202 +fir4202: li %69, 0 --> fir4201 +fir4201: li %70, 0 --> fir4200 +fir4200: li %71, 0 --> fir4199 +fir4199: li %72, 0 --> fir4198 +fir4198: li %73, 0 --> fir4197 +fir4197: li %74, 0 --> fir4196 +fir4196: li %75, 0 --> fir4195 +fir4195: li %76, 0 --> fir4194 +fir4194: li %77, 0 --> fir4193 +fir4193: li %78, 0 --> fir4192 +fir4192: li %79, 0 --> fir4191 +fir4191: li %80, 0 --> fir4190 +fir4190: li %81, 0 --> fir4189 +fir4189: li %82, 0 --> fir4188 +fir4188: li %83, 0 --> fir4187 +fir4187: li %84, 0 --> fir4186 +fir4186: li %85, 0 --> fir4185 +fir4185: li %86, 0 --> fir4184 +fir4184: li %87, 0 --> fir4183 +fir4183: li %88, 0 --> fir4182 +fir4182: li %89, 0 --> fir4181 +fir4181: li %90, 0 --> fir4180 +fir4180: li %91, 0 --> fir4179 +fir4179: li %92, 0 --> fir4178 +fir4178: li %93, 0 --> fir4177 +fir4177: li %94, 0 --> fir4176 +fir4176: li %95, 0 --> fir4175 +fir4175: li %96, 0 --> fir4174 +fir4174: li %97, 0 --> fir4173 +fir4173: li %98, 0 --> fir4172 +fir4172: li %99, 0 --> fir4171 +fir4171: li %100, 0 --> fir4170 +fir4170: li %101, 0 --> fir4169 +fir4169: li %102, 0 --> fir4168 +fir4168: li %103, 0 --> fir4167 +fir4167: li %104, 0 --> fir4166 +fir4166: li %105, 0 --> fir4165 +fir4165: li %106, 0 --> fir4164 +fir4164: li %107, 0 --> fir4163 +fir4163: li %108, 0 --> fir4162 +fir4162: li %109, 0 --> fir4161 +fir4161: li %110, 0 --> fir4160 +fir4160: li %111, 0 --> fir4159 +fir4159: li %112, 0 --> fir4158 +fir4158: li %113, 0 --> fir4157 +fir4157: li %114, 0 --> fir4156 +fir4156: li %115, 0 --> fir4135 +fir4135: emit c25 --> fir4134 +fir4134: li %11, 0 --> fir4133 +fir4133: emit c24 --> fir4132 +fir4132: li %4, 0 --> fir4131 +fir4131: emit c23 --> fir4130 +fir4130: emit c22 --> fir4129 +fir4129: li %6, 0 --> fir4113 +fir4113: j --> fir4128 +fir4128: li %93, 0 --> fir4127 +fir4127: emit c21 --> fir4126 +fir4126: li %95, 16 --> fir4125 +fir4125: slt %94, %6, %95 --> fir4124 +fir4124: li %99, 0 --> fir4139 +fir4139: seq %92, %94, %99 --> fir4123 +fir4123: beq %92, %93 --> fir4122, fir4112 +fir4112: emit c18 --> fir4111 +fir4111: emit c17 --> fir4110 +fir4110: li %5, 0 --> fir43 +fir43 : j --> fir4109 +fir4109: li %85, 0 --> fir4108 +fir4108: emit c16 --> fir4107 +fir4107: slt %86, %5, %3 --> fir4106 +fir4106: li %97, 0 --> fir4137 +fir4137: seq %84, %86, %97 --> fir4105 +fir4105: beq %84, %85 --> fir4104, fir42 +fir42 : emit c0 --> fir41 +fir41 : li %12, 0 --> fir40 +fir40 : j --> fir4292 +fir4292: move $v0, %12 --> fir4291 +fir4291: move $ra, %124 --> fir4290 +fir4290: move $s7, %123 --> fir4289 +fir4289: move $s6, %122 --> fir4288 +fir4288: move $s5, %121 --> fir4287 +fir4287: move $s4, %120 --> fir4286 +fir4286: move $s3, %119 --> fir4285 +fir4285: move $s2, %118 --> fir4284 +fir4284: move $s1, %117 --> fir4283 +fir4283: move $s0, %116 --> fir4282 +fir4282: delframe --> fir4281 +fir4281: jr $ra (xmits $v0) +fir4104: emit c14 --> fir4103 +fir4103: li %83, 4 --> fir4102 +fir4102: mulo %82, %5, %83 --> fir4101 +fir4101: add %96, %0, %82 --> fir4136 +fir4136: lw %78, 0(%96) --> fir4100 +fir4100: move %79, $sp --> fir4293 +fir4293: move %79, %79 --> fir499 +fir499 : li %81, 4 --> fir498 +fir498 : mulo %80, %11, %81 --> fir497 +fir497 : add %115, %79, %80 --> fir4155 +fir4155: sw %78, 0(%115) --> fir496 +fir496 : emit c13 --> fir495 +fir495 : li %4, 0 --> fir494 +fir494 : emit c12 --> fir493 +fir493 : emit c11 --> fir492 +fir492 : li %6, 0 --> fir418 +fir418 : j --> fir491 +fir491 : li %75, 0 --> fir490 +fir490 : emit c10 --> fir489 +fir489 : li %77, 16 --> fir488 +fir488 : slt %76, %6, %77 --> fir487 +fir487 : li %114, 0 --> fir4154 +fir4154: seq %74, %76, %114 --> fir486 +fir486 : beq %74, %75 --> fir485, fir417 +fir417 : emit c2 --> fir416 +fir416 : li %20, 1 --> fir415 +fir415 : add %18, %11, %20 --> fir414 +fir414 : li %19, 16 --> fir413 +fir413 : la %100, mod --> fir4140 +fir4140: j --> fir4298 +fir4298: move $a0, %18 --> fir4297 +fir4297: move $a1, %19 --> fir4296 +fir4296: call %100(2) --> fir4295 +fir4295: move %11, $v0 --> fir412 +fir412 : emit c1 --> fir411 +fir411 : li %17, 16 --> fir410 +fir410 : srav %14, %4, %17 --> fir49 +fir49 : li %16, 4 --> fir48 +fir48 : mulo %15, %5, %16 --> fir47 +fir47 : add %110, %2, %15 --> fir4150 +fir4150: sw %14, 0(%110) --> fir46 +fir46 : emit c15 --> fir45 +fir45 : li %13, 1 --> fir44 +fir44 : add %5, %5, %13 --> fir43 +fir485 : emit c8 --> fir484 +fir484 : move %71, $sp --> fir4318 +fir4318: move %71, %71 --> fir483 +fir483 : li %73, 4 --> fir482 +fir482 : mulo %72, %11, %73 --> fir481 +fir481 : add %113, %71, %72 --> fir4153 +fir4153: lw %67, 0(%113) --> fir480 +fir480 : li %70, 4 --> fir479 +fir479 : mulo %69, %6, %70 --> fir478 +fir478 : add %112, %1, %69 --> fir4152 +fir4152: lw %68, 0(%112) --> fir477 +fir477 : mulo %10, %67, %68 --> fir476 +fir476 : emit c7 --> fir475 +fir475 : move %60, $sp --> fir4317 +fir4317: move %60, %60 --> fir474 +fir474 : li %66, 1 --> fir473 +fir473 : add %64, %11, %66 --> fir472 +fir472 : li %65, 16 --> fir471 +fir471 : la %111, mod --> fir4151 +fir4151: j --> fir4314 +fir4314: move $a0, %64 --> fir4313 +fir4313: move $a1, %65 --> fir4312 +fir4312: call %111(2) --> fir4311 +fir4311: move %62, $v0 --> fir470 +fir470 : li %63, 4 --> fir469 +fir469 : mulo %61, %62, %63 --> fir468 +fir468 : add %109, %60, %61 --> fir4149 +fir4149: lw %54, 0(%109) --> fir467 +fir467 : li %59, 1 --> fir466 +fir466 : add %57, %6, %59 --> fir465 +fir465 : li %58, 4 --> fir464 +fir464 : mulo %56, %57, %58 --> fir463 +fir463 : add %108, %1, %56 --> fir4148 +fir4148: lw %55, 0(%108) --> fir462 +fir462 : mulo %9, %54, %55 --> fir461 +fir461 : emit c6 --> fir460 +fir460 : move %47, $sp --> fir4316 +fir4316: move %47, %47 --> fir459 +fir459 : li %53, 2 --> fir458 +fir458 : add %51, %11, %53 --> fir457 +fir457 : li %52, 16 --> fir456 +fir456 : la %107, mod --> fir4147 +fir4147: j --> fir4310 +fir4310: move $a0, %51 --> fir4309 +fir4309: move $a1, %52 --> fir4308 +fir4308: call %107(2) --> fir4307 +fir4307: move %49, $v0 --> fir455 +fir455 : li %50, 4 --> fir454 +fir454 : mulo %48, %49, %50 --> fir453 +fir453 : add %106, %47, %48 --> fir4146 +fir4146: lw %41, 0(%106) --> fir452 +fir452 : li %46, 2 --> fir451 +fir451 : add %44, %6, %46 --> fir450 +fir450 : li %45, 4 --> fir449 +fir449 : mulo %43, %44, %45 --> fir448 +fir448 : add %105, %1, %43 --> fir4145 +fir4145: lw %42, 0(%105) --> fir447 +fir447 : mulo %8, %41, %42 --> fir446 +fir446 : emit c5 --> fir445 +fir445 : move %34, $sp --> fir4315 +fir4315: move %34, %34 --> fir444 +fir444 : li %40, 3 --> fir443 +fir443 : add %38, %11, %40 --> fir442 +fir442 : li %39, 16 --> fir441 +fir441 : la %104, mod --> fir4144 +fir4144: j --> fir4306 +fir4306: move $a0, %38 --> fir4305 +fir4305: move $a1, %39 --> fir4304 +fir4304: call %104(2) --> fir4303 +fir4303: move %36, $v0 --> fir440 +fir440 : li %37, 4 --> fir439 +fir439 : mulo %35, %36, %37 --> fir438 +fir438 : add %103, %34, %35 --> fir4143 +fir4143: lw %28, 0(%103) --> fir437 +fir437 : li %33, 3 --> fir436 +fir436 : add %31, %6, %33 --> fir435 +fir435 : li %32, 4 --> fir434 +fir434 : mulo %30, %31, %32 --> fir433 +fir433 : add %102, %1, %30 --> fir4142 +fir4142: lw %29, 0(%102) --> fir432 +fir432 : mulo %7, %28, %29 --> fir431 +fir431 : emit c4 --> fir430 +fir430 : add %27, %4, %10 --> fir429 +fir429 : add %26, %27, %9 --> fir428 +fir428 : add %25, %26, %8 --> fir427 +fir427 : add %4, %25, %7 --> fir426 +fir426 : emit c3 --> fir425 +fir425 : li %24, 4 --> fir424 +fir424 : add %22, %11, %24 --> fir423 +fir423 : li %23, 16 --> fir422 +fir422 : la %101, mod --> fir4141 +fir4141: j --> fir4302 +fir4302: move $a0, %22 --> fir4301 +fir4301: move $a1, %23 --> fir4300 +fir4300: call %101(2) --> fir4299 +fir4299: move %11, $v0 --> fir421 +fir421 : emit c9 --> fir420 +fir420 : li %21, 4 --> fir419 +fir419 : add %6, %6, %21 --> fir418 +fir4122: emit c19 --> fir4121 +fir4121: li %88, 0 --> fir4120 +fir4120: move %89, $sp --> fir4294 +fir4294: move %89, %89 --> fir4119 +fir4119: li %91, 4 --> fir4118 +fir4118: mulo %90, %6, %91 --> fir4117 +fir4117: add %98, %89, %90 --> fir4138 +fir4138: sw %88, 0(%98) --> fir4116 +fir4116: emit c20 --> fir4115 +fir4115: li %87, 1 --> fir4114 +fir4114: add %6, %6, %87 --> fir4113 + +procedure _main(0) +stacksize 64 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106, %107, %108, %109, %110, %111, + %112, %113, %114, %115, %116, %117, %118, + %119, %120, %121, %122, %123, %124, %125, + %126, %127, %128, %129, %130, %131, %132, + %133, %134, %135, %136, %137, %138, %139, + %140, %141, %142, %143, %144, %145, %146, + %147, %148, %149, %150, %151, %152, %153, + %154, %155, %156, %157, %158, %159 +entry main385 +main385: newframe --> main384 +main384: move %159, $ra --> main383 +main383: move %158, $s7 --> main382 +main382: move %157, $s6 --> main381 +main381: move %156, $s5 --> main380 +main380: move %155, $s4 --> main379 +main379: move %154, $s3 --> main378 +main378: move %153, $s2 --> main377 +main377: move %152, $s1 --> main376 +main376: move %151, $s0 --> main375 +main375: li %0, 0 --> main374 +main374: li %2, 0 --> main373 +main373: li %3, 0 --> main372 +main372: li %4, 0 --> main371 +main371: li %5, 0 --> main370 +main370: li %6, 0 --> main369 +main369: li %7, 0 --> main368 +main368: li %8, 0 --> main367 +main367: li %9, 0 --> main366 +main366: li %10, 0 --> main365 +main365: li %11, 0 --> main364 +main364: li %12, 0 --> main363 +main363: li %13, 0 --> main362 +main362: li %14, 0 --> main361 +main361: li %15, 0 --> main360 +main360: li %16, 0 --> main359 +main359: li %17, 0 --> main358 +main358: li %18, 0 --> main357 +main357: li %19, 0 --> main356 +main356: li %20, 0 --> main355 +main355: li %21, 0 --> main354 +main354: li %22, 0 --> main353 +main353: li %23, 0 --> main352 +main352: li %24, 0 --> main351 +main351: li %25, 0 --> main350 +main350: li %26, 0 --> main349 +main349: li %27, 0 --> main348 +main348: li %28, 0 --> main347 +main347: li %29, 0 --> main346 +main346: li %30, 0 --> main345 +main345: li %31, 0 --> main344 +main344: li %32, 0 --> main343 +main343: li %33, 0 --> main342 +main342: li %34, 0 --> main341 +main341: li %35, 0 --> main340 +main340: li %36, 0 --> main339 +main339: li %37, 0 --> main338 +main338: li %38, 0 --> main337 +main337: li %39, 0 --> main336 +main336: li %40, 0 --> main335 +main335: li %41, 0 --> main334 +main334: li %42, 0 --> main333 +main333: li %43, 0 --> main332 +main332: li %44, 0 --> main331 +main331: li %45, 0 --> main330 +main330: li %46, 0 --> main329 +main329: li %47, 0 --> main328 +main328: li %48, 0 --> main327 +main327: li %49, 0 --> main326 +main326: li %50, 0 --> main325 +main325: li %51, 0 --> main324 +main324: li %52, 0 --> main323 +main323: li %53, 0 --> main322 +main322: li %54, 0 --> main321 +main321: li %55, 0 --> main320 +main320: li %56, 0 --> main319 +main319: li %57, 0 --> main318 +main318: li %58, 0 --> main317 +main317: li %59, 0 --> main316 +main316: li %60, 0 --> main315 +main315: li %61, 0 --> main314 +main314: li %62, 0 --> main313 +main313: li %63, 0 --> main312 +main312: li %64, 0 --> main311 +main311: li %65, 0 --> main310 +main310: li %66, 0 --> main309 +main309: li %67, 0 --> main308 +main308: li %68, 0 --> main307 +main307: li %69, 0 --> main306 +main306: li %70, 0 --> main305 +main305: li %71, 0 --> main304 +main304: li %72, 0 --> main303 +main303: li %73, 0 --> main302 +main302: li %74, 0 --> main301 +main301: li %75, 0 --> main300 +main300: li %76, 0 --> main299 +main299: li %77, 0 --> main298 +main298: li %78, 0 --> main297 +main297: li %79, 0 --> main296 +main296: li %80, 0 --> main295 +main295: li %81, 0 --> main294 +main294: li %82, 0 --> main293 +main293: li %83, 0 --> main292 +main292: li %84, 0 --> main291 +main291: li %85, 0 --> main290 +main290: li %86, 0 --> main289 +main289: li %87, 0 --> main288 +main288: li %88, 0 --> main287 +main287: li %89, 0 --> main286 +main286: li %90, 0 --> main285 +main285: li %91, 0 --> main284 +main284: li %92, 0 --> main283 +main283: li %93, 0 --> main282 +main282: li %94, 0 --> main281 +main281: li %95, 0 --> main280 +main280: li %96, 0 --> main279 +main279: li %97, 0 --> main278 +main278: li %98, 0 --> main277 +main277: li %99, 0 --> main276 +main276: li %100, 0 --> main275 +main275: li %101, 0 --> main274 +main274: li %102, 0 --> main273 +main273: li %103, 0 --> main272 +main272: li %104, 0 --> main271 +main271: li %105, 0 --> main270 +main270: li %106, 0 --> main269 +main269: li %107, 0 --> main268 +main268: li %108, 0 --> main267 +main267: li %109, 0 --> main266 +main266: li %110, 0 --> main265 +main265: li %111, 0 --> main264 +main264: li %112, 0 --> main263 +main263: li %113, 0 --> main262 +main262: li %114, 0 --> main261 +main261: li %115, 0 --> main260 +main260: li %116, 0 --> main259 +main259: li %117, 0 --> main258 +main258: li %118, 0 --> main257 +main257: li %119, 0 --> main256 +main256: li %120, 0 --> main255 +main255: li %121, 0 --> main254 +main254: li %122, 0 --> main253 +main253: li %123, 0 --> main252 +main252: li %124, 0 --> main251 +main251: li %125, 0 --> main250 +main250: li %126, 0 --> main249 +main249: li %127, 0 --> main248 +main248: li %128, 0 --> main247 +main247: li %129, 0 --> main246 +main246: li %130, 0 --> main245 +main245: li %131, 0 --> main244 +main244: li %132, 0 --> main243 +main243: li %133, 0 --> main242 +main242: li %134, 0 --> main241 +main241: li %135, 0 --> main240 +main240: li %136, 0 --> main239 +main239: li %137, 0 --> main238 +main238: li %138, 0 --> main237 +main237: li %139, 0 --> main236 +main236: li %140, 0 --> main235 +main235: li %141, 0 --> main234 +main234: li %142, 0 --> main233 +main233: li %143, 0 --> main232 +main232: li %144, 0 --> main231 +main231: li %145, 0 --> main230 +main230: li %146, 0 --> main229 +main229: li %147, 0 --> main228 +main228: li %148, 0 --> main227 +main227: li %149, 0 --> main226 +main226: li %150, 0 --> main152 +main152: li %77, 1129 --> main151 +main151: move %106, $gp --> main426 +main426: move %106, %106 --> main181 +main181: sw %77, 0(%106) --> main150 +main150: li %76, 60034 --> main149 +main149: move %104, $gp --> main424 +main424: move %104, %104 --> main179 +main179: sw %76, 4(%104) --> main148 +main148: li %75, 64720 --> main147 +main147: move %103, $gp --> main423 +main423: move %103, %103 --> main178 +main178: sw %75, 8(%103) --> main146 +main146: li %74, 5595 --> main145 +main145: move %102, $gp --> main422 +main422: move %102, %102 --> main177 +main177: sw %74, 12(%102) --> main144 +main144: li %73, 494 --> main143 +main143: move %101, $gp --> main421 +main421: move %101, %101 --> main176 +main176: sw %73, 16(%101) --> main142 +main142: li %72, 59867 --> main141 +main141: move %100, $gp --> main420 +main420: move %100, %100 --> main175 +main175: sw %72, 20(%100) --> main140 +main140: li %71, 65370 --> main139 +main139: move %99, $gp --> main419 +main419: move %99, %99 --> main174 +main174: sw %71, 24(%99) --> main138 +main138: li %70, 5724 --> main137 +main137: move %98, $gp --> main418 +main418: move %98, %98 --> main173 +main173: sw %70, 28(%98) --> main136 +main136: li %69, 5724 --> main135 +main135: move %97, $gp --> main417 +main417: move %97, %97 --> main172 +main172: sw %69, 32(%97) --> main134 +main134: li %68, 65370 --> main133 +main133: move %96, $gp --> main416 +main416: move %96, %96 --> main171 +main171: sw %68, 36(%96) --> main132 +main132: li %67, 59867 --> main131 +main131: move %95, $gp --> main415 +main415: move %95, %95 --> main170 +main170: sw %67, 40(%95) --> main130 +main130: li %66, 494 --> main129 +main129: move %93, $gp --> main413 +main413: move %93, %93 --> main168 +main168: sw %66, 44(%93) --> main128 +main128: li %65, 5595 --> main127 +main127: move %92, $gp --> main412 +main412: move %92, %92 --> main167 +main167: sw %65, 48(%92) --> main126 +main126: li %64, 64720 --> main125 +main125: move %91, $gp --> main411 +main411: move %91, %91 --> main166 +main166: sw %64, 52(%91) --> main124 +main124: li %63, 60034 --> main123 +main123: move %90, $gp --> main410 +main410: move %90, %90 --> main165 +main165: sw %63, 56(%90) --> main122 +main122: li %62, 1129 --> main121 +main121: move %89, $gp --> main409 +main409: move %89, %89 --> main164 +main164: sw %62, 60(%89) --> main120 +main120: li %61, 1 --> main119 +main119: move %88, $gp --> main408 +main408: move %88, %88 --> main163 +main163: sw %61, 64(%88) --> main118 +main118: li %60, 0 --> main117 +main117: move %87, $gp --> main407 +main407: move %87, %87 --> main162 +main162: sw %60, 68(%87) --> main116 +main116: li %59, 16384 --> main115 +main115: move %86, $gp --> main406 +main406: move %86, %86 --> main161 +main161: sw %59, 72(%86) --> main114 +main114: li %58, 0 --> main113 +main113: move %85, $gp --> main405 +main405: move %85, %85 --> main160 +main160: sw %58, 76(%85) --> main112 +main112: li %57, 0 --> main111 +main111: move %84, $gp --> main404 +main404: move %84, %84 --> main159 +main159: sw %57, 80(%84) --> main110 +main110: li %56, 0 --> main109 +main109: move %82, $gp --> main402 +main402: move %82, %82 --> main157 +main157: sw %56, 84(%82) --> main108 +main108: li %55, 0 --> main107 +main107: move %81, $gp --> main401 +main401: move %81, %81 --> main156 +main156: sw %55, 88(%81) --> main106 +main106: li %54, 0 --> main105 +main105: move %80, $gp --> main400 +main400: move %80, %80 --> main155 +main155: sw %54, 92(%80) --> main104 +main104: li %53, 0 --> main103 +main103: move %79, $gp --> main399 +main399: move %79, %79 --> main154 +main154: sw %53, 96(%79) --> main102 +main102: li %52, 0 --> main101 +main101: move %78, $gp --> main398 +main398: move %78, %78 --> main153 +main153: sw %52, 100(%78) --> main100 +main100: li %51, 0 --> main99 +main99 : move %150, $gp --> main478 +main478: move %150, %150 --> main225 +main225: sw %51, 104(%150) --> main98 +main98 : li %50, 0 --> main97 +main97 : move %149, $gp --> main477 +main477: move %149, %149 --> main224 +main224: sw %50, 108(%149) --> main96 +main96 : li %49, 0 --> main95 +main95 : move %148, $gp --> main476 +main476: move %148, %148 --> main223 +main223: sw %49, 112(%148) --> main94 +main94 : li %48, 0 --> main93 +main93 : move %147, $gp --> main475 +main475: move %147, %147 --> main222 +main222: sw %48, 116(%147) --> main92 +main92 : li %47, 0 --> main91 +main91 : move %146, $gp --> main474 +main474: move %146, %146 --> main221 +main221: sw %47, 120(%146) --> main90 +main90 : li %46, 0 --> main89 +main89 : move %144, $gp --> main472 +main472: move %144, %144 --> main219 +main219: sw %46, 124(%144) --> main88 +main88 : li %45, 0 --> main87 +main87 : move %143, $gp --> main471 +main471: move %143, %143 --> main218 +main218: sw %45, 128(%143) --> main86 +main86 : li %44, 0 --> main85 +main85 : move %142, $gp --> main470 +main470: move %142, %142 --> main217 +main217: sw %44, 132(%142) --> main84 +main84 : li %43, 0 --> main83 +main83 : move %141, $gp --> main469 +main469: move %141, %141 --> main216 +main216: sw %43, 136(%141) --> main82 +main82 : li %42, 0 --> main81 +main81 : move %140, $gp --> main468 +main468: move %140, %140 --> main215 +main215: sw %42, 140(%140) --> main80 +main80 : li %41, 0 --> main79 +main79 : move %139, $gp --> main467 +main467: move %139, %139 --> main214 +main214: sw %41, 144(%139) --> main78 +main78 : li %40, 0 --> main77 +main77 : move %138, $gp --> main466 +main466: move %138, %138 --> main213 +main213: sw %40, 148(%138) --> main76 +main76 : li %39, 0 --> main75 +main75 : move %137, $gp --> main465 +main465: move %137, %137 --> main212 +main212: sw %39, 152(%137) --> main74 +main74 : li %38, 0 --> main73 +main73 : move %136, $gp --> main464 +main464: move %136, %136 --> main211 +main211: sw %38, 156(%136) --> main72 +main72 : li %37, 0 --> main71 +main71 : move %135, $gp --> main463 +main463: move %135, %135 --> main210 +main210: sw %37, 160(%135) --> main70 +main70 : li %36, 7986 --> main69 +main69 : move %134, $gp --> main461 +main461: move %134, %134 --> main209 +main209: sw %36, 164(%134) --> main68 +main68 : li %35, 8993 --> main67 +main67 : move %133, $gp --> main460 +main460: move %133, %133 --> main208 +main208: sw %35, 168(%133) --> main66 +main66 : li %34, 1808 --> main65 +main65 : move %132, $gp --> main459 +main459: move %132, %132 --> main207 +main207: sw %34, 172(%132) --> main64 +main64 : li %33, 4096 --> main63 +main63 : move %131, $gp --> main458 +main458: move %131, %131 --> main206 +main206: sw %33, 176(%131) --> main62 +main62 : li %32, 4096 --> main61 +main61 : move %130, $gp --> main457 +main457: move %130, %130 --> main205 +main205: sw %32, 180(%130) --> main60 +main60 : li %31, 4096 --> main59 +main59 : move %129, $gp --> main455 +main455: move %129, %129 --> main204 +main204: sw %31, 184(%129) --> main58 +main58 : li %30, 4096 --> main57 +main57 : move %128, $gp --> main454 +main454: move %128, %128 --> main203 +main203: sw %30, 188(%128) --> main56 +main56 : li %29, 4096 --> main55 +main55 : move %127, $gp --> main453 +main453: move %127, %127 --> main202 +main202: sw %29, 192(%127) --> main54 +main54 : li %28, 4096 --> main53 +main53 : move %126, $gp --> main452 +main452: move %126, %126 --> main201 +main201: sw %28, 196(%126) --> main52 +main52 : li %27, 4096 --> main51 +main51 : move %125, $gp --> main451 +main451: move %125, %125 --> main200 +main200: sw %27, 200(%125) --> main50 +main50 : li %26, 4096 --> main49 +main49 : move %124, $gp --> main449 +main449: move %124, %124 --> main199 +main199: sw %26, 204(%124) --> main48 +main48 : li %25, 4096 --> main47 +main47 : move %123, $gp --> main448 +main448: move %123, %123 --> main198 +main198: sw %25, 208(%123) --> main46 +main46 : li %24, 4096 --> main45 +main45 : move %122, $gp --> main447 +main447: move %122, %122 --> main197 +main197: sw %24, 212(%122) --> main44 +main44 : li %23, 4096 --> main43 +main43 : move %121, $gp --> main446 +main446: move %121, %121 --> main196 +main196: sw %23, 216(%121) --> main42 +main42 : li %22, 4096 --> main41 +main41 : move %120, $gp --> main445 +main445: move %120, %120 --> main195 +main195: sw %22, 220(%120) --> main40 +main40 : li %21, 4096 --> main39 +main39 : move %119, $gp --> main444 +main444: move %119, %119 --> main194 +main194: sw %21, 224(%119) --> main38 +main38 : li %20, 4096 --> main37 +main37 : move %118, $gp --> main443 +main443: move %118, %118 --> main193 +main193: sw %20, 228(%118) --> main36 +main36 : li %19, 4096 --> main35 +main35 : move %117, $gp --> main442 +main442: move %117, %117 --> main192 +main192: sw %19, 232(%117) --> main34 +main34 : li %18, 4096 --> main33 +main33 : move %116, $gp --> main441 +main441: move %116, %116 --> main191 +main191: sw %18, 236(%116) --> main32 +main32 : li %17, 4096 --> main31 +main31 : move %115, $gp --> main440 +main440: move %115, %115 --> main190 +main190: sw %17, 240(%115) --> main30 +main30 : li %16, 4096 --> main29 +main29 : move %113, $gp --> main439 +main439: move %113, %113 --> main188 +main188: sw %16, 244(%113) --> main28 +main28 : li %15, 4096 --> main27 +main27 : move %112, $gp --> main438 +main438: move %112, %112 --> main187 +main187: sw %15, 248(%112) --> main26 +main26 : li %14, 4096 --> main25 +main25 : move %111, $gp --> main437 +main437: move %111, %111 --> main186 +main186: sw %14, 252(%111) --> main24 +main24 : li %13, 4096 --> main23 +main23 : move %110, $gp --> main436 +main436: move %110, %110 --> main185 +main185: sw %13, 256(%110) --> main22 +main22 : li %12, 4096 --> main21 +main21 : move %109, $gp --> main435 +main435: move %109, %109 --> main184 +main184: sw %12, 260(%109) --> main20 +main20 : li %11, 4096 --> main19 +main19 : move %108, $gp --> main434 +main434: move %108, %108 --> main183 +main183: sw %11, 264(%108) --> main18 +main18 : li %10, 4096 --> main17 +main17 : move %107, $gp --> main427 +main427: move %107, %107 --> main182 +main182: sw %10, 268(%107) --> main16 +main16 : li %9, 4096 --> main15 +main15 : move %105, $gp --> main425 +main425: move %105, %105 --> main180 +main180: sw %9, 272(%105) --> main14 +main14 : li %8, 4096 --> main13 +main13 : move %94, $gp --> main414 +main414: move %94, %94 --> main169 +main169: sw %8, 276(%94) --> main12 +main12 : li %7, 4096 --> main11 +main11 : move %83, $gp --> main403 +main403: move %83, %83 --> main158 +main158: sw %7, 280(%83) --> main10 +main10 : li %6, 4096 --> main9 +main9 : move %145, $gp --> main473 +main473: move %145, %145 --> main220 +main220: sw %6, 284(%145) --> main8 +main8 : emit c27 --> main7 +main7 : move %2, $gp --> main462 +main462: addi %2, %2, 64 --> main6 +main6 : move %3, $gp --> main456 +main456: move %3, %3 --> main5 +main5 : move %4, $sp --> main450 +main450: move %4, %4 --> main4 +main4 : li %5, 16 --> main3 +main3 : la %114, fir4 --> main189 +main189: j --> main433 +main433: move $a0, %2 --> main432 +main432: move $a1, %3 --> main431 +main431: move $a2, %4 --> main430 +main430: move $a3, %5 --> main429 +main429: call %114(4) --> main428 +main428: move %0, $v0 --> main2 +main2 : emit c26 --> main1 +main1 : move %1, %0 --> main0 +main0 : j --> main397 +main397: move $v0, %1 --> main396 +main396: move $ra, %159 --> main395 +main395: move $s7, %158 --> main394 +main394: move $s6, %157 --> main393 +main393: move $s5, %156 --> main392 +main392: move $s4, %155 --> main391 +main391: move $s3, %154 --> main390 +main390: move $s2, %153 --> main389 +main389: move $s1, %152 --> main388 +main388: move $s0, %151 --> main387 +main387: delframe --> main386 +main386: jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/fir4.LIN.expected b/tests/clight/fir4.LIN.expected new file mode 100644 index 0000000..cd6ac0b --- /dev/null +++ b/tests/clight/fir4.LIN.expected @@ -0,0 +1,803 @@ +program + +globals 288 + +procedure fir4(4) +var 116 +fir4280: +newframe +sw $ra, 112($sp) +sw $s7, 108($sp) +sw $s6, 104($sp) +sw $s5, 100($sp) +sw $s4, 96($sp) +sw $s3, 92($sp) +sw $s2, 88($sp) +sw $s1, 84($sp) +sw $s0, 80($sp) +sw $a0, 64($sp) +move $s6, $a1 +sw $a2, 68($sp) +sw $a3, 72($sp) +c25: +li $s1, 0 +c24: +c23: +c22: +li $s3, 0 +fir4128: +li $a0, 0 +c21: +li $v0, 16 +slt $v0, $s3, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, fir4122 +c18: +c17: +li $s4, 0 +fir4109: +li $a0, 0 +c16: +lw $fp, 72($sp) +slt $v0, $s4, $fp +seq $v0, $v0, $zero +beq $v0, $a0, fir4104 +c0: +li $v0, 0 +lw $ra, 112($sp) +lw $s7, 108($sp) +lw $s6, 104($sp) +lw $s5, 100($sp) +lw $s4, 96($sp) +lw $s3, 92($sp) +lw $s2, 88($sp) +lw $s1, 84($sp) +lw $s0, 80($sp) +delframe +jr $ra +fir4104: +c14: +li $v0, 4 +mulo $v0, $s4, $v0 +lw $v1, 64($sp) +add $v0, $v1, $v0 +lw $a1, 0($v0) +move $a0, $sp +li $v0, 4 +mulo $v0, $s1, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c13: +li $s5, 0 +c12: +c11: +li $s3, 0 +fir491: +li $a0, 0 +c10: +li $v0, 16 +slt $v0, $s3, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, fir485 +c2: +li $v0, 1 +add $a0, $s1, $v0 +li $a1, 16 +la $v0, mod +call $v0 +move $s1, $v0 +c1: +li $v0, 16 +srav $a0, $s5, $v0 +li $v0, 4 +mulo $v0, $s4, $v0 +lw $v1, 68($sp) +add $v0, $v1, $v0 +sw $a0, 0($v0) +c15: +li $v0, 1 +add $s4, $s4, $v0 +j fir4109 +fir485: +c8: +move $a0, $sp +li $v0, 4 +mulo $v0, $s1, $v0 +add $v0, $a0, $v0 +lw $a0, 0($v0) +li $v0, 4 +mulo $v0, $s3, $v0 +add $v0, $s6, $v0 +lw $v0, 0($v0) +mulo $s2, $a0, $v0 +c7: +move $s0, $sp +li $v0, 1 +add $a0, $s1, $v0 +li $a1, 16 +la $v0, mod +call $v0 +li $a0, 4 +mulo $v0, $v0, $a0 +add $v0, $s0, $v0 +lw $a1, 0($v0) +li $v0, 1 +add $a0, $s3, $v0 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $s6, $v0 +lw $v0, 0($v0) +mulo $v1, $a1, $v0 +sw $v1, 76($sp) +c6: +move $s0, $sp +li $v0, 2 +add $a0, $s1, $v0 +li $a1, 16 +la $v0, mod +call $v0 +li $a0, 4 +mulo $v0, $v0, $a0 +add $v0, $s0, $v0 +lw $a1, 0($v0) +li $v0, 2 +add $a0, $s3, $v0 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $s6, $v0 +lw $v0, 0($v0) +mulo $s7, $a1, $v0 +c5: +move $s0, $sp +li $v0, 3 +add $a0, $s1, $v0 +li $a1, 16 +la $v0, mod +call $v0 +li $a0, 4 +mulo $v0, $v0, $a0 +add $v0, $s0, $v0 +lw $a1, 0($v0) +li $v0, 3 +add $a0, $s3, $v0 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $s6, $v0 +lw $v0, 0($v0) +mulo $v0, $a1, $v0 +c4: +add $a0, $s5, $s2 +lw $fp, 76($sp) +add $a0, $a0, $fp +add $a0, $a0, $s7 +add $s5, $a0, $v0 +c3: +li $v0, 4 +add $a0, $s1, $v0 +li $a1, 16 +la $v0, mod +call $v0 +move $s1, $v0 +c9: +li $v0, 4 +add $s3, $s3, $v0 +j fir491 +fir4122: +c19: +move $a0, $sp +li $v0, 4 +mulo $v0, $s3, $v0 +add $v0, $a0, $v0 +sw $zero, 0($v0) +c20: +li $v0, 1 +add $s3, $s3, $v0 +j fir4128 + +procedure _main(0) +var 68 +main385: +newframe +sw $ra, 64($sp) +li $a0, 1129 +move $v0, $gp +sw $a0, 0($v0) +li $a0, 60034 +move $v0, $gp +sw $a0, 4($v0) +li $a0, 64720 +move $v0, $gp +sw $a0, 8($v0) +li $a0, 5595 +move $v0, $gp +sw $a0, 12($v0) +li $a0, 494 +move $v0, $gp +sw $a0, 16($v0) +li $a0, 59867 +move $v0, $gp +sw $a0, 20($v0) +li $a0, 65370 +move $v0, $gp +sw $a0, 24($v0) +li $a0, 5724 +move $v0, $gp +sw $a0, 28($v0) +li $a0, 5724 +move $v0, $gp +sw $a0, 32($v0) +li $a0, 65370 +move $v0, $gp +sw $a0, 36($v0) +li $a0, 59867 +move $v0, $gp +sw $a0, 40($v0) +li $a0, 494 +move $v0, $gp +sw $a0, 44($v0) +li $a0, 5595 +move $v0, $gp +sw $a0, 48($v0) +li $a0, 64720 +move $v0, $gp +sw $a0, 52($v0) +li $a0, 60034 +move $v0, $gp +sw $a0, 56($v0) +li $a0, 1129 +move $v0, $gp +sw $a0, 60($v0) +li $a0, 1 +move $v0, $gp +sw $a0, 64($v0) +move $v0, $gp +sw $zero, 68($v0) +li $a0, 16384 +move $v0, $gp +sw $a0, 72($v0) +move $v0, $gp +sw $zero, 76($v0) +move $v0, $gp +sw $zero, 80($v0) +move $v0, $gp +sw $zero, 84($v0) +move $v0, $gp +sw $zero, 88($v0) +move $v0, $gp +sw $zero, 92($v0) +move $v0, $gp +sw $zero, 96($v0) +move $v0, $gp +sw $zero, 100($v0) +move $v0, $gp +sw $zero, 104($v0) +move $v0, $gp +sw $zero, 108($v0) +move $v0, $gp +sw $zero, 112($v0) +move $v0, $gp +sw $zero, 116($v0) +move $v0, $gp +sw $zero, 120($v0) +move $v0, $gp +sw $zero, 124($v0) +move $v0, $gp +sw $zero, 128($v0) +move $v0, $gp +sw $zero, 132($v0) +move $v0, $gp +sw $zero, 136($v0) +move $v0, $gp +sw $zero, 140($v0) +move $v0, $gp +sw $zero, 144($v0) +move $v0, $gp +sw $zero, 148($v0) +move $v0, $gp +sw $zero, 152($v0) +move $v0, $gp +sw $zero, 156($v0) +move $v0, $gp +sw $zero, 160($v0) +li $a0, 7986 +move $v0, $gp +sw $a0, 164($v0) +li $a0, 8993 +move $v0, $gp +sw $a0, 168($v0) +li $a0, 1808 +move $v0, $gp +sw $a0, 172($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 176($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 180($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 184($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 188($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 192($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 196($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 200($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 204($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 208($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 212($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 216($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 220($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 224($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 228($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 232($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 236($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 240($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 244($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 248($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 252($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 256($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 260($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 264($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 268($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 272($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 276($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 280($v0) +li $a0, 4096 +move $v0, $gp +sw $a0, 284($v0) +c27: +move $a0, $gp +addi $a0, $a0, 64 +move $a1, $gp +move $a2, $sp +li $a3, 16 +la $v0, fir4 +call $v0 +c26: +lw $ra, 64($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/fir4.LTL.expected b/tests/clight/fir4.LTL.expected new file mode 100644 index 0000000..742af04 --- /dev/null +++ b/tests/clight/fir4.LTL.expected @@ -0,0 +1,1211 @@ +program + +globals 288 + +procedure fir4(4) +var 116 +entry fir4280 +fir4280: newframe --> fir4279 +fir4279: lw $ra, 112($sp) --> fir4278 +fir4278: lw $s7, 108($sp) --> fir4277 +fir4277: lw $s6, 104($sp) --> fir4276 +fir4276: lw $s5, 100($sp) --> fir4275 +fir4275: lw $s4, 96($sp) --> fir4274 +fir4274: lw $s3, 92($sp) --> fir4273 +fir4273: lw $s2, 88($sp) --> fir4272 +fir4272: lw $s1, 84($sp) --> fir4271 +fir4271: lw $s0, 80($sp) --> fir4270 +fir4270: lw $a0, 64($sp) --> fir4269 +fir4269: move $s6, $a1 --> fir4268 +fir4268: lw $a2, 68($sp) --> fir4267 +fir4267: lw $a3, 72($sp) --> fir4266 +fir4266: j --> fir4265 +fir4265: j --> fir4264 +fir4264: j --> fir4263 +fir4263: j --> fir4262 +fir4262: j --> fir4261 +fir4261: j --> fir4260 +fir4260: j --> fir4259 +fir4259: j --> fir4258 +fir4258: j --> fir4257 +fir4257: j --> fir4256 +fir4256: j --> fir4255 +fir4255: j --> fir4254 +fir4254: j --> fir4253 +fir4253: j --> fir4252 +fir4252: j --> fir4251 +fir4251: j --> fir4250 +fir4250: j --> fir4249 +fir4249: j --> fir4248 +fir4248: j --> fir4247 +fir4247: j --> fir4246 +fir4246: j --> fir4245 +fir4245: j --> fir4244 +fir4244: j --> fir4243 +fir4243: j --> fir4242 +fir4242: j --> fir4241 +fir4241: j --> fir4240 +fir4240: j --> fir4239 +fir4239: j --> fir4238 +fir4238: j --> fir4237 +fir4237: j --> fir4236 +fir4236: j --> fir4235 +fir4235: j --> fir4234 +fir4234: j --> fir4233 +fir4233: j --> fir4232 +fir4232: j --> fir4231 +fir4231: j --> fir4230 +fir4230: j --> fir4229 +fir4229: j --> fir4228 +fir4228: j --> fir4227 +fir4227: j --> fir4226 +fir4226: j --> fir4225 +fir4225: j --> fir4224 +fir4224: j --> fir4223 +fir4223: j --> fir4222 +fir4222: j --> fir4221 +fir4221: j --> fir4220 +fir4220: j --> fir4219 +fir4219: j --> fir4218 +fir4218: j --> fir4217 +fir4217: j --> fir4216 +fir4216: j --> fir4215 +fir4215: j --> fir4214 +fir4214: j --> fir4213 +fir4213: j --> fir4212 +fir4212: j --> fir4211 +fir4211: j --> fir4210 +fir4210: j --> fir4209 +fir4209: j --> fir4208 +fir4208: j --> fir4207 +fir4207: j --> fir4206 +fir4206: j --> fir4205 +fir4205: j --> fir4204 +fir4204: j --> fir4203 +fir4203: j --> fir4202 +fir4202: j --> fir4201 +fir4201: j --> fir4200 +fir4200: j --> fir4199 +fir4199: j --> fir4198 +fir4198: j --> fir4197 +fir4197: j --> fir4196 +fir4196: j --> fir4195 +fir4195: j --> fir4194 +fir4194: j --> fir4193 +fir4193: j --> fir4192 +fir4192: j --> fir4191 +fir4191: j --> fir4190 +fir4190: j --> fir4189 +fir4189: j --> fir4188 +fir4188: j --> fir4187 +fir4187: j --> fir4186 +fir4186: j --> fir4185 +fir4185: j --> fir4184 +fir4184: j --> fir4183 +fir4183: j --> fir4182 +fir4182: j --> fir4181 +fir4181: j --> fir4180 +fir4180: j --> fir4179 +fir4179: j --> fir4178 +fir4178: j --> fir4177 +fir4177: j --> fir4176 +fir4176: j --> fir4175 +fir4175: j --> fir4174 +fir4174: j --> fir4173 +fir4173: j --> fir4172 +fir4172: j --> fir4171 +fir4171: j --> fir4170 +fir4170: j --> fir4169 +fir4169: j --> fir4168 +fir4168: j --> fir4167 +fir4167: j --> fir4166 +fir4166: j --> fir4165 +fir4165: j --> fir4164 +fir4164: j --> fir4163 +fir4163: j --> fir4162 +fir4162: j --> fir4161 +fir4161: j --> fir4160 +fir4160: j --> fir4159 +fir4159: j --> fir4158 +fir4158: j --> fir4157 +fir4157: j --> fir4156 +fir4156: j --> fir4135 +fir4135: emit c25 --> fir4134 +fir4134: li $s1, 0 --> fir4133 +fir4133: emit c24 --> fir4132 +fir4132: j --> fir4131 +fir4131: emit c23 --> fir4130 +fir4130: emit c22 --> fir4129 +fir4129: li $s3, 0 --> fir4113 +fir4113: j --> fir4128 +fir4128: li $a0, 0 --> fir4127 +fir4127: emit c21 --> fir4126 +fir4126: li $v0, 16 --> fir4125 +fir4125: slt $v0, $s3, $v0 --> fir4124 +fir4124: j --> fir4139 +fir4139: seq $v0, $v0, $zero --> fir4123 +fir4123: beq $v0, $a0 --> fir4122, fir4112 +fir4112: emit c18 --> fir4111 +fir4111: emit c17 --> fir4110 +fir4110: li $s4, 0 --> fir43 +fir43 : j --> fir4109 +fir4109: li $a0, 0 --> fir4108 +fir4108: emit c16 --> fir4107 +fir4107: lw $fp, 72($sp) --> fir4320 +fir4320: slt $v0, $s4, $fp --> fir4106 +fir4106: j --> fir4137 +fir4137: seq $v0, $v0, $zero --> fir4105 +fir4105: beq $v0, $a0 --> fir4104, fir42 +fir42 : emit c0 --> fir41 +fir41 : li $v0, 0 --> fir40 +fir40 : j --> fir4292 +fir4292: j --> fir4291 +fir4291: lw $ra, 112($sp) --> fir4290 +fir4290: lw $s7, 108($sp) --> fir4289 +fir4289: lw $s6, 104($sp) --> fir4288 +fir4288: lw $s5, 100($sp) --> fir4287 +fir4287: lw $s4, 96($sp) --> fir4286 +fir4286: lw $s3, 92($sp) --> fir4285 +fir4285: lw $s2, 88($sp) --> fir4284 +fir4284: lw $s1, 84($sp) --> fir4283 +fir4283: lw $s0, 80($sp) --> fir4282 +fir4282: delframe --> fir4281 +fir4281: jr $ra +fir4104: emit c14 --> fir4103 +fir4103: li $v0, 4 --> fir4102 +fir4102: mulo $v0, $s4, $v0 --> fir4101 +fir4101: lw $v1, 64($sp) --> fir4319 +fir4319: add $v0, $v1, $v0 --> fir4136 +fir4136: lw $a1, 0($v0) --> fir4100 +fir4100: move $a0, $sp --> fir4293 +fir4293: j --> fir499 +fir499 : li $v0, 4 --> fir498 +fir498 : mulo $v0, $s1, $v0 --> fir497 +fir497 : add $v0, $a0, $v0 --> fir4155 +fir4155: lw $a1, 0($v0) --> fir496 +fir496 : emit c13 --> fir495 +fir495 : li $s5, 0 --> fir494 +fir494 : emit c12 --> fir493 +fir493 : emit c11 --> fir492 +fir492 : li $s3, 0 --> fir418 +fir418 : j --> fir491 +fir491 : li $a0, 0 --> fir490 +fir490 : emit c10 --> fir489 +fir489 : li $v0, 16 --> fir488 +fir488 : slt $v0, $s3, $v0 --> fir487 +fir487 : j --> fir4154 +fir4154: seq $v0, $v0, $zero --> fir486 +fir486 : beq $v0, $a0 --> fir485, fir417 +fir417 : emit c2 --> fir416 +fir416 : li $v0, 1 --> fir415 +fir415 : add $a0, $s1, $v0 --> fir414 +fir414 : li $a1, 16 --> fir413 +fir413 : la $v0, mod --> fir4140 +fir4140: j --> fir4298 +fir4298: j --> fir4297 +fir4297: j --> fir4296 +fir4296: call $v0 --> fir4295 +fir4295: move $s1, $v0 --> fir412 +fir412 : emit c1 --> fir411 +fir411 : li $v0, 16 --> fir410 +fir410 : srav $a0, $s5, $v0 --> fir49 +fir49 : li $v0, 4 --> fir48 +fir48 : mulo $v0, $s4, $v0 --> fir47 +fir47 : lw $v1, 68($sp) --> fir4323 +fir4323: add $v0, $v1, $v0 --> fir4150 +fir4150: lw $a0, 0($v0) --> fir46 +fir46 : emit c15 --> fir45 +fir45 : li $v0, 1 --> fir44 +fir44 : add $s4, $s4, $v0 --> fir43 +fir485 : emit c8 --> fir484 +fir484 : move $a0, $sp --> fir4318 +fir4318: j --> fir483 +fir483 : li $v0, 4 --> fir482 +fir482 : mulo $v0, $s1, $v0 --> fir481 +fir481 : add $v0, $a0, $v0 --> fir4153 +fir4153: lw $a0, 0($v0) --> fir480 +fir480 : li $v0, 4 --> fir479 +fir479 : mulo $v0, $s3, $v0 --> fir478 +fir478 : add $v0, $s6, $v0 --> fir4152 +fir4152: lw $v0, 0($v0) --> fir477 +fir477 : mulo $s2, $a0, $v0 --> fir476 +fir476 : emit c7 --> fir475 +fir475 : move $s0, $sp --> fir4317 +fir4317: j --> fir474 +fir474 : li $v0, 1 --> fir473 +fir473 : add $a0, $s1, $v0 --> fir472 +fir472 : li $a1, 16 --> fir471 +fir471 : la $v0, mod --> fir4151 +fir4151: j --> fir4314 +fir4314: j --> fir4313 +fir4313: j --> fir4312 +fir4312: call $v0 --> fir4311 +fir4311: j --> fir470 +fir470 : li $a0, 4 --> fir469 +fir469 : mulo $v0, $v0, $a0 --> fir468 +fir468 : add $v0, $s0, $v0 --> fir4149 +fir4149: lw $a1, 0($v0) --> fir467 +fir467 : li $v0, 1 --> fir466 +fir466 : add $a0, $s3, $v0 --> fir465 +fir465 : li $v0, 4 --> fir464 +fir464 : mulo $v0, $a0, $v0 --> fir463 +fir463 : add $v0, $s6, $v0 --> fir4148 +fir4148: lw $v0, 0($v0) --> fir462 +fir462 : mulo $v1, $a1, $v0 --> fir4322 +fir4322: lw $v1, 76($sp) --> fir461 +fir461 : emit c6 --> fir460 +fir460 : move $s0, $sp --> fir4316 +fir4316: j --> fir459 +fir459 : li $v0, 2 --> fir458 +fir458 : add $a0, $s1, $v0 --> fir457 +fir457 : li $a1, 16 --> fir456 +fir456 : la $v0, mod --> fir4147 +fir4147: j --> fir4310 +fir4310: j --> fir4309 +fir4309: j --> fir4308 +fir4308: call $v0 --> fir4307 +fir4307: j --> fir455 +fir455 : li $a0, 4 --> fir454 +fir454 : mulo $v0, $v0, $a0 --> fir453 +fir453 : add $v0, $s0, $v0 --> fir4146 +fir4146: lw $a1, 0($v0) --> fir452 +fir452 : li $v0, 2 --> fir451 +fir451 : add $a0, $s3, $v0 --> fir450 +fir450 : li $v0, 4 --> fir449 +fir449 : mulo $v0, $a0, $v0 --> fir448 +fir448 : add $v0, $s6, $v0 --> fir4145 +fir4145: lw $v0, 0($v0) --> fir447 +fir447 : mulo $s7, $a1, $v0 --> fir446 +fir446 : emit c5 --> fir445 +fir445 : move $s0, $sp --> fir4315 +fir4315: j --> fir444 +fir444 : li $v0, 3 --> fir443 +fir443 : add $a0, $s1, $v0 --> fir442 +fir442 : li $a1, 16 --> fir441 +fir441 : la $v0, mod --> fir4144 +fir4144: j --> fir4306 +fir4306: j --> fir4305 +fir4305: j --> fir4304 +fir4304: call $v0 --> fir4303 +fir4303: j --> fir440 +fir440 : li $a0, 4 --> fir439 +fir439 : mulo $v0, $v0, $a0 --> fir438 +fir438 : add $v0, $s0, $v0 --> fir4143 +fir4143: lw $a1, 0($v0) --> fir437 +fir437 : li $v0, 3 --> fir436 +fir436 : add $a0, $s3, $v0 --> fir435 +fir435 : li $v0, 4 --> fir434 +fir434 : mulo $v0, $a0, $v0 --> fir433 +fir433 : add $v0, $s6, $v0 --> fir4142 +fir4142: lw $v0, 0($v0) --> fir432 +fir432 : mulo $v0, $a1, $v0 --> fir431 +fir431 : emit c4 --> fir430 +fir430 : add $a0, $s5, $s2 --> fir429 +fir429 : lw $fp, 76($sp) --> fir4321 +fir4321: add $a0, $a0, $fp --> fir428 +fir428 : add $a0, $a0, $s7 --> fir427 +fir427 : add $s5, $a0, $v0 --> fir426 +fir426 : emit c3 --> fir425 +fir425 : li $v0, 4 --> fir424 +fir424 : add $a0, $s1, $v0 --> fir423 +fir423 : li $a1, 16 --> fir422 +fir422 : la $v0, mod --> fir4141 +fir4141: j --> fir4302 +fir4302: j --> fir4301 +fir4301: j --> fir4300 +fir4300: call $v0 --> fir4299 +fir4299: move $s1, $v0 --> fir421 +fir421 : emit c9 --> fir420 +fir420 : li $v0, 4 --> fir419 +fir419 : add $s3, $s3, $v0 --> fir418 +fir4122: emit c19 --> fir4121 +fir4121: j --> fir4120 +fir4120: move $a0, $sp --> fir4294 +fir4294: j --> fir4119 +fir4119: li $v0, 4 --> fir4118 +fir4118: mulo $v0, $s3, $v0 --> fir4117 +fir4117: add $v0, $a0, $v0 --> fir4138 +fir4138: lw $zero, 0($v0) --> fir4116 +fir4116: emit c20 --> fir4115 +fir4115: li $v0, 1 --> fir4114 +fir4114: add $s3, $s3, $v0 --> fir4113 + +procedure _main(0) +var 68 +entry main385 +main385: newframe --> main384 +main384: lw $ra, 64($sp) --> main383 +main383: j --> main382 +main382: j --> main381 +main381: j --> main380 +main380: j --> main379 +main379: j --> main378 +main378: j --> main377 +main377: j --> main376 +main376: j --> main375 +main375: j --> main374 +main374: j --> main373 +main373: j --> main372 +main372: j --> main371 +main371: j --> main370 +main370: j --> main369 +main369: j --> main368 +main368: j --> main367 +main367: j --> main366 +main366: j --> main365 +main365: j --> main364 +main364: j --> main363 +main363: j --> main362 +main362: j --> main361 +main361: j --> main360 +main360: j --> main359 +main359: j --> main358 +main358: j --> main357 +main357: j --> main356 +main356: j --> main355 +main355: j --> main354 +main354: j --> main353 +main353: j --> main352 +main352: j --> main351 +main351: j --> main350 +main350: j --> main349 +main349: j --> main348 +main348: j --> main347 +main347: j --> main346 +main346: j --> main345 +main345: j --> main344 +main344: j --> main343 +main343: j --> main342 +main342: j --> main341 +main341: j --> main340 +main340: j --> main339 +main339: j --> main338 +main338: j --> main337 +main337: j --> main336 +main336: j --> main335 +main335: j --> main334 +main334: j --> main333 +main333: j --> main332 +main332: j --> main331 +main331: j --> main330 +main330: j --> main329 +main329: j --> main328 +main328: j --> main327 +main327: j --> main326 +main326: j --> main325 +main325: j --> main324 +main324: j --> main323 +main323: j --> main322 +main322: j --> main321 +main321: j --> main320 +main320: j --> main319 +main319: j --> main318 +main318: j --> main317 +main317: j --> main316 +main316: j --> main315 +main315: j --> main314 +main314: j --> main313 +main313: j --> main312 +main312: j --> main311 +main311: j --> main310 +main310: j --> main309 +main309: j --> main308 +main308: j --> main307 +main307: j --> main306 +main306: j --> main305 +main305: j --> main304 +main304: j --> main303 +main303: j --> main302 +main302: j --> main301 +main301: j --> main300 +main300: j --> main299 +main299: j --> main298 +main298: j --> main297 +main297: j --> main296 +main296: j --> main295 +main295: j --> main294 +main294: j --> main293 +main293: j --> main292 +main292: j --> main291 +main291: j --> main290 +main290: j --> main289 +main289: j --> main288 +main288: j --> main287 +main287: j --> main286 +main286: j --> main285 +main285: j --> main284 +main284: j --> main283 +main283: j --> main282 +main282: j --> main281 +main281: j --> main280 +main280: j --> main279 +main279: j --> main278 +main278: j --> main277 +main277: j --> main276 +main276: j --> main275 +main275: j --> main274 +main274: j --> main273 +main273: j --> main272 +main272: j --> main271 +main271: j --> main270 +main270: j --> main269 +main269: j --> main268 +main268: j --> main267 +main267: j --> main266 +main266: j --> main265 +main265: j --> main264 +main264: j --> main263 +main263: j --> main262 +main262: j --> main261 +main261: j --> main260 +main260: j --> main259 +main259: j --> main258 +main258: j --> main257 +main257: j --> main256 +main256: j --> main255 +main255: j --> main254 +main254: j --> main253 +main253: j --> main252 +main252: j --> main251 +main251: j --> main250 +main250: j --> main249 +main249: j --> main248 +main248: j --> main247 +main247: j --> main246 +main246: j --> main245 +main245: j --> main244 +main244: j --> main243 +main243: j --> main242 +main242: j --> main241 +main241: j --> main240 +main240: j --> main239 +main239: j --> main238 +main238: j --> main237 +main237: j --> main236 +main236: j --> main235 +main235: j --> main234 +main234: j --> main233 +main233: j --> main232 +main232: j --> main231 +main231: j --> main230 +main230: j --> main229 +main229: j --> main228 +main228: j --> main227 +main227: j --> main226 +main226: j --> main152 +main152: li $a0, 1129 --> main151 +main151: move $v0, $gp --> main426 +main426: j --> main181 +main181: lw $a0, 0($v0) --> main150 +main150: li $a0, 60034 --> main149 +main149: move $v0, $gp --> main424 +main424: j --> main179 +main179: lw $a0, 4($v0) --> main148 +main148: li $a0, 64720 --> main147 +main147: move $v0, $gp --> main423 +main423: j --> main178 +main178: lw $a0, 8($v0) --> main146 +main146: li $a0, 5595 --> main145 +main145: move $v0, $gp --> main422 +main422: j --> main177 +main177: lw $a0, 12($v0) --> main144 +main144: li $a0, 494 --> main143 +main143: move $v0, $gp --> main421 +main421: j --> main176 +main176: lw $a0, 16($v0) --> main142 +main142: li $a0, 59867 --> main141 +main141: move $v0, $gp --> main420 +main420: j --> main175 +main175: lw $a0, 20($v0) --> main140 +main140: li $a0, 65370 --> main139 +main139: move $v0, $gp --> main419 +main419: j --> main174 +main174: lw $a0, 24($v0) --> main138 +main138: li $a0, 5724 --> main137 +main137: move $v0, $gp --> main418 +main418: j --> main173 +main173: lw $a0, 28($v0) --> main136 +main136: li $a0, 5724 --> main135 +main135: move $v0, $gp --> main417 +main417: j --> main172 +main172: lw $a0, 32($v0) --> main134 +main134: li $a0, 65370 --> main133 +main133: move $v0, $gp --> main416 +main416: j --> main171 +main171: lw $a0, 36($v0) --> main132 +main132: li $a0, 59867 --> main131 +main131: move $v0, $gp --> main415 +main415: j --> main170 +main170: lw $a0, 40($v0) --> main130 +main130: li $a0, 494 --> main129 +main129: move $v0, $gp --> main413 +main413: j --> main168 +main168: lw $a0, 44($v0) --> main128 +main128: li $a0, 5595 --> main127 +main127: move $v0, $gp --> main412 +main412: j --> main167 +main167: lw $a0, 48($v0) --> main126 +main126: li $a0, 64720 --> main125 +main125: move $v0, $gp --> main411 +main411: j --> main166 +main166: lw $a0, 52($v0) --> main124 +main124: li $a0, 60034 --> main123 +main123: move $v0, $gp --> main410 +main410: j --> main165 +main165: lw $a0, 56($v0) --> main122 +main122: li $a0, 1129 --> main121 +main121: move $v0, $gp --> main409 +main409: j --> main164 +main164: lw $a0, 60($v0) --> main120 +main120: li $a0, 1 --> main119 +main119: move $v0, $gp --> main408 +main408: j --> main163 +main163: lw $a0, 64($v0) --> main118 +main118: j --> main117 +main117: move $v0, $gp --> main407 +main407: j --> main162 +main162: lw $zero, 68($v0) --> main116 +main116: li $a0, 16384 --> main115 +main115: move $v0, $gp --> main406 +main406: j --> main161 +main161: lw $a0, 72($v0) --> main114 +main114: j --> main113 +main113: move $v0, $gp --> main405 +main405: j --> main160 +main160: lw $zero, 76($v0) --> main112 +main112: j --> main111 +main111: move $v0, $gp --> main404 +main404: j --> main159 +main159: lw $zero, 80($v0) --> main110 +main110: j --> main109 +main109: move $v0, $gp --> main402 +main402: j --> main157 +main157: lw $zero, 84($v0) --> main108 +main108: j --> main107 +main107: move $v0, $gp --> main401 +main401: j --> main156 +main156: lw $zero, 88($v0) --> main106 +main106: j --> main105 +main105: move $v0, $gp --> main400 +main400: j --> main155 +main155: lw $zero, 92($v0) --> main104 +main104: j --> main103 +main103: move $v0, $gp --> main399 +main399: j --> main154 +main154: lw $zero, 96($v0) --> main102 +main102: j --> main101 +main101: move $v0, $gp --> main398 +main398: j --> main153 +main153: lw $zero, 100($v0) --> main100 +main100: j --> main99 +main99 : move $v0, $gp --> main478 +main478: j --> main225 +main225: lw $zero, 104($v0) --> main98 +main98 : j --> main97 +main97 : move $v0, $gp --> main477 +main477: j --> main224 +main224: lw $zero, 108($v0) --> main96 +main96 : j --> main95 +main95 : move $v0, $gp --> main476 +main476: j --> main223 +main223: lw $zero, 112($v0) --> main94 +main94 : j --> main93 +main93 : move $v0, $gp --> main475 +main475: j --> main222 +main222: lw $zero, 116($v0) --> main92 +main92 : j --> main91 +main91 : move $v0, $gp --> main474 +main474: j --> main221 +main221: lw $zero, 120($v0) --> main90 +main90 : j --> main89 +main89 : move $v0, $gp --> main472 +main472: j --> main219 +main219: lw $zero, 124($v0) --> main88 +main88 : j --> main87 +main87 : move $v0, $gp --> main471 +main471: j --> main218 +main218: lw $zero, 128($v0) --> main86 +main86 : j --> main85 +main85 : move $v0, $gp --> main470 +main470: j --> main217 +main217: lw $zero, 132($v0) --> main84 +main84 : j --> main83 +main83 : move $v0, $gp --> main469 +main469: j --> main216 +main216: lw $zero, 136($v0) --> main82 +main82 : j --> main81 +main81 : move $v0, $gp --> main468 +main468: j --> main215 +main215: lw $zero, 140($v0) --> main80 +main80 : j --> main79 +main79 : move $v0, $gp --> main467 +main467: j --> main214 +main214: lw $zero, 144($v0) --> main78 +main78 : j --> main77 +main77 : move $v0, $gp --> main466 +main466: j --> main213 +main213: lw $zero, 148($v0) --> main76 +main76 : j --> main75 +main75 : move $v0, $gp --> main465 +main465: j --> main212 +main212: lw $zero, 152($v0) --> main74 +main74 : j --> main73 +main73 : move $v0, $gp --> main464 +main464: j --> main211 +main211: lw $zero, 156($v0) --> main72 +main72 : j --> main71 +main71 : move $v0, $gp --> main463 +main463: j --> main210 +main210: lw $zero, 160($v0) --> main70 +main70 : li $a0, 7986 --> main69 +main69 : move $v0, $gp --> main461 +main461: j --> main209 +main209: lw $a0, 164($v0) --> main68 +main68 : li $a0, 8993 --> main67 +main67 : move $v0, $gp --> main460 +main460: j --> main208 +main208: lw $a0, 168($v0) --> main66 +main66 : li $a0, 1808 --> main65 +main65 : move $v0, $gp --> main459 +main459: j --> main207 +main207: lw $a0, 172($v0) --> main64 +main64 : li $a0, 4096 --> main63 +main63 : move $v0, $gp --> main458 +main458: j --> main206 +main206: lw $a0, 176($v0) --> main62 +main62 : li $a0, 4096 --> main61 +main61 : move $v0, $gp --> main457 +main457: j --> main205 +main205: lw $a0, 180($v0) --> main60 +main60 : li $a0, 4096 --> main59 +main59 : move $v0, $gp --> main455 +main455: j --> main204 +main204: lw $a0, 184($v0) --> main58 +main58 : li $a0, 4096 --> main57 +main57 : move $v0, $gp --> main454 +main454: j --> main203 +main203: lw $a0, 188($v0) --> main56 +main56 : li $a0, 4096 --> main55 +main55 : move $v0, $gp --> main453 +main453: j --> main202 +main202: lw $a0, 192($v0) --> main54 +main54 : li $a0, 4096 --> main53 +main53 : move $v0, $gp --> main452 +main452: j --> main201 +main201: lw $a0, 196($v0) --> main52 +main52 : li $a0, 4096 --> main51 +main51 : move $v0, $gp --> main451 +main451: j --> main200 +main200: lw $a0, 200($v0) --> main50 +main50 : li $a0, 4096 --> main49 +main49 : move $v0, $gp --> main449 +main449: j --> main199 +main199: lw $a0, 204($v0) --> main48 +main48 : li $a0, 4096 --> main47 +main47 : move $v0, $gp --> main448 +main448: j --> main198 +main198: lw $a0, 208($v0) --> main46 +main46 : li $a0, 4096 --> main45 +main45 : move $v0, $gp --> main447 +main447: j --> main197 +main197: lw $a0, 212($v0) --> main44 +main44 : li $a0, 4096 --> main43 +main43 : move $v0, $gp --> main446 +main446: j --> main196 +main196: lw $a0, 216($v0) --> main42 +main42 : li $a0, 4096 --> main41 +main41 : move $v0, $gp --> main445 +main445: j --> main195 +main195: lw $a0, 220($v0) --> main40 +main40 : li $a0, 4096 --> main39 +main39 : move $v0, $gp --> main444 +main444: j --> main194 +main194: lw $a0, 224($v0) --> main38 +main38 : li $a0, 4096 --> main37 +main37 : move $v0, $gp --> main443 +main443: j --> main193 +main193: lw $a0, 228($v0) --> main36 +main36 : li $a0, 4096 --> main35 +main35 : move $v0, $gp --> main442 +main442: j --> main192 +main192: lw $a0, 232($v0) --> main34 +main34 : li $a0, 4096 --> main33 +main33 : move $v0, $gp --> main441 +main441: j --> main191 +main191: lw $a0, 236($v0) --> main32 +main32 : li $a0, 4096 --> main31 +main31 : move $v0, $gp --> main440 +main440: j --> main190 +main190: lw $a0, 240($v0) --> main30 +main30 : li $a0, 4096 --> main29 +main29 : move $v0, $gp --> main439 +main439: j --> main188 +main188: lw $a0, 244($v0) --> main28 +main28 : li $a0, 4096 --> main27 +main27 : move $v0, $gp --> main438 +main438: j --> main187 +main187: lw $a0, 248($v0) --> main26 +main26 : li $a0, 4096 --> main25 +main25 : move $v0, $gp --> main437 +main437: j --> main186 +main186: lw $a0, 252($v0) --> main24 +main24 : li $a0, 4096 --> main23 +main23 : move $v0, $gp --> main436 +main436: j --> main185 +main185: lw $a0, 256($v0) --> main22 +main22 : li $a0, 4096 --> main21 +main21 : move $v0, $gp --> main435 +main435: j --> main184 +main184: lw $a0, 260($v0) --> main20 +main20 : li $a0, 4096 --> main19 +main19 : move $v0, $gp --> main434 +main434: j --> main183 +main183: lw $a0, 264($v0) --> main18 +main18 : li $a0, 4096 --> main17 +main17 : move $v0, $gp --> main427 +main427: j --> main182 +main182: lw $a0, 268($v0) --> main16 +main16 : li $a0, 4096 --> main15 +main15 : move $v0, $gp --> main425 +main425: j --> main180 +main180: lw $a0, 272($v0) --> main14 +main14 : li $a0, 4096 --> main13 +main13 : move $v0, $gp --> main414 +main414: j --> main169 +main169: lw $a0, 276($v0) --> main12 +main12 : li $a0, 4096 --> main11 +main11 : move $v0, $gp --> main403 +main403: j --> main158 +main158: lw $a0, 280($v0) --> main10 +main10 : li $a0, 4096 --> main9 +main9 : move $v0, $gp --> main473 +main473: j --> main220 +main220: lw $a0, 284($v0) --> main8 +main8 : emit c27 --> main7 +main7 : move $a0, $gp --> main462 +main462: addi $a0, $a0, 64 --> main6 +main6 : move $a1, $gp --> main456 +main456: j --> main5 +main5 : move $a2, $sp --> main450 +main450: j --> main4 +main4 : li $a3, 16 --> main3 +main3 : la $v0, fir4 --> main189 +main189: j --> main433 +main433: j --> main432 +main432: j --> main431 +main431: j --> main430 +main430: j --> main429 +main429: call $v0 --> main428 +main428: j --> main2 +main2 : emit c26 --> main1 +main1 : j --> main0 +main0 : j --> main397 +main397: j --> main396 +main396: lw $ra, 64($sp) --> main395 +main395: j --> main394 +main394: j --> main393 +main393: j --> main392 +main392: j --> main391 +main391: j --> main390 +main390: j --> main389 +main389: j --> main388 +main388: j --> main387 +main387: delframe --> main386 +main386: jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/fir4.RTL.expected b/tests/clight/fir4.RTL.expected new file mode 100644 index 0000000..5d68fba --- /dev/null +++ b/tests/clight/fir4.RTL.expected @@ -0,0 +1,1090 @@ +program + +globals 288 + +function fir4(%0; %1; %2; %3) : %12 +stacksize 64 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106, %107, %108, %109, %110, %111, + %112, %113, %114, %115 +entry fir4266 +fir4266: li %4, 0 --> fir4265 +fir4265: li %5, 0 --> fir4264 +fir4264: li %6, 0 --> fir4263 +fir4263: li %7, 0 --> fir4262 +fir4262: li %8, 0 --> fir4261 +fir4261: li %9, 0 --> fir4260 +fir4260: li %10, 0 --> fir4259 +fir4259: li %11, 0 --> fir4258 +fir4258: li %13, 0 --> fir4257 +fir4257: li %14, 0 --> fir4256 +fir4256: li %15, 0 --> fir4255 +fir4255: li %16, 0 --> fir4254 +fir4254: li %17, 0 --> fir4253 +fir4253: li %18, 0 --> fir4252 +fir4252: li %19, 0 --> fir4251 +fir4251: li %20, 0 --> fir4250 +fir4250: li %21, 0 --> fir4249 +fir4249: li %22, 0 --> fir4248 +fir4248: li %23, 0 --> fir4247 +fir4247: li %24, 0 --> fir4246 +fir4246: li %25, 0 --> fir4245 +fir4245: li %26, 0 --> fir4244 +fir4244: li %27, 0 --> fir4243 +fir4243: li %28, 0 --> fir4242 +fir4242: li %29, 0 --> fir4241 +fir4241: li %30, 0 --> fir4240 +fir4240: li %31, 0 --> fir4239 +fir4239: li %32, 0 --> fir4238 +fir4238: li %33, 0 --> fir4237 +fir4237: li %34, 0 --> fir4236 +fir4236: li %35, 0 --> fir4235 +fir4235: li %36, 0 --> fir4234 +fir4234: li %37, 0 --> fir4233 +fir4233: li %38, 0 --> fir4232 +fir4232: li %39, 0 --> fir4231 +fir4231: li %40, 0 --> fir4230 +fir4230: li %41, 0 --> fir4229 +fir4229: li %42, 0 --> fir4228 +fir4228: li %43, 0 --> fir4227 +fir4227: li %44, 0 --> fir4226 +fir4226: li %45, 0 --> fir4225 +fir4225: li %46, 0 --> fir4224 +fir4224: li %47, 0 --> fir4223 +fir4223: li %48, 0 --> fir4222 +fir4222: li %49, 0 --> fir4221 +fir4221: li %50, 0 --> fir4220 +fir4220: li %51, 0 --> fir4219 +fir4219: li %52, 0 --> fir4218 +fir4218: li %53, 0 --> fir4217 +fir4217: li %54, 0 --> fir4216 +fir4216: li %55, 0 --> fir4215 +fir4215: li %56, 0 --> fir4214 +fir4214: li %57, 0 --> fir4213 +fir4213: li %58, 0 --> fir4212 +fir4212: li %59, 0 --> fir4211 +fir4211: li %60, 0 --> fir4210 +fir4210: li %61, 0 --> fir4209 +fir4209: li %62, 0 --> fir4208 +fir4208: li %63, 0 --> fir4207 +fir4207: li %64, 0 --> fir4206 +fir4206: li %65, 0 --> fir4205 +fir4205: li %66, 0 --> fir4204 +fir4204: li %67, 0 --> fir4203 +fir4203: li %68, 0 --> fir4202 +fir4202: li %69, 0 --> fir4201 +fir4201: li %70, 0 --> fir4200 +fir4200: li %71, 0 --> fir4199 +fir4199: li %72, 0 --> fir4198 +fir4198: li %73, 0 --> fir4197 +fir4197: li %74, 0 --> fir4196 +fir4196: li %75, 0 --> fir4195 +fir4195: li %76, 0 --> fir4194 +fir4194: li %77, 0 --> fir4193 +fir4193: li %78, 0 --> fir4192 +fir4192: li %79, 0 --> fir4191 +fir4191: li %80, 0 --> fir4190 +fir4190: li %81, 0 --> fir4189 +fir4189: li %82, 0 --> fir4188 +fir4188: li %83, 0 --> fir4187 +fir4187: li %84, 0 --> fir4186 +fir4186: li %85, 0 --> fir4185 +fir4185: li %86, 0 --> fir4184 +fir4184: li %87, 0 --> fir4183 +fir4183: li %88, 0 --> fir4182 +fir4182: li %89, 0 --> fir4181 +fir4181: li %90, 0 --> fir4180 +fir4180: li %91, 0 --> fir4179 +fir4179: li %92, 0 --> fir4178 +fir4178: li %93, 0 --> fir4177 +fir4177: li %94, 0 --> fir4176 +fir4176: li %95, 0 --> fir4175 +fir4175: li %96, 0 --> fir4174 +fir4174: li %97, 0 --> fir4173 +fir4173: li %98, 0 --> fir4172 +fir4172: li %99, 0 --> fir4171 +fir4171: li %100, 0 --> fir4170 +fir4170: li %101, 0 --> fir4169 +fir4169: li %102, 0 --> fir4168 +fir4168: li %103, 0 --> fir4167 +fir4167: li %104, 0 --> fir4166 +fir4166: li %105, 0 --> fir4165 +fir4165: li %106, 0 --> fir4164 +fir4164: li %107, 0 --> fir4163 +fir4163: li %108, 0 --> fir4162 +fir4162: li %109, 0 --> fir4161 +fir4161: li %110, 0 --> fir4160 +fir4160: li %111, 0 --> fir4159 +fir4159: li %112, 0 --> fir4158 +fir4158: li %113, 0 --> fir4157 +fir4157: li %114, 0 --> fir4156 +fir4156: li %115, 0 --> fir4135 +fir4135: emit c25 --> fir4134 +fir4134: li %11, 0 --> fir4133 +fir4133: emit c24 --> fir4132 +fir4132: li %4, 0 --> fir4131 +fir4131: emit c23 --> fir4130 +fir4130: emit c22 --> fir4129 +fir4129: li %6, 0 --> fir4113 +fir4113: j --> fir4128 +fir4128: li %93, 0 --> fir4127 +fir4127: emit c21 --> fir4126 +fir4126: li %95, 16 --> fir4125 +fir4125: slt %94, %6, %95 --> fir4124 +fir4124: li %99, 0 --> fir4139 +fir4139: seq %92, %94, %99 --> fir4123 +fir4123: beq %92, %93 --> fir4122, fir4112 +fir4112: emit c18 --> fir4111 +fir4111: emit c17 --> fir4110 +fir4110: li %5, 0 --> fir43 +fir43 : j --> fir4109 +fir4109: li %85, 0 --> fir4108 +fir4108: emit c16 --> fir4107 +fir4107: slt %86, %5, %3 --> fir4106 +fir4106: li %97, 0 --> fir4137 +fir4137: seq %84, %86, %97 --> fir4105 +fir4105: beq %84, %85 --> fir4104, fir42 +fir42 : emit c0 --> fir41 +fir41 : li %12, 0 --> fir40 +fir40 : return %12 +fir4104: emit c14 --> fir4103 +fir4103: li %83, 4 --> fir4102 +fir4102: mulo %82, %5, %83 --> fir4101 +fir4101: add %96, %0, %82 --> fir4136 +fir4136: lw %78, 0(%96) --> fir4100 +fir4100: addi %79, STACK, 0 --> fir499 +fir499 : li %81, 4 --> fir498 +fir498 : mulo %80, %11, %81 --> fir497 +fir497 : add %115, %79, %80 --> fir4155 +fir4155: sw %78, 0(%115) --> fir496 +fir496 : emit c13 --> fir495 +fir495 : li %4, 0 --> fir494 +fir494 : emit c12 --> fir493 +fir493 : emit c11 --> fir492 +fir492 : li %6, 0 --> fir418 +fir418 : j --> fir491 +fir491 : li %75, 0 --> fir490 +fir490 : emit c10 --> fir489 +fir489 : li %77, 16 --> fir488 +fir488 : slt %76, %6, %77 --> fir487 +fir487 : li %114, 0 --> fir4154 +fir4154: seq %74, %76, %114 --> fir486 +fir486 : beq %74, %75 --> fir485, fir417 +fir417 : emit c2 --> fir416 +fir416 : li %20, 1 --> fir415 +fir415 : add %18, %11, %20 --> fir414 +fir414 : li %19, 16 --> fir413 +fir413 : la %100, mod --> fir4140 +fir4140: call %11, %100(%18, %19) --> fir412 +fir412 : emit c1 --> fir411 +fir411 : li %17, 16 --> fir410 +fir410 : srav %14, %4, %17 --> fir49 +fir49 : li %16, 4 --> fir48 +fir48 : mulo %15, %5, %16 --> fir47 +fir47 : add %110, %2, %15 --> fir4150 +fir4150: sw %14, 0(%110) --> fir46 +fir46 : emit c15 --> fir45 +fir45 : li %13, 1 --> fir44 +fir44 : add %5, %5, %13 --> fir43 +fir485 : emit c8 --> fir484 +fir484 : addi %71, STACK, 0 --> fir483 +fir483 : li %73, 4 --> fir482 +fir482 : mulo %72, %11, %73 --> fir481 +fir481 : add %113, %71, %72 --> fir4153 +fir4153: lw %67, 0(%113) --> fir480 +fir480 : li %70, 4 --> fir479 +fir479 : mulo %69, %6, %70 --> fir478 +fir478 : add %112, %1, %69 --> fir4152 +fir4152: lw %68, 0(%112) --> fir477 +fir477 : mulo %10, %67, %68 --> fir476 +fir476 : emit c7 --> fir475 +fir475 : addi %60, STACK, 0 --> fir474 +fir474 : li %66, 1 --> fir473 +fir473 : add %64, %11, %66 --> fir472 +fir472 : li %65, 16 --> fir471 +fir471 : la %111, mod --> fir4151 +fir4151: call %62, %111(%64, %65) --> fir470 +fir470 : li %63, 4 --> fir469 +fir469 : mulo %61, %62, %63 --> fir468 +fir468 : add %109, %60, %61 --> fir4149 +fir4149: lw %54, 0(%109) --> fir467 +fir467 : li %59, 1 --> fir466 +fir466 : add %57, %6, %59 --> fir465 +fir465 : li %58, 4 --> fir464 +fir464 : mulo %56, %57, %58 --> fir463 +fir463 : add %108, %1, %56 --> fir4148 +fir4148: lw %55, 0(%108) --> fir462 +fir462 : mulo %9, %54, %55 --> fir461 +fir461 : emit c6 --> fir460 +fir460 : addi %47, STACK, 0 --> fir459 +fir459 : li %53, 2 --> fir458 +fir458 : add %51, %11, %53 --> fir457 +fir457 : li %52, 16 --> fir456 +fir456 : la %107, mod --> fir4147 +fir4147: call %49, %107(%51, %52) --> fir455 +fir455 : li %50, 4 --> fir454 +fir454 : mulo %48, %49, %50 --> fir453 +fir453 : add %106, %47, %48 --> fir4146 +fir4146: lw %41, 0(%106) --> fir452 +fir452 : li %46, 2 --> fir451 +fir451 : add %44, %6, %46 --> fir450 +fir450 : li %45, 4 --> fir449 +fir449 : mulo %43, %44, %45 --> fir448 +fir448 : add %105, %1, %43 --> fir4145 +fir4145: lw %42, 0(%105) --> fir447 +fir447 : mulo %8, %41, %42 --> fir446 +fir446 : emit c5 --> fir445 +fir445 : addi %34, STACK, 0 --> fir444 +fir444 : li %40, 3 --> fir443 +fir443 : add %38, %11, %40 --> fir442 +fir442 : li %39, 16 --> fir441 +fir441 : la %104, mod --> fir4144 +fir4144: call %36, %104(%38, %39) --> fir440 +fir440 : li %37, 4 --> fir439 +fir439 : mulo %35, %36, %37 --> fir438 +fir438 : add %103, %34, %35 --> fir4143 +fir4143: lw %28, 0(%103) --> fir437 +fir437 : li %33, 3 --> fir436 +fir436 : add %31, %6, %33 --> fir435 +fir435 : li %32, 4 --> fir434 +fir434 : mulo %30, %31, %32 --> fir433 +fir433 : add %102, %1, %30 --> fir4142 +fir4142: lw %29, 0(%102) --> fir432 +fir432 : mulo %7, %28, %29 --> fir431 +fir431 : emit c4 --> fir430 +fir430 : add %27, %4, %10 --> fir429 +fir429 : add %26, %27, %9 --> fir428 +fir428 : add %25, %26, %8 --> fir427 +fir427 : add %4, %25, %7 --> fir426 +fir426 : emit c3 --> fir425 +fir425 : li %24, 4 --> fir424 +fir424 : add %22, %11, %24 --> fir423 +fir423 : li %23, 16 --> fir422 +fir422 : la %101, mod --> fir4141 +fir4141: call %11, %101(%22, %23) --> fir421 +fir421 : emit c9 --> fir420 +fir420 : li %21, 4 --> fir419 +fir419 : add %6, %6, %21 --> fir418 +fir4122: emit c19 --> fir4121 +fir4121: li %88, 0 --> fir4120 +fir4120: addi %89, STACK, 0 --> fir4119 +fir4119: li %91, 4 --> fir4118 +fir4118: mulo %90, %6, %91 --> fir4117 +fir4117: add %98, %89, %90 --> fir4138 +fir4138: sw %88, 0(%98) --> fir4116 +fir4116: emit c20 --> fir4115 +fir4115: li %87, 1 --> fir4114 +fir4114: add %6, %6, %87 --> fir4113 + +function _main() : %1 +stacksize 64 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106, %107, %108, %109, %110, %111, + %112, %113, %114, %115, %116, %117, %118, + %119, %120, %121, %122, %123, %124, %125, + %126, %127, %128, %129, %130, %131, %132, + %133, %134, %135, %136, %137, %138, %139, + %140, %141, %142, %143, %144, %145, %146, + %147, %148, %149, %150 +entry main375 +main375: li %0, 0 --> main374 +main374: li %2, 0 --> main373 +main373: li %3, 0 --> main372 +main372: li %4, 0 --> main371 +main371: li %5, 0 --> main370 +main370: li %6, 0 --> main369 +main369: li %7, 0 --> main368 +main368: li %8, 0 --> main367 +main367: li %9, 0 --> main366 +main366: li %10, 0 --> main365 +main365: li %11, 0 --> main364 +main364: li %12, 0 --> main363 +main363: li %13, 0 --> main362 +main362: li %14, 0 --> main361 +main361: li %15, 0 --> main360 +main360: li %16, 0 --> main359 +main359: li %17, 0 --> main358 +main358: li %18, 0 --> main357 +main357: li %19, 0 --> main356 +main356: li %20, 0 --> main355 +main355: li %21, 0 --> main354 +main354: li %22, 0 --> main353 +main353: li %23, 0 --> main352 +main352: li %24, 0 --> main351 +main351: li %25, 0 --> main350 +main350: li %26, 0 --> main349 +main349: li %27, 0 --> main348 +main348: li %28, 0 --> main347 +main347: li %29, 0 --> main346 +main346: li %30, 0 --> main345 +main345: li %31, 0 --> main344 +main344: li %32, 0 --> main343 +main343: li %33, 0 --> main342 +main342: li %34, 0 --> main341 +main341: li %35, 0 --> main340 +main340: li %36, 0 --> main339 +main339: li %37, 0 --> main338 +main338: li %38, 0 --> main337 +main337: li %39, 0 --> main336 +main336: li %40, 0 --> main335 +main335: li %41, 0 --> main334 +main334: li %42, 0 --> main333 +main333: li %43, 0 --> main332 +main332: li %44, 0 --> main331 +main331: li %45, 0 --> main330 +main330: li %46, 0 --> main329 +main329: li %47, 0 --> main328 +main328: li %48, 0 --> main327 +main327: li %49, 0 --> main326 +main326: li %50, 0 --> main325 +main325: li %51, 0 --> main324 +main324: li %52, 0 --> main323 +main323: li %53, 0 --> main322 +main322: li %54, 0 --> main321 +main321: li %55, 0 --> main320 +main320: li %56, 0 --> main319 +main319: li %57, 0 --> main318 +main318: li %58, 0 --> main317 +main317: li %59, 0 --> main316 +main316: li %60, 0 --> main315 +main315: li %61, 0 --> main314 +main314: li %62, 0 --> main313 +main313: li %63, 0 --> main312 +main312: li %64, 0 --> main311 +main311: li %65, 0 --> main310 +main310: li %66, 0 --> main309 +main309: li %67, 0 --> main308 +main308: li %68, 0 --> main307 +main307: li %69, 0 --> main306 +main306: li %70, 0 --> main305 +main305: li %71, 0 --> main304 +main304: li %72, 0 --> main303 +main303: li %73, 0 --> main302 +main302: li %74, 0 --> main301 +main301: li %75, 0 --> main300 +main300: li %76, 0 --> main299 +main299: li %77, 0 --> main298 +main298: li %78, 0 --> main297 +main297: li %79, 0 --> main296 +main296: li %80, 0 --> main295 +main295: li %81, 0 --> main294 +main294: li %82, 0 --> main293 +main293: li %83, 0 --> main292 +main292: li %84, 0 --> main291 +main291: li %85, 0 --> main290 +main290: li %86, 0 --> main289 +main289: li %87, 0 --> main288 +main288: li %88, 0 --> main287 +main287: li %89, 0 --> main286 +main286: li %90, 0 --> main285 +main285: li %91, 0 --> main284 +main284: li %92, 0 --> main283 +main283: li %93, 0 --> main282 +main282: li %94, 0 --> main281 +main281: li %95, 0 --> main280 +main280: li %96, 0 --> main279 +main279: li %97, 0 --> main278 +main278: li %98, 0 --> main277 +main277: li %99, 0 --> main276 +main276: li %100, 0 --> main275 +main275: li %101, 0 --> main274 +main274: li %102, 0 --> main273 +main273: li %103, 0 --> main272 +main272: li %104, 0 --> main271 +main271: li %105, 0 --> main270 +main270: li %106, 0 --> main269 +main269: li %107, 0 --> main268 +main268: li %108, 0 --> main267 +main267: li %109, 0 --> main266 +main266: li %110, 0 --> main265 +main265: li %111, 0 --> main264 +main264: li %112, 0 --> main263 +main263: li %113, 0 --> main262 +main262: li %114, 0 --> main261 +main261: li %115, 0 --> main260 +main260: li %116, 0 --> main259 +main259: li %117, 0 --> main258 +main258: li %118, 0 --> main257 +main257: li %119, 0 --> main256 +main256: li %120, 0 --> main255 +main255: li %121, 0 --> main254 +main254: li %122, 0 --> main253 +main253: li %123, 0 --> main252 +main252: li %124, 0 --> main251 +main251: li %125, 0 --> main250 +main250: li %126, 0 --> main249 +main249: li %127, 0 --> main248 +main248: li %128, 0 --> main247 +main247: li %129, 0 --> main246 +main246: li %130, 0 --> main245 +main245: li %131, 0 --> main244 +main244: li %132, 0 --> main243 +main243: li %133, 0 --> main242 +main242: li %134, 0 --> main241 +main241: li %135, 0 --> main240 +main240: li %136, 0 --> main239 +main239: li %137, 0 --> main238 +main238: li %138, 0 --> main237 +main237: li %139, 0 --> main236 +main236: li %140, 0 --> main235 +main235: li %141, 0 --> main234 +main234: li %142, 0 --> main233 +main233: li %143, 0 --> main232 +main232: li %144, 0 --> main231 +main231: li %145, 0 --> main230 +main230: li %146, 0 --> main229 +main229: li %147, 0 --> main228 +main228: li %148, 0 --> main227 +main227: li %149, 0 --> main226 +main226: li %150, 0 --> main152 +main152: li %77, 1129 --> main151 +main151: addi %106, GLOBALS, 0 --> main181 +main181: sw %77, 0(%106) --> main150 +main150: li %76, 60034 --> main149 +main149: addi %104, GLOBALS, 0 --> main179 +main179: sw %76, 4(%104) --> main148 +main148: li %75, 64720 --> main147 +main147: addi %103, GLOBALS, 0 --> main178 +main178: sw %75, 8(%103) --> main146 +main146: li %74, 5595 --> main145 +main145: addi %102, GLOBALS, 0 --> main177 +main177: sw %74, 12(%102) --> main144 +main144: li %73, 494 --> main143 +main143: addi %101, GLOBALS, 0 --> main176 +main176: sw %73, 16(%101) --> main142 +main142: li %72, 59867 --> main141 +main141: addi %100, GLOBALS, 0 --> main175 +main175: sw %72, 20(%100) --> main140 +main140: li %71, 65370 --> main139 +main139: addi %99, GLOBALS, 0 --> main174 +main174: sw %71, 24(%99) --> main138 +main138: li %70, 5724 --> main137 +main137: addi %98, GLOBALS, 0 --> main173 +main173: sw %70, 28(%98) --> main136 +main136: li %69, 5724 --> main135 +main135: addi %97, GLOBALS, 0 --> main172 +main172: sw %69, 32(%97) --> main134 +main134: li %68, 65370 --> main133 +main133: addi %96, GLOBALS, 0 --> main171 +main171: sw %68, 36(%96) --> main132 +main132: li %67, 59867 --> main131 +main131: addi %95, GLOBALS, 0 --> main170 +main170: sw %67, 40(%95) --> main130 +main130: li %66, 494 --> main129 +main129: addi %93, GLOBALS, 0 --> main168 +main168: sw %66, 44(%93) --> main128 +main128: li %65, 5595 --> main127 +main127: addi %92, GLOBALS, 0 --> main167 +main167: sw %65, 48(%92) --> main126 +main126: li %64, 64720 --> main125 +main125: addi %91, GLOBALS, 0 --> main166 +main166: sw %64, 52(%91) --> main124 +main124: li %63, 60034 --> main123 +main123: addi %90, GLOBALS, 0 --> main165 +main165: sw %63, 56(%90) --> main122 +main122: li %62, 1129 --> main121 +main121: addi %89, GLOBALS, 0 --> main164 +main164: sw %62, 60(%89) --> main120 +main120: li %61, 1 --> main119 +main119: addi %88, GLOBALS, 0 --> main163 +main163: sw %61, 64(%88) --> main118 +main118: li %60, 0 --> main117 +main117: addi %87, GLOBALS, 0 --> main162 +main162: sw %60, 68(%87) --> main116 +main116: li %59, 16384 --> main115 +main115: addi %86, GLOBALS, 0 --> main161 +main161: sw %59, 72(%86) --> main114 +main114: li %58, 0 --> main113 +main113: addi %85, GLOBALS, 0 --> main160 +main160: sw %58, 76(%85) --> main112 +main112: li %57, 0 --> main111 +main111: addi %84, GLOBALS, 0 --> main159 +main159: sw %57, 80(%84) --> main110 +main110: li %56, 0 --> main109 +main109: addi %82, GLOBALS, 0 --> main157 +main157: sw %56, 84(%82) --> main108 +main108: li %55, 0 --> main107 +main107: addi %81, GLOBALS, 0 --> main156 +main156: sw %55, 88(%81) --> main106 +main106: li %54, 0 --> main105 +main105: addi %80, GLOBALS, 0 --> main155 +main155: sw %54, 92(%80) --> main104 +main104: li %53, 0 --> main103 +main103: addi %79, GLOBALS, 0 --> main154 +main154: sw %53, 96(%79) --> main102 +main102: li %52, 0 --> main101 +main101: addi %78, GLOBALS, 0 --> main153 +main153: sw %52, 100(%78) --> main100 +main100: li %51, 0 --> main99 +main99 : addi %150, GLOBALS, 0 --> main225 +main225: sw %51, 104(%150) --> main98 +main98 : li %50, 0 --> main97 +main97 : addi %149, GLOBALS, 0 --> main224 +main224: sw %50, 108(%149) --> main96 +main96 : li %49, 0 --> main95 +main95 : addi %148, GLOBALS, 0 --> main223 +main223: sw %49, 112(%148) --> main94 +main94 : li %48, 0 --> main93 +main93 : addi %147, GLOBALS, 0 --> main222 +main222: sw %48, 116(%147) --> main92 +main92 : li %47, 0 --> main91 +main91 : addi %146, GLOBALS, 0 --> main221 +main221: sw %47, 120(%146) --> main90 +main90 : li %46, 0 --> main89 +main89 : addi %144, GLOBALS, 0 --> main219 +main219: sw %46, 124(%144) --> main88 +main88 : li %45, 0 --> main87 +main87 : addi %143, GLOBALS, 0 --> main218 +main218: sw %45, 128(%143) --> main86 +main86 : li %44, 0 --> main85 +main85 : addi %142, GLOBALS, 0 --> main217 +main217: sw %44, 132(%142) --> main84 +main84 : li %43, 0 --> main83 +main83 : addi %141, GLOBALS, 0 --> main216 +main216: sw %43, 136(%141) --> main82 +main82 : li %42, 0 --> main81 +main81 : addi %140, GLOBALS, 0 --> main215 +main215: sw %42, 140(%140) --> main80 +main80 : li %41, 0 --> main79 +main79 : addi %139, GLOBALS, 0 --> main214 +main214: sw %41, 144(%139) --> main78 +main78 : li %40, 0 --> main77 +main77 : addi %138, GLOBALS, 0 --> main213 +main213: sw %40, 148(%138) --> main76 +main76 : li %39, 0 --> main75 +main75 : addi %137, GLOBALS, 0 --> main212 +main212: sw %39, 152(%137) --> main74 +main74 : li %38, 0 --> main73 +main73 : addi %136, GLOBALS, 0 --> main211 +main211: sw %38, 156(%136) --> main72 +main72 : li %37, 0 --> main71 +main71 : addi %135, GLOBALS, 0 --> main210 +main210: sw %37, 160(%135) --> main70 +main70 : li %36, 7986 --> main69 +main69 : addi %134, GLOBALS, 0 --> main209 +main209: sw %36, 164(%134) --> main68 +main68 : li %35, 8993 --> main67 +main67 : addi %133, GLOBALS, 0 --> main208 +main208: sw %35, 168(%133) --> main66 +main66 : li %34, 1808 --> main65 +main65 : addi %132, GLOBALS, 0 --> main207 +main207: sw %34, 172(%132) --> main64 +main64 : li %33, 4096 --> main63 +main63 : addi %131, GLOBALS, 0 --> main206 +main206: sw %33, 176(%131) --> main62 +main62 : li %32, 4096 --> main61 +main61 : addi %130, GLOBALS, 0 --> main205 +main205: sw %32, 180(%130) --> main60 +main60 : li %31, 4096 --> main59 +main59 : addi %129, GLOBALS, 0 --> main204 +main204: sw %31, 184(%129) --> main58 +main58 : li %30, 4096 --> main57 +main57 : addi %128, GLOBALS, 0 --> main203 +main203: sw %30, 188(%128) --> main56 +main56 : li %29, 4096 --> main55 +main55 : addi %127, GLOBALS, 0 --> main202 +main202: sw %29, 192(%127) --> main54 +main54 : li %28, 4096 --> main53 +main53 : addi %126, GLOBALS, 0 --> main201 +main201: sw %28, 196(%126) --> main52 +main52 : li %27, 4096 --> main51 +main51 : addi %125, GLOBALS, 0 --> main200 +main200: sw %27, 200(%125) --> main50 +main50 : li %26, 4096 --> main49 +main49 : addi %124, GLOBALS, 0 --> main199 +main199: sw %26, 204(%124) --> main48 +main48 : li %25, 4096 --> main47 +main47 : addi %123, GLOBALS, 0 --> main198 +main198: sw %25, 208(%123) --> main46 +main46 : li %24, 4096 --> main45 +main45 : addi %122, GLOBALS, 0 --> main197 +main197: sw %24, 212(%122) --> main44 +main44 : li %23, 4096 --> main43 +main43 : addi %121, GLOBALS, 0 --> main196 +main196: sw %23, 216(%121) --> main42 +main42 : li %22, 4096 --> main41 +main41 : addi %120, GLOBALS, 0 --> main195 +main195: sw %22, 220(%120) --> main40 +main40 : li %21, 4096 --> main39 +main39 : addi %119, GLOBALS, 0 --> main194 +main194: sw %21, 224(%119) --> main38 +main38 : li %20, 4096 --> main37 +main37 : addi %118, GLOBALS, 0 --> main193 +main193: sw %20, 228(%118) --> main36 +main36 : li %19, 4096 --> main35 +main35 : addi %117, GLOBALS, 0 --> main192 +main192: sw %19, 232(%117) --> main34 +main34 : li %18, 4096 --> main33 +main33 : addi %116, GLOBALS, 0 --> main191 +main191: sw %18, 236(%116) --> main32 +main32 : li %17, 4096 --> main31 +main31 : addi %115, GLOBALS, 0 --> main190 +main190: sw %17, 240(%115) --> main30 +main30 : li %16, 4096 --> main29 +main29 : addi %113, GLOBALS, 0 --> main188 +main188: sw %16, 244(%113) --> main28 +main28 : li %15, 4096 --> main27 +main27 : addi %112, GLOBALS, 0 --> main187 +main187: sw %15, 248(%112) --> main26 +main26 : li %14, 4096 --> main25 +main25 : addi %111, GLOBALS, 0 --> main186 +main186: sw %14, 252(%111) --> main24 +main24 : li %13, 4096 --> main23 +main23 : addi %110, GLOBALS, 0 --> main185 +main185: sw %13, 256(%110) --> main22 +main22 : li %12, 4096 --> main21 +main21 : addi %109, GLOBALS, 0 --> main184 +main184: sw %12, 260(%109) --> main20 +main20 : li %11, 4096 --> main19 +main19 : addi %108, GLOBALS, 0 --> main183 +main183: sw %11, 264(%108) --> main18 +main18 : li %10, 4096 --> main17 +main17 : addi %107, GLOBALS, 0 --> main182 +main182: sw %10, 268(%107) --> main16 +main16 : li %9, 4096 --> main15 +main15 : addi %105, GLOBALS, 0 --> main180 +main180: sw %9, 272(%105) --> main14 +main14 : li %8, 4096 --> main13 +main13 : addi %94, GLOBALS, 0 --> main169 +main169: sw %8, 276(%94) --> main12 +main12 : li %7, 4096 --> main11 +main11 : addi %83, GLOBALS, 0 --> main158 +main158: sw %7, 280(%83) --> main10 +main10 : li %6, 4096 --> main9 +main9 : addi %145, GLOBALS, 0 --> main220 +main220: sw %6, 284(%145) --> main8 +main8 : emit c27 --> main7 +main7 : addi %2, GLOBALS, 64 --> main6 +main6 : addi %3, GLOBALS, 0 --> main5 +main5 : addi %4, STACK, 0 --> main4 +main4 : li %5, 16 --> main3 +main3 : la %114, fir4 --> main189 +main189: call %0, %114(%2, %3, %4, %5) --> main2 +main2 : emit c26 --> main1 +main1 : move %1, %0 --> main0 +main0 : return %1 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/fir4.RTLabs.expected b/tests/clight/fir4.RTLabs.expected new file mode 100644 index 0000000..8e2806a --- /dev/null +++ b/tests/clight/fir4.RTLabs.expected @@ -0,0 +1,711 @@ +program: (main function is "main") + + + globals: + "fir4_c" = {1129, 60034, 64720, 5595, 494, 59867, 65370, 5724, 5724, 65370, 59867, 494, 5595, 64720, 60034, 1129} + "fir4_in" = {1, 0, 16384, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7986, 8993, 1808, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096} + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "fir4"(%0, %1, %2, %3): int -> int -> int -> int -> int + locals: %12, %4, %5, %6, %7, %8, %9, %10, %11, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45, %46, %47, %48, %49, %50, %51, %52, %53, %54, %55, %56, %57, %58, %59, %60, %61, %62, %63, %64, %65, %66, %67, %68, %69, %70, %71, %72, %73, %74, %75, %76, %77, %78, %79, %80, %81, %82, %83, %84, %85, %86, %87, %88, %89, %90, %91, %92, %93, %94, %95 + result: %12 + stacksize: 64 + entry: fir4135 + exit: fir40 + + fir499: imm_int 4, %81, --> fir498 + fir498: mul %80, %11, %81 --> fir497 + fir497: store int32, add, %79, %80, %78 --> fir496 + fir496: emit c13 --> fir495 + fir495: imm_int 0, %4, --> fir494 + fir494: emit c12 --> fir493 + fir493: emit c11 --> fir492 + fir492: imm_int 0, %6, --> fir418 + fir491: imm_int 0, %75, --> fir490 + fir490: emit c10 --> fir489 + fir49: imm_int 4, %16, --> fir48 + fir489: imm_int 16, %77, --> fir488 + fir488: lt %76, %6, %77 --> fir487 + fir487: notbool %74, %76 --> fir486 + fir486: eq %74, %75 --> fir485, fir417 + fir485: emit c8 --> fir484 + fir484: imm_addr 0($sp), %71, --> fir483 + fir483: imm_int 4, %73, --> fir482 + fir482: mul %72, %11, %73 --> fir481 + fir481: load int32, add, %71, %72, %67 --> fir480 + fir480: imm_int 4, %70, --> fir479 + fir48: mul %15, %5, %16 --> fir47 + fir479: mul %69, %6, %70 --> fir478 + fir478: load int32, add, %1, %69, %68 --> fir477 + fir477: mul %10, %67, %68 --> fir476 + fir476: emit c7 --> fir475 + fir475: imm_addr 0($sp), %60, --> fir474 + fir474: imm_int 1, %66, --> fir473 + fir473: add %64, %11, %66 --> fir472 + fir472: imm_int 16, %65, --> fir471 + fir471: mod %62, %64, %65 --> fir470 + fir470: imm_int 4, %63, --> fir469 + fir47: store int32, add, %2, %15, %14 --> fir46 + fir469: mul %61, %62, %63 --> fir468 + fir468: load int32, add, %60, %61, %54 --> fir467 + fir467: imm_int 1, %59, --> fir466 + fir466: add %57, %6, %59 --> fir465 + fir465: imm_int 4, %58, --> fir464 + fir464: mul %56, %57, %58 --> fir463 + fir463: load int32, add, %1, %56, %55 --> fir462 + fir462: mul %9, %54, %55 --> fir461 + fir461: emit c6 --> fir460 + fir460: imm_addr 0($sp), %47, --> fir459 + fir46: emit c15 --> fir45 + fir459: imm_int 2, %53, --> fir458 + fir458: add %51, %11, %53 --> fir457 + fir457: imm_int 16, %52, --> fir456 + fir456: mod %49, %51, %52 --> fir455 + fir455: imm_int 4, %50, --> fir454 + fir454: mul %48, %49, %50 --> fir453 + fir453: load int32, add, %47, %48, %41 --> fir452 + fir452: imm_int 2, %46, --> fir451 + fir451: add %44, %6, %46 --> fir450 + fir450: imm_int 4, %45, --> fir449 + fir45: imm_int 1, %13, --> fir44 + fir449: mul %43, %44, %45 --> fir448 + fir448: load int32, add, %1, %43, %42 --> fir447 + fir447: mul %8, %41, %42 --> fir446 + fir446: emit c5 --> fir445 + fir445: imm_addr 0($sp), %34, --> fir444 + fir444: imm_int 3, %40, --> fir443 + fir443: add %38, %11, %40 --> fir442 + fir442: imm_int 16, %39, --> fir441 + fir441: mod %36, %38, %39 --> fir440 + fir440: imm_int 4, %37, --> fir439 + fir44: add %5, %5, %13 --> fir43 + fir439: mul %35, %36, %37 --> fir438 + fir438: load int32, add, %34, %35, %28 --> fir437 + fir437: imm_int 3, %33, --> fir436 + fir436: add %31, %6, %33 --> fir435 + fir435: imm_int 4, %32, --> fir434 + fir434: mul %30, %31, %32 --> fir433 + fir433: load int32, add, %1, %30, %29 --> fir432 + fir432: mul %7, %28, %29 --> fir431 + fir431: emit c4 --> fir430 + fir430: add %27, %4, %10 --> fir429 + fir43: --> fir4109 + fir429: add %26, %27, %9 --> fir428 + fir428: add %25, %26, %8 --> fir427 + fir427: add %4, %25, %7 --> fir426 + fir426: emit c3 --> fir425 + fir425: imm_int 4, %24, --> fir424 + fir424: add %22, %11, %24 --> fir423 + fir423: imm_int 16, %23, --> fir422 + fir422: mod %11, %22, %23 --> fir421 + fir421: emit c9 --> fir420 + fir420: imm_int 4, %21, --> fir419 + fir42: emit c0 --> fir41 + fir419: add %6, %6, %21 --> fir418 + fir418: --> fir491 + fir417: emit c2 --> fir416 + fir416: imm_int 1, %20, --> fir415 + fir415: add %18, %11, %20 --> fir414 + fir414: imm_int 16, %19, --> fir413 + fir4135: emit c25 --> fir4134 + fir4134: imm_int 0, %11, --> fir4133 + fir4133: emit c24 --> fir4132 + fir4132: imm_int 0, %4, --> fir4131 + fir4131: emit c23 --> fir4130 + fir4130: emit c22 --> fir4129 + fir413: mod %11, %18, %19 --> fir412 + fir4129: imm_int 0, %6, --> fir4113 + fir4128: imm_int 0, %93, --> fir4127 + fir4127: emit c21 --> fir4126 + fir4126: imm_int 16, %95, --> fir4125 + fir4125: lt %94, %6, %95 --> fir4124 + fir4124: notbool %92, %94 --> fir4123 + fir4123: eq %92, %93 --> fir4122, fir4112 + fir4122: emit c19 --> fir4121 + fir4121: imm_int 0, %88, --> fir4120 + fir4120: imm_addr 0($sp), %89, --> fir4119 + fir412: emit c1 --> fir411 + fir4119: imm_int 4, %91, --> fir4118 + fir4118: mul %90, %6, %91 --> fir4117 + fir4117: store int32, add, %89, %90, %88 --> fir4116 + fir4116: emit c20 --> fir4115 + fir4115: imm_int 1, %87, --> fir4114 + fir4114: add %6, %6, %87 --> fir4113 + fir4113: --> fir4128 + fir4112: emit c18 --> fir4111 + fir4111: emit c17 --> fir4110 + fir4110: imm_int 0, %5, --> fir43 + fir411: imm_int 16, %17, --> fir410 + fir4109: imm_int 0, %85, --> fir4108 + fir4108: emit c16 --> fir4107 + fir4107: lt %86, %5, %3 --> fir4106 + fir4106: notbool %84, %86 --> fir4105 + fir4105: eq %84, %85 --> fir4104, fir42 + fir4104: emit c14 --> fir4103 + fir4103: imm_int 4, %83, --> fir4102 + fir4102: mul %82, %5, %83 --> fir4101 + fir4101: load int32, add, %0, %82, %78 --> fir4100 + fir4100: imm_addr 0($sp), %79, --> fir499 + fir410: shr %14, %4, %17 --> fir49 + fir41: imm_int 0, %12, --> fir40 + fir40: return %12 + + + "main"(): int + locals: %1, %0, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45, %46, %47, %48, %49, %50, %51, %52, %53, %54, %55, %56, %57, %58, %59, %60, %61, %62, %63, %64, %65, %66, %67, %68, %69, %70, %71, %72, %73, %74, %75, %76, %77 + result: %1 + stacksize: 64 + entry: main152 + exit: main0 + + main99: store int32, 40("fir4_in"), , %51 --> main98 + main98: imm_int 0, %50, --> main97 + main97: store int32, 44("fir4_in"), , %50 --> main96 + main96: imm_int 0, %49, --> main95 + main95: store int32, 48("fir4_in"), , %49 --> main94 + main94: imm_int 0, %48, --> main93 + main93: store int32, 52("fir4_in"), , %48 --> main92 + main92: imm_int 0, %47, --> main91 + main91: store int32, 56("fir4_in"), , %47 --> main90 + main90: imm_int 0, %46, --> main89 + main9: store int32, 220("fir4_in"), , %6 --> main8 + main89: store int32, 60("fir4_in"), , %46 --> main88 + main88: imm_int 0, %45, --> main87 + main87: store int32, 64("fir4_in"), , %45 --> main86 + main86: imm_int 0, %44, --> main85 + main85: store int32, 68("fir4_in"), , %44 --> main84 + main84: imm_int 0, %43, --> main83 + main83: store int32, 72("fir4_in"), , %43 --> main82 + main82: imm_int 0, %42, --> main81 + main81: store int32, 76("fir4_in"), , %42 --> main80 + main80: imm_int 0, %41, --> main79 + main8: emit c27 --> main7 + main79: store int32, 80("fir4_in"), , %41 --> main78 + main78: imm_int 0, %40, --> main77 + main77: store int32, 84("fir4_in"), , %40 --> main76 + main76: imm_int 0, %39, --> main75 + main75: store int32, 88("fir4_in"), , %39 --> main74 + main74: imm_int 0, %38, --> main73 + main73: store int32, 92("fir4_in"), , %38 --> main72 + main72: imm_int 0, %37, --> main71 + main71: store int32, 96("fir4_in"), , %37 --> main70 + main70: imm_int 7986, %36, --> main69 + main7: imm_addr "fir4_in", %2, --> main6 + main69: store int32, 100("fir4_in"), , %36 --> main68 + main68: imm_int 8993, %35, --> main67 + main67: store int32, 104("fir4_in"), , %35 --> main66 + main66: imm_int 1808, %34, --> main65 + main65: store int32, 108("fir4_in"), , %34 --> main64 + main64: imm_int 4096, %33, --> main63 + main63: store int32, 112("fir4_in"), , %33 --> main62 + main62: imm_int 4096, %32, --> main61 + main61: store int32, 116("fir4_in"), , %32 --> main60 + main60: imm_int 4096, %31, --> main59 + main6: imm_addr "fir4_c", %3, --> main5 + main59: store int32, 120("fir4_in"), , %31 --> main58 + main58: imm_int 4096, %30, --> main57 + main57: store int32, 124("fir4_in"), , %30 --> main56 + main56: imm_int 4096, %29, --> main55 + main55: store int32, 128("fir4_in"), , %29 --> main54 + main54: imm_int 4096, %28, --> main53 + main53: store int32, 132("fir4_in"), , %28 --> main52 + main52: imm_int 4096, %27, --> main51 + main51: store int32, 136("fir4_in"), , %27 --> main50 + main50: imm_int 4096, %26, --> main49 + main5: imm_addr 0($sp), %4, --> main4 + main49: store int32, 140("fir4_in"), , %26 --> main48 + main48: imm_int 4096, %25, --> main47 + main47: store int32, 144("fir4_in"), , %25 --> main46 + main46: imm_int 4096, %24, --> main45 + main45: store int32, 148("fir4_in"), , %24 --> main44 + main44: imm_int 4096, %23, --> main43 + main43: store int32, 152("fir4_in"), , %23 --> main42 + main42: imm_int 4096, %22, --> main41 + main41: store int32, 156("fir4_in"), , %22 --> main40 + main40: imm_int 4096, %21, --> main39 + main4: imm_int 16, %5, --> main3 + main39: store int32, 160("fir4_in"), , %21 --> main38 + main38: imm_int 4096, %20, --> main37 + main37: store int32, 164("fir4_in"), , %20 --> main36 + main36: imm_int 4096, %19, --> main35 + main35: store int32, 168("fir4_in"), , %19 --> main34 + main34: imm_int 4096, %18, --> main33 + main33: store int32, 172("fir4_in"), , %18 --> main32 + main32: imm_int 4096, %17, --> main31 + main31: store int32, 176("fir4_in"), , %17 --> main30 + main30: imm_int 4096, %16, --> main29 + main3: call "fir4", %2, %3, %4, %5, %0: int -> int -> int -> int -> int --> main2 + main29: store int32, 180("fir4_in"), , %16 --> main28 + main28: imm_int 4096, %15, --> main27 + main27: store int32, 184("fir4_in"), , %15 --> main26 + main26: imm_int 4096, %14, --> main25 + main25: store int32, 188("fir4_in"), , %14 --> main24 + main24: imm_int 4096, %13, --> main23 + main23: store int32, 192("fir4_in"), , %13 --> main22 + main22: imm_int 4096, %12, --> main21 + main21: store int32, 196("fir4_in"), , %12 --> main20 + main20: imm_int 4096, %11, --> main19 + main2: emit c26 --> main1 + main19: store int32, 200("fir4_in"), , %11 --> main18 + main18: imm_int 4096, %10, --> main17 + main17: store int32, 204("fir4_in"), , %10 --> main16 + main16: imm_int 4096, %9, --> main15 + main152: imm_int 1129, %77, --> main151 + main151: store int32, 0("fir4_c"), , %77 --> main150 + main150: imm_int 60034, %76, --> main149 + main15: store int32, 208("fir4_in"), , %9 --> main14 + main149: store int32, 4("fir4_c"), , %76 --> main148 + main148: imm_int 64720, %75, --> main147 + main147: store int32, 8("fir4_c"), , %75 --> main146 + main146: imm_int 5595, %74, --> main145 + main145: store int32, 12("fir4_c"), , %74 --> main144 + main144: imm_int 494, %73, --> main143 + main143: store int32, 16("fir4_c"), , %73 --> main142 + main142: imm_int 59867, %72, --> main141 + main141: store int32, 20("fir4_c"), , %72 --> main140 + main140: imm_int 65370, %71, --> main139 + main14: imm_int 4096, %8, --> main13 + main139: store int32, 24("fir4_c"), , %71 --> main138 + main138: imm_int 5724, %70, --> main137 + main137: store int32, 28("fir4_c"), , %70 --> main136 + main136: imm_int 5724, %69, --> main135 + main135: store int32, 32("fir4_c"), , %69 --> main134 + main134: imm_int 65370, %68, --> main133 + main133: store int32, 36("fir4_c"), , %68 --> main132 + main132: imm_int 59867, %67, --> main131 + main131: store int32, 40("fir4_c"), , %67 --> main130 + main130: imm_int 494, %66, --> main129 + main13: store int32, 212("fir4_in"), , %8 --> main12 + main129: store int32, 44("fir4_c"), , %66 --> main128 + main128: imm_int 5595, %65, --> main127 + main127: store int32, 48("fir4_c"), , %65 --> main126 + main126: imm_int 64720, %64, --> main125 + main125: store int32, 52("fir4_c"), , %64 --> main124 + main124: imm_int 60034, %63, --> main123 + main123: store int32, 56("fir4_c"), , %63 --> main122 + main122: imm_int 1129, %62, --> main121 + main121: store int32, 60("fir4_c"), , %62 --> main120 + main120: imm_int 1, %61, --> main119 + main12: imm_int 4096, %7, --> main11 + main119: store int32, 0("fir4_in"), , %61 --> main118 + main118: imm_int 0, %60, --> main117 + main117: store int32, 4("fir4_in"), , %60 --> main116 + main116: imm_int 16384, %59, --> main115 + main115: store int32, 8("fir4_in"), , %59 --> main114 + main114: imm_int 0, %58, --> main113 + main113: store int32, 12("fir4_in"), , %58 --> main112 + main112: imm_int 0, %57, --> main111 + main111: store int32, 16("fir4_in"), , %57 --> main110 + main110: imm_int 0, %56, --> main109 + main11: store int32, 216("fir4_in"), , %7 --> main10 + main109: store int32, 20("fir4_in"), , %56 --> main108 + main108: imm_int 0, %55, --> main107 + main107: store int32, 24("fir4_in"), , %55 --> main106 + main106: imm_int 0, %54, --> main105 + main105: store int32, 28("fir4_in"), , %54 --> main104 + main104: imm_int 0, %53, --> main103 + main103: store int32, 32("fir4_in"), , %53 --> main102 + main102: imm_int 0, %52, --> main101 + main101: store int32, 36("fir4_in"), , %52 --> main100 + main100: imm_int 0, %51, --> main99 + main10: imm_int 4096, %6, --> main9 + main1: mov %1, %0 --> main0 + main0: return %1 + + diff --git a/tests/clight/fir4.c b/tests/clight/fir4.c new file mode 100644 index 0000000..bccdac0 --- /dev/null +++ b/tests/clight/fir4.c @@ -0,0 +1,35 @@ +int fir4_c[] = {1129,60034,64720,5595,494,59867,65370,5724,5724,65370,59867,494,5595,64720,60034,1129}; +int fir4_in[] = {1, 0, 16384, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7986, 8993, 1808, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096}; + +int fir4(int fir4_in[], int fir4_c[], int fir4_out[], int size) { + int i,j, tmp1, tmp2, tmp3, tmp4; + int x[16]; + int adx = 0; + int res = 0; + + for(i = 0; i < 16; i = i+1){ + x[i] = 0; + } + + for (j = 0; j < size; j = j+1) { + x[adx] = fir4_in[j]; + res = 0; + + for(i = 0; i < 16; i = i+4){ + tmp1 = (x[adx]*fir4_c[i]); + tmp2 = (x[(adx+1)%16]*fir4_c[i+1]); + tmp3 = (x[(adx+2)%16]*fir4_c[i+2]); + tmp4 = (x[(adx+3)%16]*fir4_c[i+3]); + res = res + tmp1 + tmp2 + tmp3 + tmp4; + adx = (adx+4)%16; + } + adx=(adx+1)%16; + fir4_out[j] = res >> 16; + } + return 0; +} + +int main(){ + int fir4_out[16]; + return fir4(fir4_in,fir4_c,fir4_out,16); +} diff --git a/tests/clight/fir4.c.expected b/tests/clight/fir4.c.expected new file mode 100644 index 0000000..3556cd0 --- /dev/null +++ b/tests/clight/fir4.c.expected @@ -0,0 +1,35 @@ +int fir4_c[] = {1129,60034,64720,5595,494,59867,65370,5724,5724,65370,59867,494,5595,64720,60034,1129}; +int fir4_in[] = {0, 0, 16384, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7986, 8993, 1808, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096, 4096}; + +int fir4(int fir4_in[], int fir4_c[], int fir4_out[], int size) { + int i,j, tmp1, tmp2, tmp3, tmp4; + int x[16]; + int adx = 0; + int res = 0; + + for(i = 0; i < 16; i = i+1){ + x[i] = 0; + } + + for (j = 0; j < size; j = j+1) { + x[adx] = fir4_in[j]; + res = 0; + + for(i = 0; i < 16; i = i+4){ + tmp1 = (x[adx]*fir4_c[i]); + tmp2 = (x[(adx+1)%16]*fir4_c[i+1]); + tmp3 = (x[(adx+2)%16]*fir4_c[i+2]); + tmp4 = (x[(adx+3)%16]*fir4_c[i+3]); + res = res + tmp1 + tmp2 + tmp3 + tmp4; + adx = (adx+4)%16; + } + adx=(adx+1)%16; + fir4_out[j] = res >> 16; + } + return 0; +} + +int main(){ + int fir4_out[16]; + return fir4(fir4_in,fir4_c,fir4_out,16); +} diff --git a/tests/clight/fir4.log.expected b/tests/clight/fir4.log.expected new file mode 100644 index 0000000..962e977 --- /dev/null +++ b/tests/clight/fir4.log.expected @@ -0,0 +1 @@ +Fatal error: exception Assert_failure("src/RTLabs/RTLabsToRTL.ml", 23, 9) diff --git a/tests/clight/fir_complexe.ASM.expected b/tests/clight/fir_complexe.ASM.expected new file mode 100644 index 0000000..b7f8bfa --- /dev/null +++ b/tests/clight/fir_complexe.ASM.expected @@ -0,0 +1,595 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 384 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main36 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin init +init97: +c9: +c8: +li $a2, 0 +init40: +li $a0, 0 +c7: +li $v0, 16 +slt $v0, $a2, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, init34 +jr $ra +init34: +c5: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 0($v0) +c4: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 64($v0) +c3: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 128($v0) +c2: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 192($v0) +c1: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 256($v0) +c0: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 320($v0) +c6: +li $v0, 1 +add $a2, $a2, $v0 +j init40 +# end init + + +# begin comp_fir_complexe +comp_fir_complexe265: +addi $sp, $sp, -188 +sw $ra, 172($sp) +sw $s7, 168($sp) +sw $s6, 164($sp) +sw $s5, 160($sp) +sw $s4, 156($sp) +sw $s3, 152($sp) +sw $s2, 148($sp) +sw $s1, 144($sp) +sw $s0, 140($sp) +sw $a0, 128($sp) +sw $a1, 132($sp) +move $s6, $a2 +move $s5, $a3 +lw $v1, 176($sp) +sw $v1, 136($sp) +lw $s7, 180($sp) +lw $s4, 184($sp) +c39: +c38: +li $a1, 0 +comp_fir_complexe127: +li $a0, 0 +c37: +li $v0, 16 +slt $v0, $a1, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, comp_fir_complexe121 +c33: +li $v0, 0 +c32: +li $s0, 0 +c31: +li $s3, 0 +c30: +c29: +li $s2, 0 +comp_fir_complexe96: +li $a1, 0 +c28: +slt $a0, $s2, $s4 +seq $a0, $a0, $zero +beq $a0, $a1, comp_fir_complexe91 +c10: +li $v0, 0 +lw $ra, 172($sp) +lw $s7, 168($sp) +lw $s6, 164($sp) +lw $s5, 160($sp) +lw $s4, 156($sp) +lw $s3, 152($sp) +lw $s2, 148($sp) +lw $s1, 144($sp) +lw $s0, 140($sp) +addi $sp, $sp, 188 +jr $ra +comp_fir_complexe91: +c26: +li $a0, 4 +mulo $a0, $s2, $a0 +lw $v1, 128($sp) +add $a0, $v1, $a0 +lw $a2, 0($a0) +move $a1, $sp +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +sw $a2, 0($a0) +c25: +li $a0, 4 +mulo $a0, $s2, $a0 +lw $v1, 132($sp) +add $a0, $v1, $a0 +lw $a2, 0($a0) +move $a1, $sp +addi $a1, $a1, 64 +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +sw $a2, 0($a0) +c24: +c23: +li $s1, 0 +comp_fir_complexe72: +li $a1, 0 +c22: +li $a0, 16 +slt $a0, $s1, $a0 +seq $a0, $a0, $zero +beq $a0, $a1, comp_fir_complexe66 +c13: +li $a0, 1 +add $a0, $v0, $a0 +li $a1, 16 +la $v0, mod +jalr $v0 +c12: +li $a0, 4 +mulo $a0, $s2, $a0 +lw $v1, 136($sp) +add $a0, $v1, $a0 +sw $s0, 0($a0) +c11: +li $a0, 4 +mulo $a0, $s2, $a0 +add $a0, $s7, $a0 +sw $s3, 0($a0) +c27: +li $a0, 1 +add $s2, $s2, $a0 +j comp_fir_complexe96 +comp_fir_complexe66: +c20: +move $a1, $sp +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +lw $a2, 0($a0) +c19: +move $a1, $sp +addi $a1, $a1, 64 +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +lw $a3, 0($a0) +c18: +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s6, $a0 +lw $a0, 0($a0) +mulo $a1, $a2, $a0 +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s5, $a0 +lw $a0, 0($a0) +mulo $a0, $a3, $a0 +sub $a1, $a1, $a0 +li $a0, 4 +srav $a1, $a1, $a0 +c17: +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s5, $a0 +lw $a0, 0($a0) +mulo $a2, $a2, $a0 +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s6, $a0 +lw $a0, 0($a0) +mulo $a0, $a3, $a0 +add $a2, $a2, $a0 +li $a0, 4 +srav $a0, $a2, $a0 +c16: +add $s0, $s0, $a1 +c15: +add $s3, $s3, $a0 +c14: +li $a0, 1 +add $a0, $v0, $a0 +li $a1, 16 +la $v0, mod +jalr $v0 +c21: +li $a0, 1 +add $s1, $s1, $a0 +j comp_fir_complexe72 +comp_fir_complexe121: +c35: +move $a0, $sp +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a0, $v0 +sw $zero, 0($v0) +c34: +move $a0, $sp +addi $a0, $a0, 64 +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a0, $v0 +sw $zero, 0($v0) +c36: +li $v0, 1 +add $a1, $a1, $v0 +j comp_fir_complexe127 +# end comp_fir_complexe + + +# begin _main +main36: +addi $sp, $sp, -4 +sw $ra, 0($sp) +c42: +la $v0, init97 +jalr $v0 +c41: +move $a0, $gp +move $a1, $gp +addi $a1, $a1, 64 +move $a2, $gp +addi $a2, $a2, 128 +move $a3, $gp +addi $a3, $a3, 192 +move $v0, $gp +addi $v0, $v0, 256 +addi $gp, $gp, 320 +li $t1, 16 +la $t0, comp_fir_complexe265 +sw $v0, -12($sp) +sw $gp, -8($sp) +sw $t1, -4($sp) +jalr $t0 +c40: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end _main diff --git a/tests/clight/fir_complexe.Clight.expected b/tests/clight/fir_complexe.Clight.expected new file mode 100644 index 0000000..0835ecc --- /dev/null +++ b/tests/clight/fir_complexe.Clight.expected @@ -0,0 +1,369 @@ +int t1[16]; + +int t2[16]; + +int t3[16]; + +int t4[16]; + +int t5[16]; + +int t6[16]; + +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +void init(void) +{ + int i; + c9: + for (({ c8: i = 0; }); (/* c7 */ i < 16); ({ c6: i = i + 1; })) { + c5: + t1[i] = 2; + c4: + t2[i] = 2; + c3: + t3[i] = 2; + c2: + t4[i] = 2; + c1: + t5[i] = 2; + c0: + t6[i] = 2; + } +} + +int comp_fir_complexe(int *in_re, int *in_im, int *c_re, int *c_im, int *out_re, int *out_im, int size) +{ + int i; + int j; + int res_re; + int res_im; + int tmp_im; + int tmp_re; + int tmp_x_re; + int tmp_x_im; + int x_re[16]; + int x_im[16]; + int ii; + int adx; + c39: + for (({ c38: ii = 0; }); (/* c37 */ ii < 16); ({ c36: ii = ii + 1; })) { + c35: + x_re[ii] = 0; + c34: + x_im[ii] = 0; + } + c33: + adx = 0; + c32: + res_re = 0; + c31: + res_im = 0; + c30: + for (({ c29: j = 0; }); (/* c28 */ j < size); ({ c27: j = j + 1; })) { + c26: + x_re[adx] = in_re[j]; + c25: + x_im[adx] = in_im[j]; + c24: + for (({ c23: i = 0; }); (/* c22 */ i < 16); ({ c21: i = i + 1; })) { + c20: + tmp_x_re = x_re[adx]; + c19: + tmp_x_im = x_im[adx]; + c18: + tmp_re = (tmp_x_re * c_re[i] - tmp_x_im * c_im[i]) >> 4; + c17: + tmp_im = (tmp_x_re * c_im[i] + tmp_x_im * c_re[i]) >> 4; + c16: + res_re = res_re + tmp_re; + c15: + res_im = res_im + tmp_im; + c14: + adx = (adx + 1) % 16; + } + c13: + adx = (adx + 1) % 16; + c12: + out_re[j] = res_re; + c11: + out_im[j] = res_im; + } + c10: + return 0; +} + +int main(void) +{ + int t; + c42: + init(); + c41: + t = comp_fir_complexe(t1, t2, t3, t4, t5, t6, 16); + c40: + return t; +} + + diff --git a/tests/clight/fir_complexe.Cminor.expected b/tests/clight/fir_complexe.Cminor.expected new file mode 100644 index 0000000..ada3b21 --- /dev/null +++ b/tests/clight/fir_complexe.Cminor.expected @@ -0,0 +1,553 @@ + +var "t1" {[64]} +var "t2" {[64]} +var "t3" {[64]} +var "t4" {[64]} +var "t5" {[64]} +var "t6" {[64]} + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"init" () : void { + + stack 0; + + var i; + + c9: + c8: + i = 0; + block { + loop { + if (!(/* c7 */ i < 16)) { + exit 0; + } + else { + } + block { + c5: + int32["t1" + (i * 4)] = 2; + c4: + int32["t2" + (i * 4)] = 2; + c3: + int32["t3" + (i * 4)] = 2; + c2: + int32["t4" + (i * 4)] = 2; + c1: + int32["t5" + (i * 4)] = 2; + c0: + int32["t6" + (i * 4)] = 2; + } + c6: + i = i + 1; + } + } + +} + + +"comp_fir_complexe" (in_re, in_im, c_re, c_im, out_re, out_im, size) : int -> int -> int -> int -> int -> int -> int -> int { + + stack 128; + + var res_im, ii, tmp_x_im, tmp_re, j, i, res_re, tmp_im, tmp_x_re, adx; + + c39: + c38: + ii = 0; + block { + loop { + if (!(/* c37 */ ii < 16)) { + exit 0; + } + else { + } + block { + c35: + int32[&0 + (ii * 4)] = 0; + c34: + int32[&64 + (ii * 4)] = 0; + } + c36: + ii = ii + 1; + } + } + c33: + adx = 0; + c32: + res_re = 0; + c31: + res_im = 0; + c30: + c29: + j = 0; + block { + loop { + if (!(/* c28 */ j < size)) { + exit 0; + } + else { + } + block { + c26: + int32[&0 + (adx * 4)] = int32[in_re + (j * 4)]; + c25: + int32[&64 + (adx * 4)] = int32[in_im + (j * 4)]; + c24: + c23: + i = 0; + block { + loop { + if (!(/* c22 */ i < 16)) { + exit 0; + } + else { + } + block { + c20: + tmp_x_re = int32[&0 + (adx * 4)]; + c19: + tmp_x_im = int32[&64 + (adx * 4)]; + c18: + tmp_re = ((tmp_x_re * int32[c_re + (i * 4)]) - (tmp_x_im * int32[c_im + (i * 4)])) >> 4; + c17: + tmp_im = ((tmp_x_re * int32[c_im + (i * 4)]) + (tmp_x_im * int32[c_re + (i * 4)])) >> 4; + c16: + res_re = res_re + tmp_re; + c15: + res_im = res_im + tmp_im; + c14: + adx = (adx + 1) % 16; + } + c21: + i = i + 1; + } + } + c13: + adx = (adx + 1) % 16; + c12: + int32[out_re + (j * 4)] = res_re; + c11: + int32[out_im + (j * 4)] = res_im; + } + c27: + j = j + 1; + } + } + c10: + return 0; + +} + + +"main" () : int { + + stack 0; + + var t; + + c42: + "init"() : void; + c41: + t = "comp_fir_complexe"("t1", "t2", "t3", "t4", "t5", "t6", 16) : int -> int -> int -> int -> int -> int -> int -> int; + c40: + return t; + +} + + diff --git a/tests/clight/fir_complexe.ERTL.expected b/tests/clight/fir_complexe.ERTL.expected new file mode 100644 index 0000000..3f271b2 --- /dev/null +++ b/tests/clight/fir_complexe.ERTL.expected @@ -0,0 +1,911 @@ +program + +globals 384 + +procedure init(0) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39 +entry init97 +init97 : newframe --> init96 +init96 : move %39, $ra --> init95 +init95 : move %38, $s7 --> init94 +init94 : move %37, $s6 --> init93 +init93 : move %36, $s5 --> init92 +init92 : move %35, $s4 --> init91 +init91 : move %34, $s3 --> init90 +init90 : move %33, $s2 --> init89 +init89 : move %32, $s1 --> init88 +init88 : move %31, $s0 --> init87 +init87 : li %0, 0 --> init86 +init86 : li %1, 0 --> init85 +init85 : li %2, 0 --> init84 +init84 : li %3, 0 --> init83 +init83 : li %4, 0 --> init82 +init82 : li %5, 0 --> init81 +init81 : li %6, 0 --> init80 +init80 : li %7, 0 --> init79 +init79 : li %8, 0 --> init78 +init78 : li %9, 0 --> init77 +init77 : li %10, 0 --> init76 +init76 : li %11, 0 --> init75 +init75 : li %12, 0 --> init74 +init74 : li %13, 0 --> init73 +init73 : li %14, 0 --> init72 +init72 : li %15, 0 --> init71 +init71 : li %16, 0 --> init70 +init70 : li %17, 0 --> init69 +init69 : li %18, 0 --> init68 +init68 : li %19, 0 --> init67 +init67 : li %20, 0 --> init66 +init66 : li %21, 0 --> init65 +init65 : li %22, 0 --> init64 +init64 : li %23, 0 --> init63 +init63 : li %24, 0 --> init62 +init62 : li %25, 0 --> init61 +init61 : li %26, 0 --> init60 +init60 : li %27, 0 --> init59 +init59 : li %28, 0 --> init58 +init58 : li %29, 0 --> init57 +init57 : li %30, 0 --> init43 +init43 : emit c9 --> init42 +init42 : emit c8 --> init41 +init41 : li %0, 0 --> init1 +init1 : j --> init40 +init40 : li %21, 0 --> init39 +init39 : emit c7 --> init38 +init38 : li %23, 16 --> init37 +init37 : slt %22, %0, %23 --> init36 +init36 : li %29, 0 --> init54 +init54 : seq %20, %22, %29 --> init35 +init35 : beq %20, %21 --> init34, init0 +init0 : j --> init108 +init108: move $ra, %39 --> init107 +init107: move $s7, %38 --> init106 +init106: move $s6, %37 --> init105 +init105: move $s5, %36 --> init104 +init104: move $s4, %35 --> init103 +init103: move $s3, %34 --> init102 +init102: move $s2, %33 --> init101 +init101: move $s1, %32 --> init100 +init100: move $s0, %31 --> init99 +init99 : delframe --> init98 +init98 : jr $ra +init34 : emit c5 --> init33 +init33 : li %17, 2 --> init32 +init32 : li %19, 4 --> init31 +init31 : mulo %18, %0, %19 --> init30 +init30 : move %28, $gp --> init113 +init113: move %28, %28 --> init53 +init53 : add %28, %28, %18 --> init52 +init52 : sw %17, 0(%28) --> init29 +init29 : emit c4 --> init28 +init28 : li %14, 2 --> init27 +init27 : li %16, 4 --> init26 +init26 : mulo %15, %0, %16 --> init25 +init25 : move %27, $gp --> init112 +init112: move %27, %27 --> init51 +init51 : add %27, %27, %15 --> init50 +init50 : sw %14, 64(%27) --> init24 +init24 : emit c3 --> init23 +init23 : li %11, 2 --> init22 +init22 : li %13, 4 --> init21 +init21 : mulo %12, %0, %13 --> init20 +init20 : move %26, $gp --> init111 +init111: move %26, %26 --> init49 +init49 : add %26, %26, %12 --> init48 +init48 : sw %11, 128(%26) --> init19 +init19 : emit c2 --> init18 +init18 : li %8, 2 --> init17 +init17 : li %10, 4 --> init16 +init16 : mulo %9, %0, %10 --> init15 +init15 : move %25, $gp --> init110 +init110: move %25, %25 --> init47 +init47 : add %25, %25, %9 --> init46 +init46 : sw %8, 192(%25) --> init14 +init14 : emit c1 --> init13 +init13 : li %5, 2 --> init12 +init12 : li %7, 4 --> init11 +init11 : mulo %6, %0, %7 --> init10 +init10 : move %24, $gp --> init109 +init109: move %24, %24 --> init45 +init45 : add %24, %24, %6 --> init44 +init44 : sw %5, 256(%24) --> init9 +init9 : emit c0 --> init8 +init8 : li %2, 2 --> init7 +init7 : li %4, 4 --> init6 +init6 : mulo %3, %0, %4 --> init5 +init5 : move %30, $gp --> init114 +init114: move %30, %30 --> init56 +init56 : add %30, %30, %3 --> init55 +init55 : sw %2, 320(%30) --> init4 +init4 : emit c6 --> init3 +init3 : li %1, 1 --> init2 +init2 : add %0, %0, %1 --> init1 + +procedure comp_fir_complexe(7) +stacksize 128 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106, %107, %108, %109, %110, %111, + %112, %113, %114, %115 +entry comp_fir_complexe265 +comp_fir_complexe265: newframe --> comp_fir_complexe264 +comp_fir_complexe264: move %115, $ra --> comp_fir_complexe263 +comp_fir_complexe263: move %114, $s7 --> comp_fir_complexe262 +comp_fir_complexe262: move %113, $s6 --> comp_fir_complexe261 +comp_fir_complexe261: move %112, $s5 --> comp_fir_complexe260 +comp_fir_complexe260: move %111, $s4 --> comp_fir_complexe259 +comp_fir_complexe259: move %110, $s3 --> comp_fir_complexe258 +comp_fir_complexe258: move %109, $s2 --> comp_fir_complexe257 +comp_fir_complexe257: move %108, $s1 --> comp_fir_complexe256 +comp_fir_complexe256: move %107, $s0 --> comp_fir_complexe255 +comp_fir_complexe255: move %0, $a0 --> comp_fir_complexe254 +comp_fir_complexe254: move %1, $a1 --> comp_fir_complexe253 +comp_fir_complexe253: move %2, $a2 --> comp_fir_complexe252 +comp_fir_complexe252: move %3, $a3 --> comp_fir_complexe251 +comp_fir_complexe251: gets %4, in(8) --> comp_fir_complexe250 +comp_fir_complexe250: gets %5, in(4) --> comp_fir_complexe249 +comp_fir_complexe249: gets %6, in(0) --> comp_fir_complexe248 +comp_fir_complexe248: li %7, 0 --> comp_fir_complexe247 +comp_fir_complexe247: li %8, 0 --> comp_fir_complexe246 +comp_fir_complexe246: li %9, 0 --> comp_fir_complexe245 +comp_fir_complexe245: li %10, 0 --> comp_fir_complexe244 +comp_fir_complexe244: li %11, 0 --> comp_fir_complexe243 +comp_fir_complexe243: li %12, 0 --> comp_fir_complexe242 +comp_fir_complexe242: li %13, 0 --> comp_fir_complexe241 +comp_fir_complexe241: li %14, 0 --> comp_fir_complexe240 +comp_fir_complexe240: li %15, 0 --> comp_fir_complexe239 +comp_fir_complexe239: li %16, 0 --> comp_fir_complexe238 +comp_fir_complexe238: li %18, 0 --> comp_fir_complexe237 +comp_fir_complexe237: li %19, 0 --> comp_fir_complexe236 +comp_fir_complexe236: li %20, 0 --> comp_fir_complexe235 +comp_fir_complexe235: li %21, 0 --> comp_fir_complexe234 +comp_fir_complexe234: li %22, 0 --> comp_fir_complexe233 +comp_fir_complexe233: li %23, 0 --> comp_fir_complexe232 +comp_fir_complexe232: li %24, 0 --> comp_fir_complexe231 +comp_fir_complexe231: li %25, 0 --> comp_fir_complexe230 +comp_fir_complexe230: li %26, 0 --> comp_fir_complexe229 +comp_fir_complexe229: li %27, 0 --> comp_fir_complexe228 +comp_fir_complexe228: li %28, 0 --> comp_fir_complexe227 +comp_fir_complexe227: li %29, 0 --> comp_fir_complexe226 +comp_fir_complexe226: li %30, 0 --> comp_fir_complexe225 +comp_fir_complexe225: li %31, 0 --> comp_fir_complexe224 +comp_fir_complexe224: li %32, 0 --> comp_fir_complexe223 +comp_fir_complexe223: li %33, 0 --> comp_fir_complexe222 +comp_fir_complexe222: li %34, 0 --> comp_fir_complexe221 +comp_fir_complexe221: li %35, 0 --> comp_fir_complexe220 +comp_fir_complexe220: li %36, 0 --> comp_fir_complexe219 +comp_fir_complexe219: li %37, 0 --> comp_fir_complexe218 +comp_fir_complexe218: li %38, 0 --> comp_fir_complexe217 +comp_fir_complexe217: li %39, 0 --> comp_fir_complexe216 +comp_fir_complexe216: li %40, 0 --> comp_fir_complexe215 +comp_fir_complexe215: li %41, 0 --> comp_fir_complexe214 +comp_fir_complexe214: li %42, 0 --> comp_fir_complexe213 +comp_fir_complexe213: li %43, 0 --> comp_fir_complexe212 +comp_fir_complexe212: li %44, 0 --> comp_fir_complexe211 +comp_fir_complexe211: li %45, 0 --> comp_fir_complexe210 +comp_fir_complexe210: li %46, 0 --> comp_fir_complexe209 +comp_fir_complexe209: li %47, 0 --> comp_fir_complexe208 +comp_fir_complexe208: li %48, 0 --> comp_fir_complexe207 +comp_fir_complexe207: li %49, 0 --> comp_fir_complexe206 +comp_fir_complexe206: li %50, 0 --> comp_fir_complexe205 +comp_fir_complexe205: li %51, 0 --> comp_fir_complexe204 +comp_fir_complexe204: li %52, 0 --> comp_fir_complexe203 +comp_fir_complexe203: li %53, 0 --> comp_fir_complexe202 +comp_fir_complexe202: li %54, 0 --> comp_fir_complexe201 +comp_fir_complexe201: li %55, 0 --> comp_fir_complexe200 +comp_fir_complexe200: li %56, 0 --> comp_fir_complexe199 +comp_fir_complexe199: li %57, 0 --> comp_fir_complexe198 +comp_fir_complexe198: li %58, 0 --> comp_fir_complexe197 +comp_fir_complexe197: li %59, 0 --> comp_fir_complexe196 +comp_fir_complexe196: li %60, 0 --> comp_fir_complexe195 +comp_fir_complexe195: li %61, 0 --> comp_fir_complexe194 +comp_fir_complexe194: li %62, 0 --> comp_fir_complexe193 +comp_fir_complexe193: li %63, 0 --> comp_fir_complexe192 +comp_fir_complexe192: li %64, 0 --> comp_fir_complexe191 +comp_fir_complexe191: li %65, 0 --> comp_fir_complexe190 +comp_fir_complexe190: li %66, 0 --> comp_fir_complexe189 +comp_fir_complexe189: li %67, 0 --> comp_fir_complexe188 +comp_fir_complexe188: li %68, 0 --> comp_fir_complexe187 +comp_fir_complexe187: li %69, 0 --> comp_fir_complexe186 +comp_fir_complexe186: li %70, 0 --> comp_fir_complexe185 +comp_fir_complexe185: li %71, 0 --> comp_fir_complexe184 +comp_fir_complexe184: li %72, 0 --> comp_fir_complexe183 +comp_fir_complexe183: li %73, 0 --> comp_fir_complexe182 +comp_fir_complexe182: li %74, 0 --> comp_fir_complexe181 +comp_fir_complexe181: li %75, 0 --> comp_fir_complexe180 +comp_fir_complexe180: li %76, 0 --> comp_fir_complexe179 +comp_fir_complexe179: li %77, 0 --> comp_fir_complexe178 +comp_fir_complexe178: li %78, 0 --> comp_fir_complexe177 +comp_fir_complexe177: li %79, 0 --> comp_fir_complexe176 +comp_fir_complexe176: li %80, 0 --> comp_fir_complexe175 +comp_fir_complexe175: li %81, 0 --> comp_fir_complexe174 +comp_fir_complexe174: li %82, 0 --> comp_fir_complexe173 +comp_fir_complexe173: li %83, 0 --> comp_fir_complexe172 +comp_fir_complexe172: li %84, 0 --> comp_fir_complexe171 +comp_fir_complexe171: li %85, 0 --> comp_fir_complexe170 +comp_fir_complexe170: li %86, 0 --> comp_fir_complexe169 +comp_fir_complexe169: li %87, 0 --> comp_fir_complexe168 +comp_fir_complexe168: li %88, 0 --> comp_fir_complexe167 +comp_fir_complexe167: li %89, 0 --> comp_fir_complexe166 +comp_fir_complexe166: li %90, 0 --> comp_fir_complexe165 +comp_fir_complexe165: li %91, 0 --> comp_fir_complexe164 +comp_fir_complexe164: li %92, 0 --> comp_fir_complexe163 +comp_fir_complexe163: li %93, 0 --> comp_fir_complexe162 +comp_fir_complexe162: li %94, 0 --> comp_fir_complexe161 +comp_fir_complexe161: li %95, 0 --> comp_fir_complexe160 +comp_fir_complexe160: li %96, 0 --> comp_fir_complexe159 +comp_fir_complexe159: li %97, 0 --> comp_fir_complexe158 +comp_fir_complexe158: li %98, 0 --> comp_fir_complexe157 +comp_fir_complexe157: li %99, 0 --> comp_fir_complexe156 +comp_fir_complexe156: li %100, 0 --> comp_fir_complexe155 +comp_fir_complexe155: li %101, 0 --> comp_fir_complexe154 +comp_fir_complexe154: li %102, 0 --> comp_fir_complexe153 +comp_fir_complexe153: li %103, 0 --> comp_fir_complexe152 +comp_fir_complexe152: li %104, 0 --> comp_fir_complexe151 +comp_fir_complexe151: li %105, 0 --> comp_fir_complexe150 +comp_fir_complexe150: li %106, 0 --> comp_fir_complexe130 +comp_fir_complexe130: emit c39 --> comp_fir_complexe129 +comp_fir_complexe129: emit c38 --> comp_fir_complexe128 +comp_fir_complexe128: li %8, 0 --> comp_fir_complexe106 +comp_fir_complexe106: j --> comp_fir_complexe127 +comp_fir_complexe127: li %85, 0 --> comp_fir_complexe126 +comp_fir_complexe126: emit c37 --> comp_fir_complexe125 +comp_fir_complexe125: li %87, 16 --> comp_fir_complexe124 +comp_fir_complexe124: slt %86, %8, %87 --> comp_fir_complexe123 +comp_fir_complexe123: li %91, 0 --> comp_fir_complexe134 +comp_fir_complexe134: seq %84, %86, %91 --> comp_fir_complexe122 +comp_fir_complexe122: beq %84, %85 --> comp_fir_complexe121, comp_fir_complexe105 +comp_fir_complexe105: emit c33 --> comp_fir_complexe104 +comp_fir_complexe104: li %16, 0 --> comp_fir_complexe103 +comp_fir_complexe103: emit c32 --> comp_fir_complexe102 +comp_fir_complexe102: li %13, 0 --> comp_fir_complexe101 +comp_fir_complexe101: emit c31 --> comp_fir_complexe100 +comp_fir_complexe100: li %7, 0 --> comp_fir_complexe99 +comp_fir_complexe99 : emit c30 --> comp_fir_complexe98 +comp_fir_complexe98 : emit c29 --> comp_fir_complexe97 +comp_fir_complexe97 : li %11, 0 --> comp_fir_complexe3 +comp_fir_complexe3 : j --> comp_fir_complexe96 +comp_fir_complexe96 : li %73, 0 --> comp_fir_complexe95 +comp_fir_complexe95 : emit c28 --> comp_fir_complexe94 +comp_fir_complexe94 : slt %74, %11, %6 --> comp_fir_complexe93 +comp_fir_complexe93 : li %106, 0 --> comp_fir_complexe149 +comp_fir_complexe149: seq %72, %74, %106 --> comp_fir_complexe92 +comp_fir_complexe92 : beq %72, %73 --> comp_fir_complexe91, comp_fir_complexe2 +comp_fir_complexe2 : emit c10 --> comp_fir_complexe1 +comp_fir_complexe1 : li %17, 0 --> comp_fir_complexe0 +comp_fir_complexe0 : j --> comp_fir_complexe277 +comp_fir_complexe277: move $v0, %17 --> comp_fir_complexe276 +comp_fir_complexe276: move $ra, %115 --> comp_fir_complexe275 +comp_fir_complexe275: move $s7, %114 --> comp_fir_complexe274 +comp_fir_complexe274: move $s6, %113 --> comp_fir_complexe273 +comp_fir_complexe273: move $s5, %112 --> comp_fir_complexe272 +comp_fir_complexe272: move $s4, %111 --> comp_fir_complexe271 +comp_fir_complexe271: move $s3, %110 --> comp_fir_complexe270 +comp_fir_complexe270: move $s2, %109 --> comp_fir_complexe269 +comp_fir_complexe269: move $s1, %108 --> comp_fir_complexe268 +comp_fir_complexe268: move $s0, %107 --> comp_fir_complexe267 +comp_fir_complexe267: delframe --> comp_fir_complexe266 +comp_fir_complexe266: jr $ra (xmits $v0) +comp_fir_complexe91 : emit c26 --> comp_fir_complexe90 +comp_fir_complexe90 : li %71, 4 --> comp_fir_complexe89 +comp_fir_complexe89 : mulo %70, %11, %71 --> comp_fir_complexe88 +comp_fir_complexe88 : add %105, %0, %70 --> comp_fir_complexe148 +comp_fir_complexe148: lw %66, 0(%105) --> comp_fir_complexe87 +comp_fir_complexe87 : move %67, $sp --> comp_fir_complexe291 +comp_fir_complexe291: move %67, %67 --> comp_fir_complexe86 +comp_fir_complexe86 : li %69, 4 --> comp_fir_complexe85 +comp_fir_complexe85 : mulo %68, %16, %69 --> comp_fir_complexe84 +comp_fir_complexe84 : add %104, %67, %68 --> comp_fir_complexe147 +comp_fir_complexe147: sw %66, 0(%104) --> comp_fir_complexe83 +comp_fir_complexe83 : emit c25 --> comp_fir_complexe82 +comp_fir_complexe82 : li %65, 4 --> comp_fir_complexe81 +comp_fir_complexe81 : mulo %64, %11, %65 --> comp_fir_complexe80 +comp_fir_complexe80 : add %103, %1, %64 --> comp_fir_complexe146 +comp_fir_complexe146: lw %60, 0(%103) --> comp_fir_complexe79 +comp_fir_complexe79 : move %61, $sp --> comp_fir_complexe290 +comp_fir_complexe290: addi %61, %61, 64 --> comp_fir_complexe78 +comp_fir_complexe78 : li %63, 4 --> comp_fir_complexe77 +comp_fir_complexe77 : mulo %62, %16, %63 --> comp_fir_complexe76 +comp_fir_complexe76 : add %102, %61, %62 --> comp_fir_complexe145 +comp_fir_complexe145: sw %60, 0(%102) --> comp_fir_complexe75 +comp_fir_complexe75 : emit c24 --> comp_fir_complexe74 +comp_fir_complexe74 : emit c23 --> comp_fir_complexe73 +comp_fir_complexe73 : li %12, 0 --> comp_fir_complexe20 +comp_fir_complexe20 : j --> comp_fir_complexe72 +comp_fir_complexe72 : li %57, 0 --> comp_fir_complexe71 +comp_fir_complexe71 : emit c22 --> comp_fir_complexe70 +comp_fir_complexe70 : li %59, 16 --> comp_fir_complexe69 +comp_fir_complexe69 : slt %58, %12, %59 --> comp_fir_complexe68 +comp_fir_complexe68 : li %100, 0 --> comp_fir_complexe143 +comp_fir_complexe143: seq %56, %58, %100 --> comp_fir_complexe67 +comp_fir_complexe67 : beq %56, %57 --> comp_fir_complexe66, comp_fir_complexe19 +comp_fir_complexe19 : emit c13 --> comp_fir_complexe18 +comp_fir_complexe18 : li %25, 1 --> comp_fir_complexe17 +comp_fir_complexe17 : add %23, %16, %25 --> comp_fir_complexe16 +comp_fir_complexe16 : li %24, 16 --> comp_fir_complexe15 +comp_fir_complexe15 : la %92, mod --> comp_fir_complexe135 +comp_fir_complexe135: j --> comp_fir_complexe283 +comp_fir_complexe283: move $a0, %23 --> comp_fir_complexe282 +comp_fir_complexe282: move $a1, %24 --> comp_fir_complexe281 +comp_fir_complexe281: call %92(2) --> comp_fir_complexe280 +comp_fir_complexe280: move %16, $v0 --> comp_fir_complexe14 +comp_fir_complexe14 : emit c12 --> comp_fir_complexe13 +comp_fir_complexe13 : li %22, 4 --> comp_fir_complexe12 +comp_fir_complexe12 : mulo %21, %11, %22 --> comp_fir_complexe11 +comp_fir_complexe11 : add %88, %4, %21 --> comp_fir_complexe131 +comp_fir_complexe131: sw %13, 0(%88) --> comp_fir_complexe10 +comp_fir_complexe10 : emit c11 --> comp_fir_complexe9 +comp_fir_complexe9 : li %20, 4 --> comp_fir_complexe8 +comp_fir_complexe8 : mulo %19, %11, %20 --> comp_fir_complexe7 +comp_fir_complexe7 : add %101, %5, %19 --> comp_fir_complexe144 +comp_fir_complexe144: sw %7, 0(%101) --> comp_fir_complexe6 +comp_fir_complexe6 : emit c27 --> comp_fir_complexe5 +comp_fir_complexe5 : li %18, 1 --> comp_fir_complexe4 +comp_fir_complexe4 : add %11, %11, %18 --> comp_fir_complexe3 +comp_fir_complexe66 : emit c20 --> comp_fir_complexe65 +comp_fir_complexe65 : move %53, $sp --> comp_fir_complexe289 +comp_fir_complexe289: move %53, %53 --> comp_fir_complexe64 +comp_fir_complexe64 : li %55, 4 --> comp_fir_complexe63 +comp_fir_complexe63 : mulo %54, %16, %55 --> comp_fir_complexe62 +comp_fir_complexe62 : add %99, %53, %54 --> comp_fir_complexe142 +comp_fir_complexe142: lw %15, 0(%99) --> comp_fir_complexe61 +comp_fir_complexe61 : emit c19 --> comp_fir_complexe60 +comp_fir_complexe60 : move %50, $sp --> comp_fir_complexe288 +comp_fir_complexe288: addi %50, %50, 64 --> comp_fir_complexe59 +comp_fir_complexe59 : li %52, 4 --> comp_fir_complexe58 +comp_fir_complexe58 : mulo %51, %16, %52 --> comp_fir_complexe57 +comp_fir_complexe57 : add %98, %50, %51 --> comp_fir_complexe141 +comp_fir_complexe141: lw %9, 0(%98) --> comp_fir_complexe56 +comp_fir_complexe56 : emit c18 --> comp_fir_complexe55 +comp_fir_complexe55 : li %49, 4 --> comp_fir_complexe54 +comp_fir_complexe54 : mulo %48, %12, %49 --> comp_fir_complexe53 +comp_fir_complexe53 : add %97, %2, %48 --> comp_fir_complexe140 +comp_fir_complexe140: lw %47, 0(%97) --> comp_fir_complexe52 +comp_fir_complexe52 : mulo %42, %15, %47 --> comp_fir_complexe51 +comp_fir_complexe51 : li %46, 4 --> comp_fir_complexe50 +comp_fir_complexe50 : mulo %45, %12, %46 --> comp_fir_complexe49 +comp_fir_complexe49 : add %96, %3, %45 --> comp_fir_complexe139 +comp_fir_complexe139: lw %44, 0(%96) --> comp_fir_complexe48 +comp_fir_complexe48 : mulo %43, %9, %44 --> comp_fir_complexe47 +comp_fir_complexe47 : sub %40, %42, %43 --> comp_fir_complexe46 +comp_fir_complexe46 : li %41, 4 --> comp_fir_complexe45 +comp_fir_complexe45 : srav %10, %40, %41 --> comp_fir_complexe44 +comp_fir_complexe44 : emit c17 --> comp_fir_complexe43 +comp_fir_complexe43 : li %39, 4 --> comp_fir_complexe42 +comp_fir_complexe42 : mulo %38, %12, %39 --> comp_fir_complexe41 +comp_fir_complexe41 : add %95, %3, %38 --> comp_fir_complexe138 +comp_fir_complexe138: lw %37, 0(%95) --> comp_fir_complexe40 +comp_fir_complexe40 : mulo %32, %15, %37 --> comp_fir_complexe39 +comp_fir_complexe39 : li %36, 4 --> comp_fir_complexe38 +comp_fir_complexe38 : mulo %35, %12, %36 --> comp_fir_complexe37 +comp_fir_complexe37 : add %94, %2, %35 --> comp_fir_complexe137 +comp_fir_complexe137: lw %34, 0(%94) --> comp_fir_complexe36 +comp_fir_complexe36 : mulo %33, %9, %34 --> comp_fir_complexe35 +comp_fir_complexe35 : add %30, %32, %33 --> comp_fir_complexe34 +comp_fir_complexe34 : li %31, 4 --> comp_fir_complexe33 +comp_fir_complexe33 : srav %14, %30, %31 --> comp_fir_complexe32 +comp_fir_complexe32 : emit c16 --> comp_fir_complexe31 +comp_fir_complexe31 : add %13, %13, %10 --> comp_fir_complexe30 +comp_fir_complexe30 : emit c15 --> comp_fir_complexe29 +comp_fir_complexe29 : add %7, %7, %14 --> comp_fir_complexe28 +comp_fir_complexe28 : emit c14 --> comp_fir_complexe27 +comp_fir_complexe27 : li %29, 1 --> comp_fir_complexe26 +comp_fir_complexe26 : add %27, %16, %29 --> comp_fir_complexe25 +comp_fir_complexe25 : li %28, 16 --> comp_fir_complexe24 +comp_fir_complexe24 : la %93, mod --> comp_fir_complexe136 +comp_fir_complexe136: j --> comp_fir_complexe287 +comp_fir_complexe287: move $a0, %27 --> comp_fir_complexe286 +comp_fir_complexe286: move $a1, %28 --> comp_fir_complexe285 +comp_fir_complexe285: call %93(2) --> comp_fir_complexe284 +comp_fir_complexe284: move %16, $v0 --> comp_fir_complexe23 +comp_fir_complexe23 : emit c21 --> comp_fir_complexe22 +comp_fir_complexe22 : li %26, 1 --> comp_fir_complexe21 +comp_fir_complexe21 : add %12, %12, %26 --> comp_fir_complexe20 +comp_fir_complexe121: emit c35 --> comp_fir_complexe120 +comp_fir_complexe120: li %80, 0 --> comp_fir_complexe119 +comp_fir_complexe119: move %81, $sp --> comp_fir_complexe279 +comp_fir_complexe279: move %81, %81 --> comp_fir_complexe118 +comp_fir_complexe118: li %83, 4 --> comp_fir_complexe117 +comp_fir_complexe117: mulo %82, %8, %83 --> comp_fir_complexe116 +comp_fir_complexe116: add %90, %81, %82 --> comp_fir_complexe133 +comp_fir_complexe133: sw %80, 0(%90) --> comp_fir_complexe115 +comp_fir_complexe115: emit c34 --> comp_fir_complexe114 +comp_fir_complexe114: li %76, 0 --> comp_fir_complexe113 +comp_fir_complexe113: move %77, $sp --> comp_fir_complexe278 +comp_fir_complexe278: addi %77, %77, 64 --> comp_fir_complexe112 +comp_fir_complexe112: li %79, 4 --> comp_fir_complexe111 +comp_fir_complexe111: mulo %78, %8, %79 --> comp_fir_complexe110 +comp_fir_complexe110: add %89, %77, %78 --> comp_fir_complexe132 +comp_fir_complexe132: sw %76, 0(%89) --> comp_fir_complexe109 +comp_fir_complexe109: emit c36 --> comp_fir_complexe108 +comp_fir_complexe108: li %75, 1 --> comp_fir_complexe107 +comp_fir_complexe107: add %8, %8, %75 --> comp_fir_complexe106 + +procedure _main(0) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20 +entry main36 +main36: newframe --> main35 +main35: move %20, $ra --> main34 +main34: move %19, $s7 --> main33 +main33: move %18, $s6 --> main32 +main32: move %17, $s5 --> main31 +main31: move %16, $s4 --> main30 +main30: move %15, $s3 --> main29 +main29: move %14, $s2 --> main28 +main28: move %13, $s1 --> main27 +main27: move %12, $s0 --> main26 +main26: li %0, 0 --> main25 +main25: li %2, 0 --> main24 +main24: li %3, 0 --> main23 +main23: li %4, 0 --> main22 +main22: li %5, 0 --> main21 +main21: li %6, 0 --> main20 +main20: li %7, 0 --> main19 +main19: li %8, 0 --> main18 +main18: li %9, 0 --> main17 +main17: li %10, 0 --> main16 +main16: li %11, 0 --> main13 +main13: emit c42 --> main12 +main12: la %10, init --> main14 +main14: j --> main51 +main51: call %10(0) --> main50 +main50: move %9, $v0 --> main11 +main11: emit c41 --> main10 +main10: move %2, $gp --> main49 +main49: move %2, %2 --> main9 +main9 : move %3, $gp --> main65 +main65: addi %3, %3, 64 --> main8 +main8 : move %4, $gp --> main64 +main64: addi %4, %4, 128 --> main7 +main7 : move %5, $gp --> main63 +main63: addi %5, %5, 192 --> main6 +main6 : move %6, $gp --> main62 +main62: addi %6, %6, 256 --> main5 +main5 : move %7, $gp --> main61 +main61: addi %7, %7, 320 --> main4 +main4 : li %8, 16 --> main3 +main3 : la %11, comp_fir_complexe --> main15 +main15: j --> main60 +main60: move $a0, %2 --> main59 +main59: move $a1, %3 --> main58 +main58: move $a2, %4 --> main57 +main57: move $a3, %5 --> main56 +main56: sets out(8), %6 --> main55 +main55: sets out(4), %7 --> main54 +main54: sets out(0), %8 --> main53 +main53: call %11(7) --> main52 +main52: move %0, $v0 --> main2 +main2 : emit c40 --> main1 +main1 : move %1, %0 --> main0 +main0 : j --> main48 +main48: move $v0, %1 --> main47 +main47: move $ra, %20 --> main46 +main46: move $s7, %19 --> main45 +main45: move $s6, %18 --> main44 +main44: move $s5, %17 --> main43 +main43: move $s4, %16 --> main42 +main42: move $s3, %15 --> main41 +main41: move $s2, %14 --> main40 +main40: move $s1, %13 --> main39 +main39: move $s0, %12 --> main38 +main38: delframe --> main37 +main37: jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/fir_complexe.LIN.expected b/tests/clight/fir_complexe.LIN.expected new file mode 100644 index 0000000..cfe676e --- /dev/null +++ b/tests/clight/fir_complexe.LIN.expected @@ -0,0 +1,683 @@ +program + +globals 384 + +procedure init(0) +var 0 +init97: +newframe +c9: +c8: +li $a2, 0 +init40: +li $a0, 0 +c7: +li $v0, 16 +slt $v0, $a2, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, init34 +delframe +jr $ra +init34: +c5: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 0($v0) +c4: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 64($v0) +c3: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 128($v0) +c2: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 192($v0) +c1: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 256($v0) +c0: +li $a1, 2 +li $v0, 4 +mulo $a0, $a2, $v0 +move $v0, $gp +add $v0, $v0, $a0 +sw $a1, 320($v0) +c6: +li $v0, 1 +add $a2, $a2, $v0 +j init40 + +procedure comp_fir_complexe(7) +var 188 +comp_fir_complexe265: +newframe +sw $ra, 172($sp) +sw $s7, 168($sp) +sw $s6, 164($sp) +sw $s5, 160($sp) +sw $s4, 156($sp) +sw $s3, 152($sp) +sw $s2, 148($sp) +sw $s1, 144($sp) +sw $s0, 140($sp) +sw $a0, 128($sp) +sw $a1, 132($sp) +move $s6, $a2 +move $s5, $a3 +lw $v1, 176($sp) +sw $v1, 136($sp) +lw $s7, 180($sp) +lw $s4, 184($sp) +c39: +c38: +li $a1, 0 +comp_fir_complexe127: +li $a0, 0 +c37: +li $v0, 16 +slt $v0, $a1, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, comp_fir_complexe121 +c33: +li $v0, 0 +c32: +li $s0, 0 +c31: +li $s3, 0 +c30: +c29: +li $s2, 0 +comp_fir_complexe96: +li $a1, 0 +c28: +slt $a0, $s2, $s4 +seq $a0, $a0, $zero +beq $a0, $a1, comp_fir_complexe91 +c10: +li $v0, 0 +lw $ra, 172($sp) +lw $s7, 168($sp) +lw $s6, 164($sp) +lw $s5, 160($sp) +lw $s4, 156($sp) +lw $s3, 152($sp) +lw $s2, 148($sp) +lw $s1, 144($sp) +lw $s0, 140($sp) +delframe +jr $ra +comp_fir_complexe91: +c26: +li $a0, 4 +mulo $a0, $s2, $a0 +lw $v1, 128($sp) +add $a0, $v1, $a0 +lw $a2, 0($a0) +move $a1, $sp +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +sw $a2, 0($a0) +c25: +li $a0, 4 +mulo $a0, $s2, $a0 +lw $v1, 132($sp) +add $a0, $v1, $a0 +lw $a2, 0($a0) +move $a1, $sp +addi $a1, $a1, 64 +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +sw $a2, 0($a0) +c24: +c23: +li $s1, 0 +comp_fir_complexe72: +li $a1, 0 +c22: +li $a0, 16 +slt $a0, $s1, $a0 +seq $a0, $a0, $zero +beq $a0, $a1, comp_fir_complexe66 +c13: +li $a0, 1 +add $a0, $v0, $a0 +li $a1, 16 +la $v0, mod +call $v0 +c12: +li $a0, 4 +mulo $a0, $s2, $a0 +lw $v1, 136($sp) +add $a0, $v1, $a0 +sw $s0, 0($a0) +c11: +li $a0, 4 +mulo $a0, $s2, $a0 +add $a0, $s7, $a0 +sw $s3, 0($a0) +c27: +li $a0, 1 +add $s2, $s2, $a0 +j comp_fir_complexe96 +comp_fir_complexe66: +c20: +move $a1, $sp +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +lw $a2, 0($a0) +c19: +move $a1, $sp +addi $a1, $a1, 64 +li $a0, 4 +mulo $a0, $v0, $a0 +add $a0, $a1, $a0 +lw $a3, 0($a0) +c18: +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s6, $a0 +lw $a0, 0($a0) +mulo $a1, $a2, $a0 +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s5, $a0 +lw $a0, 0($a0) +mulo $a0, $a3, $a0 +sub $a1, $a1, $a0 +li $a0, 4 +srav $a1, $a1, $a0 +c17: +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s5, $a0 +lw $a0, 0($a0) +mulo $a2, $a2, $a0 +li $a0, 4 +mulo $a0, $s1, $a0 +add $a0, $s6, $a0 +lw $a0, 0($a0) +mulo $a0, $a3, $a0 +add $a2, $a2, $a0 +li $a0, 4 +srav $a0, $a2, $a0 +c16: +add $s0, $s0, $a1 +c15: +add $s3, $s3, $a0 +c14: +li $a0, 1 +add $a0, $v0, $a0 +li $a1, 16 +la $v0, mod +call $v0 +c21: +li $a0, 1 +add $s1, $s1, $a0 +j comp_fir_complexe72 +comp_fir_complexe121: +c35: +move $a0, $sp +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a0, $v0 +sw $zero, 0($v0) +c34: +move $a0, $sp +addi $a0, $a0, 64 +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a0, $v0 +sw $zero, 0($v0) +c36: +li $v0, 1 +add $a1, $a1, $v0 +j comp_fir_complexe127 + +procedure _main(0) +var 4 +main36: +newframe +sw $ra, 0($sp) +c42: +la $v0, init +call $v0 +c41: +move $a0, $gp +move $a1, $gp +addi $a1, $a1, 64 +move $a2, $gp +addi $a2, $a2, 128 +move $a3, $gp +addi $a3, $a3, 192 +move $v0, $gp +addi $v0, $v0, 256 +addi $gp, $gp, 320 +li $t1, 16 +la $t0, comp_fir_complexe +sw $v0, -12($sp) +sw $gp, -8($sp) +sw $t1, -4($sp) +call $t0 +c40: +lw $ra, 0($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/fir_complexe.LTL.expected b/tests/clight/fir_complexe.LTL.expected new file mode 100644 index 0000000..96a7c23 --- /dev/null +++ b/tests/clight/fir_complexe.LTL.expected @@ -0,0 +1,889 @@ +program + +globals 384 + +procedure init(0) +var 0 +entry init97 +init97 : newframe --> init96 +init96 : j --> init95 +init95 : j --> init94 +init94 : j --> init93 +init93 : j --> init92 +init92 : j --> init91 +init91 : j --> init90 +init90 : j --> init89 +init89 : j --> init88 +init88 : j --> init87 +init87 : j --> init86 +init86 : j --> init85 +init85 : j --> init84 +init84 : j --> init83 +init83 : j --> init82 +init82 : j --> init81 +init81 : j --> init80 +init80 : j --> init79 +init79 : j --> init78 +init78 : j --> init77 +init77 : j --> init76 +init76 : j --> init75 +init75 : j --> init74 +init74 : j --> init73 +init73 : j --> init72 +init72 : j --> init71 +init71 : j --> init70 +init70 : j --> init69 +init69 : j --> init68 +init68 : j --> init67 +init67 : j --> init66 +init66 : j --> init65 +init65 : j --> init64 +init64 : j --> init63 +init63 : j --> init62 +init62 : j --> init61 +init61 : j --> init60 +init60 : j --> init59 +init59 : j --> init58 +init58 : j --> init57 +init57 : j --> init43 +init43 : emit c9 --> init42 +init42 : emit c8 --> init41 +init41 : li $a2, 0 --> init1 +init1 : j --> init40 +init40 : li $a0, 0 --> init39 +init39 : emit c7 --> init38 +init38 : li $v0, 16 --> init37 +init37 : slt $v0, $a2, $v0 --> init36 +init36 : j --> init54 +init54 : seq $v0, $v0, $zero --> init35 +init35 : beq $v0, $a0 --> init34, init0 +init0 : j --> init108 +init108: j --> init107 +init107: j --> init106 +init106: j --> init105 +init105: j --> init104 +init104: j --> init103 +init103: j --> init102 +init102: j --> init101 +init101: j --> init100 +init100: j --> init99 +init99 : delframe --> init98 +init98 : jr $ra +init34 : emit c5 --> init33 +init33 : li $a1, 2 --> init32 +init32 : li $v0, 4 --> init31 +init31 : mulo $a0, $a2, $v0 --> init30 +init30 : move $v0, $gp --> init113 +init113: j --> init53 +init53 : add $v0, $v0, $a0 --> init52 +init52 : lw $a1, 0($v0) --> init29 +init29 : emit c4 --> init28 +init28 : li $a1, 2 --> init27 +init27 : li $v0, 4 --> init26 +init26 : mulo $a0, $a2, $v0 --> init25 +init25 : move $v0, $gp --> init112 +init112: j --> init51 +init51 : add $v0, $v0, $a0 --> init50 +init50 : lw $a1, 64($v0) --> init24 +init24 : emit c3 --> init23 +init23 : li $a1, 2 --> init22 +init22 : li $v0, 4 --> init21 +init21 : mulo $a0, $a2, $v0 --> init20 +init20 : move $v0, $gp --> init111 +init111: j --> init49 +init49 : add $v0, $v0, $a0 --> init48 +init48 : lw $a1, 128($v0) --> init19 +init19 : emit c2 --> init18 +init18 : li $a1, 2 --> init17 +init17 : li $v0, 4 --> init16 +init16 : mulo $a0, $a2, $v0 --> init15 +init15 : move $v0, $gp --> init110 +init110: j --> init47 +init47 : add $v0, $v0, $a0 --> init46 +init46 : lw $a1, 192($v0) --> init14 +init14 : emit c1 --> init13 +init13 : li $a1, 2 --> init12 +init12 : li $v0, 4 --> init11 +init11 : mulo $a0, $a2, $v0 --> init10 +init10 : move $v0, $gp --> init109 +init109: j --> init45 +init45 : add $v0, $v0, $a0 --> init44 +init44 : lw $a1, 256($v0) --> init9 +init9 : emit c0 --> init8 +init8 : li $a1, 2 --> init7 +init7 : li $v0, 4 --> init6 +init6 : mulo $a0, $a2, $v0 --> init5 +init5 : move $v0, $gp --> init114 +init114: j --> init56 +init56 : add $v0, $v0, $a0 --> init55 +init55 : lw $a1, 320($v0) --> init4 +init4 : emit c6 --> init3 +init3 : li $v0, 1 --> init2 +init2 : add $a2, $a2, $v0 --> init1 + +procedure comp_fir_complexe(7) +var 188 +entry comp_fir_complexe265 +comp_fir_complexe265: newframe --> comp_fir_complexe264 +comp_fir_complexe264: lw $ra, 172($sp) --> comp_fir_complexe263 +comp_fir_complexe263: lw $s7, 168($sp) --> comp_fir_complexe262 +comp_fir_complexe262: lw $s6, 164($sp) --> comp_fir_complexe261 +comp_fir_complexe261: lw $s5, 160($sp) --> comp_fir_complexe260 +comp_fir_complexe260: lw $s4, 156($sp) --> comp_fir_complexe259 +comp_fir_complexe259: lw $s3, 152($sp) --> comp_fir_complexe258 +comp_fir_complexe258: lw $s2, 148($sp) --> comp_fir_complexe257 +comp_fir_complexe257: lw $s1, 144($sp) --> comp_fir_complexe256 +comp_fir_complexe256: lw $s0, 140($sp) --> comp_fir_complexe255 +comp_fir_complexe255: lw $a0, 128($sp) --> comp_fir_complexe254 +comp_fir_complexe254: lw $a1, 132($sp) --> comp_fir_complexe253 +comp_fir_complexe253: move $s6, $a2 --> comp_fir_complexe252 +comp_fir_complexe252: move $s5, $a3 --> comp_fir_complexe251 +comp_fir_complexe251: lw $v1, 176($sp) --> comp_fir_complexe293 +comp_fir_complexe293: lw $v1, 136($sp) --> comp_fir_complexe250 +comp_fir_complexe250: lw $s7, 180($sp) --> comp_fir_complexe249 +comp_fir_complexe249: lw $s4, 184($sp) --> comp_fir_complexe248 +comp_fir_complexe248: j --> comp_fir_complexe247 +comp_fir_complexe247: j --> comp_fir_complexe246 +comp_fir_complexe246: j --> comp_fir_complexe245 +comp_fir_complexe245: j --> comp_fir_complexe244 +comp_fir_complexe244: j --> comp_fir_complexe243 +comp_fir_complexe243: j --> comp_fir_complexe242 +comp_fir_complexe242: j --> comp_fir_complexe241 +comp_fir_complexe241: j --> comp_fir_complexe240 +comp_fir_complexe240: j --> comp_fir_complexe239 +comp_fir_complexe239: j --> comp_fir_complexe238 +comp_fir_complexe238: j --> comp_fir_complexe237 +comp_fir_complexe237: j --> comp_fir_complexe236 +comp_fir_complexe236: j --> comp_fir_complexe235 +comp_fir_complexe235: j --> comp_fir_complexe234 +comp_fir_complexe234: j --> comp_fir_complexe233 +comp_fir_complexe233: j --> comp_fir_complexe232 +comp_fir_complexe232: j --> comp_fir_complexe231 +comp_fir_complexe231: j --> comp_fir_complexe230 +comp_fir_complexe230: j --> comp_fir_complexe229 +comp_fir_complexe229: j --> comp_fir_complexe228 +comp_fir_complexe228: j --> comp_fir_complexe227 +comp_fir_complexe227: j --> comp_fir_complexe226 +comp_fir_complexe226: j --> comp_fir_complexe225 +comp_fir_complexe225: j --> comp_fir_complexe224 +comp_fir_complexe224: j --> comp_fir_complexe223 +comp_fir_complexe223: j --> comp_fir_complexe222 +comp_fir_complexe222: j --> comp_fir_complexe221 +comp_fir_complexe221: j --> comp_fir_complexe220 +comp_fir_complexe220: j --> comp_fir_complexe219 +comp_fir_complexe219: j --> comp_fir_complexe218 +comp_fir_complexe218: j --> comp_fir_complexe217 +comp_fir_complexe217: j --> comp_fir_complexe216 +comp_fir_complexe216: j --> comp_fir_complexe215 +comp_fir_complexe215: j --> comp_fir_complexe214 +comp_fir_complexe214: j --> comp_fir_complexe213 +comp_fir_complexe213: j --> comp_fir_complexe212 +comp_fir_complexe212: j --> comp_fir_complexe211 +comp_fir_complexe211: j --> comp_fir_complexe210 +comp_fir_complexe210: j --> comp_fir_complexe209 +comp_fir_complexe209: j --> comp_fir_complexe208 +comp_fir_complexe208: j --> comp_fir_complexe207 +comp_fir_complexe207: j --> comp_fir_complexe206 +comp_fir_complexe206: j --> comp_fir_complexe205 +comp_fir_complexe205: j --> comp_fir_complexe204 +comp_fir_complexe204: j --> comp_fir_complexe203 +comp_fir_complexe203: j --> comp_fir_complexe202 +comp_fir_complexe202: j --> comp_fir_complexe201 +comp_fir_complexe201: j --> comp_fir_complexe200 +comp_fir_complexe200: j --> comp_fir_complexe199 +comp_fir_complexe199: j --> comp_fir_complexe198 +comp_fir_complexe198: j --> comp_fir_complexe197 +comp_fir_complexe197: j --> comp_fir_complexe196 +comp_fir_complexe196: j --> comp_fir_complexe195 +comp_fir_complexe195: j --> comp_fir_complexe194 +comp_fir_complexe194: j --> comp_fir_complexe193 +comp_fir_complexe193: j --> comp_fir_complexe192 +comp_fir_complexe192: j --> comp_fir_complexe191 +comp_fir_complexe191: j --> comp_fir_complexe190 +comp_fir_complexe190: j --> comp_fir_complexe189 +comp_fir_complexe189: j --> comp_fir_complexe188 +comp_fir_complexe188: j --> comp_fir_complexe187 +comp_fir_complexe187: j --> comp_fir_complexe186 +comp_fir_complexe186: j --> comp_fir_complexe185 +comp_fir_complexe185: j --> comp_fir_complexe184 +comp_fir_complexe184: j --> comp_fir_complexe183 +comp_fir_complexe183: j --> comp_fir_complexe182 +comp_fir_complexe182: j --> comp_fir_complexe181 +comp_fir_complexe181: j --> comp_fir_complexe180 +comp_fir_complexe180: j --> comp_fir_complexe179 +comp_fir_complexe179: j --> comp_fir_complexe178 +comp_fir_complexe178: j --> comp_fir_complexe177 +comp_fir_complexe177: j --> comp_fir_complexe176 +comp_fir_complexe176: j --> comp_fir_complexe175 +comp_fir_complexe175: j --> comp_fir_complexe174 +comp_fir_complexe174: j --> comp_fir_complexe173 +comp_fir_complexe173: j --> comp_fir_complexe172 +comp_fir_complexe172: j --> comp_fir_complexe171 +comp_fir_complexe171: j --> comp_fir_complexe170 +comp_fir_complexe170: j --> comp_fir_complexe169 +comp_fir_complexe169: j --> comp_fir_complexe168 +comp_fir_complexe168: j --> comp_fir_complexe167 +comp_fir_complexe167: j --> comp_fir_complexe166 +comp_fir_complexe166: j --> comp_fir_complexe165 +comp_fir_complexe165: j --> comp_fir_complexe164 +comp_fir_complexe164: j --> comp_fir_complexe163 +comp_fir_complexe163: j --> comp_fir_complexe162 +comp_fir_complexe162: j --> comp_fir_complexe161 +comp_fir_complexe161: j --> comp_fir_complexe160 +comp_fir_complexe160: j --> comp_fir_complexe159 +comp_fir_complexe159: j --> comp_fir_complexe158 +comp_fir_complexe158: j --> comp_fir_complexe157 +comp_fir_complexe157: j --> comp_fir_complexe156 +comp_fir_complexe156: j --> comp_fir_complexe155 +comp_fir_complexe155: j --> comp_fir_complexe154 +comp_fir_complexe154: j --> comp_fir_complexe153 +comp_fir_complexe153: j --> comp_fir_complexe152 +comp_fir_complexe152: j --> comp_fir_complexe151 +comp_fir_complexe151: j --> comp_fir_complexe150 +comp_fir_complexe150: j --> comp_fir_complexe130 +comp_fir_complexe130: emit c39 --> comp_fir_complexe129 +comp_fir_complexe129: emit c38 --> comp_fir_complexe128 +comp_fir_complexe128: li $a1, 0 --> comp_fir_complexe106 +comp_fir_complexe106: j --> comp_fir_complexe127 +comp_fir_complexe127: li $a0, 0 --> comp_fir_complexe126 +comp_fir_complexe126: emit c37 --> comp_fir_complexe125 +comp_fir_complexe125: li $v0, 16 --> comp_fir_complexe124 +comp_fir_complexe124: slt $v0, $a1, $v0 --> comp_fir_complexe123 +comp_fir_complexe123: j --> comp_fir_complexe134 +comp_fir_complexe134: seq $v0, $v0, $zero --> comp_fir_complexe122 +comp_fir_complexe122: beq $v0, $a0 --> comp_fir_complexe121, comp_fir_complexe105 +comp_fir_complexe105: emit c33 --> comp_fir_complexe104 +comp_fir_complexe104: li $v0, 0 --> comp_fir_complexe103 +comp_fir_complexe103: emit c32 --> comp_fir_complexe102 +comp_fir_complexe102: li $s0, 0 --> comp_fir_complexe101 +comp_fir_complexe101: emit c31 --> comp_fir_complexe100 +comp_fir_complexe100: li $s3, 0 --> comp_fir_complexe99 +comp_fir_complexe99 : emit c30 --> comp_fir_complexe98 +comp_fir_complexe98 : emit c29 --> comp_fir_complexe97 +comp_fir_complexe97 : li $s2, 0 --> comp_fir_complexe3 +comp_fir_complexe3 : j --> comp_fir_complexe96 +comp_fir_complexe96 : li $a1, 0 --> comp_fir_complexe95 +comp_fir_complexe95 : emit c28 --> comp_fir_complexe94 +comp_fir_complexe94 : slt $a0, $s2, $s4 --> comp_fir_complexe93 +comp_fir_complexe93 : j --> comp_fir_complexe149 +comp_fir_complexe149: seq $a0, $a0, $zero --> comp_fir_complexe92 +comp_fir_complexe92 : beq $a0, $a1 --> comp_fir_complexe91, comp_fir_complexe2 +comp_fir_complexe2 : emit c10 --> comp_fir_complexe1 +comp_fir_complexe1 : li $v0, 0 --> comp_fir_complexe0 +comp_fir_complexe0 : j --> comp_fir_complexe277 +comp_fir_complexe277: j --> comp_fir_complexe276 +comp_fir_complexe276: lw $ra, 172($sp) --> comp_fir_complexe275 +comp_fir_complexe275: lw $s7, 168($sp) --> comp_fir_complexe274 +comp_fir_complexe274: lw $s6, 164($sp) --> comp_fir_complexe273 +comp_fir_complexe273: lw $s5, 160($sp) --> comp_fir_complexe272 +comp_fir_complexe272: lw $s4, 156($sp) --> comp_fir_complexe271 +comp_fir_complexe271: lw $s3, 152($sp) --> comp_fir_complexe270 +comp_fir_complexe270: lw $s2, 148($sp) --> comp_fir_complexe269 +comp_fir_complexe269: lw $s1, 144($sp) --> comp_fir_complexe268 +comp_fir_complexe268: lw $s0, 140($sp) --> comp_fir_complexe267 +comp_fir_complexe267: delframe --> comp_fir_complexe266 +comp_fir_complexe266: jr $ra +comp_fir_complexe91 : emit c26 --> comp_fir_complexe90 +comp_fir_complexe90 : li $a0, 4 --> comp_fir_complexe89 +comp_fir_complexe89 : mulo $a0, $s2, $a0 --> comp_fir_complexe88 +comp_fir_complexe88 : lw $v1, 128($sp) --> comp_fir_complexe295 +comp_fir_complexe295: add $a0, $v1, $a0 --> comp_fir_complexe148 +comp_fir_complexe148: lw $a2, 0($a0) --> comp_fir_complexe87 +comp_fir_complexe87 : move $a1, $sp --> comp_fir_complexe291 +comp_fir_complexe291: j --> comp_fir_complexe86 +comp_fir_complexe86 : li $a0, 4 --> comp_fir_complexe85 +comp_fir_complexe85 : mulo $a0, $v0, $a0 --> comp_fir_complexe84 +comp_fir_complexe84 : add $a0, $a1, $a0 --> comp_fir_complexe147 +comp_fir_complexe147: lw $a2, 0($a0) --> comp_fir_complexe83 +comp_fir_complexe83 : emit c25 --> comp_fir_complexe82 +comp_fir_complexe82 : li $a0, 4 --> comp_fir_complexe81 +comp_fir_complexe81 : mulo $a0, $s2, $a0 --> comp_fir_complexe80 +comp_fir_complexe80 : lw $v1, 132($sp) --> comp_fir_complexe294 +comp_fir_complexe294: add $a0, $v1, $a0 --> comp_fir_complexe146 +comp_fir_complexe146: lw $a2, 0($a0) --> comp_fir_complexe79 +comp_fir_complexe79 : move $a1, $sp --> comp_fir_complexe290 +comp_fir_complexe290: addi $a1, $a1, 64 --> comp_fir_complexe78 +comp_fir_complexe78 : li $a0, 4 --> comp_fir_complexe77 +comp_fir_complexe77 : mulo $a0, $v0, $a0 --> comp_fir_complexe76 +comp_fir_complexe76 : add $a0, $a1, $a0 --> comp_fir_complexe145 +comp_fir_complexe145: lw $a2, 0($a0) --> comp_fir_complexe75 +comp_fir_complexe75 : emit c24 --> comp_fir_complexe74 +comp_fir_complexe74 : emit c23 --> comp_fir_complexe73 +comp_fir_complexe73 : li $s1, 0 --> comp_fir_complexe20 +comp_fir_complexe20 : j --> comp_fir_complexe72 +comp_fir_complexe72 : li $a1, 0 --> comp_fir_complexe71 +comp_fir_complexe71 : emit c22 --> comp_fir_complexe70 +comp_fir_complexe70 : li $a0, 16 --> comp_fir_complexe69 +comp_fir_complexe69 : slt $a0, $s1, $a0 --> comp_fir_complexe68 +comp_fir_complexe68 : j --> comp_fir_complexe143 +comp_fir_complexe143: seq $a0, $a0, $zero --> comp_fir_complexe67 +comp_fir_complexe67 : beq $a0, $a1 --> comp_fir_complexe66, comp_fir_complexe19 +comp_fir_complexe19 : emit c13 --> comp_fir_complexe18 +comp_fir_complexe18 : li $a0, 1 --> comp_fir_complexe17 +comp_fir_complexe17 : add $a0, $v0, $a0 --> comp_fir_complexe16 +comp_fir_complexe16 : li $a1, 16 --> comp_fir_complexe15 +comp_fir_complexe15 : la $v0, mod --> comp_fir_complexe135 +comp_fir_complexe135: j --> comp_fir_complexe283 +comp_fir_complexe283: j --> comp_fir_complexe282 +comp_fir_complexe282: j --> comp_fir_complexe281 +comp_fir_complexe281: call $v0 --> comp_fir_complexe280 +comp_fir_complexe280: j --> comp_fir_complexe14 +comp_fir_complexe14 : emit c12 --> comp_fir_complexe13 +comp_fir_complexe13 : li $a0, 4 --> comp_fir_complexe12 +comp_fir_complexe12 : mulo $a0, $s2, $a0 --> comp_fir_complexe11 +comp_fir_complexe11 : lw $v1, 136($sp) --> comp_fir_complexe292 +comp_fir_complexe292: add $a0, $v1, $a0 --> comp_fir_complexe131 +comp_fir_complexe131: lw $s0, 0($a0) --> comp_fir_complexe10 +comp_fir_complexe10 : emit c11 --> comp_fir_complexe9 +comp_fir_complexe9 : li $a0, 4 --> comp_fir_complexe8 +comp_fir_complexe8 : mulo $a0, $s2, $a0 --> comp_fir_complexe7 +comp_fir_complexe7 : add $a0, $s7, $a0 --> comp_fir_complexe144 +comp_fir_complexe144: lw $s3, 0($a0) --> comp_fir_complexe6 +comp_fir_complexe6 : emit c27 --> comp_fir_complexe5 +comp_fir_complexe5 : li $a0, 1 --> comp_fir_complexe4 +comp_fir_complexe4 : add $s2, $s2, $a0 --> comp_fir_complexe3 +comp_fir_complexe66 : emit c20 --> comp_fir_complexe65 +comp_fir_complexe65 : move $a1, $sp --> comp_fir_complexe289 +comp_fir_complexe289: j --> comp_fir_complexe64 +comp_fir_complexe64 : li $a0, 4 --> comp_fir_complexe63 +comp_fir_complexe63 : mulo $a0, $v0, $a0 --> comp_fir_complexe62 +comp_fir_complexe62 : add $a0, $a1, $a0 --> comp_fir_complexe142 +comp_fir_complexe142: lw $a2, 0($a0) --> comp_fir_complexe61 +comp_fir_complexe61 : emit c19 --> comp_fir_complexe60 +comp_fir_complexe60 : move $a1, $sp --> comp_fir_complexe288 +comp_fir_complexe288: addi $a1, $a1, 64 --> comp_fir_complexe59 +comp_fir_complexe59 : li $a0, 4 --> comp_fir_complexe58 +comp_fir_complexe58 : mulo $a0, $v0, $a0 --> comp_fir_complexe57 +comp_fir_complexe57 : add $a0, $a1, $a0 --> comp_fir_complexe141 +comp_fir_complexe141: lw $a3, 0($a0) --> comp_fir_complexe56 +comp_fir_complexe56 : emit c18 --> comp_fir_complexe55 +comp_fir_complexe55 : li $a0, 4 --> comp_fir_complexe54 +comp_fir_complexe54 : mulo $a0, $s1, $a0 --> comp_fir_complexe53 +comp_fir_complexe53 : add $a0, $s6, $a0 --> comp_fir_complexe140 +comp_fir_complexe140: lw $a0, 0($a0) --> comp_fir_complexe52 +comp_fir_complexe52 : mulo $a1, $a2, $a0 --> comp_fir_complexe51 +comp_fir_complexe51 : li $a0, 4 --> comp_fir_complexe50 +comp_fir_complexe50 : mulo $a0, $s1, $a0 --> comp_fir_complexe49 +comp_fir_complexe49 : add $a0, $s5, $a0 --> comp_fir_complexe139 +comp_fir_complexe139: lw $a0, 0($a0) --> comp_fir_complexe48 +comp_fir_complexe48 : mulo $a0, $a3, $a0 --> comp_fir_complexe47 +comp_fir_complexe47 : sub $a1, $a1, $a0 --> comp_fir_complexe46 +comp_fir_complexe46 : li $a0, 4 --> comp_fir_complexe45 +comp_fir_complexe45 : srav $a1, $a1, $a0 --> comp_fir_complexe44 +comp_fir_complexe44 : emit c17 --> comp_fir_complexe43 +comp_fir_complexe43 : li $a0, 4 --> comp_fir_complexe42 +comp_fir_complexe42 : mulo $a0, $s1, $a0 --> comp_fir_complexe41 +comp_fir_complexe41 : add $a0, $s5, $a0 --> comp_fir_complexe138 +comp_fir_complexe138: lw $a0, 0($a0) --> comp_fir_complexe40 +comp_fir_complexe40 : mulo $a2, $a2, $a0 --> comp_fir_complexe39 +comp_fir_complexe39 : li $a0, 4 --> comp_fir_complexe38 +comp_fir_complexe38 : mulo $a0, $s1, $a0 --> comp_fir_complexe37 +comp_fir_complexe37 : add $a0, $s6, $a0 --> comp_fir_complexe137 +comp_fir_complexe137: lw $a0, 0($a0) --> comp_fir_complexe36 +comp_fir_complexe36 : mulo $a0, $a3, $a0 --> comp_fir_complexe35 +comp_fir_complexe35 : add $a2, $a2, $a0 --> comp_fir_complexe34 +comp_fir_complexe34 : li $a0, 4 --> comp_fir_complexe33 +comp_fir_complexe33 : srav $a0, $a2, $a0 --> comp_fir_complexe32 +comp_fir_complexe32 : emit c16 --> comp_fir_complexe31 +comp_fir_complexe31 : add $s0, $s0, $a1 --> comp_fir_complexe30 +comp_fir_complexe30 : emit c15 --> comp_fir_complexe29 +comp_fir_complexe29 : add $s3, $s3, $a0 --> comp_fir_complexe28 +comp_fir_complexe28 : emit c14 --> comp_fir_complexe27 +comp_fir_complexe27 : li $a0, 1 --> comp_fir_complexe26 +comp_fir_complexe26 : add $a0, $v0, $a0 --> comp_fir_complexe25 +comp_fir_complexe25 : li $a1, 16 --> comp_fir_complexe24 +comp_fir_complexe24 : la $v0, mod --> comp_fir_complexe136 +comp_fir_complexe136: j --> comp_fir_complexe287 +comp_fir_complexe287: j --> comp_fir_complexe286 +comp_fir_complexe286: j --> comp_fir_complexe285 +comp_fir_complexe285: call $v0 --> comp_fir_complexe284 +comp_fir_complexe284: j --> comp_fir_complexe23 +comp_fir_complexe23 : emit c21 --> comp_fir_complexe22 +comp_fir_complexe22 : li $a0, 1 --> comp_fir_complexe21 +comp_fir_complexe21 : add $s1, $s1, $a0 --> comp_fir_complexe20 +comp_fir_complexe121: emit c35 --> comp_fir_complexe120 +comp_fir_complexe120: j --> comp_fir_complexe119 +comp_fir_complexe119: move $a0, $sp --> comp_fir_complexe279 +comp_fir_complexe279: j --> comp_fir_complexe118 +comp_fir_complexe118: li $v0, 4 --> comp_fir_complexe117 +comp_fir_complexe117: mulo $v0, $a1, $v0 --> comp_fir_complexe116 +comp_fir_complexe116: add $v0, $a0, $v0 --> comp_fir_complexe133 +comp_fir_complexe133: lw $zero, 0($v0) --> comp_fir_complexe115 +comp_fir_complexe115: emit c34 --> comp_fir_complexe114 +comp_fir_complexe114: j --> comp_fir_complexe113 +comp_fir_complexe113: move $a0, $sp --> comp_fir_complexe278 +comp_fir_complexe278: addi $a0, $a0, 64 --> comp_fir_complexe112 +comp_fir_complexe112: li $v0, 4 --> comp_fir_complexe111 +comp_fir_complexe111: mulo $v0, $a1, $v0 --> comp_fir_complexe110 +comp_fir_complexe110: add $v0, $a0, $v0 --> comp_fir_complexe132 +comp_fir_complexe132: lw $zero, 0($v0) --> comp_fir_complexe109 +comp_fir_complexe109: emit c36 --> comp_fir_complexe108 +comp_fir_complexe108: li $v0, 1 --> comp_fir_complexe107 +comp_fir_complexe107: add $a1, $a1, $v0 --> comp_fir_complexe106 + +procedure _main(0) +var 4 +entry main36 +main36: newframe --> main35 +main35: lw $ra, 0($sp) --> main34 +main34: j --> main33 +main33: j --> main32 +main32: j --> main31 +main31: j --> main30 +main30: j --> main29 +main29: j --> main28 +main28: j --> main27 +main27: j --> main26 +main26: j --> main25 +main25: j --> main24 +main24: j --> main23 +main23: j --> main22 +main22: j --> main21 +main21: j --> main20 +main20: j --> main19 +main19: j --> main18 +main18: j --> main17 +main17: j --> main16 +main16: j --> main13 +main13: emit c42 --> main12 +main12: la $v0, init --> main14 +main14: j --> main51 +main51: call $v0 --> main50 +main50: j --> main11 +main11: emit c41 --> main10 +main10: move $a0, $gp --> main49 +main49: j --> main9 +main9 : move $a1, $gp --> main65 +main65: addi $a1, $a1, 64 --> main8 +main8 : move $a2, $gp --> main64 +main64: addi $a2, $a2, 128 --> main7 +main7 : move $a3, $gp --> main63 +main63: addi $a3, $a3, 192 --> main6 +main6 : move $v0, $gp --> main62 +main62: addi $v0, $v0, 256 --> main5 +main5 : j --> main61 +main61: addi $gp, $gp, 320 --> main4 +main4 : li $t1, 16 --> main3 +main3 : la $t0, comp_fir_complexe --> main15 +main15: j --> main60 +main60: j --> main59 +main59: j --> main58 +main58: j --> main57 +main57: j --> main56 +main56: lw $v0, -12($sp) --> main55 +main55: lw $gp, -8($sp) --> main54 +main54: lw $t1, -4($sp) --> main53 +main53: call $t0 --> main52 +main52: j --> main2 +main2 : emit c40 --> main1 +main1 : j --> main0 +main0 : j --> main48 +main48: j --> main47 +main47: lw $ra, 0($sp) --> main46 +main46: j --> main45 +main45: j --> main44 +main44: j --> main43 +main43: j --> main42 +main42: j --> main41 +main41: j --> main40 +main40: j --> main39 +main39: j --> main38 +main38: delframe --> main37 +main37: jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/fir_complexe.RTL.expected b/tests/clight/fir_complexe.RTL.expected new file mode 100644 index 0000000..5739cf3 --- /dev/null +++ b/tests/clight/fir_complexe.RTL.expected @@ -0,0 +1,799 @@ +program + +globals 384 + +procedure init() +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30 +entry init87 +init87: li %0, 0 --> init86 +init86: li %1, 0 --> init85 +init85: li %2, 0 --> init84 +init84: li %3, 0 --> init83 +init83: li %4, 0 --> init82 +init82: li %5, 0 --> init81 +init81: li %6, 0 --> init80 +init80: li %7, 0 --> init79 +init79: li %8, 0 --> init78 +init78: li %9, 0 --> init77 +init77: li %10, 0 --> init76 +init76: li %11, 0 --> init75 +init75: li %12, 0 --> init74 +init74: li %13, 0 --> init73 +init73: li %14, 0 --> init72 +init72: li %15, 0 --> init71 +init71: li %16, 0 --> init70 +init70: li %17, 0 --> init69 +init69: li %18, 0 --> init68 +init68: li %19, 0 --> init67 +init67: li %20, 0 --> init66 +init66: li %21, 0 --> init65 +init65: li %22, 0 --> init64 +init64: li %23, 0 --> init63 +init63: li %24, 0 --> init62 +init62: li %25, 0 --> init61 +init61: li %26, 0 --> init60 +init60: li %27, 0 --> init59 +init59: li %28, 0 --> init58 +init58: li %29, 0 --> init57 +init57: li %30, 0 --> init43 +init43: emit c9 --> init42 +init42: emit c8 --> init41 +init41: li %0, 0 --> init1 +init1 : j --> init40 +init40: li %21, 0 --> init39 +init39: emit c7 --> init38 +init38: li %23, 16 --> init37 +init37: slt %22, %0, %23 --> init36 +init36: li %29, 0 --> init54 +init54: seq %20, %22, %29 --> init35 +init35: beq %20, %21 --> init34, init0 +init0 : return +init34: emit c5 --> init33 +init33: li %17, 2 --> init32 +init32: li %19, 4 --> init31 +init31: mulo %18, %0, %19 --> init30 +init30: addi %28, GLOBALS, 0 --> init53 +init53: add %28, %28, %18 --> init52 +init52: sw %17, 0(%28) --> init29 +init29: emit c4 --> init28 +init28: li %14, 2 --> init27 +init27: li %16, 4 --> init26 +init26: mulo %15, %0, %16 --> init25 +init25: addi %27, GLOBALS, 0 --> init51 +init51: add %27, %27, %15 --> init50 +init50: sw %14, 64(%27) --> init24 +init24: emit c3 --> init23 +init23: li %11, 2 --> init22 +init22: li %13, 4 --> init21 +init21: mulo %12, %0, %13 --> init20 +init20: addi %26, GLOBALS, 0 --> init49 +init49: add %26, %26, %12 --> init48 +init48: sw %11, 128(%26) --> init19 +init19: emit c2 --> init18 +init18: li %8, 2 --> init17 +init17: li %10, 4 --> init16 +init16: mulo %9, %0, %10 --> init15 +init15: addi %25, GLOBALS, 0 --> init47 +init47: add %25, %25, %9 --> init46 +init46: sw %8, 192(%25) --> init14 +init14: emit c1 --> init13 +init13: li %5, 2 --> init12 +init12: li %7, 4 --> init11 +init11: mulo %6, %0, %7 --> init10 +init10: addi %24, GLOBALS, 0 --> init45 +init45: add %24, %24, %6 --> init44 +init44: sw %5, 256(%24) --> init9 +init9 : emit c0 --> init8 +init8 : li %2, 2 --> init7 +init7 : li %4, 4 --> init6 +init6 : mulo %3, %0, %4 --> init5 +init5 : addi %30, GLOBALS, 0 --> init56 +init56: add %30, %30, %3 --> init55 +init55: sw %2, 320(%30) --> init4 +init4 : emit c6 --> init3 +init3 : li %1, 1 --> init2 +init2 : add %0, %0, %1 --> init1 + +function comp_fir_complexe(%0; %1; %2; %3; %4; %5; %6) : %17 +stacksize 128 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87, %88, %89, %90, + %91, %92, %93, %94, %95, %96, %97, + %98, %99, %100, %101, %102, %103, %104, + %105, %106 +entry comp_fir_complexe248 +comp_fir_complexe248: li %7, 0 --> comp_fir_complexe247 +comp_fir_complexe247: li %8, 0 --> comp_fir_complexe246 +comp_fir_complexe246: li %9, 0 --> comp_fir_complexe245 +comp_fir_complexe245: li %10, 0 --> comp_fir_complexe244 +comp_fir_complexe244: li %11, 0 --> comp_fir_complexe243 +comp_fir_complexe243: li %12, 0 --> comp_fir_complexe242 +comp_fir_complexe242: li %13, 0 --> comp_fir_complexe241 +comp_fir_complexe241: li %14, 0 --> comp_fir_complexe240 +comp_fir_complexe240: li %15, 0 --> comp_fir_complexe239 +comp_fir_complexe239: li %16, 0 --> comp_fir_complexe238 +comp_fir_complexe238: li %18, 0 --> comp_fir_complexe237 +comp_fir_complexe237: li %19, 0 --> comp_fir_complexe236 +comp_fir_complexe236: li %20, 0 --> comp_fir_complexe235 +comp_fir_complexe235: li %21, 0 --> comp_fir_complexe234 +comp_fir_complexe234: li %22, 0 --> comp_fir_complexe233 +comp_fir_complexe233: li %23, 0 --> comp_fir_complexe232 +comp_fir_complexe232: li %24, 0 --> comp_fir_complexe231 +comp_fir_complexe231: li %25, 0 --> comp_fir_complexe230 +comp_fir_complexe230: li %26, 0 --> comp_fir_complexe229 +comp_fir_complexe229: li %27, 0 --> comp_fir_complexe228 +comp_fir_complexe228: li %28, 0 --> comp_fir_complexe227 +comp_fir_complexe227: li %29, 0 --> comp_fir_complexe226 +comp_fir_complexe226: li %30, 0 --> comp_fir_complexe225 +comp_fir_complexe225: li %31, 0 --> comp_fir_complexe224 +comp_fir_complexe224: li %32, 0 --> comp_fir_complexe223 +comp_fir_complexe223: li %33, 0 --> comp_fir_complexe222 +comp_fir_complexe222: li %34, 0 --> comp_fir_complexe221 +comp_fir_complexe221: li %35, 0 --> comp_fir_complexe220 +comp_fir_complexe220: li %36, 0 --> comp_fir_complexe219 +comp_fir_complexe219: li %37, 0 --> comp_fir_complexe218 +comp_fir_complexe218: li %38, 0 --> comp_fir_complexe217 +comp_fir_complexe217: li %39, 0 --> comp_fir_complexe216 +comp_fir_complexe216: li %40, 0 --> comp_fir_complexe215 +comp_fir_complexe215: li %41, 0 --> comp_fir_complexe214 +comp_fir_complexe214: li %42, 0 --> comp_fir_complexe213 +comp_fir_complexe213: li %43, 0 --> comp_fir_complexe212 +comp_fir_complexe212: li %44, 0 --> comp_fir_complexe211 +comp_fir_complexe211: li %45, 0 --> comp_fir_complexe210 +comp_fir_complexe210: li %46, 0 --> comp_fir_complexe209 +comp_fir_complexe209: li %47, 0 --> comp_fir_complexe208 +comp_fir_complexe208: li %48, 0 --> comp_fir_complexe207 +comp_fir_complexe207: li %49, 0 --> comp_fir_complexe206 +comp_fir_complexe206: li %50, 0 --> comp_fir_complexe205 +comp_fir_complexe205: li %51, 0 --> comp_fir_complexe204 +comp_fir_complexe204: li %52, 0 --> comp_fir_complexe203 +comp_fir_complexe203: li %53, 0 --> comp_fir_complexe202 +comp_fir_complexe202: li %54, 0 --> comp_fir_complexe201 +comp_fir_complexe201: li %55, 0 --> comp_fir_complexe200 +comp_fir_complexe200: li %56, 0 --> comp_fir_complexe199 +comp_fir_complexe199: li %57, 0 --> comp_fir_complexe198 +comp_fir_complexe198: li %58, 0 --> comp_fir_complexe197 +comp_fir_complexe197: li %59, 0 --> comp_fir_complexe196 +comp_fir_complexe196: li %60, 0 --> comp_fir_complexe195 +comp_fir_complexe195: li %61, 0 --> comp_fir_complexe194 +comp_fir_complexe194: li %62, 0 --> comp_fir_complexe193 +comp_fir_complexe193: li %63, 0 --> comp_fir_complexe192 +comp_fir_complexe192: li %64, 0 --> comp_fir_complexe191 +comp_fir_complexe191: li %65, 0 --> comp_fir_complexe190 +comp_fir_complexe190: li %66, 0 --> comp_fir_complexe189 +comp_fir_complexe189: li %67, 0 --> comp_fir_complexe188 +comp_fir_complexe188: li %68, 0 --> comp_fir_complexe187 +comp_fir_complexe187: li %69, 0 --> comp_fir_complexe186 +comp_fir_complexe186: li %70, 0 --> comp_fir_complexe185 +comp_fir_complexe185: li %71, 0 --> comp_fir_complexe184 +comp_fir_complexe184: li %72, 0 --> comp_fir_complexe183 +comp_fir_complexe183: li %73, 0 --> comp_fir_complexe182 +comp_fir_complexe182: li %74, 0 --> comp_fir_complexe181 +comp_fir_complexe181: li %75, 0 --> comp_fir_complexe180 +comp_fir_complexe180: li %76, 0 --> comp_fir_complexe179 +comp_fir_complexe179: li %77, 0 --> comp_fir_complexe178 +comp_fir_complexe178: li %78, 0 --> comp_fir_complexe177 +comp_fir_complexe177: li %79, 0 --> comp_fir_complexe176 +comp_fir_complexe176: li %80, 0 --> comp_fir_complexe175 +comp_fir_complexe175: li %81, 0 --> comp_fir_complexe174 +comp_fir_complexe174: li %82, 0 --> comp_fir_complexe173 +comp_fir_complexe173: li %83, 0 --> comp_fir_complexe172 +comp_fir_complexe172: li %84, 0 --> comp_fir_complexe171 +comp_fir_complexe171: li %85, 0 --> comp_fir_complexe170 +comp_fir_complexe170: li %86, 0 --> comp_fir_complexe169 +comp_fir_complexe169: li %87, 0 --> comp_fir_complexe168 +comp_fir_complexe168: li %88, 0 --> comp_fir_complexe167 +comp_fir_complexe167: li %89, 0 --> comp_fir_complexe166 +comp_fir_complexe166: li %90, 0 --> comp_fir_complexe165 +comp_fir_complexe165: li %91, 0 --> comp_fir_complexe164 +comp_fir_complexe164: li %92, 0 --> comp_fir_complexe163 +comp_fir_complexe163: li %93, 0 --> comp_fir_complexe162 +comp_fir_complexe162: li %94, 0 --> comp_fir_complexe161 +comp_fir_complexe161: li %95, 0 --> comp_fir_complexe160 +comp_fir_complexe160: li %96, 0 --> comp_fir_complexe159 +comp_fir_complexe159: li %97, 0 --> comp_fir_complexe158 +comp_fir_complexe158: li %98, 0 --> comp_fir_complexe157 +comp_fir_complexe157: li %99, 0 --> comp_fir_complexe156 +comp_fir_complexe156: li %100, 0 --> comp_fir_complexe155 +comp_fir_complexe155: li %101, 0 --> comp_fir_complexe154 +comp_fir_complexe154: li %102, 0 --> comp_fir_complexe153 +comp_fir_complexe153: li %103, 0 --> comp_fir_complexe152 +comp_fir_complexe152: li %104, 0 --> comp_fir_complexe151 +comp_fir_complexe151: li %105, 0 --> comp_fir_complexe150 +comp_fir_complexe150: li %106, 0 --> comp_fir_complexe130 +comp_fir_complexe130: emit c39 --> comp_fir_complexe129 +comp_fir_complexe129: emit c38 --> comp_fir_complexe128 +comp_fir_complexe128: li %8, 0 --> comp_fir_complexe106 +comp_fir_complexe106: j --> comp_fir_complexe127 +comp_fir_complexe127: li %85, 0 --> comp_fir_complexe126 +comp_fir_complexe126: emit c37 --> comp_fir_complexe125 +comp_fir_complexe125: li %87, 16 --> comp_fir_complexe124 +comp_fir_complexe124: slt %86, %8, %87 --> comp_fir_complexe123 +comp_fir_complexe123: li %91, 0 --> comp_fir_complexe134 +comp_fir_complexe134: seq %84, %86, %91 --> comp_fir_complexe122 +comp_fir_complexe122: beq %84, %85 --> comp_fir_complexe121, comp_fir_complexe105 +comp_fir_complexe105: emit c33 --> comp_fir_complexe104 +comp_fir_complexe104: li %16, 0 --> comp_fir_complexe103 +comp_fir_complexe103: emit c32 --> comp_fir_complexe102 +comp_fir_complexe102: li %13, 0 --> comp_fir_complexe101 +comp_fir_complexe101: emit c31 --> comp_fir_complexe100 +comp_fir_complexe100: li %7, 0 --> comp_fir_complexe99 +comp_fir_complexe99 : emit c30 --> comp_fir_complexe98 +comp_fir_complexe98 : emit c29 --> comp_fir_complexe97 +comp_fir_complexe97 : li %11, 0 --> comp_fir_complexe3 +comp_fir_complexe3 : j --> comp_fir_complexe96 +comp_fir_complexe96 : li %73, 0 --> comp_fir_complexe95 +comp_fir_complexe95 : emit c28 --> comp_fir_complexe94 +comp_fir_complexe94 : slt %74, %11, %6 --> comp_fir_complexe93 +comp_fir_complexe93 : li %106, 0 --> comp_fir_complexe149 +comp_fir_complexe149: seq %72, %74, %106 --> comp_fir_complexe92 +comp_fir_complexe92 : beq %72, %73 --> comp_fir_complexe91, comp_fir_complexe2 +comp_fir_complexe2 : emit c10 --> comp_fir_complexe1 +comp_fir_complexe1 : li %17, 0 --> comp_fir_complexe0 +comp_fir_complexe0 : return %17 +comp_fir_complexe91 : emit c26 --> comp_fir_complexe90 +comp_fir_complexe90 : li %71, 4 --> comp_fir_complexe89 +comp_fir_complexe89 : mulo %70, %11, %71 --> comp_fir_complexe88 +comp_fir_complexe88 : add %105, %0, %70 --> comp_fir_complexe148 +comp_fir_complexe148: lw %66, 0(%105) --> comp_fir_complexe87 +comp_fir_complexe87 : addi %67, STACK, 0 --> comp_fir_complexe86 +comp_fir_complexe86 : li %69, 4 --> comp_fir_complexe85 +comp_fir_complexe85 : mulo %68, %16, %69 --> comp_fir_complexe84 +comp_fir_complexe84 : add %104, %67, %68 --> comp_fir_complexe147 +comp_fir_complexe147: sw %66, 0(%104) --> comp_fir_complexe83 +comp_fir_complexe83 : emit c25 --> comp_fir_complexe82 +comp_fir_complexe82 : li %65, 4 --> comp_fir_complexe81 +comp_fir_complexe81 : mulo %64, %11, %65 --> comp_fir_complexe80 +comp_fir_complexe80 : add %103, %1, %64 --> comp_fir_complexe146 +comp_fir_complexe146: lw %60, 0(%103) --> comp_fir_complexe79 +comp_fir_complexe79 : addi %61, STACK, 64 --> comp_fir_complexe78 +comp_fir_complexe78 : li %63, 4 --> comp_fir_complexe77 +comp_fir_complexe77 : mulo %62, %16, %63 --> comp_fir_complexe76 +comp_fir_complexe76 : add %102, %61, %62 --> comp_fir_complexe145 +comp_fir_complexe145: sw %60, 0(%102) --> comp_fir_complexe75 +comp_fir_complexe75 : emit c24 --> comp_fir_complexe74 +comp_fir_complexe74 : emit c23 --> comp_fir_complexe73 +comp_fir_complexe73 : li %12, 0 --> comp_fir_complexe20 +comp_fir_complexe20 : j --> comp_fir_complexe72 +comp_fir_complexe72 : li %57, 0 --> comp_fir_complexe71 +comp_fir_complexe71 : emit c22 --> comp_fir_complexe70 +comp_fir_complexe70 : li %59, 16 --> comp_fir_complexe69 +comp_fir_complexe69 : slt %58, %12, %59 --> comp_fir_complexe68 +comp_fir_complexe68 : li %100, 0 --> comp_fir_complexe143 +comp_fir_complexe143: seq %56, %58, %100 --> comp_fir_complexe67 +comp_fir_complexe67 : beq %56, %57 --> comp_fir_complexe66, comp_fir_complexe19 +comp_fir_complexe19 : emit c13 --> comp_fir_complexe18 +comp_fir_complexe18 : li %25, 1 --> comp_fir_complexe17 +comp_fir_complexe17 : add %23, %16, %25 --> comp_fir_complexe16 +comp_fir_complexe16 : li %24, 16 --> comp_fir_complexe15 +comp_fir_complexe15 : la %92, mod --> comp_fir_complexe135 +comp_fir_complexe135: call %16, %92(%23, %24) --> comp_fir_complexe14 +comp_fir_complexe14 : emit c12 --> comp_fir_complexe13 +comp_fir_complexe13 : li %22, 4 --> comp_fir_complexe12 +comp_fir_complexe12 : mulo %21, %11, %22 --> comp_fir_complexe11 +comp_fir_complexe11 : add %88, %4, %21 --> comp_fir_complexe131 +comp_fir_complexe131: sw %13, 0(%88) --> comp_fir_complexe10 +comp_fir_complexe10 : emit c11 --> comp_fir_complexe9 +comp_fir_complexe9 : li %20, 4 --> comp_fir_complexe8 +comp_fir_complexe8 : mulo %19, %11, %20 --> comp_fir_complexe7 +comp_fir_complexe7 : add %101, %5, %19 --> comp_fir_complexe144 +comp_fir_complexe144: sw %7, 0(%101) --> comp_fir_complexe6 +comp_fir_complexe6 : emit c27 --> comp_fir_complexe5 +comp_fir_complexe5 : li %18, 1 --> comp_fir_complexe4 +comp_fir_complexe4 : add %11, %11, %18 --> comp_fir_complexe3 +comp_fir_complexe66 : emit c20 --> comp_fir_complexe65 +comp_fir_complexe65 : addi %53, STACK, 0 --> comp_fir_complexe64 +comp_fir_complexe64 : li %55, 4 --> comp_fir_complexe63 +comp_fir_complexe63 : mulo %54, %16, %55 --> comp_fir_complexe62 +comp_fir_complexe62 : add %99, %53, %54 --> comp_fir_complexe142 +comp_fir_complexe142: lw %15, 0(%99) --> comp_fir_complexe61 +comp_fir_complexe61 : emit c19 --> comp_fir_complexe60 +comp_fir_complexe60 : addi %50, STACK, 64 --> comp_fir_complexe59 +comp_fir_complexe59 : li %52, 4 --> comp_fir_complexe58 +comp_fir_complexe58 : mulo %51, %16, %52 --> comp_fir_complexe57 +comp_fir_complexe57 : add %98, %50, %51 --> comp_fir_complexe141 +comp_fir_complexe141: lw %9, 0(%98) --> comp_fir_complexe56 +comp_fir_complexe56 : emit c18 --> comp_fir_complexe55 +comp_fir_complexe55 : li %49, 4 --> comp_fir_complexe54 +comp_fir_complexe54 : mulo %48, %12, %49 --> comp_fir_complexe53 +comp_fir_complexe53 : add %97, %2, %48 --> comp_fir_complexe140 +comp_fir_complexe140: lw %47, 0(%97) --> comp_fir_complexe52 +comp_fir_complexe52 : mulo %42, %15, %47 --> comp_fir_complexe51 +comp_fir_complexe51 : li %46, 4 --> comp_fir_complexe50 +comp_fir_complexe50 : mulo %45, %12, %46 --> comp_fir_complexe49 +comp_fir_complexe49 : add %96, %3, %45 --> comp_fir_complexe139 +comp_fir_complexe139: lw %44, 0(%96) --> comp_fir_complexe48 +comp_fir_complexe48 : mulo %43, %9, %44 --> comp_fir_complexe47 +comp_fir_complexe47 : sub %40, %42, %43 --> comp_fir_complexe46 +comp_fir_complexe46 : li %41, 4 --> comp_fir_complexe45 +comp_fir_complexe45 : srav %10, %40, %41 --> comp_fir_complexe44 +comp_fir_complexe44 : emit c17 --> comp_fir_complexe43 +comp_fir_complexe43 : li %39, 4 --> comp_fir_complexe42 +comp_fir_complexe42 : mulo %38, %12, %39 --> comp_fir_complexe41 +comp_fir_complexe41 : add %95, %3, %38 --> comp_fir_complexe138 +comp_fir_complexe138: lw %37, 0(%95) --> comp_fir_complexe40 +comp_fir_complexe40 : mulo %32, %15, %37 --> comp_fir_complexe39 +comp_fir_complexe39 : li %36, 4 --> comp_fir_complexe38 +comp_fir_complexe38 : mulo %35, %12, %36 --> comp_fir_complexe37 +comp_fir_complexe37 : add %94, %2, %35 --> comp_fir_complexe137 +comp_fir_complexe137: lw %34, 0(%94) --> comp_fir_complexe36 +comp_fir_complexe36 : mulo %33, %9, %34 --> comp_fir_complexe35 +comp_fir_complexe35 : add %30, %32, %33 --> comp_fir_complexe34 +comp_fir_complexe34 : li %31, 4 --> comp_fir_complexe33 +comp_fir_complexe33 : srav %14, %30, %31 --> comp_fir_complexe32 +comp_fir_complexe32 : emit c16 --> comp_fir_complexe31 +comp_fir_complexe31 : add %13, %13, %10 --> comp_fir_complexe30 +comp_fir_complexe30 : emit c15 --> comp_fir_complexe29 +comp_fir_complexe29 : add %7, %7, %14 --> comp_fir_complexe28 +comp_fir_complexe28 : emit c14 --> comp_fir_complexe27 +comp_fir_complexe27 : li %29, 1 --> comp_fir_complexe26 +comp_fir_complexe26 : add %27, %16, %29 --> comp_fir_complexe25 +comp_fir_complexe25 : li %28, 16 --> comp_fir_complexe24 +comp_fir_complexe24 : la %93, mod --> comp_fir_complexe136 +comp_fir_complexe136: call %16, %93(%27, %28) --> comp_fir_complexe23 +comp_fir_complexe23 : emit c21 --> comp_fir_complexe22 +comp_fir_complexe22 : li %26, 1 --> comp_fir_complexe21 +comp_fir_complexe21 : add %12, %12, %26 --> comp_fir_complexe20 +comp_fir_complexe121: emit c35 --> comp_fir_complexe120 +comp_fir_complexe120: li %80, 0 --> comp_fir_complexe119 +comp_fir_complexe119: addi %81, STACK, 0 --> comp_fir_complexe118 +comp_fir_complexe118: li %83, 4 --> comp_fir_complexe117 +comp_fir_complexe117: mulo %82, %8, %83 --> comp_fir_complexe116 +comp_fir_complexe116: add %90, %81, %82 --> comp_fir_complexe133 +comp_fir_complexe133: sw %80, 0(%90) --> comp_fir_complexe115 +comp_fir_complexe115: emit c34 --> comp_fir_complexe114 +comp_fir_complexe114: li %76, 0 --> comp_fir_complexe113 +comp_fir_complexe113: addi %77, STACK, 64 --> comp_fir_complexe112 +comp_fir_complexe112: li %79, 4 --> comp_fir_complexe111 +comp_fir_complexe111: mulo %78, %8, %79 --> comp_fir_complexe110 +comp_fir_complexe110: add %89, %77, %78 --> comp_fir_complexe132 +comp_fir_complexe132: sw %76, 0(%89) --> comp_fir_complexe109 +comp_fir_complexe109: emit c36 --> comp_fir_complexe108 +comp_fir_complexe108: li %75, 1 --> comp_fir_complexe107 +comp_fir_complexe107: add %8, %8, %75 --> comp_fir_complexe106 + +function _main() : %1 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11 +entry main26 +main26: li %0, 0 --> main25 +main25: li %2, 0 --> main24 +main24: li %3, 0 --> main23 +main23: li %4, 0 --> main22 +main22: li %5, 0 --> main21 +main21: li %6, 0 --> main20 +main20: li %7, 0 --> main19 +main19: li %8, 0 --> main18 +main18: li %9, 0 --> main17 +main17: li %10, 0 --> main16 +main16: li %11, 0 --> main13 +main13: emit c42 --> main12 +main12: la %10, init --> main14 +main14: call %9, %10() --> main11 +main11: emit c41 --> main10 +main10: addi %2, GLOBALS, 0 --> main9 +main9 : addi %3, GLOBALS, 64 --> main8 +main8 : addi %4, GLOBALS, 128 --> main7 +main7 : addi %5, GLOBALS, 192 --> main6 +main6 : addi %6, GLOBALS, 256 --> main5 +main5 : addi %7, GLOBALS, 320 --> main4 +main4 : li %8, 16 --> main3 +main3 : la %11, comp_fir_complexe --> main15 +main15: call %0, %11(%2, %3, %4, %5, %6, %7, %8) --> main2 +main2 : emit c40 --> main1 +main1 : move %1, %0 --> main0 +main0 : return %1 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/fir_complexe.RTLabs.expected b/tests/clight/fir_complexe.RTLabs.expected new file mode 100644 index 0000000..7182483 --- /dev/null +++ b/tests/clight/fir_complexe.RTLabs.expected @@ -0,0 +1,623 @@ +program: (main function is "main") + + + globals: + "t1" = {[64]} + "t2" = {[64]} + "t3" = {[64]} + "t4" = {[64]} + "t5" = {[64]} + "t6" = {[64]} + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "init"(): void + locals: %0, %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23 + stacksize: 0 + entry: init43 + exit: init0 + + init9: emit c0 --> init8 + init8: imm_int 2, %2, --> init7 + init7: imm_int 4, %4, --> init6 + init6: mul %3, %0, %4 --> init5 + init5: store int32, add, 0("t6"), %3, %2 --> init4 + init43: emit c9 --> init42 + init42: emit c8 --> init41 + init41: imm_int 0, %0, --> init1 + init40: imm_int 0, %21, --> init39 + init4: emit c6 --> init3 + init39: emit c7 --> init38 + init38: imm_int 16, %23, --> init37 + init37: lt %22, %0, %23 --> init36 + init36: notbool %20, %22 --> init35 + init35: eq %20, %21 --> init34, init0 + init34: emit c5 --> init33 + init33: imm_int 2, %17, --> init32 + init32: imm_int 4, %19, --> init31 + init31: mul %18, %0, %19 --> init30 + init30: store int32, add, 0("t1"), %18, %17 --> init29 + init3: imm_int 1, %1, --> init2 + init29: emit c4 --> init28 + init28: imm_int 2, %14, --> init27 + init27: imm_int 4, %16, --> init26 + init26: mul %15, %0, %16 --> init25 + init25: store int32, add, 0("t2"), %15, %14 --> init24 + init24: emit c3 --> init23 + init23: imm_int 2, %11, --> init22 + init22: imm_int 4, %13, --> init21 + init21: mul %12, %0, %13 --> init20 + init20: store int32, add, 0("t3"), %12, %11 --> init19 + init2: add %0, %0, %1 --> init1 + init19: emit c2 --> init18 + init18: imm_int 2, %8, --> init17 + init17: imm_int 4, %10, --> init16 + init16: mul %9, %0, %10 --> init15 + init15: store int32, add, 0("t4"), %9, %8 --> init14 + init14: emit c1 --> init13 + init13: imm_int 2, %5, --> init12 + init12: imm_int 4, %7, --> init11 + init11: mul %6, %0, %7 --> init10 + init10: store int32, add, 0("t5"), %6, %5 --> init9 + init1: --> init40 + init0: return + + + "comp_fir_complexe"(%0, %1, %2, %3, %4, %5, %6): int -> int -> int -> int -> int -> int -> int -> int + locals: %17, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45, %46, %47, %48, %49, %50, %51, %52, %53, %54, %55, %56, %57, %58, %59, %60, %61, %62, %63, %64, %65, %66, %67, %68, %69, %70, %71, %72, %73, %74, %75, %76, %77, %78, %79, %80, %81, %82, %83, %84, %85, %86, %87 + result: %17 + stacksize: 128 + entry: comp_fir_complexe130 + exit: comp_fir_complexe0 + + comp_fir_complexe99: emit c30 --> comp_fir_complexe98 + comp_fir_complexe98: emit c29 --> comp_fir_complexe97 + comp_fir_complexe97: imm_int 0, %11, --> comp_fir_complexe3 + comp_fir_complexe96: imm_int 0, %73, --> comp_fir_complexe95 + comp_fir_complexe95: emit c28 --> comp_fir_complexe94 + comp_fir_complexe94: lt %74, %11, %6 --> comp_fir_complexe93 + comp_fir_complexe93: notbool %72, %74 --> comp_fir_complexe92 + comp_fir_complexe92: eq %72, %73 --> comp_fir_complexe91, comp_fir_complexe2 + comp_fir_complexe91: emit c26 --> comp_fir_complexe90 + comp_fir_complexe90: imm_int 4, %71, --> comp_fir_complexe89 + comp_fir_complexe9: imm_int 4, %20, --> comp_fir_complexe8 + comp_fir_complexe89: mul %70, %11, %71 --> comp_fir_complexe88 + comp_fir_complexe88: load int32, add, %0, %70, %66 --> comp_fir_complexe87 + comp_fir_complexe87: imm_addr 0($sp), %67, --> comp_fir_complexe86 + comp_fir_complexe86: imm_int 4, %69, --> comp_fir_complexe85 + comp_fir_complexe85: mul %68, %16, %69 --> comp_fir_complexe84 + comp_fir_complexe84: store int32, add, %67, %68, %66 --> comp_fir_complexe83 + comp_fir_complexe83: emit c25 --> comp_fir_complexe82 + comp_fir_complexe82: imm_int 4, %65, --> comp_fir_complexe81 + comp_fir_complexe81: mul %64, %11, %65 --> comp_fir_complexe80 + comp_fir_complexe80: load int32, add, %1, %64, %60 --> comp_fir_complexe79 + comp_fir_complexe8: mul %19, %11, %20 --> comp_fir_complexe7 + comp_fir_complexe79: imm_addr 64($sp), %61, --> comp_fir_complexe78 + comp_fir_complexe78: imm_int 4, %63, --> comp_fir_complexe77 + comp_fir_complexe77: mul %62, %16, %63 --> comp_fir_complexe76 + comp_fir_complexe76: store int32, add, %61, %62, %60 --> comp_fir_complexe75 + comp_fir_complexe75: emit c24 --> comp_fir_complexe74 + comp_fir_complexe74: emit c23 --> comp_fir_complexe73 + comp_fir_complexe73: imm_int 0, %12, --> comp_fir_complexe20 + comp_fir_complexe72: imm_int 0, %57, --> comp_fir_complexe71 + comp_fir_complexe71: emit c22 --> comp_fir_complexe70 + comp_fir_complexe70: imm_int 16, %59, --> comp_fir_complexe69 + comp_fir_complexe7: store int32, add, %5, %19, %7 --> comp_fir_complexe6 + comp_fir_complexe69: lt %58, %12, %59 --> comp_fir_complexe68 + comp_fir_complexe68: notbool %56, %58 --> comp_fir_complexe67 + comp_fir_complexe67: eq %56, %57 --> comp_fir_complexe66, comp_fir_complexe19 + comp_fir_complexe66: emit c20 --> comp_fir_complexe65 + comp_fir_complexe65: imm_addr 0($sp), %53, --> comp_fir_complexe64 + comp_fir_complexe64: imm_int 4, %55, --> comp_fir_complexe63 + comp_fir_complexe63: mul %54, %16, %55 --> comp_fir_complexe62 + comp_fir_complexe62: load int32, add, %53, %54, %15 --> comp_fir_complexe61 + comp_fir_complexe61: emit c19 --> comp_fir_complexe60 + comp_fir_complexe60: imm_addr 64($sp), %50, --> comp_fir_complexe59 + comp_fir_complexe6: emit c27 --> comp_fir_complexe5 + comp_fir_complexe59: imm_int 4, %52, --> comp_fir_complexe58 + comp_fir_complexe58: mul %51, %16, %52 --> comp_fir_complexe57 + comp_fir_complexe57: load int32, add, %50, %51, %9 --> comp_fir_complexe56 + comp_fir_complexe56: emit c18 --> comp_fir_complexe55 + comp_fir_complexe55: imm_int 4, %49, --> comp_fir_complexe54 + comp_fir_complexe54: mul %48, %12, %49 --> comp_fir_complexe53 + comp_fir_complexe53: load int32, add, %2, %48, %47 --> comp_fir_complexe52 + comp_fir_complexe52: mul %42, %15, %47 --> comp_fir_complexe51 + comp_fir_complexe51: imm_int 4, %46, --> comp_fir_complexe50 + comp_fir_complexe50: mul %45, %12, %46 --> comp_fir_complexe49 + comp_fir_complexe5: imm_int 1, %18, --> comp_fir_complexe4 + comp_fir_complexe49: load int32, add, %3, %45, %44 --> comp_fir_complexe48 + comp_fir_complexe48: mul %43, %9, %44 --> comp_fir_complexe47 + comp_fir_complexe47: sub %40, %42, %43 --> comp_fir_complexe46 + comp_fir_complexe46: imm_int 4, %41, --> comp_fir_complexe45 + comp_fir_complexe45: shr %10, %40, %41 --> comp_fir_complexe44 + comp_fir_complexe44: emit c17 --> comp_fir_complexe43 + comp_fir_complexe43: imm_int 4, %39, --> comp_fir_complexe42 + comp_fir_complexe42: mul %38, %12, %39 --> comp_fir_complexe41 + comp_fir_complexe41: load int32, add, %3, %38, %37 --> comp_fir_complexe40 + comp_fir_complexe40: mul %32, %15, %37 --> comp_fir_complexe39 + comp_fir_complexe4: add %11, %11, %18 --> comp_fir_complexe3 + comp_fir_complexe39: imm_int 4, %36, --> comp_fir_complexe38 + comp_fir_complexe38: mul %35, %12, %36 --> comp_fir_complexe37 + comp_fir_complexe37: load int32, add, %2, %35, %34 --> comp_fir_complexe36 + comp_fir_complexe36: mul %33, %9, %34 --> comp_fir_complexe35 + comp_fir_complexe35: add %30, %32, %33 --> comp_fir_complexe34 + comp_fir_complexe34: imm_int 4, %31, --> comp_fir_complexe33 + comp_fir_complexe33: shr %14, %30, %31 --> comp_fir_complexe32 + comp_fir_complexe32: emit c16 --> comp_fir_complexe31 + comp_fir_complexe31: add %13, %13, %10 --> comp_fir_complexe30 + comp_fir_complexe30: emit c15 --> comp_fir_complexe29 + comp_fir_complexe3: --> comp_fir_complexe96 + comp_fir_complexe29: add %7, %7, %14 --> comp_fir_complexe28 + comp_fir_complexe28: emit c14 --> comp_fir_complexe27 + comp_fir_complexe27: imm_int 1, %29, --> comp_fir_complexe26 + comp_fir_complexe26: add %27, %16, %29 --> comp_fir_complexe25 + comp_fir_complexe25: imm_int 16, %28, --> comp_fir_complexe24 + comp_fir_complexe24: mod %16, %27, %28 --> comp_fir_complexe23 + comp_fir_complexe23: emit c21 --> comp_fir_complexe22 + comp_fir_complexe22: imm_int 1, %26, --> comp_fir_complexe21 + comp_fir_complexe21: add %12, %12, %26 --> comp_fir_complexe20 + comp_fir_complexe20: --> comp_fir_complexe72 + comp_fir_complexe2: emit c10 --> comp_fir_complexe1 + comp_fir_complexe19: emit c13 --> comp_fir_complexe18 + comp_fir_complexe18: imm_int 1, %25, --> comp_fir_complexe17 + comp_fir_complexe17: add %23, %16, %25 --> comp_fir_complexe16 + comp_fir_complexe16: imm_int 16, %24, --> comp_fir_complexe15 + comp_fir_complexe15: mod %16, %23, %24 --> comp_fir_complexe14 + comp_fir_complexe14: emit c12 --> comp_fir_complexe13 + comp_fir_complexe130: emit c39 --> comp_fir_complexe129 + comp_fir_complexe13: imm_int 4, %22, --> comp_fir_complexe12 + comp_fir_complexe129: emit c38 --> comp_fir_complexe128 + comp_fir_complexe128: imm_int 0, %8, --> comp_fir_complexe106 + comp_fir_complexe127: imm_int 0, %85, --> comp_fir_complexe126 + comp_fir_complexe126: emit c37 --> comp_fir_complexe125 + comp_fir_complexe125: imm_int 16, %87, --> comp_fir_complexe124 + comp_fir_complexe124: lt %86, %8, %87 --> comp_fir_complexe123 + comp_fir_complexe123: notbool %84, %86 --> comp_fir_complexe122 + comp_fir_complexe122: eq %84, %85 --> comp_fir_complexe121, comp_fir_complexe105 + comp_fir_complexe121: emit c35 --> comp_fir_complexe120 + comp_fir_complexe120: imm_int 0, %80, --> comp_fir_complexe119 + comp_fir_complexe12: mul %21, %11, %22 --> comp_fir_complexe11 + comp_fir_complexe119: imm_addr 0($sp), %81, --> comp_fir_complexe118 + comp_fir_complexe118: imm_int 4, %83, --> comp_fir_complexe117 + comp_fir_complexe117: mul %82, %8, %83 --> comp_fir_complexe116 + comp_fir_complexe116: store int32, add, %81, %82, %80 --> comp_fir_complexe115 + comp_fir_complexe115: emit c34 --> comp_fir_complexe114 + comp_fir_complexe114: imm_int 0, %76, --> comp_fir_complexe113 + comp_fir_complexe113: imm_addr 64($sp), %77, --> comp_fir_complexe112 + comp_fir_complexe112: imm_int 4, %79, --> comp_fir_complexe111 + comp_fir_complexe111: mul %78, %8, %79 --> comp_fir_complexe110 + comp_fir_complexe110: store int32, add, %77, %78, %76 --> comp_fir_complexe109 + comp_fir_complexe11: store int32, add, %4, %21, %13 --> comp_fir_complexe10 + comp_fir_complexe109: emit c36 --> comp_fir_complexe108 + comp_fir_complexe108: imm_int 1, %75, --> comp_fir_complexe107 + comp_fir_complexe107: add %8, %8, %75 --> comp_fir_complexe106 + comp_fir_complexe106: --> comp_fir_complexe127 + comp_fir_complexe105: emit c33 --> comp_fir_complexe104 + comp_fir_complexe104: imm_int 0, %16, --> comp_fir_complexe103 + comp_fir_complexe103: emit c32 --> comp_fir_complexe102 + comp_fir_complexe102: imm_int 0, %13, --> comp_fir_complexe101 + comp_fir_complexe101: emit c31 --> comp_fir_complexe100 + comp_fir_complexe100: imm_int 0, %7, --> comp_fir_complexe99 + comp_fir_complexe10: emit c11 --> comp_fir_complexe9 + comp_fir_complexe1: imm_int 0, %17, --> comp_fir_complexe0 + comp_fir_complexe0: return %17 + + + "main"(): int + locals: %1, %0, %2, %3, %4, %5, %6, %7, %8, %9 + result: %1 + stacksize: 0 + entry: main13 + exit: main0 + + main9: imm_addr "t2", %3, --> main8 + main8: imm_addr "t3", %4, --> main7 + main7: imm_addr "t4", %5, --> main6 + main6: imm_addr "t5", %6, --> main5 + main5: imm_addr "t6", %7, --> main4 + main4: imm_int 16, %8, --> main3 + main3: call "comp_fir_complexe", %2, %3, %4, %5, %6, %7, %8, %0: int -> int -> int -> int -> int -> int -> int -> int --> main2 + main2: emit c40 --> main1 + main13: emit c42 --> main12 + main12: call "init", , %9: void --> main11 + main11: emit c41 --> main10 + main10: imm_addr "t1", %2, --> main9 + main1: mov %1, %0 --> main0 + main0: return %1 + + diff --git a/tests/clight/fir_complexe.c b/tests/clight/fir_complexe.c new file mode 100644 index 0000000..bf34ffa --- /dev/null +++ b/tests/clight/fir_complexe.c @@ -0,0 +1,52 @@ +int t1[16]; +int t2[16]; +int t3[16]; +int t4[16]; +int t5[16]; +int t6[16]; + +void init(){ + int i; + for(i=0;i<16;i++){ + t1[i] = 2; + t2[i] = 2; + t3[i] = 2; + t4[i] = 2; + t5[i] = 2; + t6[i] = 2; + } +} + +int comp_fir_complexe(int in_re[], int in_im[], int c_re[], int c_im[], int out_re[], int out_im[], int size) { + int i,j,res_re,res_im,tmp_im,tmp_re,tmp_x_re,tmp_x_im; + int x_re[16]; + int x_im[16]; + int ii; + for(ii=0;ii<16;ii++){x_re[ii]=0;x_im[ii]=0;} + int adx = 0; + res_re = 0; res_im = 0; + for (j=0;j>4; + tmp_im = (tmp_x_re*c_im[i]+tmp_x_im*c_re[i])>>4; + res_re = res_re + tmp_re; + res_im = res_im + tmp_im; + adx=(adx+1)%16; + } + + adx=(adx+1)%16; + + out_re[j]=res_re; + out_im[j]=res_im; + } + return 0; +} +int main(){ + init(); + return comp_fir_complexe(t1,t2,t3,t4,t5,t6,16); +} diff --git a/tests/clight/fir_complexe.c.expected b/tests/clight/fir_complexe.c.expected new file mode 100644 index 0000000..bf34ffa --- /dev/null +++ b/tests/clight/fir_complexe.c.expected @@ -0,0 +1,52 @@ +int t1[16]; +int t2[16]; +int t3[16]; +int t4[16]; +int t5[16]; +int t6[16]; + +void init(){ + int i; + for(i=0;i<16;i++){ + t1[i] = 2; + t2[i] = 2; + t3[i] = 2; + t4[i] = 2; + t5[i] = 2; + t6[i] = 2; + } +} + +int comp_fir_complexe(int in_re[], int in_im[], int c_re[], int c_im[], int out_re[], int out_im[], int size) { + int i,j,res_re,res_im,tmp_im,tmp_re,tmp_x_re,tmp_x_im; + int x_re[16]; + int x_im[16]; + int ii; + for(ii=0;ii<16;ii++){x_re[ii]=0;x_im[ii]=0;} + int adx = 0; + res_re = 0; res_im = 0; + for (j=0;j>4; + tmp_im = (tmp_x_re*c_im[i]+tmp_x_im*c_re[i])>>4; + res_re = res_re + tmp_re; + res_im = res_im + tmp_im; + adx=(adx+1)%16; + } + + adx=(adx+1)%16; + + out_re[j]=res_re; + out_im[j]=res_im; + } + return 0; +} +int main(){ + init(); + return comp_fir_complexe(t1,t2,t3,t4,t5,t6,16); +} diff --git a/tests/clight/fir_complexe.log.expected b/tests/clight/fir_complexe.log.expected new file mode 100644 index 0000000..77a2ddb --- /dev/null +++ b/tests/clight/fir_complexe.log.expected @@ -0,0 +1,2 @@ +Global Error (Translation RTLabs -> RTL): + Store mode not supported. diff --git a/tests/clight/for.ASM.expected b/tests/clight/for.ASM.expected new file mode 100644 index 0000000..752c092 --- /dev/null +++ b/tests/clight/for.ASM.expected @@ -0,0 +1,708 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 0 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main85 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin for_loopParalAsync +for_loopParalAsync94: +c29: +li $v0, 0 +c28: +li $a2, 0 +c27: +li $a0, 3 +add $a2, $a2, $a0 +c26: +li $a0, 2 +mulo $a2, $a2, $a0 +c25: +li $a0, 3 +div $a2, $a2, $a0 +c24: +li $a0, 8 +add $a2, $a2, $a0 +c23: +c22: +li $a1, 0 +for_loopParalAsync37: +li $a3, 0 +c21: +li $a0, 20 +slt $a0, $a1, $a0 +seq $a0, $a0, $zero +beq $a0, $a3, for_loopParalAsync31 +c16: +c15: +li $a1, 1 +for_loopParalAsync16: +li $a3, 0 +c14: +slt $a0, $a1, $a2 +seq $a0, $a0, $zero +beq $a0, $a3, for_loopParalAsync11 +c10: +jr $ra +for_loopParalAsync11: +c12: +c11: +c13: +li $a0, 1 +add $a1, $a1, $a0 +j for_loopParalAsync16 +for_loopParalAsync31: +c19: +li $a0, 1 +add $v0, $v0, $a0 +c18: +c17: +c20: +li $a0, 1 +add $a1, $a1, $a0 +j for_loopParalAsync37 +# end for_loopParalAsync + + +# begin for_incrParam +for_incrParam49: +c86: +add $a3, $a0, $a1 +c85: +c84: +c83: +li $v0, 4 +sub $v0, $a3, $v0 +for_incrParam15: +li $t0, 0 +c82: +li $a2, 6 +add $a2, $a1, $a2 +slt $a2, $v0, $a2 +seq $a2, $a2, $zero +beq $a2, $t0, for_incrParam8 +c79: +jr $ra +for_incrParam8: +c80: +add $v0, $v0, $a3 +add $v0, $v0, $a0 +c81: +add $v0, $v0, $a0 +j for_incrParam15 +# end for_incrParam + + +# begin for_incr +for_incr44: +c78: +li $v0, 0 +c77: +c76: +li $a2, 3 +add $a2, $a0, $a2 +for_incr15: +li $a3, 0 +c75: +li $a0, 2 +mulo $a0, $a1, $a0 +sle $a0, $a2, $a0 +seq $a0, $a0, $zero +beq $a0, $a3, for_incr8 +c72: +jr $ra +for_incr8: +c73: +sub $v0, $v0, $a2 +c74: +li $a0, 1 +add $a2, $a2, $a0 +j for_incr15 +# end for_incr + + +# begin for_imbriq +for_imbriq64: +addi $sp, $sp, -24 +sw $ra, 20($sp) +sw $s4, 16($sp) +sw $s3, 12($sp) +sw $s2, 8($sp) +sw $s1, 4($sp) +sw $s0, 0($sp) +move $s4, $a0 +move $s3, $a1 +c71: +li $s0, 0 +c70: +c69: +li $s1, 0 +for_imbriq29: +li $a0, 0 +c68: +li $v0, 23 +slt $v0, $s1, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, for_imbriq23 +c59: +move $v0, $s0 +lw $ra, 20($sp) +lw $s4, 16($sp) +lw $s3, 12($sp) +lw $s2, 8($sp) +lw $s1, 4($sp) +lw $s0, 0($sp) +addi $sp, $sp, 24 +jr $ra +for_imbriq23: +c66: +li $v0, 0 +c65: +c64: +li $s2, 1 +for_imbriq18: +li $a1, 0 +c63: +li $a0, 12 +slt $a0, $s2, $a0 +seq $a0, $a0, $zero +beq $a0, $a1, for_imbriq12 +c67: +add $s1, $s1, $s4 +j for_imbriq29 +for_imbriq12: +c61: +add $s0, $s0, $v0 +c60: +la $a2, mod +move $a0, $v0 +move $a1, $s2 +jalr $a2 +c62: +add $s2, $s2, $s3 +j for_imbriq18 +# end for_imbriq + + +# begin for_fortSimple +for_fortSimple41: +c58: +li $t0, 0 +c57: +c56: +move $a3, $a0 +for_fortSimple14: +li $t1, 0 +c55: +slt $v0, $a3, $a1 +seq $v0, $v0, $zero +beq $v0, $t1, for_fortSimple9 +c52: +add $v0, $t0, $a0 +c51: +jr $ra +for_fortSimple9: +c53: +add $t0, $t0, $a3 +c54: +add $a3, $a3, $a2 +j for_fortSimple14 +# end for_fortSimple + + +# begin for_forfor +for_forfor44: +c94: +c93: +li $a1, 0 +c92: +li $v0, 0 +for_forfor18: +li $a2, 0 +c91: +li $a0, 10 +slt $a0, $a1, $a0 +seq $a0, $a0, $zero +beq $a0, $a2, for_forfor12 +c87: +jr $ra +for_forfor12: +c89: +li $a0, 1 +add $v0, $v0, $a0 +c88: +li $a0, 1 +add $v0, $v0, $a0 +c90: +li $a0, 1 +add $a1, $a1, $a0 +j for_forfor18 +# end for_forfor + + +# begin for_ex +for_ex43: +c50: +li $v0, 0 +c49: +c48: +li $a3, 3 +add $a3, $a0, $a3 +for_ex14: +li $t0, 0 +c47: +li $a0, 2 +mulo $a0, $a1, $a0 +sle $a0, $a3, $a0 +seq $a0, $a0, $zero +beq $a0, $t0, for_ex7 +c44: +jr $ra +for_ex7: +c45: +sub $v0, $v0, $a3 +c46: +add $a3, $a3, $a2 +j for_ex14 +# end for_ex + + +# begin for_double +for_double64: +c43: +li $a1, 0 +c42: +li $a2, 0 +c41: +c40: +li $a3, 0 +for_double29: +li $t0, 0 +c39: +li $v0, 12 +slt $v0, $a3, $v0 +seq $v0, $v0, $zero +beq $v0, $t0, for_double23 +c36: +c35: +li $a3, 0 +for_double15: +li $t0, 0 +c34: +li $v0, 5 +slt $v0, $a3, $v0 +seq $v0, $v0, $zero +beq $v0, $t0, for_double9 +c31: +mulo $v0, $a1, $a2 +c30: +jr $ra +for_double9: +c32: +add $a2, $a2, $a3 +c33: +add $a3, $a3, $a0 +j for_double15 +for_double23: +c37: +add $a1, $a1, $a3 +c38: +add $a3, $a3, $a0 +j for_double29 +# end for_double + + +# begin for_2 +for_253: +c9: +li $a2, 0 +c8: +li $v0, 2 +mulo $v0, $a0, $v0 +c7: +li $a3, 4 +mulo $a0, $a0, $a3 +c6: +li $a3, 1 +add $a1, $a1, $a3 +c5: +c4: +for_213: +li $t0, 0 +c3: +slt $a3, $v0, $a0 +seq $a3, $a3, $zero +beq $a3, $t0, for_28 +c0: +li $v0, 1 +add $v0, $a2, $v0 +jr $ra +for_28: +c1: +add $a2, $a2, $v0 +c2: +add $v0, $v0, $a1 +j for_213 +# end for_2 + + +# begin _main +main85: +addi $sp, $sp, -4 +sw $ra, 0($sp) +c104: +li $a0, 3 +li $a1, 1 +la $v0, for_253 +jalr $v0 +c103: +li $a0, 1 +li $a1, 2 +li $a2, 3 +la $v0, for_loopParalAsync94 +jalr $v0 +c102: +li $a0, 1 +la $v0, for_double64 +jalr $v0 +c101: +li $a0, 2 +li $a1, 10 +li $a2, 1 +la $v0, for_ex43 +jalr $v0 +c100: +li $a0, 2 +li $a1, 10 +li $a2, 1 +la $v0, for_fortSimple41 +jalr $v0 +c99: +li $a0, 2 +li $a1, 3 +la $v0, for_imbriq64 +jalr $v0 +c98: +li $a0, 2 +li $a1, 3 +la $v0, for_incr44 +jalr $v0 +c97: +li $a0, 2 +li $a1, 3 +la $v0, for_incrParam49 +jalr $v0 +c96: +la $v0, for_forfor44 +jalr $v0 +c95: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end _main diff --git a/tests/clight/for.Clight.expected b/tests/clight/for.Clight.expected new file mode 100644 index 0000000..aaa00f2 --- /dev/null +++ b/tests/clight/for.Clight.expected @@ -0,0 +1,502 @@ +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +int for_2(int a, int b) +{ + int i; + int min; + int max; + int pas; + int resul; + c9: + resul = 0; + c8: + min = a * 2; + c7: + max = a * 4; + c6: + pas = b + 1; + c5: + for (({ c4: i = min; }); (/* c3 */ i < max); ({ c2: i = i + pas; })) { + c1: + resul = resul + i; + } + c0: + return resul + 1; +} + +int for_loopParalAsync(int a, int b, int c) +{ + int i; + int j; + int x; + int y; + int z; + c29: + x = 0; + c28: + a = 0; + c27: + a = a + 3; + c26: + a = a * 2; + c25: + a = a / 3; + c24: + a = a + 8; + c23: + for (({ c22: i = 0; }); (/* c21 */ i < 20); ({ c20: i = i + 1; })) { + c19: + x = x + 1; + c18: + b = b + 2; + c17: + y = b / x; + } + c16: + for (({ c15: j = 1; }); (/* c14 */ j < a); ({ c13: j = j + 1; })) { + c12: + c = c * 2; + c11: + z = c / j; + } + c10: + return x; +} + +int for_double(int pas) +{ + int i; + int j; + int result; + int a; + int b; + c43: + a = 0; + c42: + b = 0; + c41: + for (({ c40: i = 0; }); (/* c39 */ i < 12); ({ c38: i = i + pas; })) { + c37: + a = a + i; + } + c36: + for (({ c35: j = 0; }); (/* c34 */ j < 5); ({ c33: j = j + pas; })) { + c32: + b = b + j; + } + c31: + result = a * b; + c30: + return result; +} + +int for_ex(int b, int e, int pas) +{ + int i; + int res; + c50: + res = 0; + c49: + for (({ c48: + i = b + 3; }); + (/* c47 */ + i <= e * 2); + ({ c46: + i = i + pas; })) { + c45: + res = res - i; + } + c44: + return res; +} + +int for_fortSimple(int a, int b, int pas) +{ + int res; + int i; + int sortie; + int c; + c58: + res = 0; + c57: + for (({ c56: i = a; }); (/* c55 */ i < b); ({ c54: i = i + pas; })) { + c53: + res = res + i; + } + c52: + sortie = res + a; + c51: + return sortie; +} + +int for_imbriq(int pas1, int pas2) +{ + int i; + int j; + int a; + int b; + c71: + a = 0; + c70: + for (({ c69: i = 0; }); (/* c68 */ i < 23); ({ c67: i = i + pas1; })) { + c66: + b = 0; + c65: + for (({ c64: j = 1; }); (/* c63 */ j < 12); ({ c62: j = j + pas2; })) { + c61: + a = a + b; + c60: + b = b % j; + } + } + c59: + return a; +} + +int for_incr(int b, int e) +{ + int i; + int res; + c78: + res = 0; + c77: + for (({ c76: + i = b + 3; }); + (/* c75 */ + i <= e * 2); + ({ c74: + i = i + 1; })) { + c73: + res = res - i; + } + c72: + return res; +} + +int for_incrParam(int a, int b) +{ + int i; + int z; + int c; + c86: + z = a + b; + c85: + c = 3 * z; + c84: + for (({ c83: i = z - 4; }); (/* c82 */ i < b + 6); ({ c81: i = i + a; })) { + c80: + i = (i + z) + a; + } + c79: + return i; +} + +int for_forfor(void) +{ + int i; + int j; + c94: + for (({ c93: + i = 0; }), ({ c92: + j = 0; }); + (/* c91 */ + i < 10); + ({ c90: + i = i + 1; })) { + c89: + j = j + 1; + c88: + j = j + 1; + } + c87: + return j; +} + +int main(void) +{ + int a; + c104: + a = for_2(3, 1); + c103: + a = for_loopParalAsync(1, 2, 3); + c102: + a = for_double(1); + c101: + a = for_ex(2, 10, 1); + c100: + a = for_fortSimple(2, 10, 1); + c99: + a = for_imbriq(2, 3); + c98: + a = for_incr(2, 3); + c97: + a = for_incrParam(2, 3); + c96: + a = for_forfor(); + c95: + return a; +} + + diff --git a/tests/clight/for.Cminor.expected b/tests/clight/for.Cminor.expected new file mode 100644 index 0000000..c202f77 --- /dev/null +++ b/tests/clight/for.Cminor.expected @@ -0,0 +1,805 @@ + + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"for_2" (a, b) : int -> int -> int { + + stack 0; + + var max, pas, i, resul, min; + + c9: + resul = 0; + c8: + min = a * 2; + c7: + max = a * 4; + c6: + pas = b + 1; + c5: + c4: + i = min; + block { + loop { + if (!(/* c3 */ i < max)) { + exit 0; + } + else { + } + block { + c1: + resul = resul + i; + } + c2: + i = i + pas; + } + } + c0: + return resul + 1; + +} + + +"for_loopParalAsync" (a, b, c) : int -> int -> int -> int { + + stack 0; + + var z, y, x, j, i; + + c29: + x = 0; + c28: + a = 0; + c27: + a = a + 3; + c26: + a = a * 2; + c25: + a = a / 3; + c24: + a = a + 8; + c23: + c22: + i = 0; + block { + loop { + if (!(/* c21 */ i < 20)) { + exit 0; + } + else { + } + block { + c19: + x = x + 1; + c18: + b = b + 2; + c17: + y = b / x; + } + c20: + i = i + 1; + } + } + c16: + c15: + j = 1; + block { + loop { + if (!(/* c14 */ j < a)) { + exit 0; + } + else { + } + block { + c12: + c = c * 2; + c11: + z = c / j; + } + c13: + j = j + 1; + } + } + c10: + return x; + +} + + +"for_double" (pas) : int -> int { + + stack 0; + + var j, i, result, b, a; + + c43: + a = 0; + c42: + b = 0; + c41: + c40: + i = 0; + block { + loop { + if (!(/* c39 */ i < 12)) { + exit 0; + } + else { + } + block { + c37: + a = a + i; + } + c38: + i = i + pas; + } + } + c36: + c35: + j = 0; + block { + loop { + if (!(/* c34 */ j < 5)) { + exit 0; + } + else { + } + block { + c32: + b = b + j; + } + c33: + j = j + pas; + } + } + c31: + result = a * b; + c30: + return result; + +} + + +"for_ex" (b, e, pas) : int -> int -> int -> int { + + stack 0; + + var res, i; + + c50: + res = 0; + c49: + c48: + i = b + 3; + block { + loop { + if (!(/* c47 */ i <= (e * 2))) { + exit 0; + } + else { + } + block { + c45: + res = res - i; + } + c46: + i = i + pas; + } + } + c44: + return res; + +} + + +"for_fortSimple" (a, b, pas) : int -> int -> int -> int { + + stack 0; + + var res, sortie, i, c; + + c58: + res = 0; + c57: + c56: + i = a; + block { + loop { + if (!(/* c55 */ i < b)) { + exit 0; + } + else { + } + block { + c53: + res = res + i; + } + c54: + i = i + pas; + } + } + c52: + sortie = res + a; + c51: + return sortie; + +} + + +"for_imbriq" (pas1, pas2) : int -> int -> int { + + stack 0; + + var j, i, b, a; + + c71: + a = 0; + c70: + c69: + i = 0; + block { + loop { + if (!(/* c68 */ i < 23)) { + exit 0; + } + else { + } + block { + c66: + b = 0; + c65: + c64: + j = 1; + block { + loop { + if (!(/* c63 */ j < 12)) { + exit 0; + } + else { + } + block { + c61: + a = a + b; + c60: + b = b % j; + } + c62: + j = j + pas2; + } + } + } + c67: + i = i + pas1; + } + } + c59: + return a; + +} + + +"for_incr" (b, e) : int -> int -> int { + + stack 0; + + var res, i; + + c78: + res = 0; + c77: + c76: + i = b + 3; + block { + loop { + if (!(/* c75 */ i <= (e * 2))) { + exit 0; + } + else { + } + block { + c73: + res = res - i; + } + c74: + i = i + 1; + } + } + c72: + return res; + +} + + +"for_incrParam" (a, b) : int -> int -> int { + + stack 0; + + var z, i, c; + + c86: + z = a + b; + c85: + c = 3 * z; + c84: + c83: + i = z - 4; + block { + loop { + if (!(/* c82 */ i < (b + 6))) { + exit 0; + } + else { + } + block { + c80: + i = (i + z) + a; + } + c81: + i = i + a; + } + } + c79: + return i; + +} + + +"for_forfor" () : int { + + stack 0; + + var j, i; + + c94: + c93: + i = 0; + c92: + j = 0; + block { + loop { + if (!(/* c91 */ i < 10)) { + exit 0; + } + else { + } + block { + c89: + j = j + 1; + c88: + j = j + 1; + } + c90: + i = i + 1; + } + } + c87: + return j; + +} + + +"main" () : int { + + stack 0; + + var a; + + c104: + a = "for_2"(3, 1) : int -> int -> int; + c103: + a = "for_loopParalAsync"(1, 2, 3) : int -> int -> int -> int; + c102: + a = "for_double"(1) : int -> int; + c101: + a = "for_ex"(2, 10, 1) : int -> int -> int -> int; + c100: + a = "for_fortSimple"(2, 10, 1) : int -> int -> int -> int; + c99: + a = "for_imbriq"(2, 3) : int -> int -> int; + c98: + a = "for_incr"(2, 3) : int -> int -> int; + c97: + a = "for_incrParam"(2, 3) : int -> int -> int; + c96: + a = "for_forfor"() : int; + c95: + return a; + +} + + diff --git a/tests/clight/for.ERTL.expected b/tests/clight/for.ERTL.expected new file mode 100644 index 0000000..7a1b592 --- /dev/null +++ b/tests/clight/for.ERTL.expected @@ -0,0 +1,1233 @@ +program + +globals 0 + +procedure for_loopParalAsync(3) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35 +entry for_loopParalAsync94 +for_loopParalAsync94 : newframe --> for_loopParalAsync93 +for_loopParalAsync93 : move %35, $ra --> for_loopParalAsync92 +for_loopParalAsync92 : move %34, $s7 --> for_loopParalAsync91 +for_loopParalAsync91 : move %33, $s6 --> for_loopParalAsync90 +for_loopParalAsync90 : move %32, $s5 --> for_loopParalAsync89 +for_loopParalAsync89 : move %31, $s4 --> for_loopParalAsync88 +for_loopParalAsync88 : move %30, $s3 --> for_loopParalAsync87 +for_loopParalAsync87 : move %29, $s2 --> for_loopParalAsync86 +for_loopParalAsync86 : move %28, $s1 --> for_loopParalAsync85 +for_loopParalAsync85 : move %27, $s0 --> for_loopParalAsync84 +for_loopParalAsync84 : move %0, $a0 --> for_loopParalAsync83 +for_loopParalAsync83 : move %1, $a1 --> for_loopParalAsync82 +for_loopParalAsync82 : move %2, $a2 --> for_loopParalAsync81 +for_loopParalAsync81 : li %3, 0 --> for_loopParalAsync80 +for_loopParalAsync80 : li %4, 0 --> for_loopParalAsync79 +for_loopParalAsync79 : li %5, 0 --> for_loopParalAsync78 +for_loopParalAsync78 : li %6, 0 --> for_loopParalAsync77 +for_loopParalAsync77 : li %7, 0 --> for_loopParalAsync76 +for_loopParalAsync76 : li %9, 0 --> for_loopParalAsync75 +for_loopParalAsync75 : li %10, 0 --> for_loopParalAsync74 +for_loopParalAsync74 : li %11, 0 --> for_loopParalAsync73 +for_loopParalAsync73 : li %12, 0 --> for_loopParalAsync72 +for_loopParalAsync72 : li %13, 0 --> for_loopParalAsync71 +for_loopParalAsync71 : li %14, 0 --> for_loopParalAsync70 +for_loopParalAsync70 : li %15, 0 --> for_loopParalAsync69 +for_loopParalAsync69 : li %16, 0 --> for_loopParalAsync68 +for_loopParalAsync68 : li %17, 0 --> for_loopParalAsync67 +for_loopParalAsync67 : li %18, 0 --> for_loopParalAsync66 +for_loopParalAsync66 : li %19, 0 --> for_loopParalAsync65 +for_loopParalAsync65 : li %20, 0 --> for_loopParalAsync64 +for_loopParalAsync64 : li %21, 0 --> for_loopParalAsync63 +for_loopParalAsync63 : li %22, 0 --> for_loopParalAsync62 +for_loopParalAsync62 : li %23, 0 --> for_loopParalAsync61 +for_loopParalAsync61 : li %24, 0 --> for_loopParalAsync60 +for_loopParalAsync60 : li %25, 0 --> for_loopParalAsync59 +for_loopParalAsync59 : li %26, 0 --> for_loopParalAsync56 +for_loopParalAsync56 : emit c29 --> for_loopParalAsync55 +for_loopParalAsync55 : li %5, 0 --> for_loopParalAsync54 +for_loopParalAsync54 : emit c28 --> for_loopParalAsync53 +for_loopParalAsync53 : li %0, 0 --> for_loopParalAsync52 +for_loopParalAsync52 : emit c27 --> for_loopParalAsync51 +for_loopParalAsync51 : li %24, 3 --> for_loopParalAsync50 +for_loopParalAsync50 : add %0, %0, %24 --> for_loopParalAsync49 +for_loopParalAsync49 : emit c26 --> for_loopParalAsync48 +for_loopParalAsync48 : li %23, 2 --> for_loopParalAsync47 +for_loopParalAsync47 : mulo %0, %0, %23 --> for_loopParalAsync46 +for_loopParalAsync46 : emit c25 --> for_loopParalAsync45 +for_loopParalAsync45 : li %22, 3 --> for_loopParalAsync44 +for_loopParalAsync44 : div %0, %0, %22 --> for_loopParalAsync43 +for_loopParalAsync43 : emit c24 --> for_loopParalAsync42 +for_loopParalAsync42 : li %21, 8 --> for_loopParalAsync41 +for_loopParalAsync41 : add %0, %0, %21 --> for_loopParalAsync40 +for_loopParalAsync40 : emit c23 --> for_loopParalAsync39 +for_loopParalAsync39 : emit c22 --> for_loopParalAsync38 +for_loopParalAsync38 : li %7, 0 --> for_loopParalAsync20 +for_loopParalAsync20 : j --> for_loopParalAsync37 +for_loopParalAsync37 : li %18, 0 --> for_loopParalAsync36 +for_loopParalAsync36 : emit c21 --> for_loopParalAsync35 +for_loopParalAsync35 : li %20, 20 --> for_loopParalAsync34 +for_loopParalAsync34 : slt %19, %7, %20 --> for_loopParalAsync33 +for_loopParalAsync33 : li %26, 0 --> for_loopParalAsync58 +for_loopParalAsync58 : seq %17, %19, %26 --> for_loopParalAsync32 +for_loopParalAsync32 : beq %17, %18 --> for_loopParalAsync31, for_loopParalAsync19 +for_loopParalAsync19 : emit c16 --> for_loopParalAsync18 +for_loopParalAsync18 : emit c15 --> for_loopParalAsync17 +for_loopParalAsync17 : li %6, 1 --> for_loopParalAsync3 +for_loopParalAsync3 : j --> for_loopParalAsync16 +for_loopParalAsync16 : li %12, 0 --> for_loopParalAsync15 +for_loopParalAsync15 : emit c14 --> for_loopParalAsync14 +for_loopParalAsync14 : slt %13, %6, %0 --> for_loopParalAsync13 +for_loopParalAsync13 : li %25, 0 --> for_loopParalAsync57 +for_loopParalAsync57 : seq %11, %13, %25 --> for_loopParalAsync12 +for_loopParalAsync12 : beq %11, %12 --> for_loopParalAsync11, for_loopParalAsync2 +for_loopParalAsync2 : emit c10 --> for_loopParalAsync1 +for_loopParalAsync1 : move %8, %5 --> for_loopParalAsync0 +for_loopParalAsync0 : j --> for_loopParalAsync106 +for_loopParalAsync106: move $v0, %8 --> for_loopParalAsync105 +for_loopParalAsync105: move $ra, %35 --> for_loopParalAsync104 +for_loopParalAsync104: move $s7, %34 --> for_loopParalAsync103 +for_loopParalAsync103: move $s6, %33 --> for_loopParalAsync102 +for_loopParalAsync102: move $s5, %32 --> for_loopParalAsync101 +for_loopParalAsync101: move $s4, %31 --> for_loopParalAsync100 +for_loopParalAsync100: move $s3, %30 --> for_loopParalAsync99 +for_loopParalAsync99 : move $s2, %29 --> for_loopParalAsync98 +for_loopParalAsync98 : move $s1, %28 --> for_loopParalAsync97 +for_loopParalAsync97 : move $s0, %27 --> for_loopParalAsync96 +for_loopParalAsync96 : delframe --> for_loopParalAsync95 +for_loopParalAsync95 : jr $ra (xmits $v0) +for_loopParalAsync11 : emit c12 --> for_loopParalAsync10 +for_loopParalAsync10 : li %10, 2 --> for_loopParalAsync9 +for_loopParalAsync9 : mulo %2, %2, %10 --> for_loopParalAsync8 +for_loopParalAsync8 : emit c11 --> for_loopParalAsync7 +for_loopParalAsync7 : div %3, %2, %6 --> for_loopParalAsync6 +for_loopParalAsync6 : emit c13 --> for_loopParalAsync5 +for_loopParalAsync5 : li %9, 1 --> for_loopParalAsync4 +for_loopParalAsync4 : add %6, %6, %9 --> for_loopParalAsync3 +for_loopParalAsync31 : emit c19 --> for_loopParalAsync30 +for_loopParalAsync30 : li %16, 1 --> for_loopParalAsync29 +for_loopParalAsync29 : add %5, %5, %16 --> for_loopParalAsync28 +for_loopParalAsync28 : emit c18 --> for_loopParalAsync27 +for_loopParalAsync27 : li %15, 2 --> for_loopParalAsync26 +for_loopParalAsync26 : add %1, %1, %15 --> for_loopParalAsync25 +for_loopParalAsync25 : emit c17 --> for_loopParalAsync24 +for_loopParalAsync24 : div %4, %1, %5 --> for_loopParalAsync23 +for_loopParalAsync23 : emit c20 --> for_loopParalAsync22 +for_loopParalAsync22 : li %14, 1 --> for_loopParalAsync21 +for_loopParalAsync21 : add %7, %7, %14 --> for_loopParalAsync20 + +procedure for_incrParam(2) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23 +entry for_incrParam49 +for_incrParam49: newframe --> for_incrParam48 +for_incrParam48: move %23, $ra --> for_incrParam47 +for_incrParam47: move %22, $s7 --> for_incrParam46 +for_incrParam46: move %21, $s6 --> for_incrParam45 +for_incrParam45: move %20, $s5 --> for_incrParam44 +for_incrParam44: move %19, $s4 --> for_incrParam43 +for_incrParam43: move %18, $s3 --> for_incrParam42 +for_incrParam42: move %17, $s2 --> for_incrParam41 +for_incrParam41: move %16, $s1 --> for_incrParam40 +for_incrParam40: move %15, $s0 --> for_incrParam39 +for_incrParam39: move %0, $a0 --> for_incrParam38 +for_incrParam38: move %1, $a1 --> for_incrParam37 +for_incrParam37: li %2, 0 --> for_incrParam36 +for_incrParam36: li %3, 0 --> for_incrParam35 +for_incrParam35: li %4, 0 --> for_incrParam34 +for_incrParam34: li %6, 0 --> for_incrParam33 +for_incrParam33: li %7, 0 --> for_incrParam32 +for_incrParam32: li %8, 0 --> for_incrParam31 +for_incrParam31: li %9, 0 --> for_incrParam30 +for_incrParam30: li %10, 0 --> for_incrParam29 +for_incrParam29: li %11, 0 --> for_incrParam28 +for_incrParam28: li %12, 0 --> for_incrParam27 +for_incrParam27: li %13, 0 --> for_incrParam26 +for_incrParam26: li %14, 0 --> for_incrParam24 +for_incrParam24: emit c86 --> for_incrParam23 +for_incrParam23: add %2, %0, %1 --> for_incrParam22 +for_incrParam22: emit c85 --> for_incrParam21 +for_incrParam21: li %13, 3 --> for_incrParam20 +for_incrParam20: mulo %4, %13, %2 --> for_incrParam19 +for_incrParam19: emit c84 --> for_incrParam18 +for_incrParam18: emit c83 --> for_incrParam17 +for_incrParam17: li %12, 4 --> for_incrParam16 +for_incrParam16: sub %3, %2, %12 --> for_incrParam3 +for_incrParam3 : j --> for_incrParam15 +for_incrParam15: li %8, 0 --> for_incrParam14 +for_incrParam14: emit c82 --> for_incrParam13 +for_incrParam13: li %11, 6 --> for_incrParam12 +for_incrParam12: add %10, %1, %11 --> for_incrParam11 +for_incrParam11: slt %9, %3, %10 --> for_incrParam10 +for_incrParam10: li %14, 0 --> for_incrParam25 +for_incrParam25: seq %7, %9, %14 --> for_incrParam9 +for_incrParam9 : beq %7, %8 --> for_incrParam8, for_incrParam2 +for_incrParam2 : emit c79 --> for_incrParam1 +for_incrParam1 : move %5, %3 --> for_incrParam0 +for_incrParam0 : j --> for_incrParam61 +for_incrParam61: move $v0, %5 --> for_incrParam60 +for_incrParam60: move $ra, %23 --> for_incrParam59 +for_incrParam59: move $s7, %22 --> for_incrParam58 +for_incrParam58: move $s6, %21 --> for_incrParam57 +for_incrParam57: move $s5, %20 --> for_incrParam56 +for_incrParam56: move $s4, %19 --> for_incrParam55 +for_incrParam55: move $s3, %18 --> for_incrParam54 +for_incrParam54: move $s2, %17 --> for_incrParam53 +for_incrParam53: move $s1, %16 --> for_incrParam52 +for_incrParam52: move $s0, %15 --> for_incrParam51 +for_incrParam51: delframe --> for_incrParam50 +for_incrParam50: jr $ra (xmits $v0) +for_incrParam8 : emit c80 --> for_incrParam7 +for_incrParam7 : add %6, %3, %2 --> for_incrParam6 +for_incrParam6 : add %3, %6, %0 --> for_incrParam5 +for_incrParam5 : emit c81 --> for_incrParam4 +for_incrParam4 : add %3, %3, %0 --> for_incrParam3 + +procedure for_incr(2) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21 +entry for_incr44 +for_incr44: newframe --> for_incr43 +for_incr43: move %21, $ra --> for_incr42 +for_incr42: move %20, $s7 --> for_incr41 +for_incr41: move %19, $s6 --> for_incr40 +for_incr40: move %18, $s5 --> for_incr39 +for_incr39: move %17, $s4 --> for_incr38 +for_incr38: move %16, $s3 --> for_incr37 +for_incr37: move %15, $s2 --> for_incr36 +for_incr36: move %14, $s1 --> for_incr35 +for_incr35: move %13, $s0 --> for_incr34 +for_incr34: move %0, $a0 --> for_incr33 +for_incr33: move %1, $a1 --> for_incr32 +for_incr32: li %2, 0 --> for_incr31 +for_incr31: li %3, 0 --> for_incr30 +for_incr30: li %5, 0 --> for_incr29 +for_incr29: li %6, 0 --> for_incr28 +for_incr28: li %7, 0 --> for_incr27 +for_incr27: li %8, 0 --> for_incr26 +for_incr26: li %9, 0 --> for_incr25 +for_incr25: li %10, 0 --> for_incr24 +for_incr24: li %11, 0 --> for_incr23 +for_incr23: li %12, 0 --> for_incr21 +for_incr21: emit c78 --> for_incr20 +for_incr20: li %2, 0 --> for_incr19 +for_incr19: emit c77 --> for_incr18 +for_incr18: emit c76 --> for_incr17 +for_incr17: li %11, 3 --> for_incr16 +for_incr16: add %3, %0, %11 --> for_incr3 +for_incr3 : j --> for_incr15 +for_incr15: li %7, 0 --> for_incr14 +for_incr14: emit c75 --> for_incr13 +for_incr13: li %10, 2 --> for_incr12 +for_incr12: mulo %9, %1, %10 --> for_incr11 +for_incr11: sle %8, %3, %9 --> for_incr10 +for_incr10: li %12, 0 --> for_incr22 +for_incr22: seq %6, %8, %12 --> for_incr9 +for_incr9 : beq %6, %7 --> for_incr8, for_incr2 +for_incr2 : emit c72 --> for_incr1 +for_incr1 : move %4, %2 --> for_incr0 +for_incr0 : j --> for_incr56 +for_incr56: move $v0, %4 --> for_incr55 +for_incr55: move $ra, %21 --> for_incr54 +for_incr54: move $s7, %20 --> for_incr53 +for_incr53: move $s6, %19 --> for_incr52 +for_incr52: move $s5, %18 --> for_incr51 +for_incr51: move $s4, %17 --> for_incr50 +for_incr50: move $s3, %16 --> for_incr49 +for_incr49: move $s2, %15 --> for_incr48 +for_incr48: move $s1, %14 --> for_incr47 +for_incr47: move $s0, %13 --> for_incr46 +for_incr46: delframe --> for_incr45 +for_incr45: jr $ra (xmits $v0) +for_incr8 : emit c73 --> for_incr7 +for_incr7 : sub %2, %2, %3 --> for_incr6 +for_incr6 : emit c74 --> for_incr5 +for_incr5 : li %5, 1 --> for_incr4 +for_incr4 : add %3, %3, %5 --> for_incr3 + +procedure for_imbriq(2) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26 +entry for_imbriq64 +for_imbriq64: newframe --> for_imbriq63 +for_imbriq63: move %26, $ra --> for_imbriq62 +for_imbriq62: move %25, $s7 --> for_imbriq61 +for_imbriq61: move %24, $s6 --> for_imbriq60 +for_imbriq60: move %23, $s5 --> for_imbriq59 +for_imbriq59: move %22, $s4 --> for_imbriq58 +for_imbriq58: move %21, $s3 --> for_imbriq57 +for_imbriq57: move %20, $s2 --> for_imbriq56 +for_imbriq56: move %19, $s1 --> for_imbriq55 +for_imbriq55: move %18, $s0 --> for_imbriq54 +for_imbriq54: move %0, $a0 --> for_imbriq53 +for_imbriq53: move %1, $a1 --> for_imbriq52 +for_imbriq52: li %2, 0 --> for_imbriq51 +for_imbriq51: li %3, 0 --> for_imbriq50 +for_imbriq50: li %4, 0 --> for_imbriq49 +for_imbriq49: li %5, 0 --> for_imbriq48 +for_imbriq48: li %7, 0 --> for_imbriq47 +for_imbriq47: li %8, 0 --> for_imbriq46 +for_imbriq46: li %9, 0 --> for_imbriq45 +for_imbriq45: li %10, 0 --> for_imbriq44 +for_imbriq44: li %11, 0 --> for_imbriq43 +for_imbriq43: li %12, 0 --> for_imbriq42 +for_imbriq42: li %13, 0 --> for_imbriq41 +for_imbriq41: li %14, 0 --> for_imbriq40 +for_imbriq40: li %15, 0 --> for_imbriq39 +for_imbriq39: li %16, 0 --> for_imbriq38 +for_imbriq38: li %17, 0 --> for_imbriq34 +for_imbriq34: emit c71 --> for_imbriq33 +for_imbriq33: li %5, 0 --> for_imbriq32 +for_imbriq32: emit c70 --> for_imbriq31 +for_imbriq31: emit c69 --> for_imbriq30 +for_imbriq30: li %3, 0 --> for_imbriq3 +for_imbriq3 : j --> for_imbriq29 +for_imbriq29: li %12, 0 --> for_imbriq28 +for_imbriq28: emit c68 --> for_imbriq27 +for_imbriq27: li %14, 23 --> for_imbriq26 +for_imbriq26: slt %13, %3, %14 --> for_imbriq25 +for_imbriq25: li %16, 0 --> for_imbriq36 +for_imbriq36: seq %11, %13, %16 --> for_imbriq24 +for_imbriq24: beq %11, %12 --> for_imbriq23, for_imbriq2 +for_imbriq2 : emit c59 --> for_imbriq1 +for_imbriq1 : move %6, %5 --> for_imbriq0 +for_imbriq0 : j --> for_imbriq76 +for_imbriq76: move $v0, %6 --> for_imbriq75 +for_imbriq75: move $ra, %26 --> for_imbriq74 +for_imbriq74: move $s7, %25 --> for_imbriq73 +for_imbriq73: move $s6, %24 --> for_imbriq72 +for_imbriq72: move $s5, %23 --> for_imbriq71 +for_imbriq71: move $s4, %22 --> for_imbriq70 +for_imbriq70: move $s3, %21 --> for_imbriq69 +for_imbriq69: move $s2, %20 --> for_imbriq68 +for_imbriq68: move $s1, %19 --> for_imbriq67 +for_imbriq67: move $s0, %18 --> for_imbriq66 +for_imbriq66: delframe --> for_imbriq65 +for_imbriq65: jr $ra (xmits $v0) +for_imbriq23: emit c66 --> for_imbriq22 +for_imbriq22: li %4, 0 --> for_imbriq21 +for_imbriq21: emit c65 --> for_imbriq20 +for_imbriq20: emit c64 --> for_imbriq19 +for_imbriq19: li %2, 1 --> for_imbriq6 +for_imbriq6 : j --> for_imbriq18 +for_imbriq18: li %8, 0 --> for_imbriq17 +for_imbriq17: emit c63 --> for_imbriq16 +for_imbriq16: li %10, 12 --> for_imbriq15 +for_imbriq15: slt %9, %2, %10 --> for_imbriq14 +for_imbriq14: li %15, 0 --> for_imbriq35 +for_imbriq35: seq %7, %9, %15 --> for_imbriq13 +for_imbriq13: beq %7, %8 --> for_imbriq12, for_imbriq5 +for_imbriq5 : emit c67 --> for_imbriq4 +for_imbriq4 : add %3, %3, %0 --> for_imbriq3 +for_imbriq12: emit c61 --> for_imbriq11 +for_imbriq11: add %5, %5, %4 --> for_imbriq10 +for_imbriq10: emit c60 --> for_imbriq9 +for_imbriq9 : la %17, mod --> for_imbriq37 +for_imbriq37: j --> for_imbriq80 +for_imbriq80: move $a0, %4 --> for_imbriq79 +for_imbriq79: move $a1, %2 --> for_imbriq78 +for_imbriq78: call %17(2) --> for_imbriq77 +for_imbriq77: move %4, $v0 --> for_imbriq8 +for_imbriq8 : emit c62 --> for_imbriq7 +for_imbriq7 : add %2, %2, %1 --> for_imbriq6 + +procedure for_fortSimple(3) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20 +entry for_fortSimple41 +for_fortSimple41: newframe --> for_fortSimple40 +for_fortSimple40: move %20, $ra --> for_fortSimple39 +for_fortSimple39: move %19, $s7 --> for_fortSimple38 +for_fortSimple38: move %18, $s6 --> for_fortSimple37 +for_fortSimple37: move %17, $s5 --> for_fortSimple36 +for_fortSimple36: move %16, $s4 --> for_fortSimple35 +for_fortSimple35: move %15, $s3 --> for_fortSimple34 +for_fortSimple34: move %14, $s2 --> for_fortSimple33 +for_fortSimple33: move %13, $s1 --> for_fortSimple32 +for_fortSimple32: move %12, $s0 --> for_fortSimple31 +for_fortSimple31: move %0, $a0 --> for_fortSimple30 +for_fortSimple30: move %1, $a1 --> for_fortSimple29 +for_fortSimple29: move %2, $a2 --> for_fortSimple28 +for_fortSimple28: li %3, 0 --> for_fortSimple27 +for_fortSimple27: li %4, 0 --> for_fortSimple26 +for_fortSimple26: li %5, 0 --> for_fortSimple25 +for_fortSimple25: li %6, 0 --> for_fortSimple24 +for_fortSimple24: li %8, 0 --> for_fortSimple23 +for_fortSimple23: li %9, 0 --> for_fortSimple22 +for_fortSimple22: li %10, 0 --> for_fortSimple21 +for_fortSimple21: li %11, 0 --> for_fortSimple19 +for_fortSimple19: emit c58 --> for_fortSimple18 +for_fortSimple18: li %3, 0 --> for_fortSimple17 +for_fortSimple17: emit c57 --> for_fortSimple16 +for_fortSimple16: emit c56 --> for_fortSimple15 +for_fortSimple15: move %5, %0 --> for_fortSimple5 +for_fortSimple5 : j --> for_fortSimple14 +for_fortSimple14: li %9, 0 --> for_fortSimple13 +for_fortSimple13: emit c55 --> for_fortSimple12 +for_fortSimple12: slt %10, %5, %1 --> for_fortSimple11 +for_fortSimple11: li %11, 0 --> for_fortSimple20 +for_fortSimple20: seq %8, %10, %11 --> for_fortSimple10 +for_fortSimple10: beq %8, %9 --> for_fortSimple9, for_fortSimple4 +for_fortSimple4 : emit c52 --> for_fortSimple3 +for_fortSimple3 : add %4, %3, %0 --> for_fortSimple2 +for_fortSimple2 : emit c51 --> for_fortSimple1 +for_fortSimple1 : move %7, %4 --> for_fortSimple0 +for_fortSimple0 : j --> for_fortSimple53 +for_fortSimple53: move $v0, %7 --> for_fortSimple52 +for_fortSimple52: move $ra, %20 --> for_fortSimple51 +for_fortSimple51: move $s7, %19 --> for_fortSimple50 +for_fortSimple50: move $s6, %18 --> for_fortSimple49 +for_fortSimple49: move $s5, %17 --> for_fortSimple48 +for_fortSimple48: move $s4, %16 --> for_fortSimple47 +for_fortSimple47: move $s3, %15 --> for_fortSimple46 +for_fortSimple46: move $s2, %14 --> for_fortSimple45 +for_fortSimple45: move $s1, %13 --> for_fortSimple44 +for_fortSimple44: move $s0, %12 --> for_fortSimple43 +for_fortSimple43: delframe --> for_fortSimple42 +for_fortSimple42: jr $ra (xmits $v0) +for_fortSimple9 : emit c53 --> for_fortSimple8 +for_fortSimple8 : add %3, %3, %5 --> for_fortSimple7 +for_fortSimple7 : emit c54 --> for_fortSimple6 +for_fortSimple6 : add %5, %5, %2 --> for_fortSimple5 + +procedure for_forfor(0) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19 +entry for_forfor44 +for_forfor44: newframe --> for_forfor43 +for_forfor43: move %19, $ra --> for_forfor42 +for_forfor42: move %18, $s7 --> for_forfor41 +for_forfor41: move %17, $s6 --> for_forfor40 +for_forfor40: move %16, $s5 --> for_forfor39 +for_forfor39: move %15, $s4 --> for_forfor38 +for_forfor38: move %14, $s3 --> for_forfor37 +for_forfor37: move %13, $s2 --> for_forfor36 +for_forfor36: move %12, $s1 --> for_forfor35 +for_forfor35: move %11, $s0 --> for_forfor34 +for_forfor34: li %0, 0 --> for_forfor33 +for_forfor33: li %1, 0 --> for_forfor32 +for_forfor32: li %3, 0 --> for_forfor31 +for_forfor31: li %4, 0 --> for_forfor30 +for_forfor30: li %5, 0 --> for_forfor29 +for_forfor29: li %6, 0 --> for_forfor28 +for_forfor28: li %7, 0 --> for_forfor27 +for_forfor27: li %8, 0 --> for_forfor26 +for_forfor26: li %9, 0 --> for_forfor25 +for_forfor25: li %10, 0 --> for_forfor23 +for_forfor23: emit c94 --> for_forfor22 +for_forfor22: emit c93 --> for_forfor21 +for_forfor21: li %1, 0 --> for_forfor20 +for_forfor20: emit c92 --> for_forfor19 +for_forfor19: li %0, 0 --> for_forfor3 +for_forfor3 : j --> for_forfor18 +for_forfor18: li %7, 0 --> for_forfor17 +for_forfor17: emit c91 --> for_forfor16 +for_forfor16: li %9, 10 --> for_forfor15 +for_forfor15: slt %8, %1, %9 --> for_forfor14 +for_forfor14: li %10, 0 --> for_forfor24 +for_forfor24: seq %6, %8, %10 --> for_forfor13 +for_forfor13: beq %6, %7 --> for_forfor12, for_forfor2 +for_forfor2 : emit c87 --> for_forfor1 +for_forfor1 : move %2, %0 --> for_forfor0 +for_forfor0 : j --> for_forfor56 +for_forfor56: move $v0, %2 --> for_forfor55 +for_forfor55: move $ra, %19 --> for_forfor54 +for_forfor54: move $s7, %18 --> for_forfor53 +for_forfor53: move $s6, %17 --> for_forfor52 +for_forfor52: move $s5, %16 --> for_forfor51 +for_forfor51: move $s4, %15 --> for_forfor50 +for_forfor50: move $s3, %14 --> for_forfor49 +for_forfor49: move $s2, %13 --> for_forfor48 +for_forfor48: move $s1, %12 --> for_forfor47 +for_forfor47: move $s0, %11 --> for_forfor46 +for_forfor46: delframe --> for_forfor45 +for_forfor45: jr $ra (xmits $v0) +for_forfor12: emit c89 --> for_forfor11 +for_forfor11: li %5, 1 --> for_forfor10 +for_forfor10: add %0, %0, %5 --> for_forfor9 +for_forfor9 : emit c88 --> for_forfor8 +for_forfor8 : li %4, 1 --> for_forfor7 +for_forfor7 : add %0, %0, %4 --> for_forfor6 +for_forfor6 : emit c90 --> for_forfor5 +for_forfor5 : li %3, 1 --> for_forfor4 +for_forfor4 : add %1, %1, %3 --> for_forfor3 + +procedure for_ex(3) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21 +entry for_ex43 +for_ex43: newframe --> for_ex42 +for_ex42: move %21, $ra --> for_ex41 +for_ex41: move %20, $s7 --> for_ex40 +for_ex40: move %19, $s6 --> for_ex39 +for_ex39: move %18, $s5 --> for_ex38 +for_ex38: move %17, $s4 --> for_ex37 +for_ex37: move %16, $s3 --> for_ex36 +for_ex36: move %15, $s2 --> for_ex35 +for_ex35: move %14, $s1 --> for_ex34 +for_ex34: move %13, $s0 --> for_ex33 +for_ex33: move %0, $a0 --> for_ex32 +for_ex32: move %1, $a1 --> for_ex31 +for_ex31: move %2, $a2 --> for_ex30 +for_ex30: li %3, 0 --> for_ex29 +for_ex29: li %4, 0 --> for_ex28 +for_ex28: li %6, 0 --> for_ex27 +for_ex27: li %7, 0 --> for_ex26 +for_ex26: li %8, 0 --> for_ex25 +for_ex25: li %9, 0 --> for_ex24 +for_ex24: li %10, 0 --> for_ex23 +for_ex23: li %11, 0 --> for_ex22 +for_ex22: li %12, 0 --> for_ex20 +for_ex20: emit c50 --> for_ex19 +for_ex19: li %3, 0 --> for_ex18 +for_ex18: emit c49 --> for_ex17 +for_ex17: emit c48 --> for_ex16 +for_ex16: li %11, 3 --> for_ex15 +for_ex15: add %4, %0, %11 --> for_ex3 +for_ex3 : j --> for_ex14 +for_ex14: li %7, 0 --> for_ex13 +for_ex13: emit c47 --> for_ex12 +for_ex12: li %10, 2 --> for_ex11 +for_ex11: mulo %9, %1, %10 --> for_ex10 +for_ex10: sle %8, %4, %9 --> for_ex9 +for_ex9 : li %12, 0 --> for_ex21 +for_ex21: seq %6, %8, %12 --> for_ex8 +for_ex8 : beq %6, %7 --> for_ex7, for_ex2 +for_ex2 : emit c44 --> for_ex1 +for_ex1 : move %5, %3 --> for_ex0 +for_ex0 : j --> for_ex55 +for_ex55: move $v0, %5 --> for_ex54 +for_ex54: move $ra, %21 --> for_ex53 +for_ex53: move $s7, %20 --> for_ex52 +for_ex52: move $s6, %19 --> for_ex51 +for_ex51: move $s5, %18 --> for_ex50 +for_ex50: move $s4, %17 --> for_ex49 +for_ex49: move $s3, %16 --> for_ex48 +for_ex48: move $s2, %15 --> for_ex47 +for_ex47: move $s1, %14 --> for_ex46 +for_ex46: move $s0, %13 --> for_ex45 +for_ex45: delframe --> for_ex44 +for_ex44: jr $ra (xmits $v0) +for_ex7 : emit c45 --> for_ex6 +for_ex6 : sub %3, %3, %4 --> for_ex5 +for_ex5 : emit c46 --> for_ex4 +for_ex4 : add %4, %4, %2 --> for_ex3 + +procedure for_double(1) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25 +entry for_double64 +for_double64: newframe --> for_double63 +for_double63: move %25, $ra --> for_double62 +for_double62: move %24, $s7 --> for_double61 +for_double61: move %23, $s6 --> for_double60 +for_double60: move %22, $s5 --> for_double59 +for_double59: move %21, $s4 --> for_double58 +for_double58: move %20, $s3 --> for_double57 +for_double57: move %19, $s2 --> for_double56 +for_double56: move %18, $s1 --> for_double55 +for_double55: move %17, $s0 --> for_double54 +for_double54: move %0, $a0 --> for_double53 +for_double53: li %1, 0 --> for_double52 +for_double52: li %2, 0 --> for_double51 +for_double51: li %3, 0 --> for_double50 +for_double50: li %4, 0 --> for_double49 +for_double49: li %5, 0 --> for_double48 +for_double48: li %7, 0 --> for_double47 +for_double47: li %8, 0 --> for_double46 +for_double46: li %9, 0 --> for_double45 +for_double45: li %10, 0 --> for_double44 +for_double44: li %11, 0 --> for_double43 +for_double43: li %12, 0 --> for_double42 +for_double42: li %13, 0 --> for_double41 +for_double41: li %14, 0 --> for_double40 +for_double40: li %15, 0 --> for_double39 +for_double39: li %16, 0 --> for_double36 +for_double36: emit c43 --> for_double35 +for_double35: li %5, 0 --> for_double34 +for_double34: emit c42 --> for_double33 +for_double33: li %4, 0 --> for_double32 +for_double32: emit c41 --> for_double31 +for_double31: emit c40 --> for_double30 +for_double30: li %2, 0 --> for_double19 +for_double19: j --> for_double29 +for_double29: li %12, 0 --> for_double28 +for_double28: emit c39 --> for_double27 +for_double27: li %14, 12 --> for_double26 +for_double26: slt %13, %2, %14 --> for_double25 +for_double25: li %16, 0 --> for_double38 +for_double38: seq %11, %13, %16 --> for_double24 +for_double24: beq %11, %12 --> for_double23, for_double18 +for_double18: emit c36 --> for_double17 +for_double17: emit c35 --> for_double16 +for_double16: li %1, 0 --> for_double5 +for_double5 : j --> for_double15 +for_double15: li %8, 0 --> for_double14 +for_double14: emit c34 --> for_double13 +for_double13: li %10, 5 --> for_double12 +for_double12: slt %9, %1, %10 --> for_double11 +for_double11: li %15, 0 --> for_double37 +for_double37: seq %7, %9, %15 --> for_double10 +for_double10: beq %7, %8 --> for_double9, for_double4 +for_double4 : emit c31 --> for_double3 +for_double3 : mulo %3, %5, %4 --> for_double2 +for_double2 : emit c30 --> for_double1 +for_double1 : move %6, %3 --> for_double0 +for_double0 : j --> for_double76 +for_double76: move $v0, %6 --> for_double75 +for_double75: move $ra, %25 --> for_double74 +for_double74: move $s7, %24 --> for_double73 +for_double73: move $s6, %23 --> for_double72 +for_double72: move $s5, %22 --> for_double71 +for_double71: move $s4, %21 --> for_double70 +for_double70: move $s3, %20 --> for_double69 +for_double69: move $s2, %19 --> for_double68 +for_double68: move $s1, %18 --> for_double67 +for_double67: move $s0, %17 --> for_double66 +for_double66: delframe --> for_double65 +for_double65: jr $ra (xmits $v0) +for_double9 : emit c32 --> for_double8 +for_double8 : add %4, %4, %1 --> for_double7 +for_double7 : emit c33 --> for_double6 +for_double6 : add %1, %1, %0 --> for_double5 +for_double23: emit c37 --> for_double22 +for_double22: add %5, %5, %2 --> for_double21 +for_double21: emit c38 --> for_double20 +for_double20: add %2, %2, %0 --> for_double19 + +procedure for_2(2) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24 +entry for_253 +for_253: newframe --> for_252 +for_252: move %24, $ra --> for_251 +for_251: move %23, $s7 --> for_250 +for_250: move %22, $s6 --> for_249 +for_249: move %21, $s5 --> for_248 +for_248: move %20, $s4 --> for_247 +for_247: move %19, $s3 --> for_246 +for_246: move %18, $s2 --> for_245 +for_245: move %17, $s1 --> for_244 +for_244: move %16, $s0 --> for_243 +for_243: move %0, $a0 --> for_242 +for_242: move %1, $a1 --> for_241 +for_241: li %2, 0 --> for_240 +for_240: li %3, 0 --> for_239 +for_239: li %4, 0 --> for_238 +for_238: li %5, 0 --> for_237 +for_237: li %6, 0 --> for_236 +for_236: li %8, 0 --> for_235 +for_235: li %9, 0 --> for_234 +for_234: li %10, 0 --> for_233 +for_233: li %11, 0 --> for_232 +for_232: li %12, 0 --> for_231 +for_231: li %13, 0 --> for_230 +for_230: li %14, 0 --> for_229 +for_229: li %15, 0 --> for_227 +for_227: emit c9 --> for_226 +for_226: li %5, 0 --> for_225 +for_225: emit c8 --> for_224 +for_224: li %14, 2 --> for_223 +for_223: mulo %6, %0, %14 --> for_222 +for_222: emit c7 --> for_221 +for_221: li %13, 4 --> for_220 +for_220: mulo %2, %0, %13 --> for_219 +for_219: emit c6 --> for_218 +for_218: li %12, 1 --> for_217 +for_217: add %3, %1, %12 --> for_216 +for_216: emit c5 --> for_215 +for_215: emit c4 --> for_214 +for_214: move %4, %6 --> for_24 +for_24 : j --> for_213 +for_213: li %10, 0 --> for_212 +for_212: emit c3 --> for_211 +for_211: slt %11, %4, %2 --> for_210 +for_210: li %15, 0 --> for_228 +for_228: seq %9, %11, %15 --> for_29 +for_29 : beq %9, %10 --> for_28, for_23 +for_23 : emit c0 --> for_22 +for_22 : li %8, 1 --> for_21 +for_21 : add %7, %5, %8 --> for_20 +for_20 : j --> for_265 +for_265: move $v0, %7 --> for_264 +for_264: move $ra, %24 --> for_263 +for_263: move $s7, %23 --> for_262 +for_262: move $s6, %22 --> for_261 +for_261: move $s5, %21 --> for_260 +for_260: move $s4, %20 --> for_259 +for_259: move $s3, %19 --> for_258 +for_258: move $s2, %18 --> for_257 +for_257: move $s1, %17 --> for_256 +for_256: move $s0, %16 --> for_255 +for_255: delframe --> for_254 +for_254: jr $ra (xmits $v0) +for_28 : emit c1 --> for_27 +for_27 : add %5, %5, %4 --> for_26 +for_26 : emit c2 --> for_25 +for_25 : add %4, %4, %3 --> for_24 + +procedure _main(0) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37 +entry main85 +main85 : newframe --> main84 +main84 : move %37, $ra --> main83 +main83 : move %36, $s7 --> main82 +main82 : move %35, $s6 --> main81 +main81 : move %34, $s5 --> main80 +main80 : move %33, $s4 --> main79 +main79 : move %32, $s3 --> main78 +main78 : move %31, $s2 --> main77 +main77 : move %30, $s1 --> main76 +main76 : move %29, $s0 --> main75 +main75 : li %0, 0 --> main74 +main74 : li %2, 0 --> main73 +main73 : li %3, 0 --> main72 +main72 : li %4, 0 --> main71 +main71 : li %5, 0 --> main70 +main70 : li %6, 0 --> main69 +main69 : li %7, 0 --> main68 +main68 : li %8, 0 --> main67 +main67 : li %9, 0 --> main66 +main66 : li %10, 0 --> main65 +main65 : li %11, 0 --> main64 +main64 : li %12, 0 --> main63 +main63 : li %13, 0 --> main62 +main62 : li %14, 0 --> main61 +main61 : li %15, 0 --> main60 +main60 : li %16, 0 --> main59 +main59 : li %17, 0 --> main58 +main58 : li %18, 0 --> main57 +main57 : li %19, 0 --> main56 +main56 : li %20, 0 --> main55 +main55 : li %21, 0 --> main54 +main54 : li %22, 0 --> main53 +main53 : li %23, 0 --> main52 +main52 : li %24, 0 --> main51 +main51 : li %25, 0 --> main50 +main50 : li %26, 0 --> main49 +main49 : li %27, 0 --> main48 +main48 : li %28, 0 --> main38 +main38 : emit c104 --> main37 +main37 : li %18, 3 --> main36 +main36 : li %19, 1 --> main35 +main35 : la %26, for_2 --> main45 +main45 : j --> main125 +main125: move $a0, %18 --> main124 +main124: move $a1, %19 --> main123 +main123: call %26(2) --> main122 +main122: move %0, $v0 --> main34 +main34 : emit c103 --> main33 +main33 : li %15, 1 --> main32 +main32 : li %16, 2 --> main31 +main31 : li %17, 3 --> main30 +main30 : la %25, for_loopParalAsync --> main44 +main44 : j --> main121 +main121: move $a0, %15 --> main120 +main120: move $a1, %16 --> main119 +main119: move $a2, %17 --> main118 +main118: call %25(3) --> main117 +main117: move %0, $v0 --> main29 +main29 : emit c102 --> main28 +main28 : li %14, 1 --> main27 +main27 : la %23, for_double --> main42 +main42 : j --> main114 +main114: move $a0, %14 --> main113 +main113: call %23(1) --> main112 +main112: move %0, $v0 --> main26 +main26 : emit c101 --> main25 +main25 : li %11, 2 --> main24 +main24 : li %12, 10 --> main23 +main23 : li %13, 1 --> main22 +main22 : la %22, for_ex --> main41 +main41 : j --> main111 +main111: move $a0, %11 --> main110 +main110: move $a1, %12 --> main109 +main109: move $a2, %13 --> main108 +main108: call %22(3) --> main107 +main107: move %0, $v0 --> main21 +main21 : emit c100 --> main20 +main20 : li %8, 2 --> main19 +main19 : li %9, 10 --> main18 +main18 : li %10, 1 --> main17 +main17 : la %21, for_fortSimple --> main40 +main40 : j --> main106 +main106: move $a0, %8 --> main105 +main105: move $a1, %9 --> main104 +main104: move $a2, %10 --> main103 +main103: call %21(3) --> main102 +main102: move %0, $v0 --> main16 +main16 : emit c99 --> main15 +main15 : li %6, 2 --> main14 +main14 : li %7, 3 --> main13 +main13 : la %20, for_imbriq --> main39 +main39 : j --> main101 +main101: move $a0, %6 --> main100 +main100: move $a1, %7 --> main99 +main99 : call %20(2) --> main98 +main98 : move %0, $v0 --> main12 +main12 : emit c98 --> main11 +main11 : li %4, 2 --> main10 +main10 : li %5, 3 --> main9 +main9 : la %28, for_incr --> main47 +main47 : j --> main133 +main133: move $a0, %4 --> main132 +main132: move $a1, %5 --> main131 +main131: call %28(2) --> main130 +main130: move %0, $v0 --> main8 +main8 : emit c97 --> main7 +main7 : li %2, 2 --> main6 +main6 : li %3, 3 --> main5 +main5 : la %27, for_incrParam --> main46 +main46 : j --> main129 +main129: move $a0, %2 --> main128 +main128: move $a1, %3 --> main127 +main127: call %27(2) --> main126 +main126: move %0, $v0 --> main4 +main4 : emit c96 --> main3 +main3 : la %24, for_forfor --> main43 +main43 : j --> main116 +main116: call %24(0) --> main115 +main115: move %0, $v0 --> main2 +main2 : emit c95 --> main1 +main1 : move %1, %0 --> main0 +main0 : j --> main97 +main97 : move $v0, %1 --> main96 +main96 : move $ra, %37 --> main95 +main95 : move $s7, %36 --> main94 +main94 : move $s6, %35 --> main93 +main93 : move $s5, %34 --> main92 +main92 : move $s4, %33 --> main91 +main91 : move $s3, %32 --> main90 +main90 : move $s2, %31 --> main89 +main89 : move $s1, %30 --> main88 +main88 : move $s0, %29 --> main87 +main87 : delframe --> main86 +main86 : jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/for.LIN.expected b/tests/clight/for.LIN.expected new file mode 100644 index 0000000..052ea26 --- /dev/null +++ b/tests/clight/for.LIN.expected @@ -0,0 +1,803 @@ +program + +globals 0 + +procedure for_loopParalAsync(3) +var 0 +for_loopParalAsync94: +newframe +c29: +li $v0, 0 +c28: +li $a2, 0 +c27: +li $a0, 3 +add $a2, $a2, $a0 +c26: +li $a0, 2 +mulo $a2, $a2, $a0 +c25: +li $a0, 3 +div $a2, $a2, $a0 +c24: +li $a0, 8 +add $a2, $a2, $a0 +c23: +c22: +li $a1, 0 +for_loopParalAsync37: +li $a3, 0 +c21: +li $a0, 20 +slt $a0, $a1, $a0 +seq $a0, $a0, $zero +beq $a0, $a3, for_loopParalAsync31 +c16: +c15: +li $a1, 1 +for_loopParalAsync16: +li $a3, 0 +c14: +slt $a0, $a1, $a2 +seq $a0, $a0, $zero +beq $a0, $a3, for_loopParalAsync11 +c10: +delframe +jr $ra +for_loopParalAsync11: +c12: +c11: +c13: +li $a0, 1 +add $a1, $a1, $a0 +j for_loopParalAsync16 +for_loopParalAsync31: +c19: +li $a0, 1 +add $v0, $v0, $a0 +c18: +c17: +c20: +li $a0, 1 +add $a1, $a1, $a0 +j for_loopParalAsync37 + +procedure for_incrParam(2) +var 0 +for_incrParam49: +newframe +c86: +add $a3, $a0, $a1 +c85: +c84: +c83: +li $v0, 4 +sub $v0, $a3, $v0 +for_incrParam15: +li $t0, 0 +c82: +li $a2, 6 +add $a2, $a1, $a2 +slt $a2, $v0, $a2 +seq $a2, $a2, $zero +beq $a2, $t0, for_incrParam8 +c79: +delframe +jr $ra +for_incrParam8: +c80: +add $v0, $v0, $a3 +add $v0, $v0, $a0 +c81: +add $v0, $v0, $a0 +j for_incrParam15 + +procedure for_incr(2) +var 0 +for_incr44: +newframe +c78: +li $v0, 0 +c77: +c76: +li $a2, 3 +add $a2, $a0, $a2 +for_incr15: +li $a3, 0 +c75: +li $a0, 2 +mulo $a0, $a1, $a0 +sle $a0, $a2, $a0 +seq $a0, $a0, $zero +beq $a0, $a3, for_incr8 +c72: +delframe +jr $ra +for_incr8: +c73: +sub $v0, $v0, $a2 +c74: +li $a0, 1 +add $a2, $a2, $a0 +j for_incr15 + +procedure for_imbriq(2) +var 24 +for_imbriq64: +newframe +sw $ra, 20($sp) +sw $s4, 16($sp) +sw $s3, 12($sp) +sw $s2, 8($sp) +sw $s1, 4($sp) +sw $s0, 0($sp) +move $s4, $a0 +move $s3, $a1 +c71: +li $s0, 0 +c70: +c69: +li $s1, 0 +for_imbriq29: +li $a0, 0 +c68: +li $v0, 23 +slt $v0, $s1, $v0 +seq $v0, $v0, $zero +beq $v0, $a0, for_imbriq23 +c59: +move $v0, $s0 +lw $ra, 20($sp) +lw $s4, 16($sp) +lw $s3, 12($sp) +lw $s2, 8($sp) +lw $s1, 4($sp) +lw $s0, 0($sp) +delframe +jr $ra +for_imbriq23: +c66: +li $v0, 0 +c65: +c64: +li $s2, 1 +for_imbriq18: +li $a1, 0 +c63: +li $a0, 12 +slt $a0, $s2, $a0 +seq $a0, $a0, $zero +beq $a0, $a1, for_imbriq12 +c67: +add $s1, $s1, $s4 +j for_imbriq29 +for_imbriq12: +c61: +add $s0, $s0, $v0 +c60: +la $a2, mod +move $a0, $v0 +move $a1, $s2 +call $a2 +c62: +add $s2, $s2, $s3 +j for_imbriq18 + +procedure for_fortSimple(3) +var 0 +for_fortSimple41: +newframe +c58: +li $t0, 0 +c57: +c56: +move $a3, $a0 +for_fortSimple14: +li $t1, 0 +c55: +slt $v0, $a3, $a1 +seq $v0, $v0, $zero +beq $v0, $t1, for_fortSimple9 +c52: +add $v0, $t0, $a0 +c51: +delframe +jr $ra +for_fortSimple9: +c53: +add $t0, $t0, $a3 +c54: +add $a3, $a3, $a2 +j for_fortSimple14 + +procedure for_forfor(0) +var 0 +for_forfor44: +newframe +c94: +c93: +li $a1, 0 +c92: +li $v0, 0 +for_forfor18: +li $a2, 0 +c91: +li $a0, 10 +slt $a0, $a1, $a0 +seq $a0, $a0, $zero +beq $a0, $a2, for_forfor12 +c87: +delframe +jr $ra +for_forfor12: +c89: +li $a0, 1 +add $v0, $v0, $a0 +c88: +li $a0, 1 +add $v0, $v0, $a0 +c90: +li $a0, 1 +add $a1, $a1, $a0 +j for_forfor18 + +procedure for_ex(3) +var 0 +for_ex43: +newframe +c50: +li $v0, 0 +c49: +c48: +li $a3, 3 +add $a3, $a0, $a3 +for_ex14: +li $t0, 0 +c47: +li $a0, 2 +mulo $a0, $a1, $a0 +sle $a0, $a3, $a0 +seq $a0, $a0, $zero +beq $a0, $t0, for_ex7 +c44: +delframe +jr $ra +for_ex7: +c45: +sub $v0, $v0, $a3 +c46: +add $a3, $a3, $a2 +j for_ex14 + +procedure for_double(1) +var 0 +for_double64: +newframe +c43: +li $a1, 0 +c42: +li $a2, 0 +c41: +c40: +li $a3, 0 +for_double29: +li $t0, 0 +c39: +li $v0, 12 +slt $v0, $a3, $v0 +seq $v0, $v0, $zero +beq $v0, $t0, for_double23 +c36: +c35: +li $a3, 0 +for_double15: +li $t0, 0 +c34: +li $v0, 5 +slt $v0, $a3, $v0 +seq $v0, $v0, $zero +beq $v0, $t0, for_double9 +c31: +mulo $v0, $a1, $a2 +c30: +delframe +jr $ra +for_double9: +c32: +add $a2, $a2, $a3 +c33: +add $a3, $a3, $a0 +j for_double15 +for_double23: +c37: +add $a1, $a1, $a3 +c38: +add $a3, $a3, $a0 +j for_double29 + +procedure for_2(2) +var 0 +for_253: +newframe +c9: +li $a2, 0 +c8: +li $v0, 2 +mulo $v0, $a0, $v0 +c7: +li $a3, 4 +mulo $a0, $a0, $a3 +c6: +li $a3, 1 +add $a1, $a1, $a3 +c5: +c4: +for_213: +li $t0, 0 +c3: +slt $a3, $v0, $a0 +seq $a3, $a3, $zero +beq $a3, $t0, for_28 +c0: +li $v0, 1 +add $v0, $a2, $v0 +delframe +jr $ra +for_28: +c1: +add $a2, $a2, $v0 +c2: +add $v0, $v0, $a1 +j for_213 + +procedure _main(0) +var 4 +main85: +newframe +sw $ra, 0($sp) +c104: +li $a0, 3 +li $a1, 1 +la $v0, for_2 +call $v0 +c103: +li $a0, 1 +li $a1, 2 +li $a2, 3 +la $v0, for_loopParalAsync +call $v0 +c102: +li $a0, 1 +la $v0, for_double +call $v0 +c101: +li $a0, 2 +li $a1, 10 +li $a2, 1 +la $v0, for_ex +call $v0 +c100: +li $a0, 2 +li $a1, 10 +li $a2, 1 +la $v0, for_fortSimple +call $v0 +c99: +li $a0, 2 +li $a1, 3 +la $v0, for_imbriq +call $v0 +c98: +li $a0, 2 +li $a1, 3 +la $v0, for_incr +call $v0 +c97: +li $a0, 2 +li $a1, 3 +la $v0, for_incrParam +call $v0 +c96: +la $v0, for_forfor +call $v0 +c95: +lw $ra, 0($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/for.LTL.expected b/tests/clight/for.LTL.expected new file mode 100644 index 0000000..f39cca0 --- /dev/null +++ b/tests/clight/for.LTL.expected @@ -0,0 +1,1191 @@ +program + +globals 0 + +procedure for_loopParalAsync(3) +var 0 +entry for_loopParalAsync94 +for_loopParalAsync94 : newframe --> for_loopParalAsync93 +for_loopParalAsync93 : j --> for_loopParalAsync92 +for_loopParalAsync92 : j --> for_loopParalAsync91 +for_loopParalAsync91 : j --> for_loopParalAsync90 +for_loopParalAsync90 : j --> for_loopParalAsync89 +for_loopParalAsync89 : j --> for_loopParalAsync88 +for_loopParalAsync88 : j --> for_loopParalAsync87 +for_loopParalAsync87 : j --> for_loopParalAsync86 +for_loopParalAsync86 : j --> for_loopParalAsync85 +for_loopParalAsync85 : j --> for_loopParalAsync84 +for_loopParalAsync84 : j --> for_loopParalAsync83 +for_loopParalAsync83 : j --> for_loopParalAsync82 +for_loopParalAsync82 : j --> for_loopParalAsync81 +for_loopParalAsync81 : j --> for_loopParalAsync80 +for_loopParalAsync80 : j --> for_loopParalAsync79 +for_loopParalAsync79 : j --> for_loopParalAsync78 +for_loopParalAsync78 : j --> for_loopParalAsync77 +for_loopParalAsync77 : j --> for_loopParalAsync76 +for_loopParalAsync76 : j --> for_loopParalAsync75 +for_loopParalAsync75 : j --> for_loopParalAsync74 +for_loopParalAsync74 : j --> for_loopParalAsync73 +for_loopParalAsync73 : j --> for_loopParalAsync72 +for_loopParalAsync72 : j --> for_loopParalAsync71 +for_loopParalAsync71 : j --> for_loopParalAsync70 +for_loopParalAsync70 : j --> for_loopParalAsync69 +for_loopParalAsync69 : j --> for_loopParalAsync68 +for_loopParalAsync68 : j --> for_loopParalAsync67 +for_loopParalAsync67 : j --> for_loopParalAsync66 +for_loopParalAsync66 : j --> for_loopParalAsync65 +for_loopParalAsync65 : j --> for_loopParalAsync64 +for_loopParalAsync64 : j --> for_loopParalAsync63 +for_loopParalAsync63 : j --> for_loopParalAsync62 +for_loopParalAsync62 : j --> for_loopParalAsync61 +for_loopParalAsync61 : j --> for_loopParalAsync60 +for_loopParalAsync60 : j --> for_loopParalAsync59 +for_loopParalAsync59 : j --> for_loopParalAsync56 +for_loopParalAsync56 : emit c29 --> for_loopParalAsync55 +for_loopParalAsync55 : li $v0, 0 --> for_loopParalAsync54 +for_loopParalAsync54 : emit c28 --> for_loopParalAsync53 +for_loopParalAsync53 : li $a2, 0 --> for_loopParalAsync52 +for_loopParalAsync52 : emit c27 --> for_loopParalAsync51 +for_loopParalAsync51 : li $a0, 3 --> for_loopParalAsync50 +for_loopParalAsync50 : add $a2, $a2, $a0 --> for_loopParalAsync49 +for_loopParalAsync49 : emit c26 --> for_loopParalAsync48 +for_loopParalAsync48 : li $a0, 2 --> for_loopParalAsync47 +for_loopParalAsync47 : mulo $a2, $a2, $a0 --> for_loopParalAsync46 +for_loopParalAsync46 : emit c25 --> for_loopParalAsync45 +for_loopParalAsync45 : li $a0, 3 --> for_loopParalAsync44 +for_loopParalAsync44 : div $a2, $a2, $a0 --> for_loopParalAsync43 +for_loopParalAsync43 : emit c24 --> for_loopParalAsync42 +for_loopParalAsync42 : li $a0, 8 --> for_loopParalAsync41 +for_loopParalAsync41 : add $a2, $a2, $a0 --> for_loopParalAsync40 +for_loopParalAsync40 : emit c23 --> for_loopParalAsync39 +for_loopParalAsync39 : emit c22 --> for_loopParalAsync38 +for_loopParalAsync38 : li $a1, 0 --> for_loopParalAsync20 +for_loopParalAsync20 : j --> for_loopParalAsync37 +for_loopParalAsync37 : li $a3, 0 --> for_loopParalAsync36 +for_loopParalAsync36 : emit c21 --> for_loopParalAsync35 +for_loopParalAsync35 : li $a0, 20 --> for_loopParalAsync34 +for_loopParalAsync34 : slt $a0, $a1, $a0 --> for_loopParalAsync33 +for_loopParalAsync33 : j --> for_loopParalAsync58 +for_loopParalAsync58 : seq $a0, $a0, $zero --> for_loopParalAsync32 +for_loopParalAsync32 : beq $a0, $a3 --> for_loopParalAsync31, for_loopParalAsync19 +for_loopParalAsync19 : emit c16 --> for_loopParalAsync18 +for_loopParalAsync18 : emit c15 --> for_loopParalAsync17 +for_loopParalAsync17 : li $a1, 1 --> for_loopParalAsync3 +for_loopParalAsync3 : j --> for_loopParalAsync16 +for_loopParalAsync16 : li $a3, 0 --> for_loopParalAsync15 +for_loopParalAsync15 : emit c14 --> for_loopParalAsync14 +for_loopParalAsync14 : slt $a0, $a1, $a2 --> for_loopParalAsync13 +for_loopParalAsync13 : j --> for_loopParalAsync57 +for_loopParalAsync57 : seq $a0, $a0, $zero --> for_loopParalAsync12 +for_loopParalAsync12 : beq $a0, $a3 --> for_loopParalAsync11, for_loopParalAsync2 +for_loopParalAsync2 : emit c10 --> for_loopParalAsync1 +for_loopParalAsync1 : j --> for_loopParalAsync0 +for_loopParalAsync0 : j --> for_loopParalAsync106 +for_loopParalAsync106: j --> for_loopParalAsync105 +for_loopParalAsync105: j --> for_loopParalAsync104 +for_loopParalAsync104: j --> for_loopParalAsync103 +for_loopParalAsync103: j --> for_loopParalAsync102 +for_loopParalAsync102: j --> for_loopParalAsync101 +for_loopParalAsync101: j --> for_loopParalAsync100 +for_loopParalAsync100: j --> for_loopParalAsync99 +for_loopParalAsync99 : j --> for_loopParalAsync98 +for_loopParalAsync98 : j --> for_loopParalAsync97 +for_loopParalAsync97 : j --> for_loopParalAsync96 +for_loopParalAsync96 : delframe --> for_loopParalAsync95 +for_loopParalAsync95 : jr $ra +for_loopParalAsync11 : emit c12 --> for_loopParalAsync10 +for_loopParalAsync10 : j --> for_loopParalAsync9 +for_loopParalAsync9 : j --> for_loopParalAsync8 +for_loopParalAsync8 : emit c11 --> for_loopParalAsync7 +for_loopParalAsync7 : j --> for_loopParalAsync6 +for_loopParalAsync6 : emit c13 --> for_loopParalAsync5 +for_loopParalAsync5 : li $a0, 1 --> for_loopParalAsync4 +for_loopParalAsync4 : add $a1, $a1, $a0 --> for_loopParalAsync3 +for_loopParalAsync31 : emit c19 --> for_loopParalAsync30 +for_loopParalAsync30 : li $a0, 1 --> for_loopParalAsync29 +for_loopParalAsync29 : add $v0, $v0, $a0 --> for_loopParalAsync28 +for_loopParalAsync28 : emit c18 --> for_loopParalAsync27 +for_loopParalAsync27 : j --> for_loopParalAsync26 +for_loopParalAsync26 : j --> for_loopParalAsync25 +for_loopParalAsync25 : emit c17 --> for_loopParalAsync24 +for_loopParalAsync24 : j --> for_loopParalAsync23 +for_loopParalAsync23 : emit c20 --> for_loopParalAsync22 +for_loopParalAsync22 : li $a0, 1 --> for_loopParalAsync21 +for_loopParalAsync21 : add $a1, $a1, $a0 --> for_loopParalAsync20 + +procedure for_incrParam(2) +var 0 +entry for_incrParam49 +for_incrParam49: newframe --> for_incrParam48 +for_incrParam48: j --> for_incrParam47 +for_incrParam47: j --> for_incrParam46 +for_incrParam46: j --> for_incrParam45 +for_incrParam45: j --> for_incrParam44 +for_incrParam44: j --> for_incrParam43 +for_incrParam43: j --> for_incrParam42 +for_incrParam42: j --> for_incrParam41 +for_incrParam41: j --> for_incrParam40 +for_incrParam40: j --> for_incrParam39 +for_incrParam39: j --> for_incrParam38 +for_incrParam38: j --> for_incrParam37 +for_incrParam37: j --> for_incrParam36 +for_incrParam36: j --> for_incrParam35 +for_incrParam35: j --> for_incrParam34 +for_incrParam34: j --> for_incrParam33 +for_incrParam33: j --> for_incrParam32 +for_incrParam32: j --> for_incrParam31 +for_incrParam31: j --> for_incrParam30 +for_incrParam30: j --> for_incrParam29 +for_incrParam29: j --> for_incrParam28 +for_incrParam28: j --> for_incrParam27 +for_incrParam27: j --> for_incrParam26 +for_incrParam26: j --> for_incrParam24 +for_incrParam24: emit c86 --> for_incrParam23 +for_incrParam23: add $a3, $a0, $a1 --> for_incrParam22 +for_incrParam22: emit c85 --> for_incrParam21 +for_incrParam21: j --> for_incrParam20 +for_incrParam20: j --> for_incrParam19 +for_incrParam19: emit c84 --> for_incrParam18 +for_incrParam18: emit c83 --> for_incrParam17 +for_incrParam17: li $v0, 4 --> for_incrParam16 +for_incrParam16: sub $v0, $a3, $v0 --> for_incrParam3 +for_incrParam3 : j --> for_incrParam15 +for_incrParam15: li $t0, 0 --> for_incrParam14 +for_incrParam14: emit c82 --> for_incrParam13 +for_incrParam13: li $a2, 6 --> for_incrParam12 +for_incrParam12: add $a2, $a1, $a2 --> for_incrParam11 +for_incrParam11: slt $a2, $v0, $a2 --> for_incrParam10 +for_incrParam10: j --> for_incrParam25 +for_incrParam25: seq $a2, $a2, $zero --> for_incrParam9 +for_incrParam9 : beq $a2, $t0 --> for_incrParam8, for_incrParam2 +for_incrParam2 : emit c79 --> for_incrParam1 +for_incrParam1 : j --> for_incrParam0 +for_incrParam0 : j --> for_incrParam61 +for_incrParam61: j --> for_incrParam60 +for_incrParam60: j --> for_incrParam59 +for_incrParam59: j --> for_incrParam58 +for_incrParam58: j --> for_incrParam57 +for_incrParam57: j --> for_incrParam56 +for_incrParam56: j --> for_incrParam55 +for_incrParam55: j --> for_incrParam54 +for_incrParam54: j --> for_incrParam53 +for_incrParam53: j --> for_incrParam52 +for_incrParam52: j --> for_incrParam51 +for_incrParam51: delframe --> for_incrParam50 +for_incrParam50: jr $ra +for_incrParam8 : emit c80 --> for_incrParam7 +for_incrParam7 : add $v0, $v0, $a3 --> for_incrParam6 +for_incrParam6 : add $v0, $v0, $a0 --> for_incrParam5 +for_incrParam5 : emit c81 --> for_incrParam4 +for_incrParam4 : add $v0, $v0, $a0 --> for_incrParam3 + +procedure for_incr(2) +var 0 +entry for_incr44 +for_incr44: newframe --> for_incr43 +for_incr43: j --> for_incr42 +for_incr42: j --> for_incr41 +for_incr41: j --> for_incr40 +for_incr40: j --> for_incr39 +for_incr39: j --> for_incr38 +for_incr38: j --> for_incr37 +for_incr37: j --> for_incr36 +for_incr36: j --> for_incr35 +for_incr35: j --> for_incr34 +for_incr34: j --> for_incr33 +for_incr33: j --> for_incr32 +for_incr32: j --> for_incr31 +for_incr31: j --> for_incr30 +for_incr30: j --> for_incr29 +for_incr29: j --> for_incr28 +for_incr28: j --> for_incr27 +for_incr27: j --> for_incr26 +for_incr26: j --> for_incr25 +for_incr25: j --> for_incr24 +for_incr24: j --> for_incr23 +for_incr23: j --> for_incr21 +for_incr21: emit c78 --> for_incr20 +for_incr20: li $v0, 0 --> for_incr19 +for_incr19: emit c77 --> for_incr18 +for_incr18: emit c76 --> for_incr17 +for_incr17: li $a2, 3 --> for_incr16 +for_incr16: add $a2, $a0, $a2 --> for_incr3 +for_incr3 : j --> for_incr15 +for_incr15: li $a3, 0 --> for_incr14 +for_incr14: emit c75 --> for_incr13 +for_incr13: li $a0, 2 --> for_incr12 +for_incr12: mulo $a0, $a1, $a0 --> for_incr11 +for_incr11: sle $a0, $a2, $a0 --> for_incr10 +for_incr10: j --> for_incr22 +for_incr22: seq $a0, $a0, $zero --> for_incr9 +for_incr9 : beq $a0, $a3 --> for_incr8, for_incr2 +for_incr2 : emit c72 --> for_incr1 +for_incr1 : j --> for_incr0 +for_incr0 : j --> for_incr56 +for_incr56: j --> for_incr55 +for_incr55: j --> for_incr54 +for_incr54: j --> for_incr53 +for_incr53: j --> for_incr52 +for_incr52: j --> for_incr51 +for_incr51: j --> for_incr50 +for_incr50: j --> for_incr49 +for_incr49: j --> for_incr48 +for_incr48: j --> for_incr47 +for_incr47: j --> for_incr46 +for_incr46: delframe --> for_incr45 +for_incr45: jr $ra +for_incr8 : emit c73 --> for_incr7 +for_incr7 : sub $v0, $v0, $a2 --> for_incr6 +for_incr6 : emit c74 --> for_incr5 +for_incr5 : li $a0, 1 --> for_incr4 +for_incr4 : add $a2, $a2, $a0 --> for_incr3 + +procedure for_imbriq(2) +var 24 +entry for_imbriq64 +for_imbriq64: newframe --> for_imbriq63 +for_imbriq63: lw $ra, 20($sp) --> for_imbriq62 +for_imbriq62: j --> for_imbriq61 +for_imbriq61: j --> for_imbriq60 +for_imbriq60: j --> for_imbriq59 +for_imbriq59: lw $s4, 16($sp) --> for_imbriq58 +for_imbriq58: lw $s3, 12($sp) --> for_imbriq57 +for_imbriq57: lw $s2, 8($sp) --> for_imbriq56 +for_imbriq56: lw $s1, 4($sp) --> for_imbriq55 +for_imbriq55: lw $s0, 0($sp) --> for_imbriq54 +for_imbriq54: move $s4, $a0 --> for_imbriq53 +for_imbriq53: move $s3, $a1 --> for_imbriq52 +for_imbriq52: j --> for_imbriq51 +for_imbriq51: j --> for_imbriq50 +for_imbriq50: j --> for_imbriq49 +for_imbriq49: j --> for_imbriq48 +for_imbriq48: j --> for_imbriq47 +for_imbriq47: j --> for_imbriq46 +for_imbriq46: j --> for_imbriq45 +for_imbriq45: j --> for_imbriq44 +for_imbriq44: j --> for_imbriq43 +for_imbriq43: j --> for_imbriq42 +for_imbriq42: j --> for_imbriq41 +for_imbriq41: j --> for_imbriq40 +for_imbriq40: j --> for_imbriq39 +for_imbriq39: j --> for_imbriq38 +for_imbriq38: j --> for_imbriq34 +for_imbriq34: emit c71 --> for_imbriq33 +for_imbriq33: li $s0, 0 --> for_imbriq32 +for_imbriq32: emit c70 --> for_imbriq31 +for_imbriq31: emit c69 --> for_imbriq30 +for_imbriq30: li $s1, 0 --> for_imbriq3 +for_imbriq3 : j --> for_imbriq29 +for_imbriq29: li $a0, 0 --> for_imbriq28 +for_imbriq28: emit c68 --> for_imbriq27 +for_imbriq27: li $v0, 23 --> for_imbriq26 +for_imbriq26: slt $v0, $s1, $v0 --> for_imbriq25 +for_imbriq25: j --> for_imbriq36 +for_imbriq36: seq $v0, $v0, $zero --> for_imbriq24 +for_imbriq24: beq $v0, $a0 --> for_imbriq23, for_imbriq2 +for_imbriq2 : emit c59 --> for_imbriq1 +for_imbriq1 : j --> for_imbriq0 +for_imbriq0 : j --> for_imbriq76 +for_imbriq76: move $v0, $s0 --> for_imbriq75 +for_imbriq75: lw $ra, 20($sp) --> for_imbriq74 +for_imbriq74: j --> for_imbriq73 +for_imbriq73: j --> for_imbriq72 +for_imbriq72: j --> for_imbriq71 +for_imbriq71: lw $s4, 16($sp) --> for_imbriq70 +for_imbriq70: lw $s3, 12($sp) --> for_imbriq69 +for_imbriq69: lw $s2, 8($sp) --> for_imbriq68 +for_imbriq68: lw $s1, 4($sp) --> for_imbriq67 +for_imbriq67: lw $s0, 0($sp) --> for_imbriq66 +for_imbriq66: delframe --> for_imbriq65 +for_imbriq65: jr $ra +for_imbriq23: emit c66 --> for_imbriq22 +for_imbriq22: li $v0, 0 --> for_imbriq21 +for_imbriq21: emit c65 --> for_imbriq20 +for_imbriq20: emit c64 --> for_imbriq19 +for_imbriq19: li $s2, 1 --> for_imbriq6 +for_imbriq6 : j --> for_imbriq18 +for_imbriq18: li $a1, 0 --> for_imbriq17 +for_imbriq17: emit c63 --> for_imbriq16 +for_imbriq16: li $a0, 12 --> for_imbriq15 +for_imbriq15: slt $a0, $s2, $a0 --> for_imbriq14 +for_imbriq14: j --> for_imbriq35 +for_imbriq35: seq $a0, $a0, $zero --> for_imbriq13 +for_imbriq13: beq $a0, $a1 --> for_imbriq12, for_imbriq5 +for_imbriq5 : emit c67 --> for_imbriq4 +for_imbriq4 : add $s1, $s1, $s4 --> for_imbriq3 +for_imbriq12: emit c61 --> for_imbriq11 +for_imbriq11: add $s0, $s0, $v0 --> for_imbriq10 +for_imbriq10: emit c60 --> for_imbriq9 +for_imbriq9 : la $a2, mod --> for_imbriq37 +for_imbriq37: j --> for_imbriq80 +for_imbriq80: move $a0, $v0 --> for_imbriq79 +for_imbriq79: move $a1, $s2 --> for_imbriq78 +for_imbriq78: call $a2 --> for_imbriq77 +for_imbriq77: j --> for_imbriq8 +for_imbriq8 : emit c62 --> for_imbriq7 +for_imbriq7 : add $s2, $s2, $s3 --> for_imbriq6 + +procedure for_fortSimple(3) +var 0 +entry for_fortSimple41 +for_fortSimple41: newframe --> for_fortSimple40 +for_fortSimple40: j --> for_fortSimple39 +for_fortSimple39: j --> for_fortSimple38 +for_fortSimple38: j --> for_fortSimple37 +for_fortSimple37: j --> for_fortSimple36 +for_fortSimple36: j --> for_fortSimple35 +for_fortSimple35: j --> for_fortSimple34 +for_fortSimple34: j --> for_fortSimple33 +for_fortSimple33: j --> for_fortSimple32 +for_fortSimple32: j --> for_fortSimple31 +for_fortSimple31: j --> for_fortSimple30 +for_fortSimple30: j --> for_fortSimple29 +for_fortSimple29: j --> for_fortSimple28 +for_fortSimple28: j --> for_fortSimple27 +for_fortSimple27: j --> for_fortSimple26 +for_fortSimple26: j --> for_fortSimple25 +for_fortSimple25: j --> for_fortSimple24 +for_fortSimple24: j --> for_fortSimple23 +for_fortSimple23: j --> for_fortSimple22 +for_fortSimple22: j --> for_fortSimple21 +for_fortSimple21: j --> for_fortSimple19 +for_fortSimple19: emit c58 --> for_fortSimple18 +for_fortSimple18: li $t0, 0 --> for_fortSimple17 +for_fortSimple17: emit c57 --> for_fortSimple16 +for_fortSimple16: emit c56 --> for_fortSimple15 +for_fortSimple15: move $a3, $a0 --> for_fortSimple5 +for_fortSimple5 : j --> for_fortSimple14 +for_fortSimple14: li $t1, 0 --> for_fortSimple13 +for_fortSimple13: emit c55 --> for_fortSimple12 +for_fortSimple12: slt $v0, $a3, $a1 --> for_fortSimple11 +for_fortSimple11: j --> for_fortSimple20 +for_fortSimple20: seq $v0, $v0, $zero --> for_fortSimple10 +for_fortSimple10: beq $v0, $t1 --> for_fortSimple9, for_fortSimple4 +for_fortSimple4 : emit c52 --> for_fortSimple3 +for_fortSimple3 : add $v0, $t0, $a0 --> for_fortSimple2 +for_fortSimple2 : emit c51 --> for_fortSimple1 +for_fortSimple1 : j --> for_fortSimple0 +for_fortSimple0 : j --> for_fortSimple53 +for_fortSimple53: j --> for_fortSimple52 +for_fortSimple52: j --> for_fortSimple51 +for_fortSimple51: j --> for_fortSimple50 +for_fortSimple50: j --> for_fortSimple49 +for_fortSimple49: j --> for_fortSimple48 +for_fortSimple48: j --> for_fortSimple47 +for_fortSimple47: j --> for_fortSimple46 +for_fortSimple46: j --> for_fortSimple45 +for_fortSimple45: j --> for_fortSimple44 +for_fortSimple44: j --> for_fortSimple43 +for_fortSimple43: delframe --> for_fortSimple42 +for_fortSimple42: jr $ra +for_fortSimple9 : emit c53 --> for_fortSimple8 +for_fortSimple8 : add $t0, $t0, $a3 --> for_fortSimple7 +for_fortSimple7 : emit c54 --> for_fortSimple6 +for_fortSimple6 : add $a3, $a3, $a2 --> for_fortSimple5 + +procedure for_forfor(0) +var 0 +entry for_forfor44 +for_forfor44: newframe --> for_forfor43 +for_forfor43: j --> for_forfor42 +for_forfor42: j --> for_forfor41 +for_forfor41: j --> for_forfor40 +for_forfor40: j --> for_forfor39 +for_forfor39: j --> for_forfor38 +for_forfor38: j --> for_forfor37 +for_forfor37: j --> for_forfor36 +for_forfor36: j --> for_forfor35 +for_forfor35: j --> for_forfor34 +for_forfor34: j --> for_forfor33 +for_forfor33: j --> for_forfor32 +for_forfor32: j --> for_forfor31 +for_forfor31: j --> for_forfor30 +for_forfor30: j --> for_forfor29 +for_forfor29: j --> for_forfor28 +for_forfor28: j --> for_forfor27 +for_forfor27: j --> for_forfor26 +for_forfor26: j --> for_forfor25 +for_forfor25: j --> for_forfor23 +for_forfor23: emit c94 --> for_forfor22 +for_forfor22: emit c93 --> for_forfor21 +for_forfor21: li $a1, 0 --> for_forfor20 +for_forfor20: emit c92 --> for_forfor19 +for_forfor19: li $v0, 0 --> for_forfor3 +for_forfor3 : j --> for_forfor18 +for_forfor18: li $a2, 0 --> for_forfor17 +for_forfor17: emit c91 --> for_forfor16 +for_forfor16: li $a0, 10 --> for_forfor15 +for_forfor15: slt $a0, $a1, $a0 --> for_forfor14 +for_forfor14: j --> for_forfor24 +for_forfor24: seq $a0, $a0, $zero --> for_forfor13 +for_forfor13: beq $a0, $a2 --> for_forfor12, for_forfor2 +for_forfor2 : emit c87 --> for_forfor1 +for_forfor1 : j --> for_forfor0 +for_forfor0 : j --> for_forfor56 +for_forfor56: j --> for_forfor55 +for_forfor55: j --> for_forfor54 +for_forfor54: j --> for_forfor53 +for_forfor53: j --> for_forfor52 +for_forfor52: j --> for_forfor51 +for_forfor51: j --> for_forfor50 +for_forfor50: j --> for_forfor49 +for_forfor49: j --> for_forfor48 +for_forfor48: j --> for_forfor47 +for_forfor47: j --> for_forfor46 +for_forfor46: delframe --> for_forfor45 +for_forfor45: jr $ra +for_forfor12: emit c89 --> for_forfor11 +for_forfor11: li $a0, 1 --> for_forfor10 +for_forfor10: add $v0, $v0, $a0 --> for_forfor9 +for_forfor9 : emit c88 --> for_forfor8 +for_forfor8 : li $a0, 1 --> for_forfor7 +for_forfor7 : add $v0, $v0, $a0 --> for_forfor6 +for_forfor6 : emit c90 --> for_forfor5 +for_forfor5 : li $a0, 1 --> for_forfor4 +for_forfor4 : add $a1, $a1, $a0 --> for_forfor3 + +procedure for_ex(3) +var 0 +entry for_ex43 +for_ex43: newframe --> for_ex42 +for_ex42: j --> for_ex41 +for_ex41: j --> for_ex40 +for_ex40: j --> for_ex39 +for_ex39: j --> for_ex38 +for_ex38: j --> for_ex37 +for_ex37: j --> for_ex36 +for_ex36: j --> for_ex35 +for_ex35: j --> for_ex34 +for_ex34: j --> for_ex33 +for_ex33: j --> for_ex32 +for_ex32: j --> for_ex31 +for_ex31: j --> for_ex30 +for_ex30: j --> for_ex29 +for_ex29: j --> for_ex28 +for_ex28: j --> for_ex27 +for_ex27: j --> for_ex26 +for_ex26: j --> for_ex25 +for_ex25: j --> for_ex24 +for_ex24: j --> for_ex23 +for_ex23: j --> for_ex22 +for_ex22: j --> for_ex20 +for_ex20: emit c50 --> for_ex19 +for_ex19: li $v0, 0 --> for_ex18 +for_ex18: emit c49 --> for_ex17 +for_ex17: emit c48 --> for_ex16 +for_ex16: li $a3, 3 --> for_ex15 +for_ex15: add $a3, $a0, $a3 --> for_ex3 +for_ex3 : j --> for_ex14 +for_ex14: li $t0, 0 --> for_ex13 +for_ex13: emit c47 --> for_ex12 +for_ex12: li $a0, 2 --> for_ex11 +for_ex11: mulo $a0, $a1, $a0 --> for_ex10 +for_ex10: sle $a0, $a3, $a0 --> for_ex9 +for_ex9 : j --> for_ex21 +for_ex21: seq $a0, $a0, $zero --> for_ex8 +for_ex8 : beq $a0, $t0 --> for_ex7, for_ex2 +for_ex2 : emit c44 --> for_ex1 +for_ex1 : j --> for_ex0 +for_ex0 : j --> for_ex55 +for_ex55: j --> for_ex54 +for_ex54: j --> for_ex53 +for_ex53: j --> for_ex52 +for_ex52: j --> for_ex51 +for_ex51: j --> for_ex50 +for_ex50: j --> for_ex49 +for_ex49: j --> for_ex48 +for_ex48: j --> for_ex47 +for_ex47: j --> for_ex46 +for_ex46: j --> for_ex45 +for_ex45: delframe --> for_ex44 +for_ex44: jr $ra +for_ex7 : emit c45 --> for_ex6 +for_ex6 : sub $v0, $v0, $a3 --> for_ex5 +for_ex5 : emit c46 --> for_ex4 +for_ex4 : add $a3, $a3, $a2 --> for_ex3 + +procedure for_double(1) +var 0 +entry for_double64 +for_double64: newframe --> for_double63 +for_double63: j --> for_double62 +for_double62: j --> for_double61 +for_double61: j --> for_double60 +for_double60: j --> for_double59 +for_double59: j --> for_double58 +for_double58: j --> for_double57 +for_double57: j --> for_double56 +for_double56: j --> for_double55 +for_double55: j --> for_double54 +for_double54: j --> for_double53 +for_double53: j --> for_double52 +for_double52: j --> for_double51 +for_double51: j --> for_double50 +for_double50: j --> for_double49 +for_double49: j --> for_double48 +for_double48: j --> for_double47 +for_double47: j --> for_double46 +for_double46: j --> for_double45 +for_double45: j --> for_double44 +for_double44: j --> for_double43 +for_double43: j --> for_double42 +for_double42: j --> for_double41 +for_double41: j --> for_double40 +for_double40: j --> for_double39 +for_double39: j --> for_double36 +for_double36: emit c43 --> for_double35 +for_double35: li $a1, 0 --> for_double34 +for_double34: emit c42 --> for_double33 +for_double33: li $a2, 0 --> for_double32 +for_double32: emit c41 --> for_double31 +for_double31: emit c40 --> for_double30 +for_double30: li $a3, 0 --> for_double19 +for_double19: j --> for_double29 +for_double29: li $t0, 0 --> for_double28 +for_double28: emit c39 --> for_double27 +for_double27: li $v0, 12 --> for_double26 +for_double26: slt $v0, $a3, $v0 --> for_double25 +for_double25: j --> for_double38 +for_double38: seq $v0, $v0, $zero --> for_double24 +for_double24: beq $v0, $t0 --> for_double23, for_double18 +for_double18: emit c36 --> for_double17 +for_double17: emit c35 --> for_double16 +for_double16: li $a3, 0 --> for_double5 +for_double5 : j --> for_double15 +for_double15: li $t0, 0 --> for_double14 +for_double14: emit c34 --> for_double13 +for_double13: li $v0, 5 --> for_double12 +for_double12: slt $v0, $a3, $v0 --> for_double11 +for_double11: j --> for_double37 +for_double37: seq $v0, $v0, $zero --> for_double10 +for_double10: beq $v0, $t0 --> for_double9, for_double4 +for_double4 : emit c31 --> for_double3 +for_double3 : mulo $v0, $a1, $a2 --> for_double2 +for_double2 : emit c30 --> for_double1 +for_double1 : j --> for_double0 +for_double0 : j --> for_double76 +for_double76: j --> for_double75 +for_double75: j --> for_double74 +for_double74: j --> for_double73 +for_double73: j --> for_double72 +for_double72: j --> for_double71 +for_double71: j --> for_double70 +for_double70: j --> for_double69 +for_double69: j --> for_double68 +for_double68: j --> for_double67 +for_double67: j --> for_double66 +for_double66: delframe --> for_double65 +for_double65: jr $ra +for_double9 : emit c32 --> for_double8 +for_double8 : add $a2, $a2, $a3 --> for_double7 +for_double7 : emit c33 --> for_double6 +for_double6 : add $a3, $a3, $a0 --> for_double5 +for_double23: emit c37 --> for_double22 +for_double22: add $a1, $a1, $a3 --> for_double21 +for_double21: emit c38 --> for_double20 +for_double20: add $a3, $a3, $a0 --> for_double19 + +procedure for_2(2) +var 0 +entry for_253 +for_253: newframe --> for_252 +for_252: j --> for_251 +for_251: j --> for_250 +for_250: j --> for_249 +for_249: j --> for_248 +for_248: j --> for_247 +for_247: j --> for_246 +for_246: j --> for_245 +for_245: j --> for_244 +for_244: j --> for_243 +for_243: j --> for_242 +for_242: j --> for_241 +for_241: j --> for_240 +for_240: j --> for_239 +for_239: j --> for_238 +for_238: j --> for_237 +for_237: j --> for_236 +for_236: j --> for_235 +for_235: j --> for_234 +for_234: j --> for_233 +for_233: j --> for_232 +for_232: j --> for_231 +for_231: j --> for_230 +for_230: j --> for_229 +for_229: j --> for_227 +for_227: emit c9 --> for_226 +for_226: li $a2, 0 --> for_225 +for_225: emit c8 --> for_224 +for_224: li $v0, 2 --> for_223 +for_223: mulo $v0, $a0, $v0 --> for_222 +for_222: emit c7 --> for_221 +for_221: li $a3, 4 --> for_220 +for_220: mulo $a0, $a0, $a3 --> for_219 +for_219: emit c6 --> for_218 +for_218: li $a3, 1 --> for_217 +for_217: add $a1, $a1, $a3 --> for_216 +for_216: emit c5 --> for_215 +for_215: emit c4 --> for_214 +for_214: j --> for_24 +for_24 : j --> for_213 +for_213: li $t0, 0 --> for_212 +for_212: emit c3 --> for_211 +for_211: slt $a3, $v0, $a0 --> for_210 +for_210: j --> for_228 +for_228: seq $a3, $a3, $zero --> for_29 +for_29 : beq $a3, $t0 --> for_28, for_23 +for_23 : emit c0 --> for_22 +for_22 : li $v0, 1 --> for_21 +for_21 : add $v0, $a2, $v0 --> for_20 +for_20 : j --> for_265 +for_265: j --> for_264 +for_264: j --> for_263 +for_263: j --> for_262 +for_262: j --> for_261 +for_261: j --> for_260 +for_260: j --> for_259 +for_259: j --> for_258 +for_258: j --> for_257 +for_257: j --> for_256 +for_256: j --> for_255 +for_255: delframe --> for_254 +for_254: jr $ra +for_28 : emit c1 --> for_27 +for_27 : add $a2, $a2, $v0 --> for_26 +for_26 : emit c2 --> for_25 +for_25 : add $v0, $v0, $a1 --> for_24 + +procedure _main(0) +var 4 +entry main85 +main85 : newframe --> main84 +main84 : lw $ra, 0($sp) --> main83 +main83 : j --> main82 +main82 : j --> main81 +main81 : j --> main80 +main80 : j --> main79 +main79 : j --> main78 +main78 : j --> main77 +main77 : j --> main76 +main76 : j --> main75 +main75 : j --> main74 +main74 : j --> main73 +main73 : j --> main72 +main72 : j --> main71 +main71 : j --> main70 +main70 : j --> main69 +main69 : j --> main68 +main68 : j --> main67 +main67 : j --> main66 +main66 : j --> main65 +main65 : j --> main64 +main64 : j --> main63 +main63 : j --> main62 +main62 : j --> main61 +main61 : j --> main60 +main60 : j --> main59 +main59 : j --> main58 +main58 : j --> main57 +main57 : j --> main56 +main56 : j --> main55 +main55 : j --> main54 +main54 : j --> main53 +main53 : j --> main52 +main52 : j --> main51 +main51 : j --> main50 +main50 : j --> main49 +main49 : j --> main48 +main48 : j --> main38 +main38 : emit c104 --> main37 +main37 : li $a0, 3 --> main36 +main36 : li $a1, 1 --> main35 +main35 : la $v0, for_2 --> main45 +main45 : j --> main125 +main125: j --> main124 +main124: j --> main123 +main123: call $v0 --> main122 +main122: j --> main34 +main34 : emit c103 --> main33 +main33 : li $a0, 1 --> main32 +main32 : li $a1, 2 --> main31 +main31 : li $a2, 3 --> main30 +main30 : la $v0, for_loopParalAsync --> main44 +main44 : j --> main121 +main121: j --> main120 +main120: j --> main119 +main119: j --> main118 +main118: call $v0 --> main117 +main117: j --> main29 +main29 : emit c102 --> main28 +main28 : li $a0, 1 --> main27 +main27 : la $v0, for_double --> main42 +main42 : j --> main114 +main114: j --> main113 +main113: call $v0 --> main112 +main112: j --> main26 +main26 : emit c101 --> main25 +main25 : li $a0, 2 --> main24 +main24 : li $a1, 10 --> main23 +main23 : li $a2, 1 --> main22 +main22 : la $v0, for_ex --> main41 +main41 : j --> main111 +main111: j --> main110 +main110: j --> main109 +main109: j --> main108 +main108: call $v0 --> main107 +main107: j --> main21 +main21 : emit c100 --> main20 +main20 : li $a0, 2 --> main19 +main19 : li $a1, 10 --> main18 +main18 : li $a2, 1 --> main17 +main17 : la $v0, for_fortSimple --> main40 +main40 : j --> main106 +main106: j --> main105 +main105: j --> main104 +main104: j --> main103 +main103: call $v0 --> main102 +main102: j --> main16 +main16 : emit c99 --> main15 +main15 : li $a0, 2 --> main14 +main14 : li $a1, 3 --> main13 +main13 : la $v0, for_imbriq --> main39 +main39 : j --> main101 +main101: j --> main100 +main100: j --> main99 +main99 : call $v0 --> main98 +main98 : j --> main12 +main12 : emit c98 --> main11 +main11 : li $a0, 2 --> main10 +main10 : li $a1, 3 --> main9 +main9 : la $v0, for_incr --> main47 +main47 : j --> main133 +main133: j --> main132 +main132: j --> main131 +main131: call $v0 --> main130 +main130: j --> main8 +main8 : emit c97 --> main7 +main7 : li $a0, 2 --> main6 +main6 : li $a1, 3 --> main5 +main5 : la $v0, for_incrParam --> main46 +main46 : j --> main129 +main129: j --> main128 +main128: j --> main127 +main127: call $v0 --> main126 +main126: j --> main4 +main4 : emit c96 --> main3 +main3 : la $v0, for_forfor --> main43 +main43 : j --> main116 +main116: call $v0 --> main115 +main115: j --> main2 +main2 : emit c95 --> main1 +main1 : j --> main0 +main0 : j --> main97 +main97 : j --> main96 +main96 : lw $ra, 0($sp) --> main95 +main95 : j --> main94 +main94 : j --> main93 +main93 : j --> main92 +main92 : j --> main91 +main91 : j --> main90 +main90 : j --> main89 +main89 : j --> main88 +main88 : j --> main87 +main87 : delframe --> main86 +main86 : jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/for.RTL.expected b/tests/clight/for.RTL.expected new file mode 100644 index 0000000..7f4f51a --- /dev/null +++ b/tests/clight/for.RTL.expected @@ -0,0 +1,942 @@ +program + +globals 0 + +function for_loopParalAsync(%0; %1; %2) : %8 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26 +entry for_loopParalAsync81 +for_loopParalAsync81: li %3, 0 --> for_loopParalAsync80 +for_loopParalAsync80: li %4, 0 --> for_loopParalAsync79 +for_loopParalAsync79: li %5, 0 --> for_loopParalAsync78 +for_loopParalAsync78: li %6, 0 --> for_loopParalAsync77 +for_loopParalAsync77: li %7, 0 --> for_loopParalAsync76 +for_loopParalAsync76: li %9, 0 --> for_loopParalAsync75 +for_loopParalAsync75: li %10, 0 --> for_loopParalAsync74 +for_loopParalAsync74: li %11, 0 --> for_loopParalAsync73 +for_loopParalAsync73: li %12, 0 --> for_loopParalAsync72 +for_loopParalAsync72: li %13, 0 --> for_loopParalAsync71 +for_loopParalAsync71: li %14, 0 --> for_loopParalAsync70 +for_loopParalAsync70: li %15, 0 --> for_loopParalAsync69 +for_loopParalAsync69: li %16, 0 --> for_loopParalAsync68 +for_loopParalAsync68: li %17, 0 --> for_loopParalAsync67 +for_loopParalAsync67: li %18, 0 --> for_loopParalAsync66 +for_loopParalAsync66: li %19, 0 --> for_loopParalAsync65 +for_loopParalAsync65: li %20, 0 --> for_loopParalAsync64 +for_loopParalAsync64: li %21, 0 --> for_loopParalAsync63 +for_loopParalAsync63: li %22, 0 --> for_loopParalAsync62 +for_loopParalAsync62: li %23, 0 --> for_loopParalAsync61 +for_loopParalAsync61: li %24, 0 --> for_loopParalAsync60 +for_loopParalAsync60: li %25, 0 --> for_loopParalAsync59 +for_loopParalAsync59: li %26, 0 --> for_loopParalAsync56 +for_loopParalAsync56: emit c29 --> for_loopParalAsync55 +for_loopParalAsync55: li %5, 0 --> for_loopParalAsync54 +for_loopParalAsync54: emit c28 --> for_loopParalAsync53 +for_loopParalAsync53: li %0, 0 --> for_loopParalAsync52 +for_loopParalAsync52: emit c27 --> for_loopParalAsync51 +for_loopParalAsync51: li %24, 3 --> for_loopParalAsync50 +for_loopParalAsync50: add %0, %0, %24 --> for_loopParalAsync49 +for_loopParalAsync49: emit c26 --> for_loopParalAsync48 +for_loopParalAsync48: li %23, 2 --> for_loopParalAsync47 +for_loopParalAsync47: mulo %0, %0, %23 --> for_loopParalAsync46 +for_loopParalAsync46: emit c25 --> for_loopParalAsync45 +for_loopParalAsync45: li %22, 3 --> for_loopParalAsync44 +for_loopParalAsync44: div %0, %0, %22 --> for_loopParalAsync43 +for_loopParalAsync43: emit c24 --> for_loopParalAsync42 +for_loopParalAsync42: li %21, 8 --> for_loopParalAsync41 +for_loopParalAsync41: add %0, %0, %21 --> for_loopParalAsync40 +for_loopParalAsync40: emit c23 --> for_loopParalAsync39 +for_loopParalAsync39: emit c22 --> for_loopParalAsync38 +for_loopParalAsync38: li %7, 0 --> for_loopParalAsync20 +for_loopParalAsync20: j --> for_loopParalAsync37 +for_loopParalAsync37: li %18, 0 --> for_loopParalAsync36 +for_loopParalAsync36: emit c21 --> for_loopParalAsync35 +for_loopParalAsync35: li %20, 20 --> for_loopParalAsync34 +for_loopParalAsync34: slt %19, %7, %20 --> for_loopParalAsync33 +for_loopParalAsync33: li %26, 0 --> for_loopParalAsync58 +for_loopParalAsync58: seq %17, %19, %26 --> for_loopParalAsync32 +for_loopParalAsync32: beq %17, %18 --> for_loopParalAsync31, for_loopParalAsync19 +for_loopParalAsync19: emit c16 --> for_loopParalAsync18 +for_loopParalAsync18: emit c15 --> for_loopParalAsync17 +for_loopParalAsync17: li %6, 1 --> for_loopParalAsync3 +for_loopParalAsync3 : j --> for_loopParalAsync16 +for_loopParalAsync16: li %12, 0 --> for_loopParalAsync15 +for_loopParalAsync15: emit c14 --> for_loopParalAsync14 +for_loopParalAsync14: slt %13, %6, %0 --> for_loopParalAsync13 +for_loopParalAsync13: li %25, 0 --> for_loopParalAsync57 +for_loopParalAsync57: seq %11, %13, %25 --> for_loopParalAsync12 +for_loopParalAsync12: beq %11, %12 --> for_loopParalAsync11, for_loopParalAsync2 +for_loopParalAsync2 : emit c10 --> for_loopParalAsync1 +for_loopParalAsync1 : move %8, %5 --> for_loopParalAsync0 +for_loopParalAsync0 : return %8 +for_loopParalAsync11: emit c12 --> for_loopParalAsync10 +for_loopParalAsync10: li %10, 2 --> for_loopParalAsync9 +for_loopParalAsync9 : mulo %2, %2, %10 --> for_loopParalAsync8 +for_loopParalAsync8 : emit c11 --> for_loopParalAsync7 +for_loopParalAsync7 : div %3, %2, %6 --> for_loopParalAsync6 +for_loopParalAsync6 : emit c13 --> for_loopParalAsync5 +for_loopParalAsync5 : li %9, 1 --> for_loopParalAsync4 +for_loopParalAsync4 : add %6, %6, %9 --> for_loopParalAsync3 +for_loopParalAsync31: emit c19 --> for_loopParalAsync30 +for_loopParalAsync30: li %16, 1 --> for_loopParalAsync29 +for_loopParalAsync29: add %5, %5, %16 --> for_loopParalAsync28 +for_loopParalAsync28: emit c18 --> for_loopParalAsync27 +for_loopParalAsync27: li %15, 2 --> for_loopParalAsync26 +for_loopParalAsync26: add %1, %1, %15 --> for_loopParalAsync25 +for_loopParalAsync25: emit c17 --> for_loopParalAsync24 +for_loopParalAsync24: div %4, %1, %5 --> for_loopParalAsync23 +for_loopParalAsync23: emit c20 --> for_loopParalAsync22 +for_loopParalAsync22: li %14, 1 --> for_loopParalAsync21 +for_loopParalAsync21: add %7, %7, %14 --> for_loopParalAsync20 + +function for_incrParam(%0; %1) : %5 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14 +entry for_incrParam37 +for_incrParam37: li %2, 0 --> for_incrParam36 +for_incrParam36: li %3, 0 --> for_incrParam35 +for_incrParam35: li %4, 0 --> for_incrParam34 +for_incrParam34: li %6, 0 --> for_incrParam33 +for_incrParam33: li %7, 0 --> for_incrParam32 +for_incrParam32: li %8, 0 --> for_incrParam31 +for_incrParam31: li %9, 0 --> for_incrParam30 +for_incrParam30: li %10, 0 --> for_incrParam29 +for_incrParam29: li %11, 0 --> for_incrParam28 +for_incrParam28: li %12, 0 --> for_incrParam27 +for_incrParam27: li %13, 0 --> for_incrParam26 +for_incrParam26: li %14, 0 --> for_incrParam24 +for_incrParam24: emit c86 --> for_incrParam23 +for_incrParam23: add %2, %0, %1 --> for_incrParam22 +for_incrParam22: emit c85 --> for_incrParam21 +for_incrParam21: li %13, 3 --> for_incrParam20 +for_incrParam20: mulo %4, %13, %2 --> for_incrParam19 +for_incrParam19: emit c84 --> for_incrParam18 +for_incrParam18: emit c83 --> for_incrParam17 +for_incrParam17: li %12, 4 --> for_incrParam16 +for_incrParam16: sub %3, %2, %12 --> for_incrParam3 +for_incrParam3 : j --> for_incrParam15 +for_incrParam15: li %8, 0 --> for_incrParam14 +for_incrParam14: emit c82 --> for_incrParam13 +for_incrParam13: li %11, 6 --> for_incrParam12 +for_incrParam12: add %10, %1, %11 --> for_incrParam11 +for_incrParam11: slt %9, %3, %10 --> for_incrParam10 +for_incrParam10: li %14, 0 --> for_incrParam25 +for_incrParam25: seq %7, %9, %14 --> for_incrParam9 +for_incrParam9 : beq %7, %8 --> for_incrParam8, for_incrParam2 +for_incrParam2 : emit c79 --> for_incrParam1 +for_incrParam1 : move %5, %3 --> for_incrParam0 +for_incrParam0 : return %5 +for_incrParam8 : emit c80 --> for_incrParam7 +for_incrParam7 : add %6, %3, %2 --> for_incrParam6 +for_incrParam6 : add %3, %6, %0 --> for_incrParam5 +for_incrParam5 : emit c81 --> for_incrParam4 +for_incrParam4 : add %3, %3, %0 --> for_incrParam3 + +function for_incr(%0; %1) : %4 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12 +entry for_incr32 +for_incr32: li %2, 0 --> for_incr31 +for_incr31: li %3, 0 --> for_incr30 +for_incr30: li %5, 0 --> for_incr29 +for_incr29: li %6, 0 --> for_incr28 +for_incr28: li %7, 0 --> for_incr27 +for_incr27: li %8, 0 --> for_incr26 +for_incr26: li %9, 0 --> for_incr25 +for_incr25: li %10, 0 --> for_incr24 +for_incr24: li %11, 0 --> for_incr23 +for_incr23: li %12, 0 --> for_incr21 +for_incr21: emit c78 --> for_incr20 +for_incr20: li %2, 0 --> for_incr19 +for_incr19: emit c77 --> for_incr18 +for_incr18: emit c76 --> for_incr17 +for_incr17: li %11, 3 --> for_incr16 +for_incr16: add %3, %0, %11 --> for_incr3 +for_incr3 : j --> for_incr15 +for_incr15: li %7, 0 --> for_incr14 +for_incr14: emit c75 --> for_incr13 +for_incr13: li %10, 2 --> for_incr12 +for_incr12: mulo %9, %1, %10 --> for_incr11 +for_incr11: sle %8, %3, %9 --> for_incr10 +for_incr10: li %12, 0 --> for_incr22 +for_incr22: seq %6, %8, %12 --> for_incr9 +for_incr9 : beq %6, %7 --> for_incr8, for_incr2 +for_incr2 : emit c72 --> for_incr1 +for_incr1 : move %4, %2 --> for_incr0 +for_incr0 : return %4 +for_incr8 : emit c73 --> for_incr7 +for_incr7 : sub %2, %2, %3 --> for_incr6 +for_incr6 : emit c74 --> for_incr5 +for_incr5 : li %5, 1 --> for_incr4 +for_incr4 : add %3, %3, %5 --> for_incr3 + +function for_imbriq(%0; %1) : %6 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17 +entry for_imbriq52 +for_imbriq52: li %2, 0 --> for_imbriq51 +for_imbriq51: li %3, 0 --> for_imbriq50 +for_imbriq50: li %4, 0 --> for_imbriq49 +for_imbriq49: li %5, 0 --> for_imbriq48 +for_imbriq48: li %7, 0 --> for_imbriq47 +for_imbriq47: li %8, 0 --> for_imbriq46 +for_imbriq46: li %9, 0 --> for_imbriq45 +for_imbriq45: li %10, 0 --> for_imbriq44 +for_imbriq44: li %11, 0 --> for_imbriq43 +for_imbriq43: li %12, 0 --> for_imbriq42 +for_imbriq42: li %13, 0 --> for_imbriq41 +for_imbriq41: li %14, 0 --> for_imbriq40 +for_imbriq40: li %15, 0 --> for_imbriq39 +for_imbriq39: li %16, 0 --> for_imbriq38 +for_imbriq38: li %17, 0 --> for_imbriq34 +for_imbriq34: emit c71 --> for_imbriq33 +for_imbriq33: li %5, 0 --> for_imbriq32 +for_imbriq32: emit c70 --> for_imbriq31 +for_imbriq31: emit c69 --> for_imbriq30 +for_imbriq30: li %3, 0 --> for_imbriq3 +for_imbriq3 : j --> for_imbriq29 +for_imbriq29: li %12, 0 --> for_imbriq28 +for_imbriq28: emit c68 --> for_imbriq27 +for_imbriq27: li %14, 23 --> for_imbriq26 +for_imbriq26: slt %13, %3, %14 --> for_imbriq25 +for_imbriq25: li %16, 0 --> for_imbriq36 +for_imbriq36: seq %11, %13, %16 --> for_imbriq24 +for_imbriq24: beq %11, %12 --> for_imbriq23, for_imbriq2 +for_imbriq2 : emit c59 --> for_imbriq1 +for_imbriq1 : move %6, %5 --> for_imbriq0 +for_imbriq0 : return %6 +for_imbriq23: emit c66 --> for_imbriq22 +for_imbriq22: li %4, 0 --> for_imbriq21 +for_imbriq21: emit c65 --> for_imbriq20 +for_imbriq20: emit c64 --> for_imbriq19 +for_imbriq19: li %2, 1 --> for_imbriq6 +for_imbriq6 : j --> for_imbriq18 +for_imbriq18: li %8, 0 --> for_imbriq17 +for_imbriq17: emit c63 --> for_imbriq16 +for_imbriq16: li %10, 12 --> for_imbriq15 +for_imbriq15: slt %9, %2, %10 --> for_imbriq14 +for_imbriq14: li %15, 0 --> for_imbriq35 +for_imbriq35: seq %7, %9, %15 --> for_imbriq13 +for_imbriq13: beq %7, %8 --> for_imbriq12, for_imbriq5 +for_imbriq5 : emit c67 --> for_imbriq4 +for_imbriq4 : add %3, %3, %0 --> for_imbriq3 +for_imbriq12: emit c61 --> for_imbriq11 +for_imbriq11: add %5, %5, %4 --> for_imbriq10 +for_imbriq10: emit c60 --> for_imbriq9 +for_imbriq9 : la %17, mod --> for_imbriq37 +for_imbriq37: call %4, %17(%4, %2) --> for_imbriq8 +for_imbriq8 : emit c62 --> for_imbriq7 +for_imbriq7 : add %2, %2, %1 --> for_imbriq6 + +function for_fortSimple(%0; %1; %2) : %7 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11 +entry for_fortSimple28 +for_fortSimple28: li %3, 0 --> for_fortSimple27 +for_fortSimple27: li %4, 0 --> for_fortSimple26 +for_fortSimple26: li %5, 0 --> for_fortSimple25 +for_fortSimple25: li %6, 0 --> for_fortSimple24 +for_fortSimple24: li %8, 0 --> for_fortSimple23 +for_fortSimple23: li %9, 0 --> for_fortSimple22 +for_fortSimple22: li %10, 0 --> for_fortSimple21 +for_fortSimple21: li %11, 0 --> for_fortSimple19 +for_fortSimple19: emit c58 --> for_fortSimple18 +for_fortSimple18: li %3, 0 --> for_fortSimple17 +for_fortSimple17: emit c57 --> for_fortSimple16 +for_fortSimple16: emit c56 --> for_fortSimple15 +for_fortSimple15: move %5, %0 --> for_fortSimple5 +for_fortSimple5 : j --> for_fortSimple14 +for_fortSimple14: li %9, 0 --> for_fortSimple13 +for_fortSimple13: emit c55 --> for_fortSimple12 +for_fortSimple12: slt %10, %5, %1 --> for_fortSimple11 +for_fortSimple11: li %11, 0 --> for_fortSimple20 +for_fortSimple20: seq %8, %10, %11 --> for_fortSimple10 +for_fortSimple10: beq %8, %9 --> for_fortSimple9, for_fortSimple4 +for_fortSimple4 : emit c52 --> for_fortSimple3 +for_fortSimple3 : add %4, %3, %0 --> for_fortSimple2 +for_fortSimple2 : emit c51 --> for_fortSimple1 +for_fortSimple1 : move %7, %4 --> for_fortSimple0 +for_fortSimple0 : return %7 +for_fortSimple9 : emit c53 --> for_fortSimple8 +for_fortSimple8 : add %3, %3, %5 --> for_fortSimple7 +for_fortSimple7 : emit c54 --> for_fortSimple6 +for_fortSimple6 : add %5, %5, %2 --> for_fortSimple5 + +function for_forfor() : %2 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10 +entry for_forfor34 +for_forfor34: li %0, 0 --> for_forfor33 +for_forfor33: li %1, 0 --> for_forfor32 +for_forfor32: li %3, 0 --> for_forfor31 +for_forfor31: li %4, 0 --> for_forfor30 +for_forfor30: li %5, 0 --> for_forfor29 +for_forfor29: li %6, 0 --> for_forfor28 +for_forfor28: li %7, 0 --> for_forfor27 +for_forfor27: li %8, 0 --> for_forfor26 +for_forfor26: li %9, 0 --> for_forfor25 +for_forfor25: li %10, 0 --> for_forfor23 +for_forfor23: emit c94 --> for_forfor22 +for_forfor22: emit c93 --> for_forfor21 +for_forfor21: li %1, 0 --> for_forfor20 +for_forfor20: emit c92 --> for_forfor19 +for_forfor19: li %0, 0 --> for_forfor3 +for_forfor3 : j --> for_forfor18 +for_forfor18: li %7, 0 --> for_forfor17 +for_forfor17: emit c91 --> for_forfor16 +for_forfor16: li %9, 10 --> for_forfor15 +for_forfor15: slt %8, %1, %9 --> for_forfor14 +for_forfor14: li %10, 0 --> for_forfor24 +for_forfor24: seq %6, %8, %10 --> for_forfor13 +for_forfor13: beq %6, %7 --> for_forfor12, for_forfor2 +for_forfor2 : emit c87 --> for_forfor1 +for_forfor1 : move %2, %0 --> for_forfor0 +for_forfor0 : return %2 +for_forfor12: emit c89 --> for_forfor11 +for_forfor11: li %5, 1 --> for_forfor10 +for_forfor10: add %0, %0, %5 --> for_forfor9 +for_forfor9 : emit c88 --> for_forfor8 +for_forfor8 : li %4, 1 --> for_forfor7 +for_forfor7 : add %0, %0, %4 --> for_forfor6 +for_forfor6 : emit c90 --> for_forfor5 +for_forfor5 : li %3, 1 --> for_forfor4 +for_forfor4 : add %1, %1, %3 --> for_forfor3 + +function for_ex(%0; %1; %2) : %5 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12 +entry for_ex30 +for_ex30: li %3, 0 --> for_ex29 +for_ex29: li %4, 0 --> for_ex28 +for_ex28: li %6, 0 --> for_ex27 +for_ex27: li %7, 0 --> for_ex26 +for_ex26: li %8, 0 --> for_ex25 +for_ex25: li %9, 0 --> for_ex24 +for_ex24: li %10, 0 --> for_ex23 +for_ex23: li %11, 0 --> for_ex22 +for_ex22: li %12, 0 --> for_ex20 +for_ex20: emit c50 --> for_ex19 +for_ex19: li %3, 0 --> for_ex18 +for_ex18: emit c49 --> for_ex17 +for_ex17: emit c48 --> for_ex16 +for_ex16: li %11, 3 --> for_ex15 +for_ex15: add %4, %0, %11 --> for_ex3 +for_ex3 : j --> for_ex14 +for_ex14: li %7, 0 --> for_ex13 +for_ex13: emit c47 --> for_ex12 +for_ex12: li %10, 2 --> for_ex11 +for_ex11: mulo %9, %1, %10 --> for_ex10 +for_ex10: sle %8, %4, %9 --> for_ex9 +for_ex9 : li %12, 0 --> for_ex21 +for_ex21: seq %6, %8, %12 --> for_ex8 +for_ex8 : beq %6, %7 --> for_ex7, for_ex2 +for_ex2 : emit c44 --> for_ex1 +for_ex1 : move %5, %3 --> for_ex0 +for_ex0 : return %5 +for_ex7 : emit c45 --> for_ex6 +for_ex6 : sub %3, %3, %4 --> for_ex5 +for_ex5 : emit c46 --> for_ex4 +for_ex4 : add %4, %4, %2 --> for_ex3 + +function for_double(%0) : %6 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16 +entry for_double53 +for_double53: li %1, 0 --> for_double52 +for_double52: li %2, 0 --> for_double51 +for_double51: li %3, 0 --> for_double50 +for_double50: li %4, 0 --> for_double49 +for_double49: li %5, 0 --> for_double48 +for_double48: li %7, 0 --> for_double47 +for_double47: li %8, 0 --> for_double46 +for_double46: li %9, 0 --> for_double45 +for_double45: li %10, 0 --> for_double44 +for_double44: li %11, 0 --> for_double43 +for_double43: li %12, 0 --> for_double42 +for_double42: li %13, 0 --> for_double41 +for_double41: li %14, 0 --> for_double40 +for_double40: li %15, 0 --> for_double39 +for_double39: li %16, 0 --> for_double36 +for_double36: emit c43 --> for_double35 +for_double35: li %5, 0 --> for_double34 +for_double34: emit c42 --> for_double33 +for_double33: li %4, 0 --> for_double32 +for_double32: emit c41 --> for_double31 +for_double31: emit c40 --> for_double30 +for_double30: li %2, 0 --> for_double19 +for_double19: j --> for_double29 +for_double29: li %12, 0 --> for_double28 +for_double28: emit c39 --> for_double27 +for_double27: li %14, 12 --> for_double26 +for_double26: slt %13, %2, %14 --> for_double25 +for_double25: li %16, 0 --> for_double38 +for_double38: seq %11, %13, %16 --> for_double24 +for_double24: beq %11, %12 --> for_double23, for_double18 +for_double18: emit c36 --> for_double17 +for_double17: emit c35 --> for_double16 +for_double16: li %1, 0 --> for_double5 +for_double5 : j --> for_double15 +for_double15: li %8, 0 --> for_double14 +for_double14: emit c34 --> for_double13 +for_double13: li %10, 5 --> for_double12 +for_double12: slt %9, %1, %10 --> for_double11 +for_double11: li %15, 0 --> for_double37 +for_double37: seq %7, %9, %15 --> for_double10 +for_double10: beq %7, %8 --> for_double9, for_double4 +for_double4 : emit c31 --> for_double3 +for_double3 : mulo %3, %5, %4 --> for_double2 +for_double2 : emit c30 --> for_double1 +for_double1 : move %6, %3 --> for_double0 +for_double0 : return %6 +for_double9 : emit c32 --> for_double8 +for_double8 : add %4, %4, %1 --> for_double7 +for_double7 : emit c33 --> for_double6 +for_double6 : add %1, %1, %0 --> for_double5 +for_double23: emit c37 --> for_double22 +for_double22: add %5, %5, %2 --> for_double21 +for_double21: emit c38 --> for_double20 +for_double20: add %2, %2, %0 --> for_double19 + +function for_2(%0; %1) : %7 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15 +entry for_241 +for_241: li %2, 0 --> for_240 +for_240: li %3, 0 --> for_239 +for_239: li %4, 0 --> for_238 +for_238: li %5, 0 --> for_237 +for_237: li %6, 0 --> for_236 +for_236: li %8, 0 --> for_235 +for_235: li %9, 0 --> for_234 +for_234: li %10, 0 --> for_233 +for_233: li %11, 0 --> for_232 +for_232: li %12, 0 --> for_231 +for_231: li %13, 0 --> for_230 +for_230: li %14, 0 --> for_229 +for_229: li %15, 0 --> for_227 +for_227: emit c9 --> for_226 +for_226: li %5, 0 --> for_225 +for_225: emit c8 --> for_224 +for_224: li %14, 2 --> for_223 +for_223: mulo %6, %0, %14 --> for_222 +for_222: emit c7 --> for_221 +for_221: li %13, 4 --> for_220 +for_220: mulo %2, %0, %13 --> for_219 +for_219: emit c6 --> for_218 +for_218: li %12, 1 --> for_217 +for_217: add %3, %1, %12 --> for_216 +for_216: emit c5 --> for_215 +for_215: emit c4 --> for_214 +for_214: move %4, %6 --> for_24 +for_24 : j --> for_213 +for_213: li %10, 0 --> for_212 +for_212: emit c3 --> for_211 +for_211: slt %11, %4, %2 --> for_210 +for_210: li %15, 0 --> for_228 +for_228: seq %9, %11, %15 --> for_29 +for_29 : beq %9, %10 --> for_28, for_23 +for_23 : emit c0 --> for_22 +for_22 : li %8, 1 --> for_21 +for_21 : add %7, %5, %8 --> for_20 +for_20 : return %7 +for_28 : emit c1 --> for_27 +for_27 : add %5, %5, %4 --> for_26 +for_26 : emit c2 --> for_25 +for_25 : add %4, %4, %3 --> for_24 + +function _main() : %1 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28 +entry main75 +main75: li %0, 0 --> main74 +main74: li %2, 0 --> main73 +main73: li %3, 0 --> main72 +main72: li %4, 0 --> main71 +main71: li %5, 0 --> main70 +main70: li %6, 0 --> main69 +main69: li %7, 0 --> main68 +main68: li %8, 0 --> main67 +main67: li %9, 0 --> main66 +main66: li %10, 0 --> main65 +main65: li %11, 0 --> main64 +main64: li %12, 0 --> main63 +main63: li %13, 0 --> main62 +main62: li %14, 0 --> main61 +main61: li %15, 0 --> main60 +main60: li %16, 0 --> main59 +main59: li %17, 0 --> main58 +main58: li %18, 0 --> main57 +main57: li %19, 0 --> main56 +main56: li %20, 0 --> main55 +main55: li %21, 0 --> main54 +main54: li %22, 0 --> main53 +main53: li %23, 0 --> main52 +main52: li %24, 0 --> main51 +main51: li %25, 0 --> main50 +main50: li %26, 0 --> main49 +main49: li %27, 0 --> main48 +main48: li %28, 0 --> main38 +main38: emit c104 --> main37 +main37: li %18, 3 --> main36 +main36: li %19, 1 --> main35 +main35: la %26, for_2 --> main45 +main45: call %0, %26(%18, %19) --> main34 +main34: emit c103 --> main33 +main33: li %15, 1 --> main32 +main32: li %16, 2 --> main31 +main31: li %17, 3 --> main30 +main30: la %25, for_loopParalAsync --> main44 +main44: call %0, %25(%15, %16, %17) --> main29 +main29: emit c102 --> main28 +main28: li %14, 1 --> main27 +main27: la %23, for_double --> main42 +main42: call %0, %23(%14) --> main26 +main26: emit c101 --> main25 +main25: li %11, 2 --> main24 +main24: li %12, 10 --> main23 +main23: li %13, 1 --> main22 +main22: la %22, for_ex --> main41 +main41: call %0, %22(%11, %12, %13) --> main21 +main21: emit c100 --> main20 +main20: li %8, 2 --> main19 +main19: li %9, 10 --> main18 +main18: li %10, 1 --> main17 +main17: la %21, for_fortSimple --> main40 +main40: call %0, %21(%8, %9, %10) --> main16 +main16: emit c99 --> main15 +main15: li %6, 2 --> main14 +main14: li %7, 3 --> main13 +main13: la %20, for_imbriq --> main39 +main39: call %0, %20(%6, %7) --> main12 +main12: emit c98 --> main11 +main11: li %4, 2 --> main10 +main10: li %5, 3 --> main9 +main9 : la %28, for_incr --> main47 +main47: call %0, %28(%4, %5) --> main8 +main8 : emit c97 --> main7 +main7 : li %2, 2 --> main6 +main6 : li %3, 3 --> main5 +main5 : la %27, for_incrParam --> main46 +main46: call %0, %27(%2, %3) --> main4 +main4 : emit c96 --> main3 +main3 : la %24, for_forfor --> main43 +main43: call %0, %24() --> main2 +main2 : emit c95 --> main1 +main1 : move %1, %0 --> main0 +main0 : return %1 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/for.RTLabs.expected b/tests/clight/for.RTLabs.expected new file mode 100644 index 0000000..5ccbcd5 --- /dev/null +++ b/tests/clight/for.RTLabs.expected @@ -0,0 +1,800 @@ +program: (main function is "main") + + + globals: + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "for_2"(%0, %1): int -> int -> int + locals: %7, %2, %3, %4, %5, %6, %8, %9, %10, %11, %12, %13, %14 + result: %7 + stacksize: 0 + entry: for_227 + exit: for_20 + + for_29: eq %9, %10 --> for_28, for_23 + for_28: emit c1 --> for_27 + for_27: add %5, %5, %4 --> for_26 + for_26: emit c2 --> for_25 + for_25: add %4, %4, %3 --> for_24 + for_24: --> for_213 + for_23: emit c0 --> for_22 + for_227: emit c9 --> for_226 + for_226: imm_int 0, %5, --> for_225 + for_225: emit c8 --> for_224 + for_224: imm_int 2, %14, --> for_223 + for_223: mul %6, %0, %14 --> for_222 + for_222: emit c7 --> for_221 + for_221: imm_int 4, %13, --> for_220 + for_220: mul %2, %0, %13 --> for_219 + for_22: imm_int 1, %8, --> for_21 + for_219: emit c6 --> for_218 + for_218: imm_int 1, %12, --> for_217 + for_217: add %3, %1, %12 --> for_216 + for_216: emit c5 --> for_215 + for_215: emit c4 --> for_214 + for_214: mov %4, %6 --> for_24 + for_213: imm_int 0, %10, --> for_212 + for_212: emit c3 --> for_211 + for_211: lt %11, %4, %2 --> for_210 + for_210: notbool %9, %11 --> for_29 + for_21: add %7, %5, %8 --> for_20 + for_20: return %7 + + + "for_loopParalAsync"(%0, %1, %2): int -> int -> int -> int + locals: %8, %3, %4, %5, %6, %7, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24 + result: %8 + stacksize: 0 + entry: for_loopParalAsync56 + exit: for_loopParalAsync0 + + for_loopParalAsync9: mul %2, %2, %10 --> for_loopParalAsync8 + for_loopParalAsync8: emit c11 --> for_loopParalAsync7 + for_loopParalAsync7: div %3, %2, %6 --> for_loopParalAsync6 + for_loopParalAsync6: emit c13 --> for_loopParalAsync5 + for_loopParalAsync56: emit c29 --> for_loopParalAsync55 + for_loopParalAsync55: imm_int 0, %5, --> for_loopParalAsync54 + for_loopParalAsync54: emit c28 --> for_loopParalAsync53 + for_loopParalAsync53: imm_int 0, %0, --> for_loopParalAsync52 + for_loopParalAsync52: emit c27 --> for_loopParalAsync51 + for_loopParalAsync51: imm_int 3, %24, --> for_loopParalAsync50 + for_loopParalAsync50: add %0, %0, %24 --> for_loopParalAsync49 + for_loopParalAsync5: imm_int 1, %9, --> for_loopParalAsync4 + for_loopParalAsync49: emit c26 --> for_loopParalAsync48 + for_loopParalAsync48: imm_int 2, %23, --> for_loopParalAsync47 + for_loopParalAsync47: mul %0, %0, %23 --> for_loopParalAsync46 + for_loopParalAsync46: emit c25 --> for_loopParalAsync45 + for_loopParalAsync45: imm_int 3, %22, --> for_loopParalAsync44 + for_loopParalAsync44: div %0, %0, %22 --> for_loopParalAsync43 + for_loopParalAsync43: emit c24 --> for_loopParalAsync42 + for_loopParalAsync42: imm_int 8, %21, --> for_loopParalAsync41 + for_loopParalAsync41: add %0, %0, %21 --> for_loopParalAsync40 + for_loopParalAsync40: emit c23 --> for_loopParalAsync39 + for_loopParalAsync4: add %6, %6, %9 --> for_loopParalAsync3 + for_loopParalAsync39: emit c22 --> for_loopParalAsync38 + for_loopParalAsync38: imm_int 0, %7, --> for_loopParalAsync20 + for_loopParalAsync37: imm_int 0, %18, --> for_loopParalAsync36 + for_loopParalAsync36: emit c21 --> for_loopParalAsync35 + for_loopParalAsync35: imm_int 20, %20, --> for_loopParalAsync34 + for_loopParalAsync34: lt %19, %7, %20 --> for_loopParalAsync33 + for_loopParalAsync33: notbool %17, %19 --> for_loopParalAsync32 + for_loopParalAsync32: eq %17, %18 --> for_loopParalAsync31, for_loopParalAsync19 + for_loopParalAsync31: emit c19 --> for_loopParalAsync30 + for_loopParalAsync30: imm_int 1, %16, --> for_loopParalAsync29 + for_loopParalAsync3: --> for_loopParalAsync16 + for_loopParalAsync29: add %5, %5, %16 --> for_loopParalAsync28 + for_loopParalAsync28: emit c18 --> for_loopParalAsync27 + for_loopParalAsync27: imm_int 2, %15, --> for_loopParalAsync26 + for_loopParalAsync26: add %1, %1, %15 --> for_loopParalAsync25 + for_loopParalAsync25: emit c17 --> for_loopParalAsync24 + for_loopParalAsync24: div %4, %1, %5 --> for_loopParalAsync23 + for_loopParalAsync23: emit c20 --> for_loopParalAsync22 + for_loopParalAsync22: imm_int 1, %14, --> for_loopParalAsync21 + for_loopParalAsync21: add %7, %7, %14 --> for_loopParalAsync20 + for_loopParalAsync20: --> for_loopParalAsync37 + for_loopParalAsync2: emit c10 --> for_loopParalAsync1 + for_loopParalAsync19: emit c16 --> for_loopParalAsync18 + for_loopParalAsync18: emit c15 --> for_loopParalAsync17 + for_loopParalAsync17: imm_int 1, %6, --> for_loopParalAsync3 + for_loopParalAsync16: imm_int 0, %12, --> for_loopParalAsync15 + for_loopParalAsync15: emit c14 --> for_loopParalAsync14 + for_loopParalAsync14: lt %13, %6, %0 --> for_loopParalAsync13 + for_loopParalAsync13: notbool %11, %13 --> for_loopParalAsync12 + for_loopParalAsync12: eq %11, %12 --> for_loopParalAsync11, for_loopParalAsync2 + for_loopParalAsync11: emit c12 --> for_loopParalAsync10 + for_loopParalAsync10: imm_int 2, %10, --> for_loopParalAsync9 + for_loopParalAsync1: mov %8, %5 --> for_loopParalAsync0 + for_loopParalAsync0: return %8 + + + "for_double"(%0): int -> int + locals: %6, %1, %2, %3, %4, %5, %7, %8, %9, %10, %11, %12, %13, %14 + result: %6 + stacksize: 0 + entry: for_double36 + exit: for_double0 + + for_double9: emit c32 --> for_double8 + for_double8: add %4, %4, %1 --> for_double7 + for_double7: emit c33 --> for_double6 + for_double6: add %1, %1, %0 --> for_double5 + for_double5: --> for_double15 + for_double4: emit c31 --> for_double3 + for_double36: emit c43 --> for_double35 + for_double35: imm_int 0, %5, --> for_double34 + for_double34: emit c42 --> for_double33 + for_double33: imm_int 0, %4, --> for_double32 + for_double32: emit c41 --> for_double31 + for_double31: emit c40 --> for_double30 + for_double30: imm_int 0, %2, --> for_double19 + for_double3: mul %3, %5, %4 --> for_double2 + for_double29: imm_int 0, %12, --> for_double28 + for_double28: emit c39 --> for_double27 + for_double27: imm_int 12, %14, --> for_double26 + for_double26: lt %13, %2, %14 --> for_double25 + for_double25: notbool %11, %13 --> for_double24 + for_double24: eq %11, %12 --> for_double23, for_double18 + for_double23: emit c37 --> for_double22 + for_double22: add %5, %5, %2 --> for_double21 + for_double21: emit c38 --> for_double20 + for_double20: add %2, %2, %0 --> for_double19 + for_double2: emit c30 --> for_double1 + for_double19: --> for_double29 + for_double18: emit c36 --> for_double17 + for_double17: emit c35 --> for_double16 + for_double16: imm_int 0, %1, --> for_double5 + for_double15: imm_int 0, %8, --> for_double14 + for_double14: emit c34 --> for_double13 + for_double13: imm_int 5, %10, --> for_double12 + for_double12: lt %9, %1, %10 --> for_double11 + for_double11: notbool %7, %9 --> for_double10 + for_double10: eq %7, %8 --> for_double9, for_double4 + for_double1: mov %6, %3 --> for_double0 + for_double0: return %6 + + + "for_ex"(%0, %1, %2): int -> int -> int -> int + locals: %5, %3, %4, %6, %7, %8, %9, %10, %11 + result: %5 + stacksize: 0 + entry: for_ex20 + exit: for_ex0 + + for_ex9: notbool %6, %8 --> for_ex8 + for_ex8: eq %6, %7 --> for_ex7, for_ex2 + for_ex7: emit c45 --> for_ex6 + for_ex6: sub %3, %3, %4 --> for_ex5 + for_ex5: emit c46 --> for_ex4 + for_ex4: add %4, %4, %2 --> for_ex3 + for_ex3: --> for_ex14 + for_ex20: emit c50 --> for_ex19 + for_ex2: emit c44 --> for_ex1 + for_ex19: imm_int 0, %3, --> for_ex18 + for_ex18: emit c49 --> for_ex17 + for_ex17: emit c48 --> for_ex16 + for_ex16: imm_int 3, %11, --> for_ex15 + for_ex15: add %4, %0, %11 --> for_ex3 + for_ex14: imm_int 0, %7, --> for_ex13 + for_ex13: emit c47 --> for_ex12 + for_ex12: imm_int 2, %10, --> for_ex11 + for_ex11: mul %9, %1, %10 --> for_ex10 + for_ex10: le %8, %4, %9 --> for_ex9 + for_ex1: mov %5, %3 --> for_ex0 + for_ex0: return %5 + + + "for_fortSimple"(%0, %1, %2): int -> int -> int -> int + locals: %7, %3, %4, %5, %6, %8, %9, %10 + result: %7 + stacksize: 0 + entry: for_fortSimple19 + exit: for_fortSimple0 + + for_fortSimple9: emit c53 --> for_fortSimple8 + for_fortSimple8: add %3, %3, %5 --> for_fortSimple7 + for_fortSimple7: emit c54 --> for_fortSimple6 + for_fortSimple6: add %5, %5, %2 --> for_fortSimple5 + for_fortSimple5: --> for_fortSimple14 + for_fortSimple4: emit c52 --> for_fortSimple3 + for_fortSimple3: add %4, %3, %0 --> for_fortSimple2 + for_fortSimple2: emit c51 --> for_fortSimple1 + for_fortSimple19: emit c58 --> for_fortSimple18 + for_fortSimple18: imm_int 0, %3, --> for_fortSimple17 + for_fortSimple17: emit c57 --> for_fortSimple16 + for_fortSimple16: emit c56 --> for_fortSimple15 + for_fortSimple15: mov %5, %0 --> for_fortSimple5 + for_fortSimple14: imm_int 0, %9, --> for_fortSimple13 + for_fortSimple13: emit c55 --> for_fortSimple12 + for_fortSimple12: lt %10, %5, %1 --> for_fortSimple11 + for_fortSimple11: notbool %8, %10 --> for_fortSimple10 + for_fortSimple10: eq %8, %9 --> for_fortSimple9, for_fortSimple4 + for_fortSimple1: mov %7, %4 --> for_fortSimple0 + for_fortSimple0: return %7 + + + "for_imbriq"(%0, %1): int -> int -> int + locals: %6, %2, %3, %4, %5, %7, %8, %9, %10, %11, %12, %13, %14 + result: %6 + stacksize: 0 + entry: for_imbriq34 + exit: for_imbriq0 + + for_imbriq9: mod %4, %4, %2 --> for_imbriq8 + for_imbriq8: emit c62 --> for_imbriq7 + for_imbriq7: add %2, %2, %1 --> for_imbriq6 + for_imbriq6: --> for_imbriq18 + for_imbriq5: emit c67 --> for_imbriq4 + for_imbriq4: add %3, %3, %0 --> for_imbriq3 + for_imbriq34: emit c71 --> for_imbriq33 + for_imbriq33: imm_int 0, %5, --> for_imbriq32 + for_imbriq32: emit c70 --> for_imbriq31 + for_imbriq31: emit c69 --> for_imbriq30 + for_imbriq30: imm_int 0, %3, --> for_imbriq3 + for_imbriq3: --> for_imbriq29 + for_imbriq29: imm_int 0, %12, --> for_imbriq28 + for_imbriq28: emit c68 --> for_imbriq27 + for_imbriq27: imm_int 23, %14, --> for_imbriq26 + for_imbriq26: lt %13, %3, %14 --> for_imbriq25 + for_imbriq25: notbool %11, %13 --> for_imbriq24 + for_imbriq24: eq %11, %12 --> for_imbriq23, for_imbriq2 + for_imbriq23: emit c66 --> for_imbriq22 + for_imbriq22: imm_int 0, %4, --> for_imbriq21 + for_imbriq21: emit c65 --> for_imbriq20 + for_imbriq20: emit c64 --> for_imbriq19 + for_imbriq2: emit c59 --> for_imbriq1 + for_imbriq19: imm_int 1, %2, --> for_imbriq6 + for_imbriq18: imm_int 0, %8, --> for_imbriq17 + for_imbriq17: emit c63 --> for_imbriq16 + for_imbriq16: imm_int 12, %10, --> for_imbriq15 + for_imbriq15: lt %9, %2, %10 --> for_imbriq14 + for_imbriq14: notbool %7, %9 --> for_imbriq13 + for_imbriq13: eq %7, %8 --> for_imbriq12, for_imbriq5 + for_imbriq12: emit c61 --> for_imbriq11 + for_imbriq11: add %5, %5, %4 --> for_imbriq10 + for_imbriq10: emit c60 --> for_imbriq9 + for_imbriq1: mov %6, %5 --> for_imbriq0 + for_imbriq0: return %6 + + + "for_incr"(%0, %1): int -> int -> int + locals: %4, %2, %3, %5, %6, %7, %8, %9, %10, %11 + result: %4 + stacksize: 0 + entry: for_incr21 + exit: for_incr0 + + for_incr9: eq %6, %7 --> for_incr8, for_incr2 + for_incr8: emit c73 --> for_incr7 + for_incr7: sub %2, %2, %3 --> for_incr6 + for_incr6: emit c74 --> for_incr5 + for_incr5: imm_int 1, %5, --> for_incr4 + for_incr4: add %3, %3, %5 --> for_incr3 + for_incr3: --> for_incr15 + for_incr21: emit c78 --> for_incr20 + for_incr20: imm_int 0, %2, --> for_incr19 + for_incr2: emit c72 --> for_incr1 + for_incr19: emit c77 --> for_incr18 + for_incr18: emit c76 --> for_incr17 + for_incr17: imm_int 3, %11, --> for_incr16 + for_incr16: add %3, %0, %11 --> for_incr3 + for_incr15: imm_int 0, %7, --> for_incr14 + for_incr14: emit c75 --> for_incr13 + for_incr13: imm_int 2, %10, --> for_incr12 + for_incr12: mul %9, %1, %10 --> for_incr11 + for_incr11: le %8, %3, %9 --> for_incr10 + for_incr10: notbool %6, %8 --> for_incr9 + for_incr1: mov %4, %2 --> for_incr0 + for_incr0: return %4 + + + "for_incrParam"(%0, %1): int -> int -> int + locals: %5, %2, %3, %4, %6, %7, %8, %9, %10, %11, %12, %13 + result: %5 + stacksize: 0 + entry: for_incrParam24 + exit: for_incrParam0 + + for_incrParam9: eq %7, %8 --> for_incrParam8, for_incrParam2 + for_incrParam8: emit c80 --> for_incrParam7 + for_incrParam7: add %6, %3, %2 --> for_incrParam6 + for_incrParam6: add %3, %6, %0 --> for_incrParam5 + for_incrParam5: emit c81 --> for_incrParam4 + for_incrParam4: add %3, %3, %0 --> for_incrParam3 + for_incrParam3: --> for_incrParam15 + for_incrParam24: emit c86 --> for_incrParam23 + for_incrParam23: add %2, %0, %1 --> for_incrParam22 + for_incrParam22: emit c85 --> for_incrParam21 + for_incrParam21: imm_int 3, %13, --> for_incrParam20 + for_incrParam20: mul %4, %13, %2 --> for_incrParam19 + for_incrParam2: emit c79 --> for_incrParam1 + for_incrParam19: emit c84 --> for_incrParam18 + for_incrParam18: emit c83 --> for_incrParam17 + for_incrParam17: imm_int 4, %12, --> for_incrParam16 + for_incrParam16: sub %3, %2, %12 --> for_incrParam3 + for_incrParam15: imm_int 0, %8, --> for_incrParam14 + for_incrParam14: emit c82 --> for_incrParam13 + for_incrParam13: imm_int 6, %11, --> for_incrParam12 + for_incrParam12: add %10, %1, %11 --> for_incrParam11 + for_incrParam11: lt %9, %3, %10 --> for_incrParam10 + for_incrParam10: notbool %7, %9 --> for_incrParam9 + for_incrParam1: mov %5, %3 --> for_incrParam0 + for_incrParam0: return %5 + + + "for_forfor"(): int + locals: %2, %0, %1, %3, %4, %5, %6, %7, %8, %9 + result: %2 + stacksize: 0 + entry: for_forfor23 + exit: for_forfor0 + + for_forfor9: emit c88 --> for_forfor8 + for_forfor8: imm_int 1, %4, --> for_forfor7 + for_forfor7: add %0, %0, %4 --> for_forfor6 + for_forfor6: emit c90 --> for_forfor5 + for_forfor5: imm_int 1, %3, --> for_forfor4 + for_forfor4: add %1, %1, %3 --> for_forfor3 + for_forfor3: --> for_forfor18 + for_forfor23: emit c94 --> for_forfor22 + for_forfor22: emit c93 --> for_forfor21 + for_forfor21: imm_int 0, %1, --> for_forfor20 + for_forfor20: emit c92 --> for_forfor19 + for_forfor2: emit c87 --> for_forfor1 + for_forfor19: imm_int 0, %0, --> for_forfor3 + for_forfor18: imm_int 0, %7, --> for_forfor17 + for_forfor17: emit c91 --> for_forfor16 + for_forfor16: imm_int 10, %9, --> for_forfor15 + for_forfor15: lt %8, %1, %9 --> for_forfor14 + for_forfor14: notbool %6, %8 --> for_forfor13 + for_forfor13: eq %6, %7 --> for_forfor12, for_forfor2 + for_forfor12: emit c89 --> for_forfor11 + for_forfor11: imm_int 1, %5, --> for_forfor10 + for_forfor10: add %0, %0, %5 --> for_forfor9 + for_forfor1: mov %2, %0 --> for_forfor0 + for_forfor0: return %2 + + + "main"(): int + locals: %1, %0, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19 + result: %1 + stacksize: 0 + entry: main38 + exit: main0 + + main9: call "for_incr", %4, %5, %0: int -> int -> int --> main8 + main8: emit c97 --> main7 + main7: imm_int 2, %2, --> main6 + main6: imm_int 3, %3, --> main5 + main5: call "for_incrParam", %2, %3, %0: int -> int -> int --> main4 + main4: emit c96 --> main3 + main38: emit c104 --> main37 + main37: imm_int 3, %18, --> main36 + main36: imm_int 1, %19, --> main35 + main35: call "for_2", %18, %19, %0: int -> int -> int --> main34 + main34: emit c103 --> main33 + main33: imm_int 1, %15, --> main32 + main32: imm_int 2, %16, --> main31 + main31: imm_int 3, %17, --> main30 + main30: call "for_loopParalAsync", %15, %16, %17, %0: int -> int -> int -> int --> main29 + main3: call "for_forfor", , %0: int --> main2 + main29: emit c102 --> main28 + main28: imm_int 1, %14, --> main27 + main27: call "for_double", %14, %0: int -> int --> main26 + main26: emit c101 --> main25 + main25: imm_int 2, %11, --> main24 + main24: imm_int 10, %12, --> main23 + main23: imm_int 1, %13, --> main22 + main22: call "for_ex", %11, %12, %13, %0: int -> int -> int -> int --> main21 + main21: emit c100 --> main20 + main20: imm_int 2, %8, --> main19 + main2: emit c95 --> main1 + main19: imm_int 10, %9, --> main18 + main18: imm_int 1, %10, --> main17 + main17: call "for_fortSimple", %8, %9, %10, %0: int -> int -> int -> int --> main16 + main16: emit c99 --> main15 + main15: imm_int 2, %6, --> main14 + main14: imm_int 3, %7, --> main13 + main13: call "for_imbriq", %6, %7, %0: int -> int -> int --> main12 + main12: emit c98 --> main11 + main11: imm_int 2, %4, --> main10 + main10: imm_int 3, %5, --> main9 + main1: mov %1, %0 --> main0 + main0: return %1 + + diff --git a/tests/clight/for.c b/tests/clight/for.c new file mode 100644 index 0000000..2cf9d3c --- /dev/null +++ b/tests/clight/for.c @@ -0,0 +1,116 @@ +int for_2(int a,int b){ + int i,min,max,pas,resul; + resul = 0; + min = a*2; + max = a*4; + pas=b+1; + for(i=min;i b) { + c38: + min = b; + } else { + c37: + min = a; + } + c36: + return min; +} + +int if_prog(int j, int i) +{ + int a; + int b; + c44: + a = i + j; + c43: + if (a < 0) { + c42: + b = 2; + } else { + c41: + b = 3; + } + c40: + return b; +} + +int if_sansElse(int a, int b) +{ + int c; + c48: + c = 0; + c47: + if (a < b) { + c46: + c = a; + } + c45: + return c; +} + +int if_test(int a, int b, int x, int y) +{ + int c; + int d; + int v; + int w; + int z; + c61: + c = 0; + c60: + d = 0; + c59: + v = 0; + c58: + w = 0; + c57: + z = 0; + c56: + if (a < b) { + c55: + c = a + b; + } + c54: + if (x < y) { + c53: + z = x + y; + c52: + w = z + x; + } + c51: + d = c + 1; + c50: + v = c + w; + c49: + return c; +} + +int if_ual(int op, int a, int b) +{ + int result; + c74: + if (op == 0) { + c73: + result = a + b; + } else { + c72: + if (op == 1) { + c71: + result = a - b; + } else { + c70: + if (op == 2) { + c69: + result = (/* c68 */ a) && (/* c67 */ b); + } else { + c66: + if (op == 3) { + c65: + result = (/* c64 */ a) || (/* c63 */ b); + } + } + } + } + c62: + return result; +} + +int main(void) +{ + int a; + c84: + a = if_jian(1, 2, 3, 4, 5, 6, 7, 8, 9); + c83: + a = if_exSimple(1, 2); + c82: + a = if_imbriq1(1, 2, 3); + c81: + a = if_imbriq2(1, 2, 3); + c80: + a = if_min(1, 2); + c79: + a = if_prog(1, 2); + c78: + a = if_sansElse(1, 2); + c77: + a = if_test(1, 2, 3, 4); + c76: + a = if_ual(1, 2, 3); + c75: + return a; +} + + diff --git a/tests/clight/ifthenelse.Cminor.expected b/tests/clight/ifthenelse.Cminor.expected new file mode 100644 index 0000000..07ef1c5 --- /dev/null +++ b/tests/clight/ifthenelse.Cminor.expected @@ -0,0 +1,711 @@ + + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"if_jian" (a, b, c, d, e, f, g, x, y) : int -> int -> int -> int -> int -> int -> int -> int -> int -> int { + + stack 0; + + var u, v, t1, t2, t3, t4, t5; + + c15: + t1 = (a + b) < c; + c14: + t2 = d + e; + c13: + t3 = c + 1; + c12: + if (y == 1) { + c11: + if (t1) { + c10: + u = t3 + d; + } + else { + c9: + if (!x) { + c8: + u = t2 + d; + } + else { + } + } + c7: + if ((/* c6 */ !t1) ? ((/* c5 */ x) ? 1 : 0) : 0) { + c4: + v = t2 + e; + } + else { + } + } + else { + c3: + t4 = t3 + e; + c2: + t5 = t4 + f; + c1: + u = t5 + g; + } + c0: + return u; + +} + + +"if_exSimple" (a, b) : int -> int -> int { + + stack 0; + + var g, e, f; + + c23: + if (a < b) { + c22: + e = a + b; + c21: + e = 2 * e; + c20: + g = e; + } + else { + c19: + f = 2 * b; + c18: + f = f + a; + c17: + g = f + b; + } + c16: + return g; + +} + + +"if_imbriq1" (a, b, c) : int -> int -> int -> int { + + stack 0; + + var result; + + c29: + if (a < b) { + c28: + if (b < c) { + c27: + result = b; + } + else { + c26: + result = c; + } + } + else { + c25: + result = a; + } + c24: + return result; + +} + + +"if_imbriq2" (a, b, c) : int -> int -> int -> int { + + stack 0; + + var result; + + c35: + if (a < b) { + c34: + if (b < c) { + c33: + result = b; + } + else { + c32: + result = 47; + } + } + else { + c31: + result = a; + } + c30: + return result; + +} + + +"if_min" (a, b) : int -> int -> int { + + stack 0; + + var min; + + c39: + if (a > b) { + c38: + min = b; + } + else { + c37: + min = a; + } + c36: + return min; + +} + + +"if_prog" (j, i) : int -> int -> int { + + stack 0; + + var a, b; + + c44: + a = i + j; + c43: + if (a < 0) { + c42: + b = 2; + } + else { + c41: + b = 3; + } + c40: + return b; + +} + + +"if_sansElse" (a, b) : int -> int -> int { + + stack 0; + + var c; + + c48: + c = 0; + c47: + if (a < b) { + c46: + c = a; + } + else { + } + c45: + return c; + +} + + +"if_test" (a, b, x, y) : int -> int -> int -> int -> int { + + stack 0; + + var c, d, v, w, z; + + c61: + c = 0; + c60: + d = 0; + c59: + v = 0; + c58: + w = 0; + c57: + z = 0; + c56: + if (a < b) { + c55: + c = a + b; + } + else { + } + c54: + if (x < y) { + c53: + z = x + y; + c52: + w = z + x; + } + else { + } + c51: + d = c + 1; + c50: + v = c + w; + c49: + return c; + +} + + +"if_ual" (op, a, b) : int -> int -> int -> int { + + stack 0; + + var result; + + c74: + if (op == 0) { + c73: + result = a + b; + } + else { + c72: + if (op == 1) { + c71: + result = a - b; + } + else { + c70: + if (op == 2) { + c69: + result = (/* c68 */ a) ? ((/* c67 */ b) ? 1 : 0) : 0; + } + else { + c66: + if (op == 3) { + c65: + result = (/* c64 */ a) ? 1 : ((/* c63 */ b) ? 1 : 0); + } + else { + } + } + } + } + c62: + return result; + +} + + +"main" () : int { + + stack 0; + + var a; + + c84: + a = "if_jian"(1, 2, 3, 4, 5, 6, 7, 8, 9) : int -> int -> int -> int -> int -> int -> int -> int -> int -> int; + c83: + a = "if_exSimple"(1, 2) : int -> int -> int; + c82: + a = "if_imbriq1"(1, 2, 3) : int -> int -> int -> int; + c81: + a = "if_imbriq2"(1, 2, 3) : int -> int -> int -> int; + c80: + a = "if_min"(1, 2) : int -> int -> int; + c79: + a = "if_prog"(1, 2) : int -> int -> int; + c78: + a = "if_sansElse"(1, 2) : int -> int -> int; + c77: + a = "if_test"(1, 2, 3, 4) : int -> int -> int -> int -> int; + c76: + a = "if_ual"(1, 2, 3) : int -> int -> int -> int; + c75: + return a; + +} + + diff --git a/tests/clight/ifthenelse.ERTL.expected b/tests/clight/ifthenelse.ERTL.expected new file mode 100644 index 0000000..490602f --- /dev/null +++ b/tests/clight/ifthenelse.ERTL.expected @@ -0,0 +1,760 @@ +program + +globals 0 + +procedure if_ual(3) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33 +entry if_ual84 +if_ual84: newframe --> if_ual83 +if_ual83: move %33, $ra --> if_ual82 +if_ual82: move %32, $s7 --> if_ual81 +if_ual81: move %31, $s6 --> if_ual80 +if_ual80: move %30, $s5 --> if_ual79 +if_ual79: move %29, $s4 --> if_ual78 +if_ual78: move %28, $s3 --> if_ual77 +if_ual77: move %27, $s2 --> if_ual76 +if_ual76: move %26, $s1 --> if_ual75 +if_ual75: move %25, $s0 --> if_ual74 +if_ual74: move %0, $a0 --> if_ual73 +if_ual73: move %1, $a1 --> if_ual72 +if_ual72: move %2, $a2 --> if_ual71 +if_ual71: li %3, 0 --> if_ual70 +if_ual70: li %5, 0 --> if_ual69 +if_ual69: li %6, 0 --> if_ual68 +if_ual68: li %7, 0 --> if_ual67 +if_ual67: li %8, 0 --> if_ual66 +if_ual66: li %9, 0 --> if_ual65 +if_ual65: li %10, 0 --> if_ual64 +if_ual64: li %11, 0 --> if_ual63 +if_ual63: li %12, 0 --> if_ual62 +if_ual62: li %13, 0 --> if_ual61 +if_ual61: li %14, 0 --> if_ual60 +if_ual60: li %15, 0 --> if_ual59 +if_ual59: li %16, 0 --> if_ual58 +if_ual58: li %17, 0 --> if_ual57 +if_ual57: li %18, 0 --> if_ual56 +if_ual56: li %19, 0 --> if_ual55 +if_ual55: li %20, 0 --> if_ual54 +if_ual54: li %21, 0 --> if_ual53 +if_ual53: li %22, 0 --> if_ual52 +if_ual52: li %23, 0 --> if_ual51 +if_ual51: li %24, 0 --> if_ual50 +if_ual50: emit c74 --> if_ual49 +if_ual49: li %23, 0 --> if_ual48 +if_ual48: li %24, 0 --> if_ual47 +if_ual47: seq %22, %0, %24 --> if_ual46 +if_ual46: beq %22, %23 --> if_ual43, if_ual45 +if_ual45: emit c73 --> if_ual44 +if_ual44: addu %3, %1, %2 --> if_ual2 +if_ual2 : emit c62 --> if_ual1 +if_ual1 : move %4, %3 --> if_ual0 +if_ual0 : j --> if_ual96 +if_ual96: move $v0, %4 --> if_ual95 +if_ual95: move $ra, %33 --> if_ual94 +if_ual94: move $s7, %32 --> if_ual93 +if_ual93: move $s6, %31 --> if_ual92 +if_ual92: move $s5, %30 --> if_ual91 +if_ual91: move $s4, %29 --> if_ual90 +if_ual90: move $s3, %28 --> if_ual89 +if_ual89: move $s2, %27 --> if_ual88 +if_ual88: move $s1, %26 --> if_ual87 +if_ual87: move $s0, %25 --> if_ual86 +if_ual86: delframe --> if_ual85 +if_ual85: jr $ra (xmits $v0) +if_ual43: emit c72 --> if_ual42 +if_ual42: li %20, 0 --> if_ual41 +if_ual41: li %21, 1 --> if_ual40 +if_ual40: seq %19, %0, %21 --> if_ual39 +if_ual39: beq %19, %20 --> if_ual36, if_ual38 +if_ual38: emit c71 --> if_ual37 +if_ual37: subu %3, %1, %2 --> if_ual2 +if_ual36: emit c70 --> if_ual35 +if_ual35: li %17, 0 --> if_ual34 +if_ual34: li %18, 2 --> if_ual33 +if_ual33: seq %16, %0, %18 --> if_ual32 +if_ual32: beq %16, %17 --> if_ual19, if_ual31 +if_ual31: emit c69 --> if_ual30 +if_ual30: li %15, 0 --> if_ual29 +if_ual29: emit c68 --> if_ual28 +if_ual28: move %14, %1 --> if_ual27 +if_ual27: beq %14, %15 --> if_ual20, if_ual26 +if_ual26: li %13, 0 --> if_ual25 +if_ual25: emit c67 --> if_ual24 +if_ual24: move %12, %2 --> if_ual23 +if_ual23: beq %12, %13 --> if_ual21, if_ual22 +if_ual22: li %3, 1 --> if_ual2 +if_ual21: li %3, 0 --> if_ual2 +if_ual20: li %3, 0 --> if_ual2 +if_ual19: emit c66 --> if_ual18 +if_ual18: li %10, 0 --> if_ual17 +if_ual17: li %11, 3 --> if_ual16 +if_ual16: seq %9, %0, %11 --> if_ual15 +if_ual15: beq %9, %10 --> if_ual2, if_ual14 +if_ual14: emit c65 --> if_ual13 +if_ual13: li %8, 0 --> if_ual12 +if_ual12: emit c64 --> if_ual11 +if_ual11: move %7, %1 --> if_ual10 +if_ual10: beq %7, %8 --> if_ual8, if_ual9 +if_ual9 : li %3, 1 --> if_ual2 +if_ual8 : li %6, 0 --> if_ual7 +if_ual7 : emit c63 --> if_ual6 +if_ual6 : move %5, %2 --> if_ual5 +if_ual5 : beq %5, %6 --> if_ual3, if_ual4 +if_ual4 : li %3, 1 --> if_ual2 +if_ual3 : li %3, 0 --> if_ual2 + +procedure if_test(4) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23 +entry if_test55 +if_test55: newframe --> if_test54 +if_test54: move %23, $ra --> if_test53 +if_test53: move %22, $s7 --> if_test52 +if_test52: move %21, $s6 --> if_test51 +if_test51: move %20, $s5 --> if_test50 +if_test50: move %19, $s4 --> if_test49 +if_test49: move %18, $s3 --> if_test48 +if_test48: move %17, $s2 --> if_test47 +if_test47: move %16, $s1 --> if_test46 +if_test46: move %15, $s0 --> if_test45 +if_test45: move %0, $a0 --> if_test44 +if_test44: move %1, $a1 --> if_test43 +if_test43: move %2, $a2 --> if_test42 +if_test42: move %3, $a3 --> if_test41 +if_test41: li %4, 0 --> if_test40 +if_test40: li %5, 0 --> if_test39 +if_test39: li %6, 0 --> if_test38 +if_test38: li %7, 0 --> if_test37 +if_test37: li %8, 0 --> if_test36 +if_test36: li %10, 0 --> if_test35 +if_test35: li %11, 0 --> if_test34 +if_test34: li %12, 0 --> if_test33 +if_test33: li %13, 0 --> if_test32 +if_test32: li %14, 0 --> if_test31 +if_test31: emit c61 --> if_test30 +if_test30: li %4, 0 --> if_test29 +if_test29: emit c60 --> if_test28 +if_test28: li %5, 0 --> if_test27 +if_test27: emit c59 --> if_test26 +if_test26: li %6, 0 --> if_test25 +if_test25: emit c58 --> if_test24 +if_test24: li %7, 0 --> if_test23 +if_test23: emit c57 --> if_test22 +if_test22: li %8, 0 --> if_test21 +if_test21: emit c56 --> if_test20 +if_test20: li %14, 0 --> if_test19 +if_test19: slt %13, %0, %1 --> if_test18 +if_test18: beq %13, %14 --> if_test15, if_test17 +if_test17: emit c55 --> if_test16 +if_test16: addu %4, %0, %1 --> if_test15 +if_test15: emit c54 --> if_test14 +if_test14: li %12, 0 --> if_test13 +if_test13: slt %11, %2, %3 --> if_test12 +if_test12: beq %11, %12 --> if_test7, if_test11 +if_test11: emit c53 --> if_test10 +if_test10: addu %8, %2, %3 --> if_test9 +if_test9 : emit c52 --> if_test8 +if_test8 : addu %7, %8, %2 --> if_test7 +if_test7 : emit c51 --> if_test6 +if_test6 : li %10, 1 --> if_test5 +if_test5 : addu %5, %4, %10 --> if_test4 +if_test4 : emit c50 --> if_test3 +if_test3 : addu %6, %4, %7 --> if_test2 +if_test2 : emit c49 --> if_test1 +if_test1 : move %9, %4 --> if_test0 +if_test0 : j --> if_test67 +if_test67: move $v0, %9 --> if_test66 +if_test66: move $ra, %23 --> if_test65 +if_test65: move $s7, %22 --> if_test64 +if_test64: move $s6, %21 --> if_test63 +if_test63: move $s5, %20 --> if_test62 +if_test62: move $s4, %19 --> if_test61 +if_test61: move $s3, %18 --> if_test60 +if_test60: move $s2, %17 --> if_test59 +if_test59: move $s1, %16 --> if_test58 +if_test58: move $s0, %15 --> if_test57 +if_test57: delframe --> if_test56 +if_test56: jr $ra (xmits $v0) + +procedure if_sansElse(2) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14 +entry if_sansElse25 +if_sansElse25: newframe --> if_sansElse24 +if_sansElse24: move %14, $ra --> if_sansElse23 +if_sansElse23: move %13, $s7 --> if_sansElse22 +if_sansElse22: move %12, $s6 --> if_sansElse21 +if_sansElse21: move %11, $s5 --> if_sansElse20 +if_sansElse20: move %10, $s4 --> if_sansElse19 +if_sansElse19: move %9, $s3 --> if_sansElse18 +if_sansElse18: move %8, $s2 --> if_sansElse17 +if_sansElse17: move %7, $s1 --> if_sansElse16 +if_sansElse16: move %6, $s0 --> if_sansElse15 +if_sansElse15: move %0, $a0 --> if_sansElse14 +if_sansElse14: move %1, $a1 --> if_sansElse13 +if_sansElse13: li %2, 0 --> if_sansElse12 +if_sansElse12: li %4, 0 --> if_sansElse11 +if_sansElse11: li %5, 0 --> if_sansElse10 +if_sansElse10: emit c48 --> if_sansElse9 +if_sansElse9 : li %2, 0 --> if_sansElse8 +if_sansElse8 : emit c47 --> if_sansElse7 +if_sansElse7 : li %5, 0 --> if_sansElse6 +if_sansElse6 : slt %4, %0, %1 --> if_sansElse5 +if_sansElse5 : beq %4, %5 --> if_sansElse2, if_sansElse4 +if_sansElse4 : emit c46 --> if_sansElse3 +if_sansElse3 : move %2, %0 --> if_sansElse2 +if_sansElse2 : emit c45 --> if_sansElse1 +if_sansElse1 : move %3, %2 --> if_sansElse0 +if_sansElse0 : j --> if_sansElse37 +if_sansElse37: move $v0, %3 --> if_sansElse36 +if_sansElse36: move $ra, %14 --> if_sansElse35 +if_sansElse35: move $s7, %13 --> if_sansElse34 +if_sansElse34: move $s6, %12 --> if_sansElse33 +if_sansElse33: move $s5, %11 --> if_sansElse32 +if_sansElse32: move $s4, %10 --> if_sansElse31 +if_sansElse31: move $s3, %9 --> if_sansElse30 +if_sansElse30: move $s2, %8 --> if_sansElse29 +if_sansElse29: move $s1, %7 --> if_sansElse28 +if_sansElse28: move $s0, %6 --> if_sansElse27 +if_sansElse27: delframe --> if_sansElse26 +if_sansElse26: jr $ra (xmits $v0) + +procedure if_prog(2) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16 +entry if_prog30 +if_prog30: newframe --> if_prog29 +if_prog29: move %16, $ra --> if_prog28 +if_prog28: move %15, $s7 --> if_prog27 +if_prog27: move %14, $s6 --> if_prog26 +if_prog26: move %13, $s5 --> if_prog25 +if_prog25: move %12, $s4 --> if_prog24 +if_prog24: move %11, $s3 --> if_prog23 +if_prog23: move %10, $s2 --> if_prog22 +if_prog22: move %9, $s1 --> if_prog21 +if_prog21: move %8, $s0 --> if_prog20 +if_prog20: move %0, $a0 --> if_prog19 +if_prog19: move %1, $a1 --> if_prog18 +if_prog18: li %2, 0 --> if_prog17 +if_prog17: li %3, 0 --> if_prog16 +if_prog16: li %5, 0 --> if_prog15 +if_prog15: li %6, 0 --> if_prog14 +if_prog14: li %7, 0 --> if_prog13 +if_prog13: emit c44 --> if_prog12 +if_prog12: addu %2, %1, %0 --> if_prog11 +if_prog11: emit c43 --> if_prog10 +if_prog10: li %6, 0 --> if_prog9 +if_prog9 : li %7, 0 --> if_prog8 +if_prog8 : slt %5, %2, %7 --> if_prog7 +if_prog7 : beq %5, %6 --> if_prog4, if_prog6 +if_prog6 : emit c42 --> if_prog5 +if_prog5 : li %3, 2 --> if_prog2 +if_prog2 : emit c40 --> if_prog1 +if_prog1 : move %4, %3 --> if_prog0 +if_prog0 : j --> if_prog42 +if_prog42: move $v0, %4 --> if_prog41 +if_prog41: move $ra, %16 --> if_prog40 +if_prog40: move $s7, %15 --> if_prog39 +if_prog39: move $s6, %14 --> if_prog38 +if_prog38: move $s5, %13 --> if_prog37 +if_prog37: move $s4, %12 --> if_prog36 +if_prog36: move $s3, %11 --> if_prog35 +if_prog35: move $s2, %10 --> if_prog34 +if_prog34: move $s1, %9 --> if_prog33 +if_prog33: move $s0, %8 --> if_prog32 +if_prog32: delframe --> if_prog31 +if_prog31: jr $ra (xmits $v0) +if_prog4 : emit c41 --> if_prog3 +if_prog3 : li %3, 3 --> if_prog2 + +procedure if_min(2) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14 +entry if_min25 +if_min25: newframe --> if_min24 +if_min24: move %14, $ra --> if_min23 +if_min23: move %13, $s7 --> if_min22 +if_min22: move %12, $s6 --> if_min21 +if_min21: move %11, $s5 --> if_min20 +if_min20: move %10, $s4 --> if_min19 +if_min19: move %9, $s3 --> if_min18 +if_min18: move %8, $s2 --> if_min17 +if_min17: move %7, $s1 --> if_min16 +if_min16: move %6, $s0 --> if_min15 +if_min15: move %0, $a0 --> if_min14 +if_min14: move %1, $a1 --> if_min13 +if_min13: li %2, 0 --> if_min12 +if_min12: li %4, 0 --> if_min11 +if_min11: li %5, 0 --> if_min10 +if_min10: emit c39 --> if_min9 +if_min9 : li %5, 0 --> if_min8 +if_min8 : sgt %4, %0, %1 --> if_min7 +if_min7 : beq %4, %5 --> if_min4, if_min6 +if_min6 : emit c38 --> if_min5 +if_min5 : move %2, %1 --> if_min2 +if_min2 : emit c36 --> if_min1 +if_min1 : move %3, %2 --> if_min0 +if_min0 : j --> if_min37 +if_min37: move $v0, %3 --> if_min36 +if_min36: move $ra, %14 --> if_min35 +if_min35: move $s7, %13 --> if_min34 +if_min34: move $s6, %12 --> if_min33 +if_min33: move $s5, %11 --> if_min32 +if_min32: move $s4, %10 --> if_min31 +if_min31: move $s3, %9 --> if_min30 +if_min30: move $s2, %8 --> if_min29 +if_min29: move $s1, %7 --> if_min28 +if_min28: move $s0, %6 --> if_min27 +if_min27: delframe --> if_min26 +if_min26: jr $ra (xmits $v0) +if_min4 : emit c37 --> if_min3 +if_min3 : move %2, %0 --> if_min2 + +procedure if_jian(9) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41 +entry if_jian92 +if_jian92 : newframe --> if_jian91 +if_jian91 : move %41, $ra --> if_jian90 +if_jian90 : move %40, $s7 --> if_jian89 +if_jian89 : move %39, $s6 --> if_jian88 +if_jian88 : move %38, $s5 --> if_jian87 +if_jian87 : move %37, $s4 --> if_jian86 +if_jian86 : move %36, $s3 --> if_jian85 +if_jian85 : move %35, $s2 --> if_jian84 +if_jian84 : move %34, $s1 --> if_jian83 +if_jian83 : move %33, $s0 --> if_jian82 +if_jian82 : move %0, $a0 --> if_jian81 +if_jian81 : move %1, $a1 --> if_jian80 +if_jian80 : move %2, $a2 --> if_jian79 +if_jian79 : move %3, $a3 --> if_jian78 +if_jian78 : gets %4, in(16) --> if_jian77 +if_jian77 : gets %5, in(12) --> if_jian76 +if_jian76 : gets %6, in(8) --> if_jian75 +if_jian75 : gets %7, in(4) --> if_jian74 +if_jian74 : gets %8, in(0) --> if_jian73 +if_jian73 : li %9, 0 --> if_jian72 +if_jian72 : li %10, 0 --> if_jian71 +if_jian71 : li %11, 0 --> if_jian70 +if_jian70 : li %12, 0 --> if_jian69 +if_jian69 : li %13, 0 --> if_jian68 +if_jian68 : li %14, 0 --> if_jian67 +if_jian67 : li %15, 0 --> if_jian66 +if_jian66 : li %17, 0 --> if_jian65 +if_jian65 : li %18, 0 --> if_jian64 +if_jian64 : li %19, 0 --> if_jian63 +if_jian63 : li %20, 0 --> if_jian62 +if_jian62 : li %21, 0 --> if_jian61 +if_jian61 : li %22, 0 --> if_jian60 +if_jian60 : li %23, 0 --> if_jian59 +if_jian59 : li %24, 0 --> if_jian58 +if_jian58 : li %25, 0 --> if_jian57 +if_jian57 : li %26, 0 --> if_jian56 +if_jian56 : li %27, 0 --> if_jian55 +if_jian55 : li %28, 0 --> if_jian54 +if_jian54 : li %29, 0 --> if_jian53 +if_jian53 : li %30, 0 --> if_jian52 +if_jian52 : li %31, 0 --> if_jian51 +if_jian51 : li %32, 0 --> if_jian48 +if_jian48 : emit c15 --> if_jian47 +if_jian47 : addu %30, %0, %1 --> if_jian46 +if_jian46 : slt %11, %30, %2 --> if_jian45 +if_jian45 : emit c14 --> if_jian44 +if_jian44 : addu %12, %3, %4 --> if_jian43 +if_jian43 : emit c13 --> if_jian42 +if_jian42 : li %29, 1 --> if_jian41 +if_jian41 : addu %13, %2, %29 --> if_jian40 +if_jian40 : emit c12 --> if_jian39 +if_jian39 : li %27, 0 --> if_jian38 +if_jian38 : li %28, 1 --> if_jian37 +if_jian37 : seq %26, %8, %28 --> if_jian36 +if_jian36 : beq %26, %27 --> if_jian8, if_jian35 +if_jian35 : emit c11 --> if_jian34 +if_jian34 : li %25, 0 --> if_jian33 +if_jian33 : beq %11, %25 --> if_jian30, if_jian32 +if_jian32 : emit c10 --> if_jian31 +if_jian31 : addu %9, %13, %3 --> if_jian24 +if_jian24 : emit c7 --> if_jian23 +if_jian23 : li %18, 0 --> if_jian22 +if_jian22 : li %22, 0 --> if_jian21 +if_jian21 : emit c6 --> if_jian20 +if_jian20 : li %31, 0 --> if_jian49 +if_jian49 : seq %21, %11, %31 --> if_jian19 +if_jian19 : beq %21, %22 --> if_jian12, if_jian18 +if_jian18 : li %20, 0 --> if_jian17 +if_jian17 : emit c5 --> if_jian16 +if_jian16 : move %19, %7 --> if_jian15 +if_jian15 : beq %19, %20 --> if_jian13, if_jian14 +if_jian14 : li %17, 1 --> if_jian11 +if_jian11 : beq %17, %18 --> if_jian2, if_jian10 +if_jian10 : emit c4 --> if_jian9 +if_jian9 : addu %10, %12, %4 --> if_jian2 +if_jian2 : emit c0 --> if_jian1 +if_jian1 : move %16, %9 --> if_jian0 +if_jian0 : j --> if_jian104 +if_jian104: move $v0, %16 --> if_jian103 +if_jian103: move $ra, %41 --> if_jian102 +if_jian102: move $s7, %40 --> if_jian101 +if_jian101: move $s6, %39 --> if_jian100 +if_jian100: move $s5, %38 --> if_jian99 +if_jian99 : move $s4, %37 --> if_jian98 +if_jian98 : move $s3, %36 --> if_jian97 +if_jian97 : move $s2, %35 --> if_jian96 +if_jian96 : move $s1, %34 --> if_jian95 +if_jian95 : move $s0, %33 --> if_jian94 +if_jian94 : delframe --> if_jian93 +if_jian93 : jr $ra (xmits $v0) +if_jian13 : li %17, 0 --> if_jian11 +if_jian12 : li %17, 0 --> if_jian11 +if_jian30 : emit c9 --> if_jian29 +if_jian29 : li %24, 0 --> if_jian28 +if_jian28 : li %32, 0 --> if_jian50 +if_jian50 : seq %23, %7, %32 --> if_jian27 +if_jian27 : beq %23, %24 --> if_jian24, if_jian26 +if_jian26 : emit c8 --> if_jian25 +if_jian25 : addu %9, %12, %3 --> if_jian24 +if_jian8 : emit c3 --> if_jian7 +if_jian7 : addu %14, %13, %4 --> if_jian6 +if_jian6 : emit c2 --> if_jian5 +if_jian5 : addu %15, %14, %5 --> if_jian4 +if_jian4 : emit c1 --> if_jian3 +if_jian3 : addu %9, %15, %6 --> if_jian2 + +procedure if_imbriq2(3) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17 +entry if_imbriq234 +if_imbriq234: newframe --> if_imbriq233 +if_imbriq233: move %17, $ra --> if_imbriq232 +if_imbriq232: move %16, $s7 --> if_imbriq231 +if_imbriq231: move %15, $s6 --> if_imbriq230 +if_imbriq230: move %14, $s5 --> if_imbriq229 +if_imbriq229: move %13, $s4 --> if_imbriq228 +if_imbriq228: move %12, $s3 --> if_imbriq227 +if_imbriq227: move %11, $s2 --> if_imbriq226 +if_imbriq226: move %10, $s1 --> if_imbriq225 +if_imbriq225: move %9, $s0 --> if_imbriq224 +if_imbriq224: move %0, $a0 --> if_imbriq223 +if_imbriq223: move %1, $a1 --> if_imbriq222 +if_imbriq222: move %2, $a2 --> if_imbriq221 +if_imbriq221: li %3, 0 --> if_imbriq220 +if_imbriq220: li %5, 0 --> if_imbriq219 +if_imbriq219: li %6, 0 --> if_imbriq218 +if_imbriq218: li %7, 0 --> if_imbriq217 +if_imbriq217: li %8, 0 --> if_imbriq216 +if_imbriq216: emit c35 --> if_imbriq215 +if_imbriq215: li %8, 0 --> if_imbriq214 +if_imbriq214: slt %7, %0, %1 --> if_imbriq213 +if_imbriq213: beq %7, %8 --> if_imbriq24, if_imbriq212 +if_imbriq212: emit c34 --> if_imbriq211 +if_imbriq211: li %6, 0 --> if_imbriq210 +if_imbriq210: slt %5, %1, %2 --> if_imbriq29 +if_imbriq29 : beq %5, %6 --> if_imbriq26, if_imbriq28 +if_imbriq28 : emit c33 --> if_imbriq27 +if_imbriq27 : move %3, %1 --> if_imbriq22 +if_imbriq22 : emit c30 --> if_imbriq21 +if_imbriq21 : move %4, %3 --> if_imbriq20 +if_imbriq20 : j --> if_imbriq246 +if_imbriq246: move $v0, %4 --> if_imbriq245 +if_imbriq245: move $ra, %17 --> if_imbriq244 +if_imbriq244: move $s7, %16 --> if_imbriq243 +if_imbriq243: move $s6, %15 --> if_imbriq242 +if_imbriq242: move $s5, %14 --> if_imbriq241 +if_imbriq241: move $s4, %13 --> if_imbriq240 +if_imbriq240: move $s3, %12 --> if_imbriq239 +if_imbriq239: move $s2, %11 --> if_imbriq238 +if_imbriq238: move $s1, %10 --> if_imbriq237 +if_imbriq237: move $s0, %9 --> if_imbriq236 +if_imbriq236: delframe --> if_imbriq235 +if_imbriq235: jr $ra (xmits $v0) +if_imbriq26 : emit c32 --> if_imbriq25 +if_imbriq25 : li %3, 47 --> if_imbriq22 +if_imbriq24 : emit c31 --> if_imbriq23 +if_imbriq23 : move %3, %0 --> if_imbriq22 + +procedure if_imbriq1(3) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17 +entry if_imbriq134 +if_imbriq134: newframe --> if_imbriq133 +if_imbriq133: move %17, $ra --> if_imbriq132 +if_imbriq132: move %16, $s7 --> if_imbriq131 +if_imbriq131: move %15, $s6 --> if_imbriq130 +if_imbriq130: move %14, $s5 --> if_imbriq129 +if_imbriq129: move %13, $s4 --> if_imbriq128 +if_imbriq128: move %12, $s3 --> if_imbriq127 +if_imbriq127: move %11, $s2 --> if_imbriq126 +if_imbriq126: move %10, $s1 --> if_imbriq125 +if_imbriq125: move %9, $s0 --> if_imbriq124 +if_imbriq124: move %0, $a0 --> if_imbriq123 +if_imbriq123: move %1, $a1 --> if_imbriq122 +if_imbriq122: move %2, $a2 --> if_imbriq121 +if_imbriq121: li %3, 0 --> if_imbriq120 +if_imbriq120: li %5, 0 --> if_imbriq119 +if_imbriq119: li %6, 0 --> if_imbriq118 +if_imbriq118: li %7, 0 --> if_imbriq117 +if_imbriq117: li %8, 0 --> if_imbriq116 +if_imbriq116: emit c29 --> if_imbriq115 +if_imbriq115: li %8, 0 --> if_imbriq114 +if_imbriq114: slt %7, %0, %1 --> if_imbriq113 +if_imbriq113: beq %7, %8 --> if_imbriq14, if_imbriq112 +if_imbriq112: emit c28 --> if_imbriq111 +if_imbriq111: li %6, 0 --> if_imbriq110 +if_imbriq110: slt %5, %1, %2 --> if_imbriq19 +if_imbriq19 : beq %5, %6 --> if_imbriq16, if_imbriq18 +if_imbriq18 : emit c27 --> if_imbriq17 +if_imbriq17 : move %3, %1 --> if_imbriq12 +if_imbriq12 : emit c24 --> if_imbriq11 +if_imbriq11 : move %4, %3 --> if_imbriq10 +if_imbriq10 : j --> if_imbriq146 +if_imbriq146: move $v0, %4 --> if_imbriq145 +if_imbriq145: move $ra, %17 --> if_imbriq144 +if_imbriq144: move $s7, %16 --> if_imbriq143 +if_imbriq143: move $s6, %15 --> if_imbriq142 +if_imbriq142: move $s5, %14 --> if_imbriq141 +if_imbriq141: move $s4, %13 --> if_imbriq140 +if_imbriq140: move $s3, %12 --> if_imbriq139 +if_imbriq139: move $s2, %11 --> if_imbriq138 +if_imbriq138: move $s1, %10 --> if_imbriq137 +if_imbriq137: move $s0, %9 --> if_imbriq136 +if_imbriq136: delframe --> if_imbriq135 +if_imbriq135: jr $ra (xmits $v0) +if_imbriq16 : emit c26 --> if_imbriq15 +if_imbriq15 : move %3, %2 --> if_imbriq12 +if_imbriq14 : emit c25 --> if_imbriq13 +if_imbriq13 : move %3, %0 --> if_imbriq12 + +procedure if_exSimple(2) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18 +entry if_exSimple39 +if_exSimple39: newframe --> if_exSimple38 +if_exSimple38: move %18, $ra --> if_exSimple37 +if_exSimple37: move %17, $s7 --> if_exSimple36 +if_exSimple36: move %16, $s6 --> if_exSimple35 +if_exSimple35: move %15, $s5 --> if_exSimple34 +if_exSimple34: move %14, $s4 --> if_exSimple33 +if_exSimple33: move %13, $s3 --> if_exSimple32 +if_exSimple32: move %12, $s2 --> if_exSimple31 +if_exSimple31: move %11, $s1 --> if_exSimple30 +if_exSimple30: move %10, $s0 --> if_exSimple29 +if_exSimple29: move %0, $a0 --> if_exSimple28 +if_exSimple28: move %1, $a1 --> if_exSimple27 +if_exSimple27: li %2, 0 --> if_exSimple26 +if_exSimple26: li %3, 0 --> if_exSimple25 +if_exSimple25: li %4, 0 --> if_exSimple24 +if_exSimple24: li %6, 0 --> if_exSimple23 +if_exSimple23: li %7, 0 --> if_exSimple22 +if_exSimple22: li %8, 0 --> if_exSimple21 +if_exSimple21: li %9, 0 --> if_exSimple20 +if_exSimple20: emit c23 --> if_exSimple19 +if_exSimple19: li %9, 0 --> if_exSimple18 +if_exSimple18: slt %8, %0, %1 --> if_exSimple17 +if_exSimple17: beq %8, %9 --> if_exSimple9, if_exSimple16 +if_exSimple16: emit c22 --> if_exSimple15 +if_exSimple15: addu %3, %0, %1 --> if_exSimple14 +if_exSimple14: emit c21 --> if_exSimple13 +if_exSimple13: li %7, 2 --> if_exSimple12 +if_exSimple12: mul %3, %7, %3 --> if_exSimple11 +if_exSimple11: emit c20 --> if_exSimple10 +if_exSimple10: move %2, %3 --> if_exSimple2 +if_exSimple2 : emit c16 --> if_exSimple1 +if_exSimple1 : move %5, %2 --> if_exSimple0 +if_exSimple0 : j --> if_exSimple51 +if_exSimple51: move $v0, %5 --> if_exSimple50 +if_exSimple50: move $ra, %18 --> if_exSimple49 +if_exSimple49: move $s7, %17 --> if_exSimple48 +if_exSimple48: move $s6, %16 --> if_exSimple47 +if_exSimple47: move $s5, %15 --> if_exSimple46 +if_exSimple46: move $s4, %14 --> if_exSimple45 +if_exSimple45: move $s3, %13 --> if_exSimple44 +if_exSimple44: move $s2, %12 --> if_exSimple43 +if_exSimple43: move $s1, %11 --> if_exSimple42 +if_exSimple42: move $s0, %10 --> if_exSimple41 +if_exSimple41: delframe --> if_exSimple40 +if_exSimple40: jr $ra (xmits $v0) +if_exSimple9 : emit c19 --> if_exSimple8 +if_exSimple8 : li %6, 2 --> if_exSimple7 +if_exSimple7 : mul %4, %6, %1 --> if_exSimple6 +if_exSimple6 : emit c18 --> if_exSimple5 +if_exSimple5 : addu %4, %4, %0 --> if_exSimple4 +if_exSimple4 : emit c17 --> if_exSimple3 +if_exSimple3 : addu %2, %4, %1 --> if_exSimple2 + +procedure _main(0) +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40 +entry main91 +main91 : newframe --> main90 +main90 : move %40, $ra --> main89 +main89 : move %39, $s7 --> main88 +main88 : move %38, $s6 --> main87 +main87 : move %37, $s5 --> main86 +main86 : move %36, $s4 --> main85 +main85 : move %35, $s3 --> main84 +main84 : move %34, $s2 --> main83 +main83 : move %33, $s1 --> main82 +main82 : move %32, $s0 --> main81 +main81 : li %0, 0 --> main80 +main80 : li %2, 0 --> main79 +main79 : li %3, 0 --> main78 +main78 : li %4, 0 --> main77 +main77 : li %5, 0 --> main76 +main76 : li %6, 0 --> main75 +main75 : li %7, 0 --> main74 +main74 : li %8, 0 --> main73 +main73 : li %9, 0 --> main72 +main72 : li %10, 0 --> main71 +main71 : li %11, 0 --> main70 +main70 : li %12, 0 --> main69 +main69 : li %13, 0 --> main68 +main68 : li %14, 0 --> main67 +main67 : li %15, 0 --> main66 +main66 : li %16, 0 --> main65 +main65 : li %17, 0 --> main64 +main64 : li %18, 0 --> main63 +main63 : li %19, 0 --> main62 +main62 : li %20, 0 --> main61 +main61 : li %21, 0 --> main60 +main60 : li %22, 0 --> main59 +main59 : li %23, 0 --> main58 +main58 : li %24, 0 --> main57 +main57 : li %25, 0 --> main56 +main56 : li %26, 0 --> main55 +main55 : li %27, 0 --> main54 +main54 : li %28, 0 --> main53 +main53 : li %29, 0 --> main52 +main52 : li %30, 0 --> main51 +main51 : li %31, 0 --> main50 +main50 : emit c84 --> main49 +main49 : li %23, 1 --> main48 +main48 : li %24, 2 --> main47 +main47 : li %25, 3 --> main46 +main46 : li %26, 4 --> main45 +main45 : li %27, 5 --> main44 +main44 : li %28, 6 --> main43 +main43 : li %29, 7 --> main42 +main42 : li %30, 8 --> main41 +main41 : li %31, 9 --> main40 +main40 : j --> main145 +main145: move $a0, %23 --> main144 +main144: move $a1, %24 --> main143 +main143: move $a2, %25 --> main142 +main142: move $a3, %26 --> main141 +main141: sets out(16), %27 --> main140 +main140: sets out(12), %28 --> main139 +main139: sets out(8), %29 --> main138 +main138: sets out(4), %30 --> main137 +main137: sets out(0), %31 --> main136 +main136: call if_jian(9) --> main135 +main135: move %0, $v0 --> main39 +main39 : emit c83 --> main38 +main38 : li %21, 1 --> main37 +main37 : li %22, 2 --> main36 +main36 : j --> main134 +main134: move $a0, %21 --> main133 +main133: move $a1, %22 --> main132 +main132: call if_exSimple(2) --> main131 +main131: move %0, $v0 --> main35 +main35 : emit c82 --> main34 +main34 : li %18, 1 --> main33 +main33 : li %19, 2 --> main32 +main32 : li %20, 3 --> main31 +main31 : j --> main130 +main130: move $a0, %18 --> main129 +main129: move $a1, %19 --> main128 +main128: move $a2, %20 --> main127 +main127: call if_imbriq1(3) --> main126 +main126: move %0, $v0 --> main30 +main30 : emit c81 --> main29 +main29 : li %15, 1 --> main28 +main28 : li %16, 2 --> main27 +main27 : li %17, 3 --> main26 +main26 : j --> main120 +main120: move $a0, %15 --> main119 +main119: move $a1, %16 --> main118 +main118: move $a2, %17 --> main117 +main117: call if_imbriq2(3) --> main116 +main116: move %0, $v0 --> main25 +main25 : emit c80 --> main24 +main24 : li %13, 1 --> main23 +main23 : li %14, 2 --> main22 +main22 : j --> main115 +main115: move $a0, %13 --> main114 +main114: move $a1, %14 --> main113 +main113: call if_min(2) --> main112 +main112: move %0, $v0 --> main21 +main21 : emit c79 --> main20 +main20 : li %11, 1 --> main19 +main19 : li %12, 2 --> main18 +main18 : j --> main111 +main111: move $a0, %11 --> main110 +main110: move $a1, %12 --> main109 +main109: call if_prog(2) --> main108 +main108: move %0, $v0 --> main17 +main17 : emit c78 --> main16 +main16 : li %9, 1 --> main15 +main15 : li %10, 2 --> main14 +main14 : j --> main107 +main107: move $a0, %9 --> main106 +main106: move $a1, %10 --> main105 +main105: call if_sansElse(2) --> main104 +main104: move %0, $v0 --> main13 +main13 : emit c77 --> main12 +main12 : li %5, 1 --> main11 +main11 : li %6, 2 --> main10 +main10 : li %7, 3 --> main9 +main9 : li %8, 4 --> main8 +main8 : j --> main151 +main151: move $a0, %5 --> main150 +main150: move $a1, %6 --> main149 +main149: move $a2, %7 --> main148 +main148: move $a3, %8 --> main147 +main147: call if_test(4) --> main146 +main146: move %0, $v0 --> main7 +main7 : emit c76 --> main6 +main6 : li %2, 1 --> main5 +main5 : li %3, 2 --> main4 +main4 : li %4, 3 --> main3 +main3 : j --> main125 +main125: move $a0, %2 --> main124 +main124: move $a1, %3 --> main123 +main123: move $a2, %4 --> main122 +main122: call if_ual(3) --> main121 +main121: move %0, $v0 --> main2 +main2 : emit c75 --> main1 +main1 : move %1, %0 --> main0 +main0 : j --> main103 +main103: move $v0, %1 --> main102 +main102: move $ra, %40 --> main101 +main101: move $s7, %39 --> main100 +main100: move $s6, %38 --> main99 +main99 : move $s5, %37 --> main98 +main98 : move $s4, %36 --> main97 +main97 : move $s3, %35 --> main96 +main96 : move $s2, %34 --> main95 +main95 : move $s1, %33 --> main94 +main94 : move $s0, %32 --> main93 +main93 : delframe --> main92 +main92 : jr $ra (xmits $v0) + diff --git a/tests/clight/ifthenelse.LIN.expected b/tests/clight/ifthenelse.LIN.expected new file mode 100644 index 0000000..003b86d --- /dev/null +++ b/tests/clight/ifthenelse.LIN.expected @@ -0,0 +1,354 @@ +program + +globals 0 + +procedure if_ual(3) +var 0 +if_ual84: +newframe +li $v0, 0 +c74: +li $a3, 0 +seq $a3, $a0, $a3 +beq $a3, $zero, if_ual43 +c73: +addu $v0, $a1, $a2 +if_ual2: +c62: +delframe +jr $ra +if_ual43: +c72: +li $a3, 1 +seq $a3, $a0, $a3 +beq $a3, $zero, if_ual36 +c71: +subu $v0, $a1, $a2 +j if_ual2 +if_ual36: +c70: +li $a3, 2 +seq $a3, $a0, $a3 +beq $a3, $zero, if_ual19 +c69: +c68: +beq $a1, $zero, if_ual20 +c67: +beq $a2, $zero, if_ual21 +li $v0, 1 +j if_ual2 +if_ual21: +li $v0, 0 +j if_ual2 +if_ual20: +li $v0, 0 +j if_ual2 +if_ual19: +c66: +li $a3, 3 +seq $a0, $a0, $a3 +beq $a0, $zero, if_ual2 +c65: +c64: +beq $a1, $zero, if_ual7 +li $v0, 1 +j if_ual2 +if_ual7: +c63: +beq $a2, $zero, if_ual3 +li $v0, 1 +j if_ual2 +if_ual3: +li $v0, 0 +j if_ual2 + +procedure if_test(4) +var 0 +if_test55: +newframe +c61: +li $v0, 0 +c60: +c59: +c58: +c57: +c56: +slt $t0, $a0, $a1 +beq $t0, $zero, if_test15 +c55: +addu $v0, $a0, $a1 +if_test15: +c54: +slt $a0, $a2, $a3 +beq $a0, $zero, if_test7 +c53: +c52: +if_test7: +c51: +c50: +c49: +delframe +jr $ra + +procedure if_sansElse(2) +var 0 +if_sansElse25: +newframe +c48: +li $v0, 0 +c47: +slt $a1, $a0, $a1 +beq $a1, $zero, if_sansElse2 +c46: +move $v0, $a0 +if_sansElse2: +c45: +delframe +jr $ra + +procedure if_prog(2) +var 0 +if_prog30: +newframe +c44: +addu $v0, $a1, $a0 +c43: +li $a0, 0 +slt $v0, $v0, $zero +beq $v0, $a0, if_prog4 +c42: +li $v0, 2 +if_prog2: +c40: +delframe +jr $ra +if_prog4: +c41: +li $v0, 3 +j if_prog2 + +procedure if_min(2) +var 0 +if_min25: +newframe +move $v0, $a1 +c39: +sgt $a1, $a0, $v0 +beq $a1, $zero, if_min4 +c38: +if_min2: +c36: +delframe +jr $ra +if_min4: +c37: +move $v0, $a0 +j if_min2 + +procedure if_jian(9) +var 0 +if_jian92: +newframe +gets $t4, in(16) +gets $t3, in(12) +gets $t2, in(8) +gets $t0, in(4) +gets $t1, in(0) +li $v0, 0 +c15: +addu $a0, $a0, $a1 +slt $t5, $a0, $a2 +c14: +addu $a1, $a3, $t4 +c13: +li $a0, 1 +addu $a2, $a2, $a0 +c12: +li $a0, 1 +seq $a0, $t1, $a0 +beq $a0, $zero, if_jian8 +c11: +beq $t5, $zero, if_jian30 +c10: +addu $v0, $a2, $a3 +if_jian24: +c7: +li $a1, 0 +c6: +li $a0, 0 +seq $a0, $t5, $a0 +beq $a0, $a1, if_jian12 +li $a0, 0 +c5: +beq $t0, $a0, if_jian13 +li $a0, 1 +if_jian11: +beq $a0, $zero, if_jian2 +c4: +if_jian2: +c0: +delframe +jr $ra +if_jian13: +li $a0, 0 +j if_jian11 +if_jian12: +li $a0, 0 +j if_jian11 +if_jian30: +c9: +li $a0, 0 +seq $a0, $t0, $a0 +beq $a0, $zero, if_jian24 +c8: +addu $v0, $a1, $a3 +j if_jian24 +if_jian8: +c3: +addu $v0, $a2, $t4 +c2: +addu $v0, $v0, $t3 +c1: +addu $v0, $v0, $t2 +j if_jian2 + +procedure if_imbriq2(3) +var 0 +if_imbriq234: +newframe +move $v0, $a0 +c35: +slt $a0, $v0, $a1 +beq $a0, $zero, if_imbriq24 +c34: +slt $v0, $a1, $a2 +beq $v0, $zero, if_imbriq26 +c33: +move $v0, $a1 +if_imbriq22: +c30: +delframe +jr $ra +if_imbriq26: +c32: +li $v0, 47 +j if_imbriq22 +if_imbriq24: +c31: +j if_imbriq22 + +procedure if_imbriq1(3) +var 0 +if_imbriq134: +newframe +move $v0, $a2 +c29: +slt $a2, $a0, $a1 +beq $a2, $zero, if_imbriq14 +c28: +slt $a0, $a1, $v0 +beq $a0, $zero, if_imbriq16 +c27: +move $v0, $a1 +if_imbriq12: +c24: +delframe +jr $ra +if_imbriq16: +c26: +j if_imbriq12 +if_imbriq14: +c25: +move $v0, $a0 +j if_imbriq12 + +procedure if_exSimple(2) +var 0 +if_exSimple39: +newframe +c23: +slt $v0, $a0, $a1 +beq $v0, $zero, if_exSimple9 +c22: +addu $v0, $a0, $a1 +c21: +li $a0, 2 +mul $v0, $a0, $v0 +c20: +if_exSimple2: +c16: +delframe +jr $ra +if_exSimple9: +c19: +li $v0, 2 +mul $v0, $v0, $a1 +c18: +addu $v0, $v0, $a0 +c17: +addu $v0, $v0, $a1 +j if_exSimple2 + +procedure _main(0) +var 4 +main91: +newframe +sets local(0), $ra +c84: +li $a0, 1 +li $a1, 2 +li $a2, 3 +li $a3, 4 +li $t3, 5 +li $t2, 6 +li $t1, 7 +li $t0, 8 +li $v0, 9 +sets out(16), $t3 +sets out(12), $t2 +sets out(8), $t1 +sets out(4), $t0 +sets out(0), $v0 +call if_jian +c83: +li $a0, 1 +li $a1, 2 +call if_exSimple +c82: +li $a0, 1 +li $a1, 2 +li $a2, 3 +call if_imbriq1 +c81: +li $a0, 1 +li $a1, 2 +li $a2, 3 +call if_imbriq2 +c80: +li $a0, 1 +li $a1, 2 +call if_min +c79: +li $a0, 1 +li $a1, 2 +call if_prog +c78: +li $a0, 1 +li $a1, 2 +call if_sansElse +c77: +li $a0, 1 +li $a1, 2 +li $a2, 3 +li $a3, 4 +call if_test +c76: +li $a0, 1 +li $a1, 2 +li $a2, 3 +call if_ual +c75: +gets $ra, local(0) +delframe +jr $ra + diff --git a/tests/clight/ifthenelse.LTL.expected b/tests/clight/ifthenelse.LTL.expected new file mode 100644 index 0000000..19f10b9 --- /dev/null +++ b/tests/clight/ifthenelse.LTL.expected @@ -0,0 +1,731 @@ +program + +globals 0 + +procedure if_ual(3) +var 0 +entry if_ual84 +if_ual84: newframe --> if_ual83 +if_ual83: j --> if_ual82 +if_ual82: j --> if_ual81 +if_ual81: j --> if_ual80 +if_ual80: j --> if_ual79 +if_ual79: j --> if_ual78 +if_ual78: j --> if_ual77 +if_ual77: j --> if_ual76 +if_ual76: j --> if_ual75 +if_ual75: j --> if_ual74 +if_ual74: j --> if_ual73 +if_ual73: j --> if_ual72 +if_ual72: j --> if_ual71 +if_ual71: li $v0, 0 --> if_ual70 +if_ual70: j --> if_ual69 +if_ual69: j --> if_ual68 +if_ual68: j --> if_ual67 +if_ual67: j --> if_ual66 +if_ual66: j --> if_ual65 +if_ual65: j --> if_ual64 +if_ual64: j --> if_ual63 +if_ual63: j --> if_ual62 +if_ual62: j --> if_ual61 +if_ual61: j --> if_ual60 +if_ual60: j --> if_ual59 +if_ual59: j --> if_ual58 +if_ual58: j --> if_ual57 +if_ual57: j --> if_ual56 +if_ual56: j --> if_ual55 +if_ual55: j --> if_ual54 +if_ual54: j --> if_ual53 +if_ual53: j --> if_ual52 +if_ual52: j --> if_ual51 +if_ual51: j --> if_ual50 +if_ual50: emit c74 --> if_ual49 +if_ual49: j --> if_ual48 +if_ual48: li $a3, 0 --> if_ual47 +if_ual47: seq $a3, $a0, $a3 --> if_ual46 +if_ual46: beq $a3, $zero --> if_ual43, if_ual45 +if_ual45: emit c73 --> if_ual44 +if_ual44: addu $v0, $a1, $a2 --> if_ual2 +if_ual2 : emit c62 --> if_ual1 +if_ual1 : j --> if_ual0 +if_ual0 : j --> if_ual96 +if_ual96: j --> if_ual95 +if_ual95: j --> if_ual94 +if_ual94: j --> if_ual93 +if_ual93: j --> if_ual92 +if_ual92: j --> if_ual91 +if_ual91: j --> if_ual90 +if_ual90: j --> if_ual89 +if_ual89: j --> if_ual88 +if_ual88: j --> if_ual87 +if_ual87: j --> if_ual86 +if_ual86: delframe --> if_ual85 +if_ual85: jr $ra +if_ual43: emit c72 --> if_ual42 +if_ual42: j --> if_ual41 +if_ual41: li $a3, 1 --> if_ual40 +if_ual40: seq $a3, $a0, $a3 --> if_ual39 +if_ual39: beq $a3, $zero --> if_ual36, if_ual38 +if_ual38: emit c71 --> if_ual37 +if_ual37: subu $v0, $a1, $a2 --> if_ual2 +if_ual36: emit c70 --> if_ual35 +if_ual35: j --> if_ual34 +if_ual34: li $a3, 2 --> if_ual33 +if_ual33: seq $a3, $a0, $a3 --> if_ual32 +if_ual32: beq $a3, $zero --> if_ual19, if_ual31 +if_ual31: emit c69 --> if_ual30 +if_ual30: j --> if_ual29 +if_ual29: emit c68 --> if_ual28 +if_ual28: j --> if_ual27 +if_ual27: beq $a1, $zero --> if_ual20, if_ual26 +if_ual26: j --> if_ual25 +if_ual25: emit c67 --> if_ual24 +if_ual24: j --> if_ual23 +if_ual23: beq $a2, $zero --> if_ual21, if_ual22 +if_ual22: li $v0, 1 --> if_ual2 +if_ual21: li $v0, 0 --> if_ual2 +if_ual20: li $v0, 0 --> if_ual2 +if_ual19: emit c66 --> if_ual18 +if_ual18: j --> if_ual17 +if_ual17: li $a3, 3 --> if_ual16 +if_ual16: seq $a0, $a0, $a3 --> if_ual15 +if_ual15: beq $a0, $zero --> if_ual2, if_ual14 +if_ual14: emit c65 --> if_ual13 +if_ual13: j --> if_ual12 +if_ual12: emit c64 --> if_ual11 +if_ual11: j --> if_ual10 +if_ual10: beq $a1, $zero --> if_ual8, if_ual9 +if_ual9 : li $v0, 1 --> if_ual2 +if_ual8 : j --> if_ual7 +if_ual7 : emit c63 --> if_ual6 +if_ual6 : j --> if_ual5 +if_ual5 : beq $a2, $zero --> if_ual3, if_ual4 +if_ual4 : li $v0, 1 --> if_ual2 +if_ual3 : li $v0, 0 --> if_ual2 + +procedure if_test(4) +var 0 +entry if_test55 +if_test55: newframe --> if_test54 +if_test54: j --> if_test53 +if_test53: j --> if_test52 +if_test52: j --> if_test51 +if_test51: j --> if_test50 +if_test50: j --> if_test49 +if_test49: j --> if_test48 +if_test48: j --> if_test47 +if_test47: j --> if_test46 +if_test46: j --> if_test45 +if_test45: j --> if_test44 +if_test44: j --> if_test43 +if_test43: j --> if_test42 +if_test42: j --> if_test41 +if_test41: j --> if_test40 +if_test40: j --> if_test39 +if_test39: j --> if_test38 +if_test38: j --> if_test37 +if_test37: j --> if_test36 +if_test36: j --> if_test35 +if_test35: j --> if_test34 +if_test34: j --> if_test33 +if_test33: j --> if_test32 +if_test32: j --> if_test31 +if_test31: emit c61 --> if_test30 +if_test30: li $v0, 0 --> if_test29 +if_test29: emit c60 --> if_test28 +if_test28: j --> if_test27 +if_test27: emit c59 --> if_test26 +if_test26: j --> if_test25 +if_test25: emit c58 --> if_test24 +if_test24: j --> if_test23 +if_test23: emit c57 --> if_test22 +if_test22: j --> if_test21 +if_test21: emit c56 --> if_test20 +if_test20: j --> if_test19 +if_test19: slt $t0, $a0, $a1 --> if_test18 +if_test18: beq $t0, $zero --> if_test15, if_test17 +if_test17: emit c55 --> if_test16 +if_test16: addu $v0, $a0, $a1 --> if_test15 +if_test15: emit c54 --> if_test14 +if_test14: j --> if_test13 +if_test13: slt $a0, $a2, $a3 --> if_test12 +if_test12: beq $a0, $zero --> if_test7, if_test11 +if_test11: emit c53 --> if_test10 +if_test10: j --> if_test9 +if_test9 : emit c52 --> if_test8 +if_test8 : j --> if_test7 +if_test7 : emit c51 --> if_test6 +if_test6 : j --> if_test5 +if_test5 : j --> if_test4 +if_test4 : emit c50 --> if_test3 +if_test3 : j --> if_test2 +if_test2 : emit c49 --> if_test1 +if_test1 : j --> if_test0 +if_test0 : j --> if_test67 +if_test67: j --> if_test66 +if_test66: j --> if_test65 +if_test65: j --> if_test64 +if_test64: j --> if_test63 +if_test63: j --> if_test62 +if_test62: j --> if_test61 +if_test61: j --> if_test60 +if_test60: j --> if_test59 +if_test59: j --> if_test58 +if_test58: j --> if_test57 +if_test57: delframe --> if_test56 +if_test56: jr $ra + +procedure if_sansElse(2) +var 0 +entry if_sansElse25 +if_sansElse25: newframe --> if_sansElse24 +if_sansElse24: j --> if_sansElse23 +if_sansElse23: j --> if_sansElse22 +if_sansElse22: j --> if_sansElse21 +if_sansElse21: j --> if_sansElse20 +if_sansElse20: j --> if_sansElse19 +if_sansElse19: j --> if_sansElse18 +if_sansElse18: j --> if_sansElse17 +if_sansElse17: j --> if_sansElse16 +if_sansElse16: j --> if_sansElse15 +if_sansElse15: j --> if_sansElse14 +if_sansElse14: j --> if_sansElse13 +if_sansElse13: j --> if_sansElse12 +if_sansElse12: j --> if_sansElse11 +if_sansElse11: j --> if_sansElse10 +if_sansElse10: emit c48 --> if_sansElse9 +if_sansElse9 : li $v0, 0 --> if_sansElse8 +if_sansElse8 : emit c47 --> if_sansElse7 +if_sansElse7 : j --> if_sansElse6 +if_sansElse6 : slt $a1, $a0, $a1 --> if_sansElse5 +if_sansElse5 : beq $a1, $zero --> if_sansElse2, if_sansElse4 +if_sansElse4 : emit c46 --> if_sansElse3 +if_sansElse3 : move $v0, $a0 --> if_sansElse2 +if_sansElse2 : emit c45 --> if_sansElse1 +if_sansElse1 : j --> if_sansElse0 +if_sansElse0 : j --> if_sansElse37 +if_sansElse37: j --> if_sansElse36 +if_sansElse36: j --> if_sansElse35 +if_sansElse35: j --> if_sansElse34 +if_sansElse34: j --> if_sansElse33 +if_sansElse33: j --> if_sansElse32 +if_sansElse32: j --> if_sansElse31 +if_sansElse31: j --> if_sansElse30 +if_sansElse30: j --> if_sansElse29 +if_sansElse29: j --> if_sansElse28 +if_sansElse28: j --> if_sansElse27 +if_sansElse27: delframe --> if_sansElse26 +if_sansElse26: jr $ra + +procedure if_prog(2) +var 0 +entry if_prog30 +if_prog30: newframe --> if_prog29 +if_prog29: j --> if_prog28 +if_prog28: j --> if_prog27 +if_prog27: j --> if_prog26 +if_prog26: j --> if_prog25 +if_prog25: j --> if_prog24 +if_prog24: j --> if_prog23 +if_prog23: j --> if_prog22 +if_prog22: j --> if_prog21 +if_prog21: j --> if_prog20 +if_prog20: j --> if_prog19 +if_prog19: j --> if_prog18 +if_prog18: j --> if_prog17 +if_prog17: j --> if_prog16 +if_prog16: j --> if_prog15 +if_prog15: j --> if_prog14 +if_prog14: j --> if_prog13 +if_prog13: emit c44 --> if_prog12 +if_prog12: addu $v0, $a1, $a0 --> if_prog11 +if_prog11: emit c43 --> if_prog10 +if_prog10: li $a0, 0 --> if_prog9 +if_prog9 : j --> if_prog8 +if_prog8 : slt $v0, $v0, $zero --> if_prog7 +if_prog7 : beq $v0, $a0 --> if_prog4, if_prog6 +if_prog6 : emit c42 --> if_prog5 +if_prog5 : li $v0, 2 --> if_prog2 +if_prog2 : emit c40 --> if_prog1 +if_prog1 : j --> if_prog0 +if_prog0 : j --> if_prog42 +if_prog42: j --> if_prog41 +if_prog41: j --> if_prog40 +if_prog40: j --> if_prog39 +if_prog39: j --> if_prog38 +if_prog38: j --> if_prog37 +if_prog37: j --> if_prog36 +if_prog36: j --> if_prog35 +if_prog35: j --> if_prog34 +if_prog34: j --> if_prog33 +if_prog33: j --> if_prog32 +if_prog32: delframe --> if_prog31 +if_prog31: jr $ra +if_prog4 : emit c41 --> if_prog3 +if_prog3 : li $v0, 3 --> if_prog2 + +procedure if_min(2) +var 0 +entry if_min25 +if_min25: newframe --> if_min24 +if_min24: j --> if_min23 +if_min23: j --> if_min22 +if_min22: j --> if_min21 +if_min21: j --> if_min20 +if_min20: j --> if_min19 +if_min19: j --> if_min18 +if_min18: j --> if_min17 +if_min17: j --> if_min16 +if_min16: j --> if_min15 +if_min15: j --> if_min14 +if_min14: move $v0, $a1 --> if_min13 +if_min13: j --> if_min12 +if_min12: j --> if_min11 +if_min11: j --> if_min10 +if_min10: emit c39 --> if_min9 +if_min9 : j --> if_min8 +if_min8 : sgt $a1, $a0, $v0 --> if_min7 +if_min7 : beq $a1, $zero --> if_min4, if_min6 +if_min6 : emit c38 --> if_min5 +if_min5 : j --> if_min2 +if_min2 : emit c36 --> if_min1 +if_min1 : j --> if_min0 +if_min0 : j --> if_min37 +if_min37: j --> if_min36 +if_min36: j --> if_min35 +if_min35: j --> if_min34 +if_min34: j --> if_min33 +if_min33: j --> if_min32 +if_min32: j --> if_min31 +if_min31: j --> if_min30 +if_min30: j --> if_min29 +if_min29: j --> if_min28 +if_min28: j --> if_min27 +if_min27: delframe --> if_min26 +if_min26: jr $ra +if_min4 : emit c37 --> if_min3 +if_min3 : move $v0, $a0 --> if_min2 + +procedure if_jian(9) +var 0 +entry if_jian92 +if_jian92 : newframe --> if_jian91 +if_jian91 : j --> if_jian90 +if_jian90 : j --> if_jian89 +if_jian89 : j --> if_jian88 +if_jian88 : j --> if_jian87 +if_jian87 : j --> if_jian86 +if_jian86 : j --> if_jian85 +if_jian85 : j --> if_jian84 +if_jian84 : j --> if_jian83 +if_jian83 : j --> if_jian82 +if_jian82 : j --> if_jian81 +if_jian81 : j --> if_jian80 +if_jian80 : j --> if_jian79 +if_jian79 : j --> if_jian78 +if_jian78 : gets $t4, in(16) --> if_jian77 +if_jian77 : gets $t3, in(12) --> if_jian76 +if_jian76 : gets $t2, in(8) --> if_jian75 +if_jian75 : gets $t0, in(4) --> if_jian74 +if_jian74 : gets $t1, in(0) --> if_jian73 +if_jian73 : li $v0, 0 --> if_jian72 +if_jian72 : j --> if_jian71 +if_jian71 : j --> if_jian70 +if_jian70 : j --> if_jian69 +if_jian69 : j --> if_jian68 +if_jian68 : j --> if_jian67 +if_jian67 : j --> if_jian66 +if_jian66 : j --> if_jian65 +if_jian65 : j --> if_jian64 +if_jian64 : j --> if_jian63 +if_jian63 : j --> if_jian62 +if_jian62 : j --> if_jian61 +if_jian61 : j --> if_jian60 +if_jian60 : j --> if_jian59 +if_jian59 : j --> if_jian58 +if_jian58 : j --> if_jian57 +if_jian57 : j --> if_jian56 +if_jian56 : j --> if_jian55 +if_jian55 : j --> if_jian54 +if_jian54 : j --> if_jian53 +if_jian53 : j --> if_jian52 +if_jian52 : j --> if_jian51 +if_jian51 : j --> if_jian48 +if_jian48 : emit c15 --> if_jian47 +if_jian47 : addu $a0, $a0, $a1 --> if_jian46 +if_jian46 : slt $t5, $a0, $a2 --> if_jian45 +if_jian45 : emit c14 --> if_jian44 +if_jian44 : addu $a1, $a3, $t4 --> if_jian43 +if_jian43 : emit c13 --> if_jian42 +if_jian42 : li $a0, 1 --> if_jian41 +if_jian41 : addu $a2, $a2, $a0 --> if_jian40 +if_jian40 : emit c12 --> if_jian39 +if_jian39 : j --> if_jian38 +if_jian38 : li $a0, 1 --> if_jian37 +if_jian37 : seq $a0, $t1, $a0 --> if_jian36 +if_jian36 : beq $a0, $zero --> if_jian8, if_jian35 +if_jian35 : emit c11 --> if_jian34 +if_jian34 : j --> if_jian33 +if_jian33 : beq $t5, $zero --> if_jian30, if_jian32 +if_jian32 : emit c10 --> if_jian31 +if_jian31 : addu $v0, $a2, $a3 --> if_jian24 +if_jian24 : emit c7 --> if_jian23 +if_jian23 : j --> if_jian22 +if_jian22 : li $a1, 0 --> if_jian21 +if_jian21 : emit c6 --> if_jian20 +if_jian20 : li $a0, 0 --> if_jian49 +if_jian49 : seq $a0, $t5, $a0 --> if_jian19 +if_jian19 : beq $a0, $a1 --> if_jian12, if_jian18 +if_jian18 : li $a0, 0 --> if_jian17 +if_jian17 : emit c5 --> if_jian16 +if_jian16 : j --> if_jian15 +if_jian15 : beq $t0, $a0 --> if_jian13, if_jian14 +if_jian14 : li $a0, 1 --> if_jian11 +if_jian11 : beq $a0, $zero --> if_jian2, if_jian10 +if_jian10 : emit c4 --> if_jian9 +if_jian9 : j --> if_jian2 +if_jian2 : emit c0 --> if_jian1 +if_jian1 : j --> if_jian0 +if_jian0 : j --> if_jian104 +if_jian104: j --> if_jian103 +if_jian103: j --> if_jian102 +if_jian102: j --> if_jian101 +if_jian101: j --> if_jian100 +if_jian100: j --> if_jian99 +if_jian99 : j --> if_jian98 +if_jian98 : j --> if_jian97 +if_jian97 : j --> if_jian96 +if_jian96 : j --> if_jian95 +if_jian95 : j --> if_jian94 +if_jian94 : delframe --> if_jian93 +if_jian93 : jr $ra +if_jian13 : li $a0, 0 --> if_jian11 +if_jian12 : li $a0, 0 --> if_jian11 +if_jian30 : emit c9 --> if_jian29 +if_jian29 : j --> if_jian28 +if_jian28 : li $a0, 0 --> if_jian50 +if_jian50 : seq $a0, $t0, $a0 --> if_jian27 +if_jian27 : beq $a0, $zero --> if_jian24, if_jian26 +if_jian26 : emit c8 --> if_jian25 +if_jian25 : addu $v0, $a1, $a3 --> if_jian24 +if_jian8 : emit c3 --> if_jian7 +if_jian7 : addu $v0, $a2, $t4 --> if_jian6 +if_jian6 : emit c2 --> if_jian5 +if_jian5 : addu $v0, $v0, $t3 --> if_jian4 +if_jian4 : emit c1 --> if_jian3 +if_jian3 : addu $v0, $v0, $t2 --> if_jian2 + +procedure if_imbriq2(3) +var 0 +entry if_imbriq234 +if_imbriq234: newframe --> if_imbriq233 +if_imbriq233: j --> if_imbriq232 +if_imbriq232: j --> if_imbriq231 +if_imbriq231: j --> if_imbriq230 +if_imbriq230: j --> if_imbriq229 +if_imbriq229: j --> if_imbriq228 +if_imbriq228: j --> if_imbriq227 +if_imbriq227: j --> if_imbriq226 +if_imbriq226: j --> if_imbriq225 +if_imbriq225: j --> if_imbriq224 +if_imbriq224: move $v0, $a0 --> if_imbriq223 +if_imbriq223: j --> if_imbriq222 +if_imbriq222: j --> if_imbriq221 +if_imbriq221: j --> if_imbriq220 +if_imbriq220: j --> if_imbriq219 +if_imbriq219: j --> if_imbriq218 +if_imbriq218: j --> if_imbriq217 +if_imbriq217: j --> if_imbriq216 +if_imbriq216: emit c35 --> if_imbriq215 +if_imbriq215: j --> if_imbriq214 +if_imbriq214: slt $a0, $v0, $a1 --> if_imbriq213 +if_imbriq213: beq $a0, $zero --> if_imbriq24, if_imbriq212 +if_imbriq212: emit c34 --> if_imbriq211 +if_imbriq211: j --> if_imbriq210 +if_imbriq210: slt $v0, $a1, $a2 --> if_imbriq29 +if_imbriq29 : beq $v0, $zero --> if_imbriq26, if_imbriq28 +if_imbriq28 : emit c33 --> if_imbriq27 +if_imbriq27 : move $v0, $a1 --> if_imbriq22 +if_imbriq22 : emit c30 --> if_imbriq21 +if_imbriq21 : j --> if_imbriq20 +if_imbriq20 : j --> if_imbriq246 +if_imbriq246: j --> if_imbriq245 +if_imbriq245: j --> if_imbriq244 +if_imbriq244: j --> if_imbriq243 +if_imbriq243: j --> if_imbriq242 +if_imbriq242: j --> if_imbriq241 +if_imbriq241: j --> if_imbriq240 +if_imbriq240: j --> if_imbriq239 +if_imbriq239: j --> if_imbriq238 +if_imbriq238: j --> if_imbriq237 +if_imbriq237: j --> if_imbriq236 +if_imbriq236: delframe --> if_imbriq235 +if_imbriq235: jr $ra +if_imbriq26 : emit c32 --> if_imbriq25 +if_imbriq25 : li $v0, 47 --> if_imbriq22 +if_imbriq24 : emit c31 --> if_imbriq23 +if_imbriq23 : j --> if_imbriq22 + +procedure if_imbriq1(3) +var 0 +entry if_imbriq134 +if_imbriq134: newframe --> if_imbriq133 +if_imbriq133: j --> if_imbriq132 +if_imbriq132: j --> if_imbriq131 +if_imbriq131: j --> if_imbriq130 +if_imbriq130: j --> if_imbriq129 +if_imbriq129: j --> if_imbriq128 +if_imbriq128: j --> if_imbriq127 +if_imbriq127: j --> if_imbriq126 +if_imbriq126: j --> if_imbriq125 +if_imbriq125: j --> if_imbriq124 +if_imbriq124: j --> if_imbriq123 +if_imbriq123: j --> if_imbriq122 +if_imbriq122: move $v0, $a2 --> if_imbriq121 +if_imbriq121: j --> if_imbriq120 +if_imbriq120: j --> if_imbriq119 +if_imbriq119: j --> if_imbriq118 +if_imbriq118: j --> if_imbriq117 +if_imbriq117: j --> if_imbriq116 +if_imbriq116: emit c29 --> if_imbriq115 +if_imbriq115: j --> if_imbriq114 +if_imbriq114: slt $a2, $a0, $a1 --> if_imbriq113 +if_imbriq113: beq $a2, $zero --> if_imbriq14, if_imbriq112 +if_imbriq112: emit c28 --> if_imbriq111 +if_imbriq111: j --> if_imbriq110 +if_imbriq110: slt $a0, $a1, $v0 --> if_imbriq19 +if_imbriq19 : beq $a0, $zero --> if_imbriq16, if_imbriq18 +if_imbriq18 : emit c27 --> if_imbriq17 +if_imbriq17 : move $v0, $a1 --> if_imbriq12 +if_imbriq12 : emit c24 --> if_imbriq11 +if_imbriq11 : j --> if_imbriq10 +if_imbriq10 : j --> if_imbriq146 +if_imbriq146: j --> if_imbriq145 +if_imbriq145: j --> if_imbriq144 +if_imbriq144: j --> if_imbriq143 +if_imbriq143: j --> if_imbriq142 +if_imbriq142: j --> if_imbriq141 +if_imbriq141: j --> if_imbriq140 +if_imbriq140: j --> if_imbriq139 +if_imbriq139: j --> if_imbriq138 +if_imbriq138: j --> if_imbriq137 +if_imbriq137: j --> if_imbriq136 +if_imbriq136: delframe --> if_imbriq135 +if_imbriq135: jr $ra +if_imbriq16 : emit c26 --> if_imbriq15 +if_imbriq15 : j --> if_imbriq12 +if_imbriq14 : emit c25 --> if_imbriq13 +if_imbriq13 : move $v0, $a0 --> if_imbriq12 + +procedure if_exSimple(2) +var 0 +entry if_exSimple39 +if_exSimple39: newframe --> if_exSimple38 +if_exSimple38: j --> if_exSimple37 +if_exSimple37: j --> if_exSimple36 +if_exSimple36: j --> if_exSimple35 +if_exSimple35: j --> if_exSimple34 +if_exSimple34: j --> if_exSimple33 +if_exSimple33: j --> if_exSimple32 +if_exSimple32: j --> if_exSimple31 +if_exSimple31: j --> if_exSimple30 +if_exSimple30: j --> if_exSimple29 +if_exSimple29: j --> if_exSimple28 +if_exSimple28: j --> if_exSimple27 +if_exSimple27: j --> if_exSimple26 +if_exSimple26: j --> if_exSimple25 +if_exSimple25: j --> if_exSimple24 +if_exSimple24: j --> if_exSimple23 +if_exSimple23: j --> if_exSimple22 +if_exSimple22: j --> if_exSimple21 +if_exSimple21: j --> if_exSimple20 +if_exSimple20: emit c23 --> if_exSimple19 +if_exSimple19: j --> if_exSimple18 +if_exSimple18: slt $v0, $a0, $a1 --> if_exSimple17 +if_exSimple17: beq $v0, $zero --> if_exSimple9, if_exSimple16 +if_exSimple16: emit c22 --> if_exSimple15 +if_exSimple15: addu $v0, $a0, $a1 --> if_exSimple14 +if_exSimple14: emit c21 --> if_exSimple13 +if_exSimple13: li $a0, 2 --> if_exSimple12 +if_exSimple12: mul $v0, $a0, $v0 --> if_exSimple11 +if_exSimple11: emit c20 --> if_exSimple10 +if_exSimple10: j --> if_exSimple2 +if_exSimple2 : emit c16 --> if_exSimple1 +if_exSimple1 : j --> if_exSimple0 +if_exSimple0 : j --> if_exSimple51 +if_exSimple51: j --> if_exSimple50 +if_exSimple50: j --> if_exSimple49 +if_exSimple49: j --> if_exSimple48 +if_exSimple48: j --> if_exSimple47 +if_exSimple47: j --> if_exSimple46 +if_exSimple46: j --> if_exSimple45 +if_exSimple45: j --> if_exSimple44 +if_exSimple44: j --> if_exSimple43 +if_exSimple43: j --> if_exSimple42 +if_exSimple42: j --> if_exSimple41 +if_exSimple41: delframe --> if_exSimple40 +if_exSimple40: jr $ra +if_exSimple9 : emit c19 --> if_exSimple8 +if_exSimple8 : li $v0, 2 --> if_exSimple7 +if_exSimple7 : mul $v0, $v0, $a1 --> if_exSimple6 +if_exSimple6 : emit c18 --> if_exSimple5 +if_exSimple5 : addu $v0, $v0, $a0 --> if_exSimple4 +if_exSimple4 : emit c17 --> if_exSimple3 +if_exSimple3 : addu $v0, $v0, $a1 --> if_exSimple2 + +procedure _main(0) +var 4 +entry main91 +main91 : newframe --> main90 +main90 : sets local(0), $ra --> main89 +main89 : j --> main88 +main88 : j --> main87 +main87 : j --> main86 +main86 : j --> main85 +main85 : j --> main84 +main84 : j --> main83 +main83 : j --> main82 +main82 : j --> main81 +main81 : j --> main80 +main80 : j --> main79 +main79 : j --> main78 +main78 : j --> main77 +main77 : j --> main76 +main76 : j --> main75 +main75 : j --> main74 +main74 : j --> main73 +main73 : j --> main72 +main72 : j --> main71 +main71 : j --> main70 +main70 : j --> main69 +main69 : j --> main68 +main68 : j --> main67 +main67 : j --> main66 +main66 : j --> main65 +main65 : j --> main64 +main64 : j --> main63 +main63 : j --> main62 +main62 : j --> main61 +main61 : j --> main60 +main60 : j --> main59 +main59 : j --> main58 +main58 : j --> main57 +main57 : j --> main56 +main56 : j --> main55 +main55 : j --> main54 +main54 : j --> main53 +main53 : j --> main52 +main52 : j --> main51 +main51 : j --> main50 +main50 : emit c84 --> main49 +main49 : li $a0, 1 --> main48 +main48 : li $a1, 2 --> main47 +main47 : li $a2, 3 --> main46 +main46 : li $a3, 4 --> main45 +main45 : li $t3, 5 --> main44 +main44 : li $t2, 6 --> main43 +main43 : li $t1, 7 --> main42 +main42 : li $t0, 8 --> main41 +main41 : li $v0, 9 --> main40 +main40 : j --> main145 +main145: j --> main144 +main144: j --> main143 +main143: j --> main142 +main142: j --> main141 +main141: sets out(16), $t3 --> main140 +main140: sets out(12), $t2 --> main139 +main139: sets out(8), $t1 --> main138 +main138: sets out(4), $t0 --> main137 +main137: sets out(0), $v0 --> main136 +main136: call if_jian --> main135 +main135: j --> main39 +main39 : emit c83 --> main38 +main38 : li $a0, 1 --> main37 +main37 : li $a1, 2 --> main36 +main36 : j --> main134 +main134: j --> main133 +main133: j --> main132 +main132: call if_exSimple --> main131 +main131: j --> main35 +main35 : emit c82 --> main34 +main34 : li $a0, 1 --> main33 +main33 : li $a1, 2 --> main32 +main32 : li $a2, 3 --> main31 +main31 : j --> main130 +main130: j --> main129 +main129: j --> main128 +main128: j --> main127 +main127: call if_imbriq1 --> main126 +main126: j --> main30 +main30 : emit c81 --> main29 +main29 : li $a0, 1 --> main28 +main28 : li $a1, 2 --> main27 +main27 : li $a2, 3 --> main26 +main26 : j --> main120 +main120: j --> main119 +main119: j --> main118 +main118: j --> main117 +main117: call if_imbriq2 --> main116 +main116: j --> main25 +main25 : emit c80 --> main24 +main24 : li $a0, 1 --> main23 +main23 : li $a1, 2 --> main22 +main22 : j --> main115 +main115: j --> main114 +main114: j --> main113 +main113: call if_min --> main112 +main112: j --> main21 +main21 : emit c79 --> main20 +main20 : li $a0, 1 --> main19 +main19 : li $a1, 2 --> main18 +main18 : j --> main111 +main111: j --> main110 +main110: j --> main109 +main109: call if_prog --> main108 +main108: j --> main17 +main17 : emit c78 --> main16 +main16 : li $a0, 1 --> main15 +main15 : li $a1, 2 --> main14 +main14 : j --> main107 +main107: j --> main106 +main106: j --> main105 +main105: call if_sansElse --> main104 +main104: j --> main13 +main13 : emit c77 --> main12 +main12 : li $a0, 1 --> main11 +main11 : li $a1, 2 --> main10 +main10 : li $a2, 3 --> main9 +main9 : li $a3, 4 --> main8 +main8 : j --> main151 +main151: j --> main150 +main150: j --> main149 +main149: j --> main148 +main148: j --> main147 +main147: call if_test --> main146 +main146: j --> main7 +main7 : emit c76 --> main6 +main6 : li $a0, 1 --> main5 +main5 : li $a1, 2 --> main4 +main4 : li $a2, 3 --> main3 +main3 : j --> main125 +main125: j --> main124 +main124: j --> main123 +main123: j --> main122 +main122: call if_ual --> main121 +main121: j --> main2 +main2 : emit c75 --> main1 +main1 : j --> main0 +main0 : j --> main103 +main103: j --> main102 +main102: gets $ra, local(0) --> main101 +main101: j --> main100 +main100: j --> main99 +main99 : j --> main98 +main98 : j --> main97 +main97 : j --> main96 +main96 : j --> main95 +main95 : j --> main94 +main94 : j --> main93 +main93 : delframe --> main92 +main92 : jr $ra + diff --git a/tests/clight/ifthenelse.RTL.expected b/tests/clight/ifthenelse.RTL.expected new file mode 100644 index 0000000..a960db2 --- /dev/null +++ b/tests/clight/ifthenelse.RTL.expected @@ -0,0 +1,450 @@ +program + +globals 0 + +function if_ual(%0; %1; %2) : %4 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24 +entry if_ual71 +exit if_ual0 +if_ual71: li %3, 0 --> if_ual70 +if_ual70: li %5, 0 --> if_ual69 +if_ual69: li %6, 0 --> if_ual68 +if_ual68: li %7, 0 --> if_ual67 +if_ual67: li %8, 0 --> if_ual66 +if_ual66: li %9, 0 --> if_ual65 +if_ual65: li %10, 0 --> if_ual64 +if_ual64: li %11, 0 --> if_ual63 +if_ual63: li %12, 0 --> if_ual62 +if_ual62: li %13, 0 --> if_ual61 +if_ual61: li %14, 0 --> if_ual60 +if_ual60: li %15, 0 --> if_ual59 +if_ual59: li %16, 0 --> if_ual58 +if_ual58: li %17, 0 --> if_ual57 +if_ual57: li %18, 0 --> if_ual56 +if_ual56: li %19, 0 --> if_ual55 +if_ual55: li %20, 0 --> if_ual54 +if_ual54: li %21, 0 --> if_ual53 +if_ual53: li %22, 0 --> if_ual52 +if_ual52: li %23, 0 --> if_ual51 +if_ual51: li %24, 0 --> if_ual50 +if_ual50: emit c74 --> if_ual49 +if_ual49: li %23, 0 --> if_ual48 +if_ual48: li %24, 0 --> if_ual47 +if_ual47: seq %22, %0, %24 --> if_ual46 +if_ual46: beq %22, %23 --> if_ual43, if_ual45 +if_ual45: emit c73 --> if_ual44 +if_ual44: addu %3, %1, %2 --> if_ual2 +if_ual2 : emit c62 --> if_ual1 +if_ual1 : move %4, %3 --> if_ual0 +if_ual43: emit c72 --> if_ual42 +if_ual42: li %20, 0 --> if_ual41 +if_ual41: li %21, 1 --> if_ual40 +if_ual40: seq %19, %0, %21 --> if_ual39 +if_ual39: beq %19, %20 --> if_ual36, if_ual38 +if_ual38: emit c71 --> if_ual37 +if_ual37: subu %3, %1, %2 --> if_ual2 +if_ual36: emit c70 --> if_ual35 +if_ual35: li %17, 0 --> if_ual34 +if_ual34: li %18, 2 --> if_ual33 +if_ual33: seq %16, %0, %18 --> if_ual32 +if_ual32: beq %16, %17 --> if_ual19, if_ual31 +if_ual31: emit c69 --> if_ual30 +if_ual30: li %15, 0 --> if_ual29 +if_ual29: emit c68 --> if_ual28 +if_ual28: move %14, %1 --> if_ual27 +if_ual27: beq %14, %15 --> if_ual20, if_ual26 +if_ual26: li %13, 0 --> if_ual25 +if_ual25: emit c67 --> if_ual24 +if_ual24: move %12, %2 --> if_ual23 +if_ual23: beq %12, %13 --> if_ual21, if_ual22 +if_ual22: li %3, 1 --> if_ual2 +if_ual21: li %3, 0 --> if_ual2 +if_ual20: li %3, 0 --> if_ual2 +if_ual19: emit c66 --> if_ual18 +if_ual18: li %10, 0 --> if_ual17 +if_ual17: li %11, 3 --> if_ual16 +if_ual16: seq %9, %0, %11 --> if_ual15 +if_ual15: beq %9, %10 --> if_ual2, if_ual14 +if_ual14: emit c65 --> if_ual13 +if_ual13: li %8, 0 --> if_ual12 +if_ual12: emit c64 --> if_ual11 +if_ual11: move %7, %1 --> if_ual10 +if_ual10: beq %7, %8 --> if_ual8, if_ual9 +if_ual9 : li %3, 1 --> if_ual2 +if_ual8 : li %6, 0 --> if_ual7 +if_ual7 : emit c63 --> if_ual6 +if_ual6 : move %5, %2 --> if_ual5 +if_ual5 : beq %5, %6 --> if_ual3, if_ual4 +if_ual4 : li %3, 1 --> if_ual2 +if_ual3 : li %3, 0 --> if_ual2 + +function if_test(%0; %1; %2; %3) : %9 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14 +entry if_test41 +exit if_test0 +if_test41: li %4, 0 --> if_test40 +if_test40: li %5, 0 --> if_test39 +if_test39: li %6, 0 --> if_test38 +if_test38: li %7, 0 --> if_test37 +if_test37: li %8, 0 --> if_test36 +if_test36: li %10, 0 --> if_test35 +if_test35: li %11, 0 --> if_test34 +if_test34: li %12, 0 --> if_test33 +if_test33: li %13, 0 --> if_test32 +if_test32: li %14, 0 --> if_test31 +if_test31: emit c61 --> if_test30 +if_test30: li %4, 0 --> if_test29 +if_test29: emit c60 --> if_test28 +if_test28: li %5, 0 --> if_test27 +if_test27: emit c59 --> if_test26 +if_test26: li %6, 0 --> if_test25 +if_test25: emit c58 --> if_test24 +if_test24: li %7, 0 --> if_test23 +if_test23: emit c57 --> if_test22 +if_test22: li %8, 0 --> if_test21 +if_test21: emit c56 --> if_test20 +if_test20: li %14, 0 --> if_test19 +if_test19: slt %13, %0, %1 --> if_test18 +if_test18: beq %13, %14 --> if_test15, if_test17 +if_test17: emit c55 --> if_test16 +if_test16: addu %4, %0, %1 --> if_test15 +if_test15: emit c54 --> if_test14 +if_test14: li %12, 0 --> if_test13 +if_test13: slt %11, %2, %3 --> if_test12 +if_test12: beq %11, %12 --> if_test7, if_test11 +if_test11: emit c53 --> if_test10 +if_test10: addu %8, %2, %3 --> if_test9 +if_test9 : emit c52 --> if_test8 +if_test8 : addu %7, %8, %2 --> if_test7 +if_test7 : emit c51 --> if_test6 +if_test6 : li %10, 1 --> if_test5 +if_test5 : addu %5, %4, %10 --> if_test4 +if_test4 : emit c50 --> if_test3 +if_test3 : addu %6, %4, %7 --> if_test2 +if_test2 : emit c49 --> if_test1 +if_test1 : move %9, %4 --> if_test0 + +function if_sansElse(%0; %1) : %3 +var %0, %1, %2, %3, %4, %5 +entry if_sansElse13 +exit if_sansElse0 +if_sansElse13: li %2, 0 --> if_sansElse12 +if_sansElse12: li %4, 0 --> if_sansElse11 +if_sansElse11: li %5, 0 --> if_sansElse10 +if_sansElse10: emit c48 --> if_sansElse9 +if_sansElse9 : li %2, 0 --> if_sansElse8 +if_sansElse8 : emit c47 --> if_sansElse7 +if_sansElse7 : li %5, 0 --> if_sansElse6 +if_sansElse6 : slt %4, %0, %1 --> if_sansElse5 +if_sansElse5 : beq %4, %5 --> if_sansElse2, if_sansElse4 +if_sansElse4 : emit c46 --> if_sansElse3 +if_sansElse3 : move %2, %0 --> if_sansElse2 +if_sansElse2 : emit c45 --> if_sansElse1 +if_sansElse1 : move %3, %2 --> if_sansElse0 + +function if_prog(%0; %1) : %4 +var %0, %1, %2, %3, %4, %5, %6, + %7 +entry if_prog18 +exit if_prog0 +if_prog18: li %2, 0 --> if_prog17 +if_prog17: li %3, 0 --> if_prog16 +if_prog16: li %5, 0 --> if_prog15 +if_prog15: li %6, 0 --> if_prog14 +if_prog14: li %7, 0 --> if_prog13 +if_prog13: emit c44 --> if_prog12 +if_prog12: addu %2, %1, %0 --> if_prog11 +if_prog11: emit c43 --> if_prog10 +if_prog10: li %6, 0 --> if_prog9 +if_prog9 : li %7, 0 --> if_prog8 +if_prog8 : slt %5, %2, %7 --> if_prog7 +if_prog7 : beq %5, %6 --> if_prog4, if_prog6 +if_prog6 : emit c42 --> if_prog5 +if_prog5 : li %3, 2 --> if_prog2 +if_prog2 : emit c40 --> if_prog1 +if_prog1 : move %4, %3 --> if_prog0 +if_prog4 : emit c41 --> if_prog3 +if_prog3 : li %3, 3 --> if_prog2 + +function if_min(%0; %1) : %3 +var %0, %1, %2, %3, %4, %5 +entry if_min13 +exit if_min0 +if_min13: li %2, 0 --> if_min12 +if_min12: li %4, 0 --> if_min11 +if_min11: li %5, 0 --> if_min10 +if_min10: emit c39 --> if_min9 +if_min9 : li %5, 0 --> if_min8 +if_min8 : sgt %4, %0, %1 --> if_min7 +if_min7 : beq %4, %5 --> if_min4, if_min6 +if_min6 : emit c38 --> if_min5 +if_min5 : move %2, %1 --> if_min2 +if_min2 : emit c36 --> if_min1 +if_min1 : move %3, %2 --> if_min0 +if_min4 : emit c37 --> if_min3 +if_min3 : move %2, %0 --> if_min2 + +function if_jian(%0; %1; %2; %3; %4; %5; %6; %7; %8) : %16 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32 +entry if_jian73 +exit if_jian0 +if_jian73: li %9, 0 --> if_jian72 +if_jian72: li %10, 0 --> if_jian71 +if_jian71: li %11, 0 --> if_jian70 +if_jian70: li %12, 0 --> if_jian69 +if_jian69: li %13, 0 --> if_jian68 +if_jian68: li %14, 0 --> if_jian67 +if_jian67: li %15, 0 --> if_jian66 +if_jian66: li %17, 0 --> if_jian65 +if_jian65: li %18, 0 --> if_jian64 +if_jian64: li %19, 0 --> if_jian63 +if_jian63: li %20, 0 --> if_jian62 +if_jian62: li %21, 0 --> if_jian61 +if_jian61: li %22, 0 --> if_jian60 +if_jian60: li %23, 0 --> if_jian59 +if_jian59: li %24, 0 --> if_jian58 +if_jian58: li %25, 0 --> if_jian57 +if_jian57: li %26, 0 --> if_jian56 +if_jian56: li %27, 0 --> if_jian55 +if_jian55: li %28, 0 --> if_jian54 +if_jian54: li %29, 0 --> if_jian53 +if_jian53: li %30, 0 --> if_jian52 +if_jian52: li %31, 0 --> if_jian51 +if_jian51: li %32, 0 --> if_jian48 +if_jian48: emit c15 --> if_jian47 +if_jian47: addu %30, %0, %1 --> if_jian46 +if_jian46: slt %11, %30, %2 --> if_jian45 +if_jian45: emit c14 --> if_jian44 +if_jian44: addu %12, %3, %4 --> if_jian43 +if_jian43: emit c13 --> if_jian42 +if_jian42: li %29, 1 --> if_jian41 +if_jian41: addu %13, %2, %29 --> if_jian40 +if_jian40: emit c12 --> if_jian39 +if_jian39: li %27, 0 --> if_jian38 +if_jian38: li %28, 1 --> if_jian37 +if_jian37: seq %26, %8, %28 --> if_jian36 +if_jian36: beq %26, %27 --> if_jian8, if_jian35 +if_jian35: emit c11 --> if_jian34 +if_jian34: li %25, 0 --> if_jian33 +if_jian33: beq %11, %25 --> if_jian30, if_jian32 +if_jian32: emit c10 --> if_jian31 +if_jian31: addu %9, %13, %3 --> if_jian24 +if_jian24: emit c7 --> if_jian23 +if_jian23: li %18, 0 --> if_jian22 +if_jian22: li %22, 0 --> if_jian21 +if_jian21: emit c6 --> if_jian20 +if_jian20: li %31, 0 --> if_jian49 +if_jian49: seq %21, %11, %31 --> if_jian19 +if_jian19: beq %21, %22 --> if_jian12, if_jian18 +if_jian18: li %20, 0 --> if_jian17 +if_jian17: emit c5 --> if_jian16 +if_jian16: move %19, %7 --> if_jian15 +if_jian15: beq %19, %20 --> if_jian13, if_jian14 +if_jian14: li %17, 1 --> if_jian11 +if_jian11: beq %17, %18 --> if_jian2, if_jian10 +if_jian10: emit c4 --> if_jian9 +if_jian9 : addu %10, %12, %4 --> if_jian2 +if_jian2 : emit c0 --> if_jian1 +if_jian1 : move %16, %9 --> if_jian0 +if_jian13: li %17, 0 --> if_jian11 +if_jian12: li %17, 0 --> if_jian11 +if_jian30: emit c9 --> if_jian29 +if_jian29: li %24, 0 --> if_jian28 +if_jian28: li %32, 0 --> if_jian50 +if_jian50: seq %23, %7, %32 --> if_jian27 +if_jian27: beq %23, %24 --> if_jian24, if_jian26 +if_jian26: emit c8 --> if_jian25 +if_jian25: addu %9, %12, %3 --> if_jian24 +if_jian8 : emit c3 --> if_jian7 +if_jian7 : addu %14, %13, %4 --> if_jian6 +if_jian6 : emit c2 --> if_jian5 +if_jian5 : addu %15, %14, %5 --> if_jian4 +if_jian4 : emit c1 --> if_jian3 +if_jian3 : addu %9, %15, %6 --> if_jian2 + +function if_imbriq2(%0; %1; %2) : %4 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8 +entry if_imbriq221 +exit if_imbriq20 +if_imbriq221: li %3, 0 --> if_imbriq220 +if_imbriq220: li %5, 0 --> if_imbriq219 +if_imbriq219: li %6, 0 --> if_imbriq218 +if_imbriq218: li %7, 0 --> if_imbriq217 +if_imbriq217: li %8, 0 --> if_imbriq216 +if_imbriq216: emit c35 --> if_imbriq215 +if_imbriq215: li %8, 0 --> if_imbriq214 +if_imbriq214: slt %7, %0, %1 --> if_imbriq213 +if_imbriq213: beq %7, %8 --> if_imbriq24, if_imbriq212 +if_imbriq212: emit c34 --> if_imbriq211 +if_imbriq211: li %6, 0 --> if_imbriq210 +if_imbriq210: slt %5, %1, %2 --> if_imbriq29 +if_imbriq29 : beq %5, %6 --> if_imbriq26, if_imbriq28 +if_imbriq28 : emit c33 --> if_imbriq27 +if_imbriq27 : move %3, %1 --> if_imbriq22 +if_imbriq22 : emit c30 --> if_imbriq21 +if_imbriq21 : move %4, %3 --> if_imbriq20 +if_imbriq26 : emit c32 --> if_imbriq25 +if_imbriq25 : li %3, 47 --> if_imbriq22 +if_imbriq24 : emit c31 --> if_imbriq23 +if_imbriq23 : move %3, %0 --> if_imbriq22 + +function if_imbriq1(%0; %1; %2) : %4 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8 +entry if_imbriq121 +exit if_imbriq10 +if_imbriq121: li %3, 0 --> if_imbriq120 +if_imbriq120: li %5, 0 --> if_imbriq119 +if_imbriq119: li %6, 0 --> if_imbriq118 +if_imbriq118: li %7, 0 --> if_imbriq117 +if_imbriq117: li %8, 0 --> if_imbriq116 +if_imbriq116: emit c29 --> if_imbriq115 +if_imbriq115: li %8, 0 --> if_imbriq114 +if_imbriq114: slt %7, %0, %1 --> if_imbriq113 +if_imbriq113: beq %7, %8 --> if_imbriq14, if_imbriq112 +if_imbriq112: emit c28 --> if_imbriq111 +if_imbriq111: li %6, 0 --> if_imbriq110 +if_imbriq110: slt %5, %1, %2 --> if_imbriq19 +if_imbriq19 : beq %5, %6 --> if_imbriq16, if_imbriq18 +if_imbriq18 : emit c27 --> if_imbriq17 +if_imbriq17 : move %3, %1 --> if_imbriq12 +if_imbriq12 : emit c24 --> if_imbriq11 +if_imbriq11 : move %4, %3 --> if_imbriq10 +if_imbriq16 : emit c26 --> if_imbriq15 +if_imbriq15 : move %3, %2 --> if_imbriq12 +if_imbriq14 : emit c25 --> if_imbriq13 +if_imbriq13 : move %3, %0 --> if_imbriq12 + +function if_exSimple(%0; %1) : %5 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9 +entry if_exSimple27 +exit if_exSimple0 +if_exSimple27: li %2, 0 --> if_exSimple26 +if_exSimple26: li %3, 0 --> if_exSimple25 +if_exSimple25: li %4, 0 --> if_exSimple24 +if_exSimple24: li %6, 0 --> if_exSimple23 +if_exSimple23: li %7, 0 --> if_exSimple22 +if_exSimple22: li %8, 0 --> if_exSimple21 +if_exSimple21: li %9, 0 --> if_exSimple20 +if_exSimple20: emit c23 --> if_exSimple19 +if_exSimple19: li %9, 0 --> if_exSimple18 +if_exSimple18: slt %8, %0, %1 --> if_exSimple17 +if_exSimple17: beq %8, %9 --> if_exSimple9, if_exSimple16 +if_exSimple16: emit c22 --> if_exSimple15 +if_exSimple15: addu %3, %0, %1 --> if_exSimple14 +if_exSimple14: emit c21 --> if_exSimple13 +if_exSimple13: li %7, 2 --> if_exSimple12 +if_exSimple12: mul %3, %7, %3 --> if_exSimple11 +if_exSimple11: emit c20 --> if_exSimple10 +if_exSimple10: move %2, %3 --> if_exSimple2 +if_exSimple2 : emit c16 --> if_exSimple1 +if_exSimple1 : move %5, %2 --> if_exSimple0 +if_exSimple9 : emit c19 --> if_exSimple8 +if_exSimple8 : li %6, 2 --> if_exSimple7 +if_exSimple7 : mul %4, %6, %1 --> if_exSimple6 +if_exSimple6 : emit c18 --> if_exSimple5 +if_exSimple5 : addu %4, %4, %0 --> if_exSimple4 +if_exSimple4 : emit c17 --> if_exSimple3 +if_exSimple3 : addu %2, %4, %1 --> if_exSimple2 + +function _main() : %1 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31 +entry main81 +exit main0 +main81: li %0, 0 --> main80 +main80: li %2, 0 --> main79 +main79: li %3, 0 --> main78 +main78: li %4, 0 --> main77 +main77: li %5, 0 --> main76 +main76: li %6, 0 --> main75 +main75: li %7, 0 --> main74 +main74: li %8, 0 --> main73 +main73: li %9, 0 --> main72 +main72: li %10, 0 --> main71 +main71: li %11, 0 --> main70 +main70: li %12, 0 --> main69 +main69: li %13, 0 --> main68 +main68: li %14, 0 --> main67 +main67: li %15, 0 --> main66 +main66: li %16, 0 --> main65 +main65: li %17, 0 --> main64 +main64: li %18, 0 --> main63 +main63: li %19, 0 --> main62 +main62: li %20, 0 --> main61 +main61: li %21, 0 --> main60 +main60: li %22, 0 --> main59 +main59: li %23, 0 --> main58 +main58: li %24, 0 --> main57 +main57: li %25, 0 --> main56 +main56: li %26, 0 --> main55 +main55: li %27, 0 --> main54 +main54: li %28, 0 --> main53 +main53: li %29, 0 --> main52 +main52: li %30, 0 --> main51 +main51: li %31, 0 --> main50 +main50: emit c84 --> main49 +main49: li %23, 1 --> main48 +main48: li %24, 2 --> main47 +main47: li %25, 3 --> main46 +main46: li %26, 4 --> main45 +main45: li %27, 5 --> main44 +main44: li %28, 6 --> main43 +main43: li %29, 7 --> main42 +main42: li %30, 8 --> main41 +main41: li %31, 9 --> main40 +main40: call %0, if_jian(%23, %24, %25, %26, %27, %28, %29, %30, %31) --> main39 +main39: emit c83 --> main38 +main38: li %21, 1 --> main37 +main37: li %22, 2 --> main36 +main36: call %0, if_exSimple(%21, %22) --> main35 +main35: emit c82 --> main34 +main34: li %18, 1 --> main33 +main33: li %19, 2 --> main32 +main32: li %20, 3 --> main31 +main31: call %0, if_imbriq1(%18, %19, %20) --> main30 +main30: emit c81 --> main29 +main29: li %15, 1 --> main28 +main28: li %16, 2 --> main27 +main27: li %17, 3 --> main26 +main26: call %0, if_imbriq2(%15, %16, %17) --> main25 +main25: emit c80 --> main24 +main24: li %13, 1 --> main23 +main23: li %14, 2 --> main22 +main22: call %0, if_min(%13, %14) --> main21 +main21: emit c79 --> main20 +main20: li %11, 1 --> main19 +main19: li %12, 2 --> main18 +main18: call %0, if_prog(%11, %12) --> main17 +main17: emit c78 --> main16 +main16: li %9, 1 --> main15 +main15: li %10, 2 --> main14 +main14: call %0, if_sansElse(%9, %10) --> main13 +main13: emit c77 --> main12 +main12: li %5, 1 --> main11 +main11: li %6, 2 --> main10 +main10: li %7, 3 --> main9 +main9 : li %8, 4 --> main8 +main8 : call %0, if_test(%5, %6, %7, %8) --> main7 +main7 : emit c76 --> main6 +main6 : li %2, 1 --> main5 +main5 : li %3, 2 --> main4 +main4 : li %4, 3 --> main3 +main3 : call %0, if_ual(%2, %3, %4) --> main2 +main2 : emit c75 --> main1 +main1 : move %1, %0 --> main0 + diff --git a/tests/clight/ifthenelse.RTLabs.expected b/tests/clight/ifthenelse.RTLabs.expected new file mode 100644 index 0000000..c455c3b --- /dev/null +++ b/tests/clight/ifthenelse.RTLabs.expected @@ -0,0 +1,766 @@ +program: (main function is "main") + + + globals: + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "if_jian"(%0, %1, %2, %3, %4, %5, %6, %7, %8): int -> int -> int -> int -> int -> int -> int -> int -> int -> int + locals: %16, %9, %10, %11, %12, %13, %14, %15, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30 + result: %16 + stacksize: 0 + entry: if_jian48 + exit: if_jian0 + + if_jian9: add %10, %12, %4 --> if_jian2 + if_jian8: emit c3 --> if_jian7 + if_jian7: add %14, %13, %4 --> if_jian6 + if_jian6: emit c2 --> if_jian5 + if_jian5: add %15, %14, %5 --> if_jian4 + if_jian48: emit c15 --> if_jian47 + if_jian47: add %30, %0, %1 --> if_jian46 + if_jian46: lt %11, %30, %2 --> if_jian45 + if_jian45: emit c14 --> if_jian44 + if_jian44: add %12, %3, %4 --> if_jian43 + if_jian43: emit c13 --> if_jian42 + if_jian42: imm_int 1, %29, --> if_jian41 + if_jian41: add %13, %2, %29 --> if_jian40 + if_jian40: emit c12 --> if_jian39 + if_jian4: emit c1 --> if_jian3 + if_jian39: imm_int 0, %27, --> if_jian38 + if_jian38: imm_int 1, %28, --> if_jian37 + if_jian37: eq %26, %8, %28 --> if_jian36 + if_jian36: eq %26, %27 --> if_jian8, if_jian35 + if_jian35: emit c11 --> if_jian34 + if_jian34: imm_int 0, %25, --> if_jian33 + if_jian33: eq %11, %25 --> if_jian30, if_jian32 + if_jian32: emit c10 --> if_jian31 + if_jian31: add %9, %13, %3 --> if_jian24 + if_jian30: emit c9 --> if_jian29 + if_jian3: add %9, %15, %6 --> if_jian2 + if_jian29: imm_int 0, %24, --> if_jian28 + if_jian28: notbool %23, %7 --> if_jian27 + if_jian27: eq %23, %24 --> if_jian24, if_jian26 + if_jian26: emit c8 --> if_jian25 + if_jian25: add %9, %12, %3 --> if_jian24 + if_jian24: emit c7 --> if_jian23 + if_jian23: imm_int 0, %18, --> if_jian22 + if_jian22: imm_int 0, %22, --> if_jian21 + if_jian21: emit c6 --> if_jian20 + if_jian20: notbool %21, %11 --> if_jian19 + if_jian2: emit c0 --> if_jian1 + if_jian19: eq %21, %22 --> if_jian12, if_jian18 + if_jian18: imm_int 0, %20, --> if_jian17 + if_jian17: emit c5 --> if_jian16 + if_jian16: mov %19, %7 --> if_jian15 + if_jian15: eq %19, %20 --> if_jian13, if_jian14 + if_jian14: imm_int 1, %17, --> if_jian11 + if_jian13: imm_int 0, %17, --> if_jian11 + if_jian12: imm_int 0, %17, --> if_jian11 + if_jian11: eq %17, %18 --> if_jian2, if_jian10 + if_jian10: emit c4 --> if_jian9 + if_jian1: mov %16, %9 --> if_jian0 + if_jian0: return %16 + + + "if_exSimple"(%0, %1): int -> int -> int + locals: %5, %2, %3, %4, %6, %7, %8, %9 + result: %5 + stacksize: 0 + entry: if_exSimple20 + exit: if_exSimple0 + + if_exSimple9: emit c19 --> if_exSimple8 + if_exSimple8: imm_int 2, %6, --> if_exSimple7 + if_exSimple7: mul %4, %6, %1 --> if_exSimple6 + if_exSimple6: emit c18 --> if_exSimple5 + if_exSimple5: add %4, %4, %0 --> if_exSimple4 + if_exSimple4: emit c17 --> if_exSimple3 + if_exSimple3: add %2, %4, %1 --> if_exSimple2 + if_exSimple20: emit c23 --> if_exSimple19 + if_exSimple2: emit c16 --> if_exSimple1 + if_exSimple19: imm_int 0, %9, --> if_exSimple18 + if_exSimple18: lt %8, %0, %1 --> if_exSimple17 + if_exSimple17: eq %8, %9 --> if_exSimple9, if_exSimple16 + if_exSimple16: emit c22 --> if_exSimple15 + if_exSimple15: add %3, %0, %1 --> if_exSimple14 + if_exSimple14: emit c21 --> if_exSimple13 + if_exSimple13: imm_int 2, %7, --> if_exSimple12 + if_exSimple12: mul %3, %7, %3 --> if_exSimple11 + if_exSimple11: emit c20 --> if_exSimple10 + if_exSimple10: mov %2, %3 --> if_exSimple2 + if_exSimple1: mov %5, %2 --> if_exSimple0 + if_exSimple0: return %5 + + + "if_imbriq1"(%0, %1, %2): int -> int -> int -> int + locals: %4, %3, %5, %6, %7, %8 + result: %4 + stacksize: 0 + entry: if_imbriq116 + exit: if_imbriq10 + + if_imbriq19: eq %5, %6 --> if_imbriq16, if_imbriq18 + if_imbriq18: emit c27 --> if_imbriq17 + if_imbriq17: mov %3, %1 --> if_imbriq12 + if_imbriq16: emit c26 --> if_imbriq15 + if_imbriq15: mov %3, %2 --> if_imbriq12 + if_imbriq14: emit c25 --> if_imbriq13 + if_imbriq13: mov %3, %0 --> if_imbriq12 + if_imbriq12: emit c24 --> if_imbriq11 + if_imbriq116: emit c29 --> if_imbriq115 + if_imbriq115: imm_int 0, %8, --> if_imbriq114 + if_imbriq114: lt %7, %0, %1 --> if_imbriq113 + if_imbriq113: eq %7, %8 --> if_imbriq14, if_imbriq112 + if_imbriq112: emit c28 --> if_imbriq111 + if_imbriq111: imm_int 0, %6, --> if_imbriq110 + if_imbriq110: lt %5, %1, %2 --> if_imbriq19 + if_imbriq11: mov %4, %3 --> if_imbriq10 + if_imbriq10: return %4 + + + "if_imbriq2"(%0, %1, %2): int -> int -> int -> int + locals: %4, %3, %5, %6, %7, %8 + result: %4 + stacksize: 0 + entry: if_imbriq216 + exit: if_imbriq20 + + if_imbriq29: eq %5, %6 --> if_imbriq26, if_imbriq28 + if_imbriq28: emit c33 --> if_imbriq27 + if_imbriq27: mov %3, %1 --> if_imbriq22 + if_imbriq26: emit c32 --> if_imbriq25 + if_imbriq25: imm_int 47, %3, --> if_imbriq22 + if_imbriq24: emit c31 --> if_imbriq23 + if_imbriq23: mov %3, %0 --> if_imbriq22 + if_imbriq22: emit c30 --> if_imbriq21 + if_imbriq216: emit c35 --> if_imbriq215 + if_imbriq215: imm_int 0, %8, --> if_imbriq214 + if_imbriq214: lt %7, %0, %1 --> if_imbriq213 + if_imbriq213: eq %7, %8 --> if_imbriq24, if_imbriq212 + if_imbriq212: emit c34 --> if_imbriq211 + if_imbriq211: imm_int 0, %6, --> if_imbriq210 + if_imbriq210: lt %5, %1, %2 --> if_imbriq29 + if_imbriq21: mov %4, %3 --> if_imbriq20 + if_imbriq20: return %4 + + + "if_min"(%0, %1): int -> int -> int + locals: %3, %2, %4, %5 + result: %3 + stacksize: 0 + entry: if_min10 + exit: if_min0 + + if_min9: imm_int 0, %5, --> if_min8 + if_min8: gt %4, %0, %1 --> if_min7 + if_min7: eq %4, %5 --> if_min4, if_min6 + if_min6: emit c38 --> if_min5 + if_min5: mov %2, %1 --> if_min2 + if_min4: emit c37 --> if_min3 + if_min3: mov %2, %0 --> if_min2 + if_min2: emit c36 --> if_min1 + if_min10: emit c39 --> if_min9 + if_min1: mov %3, %2 --> if_min0 + if_min0: return %3 + + + "if_prog"(%0, %1): int -> int -> int + locals: %4, %2, %3, %5, %6, %7 + result: %4 + stacksize: 0 + entry: if_prog13 + exit: if_prog0 + + if_prog9: imm_int 0, %7, --> if_prog8 + if_prog8: lt %5, %2, %7 --> if_prog7 + if_prog7: eq %5, %6 --> if_prog4, if_prog6 + if_prog6: emit c42 --> if_prog5 + if_prog5: imm_int 2, %3, --> if_prog2 + if_prog4: emit c41 --> if_prog3 + if_prog3: imm_int 3, %3, --> if_prog2 + if_prog2: emit c40 --> if_prog1 + if_prog13: emit c44 --> if_prog12 + if_prog12: add %2, %1, %0 --> if_prog11 + if_prog11: emit c43 --> if_prog10 + if_prog10: imm_int 0, %6, --> if_prog9 + if_prog1: mov %4, %3 --> if_prog0 + if_prog0: return %4 + + + "if_sansElse"(%0, %1): int -> int -> int + locals: %3, %2, %4, %5 + result: %3 + stacksize: 0 + entry: if_sansElse10 + exit: if_sansElse0 + + if_sansElse9: imm_int 0, %2, --> if_sansElse8 + if_sansElse8: emit c47 --> if_sansElse7 + if_sansElse7: imm_int 0, %5, --> if_sansElse6 + if_sansElse6: lt %4, %0, %1 --> if_sansElse5 + if_sansElse5: eq %4, %5 --> if_sansElse2, if_sansElse4 + if_sansElse4: emit c46 --> if_sansElse3 + if_sansElse3: mov %2, %0 --> if_sansElse2 + if_sansElse2: emit c45 --> if_sansElse1 + if_sansElse10: emit c48 --> if_sansElse9 + if_sansElse1: mov %3, %2 --> if_sansElse0 + if_sansElse0: return %3 + + + "if_test"(%0, %1, %2, %3): int -> int -> int -> int -> int + locals: %9, %4, %5, %6, %7, %8, %10, %11, %12, %13, %14 + result: %9 + stacksize: 0 + entry: if_test31 + exit: if_test0 + + if_test9: emit c52 --> if_test8 + if_test8: add %7, %8, %2 --> if_test7 + if_test7: emit c51 --> if_test6 + if_test6: imm_int 1, %10, --> if_test5 + if_test5: add %5, %4, %10 --> if_test4 + if_test4: emit c50 --> if_test3 + if_test31: emit c61 --> if_test30 + if_test30: imm_int 0, %4, --> if_test29 + if_test3: add %6, %4, %7 --> if_test2 + if_test29: emit c60 --> if_test28 + if_test28: imm_int 0, %5, --> if_test27 + if_test27: emit c59 --> if_test26 + if_test26: imm_int 0, %6, --> if_test25 + if_test25: emit c58 --> if_test24 + if_test24: imm_int 0, %7, --> if_test23 + if_test23: emit c57 --> if_test22 + if_test22: imm_int 0, %8, --> if_test21 + if_test21: emit c56 --> if_test20 + if_test20: imm_int 0, %14, --> if_test19 + if_test2: emit c49 --> if_test1 + if_test19: lt %13, %0, %1 --> if_test18 + if_test18: eq %13, %14 --> if_test15, if_test17 + if_test17: emit c55 --> if_test16 + if_test16: add %4, %0, %1 --> if_test15 + if_test15: emit c54 --> if_test14 + if_test14: imm_int 0, %12, --> if_test13 + if_test13: lt %11, %2, %3 --> if_test12 + if_test12: eq %11, %12 --> if_test7, if_test11 + if_test11: emit c53 --> if_test10 + if_test10: add %8, %2, %3 --> if_test9 + if_test1: mov %9, %4 --> if_test0 + if_test0: return %9 + + + "if_ual"(%0, %1, %2): int -> int -> int -> int + locals: %4, %3, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24 + result: %4 + stacksize: 0 + entry: if_ual50 + exit: if_ual0 + + if_ual9: imm_int 1, %3, --> if_ual2 + if_ual8: imm_int 0, %6, --> if_ual7 + if_ual7: emit c63 --> if_ual6 + if_ual6: mov %5, %2 --> if_ual5 + if_ual50: emit c74 --> if_ual49 + if_ual5: eq %5, %6 --> if_ual3, if_ual4 + if_ual49: imm_int 0, %23, --> if_ual48 + if_ual48: imm_int 0, %24, --> if_ual47 + if_ual47: eq %22, %0, %24 --> if_ual46 + if_ual46: eq %22, %23 --> if_ual43, if_ual45 + if_ual45: emit c73 --> if_ual44 + if_ual44: add %3, %1, %2 --> if_ual2 + if_ual43: emit c72 --> if_ual42 + if_ual42: imm_int 0, %20, --> if_ual41 + if_ual41: imm_int 1, %21, --> if_ual40 + if_ual40: eq %19, %0, %21 --> if_ual39 + if_ual4: imm_int 1, %3, --> if_ual2 + if_ual39: eq %19, %20 --> if_ual36, if_ual38 + if_ual38: emit c71 --> if_ual37 + if_ual37: sub %3, %1, %2 --> if_ual2 + if_ual36: emit c70 --> if_ual35 + if_ual35: imm_int 0, %17, --> if_ual34 + if_ual34: imm_int 2, %18, --> if_ual33 + if_ual33: eq %16, %0, %18 --> if_ual32 + if_ual32: eq %16, %17 --> if_ual19, if_ual31 + if_ual31: emit c69 --> if_ual30 + if_ual30: imm_int 0, %15, --> if_ual29 + if_ual3: imm_int 0, %3, --> if_ual2 + if_ual29: emit c68 --> if_ual28 + if_ual28: mov %14, %1 --> if_ual27 + if_ual27: eq %14, %15 --> if_ual20, if_ual26 + if_ual26: imm_int 0, %13, --> if_ual25 + if_ual25: emit c67 --> if_ual24 + if_ual24: mov %12, %2 --> if_ual23 + if_ual23: eq %12, %13 --> if_ual21, if_ual22 + if_ual22: imm_int 1, %3, --> if_ual2 + if_ual21: imm_int 0, %3, --> if_ual2 + if_ual20: imm_int 0, %3, --> if_ual2 + if_ual2: emit c62 --> if_ual1 + if_ual19: emit c66 --> if_ual18 + if_ual18: imm_int 0, %10, --> if_ual17 + if_ual17: imm_int 3, %11, --> if_ual16 + if_ual16: eq %9, %0, %11 --> if_ual15 + if_ual15: eq %9, %10 --> if_ual2, if_ual14 + if_ual14: emit c65 --> if_ual13 + if_ual13: imm_int 0, %8, --> if_ual12 + if_ual12: emit c64 --> if_ual11 + if_ual11: mov %7, %1 --> if_ual10 + if_ual10: eq %7, %8 --> if_ual8, if_ual9 + if_ual1: mov %4, %3 --> if_ual0 + if_ual0: return %4 + + + "main"(): int + locals: %1, %0, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31 + result: %1 + stacksize: 0 + entry: main50 + exit: main0 + + main9: imm_int 4, %8, --> main8 + main8: call "if_test", %5, %6, %7, %8, %0: int -> int -> int -> int -> int --> main7 + main7: emit c76 --> main6 + main6: imm_int 1, %2, --> main5 + main50: emit c84 --> main49 + main5: imm_int 2, %3, --> main4 + main49: imm_int 1, %23, --> main48 + main48: imm_int 2, %24, --> main47 + main47: imm_int 3, %25, --> main46 + main46: imm_int 4, %26, --> main45 + main45: imm_int 5, %27, --> main44 + main44: imm_int 6, %28, --> main43 + main43: imm_int 7, %29, --> main42 + main42: imm_int 8, %30, --> main41 + main41: imm_int 9, %31, --> main40 + main40: call "if_jian", %23, %24, %25, %26, %27, %28, %29, %30, %31, %0: int -> int -> int -> int -> int -> int -> int -> int -> int -> int --> main39 + main4: imm_int 3, %4, --> main3 + main39: emit c83 --> main38 + main38: imm_int 1, %21, --> main37 + main37: imm_int 2, %22, --> main36 + main36: call "if_exSimple", %21, %22, %0: int -> int -> int --> main35 + main35: emit c82 --> main34 + main34: imm_int 1, %18, --> main33 + main33: imm_int 2, %19, --> main32 + main32: imm_int 3, %20, --> main31 + main31: call "if_imbriq1", %18, %19, %20, %0: int -> int -> int -> int --> main30 + main30: emit c81 --> main29 + main3: call "if_ual", %2, %3, %4, %0: int -> int -> int -> int --> main2 + main29: imm_int 1, %15, --> main28 + main28: imm_int 2, %16, --> main27 + main27: imm_int 3, %17, --> main26 + main26: call "if_imbriq2", %15, %16, %17, %0: int -> int -> int -> int --> main25 + main25: emit c80 --> main24 + main24: imm_int 1, %13, --> main23 + main23: imm_int 2, %14, --> main22 + main22: call "if_min", %13, %14, %0: int -> int -> int --> main21 + main21: emit c79 --> main20 + main20: imm_int 1, %11, --> main19 + main2: emit c75 --> main1 + main19: imm_int 2, %12, --> main18 + main18: call "if_prog", %11, %12, %0: int -> int -> int --> main17 + main17: emit c78 --> main16 + main16: imm_int 1, %9, --> main15 + main15: imm_int 2, %10, --> main14 + main14: call "if_sansElse", %9, %10, %0: int -> int -> int --> main13 + main13: emit c77 --> main12 + main12: imm_int 1, %5, --> main11 + main11: imm_int 2, %6, --> main10 + main10: imm_int 3, %7, --> main9 + main1: mov %1, %0 --> main0 + main0: return %1 + + diff --git a/tests/clight/ifthenelse.c b/tests/clight/ifthenelse.c new file mode 100644 index 0000000..407e15e --- /dev/null +++ b/tests/clight/ifthenelse.c @@ -0,0 +1,154 @@ +int if_jian(int a, int b, int c, int d, int e, int f,int g, int x, int y){ + int u,v; + int t1,t2,t3,t4,t5; + + t1 = (a+b) b) { + min=b; + } + else { + min=a; + } + return min; +} + +int if_prog(int j,int i){ + int a,b; + a=i+j; + if(a<0){ + b=2; + } + else { + b=3; + } + return b; +} + +int if_sansElse (int a, int b) { + int c = 0; + if (a < b) { + c = a; + } + return c; +} + +int if_test(int a, int b, int x, int y) { + int c =0, d=0, v=0, w=0, z = 0; + if (a b) { + min=b; + } + else { + min=a; + } + return min; +} + +int if_prog(int j,int i){ + int a,b; + a=i+j; + if(a<0){ + b=2; + } + else { + b=3; + } + return b; +} + +int if_sansElse (int a, int b) { + int c = 0; + if (a < b) { + c = a; + } + return c; +} + +int if_test(int a, int b, int x, int y) { + int c =0, d=0, v=0, w=0, z = 0; + if (a void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 0 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main171 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin tri +tri121: +c12: +c11: +c10: +li $t0, 0 +tri53: +li $a2, 0 +c9: +slt $v0, $t0, $a1 +seq $v0, $v0, $zero +beq $v0, $a2, tri48 +jr $ra +tri48: +c7: +c6: +li $t1, 1 +tri45: +li $a2, 0 +c5: +sub $v0, $a1, $t0 +slt $v0, $t1, $v0 +seq $v0, $v0, $zero +beq $v0, $a2, tri39 +c8: +li $v0, 1 +add $t0, $t0, $v0 +j tri53 +tri39: +c3: +li $v0, 4 +mulo $v0, $t1, $v0 +add $v0, $a0, $v0 +lw $a3, 0($v0) +li $v0, 1 +sub $a2, $t1, $v0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +slt $v0, $a3, $v0 +beq $v0, $zero, tri8 +c2: +li $v0, 1 +sub $a2, $t1, $v0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $t2, 0($v0) +c1: +li $v0, 4 +mulo $v0, $t1, $v0 +add $v0, $a0, $v0 +lw $a3, 0($v0) +li $v0, 1 +sub $a2, $t1, $v0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +sw $a3, 0($v0) +c0: +li $v0, 4 +mulo $v0, $t1, $v0 +add $v0, $a0, $v0 +sw $t2, 0($v0) +tri8: +c4: +li $v0, 1 +add $t1, $t1, $v0 +j tri45 +# end tri + + +# begin _main +main171: +addi $sp, $sp, -44 +sw $ra, 40($sp) +c24: +li $a1, 10 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c23: +li $a2, 9 +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c22: +li $a2, 8 +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c21: +li $a2, 7 +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c20: +li $a2, 6 +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c19: +li $a2, 5 +move $a1, $sp +li $a0, 5 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c18: +li $a2, 4 +move $a1, $sp +li $a0, 6 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c17: +li $a2, 3 +move $a1, $sp +li $a0, 7 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c16: +li $a2, 2 +move $a1, $sp +li $a0, 8 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c15: +li $a2, 1 +move $a1, $sp +li $a0, 9 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c14: +move $a0, $sp +li $a1, 10 +la $v0, tri121 +jalr $v0 +c13: +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $sp, $v0 +lw $v0, 0($v0) +lw $ra, 40($sp) +addi $sp, $sp, 44 +jr $ra +# end _main diff --git a/tests/clight/testCOMP_tri.Clight.expected b/tests/clight/testCOMP_tri.Clight.expected new file mode 100644 index 0000000..d8a40ee --- /dev/null +++ b/tests/clight/testCOMP_tri.Clight.expected @@ -0,0 +1,318 @@ +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +void tri(int *t, int n) +{ + int i; + int j; + int tmp; + c12: + tmp = 0; + c11: + for (({ c10: i = 0; }); (/* c9 */ i < n); ({ c8: i = i + 1; })) { + c7: + for (({ c6: j = 1; }); (/* c5 */ j < n - i); ({ c4: j = j + 1; })) { + c3: + if (t[j] < t[(j - 1)]) { + c2: + tmp = t[(j - 1)]; + c1: + t[(j - 1)] = t[j]; + c0: + t[j] = tmp; + } + } + } +} + +int main(void) +{ + int t[10]; + c24: + t[0] = 10; + c23: + t[1] = 9; + c22: + t[2] = 8; + c21: + t[3] = 7; + c20: + t[4] = 6; + c19: + t[5] = 5; + c18: + t[6] = 4; + c17: + t[7] = 3; + c16: + t[8] = 2; + c15: + t[9] = 1; + c14: + tri(t, 10); + c13: + return t[0]; +} + + diff --git a/tests/clight/testCOMP_tri.Cminor.expected b/tests/clight/testCOMP_tri.Cminor.expected new file mode 100644 index 0000000..7a7a1b2 --- /dev/null +++ b/tests/clight/testCOMP_tri.Cminor.expected @@ -0,0 +1,486 @@ + + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"tri" (t, n) : int -> int -> void { + + stack 0; + + var tmp, j, i; + + c12: + tmp = 0; + c11: + c10: + i = 0; + block { + loop { + if (!(/* c9 */ i < n)) { + exit 0; + } + else { + } + block { + c7: + c6: + j = 1; + block { + loop { + if (!(/* c5 */ j < (n - i))) { + exit 0; + } + else { + } + block { + c3: + if (int32[t + (j * 4)] < int32[t + ((j - 1) * 4)]) { + c2: + tmp = int32[t + ((j - 1) * 4)]; + c1: + int32[t + ((j - 1) * 4)] = int32[t + (j * 4)]; + c0: + int32[t + (j * 4)] = tmp; + } + else { + } + } + c4: + j = j + 1; + } + } + } + c8: + i = i + 1; + } + } + +} + + +"main" () : int { + + stack 40; + + c24: + int32[&0 + (0 * 4)] = 10; + c23: + int32[&0 + (1 * 4)] = 9; + c22: + int32[&0 + (2 * 4)] = 8; + c21: + int32[&0 + (3 * 4)] = 7; + c20: + int32[&0 + (4 * 4)] = 6; + c19: + int32[&0 + (5 * 4)] = 5; + c18: + int32[&0 + (6 * 4)] = 4; + c17: + int32[&0 + (7 * 4)] = 3; + c16: + int32[&0 + (8 * 4)] = 2; + c15: + int32[&0 + (9 * 4)] = 1; + c14: + "tri"(&0, 10) : int -> int -> void; + c13: + return int32[&0 + (0 * 4)]; + +} + + diff --git a/tests/clight/testCOMP_tri.ERTL.expected b/tests/clight/testCOMP_tri.ERTL.expected new file mode 100644 index 0000000..e6ed203 --- /dev/null +++ b/tests/clight/testCOMP_tri.ERTL.expected @@ -0,0 +1,761 @@ +program + +globals 0 + +procedure tri(2) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53 +entry tri121 +tri121: newframe --> tri120 +tri120: move %53, $ra --> tri119 +tri119: move %52, $s7 --> tri118 +tri118: move %51, $s6 --> tri117 +tri117: move %50, $s5 --> tri116 +tri116: move %49, $s4 --> tri115 +tri115: move %48, $s3 --> tri114 +tri114: move %47, $s2 --> tri113 +tri113: move %46, $s1 --> tri112 +tri112: move %45, $s0 --> tri111 +tri111: move %0, $a0 --> tri110 +tri110: move %1, $a1 --> tri109 +tri109: li %2, 0 --> tri108 +tri108: li %3, 0 --> tri107 +tri107: li %4, 0 --> tri106 +tri106: li %5, 0 --> tri105 +tri105: li %6, 0 --> tri104 +tri104: li %7, 0 --> tri103 +tri103: li %8, 0 --> tri102 +tri102: li %9, 0 --> tri101 +tri101: li %10, 0 --> tri100 +tri100: li %11, 0 --> tri99 +tri99 : li %12, 0 --> tri98 +tri98 : li %13, 0 --> tri97 +tri97 : li %14, 0 --> tri96 +tri96 : li %15, 0 --> tri95 +tri95 : li %16, 0 --> tri94 +tri94 : li %17, 0 --> tri93 +tri93 : li %18, 0 --> tri92 +tri92 : li %19, 0 --> tri91 +tri91 : li %20, 0 --> tri90 +tri90 : li %21, 0 --> tri89 +tri89 : li %22, 0 --> tri88 +tri88 : li %23, 0 --> tri87 +tri87 : li %24, 0 --> tri86 +tri86 : li %25, 0 --> tri85 +tri85 : li %26, 0 --> tri84 +tri84 : li %27, 0 --> tri83 +tri83 : li %28, 0 --> tri82 +tri82 : li %29, 0 --> tri81 +tri81 : li %30, 0 --> tri80 +tri80 : li %31, 0 --> tri79 +tri79 : li %32, 0 --> tri78 +tri78 : li %33, 0 --> tri77 +tri77 : li %34, 0 --> tri76 +tri76 : li %35, 0 --> tri75 +tri75 : li %36, 0 --> tri74 +tri74 : li %37, 0 --> tri73 +tri73 : li %38, 0 --> tri72 +tri72 : li %39, 0 --> tri71 +tri71 : li %40, 0 --> tri70 +tri70 : li %41, 0 --> tri69 +tri69 : li %42, 0 --> tri68 +tri68 : li %43, 0 --> tri67 +tri67 : li %44, 0 --> tri58 +tri58 : emit c12 --> tri57 +tri57 : li %2, 0 --> tri56 +tri56 : emit c11 --> tri55 +tri55 : emit c10 --> tri54 +tri54 : li %4, 0 --> tri1 +tri1 : j --> tri53 +tri53 : li %35, 0 --> tri52 +tri52 : emit c9 --> tri51 +tri51 : slt %36, %4, %1 --> tri50 +tri50 : li %43, 0 --> tri65 +tri65 : seq %34, %36, %43 --> tri49 +tri49 : beq %34, %35 --> tri48, tri0 +tri0 : j --> tri132 +tri132: move $ra, %53 --> tri131 +tri131: move $s7, %52 --> tri130 +tri130: move $s6, %51 --> tri129 +tri129: move $s5, %50 --> tri128 +tri128: move $s4, %49 --> tri127 +tri127: move $s3, %48 --> tri126 +tri126: move $s2, %47 --> tri125 +tri125: move $s1, %46 --> tri124 +tri124: move $s0, %45 --> tri123 +tri123: delframe --> tri122 +tri122: jr $ra +tri48 : emit c7 --> tri47 +tri47 : emit c6 --> tri46 +tri46 : li %3, 1 --> tri5 +tri5 : j --> tri45 +tri45 : li %31, 0 --> tri44 +tri44 : emit c5 --> tri43 +tri43 : sub %33, %1, %4 --> tri42 +tri42 : slt %32, %3, %33 --> tri41 +tri41 : li %42, 0 --> tri64 +tri64 : seq %30, %32, %42 --> tri40 +tri40 : beq %30, %31 --> tri39, tri4 +tri4 : emit c8 --> tri3 +tri3 : li %5, 1 --> tri2 +tri2 : add %4, %4, %5 --> tri1 +tri39 : emit c3 --> tri38 +tri38 : li %21, 0 --> tri37 +tri37 : li %29, 4 --> tri36 +tri36 : mulo %28, %3, %29 --> tri35 +tri35 : add %41, %0, %28 --> tri63 +tri63 : lw %22, 0(%41) --> tri34 +tri34 : li %27, 1 --> tri33 +tri33 : sub %25, %3, %27 --> tri32 +tri32 : li %26, 4 --> tri31 +tri31 : mulo %24, %25, %26 --> tri30 +tri30 : add %40, %0, %24 --> tri62 +tri62 : lw %23, 0(%40) --> tri29 +tri29 : slt %20, %22, %23 --> tri28 +tri28 : beq %20, %21 --> tri8, tri27 +tri27 : emit c2 --> tri26 +tri26 : li %19, 1 --> tri25 +tri25 : sub %17, %3, %19 --> tri24 +tri24 : li %18, 4 --> tri23 +tri23 : mulo %16, %17, %18 --> tri22 +tri22 : add %39, %0, %16 --> tri61 +tri61 : lw %2, 0(%39) --> tri21 +tri21 : emit c1 --> tri20 +tri20 : li %15, 4 --> tri19 +tri19 : mulo %14, %3, %15 --> tri18 +tri18 : add %38, %0, %14 --> tri60 +tri60 : lw %9, 0(%38) --> tri17 +tri17 : li %13, 1 --> tri16 +tri16 : sub %11, %3, %13 --> tri15 +tri15 : li %12, 4 --> tri14 +tri14 : mulo %10, %11, %12 --> tri13 +tri13 : add %37, %0, %10 --> tri59 +tri59 : sw %9, 0(%37) --> tri12 +tri12 : emit c0 --> tri11 +tri11 : li %8, 4 --> tri10 +tri10 : mulo %7, %3, %8 --> tri9 +tri9 : add %44, %0, %7 --> tri66 +tri66 : sw %2, 0(%44) --> tri8 +tri8 : emit c4 --> tri7 +tri7 : li %6, 1 --> tri6 +tri6 : add %3, %3, %6 --> tri5 + +procedure _main(0) +stacksize 40 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78 +entry main171 +main171: newframe --> main170 +main170: move %78, $ra --> main169 +main169: move %77, $s7 --> main168 +main168: move %76, $s6 --> main167 +main167: move %75, $s5 --> main166 +main166: move %74, $s4 --> main165 +main165: move %73, $s3 --> main164 +main164: move %72, $s2 --> main163 +main163: move %71, $s1 --> main162 +main162: move %70, $s0 --> main161 +main161: li %1, 0 --> main160 +main160: li %2, 0 --> main159 +main159: li %3, 0 --> main158 +main158: li %4, 0 --> main157 +main157: li %5, 0 --> main156 +main156: li %6, 0 --> main155 +main155: li %7, 0 --> main154 +main154: li %8, 0 --> main153 +main153: li %9, 0 --> main152 +main152: li %10, 0 --> main151 +main151: li %11, 0 --> main150 +main150: li %12, 0 --> main149 +main149: li %13, 0 --> main148 +main148: li %14, 0 --> main147 +main147: li %15, 0 --> main146 +main146: li %16, 0 --> main145 +main145: li %17, 0 --> main144 +main144: li %18, 0 --> main143 +main143: li %19, 0 --> main142 +main142: li %20, 0 --> main141 +main141: li %21, 0 --> main140 +main140: li %22, 0 --> main139 +main139: li %23, 0 --> main138 +main138: li %24, 0 --> main137 +main137: li %25, 0 --> main136 +main136: li %26, 0 --> main135 +main135: li %27, 0 --> main134 +main134: li %28, 0 --> main133 +main133: li %29, 0 --> main132 +main132: li %30, 0 --> main131 +main131: li %31, 0 --> main130 +main130: li %32, 0 --> main129 +main129: li %33, 0 --> main128 +main128: li %34, 0 --> main127 +main127: li %35, 0 --> main126 +main126: li %36, 0 --> main125 +main125: li %37, 0 --> main124 +main124: li %38, 0 --> main123 +main123: li %39, 0 --> main122 +main122: li %40, 0 --> main121 +main121: li %41, 0 --> main120 +main120: li %42, 0 --> main119 +main119: li %43, 0 --> main118 +main118: li %44, 0 --> main117 +main117: li %45, 0 --> main116 +main116: li %46, 0 --> main115 +main115: li %47, 0 --> main114 +main114: li %48, 0 --> main113 +main113: li %49, 0 --> main112 +main112: li %50, 0 --> main111 +main111: li %51, 0 --> main110 +main110: li %52, 0 --> main109 +main109: li %53, 0 --> main108 +main108: li %54, 0 --> main107 +main107: li %55, 0 --> main106 +main106: li %56, 0 --> main105 +main105: li %57, 0 --> main104 +main104: li %58, 0 --> main103 +main103: li %59, 0 --> main102 +main102: li %60, 0 --> main101 +main101: li %61, 0 --> main100 +main100: li %62, 0 --> main99 +main99 : li %63, 0 --> main98 +main98 : li %64, 0 --> main97 +main97 : li %65, 0 --> main96 +main96 : li %66, 0 --> main95 +main95 : li %67, 0 --> main94 +main94 : li %68, 0 --> main93 +main93 : li %69, 0 --> main80 +main80 : emit c24 --> main79 +main79 : li %53, 10 --> main78 +main78 : move %54, $sp --> main194 +main194: move %54, %54 --> main77 +main77 : li %56, 0 --> main76 +main76 : li %57, 4 --> main75 +main75 : mulo %55, %56, %57 --> main74 +main74 : add %69, %54, %55 --> main92 +main92 : sw %53, 0(%69) --> main73 +main73 : emit c23 --> main72 +main72 : li %48, 9 --> main71 +main71 : move %49, $sp --> main193 +main193: move %49, %49 --> main70 +main70 : li %51, 1 --> main69 +main69 : li %52, 4 --> main68 +main68 : mulo %50, %51, %52 --> main67 +main67 : add %67, %49, %50 --> main90 +main90 : sw %48, 0(%67) --> main66 +main66 : emit c22 --> main65 +main65 : li %43, 8 --> main64 +main64 : move %44, $sp --> main192 +main192: move %44, %44 --> main63 +main63 : li %46, 2 --> main62 +main62 : li %47, 4 --> main61 +main61 : mulo %45, %46, %47 --> main60 +main60 : add %66, %44, %45 --> main89 +main89 : sw %43, 0(%66) --> main59 +main59 : emit c21 --> main58 +main58 : li %38, 7 --> main57 +main57 : move %39, $sp --> main191 +main191: move %39, %39 --> main56 +main56 : li %41, 3 --> main55 +main55 : li %42, 4 --> main54 +main54 : mulo %40, %41, %42 --> main53 +main53 : add %65, %39, %40 --> main88 +main88 : sw %38, 0(%65) --> main52 +main52 : emit c20 --> main51 +main51 : li %33, 6 --> main50 +main50 : move %34, $sp --> main190 +main190: move %34, %34 --> main49 +main49 : li %36, 4 --> main48 +main48 : li %37, 4 --> main47 +main47 : mulo %35, %36, %37 --> main46 +main46 : add %64, %34, %35 --> main87 +main87 : sw %33, 0(%64) --> main45 +main45 : emit c19 --> main44 +main44 : li %28, 5 --> main43 +main43 : move %29, $sp --> main188 +main188: move %29, %29 --> main42 +main42 : li %31, 5 --> main41 +main41 : li %32, 4 --> main40 +main40 : mulo %30, %31, %32 --> main39 +main39 : add %63, %29, %30 --> main86 +main86 : sw %28, 0(%63) --> main38 +main38 : emit c18 --> main37 +main37 : li %23, 4 --> main36 +main36 : move %24, $sp --> main187 +main187: move %24, %24 --> main35 +main35 : li %26, 6 --> main34 +main34 : li %27, 4 --> main33 +main33 : mulo %25, %26, %27 --> main32 +main32 : add %62, %24, %25 --> main85 +main85 : sw %23, 0(%62) --> main31 +main31 : emit c17 --> main30 +main30 : li %18, 3 --> main29 +main29 : move %19, $sp --> main186 +main186: move %19, %19 --> main28 +main28 : li %21, 7 --> main27 +main27 : li %22, 4 --> main26 +main26 : mulo %20, %21, %22 --> main25 +main25 : add %61, %19, %20 --> main84 +main84 : sw %18, 0(%61) --> main24 +main24 : emit c16 --> main23 +main23 : li %13, 2 --> main22 +main22 : move %14, $sp --> main185 +main185: move %14, %14 --> main21 +main21 : li %16, 8 --> main20 +main20 : li %17, 4 --> main19 +main19 : mulo %15, %16, %17 --> main18 +main18 : add %60, %14, %15 --> main83 +main83 : sw %13, 0(%60) --> main17 +main17 : emit c15 --> main16 +main16 : li %8, 1 --> main15 +main15 : move %9, $sp --> main184 +main184: move %9, %9 --> main14 +main14 : li %11, 9 --> main13 +main13 : li %12, 4 --> main12 +main12 : mulo %10, %11, %12 --> main11 +main11 : add %59, %9, %10 --> main82 +main82 : sw %8, 0(%59) --> main10 +main10 : emit c14 --> main9 +main9 : move %5, $sp --> main195 +main195: move %5, %5 --> main8 +main8 : li %6, 10 --> main7 +main7 : la %68, tri --> main91 +main91 : j --> main199 +main199: move $a0, %5 --> main198 +main198: move $a1, %6 --> main197 +main197: call %68(2) --> main196 +main196: move %7, $v0 --> main6 +main6 : emit c13 --> main5 +main5 : move %1, $sp --> main189 +main189: move %1, %1 --> main4 +main4 : li %3, 0 --> main3 +main3 : li %4, 4 --> main2 +main2 : mulo %2, %3, %4 --> main1 +main1 : add %58, %1, %2 --> main81 +main81 : lw %0, 0(%58) --> main0 +main0 : j --> main183 +main183: move $v0, %0 --> main182 +main182: move $ra, %78 --> main181 +main181: move $s7, %77 --> main180 +main180: move $s6, %76 --> main179 +main179: move $s5, %75 --> main178 +main178: move $s4, %74 --> main177 +main177: move $s3, %73 --> main176 +main176: move $s2, %72 --> main175 +main175: move $s1, %71 --> main174 +main174: move $s0, %70 --> main173 +main173: delframe --> main172 +main172: jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testCOMP_tri.LIN.expected b/tests/clight/testCOMP_tri.LIN.expected new file mode 100644 index 0000000..230c10b --- /dev/null +++ b/tests/clight/testCOMP_tri.LIN.expected @@ -0,0 +1,572 @@ +program + +globals 0 + +procedure tri(2) +var 0 +tri121: +newframe +c12: +c11: +c10: +li $t0, 0 +tri53: +li $a2, 0 +c9: +slt $v0, $t0, $a1 +seq $v0, $v0, $zero +beq $v0, $a2, tri48 +delframe +jr $ra +tri48: +c7: +c6: +li $t1, 1 +tri45: +li $a2, 0 +c5: +sub $v0, $a1, $t0 +slt $v0, $t1, $v0 +seq $v0, $v0, $zero +beq $v0, $a2, tri39 +c8: +li $v0, 1 +add $t0, $t0, $v0 +j tri53 +tri39: +c3: +li $v0, 4 +mulo $v0, $t1, $v0 +add $v0, $a0, $v0 +lw $a3, 0($v0) +li $v0, 1 +sub $a2, $t1, $v0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +slt $v0, $a3, $v0 +beq $v0, $zero, tri8 +c2: +li $v0, 1 +sub $a2, $t1, $v0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $t2, 0($v0) +c1: +li $v0, 4 +mulo $v0, $t1, $v0 +add $v0, $a0, $v0 +lw $a3, 0($v0) +li $v0, 1 +sub $a2, $t1, $v0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +sw $a3, 0($v0) +c0: +li $v0, 4 +mulo $v0, $t1, $v0 +add $v0, $a0, $v0 +sw $t2, 0($v0) +tri8: +c4: +li $v0, 1 +add $t1, $t1, $v0 +j tri45 + +procedure _main(0) +var 44 +main171: +newframe +sw $ra, 40($sp) +c24: +li $a1, 10 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c23: +li $a2, 9 +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c22: +li $a2, 8 +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c21: +li $a2, 7 +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c20: +li $a2, 6 +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c19: +li $a2, 5 +move $a1, $sp +li $a0, 5 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c18: +li $a2, 4 +move $a1, $sp +li $a0, 6 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c17: +li $a2, 3 +move $a1, $sp +li $a0, 7 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c16: +li $a2, 2 +move $a1, $sp +li $a0, 8 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c15: +li $a2, 1 +move $a1, $sp +li $a0, 9 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $a2, 0($v0) +c14: +move $a0, $sp +li $a1, 10 +la $v0, tri +call $v0 +c13: +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $sp, $v0 +lw $v0, 0($v0) +lw $ra, 40($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testCOMP_tri.LTL.expected b/tests/clight/testCOMP_tri.LTL.expected new file mode 100644 index 0000000..0defe4d --- /dev/null +++ b/tests/clight/testCOMP_tri.LTL.expected @@ -0,0 +1,741 @@ +program + +globals 0 + +procedure tri(2) +var 0 +entry tri121 +tri121: newframe --> tri120 +tri120: j --> tri119 +tri119: j --> tri118 +tri118: j --> tri117 +tri117: j --> tri116 +tri116: j --> tri115 +tri115: j --> tri114 +tri114: j --> tri113 +tri113: j --> tri112 +tri112: j --> tri111 +tri111: j --> tri110 +tri110: j --> tri109 +tri109: j --> tri108 +tri108: j --> tri107 +tri107: j --> tri106 +tri106: j --> tri105 +tri105: j --> tri104 +tri104: j --> tri103 +tri103: j --> tri102 +tri102: j --> tri101 +tri101: j --> tri100 +tri100: j --> tri99 +tri99 : j --> tri98 +tri98 : j --> tri97 +tri97 : j --> tri96 +tri96 : j --> tri95 +tri95 : j --> tri94 +tri94 : j --> tri93 +tri93 : j --> tri92 +tri92 : j --> tri91 +tri91 : j --> tri90 +tri90 : j --> tri89 +tri89 : j --> tri88 +tri88 : j --> tri87 +tri87 : j --> tri86 +tri86 : j --> tri85 +tri85 : j --> tri84 +tri84 : j --> tri83 +tri83 : j --> tri82 +tri82 : j --> tri81 +tri81 : j --> tri80 +tri80 : j --> tri79 +tri79 : j --> tri78 +tri78 : j --> tri77 +tri77 : j --> tri76 +tri76 : j --> tri75 +tri75 : j --> tri74 +tri74 : j --> tri73 +tri73 : j --> tri72 +tri72 : j --> tri71 +tri71 : j --> tri70 +tri70 : j --> tri69 +tri69 : j --> tri68 +tri68 : j --> tri67 +tri67 : j --> tri58 +tri58 : emit c12 --> tri57 +tri57 : j --> tri56 +tri56 : emit c11 --> tri55 +tri55 : emit c10 --> tri54 +tri54 : li $t0, 0 --> tri1 +tri1 : j --> tri53 +tri53 : li $a2, 0 --> tri52 +tri52 : emit c9 --> tri51 +tri51 : slt $v0, $t0, $a1 --> tri50 +tri50 : j --> tri65 +tri65 : seq $v0, $v0, $zero --> tri49 +tri49 : beq $v0, $a2 --> tri48, tri0 +tri0 : j --> tri132 +tri132: j --> tri131 +tri131: j --> tri130 +tri130: j --> tri129 +tri129: j --> tri128 +tri128: j --> tri127 +tri127: j --> tri126 +tri126: j --> tri125 +tri125: j --> tri124 +tri124: j --> tri123 +tri123: delframe --> tri122 +tri122: jr $ra +tri48 : emit c7 --> tri47 +tri47 : emit c6 --> tri46 +tri46 : li $t1, 1 --> tri5 +tri5 : j --> tri45 +tri45 : li $a2, 0 --> tri44 +tri44 : emit c5 --> tri43 +tri43 : sub $v0, $a1, $t0 --> tri42 +tri42 : slt $v0, $t1, $v0 --> tri41 +tri41 : j --> tri64 +tri64 : seq $v0, $v0, $zero --> tri40 +tri40 : beq $v0, $a2 --> tri39, tri4 +tri4 : emit c8 --> tri3 +tri3 : li $v0, 1 --> tri2 +tri2 : add $t0, $t0, $v0 --> tri1 +tri39 : emit c3 --> tri38 +tri38 : j --> tri37 +tri37 : li $v0, 4 --> tri36 +tri36 : mulo $v0, $t1, $v0 --> tri35 +tri35 : add $v0, $a0, $v0 --> tri63 +tri63 : lw $a3, 0($v0) --> tri34 +tri34 : li $v0, 1 --> tri33 +tri33 : sub $a2, $t1, $v0 --> tri32 +tri32 : li $v0, 4 --> tri31 +tri31 : mulo $v0, $a2, $v0 --> tri30 +tri30 : add $v0, $a0, $v0 --> tri62 +tri62 : lw $v0, 0($v0) --> tri29 +tri29 : slt $v0, $a3, $v0 --> tri28 +tri28 : beq $v0, $zero --> tri8, tri27 +tri27 : emit c2 --> tri26 +tri26 : li $v0, 1 --> tri25 +tri25 : sub $a2, $t1, $v0 --> tri24 +tri24 : li $v0, 4 --> tri23 +tri23 : mulo $v0, $a2, $v0 --> tri22 +tri22 : add $v0, $a0, $v0 --> tri61 +tri61 : lw $t2, 0($v0) --> tri21 +tri21 : emit c1 --> tri20 +tri20 : li $v0, 4 --> tri19 +tri19 : mulo $v0, $t1, $v0 --> tri18 +tri18 : add $v0, $a0, $v0 --> tri60 +tri60 : lw $a3, 0($v0) --> tri17 +tri17 : li $v0, 1 --> tri16 +tri16 : sub $a2, $t1, $v0 --> tri15 +tri15 : li $v0, 4 --> tri14 +tri14 : mulo $v0, $a2, $v0 --> tri13 +tri13 : add $v0, $a0, $v0 --> tri59 +tri59 : lw $a3, 0($v0) --> tri12 +tri12 : emit c0 --> tri11 +tri11 : li $v0, 4 --> tri10 +tri10 : mulo $v0, $t1, $v0 --> tri9 +tri9 : add $v0, $a0, $v0 --> tri66 +tri66 : lw $t2, 0($v0) --> tri8 +tri8 : emit c4 --> tri7 +tri7 : li $v0, 1 --> tri6 +tri6 : add $t1, $t1, $v0 --> tri5 + +procedure _main(0) +var 44 +entry main171 +main171: newframe --> main170 +main170: lw $ra, 40($sp) --> main169 +main169: j --> main168 +main168: j --> main167 +main167: j --> main166 +main166: j --> main165 +main165: j --> main164 +main164: j --> main163 +main163: j --> main162 +main162: j --> main161 +main161: j --> main160 +main160: j --> main159 +main159: j --> main158 +main158: j --> main157 +main157: j --> main156 +main156: j --> main155 +main155: j --> main154 +main154: j --> main153 +main153: j --> main152 +main152: j --> main151 +main151: j --> main150 +main150: j --> main149 +main149: j --> main148 +main148: j --> main147 +main147: j --> main146 +main146: j --> main145 +main145: j --> main144 +main144: j --> main143 +main143: j --> main142 +main142: j --> main141 +main141: j --> main140 +main140: j --> main139 +main139: j --> main138 +main138: j --> main137 +main137: j --> main136 +main136: j --> main135 +main135: j --> main134 +main134: j --> main133 +main133: j --> main132 +main132: j --> main131 +main131: j --> main130 +main130: j --> main129 +main129: j --> main128 +main128: j --> main127 +main127: j --> main126 +main126: j --> main125 +main125: j --> main124 +main124: j --> main123 +main123: j --> main122 +main122: j --> main121 +main121: j --> main120 +main120: j --> main119 +main119: j --> main118 +main118: j --> main117 +main117: j --> main116 +main116: j --> main115 +main115: j --> main114 +main114: j --> main113 +main113: j --> main112 +main112: j --> main111 +main111: j --> main110 +main110: j --> main109 +main109: j --> main108 +main108: j --> main107 +main107: j --> main106 +main106: j --> main105 +main105: j --> main104 +main104: j --> main103 +main103: j --> main102 +main102: j --> main101 +main101: j --> main100 +main100: j --> main99 +main99 : j --> main98 +main98 : j --> main97 +main97 : j --> main96 +main96 : j --> main95 +main95 : j --> main94 +main94 : j --> main93 +main93 : j --> main80 +main80 : emit c24 --> main79 +main79 : li $a1, 10 --> main78 +main78 : move $a0, $sp --> main194 +main194: j --> main77 +main77 : j --> main76 +main76 : li $v0, 4 --> main75 +main75 : mulo $v0, $zero, $v0 --> main74 +main74 : add $v0, $a0, $v0 --> main92 +main92 : lw $a1, 0($v0) --> main73 +main73 : emit c23 --> main72 +main72 : li $a2, 9 --> main71 +main71 : move $a1, $sp --> main193 +main193: j --> main70 +main70 : li $a0, 1 --> main69 +main69 : li $v0, 4 --> main68 +main68 : mulo $v0, $a0, $v0 --> main67 +main67 : add $v0, $a1, $v0 --> main90 +main90 : lw $a2, 0($v0) --> main66 +main66 : emit c22 --> main65 +main65 : li $a2, 8 --> main64 +main64 : move $a1, $sp --> main192 +main192: j --> main63 +main63 : li $a0, 2 --> main62 +main62 : li $v0, 4 --> main61 +main61 : mulo $v0, $a0, $v0 --> main60 +main60 : add $v0, $a1, $v0 --> main89 +main89 : lw $a2, 0($v0) --> main59 +main59 : emit c21 --> main58 +main58 : li $a2, 7 --> main57 +main57 : move $a1, $sp --> main191 +main191: j --> main56 +main56 : li $a0, 3 --> main55 +main55 : li $v0, 4 --> main54 +main54 : mulo $v0, $a0, $v0 --> main53 +main53 : add $v0, $a1, $v0 --> main88 +main88 : lw $a2, 0($v0) --> main52 +main52 : emit c20 --> main51 +main51 : li $a2, 6 --> main50 +main50 : move $a1, $sp --> main190 +main190: j --> main49 +main49 : li $a0, 4 --> main48 +main48 : li $v0, 4 --> main47 +main47 : mulo $v0, $a0, $v0 --> main46 +main46 : add $v0, $a1, $v0 --> main87 +main87 : lw $a2, 0($v0) --> main45 +main45 : emit c19 --> main44 +main44 : li $a2, 5 --> main43 +main43 : move $a1, $sp --> main188 +main188: j --> main42 +main42 : li $a0, 5 --> main41 +main41 : li $v0, 4 --> main40 +main40 : mulo $v0, $a0, $v0 --> main39 +main39 : add $v0, $a1, $v0 --> main86 +main86 : lw $a2, 0($v0) --> main38 +main38 : emit c18 --> main37 +main37 : li $a2, 4 --> main36 +main36 : move $a1, $sp --> main187 +main187: j --> main35 +main35 : li $a0, 6 --> main34 +main34 : li $v0, 4 --> main33 +main33 : mulo $v0, $a0, $v0 --> main32 +main32 : add $v0, $a1, $v0 --> main85 +main85 : lw $a2, 0($v0) --> main31 +main31 : emit c17 --> main30 +main30 : li $a2, 3 --> main29 +main29 : move $a1, $sp --> main186 +main186: j --> main28 +main28 : li $a0, 7 --> main27 +main27 : li $v0, 4 --> main26 +main26 : mulo $v0, $a0, $v0 --> main25 +main25 : add $v0, $a1, $v0 --> main84 +main84 : lw $a2, 0($v0) --> main24 +main24 : emit c16 --> main23 +main23 : li $a2, 2 --> main22 +main22 : move $a1, $sp --> main185 +main185: j --> main21 +main21 : li $a0, 8 --> main20 +main20 : li $v0, 4 --> main19 +main19 : mulo $v0, $a0, $v0 --> main18 +main18 : add $v0, $a1, $v0 --> main83 +main83 : lw $a2, 0($v0) --> main17 +main17 : emit c15 --> main16 +main16 : li $a2, 1 --> main15 +main15 : move $a1, $sp --> main184 +main184: j --> main14 +main14 : li $a0, 9 --> main13 +main13 : li $v0, 4 --> main12 +main12 : mulo $v0, $a0, $v0 --> main11 +main11 : add $v0, $a1, $v0 --> main82 +main82 : lw $a2, 0($v0) --> main10 +main10 : emit c14 --> main9 +main9 : move $a0, $sp --> main195 +main195: j --> main8 +main8 : li $a1, 10 --> main7 +main7 : la $v0, tri --> main91 +main91 : j --> main199 +main199: j --> main198 +main198: j --> main197 +main197: call $v0 --> main196 +main196: j --> main6 +main6 : emit c13 --> main5 +main5 : j --> main189 +main189: j --> main4 +main4 : j --> main3 +main3 : li $v0, 4 --> main2 +main2 : mulo $v0, $zero, $v0 --> main1 +main1 : add $v0, $sp, $v0 --> main81 +main81 : lw $v0, 0($v0) --> main0 +main0 : j --> main183 +main183: j --> main182 +main182: lw $ra, 40($sp) --> main181 +main181: j --> main180 +main180: j --> main179 +main179: j --> main178 +main178: j --> main177 +main177: j --> main176 +main176: j --> main175 +main175: j --> main174 +main174: j --> main173 +main173: delframe --> main172 +main172: jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testCOMP_tri.RTL.expected b/tests/clight/testCOMP_tri.RTL.expected new file mode 100644 index 0000000..315dc93 --- /dev/null +++ b/tests/clight/testCOMP_tri.RTL.expected @@ -0,0 +1,697 @@ +program + +globals 0 + +procedure tri(%0; %1) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44 +entry tri109 +tri109: li %2, 0 --> tri108 +tri108: li %3, 0 --> tri107 +tri107: li %4, 0 --> tri106 +tri106: li %5, 0 --> tri105 +tri105: li %6, 0 --> tri104 +tri104: li %7, 0 --> tri103 +tri103: li %8, 0 --> tri102 +tri102: li %9, 0 --> tri101 +tri101: li %10, 0 --> tri100 +tri100: li %11, 0 --> tri99 +tri99 : li %12, 0 --> tri98 +tri98 : li %13, 0 --> tri97 +tri97 : li %14, 0 --> tri96 +tri96 : li %15, 0 --> tri95 +tri95 : li %16, 0 --> tri94 +tri94 : li %17, 0 --> tri93 +tri93 : li %18, 0 --> tri92 +tri92 : li %19, 0 --> tri91 +tri91 : li %20, 0 --> tri90 +tri90 : li %21, 0 --> tri89 +tri89 : li %22, 0 --> tri88 +tri88 : li %23, 0 --> tri87 +tri87 : li %24, 0 --> tri86 +tri86 : li %25, 0 --> tri85 +tri85 : li %26, 0 --> tri84 +tri84 : li %27, 0 --> tri83 +tri83 : li %28, 0 --> tri82 +tri82 : li %29, 0 --> tri81 +tri81 : li %30, 0 --> tri80 +tri80 : li %31, 0 --> tri79 +tri79 : li %32, 0 --> tri78 +tri78 : li %33, 0 --> tri77 +tri77 : li %34, 0 --> tri76 +tri76 : li %35, 0 --> tri75 +tri75 : li %36, 0 --> tri74 +tri74 : li %37, 0 --> tri73 +tri73 : li %38, 0 --> tri72 +tri72 : li %39, 0 --> tri71 +tri71 : li %40, 0 --> tri70 +tri70 : li %41, 0 --> tri69 +tri69 : li %42, 0 --> tri68 +tri68 : li %43, 0 --> tri67 +tri67 : li %44, 0 --> tri58 +tri58 : emit c12 --> tri57 +tri57 : li %2, 0 --> tri56 +tri56 : emit c11 --> tri55 +tri55 : emit c10 --> tri54 +tri54 : li %4, 0 --> tri1 +tri1 : j --> tri53 +tri53 : li %35, 0 --> tri52 +tri52 : emit c9 --> tri51 +tri51 : slt %36, %4, %1 --> tri50 +tri50 : li %43, 0 --> tri65 +tri65 : seq %34, %36, %43 --> tri49 +tri49 : beq %34, %35 --> tri48, tri0 +tri0 : return +tri48 : emit c7 --> tri47 +tri47 : emit c6 --> tri46 +tri46 : li %3, 1 --> tri5 +tri5 : j --> tri45 +tri45 : li %31, 0 --> tri44 +tri44 : emit c5 --> tri43 +tri43 : sub %33, %1, %4 --> tri42 +tri42 : slt %32, %3, %33 --> tri41 +tri41 : li %42, 0 --> tri64 +tri64 : seq %30, %32, %42 --> tri40 +tri40 : beq %30, %31 --> tri39, tri4 +tri4 : emit c8 --> tri3 +tri3 : li %5, 1 --> tri2 +tri2 : add %4, %4, %5 --> tri1 +tri39 : emit c3 --> tri38 +tri38 : li %21, 0 --> tri37 +tri37 : li %29, 4 --> tri36 +tri36 : mulo %28, %3, %29 --> tri35 +tri35 : add %41, %0, %28 --> tri63 +tri63 : lw %22, 0(%41) --> tri34 +tri34 : li %27, 1 --> tri33 +tri33 : sub %25, %3, %27 --> tri32 +tri32 : li %26, 4 --> tri31 +tri31 : mulo %24, %25, %26 --> tri30 +tri30 : add %40, %0, %24 --> tri62 +tri62 : lw %23, 0(%40) --> tri29 +tri29 : slt %20, %22, %23 --> tri28 +tri28 : beq %20, %21 --> tri8, tri27 +tri27 : emit c2 --> tri26 +tri26 : li %19, 1 --> tri25 +tri25 : sub %17, %3, %19 --> tri24 +tri24 : li %18, 4 --> tri23 +tri23 : mulo %16, %17, %18 --> tri22 +tri22 : add %39, %0, %16 --> tri61 +tri61 : lw %2, 0(%39) --> tri21 +tri21 : emit c1 --> tri20 +tri20 : li %15, 4 --> tri19 +tri19 : mulo %14, %3, %15 --> tri18 +tri18 : add %38, %0, %14 --> tri60 +tri60 : lw %9, 0(%38) --> tri17 +tri17 : li %13, 1 --> tri16 +tri16 : sub %11, %3, %13 --> tri15 +tri15 : li %12, 4 --> tri14 +tri14 : mulo %10, %11, %12 --> tri13 +tri13 : add %37, %0, %10 --> tri59 +tri59 : sw %9, 0(%37) --> tri12 +tri12 : emit c0 --> tri11 +tri11 : li %8, 4 --> tri10 +tri10 : mulo %7, %3, %8 --> tri9 +tri9 : add %44, %0, %7 --> tri66 +tri66 : sw %2, 0(%44) --> tri8 +tri8 : emit c4 --> tri7 +tri7 : li %6, 1 --> tri6 +tri6 : add %3, %3, %6 --> tri5 + +function _main() : %0 +stacksize 40 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69 +entry main161 +main161: li %1, 0 --> main160 +main160: li %2, 0 --> main159 +main159: li %3, 0 --> main158 +main158: li %4, 0 --> main157 +main157: li %5, 0 --> main156 +main156: li %6, 0 --> main155 +main155: li %7, 0 --> main154 +main154: li %8, 0 --> main153 +main153: li %9, 0 --> main152 +main152: li %10, 0 --> main151 +main151: li %11, 0 --> main150 +main150: li %12, 0 --> main149 +main149: li %13, 0 --> main148 +main148: li %14, 0 --> main147 +main147: li %15, 0 --> main146 +main146: li %16, 0 --> main145 +main145: li %17, 0 --> main144 +main144: li %18, 0 --> main143 +main143: li %19, 0 --> main142 +main142: li %20, 0 --> main141 +main141: li %21, 0 --> main140 +main140: li %22, 0 --> main139 +main139: li %23, 0 --> main138 +main138: li %24, 0 --> main137 +main137: li %25, 0 --> main136 +main136: li %26, 0 --> main135 +main135: li %27, 0 --> main134 +main134: li %28, 0 --> main133 +main133: li %29, 0 --> main132 +main132: li %30, 0 --> main131 +main131: li %31, 0 --> main130 +main130: li %32, 0 --> main129 +main129: li %33, 0 --> main128 +main128: li %34, 0 --> main127 +main127: li %35, 0 --> main126 +main126: li %36, 0 --> main125 +main125: li %37, 0 --> main124 +main124: li %38, 0 --> main123 +main123: li %39, 0 --> main122 +main122: li %40, 0 --> main121 +main121: li %41, 0 --> main120 +main120: li %42, 0 --> main119 +main119: li %43, 0 --> main118 +main118: li %44, 0 --> main117 +main117: li %45, 0 --> main116 +main116: li %46, 0 --> main115 +main115: li %47, 0 --> main114 +main114: li %48, 0 --> main113 +main113: li %49, 0 --> main112 +main112: li %50, 0 --> main111 +main111: li %51, 0 --> main110 +main110: li %52, 0 --> main109 +main109: li %53, 0 --> main108 +main108: li %54, 0 --> main107 +main107: li %55, 0 --> main106 +main106: li %56, 0 --> main105 +main105: li %57, 0 --> main104 +main104: li %58, 0 --> main103 +main103: li %59, 0 --> main102 +main102: li %60, 0 --> main101 +main101: li %61, 0 --> main100 +main100: li %62, 0 --> main99 +main99 : li %63, 0 --> main98 +main98 : li %64, 0 --> main97 +main97 : li %65, 0 --> main96 +main96 : li %66, 0 --> main95 +main95 : li %67, 0 --> main94 +main94 : li %68, 0 --> main93 +main93 : li %69, 0 --> main80 +main80 : emit c24 --> main79 +main79 : li %53, 10 --> main78 +main78 : addi %54, STACK, 0 --> main77 +main77 : li %56, 0 --> main76 +main76 : li %57, 4 --> main75 +main75 : mulo %55, %56, %57 --> main74 +main74 : add %69, %54, %55 --> main92 +main92 : sw %53, 0(%69) --> main73 +main73 : emit c23 --> main72 +main72 : li %48, 9 --> main71 +main71 : addi %49, STACK, 0 --> main70 +main70 : li %51, 1 --> main69 +main69 : li %52, 4 --> main68 +main68 : mulo %50, %51, %52 --> main67 +main67 : add %67, %49, %50 --> main90 +main90 : sw %48, 0(%67) --> main66 +main66 : emit c22 --> main65 +main65 : li %43, 8 --> main64 +main64 : addi %44, STACK, 0 --> main63 +main63 : li %46, 2 --> main62 +main62 : li %47, 4 --> main61 +main61 : mulo %45, %46, %47 --> main60 +main60 : add %66, %44, %45 --> main89 +main89 : sw %43, 0(%66) --> main59 +main59 : emit c21 --> main58 +main58 : li %38, 7 --> main57 +main57 : addi %39, STACK, 0 --> main56 +main56 : li %41, 3 --> main55 +main55 : li %42, 4 --> main54 +main54 : mulo %40, %41, %42 --> main53 +main53 : add %65, %39, %40 --> main88 +main88 : sw %38, 0(%65) --> main52 +main52 : emit c20 --> main51 +main51 : li %33, 6 --> main50 +main50 : addi %34, STACK, 0 --> main49 +main49 : li %36, 4 --> main48 +main48 : li %37, 4 --> main47 +main47 : mulo %35, %36, %37 --> main46 +main46 : add %64, %34, %35 --> main87 +main87 : sw %33, 0(%64) --> main45 +main45 : emit c19 --> main44 +main44 : li %28, 5 --> main43 +main43 : addi %29, STACK, 0 --> main42 +main42 : li %31, 5 --> main41 +main41 : li %32, 4 --> main40 +main40 : mulo %30, %31, %32 --> main39 +main39 : add %63, %29, %30 --> main86 +main86 : sw %28, 0(%63) --> main38 +main38 : emit c18 --> main37 +main37 : li %23, 4 --> main36 +main36 : addi %24, STACK, 0 --> main35 +main35 : li %26, 6 --> main34 +main34 : li %27, 4 --> main33 +main33 : mulo %25, %26, %27 --> main32 +main32 : add %62, %24, %25 --> main85 +main85 : sw %23, 0(%62) --> main31 +main31 : emit c17 --> main30 +main30 : li %18, 3 --> main29 +main29 : addi %19, STACK, 0 --> main28 +main28 : li %21, 7 --> main27 +main27 : li %22, 4 --> main26 +main26 : mulo %20, %21, %22 --> main25 +main25 : add %61, %19, %20 --> main84 +main84 : sw %18, 0(%61) --> main24 +main24 : emit c16 --> main23 +main23 : li %13, 2 --> main22 +main22 : addi %14, STACK, 0 --> main21 +main21 : li %16, 8 --> main20 +main20 : li %17, 4 --> main19 +main19 : mulo %15, %16, %17 --> main18 +main18 : add %60, %14, %15 --> main83 +main83 : sw %13, 0(%60) --> main17 +main17 : emit c15 --> main16 +main16 : li %8, 1 --> main15 +main15 : addi %9, STACK, 0 --> main14 +main14 : li %11, 9 --> main13 +main13 : li %12, 4 --> main12 +main12 : mulo %10, %11, %12 --> main11 +main11 : add %59, %9, %10 --> main82 +main82 : sw %8, 0(%59) --> main10 +main10 : emit c14 --> main9 +main9 : addi %5, STACK, 0 --> main8 +main8 : li %6, 10 --> main7 +main7 : la %68, tri --> main91 +main91 : call %7, %68(%5, %6) --> main6 +main6 : emit c13 --> main5 +main5 : addi %1, STACK, 0 --> main4 +main4 : li %3, 0 --> main3 +main3 : li %4, 4 --> main2 +main2 : mulo %2, %3, %4 --> main1 +main1 : add %58, %1, %2 --> main81 +main81 : lw %0, 0(%58) --> main0 +main0 : return %0 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testCOMP_tri.RTLabs.expected b/tests/clight/testCOMP_tri.RTLabs.expected new file mode 100644 index 0000000..74627db --- /dev/null +++ b/tests/clight/testCOMP_tri.RTLabs.expected @@ -0,0 +1,559 @@ +program: (main function is "main") + + + globals: + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "tri"(%0, %1): int -> int -> void + locals: %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36 + stacksize: 0 + entry: tri58 + exit: tri0 + + tri9: store int32, add, %0, %7, %2 --> tri8 + tri8: emit c4 --> tri7 + tri7: imm_int 1, %6, --> tri6 + tri6: add %3, %3, %6 --> tri5 + tri58: emit c12 --> tri57 + tri57: imm_int 0, %2, --> tri56 + tri56: emit c11 --> tri55 + tri55: emit c10 --> tri54 + tri54: imm_int 0, %4, --> tri1 + tri53: imm_int 0, %35, --> tri52 + tri52: emit c9 --> tri51 + tri51: lt %36, %4, %1 --> tri50 + tri50: notbool %34, %36 --> tri49 + tri5: --> tri45 + tri49: eq %34, %35 --> tri48, tri0 + tri48: emit c7 --> tri47 + tri47: emit c6 --> tri46 + tri46: imm_int 1, %3, --> tri5 + tri45: imm_int 0, %31, --> tri44 + tri44: emit c5 --> tri43 + tri43: sub %33, %1, %4 --> tri42 + tri42: lt %32, %3, %33 --> tri41 + tri41: notbool %30, %32 --> tri40 + tri40: eq %30, %31 --> tri39, tri4 + tri4: emit c8 --> tri3 + tri39: emit c3 --> tri38 + tri38: imm_int 0, %21, --> tri37 + tri37: imm_int 4, %29, --> tri36 + tri36: mul %28, %3, %29 --> tri35 + tri35: load int32, add, %0, %28, %22 --> tri34 + tri34: imm_int 1, %27, --> tri33 + tri33: sub %25, %3, %27 --> tri32 + tri32: imm_int 4, %26, --> tri31 + tri31: mul %24, %25, %26 --> tri30 + tri30: load int32, add, %0, %24, %23 --> tri29 + tri3: imm_int 1, %5, --> tri2 + tri29: lt %20, %22, %23 --> tri28 + tri28: eq %20, %21 --> tri8, tri27 + tri27: emit c2 --> tri26 + tri26: imm_int 1, %19, --> tri25 + tri25: sub %17, %3, %19 --> tri24 + tri24: imm_int 4, %18, --> tri23 + tri23: mul %16, %17, %18 --> tri22 + tri22: load int32, add, %0, %16, %2 --> tri21 + tri21: emit c1 --> tri20 + tri20: imm_int 4, %15, --> tri19 + tri2: add %4, %4, %5 --> tri1 + tri19: mul %14, %3, %15 --> tri18 + tri18: load int32, add, %0, %14, %9 --> tri17 + tri17: imm_int 1, %13, --> tri16 + tri16: sub %11, %3, %13 --> tri15 + tri15: imm_int 4, %12, --> tri14 + tri14: mul %10, %11, %12 --> tri13 + tri13: store int32, add, %0, %10, %9 --> tri12 + tri12: emit c0 --> tri11 + tri11: imm_int 4, %8, --> tri10 + tri10: mul %7, %3, %8 --> tri9 + tri1: --> tri53 + tri0: return + + + "main"(): int + locals: %0, %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45, %46, %47, %48, %49, %50, %51, %52, %53, %54, %55, %56, %57 + result: %0 + stacksize: 40 + entry: main80 + exit: main0 + + main9: imm_addr 0($sp), %5, --> main8 + main80: emit c24 --> main79 + main8: imm_int 10, %6, --> main7 + main79: imm_int 10, %53, --> main78 + main78: imm_addr 0($sp), %54, --> main77 + main77: imm_int 0, %56, --> main76 + main76: imm_int 4, %57, --> main75 + main75: mul %55, %56, %57 --> main74 + main74: store int32, add, %54, %55, %53 --> main73 + main73: emit c23 --> main72 + main72: imm_int 9, %48, --> main71 + main71: imm_addr 0($sp), %49, --> main70 + main70: imm_int 1, %51, --> main69 + main7: call "tri", %5, %6, %7: int -> int -> void --> main6 + main69: imm_int 4, %52, --> main68 + main68: mul %50, %51, %52 --> main67 + main67: store int32, add, %49, %50, %48 --> main66 + main66: emit c22 --> main65 + main65: imm_int 8, %43, --> main64 + main64: imm_addr 0($sp), %44, --> main63 + main63: imm_int 2, %46, --> main62 + main62: imm_int 4, %47, --> main61 + main61: mul %45, %46, %47 --> main60 + main60: store int32, add, %44, %45, %43 --> main59 + main6: emit c13 --> main5 + main59: emit c21 --> main58 + main58: imm_int 7, %38, --> main57 + main57: imm_addr 0($sp), %39, --> main56 + main56: imm_int 3, %41, --> main55 + main55: imm_int 4, %42, --> main54 + main54: mul %40, %41, %42 --> main53 + main53: store int32, add, %39, %40, %38 --> main52 + main52: emit c20 --> main51 + main51: imm_int 6, %33, --> main50 + main50: imm_addr 0($sp), %34, --> main49 + main5: imm_addr 0($sp), %1, --> main4 + main49: imm_int 4, %36, --> main48 + main48: imm_int 4, %37, --> main47 + main47: mul %35, %36, %37 --> main46 + main46: store int32, add, %34, %35, %33 --> main45 + main45: emit c19 --> main44 + main44: imm_int 5, %28, --> main43 + main43: imm_addr 0($sp), %29, --> main42 + main42: imm_int 5, %31, --> main41 + main41: imm_int 4, %32, --> main40 + main40: mul %30, %31, %32 --> main39 + main4: imm_int 0, %3, --> main3 + main39: store int32, add, %29, %30, %28 --> main38 + main38: emit c18 --> main37 + main37: imm_int 4, %23, --> main36 + main36: imm_addr 0($sp), %24, --> main35 + main35: imm_int 6, %26, --> main34 + main34: imm_int 4, %27, --> main33 + main33: mul %25, %26, %27 --> main32 + main32: store int32, add, %24, %25, %23 --> main31 + main31: emit c17 --> main30 + main30: imm_int 3, %18, --> main29 + main3: imm_int 4, %4, --> main2 + main29: imm_addr 0($sp), %19, --> main28 + main28: imm_int 7, %21, --> main27 + main27: imm_int 4, %22, --> main26 + main26: mul %20, %21, %22 --> main25 + main25: store int32, add, %19, %20, %18 --> main24 + main24: emit c16 --> main23 + main23: imm_int 2, %13, --> main22 + main22: imm_addr 0($sp), %14, --> main21 + main21: imm_int 8, %16, --> main20 + main20: imm_int 4, %17, --> main19 + main2: mul %2, %3, %4 --> main1 + main19: mul %15, %16, %17 --> main18 + main18: store int32, add, %14, %15, %13 --> main17 + main17: emit c15 --> main16 + main16: imm_int 1, %8, --> main15 + main15: imm_addr 0($sp), %9, --> main14 + main14: imm_int 9, %11, --> main13 + main13: imm_int 4, %12, --> main12 + main12: mul %10, %11, %12 --> main11 + main11: store int32, add, %9, %10, %8 --> main10 + main10: emit c14 --> main9 + main1: load int32, add, %1, %2, %0 --> main0 + main0: return %0 + + diff --git a/tests/clight/testCOMP_tri.c b/tests/clight/testCOMP_tri.c new file mode 100644 index 0000000..221d9a1 --- /dev/null +++ b/tests/clight/testCOMP_tri.c @@ -0,0 +1,23 @@ +void tri (int t[], int n) { + int i,j,tmp; + tmp = 0; + + for(i = 0 ;i < n; i=i+1) + { + for(j = 1 ; j < n-i ; j=j+1) + { + if(t[j] < t[j-1]) + { + tmp = t[j-1]; + t[j-1] = t[j]; + t[j] = tmp; + } + } + } +} + +int main(){ + int t[10] = {10,9,8,7,6,5,4,3,2,1}; + tri(t,10); + return t[0]; +} diff --git a/tests/clight/testCOMP_tri.c.expected b/tests/clight/testCOMP_tri.c.expected new file mode 100644 index 0000000..221d9a1 --- /dev/null +++ b/tests/clight/testCOMP_tri.c.expected @@ -0,0 +1,23 @@ +void tri (int t[], int n) { + int i,j,tmp; + tmp = 0; + + for(i = 0 ;i < n; i=i+1) + { + for(j = 1 ; j < n-i ; j=j+1) + { + if(t[j] < t[j-1]) + { + tmp = t[j-1]; + t[j-1] = t[j]; + t[j] = tmp; + } + } + } +} + +int main(){ + int t[10] = {10,9,8,7,6,5,4,3,2,1}; + tri(t,10); + return t[0]; +} diff --git a/tests/clight/testCOMP_tri.log.expected b/tests/clight/testCOMP_tri.log.expected new file mode 100644 index 0000000..ba50dc8 --- /dev/null +++ b/tests/clight/testCOMP_tri.log.expected @@ -0,0 +1,2 @@ +Global Error (Translation RTLabs -> RTL): + Constant not supported. diff --git a/tests/clight/testTB_Array_LE.ASM.expected b/tests/clight/testTB_Array_LE.ASM.expected new file mode 100644 index 0000000..5f4d11f --- /dev/null +++ b/tests/clight/testTB_Array_LE.ASM.expected @@ -0,0 +1,437 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 0 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main189 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin array_LE +array_LE38: +c1: +li $t0, 2 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +sw $t0, 0($v0) +c0: +li $a0, 78 +li $v0, 1 +add $a2, $a3, $v0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a1, $v0 +sw $a0, 0($v0) +jr $ra +# end array_LE + + +# begin _main +main189: +addi $sp, $sp, -44 +sw $ra, 40($sp) +c13: +li $a1, 0 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c12: +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c11: +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c10: +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c9: +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c8: +li $a1, 0 +move $a0, $sp +addi $a0, $a0, 20 +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c7: +move $a1, $sp +addi $a1, $a1, 20 +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c6: +move $a1, $sp +addi $a1, $a1, 20 +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c5: +move $a1, $sp +addi $a1, $a1, 20 +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c4: +move $a1, $sp +addi $a1, $a1, 20 +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c3: +move $a0, $sp +move $a1, $sp +addi $a1, $a1, 20 +li $a2, 0 +li $a3, 0 +la $v0, array_LE38 +jalr $v0 +c2: +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +addi $sp, $sp, 20 +li $a1, 1 +li $a0, 4 +mulo $a0, $a1, $a0 +add $a0, $sp, $a0 +lw $a0, 0($a0) +add $v0, $v0, $a0 +lw $ra, 40($sp) +addi $sp, $sp, 44 +jr $ra +# end _main diff --git a/tests/clight/testTB_Array_LE.Clight.expected b/tests/clight/testTB_Array_LE.Clight.expected new file mode 100644 index 0000000..28cda7d --- /dev/null +++ b/tests/clight/testTB_Array_LE.Clight.expected @@ -0,0 +1,303 @@ +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +void array_LE(int *tabLE, int *tabLE2, int i, int j) +{ + c1: + tabLE[i] = 2; + c0: + tabLE2[(j + 1)] = 78; +} + +int main(void) +{ + int t1[5]; + int t2[5]; + c13: + t1[0] = 0; + c12: + t1[1] = 0; + c11: + t1[2] = 0; + c10: + t1[3] = 0; + c9: + t1[4] = 0; + c8: + t2[0] = 0; + c7: + t2[1] = 0; + c6: + t2[2] = 0; + c5: + t2[3] = 0; + c4: + t2[4] = 0; + c3: + array_LE(t1, t2, 0, 0); + c2: + return t1[0] + t2[1]; +} + + diff --git a/tests/clight/testTB_Array_LE.Cminor.expected b/tests/clight/testTB_Array_LE.Cminor.expected new file mode 100644 index 0000000..4418373 --- /dev/null +++ b/tests/clight/testTB_Array_LE.Cminor.expected @@ -0,0 +1,443 @@ + + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"array_LE" (tabLE, tabLE2, i, j) : int -> int -> int -> int -> void { + + stack 0; + + c1: + int32[tabLE + (i * 4)] = 2; + c0: + int32[tabLE2 + ((j + 1) * 4)] = 78; + +} + + +"main" () : int { + + stack 40; + + c13: + int32[&0 + (0 * 4)] = 0; + c12: + int32[&0 + (1 * 4)] = 0; + c11: + int32[&0 + (2 * 4)] = 0; + c10: + int32[&0 + (3 * 4)] = 0; + c9: + int32[&0 + (4 * 4)] = 0; + c8: + int32[&20 + (0 * 4)] = 0; + c7: + int32[&20 + (1 * 4)] = 0; + c6: + int32[&20 + (2 * 4)] = 0; + c5: + int32[&20 + (3 * 4)] = 0; + c4: + int32[&20 + (4 * 4)] = 0; + c3: + "array_LE"(&0, &20, 0, 0) : int -> int -> int -> int -> void; + c2: + return int32[&0 + (0 * 4)] + int32[&20 + (1 * 4)]; + +} + + diff --git a/tests/clight/testTB_Array_LE.ERTL.expected b/tests/clight/testTB_Array_LE.ERTL.expected new file mode 100644 index 0000000..0ab062a --- /dev/null +++ b/tests/clight/testTB_Array_LE.ERTL.expected @@ -0,0 +1,697 @@ +program + +globals 0 + +procedure array_LE(4) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22 +entry array_LE38 +array_LE38: newframe --> array_LE37 +array_LE37: move %22, $ra --> array_LE36 +array_LE36: move %21, $s7 --> array_LE35 +array_LE35: move %20, $s6 --> array_LE34 +array_LE34: move %19, $s5 --> array_LE33 +array_LE33: move %18, $s4 --> array_LE32 +array_LE32: move %17, $s3 --> array_LE31 +array_LE31: move %16, $s2 --> array_LE30 +array_LE30: move %15, $s1 --> array_LE29 +array_LE29: move %14, $s0 --> array_LE28 +array_LE28: move %0, $a0 --> array_LE27 +array_LE27: move %1, $a1 --> array_LE26 +array_LE26: move %2, $a2 --> array_LE25 +array_LE25: move %3, $a3 --> array_LE24 +array_LE24: li %4, 0 --> array_LE23 +array_LE23: li %5, 0 --> array_LE22 +array_LE22: li %6, 0 --> array_LE21 +array_LE21: li %7, 0 --> array_LE20 +array_LE20: li %8, 0 --> array_LE19 +array_LE19: li %9, 0 --> array_LE18 +array_LE18: li %10, 0 --> array_LE17 +array_LE17: li %11, 0 --> array_LE16 +array_LE16: li %12, 0 --> array_LE15 +array_LE15: li %13, 0 --> array_LE12 +array_LE12: emit c1 --> array_LE11 +array_LE11: li %9, 2 --> array_LE10 +array_LE10: li %11, 4 --> array_LE9 +array_LE9 : mulo %10, %2, %11 --> array_LE8 +array_LE8 : add %13, %0, %10 --> array_LE14 +array_LE14: sw %9, 0(%13) --> array_LE7 +array_LE7 : emit c0 --> array_LE6 +array_LE6 : li %4, 78 --> array_LE5 +array_LE5 : li %8, 1 --> array_LE4 +array_LE4 : add %6, %3, %8 --> array_LE3 +array_LE3 : li %7, 4 --> array_LE2 +array_LE2 : mulo %5, %6, %7 --> array_LE1 +array_LE1 : add %12, %1, %5 --> array_LE13 +array_LE13: sw %4, 0(%12) --> array_LE0 +array_LE0 : j --> array_LE49 +array_LE49: move $ra, %22 --> array_LE48 +array_LE48: move $s7, %21 --> array_LE47 +array_LE47: move $s6, %20 --> array_LE46 +array_LE46: move $s5, %19 --> array_LE45 +array_LE45: move $s4, %18 --> array_LE44 +array_LE44: move $s3, %17 --> array_LE43 +array_LE43: move $s2, %16 --> array_LE42 +array_LE42: move $s1, %15 --> array_LE41 +array_LE41: move $s0, %14 --> array_LE40 +array_LE40: delframe --> array_LE39 +array_LE39: jr $ra + +procedure _main(0) +stacksize 40 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78, %79, %80, %81, %82, %83, + %84, %85, %86, %87 +entry main189 +main189: newframe --> main188 +main188: move %87, $ra --> main187 +main187: move %86, $s7 --> main186 +main186: move %85, $s6 --> main185 +main185: move %84, $s5 --> main184 +main184: move %83, $s4 --> main183 +main183: move %82, $s3 --> main182 +main182: move %81, $s2 --> main181 +main181: move %80, $s1 --> main180 +main180: move %79, $s0 --> main179 +main179: li %1, 0 --> main178 +main178: li %2, 0 --> main177 +main177: li %3, 0 --> main176 +main176: li %4, 0 --> main175 +main175: li %5, 0 --> main174 +main174: li %6, 0 --> main173 +main173: li %7, 0 --> main172 +main172: li %8, 0 --> main171 +main171: li %9, 0 --> main170 +main170: li %10, 0 --> main169 +main169: li %11, 0 --> main168 +main168: li %12, 0 --> main167 +main167: li %13, 0 --> main166 +main166: li %14, 0 --> main165 +main165: li %15, 0 --> main164 +main164: li %16, 0 --> main163 +main163: li %17, 0 --> main162 +main162: li %18, 0 --> main161 +main161: li %19, 0 --> main160 +main160: li %20, 0 --> main159 +main159: li %21, 0 --> main158 +main158: li %22, 0 --> main157 +main157: li %23, 0 --> main156 +main156: li %24, 0 --> main155 +main155: li %25, 0 --> main154 +main154: li %26, 0 --> main153 +main153: li %27, 0 --> main152 +main152: li %28, 0 --> main151 +main151: li %29, 0 --> main150 +main150: li %30, 0 --> main149 +main149: li %31, 0 --> main148 +main148: li %32, 0 --> main147 +main147: li %33, 0 --> main146 +main146: li %34, 0 --> main145 +main145: li %35, 0 --> main144 +main144: li %36, 0 --> main143 +main143: li %37, 0 --> main142 +main142: li %38, 0 --> main141 +main141: li %39, 0 --> main140 +main140: li %40, 0 --> main139 +main139: li %41, 0 --> main138 +main138: li %42, 0 --> main137 +main137: li %43, 0 --> main136 +main136: li %44, 0 --> main135 +main135: li %45, 0 --> main134 +main134: li %46, 0 --> main133 +main133: li %47, 0 --> main132 +main132: li %48, 0 --> main131 +main131: li %49, 0 --> main130 +main130: li %50, 0 --> main129 +main129: li %51, 0 --> main128 +main128: li %52, 0 --> main127 +main127: li %53, 0 --> main126 +main126: li %54, 0 --> main125 +main125: li %55, 0 --> main124 +main124: li %56, 0 --> main123 +main123: li %57, 0 --> main122 +main122: li %58, 0 --> main121 +main121: li %59, 0 --> main120 +main120: li %60, 0 --> main119 +main119: li %61, 0 --> main118 +main118: li %62, 0 --> main117 +main117: li %63, 0 --> main116 +main116: li %64, 0 --> main115 +main115: li %65, 0 --> main114 +main114: li %66, 0 --> main113 +main113: li %67, 0 --> main112 +main112: li %68, 0 --> main111 +main111: li %69, 0 --> main110 +main110: li %70, 0 --> main109 +main109: li %71, 0 --> main108 +main108: li %72, 0 --> main107 +main107: li %73, 0 --> main106 +main106: li %74, 0 --> main105 +main105: li %75, 0 --> main104 +main104: li %76, 0 --> main103 +main103: li %77, 0 --> main102 +main102: li %78, 0 --> main88 +main88 : emit c13 --> main87 +main87 : li %61, 0 --> main86 +main86 : move %62, $sp --> main215 +main215: move %62, %62 --> main85 +main85 : li %64, 0 --> main84 +main84 : li %65, 4 --> main83 +main83 : mulo %63, %64, %65 --> main82 +main82 : add %78, %62, %63 --> main101 +main101: sw %61, 0(%78) --> main81 +main81 : emit c12 --> main80 +main80 : li %56, 0 --> main79 +main79 : move %57, $sp --> main214 +main214: move %57, %57 --> main78 +main78 : li %59, 1 --> main77 +main77 : li %60, 4 --> main76 +main76 : mulo %58, %59, %60 --> main75 +main75 : add %77, %57, %58 --> main100 +main100: sw %56, 0(%77) --> main74 +main74 : emit c11 --> main73 +main73 : li %51, 0 --> main72 +main72 : move %52, $sp --> main213 +main213: move %52, %52 --> main71 +main71 : li %54, 2 --> main70 +main70 : li %55, 4 --> main69 +main69 : mulo %53, %54, %55 --> main68 +main68 : add %75, %52, %53 --> main98 +main98 : sw %51, 0(%75) --> main67 +main67 : emit c10 --> main66 +main66 : li %46, 0 --> main65 +main65 : move %47, $sp --> main212 +main212: move %47, %47 --> main64 +main64 : li %49, 3 --> main63 +main63 : li %50, 4 --> main62 +main62 : mulo %48, %49, %50 --> main61 +main61 : add %74, %47, %48 --> main97 +main97 : sw %46, 0(%74) --> main60 +main60 : emit c9 --> main59 +main59 : li %41, 0 --> main58 +main58 : move %42, $sp --> main210 +main210: move %42, %42 --> main57 +main57 : li %44, 4 --> main56 +main56 : li %45, 4 --> main55 +main55 : mulo %43, %44, %45 --> main54 +main54 : add %73, %42, %43 --> main96 +main96 : sw %41, 0(%73) --> main53 +main53 : emit c8 --> main52 +main52 : li %36, 0 --> main51 +main51 : move %37, $sp --> main209 +main209: addi %37, %37, 20 --> main50 +main50 : li %39, 0 --> main49 +main49 : li %40, 4 --> main48 +main48 : mulo %38, %39, %40 --> main47 +main47 : add %72, %37, %38 --> main95 +main95 : sw %36, 0(%72) --> main46 +main46 : emit c7 --> main45 +main45 : li %31, 0 --> main44 +main44 : move %32, $sp --> main208 +main208: addi %32, %32, 20 --> main43 +main43 : li %34, 1 --> main42 +main42 : li %35, 4 --> main41 +main41 : mulo %33, %34, %35 --> main40 +main40 : add %71, %32, %33 --> main94 +main94 : sw %31, 0(%71) --> main39 +main39 : emit c6 --> main38 +main38 : li %26, 0 --> main37 +main37 : move %27, $sp --> main207 +main207: addi %27, %27, 20 --> main36 +main36 : li %29, 2 --> main35 +main35 : li %30, 4 --> main34 +main34 : mulo %28, %29, %30 --> main33 +main33 : add %70, %27, %28 --> main93 +main93 : sw %26, 0(%70) --> main32 +main32 : emit c5 --> main31 +main31 : li %21, 0 --> main30 +main30 : move %22, $sp --> main206 +main206: addi %22, %22, 20 --> main29 +main29 : li %24, 3 --> main28 +main28 : li %25, 4 --> main27 +main27 : mulo %23, %24, %25 --> main26 +main26 : add %69, %22, %23 --> main92 +main92 : sw %21, 0(%69) --> main25 +main25 : emit c4 --> main24 +main24 : li %16, 0 --> main23 +main23 : move %17, $sp --> main205 +main205: addi %17, %17, 20 --> main22 +main22 : li %19, 4 --> main21 +main21 : li %20, 4 --> main20 +main20 : mulo %18, %19, %20 --> main19 +main19 : add %67, %17, %18 --> main90 +main90 : sw %16, 0(%67) --> main18 +main18 : emit c3 --> main17 +main17 : move %11, $sp --> main204 +main204: move %11, %11 --> main16 +main16 : move %12, $sp --> main203 +main203: addi %12, %12, 20 --> main15 +main15 : li %13, 0 --> main14 +main14 : li %14, 0 --> main13 +main13 : la %66, array_LE --> main89 +main89 : j --> main221 +main221: move $a0, %11 --> main220 +main220: move $a1, %12 --> main219 +main219: move $a2, %13 --> main218 +main218: move $a3, %14 --> main217 +main217: call %66(4) --> main216 +main216: move %15, $v0 --> main12 +main12 : emit c2 --> main11 +main11 : move %7, $sp --> main202 +main202: move %7, %7 --> main10 +main10 : li %9, 0 --> main9 +main9 : li %10, 4 --> main8 +main8 : mulo %8, %9, %10 --> main7 +main7 : add %76, %7, %8 --> main99 +main99 : lw %1, 0(%76) --> main6 +main6 : move %3, $sp --> main211 +main211: addi %3, %3, 20 --> main5 +main5 : li %5, 1 --> main4 +main4 : li %6, 4 --> main3 +main3 : mulo %4, %5, %6 --> main2 +main2 : add %68, %3, %4 --> main91 +main91 : lw %2, 0(%68) --> main1 +main1 : add %0, %1, %2 --> main0 +main0 : j --> main201 +main201: move $v0, %0 --> main200 +main200: move $ra, %87 --> main199 +main199: move $s7, %86 --> main198 +main198: move $s6, %85 --> main197 +main197: move $s5, %84 --> main196 +main196: move $s4, %83 --> main195 +main195: move $s3, %82 --> main194 +main194: move $s2, %81 --> main193 +main193: move $s1, %80 --> main192 +main192: move $s0, %79 --> main191 +main191: delframe --> main190 +main190: jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_LE.LIN.expected b/tests/clight/testTB_Array_LE.LIN.expected new file mode 100644 index 0000000..fe604af --- /dev/null +++ b/tests/clight/testTB_Array_LE.LIN.expected @@ -0,0 +1,526 @@ +program + +globals 0 + +procedure array_LE(4) +var 0 +array_LE38: +newframe +c1: +li $t0, 2 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +sw $t0, 0($v0) +c0: +li $a0, 78 +li $v0, 1 +add $a2, $a3, $v0 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a1, $v0 +sw $a0, 0($v0) +delframe +jr $ra + +procedure _main(0) +var 44 +main189: +newframe +sw $ra, 40($sp) +c13: +li $a1, 0 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c12: +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c11: +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c10: +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c9: +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c8: +li $a1, 0 +move $a0, $sp +addi $a0, $a0, 20 +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c7: +move $a1, $sp +addi $a1, $a1, 20 +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c6: +move $a1, $sp +addi $a1, $a1, 20 +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c5: +move $a1, $sp +addi $a1, $a1, 20 +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c4: +move $a1, $sp +addi $a1, $a1, 20 +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c3: +move $a0, $sp +move $a1, $sp +addi $a1, $a1, 20 +li $a2, 0 +li $a3, 0 +la $v0, array_LE +call $v0 +c2: +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +addi $sp, $sp, 20 +li $a1, 1 +li $a0, 4 +mulo $a0, $a1, $a0 +add $a0, $sp, $a0 +lw $a0, 0($a0) +add $v0, $v0, $a0 +lw $ra, 40($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_LE.LTL.expected b/tests/clight/testTB_Array_LE.LTL.expected new file mode 100644 index 0000000..2feae42 --- /dev/null +++ b/tests/clight/testTB_Array_LE.LTL.expected @@ -0,0 +1,680 @@ +program + +globals 0 + +procedure array_LE(4) +var 0 +entry array_LE38 +array_LE38: newframe --> array_LE37 +array_LE37: j --> array_LE36 +array_LE36: j --> array_LE35 +array_LE35: j --> array_LE34 +array_LE34: j --> array_LE33 +array_LE33: j --> array_LE32 +array_LE32: j --> array_LE31 +array_LE31: j --> array_LE30 +array_LE30: j --> array_LE29 +array_LE29: j --> array_LE28 +array_LE28: j --> array_LE27 +array_LE27: j --> array_LE26 +array_LE26: j --> array_LE25 +array_LE25: j --> array_LE24 +array_LE24: j --> array_LE23 +array_LE23: j --> array_LE22 +array_LE22: j --> array_LE21 +array_LE21: j --> array_LE20 +array_LE20: j --> array_LE19 +array_LE19: j --> array_LE18 +array_LE18: j --> array_LE17 +array_LE17: j --> array_LE16 +array_LE16: j --> array_LE15 +array_LE15: j --> array_LE12 +array_LE12: emit c1 --> array_LE11 +array_LE11: li $t0, 2 --> array_LE10 +array_LE10: li $v0, 4 --> array_LE9 +array_LE9 : mulo $v0, $a2, $v0 --> array_LE8 +array_LE8 : add $v0, $a0, $v0 --> array_LE14 +array_LE14: lw $t0, 0($v0) --> array_LE7 +array_LE7 : emit c0 --> array_LE6 +array_LE6 : li $a0, 78 --> array_LE5 +array_LE5 : li $v0, 1 --> array_LE4 +array_LE4 : add $a2, $a3, $v0 --> array_LE3 +array_LE3 : li $v0, 4 --> array_LE2 +array_LE2 : mulo $v0, $a2, $v0 --> array_LE1 +array_LE1 : add $v0, $a1, $v0 --> array_LE13 +array_LE13: lw $a0, 0($v0) --> array_LE0 +array_LE0 : j --> array_LE49 +array_LE49: j --> array_LE48 +array_LE48: j --> array_LE47 +array_LE47: j --> array_LE46 +array_LE46: j --> array_LE45 +array_LE45: j --> array_LE44 +array_LE44: j --> array_LE43 +array_LE43: j --> array_LE42 +array_LE42: j --> array_LE41 +array_LE41: j --> array_LE40 +array_LE40: delframe --> array_LE39 +array_LE39: jr $ra + +procedure _main(0) +var 44 +entry main189 +main189: newframe --> main188 +main188: lw $ra, 40($sp) --> main187 +main187: j --> main186 +main186: j --> main185 +main185: j --> main184 +main184: j --> main183 +main183: j --> main182 +main182: j --> main181 +main181: j --> main180 +main180: j --> main179 +main179: j --> main178 +main178: j --> main177 +main177: j --> main176 +main176: j --> main175 +main175: j --> main174 +main174: j --> main173 +main173: j --> main172 +main172: j --> main171 +main171: j --> main170 +main170: j --> main169 +main169: j --> main168 +main168: j --> main167 +main167: j --> main166 +main166: j --> main165 +main165: j --> main164 +main164: j --> main163 +main163: j --> main162 +main162: j --> main161 +main161: j --> main160 +main160: j --> main159 +main159: j --> main158 +main158: j --> main157 +main157: j --> main156 +main156: j --> main155 +main155: j --> main154 +main154: j --> main153 +main153: j --> main152 +main152: j --> main151 +main151: j --> main150 +main150: j --> main149 +main149: j --> main148 +main148: j --> main147 +main147: j --> main146 +main146: j --> main145 +main145: j --> main144 +main144: j --> main143 +main143: j --> main142 +main142: j --> main141 +main141: j --> main140 +main140: j --> main139 +main139: j --> main138 +main138: j --> main137 +main137: j --> main136 +main136: j --> main135 +main135: j --> main134 +main134: j --> main133 +main133: j --> main132 +main132: j --> main131 +main131: j --> main130 +main130: j --> main129 +main129: j --> main128 +main128: j --> main127 +main127: j --> main126 +main126: j --> main125 +main125: j --> main124 +main124: j --> main123 +main123: j --> main122 +main122: j --> main121 +main121: j --> main120 +main120: j --> main119 +main119: j --> main118 +main118: j --> main117 +main117: j --> main116 +main116: j --> main115 +main115: j --> main114 +main114: j --> main113 +main113: j --> main112 +main112: j --> main111 +main111: j --> main110 +main110: j --> main109 +main109: j --> main108 +main108: j --> main107 +main107: j --> main106 +main106: j --> main105 +main105: j --> main104 +main104: j --> main103 +main103: j --> main102 +main102: j --> main88 +main88 : emit c13 --> main87 +main87 : li $a1, 0 --> main86 +main86 : move $a0, $sp --> main215 +main215: j --> main85 +main85 : j --> main84 +main84 : li $v0, 4 --> main83 +main83 : mulo $v0, $zero, $v0 --> main82 +main82 : add $v0, $a0, $v0 --> main101 +main101: lw $a1, 0($v0) --> main81 +main81 : emit c12 --> main80 +main80 : j --> main79 +main79 : move $a1, $sp --> main214 +main214: j --> main78 +main78 : li $a0, 1 --> main77 +main77 : li $v0, 4 --> main76 +main76 : mulo $v0, $a0, $v0 --> main75 +main75 : add $v0, $a1, $v0 --> main100 +main100: lw $zero, 0($v0) --> main74 +main74 : emit c11 --> main73 +main73 : j --> main72 +main72 : move $a1, $sp --> main213 +main213: j --> main71 +main71 : li $a0, 2 --> main70 +main70 : li $v0, 4 --> main69 +main69 : mulo $v0, $a0, $v0 --> main68 +main68 : add $v0, $a1, $v0 --> main98 +main98 : lw $zero, 0($v0) --> main67 +main67 : emit c10 --> main66 +main66 : j --> main65 +main65 : move $a1, $sp --> main212 +main212: j --> main64 +main64 : li $a0, 3 --> main63 +main63 : li $v0, 4 --> main62 +main62 : mulo $v0, $a0, $v0 --> main61 +main61 : add $v0, $a1, $v0 --> main97 +main97 : lw $zero, 0($v0) --> main60 +main60 : emit c9 --> main59 +main59 : j --> main58 +main58 : move $a1, $sp --> main210 +main210: j --> main57 +main57 : li $a0, 4 --> main56 +main56 : li $v0, 4 --> main55 +main55 : mulo $v0, $a0, $v0 --> main54 +main54 : add $v0, $a1, $v0 --> main96 +main96 : lw $zero, 0($v0) --> main53 +main53 : emit c8 --> main52 +main52 : li $a1, 0 --> main51 +main51 : move $a0, $sp --> main209 +main209: addi $a0, $a0, 20 --> main50 +main50 : j --> main49 +main49 : li $v0, 4 --> main48 +main48 : mulo $v0, $zero, $v0 --> main47 +main47 : add $v0, $a0, $v0 --> main95 +main95 : lw $a1, 0($v0) --> main46 +main46 : emit c7 --> main45 +main45 : j --> main44 +main44 : move $a1, $sp --> main208 +main208: addi $a1, $a1, 20 --> main43 +main43 : li $a0, 1 --> main42 +main42 : li $v0, 4 --> main41 +main41 : mulo $v0, $a0, $v0 --> main40 +main40 : add $v0, $a1, $v0 --> main94 +main94 : lw $zero, 0($v0) --> main39 +main39 : emit c6 --> main38 +main38 : j --> main37 +main37 : move $a1, $sp --> main207 +main207: addi $a1, $a1, 20 --> main36 +main36 : li $a0, 2 --> main35 +main35 : li $v0, 4 --> main34 +main34 : mulo $v0, $a0, $v0 --> main33 +main33 : add $v0, $a1, $v0 --> main93 +main93 : lw $zero, 0($v0) --> main32 +main32 : emit c5 --> main31 +main31 : j --> main30 +main30 : move $a1, $sp --> main206 +main206: addi $a1, $a1, 20 --> main29 +main29 : li $a0, 3 --> main28 +main28 : li $v0, 4 --> main27 +main27 : mulo $v0, $a0, $v0 --> main26 +main26 : add $v0, $a1, $v0 --> main92 +main92 : lw $zero, 0($v0) --> main25 +main25 : emit c4 --> main24 +main24 : j --> main23 +main23 : move $a1, $sp --> main205 +main205: addi $a1, $a1, 20 --> main22 +main22 : li $a0, 4 --> main21 +main21 : li $v0, 4 --> main20 +main20 : mulo $v0, $a0, $v0 --> main19 +main19 : add $v0, $a1, $v0 --> main90 +main90 : lw $zero, 0($v0) --> main18 +main18 : emit c3 --> main17 +main17 : move $a0, $sp --> main204 +main204: j --> main16 +main16 : move $a1, $sp --> main203 +main203: addi $a1, $a1, 20 --> main15 +main15 : li $a2, 0 --> main14 +main14 : li $a3, 0 --> main13 +main13 : la $v0, array_LE --> main89 +main89 : j --> main221 +main221: j --> main220 +main220: j --> main219 +main219: j --> main218 +main218: j --> main217 +main217: call $v0 --> main216 +main216: j --> main12 +main12 : emit c2 --> main11 +main11 : move $a0, $sp --> main202 +main202: j --> main10 +main10 : j --> main9 +main9 : li $v0, 4 --> main8 +main8 : mulo $v0, $zero, $v0 --> main7 +main7 : add $v0, $a0, $v0 --> main99 +main99 : lw $v0, 0($v0) --> main6 +main6 : j --> main211 +main211: addi $sp, $sp, 20 --> main5 +main5 : li $a1, 1 --> main4 +main4 : li $a0, 4 --> main3 +main3 : mulo $a0, $a1, $a0 --> main2 +main2 : add $a0, $sp, $a0 --> main91 +main91 : lw $a0, 0($a0) --> main1 +main1 : add $v0, $v0, $a0 --> main0 +main0 : j --> main201 +main201: j --> main200 +main200: lw $ra, 40($sp) --> main199 +main199: j --> main198 +main198: j --> main197 +main197: j --> main196 +main196: j --> main195 +main195: j --> main194 +main194: j --> main193 +main193: j --> main192 +main192: j --> main191 +main191: delframe --> main190 +main190: jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_LE.RTL.expected b/tests/clight/testTB_Array_LE.RTL.expected new file mode 100644 index 0000000..a7203fd --- /dev/null +++ b/tests/clight/testTB_Array_LE.RTL.expected @@ -0,0 +1,627 @@ +program + +globals 0 + +procedure array_LE(%0; %1; %2; %3) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13 +entry array_LE24 +array_LE24: li %4, 0 --> array_LE23 +array_LE23: li %5, 0 --> array_LE22 +array_LE22: li %6, 0 --> array_LE21 +array_LE21: li %7, 0 --> array_LE20 +array_LE20: li %8, 0 --> array_LE19 +array_LE19: li %9, 0 --> array_LE18 +array_LE18: li %10, 0 --> array_LE17 +array_LE17: li %11, 0 --> array_LE16 +array_LE16: li %12, 0 --> array_LE15 +array_LE15: li %13, 0 --> array_LE12 +array_LE12: emit c1 --> array_LE11 +array_LE11: li %9, 2 --> array_LE10 +array_LE10: li %11, 4 --> array_LE9 +array_LE9 : mulo %10, %2, %11 --> array_LE8 +array_LE8 : add %13, %0, %10 --> array_LE14 +array_LE14: sw %9, 0(%13) --> array_LE7 +array_LE7 : emit c0 --> array_LE6 +array_LE6 : li %4, 78 --> array_LE5 +array_LE5 : li %8, 1 --> array_LE4 +array_LE4 : add %6, %3, %8 --> array_LE3 +array_LE3 : li %7, 4 --> array_LE2 +array_LE2 : mulo %5, %6, %7 --> array_LE1 +array_LE1 : add %12, %1, %5 --> array_LE13 +array_LE13: sw %4, 0(%12) --> array_LE0 +array_LE0 : return + +function _main() : %0 +stacksize 40 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70, %71, %72, %73, %74, %75, %76, + %77, %78 +entry main179 +main179: li %1, 0 --> main178 +main178: li %2, 0 --> main177 +main177: li %3, 0 --> main176 +main176: li %4, 0 --> main175 +main175: li %5, 0 --> main174 +main174: li %6, 0 --> main173 +main173: li %7, 0 --> main172 +main172: li %8, 0 --> main171 +main171: li %9, 0 --> main170 +main170: li %10, 0 --> main169 +main169: li %11, 0 --> main168 +main168: li %12, 0 --> main167 +main167: li %13, 0 --> main166 +main166: li %14, 0 --> main165 +main165: li %15, 0 --> main164 +main164: li %16, 0 --> main163 +main163: li %17, 0 --> main162 +main162: li %18, 0 --> main161 +main161: li %19, 0 --> main160 +main160: li %20, 0 --> main159 +main159: li %21, 0 --> main158 +main158: li %22, 0 --> main157 +main157: li %23, 0 --> main156 +main156: li %24, 0 --> main155 +main155: li %25, 0 --> main154 +main154: li %26, 0 --> main153 +main153: li %27, 0 --> main152 +main152: li %28, 0 --> main151 +main151: li %29, 0 --> main150 +main150: li %30, 0 --> main149 +main149: li %31, 0 --> main148 +main148: li %32, 0 --> main147 +main147: li %33, 0 --> main146 +main146: li %34, 0 --> main145 +main145: li %35, 0 --> main144 +main144: li %36, 0 --> main143 +main143: li %37, 0 --> main142 +main142: li %38, 0 --> main141 +main141: li %39, 0 --> main140 +main140: li %40, 0 --> main139 +main139: li %41, 0 --> main138 +main138: li %42, 0 --> main137 +main137: li %43, 0 --> main136 +main136: li %44, 0 --> main135 +main135: li %45, 0 --> main134 +main134: li %46, 0 --> main133 +main133: li %47, 0 --> main132 +main132: li %48, 0 --> main131 +main131: li %49, 0 --> main130 +main130: li %50, 0 --> main129 +main129: li %51, 0 --> main128 +main128: li %52, 0 --> main127 +main127: li %53, 0 --> main126 +main126: li %54, 0 --> main125 +main125: li %55, 0 --> main124 +main124: li %56, 0 --> main123 +main123: li %57, 0 --> main122 +main122: li %58, 0 --> main121 +main121: li %59, 0 --> main120 +main120: li %60, 0 --> main119 +main119: li %61, 0 --> main118 +main118: li %62, 0 --> main117 +main117: li %63, 0 --> main116 +main116: li %64, 0 --> main115 +main115: li %65, 0 --> main114 +main114: li %66, 0 --> main113 +main113: li %67, 0 --> main112 +main112: li %68, 0 --> main111 +main111: li %69, 0 --> main110 +main110: li %70, 0 --> main109 +main109: li %71, 0 --> main108 +main108: li %72, 0 --> main107 +main107: li %73, 0 --> main106 +main106: li %74, 0 --> main105 +main105: li %75, 0 --> main104 +main104: li %76, 0 --> main103 +main103: li %77, 0 --> main102 +main102: li %78, 0 --> main88 +main88 : emit c13 --> main87 +main87 : li %61, 0 --> main86 +main86 : addi %62, STACK, 0 --> main85 +main85 : li %64, 0 --> main84 +main84 : li %65, 4 --> main83 +main83 : mulo %63, %64, %65 --> main82 +main82 : add %78, %62, %63 --> main101 +main101: sw %61, 0(%78) --> main81 +main81 : emit c12 --> main80 +main80 : li %56, 0 --> main79 +main79 : addi %57, STACK, 0 --> main78 +main78 : li %59, 1 --> main77 +main77 : li %60, 4 --> main76 +main76 : mulo %58, %59, %60 --> main75 +main75 : add %77, %57, %58 --> main100 +main100: sw %56, 0(%77) --> main74 +main74 : emit c11 --> main73 +main73 : li %51, 0 --> main72 +main72 : addi %52, STACK, 0 --> main71 +main71 : li %54, 2 --> main70 +main70 : li %55, 4 --> main69 +main69 : mulo %53, %54, %55 --> main68 +main68 : add %75, %52, %53 --> main98 +main98 : sw %51, 0(%75) --> main67 +main67 : emit c10 --> main66 +main66 : li %46, 0 --> main65 +main65 : addi %47, STACK, 0 --> main64 +main64 : li %49, 3 --> main63 +main63 : li %50, 4 --> main62 +main62 : mulo %48, %49, %50 --> main61 +main61 : add %74, %47, %48 --> main97 +main97 : sw %46, 0(%74) --> main60 +main60 : emit c9 --> main59 +main59 : li %41, 0 --> main58 +main58 : addi %42, STACK, 0 --> main57 +main57 : li %44, 4 --> main56 +main56 : li %45, 4 --> main55 +main55 : mulo %43, %44, %45 --> main54 +main54 : add %73, %42, %43 --> main96 +main96 : sw %41, 0(%73) --> main53 +main53 : emit c8 --> main52 +main52 : li %36, 0 --> main51 +main51 : addi %37, STACK, 20 --> main50 +main50 : li %39, 0 --> main49 +main49 : li %40, 4 --> main48 +main48 : mulo %38, %39, %40 --> main47 +main47 : add %72, %37, %38 --> main95 +main95 : sw %36, 0(%72) --> main46 +main46 : emit c7 --> main45 +main45 : li %31, 0 --> main44 +main44 : addi %32, STACK, 20 --> main43 +main43 : li %34, 1 --> main42 +main42 : li %35, 4 --> main41 +main41 : mulo %33, %34, %35 --> main40 +main40 : add %71, %32, %33 --> main94 +main94 : sw %31, 0(%71) --> main39 +main39 : emit c6 --> main38 +main38 : li %26, 0 --> main37 +main37 : addi %27, STACK, 20 --> main36 +main36 : li %29, 2 --> main35 +main35 : li %30, 4 --> main34 +main34 : mulo %28, %29, %30 --> main33 +main33 : add %70, %27, %28 --> main93 +main93 : sw %26, 0(%70) --> main32 +main32 : emit c5 --> main31 +main31 : li %21, 0 --> main30 +main30 : addi %22, STACK, 20 --> main29 +main29 : li %24, 3 --> main28 +main28 : li %25, 4 --> main27 +main27 : mulo %23, %24, %25 --> main26 +main26 : add %69, %22, %23 --> main92 +main92 : sw %21, 0(%69) --> main25 +main25 : emit c4 --> main24 +main24 : li %16, 0 --> main23 +main23 : addi %17, STACK, 20 --> main22 +main22 : li %19, 4 --> main21 +main21 : li %20, 4 --> main20 +main20 : mulo %18, %19, %20 --> main19 +main19 : add %67, %17, %18 --> main90 +main90 : sw %16, 0(%67) --> main18 +main18 : emit c3 --> main17 +main17 : addi %11, STACK, 0 --> main16 +main16 : addi %12, STACK, 20 --> main15 +main15 : li %13, 0 --> main14 +main14 : li %14, 0 --> main13 +main13 : la %66, array_LE --> main89 +main89 : call %15, %66(%11, %12, %13, %14) --> main12 +main12 : emit c2 --> main11 +main11 : addi %7, STACK, 0 --> main10 +main10 : li %9, 0 --> main9 +main9 : li %10, 4 --> main8 +main8 : mulo %8, %9, %10 --> main7 +main7 : add %76, %7, %8 --> main99 +main99 : lw %1, 0(%76) --> main6 +main6 : addi %3, STACK, 20 --> main5 +main5 : li %5, 1 --> main4 +main4 : li %6, 4 --> main3 +main3 : mulo %4, %5, %6 --> main2 +main2 : add %68, %3, %4 --> main91 +main91 : lw %2, 0(%68) --> main1 +main1 : add %0, %1, %2 --> main0 +main0 : return %0 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_LE.RTLabs.expected b/tests/clight/testTB_Array_LE.RTLabs.expected new file mode 100644 index 0000000..6e09cd5 --- /dev/null +++ b/tests/clight/testTB_Array_LE.RTLabs.expected @@ -0,0 +1,521 @@ +program: (main function is "main") + + + globals: + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "array_LE"(%0, %1, %2, %3): int -> int -> int -> int -> void + locals: %4, %5, %6, %7, %8, %9, %10, %11 + stacksize: 0 + entry: array_LE12 + exit: array_LE0 + + array_LE9: mul %10, %2, %11 --> array_LE8 + array_LE8: store int32, add, %0, %10, %9 --> array_LE7 + array_LE7: emit c0 --> array_LE6 + array_LE6: imm_int 78, %4, --> array_LE5 + array_LE5: imm_int 1, %8, --> array_LE4 + array_LE4: add %6, %3, %8 --> array_LE3 + array_LE3: imm_int 4, %7, --> array_LE2 + array_LE2: mul %5, %6, %7 --> array_LE1 + array_LE12: emit c1 --> array_LE11 + array_LE11: imm_int 2, %9, --> array_LE10 + array_LE10: imm_int 4, %11, --> array_LE9 + array_LE1: store int32, add, %1, %5, %4 --> array_LE0 + array_LE0: return + + + "main"(): int + locals: %0, %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44, %45, %46, %47, %48, %49, %50, %51, %52, %53, %54, %55, %56, %57, %58, %59, %60, %61, %62, %63, %64, %65 + result: %0 + stacksize: 40 + entry: main88 + exit: main0 + + main9: imm_int 4, %10, --> main8 + main88: emit c13 --> main87 + main87: imm_int 0, %61, --> main86 + main86: imm_addr 0($sp), %62, --> main85 + main85: imm_int 0, %64, --> main84 + main84: imm_int 4, %65, --> main83 + main83: mul %63, %64, %65 --> main82 + main82: store int32, add, %62, %63, %61 --> main81 + main81: emit c12 --> main80 + main80: imm_int 0, %56, --> main79 + main8: mul %8, %9, %10 --> main7 + main79: imm_addr 0($sp), %57, --> main78 + main78: imm_int 1, %59, --> main77 + main77: imm_int 4, %60, --> main76 + main76: mul %58, %59, %60 --> main75 + main75: store int32, add, %57, %58, %56 --> main74 + main74: emit c11 --> main73 + main73: imm_int 0, %51, --> main72 + main72: imm_addr 0($sp), %52, --> main71 + main71: imm_int 2, %54, --> main70 + main70: imm_int 4, %55, --> main69 + main7: load int32, add, %7, %8, %1 --> main6 + main69: mul %53, %54, %55 --> main68 + main68: store int32, add, %52, %53, %51 --> main67 + main67: emit c10 --> main66 + main66: imm_int 0, %46, --> main65 + main65: imm_addr 0($sp), %47, --> main64 + main64: imm_int 3, %49, --> main63 + main63: imm_int 4, %50, --> main62 + main62: mul %48, %49, %50 --> main61 + main61: store int32, add, %47, %48, %46 --> main60 + main60: emit c9 --> main59 + main6: imm_addr 20($sp), %3, --> main5 + main59: imm_int 0, %41, --> main58 + main58: imm_addr 0($sp), %42, --> main57 + main57: imm_int 4, %44, --> main56 + main56: imm_int 4, %45, --> main55 + main55: mul %43, %44, %45 --> main54 + main54: store int32, add, %42, %43, %41 --> main53 + main53: emit c8 --> main52 + main52: imm_int 0, %36, --> main51 + main51: imm_addr 20($sp), %37, --> main50 + main50: imm_int 0, %39, --> main49 + main5: imm_int 1, %5, --> main4 + main49: imm_int 4, %40, --> main48 + main48: mul %38, %39, %40 --> main47 + main47: store int32, add, %37, %38, %36 --> main46 + main46: emit c7 --> main45 + main45: imm_int 0, %31, --> main44 + main44: imm_addr 20($sp), %32, --> main43 + main43: imm_int 1, %34, --> main42 + main42: imm_int 4, %35, --> main41 + main41: mul %33, %34, %35 --> main40 + main40: store int32, add, %32, %33, %31 --> main39 + main4: imm_int 4, %6, --> main3 + main39: emit c6 --> main38 + main38: imm_int 0, %26, --> main37 + main37: imm_addr 20($sp), %27, --> main36 + main36: imm_int 2, %29, --> main35 + main35: imm_int 4, %30, --> main34 + main34: mul %28, %29, %30 --> main33 + main33: store int32, add, %27, %28, %26 --> main32 + main32: emit c5 --> main31 + main31: imm_int 0, %21, --> main30 + main30: imm_addr 20($sp), %22, --> main29 + main3: mul %4, %5, %6 --> main2 + main29: imm_int 3, %24, --> main28 + main28: imm_int 4, %25, --> main27 + main27: mul %23, %24, %25 --> main26 + main26: store int32, add, %22, %23, %21 --> main25 + main25: emit c4 --> main24 + main24: imm_int 0, %16, --> main23 + main23: imm_addr 20($sp), %17, --> main22 + main22: imm_int 4, %19, --> main21 + main21: imm_int 4, %20, --> main20 + main20: mul %18, %19, %20 --> main19 + main2: load int32, add, %3, %4, %2 --> main1 + main19: store int32, add, %17, %18, %16 --> main18 + main18: emit c3 --> main17 + main17: imm_addr 0($sp), %11, --> main16 + main16: imm_addr 20($sp), %12, --> main15 + main15: imm_int 0, %13, --> main14 + main14: imm_int 0, %14, --> main13 + main13: call "array_LE", %11, %12, %13, %14, %15: int -> int -> int -> int -> void --> main12 + main12: emit c2 --> main11 + main11: imm_addr 0($sp), %7, --> main10 + main10: imm_int 0, %9, --> main9 + main1: add %0, %1, %2 --> main0 + main0: return %0 + + diff --git a/tests/clight/testTB_Array_LE.c b/tests/clight/testTB_Array_LE.c new file mode 100644 index 0000000..d3dacca --- /dev/null +++ b/tests/clight/testTB_Array_LE.c @@ -0,0 +1,10 @@ +void array_LE (int tabLE[], int tabLE2[], int i, int j) { + tabLE[i] = 2; + tabLE2[j+1] = 78; +} +int main(){ + int t1[5] = {0,0,0,0,0}; + int t2[5] = {0,0,0,0,0}; + array_LE(t1,t2,0,0); + return t1[0]+t2[1]; +} diff --git a/tests/clight/testTB_Array_LE.c.expected b/tests/clight/testTB_Array_LE.c.expected new file mode 100644 index 0000000..d3dacca --- /dev/null +++ b/tests/clight/testTB_Array_LE.c.expected @@ -0,0 +1,10 @@ +void array_LE (int tabLE[], int tabLE2[], int i, int j) { + tabLE[i] = 2; + tabLE2[j+1] = 78; +} +int main(){ + int t1[5] = {0,0,0,0,0}; + int t2[5] = {0,0,0,0,0}; + array_LE(t1,t2,0,0); + return t1[0]+t2[1]; +} diff --git a/tests/clight/testTB_Array_LE.log.expected b/tests/clight/testTB_Array_LE.log.expected new file mode 100644 index 0000000..ba50dc8 --- /dev/null +++ b/tests/clight/testTB_Array_LE.log.expected @@ -0,0 +1,2 @@ +Global Error (Translation RTLabs -> RTL): + Constant not supported. diff --git a/tests/clight/testTB_Array_double.ASM.expected b/tests/clight/testTB_Array_double.ASM.expected new file mode 100644 index 0000000..0970ee3 --- /dev/null +++ b/tests/clight/testTB_Array_double.ASM.expected @@ -0,0 +1,405 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 20 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main120 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin array_double +array_double49: +c2: +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a1, $v0 +lw $a2, 0($v0) +c1: +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $a1, $v0 +lw $v0, 0($v0) +add $a1, $v0, $a2 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c0: +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +jr $ra +# end array_double + + +# begin _main +main120: +addi $sp, $sp, -24 +sw $ra, 20($sp) +li $a0, 13 +move $v0, $gp +sw $a0, 0($v0) +li $a0, 21 +move $v0, $gp +sw $a0, 4($v0) +li $a0, 34 +move $v0, $gp +sw $a0, 8($v0) +li $a0, 55 +move $v0, $gp +sw $a0, 12($v0) +li $a0, 89 +move $v0, $gp +sw $a0, 16($v0) +c9: +li $a1, 0 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c8: +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c7: +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c6: +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c5: +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c4: +move $a0, $sp +move $a1, $gp +li $a2, 0 +li $a3, 0 +la $v0, array_double49 +jalr $v0 +c3: +lw $ra, 20($sp) +addi $sp, $sp, 24 +jr $ra +# end _main diff --git a/tests/clight/testTB_Array_double.Clight.expected b/tests/clight/testTB_Array_double.Clight.expected new file mode 100644 index 0000000..cbec71b --- /dev/null +++ b/tests/clight/testTB_Array_double.Clight.expected @@ -0,0 +1,298 @@ +int t2[5] = { 13, 21, 34, 55, 89, }; + +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +int array_double(int *tableau1, int *tableau2, int i, int j) +{ + int a; + c2: + a = tableau2[i]; + c1: + tableau1[j] = tableau2[j] + a; + c0: + return tableau1[j]; +} + +int main(void) +{ + int t1[5]; + int t; + c9: + t1[0] = 0; + c8: + t1[1] = 0; + c7: + t1[2] = 0; + c6: + t1[3] = 0; + c5: + t1[4] = 0; + c4: + t = array_double(t1, t2, 0, 0); + c3: + return t; +} + + diff --git a/tests/clight/testTB_Array_double.Cminor.expected b/tests/clight/testTB_Array_double.Cminor.expected new file mode 100644 index 0000000..7a2d40e --- /dev/null +++ b/tests/clight/testTB_Array_double.Cminor.expected @@ -0,0 +1,440 @@ + +var "t2" {13, 21, 34, 55, 89} + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"array_double" (tableau1, tableau2, i, j) : int -> int -> int -> int -> int { + + stack 0; + + var a; + + c2: + a = int32[tableau2 + (i * 4)]; + c1: + int32[tableau1 + (j * 4)] = int32[tableau2 + (j * 4)] + a; + c0: + return int32[tableau1 + (j * 4)]; + +} + + +"main" () : int { + + stack 20; + + var t; + + c9: + int32[&0 + (0 * 4)] = 0; + c8: + int32[&0 + (1 * 4)] = 0; + c7: + int32[&0 + (2 * 4)] = 0; + c6: + int32[&0 + (3 * 4)] = 0; + c5: + int32[&0 + (4 * 4)] = 0; + c4: + t = "array_double"(&0, "t2", 0, 0) : int -> int -> int -> int -> int; + c3: + return t; + +} + + diff --git a/tests/clight/testTB_Array_double.ERTL.expected b/tests/clight/testTB_Array_double.ERTL.expected new file mode 100644 index 0000000..b9d02a7 --- /dev/null +++ b/tests/clight/testTB_Array_double.ERTL.expected @@ -0,0 +1,634 @@ +program + +globals 20 + +procedure array_double(4) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28 +entry array_double49 +array_double49: newframe --> array_double48 +array_double48: move %28, $ra --> array_double47 +array_double47: move %27, $s7 --> array_double46 +array_double46: move %26, $s6 --> array_double45 +array_double45: move %25, $s5 --> array_double44 +array_double44: move %24, $s4 --> array_double43 +array_double43: move %23, $s3 --> array_double42 +array_double42: move %22, $s2 --> array_double41 +array_double41: move %21, $s1 --> array_double40 +array_double40: move %20, $s0 --> array_double39 +array_double39: move %0, $a0 --> array_double38 +array_double38: move %1, $a1 --> array_double37 +array_double37: move %2, $a2 --> array_double36 +array_double36: move %3, $a3 --> array_double35 +array_double35: li %4, 0 --> array_double34 +array_double34: li %6, 0 --> array_double33 +array_double33: li %7, 0 --> array_double32 +array_double32: li %8, 0 --> array_double31 +array_double31: li %9, 0 --> array_double30 +array_double30: li %10, 0 --> array_double29 +array_double29: li %11, 0 --> array_double28 +array_double28: li %12, 0 --> array_double27 +array_double27: li %13, 0 --> array_double26 +array_double26: li %14, 0 --> array_double25 +array_double25: li %15, 0 --> array_double24 +array_double24: li %16, 0 --> array_double23 +array_double23: li %17, 0 --> array_double22 +array_double22: li %18, 0 --> array_double21 +array_double21: li %19, 0 --> array_double16 +array_double16: emit c2 --> array_double15 +array_double15: li %15, 4 --> array_double14 +array_double14: mulo %14, %2, %15 --> array_double13 +array_double13: add %17, %1, %14 --> array_double18 +array_double18: lw %4, 0(%17) --> array_double12 +array_double12: emit c1 --> array_double11 +array_double11: li %13, 4 --> array_double10 +array_double10: mulo %12, %3, %13 --> array_double9 +array_double9 : add %19, %1, %12 --> array_double20 +array_double20: lw %11, 0(%19) --> array_double8 +array_double8 : add %8, %11, %4 --> array_double7 +array_double7 : li %10, 4 --> array_double6 +array_double6 : mulo %9, %3, %10 --> array_double5 +array_double5 : add %18, %0, %9 --> array_double19 +array_double19: sw %8, 0(%18) --> array_double4 +array_double4 : emit c0 --> array_double3 +array_double3 : li %7, 4 --> array_double2 +array_double2 : mulo %6, %3, %7 --> array_double1 +array_double1 : add %16, %0, %6 --> array_double17 +array_double17: lw %5, 0(%16) --> array_double0 +array_double0 : j --> array_double61 +array_double61: move $v0, %5 --> array_double60 +array_double60: move $ra, %28 --> array_double59 +array_double59: move $s7, %27 --> array_double58 +array_double58: move $s6, %26 --> array_double57 +array_double57: move $s5, %25 --> array_double56 +array_double56: move $s4, %24 --> array_double55 +array_double55: move $s3, %23 --> array_double54 +array_double54: move $s2, %22 --> array_double53 +array_double53: move $s1, %21 --> array_double52 +array_double52: move $s0, %20 --> array_double51 +array_double51: delframe --> array_double50 +array_double50: jr $ra (xmits $v0) + +procedure _main(0) +stacksize 20 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55 +entry main120 +main120: newframe --> main119 +main119: move %55, $ra --> main118 +main118: move %54, $s7 --> main117 +main117: move %53, $s6 --> main116 +main116: move %52, $s5 --> main115 +main115: move %51, $s4 --> main114 +main114: move %50, $s3 --> main113 +main113: move %49, $s2 --> main112 +main112: move %48, $s1 --> main111 +main111: move %47, $s0 --> main110 +main110: li %0, 0 --> main109 +main109: li %2, 0 --> main108 +main108: li %3, 0 --> main107 +main107: li %4, 0 --> main106 +main106: li %5, 0 --> main105 +main105: li %6, 0 --> main104 +main104: li %7, 0 --> main103 +main103: li %8, 0 --> main102 +main102: li %9, 0 --> main101 +main101: li %10, 0 --> main100 +main100: li %11, 0 --> main99 +main99 : li %12, 0 --> main98 +main98 : li %13, 0 --> main97 +main97 : li %14, 0 --> main96 +main96 : li %15, 0 --> main95 +main95 : li %16, 0 --> main94 +main94 : li %17, 0 --> main93 +main93 : li %18, 0 --> main92 +main92 : li %19, 0 --> main91 +main91 : li %20, 0 --> main90 +main90 : li %21, 0 --> main89 +main89 : li %22, 0 --> main88 +main88 : li %23, 0 --> main87 +main87 : li %24, 0 --> main86 +main86 : li %25, 0 --> main85 +main85 : li %26, 0 --> main84 +main84 : li %27, 0 --> main83 +main83 : li %28, 0 --> main82 +main82 : li %29, 0 --> main81 +main81 : li %30, 0 --> main80 +main80 : li %31, 0 --> main79 +main79 : li %32, 0 --> main78 +main78 : li %33, 0 --> main77 +main77 : li %34, 0 --> main76 +main76 : li %35, 0 --> main75 +main75 : li %36, 0 --> main74 +main74 : li %37, 0 --> main73 +main73 : li %38, 0 --> main72 +main72 : li %39, 0 --> main71 +main71 : li %40, 0 --> main70 +main70 : li %41, 0 --> main69 +main69 : li %42, 0 --> main68 +main68 : li %43, 0 --> main67 +main67 : li %44, 0 --> main66 +main66 : li %45, 0 --> main65 +main65 : li %46, 0 --> main53 +main53 : li %35, 13 --> main52 +main52 : move %45, $gp --> main142 +main142: move %45, %45 --> main63 +main63 : sw %35, 0(%45) --> main51 +main51 : li %34, 21 --> main50 +main50 : move %44, $gp --> main141 +main141: move %44, %44 --> main62 +main62 : sw %34, 4(%44) --> main49 +main49 : li %33, 34 --> main48 +main48 : move %43, $gp --> main140 +main140: move %43, %43 --> main61 +main61 : sw %33, 8(%43) --> main47 +main47 : li %32, 55 --> main46 +main46 : move %42, $gp --> main139 +main139: move %42, %42 --> main60 +main60 : sw %32, 12(%42) --> main45 +main45 : li %31, 89 --> main44 +main44 : move %41, $gp --> main138 +main138: move %41, %41 --> main59 +main59 : sw %31, 16(%41) --> main43 +main43 : emit c9 --> main42 +main42 : li %26, 0 --> main41 +main41 : move %27, $sp --> main137 +main137: move %27, %27 --> main40 +main40 : li %29, 0 --> main39 +main39 : li %30, 4 --> main38 +main38 : mulo %28, %29, %30 --> main37 +main37 : add %40, %27, %28 --> main58 +main58 : sw %26, 0(%40) --> main36 +main36 : emit c8 --> main35 +main35 : li %21, 0 --> main34 +main34 : move %22, $sp --> main136 +main136: move %22, %22 --> main33 +main33 : li %24, 1 --> main32 +main32 : li %25, 4 --> main31 +main31 : mulo %23, %24, %25 --> main30 +main30 : add %39, %22, %23 --> main57 +main57 : sw %21, 0(%39) --> main29 +main29 : emit c7 --> main28 +main28 : li %16, 0 --> main27 +main27 : move %17, $sp --> main135 +main135: move %17, %17 --> main26 +main26 : li %19, 2 --> main25 +main25 : li %20, 4 --> main24 +main24 : mulo %18, %19, %20 --> main23 +main23 : add %37, %17, %18 --> main55 +main55 : sw %16, 0(%37) --> main22 +main22 : emit c6 --> main21 +main21 : li %11, 0 --> main20 +main20 : move %12, $sp --> main134 +main134: move %12, %12 --> main19 +main19 : li %14, 3 --> main18 +main18 : li %15, 4 --> main17 +main17 : mulo %13, %14, %15 --> main16 +main16 : add %36, %12, %13 --> main54 +main54 : sw %11, 0(%36) --> main15 +main15 : emit c5 --> main14 +main14 : li %6, 0 --> main13 +main13 : move %7, $sp --> main133 +main133: move %7, %7 --> main12 +main12 : li %9, 4 --> main11 +main11 : li %10, 4 --> main10 +main10 : mulo %8, %9, %10 --> main9 +main9 : add %46, %7, %8 --> main64 +main64 : sw %6, 0(%46) --> main8 +main8 : emit c4 --> main7 +main7 : move %2, $sp --> main150 +main150: move %2, %2 --> main6 +main6 : move %3, $gp --> main149 +main149: move %3, %3 --> main5 +main5 : li %4, 0 --> main4 +main4 : li %5, 0 --> main3 +main3 : la %38, array_double --> main56 +main56 : j --> main148 +main148: move $a0, %2 --> main147 +main147: move $a1, %3 --> main146 +main146: move $a2, %4 --> main145 +main145: move $a3, %5 --> main144 +main144: call %38(4) --> main143 +main143: move %0, $v0 --> main2 +main2 : emit c3 --> main1 +main1 : move %1, %0 --> main0 +main0 : j --> main132 +main132: move $v0, %1 --> main131 +main131: move $ra, %55 --> main130 +main130: move $s7, %54 --> main129 +main129: move $s6, %53 --> main128 +main128: move $s5, %52 --> main127 +main127: move $s4, %51 --> main126 +main126: move $s3, %50 --> main125 +main125: move $s2, %49 --> main124 +main124: move $s1, %48 --> main123 +main123: move $s0, %47 --> main122 +main122: delframe --> main121 +main121: jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_double.LIN.expected b/tests/clight/testTB_Array_double.LIN.expected new file mode 100644 index 0000000..8d912b8 --- /dev/null +++ b/tests/clight/testTB_Array_double.LIN.expected @@ -0,0 +1,494 @@ +program + +globals 20 + +procedure array_double(4) +var 0 +array_double49: +newframe +c2: +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a1, $v0 +lw $a2, 0($v0) +c1: +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $a1, $v0 +lw $v0, 0($v0) +add $a1, $v0, $a2 +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c0: +li $v0, 4 +mulo $v0, $a3, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +delframe +jr $ra + +procedure _main(0) +var 24 +main120: +newframe +sw $ra, 20($sp) +li $a0, 13 +move $v0, $gp +sw $a0, 0($v0) +li $a0, 21 +move $v0, $gp +sw $a0, 4($v0) +li $a0, 34 +move $v0, $gp +sw $a0, 8($v0) +li $a0, 55 +move $v0, $gp +sw $a0, 12($v0) +li $a0, 89 +move $v0, $gp +sw $a0, 16($v0) +c9: +li $a1, 0 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c8: +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c7: +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c6: +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c5: +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c4: +move $a0, $sp +move $a1, $gp +li $a2, 0 +li $a3, 0 +la $v0, array_double +call $v0 +c3: +lw $ra, 20($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_double.LTL.expected b/tests/clight/testTB_Array_double.LTL.expected new file mode 100644 index 0000000..dec17a3 --- /dev/null +++ b/tests/clight/testTB_Array_double.LTL.expected @@ -0,0 +1,621 @@ +program + +globals 20 + +procedure array_double(4) +var 0 +entry array_double49 +array_double49: newframe --> array_double48 +array_double48: j --> array_double47 +array_double47: j --> array_double46 +array_double46: j --> array_double45 +array_double45: j --> array_double44 +array_double44: j --> array_double43 +array_double43: j --> array_double42 +array_double42: j --> array_double41 +array_double41: j --> array_double40 +array_double40: j --> array_double39 +array_double39: j --> array_double38 +array_double38: j --> array_double37 +array_double37: j --> array_double36 +array_double36: j --> array_double35 +array_double35: j --> array_double34 +array_double34: j --> array_double33 +array_double33: j --> array_double32 +array_double32: j --> array_double31 +array_double31: j --> array_double30 +array_double30: j --> array_double29 +array_double29: j --> array_double28 +array_double28: j --> array_double27 +array_double27: j --> array_double26 +array_double26: j --> array_double25 +array_double25: j --> array_double24 +array_double24: j --> array_double23 +array_double23: j --> array_double22 +array_double22: j --> array_double21 +array_double21: j --> array_double16 +array_double16: emit c2 --> array_double15 +array_double15: li $v0, 4 --> array_double14 +array_double14: mulo $v0, $a2, $v0 --> array_double13 +array_double13: add $v0, $a1, $v0 --> array_double18 +array_double18: lw $a2, 0($v0) --> array_double12 +array_double12: emit c1 --> array_double11 +array_double11: li $v0, 4 --> array_double10 +array_double10: mulo $v0, $a3, $v0 --> array_double9 +array_double9 : add $v0, $a1, $v0 --> array_double20 +array_double20: lw $v0, 0($v0) --> array_double8 +array_double8 : add $a1, $v0, $a2 --> array_double7 +array_double7 : li $v0, 4 --> array_double6 +array_double6 : mulo $v0, $a3, $v0 --> array_double5 +array_double5 : add $v0, $a0, $v0 --> array_double19 +array_double19: lw $a1, 0($v0) --> array_double4 +array_double4 : emit c0 --> array_double3 +array_double3 : li $v0, 4 --> array_double2 +array_double2 : mulo $v0, $a3, $v0 --> array_double1 +array_double1 : add $v0, $a0, $v0 --> array_double17 +array_double17: lw $v0, 0($v0) --> array_double0 +array_double0 : j --> array_double61 +array_double61: j --> array_double60 +array_double60: j --> array_double59 +array_double59: j --> array_double58 +array_double58: j --> array_double57 +array_double57: j --> array_double56 +array_double56: j --> array_double55 +array_double55: j --> array_double54 +array_double54: j --> array_double53 +array_double53: j --> array_double52 +array_double52: j --> array_double51 +array_double51: delframe --> array_double50 +array_double50: jr $ra + +procedure _main(0) +var 24 +entry main120 +main120: newframe --> main119 +main119: lw $ra, 20($sp) --> main118 +main118: j --> main117 +main117: j --> main116 +main116: j --> main115 +main115: j --> main114 +main114: j --> main113 +main113: j --> main112 +main112: j --> main111 +main111: j --> main110 +main110: j --> main109 +main109: j --> main108 +main108: j --> main107 +main107: j --> main106 +main106: j --> main105 +main105: j --> main104 +main104: j --> main103 +main103: j --> main102 +main102: j --> main101 +main101: j --> main100 +main100: j --> main99 +main99 : j --> main98 +main98 : j --> main97 +main97 : j --> main96 +main96 : j --> main95 +main95 : j --> main94 +main94 : j --> main93 +main93 : j --> main92 +main92 : j --> main91 +main91 : j --> main90 +main90 : j --> main89 +main89 : j --> main88 +main88 : j --> main87 +main87 : j --> main86 +main86 : j --> main85 +main85 : j --> main84 +main84 : j --> main83 +main83 : j --> main82 +main82 : j --> main81 +main81 : j --> main80 +main80 : j --> main79 +main79 : j --> main78 +main78 : j --> main77 +main77 : j --> main76 +main76 : j --> main75 +main75 : j --> main74 +main74 : j --> main73 +main73 : j --> main72 +main72 : j --> main71 +main71 : j --> main70 +main70 : j --> main69 +main69 : j --> main68 +main68 : j --> main67 +main67 : j --> main66 +main66 : j --> main65 +main65 : j --> main53 +main53 : li $a0, 13 --> main52 +main52 : move $v0, $gp --> main142 +main142: j --> main63 +main63 : lw $a0, 0($v0) --> main51 +main51 : li $a0, 21 --> main50 +main50 : move $v0, $gp --> main141 +main141: j --> main62 +main62 : lw $a0, 4($v0) --> main49 +main49 : li $a0, 34 --> main48 +main48 : move $v0, $gp --> main140 +main140: j --> main61 +main61 : lw $a0, 8($v0) --> main47 +main47 : li $a0, 55 --> main46 +main46 : move $v0, $gp --> main139 +main139: j --> main60 +main60 : lw $a0, 12($v0) --> main45 +main45 : li $a0, 89 --> main44 +main44 : move $v0, $gp --> main138 +main138: j --> main59 +main59 : lw $a0, 16($v0) --> main43 +main43 : emit c9 --> main42 +main42 : li $a1, 0 --> main41 +main41 : move $a0, $sp --> main137 +main137: j --> main40 +main40 : j --> main39 +main39 : li $v0, 4 --> main38 +main38 : mulo $v0, $zero, $v0 --> main37 +main37 : add $v0, $a0, $v0 --> main58 +main58 : lw $a1, 0($v0) --> main36 +main36 : emit c8 --> main35 +main35 : j --> main34 +main34 : move $a1, $sp --> main136 +main136: j --> main33 +main33 : li $a0, 1 --> main32 +main32 : li $v0, 4 --> main31 +main31 : mulo $v0, $a0, $v0 --> main30 +main30 : add $v0, $a1, $v0 --> main57 +main57 : lw $zero, 0($v0) --> main29 +main29 : emit c7 --> main28 +main28 : j --> main27 +main27 : move $a1, $sp --> main135 +main135: j --> main26 +main26 : li $a0, 2 --> main25 +main25 : li $v0, 4 --> main24 +main24 : mulo $v0, $a0, $v0 --> main23 +main23 : add $v0, $a1, $v0 --> main55 +main55 : lw $zero, 0($v0) --> main22 +main22 : emit c6 --> main21 +main21 : j --> main20 +main20 : move $a1, $sp --> main134 +main134: j --> main19 +main19 : li $a0, 3 --> main18 +main18 : li $v0, 4 --> main17 +main17 : mulo $v0, $a0, $v0 --> main16 +main16 : add $v0, $a1, $v0 --> main54 +main54 : lw $zero, 0($v0) --> main15 +main15 : emit c5 --> main14 +main14 : j --> main13 +main13 : move $a1, $sp --> main133 +main133: j --> main12 +main12 : li $a0, 4 --> main11 +main11 : li $v0, 4 --> main10 +main10 : mulo $v0, $a0, $v0 --> main9 +main9 : add $v0, $a1, $v0 --> main64 +main64 : lw $zero, 0($v0) --> main8 +main8 : emit c4 --> main7 +main7 : move $a0, $sp --> main150 +main150: j --> main6 +main6 : move $a1, $gp --> main149 +main149: j --> main5 +main5 : li $a2, 0 --> main4 +main4 : li $a3, 0 --> main3 +main3 : la $v0, array_double --> main56 +main56 : j --> main148 +main148: j --> main147 +main147: j --> main146 +main146: j --> main145 +main145: j --> main144 +main144: call $v0 --> main143 +main143: j --> main2 +main2 : emit c3 --> main1 +main1 : j --> main0 +main0 : j --> main132 +main132: j --> main131 +main131: lw $ra, 20($sp) --> main130 +main130: j --> main129 +main129: j --> main128 +main128: j --> main127 +main127: j --> main126 +main126: j --> main125 +main125: j --> main124 +main124: j --> main123 +main123: j --> main122 +main122: delframe --> main121 +main121: jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_double.RTL.expected b/tests/clight/testTB_Array_double.RTL.expected new file mode 100644 index 0000000..fb95f4a --- /dev/null +++ b/tests/clight/testTB_Array_double.RTL.expected @@ -0,0 +1,565 @@ +program + +globals 20 + +function array_double(%0; %1; %2; %3) : %5 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19 +entry array_double35 +array_double35: li %4, 0 --> array_double34 +array_double34: li %6, 0 --> array_double33 +array_double33: li %7, 0 --> array_double32 +array_double32: li %8, 0 --> array_double31 +array_double31: li %9, 0 --> array_double30 +array_double30: li %10, 0 --> array_double29 +array_double29: li %11, 0 --> array_double28 +array_double28: li %12, 0 --> array_double27 +array_double27: li %13, 0 --> array_double26 +array_double26: li %14, 0 --> array_double25 +array_double25: li %15, 0 --> array_double24 +array_double24: li %16, 0 --> array_double23 +array_double23: li %17, 0 --> array_double22 +array_double22: li %18, 0 --> array_double21 +array_double21: li %19, 0 --> array_double16 +array_double16: emit c2 --> array_double15 +array_double15: li %15, 4 --> array_double14 +array_double14: mulo %14, %2, %15 --> array_double13 +array_double13: add %17, %1, %14 --> array_double18 +array_double18: lw %4, 0(%17) --> array_double12 +array_double12: emit c1 --> array_double11 +array_double11: li %13, 4 --> array_double10 +array_double10: mulo %12, %3, %13 --> array_double9 +array_double9 : add %19, %1, %12 --> array_double20 +array_double20: lw %11, 0(%19) --> array_double8 +array_double8 : add %8, %11, %4 --> array_double7 +array_double7 : li %10, 4 --> array_double6 +array_double6 : mulo %9, %3, %10 --> array_double5 +array_double5 : add %18, %0, %9 --> array_double19 +array_double19: sw %8, 0(%18) --> array_double4 +array_double4 : emit c0 --> array_double3 +array_double3 : li %7, 4 --> array_double2 +array_double2 : mulo %6, %3, %7 --> array_double1 +array_double1 : add %16, %0, %6 --> array_double17 +array_double17: lw %5, 0(%16) --> array_double0 +array_double0 : return %5 + +function _main() : %1 +stacksize 20 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46 +entry main110 +main110: li %0, 0 --> main109 +main109: li %2, 0 --> main108 +main108: li %3, 0 --> main107 +main107: li %4, 0 --> main106 +main106: li %5, 0 --> main105 +main105: li %6, 0 --> main104 +main104: li %7, 0 --> main103 +main103: li %8, 0 --> main102 +main102: li %9, 0 --> main101 +main101: li %10, 0 --> main100 +main100: li %11, 0 --> main99 +main99 : li %12, 0 --> main98 +main98 : li %13, 0 --> main97 +main97 : li %14, 0 --> main96 +main96 : li %15, 0 --> main95 +main95 : li %16, 0 --> main94 +main94 : li %17, 0 --> main93 +main93 : li %18, 0 --> main92 +main92 : li %19, 0 --> main91 +main91 : li %20, 0 --> main90 +main90 : li %21, 0 --> main89 +main89 : li %22, 0 --> main88 +main88 : li %23, 0 --> main87 +main87 : li %24, 0 --> main86 +main86 : li %25, 0 --> main85 +main85 : li %26, 0 --> main84 +main84 : li %27, 0 --> main83 +main83 : li %28, 0 --> main82 +main82 : li %29, 0 --> main81 +main81 : li %30, 0 --> main80 +main80 : li %31, 0 --> main79 +main79 : li %32, 0 --> main78 +main78 : li %33, 0 --> main77 +main77 : li %34, 0 --> main76 +main76 : li %35, 0 --> main75 +main75 : li %36, 0 --> main74 +main74 : li %37, 0 --> main73 +main73 : li %38, 0 --> main72 +main72 : li %39, 0 --> main71 +main71 : li %40, 0 --> main70 +main70 : li %41, 0 --> main69 +main69 : li %42, 0 --> main68 +main68 : li %43, 0 --> main67 +main67 : li %44, 0 --> main66 +main66 : li %45, 0 --> main65 +main65 : li %46, 0 --> main53 +main53 : li %35, 13 --> main52 +main52 : addi %45, GLOBALS, 0 --> main63 +main63 : sw %35, 0(%45) --> main51 +main51 : li %34, 21 --> main50 +main50 : addi %44, GLOBALS, 0 --> main62 +main62 : sw %34, 4(%44) --> main49 +main49 : li %33, 34 --> main48 +main48 : addi %43, GLOBALS, 0 --> main61 +main61 : sw %33, 8(%43) --> main47 +main47 : li %32, 55 --> main46 +main46 : addi %42, GLOBALS, 0 --> main60 +main60 : sw %32, 12(%42) --> main45 +main45 : li %31, 89 --> main44 +main44 : addi %41, GLOBALS, 0 --> main59 +main59 : sw %31, 16(%41) --> main43 +main43 : emit c9 --> main42 +main42 : li %26, 0 --> main41 +main41 : addi %27, STACK, 0 --> main40 +main40 : li %29, 0 --> main39 +main39 : li %30, 4 --> main38 +main38 : mulo %28, %29, %30 --> main37 +main37 : add %40, %27, %28 --> main58 +main58 : sw %26, 0(%40) --> main36 +main36 : emit c8 --> main35 +main35 : li %21, 0 --> main34 +main34 : addi %22, STACK, 0 --> main33 +main33 : li %24, 1 --> main32 +main32 : li %25, 4 --> main31 +main31 : mulo %23, %24, %25 --> main30 +main30 : add %39, %22, %23 --> main57 +main57 : sw %21, 0(%39) --> main29 +main29 : emit c7 --> main28 +main28 : li %16, 0 --> main27 +main27 : addi %17, STACK, 0 --> main26 +main26 : li %19, 2 --> main25 +main25 : li %20, 4 --> main24 +main24 : mulo %18, %19, %20 --> main23 +main23 : add %37, %17, %18 --> main55 +main55 : sw %16, 0(%37) --> main22 +main22 : emit c6 --> main21 +main21 : li %11, 0 --> main20 +main20 : addi %12, STACK, 0 --> main19 +main19 : li %14, 3 --> main18 +main18 : li %15, 4 --> main17 +main17 : mulo %13, %14, %15 --> main16 +main16 : add %36, %12, %13 --> main54 +main54 : sw %11, 0(%36) --> main15 +main15 : emit c5 --> main14 +main14 : li %6, 0 --> main13 +main13 : addi %7, STACK, 0 --> main12 +main12 : li %9, 4 --> main11 +main11 : li %10, 4 --> main10 +main10 : mulo %8, %9, %10 --> main9 +main9 : add %46, %7, %8 --> main64 +main64 : sw %6, 0(%46) --> main8 +main8 : emit c4 --> main7 +main7 : addi %2, STACK, 0 --> main6 +main6 : addi %3, GLOBALS, 0 --> main5 +main5 : li %4, 0 --> main4 +main4 : li %5, 0 --> main3 +main3 : la %38, array_double --> main56 +main56 : call %0, %38(%2, %3, %4, %5) --> main2 +main2 : emit c3 --> main1 +main1 : move %1, %0 --> main0 +main0 : return %1 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_double.RTLabs.expected b/tests/clight/testTB_Array_double.RTLabs.expected new file mode 100644 index 0000000..c273a03 --- /dev/null +++ b/tests/clight/testTB_Array_double.RTLabs.expected @@ -0,0 +1,492 @@ +program: (main function is "main") + + + globals: + "t2" = {13, 21, 34, 55, 89} + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "array_double"(%0, %1, %2, %3): int -> int -> int -> int -> int + locals: %5, %4, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15 + result: %5 + stacksize: 0 + entry: array_double16 + exit: array_double0 + + array_double9: load int32, add, %1, %12, %11 --> array_double8 + array_double8: add %8, %11, %4 --> array_double7 + array_double7: imm_int 4, %10, --> array_double6 + array_double6: mul %9, %3, %10 --> array_double5 + array_double5: store int32, add, %0, %9, %8 --> array_double4 + array_double4: emit c0 --> array_double3 + array_double3: imm_int 4, %7, --> array_double2 + array_double2: mul %6, %3, %7 --> array_double1 + array_double16: emit c2 --> array_double15 + array_double15: imm_int 4, %15, --> array_double14 + array_double14: mul %14, %2, %15 --> array_double13 + array_double13: load int32, add, %1, %14, %4 --> array_double12 + array_double12: emit c1 --> array_double11 + array_double11: imm_int 4, %13, --> array_double10 + array_double10: mul %12, %3, %13 --> array_double9 + array_double1: load int32, add, %0, %6, %5 --> array_double0 + array_double0: return %5 + + + "main"(): int + locals: %1, %0, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35 + result: %1 + stacksize: 20 + entry: main53 + exit: main0 + + main9: store int32, add, %7, %8, %6 --> main8 + main8: emit c4 --> main7 + main7: imm_addr 0($sp), %2, --> main6 + main6: imm_addr "t2", %3, --> main5 + main53: imm_int 13, %35, --> main52 + main52: store int32, 0("t2"), , %35 --> main51 + main51: imm_int 21, %34, --> main50 + main50: store int32, 4("t2"), , %34 --> main49 + main5: imm_int 0, %4, --> main4 + main49: imm_int 34, %33, --> main48 + main48: store int32, 8("t2"), , %33 --> main47 + main47: imm_int 55, %32, --> main46 + main46: store int32, 12("t2"), , %32 --> main45 + main45: imm_int 89, %31, --> main44 + main44: store int32, 16("t2"), , %31 --> main43 + main43: emit c9 --> main42 + main42: imm_int 0, %26, --> main41 + main41: imm_addr 0($sp), %27, --> main40 + main40: imm_int 0, %29, --> main39 + main4: imm_int 0, %5, --> main3 + main39: imm_int 4, %30, --> main38 + main38: mul %28, %29, %30 --> main37 + main37: store int32, add, %27, %28, %26 --> main36 + main36: emit c8 --> main35 + main35: imm_int 0, %21, --> main34 + main34: imm_addr 0($sp), %22, --> main33 + main33: imm_int 1, %24, --> main32 + main32: imm_int 4, %25, --> main31 + main31: mul %23, %24, %25 --> main30 + main30: store int32, add, %22, %23, %21 --> main29 + main3: call "array_double", %2, %3, %4, %5, %0: int -> int -> int -> int -> int --> main2 + main29: emit c7 --> main28 + main28: imm_int 0, %16, --> main27 + main27: imm_addr 0($sp), %17, --> main26 + main26: imm_int 2, %19, --> main25 + main25: imm_int 4, %20, --> main24 + main24: mul %18, %19, %20 --> main23 + main23: store int32, add, %17, %18, %16 --> main22 + main22: emit c6 --> main21 + main21: imm_int 0, %11, --> main20 + main20: imm_addr 0($sp), %12, --> main19 + main2: emit c3 --> main1 + main19: imm_int 3, %14, --> main18 + main18: imm_int 4, %15, --> main17 + main17: mul %13, %14, %15 --> main16 + main16: store int32, add, %12, %13, %11 --> main15 + main15: emit c5 --> main14 + main14: imm_int 0, %6, --> main13 + main13: imm_addr 0($sp), %7, --> main12 + main12: imm_int 4, %9, --> main11 + main11: imm_int 4, %10, --> main10 + main10: mul %8, %9, %10 --> main9 + main1: mov %1, %0 --> main0 + main0: return %1 + + diff --git a/tests/clight/testTB_Array_double.c b/tests/clight/testTB_Array_double.c new file mode 100644 index 0000000..94fb026 --- /dev/null +++ b/tests/clight/testTB_Array_double.c @@ -0,0 +1,15 @@ +int t2[5] = {13, 21, 34, 55, 89}; + +int array_double (int tableau1[], int tableau2[], int i, int j) { + int a; + + a = tableau2[i]; + + tableau1[j] = tableau2[j]+a; + + return tableau1[j]; +} +int main(){ + int t1[5] = {0,0,0,0,0}; + return array_double(t1,t2,0,0); +} diff --git a/tests/clight/testTB_Array_double.c.expected b/tests/clight/testTB_Array_double.c.expected new file mode 100644 index 0000000..94fb026 --- /dev/null +++ b/tests/clight/testTB_Array_double.c.expected @@ -0,0 +1,15 @@ +int t2[5] = {13, 21, 34, 55, 89}; + +int array_double (int tableau1[], int tableau2[], int i, int j) { + int a; + + a = tableau2[i]; + + tableau1[j] = tableau2[j]+a; + + return tableau1[j]; +} +int main(){ + int t1[5] = {0,0,0,0,0}; + return array_double(t1,t2,0,0); +} diff --git a/tests/clight/testTB_Array_double.log.expected b/tests/clight/testTB_Array_double.log.expected new file mode 100644 index 0000000..ba50dc8 --- /dev/null +++ b/tests/clight/testTB_Array_double.log.expected @@ -0,0 +1,2 @@ +Global Error (Translation RTLabs -> RTL): + Constant not supported. diff --git a/tests/clight/testTB_Array_ecriture.ASM.expected b/tests/clight/testTB_Array_ecriture.ASM.expected new file mode 100644 index 0000000..707be20 --- /dev/null +++ b/tests/clight/testTB_Array_ecriture.ASM.expected @@ -0,0 +1,364 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 20 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main56 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin array_ecriture +array_ecriture35: +c2: +li $a3, 1 +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a0, $v0 +sw $a3, 0($v0) +c1: +li $a1, 5 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c0: +li $v0, 0 +jr $ra +# end array_ecriture + + +# begin _main +main56: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $v0, $gp +sw $zero, 0($v0) +move $v0, $gp +sw $zero, 4($v0) +move $v0, $gp +sw $zero, 8($v0) +move $v0, $gp +sw $zero, 12($v0) +move $v0, $gp +sw $zero, 16($v0) +c4: +move $a0, $gp +li $a1, 0 +li $a2, 1 +la $v0, array_ecriture35 +jalr $v0 +c3: +li $a0, 1 +li $v0, 4 +mulo $a0, $a0, $v0 +move $v0, $gp +add $v0, $v0, $a0 +lw $v0, 0($v0) +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end _main diff --git a/tests/clight/testTB_Array_ecriture.Clight.expected b/tests/clight/testTB_Array_ecriture.Clight.expected new file mode 100644 index 0000000..1acc1c4 --- /dev/null +++ b/tests/clight/testTB_Array_ecriture.Clight.expected @@ -0,0 +1,286 @@ +int t[5] = { 0, 0, 0, 0, 0, }; + +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +int array_ecriture(int *tabecr, int i, int j) +{ + c2: + tabecr[i] = 1; + c1: + tabecr[j] = 5; + c0: + return 0; +} + +int main(void) +{ + int a; + c4: + a = array_ecriture(t, 0, 1); + c3: + return t[1]; +} + + diff --git a/tests/clight/testTB_Array_ecriture.Cminor.expected b/tests/clight/testTB_Array_ecriture.Cminor.expected new file mode 100644 index 0000000..fc34775 --- /dev/null +++ b/tests/clight/testTB_Array_ecriture.Cminor.expected @@ -0,0 +1,428 @@ + +var "t" {0, 0, 0, 0, 0} + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"array_ecriture" (tabecr, i, j) : int -> int -> int -> int { + + stack 0; + + c2: + int32[tabecr + (i * 4)] = 1; + c1: + int32[tabecr + (j * 4)] = 5; + c0: + return 0; + +} + + +"main" () : int { + + stack 0; + + var a; + + c4: + a = "array_ecriture"("t", 0, 1) : int -> int -> int -> int; + c3: + return int32["t" + (1 * 4)]; + +} + + diff --git a/tests/clight/testTB_Array_ecriture.ERTL.expected b/tests/clight/testTB_Array_ecriture.ERTL.expected new file mode 100644 index 0000000..36dedf3 --- /dev/null +++ b/tests/clight/testTB_Array_ecriture.ERTL.expected @@ -0,0 +1,544 @@ +program + +globals 20 + +procedure array_ecriture(3) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20 +entry array_ecriture35 +array_ecriture35: newframe --> array_ecriture34 +array_ecriture34: move %20, $ra --> array_ecriture33 +array_ecriture33: move %19, $s7 --> array_ecriture32 +array_ecriture32: move %18, $s6 --> array_ecriture31 +array_ecriture31: move %17, $s5 --> array_ecriture30 +array_ecriture30: move %16, $s4 --> array_ecriture29 +array_ecriture29: move %15, $s3 --> array_ecriture28 +array_ecriture28: move %14, $s2 --> array_ecriture27 +array_ecriture27: move %13, $s1 --> array_ecriture26 +array_ecriture26: move %12, $s0 --> array_ecriture25 +array_ecriture25: move %0, $a0 --> array_ecriture24 +array_ecriture24: move %1, $a1 --> array_ecriture23 +array_ecriture23: move %2, $a2 --> array_ecriture22 +array_ecriture22: li %4, 0 --> array_ecriture21 +array_ecriture21: li %5, 0 --> array_ecriture20 +array_ecriture20: li %6, 0 --> array_ecriture19 +array_ecriture19: li %7, 0 --> array_ecriture18 +array_ecriture18: li %8, 0 --> array_ecriture17 +array_ecriture17: li %9, 0 --> array_ecriture16 +array_ecriture16: li %10, 0 --> array_ecriture15 +array_ecriture15: li %11, 0 --> array_ecriture12 +array_ecriture12: emit c2 --> array_ecriture11 +array_ecriture11: li %7, 1 --> array_ecriture10 +array_ecriture10: li %9, 4 --> array_ecriture9 +array_ecriture9 : mulo %8, %1, %9 --> array_ecriture8 +array_ecriture8 : add %11, %0, %8 --> array_ecriture14 +array_ecriture14: sw %7, 0(%11) --> array_ecriture7 +array_ecriture7 : emit c1 --> array_ecriture6 +array_ecriture6 : li %4, 5 --> array_ecriture5 +array_ecriture5 : li %6, 4 --> array_ecriture4 +array_ecriture4 : mulo %5, %2, %6 --> array_ecriture3 +array_ecriture3 : add %10, %0, %5 --> array_ecriture13 +array_ecriture13: sw %4, 0(%10) --> array_ecriture2 +array_ecriture2 : emit c0 --> array_ecriture1 +array_ecriture1 : li %3, 0 --> array_ecriture0 +array_ecriture0 : j --> array_ecriture47 +array_ecriture47: move $v0, %3 --> array_ecriture46 +array_ecriture46: move $ra, %20 --> array_ecriture45 +array_ecriture45: move $s7, %19 --> array_ecriture44 +array_ecriture44: move $s6, %18 --> array_ecriture43 +array_ecriture43: move $s5, %17 --> array_ecriture42 +array_ecriture42: move $s4, %16 --> array_ecriture41 +array_ecriture41: move $s3, %15 --> array_ecriture40 +array_ecriture40: move $s2, %14 --> array_ecriture39 +array_ecriture39: move $s1, %13 --> array_ecriture38 +array_ecriture38: move $s0, %12 --> array_ecriture37 +array_ecriture37: delframe --> array_ecriture36 +array_ecriture36: jr $ra (xmits $v0) + +procedure _main(0) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27 +entry main56 +main56: newframe --> main55 +main55: move %27, $ra --> main54 +main54: move %26, $s7 --> main53 +main53: move %25, $s6 --> main52 +main52: move %24, $s5 --> main51 +main51: move %23, $s4 --> main50 +main50: move %22, $s3 --> main49 +main49: move %21, $s2 --> main48 +main48: move %20, $s1 --> main47 +main47: move %19, $s0 --> main46 +main46: li %0, 0 --> main45 +main45: li %2, 0 --> main44 +main44: li %3, 0 --> main43 +main43: li %4, 0 --> main42 +main42: li %5, 0 --> main41 +main41: li %6, 0 --> main40 +main40: li %7, 0 --> main39 +main39: li %8, 0 --> main38 +main38: li %9, 0 --> main37 +main37: li %10, 0 --> main36 +main36: li %11, 0 --> main35 +main35: li %12, 0 --> main34 +main34: li %13, 0 --> main33 +main33: li %14, 0 --> main32 +main32: li %15, 0 --> main31 +main31: li %16, 0 --> main30 +main30: li %17, 0 --> main29 +main29: li %18, 0 --> main20 +main20: li %12, 0 --> main19 +main19: move %17, $gp --> main74 +main74: move %17, %17 --> main27 +main27: sw %12, 0(%17) --> main18 +main18: li %11, 0 --> main17 +main17: move %16, $gp --> main73 +main73: move %16, %16 --> main26 +main26: sw %11, 4(%16) --> main16 +main16: li %10, 0 --> main15 +main15: move %15, $gp --> main72 +main72: move %15, %15 --> main25 +main25: sw %10, 8(%15) --> main14 +main14: li %9, 0 --> main13 +main13: move %14, $gp --> main71 +main71: move %14, %14 --> main24 +main24: sw %9, 12(%14) --> main12 +main12: li %8, 0 --> main11 +main11: move %13, $gp --> main70 +main70: move %13, %13 --> main23 +main23: sw %8, 16(%13) --> main10 +main10: emit c4 --> main9 +main9 : move %5, $gp --> main80 +main80: move %5, %5 --> main8 +main8 : li %6, 0 --> main7 +main7 : li %7, 1 --> main6 +main6 : la %18, array_ecriture --> main28 +main28: j --> main79 +main79: move $a0, %5 --> main78 +main78: move $a1, %6 --> main77 +main77: move $a2, %7 --> main76 +main76: call %18(3) --> main75 +main75: move %0, $v0 --> main5 +main5 : emit c3 --> main4 +main4 : li %3, 1 --> main3 +main3 : li %4, 4 --> main2 +main2 : mulo %2, %3, %4 --> main1 +main1 : move %1, $gp --> main69 +main69: move %1, %1 --> main22 +main22: add %1, %1, %2 --> main21 +main21: lw %1, 0(%1) --> main0 +main0 : j --> main68 +main68: move $v0, %1 --> main67 +main67: move $ra, %27 --> main66 +main66: move $s7, %26 --> main65 +main65: move $s6, %25 --> main64 +main64: move $s5, %24 --> main63 +main63: move $s4, %23 --> main62 +main62: move $s3, %22 --> main61 +main61: move $s2, %21 --> main60 +main60: move $s1, %20 --> main59 +main59: move $s0, %19 --> main58 +main58: delframe --> main57 +main57: jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_ecriture.LIN.expected b/tests/clight/testTB_Array_ecriture.LIN.expected new file mode 100644 index 0000000..5f5e6da --- /dev/null +++ b/tests/clight/testTB_Array_ecriture.LIN.expected @@ -0,0 +1,453 @@ +program + +globals 20 + +procedure array_ecriture(3) +var 0 +array_ecriture35: +newframe +c2: +li $a3, 1 +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a0, $v0 +sw $a3, 0($v0) +c1: +li $a1, 5 +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c0: +li $v0, 0 +delframe +jr $ra + +procedure _main(0) +var 4 +main56: +newframe +sw $ra, 0($sp) +move $v0, $gp +sw $zero, 0($v0) +move $v0, $gp +sw $zero, 4($v0) +move $v0, $gp +sw $zero, 8($v0) +move $v0, $gp +sw $zero, 12($v0) +move $v0, $gp +sw $zero, 16($v0) +c4: +move $a0, $gp +li $a1, 0 +li $a2, 1 +la $v0, array_ecriture +call $v0 +c3: +li $a0, 1 +li $v0, 4 +mulo $a0, $a0, $v0 +move $v0, $gp +add $v0, $v0, $a0 +lw $v0, 0($v0) +lw $ra, 0($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_ecriture.LTL.expected b/tests/clight/testTB_Array_ecriture.LTL.expected new file mode 100644 index 0000000..2c792b9 --- /dev/null +++ b/tests/clight/testTB_Array_ecriture.LTL.expected @@ -0,0 +1,537 @@ +program + +globals 20 + +procedure array_ecriture(3) +var 0 +entry array_ecriture35 +array_ecriture35: newframe --> array_ecriture34 +array_ecriture34: j --> array_ecriture33 +array_ecriture33: j --> array_ecriture32 +array_ecriture32: j --> array_ecriture31 +array_ecriture31: j --> array_ecriture30 +array_ecriture30: j --> array_ecriture29 +array_ecriture29: j --> array_ecriture28 +array_ecriture28: j --> array_ecriture27 +array_ecriture27: j --> array_ecriture26 +array_ecriture26: j --> array_ecriture25 +array_ecriture25: j --> array_ecriture24 +array_ecriture24: j --> array_ecriture23 +array_ecriture23: j --> array_ecriture22 +array_ecriture22: j --> array_ecriture21 +array_ecriture21: j --> array_ecriture20 +array_ecriture20: j --> array_ecriture19 +array_ecriture19: j --> array_ecriture18 +array_ecriture18: j --> array_ecriture17 +array_ecriture17: j --> array_ecriture16 +array_ecriture16: j --> array_ecriture15 +array_ecriture15: j --> array_ecriture12 +array_ecriture12: emit c2 --> array_ecriture11 +array_ecriture11: li $a3, 1 --> array_ecriture10 +array_ecriture10: li $v0, 4 --> array_ecriture9 +array_ecriture9 : mulo $v0, $a1, $v0 --> array_ecriture8 +array_ecriture8 : add $v0, $a0, $v0 --> array_ecriture14 +array_ecriture14: lw $a3, 0($v0) --> array_ecriture7 +array_ecriture7 : emit c1 --> array_ecriture6 +array_ecriture6 : li $a1, 5 --> array_ecriture5 +array_ecriture5 : li $v0, 4 --> array_ecriture4 +array_ecriture4 : mulo $v0, $a2, $v0 --> array_ecriture3 +array_ecriture3 : add $v0, $a0, $v0 --> array_ecriture13 +array_ecriture13: lw $a1, 0($v0) --> array_ecriture2 +array_ecriture2 : emit c0 --> array_ecriture1 +array_ecriture1 : li $v0, 0 --> array_ecriture0 +array_ecriture0 : j --> array_ecriture47 +array_ecriture47: j --> array_ecriture46 +array_ecriture46: j --> array_ecriture45 +array_ecriture45: j --> array_ecriture44 +array_ecriture44: j --> array_ecriture43 +array_ecriture43: j --> array_ecriture42 +array_ecriture42: j --> array_ecriture41 +array_ecriture41: j --> array_ecriture40 +array_ecriture40: j --> array_ecriture39 +array_ecriture39: j --> array_ecriture38 +array_ecriture38: j --> array_ecriture37 +array_ecriture37: delframe --> array_ecriture36 +array_ecriture36: jr $ra + +procedure _main(0) +var 4 +entry main56 +main56: newframe --> main55 +main55: lw $ra, 0($sp) --> main54 +main54: j --> main53 +main53: j --> main52 +main52: j --> main51 +main51: j --> main50 +main50: j --> main49 +main49: j --> main48 +main48: j --> main47 +main47: j --> main46 +main46: j --> main45 +main45: j --> main44 +main44: j --> main43 +main43: j --> main42 +main42: j --> main41 +main41: j --> main40 +main40: j --> main39 +main39: j --> main38 +main38: j --> main37 +main37: j --> main36 +main36: j --> main35 +main35: j --> main34 +main34: j --> main33 +main33: j --> main32 +main32: j --> main31 +main31: j --> main30 +main30: j --> main29 +main29: j --> main20 +main20: j --> main19 +main19: move $v0, $gp --> main74 +main74: j --> main27 +main27: lw $zero, 0($v0) --> main18 +main18: j --> main17 +main17: move $v0, $gp --> main73 +main73: j --> main26 +main26: lw $zero, 4($v0) --> main16 +main16: j --> main15 +main15: move $v0, $gp --> main72 +main72: j --> main25 +main25: lw $zero, 8($v0) --> main14 +main14: j --> main13 +main13: move $v0, $gp --> main71 +main71: j --> main24 +main24: lw $zero, 12($v0) --> main12 +main12: j --> main11 +main11: move $v0, $gp --> main70 +main70: j --> main23 +main23: lw $zero, 16($v0) --> main10 +main10: emit c4 --> main9 +main9 : move $a0, $gp --> main80 +main80: j --> main8 +main8 : li $a1, 0 --> main7 +main7 : li $a2, 1 --> main6 +main6 : la $v0, array_ecriture --> main28 +main28: j --> main79 +main79: j --> main78 +main78: j --> main77 +main77: j --> main76 +main76: call $v0 --> main75 +main75: j --> main5 +main5 : emit c3 --> main4 +main4 : li $a0, 1 --> main3 +main3 : li $v0, 4 --> main2 +main2 : mulo $a0, $a0, $v0 --> main1 +main1 : move $v0, $gp --> main69 +main69: j --> main22 +main22: add $v0, $v0, $a0 --> main21 +main21: lw $v0, 0($v0) --> main0 +main0 : j --> main68 +main68: j --> main67 +main67: lw $ra, 0($sp) --> main66 +main66: j --> main65 +main65: j --> main64 +main64: j --> main63 +main63: j --> main62 +main62: j --> main61 +main61: j --> main60 +main60: j --> main59 +main59: j --> main58 +main58: delframe --> main57 +main57: jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_ecriture.RTL.expected b/tests/clight/testTB_Array_ecriture.RTL.expected new file mode 100644 index 0000000..cb8e401 --- /dev/null +++ b/tests/clight/testTB_Array_ecriture.RTL.expected @@ -0,0 +1,483 @@ +program + +globals 20 + +function array_ecriture(%0; %1; %2) : %3 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11 +entry array_ecriture22 +array_ecriture22: li %4, 0 --> array_ecriture21 +array_ecriture21: li %5, 0 --> array_ecriture20 +array_ecriture20: li %6, 0 --> array_ecriture19 +array_ecriture19: li %7, 0 --> array_ecriture18 +array_ecriture18: li %8, 0 --> array_ecriture17 +array_ecriture17: li %9, 0 --> array_ecriture16 +array_ecriture16: li %10, 0 --> array_ecriture15 +array_ecriture15: li %11, 0 --> array_ecriture12 +array_ecriture12: emit c2 --> array_ecriture11 +array_ecriture11: li %7, 1 --> array_ecriture10 +array_ecriture10: li %9, 4 --> array_ecriture9 +array_ecriture9 : mulo %8, %1, %9 --> array_ecriture8 +array_ecriture8 : add %11, %0, %8 --> array_ecriture14 +array_ecriture14: sw %7, 0(%11) --> array_ecriture7 +array_ecriture7 : emit c1 --> array_ecriture6 +array_ecriture6 : li %4, 5 --> array_ecriture5 +array_ecriture5 : li %6, 4 --> array_ecriture4 +array_ecriture4 : mulo %5, %2, %6 --> array_ecriture3 +array_ecriture3 : add %10, %0, %5 --> array_ecriture13 +array_ecriture13: sw %4, 0(%10) --> array_ecriture2 +array_ecriture2 : emit c0 --> array_ecriture1 +array_ecriture1 : li %3, 0 --> array_ecriture0 +array_ecriture0 : return %3 + +function _main() : %1 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18 +entry main46 +main46: li %0, 0 --> main45 +main45: li %2, 0 --> main44 +main44: li %3, 0 --> main43 +main43: li %4, 0 --> main42 +main42: li %5, 0 --> main41 +main41: li %6, 0 --> main40 +main40: li %7, 0 --> main39 +main39: li %8, 0 --> main38 +main38: li %9, 0 --> main37 +main37: li %10, 0 --> main36 +main36: li %11, 0 --> main35 +main35: li %12, 0 --> main34 +main34: li %13, 0 --> main33 +main33: li %14, 0 --> main32 +main32: li %15, 0 --> main31 +main31: li %16, 0 --> main30 +main30: li %17, 0 --> main29 +main29: li %18, 0 --> main20 +main20: li %12, 0 --> main19 +main19: addi %17, GLOBALS, 0 --> main27 +main27: sw %12, 0(%17) --> main18 +main18: li %11, 0 --> main17 +main17: addi %16, GLOBALS, 0 --> main26 +main26: sw %11, 4(%16) --> main16 +main16: li %10, 0 --> main15 +main15: addi %15, GLOBALS, 0 --> main25 +main25: sw %10, 8(%15) --> main14 +main14: li %9, 0 --> main13 +main13: addi %14, GLOBALS, 0 --> main24 +main24: sw %9, 12(%14) --> main12 +main12: li %8, 0 --> main11 +main11: addi %13, GLOBALS, 0 --> main23 +main23: sw %8, 16(%13) --> main10 +main10: emit c4 --> main9 +main9 : addi %5, GLOBALS, 0 --> main8 +main8 : li %6, 0 --> main7 +main7 : li %7, 1 --> main6 +main6 : la %18, array_ecriture --> main28 +main28: call %0, %18(%5, %6, %7) --> main5 +main5 : emit c3 --> main4 +main4 : li %3, 1 --> main3 +main3 : li %4, 4 --> main2 +main2 : mulo %2, %3, %4 --> main1 +main1 : addi %1, GLOBALS, 0 --> main22 +main22: add %1, %1, %2 --> main21 +main21: lw %1, 0(%1) --> main0 +main0 : return %1 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_ecriture.RTLabs.expected b/tests/clight/testTB_Array_ecriture.RTLabs.expected new file mode 100644 index 0000000..69473f3 --- /dev/null +++ b/tests/clight/testTB_Array_ecriture.RTLabs.expected @@ -0,0 +1,455 @@ +program: (main function is "main") + + + globals: + "t" = {0, 0, 0, 0, 0} + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "array_ecriture"(%0, %1, %2): int -> int -> int -> int + locals: %3, %4, %5, %6, %7, %8, %9 + result: %3 + stacksize: 0 + entry: array_ecriture12 + exit: array_ecriture0 + + array_ecriture9: mul %8, %1, %9 --> array_ecriture8 + array_ecriture8: store int32, add, %0, %8, %7 --> array_ecriture7 + array_ecriture7: emit c1 --> array_ecriture6 + array_ecriture6: imm_int 5, %4, --> array_ecriture5 + array_ecriture5: imm_int 4, %6, --> array_ecriture4 + array_ecriture4: mul %5, %2, %6 --> array_ecriture3 + array_ecriture3: store int32, add, %0, %5, %4 --> array_ecriture2 + array_ecriture2: emit c0 --> array_ecriture1 + array_ecriture12: emit c2 --> array_ecriture11 + array_ecriture11: imm_int 1, %7, --> array_ecriture10 + array_ecriture10: imm_int 4, %9, --> array_ecriture9 + array_ecriture1: imm_int 0, %3, --> array_ecriture0 + array_ecriture0: return %3 + + + "main"(): int + locals: %1, %0, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12 + result: %1 + stacksize: 0 + entry: main20 + exit: main0 + + main9: imm_addr "t", %5, --> main8 + main8: imm_int 0, %6, --> main7 + main7: imm_int 1, %7, --> main6 + main6: call "array_ecriture", %5, %6, %7, %0: int -> int -> int -> int --> main5 + main5: emit c3 --> main4 + main4: imm_int 1, %3, --> main3 + main3: imm_int 4, %4, --> main2 + main20: imm_int 0, %12, --> main19 + main2: mul %2, %3, %4 --> main1 + main19: store int32, 0("t"), , %12 --> main18 + main18: imm_int 0, %11, --> main17 + main17: store int32, 4("t"), , %11 --> main16 + main16: imm_int 0, %10, --> main15 + main15: store int32, 8("t"), , %10 --> main14 + main14: imm_int 0, %9, --> main13 + main13: store int32, 12("t"), , %9 --> main12 + main12: imm_int 0, %8, --> main11 + main11: store int32, 16("t"), , %8 --> main10 + main10: emit c4 --> main9 + main1: load int32, add, 0("t"), %2, %1 --> main0 + main0: return %1 + + diff --git a/tests/clight/testTB_Array_ecriture.c b/tests/clight/testTB_Array_ecriture.c new file mode 100644 index 0000000..add6fe2 --- /dev/null +++ b/tests/clight/testTB_Array_ecriture.c @@ -0,0 +1,14 @@ +int t[5] = {0,0,0,0,0}; + +int array_ecriture (int tabecr[], int i, int j) { + + tabecr[i] = 1; + tabecr[j] = 5; + + return 0; +} + +int main(){ + int a = array_ecriture(t,0,1); + return t[1]; +} diff --git a/tests/clight/testTB_Array_ecriture.c.expected b/tests/clight/testTB_Array_ecriture.c.expected new file mode 100644 index 0000000..add6fe2 --- /dev/null +++ b/tests/clight/testTB_Array_ecriture.c.expected @@ -0,0 +1,14 @@ +int t[5] = {0,0,0,0,0}; + +int array_ecriture (int tabecr[], int i, int j) { + + tabecr[i] = 1; + tabecr[j] = 5; + + return 0; +} + +int main(){ + int a = array_ecriture(t,0,1); + return t[1]; +} diff --git a/tests/clight/testTB_Array_ecriture.log.expected b/tests/clight/testTB_Array_ecriture.log.expected new file mode 100644 index 0000000..48d8669 --- /dev/null +++ b/tests/clight/testTB_Array_ecriture.log.expected @@ -0,0 +1,2 @@ +Global Error (Translation RTLabs -> RTL): + Load mode not supported. diff --git a/tests/clight/testTB_Array_lecture.ASM.expected b/tests/clight/testTB_Array_lecture.ASM.expected new file mode 100644 index 0000000..90ab730 --- /dev/null +++ b/tests/clight/testTB_Array_lecture.ASM.expected @@ -0,0 +1,361 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 20 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main48 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin array_lecture +array_lecture33: +c2: +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a0, $v0 +lw $a1, 0($v0) +c1: +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +c0: +add $v0, $a1, $v0 +jr $ra +# end array_lecture + + +# begin _main +main48: +addi $sp, $sp, -4 +sw $ra, 0($sp) +li $a0, 1 +move $v0, $gp +sw $a0, 0($v0) +li $a0, 2 +move $v0, $gp +sw $a0, 4($v0) +li $a0, 3 +move $v0, $gp +sw $a0, 8($v0) +li $a0, 5 +move $v0, $gp +sw $a0, 12($v0) +li $a0, 8 +move $v0, $gp +sw $a0, 16($v0) +c4: +move $a0, $gp +li $a1, 0 +li $a2, 4 +la $v0, array_lecture33 +jalr $v0 +c3: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end _main diff --git a/tests/clight/testTB_Array_lecture.Clight.expected b/tests/clight/testTB_Array_lecture.Clight.expected new file mode 100644 index 0000000..70030df --- /dev/null +++ b/tests/clight/testTB_Array_lecture.Clight.expected @@ -0,0 +1,288 @@ +int t[5] = { 1, 2, 3, 5, 8, }; + +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +int array_lecture(int *tablec, int i, int j) +{ + int a; + int b; + c2: + a = tablec[i]; + c1: + b = tablec[j]; + c0: + return a + b; +} + +int main(void) +{ + int t__1; + c4: + t__1 = array_lecture(t, 0, 4); + c3: + return t__1; +} + + diff --git a/tests/clight/testTB_Array_lecture.Cminor.expected b/tests/clight/testTB_Array_lecture.Cminor.expected new file mode 100644 index 0000000..27b79e2 --- /dev/null +++ b/tests/clight/testTB_Array_lecture.Cminor.expected @@ -0,0 +1,430 @@ + +var "t" {1, 2, 3, 5, 8} + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"array_lecture" (tablec, i, j) : int -> int -> int -> int { + + stack 0; + + var b, a; + + c2: + a = int32[tablec + (i * 4)]; + c1: + b = int32[tablec + (j * 4)]; + c0: + return a + b; + +} + + +"main" () : int { + + stack 0; + + var t__1; + + c4: + t__1 = "array_lecture"("t", 0, 4) : int -> int -> int -> int; + c3: + return t__1; + +} + + diff --git a/tests/clight/testTB_Array_lecture.ERTL.expected b/tests/clight/testTB_Array_lecture.ERTL.expected new file mode 100644 index 0000000..ddf11f8 --- /dev/null +++ b/tests/clight/testTB_Array_lecture.ERTL.expected @@ -0,0 +1,533 @@ +program + +globals 20 + +procedure array_lecture(3) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20 +entry array_lecture33 +array_lecture33: newframe --> array_lecture32 +array_lecture32: move %20, $ra --> array_lecture31 +array_lecture31: move %19, $s7 --> array_lecture30 +array_lecture30: move %18, $s6 --> array_lecture29 +array_lecture29: move %17, $s5 --> array_lecture28 +array_lecture28: move %16, $s4 --> array_lecture27 +array_lecture27: move %15, $s3 --> array_lecture26 +array_lecture26: move %14, $s2 --> array_lecture25 +array_lecture25: move %13, $s1 --> array_lecture24 +array_lecture24: move %12, $s0 --> array_lecture23 +array_lecture23: move %0, $a0 --> array_lecture22 +array_lecture22: move %1, $a1 --> array_lecture21 +array_lecture21: move %2, $a2 --> array_lecture20 +array_lecture20: li %3, 0 --> array_lecture19 +array_lecture19: li %4, 0 --> array_lecture18 +array_lecture18: li %6, 0 --> array_lecture17 +array_lecture17: li %7, 0 --> array_lecture16 +array_lecture16: li %8, 0 --> array_lecture15 +array_lecture15: li %9, 0 --> array_lecture14 +array_lecture14: li %10, 0 --> array_lecture13 +array_lecture13: li %11, 0 --> array_lecture10 +array_lecture10: emit c2 --> array_lecture9 +array_lecture9 : li %9, 4 --> array_lecture8 +array_lecture8 : mulo %8, %1, %9 --> array_lecture7 +array_lecture7 : add %11, %0, %8 --> array_lecture12 +array_lecture12: lw %4, 0(%11) --> array_lecture6 +array_lecture6 : emit c1 --> array_lecture5 +array_lecture5 : li %7, 4 --> array_lecture4 +array_lecture4 : mulo %6, %2, %7 --> array_lecture3 +array_lecture3 : add %10, %0, %6 --> array_lecture11 +array_lecture11: lw %3, 0(%10) --> array_lecture2 +array_lecture2 : emit c0 --> array_lecture1 +array_lecture1 : add %5, %4, %3 --> array_lecture0 +array_lecture0 : j --> array_lecture45 +array_lecture45: move $v0, %5 --> array_lecture44 +array_lecture44: move $ra, %20 --> array_lecture43 +array_lecture43: move $s7, %19 --> array_lecture42 +array_lecture42: move $s6, %18 --> array_lecture41 +array_lecture41: move $s5, %17 --> array_lecture40 +array_lecture40: move $s4, %16 --> array_lecture39 +array_lecture39: move $s3, %15 --> array_lecture38 +array_lecture38: move $s2, %14 --> array_lecture37 +array_lecture37: move $s1, %13 --> array_lecture36 +array_lecture36: move $s0, %12 --> array_lecture35 +array_lecture35: delframe --> array_lecture34 +array_lecture34: jr $ra (xmits $v0) + +procedure _main(0) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24 +entry main48 +main48: newframe --> main47 +main47: move %24, $ra --> main46 +main46: move %23, $s7 --> main45 +main45: move %22, $s6 --> main44 +main44: move %21, $s5 --> main43 +main43: move %20, $s4 --> main42 +main42: move %19, $s3 --> main41 +main41: move %18, $s2 --> main40 +main40: move %17, $s1 --> main39 +main39: move %16, $s0 --> main38 +main38: li %0, 0 --> main37 +main37: li %2, 0 --> main36 +main36: li %3, 0 --> main35 +main35: li %4, 0 --> main34 +main34: li %5, 0 --> main33 +main33: li %6, 0 --> main32 +main32: li %7, 0 --> main31 +main31: li %8, 0 --> main30 +main30: li %9, 0 --> main29 +main29: li %10, 0 --> main28 +main28: li %11, 0 --> main27 +main27: li %12, 0 --> main26 +main26: li %13, 0 --> main25 +main25: li %14, 0 --> main24 +main24: li %15, 0 --> main17 +main17: li %9, 1 --> main16 +main16: move %13, $gp --> main64 +main64: move %13, %13 --> main21 +main21: sw %9, 0(%13) --> main15 +main15: li %8, 2 --> main14 +main14: move %12, $gp --> main63 +main63: move %12, %12 --> main20 +main20: sw %8, 4(%12) --> main13 +main13: li %7, 3 --> main12 +main12: move %11, $gp --> main62 +main62: move %11, %11 --> main19 +main19: sw %7, 8(%11) --> main11 +main11: li %6, 5 --> main10 +main10: move %10, $gp --> main61 +main61: move %10, %10 --> main18 +main18: sw %6, 12(%10) --> main9 +main9 : li %5, 8 --> main8 +main8 : move %15, $gp --> main71 +main71: move %15, %15 --> main23 +main23: sw %5, 16(%15) --> main7 +main7 : emit c4 --> main6 +main6 : move %2, $gp --> main70 +main70: move %2, %2 --> main5 +main5 : li %3, 0 --> main4 +main4 : li %4, 4 --> main3 +main3 : la %14, array_lecture --> main22 +main22: j --> main69 +main69: move $a0, %2 --> main68 +main68: move $a1, %3 --> main67 +main67: move $a2, %4 --> main66 +main66: call %14(3) --> main65 +main65: move %0, $v0 --> main2 +main2 : emit c3 --> main1 +main1 : move %1, %0 --> main0 +main0 : j --> main60 +main60: move $v0, %1 --> main59 +main59: move $ra, %24 --> main58 +main58: move $s7, %23 --> main57 +main57: move $s6, %22 --> main56 +main56: move $s5, %21 --> main55 +main55: move $s4, %20 --> main54 +main54: move $s3, %19 --> main53 +main53: move $s2, %18 --> main52 +main52: move $s1, %17 --> main51 +main51: move $s0, %16 --> main50 +main50: delframe --> main49 +main49: jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_lecture.LIN.expected b/tests/clight/testTB_Array_lecture.LIN.expected new file mode 100644 index 0000000..d9670d2 --- /dev/null +++ b/tests/clight/testTB_Array_lecture.LIN.expected @@ -0,0 +1,450 @@ +program + +globals 20 + +procedure array_lecture(3) +var 0 +array_lecture33: +newframe +c2: +li $v0, 4 +mulo $v0, $a1, $v0 +add $v0, $a0, $v0 +lw $a1, 0($v0) +c1: +li $v0, 4 +mulo $v0, $a2, $v0 +add $v0, $a0, $v0 +lw $v0, 0($v0) +c0: +add $v0, $a1, $v0 +delframe +jr $ra + +procedure _main(0) +var 4 +main48: +newframe +sw $ra, 0($sp) +li $a0, 1 +move $v0, $gp +sw $a0, 0($v0) +li $a0, 2 +move $v0, $gp +sw $a0, 4($v0) +li $a0, 3 +move $v0, $gp +sw $a0, 8($v0) +li $a0, 5 +move $v0, $gp +sw $a0, 12($v0) +li $a0, 8 +move $v0, $gp +sw $a0, 16($v0) +c4: +move $a0, $gp +li $a1, 0 +li $a2, 4 +la $v0, array_lecture +call $v0 +c3: +lw $ra, 0($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_lecture.LTL.expected b/tests/clight/testTB_Array_lecture.LTL.expected new file mode 100644 index 0000000..81f8260 --- /dev/null +++ b/tests/clight/testTB_Array_lecture.LTL.expected @@ -0,0 +1,526 @@ +program + +globals 20 + +procedure array_lecture(3) +var 0 +entry array_lecture33 +array_lecture33: newframe --> array_lecture32 +array_lecture32: j --> array_lecture31 +array_lecture31: j --> array_lecture30 +array_lecture30: j --> array_lecture29 +array_lecture29: j --> array_lecture28 +array_lecture28: j --> array_lecture27 +array_lecture27: j --> array_lecture26 +array_lecture26: j --> array_lecture25 +array_lecture25: j --> array_lecture24 +array_lecture24: j --> array_lecture23 +array_lecture23: j --> array_lecture22 +array_lecture22: j --> array_lecture21 +array_lecture21: j --> array_lecture20 +array_lecture20: j --> array_lecture19 +array_lecture19: j --> array_lecture18 +array_lecture18: j --> array_lecture17 +array_lecture17: j --> array_lecture16 +array_lecture16: j --> array_lecture15 +array_lecture15: j --> array_lecture14 +array_lecture14: j --> array_lecture13 +array_lecture13: j --> array_lecture10 +array_lecture10: emit c2 --> array_lecture9 +array_lecture9 : li $v0, 4 --> array_lecture8 +array_lecture8 : mulo $v0, $a1, $v0 --> array_lecture7 +array_lecture7 : add $v0, $a0, $v0 --> array_lecture12 +array_lecture12: lw $a1, 0($v0) --> array_lecture6 +array_lecture6 : emit c1 --> array_lecture5 +array_lecture5 : li $v0, 4 --> array_lecture4 +array_lecture4 : mulo $v0, $a2, $v0 --> array_lecture3 +array_lecture3 : add $v0, $a0, $v0 --> array_lecture11 +array_lecture11: lw $v0, 0($v0) --> array_lecture2 +array_lecture2 : emit c0 --> array_lecture1 +array_lecture1 : add $v0, $a1, $v0 --> array_lecture0 +array_lecture0 : j --> array_lecture45 +array_lecture45: j --> array_lecture44 +array_lecture44: j --> array_lecture43 +array_lecture43: j --> array_lecture42 +array_lecture42: j --> array_lecture41 +array_lecture41: j --> array_lecture40 +array_lecture40: j --> array_lecture39 +array_lecture39: j --> array_lecture38 +array_lecture38: j --> array_lecture37 +array_lecture37: j --> array_lecture36 +array_lecture36: j --> array_lecture35 +array_lecture35: delframe --> array_lecture34 +array_lecture34: jr $ra + +procedure _main(0) +var 4 +entry main48 +main48: newframe --> main47 +main47: lw $ra, 0($sp) --> main46 +main46: j --> main45 +main45: j --> main44 +main44: j --> main43 +main43: j --> main42 +main42: j --> main41 +main41: j --> main40 +main40: j --> main39 +main39: j --> main38 +main38: j --> main37 +main37: j --> main36 +main36: j --> main35 +main35: j --> main34 +main34: j --> main33 +main33: j --> main32 +main32: j --> main31 +main31: j --> main30 +main30: j --> main29 +main29: j --> main28 +main28: j --> main27 +main27: j --> main26 +main26: j --> main25 +main25: j --> main24 +main24: j --> main17 +main17: li $a0, 1 --> main16 +main16: move $v0, $gp --> main64 +main64: j --> main21 +main21: lw $a0, 0($v0) --> main15 +main15: li $a0, 2 --> main14 +main14: move $v0, $gp --> main63 +main63: j --> main20 +main20: lw $a0, 4($v0) --> main13 +main13: li $a0, 3 --> main12 +main12: move $v0, $gp --> main62 +main62: j --> main19 +main19: lw $a0, 8($v0) --> main11 +main11: li $a0, 5 --> main10 +main10: move $v0, $gp --> main61 +main61: j --> main18 +main18: lw $a0, 12($v0) --> main9 +main9 : li $a0, 8 --> main8 +main8 : move $v0, $gp --> main71 +main71: j --> main23 +main23: lw $a0, 16($v0) --> main7 +main7 : emit c4 --> main6 +main6 : move $a0, $gp --> main70 +main70: j --> main5 +main5 : li $a1, 0 --> main4 +main4 : li $a2, 4 --> main3 +main3 : la $v0, array_lecture --> main22 +main22: j --> main69 +main69: j --> main68 +main68: j --> main67 +main67: j --> main66 +main66: call $v0 --> main65 +main65: j --> main2 +main2 : emit c3 --> main1 +main1 : j --> main0 +main0 : j --> main60 +main60: j --> main59 +main59: lw $ra, 0($sp) --> main58 +main58: j --> main57 +main57: j --> main56 +main56: j --> main55 +main55: j --> main54 +main54: j --> main53 +main53: j --> main52 +main52: j --> main51 +main51: j --> main50 +main50: delframe --> main49 +main49: jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_lecture.RTL.expected b/tests/clight/testTB_Array_lecture.RTL.expected new file mode 100644 index 0000000..2194229 --- /dev/null +++ b/tests/clight/testTB_Array_lecture.RTL.expected @@ -0,0 +1,473 @@ +program + +globals 20 + +function array_lecture(%0; %1; %2) : %5 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11 +entry array_lecture20 +array_lecture20: li %3, 0 --> array_lecture19 +array_lecture19: li %4, 0 --> array_lecture18 +array_lecture18: li %6, 0 --> array_lecture17 +array_lecture17: li %7, 0 --> array_lecture16 +array_lecture16: li %8, 0 --> array_lecture15 +array_lecture15: li %9, 0 --> array_lecture14 +array_lecture14: li %10, 0 --> array_lecture13 +array_lecture13: li %11, 0 --> array_lecture10 +array_lecture10: emit c2 --> array_lecture9 +array_lecture9 : li %9, 4 --> array_lecture8 +array_lecture8 : mulo %8, %1, %9 --> array_lecture7 +array_lecture7 : add %11, %0, %8 --> array_lecture12 +array_lecture12: lw %4, 0(%11) --> array_lecture6 +array_lecture6 : emit c1 --> array_lecture5 +array_lecture5 : li %7, 4 --> array_lecture4 +array_lecture4 : mulo %6, %2, %7 --> array_lecture3 +array_lecture3 : add %10, %0, %6 --> array_lecture11 +array_lecture11: lw %3, 0(%10) --> array_lecture2 +array_lecture2 : emit c0 --> array_lecture1 +array_lecture1 : add %5, %4, %3 --> array_lecture0 +array_lecture0 : return %5 + +function _main() : %1 +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15 +entry main38 +main38: li %0, 0 --> main37 +main37: li %2, 0 --> main36 +main36: li %3, 0 --> main35 +main35: li %4, 0 --> main34 +main34: li %5, 0 --> main33 +main33: li %6, 0 --> main32 +main32: li %7, 0 --> main31 +main31: li %8, 0 --> main30 +main30: li %9, 0 --> main29 +main29: li %10, 0 --> main28 +main28: li %11, 0 --> main27 +main27: li %12, 0 --> main26 +main26: li %13, 0 --> main25 +main25: li %14, 0 --> main24 +main24: li %15, 0 --> main17 +main17: li %9, 1 --> main16 +main16: addi %13, GLOBALS, 0 --> main21 +main21: sw %9, 0(%13) --> main15 +main15: li %8, 2 --> main14 +main14: addi %12, GLOBALS, 0 --> main20 +main20: sw %8, 4(%12) --> main13 +main13: li %7, 3 --> main12 +main12: addi %11, GLOBALS, 0 --> main19 +main19: sw %7, 8(%11) --> main11 +main11: li %6, 5 --> main10 +main10: addi %10, GLOBALS, 0 --> main18 +main18: sw %6, 12(%10) --> main9 +main9 : li %5, 8 --> main8 +main8 : addi %15, GLOBALS, 0 --> main23 +main23: sw %5, 16(%15) --> main7 +main7 : emit c4 --> main6 +main6 : addi %2, GLOBALS, 0 --> main5 +main5 : li %3, 0 --> main4 +main4 : li %4, 4 --> main3 +main3 : la %14, array_lecture --> main22 +main22: call %0, %14(%2, %3, %4) --> main2 +main2 : emit c3 --> main1 +main1 : move %1, %0 --> main0 +main0 : return %1 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + diff --git a/tests/clight/testTB_Array_lecture.RTLabs.expected b/tests/clight/testTB_Array_lecture.RTLabs.expected new file mode 100644 index 0000000..f925ee6 --- /dev/null +++ b/tests/clight/testTB_Array_lecture.RTLabs.expected @@ -0,0 +1,450 @@ +program: (main function is "main") + + + globals: + "t" = {1, 2, 3, 5, 8} + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "array_lecture"(%0, %1, %2): int -> int -> int -> int + locals: %5, %3, %4, %6, %7, %8, %9 + result: %5 + stacksize: 0 + entry: array_lecture10 + exit: array_lecture0 + + array_lecture9: imm_int 4, %9, --> array_lecture8 + array_lecture8: mul %8, %1, %9 --> array_lecture7 + array_lecture7: load int32, add, %0, %8, %4 --> array_lecture6 + array_lecture6: emit c1 --> array_lecture5 + array_lecture5: imm_int 4, %7, --> array_lecture4 + array_lecture4: mul %6, %2, %7 --> array_lecture3 + array_lecture3: load int32, add, %0, %6, %3 --> array_lecture2 + array_lecture2: emit c0 --> array_lecture1 + array_lecture10: emit c2 --> array_lecture9 + array_lecture1: add %5, %4, %3 --> array_lecture0 + array_lecture0: return %5 + + + "main"(): int + locals: %1, %0, %2, %3, %4, %5, %6, %7, %8, %9 + result: %1 + stacksize: 0 + entry: main17 + exit: main0 + + main9: imm_int 8, %5, --> main8 + main8: store int32, 16("t"), , %5 --> main7 + main7: emit c4 --> main6 + main6: imm_addr "t", %2, --> main5 + main5: imm_int 0, %3, --> main4 + main4: imm_int 4, %4, --> main3 + main3: call "array_lecture", %2, %3, %4, %0: int -> int -> int -> int --> main2 + main2: emit c3 --> main1 + main17: imm_int 1, %9, --> main16 + main16: store int32, 0("t"), , %9 --> main15 + main15: imm_int 2, %8, --> main14 + main14: store int32, 4("t"), , %8 --> main13 + main13: imm_int 3, %7, --> main12 + main12: store int32, 8("t"), , %7 --> main11 + main11: imm_int 5, %6, --> main10 + main10: store int32, 12("t"), , %6 --> main9 + main1: mov %1, %0 --> main0 + main0: return %1 + + diff --git a/tests/clight/testTB_Array_lecture.c b/tests/clight/testTB_Array_lecture.c new file mode 100644 index 0000000..4c683bd --- /dev/null +++ b/tests/clight/testTB_Array_lecture.c @@ -0,0 +1,14 @@ +int t[5] = {1,2,3,5,8}; + +int array_lecture (int tablec[], int i, int j) { + int a, b; + + a = tablec[i]; + b = tablec[j]; + + return a+b; +} + +int main(){ + return array_lecture(t,0,4); +} diff --git a/tests/clight/testTB_Array_lecture.c.expected b/tests/clight/testTB_Array_lecture.c.expected new file mode 100644 index 0000000..4c683bd --- /dev/null +++ b/tests/clight/testTB_Array_lecture.c.expected @@ -0,0 +1,14 @@ +int t[5] = {1,2,3,5,8}; + +int array_lecture (int tablec[], int i, int j) { + int a, b; + + a = tablec[i]; + b = tablec[j]; + + return a+b; +} + +int main(){ + return array_lecture(t,0,4); +} diff --git a/tests/clight/testTB_Array_lecture.log.expected b/tests/clight/testTB_Array_lecture.log.expected new file mode 100644 index 0000000..ba50dc8 --- /dev/null +++ b/tests/clight/testTB_Array_lecture.log.expected @@ -0,0 +1,2 @@ +Global Error (Translation RTLabs -> RTL): + Constant not supported. diff --git a/tests/clight/testTB_boucle.ASM.expected b/tests/clight/testTB_boucle.ASM.expected new file mode 100644 index 0000000..27629dc --- /dev/null +++ b/tests/clight/testTB_boucle.ASM.expected @@ -0,0 +1,434 @@ +# extern __builtin_varargs_start: int -> void +# extern __builtin_va_start: int -> int -> void +# extern __builtin_va_end: int -> void +# extern __builtin_va_copy: int -> int -> void +# extern __builtin_va_arg: int -> int -> void +# extern __builtin_types_compatible_p: int -> int -> int +# extern __builtin_tanl: float -> float +# extern __builtin_tanhl: float -> float +# extern __builtin_tanhf: float -> float +# extern __builtin_tanh: float -> float +# extern __builtin_tanf: float -> float +# extern __builtin_tan: float -> float +# extern __builtin_strspn: int -> int -> int +# extern __builtin_strpbrk: int -> int -> int +# extern __builtin_strncpy: int -> int -> int -> int +# extern __builtin_strncmp: int -> int -> int -> int +# extern __builtin_strncat: int -> int -> int -> int +# extern __builtin_strcspn: int -> int -> int +# extern __builtin_strcpy: int -> int -> int +# extern __builtin_strcmp: int -> int -> int +# extern __builtin_strchr: int -> int -> int +# extern __builtin_stpcpy: int -> int -> int +# extern __builtin_stdarg_start: int -> void +# extern __builtin_sqrtl: float -> float +# extern __builtin_sqrtf: float -> float +# extern __builtin_sqrt: float -> float +# extern __builtin_sinl: float -> float +# extern __builtin_sinhl: float -> float +# extern __builtin_sinhf: float -> float +# extern __builtin_sinh: float -> float +# extern __builtin_sinf: float -> float +# extern __builtin_sin: float -> float +# extern __builtin_return_address: int -> int +# extern __builtin_return: int -> void +# extern __builtin_powil: float -> int -> float +# extern __builtin_powif: float -> int -> float +# extern __builtin_powi: float -> int -> float +# extern __builtin_popcountll: int -> int +# extern __builtin_popcountl: int -> int +# extern __builtin_popcount: int -> int +# extern __builtin_parityll: int -> int +# extern __builtin_parityl: int -> int +# extern __builtin_parity: int -> int +# extern __builtin_object_size: int -> int -> int +# extern __builtin_next_arg: int +# extern __builtin_nansl: int -> float +# extern __builtin_nansf: int -> float +# extern __builtin_nans: int -> float +# extern __builtin_nanl: int -> float +# extern __builtin_nanf: int -> float +# extern __builtin_nan: int -> float +# extern __builtin_modfl: float -> int -> float +# extern __builtin_modff: float -> int -> float +# extern __builtin_mempcpy: int -> int -> int -> int +# extern __builtin_memcpy: int -> int -> int -> int +# extern __builtin_logl: float -> float +# extern __builtin_logf: float -> float +# extern __builtin_log10l: float -> float +# extern __builtin_log10f: float -> float +# extern __builtin_log10: float -> float +# extern __builtin_log: float -> float +# extern __builtin_ldexpl: float -> int -> float +# extern __builtin_ldexpf: float -> int -> float +# extern __builtin_ldexp: float -> int -> float +# extern __builtin_infl: float +# extern __builtin_inff: float +# extern __builtin_inf: float +# extern __builtin_huge_vall: float +# extern __builtin_huge_valf: float +# extern __builtin_huge_val: float +# extern __builtin_frexpl: float -> int -> float +# extern __builtin_frexpf: float -> int -> float +# extern __builtin_frexp: float -> int -> float +# extern __builtin_frame_address: int -> int +# extern __builtin_fmodl: float -> float +# extern __builtin_fmodf: float -> float +# extern __builtin_fmod: float -> float +# extern __builtin_floorl: float -> float +# extern __builtin_floorf: float -> float +# extern __builtin_floor: float -> float +# extern __builtin_ffsll: int -> int +# extern __builtin_ffsl: int -> int +# extern __builtin_ffs: int -> int +# extern __builtin_fabsl: float -> float +# extern __builtin_fabsf: float -> float +# extern __builtin_fabs: float -> float +# extern __builtin_expl: float -> float +# extern __builtin_expf: float -> float +# extern __builtin_expect: int -> int -> int +# extern __builtin_exp: float -> float +# extern __builtin_ctzll: int -> int +# extern __builtin_ctzl: int -> int +# extern __builtin_ctz: int -> int +# extern __builtin_cosl: float -> float +# extern __builtin_coshl: float -> float +# extern __builtin_coshf: float -> float +# extern __builtin_cosh: float -> float +# extern __builtin_cosf: float -> float +# extern __builtin_cos: float -> float +# extern __builtin_constant_p: int -> int +# extern __builtin_clzll: int -> int +# extern __builtin_clzl: int -> int +# extern __builtin_clz: int -> int +# extern __builtin_ceill: float -> float +# extern __builtin_ceilf: float -> float +# extern __builtin_ceil: float -> float +# extern __builtin_atanl: float -> float +# extern __builtin_atanf: float -> float +# extern __builtin_atan2l: float -> float -> float +# extern __builtin_atan2f: float -> float -> float +# extern __builtin_atan2: float -> float -> float +# extern __builtin_atan: float -> float +# extern __builtin_asinl: float -> float +# extern __builtin_asinf: float -> float +# extern __builtin_asin: float -> float +# extern __builtin_alloca: int -> int +# extern __builtin_acosl: float -> float +# extern __builtin_acosf: float -> float +# extern __builtin_acos: float -> float +# extern __builtin___vsprintf_chk: int -> int -> int -> int -> int -> int +# extern __builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int +# extern __builtin___vprintf_chk: int -> int -> int -> int +# extern __builtin___vfprintf_chk: int -> int -> int -> int -> int +# extern __builtin___strncpy_chk: int -> int -> int -> int -> int +# extern __builtin___strncat_chk: int -> int -> int -> int -> int +# extern __builtin___strcpy_chk: int -> int -> int -> int +# extern __builtin___strcat_chk: int -> int -> int -> int +# extern __builtin___stpcpy_chk: int -> int -> int -> int +# extern __builtin___memset_chk: int -> int -> int -> int -> int +# extern __builtin___mempcpy_chk: int -> int -> int -> int -> int +# extern __builtin___memmove_chk: int -> int -> int -> int -> int +# extern __builtin___memcpy_chk: int -> int -> int -> int -> int + +# begin preamble +.data +globals: +.space 40 +nl: +.asciiz "\n" +.align 2 +.text +main: +la $gp, globals +j main155 +print_int: +li $v0, 1 +syscall +jr $ra +print_intln: +li $v0, 1 +syscall +la $a0, nl +li $v0, 4 +syscall +jr $ra +scan_int: +li $v0, 5 +syscall +jr $ra +alloc: +li $v0, 9 +syscall +jr $ra + +pow2: +li $v0, 1 +sllv $v0, $v0, $a0 +jr $ra + +mod: +beqz $a0, mod0 +beqz $a1, mod0 +li $t2, 0 +mod_t0: +bgtz $a0, mod_a0_pos +neg $t0, $a0 +addi $t2, $t2, 1 +j mod_t1 +mod_a0_pos: +move $t0, $a0 +mod_t1: +bgtz $a1, mod_a1_pos +neg $t1, $a1 +addi $t2, $t2, 2 +j mod_main +mod_a1_pos: +move $t1, $a1 +mod_main: +rem $v0, $t0, $t1 +beqz $t2, mod_exit +addi $t2, -1 +beqz $t2, mod_case1 +addi $t2, -1 +beqz $t2, mod_case2 +neg $v0, $v0 +j mod_exit +mod_case1: +sub $v0, $a1, $v0 +j mod_exit +mod_case2: +add $v0, $a1, $v0 +j mod_exit +mod0: +li $v0, 0 +mod_exit: +jr $ra + +toint: +# $a0: size +# $a1: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +jal pow2 +move $a0, $a1 +move $a1, $v0 +jal mod +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 8 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +toint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a1, $a0 +li $a0, 16 +jal toint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +sign_ext: +# $a0: size +# $a1: int to extend +li $v0, 32 +sub $a0, $v0, $a0 +sllv $v0, $a1, $a0 +srav $v0, $v0, $a0 +jr $ra + +ofint: +# $a0: signedness +# $a1: size +# $a2: int to convert +addi $sp, $sp, -4 +sw $ra, 0($sp) +beqz $a0, ofint_unsigned +move $a0, $a1 +move $a1, $a2 +jal sign_ext +j ofint_exit +ofint_unsigned: +move $v0, $a2 +ofint_exit: +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint8: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 8 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 1 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra + +ofuint16: +addi $sp, $sp, -4 +sw $ra, 0($sp) +move $a2, $a0 +li $a1, 16 +li $a0, 0 +jal ofint +lw $ra, 0($sp) +addi $sp, $sp, 4 +jr $ra +# end preamble + + +# begin _main +main155: +addi $sp, $sp, -24 +sw $ra, 20($sp) +li $a0, 1 +move $v0, $gp +sw $a0, 0($v0) +li $a0, 2 +move $v0, $gp +sw $a0, 4($v0) +li $a0, 3 +move $v0, $gp +sw $a0, 8($v0) +li $a0, 5 +move $v0, $gp +sw $a0, 12($v0) +li $a0, 8 +move $v0, $gp +sw $a0, 16($v0) +li $a0, 13 +move $v0, $gp +sw $a0, 20($v0) +li $a0, 21 +move $v0, $gp +sw $a0, 24($v0) +li $a0, 34 +move $v0, $gp +sw $a0, 28($v0) +li $a0, 55 +move $v0, $gp +sw $a0, 32($v0) +li $a0, 89 +move $v0, $gp +sw $a0, 36($v0) +c11: +li $a1, 0 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c10: +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c9: +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c8: +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c7: +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c6: +move $a0, $gp +move $a1, $gp +addi $a1, $a1, 20 +move $a2, $sp +li $a3, 5 +la $v0, TB_Boucle59 +jalr $v0 +c5: +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $sp, $v0 +lw $v0, 0($v0) +lw $ra, 20($sp) +addi $sp, $sp, 24 +jr $ra +# end _main + + +# begin TB_Boucle +TB_Boucle59: +c4: +c3: +li $t0, 0 +TB_Boucle20: +li $t1, 0 +c2: +slt $v0, $t0, $a3 +seq $v0, $v0, $zero +beq $v0, $t1, TB_Boucle15 +jr $ra +TB_Boucle15: +c0: +li $v0, 4 +mulo $v0, $t0, $v0 +add $v0, $a0, $v0 +lw $t1, 0($v0) +li $v0, 4 +mulo $v0, $t0, $v0 +add $v0, $a1, $v0 +lw $v0, 0($v0) +add $t1, $t1, $v0 +li $v0, 4 +mulo $v0, $t0, $v0 +add $v0, $a2, $v0 +sw $t1, 0($v0) +c1: +li $v0, 1 +add $t0, $t0, $v0 +j TB_Boucle20 +# end TB_Boucle diff --git a/tests/clight/testTB_boucle.Clight.expected b/tests/clight/testTB_boucle.Clight.expected new file mode 100644 index 0000000..96ecfe8 --- /dev/null +++ b/tests/clight/testTB_boucle.Clight.expected @@ -0,0 +1,298 @@ +int t1[5] = { 1, 2, 3, 5, 8, }; + +int t2[5] = { 13, 21, 34, 55, 89, }; + +extern void *__builtin___memcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memmove_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___mempcpy_chk(void *, void *, unsigned int, unsigned int); + +extern void *__builtin___memset_chk(void *, int, unsigned int, unsigned int); + +extern unsigned char *__builtin___stpcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcat_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strcpy_chk(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin___strncat_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern unsigned char *__builtin___strncpy_chk(unsigned char *, unsigned char *, unsigned int, unsigned int); + +extern int __builtin___vfprintf_chk(void *, int, unsigned char *, void *); + +extern int __builtin___vprintf_chk(int, unsigned char *, void *); + +extern int __builtin___vsnprintf_chk(unsigned char *, unsigned int, int, unsigned int, unsigned char *, void *); + +extern int __builtin___vsprintf_chk(unsigned char *, int, unsigned int, unsigned char *, void *); + +extern double __builtin_acos(double); + +extern float __builtin_acosf(float); + +extern double __builtin_acosl(double); + +extern void *__builtin_alloca(unsigned int); + +extern double __builtin_asin(double); + +extern float __builtin_asinf(float); + +extern double __builtin_asinl(double); + +extern double __builtin_atan(double); + +extern float __builtin_atanf(float); + +extern double __builtin_atanl(double); + +extern double __builtin_atan2(double, double); + +extern float __builtin_atan2f(float, float); + +extern double __builtin_atan2l(double, double); + +extern double __builtin_ceil(double); + +extern float __builtin_ceilf(float); + +extern double __builtin_ceill(double); + +extern double __builtin_cos(double); + +extern float __builtin_cosf(float); + +extern double __builtin_cosl(double); + +extern double __builtin_cosh(double); + +extern float __builtin_coshf(float); + +extern double __builtin_coshl(double); + +extern int __builtin_clz(unsigned int); + +extern int __builtin_clzl(unsigned int); + +extern int __builtin_clzll(unsigned int); + +extern int __builtin_constant_p(int); + +extern int __builtin_ctz(unsigned int); + +extern int __builtin_ctzl(unsigned int); + +extern int __builtin_ctzll(unsigned int); + +extern double __builtin_exp(double); + +extern float __builtin_expf(float); + +extern double __builtin_expl(double); + +extern int __builtin_expect(int, int); + +extern double __builtin_fabs(double); + +extern float __builtin_fabsf(float); + +extern double __builtin_fabsl(double); + +extern int __builtin_ffs(unsigned int); + +extern int __builtin_ffsl(unsigned int); + +extern int __builtin_ffsll(unsigned int); + +extern void *__builtin_frame_address(unsigned int); + +extern double __builtin_floor(double); + +extern float __builtin_floorf(float); + +extern double __builtin_floorl(double); + +extern double __builtin_huge_val(void); + +extern float __builtin_huge_valf(void); + +extern double __builtin_huge_vall(void); + +extern double __builtin_inf(void); + +extern float __builtin_inff(void); + +extern double __builtin_infl(void); + +extern void *__builtin_memcpy(void *, void *, unsigned int); + +extern void *__builtin_mempcpy(void *, void *, unsigned int); + +extern double __builtin_fmod(double); + +extern float __builtin_fmodf(float); + +extern double __builtin_fmodl(double); + +extern double __builtin_frexp(double, int *); + +extern float __builtin_frexpf(float, int *); + +extern double __builtin_frexpl(double, int *); + +extern double __builtin_ldexp(double, int); + +extern float __builtin_ldexpf(float, int); + +extern double __builtin_ldexpl(double, int); + +extern double __builtin_log(double); + +extern float __builtin_logf(float); + +extern double __builtin_logl(double); + +extern double __builtin_log10(double); + +extern float __builtin_log10f(float); + +extern double __builtin_log10l(double); + +extern float __builtin_modff(float, float *); + +extern double __builtin_modfl(double, double *); + +extern double __builtin_nan(unsigned char *); + +extern float __builtin_nanf(unsigned char *); + +extern double __builtin_nanl(unsigned char *); + +extern double __builtin_nans(unsigned char *); + +extern float __builtin_nansf(unsigned char *); + +extern double __builtin_nansl(unsigned char *); + +extern void *__builtin_next_arg(void); + +extern unsigned int __builtin_object_size(void *, int); + +extern int __builtin_parity(unsigned int); + +extern int __builtin_parityl(unsigned int); + +extern int __builtin_parityll(unsigned int); + +extern int __builtin_popcount(unsigned int); + +extern int __builtin_popcountl(unsigned int); + +extern int __builtin_popcountll(unsigned int); + +extern double __builtin_powi(double, int); + +extern float __builtin_powif(float, int); + +extern double __builtin_powil(double, int); + +extern void __builtin_return(void *); + +extern void *__builtin_return_address(unsigned int); + +extern double __builtin_sin(double); + +extern float __builtin_sinf(float); + +extern double __builtin_sinl(double); + +extern double __builtin_sinh(double); + +extern float __builtin_sinhf(float); + +extern double __builtin_sinhl(double); + +extern double __builtin_sqrt(double); + +extern float __builtin_sqrtf(float); + +extern double __builtin_sqrtl(double); + +extern unsigned char *__builtin_stpcpy(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strchr(unsigned char *, unsigned char); + +extern int __builtin_strcmp(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strcpy(unsigned char *, unsigned char *); + +extern unsigned int __builtin_strcspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strncat(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strncmp(unsigned char *, unsigned char *, unsigned int); + +extern unsigned char *__builtin_strncpy(unsigned char *, unsigned char *, unsigned int); + +extern int __builtin_strspn(unsigned char *, unsigned char *); + +extern unsigned char *__builtin_strpbrk(unsigned char *, unsigned char *); + +extern int __builtin_types_compatible_p(unsigned int, unsigned int); + +extern double __builtin_tan(double); + +extern float __builtin_tanf(float); + +extern double __builtin_tanl(double); + +extern double __builtin_tanh(double); + +extern float __builtin_tanhf(float); + +extern double __builtin_tanhl(double); + +extern void __builtin_va_end(void *); + +extern void __builtin_varargs_start(void *); + +extern void __builtin_va_start(void *, void *); + +extern void __builtin_stdarg_start(void *); + +extern void __builtin_va_arg(void *, unsigned int); + +extern void __builtin_va_copy(void *, void *); + +void TB_Boucle(int *tabEntree1, int *tabEntree2, int *tabSortie, int size) +{ + int i; + c4: + for (({ c3: i = 0; }); (/* c2 */ i < size); ({ c1: i = i + 1; })) { + c0: + tabSortie[i] = tabEntree1[i] + tabEntree2[i]; + } +} + +int main(void) +{ + int out[5]; + c11: + out[0] = 0; + c10: + out[1] = 0; + c9: + out[2] = 0; + c8: + out[3] = 0; + c7: + out[4] = 0; + c6: + TB_Boucle(t1, t2, out, 5); + c5: + return out[4]; +} + + diff --git a/tests/clight/testTB_boucle.Cminor.expected b/tests/clight/testTB_boucle.Cminor.expected new file mode 100644 index 0000000..88d1e4e --- /dev/null +++ b/tests/clight/testTB_boucle.Cminor.expected @@ -0,0 +1,451 @@ + +var "t1" {1, 2, 3, 5, 8} +var "t2" {13, 21, 34, 55, 89} + + +extern "__builtin___memcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memmove_chk" : int -> int -> int -> int -> int + + +extern "__builtin___mempcpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___memset_chk" : int -> int -> int -> int -> int + + +extern "__builtin___stpcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strcat_chk" : int -> int -> int -> int + + +extern "__builtin___strcpy_chk" : int -> int -> int -> int + + +extern "__builtin___strncat_chk" : int -> int -> int -> int -> int + + +extern "__builtin___strncpy_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vfprintf_chk" : int -> int -> int -> int -> int + + +extern "__builtin___vprintf_chk" : int -> int -> int -> int + + +extern "__builtin___vsnprintf_chk" : int -> int -> int -> int -> int -> int -> int + + +extern "__builtin___vsprintf_chk" : int -> int -> int -> int -> int -> int + + +extern "__builtin_acos" : float -> float + + +extern "__builtin_acosf" : float -> float + + +extern "__builtin_acosl" : float -> float + + +extern "__builtin_alloca" : int -> int + + +extern "__builtin_asin" : float -> float + + +extern "__builtin_asinf" : float -> float + + +extern "__builtin_asinl" : float -> float + + +extern "__builtin_atan" : float -> float + + +extern "__builtin_atanf" : float -> float + + +extern "__builtin_atanl" : float -> float + + +extern "__builtin_atan2" : float -> float -> float + + +extern "__builtin_atan2f" : float -> float -> float + + +extern "__builtin_atan2l" : float -> float -> float + + +extern "__builtin_ceil" : float -> float + + +extern "__builtin_ceilf" : float -> float + + +extern "__builtin_ceill" : float -> float + + +extern "__builtin_cos" : float -> float + + +extern "__builtin_cosf" : float -> float + + +extern "__builtin_cosl" : float -> float + + +extern "__builtin_cosh" : float -> float + + +extern "__builtin_coshf" : float -> float + + +extern "__builtin_coshl" : float -> float + + +extern "__builtin_clz" : int -> int + + +extern "__builtin_clzl" : int -> int + + +extern "__builtin_clzll" : int -> int + + +extern "__builtin_constant_p" : int -> int + + +extern "__builtin_ctz" : int -> int + + +extern "__builtin_ctzl" : int -> int + + +extern "__builtin_ctzll" : int -> int + + +extern "__builtin_exp" : float -> float + + +extern "__builtin_expf" : float -> float + + +extern "__builtin_expl" : float -> float + + +extern "__builtin_expect" : int -> int -> int + + +extern "__builtin_fabs" : float -> float + + +extern "__builtin_fabsf" : float -> float + + +extern "__builtin_fabsl" : float -> float + + +extern "__builtin_ffs" : int -> int + + +extern "__builtin_ffsl" : int -> int + + +extern "__builtin_ffsll" : int -> int + + +extern "__builtin_frame_address" : int -> int + + +extern "__builtin_floor" : float -> float + + +extern "__builtin_floorf" : float -> float + + +extern "__builtin_floorl" : float -> float + + +extern "__builtin_huge_val" : float + + +extern "__builtin_huge_valf" : float + + +extern "__builtin_huge_vall" : float + + +extern "__builtin_inf" : float + + +extern "__builtin_inff" : float + + +extern "__builtin_infl" : float + + +extern "__builtin_memcpy" : int -> int -> int -> int + + +extern "__builtin_mempcpy" : int -> int -> int -> int + + +extern "__builtin_fmod" : float -> float + + +extern "__builtin_fmodf" : float -> float + + +extern "__builtin_fmodl" : float -> float + + +extern "__builtin_frexp" : float -> int -> float + + +extern "__builtin_frexpf" : float -> int -> float + + +extern "__builtin_frexpl" : float -> int -> float + + +extern "__builtin_ldexp" : float -> int -> float + + +extern "__builtin_ldexpf" : float -> int -> float + + +extern "__builtin_ldexpl" : float -> int -> float + + +extern "__builtin_log" : float -> float + + +extern "__builtin_logf" : float -> float + + +extern "__builtin_logl" : float -> float + + +extern "__builtin_log10" : float -> float + + +extern "__builtin_log10f" : float -> float + + +extern "__builtin_log10l" : float -> float + + +extern "__builtin_modff" : float -> int -> float + + +extern "__builtin_modfl" : float -> int -> float + + +extern "__builtin_nan" : int -> float + + +extern "__builtin_nanf" : int -> float + + +extern "__builtin_nanl" : int -> float + + +extern "__builtin_nans" : int -> float + + +extern "__builtin_nansf" : int -> float + + +extern "__builtin_nansl" : int -> float + + +extern "__builtin_next_arg" : int + + +extern "__builtin_object_size" : int -> int -> int + + +extern "__builtin_parity" : int -> int + + +extern "__builtin_parityl" : int -> int + + +extern "__builtin_parityll" : int -> int + + +extern "__builtin_popcount" : int -> int + + +extern "__builtin_popcountl" : int -> int + + +extern "__builtin_popcountll" : int -> int + + +extern "__builtin_powi" : float -> int -> float + + +extern "__builtin_powif" : float -> int -> float + + +extern "__builtin_powil" : float -> int -> float + + +extern "__builtin_return" : int -> void + + +extern "__builtin_return_address" : int -> int + + +extern "__builtin_sin" : float -> float + + +extern "__builtin_sinf" : float -> float + + +extern "__builtin_sinl" : float -> float + + +extern "__builtin_sinh" : float -> float + + +extern "__builtin_sinhf" : float -> float + + +extern "__builtin_sinhl" : float -> float + + +extern "__builtin_sqrt" : float -> float + + +extern "__builtin_sqrtf" : float -> float + + +extern "__builtin_sqrtl" : float -> float + + +extern "__builtin_stpcpy" : int -> int -> int + + +extern "__builtin_strchr" : int -> int -> int + + +extern "__builtin_strcmp" : int -> int -> int + + +extern "__builtin_strcpy" : int -> int -> int + + +extern "__builtin_strcspn" : int -> int -> int + + +extern "__builtin_strncat" : int -> int -> int -> int + + +extern "__builtin_strncmp" : int -> int -> int -> int + + +extern "__builtin_strncpy" : int -> int -> int -> int + + +extern "__builtin_strspn" : int -> int -> int + + +extern "__builtin_strpbrk" : int -> int -> int + + +extern "__builtin_types_compatible_p" : int -> int -> int + + +extern "__builtin_tan" : float -> float + + +extern "__builtin_tanf" : float -> float + + +extern "__builtin_tanl" : float -> float + + +extern "__builtin_tanh" : float -> float + + +extern "__builtin_tanhf" : float -> float + + +extern "__builtin_tanhl" : float -> float + + +extern "__builtin_va_end" : int -> void + + +extern "__builtin_varargs_start" : int -> void + + +extern "__builtin_va_start" : int -> int -> void + + +extern "__builtin_stdarg_start" : int -> void + + +extern "__builtin_va_arg" : int -> int -> void + + +extern "__builtin_va_copy" : int -> int -> void + + +"TB_Boucle" (tabEntree1, tabEntree2, tabSortie, size) : int -> int -> int -> int -> void { + + stack 0; + + var i; + + c4: + c3: + i = 0; + block { + loop { + if (!(/* c2 */ i < size)) { + exit 0; + } + else { + } + block { + c0: + int32[tabSortie + (i * 4)] = int32[tabEntree1 + (i * 4)] + int32[tabEntree2 + (i * 4)]; + } + c1: + i = i + 1; + } + } + +} + + +"main" () : int { + + stack 20; + + c11: + int32[&0 + (0 * 4)] = 0; + c10: + int32[&0 + (1 * 4)] = 0; + c9: + int32[&0 + (2 * 4)] = 0; + c8: + int32[&0 + (3 * 4)] = 0; + c7: + int32[&0 + (4 * 4)] = 0; + c6: + "TB_Boucle"("t1", "t2", &0, 5) : int -> int -> int -> int -> void; + c5: + return int32[&0 + (4 * 4)]; + +} + + diff --git a/tests/clight/testTB_boucle.ERTL.expected b/tests/clight/testTB_boucle.ERTL.expected new file mode 100644 index 0000000..a24e2a5 --- /dev/null +++ b/tests/clight/testTB_boucle.ERTL.expected @@ -0,0 +1,688 @@ +program + +globals 40 + +procedure _main(0) +stacksize 20 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61, %62, + %63, %64, %65, %66, %67, %68, %69, + %70 +entry main155 +main155: newframe --> main154 +main154: move %70, $ra --> main153 +main153: move %69, $s7 --> main152 +main152: move %68, $s6 --> main151 +main151: move %67, $s5 --> main150 +main150: move %66, $s4 --> main149 +main149: move %65, $s3 --> main148 +main148: move %64, $s2 --> main147 +main147: move %63, $s1 --> main146 +main146: move %62, $s0 --> main145 +main145: li %1, 0 --> main144 +main144: li %2, 0 --> main143 +main143: li %3, 0 --> main142 +main142: li %4, 0 --> main141 +main141: li %5, 0 --> main140 +main140: li %6, 0 --> main139 +main139: li %7, 0 --> main138 +main138: li %8, 0 --> main137 +main137: li %9, 0 --> main136 +main136: li %10, 0 --> main135 +main135: li %11, 0 --> main134 +main134: li %12, 0 --> main133 +main133: li %13, 0 --> main132 +main132: li %14, 0 --> main131 +main131: li %15, 0 --> main130 +main130: li %16, 0 --> main129 +main129: li %17, 0 --> main128 +main128: li %18, 0 --> main127 +main127: li %19, 0 --> main126 +main126: li %20, 0 --> main125 +main125: li %21, 0 --> main124 +main124: li %22, 0 --> main123 +main123: li %23, 0 --> main122 +main122: li %24, 0 --> main121 +main121: li %25, 0 --> main120 +main120: li %26, 0 --> main119 +main119: li %27, 0 --> main118 +main118: li %28, 0 --> main117 +main117: li %29, 0 --> main116 +main116: li %30, 0 --> main115 +main115: li %31, 0 --> main114 +main114: li %32, 0 --> main113 +main113: li %33, 0 --> main112 +main112: li %34, 0 --> main111 +main111: li %35, 0 --> main110 +main110: li %36, 0 --> main109 +main109: li %37, 0 --> main108 +main108: li %38, 0 --> main107 +main107: li %39, 0 --> main106 +main106: li %40, 0 --> main105 +main105: li %41, 0 --> main104 +main104: li %42, 0 --> main103 +main103: li %43, 0 --> main102 +main102: li %44, 0 --> main101 +main101: li %45, 0 --> main100 +main100: li %46, 0 --> main99 +main99 : li %47, 0 --> main98 +main98 : li %48, 0 --> main97 +main97 : li %49, 0 --> main96 +main96 : li %50, 0 --> main95 +main95 : li %51, 0 --> main94 +main94 : li %52, 0 --> main93 +main93 : li %53, 0 --> main92 +main92 : li %54, 0 --> main91 +main91 : li %55, 0 --> main90 +main90 : li %56, 0 --> main89 +main89 : li %57, 0 --> main88 +main88 : li %58, 0 --> main87 +main87 : li %59, 0 --> main86 +main86 : li %60, 0 --> main85 +main85 : li %61, 0 --> main67 +main67 : li %44, 1 --> main66 +main66 : move %60, $gp --> main185 +main185: move %60, %60 --> main83 +main83 : sw %44, 0(%60) --> main65 +main65 : li %43, 2 --> main64 +main64 : move %59, $gp --> main184 +main184: move %59, %59 --> main82 +main82 : sw %43, 4(%59) --> main63 +main63 : li %42, 3 --> main62 +main62 : move %58, $gp --> main183 +main183: move %58, %58 --> main81 +main81 : sw %42, 8(%58) --> main61 +main61 : li %41, 5 --> main60 +main60 : move %57, $gp --> main182 +main182: move %57, %57 --> main80 +main80 : sw %41, 12(%57) --> main59 +main59 : li %40, 8 --> main58 +main58 : move %56, $gp --> main181 +main181: move %56, %56 --> main79 +main79 : sw %40, 16(%56) --> main57 +main57 : li %39, 13 --> main56 +main56 : move %55, $gp --> main180 +main180: move %55, %55 --> main78 +main78 : sw %39, 20(%55) --> main55 +main55 : li %38, 21 --> main54 +main54 : move %54, $gp --> main179 +main179: move %54, %54 --> main77 +main77 : sw %38, 24(%54) --> main53 +main53 : li %37, 34 --> main52 +main52 : move %53, $gp --> main178 +main178: move %53, %53 --> main76 +main76 : sw %37, 28(%53) --> main51 +main51 : li %36, 55 --> main50 +main50 : move %52, $gp --> main177 +main177: move %52, %52 --> main75 +main75 : sw %36, 32(%52) --> main49 +main49 : li %35, 89 --> main48 +main48 : move %51, $gp --> main175 +main175: move %51, %51 --> main74 +main74 : sw %35, 36(%51) --> main47 +main47 : emit c11 --> main46 +main46 : li %30, 0 --> main45 +main45 : move %31, $sp --> main174 +main174: move %31, %31 --> main44 +main44 : li %33, 0 --> main43 +main43 : li %34, 4 --> main42 +main42 : mulo %32, %33, %34 --> main41 +main41 : add %50, %31, %32 --> main73 +main73 : sw %30, 0(%50) --> main40 +main40 : emit c10 --> main39 +main39 : li %25, 0 --> main38 +main38 : move %26, $sp --> main173 +main173: move %26, %26 --> main37 +main37 : li %28, 1 --> main36 +main36 : li %29, 4 --> main35 +main35 : mulo %27, %28, %29 --> main34 +main34 : add %49, %26, %27 --> main72 +main72 : sw %25, 0(%49) --> main33 +main33 : emit c9 --> main32 +main32 : li %20, 0 --> main31 +main31 : move %21, $sp --> main172 +main172: move %21, %21 --> main30 +main30 : li %23, 2 --> main29 +main29 : li %24, 4 --> main28 +main28 : mulo %22, %23, %24 --> main27 +main27 : add %48, %21, %22 --> main71 +main71 : sw %20, 0(%48) --> main26 +main26 : emit c8 --> main25 +main25 : li %15, 0 --> main24 +main24 : move %16, $sp --> main171 +main171: move %16, %16 --> main23 +main23 : li %18, 3 --> main22 +main22 : li %19, 4 --> main21 +main21 : mulo %17, %18, %19 --> main20 +main20 : add %47, %16, %17 --> main70 +main70 : sw %15, 0(%47) --> main19 +main19 : emit c7 --> main18 +main18 : li %10, 0 --> main17 +main17 : move %11, $sp --> main170 +main170: move %11, %11 --> main16 +main16 : li %13, 4 --> main15 +main15 : li %14, 4 --> main14 +main14 : mulo %12, %13, %14 --> main13 +main13 : add %46, %11, %12 --> main69 +main69 : sw %10, 0(%46) --> main12 +main12 : emit c6 --> main11 +main11 : move %5, $gp --> main169 +main169: move %5, %5 --> main10 +main10 : move %6, $gp --> main168 +main168: addi %6, %6, 20 --> main9 +main9 : move %7, $sp --> main192 +main192: move %7, %7 --> main8 +main8 : li %8, 5 --> main7 +main7 : la %61, TB_Boucle --> main84 +main84 : j --> main191 +main191: move $a0, %5 --> main190 +main190: move $a1, %6 --> main189 +main189: move $a2, %7 --> main188 +main188: move $a3, %8 --> main187 +main187: call %61(4) --> main186 +main186: move %9, $v0 --> main6 +main6 : emit c5 --> main5 +main5 : move %1, $sp --> main176 +main176: move %1, %1 --> main4 +main4 : li %3, 4 --> main3 +main3 : li %4, 4 --> main2 +main2 : mulo %2, %3, %4 --> main1 +main1 : add %45, %1, %2 --> main68 +main68 : lw %0, 0(%45) --> main0 +main0 : j --> main167 +main167: move $v0, %0 --> main166 +main166: move $ra, %70 --> main165 +main165: move $s7, %69 --> main164 +main164: move $s6, %68 --> main163 +main163: move $s5, %67 --> main162 +main162: move $s4, %66 --> main161 +main161: move $s3, %65 --> main160 +main160: move $s2, %64 --> main159 +main159: move $s1, %63 --> main158 +main158: move $s0, %62 --> main157 +main157: delframe --> main156 +main156: jr $ra (xmits $v0) + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + +procedure TB_Boucle(4) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30 +entry TB_Boucle59 +TB_Boucle59: newframe --> TB_Boucle58 +TB_Boucle58: move %30, $ra --> TB_Boucle57 +TB_Boucle57: move %29, $s7 --> TB_Boucle56 +TB_Boucle56: move %28, $s6 --> TB_Boucle55 +TB_Boucle55: move %27, $s5 --> TB_Boucle54 +TB_Boucle54: move %26, $s4 --> TB_Boucle53 +TB_Boucle53: move %25, $s3 --> TB_Boucle52 +TB_Boucle52: move %24, $s2 --> TB_Boucle51 +TB_Boucle51: move %23, $s1 --> TB_Boucle50 +TB_Boucle50: move %22, $s0 --> TB_Boucle49 +TB_Boucle49: move %0, $a0 --> TB_Boucle48 +TB_Boucle48: move %1, $a1 --> TB_Boucle47 +TB_Boucle47: move %2, $a2 --> TB_Boucle46 +TB_Boucle46: move %3, $a3 --> TB_Boucle45 +TB_Boucle45: li %4, 0 --> TB_Boucle44 +TB_Boucle44: li %5, 0 --> TB_Boucle43 +TB_Boucle43: li %6, 0 --> TB_Boucle42 +TB_Boucle42: li %7, 0 --> TB_Boucle41 +TB_Boucle41: li %8, 0 --> TB_Boucle40 +TB_Boucle40: li %9, 0 --> TB_Boucle39 +TB_Boucle39: li %10, 0 --> TB_Boucle38 +TB_Boucle38: li %11, 0 --> TB_Boucle37 +TB_Boucle37: li %12, 0 --> TB_Boucle36 +TB_Boucle36: li %13, 0 --> TB_Boucle35 +TB_Boucle35: li %14, 0 --> TB_Boucle34 +TB_Boucle34: li %15, 0 --> TB_Boucle33 +TB_Boucle33: li %16, 0 --> TB_Boucle32 +TB_Boucle32: li %17, 0 --> TB_Boucle31 +TB_Boucle31: li %18, 0 --> TB_Boucle30 +TB_Boucle30: li %19, 0 --> TB_Boucle29 +TB_Boucle29: li %20, 0 --> TB_Boucle28 +TB_Boucle28: li %21, 0 --> TB_Boucle23 +TB_Boucle23: emit c4 --> TB_Boucle22 +TB_Boucle22: emit c3 --> TB_Boucle21 +TB_Boucle21: li %4, 0 --> TB_Boucle1 +TB_Boucle1 : j --> TB_Boucle20 +TB_Boucle20: li %16, 0 --> TB_Boucle19 +TB_Boucle19: emit c2 --> TB_Boucle18 +TB_Boucle18: slt %17, %4, %3 --> TB_Boucle17 +TB_Boucle17: li %19, 0 --> TB_Boucle25 +TB_Boucle25: seq %15, %17, %19 --> TB_Boucle16 +TB_Boucle16: beq %15, %16 --> TB_Boucle15, TB_Boucle0 +TB_Boucle0 : j --> TB_Boucle70 +TB_Boucle70: move $ra, %30 --> TB_Boucle69 +TB_Boucle69: move $s7, %29 --> TB_Boucle68 +TB_Boucle68: move $s6, %28 --> TB_Boucle67 +TB_Boucle67: move $s5, %27 --> TB_Boucle66 +TB_Boucle66: move $s4, %26 --> TB_Boucle65 +TB_Boucle65: move $s3, %25 --> TB_Boucle64 +TB_Boucle64: move $s2, %24 --> TB_Boucle63 +TB_Boucle63: move $s1, %23 --> TB_Boucle62 +TB_Boucle62: move $s0, %22 --> TB_Boucle61 +TB_Boucle61: delframe --> TB_Boucle60 +TB_Boucle60: jr $ra +TB_Boucle15: emit c0 --> TB_Boucle14 +TB_Boucle14: li %14, 4 --> TB_Boucle13 +TB_Boucle13: mulo %13, %4, %14 --> TB_Boucle12 +TB_Boucle12: add %18, %0, %13 --> TB_Boucle24 +TB_Boucle24: lw %9, 0(%18) --> TB_Boucle11 +TB_Boucle11: li %12, 4 --> TB_Boucle10 +TB_Boucle10: mulo %11, %4, %12 --> TB_Boucle9 +TB_Boucle9 : add %21, %1, %11 --> TB_Boucle27 +TB_Boucle27: lw %10, 0(%21) --> TB_Boucle8 +TB_Boucle8 : add %6, %9, %10 --> TB_Boucle7 +TB_Boucle7 : li %8, 4 --> TB_Boucle6 +TB_Boucle6 : mulo %7, %4, %8 --> TB_Boucle5 +TB_Boucle5 : add %20, %2, %7 --> TB_Boucle26 +TB_Boucle26: sw %6, 0(%20) --> TB_Boucle4 +TB_Boucle4 : emit c1 --> TB_Boucle3 +TB_Boucle3 : li %5, 1 --> TB_Boucle2 +TB_Boucle2 : add %4, %4, %5 --> TB_Boucle1 + diff --git a/tests/clight/testTB_boucle.LIN.expected b/tests/clight/testTB_boucle.LIN.expected new file mode 100644 index 0000000..c2acc22 --- /dev/null +++ b/tests/clight/testTB_boucle.LIN.expected @@ -0,0 +1,523 @@ +program + +globals 40 + +procedure _main(0) +var 24 +main155: +newframe +sw $ra, 20($sp) +li $a0, 1 +move $v0, $gp +sw $a0, 0($v0) +li $a0, 2 +move $v0, $gp +sw $a0, 4($v0) +li $a0, 3 +move $v0, $gp +sw $a0, 8($v0) +li $a0, 5 +move $v0, $gp +sw $a0, 12($v0) +li $a0, 8 +move $v0, $gp +sw $a0, 16($v0) +li $a0, 13 +move $v0, $gp +sw $a0, 20($v0) +li $a0, 21 +move $v0, $gp +sw $a0, 24($v0) +li $a0, 34 +move $v0, $gp +sw $a0, 28($v0) +li $a0, 55 +move $v0, $gp +sw $a0, 32($v0) +li $a0, 89 +move $v0, $gp +sw $a0, 36($v0) +c11: +li $a1, 0 +move $a0, $sp +li $v0, 4 +mulo $v0, $zero, $v0 +add $v0, $a0, $v0 +sw $a1, 0($v0) +c10: +move $a1, $sp +li $a0, 1 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c9: +move $a1, $sp +li $a0, 2 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c8: +move $a1, $sp +li $a0, 3 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c7: +move $a1, $sp +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $a1, $v0 +sw $zero, 0($v0) +c6: +move $a0, $gp +move $a1, $gp +addi $a1, $a1, 20 +move $a2, $sp +li $a3, 5 +la $v0, TB_Boucle +call $v0 +c5: +li $a0, 4 +li $v0, 4 +mulo $v0, $a0, $v0 +add $v0, $sp, $v0 +lw $v0, 0($v0) +lw $ra, 20($sp) +delframe +jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + +procedure TB_Boucle(4) +var 0 +TB_Boucle59: +newframe +c4: +c3: +li $t0, 0 +TB_Boucle20: +li $t1, 0 +c2: +slt $v0, $t0, $a3 +seq $v0, $v0, $zero +beq $v0, $t1, TB_Boucle15 +delframe +jr $ra +TB_Boucle15: +c0: +li $v0, 4 +mulo $v0, $t0, $v0 +add $v0, $a0, $v0 +lw $t1, 0($v0) +li $v0, 4 +mulo $v0, $t0, $v0 +add $v0, $a1, $v0 +lw $v0, 0($v0) +add $t1, $t1, $v0 +li $v0, 4 +mulo $v0, $t0, $v0 +add $v0, $a2, $v0 +sw $t1, 0($v0) +c1: +li $v0, 1 +add $t0, $t0, $v0 +j TB_Boucle20 + diff --git a/tests/clight/testTB_boucle.LTL.expected b/tests/clight/testTB_boucle.LTL.expected new file mode 100644 index 0000000..f5358f1 --- /dev/null +++ b/tests/clight/testTB_boucle.LTL.expected @@ -0,0 +1,672 @@ +program + +globals 40 + +procedure _main(0) +var 24 +entry main155 +main155: newframe --> main154 +main154: lw $ra, 20($sp) --> main153 +main153: j --> main152 +main152: j --> main151 +main151: j --> main150 +main150: j --> main149 +main149: j --> main148 +main148: j --> main147 +main147: j --> main146 +main146: j --> main145 +main145: j --> main144 +main144: j --> main143 +main143: j --> main142 +main142: j --> main141 +main141: j --> main140 +main140: j --> main139 +main139: j --> main138 +main138: j --> main137 +main137: j --> main136 +main136: j --> main135 +main135: j --> main134 +main134: j --> main133 +main133: j --> main132 +main132: j --> main131 +main131: j --> main130 +main130: j --> main129 +main129: j --> main128 +main128: j --> main127 +main127: j --> main126 +main126: j --> main125 +main125: j --> main124 +main124: j --> main123 +main123: j --> main122 +main122: j --> main121 +main121: j --> main120 +main120: j --> main119 +main119: j --> main118 +main118: j --> main117 +main117: j --> main116 +main116: j --> main115 +main115: j --> main114 +main114: j --> main113 +main113: j --> main112 +main112: j --> main111 +main111: j --> main110 +main110: j --> main109 +main109: j --> main108 +main108: j --> main107 +main107: j --> main106 +main106: j --> main105 +main105: j --> main104 +main104: j --> main103 +main103: j --> main102 +main102: j --> main101 +main101: j --> main100 +main100: j --> main99 +main99 : j --> main98 +main98 : j --> main97 +main97 : j --> main96 +main96 : j --> main95 +main95 : j --> main94 +main94 : j --> main93 +main93 : j --> main92 +main92 : j --> main91 +main91 : j --> main90 +main90 : j --> main89 +main89 : j --> main88 +main88 : j --> main87 +main87 : j --> main86 +main86 : j --> main85 +main85 : j --> main67 +main67 : li $a0, 1 --> main66 +main66 : move $v0, $gp --> main185 +main185: j --> main83 +main83 : lw $a0, 0($v0) --> main65 +main65 : li $a0, 2 --> main64 +main64 : move $v0, $gp --> main184 +main184: j --> main82 +main82 : lw $a0, 4($v0) --> main63 +main63 : li $a0, 3 --> main62 +main62 : move $v0, $gp --> main183 +main183: j --> main81 +main81 : lw $a0, 8($v0) --> main61 +main61 : li $a0, 5 --> main60 +main60 : move $v0, $gp --> main182 +main182: j --> main80 +main80 : lw $a0, 12($v0) --> main59 +main59 : li $a0, 8 --> main58 +main58 : move $v0, $gp --> main181 +main181: j --> main79 +main79 : lw $a0, 16($v0) --> main57 +main57 : li $a0, 13 --> main56 +main56 : move $v0, $gp --> main180 +main180: j --> main78 +main78 : lw $a0, 20($v0) --> main55 +main55 : li $a0, 21 --> main54 +main54 : move $v0, $gp --> main179 +main179: j --> main77 +main77 : lw $a0, 24($v0) --> main53 +main53 : li $a0, 34 --> main52 +main52 : move $v0, $gp --> main178 +main178: j --> main76 +main76 : lw $a0, 28($v0) --> main51 +main51 : li $a0, 55 --> main50 +main50 : move $v0, $gp --> main177 +main177: j --> main75 +main75 : lw $a0, 32($v0) --> main49 +main49 : li $a0, 89 --> main48 +main48 : move $v0, $gp --> main175 +main175: j --> main74 +main74 : lw $a0, 36($v0) --> main47 +main47 : emit c11 --> main46 +main46 : li $a1, 0 --> main45 +main45 : move $a0, $sp --> main174 +main174: j --> main44 +main44 : j --> main43 +main43 : li $v0, 4 --> main42 +main42 : mulo $v0, $zero, $v0 --> main41 +main41 : add $v0, $a0, $v0 --> main73 +main73 : lw $a1, 0($v0) --> main40 +main40 : emit c10 --> main39 +main39 : j --> main38 +main38 : move $a1, $sp --> main173 +main173: j --> main37 +main37 : li $a0, 1 --> main36 +main36 : li $v0, 4 --> main35 +main35 : mulo $v0, $a0, $v0 --> main34 +main34 : add $v0, $a1, $v0 --> main72 +main72 : lw $zero, 0($v0) --> main33 +main33 : emit c9 --> main32 +main32 : j --> main31 +main31 : move $a1, $sp --> main172 +main172: j --> main30 +main30 : li $a0, 2 --> main29 +main29 : li $v0, 4 --> main28 +main28 : mulo $v0, $a0, $v0 --> main27 +main27 : add $v0, $a1, $v0 --> main71 +main71 : lw $zero, 0($v0) --> main26 +main26 : emit c8 --> main25 +main25 : j --> main24 +main24 : move $a1, $sp --> main171 +main171: j --> main23 +main23 : li $a0, 3 --> main22 +main22 : li $v0, 4 --> main21 +main21 : mulo $v0, $a0, $v0 --> main20 +main20 : add $v0, $a1, $v0 --> main70 +main70 : lw $zero, 0($v0) --> main19 +main19 : emit c7 --> main18 +main18 : j --> main17 +main17 : move $a1, $sp --> main170 +main170: j --> main16 +main16 : li $a0, 4 --> main15 +main15 : li $v0, 4 --> main14 +main14 : mulo $v0, $a0, $v0 --> main13 +main13 : add $v0, $a1, $v0 --> main69 +main69 : lw $zero, 0($v0) --> main12 +main12 : emit c6 --> main11 +main11 : move $a0, $gp --> main169 +main169: j --> main10 +main10 : move $a1, $gp --> main168 +main168: addi $a1, $a1, 20 --> main9 +main9 : move $a2, $sp --> main192 +main192: j --> main8 +main8 : li $a3, 5 --> main7 +main7 : la $v0, TB_Boucle --> main84 +main84 : j --> main191 +main191: j --> main190 +main190: j --> main189 +main189: j --> main188 +main188: j --> main187 +main187: call $v0 --> main186 +main186: j --> main6 +main6 : emit c5 --> main5 +main5 : j --> main176 +main176: j --> main4 +main4 : li $a0, 4 --> main3 +main3 : li $v0, 4 --> main2 +main2 : mulo $v0, $a0, $v0 --> main1 +main1 : add $v0, $sp, $v0 --> main68 +main68 : lw $v0, 0($v0) --> main0 +main0 : j --> main167 +main167: j --> main166 +main166: lw $ra, 20($sp) --> main165 +main165: j --> main164 +main164: j --> main163 +main163: j --> main162 +main162: j --> main161 +main161: j --> main160 +main160: j --> main159 +main159: j --> main158 +main158: j --> main157 +main157: delframe --> main156 +main156: jr $ra + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + +procedure TB_Boucle(4) +var 0 +entry TB_Boucle59 +TB_Boucle59: newframe --> TB_Boucle58 +TB_Boucle58: j --> TB_Boucle57 +TB_Boucle57: j --> TB_Boucle56 +TB_Boucle56: j --> TB_Boucle55 +TB_Boucle55: j --> TB_Boucle54 +TB_Boucle54: j --> TB_Boucle53 +TB_Boucle53: j --> TB_Boucle52 +TB_Boucle52: j --> TB_Boucle51 +TB_Boucle51: j --> TB_Boucle50 +TB_Boucle50: j --> TB_Boucle49 +TB_Boucle49: j --> TB_Boucle48 +TB_Boucle48: j --> TB_Boucle47 +TB_Boucle47: j --> TB_Boucle46 +TB_Boucle46: j --> TB_Boucle45 +TB_Boucle45: j --> TB_Boucle44 +TB_Boucle44: j --> TB_Boucle43 +TB_Boucle43: j --> TB_Boucle42 +TB_Boucle42: j --> TB_Boucle41 +TB_Boucle41: j --> TB_Boucle40 +TB_Boucle40: j --> TB_Boucle39 +TB_Boucle39: j --> TB_Boucle38 +TB_Boucle38: j --> TB_Boucle37 +TB_Boucle37: j --> TB_Boucle36 +TB_Boucle36: j --> TB_Boucle35 +TB_Boucle35: j --> TB_Boucle34 +TB_Boucle34: j --> TB_Boucle33 +TB_Boucle33: j --> TB_Boucle32 +TB_Boucle32: j --> TB_Boucle31 +TB_Boucle31: j --> TB_Boucle30 +TB_Boucle30: j --> TB_Boucle29 +TB_Boucle29: j --> TB_Boucle28 +TB_Boucle28: j --> TB_Boucle23 +TB_Boucle23: emit c4 --> TB_Boucle22 +TB_Boucle22: emit c3 --> TB_Boucle21 +TB_Boucle21: li $t0, 0 --> TB_Boucle1 +TB_Boucle1 : j --> TB_Boucle20 +TB_Boucle20: li $t1, 0 --> TB_Boucle19 +TB_Boucle19: emit c2 --> TB_Boucle18 +TB_Boucle18: slt $v0, $t0, $a3 --> TB_Boucle17 +TB_Boucle17: j --> TB_Boucle25 +TB_Boucle25: seq $v0, $v0, $zero --> TB_Boucle16 +TB_Boucle16: beq $v0, $t1 --> TB_Boucle15, TB_Boucle0 +TB_Boucle0 : j --> TB_Boucle70 +TB_Boucle70: j --> TB_Boucle69 +TB_Boucle69: j --> TB_Boucle68 +TB_Boucle68: j --> TB_Boucle67 +TB_Boucle67: j --> TB_Boucle66 +TB_Boucle66: j --> TB_Boucle65 +TB_Boucle65: j --> TB_Boucle64 +TB_Boucle64: j --> TB_Boucle63 +TB_Boucle63: j --> TB_Boucle62 +TB_Boucle62: j --> TB_Boucle61 +TB_Boucle61: delframe --> TB_Boucle60 +TB_Boucle60: jr $ra +TB_Boucle15: emit c0 --> TB_Boucle14 +TB_Boucle14: li $v0, 4 --> TB_Boucle13 +TB_Boucle13: mulo $v0, $t0, $v0 --> TB_Boucle12 +TB_Boucle12: add $v0, $a0, $v0 --> TB_Boucle24 +TB_Boucle24: lw $t1, 0($v0) --> TB_Boucle11 +TB_Boucle11: li $v0, 4 --> TB_Boucle10 +TB_Boucle10: mulo $v0, $t0, $v0 --> TB_Boucle9 +TB_Boucle9 : add $v0, $a1, $v0 --> TB_Boucle27 +TB_Boucle27: lw $v0, 0($v0) --> TB_Boucle8 +TB_Boucle8 : add $t1, $t1, $v0 --> TB_Boucle7 +TB_Boucle7 : li $v0, 4 --> TB_Boucle6 +TB_Boucle6 : mulo $v0, $t0, $v0 --> TB_Boucle5 +TB_Boucle5 : add $v0, $a2, $v0 --> TB_Boucle26 +TB_Boucle26: lw $t1, 0($v0) --> TB_Boucle4 +TB_Boucle4 : emit c1 --> TB_Boucle3 +TB_Boucle3 : li $v0, 1 --> TB_Boucle2 +TB_Boucle2 : add $t0, $t0, $v0 --> TB_Boucle1 + diff --git a/tests/clight/testTB_boucle.RTL.expected b/tests/clight/testTB_boucle.RTL.expected new file mode 100644 index 0000000..19f0251 --- /dev/null +++ b/tests/clight/testTB_boucle.RTL.expected @@ -0,0 +1,613 @@ +program + +globals 40 + +function _main() : %0 +stacksize 20 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21, %22, %23, %24, %25, %26, %27, + %28, %29, %30, %31, %32, %33, %34, + %35, %36, %37, %38, %39, %40, %41, + %42, %43, %44, %45, %46, %47, %48, + %49, %50, %51, %52, %53, %54, %55, + %56, %57, %58, %59, %60, %61 +entry main145 +main145: li %1, 0 --> main144 +main144: li %2, 0 --> main143 +main143: li %3, 0 --> main142 +main142: li %4, 0 --> main141 +main141: li %5, 0 --> main140 +main140: li %6, 0 --> main139 +main139: li %7, 0 --> main138 +main138: li %8, 0 --> main137 +main137: li %9, 0 --> main136 +main136: li %10, 0 --> main135 +main135: li %11, 0 --> main134 +main134: li %12, 0 --> main133 +main133: li %13, 0 --> main132 +main132: li %14, 0 --> main131 +main131: li %15, 0 --> main130 +main130: li %16, 0 --> main129 +main129: li %17, 0 --> main128 +main128: li %18, 0 --> main127 +main127: li %19, 0 --> main126 +main126: li %20, 0 --> main125 +main125: li %21, 0 --> main124 +main124: li %22, 0 --> main123 +main123: li %23, 0 --> main122 +main122: li %24, 0 --> main121 +main121: li %25, 0 --> main120 +main120: li %26, 0 --> main119 +main119: li %27, 0 --> main118 +main118: li %28, 0 --> main117 +main117: li %29, 0 --> main116 +main116: li %30, 0 --> main115 +main115: li %31, 0 --> main114 +main114: li %32, 0 --> main113 +main113: li %33, 0 --> main112 +main112: li %34, 0 --> main111 +main111: li %35, 0 --> main110 +main110: li %36, 0 --> main109 +main109: li %37, 0 --> main108 +main108: li %38, 0 --> main107 +main107: li %39, 0 --> main106 +main106: li %40, 0 --> main105 +main105: li %41, 0 --> main104 +main104: li %42, 0 --> main103 +main103: li %43, 0 --> main102 +main102: li %44, 0 --> main101 +main101: li %45, 0 --> main100 +main100: li %46, 0 --> main99 +main99 : li %47, 0 --> main98 +main98 : li %48, 0 --> main97 +main97 : li %49, 0 --> main96 +main96 : li %50, 0 --> main95 +main95 : li %51, 0 --> main94 +main94 : li %52, 0 --> main93 +main93 : li %53, 0 --> main92 +main92 : li %54, 0 --> main91 +main91 : li %55, 0 --> main90 +main90 : li %56, 0 --> main89 +main89 : li %57, 0 --> main88 +main88 : li %58, 0 --> main87 +main87 : li %59, 0 --> main86 +main86 : li %60, 0 --> main85 +main85 : li %61, 0 --> main67 +main67 : li %44, 1 --> main66 +main66 : addi %60, GLOBALS, 0 --> main83 +main83 : sw %44, 0(%60) --> main65 +main65 : li %43, 2 --> main64 +main64 : addi %59, GLOBALS, 0 --> main82 +main82 : sw %43, 4(%59) --> main63 +main63 : li %42, 3 --> main62 +main62 : addi %58, GLOBALS, 0 --> main81 +main81 : sw %42, 8(%58) --> main61 +main61 : li %41, 5 --> main60 +main60 : addi %57, GLOBALS, 0 --> main80 +main80 : sw %41, 12(%57) --> main59 +main59 : li %40, 8 --> main58 +main58 : addi %56, GLOBALS, 0 --> main79 +main79 : sw %40, 16(%56) --> main57 +main57 : li %39, 13 --> main56 +main56 : addi %55, GLOBALS, 0 --> main78 +main78 : sw %39, 20(%55) --> main55 +main55 : li %38, 21 --> main54 +main54 : addi %54, GLOBALS, 0 --> main77 +main77 : sw %38, 24(%54) --> main53 +main53 : li %37, 34 --> main52 +main52 : addi %53, GLOBALS, 0 --> main76 +main76 : sw %37, 28(%53) --> main51 +main51 : li %36, 55 --> main50 +main50 : addi %52, GLOBALS, 0 --> main75 +main75 : sw %36, 32(%52) --> main49 +main49 : li %35, 89 --> main48 +main48 : addi %51, GLOBALS, 0 --> main74 +main74 : sw %35, 36(%51) --> main47 +main47 : emit c11 --> main46 +main46 : li %30, 0 --> main45 +main45 : addi %31, STACK, 0 --> main44 +main44 : li %33, 0 --> main43 +main43 : li %34, 4 --> main42 +main42 : mulo %32, %33, %34 --> main41 +main41 : add %50, %31, %32 --> main73 +main73 : sw %30, 0(%50) --> main40 +main40 : emit c10 --> main39 +main39 : li %25, 0 --> main38 +main38 : addi %26, STACK, 0 --> main37 +main37 : li %28, 1 --> main36 +main36 : li %29, 4 --> main35 +main35 : mulo %27, %28, %29 --> main34 +main34 : add %49, %26, %27 --> main72 +main72 : sw %25, 0(%49) --> main33 +main33 : emit c9 --> main32 +main32 : li %20, 0 --> main31 +main31 : addi %21, STACK, 0 --> main30 +main30 : li %23, 2 --> main29 +main29 : li %24, 4 --> main28 +main28 : mulo %22, %23, %24 --> main27 +main27 : add %48, %21, %22 --> main71 +main71 : sw %20, 0(%48) --> main26 +main26 : emit c8 --> main25 +main25 : li %15, 0 --> main24 +main24 : addi %16, STACK, 0 --> main23 +main23 : li %18, 3 --> main22 +main22 : li %19, 4 --> main21 +main21 : mulo %17, %18, %19 --> main20 +main20 : add %47, %16, %17 --> main70 +main70 : sw %15, 0(%47) --> main19 +main19 : emit c7 --> main18 +main18 : li %10, 0 --> main17 +main17 : addi %11, STACK, 0 --> main16 +main16 : li %13, 4 --> main15 +main15 : li %14, 4 --> main14 +main14 : mulo %12, %13, %14 --> main13 +main13 : add %46, %11, %12 --> main69 +main69 : sw %10, 0(%46) --> main12 +main12 : emit c6 --> main11 +main11 : addi %5, GLOBALS, 0 --> main10 +main10 : addi %6, GLOBALS, 20 --> main9 +main9 : addi %7, STACK, 0 --> main8 +main8 : li %8, 5 --> main7 +main7 : la %61, TB_Boucle --> main84 +main84 : call %9, %61(%5, %6, %7, %8) --> main6 +main6 : emit c5 --> main5 +main5 : addi %1, STACK, 0 --> main4 +main4 : li %3, 4 --> main3 +main3 : li %4, 4 --> main2 +main2 : mulo %2, %3, %4 --> main1 +main1 : add %45, %1, %2 --> main68 +main68 : lw %0, 0(%45) --> main0 +main0 : return %0 + +__builtin_varargs_start: int -> void + + +__builtin_va_start: int -> int -> void + + +__builtin_va_end: int -> void + + +__builtin_va_copy: int -> int -> void + + +__builtin_va_arg: int -> int -> void + + +__builtin_types_compatible_p: int -> int -> int + + +__builtin_tanl: float -> float + + +__builtin_tanhl: float -> float + + +__builtin_tanhf: float -> float + + +__builtin_tanh: float -> float + + +__builtin_tanf: float -> float + + +__builtin_tan: float -> float + + +__builtin_strspn: int -> int -> int + + +__builtin_strpbrk: int -> int -> int + + +__builtin_strncpy: int -> int -> int -> int + + +__builtin_strncmp: int -> int -> int -> int + + +__builtin_strncat: int -> int -> int -> int + + +__builtin_strcspn: int -> int -> int + + +__builtin_strcpy: int -> int -> int + + +__builtin_strcmp: int -> int -> int + + +__builtin_strchr: int -> int -> int + + +__builtin_stpcpy: int -> int -> int + + +__builtin_stdarg_start: int -> void + + +__builtin_sqrtl: float -> float + + +__builtin_sqrtf: float -> float + + +__builtin_sqrt: float -> float + + +__builtin_sinl: float -> float + + +__builtin_sinhl: float -> float + + +__builtin_sinhf: float -> float + + +__builtin_sinh: float -> float + + +__builtin_sinf: float -> float + + +__builtin_sin: float -> float + + +__builtin_return_address: int -> int + + +__builtin_return: int -> void + + +__builtin_powil: float -> int -> float + + +__builtin_powif: float -> int -> float + + +__builtin_powi: float -> int -> float + + +__builtin_popcountll: int -> int + + +__builtin_popcountl: int -> int + + +__builtin_popcount: int -> int + + +__builtin_parityll: int -> int + + +__builtin_parityl: int -> int + + +__builtin_parity: int -> int + + +__builtin_object_size: int -> int -> int + + +__builtin_next_arg: int + + +__builtin_nansl: int -> float + + +__builtin_nansf: int -> float + + +__builtin_nans: int -> float + + +__builtin_nanl: int -> float + + +__builtin_nanf: int -> float + + +__builtin_nan: int -> float + + +__builtin_modfl: float -> int -> float + + +__builtin_modff: float -> int -> float + + +__builtin_mempcpy: int -> int -> int -> int + + +__builtin_memcpy: int -> int -> int -> int + + +__builtin_logl: float -> float + + +__builtin_logf: float -> float + + +__builtin_log10l: float -> float + + +__builtin_log10f: float -> float + + +__builtin_log10: float -> float + + +__builtin_log: float -> float + + +__builtin_ldexpl: float -> int -> float + + +__builtin_ldexpf: float -> int -> float + + +__builtin_ldexp: float -> int -> float + + +__builtin_infl: float + + +__builtin_inff: float + + +__builtin_inf: float + + +__builtin_huge_vall: float + + +__builtin_huge_valf: float + + +__builtin_huge_val: float + + +__builtin_frexpl: float -> int -> float + + +__builtin_frexpf: float -> int -> float + + +__builtin_frexp: float -> int -> float + + +__builtin_frame_address: int -> int + + +__builtin_fmodl: float -> float + + +__builtin_fmodf: float -> float + + +__builtin_fmod: float -> float + + +__builtin_floorl: float -> float + + +__builtin_floorf: float -> float + + +__builtin_floor: float -> float + + +__builtin_ffsll: int -> int + + +__builtin_ffsl: int -> int + + +__builtin_ffs: int -> int + + +__builtin_fabsl: float -> float + + +__builtin_fabsf: float -> float + + +__builtin_fabs: float -> float + + +__builtin_expl: float -> float + + +__builtin_expf: float -> float + + +__builtin_expect: int -> int -> int + + +__builtin_exp: float -> float + + +__builtin_ctzll: int -> int + + +__builtin_ctzl: int -> int + + +__builtin_ctz: int -> int + + +__builtin_cosl: float -> float + + +__builtin_coshl: float -> float + + +__builtin_coshf: float -> float + + +__builtin_cosh: float -> float + + +__builtin_cosf: float -> float + + +__builtin_cos: float -> float + + +__builtin_constant_p: int -> int + + +__builtin_clzll: int -> int + + +__builtin_clzl: int -> int + + +__builtin_clz: int -> int + + +__builtin_ceill: float -> float + + +__builtin_ceilf: float -> float + + +__builtin_ceil: float -> float + + +__builtin_atanl: float -> float + + +__builtin_atanf: float -> float + + +__builtin_atan2l: float -> float -> float + + +__builtin_atan2f: float -> float -> float + + +__builtin_atan2: float -> float -> float + + +__builtin_atan: float -> float + + +__builtin_asinl: float -> float + + +__builtin_asinf: float -> float + + +__builtin_asin: float -> float + + +__builtin_alloca: int -> int + + +__builtin_acosl: float -> float + + +__builtin_acosf: float -> float + + +__builtin_acos: float -> float + + +__builtin___vsprintf_chk: int -> int -> int -> int -> int -> int + + +__builtin___vsnprintf_chk: int -> int -> int -> int -> int -> int -> int + + +__builtin___vprintf_chk: int -> int -> int -> int + + +__builtin___vfprintf_chk: int -> int -> int -> int -> int + + +__builtin___strncpy_chk: int -> int -> int -> int -> int + + +__builtin___strncat_chk: int -> int -> int -> int -> int + + +__builtin___strcpy_chk: int -> int -> int -> int + + +__builtin___strcat_chk: int -> int -> int -> int + + +__builtin___stpcpy_chk: int -> int -> int -> int + + +__builtin___memset_chk: int -> int -> int -> int -> int + + +__builtin___mempcpy_chk: int -> int -> int -> int -> int + + +__builtin___memmove_chk: int -> int -> int -> int -> int + + +__builtin___memcpy_chk: int -> int -> int -> int -> int + + +procedure TB_Boucle(%0; %1; %2; %3) +stacksize 0 +var %0, %1, %2, %3, %4, %5, %6, + %7, %8, %9, %10, %11, %12, %13, + %14, %15, %16, %17, %18, %19, %20, + %21 +entry TB_Boucle45 +TB_Boucle45: li %4, 0 --> TB_Boucle44 +TB_Boucle44: li %5, 0 --> TB_Boucle43 +TB_Boucle43: li %6, 0 --> TB_Boucle42 +TB_Boucle42: li %7, 0 --> TB_Boucle41 +TB_Boucle41: li %8, 0 --> TB_Boucle40 +TB_Boucle40: li %9, 0 --> TB_Boucle39 +TB_Boucle39: li %10, 0 --> TB_Boucle38 +TB_Boucle38: li %11, 0 --> TB_Boucle37 +TB_Boucle37: li %12, 0 --> TB_Boucle36 +TB_Boucle36: li %13, 0 --> TB_Boucle35 +TB_Boucle35: li %14, 0 --> TB_Boucle34 +TB_Boucle34: li %15, 0 --> TB_Boucle33 +TB_Boucle33: li %16, 0 --> TB_Boucle32 +TB_Boucle32: li %17, 0 --> TB_Boucle31 +TB_Boucle31: li %18, 0 --> TB_Boucle30 +TB_Boucle30: li %19, 0 --> TB_Boucle29 +TB_Boucle29: li %20, 0 --> TB_Boucle28 +TB_Boucle28: li %21, 0 --> TB_Boucle23 +TB_Boucle23: emit c4 --> TB_Boucle22 +TB_Boucle22: emit c3 --> TB_Boucle21 +TB_Boucle21: li %4, 0 --> TB_Boucle1 +TB_Boucle1 : j --> TB_Boucle20 +TB_Boucle20: li %16, 0 --> TB_Boucle19 +TB_Boucle19: emit c2 --> TB_Boucle18 +TB_Boucle18: slt %17, %4, %3 --> TB_Boucle17 +TB_Boucle17: li %19, 0 --> TB_Boucle25 +TB_Boucle25: seq %15, %17, %19 --> TB_Boucle16 +TB_Boucle16: beq %15, %16 --> TB_Boucle15, TB_Boucle0 +TB_Boucle0 : return +TB_Boucle15: emit c0 --> TB_Boucle14 +TB_Boucle14: li %14, 4 --> TB_Boucle13 +TB_Boucle13: mulo %13, %4, %14 --> TB_Boucle12 +TB_Boucle12: add %18, %0, %13 --> TB_Boucle24 +TB_Boucle24: lw %9, 0(%18) --> TB_Boucle11 +TB_Boucle11: li %12, 4 --> TB_Boucle10 +TB_Boucle10: mulo %11, %4, %12 --> TB_Boucle9 +TB_Boucle9 : add %21, %1, %11 --> TB_Boucle27 +TB_Boucle27: lw %10, 0(%21) --> TB_Boucle8 +TB_Boucle8 : add %6, %9, %10 --> TB_Boucle7 +TB_Boucle7 : li %8, 4 --> TB_Boucle6 +TB_Boucle6 : mulo %7, %4, %8 --> TB_Boucle5 +TB_Boucle5 : add %20, %2, %7 --> TB_Boucle26 +TB_Boucle26: sw %6, 0(%20) --> TB_Boucle4 +TB_Boucle4 : emit c1 --> TB_Boucle3 +TB_Boucle3 : li %5, 1 --> TB_Boucle2 +TB_Boucle2 : add %4, %4, %5 --> TB_Boucle1 + diff --git a/tests/clight/testTB_boucle.RTLabs.expected b/tests/clight/testTB_boucle.RTLabs.expected new file mode 100644 index 0000000..d76b258 --- /dev/null +++ b/tests/clight/testTB_boucle.RTLabs.expected @@ -0,0 +1,513 @@ +program: (main function is "main") + + + globals: + "t1" = {1, 2, 3, 5, 8} + "t2" = {13, 21, 34, 55, 89} + + + "__builtin___memcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memmove_chk": int -> int -> int -> int -> int + + + "__builtin___mempcpy_chk": int -> int -> int -> int -> int + + + "__builtin___memset_chk": int -> int -> int -> int -> int + + + "__builtin___stpcpy_chk": int -> int -> int -> int + + + "__builtin___strcat_chk": int -> int -> int -> int + + + "__builtin___strcpy_chk": int -> int -> int -> int + + + "__builtin___strncat_chk": int -> int -> int -> int -> int + + + "__builtin___strncpy_chk": int -> int -> int -> int -> int + + + "__builtin___vfprintf_chk": int -> int -> int -> int -> int + + + "__builtin___vprintf_chk": int -> int -> int -> int + + + "__builtin___vsnprintf_chk": int -> int -> int -> int -> int -> int -> int + + + "__builtin___vsprintf_chk": int -> int -> int -> int -> int -> int + + + "__builtin_acos": float -> float + + + "__builtin_acosf": float -> float + + + "__builtin_acosl": float -> float + + + "__builtin_alloca": int -> int + + + "__builtin_asin": float -> float + + + "__builtin_asinf": float -> float + + + "__builtin_asinl": float -> float + + + "__builtin_atan": float -> float + + + "__builtin_atanf": float -> float + + + "__builtin_atanl": float -> float + + + "__builtin_atan2": float -> float -> float + + + "__builtin_atan2f": float -> float -> float + + + "__builtin_atan2l": float -> float -> float + + + "__builtin_ceil": float -> float + + + "__builtin_ceilf": float -> float + + + "__builtin_ceill": float -> float + + + "__builtin_cos": float -> float + + + "__builtin_cosf": float -> float + + + "__builtin_cosl": float -> float + + + "__builtin_cosh": float -> float + + + "__builtin_coshf": float -> float + + + "__builtin_coshl": float -> float + + + "__builtin_clz": int -> int + + + "__builtin_clzl": int -> int + + + "__builtin_clzll": int -> int + + + "__builtin_constant_p": int -> int + + + "__builtin_ctz": int -> int + + + "__builtin_ctzl": int -> int + + + "__builtin_ctzll": int -> int + + + "__builtin_exp": float -> float + + + "__builtin_expf": float -> float + + + "__builtin_expl": float -> float + + + "__builtin_expect": int -> int -> int + + + "__builtin_fabs": float -> float + + + "__builtin_fabsf": float -> float + + + "__builtin_fabsl": float -> float + + + "__builtin_ffs": int -> int + + + "__builtin_ffsl": int -> int + + + "__builtin_ffsll": int -> int + + + "__builtin_frame_address": int -> int + + + "__builtin_floor": float -> float + + + "__builtin_floorf": float -> float + + + "__builtin_floorl": float -> float + + + "__builtin_huge_val": float + + + "__builtin_huge_valf": float + + + "__builtin_huge_vall": float + + + "__builtin_inf": float + + + "__builtin_inff": float + + + "__builtin_infl": float + + + "__builtin_memcpy": int -> int -> int -> int + + + "__builtin_mempcpy": int -> int -> int -> int + + + "__builtin_fmod": float -> float + + + "__builtin_fmodf": float -> float + + + "__builtin_fmodl": float -> float + + + "__builtin_frexp": float -> int -> float + + + "__builtin_frexpf": float -> int -> float + + + "__builtin_frexpl": float -> int -> float + + + "__builtin_ldexp": float -> int -> float + + + "__builtin_ldexpf": float -> int -> float + + + "__builtin_ldexpl": float -> int -> float + + + "__builtin_log": float -> float + + + "__builtin_logf": float -> float + + + "__builtin_logl": float -> float + + + "__builtin_log10": float -> float + + + "__builtin_log10f": float -> float + + + "__builtin_log10l": float -> float + + + "__builtin_modff": float -> int -> float + + + "__builtin_modfl": float -> int -> float + + + "__builtin_nan": int -> float + + + "__builtin_nanf": int -> float + + + "__builtin_nanl": int -> float + + + "__builtin_nans": int -> float + + + "__builtin_nansf": int -> float + + + "__builtin_nansl": int -> float + + + "__builtin_next_arg": int + + + "__builtin_object_size": int -> int -> int + + + "__builtin_parity": int -> int + + + "__builtin_parityl": int -> int + + + "__builtin_parityll": int -> int + + + "__builtin_popcount": int -> int + + + "__builtin_popcountl": int -> int + + + "__builtin_popcountll": int -> int + + + "__builtin_powi": float -> int -> float + + + "__builtin_powif": float -> int -> float + + + "__builtin_powil": float -> int -> float + + + "__builtin_return": int -> void + + + "__builtin_return_address": int -> int + + + "__builtin_sin": float -> float + + + "__builtin_sinf": float -> float + + + "__builtin_sinl": float -> float + + + "__builtin_sinh": float -> float + + + "__builtin_sinhf": float -> float + + + "__builtin_sinhl": float -> float + + + "__builtin_sqrt": float -> float + + + "__builtin_sqrtf": float -> float + + + "__builtin_sqrtl": float -> float + + + "__builtin_stpcpy": int -> int -> int + + + "__builtin_strchr": int -> int -> int + + + "__builtin_strcmp": int -> int -> int + + + "__builtin_strcpy": int -> int -> int + + + "__builtin_strcspn": int -> int -> int + + + "__builtin_strncat": int -> int -> int -> int + + + "__builtin_strncmp": int -> int -> int -> int + + + "__builtin_strncpy": int -> int -> int -> int + + + "__builtin_strspn": int -> int -> int + + + "__builtin_strpbrk": int -> int -> int + + + "__builtin_types_compatible_p": int -> int -> int + + + "__builtin_tan": float -> float + + + "__builtin_tanf": float -> float + + + "__builtin_tanl": float -> float + + + "__builtin_tanh": float -> float + + + "__builtin_tanhf": float -> float + + + "__builtin_tanhl": float -> float + + + "__builtin_va_end": int -> void + + + "__builtin_varargs_start": int -> void + + + "__builtin_va_start": int -> int -> void + + + "__builtin_stdarg_start": int -> void + + + "__builtin_va_arg": int -> int -> void + + + "__builtin_va_copy": int -> int -> void + + + "TB_Boucle"(%0, %1, %2, %3): int -> int -> int -> int -> void + locals: %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17 + stacksize: 0 + entry: TB_Boucle23 + exit: TB_Boucle0 + + TB_Boucle9: load int32, add, %1, %11, %10 --> TB_Boucle8 + TB_Boucle8: add %6, %9, %10 --> TB_Boucle7 + TB_Boucle7: imm_int 4, %8, --> TB_Boucle6 + TB_Boucle6: mul %7, %4, %8 --> TB_Boucle5 + TB_Boucle5: store int32, add, %2, %7, %6 --> TB_Boucle4 + TB_Boucle4: emit c1 --> TB_Boucle3 + TB_Boucle3: imm_int 1, %5, --> TB_Boucle2 + TB_Boucle23: emit c4 --> TB_Boucle22 + TB_Boucle22: emit c3 --> TB_Boucle21 + TB_Boucle21: imm_int 0, %4, --> TB_Boucle1 + TB_Boucle20: imm_int 0, %16, --> TB_Boucle19 + TB_Boucle2: add %4, %4, %5 --> TB_Boucle1 + TB_Boucle19: emit c2 --> TB_Boucle18 + TB_Boucle18: lt %17, %4, %3 --> TB_Boucle17 + TB_Boucle17: notbool %15, %17 --> TB_Boucle16 + TB_Boucle16: eq %15, %16 --> TB_Boucle15, TB_Boucle0 + TB_Boucle15: emit c0 --> TB_Boucle14 + TB_Boucle14: imm_int 4, %14, --> TB_Boucle13 + TB_Boucle13: mul %13, %4, %14 --> TB_Boucle12 + TB_Boucle12: load int32, add, %0, %13, %9 --> TB_Boucle11 + TB_Boucle11: imm_int 4, %12, --> TB_Boucle10 + TB_Boucle10: mul %11, %4, %12 --> TB_Boucle9 + TB_Boucle1: --> TB_Boucle20 + TB_Boucle0: return + + + "main"(): int + locals: %0, %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14, %15, %16, %17, %18, %19, %20, %21, %22, %23, %24, %25, %26, %27, %28, %29, %30, %31, %32, %33, %34, %35, %36, %37, %38, %39, %40, %41, %42, %43, %44 + result: %0 + stacksize: 20 + entry: main67 + exit: main0 + + main9: imm_addr 0($sp), %7, --> main8 + main8: imm_int 5, %8, --> main7 + main7: call "TB_Boucle", %5, %6, %7, %8, %9: int -> int -> int -> int -> void --> main6 + main67: imm_int 1, %44, --> main66 + main66: store int32, 0("t1"), , %44 --> main65 + main65: imm_int 2, %43, --> main64 + main64: store int32, 4("t1"), , %43 --> main63 + main63: imm_int 3, %42, --> main62 + main62: store int32, 8("t1"), , %42 --> main61 + main61: imm_int 5, %41, --> main60 + main60: store int32, 12("t1"), , %41 --> main59 + main6: emit c5 --> main5 + main59: imm_int 8, %40, --> main58 + main58: store int32, 16("t1"), , %40 --> main57 + main57: imm_int 13, %39, --> main56 + main56: store int32, 0("t2"), , %39 --> main55 + main55: imm_int 21, %38, --> main54 + main54: store int32, 4("t2"), , %38 --> main53 + main53: imm_int 34, %37, --> main52 + main52: store int32, 8("t2"), , %37 --> main51 + main51: imm_int 55, %36, --> main50 + main50: store int32, 12("t2"), , %36 --> main49 + main5: imm_addr 0($sp), %1, --> main4 + main49: imm_int 89, %35, --> main48 + main48: store int32, 16("t2"), , %35 --> main47 + main47: emit c11 --> main46 + main46: imm_int 0, %30, --> main45 + main45: imm_addr 0($sp), %31, --> main44 + main44: imm_int 0, %33, --> main43 + main43: imm_int 4, %34, --> main42 + main42: mul %32, %33, %34 --> main41 + main41: store int32, add, %31, %32, %30 --> main40 + main40: emit c10 --> main39 + main4: imm_int 4, %3, --> main3 + main39: imm_int 0, %25, --> main38 + main38: imm_addr 0($sp), %26, --> main37 + main37: imm_int 1, %28, --> main36 + main36: imm_int 4, %29, --> main35 + main35: mul %27, %28, %29 --> main34 + main34: store int32, add, %26, %27, %25 --> main33 + main33: emit c9 --> main32 + main32: imm_int 0, %20, --> main31 + main31: imm_addr 0($sp), %21, --> main30 + main30: imm_int 2, %23, --> main29 + main3: imm_int 4, %4, --> main2 + main29: imm_int 4, %24, --> main28 + main28: mul %22, %23, %24 --> main27 + main27: store int32, add, %21, %22, %20 --> main26 + main26: emit c8 --> main25 + main25: imm_int 0, %15, --> main24 + main24: imm_addr 0($sp), %16, --> main23 + main23: imm_int 3, %18, --> main22 + main22: imm_int 4, %19, --> main21 + main21: mul %17, %18, %19 --> main20 + main20: store int32, add, %16, %17, %15 --> main19 + main2: mul %2, %3, %4 --> main1 + main19: emit c7 --> main18 + main18: imm_int 0, %10, --> main17 + main17: imm_addr 0($sp), %11, --> main16 + main16: imm_int 4, %13, --> main15 + main15: imm_int 4, %14, --> main14 + main14: mul %12, %13, %14 --> main13 + main13: store int32, add, %11, %12, %10 --> main12 + main12: emit c6 --> main11 + main11: imm_addr "t1", %5, --> main10 + main10: imm_addr "t2", %6, --> main9 + main1: load int32, add, %1, %2, %0 --> main0 + main0: return %0 + + diff --git a/tests/clight/testTB_boucle.c b/tests/clight/testTB_boucle.c new file mode 100644 index 0000000..52351bd --- /dev/null +++ b/tests/clight/testTB_boucle.c @@ -0,0 +1,15 @@ +int t1[5] = {1,2,3,5,8}; +int t2[5] = {13,21,34,55,89}; + +void TB_Boucle (int tabEntree1[], int tabEntree2[],int tabSortie[], int size) { + int i; + for (i = 0; i < size; i++){ + tabSortie[i] = tabEntree1[i]+tabEntree2[i]; + } +} + +int main(){ + int out[5] = {0,0,0,0,0}; + TB_Boucle(t1,t2,out,5); + return out[4]; +} diff --git a/tests/clight/testTB_boucle.c.expected b/tests/clight/testTB_boucle.c.expected new file mode 100644 index 0000000..52351bd --- /dev/null +++ b/tests/clight/testTB_boucle.c.expected @@ -0,0 +1,15 @@ +int t1[5] = {1,2,3,5,8}; +int t2[5] = {13,21,34,55,89}; + +void TB_Boucle (int tabEntree1[], int tabEntree2[],int tabSortie[], int size) { + int i; + for (i = 0; i < size; i++){ + tabSortie[i] = tabEntree1[i]+tabEntree2[i]; + } +} + +int main(){ + int out[5] = {0,0,0,0,0}; + TB_Boucle(t1,t2,out,5); + return out[4]; +} diff --git a/tests/clight/testTB_boucle.log.expected b/tests/clight/testTB_boucle.log.expected new file mode 100644 index 0000000..ba50dc8 --- /dev/null +++ b/tests/clight/testTB_boucle.log.expected @@ -0,0 +1,2 @@ +Global Error (Translation RTLabs -> RTL): + Constant not supported. diff --git a/tests/review1/bubble_sort.c b/tests/review1/bubble_sort.c new file mode 100644 index 0000000..1f0a4cf --- /dev/null +++ b/tests/review1/bubble_sort.c @@ -0,0 +1,41 @@ + +#define SIZE 5 + +char min (char tab[], char size, char n) { + char i, min_index, min; + + if (size == 0) return 0; + + min_index = n; + min = tab[min_index]; + for (i = n+1 ; i < size ; i++) { + if (tab[i] < min) { + min_index = i; + min = tab[min_index]; + } + } + + return min_index; +} + +void swap (char tab[], char i, char j) { + char t; + t = tab[i] ; tab[i] = tab[j] ; tab[j] = t; +} + +void bubble_sort(char tab[], char size) { + char i, min_index; + + for (i = 0 ; i < size ; i++) { + min_index = min(tab, size, i); + swap(tab, i, min_index); + } +} + +int main () { + char tab[] = {26, 21, 43, 62, 8}; + + bubble_sort(tab, SIZE); + + return (tab[3]); +} diff --git a/tests/review1/search.c b/tests/review1/search.c new file mode 100644 index 0000000..cc1e4b2 --- /dev/null +++ b/tests/review1/search.c @@ -0,0 +1,29 @@ +#define SIZE 5 +#define NB_FINDS 2 + +// Searching for the values below +int to_find[NB_FINDS] = {57, -1}; + +int search (int tab[], int size, int to_find) { + int low = 0, high = size-1, i; + + while (high >= low) { + i = (high+low) / 2; + if (tab[i] == to_find) return i; + if (tab[i] > to_find) high = i-1; + if (tab[i] < to_find) low = i+1; + } + + return (-1); +} + +int main () { + int tab[SIZE] = {-30, -18, 23, 57, 120}; + int res; + int i; + + for (i = 0 ; i < NB_FINDS ; i++) + println(search(tab, SIZE, to_find[i])); + + return 0; +} diff --git a/tests/tmp_tests/Backend/array_copy.c b/tests/tmp_tests/Backend/array_copy.c new file mode 100644 index 0000000..4111e9c --- /dev/null +++ b/tests/tmp_tests/Backend/array_copy.c @@ -0,0 +1,35 @@ + +#define SIZE 5 + +signed char tab1[SIZE] = {10, -3, 25, 56, -32}; + +void copy (signed char dst[], signed char src[], signed char size) { + signed char i; + + for (i = 0 ; i < size ; i++) + dst[i] = src[i]; +} + +void print_tab (signed char tab[], signed char size) { + signed char i; + + for (i = 0 ; i < size ; i++) { + print_schar(tab[i]); + space(); + } + newline(); +} + +signed char main () { + signed char tab2[SIZE]; + signed char tab3[SIZE] = {0, 1, 2, 3, 4}; + + copy(tab2, tab1, SIZE); + copy(tab1, tab3, SIZE); + + print_tab(tab1, SIZE); + print_tab(tab2, SIZE); + print_tab(tab3, SIZE); + + return 0; +} diff --git a/tests/tmp_tests/Backend/array_copy_u.c b/tests/tmp_tests/Backend/array_copy_u.c new file mode 100644 index 0000000..831e156 --- /dev/null +++ b/tests/tmp_tests/Backend/array_copy_u.c @@ -0,0 +1,35 @@ + +#define SIZE 5 + +unsigned char tab1[SIZE] = {10, -3, 25, 56, -32}; + +void copy (unsigned char dst[], unsigned char src[], unsigned char size) { + unsigned char i; + + for (i = 0 ; i < size ; i++) + dst[i] = src[i]; +} + +void print_tab (unsigned char tab[], unsigned char size) { + unsigned char i; + + for (i = 0 ; i < size ; i++) { + print_uchar(tab[i]); + space(); + } + newline(); +} + +unsigned char main () { + unsigned char tab2[SIZE]; + unsigned char tab3[SIZE] = {0, 1, 2, 3, 4}; + + copy(tab2, tab1, SIZE); + copy(tab1, tab3, SIZE); + + print_tab(tab1, SIZE); + print_tab(tab2, SIZE); + print_tab(tab3, SIZE); + + return 0; +} diff --git a/tests/tmp_tests/Backend/bubble_sort.c b/tests/tmp_tests/Backend/bubble_sort.c new file mode 100644 index 0000000..9d29206 --- /dev/null +++ b/tests/tmp_tests/Backend/bubble_sort.c @@ -0,0 +1,52 @@ + +#define SIZE 5 + +signed char min (signed char tab[], signed char size, signed char n) { + signed char i, min_index, min; + + if (size == 0) return 0; + + min_index = n; + min = tab[min_index]; + for (i = n+1 ; i < size ; i++) { + if (tab[i] < min) { + min_index = i; + min = tab[min_index]; + } + } + + return min_index; +} + +void swap (signed char tab[], signed char i, signed char j) { + signed char t; + t = tab[i] ; tab[i] = tab[j] ; tab[j] = t; +} + +void bubble_sort(signed char tab[], signed char size) { + signed char i, min_index; + + for (i = 0 ; i < size ; i++) { + min_index = min(tab, size, i); + swap(tab, i, min_index); + } +} + +void print_tab (signed char tab[], signed char size) { + signed char i; + + for (i = 0 ; i < size ; i++) { + print_schar(tab[i]); + space(); + } + newline(); +} + +signed char main () { + signed char tab[SIZE] = {26, -21, 43, -62, 8}; + + bubble_sort(tab, SIZE); + print_tab(tab, SIZE); + + return 0; +} diff --git a/tests/tmp_tests/Backend/bubble_sort_u.c b/tests/tmp_tests/Backend/bubble_sort_u.c new file mode 100644 index 0000000..9af2cf4 --- /dev/null +++ b/tests/tmp_tests/Backend/bubble_sort_u.c @@ -0,0 +1,52 @@ + +#define SIZE 5 + +unsigned char min (unsigned char tab[], unsigned char size, unsigned char n) { + unsigned char i, min_index, min; + + if (size == 0) return 0; + + min_index = n; + min = tab[min_index]; + for (i = n+1 ; i < size ; i++) { + if (tab[i] < min) { + min_index = i; + min = tab[min_index]; + } + } + + return min_index; +} + +void swap (unsigned char tab[], unsigned char i, unsigned char j) { + unsigned char t; + t = tab[i] ; tab[i] = tab[j] ; tab[j] = t; +} + +void bubble_sort(unsigned char tab[], unsigned char size) { + unsigned char i, min_index; + + for (i = 0 ; i < size ; i++) { + min_index = min(tab, size, i); + swap(tab, i, min_index); + } +} + +void print_tab (unsigned char tab[], unsigned char size) { + unsigned char i; + + for (i = 0 ; i < size ; i++) { + print_uchar(tab[i]); + space(); + } + newline(); +} + +unsigned char main () { + unsigned char tab[SIZE] = {26, -21, 43, -62, 8}; + + bubble_sort(tab, SIZE); + print_tab(tab, SIZE); + + return 0; +} diff --git a/tests/tmp_tests/Backend/quicksort.c b/tests/tmp_tests/Backend/quicksort.c new file mode 100644 index 0000000..a1be748 --- /dev/null +++ b/tests/tmp_tests/Backend/quicksort.c @@ -0,0 +1,51 @@ + +#define SIZE 5 + +void swap (signed char a[], signed char i, signed char j) { + signed char t; + t = a[i] ; a[i] = a[j] ; a[j] = t; +} + +signed char partition (signed char a[], signed char l, signed char r) { + signed char pivot, i, j; + pivot = a[l]; + i = l; j = r+1; + + while (1) { + while (i <= r && a[i] <= pivot) ++i; + do --j; while (a[j] > pivot); + if (i >= j) break; + swap(a, i, j); + } + swap(a, l, j); + return j; +} + +void quicksort (signed char a[], signed char l, signed char r) { + signed char j; + + if (l < r) { + j = partition(a, l, r); + quicksort(a, l, j-1); + quicksort(a, j+1, r); + } +} + +void print_tab (signed char tab[], signed char size) { + signed char i; + + for (i = 0 ; i < size ; i++) { + print_schar(tab[i]); + space(); + } + newline(); +} + +signed char main () { + signed char tab[SIZE] = {26, -21, 43, -62, 8}; + + quicksort(tab, 0, SIZE-1); + print_tab(tab, SIZE); + + return 0; +} diff --git a/tests/tmp_tests/Backend/quicksort_u.c b/tests/tmp_tests/Backend/quicksort_u.c new file mode 100644 index 0000000..09cd4c6 --- /dev/null +++ b/tests/tmp_tests/Backend/quicksort_u.c @@ -0,0 +1,51 @@ + +#define SIZE 5 + +void swap (unsigned char a[], unsigned char i, unsigned char j) { + unsigned char t; + t = a[i] ; a[i] = a[j] ; a[j] = t; +} + +unsigned char partition (unsigned char a[], unsigned char l, unsigned char r) { + unsigned char pivot, i, j; + pivot = a[l]; + i = l; j = r+1; + + while (1) { + while (i <= r && a[i] <= pivot) ++i; + do --j; while (a[j] > pivot); + if (i >= j) break; + swap(a, i, j); + } + swap(a, l, j); + return j; +} + +void quicksort (unsigned char a[], unsigned char l, unsigned char r) { + unsigned char j; + + if (l < r) { + j = partition(a, l, r); + quicksort(a, l, j-1); + quicksort(a, j+1, r); + } +} + +void print_tab (unsigned char tab[], unsigned char size) { + unsigned char i; + + for (i = 0 ; i < size ; i++) { + print_uchar(tab[i]); + space(); + } + newline(); +} + +unsigned char main () { + unsigned char tab[SIZE] = {26, -21, 43, -62, 8}; + + quicksort(tab, 0, SIZE-1); + print_tab(tab, SIZE); + + return 0; +} diff --git a/tests/tmp_tests/Backend/search.c b/tests/tmp_tests/Backend/search.c new file mode 100644 index 0000000..50c3441 --- /dev/null +++ b/tests/tmp_tests/Backend/search.c @@ -0,0 +1,32 @@ +#define SIZE 5 +#define NB_FINDS 2 + +// Searching for the values below +signed char to_find[NB_FINDS] = {57, -1}; + +signed char search (signed char tab[], signed char size, signed char to_find) { + signed char low = 0, high = size-1, i; + + while (high >= low) { + i = (high+low) / 2; + if (tab[i] == to_find) return i; + if (tab[i] > to_find) high = i-1; + if (tab[i] < to_find) low = i+1; + } + + return (-1); +} + +signed char main () { + signed char tab[SIZE] = {-30, -18, 23, 57, 120}; + signed char res; + signed char i; + + for (i = 0 ; i < NB_FINDS ; i++) { + print_schar(search(tab, SIZE, to_find[i])); + space(); + } + newline(); + + return 0; +} diff --git a/tests/tmp_tests/Backend/struct_and_ptr_and_fact.c b/tests/tmp_tests/Backend/struct_and_ptr_and_fact.c new file mode 100644 index 0000000..7efde17 --- /dev/null +++ b/tests/tmp_tests/Backend/struct_and_ptr_and_fact.c @@ -0,0 +1,40 @@ + +typedef struct foo { + signed char dummy; + signed char x; +} foo; + +foo *p; +foo save; + +signed char fact1 (signed char x) { + if (x <= 1) return 1; + return (x * fact1(x-1)); +} + +signed char fact2 (signed char x) { + signed char i, res = 1; + + for (i = 1 ; i <= x ; i++) + res *= i; + + return res; +} + +signed char main () { + foo x, y; + foo* q[3]; + + x.x = 5; + + q[1] = &x; + p = &x; + save = x; + x.x = fact1(save.x); + y.x = fact2(save.x); + + print_schar((*(q[1])).x == y.x); + newline(); + + return 0; +} diff --git a/tests/tmp_tests/Backend/struct_and_ptr_and_fact_u.c b/tests/tmp_tests/Backend/struct_and_ptr_and_fact_u.c new file mode 100644 index 0000000..50e77fc --- /dev/null +++ b/tests/tmp_tests/Backend/struct_and_ptr_and_fact_u.c @@ -0,0 +1,40 @@ + +typedef struct foo { + unsigned char dummy; + unsigned char x; +} foo; + +foo *p; +foo save; + +unsigned char fact1 (unsigned char x) { + if (x <= 1) return 1; + return (x * fact1(x-1)); +} + +unsigned char fact2 (unsigned char x) { + unsigned char i, res = 1; + + for (i = 1 ; i <= x ; i++) + res *= i; + + return res; +} + +unsigned char main () { + foo x, y; + foo* q[3]; + + x.x = 5; + + q[1] = &x; + p = &x; + save = x; + x.x = fact1(save.x); + y.x = fact2(save.x); + + print_uchar((*(q[1])).x == y.x); + newline(); + + return 0; +} diff --git a/tests/tmp_tests/Frontend/array_copy.RTLabs b/tests/tmp_tests/Frontend/array_copy.RTLabs new file mode 100644 index 0000000..9d2cf5c --- /dev/null +++ b/tests/tmp_tests/Frontend/array_copy.RTLabs @@ -0,0 +1,201 @@ +program: + + + globals: + "tab1" { int32[5] } + + + extern "print_sint": int4s -> void + + + extern "newline": void + + + extern "space": void + + + "copy"(ptr %0, ptr %1, int4s %2) + locals: int4s %3, int4s %5, ptr %6, int4s %7, ptr %8, int4s %9, int4s %10, int4s %11, int4s %12, int4s %13, int4s %14, int1s %15 + result: void %4 + stacksize: struct {} + entry: copy19 + exit: copy0 + + copy9: imm %10, imm_sizeof (int32) --> copy8 + copy8: mul %9, %3, %10 --> copy7 + copy7: addp %8, %1, %9 --> copy6 + copy6: load int32, %8, %7 --> copy5 + copy5: store int32, %6, %7 --> copy4 + copy4: imm %5, imm_int 1 --> copy3 + copy3: add %3, %3, %5 --> copy2 + copy2: --> copy16 + copy19: emit _cost2 --> copy18 + copy18: imm %15, imm_int 0 --> copy17 + copy17: int1sto4 %3, %15 --> copy2 + copy16: lt %14, %3, %2 --> copy15 + copy15: notbool %13, %14 --> copy14 + copy14: %13? --> copy1, copy13 + copy13: emit _cost0 --> copy12 + copy12: imm %12, imm_sizeof (int32) --> copy11 + copy11: mul %11, %3, %12 --> copy10 + copy10: addp %6, %0, %11 --> copy9 + copy1: emit _cost1 --> copy0 + copy0: return + + + "print_tab"(ptr %0, int4s %1) + locals: int4s %2, int1u %4, int4s %5, int1u %6, int4s %7, int1u %8, ptr %9, int4s %10, int4s %11, int4s %12, int4s %13, int1s %14 + result: void %3 + stacksize: struct {} + entry: print_tab18 + exit: print_tab0 + + print_tab9: addp %9, %0, %10 --> print_tab8 + print_tab8: load int32, %9, %7 --> print_tab7 + print_tab7: call "print_sint", [%7], %8: int4s -> void --> print_tab6 + print_tab6: call "space", [], %6: void --> print_tab5 + print_tab5: imm %5, imm_int 1 --> print_tab4 + print_tab4: add %2, %2, %5 --> print_tab3 + print_tab3: --> print_tab15 + print_tab2: emit _cost4 --> print_tab1 + print_tab18: emit _cost5 --> print_tab17 + print_tab17: imm %14, imm_int 0 --> print_tab16 + print_tab16: int1sto4 %2, %14 --> print_tab3 + print_tab15: lt %13, %2, %1 --> print_tab14 + print_tab14: notbool %12, %13 --> print_tab13 + print_tab13: %12? --> print_tab2, print_tab12 + print_tab12: emit _cost3 --> print_tab11 + print_tab11: imm %11, imm_sizeof (int32) --> print_tab10 + print_tab10: mul %10, %2, %11 --> print_tab9 + print_tab1: call "newline", [], %4: void --> print_tab0 + print_tab0: return + + + "main"() + locals: int1s %1, ptr %2, int4s %3, int1u %4, int1s %5, ptr %6, offset %7, ptr %8, int4s %9, int1u %10, int1s %11, ptr %12, offset %13, ptr %14, int4s %15, int1u %16, int1s %17, ptr %18, ptr %19, int4s %20, int1u %21, int1s %22, ptr %23, offset %24, ptr %25, ptr %26, int4s %27, int1u %28, int1s %29, ptr %30, offset %31, ptr %32, int4s %33, int1s %34, ptr %35, int1s %36, int1s %37, int1s %38, ptr %39, offset %40, ptr %41, int4s %42, int1s %43, ptr %44, int1s %45, int1s %46, int1s %47, ptr %48, offset %49, ptr %50, int4s %51, int1s %52, ptr %53, int1s %54, int1s %55, int1s %56, ptr %57, offset %58, ptr %59, int4s %60, int1s %61, ptr %62, int1s %63, int1s %64, int1s %65, ptr %66, offset %67, ptr %68, int4s %69, int1s %70, ptr %71, int1s %72, int1s %73, int1s %74, ptr %75, offset %76, ptr %77, int4u %78, ptr %79, offset %80, offset %81, offset %82, ptr %83, int4u %84, ptr %85, offset %86, offset %87, offset %88, ptr %89, int4u %90, ptr %91, offset %92, offset %93, offset %94, ptr %95, int4u %96, ptr %97, offset %98, offset %99, offset %100, ptr %101, int4u %102, ptr %103, offset %104, offset %105, offset %106 + result: int4s %0 + stacksize: struct {int32[5], int32[5]} + entry: main118 + exit: main0 + + main99: imm %90, imm_int 25 --> main98 + main98: store int32, %89, %90 --> main97 + main97: imm %85, imm_addr "tab1" --> main96 + main96: imm %87, imm_int 0 --> main95 + main95: imm %88, imm_offset { int32[5], 3 } --> main94 + main94: add %86, %87, %88 --> main93 + main93: addp %83, %85, %86 --> main92 + main92: imm %84, imm_int 56 --> main91 + main91: store int32, %83, %84 --> main90 + main90: imm %79, imm_addr "tab1" --> main89 + main9: call "print_tab", [%8, %9], %10: ptr -> int4s -> void --> main8 + main89: imm %81, imm_int 0 --> main88 + main88: imm %82, imm_offset { int32[5], 4 } --> main87 + main87: add %80, %81, %82 --> main86 + main86: addp %77, %79, %80 --> main85 + main85: imm %78, imm_int -32 --> main84 + main84: store int32, %77, %78 --> main83 + main83: emit _cost6 --> main82 + main82: imm %75, imm_addr STACK --> main81 + main81: imm %76, imm_offset { struct {int32[5], int32[5]}, 1 } --> main80 + main80: addp %71, %75, %76 --> main79 + main8: imm %6, imm_addr STACK --> main7 + main79: imm %73, imm_int 0 --> main78 + main78: imm %74, imm_sizeof (int32) --> main77 + main77: mul %72, %73, %74 --> main76 + main76: addp %68, %71, %72 --> main75 + main75: imm %70, imm_int 0 --> main74 + main74: int1sto4 %69, %70 --> main73 + main73: store int32, %68, %69 --> main72 + main72: imm %66, imm_addr STACK --> main71 + main71: imm %67, imm_offset { struct {int32[5], int32[5]}, 1 } --> main70 + main70: addp %62, %66, %67 --> main69 + main7: imm %7, imm_offset { struct {int32[5], int32[5]}, 1 } --> main6 + main69: imm %64, imm_int 1 --> main68 + main68: imm %65, imm_sizeof (int32) --> main67 + main67: mul %63, %64, %65 --> main66 + main66: addp %59, %62, %63 --> main65 + main65: imm %61, imm_int 1 --> main64 + main64: int1sto4 %60, %61 --> main63 + main63: store int32, %59, %60 --> main62 + main62: imm %57, imm_addr STACK --> main61 + main61: imm %58, imm_offset { struct {int32[5], int32[5]}, 1 } --> main60 + main60: addp %53, %57, %58 --> main59 + main6: addp %2, %6, %7 --> main5 + main59: imm %55, imm_int 2 --> main58 + main58: imm %56, imm_sizeof (int32) --> main57 + main57: mul %54, %55, %56 --> main56 + main56: addp %50, %53, %54 --> main55 + main55: imm %52, imm_int 2 --> main54 + main54: int1sto4 %51, %52 --> main53 + main53: store int32, %50, %51 --> main52 + main52: imm %48, imm_addr STACK --> main51 + main51: imm %49, imm_offset { struct {int32[5], int32[5]}, 1 } --> main50 + main50: addp %44, %48, %49 --> main49 + main5: imm %5, imm_int 5 --> main4 + main49: imm %46, imm_int 3 --> main48 + main48: imm %47, imm_sizeof (int32) --> main47 + main47: mul %45, %46, %47 --> main46 + main46: addp %41, %44, %45 --> main45 + main45: imm %43, imm_int 3 --> main44 + main44: int1sto4 %42, %43 --> main43 + main43: store int32, %41, %42 --> main42 + main42: imm %39, imm_addr STACK --> main41 + main41: imm %40, imm_offset { struct {int32[5], int32[5]}, 1 } --> main40 + main40: addp %35, %39, %40 --> main39 + main4: int1sto4 %3, %5 --> main3 + main39: imm %37, imm_int 4 --> main38 + main38: imm %38, imm_sizeof (int32) --> main37 + main37: mul %36, %37, %38 --> main36 + main36: addp %32, %35, %36 --> main35 + main35: imm %34, imm_int 4 --> main34 + main34: int1sto4 %33, %34 --> main33 + main33: store int32, %32, %33 --> main32 + main32: imm %30, imm_addr STACK --> main31 + main31: imm %31, imm_offset { struct {int32[5]}, 0 } --> main30 + main30: addp %25, %30, %31 --> main29 + main3: call "print_tab", [%2, %3], %4: ptr -> int4s -> void --> main2 + main29: imm %26, imm_addr "tab1" --> main28 + main28: imm %29, imm_int 5 --> main27 + main27: int1sto4 %27, %29 --> main26 + main26: call "copy", [%25, %26, %27], %28: ptr -> ptr -> int4s -> void --> main25 + main25: imm %18, imm_addr "tab1" --> main24 + main24: imm %23, imm_addr STACK --> main23 + main23: imm %24, imm_offset { struct {int32[5], int32[5]}, 1 } --> main22 + main22: addp %19, %23, %24 --> main21 + main21: imm %22, imm_int 5 --> main20 + main20: int1sto4 %20, %22 --> main19 + main2: imm %1, imm_int 0 --> main1 + main19: call "copy", [%18, %19, %20], %21: ptr -> ptr -> int4s -> void --> main18 + main18: imm %14, imm_addr "tab1" --> main17 + main17: imm %17, imm_int 5 --> main16 + main16: int1sto4 %15, %17 --> main15 + main15: call "print_tab", [%14, %15], %16: ptr -> int4s -> void --> main14 + main14: imm %12, imm_addr STACK --> main13 + main13: imm %13, imm_offset { struct {int32[5]}, 0 } --> main12 + main12: addp %8, %12, %13 --> main11 + main118: imm %103, imm_addr "tab1" --> main117 + main117: imm %105, imm_int 0 --> main116 + main116: imm %106, imm_offset { int32[5], 0 } --> main115 + main115: add %104, %105, %106 --> main114 + main114: addp %101, %103, %104 --> main113 + main113: imm %102, imm_int 10 --> main112 + main112: store int32, %101, %102 --> main111 + main111: imm %97, imm_addr "tab1" --> main110 + main110: imm %99, imm_int 0 --> main109 + main11: imm %11, imm_int 5 --> main10 + main109: imm %100, imm_offset { int32[5], 1 } --> main108 + main108: add %98, %99, %100 --> main107 + main107: addp %95, %97, %98 --> main106 + main106: imm %96, imm_int -3 --> main105 + main105: store int32, %95, %96 --> main104 + main104: imm %91, imm_addr "tab1" --> main103 + main103: imm %93, imm_int 0 --> main102 + main102: imm %94, imm_offset { int32[5], 2 } --> main101 + main101: add %92, %93, %94 --> main100 + main100: addp %89, %91, %92 --> main99 + main10: int1sto4 %9, %11 --> main9 + main1: int1sto4 %0, %1 --> main0 + main0: return %0 + + diff --git a/tests/tmp_tests/Frontend/array_copy.c b/tests/tmp_tests/Frontend/array_copy.c new file mode 100644 index 0000000..187888e --- /dev/null +++ b/tests/tmp_tests/Frontend/array_copy.c @@ -0,0 +1,35 @@ + +#define SIZE 5 + +int tab1[SIZE] = {10, -3, 25, 56, -32}; + +void copy (int dst[], int src[], int size) { + int i; + + for (i = 0 ; i < size ; i++) + dst[i] = src[i]; +} + +void print_tab (int tab[], int size) { + int i; + + for (i = 0 ; i < size ; i++) { + print_sint(tab[i]); + space(); + } + newline(); +} + +int main () { + int tab2[SIZE]; + int tab3[SIZE] = {0, 1, 2, 3, 4}; + + copy(tab2, tab1, SIZE); + copy(tab1, tab3, SIZE); + + print_tab(tab1, SIZE); + print_tab(tab2, SIZE); + print_tab(tab3, SIZE); + + return 0; +} diff --git a/tests/tmp_tests/Frontend/bubble_sort.RTLabs b/tests/tmp_tests/Frontend/bubble_sort.RTLabs new file mode 100644 index 0000000..9cc571c --- /dev/null +++ b/tests/tmp_tests/Frontend/bubble_sort.RTLabs @@ -0,0 +1,218 @@ +program: + + + globals: + + + extern "print_sint": int4s -> void + + + extern "newline": void + + + extern "space": void + + + "min"(ptr %0, int4s %1, int4s %2) + locals: int4s %3, int4s %4, int4s %5, int4s %7, ptr %8, int4s %9, int4s %10, int4s %11, int4s %12, ptr %13, int4s %14, int4s %15, int4s %16, int4s %17, int4s %18, ptr %19, int4s %20, int4s %21, int1s %22, int4s %23, int4s %24 + result: int4s %6 + stacksize: struct {} + entry: min37 + exit: min0 + + min9: mul %9, %5, %10 --> min8 + min8: addp %8, %0, %9 --> min7 + min7: load int32, %8, %4 --> min5 + min6: emit _cost1 --> min5 + min5: imm %7, imm_int 1 --> min4 + min4: add %3, %3, %7 --> min3 + min37: emit _cost6 --> min36 + min36: imm %24, imm_int 0 --> min35 + min35: eq %23, %1, %24 --> min34 + min34: %23? --> min33, min30 + min33: emit _cost4 --> min32 + min32: imm %22, imm_int 0 --> min31 + min31: int1sto4 %6, %22 --> min0 + min30: emit _cost5 --> min29 + min3: --> min22 + min29: id %5, %2 --> min28 + min28: imm %21, imm_sizeof (int32) --> min27 + min27: mul %20, %5, %21 --> min26 + min26: addp %19, %0, %20 --> min25 + min25: load int32, %19, %4 --> min24 + min24: imm %18, imm_int 1 --> min23 + min23: add %3, %2, %18 --> min3 + min22: lt %17, %3, %1 --> min21 + min21: notbool %16, %17 --> min20 + min20: %16? --> min2, min19 + min2: emit _cost3 --> min1 + min19: emit _cost2 --> min18 + min18: imm %15, imm_sizeof (int32) --> min17 + min17: mul %14, %3, %15 --> min16 + min16: addp %13, %0, %14 --> min15 + min15: load int32, %13, %12 --> min14 + min14: lt %11, %12, %4 --> min13 + min13: %11? --> min12, min6 + min12: emit _cost0 --> min11 + min11: id %5, %3 --> min10 + min10: imm %10, imm_sizeof (int32) --> min9 + min1: id %6, %5 --> min0 + min0: return %6 + + + "swap"(ptr %0, int4s %1, int4s %2) + locals: int4s %3, ptr %5, int4s %6, int4s %7, ptr %8, int4s %9, ptr %10, int4s %11, int4s %12, int4s %13, int4s %14, ptr %15, int4s %16, int4s %17 + result: void %4 + stacksize: struct {} + entry: swap17 + exit: swap0 + + swap9: imm %12, imm_sizeof (int32) --> swap8 + swap8: mul %11, %2, %12 --> swap7 + swap7: addp %10, %0, %11 --> swap6 + swap6: load int32, %10, %9 --> swap5 + swap5: store int32, %8, %9 --> swap4 + swap4: imm %7, imm_sizeof (int32) --> swap3 + swap3: mul %6, %2, %7 --> swap2 + swap2: addp %5, %0, %6 --> swap1 + swap17: emit _cost7 --> swap16 + swap16: imm %17, imm_sizeof (int32) --> swap15 + swap15: mul %16, %1, %17 --> swap14 + swap14: addp %15, %0, %16 --> swap13 + swap13: load int32, %15, %3 --> swap12 + swap12: imm %14, imm_sizeof (int32) --> swap11 + swap11: mul %13, %1, %14 --> swap10 + swap10: addp %8, %0, %13 --> swap9 + swap1: store int32, %5, %3 --> swap0 + swap0: return + + + "bubble_sort"(ptr %0, int4s %1) + locals: int4s %2, int4s %3, int4s %4, int4s %6, int1u %7, int4s %8, int4s %9, int1s %10 + result: void %5 + stacksize: struct {} + entry: bubble_sort14 + exit: bubble_sort0 + + bubble_sort9: %8? --> bubble_sort1, bubble_sort8 + bubble_sort8: emit _cost8 --> bubble_sort7 + bubble_sort7: call "min", [%0, %1, %2], %4: ptr -> int4s -> int4s -> int4s --> bubble_sort6 + bubble_sort6: id %3, %4 --> bubble_sort5 + bubble_sort5: call "swap", [%0, %2, %3], %7: ptr -> int4s -> int4s -> void --> bubble_sort4 + bubble_sort4: imm %6, imm_int 1 --> bubble_sort3 + bubble_sort3: add %2, %2, %6 --> bubble_sort2 + bubble_sort2: --> bubble_sort11 + bubble_sort14: emit _cost10 --> bubble_sort13 + bubble_sort13: imm %10, imm_int 0 --> bubble_sort12 + bubble_sort12: int1sto4 %2, %10 --> bubble_sort2 + bubble_sort11: lt %9, %2, %1 --> bubble_sort10 + bubble_sort10: notbool %8, %9 --> bubble_sort9 + bubble_sort1: emit _cost9 --> bubble_sort0 + bubble_sort0: return + + + "print_tab"(ptr %0, int4s %1) + locals: int4s %2, int1u %4, int4s %5, int1u %6, int4s %7, int1u %8, ptr %9, int4s %10, int4s %11, int4s %12, int4s %13, int1s %14 + result: void %3 + stacksize: struct {} + entry: print_tab18 + exit: print_tab0 + + print_tab9: addp %9, %0, %10 --> print_tab8 + print_tab8: load int32, %9, %7 --> print_tab7 + print_tab7: call "print_sint", [%7], %8: int4s -> void --> print_tab6 + print_tab6: call "space", [], %6: void --> print_tab5 + print_tab5: imm %5, imm_int 1 --> print_tab4 + print_tab4: add %2, %2, %5 --> print_tab3 + print_tab3: --> print_tab15 + print_tab2: emit _cost12 --> print_tab1 + print_tab18: emit _cost13 --> print_tab17 + print_tab17: imm %14, imm_int 0 --> print_tab16 + print_tab16: int1sto4 %2, %14 --> print_tab3 + print_tab15: lt %13, %2, %1 --> print_tab14 + print_tab14: notbool %12, %13 --> print_tab13 + print_tab13: %12? --> print_tab2, print_tab12 + print_tab12: emit _cost11 --> print_tab11 + print_tab11: imm %11, imm_sizeof (int32) --> print_tab10 + print_tab10: mul %10, %2, %11 --> print_tab9 + print_tab1: call "newline", [], %4: void --> print_tab0 + print_tab0: return + + + "main"() + locals: int1s %1, ptr %2, int4s %3, int1u %4, int1s %5, ptr %6, offset %7, ptr %8, int4s %9, int1u %10, int1s %11, ptr %12, offset %13, ptr %14, int4s %15, int1s %16, ptr %17, int1s %18, int1s %19, int1s %20, ptr %21, offset %22, ptr %23, int4s %24, int1s %25, int1s %26, ptr %27, int1s %28, int1s %29, int1s %30, ptr %31, offset %32, ptr %33, int4s %34, int1s %35, ptr %36, int1s %37, int1s %38, int1s %39, ptr %40, offset %41, ptr %42, int4s %43, int1s %44, int1s %45, ptr %46, int1s %47, int1s %48, int1s %49, ptr %50, offset %51, ptr %52, int4s %53, int1s %54, ptr %55, int1s %56, int1s %57, int1s %58, ptr %59, offset %60 + result: int4s %0 + stacksize: struct {int32[5]} + entry: main67 + exit: main0 + + main9: call "bubble_sort", [%8, %9], %10: ptr -> int4s -> void --> main8 + main8: imm %6, imm_addr STACK --> main7 + main7: imm %7, imm_offset { struct {int32[5]}, 0 } --> main6 + main67: emit _cost14 --> main66 + main66: imm %59, imm_addr STACK --> main65 + main65: imm %60, imm_offset { struct {int32[5]}, 0 } --> main64 + main64: addp %55, %59, %60 --> main63 + main63: imm %57, imm_int 0 --> main62 + main62: imm %58, imm_sizeof (int32) --> main61 + main61: mul %56, %57, %58 --> main60 + main60: addp %52, %55, %56 --> main59 + main6: addp %2, %6, %7 --> main5 + main59: imm %54, imm_int 26 --> main58 + main58: int1sto4 %53, %54 --> main57 + main57: store int32, %52, %53 --> main56 + main56: imm %50, imm_addr STACK --> main55 + main55: imm %51, imm_offset { struct {int32[5]}, 0 } --> main54 + main54: addp %46, %50, %51 --> main53 + main53: imm %48, imm_int 1 --> main52 + main52: imm %49, imm_sizeof (int32) --> main51 + main51: mul %47, %48, %49 --> main50 + main50: addp %42, %46, %47 --> main49 + main5: imm %5, imm_int 5 --> main4 + main49: imm %45, imm_int 21 --> main48 + main48: negint %44, %45 --> main47 + main47: int1sto4 %43, %44 --> main46 + main46: store int32, %42, %43 --> main45 + main45: imm %40, imm_addr STACK --> main44 + main44: imm %41, imm_offset { struct {int32[5]}, 0 } --> main43 + main43: addp %36, %40, %41 --> main42 + main42: imm %38, imm_int 2 --> main41 + main41: imm %39, imm_sizeof (int32) --> main40 + main40: mul %37, %38, %39 --> main39 + main4: int1sto4 %3, %5 --> main3 + main39: addp %33, %36, %37 --> main38 + main38: imm %35, imm_int 43 --> main37 + main37: int1sto4 %34, %35 --> main36 + main36: store int32, %33, %34 --> main35 + main35: imm %31, imm_addr STACK --> main34 + main34: imm %32, imm_offset { struct {int32[5]}, 0 } --> main33 + main33: addp %27, %31, %32 --> main32 + main32: imm %29, imm_int 3 --> main31 + main31: imm %30, imm_sizeof (int32) --> main30 + main30: mul %28, %29, %30 --> main29 + main3: call "print_tab", [%2, %3], %4: ptr -> int4s -> void --> main2 + main29: addp %23, %27, %28 --> main28 + main28: imm %26, imm_int 62 --> main27 + main27: negint %25, %26 --> main26 + main26: int1sto4 %24, %25 --> main25 + main25: store int32, %23, %24 --> main24 + main24: imm %21, imm_addr STACK --> main23 + main23: imm %22, imm_offset { struct {int32[5]}, 0 } --> main22 + main22: addp %17, %21, %22 --> main21 + main21: imm %19, imm_int 4 --> main20 + main20: imm %20, imm_sizeof (int32) --> main19 + main2: imm %1, imm_int 0 --> main1 + main19: mul %18, %19, %20 --> main18 + main18: addp %14, %17, %18 --> main17 + main17: imm %16, imm_int 8 --> main16 + main16: int1sto4 %15, %16 --> main15 + main15: store int32, %14, %15 --> main14 + main14: imm %12, imm_addr STACK --> main13 + main13: imm %13, imm_offset { struct {int32[5]}, 0 } --> main12 + main12: addp %8, %12, %13 --> main11 + main11: imm %11, imm_int 5 --> main10 + main10: int1sto4 %9, %11 --> main9 + main1: int1sto4 %0, %1 --> main0 + main0: return %0 + + diff --git a/tests/tmp_tests/Frontend/bubble_sort.c b/tests/tmp_tests/Frontend/bubble_sort.c new file mode 100644 index 0000000..d6a8b1a --- /dev/null +++ b/tests/tmp_tests/Frontend/bubble_sort.c @@ -0,0 +1,52 @@ + +#define SIZE 5 + +int min (int tab[], int size, int n) { + int i, min_index, min; + + if (size == 0) return 0; + + min_index = n; + min = tab[min_index]; + for (i = n+1 ; i < size ; i++) { + if (tab[i] < min) { + min_index = i; + min = tab[min_index]; + } + } + + return min_index; +} + +void swap (int tab[], int i, int j) { + int t; + t = tab[i] ; tab[i] = tab[j] ; tab[j] = t; +} + +void bubble_sort(int tab[], int size) { + int i, min_index; + + for (i = 0 ; i < size ; i++) { + min_index = min(tab, size, i); + swap(tab, i, min_index); + } +} + +void print_tab (int tab[], int size) { + int i; + + for (i = 0 ; i < size ; i++) { + print_sint(tab[i]); + space(); + } + newline(); +} + +int main () { + int tab[SIZE] = {26, -21, 43, -62, 8}; + + bubble_sort(tab, SIZE); + print_tab(tab, SIZE); + + return 0; +} diff --git a/tests/tmp_tests/Frontend/call.c b/tests/tmp_tests/Frontend/call.c new file mode 100644 index 0000000..f595731 --- /dev/null +++ b/tests/tmp_tests/Frontend/call.c @@ -0,0 +1,4 @@ + +int f () { return 0; } + +int main () { return (f()); } diff --git a/tests/tmp_tests/Frontend/quicksort.RTLabs b/tests/tmp_tests/Frontend/quicksort.RTLabs new file mode 100644 index 0000000..5766cfd --- /dev/null +++ b/tests/tmp_tests/Frontend/quicksort.RTLabs @@ -0,0 +1,239 @@ +program: + + + globals: + + + extern "print_sint": int4s -> void + + + extern "newline": void + + + extern "space": void + + + "swap"(ptr %0, int4s %1, int4s %2) + locals: int4s %3, ptr %5, int4s %6, int4s %7, ptr %8, int4s %9, ptr %10, int4s %11, int4s %12, int4s %13, int4s %14, ptr %15, int4s %16, int4s %17 + result: void %4 + stacksize: struct {} + entry: swap17 + exit: swap0 + + swap9: imm %12, imm_sizeof (int32) --> swap8 + swap8: mul %11, %2, %12 --> swap7 + swap7: addp %10, %0, %11 --> swap6 + swap6: load int32, %10, %9 --> swap5 + swap5: store int32, %8, %9 --> swap4 + swap4: imm %7, imm_sizeof (int32) --> swap3 + swap3: mul %6, %2, %7 --> swap2 + swap2: addp %5, %0, %6 --> swap1 + swap17: emit _cost0 --> swap16 + swap16: imm %17, imm_sizeof (int32) --> swap15 + swap15: mul %16, %1, %17 --> swap14 + swap14: addp %15, %0, %16 --> swap13 + swap13: load int32, %15, %3 --> swap12 + swap12: imm %14, imm_sizeof (int32) --> swap11 + swap11: mul %13, %1, %14 --> swap10 + swap10: addp %8, %0, %13 --> swap9 + swap1: store int32, %5, %3 --> swap0 + swap0: return + + + "partition"(ptr %0, int4s %1, int4s %2) + locals: int4s %3, int4s %4, int4s %5, int1u %7, int1u %8, int4s %9, int4s %10, int4s %11, int4s %12, ptr %13, int4s %14, int4s %15, int4s %16, int4s %17, int4s %18, int4s %19, int4s %20, int4s %21, ptr %22, int4s %23, int4s %24, int4s %25, int1s %26, int1s %27, int4s %28, ptr %29, int4s %30, int4s %31 + result: int4s %6 + stacksize: struct {} + entry: partition55 + exit: partition0 + + partition9: ge %9, %3, %4 --> partition8 + partition8: %9? --> partition7, partition6 + partition7: emit _cost1 --> partition3 + partition6: emit _cost2 --> partition5 + partition55: emit _cost13 --> partition54 + partition54: imm %31, imm_sizeof (int32) --> partition53 + partition53: mul %30, %1, %31 --> partition52 + partition52: addp %29, %0, %30 --> partition51 + partition51: load int32, %29, %5 --> partition50 + partition50: id %3, %1 --> partition49 + partition5: call "swap", [%0, %3, %4], %8: ptr -> int4s -> int4s -> void --> partition4 + partition49: imm %28, imm_int 1 --> partition48 + partition48: add %4, %2, %28 --> partition4 + partition47: imm %27, imm_int 1 --> partition46 + partition46: notbool %26, %27 --> partition45 + partition45: %26? --> partition3, partition44 + partition44: emit _cost11 --> partition23 + partition43: le %25, %3, %2 --> partition42 + partition42: %25? --> partition41, partition30 + partition41: emit _cost8 --> partition40 + partition40: imm %24, imm_sizeof (int32) --> partition39 + partition4: --> partition47 + partition39: mul %23, %3, %24 --> partition38 + partition38: addp %22, %0, %23 --> partition37 + partition37: load int32, %22, %21 --> partition36 + partition36: le %20, %21, %5 --> partition35 + partition35: %20? --> partition34, partition32 + partition34: emit _cost6 --> partition33 + partition33: imm %19, imm_int 1 --> partition28 + partition32: emit _cost7 --> partition31 + partition31: imm %19, imm_int 0 --> partition28 + partition30: emit _cost9 --> partition29 + partition3: emit _cost12 --> partition2 + partition29: imm %19, imm_int 0 --> partition28 + partition28: notbool %18, %19 --> partition27 + partition27: %18? --> partition22, partition26 + partition26: emit _cost5 --> partition25 + partition25: imm %17, imm_int 1 --> partition24 + partition24: add %3, %3, %17 --> partition23 + partition23: --> partition43 + partition22: emit _cost10 --> partition11 + partition21: emit _cost3 --> partition20 + partition20: imm %16, imm_int 1 --> partition19 + partition2: call "swap", [%0, %1, %4], %7: ptr -> int4s -> int4s -> void --> partition1 + partition19: sub %4, %4, %16 --> partition18 + partition18: imm %15, imm_sizeof (int32) --> partition17 + partition17: mul %14, %4, %15 --> partition16 + partition16: addp %13, %0, %14 --> partition15 + partition15: load int32, %13, %12 --> partition14 + partition14: gt %11, %12, %5 --> partition13 + partition13: notbool %10, %11 --> partition12 + partition12: %10? --> partition10, partition11 + partition11: --> partition21 + partition10: emit _cost4 --> partition9 + partition1: id %6, %4 --> partition0 + partition0: return %6 + + + "quicksort"(ptr %0, int4s %1, int4s %2) + locals: int4s %3, int4s %4, int4s %6, int1u %7, int4s %8, int4s %9, int1u %10, int4s %11, int4s %12 + result: void %5 + stacksize: struct {} + entry: quicksort13 + exit: quicksort0 + + quicksort9: call "partition", [%0, %1, %2], %4: ptr -> int4s -> int4s -> int4s --> quicksort8 + quicksort8: id %3, %4 --> quicksort7 + quicksort7: imm %11, imm_int 1 --> quicksort6 + quicksort6: sub %9, %3, %11 --> quicksort5 + quicksort5: call "quicksort", [%0, %1, %9], %10: ptr -> int4s -> int4s -> void --> quicksort4 + quicksort4: imm %8, imm_int 1 --> quicksort3 + quicksort3: add %6, %3, %8 --> quicksort2 + quicksort2: call "quicksort", [%0, %6, %2], %7: ptr -> int4s -> int4s -> void --> quicksort0 + quicksort13: emit _cost16 --> quicksort12 + quicksort12: lt %12, %1, %2 --> quicksort11 + quicksort11: %12? --> quicksort10, quicksort1 + quicksort10: emit _cost14 --> quicksort9 + quicksort1: emit _cost15 --> quicksort0 + quicksort0: return + + + "print_tab"(ptr %0, int4s %1) + locals: int4s %2, int1u %4, int4s %5, int1u %6, int4s %7, int1u %8, ptr %9, int4s %10, int4s %11, int4s %12, int4s %13, int1s %14 + result: void %3 + stacksize: struct {} + entry: print_tab18 + exit: print_tab0 + + print_tab9: addp %9, %0, %10 --> print_tab8 + print_tab8: load int32, %9, %7 --> print_tab7 + print_tab7: call "print_sint", [%7], %8: int4s -> void --> print_tab6 + print_tab6: call "space", [], %6: void --> print_tab5 + print_tab5: imm %5, imm_int 1 --> print_tab4 + print_tab4: add %2, %2, %5 --> print_tab3 + print_tab3: --> print_tab15 + print_tab2: emit _cost18 --> print_tab1 + print_tab18: emit _cost19 --> print_tab17 + print_tab17: imm %14, imm_int 0 --> print_tab16 + print_tab16: int1sto4 %2, %14 --> print_tab3 + print_tab15: lt %13, %2, %1 --> print_tab14 + print_tab14: notbool %12, %13 --> print_tab13 + print_tab13: %12? --> print_tab2, print_tab12 + print_tab12: emit _cost17 --> print_tab11 + print_tab11: imm %11, imm_sizeof (int32) --> print_tab10 + print_tab10: mul %10, %2, %11 --> print_tab9 + print_tab1: call "newline", [], %4: void --> print_tab0 + print_tab0: return + + + "main"() + locals: int1s %1, ptr %2, int4s %3, int1u %4, int1s %5, ptr %6, offset %7, ptr %8, int4s %9, int4s %10, int1u %11, int1s %12, int1s %13, int1s %14, int1s %15, ptr %16, offset %17, ptr %18, int4s %19, int1s %20, ptr %21, int1s %22, int1s %23, int1s %24, ptr %25, offset %26, ptr %27, int4s %28, int1s %29, int1s %30, ptr %31, int1s %32, int1s %33, int1s %34, ptr %35, offset %36, ptr %37, int4s %38, int1s %39, ptr %40, int1s %41, int1s %42, int1s %43, ptr %44, offset %45, ptr %46, int4s %47, int1s %48, int1s %49, ptr %50, int1s %51, int1s %52, int1s %53, ptr %54, offset %55, ptr %56, int4s %57, int1s %58, ptr %59, int1s %60, int1s %61, int1s %62, ptr %63, offset %64 + result: int4s %0 + stacksize: struct {int32[5]} + entry: main71 + exit: main0 + + main9: call "quicksort", [%8, %9, %10], %11: ptr -> int4s -> int4s -> void --> main8 + main8: imm %6, imm_addr STACK --> main7 + main71: emit _cost20 --> main70 + main70: imm %63, imm_addr STACK --> main69 + main7: imm %7, imm_offset { struct {int32[5]}, 0 } --> main6 + main69: imm %64, imm_offset { struct {int32[5]}, 0 } --> main68 + main68: addp %59, %63, %64 --> main67 + main67: imm %61, imm_int 0 --> main66 + main66: imm %62, imm_sizeof (int32) --> main65 + main65: mul %60, %61, %62 --> main64 + main64: addp %56, %59, %60 --> main63 + main63: imm %58, imm_int 26 --> main62 + main62: int1sto4 %57, %58 --> main61 + main61: store int32, %56, %57 --> main60 + main60: imm %54, imm_addr STACK --> main59 + main6: addp %2, %6, %7 --> main5 + main59: imm %55, imm_offset { struct {int32[5]}, 0 } --> main58 + main58: addp %50, %54, %55 --> main57 + main57: imm %52, imm_int 1 --> main56 + main56: imm %53, imm_sizeof (int32) --> main55 + main55: mul %51, %52, %53 --> main54 + main54: addp %46, %50, %51 --> main53 + main53: imm %49, imm_int 21 --> main52 + main52: negint %48, %49 --> main51 + main51: int1sto4 %47, %48 --> main50 + main50: store int32, %46, %47 --> main49 + main5: imm %5, imm_int 5 --> main4 + main49: imm %44, imm_addr STACK --> main48 + main48: imm %45, imm_offset { struct {int32[5]}, 0 } --> main47 + main47: addp %40, %44, %45 --> main46 + main46: imm %42, imm_int 2 --> main45 + main45: imm %43, imm_sizeof (int32) --> main44 + main44: mul %41, %42, %43 --> main43 + main43: addp %37, %40, %41 --> main42 + main42: imm %39, imm_int 43 --> main41 + main41: int1sto4 %38, %39 --> main40 + main40: store int32, %37, %38 --> main39 + main4: int1sto4 %3, %5 --> main3 + main39: imm %35, imm_addr STACK --> main38 + main38: imm %36, imm_offset { struct {int32[5]}, 0 } --> main37 + main37: addp %31, %35, %36 --> main36 + main36: imm %33, imm_int 3 --> main35 + main35: imm %34, imm_sizeof (int32) --> main34 + main34: mul %32, %33, %34 --> main33 + main33: addp %27, %31, %32 --> main32 + main32: imm %30, imm_int 62 --> main31 + main31: negint %29, %30 --> main30 + main30: int1sto4 %28, %29 --> main29 + main3: call "print_tab", [%2, %3], %4: ptr -> int4s -> void --> main2 + main29: store int32, %27, %28 --> main28 + main28: imm %25, imm_addr STACK --> main27 + main27: imm %26, imm_offset { struct {int32[5]}, 0 } --> main26 + main26: addp %21, %25, %26 --> main25 + main25: imm %23, imm_int 4 --> main24 + main24: imm %24, imm_sizeof (int32) --> main23 + main23: mul %22, %23, %24 --> main22 + main22: addp %18, %21, %22 --> main21 + main21: imm %20, imm_int 8 --> main20 + main20: int1sto4 %19, %20 --> main19 + main2: imm %1, imm_int 0 --> main1 + main19: store int32, %18, %19 --> main18 + main18: imm %16, imm_addr STACK --> main17 + main17: imm %17, imm_offset { struct {int32[5]}, 0 } --> main16 + main16: addp %8, %16, %17 --> main15 + main15: imm %15, imm_int 0 --> main14 + main14: int1sto4 %9, %15 --> main13 + main13: imm %13, imm_int 5 --> main12 + main12: imm %14, imm_int 1 --> main11 + main11: sub %12, %13, %14 --> main10 + main10: int1sto4 %10, %12 --> main9 + main1: int1sto4 %0, %1 --> main0 + main0: return %0 + + diff --git a/tests/tmp_tests/Frontend/quicksort.c b/tests/tmp_tests/Frontend/quicksort.c new file mode 100644 index 0000000..bbf6eea --- /dev/null +++ b/tests/tmp_tests/Frontend/quicksort.c @@ -0,0 +1,61 @@ + +#define SIZE 5 + +void swap (int a[], int i, int j) { + int t; + t = a[i] ; a[i] = a[j] ; a[j] = t; +} + +int partition (int a[], int l, int r) { + int pivot, i, j; + pivot = a[l]; + i = l; j = r+1; + + while (1) { + while (i <= r && a[i] <= pivot) ++i; + do --j; while (a[j] > pivot); + if (i >= j) break; + swap(a, i, j); + } + swap(a, l, j); + return j; +} + +void quicksort (int a[], int l, int r) { + int j; + + if (l < r) { + j = partition(a, l, r); + quicksort(a, l, j-1); + quicksort(a, j+1, r); + } +} + +void print_tab (int tab[], int size) { + int i; + + for (i = 0 ; i < size ; i++) { + print_sint(tab[i]); + space(); + } + newline(); +} + +int is_sorted (int tab[], int size) { + int i, res = 1; + + for (i = 0 ; i < size-1 ; i++) res = res && (tab[i] <= tab[i+1]); + + return res; +} + +int main () { + int tab[SIZE] = {26, -21, 43, -62, 8}; + + quicksort(tab, 0, SIZE-1); + print_tab(tab, SIZE); + print_sint(is_sorted(tab, SIZE)); + newline(); + + return (is_sorted(tab, SIZE)); +} diff --git a/tests/tmp_tests/Frontend/search.RTLabs b/tests/tmp_tests/Frontend/search.RTLabs new file mode 100644 index 0000000..3b0c033 --- /dev/null +++ b/tests/tmp_tests/Frontend/search.RTLabs @@ -0,0 +1,177 @@ +program: + + + globals: + "to_find" { int32[2] } + + + extern "print_sint": int4s -> void + + + extern "newline": void + + + extern "space": void + + + "search"(ptr %0, int4s %1, int4s %2) + locals: int4s %3, int4s %4, int4s %5, int1s %7, int1s %8, int4s %9, int4s %10, int4s %11, ptr %12, int4s %13, int4s %14, int4s %15, int4s %16, int4s %17, ptr %18, int4s %19, int4s %20, int4s %21, int4s %22, ptr %23, int4s %24, int4s %25, int4s %26, int4s %27, int4s %28, int4s %29, int4s %30, int1s %31 + result: int4s %6 + stacksize: struct {} + entry: search46 + exit: search0 + + search9: emit _cost0 --> search8 + search8: imm %9, imm_int 1 --> search7 + search7: add %5, %4, %9 --> search5 + search6: emit _cost1 --> search5 + search5: --> search41 + search46: emit _cost8 --> search45 + search45: imm %31, imm_int 0 --> search44 + search44: int1sto4 %5, %31 --> search43 + search43: imm %30, imm_int 1 --> search42 + search42: sub %3, %1, %30 --> search5 + search41: ge %29, %3, %5 --> search40 + search40: notbool %28, %29 --> search39 + search4: emit _cost7 --> search3 + search39: %28? --> search4, search38 + search38: emit _cost6 --> search37 + search37: add %26, %3, %5 --> search36 + search36: imm %27, imm_int 2 --> search35 + search35: div %4, %26, %27 --> search34 + search34: imm %25, imm_sizeof (int32) --> search33 + search33: mul %24, %4, %25 --> search32 + search32: addp %23, %0, %24 --> search31 + search31: load int32, %23, %22 --> search30 + search30: eq %21, %22, %2 --> search29 + search3: imm %8, imm_int 1 --> search2 + search29: %21? --> search28, search26 + search28: emit _cost4 --> search27 + search27: id %6, %4 --> search0 + search26: emit _cost5 --> search25 + search25: imm %20, imm_sizeof (int32) --> search24 + search24: mul %19, %4, %20 --> search23 + search23: addp %18, %0, %19 --> search22 + search22: load int32, %18, %17 --> search21 + search21: gt %16, %17, %2 --> search20 + search20: %16? --> search19, search16 + search2: negint %7, %8 --> search1 + search19: emit _cost2 --> search18 + search18: imm %15, imm_int 1 --> search17 + search17: sub %3, %4, %15 --> search15 + search16: emit _cost3 --> search15 + search15: imm %14, imm_sizeof (int32) --> search14 + search14: mul %13, %4, %14 --> search13 + search13: addp %12, %0, %13 --> search12 + search12: load int32, %12, %11 --> search11 + search11: lt %10, %11, %2 --> search10 + search10: %10? --> search9, search6 + search1: int1sto4 %6, %7 --> search0 + search0: return %6 + + + "main"() + locals: int4s %0, int4s %1, int4s %2, int4s %3, int1s %5, int1u %6, int4s %7, int1u %8, int1u %9, ptr %10, int4s %11, int4s %12, ptr %13, ptr %14, int4s %15, int4s %16, int1s %17, ptr %18, offset %19, int4s %20, int4s %21, int4s %22, int1s %23, ptr %24, int4s %25, int1s %26, ptr %27, int1s %28, int1s %29, int1s %30, ptr %31, offset %32, ptr %33, int4s %34, int1s %35, ptr %36, int1s %37, int1s %38, int1s %39, ptr %40, offset %41, ptr %42, int4s %43, int1s %44, ptr %45, int1s %46, int1s %47, int1s %48, ptr %49, offset %50, ptr %51, int4s %52, int1s %53, int1s %54, ptr %55, int1s %56, int1s %57, int1s %58, ptr %59, offset %60, ptr %61, int4s %62, int1s %63, int1s %64, ptr %65, int1s %66, int1s %67, int1s %68, ptr %69, offset %70, ptr %71, int4u %72, ptr %73, offset %74, offset %75, offset %76, ptr %77, int4u %78, ptr %79, offset %80, offset %81, offset %82 + result: int4s %4 + stacksize: struct {int32[5]} + entry: main95 + exit: main0 + + main95: imm %79, imm_addr "to_find" --> main94 + main94: imm %81, imm_int 0 --> main93 + main93: imm %82, imm_offset { int32[2], 0 } --> main92 + main92: add %80, %81, %82 --> main91 + main91: addp %77, %79, %80 --> main90 + main90: imm %78, imm_int 57 --> main89 + main9: call "print_sint", [%2], %9: int4s -> void --> main8 + main89: store int32, %77, %78 --> main88 + main88: imm %73, imm_addr "to_find" --> main87 + main87: imm %75, imm_int 0 --> main86 + main86: imm %76, imm_offset { int32[2], 1 } --> main85 + main85: add %74, %75, %76 --> main84 + main84: addp %71, %73, %74 --> main83 + main83: imm %72, imm_int -1 --> main82 + main82: store int32, %71, %72 --> main81 + main81: emit _cost11 --> main80 + main80: imm %69, imm_addr STACK --> main79 + main8: call "space", [], %8: void --> main7 + main79: imm %70, imm_offset { struct {int32[5]}, 0 } --> main78 + main78: addp %65, %69, %70 --> main77 + main77: imm %67, imm_int 0 --> main76 + main76: imm %68, imm_sizeof (int32) --> main75 + main75: mul %66, %67, %68 --> main74 + main74: addp %61, %65, %66 --> main73 + main73: imm %64, imm_int 30 --> main72 + main72: negint %63, %64 --> main71 + main71: int1sto4 %62, %63 --> main70 + main70: store int32, %61, %62 --> main69 + main7: imm %7, imm_int 1 --> main6 + main69: imm %59, imm_addr STACK --> main68 + main68: imm %60, imm_offset { struct {int32[5]}, 0 } --> main67 + main67: addp %55, %59, %60 --> main66 + main66: imm %57, imm_int 1 --> main65 + main65: imm %58, imm_sizeof (int32) --> main64 + main64: mul %56, %57, %58 --> main63 + main63: addp %51, %55, %56 --> main62 + main62: imm %54, imm_int 18 --> main61 + main61: negint %53, %54 --> main60 + main60: int1sto4 %52, %53 --> main59 + main6: add %0, %0, %7 --> main5 + main59: store int32, %51, %52 --> main58 + main58: imm %49, imm_addr STACK --> main57 + main57: imm %50, imm_offset { struct {int32[5]}, 0 } --> main56 + main56: addp %45, %49, %50 --> main55 + main55: imm %47, imm_int 2 --> main54 + main54: imm %48, imm_sizeof (int32) --> main53 + main53: mul %46, %47, %48 --> main52 + main52: addp %42, %45, %46 --> main51 + main51: imm %44, imm_int 23 --> main50 + main50: int1sto4 %43, %44 --> main49 + main5: --> main26 + main49: store int32, %42, %43 --> main48 + main48: imm %40, imm_addr STACK --> main47 + main47: imm %41, imm_offset { struct {int32[5]}, 0 } --> main46 + main46: addp %36, %40, %41 --> main45 + main45: imm %38, imm_int 3 --> main44 + main44: imm %39, imm_sizeof (int32) --> main43 + main43: mul %37, %38, %39 --> main42 + main42: addp %33, %36, %37 --> main41 + main41: imm %35, imm_int 57 --> main40 + main40: int1sto4 %34, %35 --> main39 + main4: emit _cost10 --> main3 + main39: store int32, %33, %34 --> main38 + main38: imm %31, imm_addr STACK --> main37 + main37: imm %32, imm_offset { struct {int32[5]}, 0 } --> main36 + main36: addp %27, %31, %32 --> main35 + main35: imm %29, imm_int 4 --> main34 + main34: imm %30, imm_sizeof (int32) --> main33 + main33: mul %28, %29, %30 --> main32 + main32: addp %24, %27, %28 --> main31 + main31: imm %26, imm_int 120 --> main30 + main30: int1sto4 %25, %26 --> main29 + main3: call "newline", [], %6: void --> main2 + main29: store int32, %24, %25 --> main28 + main28: imm %23, imm_int 0 --> main27 + main27: int1sto4 %0, %23 --> main5 + main26: imm %22, imm_int 2 --> main25 + main25: lt %21, %0, %22 --> main24 + main24: notbool %20, %21 --> main23 + main23: %20? --> main4, main22 + main22: emit _cost9 --> main21 + main21: imm %18, imm_addr STACK --> main20 + main20: imm %19, imm_offset { struct {int32[5]}, 0 } --> main19 + main2: imm %5, imm_int 0 --> main1 + main19: addp %10, %18, %19 --> main18 + main18: imm %17, imm_int 5 --> main17 + main17: int1sto4 %11, %17 --> main16 + main16: imm %14, imm_addr "to_find" --> main15 + main15: imm %16, imm_sizeof (int32) --> main14 + main14: mul %15, %0, %16 --> main13 + main13: addp %13, %14, %15 --> main12 + main12: load int32, %13, %12 --> main11 + main11: call "search", [%10, %11, %12], %3: ptr -> int4s -> int4s -> int4s --> main10 + main10: id %2, %3 --> main9 + main1: int1sto4 %4, %5 --> main0 + main0: return %4 + + diff --git a/tests/tmp_tests/Frontend/search.c b/tests/tmp_tests/Frontend/search.c new file mode 100644 index 0000000..f671546 --- /dev/null +++ b/tests/tmp_tests/Frontend/search.c @@ -0,0 +1,32 @@ +#define SIZE 5 +#define NB_FINDS 2 + +// Searching for the values below +int to_find[NB_FINDS] = {57, -1}; + +int search (int tab[], int size, int to_find) { + int low = 0, high = size-1, i; + + while (high >= low) { + i = (high+low) / 2; + if (tab[i] == to_find) return i; + if (tab[i] > to_find) high = i-1; + if (tab[i] < to_find) low = i+1; + } + + return (-1); +} + +int main () { + int tab[SIZE] = {-30, -18, 23, 57, 120}; + int res; + int i; + + for (i = 0 ; i < NB_FINDS ; i++) { + print_sint(search(tab, SIZE, to_find[i])); + space(); + } + newline(); + + return 0; +} diff --git a/tests/tmp_tests/Frontend/struct_and_ptr_and_fact.RTLabs b/tests/tmp_tests/Frontend/struct_and_ptr_and_fact.RTLabs new file mode 100644 index 0000000..c2ce22c --- /dev/null +++ b/tests/tmp_tests/Frontend/struct_and_ptr_and_fact.RTLabs @@ -0,0 +1,163 @@ +program: + + + globals: + "p" { ptr } + "save" { struct {int32, int32} } + + + extern "print_sint": int4s -> void + + + extern "newline": void + + + "fact1"(int4s %0) + locals: int4s %1, int4s %2, int4s %4, int4s %5, int1s %6, int4s %7, int4s %8 + result: int4s %3 + stacksize: struct {} + entry: fact113 + exit: fact10 + + fact19: emit _cost0 --> fact18 + fact18: imm %6, imm_int 1 --> fact17 + fact17: int1sto4 %3, %6 --> fact10 + fact16: emit _cost1 --> fact15 + fact15: imm %5, imm_int 1 --> fact14 + fact14: sub %4, %0, %5 --> fact13 + fact13: call "fact1", [%4], %2: int4s -> int4s --> fact12 + fact12: id %1, %2 --> fact11 + fact113: emit _cost2 --> fact112 + fact112: imm %8, imm_int 1 --> fact111 + fact111: le %7, %0, %8 --> fact110 + fact110: %7? --> fact19, fact16 + fact11: mul %3, %0, %1 --> fact10 + fact10: return %3 + + + "fact2"(int4s %0) + locals: int4s %1, int4s %2, int4s %4, int4s %5, int4s %6, int1s %7, int1s %8 + result: int4s %3 + stacksize: struct {} + entry: fact215 + exit: fact20 + + fact29: notbool %5, %6 --> fact28 + fact28: %5? --> fact22, fact27 + fact27: emit _cost3 --> fact26 + fact26: mul %2, %2, %1 --> fact25 + fact25: imm %4, imm_int 1 --> fact24 + fact24: add %1, %1, %4 --> fact23 + fact23: --> fact210 + fact22: emit _cost4 --> fact21 + fact215: emit _cost5 --> fact214 + fact214: imm %8, imm_int 1 --> fact213 + fact213: int1sto4 %2, %8 --> fact212 + fact212: imm %7, imm_int 1 --> fact211 + fact211: int1sto4 %1, %7 --> fact23 + fact210: le %6, %1, %0 --> fact29 + fact21: id %3, %2 --> fact20 + fact20: return %3 + + + "main"() + locals: int4s %0, int4s %1, int4s %2, int4s %3, int1s %5, int1u %6, int4s %7, int1u %8, int4s %9, int4s %10, ptr %11, ptr %12, offset %13, ptr %14, offset %15, ptr %16, ptr %17, offset %18, ptr %19, ptr %20, int1s %21, int1s %22, int1s %23, ptr %24, offset %25, ptr %26, ptr %27, offset %28, ptr %29, offset %30, int4s %31, ptr %32, ptr %33, offset %34, ptr %35, ptr %36, offset %37, ptr %38, offset %39, int4s %40, ptr %41, ptr %42, offset %43, ptr %44, int4s %45, ptr %46, ptr %47, offset %48, ptr %49, offset %50, ptr %51, offset %52, ptr %53, int4s %54, ptr %55, ptr %56, offset %57, ptr %58, offset %59, ptr %60, offset %61, ptr %62, ptr %63, ptr %64, offset %65, ptr %66, ptr %67, ptr %68, offset %69, ptr %70, int1s %71, int1s %72, int1s %73, ptr %74, offset %75, ptr %76, int4s %77, int1s %78, ptr %79, offset %80, ptr %81, offset %82 + result: int4s %4 + stacksize: struct {struct {int32, int32}, struct {int32, int32}, ptr[3]} + entry: main91 + exit: main0 + + main91: emit _cost6 --> main90 + main90: imm %81, imm_addr STACK --> main89 + main9: addp %12, %14, %15 --> main8 + main89: imm %82, imm_offset { struct {struct {int32, int32}}, 0 } --> main88 + main88: addp %79, %81, %82 --> main87 + main87: imm %80, imm_offset { struct {int32, int32}, 1 } --> main86 + main86: addp %76, %79, %80 --> main85 + main85: imm %78, imm_int 5 --> main84 + main84: int1sto4 %77, %78 --> main83 + main83: store int32, %76, %77 --> main82 + main82: imm %74, imm_addr STACK --> main81 + main81: imm %75, imm_offset { struct {struct {int32, int32}, struct {int32, int32}, ptr[3]}, 2 } --> main80 + main80: addp %70, %74, %75 --> main79 + main8: imm %13, imm_offset { struct {int32, int32}, 1 } --> main7 + main79: imm %72, imm_int 1 --> main78 + main78: imm %73, imm_sizeof (ptr) --> main77 + main77: mul %71, %72, %73 --> main76 + main76: addp %66, %70, %71 --> main75 + main75: imm %68, imm_addr STACK --> main74 + main74: imm %69, imm_offset { struct {struct {int32, int32}}, 0 } --> main73 + main73: addp %67, %68, %69 --> main72 + main72: store ptr, %66, %67 --> main71 + main71: imm %62, imm_addr "p" --> main70 + main70: imm %64, imm_addr STACK --> main69 + main7: addp %11, %12, %13 --> main6 + main69: imm %65, imm_offset { struct {struct {int32, int32}}, 0 } --> main68 + main68: addp %63, %64, %65 --> main67 + main67: store ptr, %62, %63 --> main66 + main66: imm %60, imm_addr "save" --> main65 + main65: imm %61, imm_offset { struct {int32, int32}, 0 } --> main64 + main64: addp %53, %60, %61 --> main63 + main63: imm %58, imm_addr STACK --> main62 + main62: imm %59, imm_offset { struct {struct {int32, int32}}, 0 } --> main61 + main61: addp %56, %58, %59 --> main60 + main60: imm %57, imm_offset { struct {int32, int32}, 0 } --> main59 + main6: load int32, %11, %10 --> main5 + main59: addp %55, %56, %57 --> main58 + main58: load int32, %55, %54 --> main57 + main57: store int32, %53, %54 --> main56 + main56: imm %51, imm_addr "save" --> main55 + main55: imm %52, imm_offset { struct {int32, int32}, 1 } --> main54 + main54: addp %44, %51, %52 --> main53 + main53: imm %49, imm_addr STACK --> main52 + main52: imm %50, imm_offset { struct {struct {int32, int32}}, 0 } --> main51 + main51: addp %47, %49, %50 --> main50 + main50: imm %48, imm_offset { struct {int32, int32}, 1 } --> main49 + main5: eq %7, %9, %10 --> main4 + main49: addp %46, %47, %48 --> main48 + main48: load int32, %46, %45 --> main47 + main47: store int32, %44, %45 --> main46 + main46: imm %42, imm_addr "save" --> main45 + main45: imm %43, imm_offset { struct {int32, int32}, 1 } --> main44 + main44: addp %41, %42, %43 --> main43 + main43: load int32, %41, %40 --> main42 + main42: call "fact1", [%40], %2: int4s -> int4s --> main41 + main41: id %1, %2 --> main40 + main40: imm %38, imm_addr STACK --> main39 + main4: call "print_sint", [%7], %8: int4s -> void --> main3 + main39: imm %39, imm_offset { struct {struct {int32, int32}}, 0 } --> main38 + main38: addp %36, %38, %39 --> main37 + main37: imm %37, imm_offset { struct {int32, int32}, 1 } --> main36 + main36: addp %35, %36, %37 --> main35 + main35: store int32, %35, %1 --> main34 + main34: imm %33, imm_addr "save" --> main33 + main33: imm %34, imm_offset { struct {int32, int32}, 1 } --> main32 + main32: addp %32, %33, %34 --> main31 + main31: load int32, %32, %31 --> main30 + main30: call "fact2", [%31], %3: int4s -> int4s --> main29 + main3: call "newline", [], %6: void --> main2 + main29: id %0, %3 --> main28 + main28: imm %29, imm_addr STACK --> main27 + main27: imm %30, imm_offset { struct {struct {int32, int32}, struct {int32, int32}}, 1 } --> main26 + main26: addp %27, %29, %30 --> main25 + main25: imm %28, imm_offset { struct {int32, int32}, 1 } --> main24 + main24: addp %26, %27, %28 --> main23 + main23: store int32, %26, %0 --> main22 + main22: imm %24, imm_addr STACK --> main21 + main21: imm %25, imm_offset { struct {struct {int32, int32}, struct {int32, int32}, ptr[3]}, 2 } --> main20 + main20: addp %20, %24, %25 --> main19 + main2: imm %5, imm_int 0 --> main1 + main19: imm %22, imm_int 1 --> main18 + main18: imm %23, imm_sizeof (ptr) --> main17 + main17: mul %21, %22, %23 --> main16 + main16: addp %19, %20, %21 --> main15 + main15: load ptr, %19, %17 --> main14 + main14: imm %18, imm_offset { struct {int32, int32}, 1 } --> main13 + main13: addp %16, %17, %18 --> main12 + main12: load int32, %16, %9 --> main11 + main11: imm %14, imm_addr STACK --> main10 + main10: imm %15, imm_offset { struct {struct {int32, int32}, struct {int32, int32}}, 1 } --> main9 + main1: int1sto4 %4, %5 --> main0 + main0: return %4 + + diff --git a/tests/tmp_tests/Frontend/struct_and_ptr_and_fact.c b/tests/tmp_tests/Frontend/struct_and_ptr_and_fact.c new file mode 100644 index 0000000..c59410a --- /dev/null +++ b/tests/tmp_tests/Frontend/struct_and_ptr_and_fact.c @@ -0,0 +1,40 @@ + +typedef struct foo { + int dummy; + int x; +} foo; + +foo *p; +foo save; + +int fact1 (int x) { + if (x <= 1) return 1; + return (x * fact1(x-1)); +} + +int fact2 (int x) { + int i, res = 1; + + for (i = 1 ; i <= x ; i++) + res *= i; + + return res; +} + +int main () { + foo x, y; + foo* q[3]; + + x.x = 5; + + q[1] = &x; + p = &x; + save = x; + x.x = fact1(save.x); + y.x = fact2(save.x); + + print_sint((*(q[1])).x == y.x); + newline(); + + return 0; +} diff --git a/web/accweb.html b/web/accweb.html new file mode 100644 index 0000000..4562b54 --- /dev/null +++ b/web/accweb.html @@ -0,0 +1,127 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

+ CerCo : A cost annotating compiler for the C language. +

+ +
+
+
+
+
+ +
+ +
+
+
+ + +
+ + + + diff --git a/web/fetopen.png b/web/fetopen.png new file mode 100644 index 0000000000000000000000000000000000000000..785484a65f7c5635d9e8d215a5bb75cfd6fb9601 GIT binary patch literal 141451 zcmXt9Wl$S!+r(iiXQF7P!{5hAwDI3izKxP+VZd)h#UP=r!HxKQj^cysI}<Ap+D z(@=SN3Sv*^y6-NT_(OtcZusJxZc%GF5K5R1PSN8hZw!LYUF%=MCjKv8vyL}GI<*fW zw+hG?OgJ@#HnV}`F(Rky&sRz;g{xzQC|;h%D^j%h5iy2~8FW{-Pl6L(RJ67e4F`<$*m#|w|i=rs>; z=hp|4J6Z zUbQ=8&p$@DDv>vB)xDry@z$mSp^9-w;hvWcfJRh6mhyRLWXefUKeK z*CH@SglPPZeHM$izExP$cPQ*U4C>DGa}y6(Lc0|n^{1(wST^Db21%YW;2OM zV(@o6ZoJ#@-a-sOXXGfo(a$n%I?WahEVv48E+6~wTlQ)5Ms_k6|)hEVd4m0XKpp74B+Rezm*Oc^H?l?Yo2oBD2#61k0Mdef<(hcq6 zKAgO2dlZ0mdHJ4qpFjK0R(h{ppS~!h2{$|S=RZF#h&eAO_PSp;wu(RxUvmE{JRj$E zFGlBzFW<~8+yonRuWhB#`y$yDRsg|UkHM)d^+Z-MbGF=h@218?LX#DWp z9b0KoLa%^fopx&sO7t}LeN%U2!mM*|VGgVF2wz;XiNciGu3NFIR9hGMt9OFL#1gv# z$wU4jVwOa1g%!KwI&eU~D}~IOw$seNh)k_UVPSRSKz^Su7wl>D4{0Xf+aDcIi$2hc z2NU!4*bh2Cj1_tXf5`m$awEP>%{6dyLb8Q8eqd_&J%-TNtv6&8;htb!QNpCNPju>U z95m3H_K7IuyP!(P`EGh3VZlG?m&|M?_H~+)Q9@}4iLl$y?a~7&spSVW7h@Nc9sFIM zZLc{W6(V4w%dzfO?~=rX^#jz7H4_};-gS5 zanCsjwnF0RmB~}=5crJZWC>BI*A|g}RYb0G_8%3k;;sh9cbx12yH1?zyOl9}$`cD^ zMQ%9^95_b5LRhsGck-kZW1(H$Sua7)%&_S_;-0)AXnQ!LILpszL zHEt$N6=^@K<;+ww*f(>kc&kD*b1R5MQkd`8Nn`++faqk}yX|?i=Yz!+S(l4g>;=Qd z*lftWt#J#6t7$Vz|D4#{a|x1p%)nV3m)M+OlYNB&9KnjOFTG3$J2sL>9f(7IN@QeOvuN7n1ZYL&oi6zIu$zPwJyt}!z3BkLJLgy_m4iP4Z zh@jEe<%1g3z29b6lq~pcRFKNZDw~Sf_r32+ku!&1FkcE7`N9_5)X<{!2)`r0Ol6M0 z82kz}`0iZZKCpadn^4?vf-4V(QkMV8I}tD0dbQ6HedCfJ{|rTHc&>%>xzMY_11^vIo%%yg>H|6$_pex>xD?ZU3j{* zC@71WqQ=`(@8_hi&RaRxMi#hsSEjh=N#YbTR9nDY0lhP|b}aM|gEB=<`-4&6!&cN2 z&sZqA!{@yBWr}n$$bnf5@+j8YI|-*Z-Vji@Bbrk(chq(O^4GcDd5u(hjM1fyqAmr^ zc4RT(d>+2hBCs@OC^yldeguG$8Ks!{gdC(<29dCfn0(j18_-_Tk}3<#GRg=soUHk2EEu>8`HW`>PhUmDR0CE#(PN>(fps6;GH3 zdINV0m*q^QW_V}}I!1jbS6k}X62igN`dqrCnyHmJ(rg+G5^Pzvu#KWpuq*;p$fctA z+a3+Gy*)2k^%M}@p_=Q-DDc%hIAk3=;`s5k=XMVB4I&JCP~U*Hs=a`H%9Y=&Il?c| z74t2$E{j3V7FMT>f^7RaN+t>qsh&WC!v$Q7*?wtj%8WcpYBcrj5sUnamCZxb{8vWM zPSj1;he2LtO&V4bMV1!!VZpJ_;I6W|HnSxpr|v+kA21kf5V9_(ii{wQ`h*Cqt)j+*luJ19|3@w z2mngcRy6KxkmhwRHPYUe^jTy&Yzdyg>5~*~bX^zq%_fYS>HHLrgnmSyM0a(cFkyu? z>k%{pQ4N~Ybz+5PXKUSOOL-{8VuAoD!l_Ywo0>XFBQ>->5-vzqDyPU$$y4E>2A53) z5>c^8JKnqy;H5tRk%3`UK)UnOd&X~lR)RMiL!#Hes22?iOQ7Vi(vqU`0d%>el2W<@ zeJGLjsS8RSUdE_e&cOYBLiCvJPu-;X#chtYVWeu!G-1n(QFPhJ5KqLgQvs~!>F*Ra zS~#veaXjk6afbix+2!^iGA=G|XV9~djQYF6nQpUc(F@1+R_DQ+#zxfj7w`>Y$N8<( z%v_~!A~!p6yvn6rU|;=paAtpp$QLCALx+zHdo@)z%BT&m0oOz!qHD98xi8Nv33M(H z5h9nhz%_pGAMrGLdWF9c1ox7CxR*e71Au%HKal|oz$|~vH(6x?g5`V6)z;ARaN_Wi zO<#|7)5^uiFHd}uc50ra7B`EsJzAFq?Fj_c+esd+S0P0Lsfv*}nLnd1+>@)7vC6hS zbS3o}l3f%t&JbK6?NNgCBJd~&6z%CyIi%4eoPZjI1rhOxb<`1yc)Z6U4YsjA250vu z^=QF+k~F+ym*U#cMdBVpA3|aYASM%U<{Ng(MU&9$@kv)9E|xeVw~tJ!yo&sxT)m-f zU^RmCGh?EGMf3J$G^~L##=;-L4$FuG-d&M;R^)64W zazanztDR`-zh~X&e>eTlxeI6RM@*k&LLju8Z7POl4#)N^)|G&3#QNag+%fx(Q^VYP zg2gko2(xCrCX>dGtKeQ}P0cRy>ebE-$Dg3LkHmL}mmi)NpZ%Bc%vO6|i1iFvI}0}# z4SsVd_pOjT&o~X}iS?eKW0>R_%C?CnO{5?6Z7(?uuy}r`m8aOuk!zoB|1xOe=FzL_dAry^p3>d!g#Awv z5EinkAK@*(TxRic0nvM1AohEQgt>4h&84J8c*zY?8os1JPgPZqZI@muL!5NzChKf0 zJ<6QER0#&qrG1naoT z4lEQ>ZLRd9GK6?A26_9M$&HGb-3T_Mt@wG(bVDR+mF!tgY0$Dc`h%JA z%kTjB0M2a#v9d)#CPL^oDil58nv{#B-d5W;A&azH94)L?uMVf$gojl_Rz@<*#s}a2 zgx{^3GNPW3USs$9fTlWV-zleplI9;#T+r-HMPW1EXWs%biEDC8p(*$8Mqb3PKEgKN zjd*gW^%|Fry1f$b12&x=C)pY=^3MaJ&x3Be|D2w>`uP0Hw`~Q;u8q|Px2Y!ItSxuY zd?-hqzi~HRy-JWRg*dO-0u8bywpjnXg3Z>@46cpwa}kXK)lND}se3nWg8fBK&rhzq zx=jOveW=?$RKso_8iZgKVh@o|R^^TIU*d3FZf7rB+^T<*EmeYDnVal;Wg-ePnBBZViQ!Ja6KQ1I4 zFl4J#oo&#H|IP z_Si@)Mr|GpdU#+@t$M$=(*G=@gTxm`_`rKMTXDtqN=k|Ck6#Qv>t`9SHlBv}H8y1u zqZq_>uq!2SuYY%s9v+rbQC0m|6ee$5P*~_56a?8DOP;vOtEs7~iM#d-#E@QVchUgY zqplb9YsWQM&_3KYp_T;A{#sz)XP*+o zzV`O_iFkFJPKp1c>n$voH)05!J#QuB+CNE68cYd$JuU1XdHvh}vM^r7>tSoWEI=|V zBr{RAQX4qoUzfYBREPR>k8nGM)H?Hqw|pclyB%lY%JSv$^@cjVjMqch=R`eL9EI$J zH$ZUuNr|hAx|Jh>h6uCz%{;G+wO|>BTq_+_9_0SWYSJ#neeZ!!)_3T>g;9$bgl%Fl zF9bDF0ZTeW>cr71O%Nypa1G_QN>!|c`!swy%y9tXRbSt;#fYx9D`s5S`3*n`!A+Yx z5j5&ydfZc`Ws+4W<{Y#kX$6F_P=fplAJe7}WE%NP5kMlna$W-kt%?f`vnEpAbk?hD5x>e)UL<#nbqH) z?G%cTi;>+Klr!y#Nr>*iCEEoMAUKFX?i+$5fjB@9w8Vz? z?n7%qzi&^mwx1v95tdCJ`5nO1ZoP~%?pkSYc#;8OGz^(*;%$i&susmXT=OwpJ1_B5 z18n>m19qu#5T4$BIh^Oov4VD*28SDmVjd&bmYq}-$#Fp=k;B60DY1k8hsIa#bR=1v zbVo;-EW*TVuG~+DSjX&FFzi^c?lhmjQVrkrs`;lx$>s(McNq6DXbh%wCMG1QKQ*}b z-lW?#v3G}`cAq{Rp9%K9!j_4`F|pIDX{uA66gOI)dP>s3w#hTm8!h<<2A)c~HR|Yy z7CkkJq(j(ZVlYDm3n~ah@r`r>DK5yMTT#&}O|9YcXNQTFx?-0>eI)>q=l8h9N-({U zt-}YovaoGRu5%k^BsrLpj&-C8;r%;X*lI-nDbn$>fN9$AJU`>TPck~#0OH@CG|FgN zUdmZa5!*TLb{UJxI9uX5R+Oi?xY6R4)dUWo_wDD($ONN?5fvHo@+i1PL~MD!(J)}6 zA*-k)>#-AKM@!-2QD1KQchLD@jO^@ihYteIMb7&kMbG<#qaSan|DP&>NY?u4FyxyX z+^?U!SfU*`pL2eb^n-TubGdA_AZgg>0=${144MhxD(N@> z4%9#^#SZLw3rLg8pirzPl0-1uWlZ94)n?kPgh*k@kNM(`{c0GS`elu?t8}@)$jihT zSvYw^D|pjWP?E8;wm&<{f6cT^s}Bpl;p(3ed#W!?7TIxVF;a`np`k}w%Ah2u(g6i- zrnKWz?x+??_Q+`fG6gY}2-34O&NLY9{^3AQcx?;0QqoAm$ji?x0$zN;_25ttw;%YE_V(dl` z_WKue?6JCGWQl!popa!}5^8L`{L|(=E*_pM#MRC1huOQ%{SHU_eYmeGD(j0}v!#F7 zUcu`kko5S+>B68F4FtAaQ+F($pn9&EAdBlVb+d4gm!Y5{M&nSOBdJ7IEEY(|ASlwv z(0{ks&IO@RlEqbc_!ZcoIAe&il1VD`;0fRfDZ6A!5acMZ3il!EFuX}YI(Oi#2u={E z3MBn&A^&|o&fXZ6i+#OO^TylDMSG%1e$HM++dr+1<`n-)=$Nu{(6xt)UV*MOGA+jF;7imq)ntJGU0EDhg zhJ9rVJ1i~!+|?{EfvIjn9u4QnKQ7QbSQX$~+5w*=}NF=Z78_<(5)^C?JB%C17U1A1d#9F7=SQ(_=XPB`;PvTHggv?Jr zwbi5{c`R-KlIRt>6lI=^np)z%Pukkr{^u+xQ-olh?vKb2$YIar=-UY3-BGDO1tn#( z5hq!qY+1F9FqLK&1Kftdk6r$*ZM=ZL{~pcJ1zm(w6IA)0f|sjK(&UmwD{5GyhCvI* zEYyJ>jjaZm1V3#wzib6HBA)7_$J8#>lzKkC{3Mos95l-fSyT1@jNJ8*I`}+Lc_Vsr zY%a0)rV<>$MKT2}&PU^}2pI{ZqvEibb~sM28oxhWAp%u+qlDVA`9$eGypJFa-69o0 z!A}`d({V_6qsP+BsisR@juI{`gSL!KRKLVZ!yI8(`tGgis;tM~%A`zRkZCUSK%T0( zP~<8|Q;8V|^tR|Xc{N`wu`=cL=++j}msu1#wD zVrkI5kBizw98kgYNRv7@xD!? zQRo@di?61*k{R*4M<7Bn5FjX)_rOKespX5vP_xr2DACf?QAG<&_9)cwP_G6_Pb*9S zksE-dwke4+_y8X+7fv<(Du?)L4p#imZPy0IDdA!BP=FvOsSe|O;wV$6r#L+-tvs<( zI0=g+6Sw?N$tFZY=pA?jJ(&bIw5WwoL#DsRl`2}CG0xyev^+0#&7yhx-@lBSny;T2 z|D2t{&Cq%OtEhADHL-L5Gym{Tis{RN=^?bKa?~(3a z%gK#;7hkmlnY_7tCefhHL|I-XLn1*a1^2D6!*?$crL-SVZ%p1MG#3t+x(0DTIcYi}k< zmRPcBm3d@tef_oH5Ovh@%3~plt2)B59KsmBB9}FY#MB@Q3S_*8fe>!(X40w}yQa`+eMlx^=ghldFea0#uENe2+wnHj4 zm#pE_U`=2V{Fq;g*FK@KGV6lLMLXh9U(Dlasm-@o=Exik9b^$vWRB1P5JFK{VHQCb zbryX_<_=0F?~M@lkl+TFvT}}~hL3)}l~1s!hP6TtW;M*gzAa@2GmG9^5QJj1)QMv% zyh}Q`Pbkyy(M~TzvK3}UO+`=ymHm*9{y_9N3~ES9?eB2jI>dX~#`~&L8F1UZb)Xw` zperCKxO3XEbtot17k&JX@FL)1kTPpZ5P}*PFg`{d{Nv??)6kHvEy)_kd9z2sq>NqH z{Vd2O_jW5-Z1Y|H_uyAVJSyo`-#$H;*O$PoDF)wy-8{?hd2b~D#TpoT6Mxp$h6j0R z(tJS|zs^hNm><@x*%?;w4p-Pm=a6j0$h#90Hp{Xif!P(X6BuC!qCrCgzJ>^X6N7XS zgFsL68S>hGwEuatXi**$7p4_p8e2`xU(TuKYg*KpPhtki0#Gp%fncYUsEeOZLKcB5 zaj*oKccWd4Nla@1NJs*TawIs~!q;S|pXlpzN&b$=px@2!aEUGlnVXTM_lI4^svZrRfYY# zT~#_-1@8#=0bd%oXU>OSFB@OO7z9U|NVza1w^4kAs}0k+R7e|C?vh_ew|27ozEdZD zDBryglYW?e_la{C-1*i1%$Gf)SV}9LmWWB5fgFckUL#+vj4aa2M=rrkc9-FZR|;kD zKlx$COQEq(Zrb<`lCtgUIUOJ>mr`6#!@;WjES(nYmQ{M!|pTyKAq(L1u_}#VJ8=ZWiy`nZm?fQ7* z1ZNcAy~Gb)Ey0Qy?HwK6ldAs_5gcZ+fI*+0>5pOoxzw+BWBW3b-C{w7&*8>FhqnC_ zn=iOi2Wh3HbfOPObY9-xA5Aahr~`lKZDcF{Zx&!>g$&G{mzS49k6~zN_^DF!@JbN= z7}VEu^xU#%D}~^C7_vQGT%=^1_(gu$^g*uY^E9?huy?DmOmY?rtiG>AB@`b0xgdfi!pw{=02*XDwQpkB^DTgvs_9y8lfiw_hHG^ zvQ5C@749RN36KpV66|ck*b}`QYofh`4CUZcHJFA#-LDuWNWRQ?F z;A=LYZ$VnJIGKE!{8u|vR*2`{A3uaR^kRX=#HP&h_wj9ofX-)2!DiQ={8csj?FE{1 zj=|44^iDS`YiO0*?*{z6kzNn|#Y%9M6Qu1n5->riCVp)$Mjtx|x1P)UN48#W%}j?c zDNLw_TO8j>^J7Y^jhaZmUNIYV#BPYxmf@JGOa6#c-vs3i7*ZoE<{^U=JS4$J#bA04 zT5BW0XlUA{3kq^%t3!`Bsk0g<0%kRX23y<3G@;(~_rMtYx10P)K_h-(Nkat=k$9eW zwa8cV?+rgfl;mc~4L?p!niYs#QNkd&NkKP4Uo{5oB^ z{(2;pM!&PaA2DGSA09691S1M;Da9-li5>;bqAztDNizJ=cBUasNf;d`4GD8xK|T%tZCvCp;2TJ z+04)Kk-QM8I9|XqBRhs(;t0i3q@2%(_Xx=Y6CQ$&_{HlWRa;!h=TiL}ihj&i#dZl! zy|4{_vIJrjpyU(QvBg7KM)k|Em8p(pQgQ*@vf>1m2z{iEK|!g~ew~TpxJY>^_0gy? z5|OlbjDCW=Q=>38b_GU(!u*{?T58Al9dX`gV!KagoXEp=I_Ls95U>oFc_t!@3| zB?_*#@3_Styy1`#0p(I$T)fcfSSxE_V~nH_h4KKTv($AR%AgswL?<;voXcfMEglh9 ze6=k|OsOWNfr;}N>Gd2he_jI5w)$rh-+mD2Y#(zG*uUHx6ZW}4I2VbIP8Jjq8S$Sv zJLA;PdY2FB^gfqrVYl@6kB1Xe-*vrni$T5bf9M<*dyEBznxGQRja-UbML+yq+=MV=3F)YOg%?3?{{cAUe(*`sG!kXy&eGD~NQvoI z{1aL-CU<{3vPnRK1~INBN!d3>)hM5DExcjn=yCYiULo55wsH`%0K`aYmtDz0^gbu1 zPlYZ)<7L24S`*1Ho54R`FSeeMHE6VH!f8>GQxI7!up=Gm?h8K*INhfSyiv)!)%qCk zQDB~`Mjv--AueKAnrE4UC-|+P`D>xOrI_1|Z-EB(dr7D2Fd2EJG)Y#z&2oT!sSL6B z@2H_Hq>Ve9-ezXXz#b@hgd%w@XNX!V>rLp=YLlKmkW8_n4vMCk{fPvNxZK>C}2&dn<^H2l{ zLk(3_i2=uY4LF;PU;nU1u~xF{mI;|VJ15H}iyhAGCF|FdC~wcfLqW)#`p-h;g^Wv| z7;Yk=&`Y0jC9aKaIk5-)wY4?4Zg;yqbD|Ox-Q5}fFVyYWe6WNo@v-jnzNymaXaMM| zisfuNxIiwMD)qp%qDX)bn%COe+AtvVF<0%Q;Vhhea|pZ|N-M7%2ORnLo}TiSK93AX zw_g?QjMdQQr=ju8M1xk+1`FEyS8SxC*m|mlF87TrR3JdsGp6s^z zN9x!W?^9sN8H?=1YzeMb_MwVy9^5vrM|z~;EmW%00rubW8%arWhFb;S*~lc~q6JXW zt)}Bc7bDtvG99rBdFM8&8fZypQCh&-bp!zy&0j~c?iH=x^D^-Q+0!ws^IJrIji4&z zF!>M;n?oGA<(T~cg;x~eP7qChoYau~eUEQc?Zf!rgr16nOg| zqhF(f|Ej(qrh}?=Zo1Wg`3CF>)=&_$uL_!N?vHO|57>3~qb!g74XnXkR%Qw~8?piu#KXbYW z0Oml6Hwk-x?h?@PsAwY0Y;B`QEauA5$Seg!MBqy!eEq{6Sos$*T*{C>5%K&Scyr@@ z7is$BEBbUHCEDZt){^$1yH|v91|6PrKi#>)(tBO^&=eW!blB#3t^NJqUerx7z&jfy zf%&3e~9gm9K*7J3`3MU6CMN(Aa zz4!Twd&SZ#Z@hQdj$QJO*^q^{<)@fEb@>z?8BAr~)1$xjT;fvOR*%nD6D0X4n~!K# z)^-|9fqRx-0K|KrnA*>dP71C00{nt+nF1Bi>Uv5I8dEaMn4|W;#UZw2ice8=8-?+a zxZ7eW*ejPwqek4PkzZ6ZQlD`*R{o?eyy$EdA*6}4#56lOB1P@?A548AJ*`0~jzIW>zKAsrMl z+22cd4{Oyb2USyq55}1nr%GJ7i`}~aB!*9ch}rn_NB{=sE?v`!sei5Ix;#I4{_d*a zVX!7*nW&Rr+1i4IMH)!f5S_qzOk;YU?#q+&}o;*GFKm2zsD$#)P%S&$R zfD6QADv{mk4_o`AiEsa_agII6!J8GE&A_nRP5)%-r)~80zQB(L4x5^UsLPFVBPC+@ z2+~UJ+Gt(qjlQ9^lOB)KV(f{@bh1p#oDY_*bpv`c0pIuk{K*?>84{Av#!^YL&4BWJ z#l9HYE0-p*j7agRE=dlyuKt80@t*vElzz&3x)&YmO!%uCPku8qTTjB|fJ@3dQaC&# z%r2}W|MGozYZi#ksGz%-HQykE(w!ER}w4?%eHHD84R1l zP9N_Ctqu`$*XW?k?e|Z{Yh}-{nEo71zbnF!78 zNGUJ7N6084RqBal$r=)@tDc>21!ua77N!!hpiQ~;h0)W!9kC!?vXJR=54o8BWQVZ` z1@5N>KXkvwZ9UBdW#+yC{@B+{j$dJ_`YQEA(TDV~JCe-sJK@7(1ud~&b<+u1B$fN~ zDj#d(-OeMmi${=(;N<0S#Qo4-T|^E2pxZmLG`46S1`W(O;jt9}zqXSLN)G{ZK5gb` zR0tk0fPLktmu87YLNN>}UecB&5nZjf?xq?tEulLsNzQYM?IBQ41&GMUk@SImm%TU)avDA&tixTO{wH5~i5pCPP7 zO2Psas%RyW>6-RwQ*PGYc3t$GSaa^j8DQ%$k!2a#8^dFnN?TzMBOZEBdPw>P%N#oz zxxIZfVw)^kj$T30sf5UYuo-*bulF!B+xc>mts_SPW@{W8x3_0$v)~>_YY7(v^s!K` zS)v|z)Ka(Xkf8w=l0L#`j8X4KFYa9bam~Qo&(^;W!#hKCbU4A@T@2&hZ{GHe;RWAG z{S}76A!;Q|bp=my;fYFP|BH~m&c(%!6ukXu?7bo1dVqFx!pRseOV|5@`xT@Vg|?i6 zd7^@>S~76-VyCL*wDr>}xLxXmOkLdqMlUZ}P)5w!66=w#?vdj1TzQJx7~+=*^ySlp z2UB@!b@TE$1#=nnBS6? zrAcEL&H7mUCfoGT;^B?tjv+kMwwDNGyNe9yr45m0pW8_oX|v#6wM-%UnZ?kTP&Yr> zcvQnSSFs#ZQ9?HJbMU$CukV#hAaW;)!kZ0D0U*AkHG(;4{Hv)EdZ;R9+FVSE%_87y zy;%#%aLbe)o2WXbsdlIJi1?yUYtnKxioAmL6e$FIaY=}Eyf#j|26!A|?ltgV&({6A zOnqhg0_%^;GKRYS>5f9b<)q2|yQ?eClWqBHNPbaNpg>6VArG(wr&;pq80pC(;2xCi$)Am-v()ZBwK2iU@ z!RuR|twjXw^xket0S2Man1uyR2t;Mqs4J0AtZ=3Y+SJi81-Ch4VlVjce1Ge1^uvFZ zqG+LJCYmM1)Im=8vxBjs%15#gzJis2)w`&Um6a6-4PT47I03PSk?%EzI++qD8FO|& z_QvF%Ud~?~;A|NJZm*sT82=2m;LlYjl+lfI0~>fE>cWeHN2gwsJ&}N`+^v1Xtp{S~ zo=Y@E7SX$HGw%B zgOgRG>S}WIDK8*uT-Zlp$36RZRujh)m<*am7G&7MF!!l3CfH9Xnn#qpCarRn-co35 zBxS_Zhi(N5USxcjNJ-fF-CVu|!&h zV0>mVCX(RhFo|UnG-~)tkX_j55v@$Bi3nSB-iTI5^T$e>H1rRyW?d6~I{pNNs**1t zfHyit;}fo4Vcsb73pWkJP<^#7pRdLRQ}7M!X?W{_uP06>!s-H0-Gz~r=PrLuKk=Ze z&)>k0i>4u2LbPW-c-@OJ1y05*P0%_2>=kFo+G5o5RXG%Y1X`8*;-t+vJ6I&I-)LjU zAU~hSJ2PvaB+u(Q^iVJZ8bn%)}Lbr7hEceU_fXw`t;LRxMF_Wj89Z zfJGTJCIv|V+!?LwCvEz}9dx#?LxQ=tcQ&uG@4qAbTliEhJh0hukyj_AprCk1mE8SX zJ5Crs8REtMSz#o^K(H>g z>Kmw$?Qklm9Ai;3g`UNS>@{QPE=QZ=Zue2U#sNIHELPlc9~r=yIw1B?|C(X?s`^4KG|gNqQ0$jB5{5rIf*BQvRfoK6Q~lT< zh%+y$RD3&bT=s6{*Ee4bbApqrdW!1!pe!aY-#%DGe)v`@{PmbS{2{^g@ta8B zV?CuTi`9=Ia;Sb!J%-SUVwb3M373&VYLy+IYc-7$uYQe!hhhqg!&?XX$F5zgAlxDT ztCogwu!XGyfYzX-8mJ8UBCZsfL0+#>rkK+;c4_3Pznf5AhXZRBobnveQHybmNK@Yv z78JA*H6^H%!bqffr}Cy9%|GKLj$KKfu*|2dUSCD^T`lTfJ;vaoz*{9g%zPT7fsgUG zh&vWF>43ES!4Sh`=f8gkISo+jynR?$>gkwWz{78&wQ=7YyLtskA5d^@_z@{6Yop%W z+%VUAB3sB|M-OvKuK3S*_(gF?oh;*#V!I_JB~_i|^gdJ0)5G@Qo_uFGI>d~3eHX49 z2F>Dml`%j~2K8NwB^&vHJ-6%q-pN1|TU(d_j5#ihclxr=0?aBXC}{cJ=sg8)E~_dM z3twZ;UskvmLA>r^yR=KN4`{`25`%LdymlwUjb<(<#YQs@O}M&phd?0rHy!=c5D2ce zwyT#H+K-l$XN7~u)QNg70jTYl%BNa7<`Yt!Q*wt{^6+NvdWlL@!#!+Ge;fGxpYMcS ziu!%T?||uJw^3hk2_`Nb18902UC^PnI;GBN;@)xE!xQ=rfv?>CmyH1r80snS!$VLl zND6zJc79QQftZp!4S5Qf`rx9`$ zL(j9fl-=Me6c{EFV-TNG__xRvFM~%tV z;D$eZ#0Xxhz|m^N*&V_FLV^2q;biemq}TgGfgd2Y;(TFb>^ z7601WLZ_z=x&ztgy#MCN_XyYwxLSMqGxNd@FH(eqp1!81ziBY;9^Eu4yD{8y>aWrI zh^$`sgGlV{Ni(!K453(9*#+`E5s3ox_aVfq<~Fn;YDO@6vLubiCo=B`ig$Mk0;|7dXEAp@XGDtfT=V zwGs5qX$5O*GG&<`;=hXdI}@`VXBF6sI6RES{KEJDdH+efQbl{^pn|zWxqC_DE%s-y zmZUtfjyq~Lpfgkn*dZ^EW2C=}bRU)VPI7}oJZzLe=ev_;#;MzKK!q@qs?Ayc$6L}p zvAWp!>+|ut8qHD8TH^+Dg^zTZil-p29|k9neYb&|2q0WhOLj@=40#eg7Hfi8nQ!m> zK{Ofb73EL=oCL*ku3bgf5%LOd1AGD|t}T?cRV6ap@=KlkYg{A2&t8lG><3HPt}3c)Q|jEs>T8RRey zTJhBEA3z#|GMA9jcjRpJ73V9t&~=fomv{FJC*U!e&Kzf-puVE{ILAtP*MM&-)T1=5 z*r4~48PZIyWu$GJtXWf8BNhrKi|f6uV>M3qN2TswH#F~)Jm02PFk;U5wf@i&EUmN2 zlR5JDJ5N5De;}jiOq^BRcXJ9o!U6K|*P0Y*bggTn$$( z6Rc}E<_|r>KJUM!@BQ`Yjv)Hl7?gDUNBKW%|9Qp27#Rh^1+iPpdb~ZSi`bqkm7_tD zlS8-C=l38-xwb~csk`g<9mF3WG?rCi<1A`*Tp7$#9TmFc%7Z=%AO)QWh`*N!D0P`tX^%Jw=T52vsrI%yl#KRDe3OT38 zlN|%|@RsTBw)+2hzSO>+b^P)OwcsrU(|9Dg7YNTZwObaw_JvdeIx(!|dW^7MM|6Pr zmFr%NY`X)pxcK6_(Lt?Q1nGRli9G{j40 z9*WNrAy|6V1Op@2!gPPvOnsxbyt2&vEiSauG2T*(lm5j1V}onU_U`kxxuTk&^j(&B zz=`(@SDUff6VjY8OzaNbbYJXMHJI{5LQbK2@EXVW%S!_6tlJ-5>_1zmp|o%FeV9mKT^@FWR^fOK1F}> zyf-!~fgAN*482Peh#*k4|P#mTrcI2B`#-us5E!uU}8a zH`5gBv`v2A6E-&vQf>bX-=tfw6IEkQsMNYK1?$J@voplpX*5gB8!tS)dYw9*WeTcw zn}vU*r7ogiPbn8GeRyZoG0~E@R|yNa+mYhrBKZTksj9&&C+u*hp7W&q2I+`CP*z&- zS6yrP<;cJ9tD>KkFuDZob1#)NX-p5kU1_z2m*en(V));E4n9MUk6Dx#np#`K!9icY zAO3`~B!AEzc(dAm;2nJH-Qn8}KMS5%)YMo62M4otb`1(`0?WQ+T|KLrlm8f4RQdHj zMzo06igmY(@8lrwzCwzG$XaA))4_XA*BzRF@W*X<;@CZ@uu-oaC@qn7fPyV59hQ6y zuGhFG!-(0wfLM4W%@I`7LOVR1W^j~o=yNNi1g3m?hR=2ouYDweshht1%E|m><=mv{ zMM$&{i#AvInsz{fNYd5)Fw#QYsQ=9Z0G;_Eg?(gD)5-%x{XZ71WEJDb+A42^S=o+D zOR)&5r#OhYIk$?~?f8vV zyFabp^sJYE-JnG{Aq6faj0*0K;g-aMWX#L0zngq=R)(#vp{ z_es&uwwZ|pNUN>RO|C6mXo_8Fp4~Sn(23WAZ$KKs{RE*7$ma^WjPLQ~f)$001dP0> zNHmGeTRrijlJ*F=^gB2Fqy0ac&M7?4W{tv)ZQIEg8;xz-wr#tyZ8o-TyGa@+jhm*i z8twN#*ylO;u3YoZJhRri*E~=<@MAj>=}>3Sd3L%zVb9Em=r28noOc@Q$DI)@Jgmkj z6T~S7j-#qxlu4Q9Pjm;XNAl0OkPRk*Fhswcvrt>rvS%ptv~@{WVfb-ZXu8MI3P?)F z|M+%?XIl0oK<1m40?J1cM)@{^E+LG*ByN8Xc?vhoR#oxm2No;OKhHUHt5JL15)E|Z zKG#n!EiEmMIsA35``pOyP*?u1eELE`(=Dkqgd{=)$n_f2&74qLnRhrF?G;6IQqomT zYi4yYlz>_#4QDVwzQE3vi&V3k^5UPMicgDx9XrPL`|qz`raZ0uYr4b%*Go?#RB{%XmvOQ=u6^eVm>DK&XQ%X0 z?SG)!@0$NU5q|$?=h)EJHPg6*v$N=}4yVeQjI}KYoRrQ>Nl-c|4Kb>8a$v)no<7N$ zDZq142ACr64wbAR7y!F@tkTo;cqG%n$6_J0Bw*)Nj;JK4T;_k3jy$5pj_|=u7qyYmrxGnbCiI_w z<0^0R>409xC@W#IONyy)c}9&UqvCG8Kvu(zncWu`7gs_gm}g>|qEXYAmydABC4vDZ zB~8UV33(?5JqCRs8v(&1!L{Ksx^DqdZ$E!O9-{1B1!M&2dqm+Is(0+s+((D@dyRr7 z+2h5iUE~mdNX*+k5f^nzN{^W9CtIb=-Nww>hHUMacyW!#5Gpmlx+~0d+t~O?X~btG zq{3PSdOVcm+dz)TP0A~tLMY_Y6}{NXoN@o)RmQ<6`BKiVj=XH%s<{j$wbFjSOSWVU zFk6(k=yZTnbW=TsD^|aPY1KjO(%Lh#Qwm{OnwQUJrf%KJmZo#`+jZVNsPJ5oT*#oX z@OCJwz|v=K>IQD_A0V2{H((gpaFjDpLo61XHAy>v;;wHGe8K~BF|ZET@D7*a0JGFA zAa>a}&X_|GaH482ZMHIMYV4>F-_>7WW`I-?4vy9j4*|kR#-zn4?x;WJY$p7~P8t(5 zG&KA^Dd8G`JV3Vp_J&8>-(c3J>jI4Rk54F5Yy#iETj`ms_~z3+ZrG1obCfX10hGsA ze*Us*y4`@MolCOZ&BfELqvCdls*8U;q`2H7(6oO@i{eRt3L_GUSWXpP`Eu282CVPD zCY;+xkuxt*Tj?Lw)>-vCS_dFhkpGT5|3E8DqHur7n^0o@I-tAc$+($@8bE%9irz{J z>70Sfz{Z<*=^}F}C0-t9V38!b%*Tx@MwwfG@Un`xi|=?D|8r-<#7dXF8d29L)agdB zB-)yBN+ARlVn7F8T$-SRaMxJ~L+RZ*^ULkgPUL!$AJ_+vp8SJI0NapF0L41-QnZRFH7HW~$RmWwwf6D8ABI4u2eT{YsfbfVVtf_$)NiwWh!e@DLV5YnezT+Z z@>-=*86rQ1jAXC}`&7&}EH`xTJ?t|o=yUJ&m2iz^8f(s9fs-!i?DX%1$N5#C`Dn;3 z1oMw{gUlagx_0{4wd*!!c!{!})hVbP)-y3T&ZWHP=k(>r%=^V;E!wIQL|3IalW7F@ zxmDHuA?o3yXf1HAQpMul+EIuS?J#jlyV-waYS`@qwsjd|q9q5?3d;DU_q1|)iwxay zn4a2Gty)NVDNZGlO#hduOr1Ji!S{2%FU)ObR_=9UFnncO;-=EFeGk4P$H!D_9a-{h zx$&%$NbK|C?5<4C9v%{~p%pe~d^5nj2~4LH;YlnhqA06gBksJ%kC&x&rru53NvDxF zltjMVq7^Uv8oPZvEcuGK@pRK{Gz&H-ArBG-J-Ht@{)i)CZ1sdc(s6= zdw~7j<#2^@CS?mE`lzBWz$~`w+e42GHaa=&xWm8@%(ri7X18FW2TkpzlSo5S_!p?w z?iFaPBfbkIP5OdDW0+=^Fddzr`>5Fp*$sOqf4adU8;&7l5!JY_V3&%^NV#)F?~gnp zY3UhKB(_?#pPql3iVY`~P_FT5IxM&zes4jy!&Ar2WtbuOw+TO%wN1!>bsf zjlTB@!!5$!b1NF~mq7rpcuI8&S}~#!4^d7*rGS*Wg3`%e@iKsal^|t@;MwdCiI=-u zFOlyG*A-DLd520wVZ3WmyZ?)9*t*z&)?IYT_1tg4&sWxh=KqTuHl3msKj#ZNEk|y> zn3mb@%NgtEh|s^n7v_&rBP$EP-!3Ag9)uXkhs>TXFD?P6{+TFRh?jMws=|J8XvLWI zTa7l1yba5r-vlkzQkvMSyZUuo@@OElQlM>Qa|B&IyT(g4@-=^0B%p+C{J#<`In_=FC-;UusFGw{&ou_5a*AlfDy3H+|39b#>vKfR3t{MFf{8SH+SL$taH% zxkpwo*3XcaltAB=9{M-{8^`_U7~jlTo}sSWq;`CUYO{u|Ka8hYnzy>#;!3oBS_$Mh zJ%7jWs)5L8oAbQ(0umDieMd`CNGQU8wg*TZmQf>6W?G zLB0vr&?spe-%Q)$!%sizqFw+9mBeK?OAgf`-&I#2Xnrib$C6T>MtdFDMLEOv?>|L1 z>ir$!zdR`5adkNE{8}me;23z09hltd@#;8$z8;SCy-WV`8Padl*iM0Hj3DqGyKN0q zqQteULc;Is>*FmpsO3fmzreeQp~{i54yF9sx+#_JfY(ub+TsRBxq*NH3U%( zo48--@A60iJD7i%I>4?Fm(qo1Rmn<*2NQ70up7cbs=M~6`=U?3{1TX4#A@O2_VUZlhuKt|JQZT?0yp^m!^eOa;lIO4lfWFv(;y7kt1#(Cf6ih_lF&hAVpLd1mlz~-Rx#z9sP@V# zu~Zi;K%k6t;Z!^qyNo<`Rb)2iC04=4+trIhlb57W*Hl)pgsoc29^Qc7!;+tX66MKh zr(tGy7a*sLN5|7iX3v%fuFPc}lv_)_G8N>@dTa;Eu=?y$JYnQXa7x7d%N^2Ii^C~3 zlz~%jGCkR9xC*td1%dZzbGCEt{3Sb-)}K>1YSYd80M`I8Px2Mf-ax#wE6}yS?zY|J zUKbcAK~#8&b|*8)(0_EC^!|Cs?Rf!rqzo($f(h5;q*MTtNwb*uysEO9c)7)MdiGk-%+NuKVjSyrzl+hU zAVW1W;CH1{r>T8$vqlzPe8uaJh{-1Nm6-{L;dOGX`t52_iSRxCXPQT6>8e+oR>~+s<1$uQIx2|m#{8b>|up9Uso=9BilG@Kj zq|xhg6|J=UwMd;PyYWv#vjZn_???|ZXIVSssS90^2eJye$1Mg0_+%P3<_+j(#Ul1u zrS=)3o(umO<#VXv+HT<1ExLCw^}wPTA)7&jCDOU&{vR5%xLhDAi_Fc4T%dUPY~@7K zzQ#yME-{4t%STG4`Yfx?&)(qlD1V%Kfw!fe>!6@_GN(ermgvau2;J@FTrs^mC2Kgn zTvIPwg)fi;_ZwP2g@R9s1D|S$jQ(w|e>G^hVH=SOS&M9DaJh_JeW8WffcQvXC%KMw z>YHco)lgO1pF;oG`aHfMO2GON!6PCuI&{4;gQ(x(%w-_T&PnmM;s<6^IN%pj*=b~iZ(t0eZSK=x+*Zi=HDp|2J{N`c$Q>6CnzG0@87nTmF` zesQ{}-H>b35X|=)xSkePkL1#bqZikRrIb0#2oEBi`Yyk#=w^nlZr+j2$X@9{gM(&_OU-SBmyE(R&2< z3%8IH59Eme1JnNV20IhZIwqgmcnd^E4bogUS@> zFC7>;3M3}2v)a+`h?nGS;;wK~e1)b9kRLlihe&}RO!6TWQEc?ro?#q90`L}J-r1}i zFW3>PsA$S57u+^Iaz!_`h;2A{8=_OvT?|M=$OJQ03#SB$RGg5?b1z^wh5PXzg@#eX*X?q@6-NRCKEk ze(7X-vCTRFA~yEwHg*==ozU#Isq~0QNYpaE0xsP&SB{h5fN7Jq^V44<(P$vBT_6-R?;kkk z&MVViC9T`ej*W!f~TyI|iw0c3dWj9#Jn`1q{rY;q#!EJspllmPb-5Fs3D zbnGstvV(CIYs zOSokhCtVYxo*C}`4=$;et!=)aCTSv66f0Y==EKWQn$p?G-d23AXyW|&ZJ=T!{>)t$ zfx^n{o@8x;sUJyCZ!HhZ0Rh{H0x9Cfci10Ci32j4e;1)-lJG=un`@2x6qicaBEeEw z7oU^DMG!lXPG3!eCzDD9p$3z9DPc|?zpN;WipF8mN&Sm<;4Mou=dHvF3Cy`UyUp8s zEp52Fe&NiVZ$yK#B-duvv=28~nHh`R`)4#TN?l{a9^cb> za%+#wWDK1pM*?0LcnC%Txj;N*0h~|(=Ck)^*8guv%05QSSAZHmKAk{cI>rJGQo$KB z6|TYm5#t`=dHkEjgwf4O9qX#$R9Uquf2I88N3NoHN((YkQ(>d-QxCE}w|%Q1^frr~ zUY(|UZfmwK$z+^x%Fl`RCk8DfoOQRgi%14$73k1-SXEJ_MxtELumt2|BD`coP`W8E zaZ5$zR_#V@D%SWTaTSswNS9!$8g5kB5`LCT-)G-hc4*aq$YbU9&r2RDe6NS~0Sox= z*&;Mp3Q$|cB-S|PL7H+=d69Z#^(?4WN-h@j8?XDwzcf`-hnS?E&dxzD86Q6vpXsQ? zU9srF{2rL2F(P211*j+{RUgNl-9td)&CAaR#N0y}867-e?C%Z?k#a9K<0no%&6$~T zJGq0L!i^s{*AX#T2bxnZLpX^Ozb(1BxQstMkl&;P{G69?GQFz3?5NYf5~%Tj&rW1@ z_4b~m5xkM9Z3CpcQcz5IxxHTP14JOp4*yoW1y?SBDhxPqYH74R+z=BJFFy(V=MDlx zJ1|5U2EBU(K4=A{YZ>}j5QqjroOa3}$jS(3yzlI&3($w568RLkI6F^%$EQe_0T)|is`t&6pPBJEa5$2oHag};Jpl%of@ zgE^q+NLEtv`%Qm7t~T8GeYOtPoxrXy`-JRvNl>(a!3$iIiOJvTU6Jw-2fc5-wS1nF zi0zd$9z~3wCL7|G^ha7RudBnmr$cJ1h+ga0ulL@;02Kzd%vFCgsss*U#C(rDi$ zIVEvwH3{^srphUCkS}y0Lu3q64x?ty^69)PSC%oznchDq zA#a6^7)-O7^*O>&yXL&-8}V0?Y%W|pq+DFoko8%OelNJ)wBytBhGJ>87MRz$-Ck@* zN}Za|K-%^oa@b0-h&%_ZVzC-E>xv!>>Qp#c+JCz){{F))si&9{VA8#b+85A9HorX{ z^C{S&RBeSTxV((7F)B$TAAIM=#-J`9{!xK#d(Rje0^h$uN4cVdk-x5+ukW-uKh+92 zHz;PNxuRMvcsP|NF}cEWC#?P{>(3vz9T80hm6x1JLI+CfL{xr0uUPoL8?f z*D|OQ-o>(O-;6K%2zP~8EpE}_$U>B1ZJxR9*Mq2>ZVT%YjnF_94Yz;jCW=+YaGBXn z3rt?!oAfzr%9Q(uxRJ}MSkCl+aK(MV_{R%D#2r9EGTxv&=1jRv(sbW^Ut5Kx--4`0 zh0hcJrcT32R!O)c0UMv0un*bpVa(X6Q6j@wkNOZTjcj0kOv*vkg8RWX_X%=M5ezaZ`c&p&(jOGb6{uG_UP=LP+?>WmW&? z==sLEs0`_8-xA#nc#&&qsFX;@6{@@0&I~LIv6En3+&XXQyE9* zaVBlL#cjLo5vdY1Me*h>jva2R-Sty<{sg$n8msN-8nUd}@?9S8vA7if?V@)td1Izc zSX?5*!?ficB2W%1C?A_tYrf&qGD0)Q=vU+qAe~46U0u`tkL)=W`t%X}d|5cmJ4E@s zM(OJ96_=gL=kwy><^A>RS7^sxU@nmE{MTPO>1yb6%=w6d;>^W@9}iqrwbyUn?(_QI z1H!97b!DZa_eA|o{6anZe}2JVkn_&4!rKo3$@PHXeFl)8SXc5C!}m_=>xd1{HhLtC8XqxkzA0*^|yRNQQ@lG z=|`yGL#U`Hnk(qf!&dOcD8ibFIL}9$KI0Xi7=O_#yW>Z4bhhT>_3g?|xR7lB8@2a!NFJ1;mNtv^`$W1c)86|X!*(Df^OCs*b z`r@8o>JjSb6j-`7>R+FTBp=U9x_(~|hx`$?o0OfT*Jj25Qw4=j!ig?DW}Nl7zdRwx zYbu|7Rg}y@B}Gn_;~kNX_eh@lOMKZ@`t$3r?!J?OPm)j8&+CCVB>p5()`5YNzNv{1 z8Qq-Bz>2y?sE|dI#*{M8YA*Cks)A_c&~AoBA87Euv*R`t-_XkuZF!3wc!A?usgR#+ z!F3uu4f%}FJ^irGVzn*>hE`X$G*VWsD2&!DgB~Bd5=xYCSL(+$x+eS&o8xMylAIl zp7^8A2N+#RxB@79FI*R^dFP#w>GoeUGf(vm49c(gxIsvMetvqaONSFmKAx@#s44Xd zPFdYKY{W`uc|{khY57E(sob*%?G7&|+ygS#09d^Rq|N;Wt%8DN1?Y5`NDlgr|NQwn za~yi(J!`FwazrZ;$3m=>q`DulKb2}$AQ&(W&=DR6Egc zvU==_FmUDyW+))Lk_MKGgh|8W#L7iw*!4|FPJ#R9AgZ z#Q)J2z$b7@_+N-~>So2gi9q4MzO3xaIaJo=Eu;=lM+)~T$FGMYRtWly){I>|T|ei; z>Jsh!6U(fEcu!V)V79+zDQ8dqRh%kQk3*1gfYcR_bB1gEjvm7_D$X`pMv4)NE09ba zQmMyft`kCwH2)C355x{dt^E9@A1hGF*F<3*qkqYTAPGhenLd?lzO+;q6xI!Nr^{O= z5KA!=YEl~nXNG|I6=TFJx8|Llc*b3fX<Zn97q~E6zRoRe(I=jZkZx~z&)TP$R_2*rKQrqG)|J>%9=a-#pFVkTz__gOO}h{ zs>N$_XWqAuJuq&}XI10hYOdP>O`!%!`zET1jfN#E?&$D!s6(Y-6y%b@$zTx_&jqC5 zs_?&66m@Xp@RuWMkAMA&@!Im5zi#JYII(3wg7);j#x&L$7b4mXS~X%nW`1 z!N@=J!0BUHq%rT>HT=rrZ865>0}4psm~q%rKb9>91{TGPhs6?a02;Wc&ES?{DRZ3#O zHKeE6tlBz5`^6M1zRMo8$rnSYrsSgStYQJ^Gj;h>C&7Cgc-rs-xsO{5;qOtCMu(s6 z^#~>|@A#)g)~G%qEO=zkl*gJ>V?$s&mUHucFrAi)G>oUQ>>q#(K=U^8`Dd>J6U_r- z_8LQbwZHfNOD@z8xw|a_7pdy@>!~Eha`EEjU?FkS)+5nmsY%Qu-CunXyA*w;%E?<% z?4ohfrL@(A2G)6qJa{U@#ygSnGI6R?BOpp$o3dq@YA3#b?PSnVthS{1wwJ z)3(#qmQD7_uxt*KaYG#r|F(hbLrTl2@i!jF;Dc4~xTP3lKi;jDa{+(~J5l;Lvg>{S zD^{yo97!~tVQ?x$R-p?N$fcm?i>J(rrOq=0-HRUR%qVAq=(WZOz_VSf% zaDG0n8F$6r_n#o?V(mK8-70P7I*q=O5gYz0rbNh70T2xatPQw<>#l_s{rY6pB@QGY zBp-cxe~-7zms270qrt>-lLHA@cG?&J88E+H6IAKu^c;-&H;e1-fa~l`tQ$2SU<+=+ z_O&~7P*%IMYGV3CtZ~1zSEW~^k&Qdnh$55OhoJ)59>BZ-G!X?kSEjkhJ>Lt){_6;4 zL|Kc4o~wZo-wUUf_1p%yEp&H(pGZ~asY_-q;M8Twi~n?E_JD^yzRS`54*Dp#iR zirI3ZskIG-ch~Q3;RYWM#>94 z^~@4h4Z{#k9ylgwUxFLf(8r=3)OJ*i^q4%)w&I^e?0CnpR5tcXW(I87sUbK&RTS+t zXXC*O!N8CcpKtw8bojC+gH!0Re96YN;fLhL;J1)Rp6W8v~Nu` z7h^yx$+3Uof#eGH!p8DzJrj|V&G+3W3)cLanjcV)O_Sy`^}YHh13}rfIbBg%xt*5$ zMI3+TQI{yeH~h_L*d%hDqC7eBx_$n3x7kd)g2McpqbZCv2dNc~*~f})Ufv^buW8G^ zeIN)wRq6Q_=ZEq)#UdxwO38X_b&#+gOlFU7bG!mc{|Km%w$G@(U;P&oJ7WcGX_(~) z`_73KHUL%BKeVy&6+lbJZgaMQ_PwQ4)+dtfG2E$*I}AyUc>ZO5gL$~2V)g3kp874z zl}OY@I)crIMGm5X!eMd%b&E=yqQ(*(+z3zU?ao>8$mqYSs(}>nnoqI#I{(0-kXrr1 zKN5vBL6ZpAbb6DD@_iajG}>e>&)$L?3?2~Y?gJL4rluB8;JvM~7aGp|ChQve#t9nw z$AK~jr9#2ucNF5=^Nv7b@%>-_5X;$q^GVXjgKHhvh6H`mm!_G1)1R@Cd}zp%-i?A%XHt{QS%!tQ}vO zD*ny-m+cF$m!5$)s7GpJ_~#WT;H3_sH+Y;GEQ24A7N7~WwE$s^#>@rpi$}rFO)J4U z=H51`CWtGNk<9*of{^_c=^dG#1SN{MnR!uGS(V*-676-Su+1V_HY%G!TJWggHv@~nToiMpJ4ivRFs zR=|uV`!)ema8BT#Im?rv7g6317({Ru??v!_MXzV}%#tsTBLwlvfc>d0-Ez+&JKLEE z-l_doM%E>|>`5eP!%K2qR|#@0lP*FeBi|e>Q}1=<5V09?@37pdeK~vnD!abj^91kF zW*O)aFYa>nmu!7~9hVW*QYKheiDyyFQi_-zLSoOR8lnl`<8mYsfejxkVLNnCNAcg4 z%FW$<)Zb@r{o{UyaEI5JzkXvYzggE%Exv-^+c|N`TC^U)x5u)r_t*Uk#^a;qcE1OT zsbtT&HnU#YOed;}rtrp!n+(b`k?FsPU_N}soDym#dnF4xA3^4)0qu;+{Xq2>oP2CO53{lpm z8_2wsfFwuHd|oe|?k=5z*mWXY$NoCzND<_-=l^YDFSy<1yK-}Noqid^!nwl=IyL&_ z%)9RWJTq`_oB7LOwPP4|IYq;VnM#{G7c*lSkql0QsdX7i%~SE}Cm$R9d+nzu6rB#g z?`e|jekZ(0G?~Wza#0KKMuz^V#3#8f3+2_fPIC?gNfQh!8E9JPP2(!F)bHu9P}*7*$8=^g6y* zhXO(Ya-t)9uHv_)U!}h||Ei_gV3Vg8F-&uyTvB>)9s?q@_Q0?68?o-W&}P-`E{~{M zmLH{Yhcq}xI%7jaNo!%|?JYAecWNb9-{r(K%0@b2oJ+)?RNob&R5a*%uqW-ow}b`Otqx*e5oDqm3>+e>XS zv}t}ejLUnDA4L>9_yUU2=%9J?ggsZOjjk!G-tQj(bJ}LO?~g)WIa&GV>aUBtd#>fm zUA|Kg!4>&5rQw~{$DUAyOUR6d6bTZ_ZWc>!8X%HpC?ul){WQCp3#F2qf9*H2ENFY| z_E_Jwst6hSl126foD$0PklHN*ij8u!%zP&0m}Z0Q>)WsETp|)Ss3~_ ziIxdmA{!D1^^44(QMRnQN#5it31XdzEBZEZj`UJ_God)3Y_gR`E@?TH+L6mK5gc%`8T{y#_!iGY=a-DSchN{ zOO&gKq^c5BQVoV7dI9Zio?VGQ+^h|TO%@_FGvNk2Ck-sRG}YkZ(V#6TWns%6g=I?= zqqaua1^w=rjCun`--o5zg(-6=`QU`S(jTpabmzBBAtaLp3ysVndUr)tB zT)prZ+>82pQ=j(iJz;7w2G!vW zYWRf&QwkoplR#o6rOTg|uAPddxGwh>@HPCB#&}HDtu1_m{N}96?Y#jpojI91ye&Qf z;($NoJMmmLIc&KJodFlnqR;jYjw{yg(ZkWQr}zJe9-01J|4>sxizG989zN{~c;zA> zfS_Y!*_>i8$j=9g_iQ-u?e7g1=iQzHVF>i>ot#SB>XN6U%Fe;<7)AEeN-`7$XH*+Y z8OrB%Sr_b_llWXBO{8mxFeJb(Ju_LXRom#Sg!iHB?>pc|k~roxhjHWtP7V(#{u3W< zb@RFS{Cf1eoxfQX`h-*#2IeUCOuz`ekue$ek7^ZsKyw@UCx;!PiL@xStXehtMbzMU zojYh7@@FM6sRsYsPcofGR1*KW{9x9mYF&O~!I(uJUULB#Vjw0F$i6tIa+s!C)7CqW z%O79%}zi9C+1T2`DWop!y2g4`hvM$8MIRmrb0 z%Sk8gZ~AfG9Mj&f<$|AQLC;q||A-jpZI?HMBlL@Q3iO-^QE0Y>d^TiE8l62SfdA!A zPF^oey)8bi-jomQV$J3)HGtNW%0_KV8i1)7RokbJWx-O1!p1ps*HJ#N-M#k*S0Xcq z9Zs^`Tw)7fsj7=1tfCGt9{$A_lf*R#`(lghwGEr5qbP3mNRyI$R_LFQ&jOO}tpR^URQ?&D|UB{MVYBD-m zExQElPI2|#Rb$txnUxoYfljq-%h6p%1khHTdOAk8<@sAH$FV~Jm4^)D)ba7;d;y)ewScN-L!%BVDPT415cEDJnlhI2e8TxX?PP zb?sE%k6Of=ByEFVc(&)#i87{5F5MvA!aW;STo~fZ6Pwh5x=HGI8jhec zsB<%`*ndJb^xU|p76y^C(K!m!?jrSO>xxap#i4Y}i-#1Uyo0Q)T1lGzdjcjgtXMKtT%;OyY>Z@!R7M%d9;pDM-rgSmO*pj9p;Fv| zl5sx-vD58)72RpUVXzcD84(Q=ET)p+1Ede@;gNfxCA%mcPHj$|fo~sj%Xt<6r9N-MS^a4vXYpO`zx8r5lFS=B}tKc{CC`(NM`;VqdOIDJT)l< zBys6Ycu6%6?^jdaLUbu4-*+Uge-PEvi_vZ=JW{ZUJPGHme(tJMZdSjF!Q~da3RXDK@K%Mm|hDdO02mR zcyLEKBL@@%peHZ>vOOzDx5qQUE?u#b6*eNa%wXp2I&RK(+$2@s($qAhHE?V3aisJC zTTJ%G)@f=N`C@`dGCCnvYrg_YvEM6CFSvs?dp!etAkE1kr za79_0?lKOum5E4E*ynrO@0k~4?}E*ikE@VqD3rdyuKCQUoORU&9Wv%U#LkAT#6WCs7)AGPfm*N$5Jo43AK#eL94es_!bBE# zO@8|ABAvEiT0}$@e!6Na)#68m-vjN*D(mNMhv3xf-ly03m*R#-i;!E)nfdm1@Sbj? zKk%#Xl41()U463iFx%D8%8U+Y8AFe4(~iyak(ua0=^nfxGtG`V)~D5`HNIkDEHPDa z6>R8g8rFw(;C>ku-gMOW{v|(4_iR?IeXVng6hfL}s=;d|4`ea18!gY{X^CKXkPT#j zKC^~?-zcD4Ea@0dt6sl^0m1hjIo3Rs_!tQ4H&kp89_uX2fM=z{)GncyV(CF7h6PMC z%-!V~4k%zkS?4O7yZy3^1zpqPlWAxqGn{xEir1`)zOX+1B?jygYp$(l!$E6*NtL|i zOV6e?S8wOIRp*ymEKe`yBnv#62{C~FmqtIeBamPPNNaJEFrWm(nWut5ZkVOMWvjP< z=6ttD$5C>g$$9F1b<w7#GkWD@EQL*xmVVD`5-mEoN%%D=-H^M>W z>Oq7K(8@5H{k|N-Ko3-JSn>;&t`j$ARp#XpANUY!)fEa%%JQ5(%!ch#JoCMd2WbV{4`RNg*ab}eiO{>+;YpvpxMQO__Y{IPKd0qP|^CFKp zYmf`>(Sd1}KUx?YE(9v{wXa|0d(;ebPZ<5-33>*byd^yMd-%{GfHh8%Evf;p$_NyO zrq{RTwA-kc=$=?mIQOxi6LM6*fiXTOC&gM9taS12x_H=3l^>BS`gFW%%iqGgONa?jM zk&>jXXB?Z`sq)D6H2!M4z299;_)8$vx39nkKH~AKhTj$hGDl}u4o#!9aYv0>_Ghg0r9Kh8cs4rh~M)=C9S&c9H) zegX8Ziy10r%X3cCQJ2!19IZHbp^ld>58L4Qfvue9EuF85pB<@LW^5L^eDlJ)K1p8s?@~_jDcX!qcE{S~j%-W|@ox zF0MLmiX2ScV+pZr6l^+az)0_G6EyfLIFhIxf9X(*;)V>krix9G`dRg;T1;SNB2AvW zts$kfjtVA1t%ml34hA{@+jkKxxKK;!g88WvwP{MJsaY8@-)T;B2viXWJ?JCqU^Yk$ zlQ?Pv^TilgKfj+YLsvon5?^*{0+(6MY`vJ@7HvdHe~%>9DCu6D+|iL%(NU*{YyN5K z5h$X_rL-Blw~t)g)ER`LGWjX)9XXiU#-N)ZN?tCEtA^m&Ik$w7qQg6sD2{|rC%yc2 zVj>Et7sJ_m@_sqaOh#ui=nig6FmwZ$IIEpwF^wa8MX%jFE)7+v-AP7GBy91npS?2Y4$Tad52>33Ua$3Yx37ctSw1>%JkgvesNufue zNzykDqr*OLY89S*^g+}c_Q^J^Q^11%>eR^$F#}9Vt3z5jkyKJx&Aa9wX^vdEkRrkb znKeabb-+lOa$0rx>>FB5M?2H2x$4S0BXPjCJ7pfaWEM)gzu9I7JW$ru);0#@EKo%o zySfgVFLk#|tLYrKJ4FTt#!kkm3EmYVX()hrvj&=*tM_1=UFMR7OwO$G@a#l*fd$lSz;ApcM8)Aqk>{skGD-zn1=WiA+RS>+Ikb?~wV;KYzj zCO0wY8dU0r$S#n)r0nq1x^&B#sJs$YbTcX%5n8+ucodkMcdUVkqNWzG@n2j;3UH1# zX5s9j^DIdRdH$84p@}nkt%jF~2Xh|ry6HI1Or+rjvW{rtD}mxplc~S9<}Usbp(8^P zS&PxZM~y^}ZA~$HeV%yf5qgKP*SAK07WB4zCLN{QFqj)BP(E4G%NR^kRn%O1%I}fy zGpTJ&6L4xVjdA2S0zyL-A!|44z?yt*qvjm^Q!4tW+f zldV)ztX~V1ZHN3bDBg&5%B8W{ec!>R{6)^>Vwx$l7i=UK&mdt-Wlq#`>Y}SbUnI_= zAVU&qk@{63L!`vSwQJzO6G5KB1)e=~t2J8RN|H)uI|0?!=rB2lf>=&Q!mpMtDV>bjQ@Ck%N|~4@cn6Nlc;p^Ft?jA}Z$vIn zKn58*zafjJj_tY|5#Yr`ixk+s&A6Cdv5x>@Gi1rn1CsERxg_p*@2S95@sc%b_Uy(_ zT$WrW%~nDja|55&YP#EPGDT zfhvA3l|}7U6J{u(i#Zn-?6^i`dl#>weSztT20OP z{hDKVVs@-GvLk~eyAJXCb1V1xOv08wzl5EJ(`i`g5!iL%_Kk(U^_I=g0N&WYCio(p zFmK>FO!y*Z88l_GJ@6&9P|WiwilsV^+GRO~2X;(8c0mnK@dj&0-kzAyPIONf2Mz_Rq>OVUGuh6-j){Fu!Z zZ&HF9IXsDBV;?{uZ<0DhiOz4ntlw;+BIosjcbsERqxd*T`435su zV9gK#+iM+FbsTt^l$z6Y6QJn<8#kHF_1rJNe}*k-lvaQ zPjlgu(ur1*Rt922h2Bd%djdvW2rljpJK-PO>5K6fOF%a!(5wX)in^die_C?mtxq5r zC$o}93ftxVLdTc8Rc15qeMT6UmLzTCbCPWZlB0S3>Db=o_k;`#C@^-EmzoGwZlW4X z@c5X?QCQ%5$Lb}bx?-dP;dPC6tJq4_FpMblXb&B&)z?*^<9S6 z$pab*Sc$eXm0>#AvhQ2|w>vs^9o&~`c2`v&r(bMz{27$16u_ji*fut{TPMK&)1ZUo zX5+oHJ6yjfRBl4?bACtmOk2Bzl7$%-$mz{DCN6#{7B+;B>|5r|n!P{G$K|Mx$KXkWjLfJ2lpDl(e6RA3+eSv5btqr8)n_nUjserczh;1&*vKqjE9WK%4uB!`=Qq&`+N*2Ci8wm?}em85{l zloG>Ma(a=!usBbFXvEFkT<6WE=@&2bL2e4uumst-z24~?)}L7X=F-85&ooBfd*c&R zPe_vQ;Nmjj!dG2=u7zn@??mFXRCXf&St#J*<@RN5S>$U4ilW_AF)cY9WRi&-ZdkzJ zLpCr&$ePSh8(;cT12z!sd+>$LIlPDKPcUm3oZXW0y;O=3Hzy=Y#l882S)L+a{;q9$ z^whojbVYvu}HTAke{ciPk(TQjC@xcLI zAcLdH+RY_iMsH8=|We*tsQ^(Ob$#EgN zpI}+8S38x<=*^V&R1A~*$wgd@!j9lOoyJyJ8lT!oUIdo!#JujI1>OgcMdlNiuV+J@a*=^(t?m zSy=IJLNZY9g9lDu-Yb8prO5@iRMJNkY1}z)aY=s6ZKwEB3gfX7x6@1A1Z{crZBZ89 zYBSRJJ7jH&G5xyLVBFuGj2bi=5-%5G52c(H4J1bvme$^UOdS(?s_uE<-)0py%4IAh znLBQ@7)ki0vH2nZKz0be+BtZ6wHJNud_LAC_J4IOx#Z>NC6D94cO>{_)mpc}Y3SZguWtsXhe~PT;mzy(wlcKN2Ew9R zHz5gq`bPZ>iq*y279_8j#v42-VDEe43Ys>pGq9$B2iTsjkt#Ka7xh!HEgS#wv>ta8 zMh8Yk#T6w9Vc;MDnbMD`GDd9PQBXA&m{B#g8gj*h6X0lc#B?n=-v^pgeD2Hu`@@ng5+!K88djv; zfXhv5*vl&x0omDAG6X&iycvZwA5ed-Q?t+H#$zJNEDZZ*+dN(OW2C&pw`fb9WhxdJ z)wY5)n|>SVD#^zY@BCfZJY0v?I#JnPme&=QtH=XncxI50DZlwBo)_j`P#{Y}F~$3Q z{2S>-N0FpV2E*f>U~BKi`_VjRr|fl@Jf38q+xMi2%g|nCInUR6{`abUFBD&$AwQj7 z!MCQ3Jv(f+6e4!AUf3gkN^>e8yrfZn$!lYERN5#JbLb-Ef z4_5hkoJwwWg)DRw@@1Wth0#6->9t7VdQe8=%|A^nl`S#9>A_lanJQ+t>`d${`wsPP zRsFzLeq}Xa#r==OUN(O;Mn@B8T%+d;UClMk{{mT{z`naMsScE+q!F{KW1Sr@CYFQ1 zpnhq2nH+9NMOCZ?2jeRUq(5&nXrrP_os1W4GUSu?SD@j%K{S>be|&Z{0bIB1IS5c! zglWy@>GH0R+&VaSKF>d;6pg5T$~R5Wp%-TQ`mtmqjwyCW*nZNL(+y_Kb#u1$m^rzN zD2h<43PueYHJPyBtPF0>UV%MUhA;0oeyx!2ZW+D0f`54d{M=GN!-*(TIj5i+re`1Q z)}ftED+>3j6~-}iL$%CjUP8`t^_IaJam7CkW9zd#$vnT5;o>B|YE#GcPnZ+{xab_Q zh8M;wOZ{QyaFiKulRrX_q&NsR7R5DIg!8GW<0AKNTUcCt^$fZ440*RU?K!d7z4Nxn zUF`5V%igS5^pD_M)A=kd4+q-Hx5i{XG9C}Tz9f^<1Oi0=Y_OC!dtD~fW0!pQI1d!= zf%LG0_&B)m&rGKulV_Mw@5Sh`Dh|~e||u`gy^Pwj4h9UT;2^f7*`1NM~(2=~2 zbUgKF3m;VO_uKpIQ@!7*+s(DUQ}#0si$ZkGm@Eaw+Ql#Brh825#eY0fT#)q<(dOm% z3O)-8$hBSJ4ok_opRh0agfTH>A(1F*40sGAcL13@@9tN|_CV!T7}{?_hZ%(4c6(}i z_I;w?^zG|5u=rvI`8eq#lMT>|Xx+c2L3q4vfG3*u!ki&75Q;;pmb7QoibH_!&9EPP z>+^4~W`m3r6S2Y0Hz;yOoM)oB!5qzs*<9*iKUj*Kqqp8(2=|M1(?sgV6((Z;6W8XJ zucHk)2l@VK4f7cIlL74GZSD^F-ySX++^-;|TE_12wQ@<2X4TMrafHtBlCKsik{l5sX#* zDy(xW=sT9!mI?QXh+@N1$*cuxn1D1LcvW}UjH7JcHQ$kk51>~CRI(Eeiwy0+M|(=+ z4%OJ`@(9>9ESZ7wNJILRdn-du7lQTY9mlZTzrjHUkvh20z!x4QoEzfKT0H^fagAPA zSdzfz)j#8SwtuT8b!|eZEwt4GX<0L2k7L2ls1Xjmvn>b=x$xny9Akx!#5TOdpW-|*Sg;OabE(8D6HO3!JaRl z7%Y~0V}?1K`68AQ2H(^lM>_I0?R_5Mz3xr~{jG;sKF;$=nL$IKtDa~!Q?b-3gDwLZ z6Q7OZZ?Crxr{n>dfgA5*5ZyPaI8xawlx4lb&0{6N$n*tl- zUml0MA6ItQzWnB!Iy}`g=F#P03N`B8-V8wE+8I5AAo0CM5PWX7b_vu7XvC&Mgn%q& zsFeODGo$rr@x~qxzg@mgzjOxVsWI9*? z2F1s-dz~6BS=i=z0~3dGzU_%#^+j%&BB@C9N$wXJqDaxtULdyfax-IRM>&bo(At_n zw|906UI33*qYWwGU#O3iH!z-g;D)wA3iaH&p>dV}isLam+X(bxb$8#k9rK|j>lWy%eto6c83dVOd z$Oig{<#5QI=Vg786aJMOpVb?1Tn|Fx?>t_AW$nGmt9Ilq--aIr(M{t?{%`H3dQH@2 zA6hH#PZTL^0SRAFRE@~ik)-=;y)XLd;^Nj%ph$-IWzXdzS=>nE2tg4cRl zJ%o?DUpNHbw&5}A!?{*6LdC?h8)JkivuK)OeNMgewNcJfEuu6$NS~}RzD9>dOfwiA-_nVkgu5MWX9vA9hv!yNY15NcyJV_U ztex@f_%DNv9dblaf;P+A?jXTepwEwnCYCfk(JK?rj^aVS3J%CUvyEW`jQr%k3fPfP zUC*?l)%820zt38@NY0ZP;?7^7NG3fUHvrHHu*O82gJHN^dE^3b@l^yV^ajdFR}EPd zIrEvWSzZ0`=v73m;0;nrZL5=OJfl>F!tIN%T--3=Z!vlu8OA`zqBY0E z`8=_Iqnbt^Qt;P`4HwaZJG<%Cs2-t}IoYLvtemryRlM*HvXn5X^{>_65iN-oK3;w! zzFhWfS&ygG?1=-88h)qH++2RZFK503v+$Eo5+71foGzbnT!T@ms7}#*3JD*HCWN3u~E41hj zXGu6}Twhs=OMYPukA|+|60DV$+ILgN)CC?EfH5+C(A|aI?#J(t*G-ZZ--&%_RnhsX zrFoORbBBlBVKi!W@{6Dv70%k)@9a8t7!9r$6n481?%fCuZy`-){nRFI zNI^e%1L#KHCvoz(&VQhto;x}Ch&x-SGkz6KrIwyy~g4V9mLcp46?Oj%<)+tVd-^;5`0_a3?b$=l-7xh)(gt+hosnm(Xj>JerCz%+S7+Avy?65`7rlJ+jK2fSfR`%fnJ+@(s!~vPm9cY-}?AxNr%$ zCCcmG8!EljhS`hjbN5ano2jZ6d#8sfT`k9fsdH+>!{S&o#S%%z_R4?V4+sF`3_2tr)v!p%e&%pu>Pk1jcU#^YBHO+K7-4bJkFe;3= zVP%JQ(1wR;C>v75SGVdVYMl)iO)Cm7$o6(T0-@<^1l?eCc@x75>vY;&@DhLo(}E@g z9==|0vBXlk7g$&qE#Ds%kpyJIT9tFC&}frp(SziGMZZuMNY(}BAP3(r)afv*)w12H zE@t}2h&;fj5Hk};tTaE$&2PP-sFUfmaDGs8RE}x7mRd@0N;GQw)|@qw>WA;iaZ>hl7$wfl`W)MYNUPbFy01X(t!f8S+H6U&qn0 zkAmD72l-rJr=2B3&IeQuphUJ`kQWD zQcaGDHk_r4QM9)yv_a&&o3m%kAA9oM(WI`Ki{%#LfV+SHs%*Tqn=Q!y{Uv{AX$NL~ii;jE*)pCqf^}jx`Nbwp#P7C3*Y7+y z{-y>w1V1E^tO1mSwr-oB~rK71M!(!`1~y0@UVH~3Ys^Lo5Gk> zq!bKrozbw+Kfeh$Qk2ZWTQ-09Ok1*DXbNU8o=$py%GCs_gQ8^#;kQnV#MeJ5~KP10Xcn zxklB%S2=gqeDtsuSg>Ztkt@eG#EQ?WdmI}J-0JGjAIpn*)UwWVoCm-aUbtpgOV2Wn z-4BLn)ahb49k))2n2ukh$Ex-BC(ixtH~ou2z4|1gd!h4Y-{Wn_b8PylcEhf9osj{> zk%B}`gdUv3gIuQ>1&5E>C&KW!8%?2yOI-q<{GDK<|9i;9L)y!2q&f2@(OsbLLHEKq z<|X^%ULM0P2EnOTsAbKR6I6gFQBn-W+(@ls~MW2>}q@uKg4tZJ99I`QL+B|hgf zTEk$1435{2i?vOy@#_Y`M}8Z)1f<8Ej?1e2C;H*CK+6YQ8W_a}nKbN1C?N*H(t4iF z?hn`x2-&meX%=K8An3?1bOqi-5vOs$10p4iUVG*San`3V-hYwe_4MI)sJk0s6N0&G_XRBP1sL`qQV+?_Vf^R?Y|ck| zhemX5@>t4is%l!&2uL_#TBbxBN5dEL;pdQfumO*B0vum%f?BZ@s&onMC1ku@?fCr^ z^$RS~{!+-+68!vbh}yT$^n3(N_mxb@DDiY-A(Pb+ot@DGNb&0Dt0nX>H&4)en$OkT zH&1x5u-Fxh^GA3?*uT%NPJl#AbTI+3rQ%t{Tv~rqspOREN&f5K1+xyBlSXX)TERGc zat<63kwp=~!ED7_IZKT_59HUsjX3$LWjfi0EcS2kx=8-O;zVCC5PP380q~zBv0e)g zaYCF%Ehaa2=2@H2ALbO)$s9?PLeim_5bZ&Y+y=ODWdWL*@{HIVDd>$Wwm}8GKt?C9 z4oNsWlWlHcK@EdQWrh>Uw`&Q;oTabh)2qGN(p`pV)~ZhZIih4^Oaw}&oYJcOYc+f1 zqK2RbjK)+{2fa65^nfoc|^4Cb;d4u zbuQ7m>=5|glDBf8JiTEgcrpX`4O3H&oIPl!=!T3x@iPB)2IXou?HlWFoipfzY}w*t z*9O5Pq%yu(4TjRG`)eA>N!(?R+IP2Ff(cDuMC56L8Bchd%B>2*+}3E%+E4|=dm-}VlFg|C%8-m|Xe0Q%p3X;_g z`wh7WUPK2GEx-hozdx3JFYmr#Bew6*yC!_3>3*d<$0jy%Nc}NjL17t&plF(5GEgdc z)5Xy7x*E>xEcM+W5KIZ@!-;Rm0Mg&=yX+R+S=qlHPr77R)|fV#PG4M*u^8{^Kx{tX zGEx6&c9h4`G}tf>b`9j5f)G(eWIb?1ntH0(O!C%MD8AkEuhKWu12LI55T1+=n!( zB0_s44xS_)mJm5`)h@*}?X^jpJ!%GYUXYfVlLt9*LvVYLlYsqY$zuM*mK6l_GiK25 zkPL{!5)YS9GA)b1?PkiCJ8x&JkVdt3{>hL6e=_1Xy(K3UD%KyGJ<{8VqJW~G8D$(n zMcf2G9ex`KlE)dG_4iC4b7KG2XZQzt1msKN9{n5Rg^+1 zg)?>1g6FW+$4n3`V7`-?J)LDu1l?P?xN-5|Ij+49X7|zncn>x`&t%Nw;API8W6FC+Qaua@@dJ79b^^ zg6Gq>l#Qn$rYRHHGkXJ-?_8OVdvnZ3xd(to%I)zI3n57WH?T!)Zg!7<|@r~EWhnv80gV-CANAvD` zF1=BZoJn+RTmP#~P?X4Wy+nJryt!i^ir_o6;79Oc8#UoDH);W-JDi>g#;?&M?qv|G z+v9^V2-9JaWBF#_<1W_ft?h1Z87$F)SSMYPdb`p7wiL`LV(Rr zgo#QoZG99Xz{jM)NX>}t?6Q^2EY3-Bu%uxnm1dnl70qdwN6k3Ln^#Ng((CXMGLwF) zyKGFLoQ*I6==+yemko?(M66{oxoNpn_$Z)1U`p#Bb zq>`ZJ+x*Uq(h^L08|pS6Erj{xGbfccW1ftpvnKFtn&2qJFuif-i`MMW2W|Tb#8m0W zz&#IGoqFMREwO_Md%RLf$tBJpEYi|%uYmemRV#${Dy53M#8O(5SATrT=Z7kPg8Luw zKXXy|)uAFRaPG8Drn{f$$XJxXjHR?n&FzZcg%7rtITMaZq$yHn1m}@qppTPwgP-(*hm>e~O5`dm_4J!X@1qfsNw-QE8 zgn@bNqO%!-sw&X-tMznKMZkA)NKdtVDLZJ`G7Zpu@E7p^2O^1>{`jyrYxCC(t9Y}Y zM4%_{!}=3hDRJMwb8l zEE_dMOog!X#4MwdG}@W|R7g{MrQYow&#myO`(@BK&(Ac%;vz9JqLJ}ROLlIQZYTZX zYJFV$brt1zy6kt)4;Jr>JIW>BHBUdk#q8fle(j00jaLK8S9>7N zq=0AnU+D=(;7{>|$zPQd8*jNAya(2sAAZK+AGgP{I@NMz+CPF&>0Nh0{bz(=YMrj@ zQ_c6yHZ{dInal3C1A^avwIb~HEJszCVU?W<;tTodTv6rwle@gO} zScatx(N+dk!i7j)b)q?C6_q*lp13dunMF~$fYdiTAT{R|RpFOLGDL|xXVKR5(rF_v zgFlI=v;DxJ#1o9c>kzOcFFsPm#>Pf10pbDc8XH4uPGTf5O#XgfM5@vE4W}Kud<|e_ zv^mO=Mws+tYx0nbC^Mdk!_a5 zh?H}mu;39^wxujotWqBxEt9I8sqAt-Kz>_CU8ym^#V;$BH?P6}@`dTgycv6@gM-8O zT0!BYFP(>!NQo4gl(7jRpLcP~xZi9{z#yTtFAc7``BS^~f!GAu42+D8JfLNU9=&G% zy)!e7G_lQ44rIF}0lE25)_lNkOWDrSk!;xo8P`7d)%y}dAf#bSfPsZN@FW6 z!i=tScfT~rJI)5hp}esB?EH1dGe9rcj0-e_FVEfxeSP7DwYjx+J&JB_knLk{b3o8*O-9GM{!(47b=c zT4X4p{IR|LK1&5Jq8J#%8J$S=hI3W;)+Zc@G7ab$9e8PZ0$3x2@(r4&A{Z~2ucU0p8I=b zOJ+9Wr$%iCvAG$h%D;SNmOvCb6RA1tX+02c0_=P&Ekh}#aFK@)!K5DtjVrQ0<{2%-qJ#nHnO?2a!MQDvY9WP@AO^^2elDIUkID6TfB=c@ zPCK);we=q>E;V&^G-2SbJ#^s%B)Dm&fETl}QrX4HHq0vT2Q}~;z}Tt!YqSokPU&ae z-5!kgIkVQ^3B}QS{C-eMsF_lIwgd0y$22|de6V=>>Z{P)J1*VPSi@M$@C_D4rWM7R zfKLxzFiL-ocBqlJ4Rr$Do^2phC!sii{NJ=8OQ?O9W2_z}nL1I@s;IQ_1c;QUb=;gp zd&fP`l1-|YZOi}t#C<7mM8R^q951RYaZtc2ulNbd@1m5(1FWgi92ww$bB(ej?-HWd z8xLcMuTZaA)XPl6aJkXxkSRkjh{*kQ%l}z@!=ONQHiwHkGbH7S7ShQ*;QZdhtg~0} zWez?IlRe)5X^8**{`iG(AK8zZOkKM~DC8FdWhc>XFEa~&S8u-GIU-H@s9T{~;vSkJ zCWSS1R6@dt)EugqNyNslZR`x{Ranrn&jJFoi`yPb?$}l!rLJZ*B+1WD``Q+JpH-(8 z#!f;}X|tqLz7vW?Fp8y`B8o9Q+Gxg*OYx+QQo_wr3gN<(kPovnh~m)}BWgk|x{o%% zOJ`7M(uI|x|A0;+pFcz4IYy3r{UkOU(VxMXYoLvUxir9T%@Y?~REZeIk15s| zwXnd=8cV;T-Qm(M!p$wm>L_yW7O%jCC#%d0I^LG^!H@kME1q0hs+uF+v#@}CPFbL6 zJ!heE^-88mK5N0Lh?T2Xt8TNo1s%xURIl6$SX$%e`y0YFnhA3%#qvb*hD$V~z8!G@EMkVB&_Pp>zi3jFWf2RZ;v6HX6n{v`jvT_71sQai zC3|L!dE{hn3@+lg)efBEBZR6dc~;z8$>f-CEf-4F+=*gC1%jD$+DMXd4$PC8KI+M@?)_1 z%3%-L<-x|rcCKTbb=Hqp)GDj3cq6UmICM8n1*rGE3;!H1z2EQg_VSM{wQHLrHk(uk z6-A^90U>Fa=y%OebD>=CgE+(oImpsE3KeO@%k*V6Xg59A3aMC<-^Z?xdUwB?H(o2u z{CWL-Vpv`4>6)w5`|}sH^uWHL=rF1<=^p7G-Sr=2;gJNX!BdLKFM)d?Sv1W!dP*l= z8VPc8Dp}#a5vp`d6{sTG-Y-y?O{6L>iW-ev{kR)nq>6JYcStjVY|4NRcQ@SIXB(S8 zc=0|#KP9q;{#YSlFONSON@JE15+Sq6W)F&Ch|v*-Vq>RSv}6;yB47IC``Hh8>~6*R z{#fgC<@Z|K`thxmwGgOFu>yYp4joIjem(sS6Q0X|YbUIP$fI+8kJj5SFq;x%Y_h?u z2)MD~8D&$0UvM;abow6p`^LFLM+XL7X@KPuqO!4L{owNuJH~X;e4?2^BaDW$(BGa$ zmF5=Y{mRxN`adq2e%;dx_qN<$7r*d|Y62U2)G)RzvrQf@&cCDx(FCP1)mjt1!vjo}j_>#YOBi5V1mZl~ z{67R@#f7q1w3lv{*G!!l7cU%38=b1BZzc}7dJZhVll(=_tF<}Mzv1bAc#PPeeZ60# z1QU|sJUAs`b@_pT_a7?X==>@80d|$}IfgC4lwdkK!4-)DiLH;U`(utOZ36NN1o?h^ zQ9C2!T9*wi75D38*HKb8vZ9>X|8{8{HMqF1#s2PTD)k|uY8(+AjtY@ z=PQsU>{^0}j@R`j*VFBP_BpU2rtTyoQj|DMQYr*HOv5hR|2}oPzT~@Zk2cZc;)YLX z+(Jpd4DKC$GARY#y=Kj#5N=2u&Ms#LLY(g8aZ z>1sAUnM(QcgzNW1c*i9UpeiR>e(_h-$%uyAqy7DXU(c>{j>cV%28rDc0L6W4$Gg! zNj|PLmB%kzJ`dQtw%TDX=_H1m&osq=3?IM-XtUN4f6~sW?K*;mjM7mO8B(YY*N?jB zdi3yu7%o!zmmVk#PcJT}>3bN*&FsYEb_`bT5nI*NmMpWT%(^GdlE>3o=B=9kt*#Dm z%DTC`^YZZ-0VochxN;&0*m1C#b;B>7F+e{zdhNgyFGI@)H*9HrvzFtjas_&WC8k_` z^4@vm^T&mJM&mkMq@a`{&#%VIgcb@RRfi#VKzW?fzNkMjd&K=GX`va!Ocf!Oeq$TV z0_q5mOLX|y2cqO%><1K04Afn>X}?E_5XuAzh1b34+a{a9ELj^wtXO(fa!Tk#1oQbm$b*fX{C|Tj66hBJj}MA zkQgJ^C8+%g9Dj6#ciG!iB53}lMJaP#Q3#0(U{y|=7gUqdmcTXq*uJf}$;cY@;Oudx zp;dOip}q9HOC@ROs*kYD{#C<7E@h+@m*4dWPHLG2+b4w&35ZKyAl?|DdRv>gFAJFN{Iv;NILzwo1QPLeQ)f$1B3 z+xuG)->nnA1ar#OW5M&{8?f!m+~gd{)n0q&3&_L#i{9Gk_K77~UzQMb4fOceKf^@bNgT(hEHj*N z|8$}MOvqxBrSfSGRdY%*Qc4+KwqCOQA~Xw!$c(Mp83UqiL=mkUEDrsVp|IKi^<9FD zG2Wi=CR>`fm_N=XFTX0aR#`wl3qP2_gmT0rfRO=apL80njdThoNkyZ5G%02TONmZG z9XgA?j)6K{f`6zOqKvxk455rHfeJ};4t|xmiv%5(ZEcE7@lXU?vECHC+Cv0eq6tZ! zeJ$i$L|e4ZZpnEZBLPunn7qgCNo}}74J;1LJv!qLJbC1TrJLlKM_pijKfeip8Rsqj zS~78>wS^qC#n51|LzgKQssSO!Sx_ZygvQ4dCce*|-19eCyn){s(>;2## z*y%VwRp|ezrOwWn`hP@3o;Z8V^b*1TIdNqi7oWeaD9sI0=9)!H-o$#5+Sz zut%3?h)gui3=ISK_QZgCF4z!f9Bk2qpHVjYmdgYwSai%Oh0$wqXo!nVBcCUf$OW8R zfP3=yuPUeP&gG>;*pKy%jbYa{ydce_5CsWO`HM@r2zbCf0$$Ng3KLI&H zzwZ{bfp=U@O^wI(7<1ChxlB(@?S+bZ>v1{H9%H)ryimp0T51*)&869u-;9 zTk-TEhU@S(ji|G*>_ADY9{4|XSif$*@zcx5&zvFm-u+y#-JMM+jT$Slf7 z-TdkYo<8Z|7xm7hVCnhUj3yP6G^P@P3j6TXz#=e=L()pXE7e%(a0b3Z{8Auql7m>O*4@V-i2e3cL>Xk>36UjL1e5*aF=7U8D~qstn3lmVyH z5lTDIR9?K~@OYxnj|nN^BI#1EXN)`~U`6&C^mt#aks=ty#l>ZK7}H}Vt62x`mAYDS z5lj;pYI1jVj|0(Rj>7_3l~@6Vgy;4b-T46h^e)Om1CS+4*r>2NX^r3+Wb*7UTr3Kg4c(0>dq zjv5=>A>1&oT%rD1!*s!?WI-`S%+JBSDjaR{sL;1w{Of)%wm;@gfU8@&v=6uu(@e=i zGAym9gX71BLDT;QMV+3W`h0>R3ENW1q0ERh%n|U-k}hR0&Y%2tol@}g>9{H83Bgss zFwMFn=4k-rpYNmMB!FC(^|Ah%v8UMgb{D}TH|v6xD3WACX(?Vd?h-(<_RrAz5RHK; zNTJLwlhWurevF2zN!R14@t;qc!QFn-JAf0XqG^m)dNzen79tpvP;3K%471P$cFue~(-CbG-}9Co)`+V=Kn8qpz^pDkk&RCZav z%lc%MZMy5f@*JGN)E&{dgSxx{`j}Is?txdM)daCs!;YhyJp8OFe{Km zuP{lVW~)>>gr*FPx3Yi{)J$p6f+v&CHn{rq_l*D@CDkp*zGbrI4{;hRNpm2f{5r}D zo)}Cv#dr`U_WYApOb)deST-6(SX^9)9A`d+5T?Y_P|e1I-ZHCr1iww?kn6#RL?*o= zgHJ|=q45N1=#3b|ePnuIqt+K z!7omcPD}sT82TbVVsW^wGI<1Y54m`0HO}Xet7ixMl`i#^uKl_RY@3OJ=?qX;_Vq!sbUl*izwXiiB2?)a zsA99fRP~gC`dD+CqLKPD+73k(Ij#BAt$(iBIX~Z8=J`Ea0^R<}$w>~6V~|+`{AD0Q zQ_k9y;Cqkp1H@RD=uEnxv4E6-jf)c~aH=@>U{H_P%){Z8i-c-TKRKaH4#qN$Qf35> zeA8`l=S8qHDjcFRHU%%lFNi#_6rNeoEvkG$)ubT5@2kHL)`kW8F1m2iWihUDQUXT) z@S>K_S!i@dk0FBp%MSlK|8*oov_%*U1x}S7)kT~p`Cc^1xBeRf1iCtmzV3Gxe|hyv z3SJqHHGxSj49$he7uZI6_G!JC*U9)=FagyMm1J56wn`c3VocuDioMG} z6-e(#=~LUEEb$W~2(gIZGchfXk&{T1$&-G1#D@q|OO+JW(W_irB0tJjIgs2NXp&7# zn~x{IU&)%R=bd`od9O;9{;rAn0V$?5l4-R@O*bIs-JFX(e}&W zCjyeh&Y$+lg>y34ZxSBK5M`gGCyh2^kKBNar3ERoMF^)yel5`As6XSws8yg+ zLYish+GY&o?5|i%pbBM7{3Dih4Z}VgMpcG!G?q%o@ZM7ouZFL=vOh zk1RgU=r#D>{dMSp#>6wiF!S{6{@+ITbf|NA1rPQ*Wx<->X5XOmuF@8yiZnLzXDE;$ z8A6y!F80X@%}+kruzs{Gt0HUQ8&q)%Gc5Rt9+YzBAzZsbCTnb>+1JdVp%w~CzIp== zxCqGpivfLL#ttk7V9rp~+2+~b+ze2wnpBqeBV2K7^?Up5-SIHO-s*Nn#FvYlD+en( z@39?8qoJt@kwGV$%kPan&sn|?hrwBmx`vC0P<=QzRdd_JWWE$d&qf&YU(5X8uqa;e zod@vsK?7Zlq|#QEHns96*?9rhbQponai1J8_XcvFe)%xQ&eZ_l265g&@ifiq4n@jS zzWb|y2WEH9Rh|5yhu4fsD61rCk?8M_#0(SQ-aDDWu+?#eneh_ipuNl zCs};V!?lYpx9D8O2nI%{VqtVq+&H1R3sM*fpZ(E|?GmQMPaVdO`>7{{qOwXI;pg=J)s;8FPjm^my-K1x{KGHI+s@au|9TV$J&PX2pmd7`oMM*ls zfUcWlCcO?{$!0GEGHcvQ>6tTydhJHlP&0=f68~oyZs?JE39-K;;0zFq*k@70CHhFh zLQ7N}{EN1fWU?U9IpB39jO2tfbBb>-Dv}dY;)Nt*kW3QB6_1cKs6 zBHnH}W)1_7e=5 z5KeT0RNsDIL$2hbL^Q_Kq?v{RD@e`bZrmj71$AT}z`PAP>wa?iJM>F6fijbG3LcEB zyZGN=B?+3LN=7oNV1q?S*;c%G_J>sE_d*7qRIRO!lg}#jSirz$^d<+0L5TOerQqh~ zb|4JzHMoRmlbF6iNO7%Fh4Vk;+qnwqH4yDs6IG<_qotrR-1huKpqi$x<+D8~1H8{^ zHwP>Z*8@_NQkhLt4ZkFtZ(JHZ=O3K-(@(B=`ux^a47-|iYK}N%%?Y>J3)6ajvpc4T zk1N^AEZ(8Ko?h2!t$!UpXp7&*!ST$K``|*kWlXYlJEfo>@$LB&g+eOlqkgJpqUi0CX!agUbL~-lJApdj{P0h4$A+kbI~Dpp0ZLX0$EdBJg8J$ zXI*DI8t1rGFT(2Rb@1Um&f5^qjR+HpX*>Y~=i9AANrwM(sr-CGw8_hwwr-dE8?o`I ziDluSp?M4{zHIrFhkN+Jg4OHIhF_2=Lf4u8+o8aQr+ai=b0m%y+&r0^gi0mW;i^&Z z*b~XeO8TQH!5_xbN~;k#6{&0@QA)fJMiJ)V1fkqG{Lm2c63ftZ`BK&|{BIj2-?l`s z&aW_@Uj2u8qi(7jo_MB$8IxUrE)R)eoPC>;Mub#qu$CMg!^0%^!!eC~M6#T~Qgc*t z&n%VtXHw9QG2!CCYN&Q}@2lZ)}P=1+-ed$&>7e^Crf|7{e6_lxTSu=;F*^qfJk;GE1W@YH!$%)i&pF z5RQf#mOCN31g~6auLtJb+5OQ&xC%XXnkw0)^7Zc-iK!b*)no-sA~7_$!b$W{Q%y!@ zppoLd^6lmk9j$BWkWZ7qZ5K-#FwqRM%;IoJF2mbx>ml;i>Gliu>V$6-ZPLnrI;EB} z^x5P=E|Vmw`zCTq!9lVA8fp!V&GXzBj&I%dE9F|Qz~yVidb;%j z_(T2T%=3J+{-(MTmWN%u0F8gUom}+?uyeZ-LxpaDR;O#*lp<0t{0vmr z%RQ4%(-f_ukfIb+zLyvc;p)NDB=vNTB?aKF`Iz)?8&arOtW*VmqAWDvB=G2b(Bv@g zdauBd3`{G%xmfo}@1Q_wYZFbN9q<#KRFc#|;U&518$`-mO_>dFm$+=H)!$)7ZCspo zsB;gn`ZrK0FFWaI6Uowb2~DFlxbd+3g3)!e&vmauWLgiODHIoDsu6L8OrSQV&XT`l z14S6XDW2Y_>G@n}%AdQqe`B0sY;Tb0;@_}c=+}BFME5(KO7C&A>`t*73>JUv3xK2RsB`IhLx*gT$MQ|TEo}(S^kC0W@|itO*=y_~{p7B< z-P<95f`Bqb)vZlWX1q6iR8qi-?!!s+D$}PmCD&giOX~sxl))!gWe8EBqT+_JS>C}b z*nTfi-xQKkx~mxjb6i&*;q+nv}{ji+SrBfJtMoA>r3vUowKtb>0iPm6=BKG z6*x+4lam_npK(AIn6|aiB)8FJkkOLjq9>q=(9r)IR(5NCF=dpIs5U z>Z$McXxMpDM)uW3!(y2(%mif-0yGZ`2!rB`P{wt9p}7G?KEhjKk_p`%tx}bYPq&V z=r;G?TZd$s5VG^S6B!aQWK*bE< zW5qe4xy{8Ejw$#xgOwB|ei;p8CG_ET4|3ZxtJUUP4}qD}$&r z3pBm_u1CQ2Ybw3=1KPQ82$8@6d-G%6p6&O(j{=oeW61fTCG-NC%MQVa`Y27CRS9%soES>9>*MnSBSx>yTgNKJl||3|N=Vc0RUk%_EDWHMq&1Eh?+yZ*HkKmYDs5 z@dn^(K;w+*Do|yD_;(zB&Tl_x9iJYx9V>lv%7}hb?ef}xw8PW2xv4{^dEFeVGnIq% zX#I|&K@&-h4Z|);x5wg>5}vo_X`h>bftgvXWT8Y(sZ%W9VprFg-CXG}2Bt@5z~r2u z3nKcm?DeWo^&>2uoaA-T>!7%A^2BOtr-5PWp20ol!^E~7G6YfOs!RgDz5SO2v6*NT z1hLPdGGRqLbQwV(A!h;i@r6I8biqkN3oz&BZAOOE(8tY}n>}Bn*V*-ky zolB1-RK((qb_XyOV87$zj{K&U|_;q_OMWLUdTp)WcRj?^5>d zJNK1qb`v60C;f!>mO-;}L-(mijK84XI5R#KOITXq;}T1atUudH;@eoVl_e?{q96-4 zE)FPmA;RU)?H6zXg-rTOQ^s|vrfd6433jC(xQb=t9P@< ziChZt!*2}egcHO11a0Qm%YUJ=-7-DR`%~?7cdI$CuzPAhstRV!d|JSs3YyBV#l?_N#STPA>1q9$`Ycy!a zXWCPi4fYJ2{~jppLDCr?;C7vFeE^e{h!s8cVP!j#=R@|*Zl_EvK4KNVpP1=i0-ZKVYcw*tCdpWuF@rGSn=%_RU+_C7wOs=%2%TTWU#JRPb)|Il5?3 zT1w1rW|7Qb|7G}kfUTA@25sJ#V>F3)u)#(vH)l)DRia-ZK<>fJUOaS3m#2XdMVIe? z6nUaIA&}FY0&7DQV{=V|XJ6~;0*>#r+pf5d!7>ZXUw~8L%Svb8E8iP2rb^N3-)Rh= zY>XDT0D2i@OlWAe$;ahvdqan=%+xy0N9;+NE|o&N*578Gz2}Vy2S=;QezCRW#Bzdu zCvuHqb`#N9jrEy}zpY-^fCwcTW}y7M*NkLUz^RKek%5Nt!=mD9yDlu4B7UE* z=pLR8cD$#VBouWz``p7?A^k|v;@OR#%R3ZFYi+Fm>Za#%VbNa2p)i<<@Wvv9CNRD= z?2*~`CRy>UoC6ChZxg+)fSf8#p3++7?rGKW_A(-rXsQqCX(6jB27^5k35~d{L-kl7UpX<;~P7_^GTf zqq%E~q9l=GJaoV!j8-vM-^M1o`flNZPX|{56i*5@xM|8AtI$KVrnQEx>;U{FjLr3yc|VFyyMk9>M~US=>$!j%`7LLNY-Z8}}KFOn_uZ z&zf>}y%}78!PH>R?wT1OfXdT`*)N_;sgi_}+nplC@?edeC-qX{|A0!Ng44;z>eM^@gY=2Dr zWWU6gvuzKsjg}3l_F0GsoyUnK^p_rQ`&f6K_&`{ufyNtRV&Y+k9vo(0AC1e&+Ob?b zGUthV%^X))hOGho)1*mn_7JrIqWpt{q*6{WUPOwgoT}rub1H?~Ps}r7{#tqJApDE-V;+zuf!l(wl9)G;3 z+8NmIa^T;-y!PzRRAj>tR>n1kZ1CijP~ZPHA{J14w>5N)bTdZQE~(E=P)e>vBf}uF zrV?*7$&zv36B#>=?BaNnIlHnwdWEf6o?ofvU~H@-7KF4npEg$d=l*H{mDn$*gn&{k z3^{ICT!98pxJ;_@-*)UPwdSG9Ke2r2LYNa??F^`bQz4np<=^@$q%V%u7SmeFe4~rc z-8_$EknG8f8cs;6_6%l^=O@zFKn*FOVnm#E)-Z2i!wf83#%Vm%*T8FRbZxd@f77AR zggtED6uutC%Cr@gqLHpS5?yk{gQbM~Vaee;;pdWR^S|!QokBgBxK~#$1ktfm^8P9f z7^hJJqA5VD9vFNDsW8m1*ou<#IN##Gc;3c?hoqCLp=tf&3tn4mb=~$PtxHr_SFUC1m1sRxA0EENz8^V4HRMB=*J^4&v}oe!m}pwh`;dh(9aT4aUnaKR=hl24I;_lEC{C67%Q0Ls z$Mzi=Hy_>W3jw#i8@er}drGka>GVyv3TtSow6Q?Dn&uR~BSn}*yfxC_Us~6@rtJPj zaU&SUh+5OweQdG0mJYkB6ozGGCljA)f1sZu-ezqVb%uT+VEX(fGot6b^v?}$cSYBI z4{_1NOD`pgXe1^n+H4YGyW#SbQ8J$`w)f7+?Ch58B3M_q zd!GcyGL)v`k1qe#`kru6Ipd9dd2K5EMr9hBpqu;4ay0j0@Q~*FIJz! zV{iBy)D|7j01H}NWY}21^ltfWjZT{+1P_;3M~SdaY&-%C*ov2}^%Yz4r9$7fcbnPU z&dfc?b3cT3W&6LF+$1;s&qUg_T(F#E2D6=c!k65Ma)AbRqefXsA{W zc&Vmvs5S^6A{x6#RE&Tng%Ocjoji81{H_RnMtq?Kb}4fOwseue-6<`vzyUT2da`V! zO6g=BhlD~C(Tl38s%c>PY)9^!B4|S*7n@OY(iy0G8PaE9aI^eAi!$g1M&INl7ufy} z)G?{*7_I$tvkZc&Vs=R8(916pl&($hzua|+HHQ(=Rs8)?Tq;ro?odX}zLrsQ)e|o~ zi5^zWfV?tE7M<20n}x+rZ({g4L9`?QwOeEWi4K@`l>Z{4i|7S^g8R!NIi@#i-+${5 z>4g4d#!o<*uzoruIGCs?IMUOD!_sxnZrkM@eR=5&9D!^=hSi{HBgvAX=ws4wtF-Us z^8p@Myv5H(o!WfxokXwi98yZ{%RN>%pOGWQjKmT9SL!q}_6M9MSFQGyz4REyt$JOO zyfm5&HVtpMvR`qdq1$FhTXTdMZeSIopX?qMt5Gam?-6#n%jo;0IX+Q{E@_0rJ;sKK zvT|M4&#unCYL)xMW0Qw;zx3-}&4mEg0ECb|i76J^Pvm-&D0ELdhYQPox*=_MXbY@! z%UD`PCVUb9?>i&c!?o?{?pUSvA6BK3+K1Z5vo_={B2n1%1Ye>(nS=uQSvmWbV%G@- z-?|J*lL(1Dp+FR?q6QKkgc+_aJ#&4cbT4rFDxhQwXXGUBm)GLp0U0s14jSqAziT`> z^BwdNy>0?I1s;q9A#6yWQT#!+TIXn)o?9(5)Az8xFaRH=QQ?zsP-5XyL8#fD-oF$c z)%dJwY;PYwLkkBM`!@i>Lmg32z?nf?29h4;i!`etA;Eq~G=@0Q)hJJemY_|h4>s3#&L66ZN zhLMrmiUn2-uU-9U(3jnhb%LzxnjD3jxYv$4-eHcF=+?feHm1*CcuxseNlAGVmT0~g zq8g?q@OZPX-S)_pJxMSINh_HEDRH91bBz-}&e&rL4TyM`q4^8DGsm&ghUjY3G6@CF zM?83%hlBDXdmsnEP1jEtT%k5#n^Ci$00qMhfG}}?dbs{(lbN0U)}w>eoxd;pVFw!6b$tXXe=1AW`@} zGy0lz!v4u>ZCjKcUU@9RDhZW+ERRHH2ib58T(#^!6M6$P&n{f4){9QC_ zOTFQ2{3gc3W0;R`5Tz7PG9Qq}eR0j?iLv0c(&ll+P>Z(}h?un>d0^770X7UcXcpNSkWPGZL)3DnR)h#dhwPg2RpX#T!?`e9xE1;>FkA@`k-{5(9ec+f$I-j zk)3pmD}j;A&=fxtlqfi9TZ;Mnockzl1l64(4u(hnGCqLWW$*NdV{UJJ#NZ|4@l{J} zLuhIyG(Dm~7J8aiQf+X2c8}+nFCqxWQkVRGv9ja4G!S zTE5b0Y&xFacW$vA~+7|0)GP2lr*ULUP`QY1$NGRcAS zE3YD@M1e+Y4StBe+oTqx-vOQo;Mr=M1rm}Y6*4vOdiSz3B8zk% z9g$X4)HgQv0LukX*KKZ^Jd26(AbA^|CNJP61P$j9IPN)6QAc(?UXlzm>}+jsm(JOC zdkrF!yZIzBR~v-n-hRnK(G*#xFow)r^%t=&7snFUrTS66KgQ+|OdxWBh}R2T}HNES3sI*1Zw@w05WESbP}-VE`yTcVg$ z?AJ;kIXCjgE?Wl~Gg%{lD0Ot*-3Y4W7i?k3FJjBV^Y__Ds)jN%sXINXCIZYb?n_?@ z4#8_7JG_R5OmdVvu_H31u8o#n+a9AZAL~A;yP>F$=`@H`pL(({M&xjQd>>={5P02H zA4oni_ypHm9HOuOkse}R5|Aan;~=`RkoG0_X?LY_tlEnYv1rKNQos*W1{u+i0tY=V z{?T{S=q@y(HhJ|?PSUh8rCiCxqrRe|z@l7j$(Vih9jT4DMQjm{y*8wp*_p zR#`Lcw?mR>?z(?SafTp=F2owL(G!JJ)KOlh_4Ecwbza^p5>2YT!mLDm<0Wh&xNM{o z%ARe~rhM7cyIJ*h${P**wyZ>1=L6fXS{j;yk39rD&yr+|18BxnEjb}S*zmbA!(|9! zYv~A>m{&jy6+@EII zpx!Rz2O}Y%>I=d~7OB|Pro*LsGxkirRHbBwO7P)=G;t(Jw>I^WDHxHFkr7~MPJaG! zeh6OPHTivV9FaP)%#38l)tQ1|M)Svk_gqI^Q!7QdBjU+cJfWrEdw`HG0)cmej$;md1llyeq z_2jz4me=k3XxweUB3x4gfpZwR{xp1_O0JW2I(zJcFZSO=4?a0}%nxnh3@V66W=l9W zqIo@fnnc!dNwZ-3&->}ZF;kE9D!)bU;OgTBnodj)Vd4wa`;#lq$Gv1!PG$C_3TgT& zN@X46{sQti#4ldIIvzq!6%midJd}OQ9^bW>$v0S|q$MN0?90<;1|Gl|rm^z#N&Pr> z9cqy%ae^Uvv-pFW0n}#S?I|EV|u)N}vJm z7@CGi3a-s z$*8JMv8b}v&)@?bhA*{ZO$!pUYM{q-18-XI=@6`zWrKo+xfNNY-|c|4LB~r^Gy%pm zgZu;Hn^J6Qse}!`+vC8M(BJ_*L1OUB{B8G0(rWB-gn)G(Ow>R?f&ljn(BB6e5d6;x zo!P& z{ngN{Mj?yQI1AFz*pU{qT9>ucQ6<5&-oQpzge_ZLIeC0KUf6Bf$A}6xwuHE_M7L8X zX@mn1fYJAe{E7bcKYepv+!bmP=ehC;kfOO>xx2yoD4Ujy;t5*UdiTM6i!m@ zooyqP`}zpa!6~|=MV1XtX9>j2UoW6WsIWR;zQoh5E#YXoqq^CB7;<_|s3^S?(o@Bs zS2UJ(mDIMt+39N*8T3L)1G4q#SW@29Tr<*l!$xu!;kffNfkrrztSJ0WaiZ&<)nr)k{oIXn29MBJ7Ma~bnGtMoPYvLCzd-i9zBQ4V zR&v|BqtU2a|Ma9{{nsRWJvF-8grjNx^Pf7lp|kT8cdU62T~n4W>x&(R$1p>zR+d45 zWC==nLtN$LG6DjRlYLJ;>|urkB`Ah!!epjvBoE;mfI&O=5ILTaT$T;zF zAA>~Ko~x=x`<|EDz8lARtc}gF+e1Z82tX52AV2jUZ4KFMxxW*-L*V`4aOHb@fe;!K zTB)Z0D8j}9FvW{&4U}nu z1VrNB6iKA$5+s?R3C3T_rTl~?p`(!jGoMZy)~w8$)8&^O$`4+BvoOzSBzQhrw`kHA zs9hu6p(~~43>4fk>&n%?(F4$CUwzimp^c#A;^qPzVSvN*>kBLm>cO0WxvfvkqKoD7 zpxcY4o}a%dwC8g<+p}{0N~_`|H#kb1R^o43Hg3uRjL%+C)bHH!&ny&MJ_9d;RUEY3 z4ntKRLEo4crJh8u&`2% zsDY3164n2BijS8(0#fpNSc4%sVDhI@`Z%Thn4z~#@Nb#OFb2F_MbT%(aqzA^PWr01S!he>F7 zbzs`DTwA0*nRZ%EUNby?rlfp}1(8M-X0aity>8Ijc~J*>sMH47%$s}smwMAbFa&1_stVIzWj7rUYJ;? zVU7N4>-!H!#yQ&}jr>eP93~R`UUg-4qJhEp;fP2Xjr!e0&Y=aLV=fduJdHnr8eKMl z$)iaIaV>)7GI|X~XwkZ`d0ekF$U3oM}L2PAKy{+ z=z^eCyZ-5E^jBnp8@n^5pmNflrH%qIDf%!%cA^XS`way9zf^JotY>i_39$GurQV11 z35w>lO{HNBB=~a>J9xSD+8NI5V@X2@K1fx;xamGs-iVCrv&vB4LkL@zM3bqVsNS~N zFH$`81Oc)7FU!yBISQqL@6(m(lIh>PGmQx)8;{$hoUPR}vOT6rfKK!AOFaV__Fg}% z{yPKzmPo|8W*aMp(GYE=tF;Zy>gB&#PvZ!7<{CK~;b~0s+FswTovT>WcE6xiwL)oh z;R4Qv$FebVSh13x0RR?iHb{4-Nu}h?9>PRpAE84cm`%#PuOU)-g;D!5P#`)ek&k? zt*`N0l--_nXO)M`o@BC;7^guqSbc1>C-6CV92+z@LAu{#fnrv21D=G&g>&lchC@lq zqS?gHLUza-fmFzZ?8X=+Az_-C{{G$L+O{6*)%_Y zP?To)eoE$h7562p6dwbuRp0We%9<=bvL!bUJ^ed=f7F8Dw zzXy}5u@&wVjv)D8v@g*$6duHB6Y0Sd(WC!$*jTa;y+Z_FLq&y9NP_yzyW|S`4vs8X z=<~{quVnTZL}$;OJ{p$ zCoJ+DD`#7Y`3+sl*|2P{^;QuTPeoJ-y=tX|Y%yYBPuOX{DU4{f#e#SC9EoJ8c&YQ5 z{uG%(8WCl<`+79@oaWOD(&eYLx&8BgUqR(ggD9yha7xQaF&p)v$B* z+#`wD&&sUw;mYO04Vs2qcN;^@B6O?G%3fdq>p%)rtWN`y4u@IeE0Qz%qa{B&EX64$RBvhMu2vj8V|1&X?47sney7N*^ zJY(laW(vHhtGV7>-e(WDbYJR>n#c-o2r{^7NCWTD3M)GmB3mjw@Z||ol&aU_5QGFA zFYIJYqEKve1g~UWeQRJBDe#vL6Aevxli0Uat)&%dkRF@cj5&3J7tC`O?r%8Rd)VOS z>KV*W%m69B?eTrsk%QF77^|mEc*XtL&-m82;Ay2@IfC4czs+`6jZ^bAE?U4RDUTkK z|K4~Y;r8*$Im5KI#dkWx{;54wyN2UZ6e>pRBDrB4?l!d!1Rg!vn*IXtP|u(=Uzu_V zkv${g(&vyQSl5S|XV=%^wW=ATlt>FE&r=RuZgF!5xRYzN1UFgac8WJm!g;Xp*#n{_ zqa_PN)_K4%&GAIOaOOC_f-j^3hXJE5?xV2??#%_*diGI--0{F`IB(G^B3(d0OplcQ?hw_~ra2R<*HG;@@^>%}6^Iwo^4-#{yr(z?rdcTMTrt3uM@D5V&3T+Us=w8`#z!z3+ZOjm!{FMnQ{F zLPO>L`f($=iJs2l_FrNtX)alVwE7YG8gc@f1T<|mDd6CIa;a%bM(*d+$u3oEA$`2M zC`Qi@XV9*@bLLgt-2cj5{2Ybwurc#o;4tbVLnSs8TRaWz`*2}V@7=La>SaZ^tgLj( zCN&w9f;?s>aagVX>J_95r8zY{Wq#Hn{q}5bU`+TbGifx1Fn4TrL{btcxI8^ye`r$> z%+KH^dp{e~Md`Sz~5=?#Fb!Xt@0<>bu4mpzp^c|5#VI&Ih)~ae;@Re2^ zSiD9Y?`XXBVk@jRpDOkie?D!v4 zNuFdRNJJhNRoocy-a^A=-h!3`I{fcCF2#nUdhI{z%Fv6r@n;}G@Le}`>RA5%KhfA0 z&1&V^S%0SsTH?czO@|kT+Ng%_U87xr?)x-O?W@r*XqL)ElaktO*8!#Ma-HYYq5tS2Oh zR4I=;jQquqzA{ZVY;V5Z*(P$r5Mzyu41RMt!(nZ(cFR_h&ylI{74|V3=eW}&aLL(f zRkkP$*Lo8fLMfhc#^R#|-((q3bGh>zltXa6-FLM?OWh{vvT%8^i@+eGJOQD|;SgWv zfyQj7%k>m|l;{4UrUq_n&5o$;T6Th{v?y!7nHTapRE>sfl4IWx|FT=pCUtFk>y)qL`T!`)(>ybu(u>>b~|4lD6yk`Qqwog81Oe z@z=JF0maAFApwsIx1OnLRmnt zMD9R`PmNm0%zec*Kc`*1(9xYU`4xk-HJ!FmjIZOxJ*&cyaZsP9wqwb#SA_~2^U*}zB{9&B`wm0#4JAFl#r&-9u!S~Bv{BISdrMorDWWBG_v zimRt50QinfPGbGCbf$;`OQu^d9}zE2-PCkCNp&o^8!F+Hl+s1-L+Y$s$|*~vmi8m@ zFzLDX6Uy^qlYt7`iXdk^-#KY-KPUuZjKd;38elDMz6^_4R0(67ZEVP5pxl}x}Z;9dERD0R4+DzY*zWFG19V(HUo&L7K%9qRpNv|>?K zuIY`T9HOs5HXKJafyn-D&&zQ|m+2&hZobDmI^I93iZ)c;Ry~S-G)IE{E6(gI_25)t)uuo$DSYZw(yd>uD(a z5K`=!!0&YC4`&gUt&RR2&JIGw0SydVOl*o9eAC%PK4YE{!Sn)CrBFlBj5m=kZ{@gP znElo(=GWy*CmrfAsvv-pWXrJl$h4I%ul#Xz+X+|3Od!W@`3L|zij}F8Ddm-~Y)c&{ z_2&xp)1xG*I`7ZqB-cp+pu^#o4-9<3oOQcEuJRY9Y@TvW{yq&YZE2RCQ}}w?(h{J^ zqb@0c@7n*zGCDgO4}%xw!z4vDF7JC;9$x-pWpBKtakg{B!9;rXDpryYJXU(-l?NzDW%%NfhjJ>t>YElSOht2nlto>RZh^I~Pep=CVq`75`77ypHsF}=|n zE_e^u(w0gw0bINQw`6}cY~;Dd4g$6WlXTPi7J`M5&lBl=GiREC+Z-!|Ef(%kJ9R^c z4yJA6766t99##00DdF)Z``OsP?oacFO=Ra=z1sY|S@2DaproSr+QPp$LlBx7?(ZX! z{^g67?FO;+8$=bOCF}+r`yOL)DnDBg@_&d#_?8ZkO_@7I=_kO) zMKW8(nkAXHJJ#?>7)xLC%}-u6k_%);nq-j;N2k6QHAN2d(}Ck^aN_)Wbl=xL5n zFI;KSy9D`Yr-=KNDXK;1UuU4awXr-us?=)N4P3mxQxoT7VG7fyFhBM3rlEZIU2pY3 zh{cCCaJ^F4_4aYhr*P$amDjB^{BVh~fTzCq#TNAdvYOg3K2reeujvN)WYa>?hO`u- z=MSVRo^hsG)REBe=A8?IC`nvdiL+pcZratW*q9jQLt_mi7!eo}PN^o7Jyw#PbR2i4 zep#NOuh~DDH|ttm-uCY8HksB__P=gc{!Q+zhx8gz?wCr&4?JLUE_{K`2BKi6Q3vz3~?g$mlOy!nn`NB06{KP1DnD76?LuOHe@13l73ef(7&NN5Zeh!r95n^@3%9DPnDXGRjyB z${?V=04pb8CvCI=@aO#8OdS?S^3iA9ZMEu^fbI0=&mZtJ5zPnHf3b4;{hMR`Z-4Pj zP6ahI+<8@WnD2De6GwmVnzRgAztvMO8? zQbj~pC^;Fa=Tf1TqGN=96UNI6M&Q&rIkIA;D@yY|-bLTmjjFALii$)S8^VY52VIY? z>va_CM?zJaSN7Hktu9P)EIXxl=07V5OJLoOHRhqipf1QSYMFTZ9OrR4_ z=syQT^rW}RZzXGDqE?uE%wBP~=`4R`HtTv?{9u$mezw>xOeup~@L4p4I-r|2Lix7K zkX|U)R(^y(Q_CvIp!@4ec5KV|)XVfO*<`EP#+{e{$X`ShBW`L2Pn*l{-)C*@Vf;5- zw#PmKPFyqu@saF%a7%1H4R)G0~p&?vZ3UADCdj!L&<7VNMxZWED{WoyW3QDO>M7aAUa73mE zm19tW*zaK{O{8L+6kzKq$r!u+aM&G(97qpNVcHonsfozbT378`Co8wR_|f9OJrMsp zK>icg?lqjc)}!6o=&e;v`RN$^Rk|!{pa!NXmhoHPKZZ*Itzoz4pPKCM(G(MJPo=KA zE3oNITU`>+c*D_Y-us+PzEn?Et==nqohemK8o%5f>ue}Pk@fPkRf=8i(fL3ArW*yk zBGygs{`lA`bF?)laap?ZQFUAjW5OV5wc?t!+_xAfqOpvO^rpoPRkhBy&|Dk&`7$v{ z>=AKnc8l&Y@r1GYpc+ONb2>)ZR$ekvQU@=GVRKm4^&beB|9KnX!Owa4JW@ zloYcQU9(~)FYVW^@o>FvlPb5S_=z?){u+wYkt0>CS)^V|IfCv_oM(ZN!%Zav{j%hP z(#LwU3x9m^tTLKLWaq^ENzNDrabe)nP`*-J(AI!}MkFbmhEBfJNI_9cK3jF(f=Av4 zk$6IlWN34`P-^4c{aMBYjRsA^aK zqQk|=%FR8$*i`|V3Lu9D^0IgTmI(70BYFo10jCaW$eu??h!(R?;^}5>4UwWhfXR#i zwY7#y26E})9UpEsDLxj0s$tr0{Vlb+&m?+dvmyK8ow1c5BZZlLOO%(p&wEdSJJJC1 z&(F>r?lvM|mxn`VwL&smG#B$k!f|x$96vD6xAg=}A^T8CO@%iy((I0O`vILaCC|)h$#IC`-%QLH@o`AQkThn|x1Ou9@ozt0>59h0 zt0#$?3Ukg6Gf7s#So2BMlhRNYmm(8 zx;-bR6Bdy{5LPxO4}i)ba487;716P>P|=Q@^X5U|rwNOC6%b?DG;K9KIGy*tpd;E1fa$^#w4Wx#i`JzE^^4^Q$v0*gkJ15>$jV zXV>rBB}h;RO2ogZ=BZ9{G}7{1p~*l#w+OVfEBL~;*6x#d5ar+$ML`ZGUr1}AX!HfT z{~b>JY>v@nk_pqmQbj4SlHMEzl6?oK`>4pHXFA;5OiQX*KN@YW$VyB08{bo#;h|CW zfZ-0lx)Uh19;EaV;EX&*k@j7IaiZ$PCRJJTlro=h5xFbyWQ!pNm@QuDAK(TH93hFS ztv{w1ce8A9ae}D=$R!g{ZnY8A)bLS}gA0O_XEbzd)=&ijaVvfM+qZPn6@GpTGOl-I z#MZVtVrpv39&!M-#YTdK9^jXpj0eCk|ACV{J&8Z4yxH6a(c8cjtXmdfOufPsSfk1i zi4?ldV?n4lqa0d#>HPcmZxCd$d2xZOrUs$|p)wGM77~E{8m=4v{TrOwU6jlEO@?t3 ze{?rCB%MiX7Nq6PH&QOuwg0r57gHbjY|o5TmBL3Fewav5X}Gg*z_GLlHkcgu{b#ZK!F`dx5) zxX1=q*aP%%;2#&N;J!p6Fo_MHTRoaSrKMX_!V<}2$g#dT5zdpI{#oXm-J;$LMDX%) zQ=sD%;ZiQ<=M{+|!S(IEtJN|3;4feS=i-DSe`_~QH7(defAX3zJ?uNc2OdROXZ-t> zv1hItLtG2@Db!bWKXk5I$2#i9ZMIr8{AG%j4NQvt$rg=)zW0^T{j;&U|I*fl9#3Nl zu?DNEzmUsdTz57P=}!&iM5W0Oma&_Mh<-Dsl(F;jlCGUC)U>U0Jx5(w&{Ex+d@T}ZuJ?V)Ir~?GT0z<9^eV;h)Mp!30swvK*>}~W!W4^%RczUbDpS2s{p4nB zltFVeKJ-c@7&;@3zu(g%Qc+iw9%LX5#?@d8H|LT|Zl|R7Rzqpm#nb$C&+jb^Hg-0M zdS_V4Zje$1_0ktTY$_Ed{4hk6*-S_%LJV;nhkOwah1u3LCm{ySzST=rz-Qw%6UZ*Y zP;`I2^b>4f$WvMB8XG0smbMZVeZ=bLHzv53CDD5NLhk_T&y>S9A7k@Q5Pw?-6n`N~ znn|%%4Ma+~(_fk_nikF<8wY_F5g0vQ;6$j(SUxLSBaYK#BqbwDgm2>?tR7spXvb() z4}uF3T!ElN1XSN-+0EdFB%Cbf)X@5zLzBj{u^Uu9e1ZA}lj^P1_fIB-=bJ+{YYUOo z1TtgN34Y>~c<$J4Md>?cp;R%bT>i>p37iEy;&?c3m^~*@+kRc}4RLvS{2ctX*Dv~^ zzK5LLmSHDh$o05NKQ1L(=;odtNf8^**;s-mBYJ9+V9C+l*(^ERa@0_8=jQ&bM+LDV zrpN-S6cpwiC0)=Rb$xVT7{ABp>-H2^XyErLDPApE96Bscmow2yf5UC7Ya}s=raY$5 zc;3+5E*|_H7JpxGULDtrxU@pmsUC7yr>k~#e8A{ff}mS5SwDWHOeUoa(IBz_{{-zQ`Fx}5dKpJg&B;^ zs%MM<0_xA@`>UEmLjqLLZy(n`??!{aIu(coTt?>9|EN3C3EkP(Sdjyizbw6dhCjxe zBm;jmly_)vk1ydPct%PW4h6JPNHncea7d(5RZ@UPpi{#e0?IUi5S ze8yLM1cSYTy%bhwRs{MkX;ep1yjV6y61gHu>N-39*ZID~;XH!-%GJs4&et@wQr^8& zv>4O{-9sN=223fA4R*#>L8WC!f$N+p8>xnSKWR)NN;_vz_N^HF^$;6)6Bimaw6w&~ zdcfKlMwCy7@yjyCv|dIq_rF~LXtmO$?p|#j2@wHJV{&qG%c|HOViJ72#pRF)95GPf z&y*@!G-!fj3C6EA`^pT(e?|a7+V_6Q*BF=x4i9aDumPqBkhTCBFq7LBfQmn01S1BE zQZz9C{2t6I)oS_^|91vdCNh0(tOQv@`?qjs`&Q~*9SahCY_=VK;p_Vs1aO3vl-^JJ6O`?Lx#VHc3*p&#tPi(3JHbcX}w^(n6Vb(c;PF z$Z1JWjeD~jFkBmd9G@B^k_ifk)7Pw`LLw+W76%z~^+Z@Nw{?tE8;;6f1)xEOU+w+B z79hVfZGy#z{yc4#I^11G+yC$wZ>6m0zApbkene^prmCi6%}gi<+t+(%D?c_4w=Nv# zDmnNg5*Ogmp!xTz`V(N^^|3bJ{Uc6_zyq@<^9Duw6tHP_2elIMKI5?Rxc=OFf%oX+ zqgVmCskis*vC%}9H}Tj&%g^LMs92(%tLCXF`tZ0k4Hxsyz7SDg!S%kYxzTNiA7ayZ3%`_glwlixfSFaF1F;~ z=Qtd`DSOh47$U4xX&&XlI!x<4f!3@2?x+nkqwU>fKtc8*?x7-3ANBj#pCLW9KRPbg zBWou8<(s~GG`K!XUB#6*MqvaZFcwBRKY6AElj`RJdFy?NlX1eo;*FDe&~TK|dXg%L z9L(C91pUo9=1;7VoHU-`3c!8U83oHkRG&g zv3k?QrJ^sG-UIIvkfi?=ju*^&!e)Xlfm~KEDCBj>nPFLBc{v?OIu!Vq@MI40tIOHOyHZ6Nai=Gm4xQ<&^2box?R#3N-Puw@THqEy-_T3Jki27?Q z^^I2|cZL>V^bSAYqIOWD)T1j^j_MRAk-?30#wg}1Q3EbooMEh(b?hNF&_8ZCxc@oi z+CH2tuq~v+5W${4blG)&4v69r1C*DVuRqKHRS1|g0E~Y3!`(HQ!F|$o57uh>Vz9sk z%6El0xe<+W6MfAB7oF5yCs|-=(X0j}8lV9Kk_o0ULlA8W=mZXjntxPux6q%lm=l=w zmzdP4aAnk2d1qC3jClnd2&W~7*H?^v`WEp-|F?ZH!hL@I)BI5raR6GpbU$S#8pP3} z&zLz1Ay%>Eg5;F}*UTk0pv8ybwrHn*h(` zt|TaWKhN?CP8f{A!Ht}cjZE4Q;O}{##{IORST?zGmpH_w*sAi~s!hCx97_y>kb*W} zwc&QBj)QdKzak*e^GTM6RN4c}Z_1HQ8o}0v)2$H82W^V|8otbV6+*$Dv?CULiK_ z#l=CB%TmG~B{J@GV0T=9CvV1;Qa;1?e(hp|UTKFdJ1WkkC%PjOwD%zoICrtRc0S7# zVG!7a@XSkO_A4hz+yQy(&}7L(IvkSRMl_>v!*ZZaRpj&x9?i7%ioNzdF>9_Fo3_t1 z@D(O0?ND2}2L5STl>2Sbe+fl)>x0!2>9Cl**?okmeV5w}{I0(jH-4-7^7$Yo88*MH zG4K`nwteJwfUPxut$A{B|F=kjF|hNf%!>Wu#8fe?=qJb!`HNbXAy4qHOp{NNgOH!+ zOTe*|n{K~34;9*KyJOEEOQadt$o4rX!S$!M*VY2QG;tqu&Tbz#hwIi3)dy06-a!U2 zXB#r$UNWN!vNIQz2gXh;&KyM^L4Q0Z9n>Gb@0kfpg2j4y;7;#-I1LKNmo?7_z{auv`&EVIY;fXN5))pJ z)b%U0D2NX>)d+k1$1t(yAH>@|uW2USX^+Pqf__i+;nT#kO5?s{!HPqQt(Nr{>bk?A zCXYv?q%f$^91QWu=We^mbVqO-*xWYuMf$XVO+3JjxVZV+6E!PcTQ4P^*{o5c1fxBU zvt1ra?x{;d$sz+sXPxH^?NcTFrpjRN+T65-OA`I0<47zbk6heCza%*1)#+u@?nD<$3L5Wu{eB zHV&5l*w-GS=+>qv@LB+ictT%B5UW zdu?j3#_FcFvD)TpJGE`DU2U(cZLeN!Yt@(c;5*4d&hq5<-1l|;Ilnz=JKy!x1xZ2NMxLa4aG*%?~50JX+JkshdTt$M3ui)XU;<-=^-+PJ&B zb|A7={EyTFeHI&H3!5uv+<$E0`Dqh>&FlDue)&u=ri$F1VANOt{RT)-=%pNqBG8li zdH((4F*_rfB9T*fv&0_fH;UyUvcnnfRnk1-#at1}?lpabl*F9;OGcDx$LE*RV^ElqMT$t@<#hjD68*F5 z_2wU8>vK%+m#37<9r8U`22vOzx4HZvCM>Fc_f$&A451&>w!wgpVs!OPN;LB%zeu~Y zNn=m6ed99uYGImoKp;oYi7O7XU`-GJ?e-xRY*#!v4GBt#ZMfwlL3Ckgg-R2oFuy;W z=v3hj4Gn>fxNVzSTcM3 z2WKXN&!?LFU%iIMU51zBPNhGsJ0&#obKBc}A#LIHxR1Z`kn2(|Ud=L8)C)6-n_I+R zr{4(+y5cBRDsO0WikXhHB*}4dnjw!c`>WJKjLH6EFbq@+vD)Hr1GQo_w6!7CUd~LQn~m8% z+LAB@|EcetV_RmfSvqC#mPZ^MtC5#I>OrY7*r(}tdg*PSWPD4c)W+xUck0AAXdPE= z9kuU1ix(d52ZY2!df|-&D}(XEmJA_mU6Zj9&zvE?M_g9lFl%hdC-HI_4C?B{&2stix^Df`?0^Mxt` z2e1f~L&$K(^w}08f4a+!a-;?#p!|1>xv5*^GN+j9QxH*y^+4SxFCvF+cY;9{tj8H5&0i3=sRj}&{;oFXK z#6u`)IZ&ri^CCCTg&U+=9BR`nt?!3|tEpynE@y=8_RPz_V|N%oa1*UScS`8=4i!Q` zIgQn3sL6_m+urfvd|hqd+5SVGS=yafj(I}_RB7ndwQ1aAVE)-4wk9*nmmul!ns7`% zuWHjwW$`+5GQ=qL)rGxwa`AZY*OgiQBF>iIGZ6R#ISg~SUTR41gIdf7563@L91P<= zNYaTSsnf~$Hv2b!CJ_;>xc)u*gjMX}w;@>~7C?O!Fgk~q$M@(|oD;a8oAU9HPrp!3 zV_^fuPKy|jagkcMnK<&3ey2&=8OzfstNRFjfJY`b$8>!7Lx=!fFYn%fMN+-WW+By3 zo{m#KUtw@QdkI4R)m23vHp+H;Oz56^Cl&D$RJ#l&ddL;l8sui8S!# z8t?N=m!&E*w&#U+jmybD(q9LOOH6;Nuzs~Zu->)z+qfGXbor3V%a;Hi9v%pyy}(WZ zJ26LYlf1lNMODp?C+3$P{%vseNvEwTBu&JqV~aw}LkfiQyeHUmJW(aF22H{c4stg zcFVjb9v&X3RywQ*X}~x^!Ubo2bjGsOUL@1L-bEhTJb5n%Tci8vPj71z~Zs~KuHDlnZAImZzmj0*r(`|qPebK-~lvD?O-yn3WCa^5=(lg z*9~=ieUksv3WX?RFOS3=N9Pslgp?8}@8Z`RV#?Z@o1zq5BXWF5c4r{F{_2mlMnV1o`@;1Ueh}sW_#~2HdMkX(ZP5CoD;tsSU@`w9u^yirk3!C&y+C z6F&LC%ncWmBPN38taFOW5N)!)*`93_>Xc)FF$R$aR7jSRSjS;cva;|~CwG1*T7D)W zt3XbXiSViJRm#dgLC{!qTVDRtm&fZd8LiS5R($w!dhprN{~ajwZzc{(2<*Rf4vajp z-ZL^KjAFiYpLVUd5U-@{KXqiW)EQBIz|`#@FJ@DvOHolzQRUPtq9e)*_e<|?FP-?= zp|)TSZ3-xHCQp*aq;wylOk{4>)dzHYKR4FJQiM%J)I5J-Z(VSRQ})|D%Dr(B{l;0-KteO4N#)QfFw({Y%^e z=%xhmQHO7Qcs1~z^uzHrM`V{G6m=!NtaEmK1pQ4E47e4Zb+Xvc-H5GgHeGMIpH{n3 zu|!MADj<)cAFZV@BMiE&Jv;?VH~xsGqXMx;=oekiFJhO^sf;2W6hUzYq$UG|v$WrD z!7%hXTwY<`-bm~Eu-%^5(K=?98CaqHi>WjE|390*K}b{wbIQWPe4Z3IW_w z_av*F0B$m{uAhi-`MgrTtA|}~^I1|mVd_aLO4HY;>c48w-W3k3e19~^0oAyj_IMf0 zf9;3T6{vllZ|SD;{AB^LGnW0EKKBIAQKgrk-w%g&&GI%3hxhN9`(~&Q@JxOVHncU3 z9cfQ^@Rc~BAAO${*9g07LTh$+xblDNi)VSO9ZAc358U*9^WIOQJF&6JCizS*UW|{r zvc7pR<9*?D(c@cb^Z0K>)932$!t?5w*XG2RYe{k~(FTfuIXz4YT3A^4+}yGztsn`# zSmudzZ@t{6TXX%eB4lP}ri&DWD#zrg(ZpHv%LNW-4#t^nOgZEZ&}Nr*OaA)!hzR7- zG~$rd=yw&`Z#l1h$wCMVMhgpuIXRK;UJei7$Q;MkjWuv~6QmxKO`b6opES>9C9Go4 zm{?xXvhcQugZ_3X68m&N05i#pjvm*_Be4C}rAFlK?A!}2j*0s$v>(OtOKWkn+1DwC zRrNAY_9tg|@tlGAS|F5@OV=D6}k@gmL5lJfW#(9x#mJ2>XpYS%th5 z&*#N5?JH3&<4LVhwM(tUetx!|K90=H4@z zvnJa)X6y4*yr$k;JHMKfRxvaWh_?4(i zhx5Na{gM%PCf46>t}m%br&b1dOF2BYd3ih(a)}nXmsZ-kWL2RtfiHCGT_Ynitgj-{ z$&t|K+_KiyGISHH`Evfyy?-*~zjb<=JgVU7|4f?a^CDK9JZ{0Bj7y6YB4uI&-9UN$ zTp{kUF)>Vo2de1k=*!Er!#A#`<-?8JFQ!3N)?AWe|2#*0_)XHKo84Q=f4YP;9P(SR zWw~$=sNQoyEkoOTW2%)E3C_Rs4HAiBl3_nn?pV#r-@j#-=Bg(9oC ztpD4=`{2q70hCWOxVk-JhenOkMFv6P)C9Vb?$_1ss}Y*K|9FYc2Y$bobc5GpO=yB1 zdidD%d(KyP9$wzXQq2Z$mY0CP1vOm*4*%6hUBz?ZoHTH>gW2miP5SqFG z4-!{aT9xY0zZRT?W1}c+h2qC&H+aj3!V+vrfq-2&=`xaVnkgQBA8GA<0BE%%tADzW zJGH0w_h7$*Ag|EDVigJVkV|L7>FLHG{y?q4w0Fr!6eH3ZiikiK+b^Dj%RQ7>{a>Il z1e)-`&9{4(NXDVBBT>QZzy2K~^lhg@Lkb0-cEt+ab+hGZZ=%;HfCP??UL#5mS`0XF zRhG%3Qh^5FnY|t_$^D;O-XnI3P;&V_BQX}2=D=dOqNV2e#m+XmF5NelK3|BH`4_bV1YkK5t>_)zOMT{pBu)br{u0@RWV z73+ir2gB)idWZnZTh5`fXDF34_H4ECOMZ?qr3wlj&*-@L_`FE`$YcK7RXusvUVFBh zt^2Kgv1-6B?t*XbWY8xo$?t5g(b<0~w8r7oyPh^MxiyBIOzo$1&WCVLAJ6Y2T9pM+ zY$L^k!iqgzXPoEJDu)lPK|=gOB_Oe~c~?f&Kz_t#l!-Xf^b+KSZl5=*I{aC%H~^Lk zJS%{g@Sn9`0Mq*QB2Q@09BzLDBO!hKw?`PVs^IgLo_$8L#oL5tII%XgWC4jzCfX5q z$Apvi+!VaTmVo4n=z?+kP0; zV?w0)pvh>!URx=;97Qgx+fG&}1Y_*p#*SsNxw5e8;p|>P-sA^smm+$h6K+zPWe#iZ z!eJ#P12S|~`{UWjto6;{M?FrG*XYV)Hk7Y2^@?ysPoi^kxN!1#Oce5Y^S*c36tNkB zisTWUg*hTO{hmIOZoHB!wq!_Vf)V8!p)-1_#4oOP>Cnr2o^dE)tP(p7rG(L9=c(&_* z_P6`OZSC#s`Igj-o?<43ZVi#ZA@NX19beEA;E_=;Cp<%q0sdtD)0*V z;F-I_LLzSac>C(>Je%GPeO2ppEl%MxAhdMxy(Xt2&qOwBOxpS8ij+uz@_T_zQ_f#_ zbE5HWT1t7_>WBS33*V`FrSe27Kl z+Nn;wBy&6?XRDuhI$DLTdN$6UZBN%=RGr_qC9zlH=WgiI(oB3T(-lZ;Y&uRiH_Uy% zNAVLCsttO7`dru6Jh1n~>)&wLztc4o_4{amSH>LrrxwUdr{dY3tr@$x1P>~tPwu~* z*1U(ss6gWnWxe1;rs6D_KjGV--$2PDxvs5+mGql(Gdq{?oGyW6m0NFLzqgw_7eBY& zgYH)n$r^p}fs`Caow zeRO+uT7NtAV&_a9P>lTuTX~xIN%Ffe^$0KN~aoRC?`&Sf)QS5WV;`fR= z^G%XYOkLaSRnW~Vu#11^;%)9d6vW&0{=W1>PF@;=V5aoGs35b@c0y6`3Ff5O=W^*I znu*LLgDfMb6!gVP?hG~VzvUnWFF%3-8LGIr|8U+B3bv_XD7 zh#$FJ7+yrT@{arPeti{_v>1VmF$gUIzt1L0nvb^l3%mm}S;e9_LIpUvS;7e?rja(^ zwZ2OAICgG=ibf?xa=3ZrLA}c)nrsK>X*87Z2#YPw{wfniSI#2(2j`6p865%Y;_}8C z^+gKmz6)Y-P6?cn3>3f7YlbFD5lsXD=M%05sG6&X*+({VyiNJ)7g-3ZQ!Lr@X%`P4 z*cK7LJ+7iLn46oywxrp%G zg@_A|d<^~Wn81BI2Gh4q2<^}=Zzw4`+(Up)xc`xNlAryCmlR2F{_eqKoe)KHwZud3 z7`L7@10iy<)~2qpKYz@fvt=6U>ckTshS?`-4Q3f+M(g{%6u0g)JnYKlPl!8W;MxsX zC8(1|W(%qc`_vEI)-TroT`W8~=>b}wZ;m@pQ{h*7$^WkfIBqo2TRJsNsj1~VSe24{ z7CHhQW;tFPq$1H_-Dm;gGYRM_pRM_ea5F~{LR0`3v}UFqd37y=^#dD8MK0#b#zZ25 zv{t9l2{X2LsGr;s(+8Xs<0g@w;;nF$2DgZ!uF&9cJQ}+@)V}|_-U_)P)HMeP2G!6} zL9G9)o-iZ;y}dTLC=gj9i|f`Vp`p)>KW^uIv&B6k#ldYm495n7cb%*79FVy-mfy|i zF58LC@eo3$aj$Dewcd{wCqiBEepI&((0d&+Z>;N#ox{47;LhuTSBY~a`=ua;^{Cn5 z_(1sR#NCY2v>&?FC{*OAGo!$(bbb@NRuTPF(^3#i7F7dxNWh3QGc}@(clw*%XaZ=| zBHOS(I zH5SW@YPp@-#U(yywPSU+shD^4x2%_hvW@tT0HVD1E!4Yd{^bwYg23KBV#cJ=+}kD! zdg@PBP#&z;%ZF>x^JW(;{&cIJ>zQ1m=6W-Ffh*eY0ctaBF zPucUPSUq!{4eP4rG-?XQH3BP7zJCj?yMLj;)+RhG$xY=8?mUD>eumq2 z^&!OF@XjNjunAL`hH+u8dN5mXN~R@+%0!9Yqtf(>A(f7_5 zUF{K1gCc-LPqaDS@vh$k!;R(TC+x`VMr72x%qrD)BLgAIHNuiHH|RL< zzwFD*UBKA4AH@)Z$yF?iZ%t(=bn`REGZt{rd){(BuK8WUh|&=Utu+4a`6Ogi>zUDBvWD&gO%umC^mhuHIL+vAUv1kt&kYb29)`D#dh4!54g zBHxOJd)wDRYq+5EHR}VJIgTa1wS~*;<4#*{S3N<|2f>cb8nMlFo5twp7CMvlW3H-)L?4CL!SfSPw z`)5ORgHC?x+mAfJ88%R*WOx`kn*W_+lIw2_GUjEqC_y1QKf1);g_tgvIabDHJ802^ zjAsa-rf>5d;pFG_cd>yAKq(RODW-b6ndCZ#VaIePe_b{b@BqHq3b27GP6-KUa4}X3 z5CueFq{=b;YZH+gusy#N1c4LnU7Gs-5hfu8VYJd-0@UW=%ONUI8@4H?9VM2K_&$|{ znFqY9y2(MVs4Q{Vs01Mktz7(`IO|~1fkq1Q`t$-wYuc|yuPYeIL=~_y(J$jmfw)QQd#(gU^Ld# z!T+PU^SA;3*WXCNcE*vY@(hhgyF7j`moV0>8{K|)$q_NwSrk9DLDlrz@ou9-?u#q9 zD4xR>s^xkAI@N#GN+FB$8Wk;=eO!#4t55qDvKl)>uk=c%Pz~*G^jxyX?db1PH}xTL{&n6k z?fYqc$^P`2bEZ&Ng(86d_s&5L2EDp;|CVF3L zI{sx`mQ-L_Eb+RgNJ3L2dc~DLcg2Fe*IQ`Fz^IoYYR{QQ|lz9Nd4V`oe%ixwsq(8|niZ_<*>!_ZeR}^ zhhSjRU{A^xMtOV+ol%>kvk6YL!cr2MV?iEti5jIxCAHFLiPJ`Va$7xc6&qid8aQsa z0PUUEtz-8eKUH+2kf(C?RTLO{2RUJ!&5C+mQ>pxM?w zZh2E~de;|gF=PKn9A>>> z=I^DCKX`IxLgEE)JRqsMeTstr$oA}Eq;-B^z$PH`S(@+w^R8RDy??n|6V4PaG7RK0 z6z6*cGg9fJ$dTb5bTd&d(~CFNG#T|*@7rqDJGjD}7Y4iaoPh{!@OFu22v(UUXQKGY zV5x9(L^>%35x%i_gmooeHTJY2m!ML+dwh)f^tcsIEgKR^hOto;DoPNlgoy_ye@UBy z9}5rxV5A5Sqmr``YVHL8C}&J@Z7ow(;AKx1j~x#8;HKdV#lyraa7Jg~)Ta+&u5*(? z#bn~34@!vCPhhVh+LsTGCQxB+Kcw|t@T3!78B3a#lj@}sl}VPaLV}B>4!|IgA>@ZG z6wM$up$rnfMGqIvA`Yh+LkqrhEv%?x&c97zKQ3HY@SNUfTh%!^u~w;(C2BlyBRRM3 zvcX$%Bbcg)`KVDdXGY#)WYBtSyMUS7KK`_DQIVj)O(k5vf{ky?stfD+rBupdIkZ93M;AbDj;tf+6<$)W2U>Y7y zUEX5&AB|g-P;2wk+cBz>#|1iFoqXDiSduQI*vQy%NiOGsGq$~S1O46}5A;1k0GbLY zXXr7qpz_I5QKcS0htl-DOu4ZTkMVgel1O{V-Cn00;$pQ#h0!lHYGq8O10S??fC_cF_dDsm9H-N3RjDKC6QwSmGEuHh6U#Cw4l zL1UQQ1HsgjHP%x#SHia(WSq)xLu&$yTyKdq;QO8_!U5w15Ezvi5apQ)ZWgms5n#eVE45pjW6r~O?)E9U3SKSjb ziBybL+S~MYFg|H`-NvnZr|}@tQO%~xLuV+9BTuAkI3qGlz;BkfA#%a)U@;6@;Hc^` z-SIVoQ2UMG31!BhzyC{+v|ur=l^+8^ISq^UoXOj^MIN;Ap|AUOpJ?>#BY(zt#4BgC zqop!=>BpDPpWimIDL+15yzejskveiY3@+@b?SMs36=0V{b1EA|od> ztxAmkvUtm6ym2A~WsDM2YBu9rd?J8rvC|d^z62sO`xq7kNr)7+PL649E6H4V{JHHj z>*#UZiY*YGczX?N!E|#J%|CT?z$=4jj18rFLqtq7)9=bh%8V!1L>5A@nLZ>>oAQa7 zB0E^n63ZYrUPA{D(fk;)F^*7AlGiHCNDa=$4oJfoqy9ux^G$(xpWfdE>yD1|7i}~a zcTYGynuq3_j!C@4hKtFr`*gRW>731qMbPd7X4(1Of46OuAdg{P|D0;3ViD1q84HFUvBdtjmNPfdGynt)14 zA}t+;3?^RNL90@$wfrCh4Mu41)L?R{sSO8cj(3jw_wp>jvA3YOA1sZ9Ss%%2Y$|uG z?HL;hWchFaRL+O>NV8Ti8O4~vGLb!Go1dfr%)9l}r$pi-EFu=VE|X!YY7eNPvhcGZ zMypA&l$oPl&u*6zS_n+#kzQUG7ECTF7Zz(`_YY#)iE$kQyQs8eRTnHjBk98etKg_5 zoCz>wjHCOdBjPa0$&kZ;le2$OVW;Kn6HPjSB%qg5ln&FPTE2P-x-58B+c*AkwDTUP zkNCNITbOlm!Np=ZqO#6ALsAnZx4QX_<`3Wa2@gV*n8ShbYFt~)ugdz|pUR>NcKAh$UKp9hvz9B)Tpvcf= z*~BJ&`fRzUX9kJu7U)$c?NVOtS7G4%ocbHChI#Aol$c1EAk;N=d{>E=Yc%?`i(gt{ za(ko!Z&y5SYzv484+Js>GwuX`Uh4?LCHGy_5s6tW)Uw1|=lOFnQ0>~PS2*hbon}LZ zPhT?mh;P+?1kkCMVBxCV&3uuXeN^aRpIQPk(YFYrhgYU$%dnnpOgI#Y>%6wa7Ec8# zwU(7tneo?@{Ui`Xj08bV56bBOv^Z*@Y}?n*6f?59)}nI~#4M6U2}!L)TN+8GSW?=LltVB@rKN*- zVm?}WQ`Yb$E*dp&uiQ7O&(0mcobYun!Zf#!tg{uUCoWopi{)h-(Hm0m&zij|PyWSp zUj9@XbNy+l_sz9&{i32imK*TEG6x%WwdUgN6pPhSehsaj>{;Uc`b=b6e4P`VG`!~# zMw@7Ba|sgf7BzL}F-4t}f^8(Uk#vA!lkwJ|_DMI#v zsy}AVcj!K|FQ$|9{Mm&Oc?qcB?i|BpttF1W{>9Y2QXNYa7!OY=7->eT1CXXk_J?a`Gg|?1js?3cv9e@wPTtEWc`zxAJxuzDp=7fWKL-L0-4tPA#~M$g+vx9AXXGi} zX$MduEGd17p2X1GxWAp_J?8Su(+P|<`v+4!bre|u|DdhAZ7`rX>SdzBgs|XB2P=f~ z10NWfs?FafDSFrO^XDAaPjoS+#bB`HcTy6#Pxf{*G`wp<{N5rIXlR(_ILsWoQGDxA z@fKYGG4xdku2)25#BCqw)UOPO35-Rt@ZNFSEN4nC#r^86FNs!hHnmavxDLAv9czY8 zF_lxr`nhGrbg&!gLzg(~go6gti(T8>(+6TT?7du$I@7N?&+O9L3Vzau;N=U8(B{su+`>;Y#m2D0R- z+TBQ0TRSqWXKWd+{Yj8J(Pyly(x`+gfEm?dr*2rsv6~wR3s(eeO`h)EHQhVW`1xg23?XBQmQA_3J*r{`mob%wjDM0HpIV! z>f)3EFftNBEhBXjZKxB>-S0?KHcgF1P0YrYXYIs>OB-4r1`5sV8_1Yz$ibM@26d@# zR4_p_NM<~8_R|^UA(;?K6iLeb5E$TaeSnCuo~Yf;Q+B&OWF^3;^a~M{gv2B@PE(Y} zc0`>BQv?c#D!%CVNJwJ|HW@KU%l1|ZM_A@>ujDWppt`4n7o>&FDHt2!BnNE+D+8{4 zAcAB6Drtrw0~kzlVIKOy;rAIRAn!OYXc%n5m8Z%L(-=sLu|XCpNf*P6CZ4)&0=9;! zhM~jgq57M0Nj4{`0fEE=$u}yy^>7+m6|g#9H#jCR?euAOjxzR z96xV6)Pv_k0+}>wB%hCs5$XB(%uC3V(bMykT*eL1-|-b54!GhZG8^n$Pvq|+87-88 z+6(Ey?F&L8!lkSW)`=yP*-41M?4_pRaH-tA^YDZacQ_HbqGLCPuC zMWRbIVL;4)-dSGJvM3fQLt$!gQSB@Ly4S)%Ldc2BQDmI+6!yK( zL_gB6&1SXX(@kPZYM7+53A++09@tod|)vhABMg01ppPFgylZg*tf1aJ$Q-BN3en zUo}%t#)3V`jc<2|hoCKJ%7H1DIegSAp}RP4ODUmvMiLk>jaUxL4AylV|H=BwM!~=a z#s+g>27^GpU@v)*2qawYmfJ|oY$JYN@ibp+&7DiRQan@bk;Q$kO=A7ayPcX=-wVO6 zCh|YKrf|}n6-u6g(KvI~qn36kRcJdSAvX=Ig2-WgoY(bI@I|PV6)LYbswMA%i;&vo zWcNy$>v>O|8#c7PA}}yd_OR7XP=quQ#ZejX}*52p!?Bwm@npBJf*m7n5>aXGrR@0Q^`#+@`Q6egdoqC+YJtVQ)r zhYwrbPwsG9zbRvC>aI zZRhBDQQjt3%;Sp>1|%0>_ibVIrb;`}M-Z2^d5dLvwcH~@akvh#?rLyZlwq~^D<8*d z6SK5=idp+{ZH>#;(Qa|ciKuYD6gDiA*|A+)?S-+R;)(T$4jMB?kY2ov91VXvAR$s% zYZn}fice8~LRXLOaS;zH8fFWb=&nD_?1#T=wHI~pwoYnr*Dr-; zIh;PXNQt%{aL(fs;)3Z3ltG5Iws(@dQ9E%g`M}IU*+QADFHEp)sHgVm5mBshG%l5+ z!c3`J0fJiC>B-fCk5Ovo~L3tlceg%wnI`j-K zv#yMT=O+!vre{s_1-AkOLBy7y6O{8)3c)k(u&N)ODTX_PBt&zICNN5fX~JoUe|d;x zpl~fB^5hhVZ@rx2FU?C2D%%u({4UH8tc2)*#a5Lwj!k4?t45kf3i+C=r31>68;Q-=&GtyM^_`Ba zcKdl#&cayqZNW1qU0iuC&x_ftTzTg^2!VX>=At2^x_AaZzP zKtBdhrj(5=51^`i{ZDjdq+5^ovY4SVSpq5Mcc9`!af)cBh5#q)OK~y;AGeJA3#~T? zv(f^(1C#zzdS!l|1qYlGHE13c&+yN@)&iQd+r*413-T2iio?f~*om{8)rB*XSE;BcXm5^XVVik2KQ% z*8&Izt6Qv63F(D@(LAs|`JhQ+;_bt2H{z(Upoh17gx~N_bSJJx*`={(Qm#kzYOeD4fA_;UAA;b&_##E+ft? zQ^GVX8_7_HD%0}wMnvNTBWM;~-j*$o3zShrlVDkV1Z3fl0wYE#iTZ%j@c4Nh)1rfHd^8>`>b>~OL{Qu54Y0iOE^8t^SH8nv`darMsR zeAXLU=IglcT;TH6`?1V7x!~jf4DDF0=$Nr_sa=2C+z(rQKwV0DZ_lf;?=NKt^)%V6 zX{uVu%hR2vm50#ts!$>IB*-pnk4;m4^mG;^FU#J-D@W$LuQ-(hsV>8>x661n@C;^J&EI%(3 zCfnlLnFNWOWQfO9MVGfy_TRSbn&6>X^cQ}38r&$?%j(mc=&pWS^D_`f&WdsCaOfK&B)N5Q8?puS)GQG%yY_o&2t0Wb+Zo zR+7{kg#lm!)=B&$JlY>tA{Px!Kr2D7B$|pxvdLmcgo;UGyL&=-`n8C|E;DU>xvN<^(IG0 zuBqX((j>Y3YcrYS;qe;vQk-s};UFe29^&MT!Mj~@)0z{A{S?~@jk7|OuY_|F{E;i? zalN;M+Ttg@!}&mJsb)?qAI3qz%FctrI;IsB=>(9Y#tOlxM3Y_oN0kBOXbw7z7tW<) zQ{9pmHcp#ri(*{0Shnj~j+E8KtFl}g<}ZH7>dDyU?MR!+B9E~U+(81^5tjnK#len3 z8t^bM!YU|Qi>{7uJ_$+&7p<&!f;4<@P7y?Y7IR~OREkeVw>)e8X<*P`fO%Vtu((}j zI=F5pfdjLw60jJyLD^cj5*m;+=I?`bcz68#5fK_yTQl*raT#f6qXgUBUy4IzA>5 z#TwQ!Wnivkj83usMh`;qL=VR6exhW$W|E?!YLNUs{*-lbgOp7gk&?kz-OJ%G7A_dW zd)c{-w`_6dk(XF(nlnSrtbTzU6wYUKhy)8BlRewOrfGhUO8|*WvP<^o&qiK0@ah=G z$l(T1iD8<-i{>${Q%^&iYt&s6c~_y_ZY+Mf;^6K;d{3Do0A1RU=dge>J1-~kfZpnN zSb%8432KIw^I3#wV03G|;Gyh~zf7)rs!N<^+Q!KeL@~qty({#ltMAL+(aN-Dm(2wU zRwhZKK5ReRsY4)W5z`-mKEHXpPit2BxX88GN<($W*FE;uOrpo^mCyK(CcE6unQwZ@ z^`IIhOwFvm>KliZ@hW!v1K)3@$p=sMon;+QFLRZ9X}{K`hgui`f4?%%a8WvRce}n^ zwDt+Pov&VOyKbE3*{{D3edg`%sy=+%>|NMQmBGM-rrq(odzh*G4BK6kbF8%BeH~a) zM~F$`K%Pdj8azyZ<&rEi+ibiUp>%yoAOut90|f7Wba5V=NX6dX`lQYpOj5klI9;qT zuDF&Q39J$)oqMUappNDvZzScz$TxIY@XSZ+unLgViOy=i0$!0{!(*p4t@w{}B|5!8YkSzD`yT)jLG8YA+(CCb3=hXd-qTf3<%cXJf_7I? zmVKhw(@HeOV2d+dg{lTDblZ&k2Smb?j}O^=a1YUnNStKz-ahva_E_xn=;wwTclxZZ zFVf%bv({Z=eXhsDYd1J_pjJ+^mG$X+!%<~0J5Tu8&;O3Q_iix1xJVqw^ycSLI!4D` z;?@F@4&_X-jySV%in+NC-jzs#PVD@`5@}p89FI`4g-&9Ga!92Z=Oc5Ywn8aM8f&DlNqlvQ6h3HU;{-}bDqG@QXwX(w1uBvVC5Ti|Fe}Cd zMP+eS5pu5zq9mTc&z)BLYq{ImGNf5fgHnoiyFD4-;r;6^0>3`VXD7R_>p8*<55$8dw0qAk;F@wG;ZJ+@uU93^~IJ=3U9 zkMsR~WiVp{s%m zD{CYKjp9d73ks{SLJ;eSJTFK^c#cc$?nLS7;An(W5tVf~l~Q_5lJ+Q%2Ar9jqf1b> zdc1i+EMhuQi`;m0lww>#J|6JK#?3kJzPcBIB{;2@b3&MP@ z_nGiCP{(c7v&L!dD1L1`ipCk9-Pz3?ubHO-S{L?&IEbkKC#Wf<%`sj0?8II1fxKpC z*k^JkFFt$W-cSClXJO-6NYMKrTerKrJISNYmQ6GZ%q)TAqB{86rO-a)wj$n(=UtZ0mrg#5uHwqv4X-FDp%mF zr?4g6#U8z-IdGoQ;E3U1z~je{=_DzqPMxAE!?H;Q{3+N8*_4qyYj<+jv)DO^J>) z-ql2sz?>uUp-ik9(^0I@Dh_$H2@<0aN+BbS_6}FijYu6=!#ddycQ$`5rKBv&$@p)^ z_-u}OGSB}%LRVUZ#vRAb0qT|=bqYlITD$xBXT{9>47PRRSaK2xfvX#qyUEtcQBE9t z8beOEPj(TaKEr?M^{0$&Fau%Dkl`8Q0zt^v+XFK(ESREZ5Y-Wl^$sIKF124kiNqj4 zDTJz>77z2C2uaxQU|8Z*gp&%X6;1OWEhG!=)}))z!Qr6hsVI;U&V{OpNJ$o2f)qIP zFf2p0g7qFtsPmUX&`Kksx?rE1Xm~71W}nwR94}N*C%BGbNyn#X__Yo)ku-WKMNLd$-`iU))&GY%miNdo+F`oR|y2;gd6Hhp6X4U6$#OhooY5Qp}oZKYPJp4tRW!5B4*I zTb>xzGsYHXSjs1JuG9VfB+mxZeAwjjPLysu3tB!2D>vJO5Lj1*R#ZX+@013r33b3q zMtB*7A)1?Rjl*~-jHB`qr4>|CgM!K!ioBpO1zu{LjL@mTNf+QrQ<5ecB}3!&!Ei|A zD}+=?DUe!`BoR@n@I=HaG%OGTv{tk`DXn(Ge7j4p+rpPa_I4gI9u!!w$VwOv3UoeX zPG(qNQI;dxjJR^~6pM=qSFe7|gL}8RaBhton-4hL-C}ophlROCd}UZ!TqEu-a`V>b z>~HU}Jl{om$Jx`T>8;F@>>n}|lD-w_s7ukR7<$3O{gPgH%*OMt(OOmP4ZZ@O5Jzp& zR?OkyAyr`z6dWGq7`u;-Q_?hLac-Xe{tkcpw_oy$pZ`5?y!slaH`ZBMSwX3wzLmr+ z2IGu}j~+1`j!3&5M69^{!tOPevKPnfZf;SUZM2T@NOY3YYIjIlFxVG4)!pyD?DQO;nPVTC3!5^sx8Q*6Oh7AF*y2jM-XbyPkq zlsJ#64BlG2Hz*k#xhPTfA`^_R7t@;WfaCz&K?q%6e?uFR zSScw9k><{LKrRf0v=9fQ7CLNsx+{wm^%*|x?^DH+3Ww6*ON$VpKlVyZh8hDqd%IvA zkpL$Ir42liR-##42oYsb!QnWgP#tm&l>#dqk+k$WZB!EAxdg@#gvvF@no z_R>i{xVd_z8)=0STNMbQ@pz;HH8FUhISRNMPnr=2YMhnHBX7n5oV3iLx2~!q)n`4Y z+UW=dmCvxb?pRPb`{WTp3t_Ttg8a^mCod2#Wb$Uu>G-Rua!@ndYjg=Ps+>WAW&H_N zJLut(MFSbzDHb5=;~>SKOsjyOM(_yqERkcDSkjbP%o1Lj(h4c%q_?Q7Yh7pA#Eqdn zS#$d}mMIo36lqGllvT(9>PVur#$(CKj65H+KO9h&Ik67gt9FaZ zv^m(@Lwm#4{aZYFa35nrK6p4TG1ikrE%LHpaefXR2@dz4^4X&=Ng~JQ)xPw7AY7%eeMshfHN-jrXIWof;)g%{ zAy=+k=IR%}=Y#iu#b>|&9q<2o#HCA@kW#X_y-i+Ltgme#lq4@J7MGXUANIL%?=GDr zAyS&9g*mhrjD|x@Sur=a!2ZD@AX!;mrPY}yD{`!dcBjRq=gzRSFvr5&Ji<$c!y!d! z&}oaf+hJH52DwE<8dHHS4Q1g1xvhq2g-%Ih39({a8j8XaD@&?liYg;fiYShV6Mbw< zHc@WSAWXZL;WIK%$kE3-#90lP+ zj@mO>41MikJ6}Uy^&;hFjI#G)lKXYu1&9zpOe0w7gV8;4#Q~O`ylRM69A5-yL!W0Y z#9jo^6q=m8@JvjwTMJ8q??C_{UmUvK}vdNohP@r{t9j3N3L9Z#Dh0 zzzhw_O9r~ctB_~*fOQpFHezRgkNy2!ifkNmdqOfA59qa0R#sLxIyfZnA0ev|_ix@L z%L)*R@i-$++jLqj_6`nMSz4mqPB2x*u)mMT5Jv(@L^dv|e9ZF3DVEmO=`1YJKRn>` z>$kXe?KTU&E<*?R_h4laTxXHKOF43F_J$b;x1O?>w>kUVX%?Tm#DW>Kb$G<*Uw%$+ z?gB}a^7^YU^4e=}aOH(dY;L~HZ$JE)uddz1%MP!<^)`s0=Rf@W z|Bmm!_bskoy~L>%h?w@E0yMG>SqRT3kFCrKk(X^fU&?NrFc zHELp>T2am7jKx`xwZY+xb%azhkf!QdirF@nDDkxj_SmF5A&T)|%Thj>Lk*`OaP>4* z^0+Z=rhc1Cb4RWoNkv)|-8W(>;Ab_w_F$j;X${^9|1*wkcrQ!SwU~Gb-TW)P#r)crk(4C8k>$B~T zJ%v*^9YGTX+LG8;tkzPJ4%j&wP%4cPI&>UsgmO&5Mz2E)CgdvPgT{F*1zHM_n#z_) z8J?wfAYBENNKxX2#L=30b|8K8EM_9x$)GtNjtapuNPG3VKl!AcInE6F>BC>0Y0TO* zJu$IC@=s$w!UOump!QSeFGQ&B7{{T(Qy`!)LPnE3^n`~nbBwP=uQe3paW(NQ7~R>d z^DI+g7KHZrU~p&29<$w18pAqUPSNall9}1mVm485Qx?+Xgrg`TP16ahbCTngP?m;K zKICYSG0IA!xJ|3mB1yYw9moeqqn!Q2AxHf_l?zN)Clyx4*v9pUBD(VnNUewm1-pY0 zd1)!EN9mX(NikJHo)r}37-^u`+9WDRcLTX$Jo zUFO9XUgqrSb5wc8-D_WQ@r8tyl@-pMIfITPw2C=8I^xES8~o9!6x1JE|h=rvUme$sI@#Po!!`08Z`)HfJolTaP7C3wPBBMc{hnsuMZwOw0`&-PN zKFggu5Bc)$7NcR#+HxDUU(q=wpxx!nbLSDgZSFnXW`FMvX|#rREq?dgPZ%8SbNbwA z-hAtIluqc69G5R&=Epz&3m!bY%Rl_XKkzqy^EbTt=9~Q0U;P#T!~gU@vvledJKKBw z;LrbpH~K?JQuYsyc)YX6%E}7!tLwaY_6*xQyR?%8;XPMB|AHqEAF($W;bg?p@+#}+ z&XW}-o12@Im1Sl96idr1DCzMg!K=8imfRHY-< zE)e#FrYIbR$!N!lR70vl^x(Xq6$ui+x{%LtZkpW>82A%!Jt z=~IP2#`sl}B}HOGq+R!D4KQ(trW_K)B>Q*Vd8ngJ#n&*!V;5*$ecdyW&TIx*$++ek z%ZZTucOQ8eoYq zjZrccv4xhkoSvJjB^|>(_X2#aFcq#;;gm+;aYEu`4Zr%(0SzHBGo-cIF(xO*Z+fpo z-qTI?^)v=dOujMve@aq1o}y@Y1*38F-IqVTw z?8I`)WAji>P#}(tJ25>1Kxj=mGlIi*QG?~O&T)&G?X{yCXp58M=;H)&nEpGoaO?Ft z#}tHsiBX+Z_i0E|vp=%}0Zo}ilPhbsX&qCVg3<}brDKp8B3t2O0deTcGt4vg`Z>D? zV@A2Hg)A)2J6hcoA;Jw%O3>?d=*`cOq$9@GG8i3#3{kZ)Hqi4`6moo~!aIfaL0L*l zO|RQwX?cM-)|6$=%JMSS8g_Sg+1=e|W%(3uzWpw%%gc;LBZ^AW?RI(TrI$E!<}^n~ zN8G!2hsQ@FhG>5B*Z(8$yz>r+hx`2Wr$1#to8HC?NCZ}E-u~vlB8nB8+rQ!7okv8G z<&t9P0S>&s)?sD_qCQpw%*;vq7nJ4pYhLu7{!Rd2nx%l!W zy1&29?HdQgx=k@0^I+$I-TlX0e(4G?z4i)c&Y$7%tNUF2!yj1RSm9gW`8GO^_<#QH z@A&YO-{FMhzxi+f9TzTN;lbt(zq|SeF2D3L|L#Bh_k8;MFSvH&1~=|MW-uCZ<)s%f z&eBWUblV+7l(4jR3R70>9u3H?pwlS`B^ZjzJ9Z8Z*g5P|7Gqwza-KAaNaGetYVyic z`4WR7YR|FIi#W-;U?z)Z;)jx?SjROIW6+X1bz%eYRmx*F;#uUUXK@)$k_MaCY>~@k%6iX9 z*?Bd!pOa5YI}J@Id8Nq$LH$Qrw}(9Lu}cECW+v!6mUEqare?`Zm)fu}t2zTKCSTs* zcC$1qk3$~M$I%!>58l(zdV*nX_6vWNb-?^AMyi9l8eC7#-_HCr;HYCJ&*>ordLq1g zU_7eODB{{WD=&zxU?FPJiy#K_5tNxncu%LBU<*s671A2oX=@UZ?hYJdCqvVMN@6QV zq&32hSz4T%L|D7SjLc~&8_ZDR6p<11q-Q;8(ILRygQF7Xf=Zlp8gD96E9hFsMyE{& zkhY{EB9|ebs%EaYS@JdEIufCfGOb-DL2)96to@)#yg8f84^L$lYmiOMHo5;apY=@E z<;k&++0F2IQK$8q&xe-b&3DeI!qIRaW+U2wQXQWq)3dQNMsVs_`pJL~qx5*nVwSHE zrc>k4)=#cxI3ol?NHh`d*j2jP9S!>hr+K>dYr+?^#>dsoJ5y5S8P3;|ePv9f zV6L4~6a|rRcvlf?h4YpoFKTrvO{8O5Zp`ZZIz7EYl0<$liRoM(jOHFA-H*e3-29IpFSop#^CqA`2YYQ07*naRGd1s z#`CYd%DJ;=*&F5j<1c^B?fXx7{na<=_2${%-)DJY9-+JZ-GBZ&u6}ikI1+4}I>Q@p zzr&-)cX;m71s0c==`JmC@7^X~+`P-FQ_r(;=`B9}>^i#x$8rxmnl$dPu{O{8=@s&R zi5vHrpFdBT$5hUDU*hZq&u>5ehb-e8)LPQajD=>vYD@R94gcMYz zV>r&hE0QGSf=y+D6Xrd!PKlz3BCC$E=$)%4YMmBQ`s+EyS%~?M)t$rF1H0)4TTk}J z`K@1H!(1guef&U^#fln3bvUNvspAQ>aJr>P+6je( zacP4|a*c8FL|)K}V$wQt&2lI!hsBfV1V0`J?uqrZq9Fa~fTOG=^RnigP^*kdw1c@$ zGCAj?!ch8%%1OKwXauqMw7jFIG@4*=N2RNq7N`l?I`V>+hq+W!0sYMLaM0(#N?g<- zZfla7%NEt4vi8B?wx}g;NwD?3nl)G_-_;~J@paf=5e!H(1H@#zoD#%q^CJlcn906% z>Tu>+i~1l9jZ1hBqUOm5RiYa4X<*&pG`RZr>8NVHLrk_z&u=<(BezS(IYtDjG*~CeQ3^epG#38aP(E({xBF>OQ9pOq^vI)>>Mv*2D;(B!4KS zh~szyzct-qX4%S3p4WSi7ZRPe$wvbY2N`?)j8S2bDxzQZsq6q5B^1VDEws8zBuU-H z#g;@>4%LXN$dS$>ZHzAmP<81hf-|QUvCgn}IHD*kdhIq!2*%?v);N;3qR2B|dii-4 z7Upr@usAo5RE~%D?=v1|+`IRP;c&?L^XJ*wIpArv$NTSpOqOLVudedFAO0&IZ$9Ne z{>T55C{n!s#;d$^_7qnxU1Voxi}!!~Ay1w>LCJ`}{PDl#<(FTjsw|HlJwiImZ$AE% z8#iw=zqrKK)_vyY7dRXY=*-RY`rGet_3D>=^2I-}w>QSPl*RQ8x^t&l-p*O>%#k`n zHptMrAW;!_uixZwdzVBgiqV+oE?lB8hSpNV=I&E&+`Y;E;fQgj5L)nu>o<6`xy9o0 zGHJWTIL|0N{NpeGnT1oQdH#hL`N6;bF~9hyU-7#?e8t@S5^;Y-uQ$)~+6Lp%5eUWl z=`(1pDYG1}6iaJsh$v!rXP*i|Q5n3_te-iH6q?yjG{6W zWgtsB%cP%nQF``=72avEP`QfAmRKLeZ3G~#psEbk3v87`aYS15`QQH6|Ai}E*mW>; zkQ;;7kmos38q;pK!Bq(A(xDQLiV8I!bC`|MbqZ}f8nLppfg>27QROirp(rd~L}(RZ zZAn*$5<*k&w?D`ctsWw(qgNr(LJ|q+wi1R8jD)`N__T#^5w0v~r3ux+E^(wGg2xUX z9!mcA|KtBAOXnHd7@`Cz1l?Yb(waJFF410*N=Xta;zXe}^tvfh1x`d1MWk^;oM>Vl z5h+2p-3oof0j(j9AWb2Sp)FxSLNt>fZyndpL}D$MjGyaqap2G5btq*=JP^;bBLK7c0;rZ@b;A1EW{K=Xx$*wQ6h8@5PO@ENl zACDPiIpd-rFFZ0fprSy`DXW@z(a7)#;zYANw?Mb0gTc)QVK62!?KpU`+B;%V5sM1# za*C?LmmZ`<+YBW@*qAdLXNhzx)XE9X;bEVxt;alm^nffIGuK;SabcM}D_L9Jz&Xd2 zD=)FOw#MB2B2lZ&%{#Zbbp8StE}rGJ*Is3Be}`Yc|10u*Osq67UVfe*{pc?^fBrmQ zeDMeF-oM9SFyiQNpRJuuUU>NmZ@%#|ckX`0>Qa}3!y(siT*Vl}wd;3TS=~TKOJs$@ zs|W+U^xA7&Id`6JG2;I9j~N~fxPRw97cZQnIwiUK*(W@Be3R|{f_K079|ayZu9oYu8axnB2Wy zi$O7FRCpvgf)KqrA}ldh#yFvI==weMh3g+@hzTww_koC1qVg5XM3z;%jUjGQF%8Gz zShVXVIPi3W9`pIZyCB#?Q`XQ3QxHs}sY3%1ok$A#z|4k=ZCW;A=N)U?_i)4%o z^`|vh*hI3k(W2$+(Pr~ri9i%8%9?qbSw`cWtf)fE$GoJphN7y-#s$M{%xIjG=Q$%U z*hi9~CyHLyI*e;#a*0$?nD;KQh?NSd1n0n5fl3y!UZ7mvK2u7()Obpi17!u?#>7dA ziY;l<#+x=pD`g)TO4uEbs6?Bz)5dFwHx=XYfMj)^ieMCM1hU=2#R_9Bxv|*Fb9SM} zLbp4K7W<As?Z7Fuw{~!lr?H z+gpq}XGq#9Ss5VqD2;jv>)n*H3F4O zR3_2VP(Iv5U~3!UCQz^xp?PDs<3Rx23o#a3;QMdM0OBWF4D@5W#^P;O(Gfn&edlcbir4Ea@sM@fm4 zAtm5v;Av-%N4TMSMuyg-P5pW!#xsf4rxCf5po9jmz}21U8ipReW|dD*RG-X@NCi5Q z#7-lmXFRUz-jF`PQw@CUgTak-GJ)4%N+OvRzWA4l`lZmQD2PT#>+nK_Jee2Rs+MxZ zl0=$byT#htJnO3~EcQB7qXT>~q{v6$EJ+N~W+>>;9ZhIA2WW!gGXCrW5eRY8hbk#?al&TjCs1V!_L7zXI?(f<|#~*R?_HB0e4`{c#?C$S#@xm2)y?M0K zyz z+&XXuRk=`_rfTYgvo%^Y(=;9n^#q)-W_>6pi0UYImMl06B{$LSv$|q6Mg7g3eAYY> zQBvnb8-v)uwas~C^*czZ5a=+Yg+wSdkuF5W69TaXj)1~~Q$ZEG`7s1_qq6?lAHc{3 z*z#yJ=3q49a5!L`=j5ehYioe@0c|iYa3qWiZA2j#Mbc(-I&woPnCxBR#RUM9P!IK?b#*#H2|= zD~ixku{75s){=G{(@s-biK1Oc*c}C@Qb@&dBQ3==at?@sAgZ&qO)%S7J*B3`vvH

JlORQ5!9iXSt&|(XR5|(^CCe>}CsExHHMUl~JC!E>X z;N@3dq%3oGcDAt2@bb$qbN=Ebws&{9d-pE)@84xHt5^BtlTUbf?-m!&o#D-Q-r~)-UL{RqKK#uG+`E5=t*1}O$3xCP zcZuEYPwBK<+`aRN#l`1%?X|bK_jrr@k3Z$k-CO+OtJA!F;W^&^);sJE?xT~Kd-t~a zyozp9C|8T(Rjk9b%*nT)mNTv%y6=mUz3(ODFNBAltrE23D{M$6x6V;wO9lOixU!*49-WrT}x5t zFB9*TQD^ZD}zqiF&M{}mr z;p}3_p*kI+#;P16WQ;R8I87^+bUU?fJCJk%?J-q`$-|1BC`mh!%+IByB1leF-Vt@% z=%`I5BL-FA9VBUs%9g>POBM34F5JK1Rcgkz2*M7cPDl8eHmuT54WyWwsR>&jhO^4EYcV-4q1A{$fA9Q5;>9}gj5Xg5-CBXBw8u7kZ2`{ zm8L~SoE_2Ao_4!Ux6`86Zqe(u>7*%1tXW@MAyJSFhFFDm$Fe@{NKA=hdgfgb z)}2T|L?B)Tqa8|Fr39gMNbAs){)AvaxX?uBSQ}1p0#bI~J#+DBCIn0)*M^vKGJ-wX zp6_Jc;q2!<4zwhRBn$H$ycBdg6{YhS3zfBWyKStCiKS<8zRmhlLMJMaSx#9qv+<9ah)oSYBG7 zEJl3(`R5p8`1ZHI!RqP?ySrPw|G@`rZSJ5W$@0=UKL73KJbCn(7himlZ@>Evhx-R? zZayJR67Jr)!zUkqM8Dr>XK$Np*S@4TKgW;%&7X7Sr5EuSKKke*KKtx<+`V&$GSB$4 z@Be`H)l*cZ;QGy5Y(3d!^(Sk*aOEZX!vdugw{PF#pERuY{+zd7zRdHRud%iHm`|?W zW?ZGLuWisS6ZUov$Q^uf{T98=CkzG!TD35xBaH=LUj2egm!IeSbLVhaKK|@e4i5MD z=DY9m+Dk8R{n}SNcjgrDefJ04xPFV>-F@a-F-0fkXn%)CcLhfWd!c;H2JP*3yA47i zB*bY%(r(e3Ytu9HL`gyvE6TEDROVP|5mKUKjc^KM>j8@oHLf+B!33m3Ius7Hjhfv)kV}&H@M!~o`f%Ra$ z2p+x*@U3m7SRp2gRbep}6KF0@9hsC|L;$m-ilFKp|0e z>4=mv2xrvy$CM**4rOYoKI?F*!uuR&43ZWxf=DY|DUq&1m;zCPivp>t9QRSOLr-d~ z@dMI(?fI@~4pj+7GbHI;S9s$fA|QlFEX7KMOvJR+4)`3h`CM20LZsyrmh zK=#5SPBlguMcX>Oki=Di%lgocCe00Y9`8dwMyUZ2jx_Dys|rR3=xToQ-1oL0Q|2R7 zGDka6jPeqf6_eJVN`Y6kc#u=IQ{%x)5*0M1n`bv248DG=*L@+5lP1h{+AOx)%(oT2 z6go2Gsgru%MfFc(G%ZY2$U@W~9Fth-Nxik3(7I+wQ&1B)W(;D(Om4_gvxao`_t{8z z^3Y}s^lbijc6&%J3p%Zou8LWhpJ%1CR3;?CofjA%y7;8Aq?Je#>}gzRl6m5f?9BWOx4vsTH@M+^0RKh~}2q{PH?mM-}gV??>b&;>ieBq8^K< zR=IWmCV#kblQ&;|gKxcanWOC>G%>C+9^Svl_U2Pwef>3FzH*s65AX8e?oD2K@iIq0 z`T@6Y-NIJ|fBD1r`0~rINTZaOE}Tbd&DCq4)9bWrM(>CN7lxSif&8+vcB-Ceiqco) zWyY`wl8b1Gm4ZkqoCpTjd5L#Sy7Pp^x`Du&MhEr6>_d&)guUt-KCKR=1$8v&oS-lj zMNx*v1=LDtUZSl>8H3CPIEjxnN#sM%Vj1$mm8tOFp(2eGA-`B>dZ?-jXY4UD)T~#l zwVuqQX8fO&IBlW@>Rd4)Aiy9fJXAiwyhbw7|IJPKdGvUnQC4wy)Mxv!&(=Yo-J=2f z!;C>?i8_mnonY+1hzK7gh$zPE9zJs6dS-YR-iZ)B)_*IjMufg@ohcMbgxXOnV36l{ z5mGh{8rDGNLO8NvKm1z?q8Sm8a4bS6Eyon=o4n)%z6=l7*W@1&lz_az3rngj(s{HE zjpL2EjQg~Xz2FIYxDT@&;9E)197Q-BH&q3Q+2E#)-?HF$r3=$(eS_84-+H zT;}wI15+V3A0+MOV@?5##Xym5*3WmRV`$Le@v-1H5XHsuU$7gtVl- zz`6j62UuU>ou&?2!>z4?GxfE#dnP&+O$x_BqX^||Lz|}Qu`%7Cm(6;=+-}pb!+yWO9*ptc6H)N-_<&ecL`sB6SSeBoiG&uO)2mDLBF$2}!_s`0)wxBM z=jWK~c1RP5(=cVVtfOEc^N<;Xuob;DokY*#Bx!15d~2iH9j~v#iPgfxpDI=wzjrO z(uAdCp1dqLd+9RY{r>lu@AmlUw;%G$pZyYNESD}`u$*6zC@1H&1IvXO-+ThNnO=ib>6h)KBc2;$2G8Y;a z3mb#TPtctqh8r3<-IivSrTq6itK=s2bH6;egC zwZ=*?uArLUJsfwCZQfs15=D#EY=HeiQ>Wx3P;5N@?Eopyk z{!g56{A8Y=d^Ptdib4sX6rr6YmXOVvFMl|{%g9iP&RW0vs98lRkV&>3gQ zw1dw|(%6tX$9y~GY`aZj!(zYSE1sKc@zmtx!+l~BqRJ5EB}!EYX|bZN3U!*MP{t8p z{fRh*5P={hf`~~|jdJ42&}2QmcbHL*@Kf^OWQ^Cixb5%MFmp}9l6q2x_}Ta)?g zteY{|fg{vYAr08%k7p56Aq1yXt<>d11Uw<@*2E}dg0zPYRYk{~2!%&=dLa?xEW%p~ zV<~-w@*d?qPYxd-@kBzPC4uiD6_HXT(z3CTve1cHU0meU$|CE_ORO!saIQ z#?hN!V0U{Pr6a!c{U37r^aj?$o%;{?^2@7Szy1}iZkvmj&U5wmpK-9e!@vE>zoFY% zVremFFs%6bFF)Y)`U<#VLX z^Q~`wgZF>)0l)vZ1u98aSd6PcNs?BAcABy*C!MB@2@AG#phQF@0?bKOJ3ve|QiZ7L zLv>kzb0)xE0-UO&R4m@hp!8FgC>0uE7#}!~Lh8DH)iSOsx;{b2DM>6)BG8PC4{>Z! z1&weO>5#V(p^=8IC$~2qXZ=LMDhNk3uyYB`B0>Ae)-rn(-_M1UV1V)tLe@ea-;3nkl=g z&q>H>p3OVM|I6BYM_YE?_kEwe_o=tv*XUi^=l}p907*naRLhh%9T)%v0fGPtkdQ=5 zmT8HkC`)ooNwgBHShBS&D~Xg?OR>DXVrQ+`j_nm&Cgo*WwnI8Hslp;rW&u%%Mgkx~ z3}!G5)84$^Zar=9oj>-ucOIH#B{~1Ra_>F&lzsMZ|9-!3Q3j-S6L~HzMrn*PC?v8d z|1ZF3s7g(^dy~ZgvcmGtqjR+CAH;+qy&(vV6T8R^C+8(zn$ieE-h10ojvhRMH&LNi zK&D+5RMQ>qJlLR)Q#kwJgYV!WDG(v_Q&(neOPI-bIoNUvQYR0z_~{S*1>(6DI)gz6 zssh>pRI(ulJvSBKcXWwg`H4kz7?O4&D5bH&qTse^#guZ_;o&<@aO(73>=2Mjf#>5y zJn|93H^WE=2E+y+oD3?$^)g3=1UtGhqcJIN-3PPp`4gfHUUDBcs0995bL$=&94JZb z+wT~zVM`h05}5Cmiw8UEs+8ZQvvRDJfIq3raZ`>r&l1?$Nn{ z8xteFW@~SqkCGsTWn?dDUD?NRwXJKv_!I=`9-%GVq5}h3GwctDg(R#*DCsV=gFH$+ zfhzk-4r*QGDb@&lFQmu~QCM1#S&21b?2#Kq5rOZZ0&X%XVbpeH6kcWxW`E$m6%0qx zkU%!2apT$+-u*GdVam6ke~Q_eNsb?=Q}oyP&QpKF z?#eaP`#;R>hZi|KvB=%W@8Q+6%Y6H#m-wFVKaHw38Dcne^e~sMU83d%9GICT@O-Xy zx~#0PaOd0ZCThk!^YmlH)evi;62?qV&9bz##LmtRnKtZh?{e(malZDoud#Atl{@ab zlOXb)^U&FZ#RJm>0{kd&G<021hyr6ADZMZX8TxoZK(2E-djpIu@O{@(h`az11YkXE z;XCgz>mzV3Q6V0=Ezs6tgO|>VW9#F;Y!p5j_Q_L z3tHn@OVzJZ7)zSwZh}@CBQ=4q@d8Ds-zNwIydXqNL7rxq474_297fD|r65P-pG zOQAKsKXOcQW!WGI#(mvUfF1#-+!JzZvQWUu12bc7;E`(ZXr9tIq;ZCuygUzd4iz7C z$#WdwO47zcAYY5XOmnDAJ5Wesz>M^djSI#_`Mz5vF~Tj}&KyfX6+7-~VFpj+Ob5xTlG zu^WSiG^MO2?tLDxn?XG&gR^!4H`fq(x5h~Tbn~*zI?`k@P?zp=SpmW;+alIo>$c|t zX+^=Vard#GYZ|^H$0>p(Wgx7Tm7k6_1Zo6R660Q~z@1YvfNJFyy)Dz=DR+FSalyK< z4&fXCL*o_;p6C9y)_F?jcqCW?JPPX+%CvEGENn(73#-2F~KBR=l_GV}hl{q=Ta`^#yLO5w~8gb|JtWeTKq0vsdCg_M?DFfJ1o z_SVGXdjcsHl2Y55kz}M-$}?u9!@*d%LrFuU9+M<))zaPDWoBxcFbql4lr&A5nVBOD zLzGgSJA09f7cb&@9=F|gigvrr6Hhz=K(pCovfUyKd|r9=GQ)n4cRz4HcinXtVd#@2 z3BzHZZg-C)Ntl_LVRCYkEXz21<{Y!rbIi0R7!Fc&p^zd%d3EBb&dkg_7tXC2~|fPS0`Y>ASgnYyqzn;bfeSE2fzb|FA(b~Cy4E<$MG#nN#$x>7CP^zsg|AVc6t~ZEW^lj_s01Fq zNFAy*cMdzgC-IbzlA6GekR_Luyew(zazO_$DuavB*tUQ|DT|cR_?Z}0cSfQOBT<+) z7E@pQ@V=q7xo^`Yuxx}vmbl5xvyf*AsWD7M&YngJ5H`m{;|ULq6HZWNW|B)VG>lTHLhrX;Cx zeXfeugr1-#T`xV$6B<$M78g39tpvktKonH*y#Q@o<`x41hAiz71{F{q1x_f#vyws^ z3NIrNL8(@xh_o)tfFPuC0w5+Q5LikkfAr8pnVBK6`(Ux>){Ki zNKIrkQq?elJNF{%A(Wx&`xN9vgv8!RciNSYorQ-B9(mED>KPP6nj%J%J+F9!xJ8bC)w@oQjaB(3NeH<{n7YzT<}mTNS!!@ zAA1ydBnC3!#;ZgV6^3GvvskZ?k<#)(piuo? z@ko35&74;Dqo%Dbur`6R=cbes*LKGW#z?|293x1Jq96!8YPH%J$P)Mwv$OLQMZwjp zSIP67X0u7B)8XR9i>$4!asU1IbLh|^E?&IIbI(1;a5&`T$&*A;#BkVWWo3n}tu1C| zX1M+K+nJb{U~_YmPN%~QFSyLs_k9)?7SLLA?b5jk& ztzWgTW!ybDrkCoP8{GI#9Wqdh}H zO&O;4sdgYGS-)xko+wlmy38F;(t_X}6dN`@8_%ASXHbT%9X5%M&sO&Eyh;FL)gbg0Xg4}S^13W%InxT2> z7p@l8^WDs@^J+BJFqseEy$wP(?9{Zwy-5ls{zmN*{efUWQl4h(O)-&d#MNge%3tJyJ%WJAj-#U6^GW#-7Vt4&3O32!eIe77(M?LKw8Wxy$tbu% z623&k#I)YYw%z~X0QjVfTIBW5$kyPV3x5ypU_`|PU;abQ^+5f53 zPpdz{0m;%zi*^x#%CCNiO)M#$Ea)~;j3h`p)zV9D2XXOhbO@>`>9|W2c^Iq5r|B_N z1W}3vp7lLKD(D5I$hWRMH|HNS>QAIhhTee!wpXD}`nsl<0)cjOTmPVxUh}J=7wGGm zE(K9SnBXlSD$aPylB9A4nq(Sa3Oz2O=7s>VX|mFd!0cz|Ik6=qaS_L@T4~`=_Uuix zqIqF%T`~gSPS#e%;9J;a7%q$Aah}bk{{28IU;-iF7DCfsCP28^!0qDFk=|yx=Yz3A z;V7XGp)_z6m~~dqX0mf!bU-d=5&2WJ$`HJUTiG%1)fWd)Mi6AZ0u-rAVqSm0#99R- z(V(?2D#EGnX|fx(B>2}2J!?*$I=&8UzQn4sLJy4aP;AZpU2HVM@DA0TxLLc~yoV&a zCu5a{ThVKBs4lRg*gvW-EP&}m*=QQ3PDWoTlLefw!+Dpeozz1^`0 zbKWK-8pi+|5xKAi2>AjKu?g<=#sesg6^YmLd<}O;h@W3R)!feB-lSst_30+mWT@j| zW3;CSLJZEQgLrgw^wvi(hHcINVO_mUgV~@}9YOr@klfTHAWneAN?Bp*=vHN9_wB-$ zWS(}+O)MC{Y$9LqK{4qT=4wn!0>wVa&E*az@ zMJ&T!@oUC2GSX=>Ok}HcD#&3?kycMEaa}2#gm$4RT%BGBUv>+6e-AIWft(xpT2ot} zK?DxsX!ZgOR{+oOi$R(mPEZmTN}I9Q1gBn-mS*FZUIfBjsEBtSBC`1~`=mZu&+|Dk zxb#Fzet#tAtEXt6Oe9GtE|hh4uDUfAy$1ZP8mXTcmT~!j8FaQfZ7Hf;;t51h{*VZa zP^9~zjy+d4+@~CU92u-Fx*Wjx?**RyXF^Zx0}nEt92w3&??^gUu)bdXI9#D9Tx`#D zC0_?|0BVw)^wkk2s$5tN^1iJ?c-QBo+S)W-+{+XUehIHV>+M4P6qkiKs#s|mEf}`2 zQNSmKBLf^xs=gcbOD~+a|HzQVBtiRFBVNFhQ-s9{^hGIPj!mj7H&y}$fg%?bf^1!k zFF9BR0Y*?B6@J0vMSTY@ge)Ns62eF6S_9E@6G6YsEFq1`mTWj0!bp@fGdu)m?q>$p zy^Bm}KL+tPC^)}rVqO?J2u@-MQ9{~6C&Xlh5O51ZY#khwirIilJj7zgy|FESp6(T4 z$>ZJfnVy{^onMVn*LSmqCSl{acj05@j%9GrqFJFMNOqvT<6DnvaxkpqHa?${4SF*D z)Cx#S2`~Uy^W@>qSB+PQk9Soc7_CJbWs*}<#nkVpRp>CZbaws)Jb(b>B?gB~#Md`7 zgAPReX7YQ+0q-QS&mq~h0C=s%_4NF_wz~Sqx8UL7VP_V;QTCpxt9Gf4?&#=f;JK>Q zZ(&E?^Uf|%jKlG%{5bNqyQl!<*fM2;!%aE9e>i8?oWZNSes+=P8!!a?ZJc^Zp{k*1 z&{BK1FusgL!UJz8YtcvylwsSiMWcn*BSB$!=RE$23^u;3K2QtuIg`@M;j5ji|z|iW32TfIG=TH$t8jsT@DaI@Yr{)S$BGeHbyFKe0*$jr& ze%=m3P(mU8Om~6+QFU8OFj`zv88j4#{8I3n{jU|$ls-hUP_XJ=>)yUM+_s-X2k8I` zc~f(5B6!7IIF(Jy4VWE5K7D}fIfb&Y*{w`isU}2hmWbhxWw?5=FaZ49MWH z47bn_Ht$@DTz2Sn;=YFK!xgp{QF7s5jJW2rzI2Dm(e3b1N0AFu*%@A!z^*sx3i6+s z%cd6P`i0Ugjb<&JUB|gH;vsYVOG$|QI+rYh{W(N53M||6k0I8vXi6~`O*S-=XnQln z>^Fuc>8-Kjr{17ZRBTHDObC{r`nargas!m3<(85oHa z1n1L{$uKA?e+X0BQ&a;?8S8{^DrM?)KWqsg|5YGp%bF2+m9aw0;U}w@uBmx$-Gk|t zR#_RDWO{gHR$P=*eX ze({FClCXkV5f1T}PJ+jgdPT#3k_su7c>;iYK#-X{@5KR6a7+UPe6o+?+!BG*@QCUH~0!VzRk(#%EMpgpH@BjRG z@gbfMxQbrvt#MQ&cg$qnDF1k|@G~Im)2_qAwfyu_cg8q6Fd<&`ft;qAOb)aA$!-wu z?9g8}aq7s8bpSQg;S&-J3EI~$YciI zUP7K`k-GWszLpW9Gt%C~K-Jrwox0dRQPViKg+vgyM#wRGKbM-L5=$#*n%Vl|h))0$ z>A=DQb2iJcyOfAbfzIGzChe{F*87WgW_r=#!=dN>;klh!#X`EB@)lipSsF7ifbRn^ zoso&@KYVaKenQCW5*j&-eWI6fdI~5&tlC_c)(iL#G5Xm61YAg7{&i|5DD9P%RE5}N zD`3_=4e_*k<;muotVqMLQU_FbeJeGU zjd`a{OR8HwH{+!^Yz|UU#X5^YBt^N2(mW+$6FHNk#xkW z>wXr0=onH(SDO?*6woeF`@;tR)6|1t-}(=%$m3V1)Y&=CdggL^XcF+;`6e4joDLQae3uuv9@4T_r~K&MeBxEg z;Ss^){FJltDd1%DmD%X&c(?r|$oJ_f=S}vYSO8V1Wn#caTn8TXbpNFBzC0-0?_nt- zblL)H{-vPIxxA`dq*5!;`B6}HH4ZkUJaRicJ)d#ldzsaA{Zl}r6hoOG590$8NZy0mA`5%5WS~xbF9ZE{k{FFT<$lqu1zs4u-Wt7>DJ=R` zr*^Y~PbU2$0w3Cp`VjwUGcDJPG_DnZdhl**&Lt ztuT6&T?vRA{t`--^Hfms^v2@%xs>z5d(b-IzC=iF_Cc0oX(cG|dh#7B&Cw9hIVKuC z_vctR2f*ximz_Wo`yUVpyf4kRzn*cFS31l%OuD?Bd0uw4k?gSeZ>1q*yFC(8-N_Zv6*1ah6Rqi^)gsO&A`QjmqCDN;B-yrNLjE1}tDE2IhiHA%7ZRBu0u5Usy~#N)vnQ!X008P&TeGcX0T;`2frkgrwYa``QL13&ZzWT z-6C~u(T}v2*4CtK#}AIFZ_enBQ|Pq}y~ExOBf_2_>oXvuID4(e7w%!oY`KmbsFRYC z0LP8%+gW7}Hm>3BkZ3DJXTn*Vh9S8fpQcsM9&Ctzv5gE*7IZU+aLLrjeqx*AQ9rZn zVR1)a!jcSZx&CT?_h>cXdrM}Nt=7#`|B+a!p9$s_vyM{XH@mj7L&%I{r{dgP;YPaS z)^l3%ci>HK?JQ+(g1*d(Xt$<0F;dj_-UX{CFUFg~zF^VwGW1!@y8b zoL|;o-m5cuqz}CI%`tDjxp^Im0L6#3BxuSz`J2b$Od48hdl9CmcisA$y%9l7ez$|5 zKiJx)pT$ABo>?A6nvDsGh`YS(Es?VV@^_#>5wgIsflpZ41gOv6ldxpQ$^^Rn49oBB zN#3oMHv*Z(_$IWlO|t*y(k&-)6&tlDKQ>Rq+21@K$H;J?iS2|Sul>uF?HnVp+seAAXToL9dMG`5)I9nJ}S^YKKpU=Xr(gRXw3AGF%-w1)^L?4ziJ zeh7grzrfp?{F<{%2q9q|9}Qguat|96BW6wXMhfIFYUhBc&QC2znnICFFNP(b%UL zTE8M#j28%eN3dkpr-Acb5_7$Ma(%soy`Y}Q*04f{v}Ccr4r2*S3UJIIzfiMP-dXgI z5SjQg@6$!fEpUB{NSQu(y2r>zhkI@}T?wsSqgZe}E&t5|yL%*|4rj8OcWt}s^)bHM zEB6bU8>7I}t0b}aHC5=4?2CB7m1RKi+Kw5B;qvT8tEJHongW{sFF#fVv)@irK*Yyu z%cN>s-9cs_5Y@k|9)nzSsSjq@m9pUx?XI z-Y~VdWtZ{db(U7@(`kY7jkFQ(h~wL6XBdp;S5K?@;-fDD4&_KoOC5a{+*o24;k{KCHt36 z`%0BPy(J9>RGz>4Urd@w7j39|BP+_ej-LtA7EHh!BlNaB8*o=RVf z;JTf7B>sDYd$nEf0csdSEOc0B% zNmz3IF2v#K=J%@gjnfXzA4VGbhIEfv%J0mZen(iy#QYOgA7`E8 zR}`@6e|tyfg_HyC7}{UQ3fj*mFvcdsF{$zgj4$(lt3@bZZTfBb6YBk@Oof&^aPwVd zB-a1*#j*1QQ#zh_zo%d8X(C-~>8v@?z87U`Apc9dmqi8v!zwQ3#am^Bj_%)?ac6r- z;k{dfrkk4hH(Xe-U+o5;M(L$OPf+P^T6DV$cPq}-y#dSL(u{-x!~2LV*B8Q1yaDf9 z)im(`*8*4ykJ%M)eoy#}7!i*qEfj+Ehw1S$;vN0MYw=A%VXUT!e@oc^0MYNQ<%SdA zKHw_tgF3p73t^T9&x6N1Kb9-O0(yP`b3I7PXXZ$$4ArOwWa(*)DjKV68Z{unlS+>S zA*yPIij;I)V4 zUBHvjVDCAlto?T6%ll(l{LLfA3lW9D;e{AY5KgCmia-@Q6jm+e zc0WfNUce*qaS$YpPJwEV^MKYuW8{vk`dV>Y+aRF$mf(g~wk@XDC=WwSTUW5*(kIwhl!ZbmZ@M zwVb>kB^q#dy$sb{a*qet6t#(?`VX3SjPu9P8}ONmO0-4AbCn` zFJDBqbtVfSc)f^97rd8d7&}1kss8YOO9SbMZ00E1R=@`vuYHWw#&jG1K>bcAA}zW? zq^6l2PSN#0E5lb%(Ur*e?Ls0f;0L^pyxD$wSRpWzcjn z$VuU*=i`cRpAN~99O_Mq)u7l}CCsp}!BAv? z(5#P?H#g{M^=#=vNs}&L(>WL&?WVG=uHQCa*8R48k;z@G9-VAzM;ySZ*_uSLNo*WHn_cAsqlEtU!nU$6o^ zHO4K6*K4Wc^qHl?sIOBf^}~Elxds&ZdoMdsw7@VADS|=% z#<#kj*~~U-+4;yLd~Hfnxa>rG900TGD;}rVAd9$Y+5Rx$y)hx+?Je2)x{s>X{$)p{C)zSlxs$*H|MY&B#t`m1m~;n^7>P4dD5DBefy&fd*;Qq9R# z;Pz4Ptf^%BEj8#d!>WbC|T=-Mxxr-VSlie z);GEl1y!H{UG0n4mOYjLB=MJs*HjfuR++8thxQER_imE>9X@6M8%bh5LFs=c?y$`I z%amMfVOI&QTWdvJ2M5?}!~&l80;RX5%1W+->kl)d+cW*lIq$bP)^ir#9}hx9n~$X^ z=qWLwPX$5|f$t&ZFpSvH!v_y6G9 zYzfTKJ#n5=m~|s;e}HVL_xQQGzilL+@7{JWA9D=YLF83dtudTvNbF_A~S_~Wu34?bQdeP^C) z-P^qpqhX;`amR3EvPqeY^Lw(QshF5yMT_!7iJ3kX!#zEpZ5m)gM8!(@yKsMJr<(>i zpxH9L1&~bMXlrY49ZnZO$+7cujCVK&5@by<4;yzaEWqFx@?ON?F&kL;nkH=J2VSq!tE+66Fu4#)NL6RlwG`>gGx2mgD{gx5&R&mv-E~? zm4yfaRl!$f72RC|@gEe;dReBiH`VUW%W>1anzpFL>fX+EXYW`0Q+?>$PhP4r>XGm} zaKdm2*(EWu_-%h1ew$XDz<{FABcb4cIu3{pRtXh*@ ztk{q%Y^n^HS0yC?nSeu>&gGf16*sl*jFolqP;c3=gSys$dHK zgkV(WbKTiAy>M?@i(2frraplfjlZOYD^{*smu&19*Dpq1p?!S(9a6s8Hg$?6!lacO zwdMpZZ9K&LhakxN1>a1#aN>By(A`ia1=w4pTZEscLr81dIwgW^vDhQ&U$?v_eHe>a z#jb)cBA^07s|053ek7}W!DS$JZxi%8>Ld5bLcY@t0se1}ZE)xan@jO~=T4!rXXXgd zv>f#NZZdyJ*^sJT&eL=%2@^Q&?4hFwyRl>sEw7zjo~1dG`-_IV;lgh3S$lf&6{edw zY=4^93=vJex&zM5Uk^o`->BD`Ya*||BQp|{!P#1!Ov~$kViKgT?jhU2$f|2-3;$Xa zo$qGlYyhzxjB8<`+n0i>-ZxL6hsl$$G{4WBeg#*+clXSh9_jtGGhTBzFh9@5rz7R? zWiT#Bg5K-4#xkKcoOCCssWWLvtUOcX=TH{;(nCA=GrjZJhT#Zzw(yCBJgw+KcH!bt z0cvQ^dIL{z5#&_%KQ&C~kN~+<-RmAA>7uWqCRj67CMl4Z@4JET8JG(N-zu)_0EA)v zRW9NEBO2^Z=(HW1kM+{eAXT)c`iWRId_!RZZDR>zgGBq`Bk=a&5d1#uq;9jZ$r9i% z_4@qKxk2sJ`Pr*(8F=qIivq{4Na*w__%zBJ1JebA)(zA=Zh&pzpb~00TUpu3 z8gS%e=qQ5O2ZuB+^@U0_&FT5wNu+=)=rglnYt(dNZ$ungIGS~$X)Nh5LaJkVb!%%J z7&=r`Ar<-|9yFr~9OQ$QK0YWc)ij(0K-zb!ZWhtS?N>KlTxS9maH8G<_P-#L2D zl`py&_V`TPsZvacO~jlEF%8*#?Q26FnFrZ9QOg@{eeg7?!-)!)_)QZH$pf?ug0jKhL?dG08 zJtL$4-;XMxcgzk5n4%y3Pg<~^Ru~uAY2EY3*pB4FCjVe3c2hXlyi$a${&>ua-1~!rcGfi~mrk zTGpaWU)^KMI#<|IxKYV5HD%Lnfddpet2kd91LIi3Iy_y-eJ1w2?*nImj|vlZKLuy|u7 zo&4vmy+`%3?q0L8HISqVWy(q3&-nI<8$oBy#~$-ln*8$%H0M3+$r}Woso;u#axoef z1sp{Ef*T(ZU)F^7QOUAhtAYy;q2(|#`Nc%Z=0#mijVN%GO()s82?h*QIprW9qzZ)+TQ_Ra>xe}ijlgaf$u_pNpgr+j69X~`#Dv2nn7 z$S;(`pF&{vc@liHkk=h@p29*H0RTR=NkM?EUdH86t`F|VG1|GTNoqf<^!>R*9}Zj@oPF7nPvLTcHMjc<@0*AoDzBJNtV=mA4y{}!c z#1;Yn#2VPon*Z^T9Ldd5#}yyBappYF1)8ugc+p!<!$(W_)EMP`?yei zYPzC~TerswURS36lD3a&xKkC!2vSM{S2b^S{E_D4mV>q>786=e&!3ta#l_z{mU1); z_UbW!u39Ns3-`em`8FKVrx#*dQs8Y&UdCRPx}RJ8fZ8wMwIDEEu22TiN@>hQLc-B% z>AY)3+qW{*Dfr@K0A#wVT-= z92WiEBe2nTe{e6M1OGNQ17VT1WtBXtmx7{lwUgDK=(KFprvpCjg{>h%ftOdEXX^p} zjez7?&yBcOe^FtA>XxRk+mc^BOmU$k+x?0&J>U~%p+RH+u>7_lOW(Qg!+^JZi25H5 zBw{R*a~}8Lv`RbI-2v*dlWJC2OCw(8Utd~o?h61u4|Erc)9h!OWdf5$rr+X>A&lg` zYS2{hCgviQ&RgoN64uVT zNB>jk?tBLP$f9wo$YOT7Ur2Hd-5CB9tXX;+Bz#l(#{ewwfgF1&^HavqH zf1Gb5lv>1iAXf)gj<1r88EzVNNOm|c@50U1f84zVx!lwWd@k9l#k|dRQ`XZ23-|kb51B+V-*v%CgU;YvF^A4G=AGt&dHJfDOpA ze&71y;>i3THcZ93k(ubKfob}db{A(mVZ>S838YByJqh#UUvwpthL3bCESmID*VYO( z%WB*nNr6VO-odPAd(xMJkacE11@kdwf(oFg=s6p%)?Tu8!3ZgADFBCzYi3v!h-MeN zJ$M|t`FL%>MBgBeDJ!D+65HyvoqBj!bFOlhp;cIXF@>mCiBqV=G&!v-suB>}jO@qu z4w~R7ku5^Rw6J@$lOA7TFT3kVB+>hqWNRyzcb!O~PEX{mUFbXlw}1_&yyF{OS_&VG z`kHuLm;{luZ$;Tdq7jB9wwB269<4Bdh5hM@uV*6%lI1Qnqf3@(VsSg|ePHr3GVsB= zQs2P*>QWVODUDQRw}rZ#{3i1T#j3Qe1<zE9w)AT{WmREUz_;n`oeqh@lzMD4b<_i} z^ln3Mzcfn7GhJJm+%{-hA72Ouz|_PV=-@tk(v4 zf01bhS5o}^X6S6$G`Pa&_5#hnY7pA67Pz^Ni61UrEtg1E`gPR|uihp%8uLgenFbd# zLHCj#OXBy8Ec!hk>$2OLqn$$HlYV=B|K!__V#LetM)1kX+9D3Z5r5=uaB zyCK*XY|{`mjsdzFt0RRBm+j%-eENi`1W}I%`@1KVUN;bQrs&;VVBFei`SQ$uQ!%Cy z7r05H@L*Z^(t-Z)A^7}uS9JLHL2&0AwD=kr$f7l}nA$77$&a4zG`M3(0zE%{Wxo8; zyOIGb@3HQlo#Q&O?&@zlUuIA=14=Q|Nn~2Rrrwoo{OmaXU7WkwnOnS#oBH?pQPA() z5?{XjjNd=Wa$)O2g4njYzYf5)!#f)587A1BeUqivm@jME8{Iz#XFlz&Wu$0ebHFuY z;Z?EU9E`U=WV;5eK0LfF6k5v}EV{KB2ux-y`g3!0rz@2JTM`aHZnC~!RB5XTTu^of z3X1{ephxZIBf5aj^QPVtQ<74)$Be!E!5>KTkWH)xsETuaR-X>h8={vZx9^~*yDHX| zWop^)1G8u$MOckZP2R6pgE~682TL`hzm;5+gnh%avd~uKdWNKZh`;p!zGW_!8E+>9 zx3C79T4}?xbQ&70_!n$SmTs;7m(bQirk1{Gqj4mrrn{tox8ISQTsHXTkc8o?@Vl?) zp0@hQpYb|iy^^-f>kAYItv#!`WXir-Yw_uwfnJPC=y-z?jaseF#QFW#-fdJPnO4;y zEA|2zOJm9!mSMSAF4RYK;mae+8u1tWpmN)&a>|Ti^%eqgXBsjUgnj;V+d`35so7<# z9#)sPMqM>qMSC~#U=xDx_n(YJ%l*DjqH0H5a{Y3I^OwxEv4nFAncv{`0e> zWv?P}x(CYz*~b^Zczd#NY!YLgyE&|Cy%#G~?LFo)C$mUsgqzumk}OD%EZzp`o8 zIlg_m_|W=D#W85fS?t__0=d(x2O%s^FdDr-?>=UQl%I75-)UH?Fbg{qIa_v}Z^W?p zKM}O=G=|&~5Kej_NNRjLNi5n&)-quFX_|9nH4?HJ5L^(U#q0h|n5E)8o&t;KmWLrv z?cHzYI2ft=TM9M5agHn0IVY|CkRF-ZxEQ>|eVL%J+|(Xb+|@g%6>MACo;ieAvjF}j zo&DYZjj~`GyFH(MPsq-CH8V2np1+8M_FLV}{pXST1 zXjU3&UID?Wxe%z?q)a7BT6#E-p-L)w;XFS9nGXk_Z+4N%So4qFw5+Z3Hp3plssOab zoXaUJICFRb(R7^O{|XmlTh10Tp2ol)yxi;C1td>AEFIe~szQ`O-z_csuCFhlCv`3y zbxBvUm+q&Fy|=&5L@gvV4Ai}y=68vn95wxNd|BD4$wqO4_KQF>@ayC{uf@By$6V)w zhHRXjF!8gsa=k%=xMLeNkIUVBX_Y8wey*W7Db%cv zO^1%vUDiOCku0lOeoc0$7Lz8H%1NPoDwbTm98O(EM~k-T@~x{O9R6>tsJx|qQL+_e zN_BD%8|yMmsa=r-J&6$ys}!THAH!8SB|KA>b}-Z5Kl#Np0)9tkWJDH?)JzQR7Gu29 zGsAFJ>pWG5(U~%I244qpL;Uid{>pz13X_{f5s;!H)Cmf_P1W;S6>Q2Se;ms3ixz&| zeev2Eo;|c1An|+LZ9h+Ga(3(7rBM2=n4Ysc6tw%=mg9pH362SdDsCY|%~c3DZC27Y z3T`uWrs;fvB>@i)<{WHGZ-H0>Le{)aH#^6o9XjBZc_4K;k;EF8%y~CLAXpkR0nh8et5=(;mQ@bKX(0uOGyq}un_YP8a-Sp4drSkMRk|0v3iFPC^ zs;Jdh5VW!pFjZ+BXxh?KX>@s;h4b6y@4+-ZdY}lnl{V}r4eCgbe*H}Bb!nm`_yi}H z8h4^oKd|rvQ-)KUge*7HT*0I1Z~fl=s^M6C=L1&X%sfF#fso(X zR7`TmE4?V+0r{Py)BP*K5uugDRCF+>yBUQu;Z*EaD?!yx)%gp)(aV82<+M<7T}*-W zV)N4<^H$AgjkG^OVT`-(#p8C+0 zxV&BY1^B9@iT7@<&dnFzJ-x=+X(;baWg+T~U^FwpCTWn^C+f&8W`=k$p3vA-Z~)dv z@KP*ZPTRv0BPv{U>;_A!%_S_=*oJmSFmxFAHvE(z+)G3`sKoX9$ot%9-}VV~(UKAP z#1aUBC8h7}NAj^V=wP|Et#a^BVx;SHd(@v++AE2Ez4Ml&C_2DEh~>fmSxCrb-g)B# z(lfyvBQ-*>yfkYLjJULSgV**o*uX5n=Aq?hu7N%(p&@5NHh3JKT$j3J;jl3u@PT8N zq%(Tf!~Qim2@A3jcD3GHCoWM$)3Z%ipgui4WhIWMiwbV71lEK%e;c_%fg|VJ7ynSy zHLu-RSMlSQSeuC%bPWwI_CPMs#q5z=!nbdj{Q`;S9&I?E$7bACaF1LzI0$LT(unv6 z4wmZ#Zl}Z0Mn7RCEUkKd=U>2ZU7&O;+EIYpxJNsC6KWrj}( z4uako^74>{s8(tme`5YflDyJVo>OYm{f(9KChjQuTvX|Oa9gJ^gI88o2Iy+Deb0G8 z?{`%sZA1PLvb^q4_JoBky<|;}iQr`L)#1RWBl+2pAdq;-Aa%YN9ofuD# zQTqaG7&f8{RWn|MZL2T6Q<6XBrWN@ZQPNOx71GJ3yyhf8Cf=wuptEM`+eucbw}2BLgj zqw?(@2aTo#-UzrEm^5@|;4?)JVOV1_r`y0^7O&Mlp8aVJ$k;M{cAPyt2Gp_h;R@O9 zP6@7W)i#TZP&7q!HEziVI~c?I|DcP;qO7@tnPk*Bvdjc7x9~u(`>=2Y$b<1j+e0Qf zQz8E*SR182J=sM#P%f?V_U2xQ=r8bLI_hW+!Auoa6wQ!Iir~7j78ToB-5P$Z@N47U zdY#|ufbO=$WmqUqCS4XRh>z71|M1wa@Sy0j$8e9)6qNMWe7>clKbR-qbCv8H6!nXiwNRMUQWK6 zp!V!|Mg0JzP?$z|)Jb@q*C(C*b(Z>X?z+LL0LirTa`gDRhtfaVGp>8SoAc z3_=OG3^7YW`_@ySoOy71KgOGeT`R{Srxr{pYK#hF=r^nQ=seb|EYxoax}=I>Bjl~_ zONq$ZGuhHRE+^e|HGmBY{`X@@Ep)`RmOKBSOSuyjjMH31Qb+PqG;LHcXW8My*5R)& z^af4=j`0!1{^)l7pnV~E18styZhzY!d&?XY!~v(Aa&na&*H9f@DW7&wHPiTIGHUDm zQ_E{l&2uF~ulV-Hp;m}BVjha!Ab6TrOzq*!_XpAwxj>9RgQJqT>EF`=AFBS&q8UA& z(mb`~ya>`b(}@m$isoN*IGv59+Fe)VV|$Gbd^XT`zx|}acd!`nruDc2If;toqb_CA zj~JoI<;C$}h1T@V2QKemGUXb+7ne@3z7a}Pg3z;Cb8NPCt4ok6&@LN1W>M#z^znV9 z37WEDy7V^#rjb{Di~tZMdr{`?ugRI;#RM^T_ca_Yk9PEr088l!;@<=8ON~_Cfw>#} zs$^!P&5H-HdbEbd_=}}<0UGGS^)k0ituYFiCxFl#pp!H-Z~?Ek7#uJm01XCUDK)jU zBJ;cOXbox{H}PfB*|Oq3ixWoRs;MP&6tc?LjIdM4q65F0ZVtUZkwAG`!>%o9$we@F zVpm?y`!?b?vKucj)Vujk4OSKo8FodktaNeO6#BZLsbfg|J;wR1uZ@513vW=rsr}n0 z&Bsi^Cdt5N3C;b!x8FU8Ix^T*vIrb9tL2iEiW&$|{R=*-T4KiB4Xo zLvoWe_qM70LIk7!$Q6~BB5^mhrb=x zVLl^4NE(SO;wQF}m&&)(52n&BsC$7(<0yJ~9BRJ;3f3rcicxAz_qgI78O0*o!9ooU zMFy1^wuE9{>pyC#Tnjv$%_R^cJ$ZvgmsTykAC(zc;feS}v~njZ{ePsY8q&WFqV#fU z5t1iRX)3E^hmfD(*QzHe)41^|StvtQQd2ibOHh1Q3QnkuGhF22HfqaxlQ%#<7aqC@ zJS?!wUbT36#lCoS&_ZMgN@qp`DSts~BbvzJmqvA`gD!+{`=nzq`^8VX6$OiJ5(8)s4u46fTTr!N$L-6C8|pz}EsdDW+JvzXz0XIla}6U- zQFj3bCnV{?X}?a;txZr{t$3{*rQz!SkuGAXV%#kjyV=v=*Q={zk0AYJ)X>w%o`|$CN~2~%{Z5sIFWh2my?jmtFe=hDQb*&? zXcjJaP8=w!pgFd$_8m8rO9-4!+-ZJ(KI*-G#y|XVr6j7_%(fS%Sg5n-pr{Civ3+Zb z_{G}#5En^pvA)JEh8>%}XtNZDsF0g1B3g$}_W_xXR~ z=cORI?!w<_q0r_&fA*2vkIosq-WVJTFkt*1O^vp8AF@oV!b_bqH{Vd*T4R|#4&6;h z@XEt4H$2-TW2q!{Pp^bO)>tktk;epR`=AXDJI_3(?Ti#=H8r^6A#zZt{Hzsi(45<4 zVx~bG#EvzVjg_{=vvf(rp+{~bZhTpbB02Gq$1|D*saHoca6Z4V%J!>bcY%Pq1MBrh zm{ZI^#{VFLkDycm8hA2C8ty;Ig0k@2ZDuUpC_7O6M|VCq^{%6a^8w0#if{TCamAZf zvmPv%fzuMuxsS)Jo19K+ITK4wi#JTEv8gEuxN+j9pCuqNE6V_xM5t$>g-L3aU*G*z zPKi)>0%!&!r8GIl-rh1*8P#(q+a}((+Yw$nHPWgh&fJ5}G1mY&L#7E=n_pONTU{GD zOqq?dB`uV+{Cj$d7j5JL_%e^6N#MS&t*s5n^h*9_M<~#Be0;oiq?$+0f@o2PH@o~> zH%%f>xoVRPUc9j3HYrpIv!GC~y5j4Xr;rPt3K}&xjU*_c5W}(Rj460QOnf!$rGI^x zSbQus4bE^XWCn7Jx|BWeB-;9zruG!?r$Y?MTsIMmLNVQST-jU_J@eaQCh#egfR@~a zU&`ie3V?zbQplx@g#&Vn@yqD?m|<tnPs>%i<|00==_dPvpd4mjs z48a{LcDTB4$4!vP9+X4!1U+JB^WHH|X8NSA-{=u)8yp-C;8VkvQ^E5qUT-!iQwH?p zc8*YnDYU^U?9ie|mwy(MgB6jxK`{GS|Cuadt6rt^A)A}+(1Z3SX4x(n#|JZoA7#>& ztf+!P;fpp(kSKlcMxhHOq3jPZT>^1R*uNFiul(^eatdcN1!Pm!&+%a@GAyEz$mX9L zYT)$veUy%L|JHlZd5Mm@wU1kY341jAM(~g-xU3f-nEk7jI6q}k*vHW!_(5Ly?cTM& zjaQMyQ3bx1JY3V{_@tJ5EbiN)WN!nR(pQQjD4i#(dRSeT`1z$ZVJ2$j4w{RSD_TJ_ccvT(H9K=_;$HG*CVYn zxfqZ{QQ3$m_1_Fzd=t&-&;cv51YK>H-ER+~NFzyOE?qFR0t39b&@T%Sv_;;>N0vNq zYdWD{GkIKML|RtfhfgXg5ukRLlV$nLm!g}mYsCT0LI_mzT{wfzkzCXfHj3aYZM^X8 zk7mEkyNd;;U9pDVxWkDdN+O$3RV{k8(lNWoIrD96!vEtTZy+f1}a zj=ZlA&SVAGN+rypS}OC|;+Y4*t>Xkh?*YXQ7&t)FQN0BO#_@Sf*Vxh=d$a+wgA|2U z+t^L!`uciwrACHf&bWmFbyBerw<#c-Y$hnENj4vznMr79a0jaG6VPTbq*-?RA~F2l z$^yd{{`5v5*K{-t*X$0q?EJIkt>gNBb88J#R=H0bXZoL`)AEW36skxfr3_Z07M8Ut zdzO-H&(E{7n>mgCW^PjC|EL3V!>N-y-1z(d0enG&z8bWn;PBzY)JAi)I9_ETB;(Npfrlvt zd0tah*7ai;S2I<9o5F4H`-PtJb}U~Q5bZt-tscVlBwRgpS;RC<$A-??O2RV7`ZQS< z*b`6l#~-_w#~*#1ed|lS?Dm&j$O3pU-5X)Dn(_9O4}I`sEcbjuYHX3wQ2}+4^7_}^ z#kJROIOJ$m;w1t1y#5~Uz4rl>7crjgaQCb4N5`vcS&_%=k@fbDZ5e&;to zM=ue0q{LoEC<+2$dClwYV*k;7C=VnRN$AkZb>$YQ+Q7{>T+LONALqfx&(V(+oya*^ z)_^9*+7jV8O|06LzvR>LYGR3Ne=4R}-?5z~vWF@n zlui&81X2*7z*f#X&>Af~rl~>ODJ!cXduc`(+IgNXP?8{yDC(SPS);-(y{=?9^hmnk z$&5&b6b9b?&e!ofzxAuEE)DtMul+K2zvQRUz*FD)Hu>%ro>ts+?d5bk?%uT{$WLIS zAJFqGqw{BZ_@Sq{^UfojJ#!kbF1YE$F^()NWC}|Wyz)iY^X#cl5c@I54qe8^!I+|Q z%0A1>%lN+F%(>HKwX1L9Lz-vkswB@QeDdB;^3Ycl(e8)@K_^-wD^hN~{d(@a>w0wU z$`w~0TjKIVM|o~DhsqN6h8#O`nNxF;aP#&1=|?%6JG)>tCyw+vy1$Dlaj6F2=Ibxx zp4Y#QKl<1w`P3)>3~Ors(L3J4$&-ip<^zxO|9tcleEO50r5pLY<&Cf5!2X0lx@*5W z09&RE5)bMbp>$5r)mKKm`}@9|-~af1eCwM}a_=YpocFxzwRl>)Rzsoj6pSY$hu^4U ztbrf@XYb{~M;_wr&XnK%t>55HFT0t$ZoT{kPg!r#n6-xPLNDP3W}J3WY1ssxx;le`Lrl1#%<)ucm-T%_>Xt%}BxBqWb*KIW2_L(jUB(!Z#t?{2u zr&w#*w{IU(N=}_Rh1Qz2wKa#>#X;?7v)TMubzKvN;XE4mJddI%$TF8sUs_sf(9-$b zfVODoIF8xg-gfoj+UMN4ZIUG6=9_OO2tuaQDTfano%iu-tvPVu0BP1C3Is)2((QIR ze*8GOev-|dJ%S*h*Xz*lcj?%K(bjq5IHuq4(@hej7m$^G?9`n@6ghoPVcof<(nJwc zb18~~{&0Yj3Sat26h%>Estmuhcq#^|NoNH#BJgzu!YY*VoOYd^SuFsi z{vlAy#(*zlo;!VxC!hKVAN%+x2%-?>OJ-TYcv5iW@Il`E=DT_8J+EPX(8$geplnW+ zj@cxg#TPj`pCYP)Uf4nDg2NlD96zx^m`IEYs4QH4MW1~u5f482Fku8IuQ`U$ zF4~keOr|3S!zJPnirEyaOU`ee<@bK)gV=fo^^7E_P&y@2HHVL^bJ^wl9ChQ~X=Z!R zU^f)82UT5@cpk?Nz`MTt4gC9`{VzC1AJEWV>68&OA+DXJos(`2D4ZIZ2Y&pmf3Z*=M7t~Fi|;Cs^b zWP3ik+@s948SiXU7h|WbEWv7xkOnC%y(B^dqn$IHKJ^d>ynP5eK{2G`!7ayq-v6WT zBU@g`GDAS_gu*uT^UxQfEQhN8K3;* zXBnq8pZkl?^0GVM&F^9Em?^%87u|6^N$i|~Si%*D zS9suSpT(0Q*Issj^_75b=nUd=4~Ctb>E49U54icd;~ZLPnZh8;3cM)f-~12nLa2b> z{@@?*nNQuz{a^kZ)H!9gLs8f4-?)<3y!zGr#QWZbXDy)=WZF4Ud*@G+O}0q)HbFZ= z6P>|7d+$5=*q{CxJJ}Y$_RGJ>t=AspWw$u~{Mp_PyE|v-4%ZlTL&vzL;Hu+&e(Xoy z!@vJu{}a9x{O|wU&$9L({{uH)bNmI(*E#V;yDb{rOX(Eblx>@0TV!my6q(#ELhWm< zVZD@LYBHI8$B$YBV_ihUXYEDN@1-f{_H&m;;)@PJ`@OBfZRP)hAfVIf%u&T{v<|Sk zy2^AqC5~fucX#KX+1uNjBcEF^R1JoN zJJ(5-@O+2xolPsc-7bZ4(P>+|ZX!K*;l$k=v zc}lm+ov1z5&W*p;nyM_>-ri<9b_nj4fhn7$NCZg`BCVu0f-!a8NB=FUPRwBEX7bGK{`mVr5ij*u9mowlsFfXw%OCqxdKFpy4TSq5&b z>1sZ9l;?=-+iSl#N7{MOM*WwL-%ID+-*ro3_$NQ|Zf?2tMLh7}!#wi%BRq5ZS**02 zIB|$$M^EtDyI;v|FTR{Oa{flo1MR_!Z@z-8a5Q%5>^z-FVCx!L7sN6IopJo~!^9Cl zO(X$4R)+A-x4oLr@9VI-HsGbVU4g72RDdiAr9l`&pd{B^b%>gm5_XrFj5B->M3oV$ z8dK~s>?)2O-bYbQsPH*?!y!WdE|!Kd((Vy?9v&8BeD1mX3Lbdim1M<~ey?JsFC92Z z1qhj-jUWu+rFUEhQO(jypI%bB@gYnzHUc6Pw_JS<<2Ss41IvBZ`W>)fOM~ZIVg)a| z{c7USa&%)K%R~2ZX{BSC(gLF^=cENb``7xs^-Ztf{O*{WuQ@?1!P6kEb7Va!uxJz> zH(hm%?|<7H>F@7wa5cf`j7a%R#})7U!MCvY+~XKy*xfqK==`%>bMzor96rE{Z+{t4 zgQ_)EO%&u}MZmQuE+>gx4|w21&$qno4R`YSFa0&1=kcQJ zj*?F_gG4zl=hz8GWWYav@Aq)W9e42YkAH&u@4p|bOE%W8V0n4St#{nXD_`~!mJ;v~ zq(zzx@5 zLsnb5D{D|qF!cam!OmX6YhU#;zV?kbA*^BN^iyn|Jp(V$;0kN4Z5f$>dBmD!8KcpN z@pw#{rj%tl7jkb2AcPR}sIVn~SX_8ogWCdb%CelN*cPc57Y!_2jQDI(zU_jwh@fuw zZ=;G!qa3BwMWC(4+HJdk7>4t86`F_uLkbJoFIX_}cw!>|5pJP1jHq6SmKvr7UxFUh_R~dnaDp z;~Nh?#Bgnc+E}u}MfK;;ond8Vg+Z^26_VP3MUs}TeqQU0ES-`~XGB5BbUX%Q>4Xve zet!-k+uGS-ZEcOD+hH``BMd{z+Ax`>9BFu=(==tew?|#q^txRK9`l_OkfkYS&z{AT zg4NYkf*_!-9R*)iTV}J2$t)u;YOGWU5n}O>BE$+GqZL{Uly#s!j6~}a-*?R*i@nzE z7;@w&jZw4D6Y9Htl2rhbqtW6saHxJbd3H%V$JUFqffR zl(TGG#ukZHS_kdbuYUD>oc>)lYb_Q*UP2H;mcwKQe&9evX_hsajYgy!SEq{a<%gHC4mn}QzDw$_H4V0#Kl7iJj@Vn_593fJQ5TNfEmiZOoFVP=#=36Ezi_d^m2%Bo^-1jDr*o(prM5-nrBeE5?Gzc5xg&i{E(5zKySm{elmZ7U0 zmBbh?VsqkpJgW@WhafABuZ-*A)ta)(utG3NQ~JyM7;ASAx{>RRwpmT+JHr3k6im|@ zak7d+QVAGUnocN5uqX`1N^Ap%9?vwLj$%5k8FW3e%+*Va0uZ2VNhc^83RFeV=~Gx& z-;^|B0=W8n$8#B4J=;cGf$A=^HFE&2ID$yHvPy-ZXaGxf0lmQDdjd~7Al+{66nJz2 zNdO(|qD3JOtdKdVxjdA6d zNl_ugkXh;8@RiF}>~6dL)>a_bkSLgr_gG2-jMjKzOsXX{g0eLD!Z3_HbX@=vt$d7t zQ3jC*%0SP>K-9prQPa{j3_SN;MMF|o0;7>;t*hK;U*Np;;NrCHMH71A`K77d_PsC+ z=LW6qMQrP-i^ppJE`qBTS(z?<|M`eA7RfT&V>rbkeNk;}aoro?eb z9LJ2O-kb=(s%j>a32B-#91b~j=nxXkWHO=C@!7X;ALH?eshN;wQ?9t|at@3}jI)yM zoiU^FlrRikhM+3JT0Er?Kw4I0vy^l;VYuW3>+_kD2i)4+#8=+D6{=NCl8qx}t!*eR z`;@gIj8c~h9FMWqvep<=QUC*MDTKUGbF4K*;l`cc zq>_B;`u^&=W|n4@d5%;NMInArQ`H4ZiHjV-_Wo+E=l7s2OQI-x-b~Bic@rAL3`0a5 z1^7|Z8iYVEB@P57q128O&*}`N0tP{dHYI`51j=JtLMH^PEw!}>3sSjE0m4w%Q-Z({ zP+^s2oQ{c-1MC~R>ursps#0_@qZ0?D@fuHDQbk(j3;{x`Y|4ovMyNaxae^aHn0*lzr}ZD?8tX$bE&{ci4}daa*PlPB_w&4kwh`Ig0OpmG{lpT z&SrRCKpcjY7NW-3mRUg@dJW^7AyjV8_5%mDOH)U3vVX-LFUz45L2YWfkwTz}LZ2*8 z38J0@!Nroi&*gmZxl2^3|4mZ1aDHN&MWGNMp19Zl#CSC~yo z_74M0VW_o6{eQ^wJ>T}c0`zd9w{?;0crglX_ic4(+t=DwoJ-Tv?fdh!LR_pJ+8Wru ziSS~vt!U9Ow^8e*$5{lgEY{T8?`YG=lgWf`w>z)%N-0T_WFAF_VaPMjJi~zl2gvh$ z&Rmrw2}zP*j3G@^dc7Wwd1^dgT$NJuYY{~a7^xw~XaQRL_N|fUIsL(ayv*ixzgBFa zNFCz!vdfQCR|QEY;MlQ)grVS@U%Q|4dD3!SjS>yg>`9dE{p*eyK02+TEtZS<|T~9@%ZTvQiNX${pO9B2!t)43 zNMQ(HBsafL_Vf+h*Ke;Dk}PM zKv|X4Xrz%?e2j6;zgD||)v6E~C^S%4B}hpCjP^!!yUr1ay3T4$ON~&HKqZY60ej<& z&LAcL*A}ETk&00=K>0q}$%LRhiLRk6!T1pSKE3sIHyVv``k)ypSgQfLG1DH7& zXBM2vGwfRBOr)r)8s!J`=(nh#(*+|SjB=+%{Fc6PQI?QU_|u_N^R9jwuuJA00@su@o+y8QuZUQ%nr&h7|LDQ>*sdX|@# z2$WdaMXOxU|U2p zb{#lGqCAB_;JA@}v=(Tiuo}wJ(L*8xUZ9Yka}?S(qQ$MP%eP~qbqw3mOFL%%t`V*f z?z}99CCGMX>Sg&~qz|e_&cfEvgrq&9qrMY(P^$^a0 z;5Us}9=`HXjT)3YmOxmE3SvMZgpaR0m*y0rkgm&`=?}Vifg&vn{J@_x4V4%M81c@kVK(#?xbKe$z4CHlyiZAydmDu_=rYnD9t8xlGqW;S6S7J6hEs?vQCoDTFh+qEY41p!1R-a{7psF$7^k?YOTfrJ$)2 zG!&MGKn3KL#`8K<+5;)5+-VaCfiM^yQvI_jb9n)7}DvhMZmu`IITH}S1 z0+$7FYDLZ|*0sj>BaDDTL2lgnTAZkW@&u*{d5sZ`wyZ!3)nF^y_17SznG>6+W;6y3 z*-0al?YIoA!-fZeqNf_(Z}?8%{r_k4E{!r5k-(QyJ1!cr)+n`U#!K0!-~#t?8~HA_{Iu^cMgo_D zs#;^bSkGNNc56Tv8KxG`WAXR2`?t^A2)9i+x5vJe7rLc_lv2)9g6*{kf`ER1IIm5| zaf}dxot+(uBKwYvKrMTsyLgohM9)>L36VHn_f#u@sB(#N8FWXn+2 zI+5*|`1=^!3)=+>Q)e38bAxoyvBror!bQzrc_FVZj6-VU7HB(vcA@RW2?RLf31*Hx z6IRkvFgaR9G5J%0i{)R`Vo^FzV+=h zJo@C*eC?~>MhL;6<8js1$GP>^lN{cN>2;SVjCN^N3xD#dzhazb2y2+^jtNNU_Lt}_ zuW{S$morG(G^2Ew1?5wem2+AoeCUt9#P-PPLEmx9^}O_!Bg9=-t};U7s|bx#eEy?* z|B|OSQ-n~gbVJ_t*4xpwM_Nva;w~D=6VIIIGoSxDB3>r;6)!(|gku}asAjl?alq5( z#(eU#f8~(hw&IrSujIuyp1@S@{;SB1vETdS&$Bm!yeK$wbeX$faT1F_C`pyWw;tZ) z^MCyigozthM$=IqrYsnbw@5;G-K$>0zSRM}C~(8aS;A&eRgRTTm}V&dO<5|@%>4^< zT-b#%JRi~8btedSEY-}L`F_Hpa4OYu{(XA>eG-j9qEIi?&d#@s`fx8zAGiIfRaMQ6 zR=eM#(QWIeEeS;%O)mBxwx4N_*&e5Ty=^yIOb55eSge^YB0NoNB)E`*zO)|Q{#`^e zx9MVFoaQ|d;2{24u;W* zW2&lRXJ>~&zdOGMLTRv|s|w{wddU*om(<6zEMqd6(ChW+_WN_~-?gHJcTC|NQ1H-NDrw3 ztQCZzN0yb;m7%IMg?B-EQ6VS_NnIP1l1M4g+M;U%rgG72!$ZSst5kFoWf zv2C3O*&5nQ7OCc(o#P@JL%P_X>^@>ma}eV-`@1z!w2q5x)&$Yia|Ot`6W|UcjJ-gq zXj-(mpqB8!qv!ZPfB6sD+b!IDFZSql1G0R^#(_f|JbXFt`N4PcnpYmf>n~9Pzx{`w z=8Io>3Z**K#U8t(bF6JFQ|2kxUU>ztf7L7a!MDGGwP8R31j!O-b9nl>DZliA-{rw? ze4A5GJWel8z=TZGjH6dy&ds-6&p-c>@8i%atn`<#I>SnZCnVzv{;yxTmoIt4ah8&81r(bh$*Pi~d`*AM(ITRRn#$%H#@ zzls}gImue$0C(Dl2cFpEXMgTDDT&ZkNjBYMz1PL+oHX0x(7rBr+vH02=MNg<(jgYxef`kV?_(4G>CF8|!p^t(ntFKJoOk zn9|be_E=sXlFia49V3vQN3WYWt=v-Md5TV_GdFy#s6q>Pn@*?f?Cjuq9(kTK8aXio zxIn4d>vWJ_;A*i8Z7}Xyg$)w9MWJ8d=3WH2xrofVx{qzfNYidm8^?STgwpYyTH#V^ zU1vy@Qp~a$L21E;L{Wm2k}NBjjMK(3@^G`$8B}ZKd@@M{R#>dm2%(Y6)e771H%4Mi z-8g3kDFs3*Jm1IjKU

T8O0{XZG((?blkKqW959klD5tKxsM1HzBVYY#u} zam&p&u{;!nq2=L69^=~&Kf&4ECph28DpAyFzLcVBybIzl|MCkw z_|5w{efkWdNe!3QrJPp|T+UXiSUtFp%a0x+5SG1B%EOPH=d0g*gq_iI96J1yyy%)$ z>auRKCX$^o-2c!ng^s}Mk_-|adGh~l?@fa(Ij;N8UoKU3_qXr>fD~y@7(_Jr-QV^_n}wMg}!i0JtU&rBd+N}RAYdK12L(}VsRZAMznC#{G#;2?ZsXm>t5 z2d07jLEy&62L^K-3KXAXJ`qK@ZfxDo!^^>fhFR8UY=Hw8!FsVJ67DM&s#ku^71l+L7(mI?WX@RfhvR*X{|YY_%O>Wi#U9mw7kk07kP7yEVG^J}4%PEiBN$TnINn4dr5CtD z%q?!~ybsWUH4dRPsrFi`aTZfKOp$wrwe)^*iNdwKqfQ7xWope+Y5M&Ptx^*0>*P*q zYJXVEp8Ob;HH)p+nsX&Wx?12GPx!I|AuN>bZRK831#Ua=@>Z) z>p5PpfrAh$uHSCb3kXKJ^_FIRU!FjQR~|%(*Zzaxqn-mFz7w{VXj1B9Wb?mhOp55b z5}dH$>ipz@t*=r4$`gf}U(^Cyil(v;0)&zXt>||8{M1kVIPZLi#sM$AZ1|%;`3wH& zlYhl?$6n?04}FO{?|Oi;fUMVH^}v3*-98`r$cI>3^aabGd;S8y`70me=_kI*C;#O0 zeE$c&kNz^8AHo0o=_mQ(<4==yJN(i|evY5{k^AY@Av0?m_tCrT0Dt(2KjYJX`8e;m z_kKS3o~v0}5EunteteVP_*Z{OWh8gpaTov7Kl(*(yCtKnyg&9wPrZw;KK2!Ez4=;J z27whWSXhCLtqbT(aqs3j?Q+ADKV3=zin5`1*QD(?6D96WfC zEX&y1+G=81gS7`+2k0I#%cZf-W|8H=K*A@8)YzS`|Jywhag}>+RSdZ+w?Oi zCf54m2(B^=1_KTpIKblKVzU;)G4WW&Ij*g>6jjN1TrwIJj3yOjVQL6RAcdZi@|?vv z>ofP@U(S>ilOfKQRAx+N##mb-q#?~D-Cm2OqFBRz1Yv&aa>ONPzEDn<_E^8uuHM zFM4m8CL08Afy&0%^x3yU(1wh*nmVCKC@dn}^d%im*xC}n@03m0l?`B=7aa99eOVyk z&1306IbSeA2(~Y5aPpOxG1UYOxDsx>TJgXSeII#lSX@})sjq$m1$0_)=F~~ftzQ69 zAq@0@#Xh|Kt`+XM<1Ut$4)V&&Cpdd1j$)FN)Z_J*gMuIY!6Ur&t#`7tdL^Ix{8!lBG-OhGvR&yB z{4YQLB%R)XANYYETw!5(g|wA19FIVGfhz@U?ZUBFPH=907b9DYO38`S>pc0j=e%+W z?3VDQC!S$D7Z{Z?E-H3+ayHJ7Nr0BhNF+_|acfHUuXZ@l^iWG3ggiHy*P?-tV z75JKf2IHo&^#r<|OK>E0VD|1iw@Z-bS)SAvW9e3!Bkrfgw#5u6< zR;z_2#Zvl)b2HT6(v>(Na_kR zRYg%usLTXoeWfBqg;WlupxsGOGVyaUoHUiGvMeD@Ti_&>Ey=nPC%qM}w4e8UA}9-R zRx_r;x&mAI1Q`xXS(R8(Zw}0ss|;%=%zGHOn9={8Axu%PLl+5KYT-BC9HyGTtnE#K zb*k}KD^UyFnf`?JZi5rIImdL*sfjGMjzg4F^di{JA_(&M+;!Ha3In7p_WG<024u+s z2Nrs?@t4%Vfh9P6@DS%OY_N9X3>)X*@IhGUb`YjORt3u~UvwbDL%8{93ukiLne-dC zg{Pi=nvIPOCPmKQ`maAkS3)1q6&P2cg=T3HZhPwueD2R5=G3{996P?r%{MJ_{51T< z7e3F*!NVNfx6I#o&s!)f=xI>Wpi}g*9`XfC1)bn&6xE%vL^HRyV^P5PO@s4-i&tqTsJi<=McS|zb zzM7JO(PoZz3AQTGMUFF&InQ`*XFf8+T7!@kP8e*B6b1dwgSo-yA6y+CH*rGL#Hd>S z5PY!VPU>gExoG{#=2!s@nb0FHu7RbU3m~$roly$aoFDIo68_XdRsCk$jI^3saIPV^ zc!*Hdq!-m}DuIC+LLY*bA2fZSv2wzu9Aa4G@STw2FZON1RN#lrEN-!I4DGeZC_(Ve zmg_4TVSlL&a2}qHA;U0U!O9QkD2jr$wY546m7GZc5-i+s&*9!eI2F|XRw+r8A|DMo zb?O8=J6m*mZIV{v6F*3SR0&Hf`>|58H5{_FvrDJfZDNR>GxYkMX3W#n!`ON53$_mi zgN6tetpDI^46(=u4jgFay9~;d0I3ye%Of3|JKJ2iaG^l+ilTmC#0FT zUOU}{{-8yFA*DA+{HveP?Hx0llErF6RqSxexUP?{Ya6RgV_Pe$I)ULz>+ z+6~HFV2;mcNSo&%eA`U~ffmRk^XCoB?C^bP3NO|qF6xV%V|O;+iK(!iwTwNx)>EZ4 zq7FXt!nS5Fi|B+*?F|PEw|DDobrt8=FR)!gD}!MP8=J7Zwaxn3)7)_F5muLLCT*fI z`Gj`nGkr|z+OucY;Mj{Vv$=7e0|%E`T^V34?Cy>j?G6!6vVUdOTUR9rJ0?wGxLYvD z;NbFr{$ih3PMzSw);2{6XVx~6BIUxyCP$85L!zOheR7Mcw4_q9x$Ubgs4NAcDJKQa zz`@mNS;Mr|13{Bq|M{2Bapue^*3X{gZFk|5<|$E|St z?MJDM;p~N79)0{pDqv?~u=V-M@rY`?!xbxS?!NUcWC@J&3C|pR2_s=+2u~k-mG#XF z-1m;Vxa!LNB+4+{8ltJoI@Y??cz1_lcbkJtOWb|u9a!sl;_2tu8o|~C9((+&l;fP0 zZjZZfxdBm)m<%V3M-|S3629KCL{e0OqEehWyUTMgY;o$$kXK&a;KgIxT-b0JhzSme@8&irkJCqb*3wjf}e|1UC4>p~c~`lk_>$p#j4L@4~0^Gi*ep6PV( z0ZE5WBv~t|&2B?w3QTFJs-V$NW2IuqY~IHkNK0`nZ)}x@%_k6Xto3<%N25^IYBqEy z_;cg1A7CbXRLqhN0weaN&6gZ(2DkoA_&*5RpdrG25dp_V3@%aCe*jpv|Gn53s(z zPSVQAx*cSi&|O~U)Y%KXeDW-5e}%(`uV!&^!0zsdUa#lbz^x3WGlqFVqBEb4Zn#U5 z`a~R~$(W+@F{8`N%PcM~vbMIy#>NI$U3C?U%S%`s!||xG_){tAwA&O#LE9RTj-tv@ zMxrVS#zR zTuzdBMPW4F^_7XVCTn?^U#NmsTYyL~#v{Z}x~p|35r%BhT_)$X7iT(x@8Cy6l$$4|V<_q_8k7fxM( zQesuc{>!ceyiiy>H{!vE9;Iq8(plJtv66Cpp8M~(fv;xL6Iwl6^txA_=TtGwU@c;jvL8RxaP<{+WiiB zE_n3Gr}&}wAEDn?jVFHd)EWn}gvo^$c>n#^@*n@7j8h}c7ax6!zwy57`P#FNW3Oy* z-F269*R5CZ%5zW9RZwmlCUx4zu{Eevar*QttYnJI`We?By@CJO?{jSJ0-t&GEbo2y ze!lSVV=&CQ{npEQ&z<}EIAgX;$J+WXLM~$qu*w@;Ihu*?@K1m3-?G|+(b{pk%8_LW zzx%I$mBob&S<4XVe3dX;hcmWXdg>z;bL$SE<|>2)i_P~Ude{6eKMN#C9Md)mRXu~El8}l0bX=BYErUG+5d}kiU zjRowqZ?o3sJQN=Ln`bxs+24l0K`6(9Hz)&p-A8=0_7+G003ZNKL_t)K!D0(SI53rC z-=&nYNfHtSb?Db{IHam7pB^!vh6rU@i##u|l|^e`K%n36A%v)NTd#ZOYnG8^T^747 z_FZ;4Cr+H;{Q3q55BX#Y!{JU{$Y2>$c{sS;>3LLPG-gulVyq_$3E`S~3E8nie(ar{ z9adIWD9h3lud=jZHaq8uA>D3w#zKZE^bb=Ae%{v}{+CiWYbz!k?WG(w^CdtfnylR- z32}9eCFXsYRaMme@Q^T~0%1UC97Rq1ca&9$a|SCEiUfN1?R>QDLpD z6+Vfxiqe)d^BzcLVNJx(MZD&}(|+7bhbdhA`8U5wyuL!<=1z8z^{~gqyx-SvaKlN7 zZgm-%g5UoA-{aSRdqk=p5&kZ=ap zBb8-*{^2k3sZV{D!>e!M_^T(l@}|oMb+2n(;eDy8XkdV8;%Z>hcB`u*!GynkJM>Y}h9DT8)AjmwO)PRWZl4SSKGiUrxc z|0>>ef?$nFH8I)gwV=1KVFe)@AjkRep;(y4LLF$bOoi{mwdTW>V#_7;E3Q@)h*)vh zQD7&hY07XoB+v7vV$yIp#27=j+x1EdiY!Y>lNMFENm=^D6`f9(PRG}r^?g*d+npu` zSSiKo%6_)Dc5zmaPfDcJwGi_@>Hsl^Y)D#5j42t9hfSrMpcn*!o2Ds6Q7{}1Sz216 z)9Exm>2SW$XoL`=DY-Wftf2No9ikstaHANbz)aNXgQiLJ998O`?4aNyt~_uqRTfAYyc zqTN!w<>*cP{NMj!?!RZilB_N06uO-j?KG=vBg$SKPq)+JPUKXlrHBXyy`YT`Kz`VRvjXDxovzaphsS@~VS8^YlwR`PFCG zf8Z+4tZkBY65e+2t)y+px-F{nTWsxaP+5FMC<)Sy*j|4X(H`)T|Mn;Oz`JgtYYmww znGDxCdd+@PHAO|7bB*E+G&vaFNG&SQH%kr*o8`P#F669*IiFe)ra~~bR`=5GL$2M} zdW^3dpx}7(p5M6QSmF5d@IDUv2@@Jh495Q0(Bg2SAVgwzZ9G0Pk!(JsDu&rZXjKrn zp+8DCKF#=Kx&L}O$>0J7o0nHj(w{K zaL&~sI!SZg;BOCw7h>{SxR;>BbUK}xSld|X2<-Im+j-(#ydlqT&VhIq`}M;-#W}g- z--ToSOHh_Mj@c|>;T}ASF`Xa37UPgIZ@st>B2W`DaIO)|f!QAX^wv&^ds6zkykYGJ z^ds);UZlh~im?4oG^sNX30W%mJ3sZKy#4MQX(tsb&pEt*l>-AsEAuHFO$9oG$)qGN z9E*#~{M^rekb|o&{`GJD2TmNXIDPsgsT^>A=<_hQm0)$H&(_9yN^3cO{5Xosky(o* z_0n!}&}D5Mq}Hshtszo}OeHN1%lj4>Df0VC({b^o&;W>7Z9r>wiwRr9oCA1&^ZJ%yG%*ON=nj0` z{XKWz$~T@m#?#+;ku-gT-C@Ob*B<7|E4_8y>U3~olZ~x)N~V5l>vC3?I;^d)bNJvQ zM-PJ;DOxBNt~x|MG2j%&ni+y_S(Y<<Gn>Qa8lN*3i1GD9|6)sJGMSL)`Ao=1+=p1Ohu_4) zJWc}{#-!WrHpLG72JL;Dd0tXgJ_}Q;)uJjb?N*mO&pCDK6c;Y6QO4|r#DSa^h z6fyDHru?g3Ur0nC7tLAI-skRHtJSKqd~bmPBo3ftLcDnY+Lz*HsI zUVSBZ-Pq&WD;Bx=$bPQcrx;{DR<@)3MqXLS(l)*B0+VsUfo1slzx!V9dFw5#ojJ+x z{MNtW>F3Avx?MCr5AlshuV!_rL$96j@{7m4Wv$w58_QNDm;f?^r=K~->e4FREaj%_ zk5B=(-f|Vv<)qT_{4>v@5*QV}Oq%$SH%4oH_7z>9kgR8E(jMBlUKJ!`Dx7KO5B=_8L6A3Wrb!m4x z1R|1?!WgAQZ3oq*x|9qzfNV~wp*^J)Aot}+wC@BS>Ias zq$g_h!dkYs)@fy$G9Qr}=y$+6M_EFv<)2Su40)adG`S7t|9_*j84x?(4Cdo-=i%a* zBsC8y&u^$5#m4nU!-hQ{4;+3!g%W3(#+UNZ2B98afoTe}Q1f2n z(U6L2VUVWjj6XN{`nugN-EOzOrcXs!RkpF{`uznuonEsD^GV5g~+YuBc zUwz_hynGy=v|ja*x`P2uoQ5Z!{3?lryKldh>n}^u7Oq@|cfIWnY`(*VvuAkt;aAC0 zPi)GoI_d<=Vt>HO(kfZj#zs+9+Zz|?rYT$N=a@|3?mIgC^p8J)nQZa3$DZI5fAlar z#^-o0fGgjNx!ho_i8bzu#wdWj|V_OzOPC zqv6CSh!8%cU_8nZD6~pZGNIe)Pkqc<_?TE>(TPOJDID)DH(z)mSoA@77-M{Sz0s)2 zTOBO^y^=f3&;4FPHeMITlo(S|mN|JoCeOzd#iaQ>p40HEs)9WCka$&9%2^_o!N=GdFlB|Q{L2~Z>8Q3&0ck9gkuTbiC{3a?rrewD9u z-}qf@<=8%Zil6zB2bgTbvV<=16A%0V*Bn@6bL}J_{q>LXxd&h6?7Fw^lz_9Rj?-%^ z)=nO$7!65z}s#W-1FA!QF1~qDjt6HD;QvB$1&X5M2eDLHziTt zhkXA%chF0rrAstp-gVy{_&QFo+|!6^L_QfZ8f`a0V#BQss>u$CELrF!WWZ`4ZaMlE zl$&76T@LQ+ao4Taqwyh9gI0?S$9QXts_>7E1B6N`N=sfiPMzQ8_-T0VB%IlSQ#kOu@r#PhYjnXbjnws~AHL<5=8e8fG@~kBcvk59f3&J*rT!D)OZQPdt z$?j!A#TII~PPlGt9S1+*d>F>Og%#iLywx;MlDd?SG8`L2@-Y!0R2vFVxF=F&D4C%3 zRLMyaZ-Iuq#Ndm!hx)r!RnhHsJVXXT7 zena%y*w|<+*j~>wn=f3rK$0X4K`Icolu}JO#&{0k;)D2LO^E~hK_e#W+f1uP9?zYzFzxICc5viD_3l0A97*d}{fA(54->ppm znVPV1_C>P9lDVR(QCm&MEG#Ti?Cg^E1|TG(@dVXw(bg7icF=Cfcx%EH2V0yU!+-O4 zKg5Hddkk#^zxu!bOKv>!Pq_JL7Y%&)hu_T$&%eT-fBFf2?{|NXmybQg;kR6dR2h#y z_BEdW#tURw#xMNrPxAiz56~(>`iM8)bI+Ch%!fb3zxegv8PMtW<@fTlWvEAa`_uN8ip|5<(#m(J{tfzV3JFnqi{Z`7Wr`P$ygMY<8 z___Bo9_>&JH^^K;FO{@~uNiyvx`T8?fs{~euXFERH#HHY3oTe^TXr|MG5MIpdF7!T zZDNaUbf-rz6KFi7f9rLJdGw1<&=Qub4_(cThkY7KEugCfDFs!&izz+hTj*d!R4ASC zd%yQ@`TdXmHmywHs+`gG4vU%Pmwx7Na@p#D<>lpzTv7AaWHP~2j#k!b zg#UOv=FFKhD5W@b=nw$w>+6jWT3lRg<}eVbnoyxo1iK!OAlL#iEl#WvD_LReLmJ9J z+6wa(Qcs34j^{8YDP>uEW_`eHh*_vd8(!0SG*p$S$!r-)X{@ETw!PvamGH6XZZ>y# zSR?&@ADze=9hoY2@pZ!ehUX)OrN5h-5cN({taD%il#rOo799mROQ+ojBxz?EjH4)W zdYvw3HpdKFmW9>?k)LC^*J3ivS?XpW;75P>`}v*U{y6#A@cSS8IREs2`#F@fXeIf` zFa9()9Jz%*_`^Tuiw}O0haU3E(_}c}#_O-)Cw}6?eBk@iIJlUQ z8n6{CWbn?rZ{h>*ejA^A=<7W3=$HBIr*7oz*)wF)k}1pgyyFgf5)x|>rl2KCG<^nb zc<;OJEc>rp=Umk)B=E!T0))(_x?gu_sl1v@)Cj7B4NcXt^MM_v%Pkla6L?6Vbx=KXcCWf}ZyLiqHBA>-0K zlss>x#1_cK-xo6s>3G8n7S^R;?r@GEP-D0|d>1UW0B;94HEi%9CN&NR3de+V%=;vS z5K)=GbOvHi)0A%43z3kE`P8Ws7-LvnU2SU320vt{(<4pOX0AFNA2t+1kIK>u{7$Ds zsB0Yh=bU48bwAEI*4EZ2ih_d&52CehO7I1;SD4E%9$_p(9_d&K0%nkdxC+x=<1m>_ z8suXh5eN@n_}p4MBd}uPns2jc$2^1`Tb=%;(K>CEC9e<`cs4V1I=!jp&6E$&pe71J zX|LGQpXV*aN=A|-y#4KO|E`CZ4KTLw@FQPG%Y@r*zkyx~mGyarZBde_6d~|r!9?RE zJp0lbCr=N#?BITmUfrXta!4}_aDEeBd3hIGRP0-BbM3VmRaGKYf)YM1_mx)-XU_VP zn&;1+Dzh6Ur{F7LkQ1`_3SP#-^+b9`-t z6)kjKSGE$~t);9aa|La?$=hx_+88Qvg)wXG8;&?NBXFJbo2YeFBXB1Z?^GX;J)9;8 z0y1no<%|zEPTn2{ENr;p7+|K_&isZnzj^N^ki#)~K1L_9VTH!lXZUQdxZJSehDi?n z3lL@42!n4S_6^2@I|$s+x4>);R#G4+#a2#$O-<#H(pzy}=#=#P{U$TjWHLf)&DPeI zhkgg$M({}K(Ee=i2f9UfV#{jc|*qgE%Y5k`_sl zktAw*4GaQ>(mv%}P}rKn3Xz}`>f*#JF*z@e!wuu0wdS6C?)k1KPdT747Gr&CPJq0$ zWLhG{v@~5@V#0*6FEb1=cu}6iDTT^^A&df)S$X zwc|scl=dVnt)VC(O~6@0YATXM;jCqn8)VkT%KA47%88-dQj8~118G!s`rv$G=(K$H z^1OgFh02zUc6M1@Sn{8TYFp(9uvp#0D9^M`1+*QEcPo;XMkJoxB^*nyPH1~ssxXCU zgTMv9>E!v8g&F@Qyu#)iSJVlcPY{UnEry|EpWa2Aop2ti)U%A?And}X9K#dwW*;-0 zgM|}krwZ4L?~qOp8{`z`-KQT4f;7Nlk*Q%YO-h za|)k-6GL9Ureg?L#O=7hgZ_NBmuE?Z44BlD|$9ShOfe6NNDnowf}505O#X z=gF0$@d#r|2E7GPiqXi2+ZE%2b|)pzOKfG(x`h!i8ci5mZGp~GoXM#~ zg%a8e$XarzT3{843#%pd)+i1^QrZm4J0NSAKYH-)Oq0;e-3pKq-oN`pjvA&w!~CZ_O+B=u=+6)5qsPr@Ff=0q(z!k z2rd_6hn&%ZSzP$P;lmnO|c(TN{_b0 zKHSg`&l9KxT{0V(S1T~KLJ5fw(i3oyRHni@i^9^@AnVeC)(M!_+6nMhixpp&LP zaf+RCL0qjEfFnyZE}1H5?RJI$+Fb$U2v^chHMpFX)@YIV4B2T$Q587h$H>_VE&cr@ zEy<)R$#gF5(W|PD*7B#(9C4C7MJ}$G zmmkc(uc1Dsf^ohNK@i54a%}O;vsmL6COkf85CFl?5Y8K0E@9l}{mt_%Rsex$h(JMr z3F*jMZCb5X9Xl%;ixsFzI~*hrWv{}vnQm7<*TZq z-EPzAbecsUL+#;S16&;hNZev2D~xHl=Xrq}#zpJ28TT+R;nf0pp>54t@U}oh6s&>ExZl$=?Y@%)GD#LvcjR<1YN zhVrep(asK?PLIk!RaufulPG~sHFa`Ebm9p*#*|cLft3=a>MA^$Myk4agELs0BZL<$ zt`cjV5&w#(bvMg~J(j>(pDXSbI6iTKPMNXC)Y*mpYZKP66iVd$I((%GhdsM_B zDNKbaCRis)l%^=XVvuQHWTq-6q`HklFq(`INlKbzxUxVbzR=8g?0FaMB=vhl*!Q)r z>nDRXC0YnXsy+5AB&Mi9TdXTErX)?e=q$li6;2A2O0c#0T}~_{4x}Sdso#5~&sy!D zPlb>Y!t{4KnUTD8HamOSdb6`DW(=mBLsxEI>H1gMLjsPMF8f7=RCVJY{c=V z8eco!RAYe``(CFlkXWYu4_0M>?_kOx4wD&MQn6(cghdR6##TwZ(TDc|iVnwx7PC^r zdBbt>eTFi9NvcRQ-6WatkcyzwX=80x_utJ3J3l^}Ua#BS|6njcO38Sf*Zr&gx|PEi z53je|-DYl$E%0&3vLRfBoXUIkKQM^HoX4cMc?&MU&%weDV;n0YNitP>f&h)L75WkW z4`VhZYbA5>-EQU@MWGrcCLa4bQgBA#)Fiv)000MeNklC8Wdw3B}HivLZf5`LQ<4I_Pg8eU~Mh5F<9X(MhB!>hH(W(2!u(H z%0uc%d~ICkD670Cd`VCm-Dx4~a&tP9Xfno=AuZhk=|c#WgigC%Ct2`zr>iVZ3%Z>y zwMm7w-UlnCx5hCRB{VpRu@zc4DqEtH6qRZpE-C~`(gFmg^5q1D^@xwP5~UN8Rszyu zaX2dxE)=En=d)6vNqoL#0cBA(gw8l~+Z!#9GJy6Qf~6^OBz;cVuxW*4@>9{ji&w@HYnG6Dtk#EbVxc4G?^6;rRp? z!3dj7H2z~=OctQGELU<-QBEp7*mmGjnWchpvZGn3hk_o_eOem zi$`jFC>u`G>a-d3eaM=rtUogGX$Gk*Rz#c&2Qw+4tN;u~DvSdmbS?CQa_G=XkhBw@ zs?a*DbzY#>L?~k_gmP#!I;o*%B(^SaktUiV&pq)Hhcg1LG}c*6B~VI&btJk?RY6%A zv=q3q!juI`tLw|v0j2edwibf2sxY=9O){kL;f9@kT~h61t*7-e@#L>y$L}#ZOe&udKxpRqU!9r8S7e z8)?odl&puw2`n00=YI@!Lt->CDA%LWh)B+A+oA)z+@uZ>GYI~8YW^O=)&?LF%U!O$6U&oV?e3mC)RfmR% z6a?YCpKqQB(~MR9ny0Pr1%bzw%)C|en)g?aX9M-j!O>xZACJcrMM07z^m@If+Ru2D zH+`PJ4?pg{_VHejeOUZK%bdTj(1)@tE^&T;-Am=;4sGh^^-6%&2~vt$V>W1=)C!?! z{sv(g9!_UxS?xmBAw1H}AS!M=g}kQ-jTGQ!t z7z_q<+8u($_1)XTvpWA-crND0C;ogco7bHF;>7gaGv7t~4^lKN;%}BOKKBG8X71s& z=hDsJuZyql>g>-BP&E|m>g$Ey*tvdQ>Uwt1?=O9?dmSI|O_!JhH+Qo6_j4BxQ#6LnJ%qu`$Fjy7^Sr<6wFJz3v*xuI=w2IR+`buDF19x2S<*hm<18E= zZKGmMx5_Y{JIoDCS2?Fe0VWQY~I=jP+ByhPyvdLt8VNC*~j;y)NHJ1ICd6( zo%OrN|0^{s(C7buz4`G9(9}YlpR2vt<>4BBO!npigmItu+0F~xc>y~AcfM}&ye}Fq zPD#4goX6`SO;b9Z4v9{AQ{aAk?c0UrUvGc;Pu*Ux|NnpY@6Gm|ZQ9{#OkaSQO?wxh z)4f>8@iC$8C2(IiAEx_Hi_?cqd!FeUHutJ3W;WkAhF2-o_)IS)aQ6}}uO)EjAE4KJ zpn~7>k`HDSSGpJE9tco-S-SrG@}l#{$Gn~rl_YBBci-%Ng=Xz+!iX?lu@IiW=Ir_R zW(4oGHiO`d&k-v$^W)^lN6nmne$K=Ah2P8*aN|r$ z^ZnXOpzdV_#{Hb%++PoJ4T0eCMn7ZmVlINgVd^W52|V*wsQp1uz4!TbHiMYdAewbi zVFzcM;@fYwH`|--jo*ZIg%f)q>H%VoH-zw6vl(6Dci&2L_O&(rZx>R&lodMNkj>1o z^RV)~Aeg`IYr%)}*W2swH=|I*@xk*fSBKeij>2cgP9f#yzN2{y$Io9g923vy#q;gv z-hJ!vo' > $OUTPUT + +foreach i in $*; do + echo "

" >> $OUTPUT + echo "
`basename $i`
" >> $OUTPUT + echo "> $OUTPUT + cat $i >> $OUTPUT + echo "]]>" >> $OUTPUT + echo "
" >> $OUTPUT +done + +echo '' >> $OUTPUT \ No newline at end of file -- 2.39.2