Arcola / mbedtls

mbed TLS upgraded to 2.6.0

Fork of mbedtls by Mark Radbourne

scripts/massif_max.pl@1:9ebc941037d5, 2017-09-29 (annotated)

Committer:
Jasper Wallace
Date:
Fri Sep 29 18:41:59 2017 +0100
Revision:
1:9ebc941037d5
Update to mbedtls 2.4.2, security fixes



Changes to mbedtls sources made:



in include/mbedtls/config.h comment out:



#define MBEDTLS_FS_IO

#define MBEDTLS_NET_C

#define MBEDTLS_TIMING_C



uncomment:



#define MBEDTLS_NO_PLATFORM_ENTROPY

Who changed what in which revision?

UserRevisionLine numberNew contents of line
Jasper Wallace 1:9ebc941037d5 1 #!/usr/bin/perl
Jasper Wallace 1:9ebc941037d5 2
Jasper Wallace 1:9ebc941037d5 3 # Parse a massif.out.xxx file and output peak total memory usage
Jasper Wallace 1:9ebc941037d5 4
Jasper Wallace 1:9ebc941037d5 5 use warnings;
Jasper Wallace 1:9ebc941037d5 6 use strict;
Jasper Wallace 1:9ebc941037d5 7
Jasper Wallace 1:9ebc941037d5 8 use utf8;
Jasper Wallace 1:9ebc941037d5 9 use open qw(:std utf8);
Jasper Wallace 1:9ebc941037d5 10
Jasper Wallace 1:9ebc941037d5 11 die unless @ARGV == 1;
Jasper Wallace 1:9ebc941037d5 12
Jasper Wallace 1:9ebc941037d5 13 my @snaps;
Jasper Wallace 1:9ebc941037d5 14 open my $fh, '<', $ARGV[0] or die;
Jasper Wallace 1:9ebc941037d5 15 { local $/ = 'snapshot='; @snaps = <$fh>; }
Jasper Wallace 1:9ebc941037d5 16 close $fh or die;
Jasper Wallace 1:9ebc941037d5 17
Jasper Wallace 1:9ebc941037d5 18 my ($max, $max_heap, $max_he, $max_stack) = (0, 0, 0, 0);
Jasper Wallace 1:9ebc941037d5 19 for (@snaps)
Jasper Wallace 1:9ebc941037d5 20 {
Jasper Wallace 1:9ebc941037d5 21 my ($heap, $heap_extra, $stack) = m{
Jasper Wallace 1:9ebc941037d5 22 mem_heap_B=(\d+)\n
Jasper Wallace 1:9ebc941037d5 23 mem_heap_extra_B=(\d+)\n
Jasper Wallace 1:9ebc941037d5 24 mem_stacks_B=(\d+)
Jasper Wallace 1:9ebc941037d5 25 }xm;
Jasper Wallace 1:9ebc941037d5 26 next unless defined $heap;
Jasper Wallace 1:9ebc941037d5 27 my $total = $heap + $heap_extra + $stack;
Jasper Wallace 1:9ebc941037d5 28 if( $total > $max ) {
Jasper Wallace 1:9ebc941037d5 29 ($max, $max_heap, $max_he, $max_stack) = ($total, $heap, $heap_extra, $stack);
Jasper Wallace 1:9ebc941037d5 30 }
Jasper Wallace 1:9ebc941037d5 31 }
Jasper Wallace 1:9ebc941037d5 32
Jasper Wallace 1:9ebc941037d5 33 printf "$max (heap $max_heap+$max_he, stack $max_stack)\n";