FreeCalypso > hg > fc-magnetite
view src/cs/layer1/tools/make_cmd.pl @ 581:a0a45c5eb3ef
gsmcomp.c: bumping trace partition size to 220 like in gprscomp.c
This change is safe in terms of RAM usage because all of these partition
pools have already been moved from XRAM to IRAM earlier, and our IRAM
usage in VO configs is currently quite low - the one near the limit
is XRAM on C11x.
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Tue, 29 Jan 2019 03:52:49 +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 $_; }