Plan 9 from Bell Labs’s /usr/web/sources/contrib/uriel/changes/2005/1106/4

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


64-bit fixes, also deal with PC stack moving.
 [rsc] --rw-rw-r-- M 451989 glenda sys 2363 Nov  6 10:04 sys/lib/acid/leak
	/n/sourcesdump/2005/1106/plan9/sys/lib/acid/leak:83,89 - 
	/n/sourcesdump/2005/1107/plan9/sys/lib/acid/leak:83,89
	  	print("range ", type, " ", s\X, " ", e\X, "\n");
	  	x = s;
	  	while x < e do {
	- 		y = *x;
	+ 		y = *(x\X);
	  		if isptr(y) then print("data ", x\X, " ", y\X, " ", type, "\n");
	  		x = x + 4;
	  	}
	/n/sourcesdump/2005/1106/plan9/sys/lib/acid/leak:90,98 - 
	/n/sourcesdump/2005/1107/plan9/sys/lib/acid/leak:90,113
	  }
	  
	  defn
	+ stacktop()
	+ {
	+ 	local e, m;
	+ 	
	+ 	m = map();
	+ 	while m != {} do {
	+ 		e = head m;
	+ 		if e[0] == "*data" then
	+ 			return e[2];
	+ 		m = tail m;
	+ 	}
	+ 	return 0x7ffff000;
	+ }
	+ 			
	+ defn
	  dumpmem()
	  {
	- 	local s;
	+ 	local s, top;
	  
	  	xbloc = *bloc;
	  	// assume map()[1] is "data" 
	/n/sourcesdump/2005/1106/plan9/sys/lib/acid/leak:99,110 - 
	/n/sourcesdump/2005/1107/plan9/sys/lib/acid/leak:114,126
	  	dumprange(map()[1][1], end, "bss");	// bss
	  	dumprange(end, xbloc, "alloc");	// allocated
	  
	- 	if 0x7efff000 < *SP && *SP < 0x7ffff000 then 
	+ 	top = stacktop() - 8;
	+ 	if top-0x01000000 < *SP && *SP < top then
	  		s = *SP;
	  	else
	- 		s = 0x7fff7000;	// 32 k
	+ 		s = top-32*1024;
	  
	- 	dumprange(s, 0x7ffff000, "stack");
	+ 	dumprange(s, top, "stack");
	  }
	  
	  defn


Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].