FreeCalypso > hg > fc-magnetite
view src/cs/layer1/tools/make_cmd.pl @ 640:16eb1b9640dc
target gtm900 renamed to gtm900mgc2
This change reflects the fact that the build target in question supports
MGC2GSMT hardware only, and will NOT work on other hw that confusing bears
the same end user name of GTM900, neither the LoCosto-based GTM900-C
nor the Calypso-based MG01GSMT that has a different and incompatible RFFE.
If we ever get our hands on a piece of MG01GSMT hw and add support for it,
that other target will be named gtm900mg01.
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Fri, 31 Jan 2020 00:46:07 +0000 |
parents | 945cf7f506b2 |
children |
line wrap: on
line source
#!perl # generate a dynamic Linker command file # PARAMETER ARE: # 1 : Name of the Linker command file # 2 : Name of the file with the parameter # my ($cmd_file_temp,$tmp_file)=@ARGV; open (TMP, "$tmp_file"); my $const_boot_lib = <TMP>; my $bss_boot_lib = <TMP>; my $bss_libs = <TMP>; my $const_libs = <TMP>; my $toolchoice_type = <TMP>; close TMP; # define the REPLACE STRINGS my $const_boot_str="(CONST_BOOT_LIB)"; my $bss_boot_str="(BSS_BOOT_LIB)"; my $bss_str="(BSS_LIBS)"; my $const_str="(CONST_LIBS)"; # define some local variables my $temp; my @CMD; my $line; # determine the cmd file name @CMD=split /.template/, $cmd_file_temp; $cmd_file=$CMD[0].".cmd"; open (TMP1, ">$cmd_file"); open (TMP,$cmd_file_temp); while ($line=<TMP>) { if ($line =~ m/$const_boot_str/g) { $line=mak_libs ($const_boot_lib) } if ($line =~ m/$bss_boot_str/g) { $line=mak_libs ($bss_boot_lib) } if ($line =~ m/$bss_str/g) { # insert the Libs $line=mak_libs ($bss_libs); } if ($line =~ m/$const_str/g) { $line=mak_libs ($const_libs) } # NEW COMPILER MANAGEMENT # If use of VISUAL LINKER, needs to manage trampoline download. # Case of: # - TOOL_CHOICE == 0 => compiler v1.22e with vlinker v1.9902 if ($toolchoice_type == 0) { $line =~ s(COMMENT2START)(); $line =~ s(COMMENT2END)(); } if ($toolchoice_type == 3) { $line =~ s(COMMENT2START)(/*); $line =~ s(COMMENT2END)(*/); } print TMP1 $line; } close TMP; close TMP1; unlink $tmp_file; sub mak_libs { my ($bss_libs) =@_; my @temp; @temp = split /=/, $bss_libs; $_="\t\t\t" . $temp[1]; s/\) /)\n\t\t\t/g; $_ =~ tr /\"//d; return $_; }