Subversion Repositories DevTools

Rev

Rev 261 | Rev 5709 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 261 Rev 363
Line 107... Line 107...
107 
    ToolsetDefine ( "DAFBRCOMPILER := $compiler" );
 107 
    ToolsetDefine ( "DAFBRCOMPILER := $compiler" );
108 
    ToolsetDefine ( "DAFBRCOMPILER_PATH := $compiler_path" );
 108 
    ToolsetDefine ( "DAFBRCOMPILER_PATH := $compiler_path" );
109 
 
 109 
 
110 
 
 110 
 
111 
#.. Locate the compiler opcode table
 111 
#.. Locate the compiler opcode table
112 
#   This will be in a different package
 112 
#   This SHOULD be in a different package, but a local version is allowed
113 
#   Cannot detect a warning, thus we must ensure that the filename not
 - 
 
114 
#   in the local directory.
 113 
#   to simplify testing of the compiler.
115 
#
 114 
#
116 
    my $opcode = MakeSrcResolveExtended ( 1, "opcodes.tbl" );
 115 
    my $opcode = MakeSrcResolveExtended ( 1, "opcodes.tbl" );
- 
 
 116 
    if ( $opcode eq  "opcodes.tbl")
- 
 
 117 
    {
- 
 
 118 
        $opcode = "$::Cwd/opcodes.tbl";
- 
 
 119 
        if ( -f $opcode )
- 
 
 120 
        {
- 
 
 121 
            #
- 
 
 122 
            #   Local opcode table is only supported to simplify testing
- 
 
 123 
            #   of the compiler suite. Users should not be encouraged
- 
 
 124 
            #   to provide a local table;
- 
 
 125 
            #
- 
 
 126 
            Warning("*** Local opcode table found. ***",
- 
 
 127 
                    "*** Usage not recommended     ***");
- 
 
 128 
        }
- 
 
 129 
        else
- 
 
 130 
        {
- 
 
 131 
            Error ("Cannot locate the BR Compiler opcodes",
- 
 
 132 
                   "Check that a daf_br_compiler_opcodes package is used" );
- 
 
 133 
        }
- 
 
 134 
    }
117 
 
 135 
 
118 
    Error ("Cannot locate the BR Compiler opcodes", "Check that a daf_br_compiler_opcodes package is being used" )
 - 
 
119 
        unless ( $opcode ne  "opcodes.tbl");
 - 
 
120 
    ToolsetDefine ( "DAFBROPCODE := $opcode" );
 136 
    ToolsetDefine ( "DAFBROPCODE := $opcode" );
121 
 
 - 
 
122 
    my $opcode_path = StripFileExt ( $opcode );
 137 
    my $opcode_path = StripFileExt ( $opcode );
123 
    ToolsetDefine ( "DAFBROPCODE_PATH := $opcode_path" );
 138 
    ToolsetDefine ( "DAFBROPCODE_PATH := $opcode_path" );
124 
 
 139 
 
125 
 
 140 
 
126 
#.. Determine the version of the compiler
 141 
#.. Determine the version of the compiler