aboutsummaryrefslogtreecommitdiff
path: root/lib/mbedtls-2.27.0/scripts/massif_max.pl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/mbedtls-2.27.0/scripts/massif_max.pl')
-rwxr-xr-xlib/mbedtls-2.27.0/scripts/massif_max.pl48
1 files changed, 0 insertions, 48 deletions
diff --git a/lib/mbedtls-2.27.0/scripts/massif_max.pl b/lib/mbedtls-2.27.0/scripts/massif_max.pl
deleted file mode 100755
index eaf56ae..0000000
--- a/lib/mbedtls-2.27.0/scripts/massif_max.pl
+++ /dev/null
@@ -1,48 +0,0 @@
-#!/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";