mirror of
				https://github.com/Mbed-TLS/mbedtls.git
				synced 2025-10-24 13:32:59 +03:00 
			
		
		
		
	As a result, the copyright of contributors other than Arm is now
acknowledged, and the years of publishing are no longer tracked in the
source files.
Also remove the now-redundant lines declaring that the files are part of
MbedTLS.
This commit was generated using the following script:
# ========================
#!/bin/sh
# Find files
find '(' -path './.git' -o -path './3rdparty' ')' -prune -o -type f -print | xargs sed -bi '
# Replace copyright attribution line
s/Copyright.*Arm.*/Copyright The Mbed TLS Contributors/I
# Remove redundant declaration and the preceding line
$!N
/This file is part of Mbed TLS/Id
P
D
'
# ========================
Signed-off-by: Bence Szépkúti <bence.szepkuti@arm.com>
		
	
		
			
				
	
	
		
			49 lines
		
	
	
		
			1.3 KiB
		
	
	
	
		
			Perl
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			49 lines
		
	
	
		
			1.3 KiB
		
	
	
	
		
			Perl
		
	
	
		
			Executable File
		
	
	
	
	
| #!/usr/bin/env perl
 | |
| 
 | |
| # Parse a massif.out.xxx file and output peak total memory usage
 | |
| #
 | |
| # Copyright The Mbed TLS Contributors
 | |
| # SPDX-License-Identifier: Apache-2.0
 | |
| #
 | |
| # Licensed under the Apache License, Version 2.0 (the "License"); you may
 | |
| # not use this file except in compliance with the License.
 | |
| # You may obtain a copy of the License at
 | |
| #
 | |
| # http://www.apache.org/licenses/LICENSE-2.0
 | |
| #
 | |
| # Unless required by applicable law or agreed to in writing, software
 | |
| # distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
 | |
| # WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 | |
| # See the License for the specific language governing permissions and
 | |
| # limitations under the License.
 | |
| 
 | |
| use warnings;
 | |
| use strict;
 | |
| 
 | |
| use utf8;
 | |
| use open qw(:std utf8);
 | |
| 
 | |
| die unless @ARGV == 1;
 | |
| 
 | |
| my @snaps;
 | |
| open my $fh, '<', $ARGV[0] or die;
 | |
| { local $/ = 'snapshot='; @snaps = <$fh>; }
 | |
| close $fh or die;
 | |
| 
 | |
| my ($max, $max_heap, $max_he, $max_stack) = (0, 0, 0, 0);
 | |
| for (@snaps)
 | |
| {
 | |
|     my ($heap, $heap_extra, $stack) = m{
 | |
|         mem_heap_B=(\d+)\n
 | |
|         mem_heap_extra_B=(\d+)\n
 | |
|         mem_stacks_B=(\d+)
 | |
|     }xm;
 | |
|     next unless defined $heap;
 | |
|     my $total = $heap + $heap_extra + $stack;
 | |
|     if( $total > $max ) {
 | |
|         ($max, $max_heap, $max_he, $max_stack) = ($total, $heap, $heap_extra, $stack);
 | |
|     }
 | |
| }
 | |
| 
 | |
| printf "$max (heap $max_heap+$max_he, stack $max_stack)\n";
 |