From e99737c12cac1fcc8604ac89a14dac5b2606a42d Mon Sep 17 00:00:00 2001
From: Paul Selkirk <paul@psgd.org>
Date: Sun, 2 Dec 2018 17:19:44 -0500
Subject: Clean up the profiling code to the point where I stand a chance of
 understanding it 6 months from now.

While I'm at it, try to make it a little more efficient (because 50-60% of
time in a typical profiling run is spent in the function-entry counting),
and collapse profil.c into gmon.c.
---
 libraries/libprof/profil.c | 96 ----------------------------------------------
 1 file changed, 96 deletions(-)
 delete mode 100644 libraries/libprof/profil.c

(limited to 'libraries/libprof/profil.c')

diff --git a/libraries/libprof/profil.c b/libraries/libprof/profil.c
deleted file mode 100644
index b0d8d55..0000000
--- a/libraries/libprof/profil.c
+++ /dev/null
@@ -1,96 +0,0 @@
-/* profil.c -- win32 profil.c equivalent
-
-   Copyright 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
-
-   This file is part of Cygwin.
-
-   This software is a copyrighted work licensed under the terms of the
-   Cygwin license.  Please consult the file "CYGWIN_LICENSE" for
-   details. */
-
-/*
- * This file is taken from Cygwin distribution, adapted to be used for bare embedded targets.
- */
-#include <stdio.h>
-#include <sys/types.h>
-#include <errno.h>
-#include <math.h>
-#include "profil.h"
-#include <string.h>
-
-#include "stm32f4xx_hal.h"      /* __get_MSP */
-
-/* global profinfo for profil() call */
-static struct profinfo prof = {
-  PROFILE_NOT_INIT, 0, 0, 0, 0
-};
-
-/* sample the current program counter */
-void profil_callback(void) {
-  if (prof.state == PROFILE_ON) {
-    /* The interrupt mechanism pushes xPSR, PC, LR, R12, and R3-R0 onto the
-     * stack, so PC is the 6th word from the top at that point. However, the
-     * normal function entry code pushes registers as well, so the stack
-     * offset right now depends on the call tree that got us here.
-     */
-    size_t pc = (size_t)((uint32_t *)__get_MSP())[6 + 6];
-    if (pc >= prof.lowpc && pc < prof.highpc) {
-      size_t idx = PROFIDX (pc, prof.lowpc, prof.scale);
-      prof.counter[idx]++;
-    }
-  }
-}
-
-/* Stop profiling to the profiling buffer pointed to by p. */
-static int profile_off (struct profinfo *p) {
-  p->state = PROFILE_OFF;
-  return 0;
-}
-
-/* Create a timer thread and pass it a pointer P to the profiling buffer. */
-static int profile_on (struct profinfo *p) {
-  p->state = PROFILE_ON;
-  return 0; /* ok */
-}
-
-/*
- * start or stop profiling
- *
- * profiling goes into the SAMPLES buffer of size SIZE (which is treated
- * as an array of unsigned shorts of size size/2)
- *
- * each bin represents a range of pc addresses from OFFSET.  The number
- * of pc addresses in a bin depends on SCALE.  (A scale of 65536 maps
- * each bin to two addresses, A scale of 32768 maps each bin to 4 addresses,
- * a scale of 1 maps each bin to 128k address).  Scale may be 1 - 65536,
- * or zero to turn off profiling
- */
-int profile_ctl (struct profinfo *p, char *samples, size_t size, size_t offset, unsigned int scale) {
-  size_t maxbin;
-
-  if (scale > 65536) {
-    errno = EINVAL;
-    return -1;
-  }
-  profile_off(p);
-  if (scale) {
-    memset(samples, 0, size);
-    memset(p, 0, sizeof *p);
-    maxbin = size >> 1;
-    prof.counter = (unsigned short*)samples;
-    prof.lowpc = offset;
-    prof.highpc = PROFADDR(maxbin, offset, scale);
-    prof.scale = scale;
-    return profile_on(p);
-  }
-  return 0;
-}
-
-/* Equivalent to unix profil()
-   Every SLEEPTIME interval, the user's program counter (PC) is examined:
-   offset is subtracted and the result is multiplied by scale.
-   The word pointed to by this address is incremented. */
-int profil (char *samples, size_t size, size_t offset, unsigned int scale) {
-  return profile_ctl (&prof, samples, size, offset, scale);
-}
-
-- 
cgit v1.2.3