Subversion Repositories scarts

#!/usr/bin/perl -w
#
#  (C) Copyright 2007 TOSHIBA CORPORATION
#  All Rights Reserved
#
#  Redistribution and use in source and binary forms, with or without
#  modification, are permitted provided that the following conditions are met:
#
#    * Redistributions of source code must retain the above copyright notice,
#  this list of conditions and the following disclaimer.
#    * 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.
#    * Neither the names of Toshiba nor the names of its
#  contributors may 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.

open(DEFS, "syscall.def");

while ($line = <DEFS>) {
        next if ($line =~ /^#.*/);
        
        ($opcode, $name, $fp, $parms) = split(" ", $line);
        $filename = ">" . $name . ".S";
        open(SOURCE, $filename);

        print SOURCE "\/\*\n";
        print SOURCE "  Copyright (c) 2007, Toshiba Corporation\n\n";

        print SOURCE "  All rights reserved.\n\n";

        print SOURCE "  Redistribution and use in source and binary forms, with or without\n";
        print SOURCE "  modification, are permitted provided that the following conditions are met:\n\n";

        print SOURCE "    \* Redistributions of source code must retain the above copyright notice,\n";
        print SOURCE "  this list of conditions and the following disclaimer.\n";
        print SOURCE "    \* Redistributions in binary form must reproduce the above copyright\n";
        print SOURCE "  notice, this list of conditions and the following disclaimer in the\n";
        print SOURCE "  documentation and/or other materials provided with the distribution.\n";
        print SOURCE "    \* Neither the names of Toshiba nor the names of its\n";
        print SOURCE "  contributors may be used to endorse or promote products derived from this\n";
        print SOURCE "  software without specific prior written permission.\n\n";

        print SOURCE "  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS \"AS IS\"\n";
        print SOURCE "  AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE\n";
        print SOURCE "  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\n";
        print SOURCE "  ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE\n";
        print SOURCE "  LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR\n";
        print SOURCE "  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF\n";
        print SOURCE "  SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS\n";
        print SOURCE "  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN\n";
        print SOURCE "  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)\n";
        print SOURCE "  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE\n";
        print SOURCE "  POSSIBILITY OF SUCH DAMAGE.\n";
        print SOURCE " \*\/\n\n";
        print SOURCE "#include \"c99ppe.h\"\n\n";
        print SOURCE "  .text\n";
        print SOURCE "  .align  4\n";
        print SOURCE "  GLOBL   ", $name, "\n";
        print SOURCE "  .type   ", $name, ", \@function\n";
        print SOURCE $name, ":\n";

        print SOURCE "  stqd    \$0, 16(\$sp)           \/\* save caller address \*\/\n";
        print SOURCE "  il      \$2, ", $parms, "                       \/\* number of fixed arguments \*\/\n";
        print SOURCE "  brsl    \$0, __stack_reg_va     \/\* save register to the stack frame \*\/\n\n";

        if ($fp > 0) {
                print SOURCE "  brsl    \$0, __check_init\n";
                print SOURCE "  lqd     \$3, 16\*2(\$sp)                \/\* \$3 <- saved FP on the stack frame \*\/\n";
                print SOURCE "  lqd     \$2, 0(\$3)             \/\* FP = fp->_fp \*\/\n";
                print SOURCE "  rotqby  \$2, \$2, \$3\n";
                print SOURCE "  stqd    \$2, 16\*2(\$sp)                \/\* replace FP on the stack frame \*\/\n\n";
        }

        print SOURCE "  il      \$3, SPE_C99_SIGNALCODE\n";
        print SOURCE "  il      \$4, ", $opcode, "\n";
        print SOURCE "  ai      \$5, \$sp, 16\*2                \/\* data (\$3 save address) \*\/\n";
        print SOURCE "  brsl    \$0, __send_to_ppe\n\n";

        print SOURCE "  il      \$2, 16\*(SPE_STACK_REGS+2+2)\n";
        print SOURCE "  a       \$sp, \$sp, \$2\n";
        print SOURCE "  lqd     \$0, 16(\$sp)           \/\* load caller address \*\/\n";
        print SOURCE "  bi      \$0                     \/\* return to caller \*\/\n";

        print SOURCE "  .size   ", $name, ", .-", $name, "\n";

        close(SOURCE);
}