| 1261 |
|
my $self=shift; |
| 1262 |
|
my $name=shift; |
| 1263 |
|
my $hashref=shift; |
| 1264 |
< |
|
| 1264 |
> |
## Not working yet !!!!## |
| 1265 |
|
$self->verbose(">> CompilerMap_Start: NM ".$name." <<"); |
| 1266 |
|
# We can only map compilers to already-defined architectures, so |
| 1267 |
|
# we check for 'Arch': |
| 1268 |
< |
if ( $self->{Arch} ) |
| 1269 |
< |
{ |
| 1270 |
< |
my @tagnames=keys %{$hashref}; |
| 1271 |
< |
my @tagvalues=values %{$hashref}; |
| 1268 |
> |
# if ( $self->{Arch} ) |
| 1269 |
> |
# { |
| 1270 |
> |
# my @tagnames=keys %{$hashref}; |
| 1271 |
> |
# my @tagvalues=values %{$hashref}; |
| 1272 |
|
|
| 1273 |
< |
foreach my $tag ( @tagnames ) |
| 1274 |
< |
{ |
| 1275 |
< |
$self->{switch}->checktag($name,$hashref,$tag); |
| 1276 |
< |
print GNUmakefile $tag."=".$$hashref{$tag}."\n"; |
| 1277 |
< |
|
| 1278 |
< |
if ( defined $$hashref{'version'} ) |
| 1279 |
< |
{ |
| 1280 |
< |
print GNUmakefile "_V_".$$hashref{'version'}; |
| 1281 |
< |
} |
| 1282 |
< |
print GNUmakefile "=true\n"; |
| 1283 |
< |
} |
| 1273 |
> |
# foreach my $tag ( @tagnames ) |
| 1274 |
> |
# { |
| 1275 |
> |
# $self->{switch}->checktag($name,$hashref,$tag); |
| 1276 |
> |
# print GNUmakefile $tag."=".$$hashref{$tag}."\n"; |
| 1277 |
> |
|
| 1278 |
> |
# if ( defined $$hashref{'version'} ) |
| 1279 |
> |
# { |
| 1280 |
> |
# print GNUmakefile "_V_".$$hashref{'version'}; |
| 1281 |
> |
# } |
| 1282 |
> |
# print GNUmakefile "=true\n"; |
| 1283 |
> |
# } |
| 1284 |
|
# $self->{switch}->checktag($name,$hashref,'ref'); |
| 1285 |
|
|
| 1286 |
|
# # -- oo toolbox stuff |
| 1323 |
|
# $self->ParseBuildFile_Export($file); |
| 1324 |
|
# $self->_popremoteproject(); |
| 1325 |
|
# } |
| 1326 |
< |
} |
| 1327 |
< |
else |
| 1328 |
< |
{ |
| 1329 |
< |
return; |
| 1330 |
< |
} |
| 1326 |
> |
# } |
| 1327 |
> |
# else |
| 1328 |
> |
# { |
| 1329 |
> |
# return; |
| 1330 |
> |
# } |
| 1331 |
|
} |
| 1332 |
|
|
| 1333 |
|
|
