spf/linux memreport.f

[ygrek-3]

Привет,

 Патч для ~day/lib/memreport.f -- убирает win-зависимость.

Index: memreport.f
===================================================================
RCS file: /cvsroot/spf/devel/~day/lib/memreport.f,v
retrieving revision 1.5
diff -u -r1.5 memreport.f
--- memreport.f 5 Nov 2007 10:05:16 -0000 1.5
+++ memreport.f 1 Aug 2008 19:28:57 -0000
@@ -5,25 +5,30 @@
 
 (
   + выводит не только утечки но распечатку стека возвратов при их возникновении
-  + многопоточна, может выводить отчеты для отдельных потоков, MemReportThread
+  + многопоточна, может выводить отчеты для отдельных потоков, MemReportThread [имеет смысл только
+  для Windows, где есть попоточные хипы]
   + отметки блоков памяти с воможностью указать диапазон для вывода в отчёте
 )
 
 REQUIRE /TEST ~profit/lib/testing.f
 REQUIRE RTRACE ~ygrek/lib/debug/rtrace.f
 REQUIRE HEAP-ID ~pinka/spf/mem.f
+REQUIRE [DEFINED] lib/include/tools.f
 
 \ прячем всё внутрь т.к. эта либа для отладки и увеличение размера не критично
 \ а отсутствие дополнительных глюков от каких-нибудь переопределений - существенно
 MODULE: _VOC_MEMREPORT
 
-REQUIRE CZGETMEM ~yz/lib/common.f
-REQUIRE MALLOCATE ~yz/lib/gmem.f
+ [DEFINED] WINAPI: [IF]
+ REQUIRE MALLOCATE ~yz/lib/gmem.f
+ [THEN]
 
   MODULE: inner
 
+  [DEFINED] WINAPI: [IF]
   : ALLOCATE MALLOCATE 0 ;
   : FREE MFREE ERR ;
+  [THEN]
 
   EXPORT
 
@@ -53,8 +58,6 @@
 
 /allocList list: AllocList
 
-WINAPI: GetCurrentThreadId KERNEL32.DLL
-
 : PrintTrace ( node )
     .stackTrace TRACE_DEPTH CELLS
     OVER + SWAP
@@ -68,7 +71,7 @@
     R@ .fileNameU !
     R@ .fileNameA !
     R@ .curstr !
-    GetCurrentThreadId R@ .threadId !
+    THREAD-ID R@ .threadId !
     HEAP-ID R@ .heapId !
     R@ .size !
     R@ .addr !
@@ -281,7 +284,7 @@
 : ShowFailedFree ( -- ) TRUE TO SHOW-FAILED-FREE? ;
 : HideFailedFree ( -- ) FALSE TO SHOW-FAILED-FREE? ;
 
-..: AT-THREAD-FINISHING GetCurrentThreadId RemoveThreadMemoryInfo ;..
+..: AT-THREAD-FINISHING THREAD-ID RemoveThreadMemoryInfo ;..
 
 ;MODULE
 
--
 ~ygrek


-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Spf-dev mailing list
Spf-dev@...
https://lists.sourceforge.net/lists/listinfo/spf-dev