Changeset 65d1ba in git

Timestamp:

Mar 18, 1999, 5:30:53 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

141634b0229ff243d4914e063fad330d4a4a730e

Parents:

9489ed1f8ca138e6dc32222e6347d572a98ef6ff

Message:

*hannes: memory backtrack utilities


git-svn-id: file:///usr/local/Singular/svn/trunk@2953 2c84dea3-7e68-4137-9b89-c4e89433aadc

Location:

Singular

Files:

• mmbt.c (modified) (6 diffs)
• mmbt.h (added)
• mmprivate.h (modified) (2 diffs)

Singular/mmbt.c

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mmbt.c,v 1.4 1998-12-02 14:08:34 obachman Exp $ */
+/* $Id: mmbt.c,v 1.5 1999-03-18 16:30:52 Singular Exp $ */
 /*
 * ABSTRACT: backtrace: part of memory subsystem (for linux/elf)
@@ -23 +23 @@
 #include "tok.h"
 #include "mmprivate.h"
+#include "febase.h"
+#include "mmbt.h"
 
 #ifdef MTRACK
@@ -31 +33 @@
 #if defined(linux) && defined(__i386__)
 
-#undef ulong
-#define ulong unsigned long
+static ulong mm_lowpc=0, mm_highpc=0;
 
 extern int etext ();
-static ulong mm_lowpc=0, mm_highpc=0;
 
 /*
@@ -71 +71 @@
 
   while ((fp!=NULL) && ((ulong)fp>4095)  && *fp && (pc = getpc (fp)) 
-  && !entrypc (pc) && (i<BT_STACKMAX))
+  && !entrypc (pc) && (i<BT_MAXSTACK))
   {
     bt_stack[i]=pc; i++;
     fp = (ulong *) *fp;
   }
-  while(i<BT_STACKMAX)
+  while(i<BT_MAXSTACK)
   {
     bt_stack[i]=0; i++;
@@ -94 +94 @@
   int i,j;
   char n[128];
-  system("./mprnm -p Singularg >nm.log");
+  system("mprnm -p Singularg >nm.log");
   f=fopen("nm.log","r");
   i=0;
   loop
   {
-    j=fscanf(f,"%d %s\n",&p2n[i].p,n);
+    j=fscanf(f,"%d %s\n",(int *)&p2n[i].p,n);
     if (j!=2) break;
     p2n[i].name=strdup(n);
@@ -145 +145 @@
 #endif
 }
+
+void mmPrintStack(ulong *bt_stack) /* print stack */
+{
+  int i=0;
+  do
+  {
+    Print(":%x(%s)",bt_stack[i],mmP2cName(bt_stack[i]));
+    i++;
+  } while ((i<BT_MAXSTACK) && (bt_stack[i]!=0));
+  PrintLn();
+}
 #endif /* linux, i386 */
 #endif /* not optimize */

Singular/mmprivate.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mmprivate.h,v 1.4 1999-01-26 14:41:41 obachman Exp $ */
+/* $Id: mmprivate.h,v 1.5 1999-03-18 16:30:53 Singular Exp $ */
 /*
 * ABSTRACT
@@ -34 +34 @@
   struct DBMCB * next;
   struct DBMCB * prev;
+  #ifdef MTRACK
+  unsigned long bt_stack[BT_STACKMAX];
+  #endif
+  char * fname;
   size_t size;
-  char * fname;
   int lineno;
   int flags;