WebSVN – DevTools – Diff – /core_devl/trunk/CFG/TOOLSET/MOS_MRI.PL

-# -*- mode: perl; tabs: 8; indent-width: 4; show-tabs: yes; -*-
 # COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
+#
 # Module name   : mos_mri
 # Module type   : Makefile system
 # Compiler(s)   : ANSI C
 #       This file provides Toolset initialisation and plugin functions
 #       to makelib.pl2
+#
 # Contents:     MRI 68k/CF rules as used for the MOS
+#
-# Revision History:
-#       12-Feb-04   DDP     Started Work
 #............................................................................#
 use strict;
 use warnings;
 my $Toolset_DebugCode;
 my $Toolset_DebugData;
 my $Toolset_Product = '';
 my $Toolset_Production_Only;
+my $globName = 'glob$(GBE_TYPE)';               # Name of the MOS global library file
 ##############################################################################
 #   ToolsetInit()
 #       Runtime initialisation
+#
         #   To enable 32-bit relative PC addressing on platforms that
         #   don't have this as a default
+        #
         'longrelative'    => { 'USE_32BIT_RELATIVE' , '1' },
         'nolongrelative'  => { 'USE_32BIT_RELATIVE' , undef },
+        #
+        #   Flag the buildng of the MOS OS
+        #
+        'buildmosos'     => {'BUILD_MOS_OS', '1'},
     );
+    #
     #   Set default options
     #       $::ScmCompilerOpts{'xxxx'} = 'yyy';
     $::ScmCompilerOpts{'MODE_CCSUPERVISOR'} = '0';
     $::ScmCompilerOpts{'NO_OPT_GLOBAL'} = undef;
     $::ScmCompilerOpts{'USE_32BIT_RELATIVE'} = undef;
+    $::ScmCompilerOpts{'BUILD_MOS_OS'} = undef;
+}
 ##############################################################################
 #   ToolsetPreprocess()
 #       Process collected data before the makefile is generated
                   sort( keys %need),
                   "Check that the daf_tools and mos_tools packages are present" )
             if ( scalar keys %need );
+        #
+        #   Determine the name of the MOS global library
+        #   Old MOS builds provided a library named glob.lib
+        #   Newer MOS builds provide a library name globP.lib or globD.lib
+        #       When building the MOS OS use the newer form
+        #
+        my $globFound = '';
+        my $globJatsFound = '' ;
+        unless ($::ScmCompilerOpts{'BUILD_MOS_OS'}) {
+            foreach my $entry ( getPackageList() ) {
+                foreach my $libdir ($entry->getLibDirs(3)) {
+                    $globFound     = $libdir if ( -f CatPaths($libdir, 'glob.lib') );
+                    $globJatsFound = $libdir if ( -f CatPaths($libdir, 'globP.lib') );
+                    $globJatsFound = $libdir if ( -f CatPaths($libdir, 'globD.lib') );
+                }
+            }
+            unless ($globJatsFound) {
+                $globName = 'glob';
+            }
+        }
+        if ($globFound && $globJatsFound ) {
+            Warning("Both glob.lib and glob[PD].lib found - using glob.lib")
+        }
+        ::Debug("Glob library: $globName");
+        #
         #   Generate the definitions
+        #
         ToolsetDefine ( "#################################################" );
         ToolsetDefine ( "#  The path to tools required to build MOS Programs" );
+#
 #   Locate the true path of the head.asm file
 #   This WILL be located within an external package as it is provided
 #   by the MOS hardware package.
+#
+if ($::ScmCompilerOpts{'BUILD_MOS_OS'})
+{
+    # Building the MOS OS
+    # The head.asm file will be foound in the local in directory
+    $head_file = '$(INCDIR_LOCAL)/head.asm';
+}
+else
+{
+    #
+    #   Non-OS build
+    #   The head.asm file will be found in an external package
+    #
-    $head_file = MakeSrcResolveExtended ( 1, "head.asm" );
+        $head_file = MakeSrcResolveExtended ( 1, "head.asm" );
+}
+#
 #   If we are also creating an import (stub) library then remove
 #   the stub library object file from the list of user provided objects
 #   Done to allow the use of @OBJS in a library object list
 #   Extend the list of libraries with MOS specific libraries
 #   This list may need multiple passes and will be replicated. Do not include
 #   the compiler RTL library in this list as it will cause problems. It must be
 #   linked last and linked only once.
+#
-    push( @$pLibs, 'glob' );
+    push( @$pLibs, $globName );
 #   Create a list of system (RTL) libraries
 #   We only want to use the compiler RTL library as a last resort and will only
 #   make one pass over it.
+#
+#
 #                 This class ISA ToolsetPrinter too
+#
 # Parameters    : name      - Basic name of the library
 #                 pObjs     - Ref to an array of object files to be linked
-#                 pLibs     - Ref to an array of librarus to be linked
+#                 pLibs     - Ref to an array of libraries to be linked
 #                 pSlibs    - Ref to an array of system libraries to be linked
 #                             These libraries will only be linked ONCE
+#
 package ABSRuleGenerator;
     #   Must load GLOB.LIB first so that "well-known" variables
     #   in zerovars are at a known location
+    #
     $io->Prt("#   Load the Global Library first\n");
     $io->Newline();
-    $io->LibList( $name, ["glob"], \&ToolsetLibRecipe );
+    $io->LibList( $name, [$globName], \&ToolsetLibRecipe );
     $io->Newline();
     $io->Prt("#   Load the module header and target specfic library\n");
     $io->Prt("#\n");
     $io->Cmd("LOAD    \$(OBJDIR)/${name}/head.$::o" );
     $io->Prt("#\n");
     $io->ObjList( $name, \@allObjs, \&ToolsetObjRecipe );
     $io->Newline();
-    $io->Prt("#   Load the library files twice to overcome single pass linker problems\n");
+    $io->Prt("#   Load the library files three times to overcome single pass linker problems\n");
     $io->Prt("#\n");
     $io->LibList( $name, $pLibs, \&ToolsetLibRecipe );
     $io->Newline();
     $io->LibList( $name, $pLibs, \&ToolsetLibRecipe );

Subversion Repositories DevTools

(root)/core_devl/trunk/CFG/TOOLSET/MOS_MRI.PL – Rev 6177 → 6276