added Low Profiler to yap

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@804 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/amasm.c

@@ -106,6 +106,10 @@ STATIC_PROTO(void a_fetch_cv, (void));
 STATIC_PROTO(void a_fetch_vc, (void));
 STATIC_PROTO(void a_f2, (int));
 
+#ifdef LOW_PROF
+   int PROFSIZE;
+#endif
+
 #define CELLSIZE sizeof(CELL)
 
 #define MaxLabels	2048
@@ -2614,6 +2618,11 @@ Yap_assemble(int mode)
   YAPLeaveCriticalSection();
   {
     Clause *cl = (Clause *)code_addr;  /* lcc, why? */
+
+#ifdef LOW_PROF
+    PROFSIZE=code_p;
+#endif
+
     return(cl->ClCode);
   }
 }