WebSVN – HelenOS – Blame – /branches/dynload/kernel/generic/src/mm/frame.c

Rev	Author	Line No.	Line
1	jermar	1	/*
2071	jermar	2	* Copyright (c) 2001-2005 Jakub Jermar
		3	* Copyright (c) 2005 Sergey Bondari
1	jermar	4	* All rights reserved.
		5	*
		6	* Redistribution and use in source and binary forms, with or without
		7	* modification, are permitted provided that the following conditions
		8	* are met:
		9	*
		10	* - Redistributions of source code must retain the above copyright
		11	* notice, this list of conditions and the following disclaimer.
		12	* - Redistributions in binary form must reproduce the above copyright
		13	* notice, this list of conditions and the following disclaimer in the
		14	* documentation and/or other materials provided with the distribution.
		15	* - The name of the author may not be used to endorse or promote products
		16	* derived from this software without specific prior written permission.
		17	*
		18	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
		19	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
		20	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
		21	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
		22	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
		23	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
		24	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
		25	* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
		26	* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
		27	* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
		28	*/
		29
1757	jermar	30	/** @addtogroup genericmm
1702	cejka	31	* @{
		32	*/
		33
1248	jermar	34	/**
1702	cejka	35	* @file
1248	jermar	36	* @brief Physical frame allocator.
		37	*
		38	* This file contains the physical frame allocator and memory zone management.
		39	* The frame allocator is built on top of the buddy allocator.
		40	*
		41	* @see buddy.c
		42	*/
		43
814	palkovsky	44	/*
		45	* Locking order
		46	*
		47	* In order to access particular zone, the process must first lock
		48	* the zones.lock, then lock the zone and then unlock the zones.lock.
		49	* This insures, that we can fiddle with the zones in runtime without
		50	* affecting the processes.
		51	*
		52	*/
		53
1	jermar	54	#include <arch/types.h>
		55	#include <mm/frame.h>
703	jermar	56	#include <mm/as.h>
1	jermar	57	#include <panic.h>
367	jermar	58	#include <debug.h>
788	jermar	59	#include <adt/list.h>
1	jermar	60	#include <synch/spinlock.h>
115	jermar	61	#include <arch/asm.h>
195	vana	62	#include <arch.h>
533	bondari	63	#include <print.h>
536	bondari	64	#include <align.h>
814	palkovsky	65	#include <mm/slab.h>
822	palkovsky	66	#include <bitops.h>
1063	palkovsky	67	#include <macros.h>
2128	jermar	68	#include <config.h>
115	jermar	69
814	palkovsky	70	typedef struct {
		71	count_t refcount; /*< tracking of shared frames /
1780	jermar	72	uint8_t buddy_order; /*< buddy system block order /
2133	jermar	73	link_t buddy_link; /**< link to the next free block inside one
		74	order */
814	palkovsky	75	void parent; /< If allocated by slab, this points there /
1236	jermar	76	} frame_t;
367	jermar	77
814	palkovsky	78	typedef struct {
		79	SPINLOCK_DECLARE(lock); /*< this lock protects everything below /
2133	jermar	80	pfn_t base; /**< frame_no of the first frame in the frames
		81	array */
820	jermar	82	count_t count; /*< Size of zone /
533	bondari	83
2133	jermar	84	frame_t frames; /*< array of frame_t structures in this
		85	zone */
814	palkovsky	86	count_t free_count; /*< number of free frame_t structures /
		87	count_t busy_count; /*< number of busy frame_t structures /
		88
2059	jermar	89	buddy_system_t buddy_system; /< buddy system for the zone /
814	palkovsky	90	int flags;
1236	jermar	91	} zone_t;
479	bondari	92
814	palkovsky	93	/*
		94	* The zoneinfo.lock must be locked when accessing zoneinfo structure.
		95	* Some of the attributes in zone_t structures are 'read-only'
368	jermar	96	*/
1	jermar	97
2121	decky	98	typedef struct {
814	palkovsky	99	SPINLOCK_DECLARE(lock);
2122	decky	100	unsigned int count;
814	palkovsky	101	zone_t *info[ZONES_MAX];
2121	decky	102	} zones_t;
1	jermar	103
2121	decky	104	static zones_t zones;
814	palkovsky	105
2121	decky	106
2725	decky	107	/********************/
814	palkovsky	108	/* Helper functions */
2725	decky	109	/********************/
		110
814	palkovsky	111	static inline index_t frame_index(zone_t zone, frame_t frame)
762	palkovsky	112	{
2725	decky	113	return (index_t) (frame - zone->frames);
762	palkovsky	114	}
2725	decky	115
814	palkovsky	116	static inline index_t frame_index_abs(zone_t zone, frame_t frame)
1	jermar	117	{
2725	decky	118	return (index_t) (frame - zone->frames) + zone->base;
1	jermar	119	}
2725	decky	120
814	palkovsky	121	static inline int frame_index_valid(zone_t *zone, index_t index)
		122	{
2745	decky	123	return (index < zone->count);
814	palkovsky	124	}
1	jermar	125
814	palkovsky	126	/** Compute pfn_t from frame_t pointer & zone pointer */
820	jermar	127	static index_t make_frame_index(zone_t zone, frame_t frame)
762	palkovsky	128	{
2725	decky	129	return (frame - zone->frames);
762	palkovsky	130	}
		131
814	palkovsky	132	/** Initialize frame structure
762	palkovsky	133	*
814	palkovsky	134	* Initialize frame structure.
		135	*
		136	* @param frame Frame structure to be initialized.
762	palkovsky	137	*/
814	palkovsky	138	static void frame_initialize(frame_t *frame)
762	palkovsky	139	{
814	palkovsky	140	frame->refcount = 1;
		141	frame->buddy_order = 0;
762	palkovsky	142	}
		143
2725	decky	144	/**********************/
814	palkovsky	145	/* Zoneinfo functions */
2725	decky	146	/**********************/
762	palkovsky	147
814	palkovsky	148	/**
		149	* Insert-sort zone into zones list
822	palkovsky	150	*
1568	palkovsky	151	* @param newzone New zone to be inserted into zone list
822	palkovsky	152	* @return zone number on success, -1 on error
1	jermar	153	*/
822	palkovsky	154	static int zones_add_zone(zone_t *newzone)
1	jermar	155	{
2122	decky	156	unsigned int i, j;
822	palkovsky	157	ipl_t ipl;
		158	zone_t *z;
762	palkovsky	159
822	palkovsky	160	ipl = interrupts_disable();
814	palkovsky	161	spinlock_lock(&zones.lock);
2725	decky	162
814	palkovsky	163	/* Try to merge */
2725	decky	164	if (zones.count + 1 == ZONES_MAX) {
		165	printf("Maximum zone count %u exceeded!\n", ZONES_MAX);
		166	spinlock_unlock(&zones.lock);
		167	interrupts_restore(ipl);
		168	return -1;
		169	}
		170
1037	decky	171	for (i = 0; i < zones.count; i++) {
822	palkovsky	172	/* Check for overflow */
852	palkovsky	173	z = zones.info[i];
2725	decky	174	if (overlaps(newzone->base, newzone->count, z->base, z->count)) {
822	palkovsky	175	printf("Zones overlap!\n");
		176	return -1;
814	palkovsky	177	}
852	palkovsky	178	if (newzone->base < z->base)
822	palkovsky	179	break;
368	jermar	180	}
2725	decky	181
822	palkovsky	182	/* Move other zones up */
2133	jermar	183	for (j = i; j < zones.count; j++)
1037	decky	184	zones.info[j + 1] = zones.info[j];
2725	decky	185
822	palkovsky	186	zones.info[i] = newzone;
		187	zones.count++;
2725	decky	188
814	palkovsky	189	spinlock_unlock(&zones.lock);
822	palkovsky	190	interrupts_restore(ipl);
		191
		192	return i;
1	jermar	193	}
		194
814	palkovsky	195	/**
		196	* Try to find a zone where can we find the frame
2725	decky	197	*
2059	jermar	198	* Assume interrupts are disabled.
2725	decky	199	*
1568	palkovsky	200	* @param frame Frame number contained in zone
		201	* @param pzone If not null, it is used as zone hint. Zone index
		202	* is filled into the variable on success.
2059	jermar	203	* @return Pointer to locked zone containing frame
368	jermar	204	*/
2122	decky	205	static zone_t * find_zone_and_lock(pfn_t frame, unsigned int *pzone)
1	jermar	206	{
2122	decky	207	unsigned int i;
		208	unsigned int hint = pzone ? *pzone : 0;
814	palkovsky	209	zone_t *z;
533	bondari	210
814	palkovsky	211	spinlock_lock(&zones.lock);
		212
2745	decky	213	if (hint >= zones.count)
814	palkovsky	214	hint = 0;
533	bondari	215
814	palkovsky	216	i = hint;
		217	do {
		218	z = zones.info[i];
		219	spinlock_lock(&z->lock);
		220	if (z->base <= frame && z->base + z->count > frame) {
2133	jermar	221	/* Unlock the global lock */
		222	spinlock_unlock(&zones.lock);
814	palkovsky	223	if (pzone)
		224	*pzone = i;
		225	return z;
533	bondari	226	}
814	palkovsky	227	spinlock_unlock(&z->lock);
533	bondari	228
814	palkovsky	229	i++;
		230	if (i >= zones.count)
		231	i = 0;
		232	} while(i != hint);
		233
		234	spinlock_unlock(&zones.lock);
		235	return NULL;
533	bondari	236	}
		237
822	palkovsky	238	/** @return True if zone can allocate specified order */
1780	jermar	239	static int zone_can_alloc(zone_t *z, uint8_t order)
822	palkovsky	240	{
		241	return buddy_system_can_alloc(z->buddy_system, order);
		242	}
		243
2059	jermar	244	/** Find and lock zone that can allocate order frames.
367	jermar	245	*
2059	jermar	246	* Assume interrupts are disabled.
367	jermar	247	*
1568	palkovsky	248	* @param order Size (2^order) of free space we are trying to find
2133	jermar	249	* @param pzone Pointer to preferred zone or NULL, on return contains zone
		250	* number
367	jermar	251	*/
2123	decky	252	static zone_t * find_free_zone_and_lock(uint8_t order, unsigned int *pzone)
367	jermar	253	{
2122	decky	254	unsigned int i;
367	jermar	255	zone_t *z;
2122	decky	256	unsigned int hint = pzone ? *pzone : 0;
367	jermar	257
814	palkovsky	258	spinlock_lock(&zones.lock);
		259	if (hint >= zones.count)
		260	hint = 0;
		261	i = hint;
		262	do {
		263	z = zones.info[i];
724	palkovsky	264
814	palkovsky	265	spinlock_lock(&z->lock);
367	jermar	266
814	palkovsky	267	/* Check if the zone has 2^order frames area available */
822	palkovsky	268	if (zone_can_alloc(z, order)) {
814	palkovsky	269	spinlock_unlock(&zones.lock);
		270	if (pzone)
		271	*pzone = i;
		272	return z;
367	jermar	273	}
814	palkovsky	274	spinlock_unlock(&z->lock);
		275	if (++i >= zones.count)
		276	i = 0;
		277	} while(i != hint);
		278	spinlock_unlock(&zones.lock);
		279	return NULL;
367	jermar	280	}
		281
2059	jermar	282	/**************************/
814	palkovsky	283	/* Buddy system functions */
2059	jermar	284	/**************************/
814	palkovsky	285
		286	/** Buddy system find_block implementation
367	jermar	287	*
814	palkovsky	288	* Find block that is parent of current list.
		289	* That means go to lower addresses, until such block is found
367	jermar	290	*
814	palkovsky	291	* @param order - Order of parent must be different then this parameter!!
367	jermar	292	*/
814	palkovsky	293	static link_t zone_buddy_find_block(buddy_system_t b, link_t *child,
2133	jermar	294	uint8_t order)
367	jermar	295	{
2133	jermar	296	frame_t *frame;
		297	zone_t *zone;
814	palkovsky	298	index_t index;
367	jermar	299
814	palkovsky	300	frame = list_get_instance(child, frame_t, buddy_link);
		301	zone = (zone_t *) b->data;
367	jermar	302
814	palkovsky	303	index = frame_index(zone, frame);
		304	do {
		305	if (zone->frames[index].buddy_order != order) {
		306	return &zone->frames[index].buddy_link;
		307	}
		308	} while(index-- > 0);
		309	return NULL;
367	jermar	310	}
479	bondari	311
822	palkovsky	312	static void zone_buddy_print_id(buddy_system_t b, link_t block)
		313	{
2133	jermar	314	frame_t *frame;
		315	zone_t *zone;
822	palkovsky	316	index_t index;
479	bondari	317
822	palkovsky	318	frame = list_get_instance(block, frame_t, buddy_link);
		319	zone = (zone_t *) b->data;
		320	index = frame_index(zone, frame);
3149	svoboda	321	printf("%" PRIi, index);
822	palkovsky	322	}
		323
479	bondari	324	/** Buddy system find_buddy implementation
489	jermar	325	*
		326	* @param b Buddy system.
480	bondari	327	* @param block Block for which buddy should be found
479	bondari	328	*
480	bondari	329	* @return Buddy for given block if found
479	bondari	330	*/
2133	jermar	331	static link_t zone_buddy_find_buddy(buddy_system_t b, link_t *block)
814	palkovsky	332	{
2133	jermar	333	frame_t *frame;
		334	zone_t *zone;
564	jermar	335	index_t index;
480	bondari	336	bool is_left, is_right;
479	bondari	337
480	bondari	338	frame = list_get_instance(block, frame_t, buddy_link);
533	bondari	339	zone = (zone_t *) b->data;
2133	jermar	340	ASSERT(IS_BUDDY_ORDER_OK(frame_index_abs(zone, frame),
		341	frame->buddy_order));
480	bondari	342
724	palkovsky	343	is_left = IS_BUDDY_LEFT_BLOCK_ABS(zone, frame);
		344	is_right = IS_BUDDY_RIGHT_BLOCK_ABS(zone, frame);
814	palkovsky	345
564	jermar	346	ASSERT(is_left ^ is_right);
533	bondari	347	if (is_left) {
814	palkovsky	348	index = (frame_index(zone, frame)) + (1 << frame->buddy_order);
1981	jermar	349	} else { /* if (is_right) */
814	palkovsky	350	index = (frame_index(zone, frame)) - (1 << frame->buddy_order);
533	bondari	351	}
		352
814	palkovsky	353	if (frame_index_valid(zone, index)) {
		354	if (zone->frames[index].buddy_order == frame->buddy_order &&
		355	zone->frames[index].refcount == 0) {
533	bondari	356	return &zone->frames[index].buddy_link;
480	bondari	357	}
		358	}
814	palkovsky	359
539	jermar	360	return NULL;
479	bondari	361	}
		362
		363	/** Buddy system bisect implementation
		364	*
489	jermar	365	* @param b Buddy system.
480	bondari	366	* @param block Block to bisect
		367	*
		368	* @return right block
479	bondari	369	*/
2133	jermar	370	static link_t * zone_buddy_bisect(buddy_system_t b, link_t block) {
		371	frame_t frame_l, frame_r;
564	jermar	372
480	bondari	373	frame_l = list_get_instance(block, frame_t, buddy_link);
533	bondari	374	frame_r = (frame_l + (1 << (frame_l->buddy_order - 1)));
564	jermar	375
480	bondari	376	return &frame_r->buddy_link;
479	bondari	377	}
		378
		379	/** Buddy system coalesce implementation
		380	*
489	jermar	381	* @param b Buddy system.
480	bondari	382	* @param block_1 First block
		383	* @param block_2 First block's buddy
		384	*
		385	* @return Coalesced block (actually block that represents lower address)
479	bondari	386	*/
2133	jermar	387	static link_t zone_buddy_coalesce(buddy_system_t b, link_t *block_1,
		388	link_t *block_2)
822	palkovsky	389	{
814	palkovsky	390	frame_t frame1, frame2;
564	jermar	391
480	bondari	392	frame1 = list_get_instance(block_1, frame_t, buddy_link);
		393	frame2 = list_get_instance(block_2, frame_t, buddy_link);
564	jermar	394
533	bondari	395	return frame1 < frame2 ? block_1 : block_2;
479	bondari	396	}
		397
		398	/** Buddy system set_order implementation
489	jermar	399	*
		400	* @param b Buddy system.
480	bondari	401	* @param block Buddy system block
		402	* @param order Order to set
479	bondari	403	*/
2133	jermar	404	static void zone_buddy_set_order(buddy_system_t b, link_t block,
		405	uint8_t order) {
		406	frame_t *frame;
480	bondari	407	frame = list_get_instance(block, frame_t, buddy_link);
		408	frame->buddy_order = order;
479	bondari	409	}
		410
		411	/** Buddy system get_order implementation
489	jermar	412	*
		413	* @param b Buddy system.
480	bondari	414	* @param block Buddy system block
479	bondari	415	*
480	bondari	416	* @return Order of block
479	bondari	417	*/
2133	jermar	418	static uint8_t zone_buddy_get_order(buddy_system_t b, link_t block) {
		419	frame_t *frame;
480	bondari	420	frame = list_get_instance(block, frame_t, buddy_link);
		421	return frame->buddy_order;
479	bondari	422	}
533	bondari	423
		424	/** Buddy system mark_busy implementation
		425	*
		426	* @param b Buddy system
		427	* @param block Buddy system block
		428	*
		429	*/
814	palkovsky	430	static void zone_buddy_mark_busy(buddy_system_t b, link_t block) {
533	bondari	431	frame_t * frame;
822	palkovsky	432
533	bondari	433	frame = list_get_instance(block, frame_t, buddy_link);
		434	frame->refcount = 1;
		435	}
676	bondari	436
814	palkovsky	437	/** Buddy system mark_available implementation
		438	*
		439	* @param b Buddy system
		440	* @param block Buddy system block
		441	*
		442	*/
2133	jermar	443	static void zone_buddy_mark_available(buddy_system_t b, link_t block) {
		444	frame_t *frame;
814	palkovsky	445	frame = list_get_instance(block, frame_t, buddy_link);
		446	frame->refcount = 0;
		447	}
		448
2083	decky	449	static buddy_system_operations_t zone_buddy_system_operations = {
814	palkovsky	450	.find_buddy = zone_buddy_find_buddy,
		451	.bisect = zone_buddy_bisect,
		452	.coalesce = zone_buddy_coalesce,
		453	.set_order = zone_buddy_set_order,
		454	.get_order = zone_buddy_get_order,
		455	.mark_busy = zone_buddy_mark_busy,
		456	.mark_available = zone_buddy_mark_available,
822	palkovsky	457	.find_block = zone_buddy_find_block,
		458	.print_id = zone_buddy_print_id
814	palkovsky	459	};
		460
2059	jermar	461	/******************/
814	palkovsky	462	/* Zone functions */
2059	jermar	463	/******************/
814	palkovsky	464
		465	/** Allocate frame in particular zone
		466	*
		467	* Assume zone is locked
1269	decky	468	* Panics if allocation is impossible.
814	palkovsky	469	*
1269	decky	470	* @param zone Zone to allocate from.
		471	* @param order Allocate exactly 2^order frames.
		472	*
814	palkovsky	473	* @return Frame index in zone
1269	decky	474	*
814	palkovsky	475	*/
1780	jermar	476	static pfn_t zone_frame_alloc(zone_t *zone, uint8_t order)
814	palkovsky	477	{
		478	pfn_t v;
		479	link_t *tmp;
		480	frame_t *frame;
		481
		482	/* Allocate frames from zone buddy system */
		483	tmp = buddy_system_alloc(zone->buddy_system, order);
		484
		485	ASSERT(tmp);
		486
		487	/* Update zone information. */
		488	zone->free_count -= (1 << order);
		489	zone->busy_count += (1 << order);
		490
		491	/* Frame will be actually a first frame of the block. */
		492	frame = list_get_instance(tmp, frame_t, buddy_link);
		493
		494	/* get frame address */
		495	v = make_frame_index(zone, frame);
		496	return v;
		497	}
		498
		499	/** Free frame from zone
		500	*
		501	* Assume zone is locked
1568	palkovsky	502	*
		503	* @param zone Pointer to zone from which the frame is to be freed
		504	* @param frame_idx Frame index relative to zone
814	palkovsky	505	*/
820	jermar	506	static void zone_frame_free(zone_t *zone, index_t frame_idx)
814	palkovsky	507	{
		508	frame_t *frame;
1780	jermar	509	uint8_t order;
814	palkovsky	510
		511	frame = &zone->frames[frame_idx];
		512
		513	/* remember frame order */
		514	order = frame->buddy_order;
		515
		516	ASSERT(frame->refcount);
		517
		518	if (!--frame->refcount) {
		519	buddy_system_free(zone->buddy_system, &frame->buddy_link);
946	jermar	520
		521	/* Update zone information. */
		522	zone->free_count += (1 << order);
		523	zone->busy_count -= (1 << order);
814	palkovsky	524	}
		525	}
		526
		527	/** Return frame from zone */
820	jermar	528	static frame_t * zone_get_frame(zone_t *zone, index_t frame_idx)
814	palkovsky	529	{
		530	ASSERT(frame_idx < zone->count);
		531	return &zone->frames[frame_idx];
		532	}
		533
		534	/** Mark frame in zone unavailable to allocation */
820	jermar	535	static void zone_mark_unavailable(zone_t *zone, index_t frame_idx)
814	palkovsky	536	{
		537	frame_t *frame;
		538	link_t *link;
		539
		540	frame = zone_get_frame(zone, frame_idx);
822	palkovsky	541	if (frame->refcount)
		542	return;
2133	jermar	543	link = buddy_system_alloc_block(zone->buddy_system,
		544	&frame->buddy_link);
814	palkovsky	545	ASSERT(link);
		546	zone->free_count--;
		547	}
		548
822	palkovsky	549	/**
		550	* Join 2 zones
		551	*
		552	* Expect zone_t *z to point to space at least zone_conf_size large
		553	*
		554	* Assume z1 & z2 are locked
1568	palkovsky	555	*
		556	* @param z Target zone structure pointer
		557	* @param z1 Zone to merge
		558	* @param z2 Zone to merge
822	palkovsky	559	*/
		560	static void _zone_merge(zone_t z, zone_t z1, zone_t *z2)
		561	{
1780	jermar	562	uint8_t max_order;
2122	decky	563	unsigned int i;
		564	int z2idx;
822	palkovsky	565	pfn_t frame_idx;
		566	frame_t *frame;
		567
2133	jermar	568	ASSERT(!overlaps(z1->base, z1->count, z2->base, z2->count));
822	palkovsky	569	ASSERT(z1->base < z2->base);
		570
		571	spinlock_initialize(&z->lock, "zone_lock");
		572	z->base = z1->base;
2133	jermar	573	z->count = z2->base + z2->count - z1->base;
822	palkovsky	574	z->flags = z1->flags & z2->flags;
		575
		576	z->free_count = z1->free_count + z2->free_count;
		577	z->busy_count = z1->busy_count + z2->busy_count;
		578
		579	max_order = fnzb(z->count);
		580
2133	jermar	581	z->buddy_system = (buddy_system_t *) &z[1];
		582	buddy_system_create(z->buddy_system, max_order,
		583	&zone_buddy_system_operations, (void *) z);
822	palkovsky	584
2133	jermar	585	z->frames = (frame_t )((uint8_t ) z->buddy_system +
		586	buddy_conf_size(max_order));
822	palkovsky	587	for (i = 0; i < z->count; i++) {
		588	/* This marks all frames busy */
		589	frame_initialize(&z->frames[i]);
		590	}
		591	/* Copy frames from both zones to preserve full frame orders,
1093	palkovsky	592	* parents etc. Set all free frames with refcount=0 to 1, because
822	palkovsky	593	* we add all free frames to buddy allocator later again, clear
1093	palkovsky	594	* order to 0. Don't set busy frames with refcount=0, as they
		595	* will not be reallocated during merge and it would make later
		596	* problems with allocation/free.
822	palkovsky	597	*/
2122	decky	598	for (i = 0; i < z1->count; i++)
822	palkovsky	599	z->frames[i] = z1->frames[i];
2122	decky	600	for (i = 0; i < z2->count; i++) {
822	palkovsky	601	z2idx = i + (z2->base - z1->base);
		602	z->frames[z2idx] = z2->frames[i];
		603	}
1093	palkovsky	604	i = 0;
		605	while (i < z->count) {
		606	if (z->frames[i].refcount) {
		607	/* skip busy frames */
		608	i += 1 << z->frames[i].buddy_order;
		609	} else { /* Free frames, set refcount=1 */
		610	/* All free frames have refcount=0, we need not
		611	* to check the order */
822	palkovsky	612	z->frames[i].refcount = 1;
		613	z->frames[i].buddy_order = 0;
1093	palkovsky	614	i++;
822	palkovsky	615	}
		616	}
		617	/* Add free blocks from the 2 original zones */
		618	while (zone_can_alloc(z1, 0)) {
		619	frame_idx = zone_frame_alloc(z1, 0);
		620	frame = &z->frames[frame_idx];
		621	frame->refcount = 0;
		622	buddy_system_free(z->buddy_system, &frame->buddy_link);
		623	}
		624	while (zone_can_alloc(z2, 0)) {
		625	frame_idx = zone_frame_alloc(z2, 0);
2133	jermar	626	frame = &z->frames[frame_idx + (z2->base - z1->base)];
822	palkovsky	627	frame->refcount = 0;
		628	buddy_system_free(z->buddy_system, &frame->buddy_link);
		629	}
		630	}
		631
		632	/** Return old configuration frames into the zone
		633	*
		634	* We have several cases
		635	* - the conf. data is outside of zone -> exit, shall we call frame_free??
824	palkovsky	636	* - the conf. data was created by zone_create or
		637	* updated with reduce_region -> free every frame
		638	*
		639	* @param newzone The actual zone where freeing should occur
		640	* @param oldzone Pointer to old zone configuration data that should
		641	* be freed from new zone
822	palkovsky	642	*/
		643	static void return_config_frames(zone_t newzone, zone_t oldzone)
		644	{
		645	pfn_t pfn;
		646	frame_t *frame;
		647	count_t cframes;
2122	decky	648	unsigned int i;
822	palkovsky	649
1780	jermar	650	pfn = ADDR2PFN((uintptr_t)KA2PA(oldzone));
822	palkovsky	651	cframes = SIZE2FRAMES(zone_conf_size(oldzone->count));
		652
		653	if (pfn < newzone->base \|\| pfn >= newzone->base + newzone->count)
		654	return;
		655
		656	frame = &newzone->frames[pfn - newzone->base];
824	palkovsky	657	ASSERT(!frame->buddy_order);
822	palkovsky	658
2122	decky	659	for (i = 0; i < cframes; i++) {
822	palkovsky	660	newzone->busy_count++;
		661	zone_frame_free(newzone, pfn+i-newzone->base);
		662	}
		663	}
		664
824	palkovsky	665	/** Reduce allocated block to count of order 0 frames
		666	*
		667	* The allocated block need 2^order frames of space. Reduce all frames
1568	palkovsky	668	* in block to order 0 and free the unneeded frames. This means, that
		669	* when freeing the previously allocated block starting with frame_idx,
		670	* you have to free every frame.
824	palkovsky	671	*
		672	* @param zone
		673	* @param frame_idx Index to block
		674	* @param count Allocated space in block
		675	*/
		676	static void zone_reduce_region(zone_t *zone, pfn_t frame_idx, count_t count)
		677	{
		678	count_t i;
1780	jermar	679	uint8_t order;
824	palkovsky	680	frame_t *frame;
		681
2122	decky	682	ASSERT(frame_idx + count < zone->count);
824	palkovsky	683
		684	order = zone->frames[frame_idx].buddy_order;
2122	decky	685	ASSERT((count_t) (1 << order) >= count);
824	palkovsky	686
		687	/* Reduce all blocks to order 0 */
2122	decky	688	for (i = 0; i < (count_t) (1 << order); i++) {
824	palkovsky	689	frame = &zone->frames[i + frame_idx];
		690	frame->buddy_order = 0;
2133	jermar	691	if (!frame->refcount)
824	palkovsky	692	frame->refcount = 1;
		693	ASSERT(frame->refcount == 1);
		694	}
		695	/* Free unneeded frames */
2122	decky	696	for (i = count; i < (count_t) (1 << order); i++) {
824	palkovsky	697	zone_frame_free(zone, i + frame_idx);
		698	}
		699	}
		700
822	palkovsky	701	/** Merge zones z1 and z2
		702	*
		703	* - the zones must be 2 zones with no zone existing in between,
		704	* which means that z2 = z1+1
		705	*
		706	* - When you create a new zone, the frame allocator configuration does
		707	* not to be 2^order size. Once the allocator is running it is no longer
		708	* possible, merged configuration data occupies more space :-/
		709	*/
2122	decky	710	void zone_merge(unsigned int z1, unsigned int z2)
822	palkovsky	711	{
		712	ipl_t ipl;
		713	zone_t zone1, zone2, *newzone;
2122	decky	714	unsigned int cframes;
1780	jermar	715	uint8_t order;
2122	decky	716	unsigned int i;
822	palkovsky	717	pfn_t pfn;
		718
		719	ipl = interrupts_disable();
		720	spinlock_lock(&zones.lock);
		721
2745	decky	722	if ((z1 >= zones.count) \|\| (z2 >= zones.count))
822	palkovsky	723	goto errout;
		724	/* We can join only 2 zones with none existing inbetween */
		725	if (z2-z1 != 1)
		726	goto errout;
		727
		728	zone1 = zones.info[z1];
		729	zone2 = zones.info[z2];
		730	spinlock_lock(&zone1->lock);
		731	spinlock_lock(&zone2->lock);
		732
2133	jermar	733	cframes = SIZE2FRAMES(zone_conf_size(zone2->base + zone2->count -
		734	zone1->base));
1700	palkovsky	735	if (cframes == 1)
		736	order = 0;
		737	else
		738	order = fnzb(cframes - 1) + 1;
822	palkovsky	739
		740	/* Allocate zonedata inside one of the zones */
		741	if (zone_can_alloc(zone1, order))
		742	pfn = zone1->base + zone_frame_alloc(zone1, order);
		743	else if (zone_can_alloc(zone2, order))
		744	pfn = zone2->base + zone_frame_alloc(zone2, order);
		745	else
		746	goto errout2;
		747
2122	decky	748	newzone = (zone_t *) PA2KA(PFN2ADDR(pfn));
822	palkovsky	749
		750	_zone_merge(newzone, zone1, zone2);
		751
824	palkovsky	752	/* Free unneeded config frames */
		753	zone_reduce_region(newzone, pfn - newzone->base, cframes);
822	palkovsky	754	/* Subtract zone information from busy frames */
824	palkovsky	755	newzone->busy_count -= cframes;
822	palkovsky	756
824	palkovsky	757	/* Replace existing zones in zoneinfo list */
822	palkovsky	758	zones.info[z1] = newzone;
1037	decky	759	for (i = z2 + 1; i < zones.count; i++)
		760	zones.info[i - 1] = zones.info[i];
822	palkovsky	761	zones.count--;
		762
		763	/* Free old zone information */
		764	return_config_frames(newzone, zone1);
		765	return_config_frames(newzone, zone2);
		766	errout2:
		767	/* Nobody is allowed to enter to zone, so we are safe
		768	* to touch the spinlocks last time */
		769	spinlock_unlock(&zone1->lock);
		770	spinlock_unlock(&zone2->lock);
		771	errout:
		772	spinlock_unlock(&zones.lock);
		773	interrupts_restore(ipl);
		774	}
		775
		776	/**
		777	* Merge all zones into one big zone
		778	*
		779	* It is reasonable to do this on systems whose bios reports parts in chunks,
		780	* so that we could have 1 zone (it's faster).
		781	*/
		782	void zone_merge_all(void)
		783	{
		784	int count = zones.count;
		785
		786	while (zones.count > 1 && --count) {
		787	zone_merge(0,1);
		788	break;
		789	}
		790	}
		791
814	palkovsky	792	/** Create frame zone
		793	*
		794	* Create new frame zone.
		795	*
		796	* @param start Physical address of the first frame within the zone.
1568	palkovsky	797	* @param count Count of frames in zone
		798	* @param z Address of configuration information of zone
814	palkovsky	799	* @param flags Zone flags.
		800	*
		801	* @return Initialized zone.
		802	*/
822	palkovsky	803	static void zone_construct(pfn_t start, count_t count, zone_t *z, int flags)
814	palkovsky	804	{
2122	decky	805	unsigned int i;
1780	jermar	806	uint8_t max_order;
814	palkovsky	807
		808	spinlock_initialize(&z->lock, "zone_lock");
		809	z->base = start;
		810	z->count = count;
		811	z->flags = flags;
		812	z->free_count = count;
		813	z->busy_count = 0;
		814
		815	/*
		816	* Compute order for buddy system, initialize
		817	*/
822	palkovsky	818	max_order = fnzb(count);
814	palkovsky	819	z->buddy_system = (buddy_system_t *)&z[1];
		820
		821	buddy_system_create(z->buddy_system, max_order,
		822	&zone_buddy_system_operations,
		823	(void *) z);
		824
		825	/* Allocate frames _after_ the conframe */
		826	/* Check sizes */
2133	jermar	827	z->frames = (frame_t )((uint8_t ) z->buddy_system +
		828	buddy_conf_size(max_order));
2122	decky	829	for (i = 0; i < count; i++) {
814	palkovsky	830	frame_initialize(&z->frames[i]);
		831	}
852	palkovsky	832
814	palkovsky	833	/* Stuffing frames */
		834	for (i = 0; i < count; i++) {
		835	z->frames[i].refcount = 0;
		836	buddy_system_free(z->buddy_system, &z->frames[i].buddy_link);
		837	}
		838	}
		839
1568	palkovsky	840	/** Compute configuration data size for zone
		841	*
		842	* @param count Size of zone in frames
		843	* @return Size of zone configuration info (in bytes)
		844	*/
1780	jermar	845	uintptr_t zone_conf_size(count_t count)
814	palkovsky	846	{
3149	svoboda	847	int size = sizeof(zone_t) + count * sizeof(frame_t);
814	palkovsky	848	int max_order;
		849
822	palkovsky	850	max_order = fnzb(count);
814	palkovsky	851	size += buddy_conf_size(max_order);
		852	return size;
		853	}
		854
		855	/** Create and add zone to system
		856	*
1568	palkovsky	857	* @param start First frame number (absolute)
		858	* @param count Size of zone in frames
		859	* @param confframe Where configuration frames are supposed to be.
		860	* Automatically checks, that we will not disturb the
		861	* kernel and possibly init.
814	palkovsky	862	* If confframe is given _outside_ this zone, it is expected,
		863	* that the area is already marked BUSY and big enough
1568	palkovsky	864	* to contain zone_conf_size() amount of data.
		865	* If the confframe is inside the area, the zone free frame
		866	* information is modified not to include it.
822	palkovsky	867	*
		868	* @return Zone number or -1 on error
814	palkovsky	869	*/
822	palkovsky	870	int zone_create(pfn_t start, count_t count, pfn_t confframe, int flags)
814	palkovsky	871	{
		872	zone_t *z;
1780	jermar	873	uintptr_t addr;
820	jermar	874	count_t confcount;
2122	decky	875	unsigned int i;
822	palkovsky	876	int znum;
814	palkovsky	877
		878	/* Theoretically we could have here 0, practically make sure
		879	* nobody tries to do that. If some platform requires, remove
		880	* the assert
		881	*/
		882	ASSERT(confframe);
		883	/* If conframe is supposed to be inside our zone, then make sure
		884	* it does not span kernel & init
		885	*/
822	palkovsky	886	confcount = SIZE2FRAMES(zone_conf_size(count));
814	palkovsky	887	if (confframe >= start && confframe < start+count) {
1037	decky	888	for (;confframe < start + count; confframe++) {
814	palkovsky	889	addr = PFN2ADDR(confframe);
2133	jermar	890	if (overlaps(addr, PFN2ADDR(confcount),
		891	KA2PA(config.base), config.kernel_size))
814	palkovsky	892	continue;
1037	decky	893
2133	jermar	894	if (overlaps(addr, PFN2ADDR(confcount),
		895	KA2PA(config.stack_base), config.stack_size))
1833	decky	896	continue;
		897
1037	decky	898	bool overlap = false;
		899	count_t i;
		900	for (i = 0; i < init.cnt; i++)
2133	jermar	901	if (overlaps(addr, PFN2ADDR(confcount),
		902	KA2PA(init.tasks[i].addr),
		903	init.tasks[i].size)) {
1037	decky	904	overlap = true;
		905	break;
		906	}
		907	if (overlap)
		908	continue;
		909
814	palkovsky	910	break;
		911	}
1037	decky	912	if (confframe >= start + count)
814	palkovsky	913	panic("Cannot find configuration data for zone.");
		914	}
		915
2725	decky	916	z = (zone_t *) PA2KA(PFN2ADDR(confframe));
822	palkovsky	917	zone_construct(start, count, z, flags);
		918	znum = zones_add_zone(z);
		919	if (znum == -1)
		920	return -1;
		921
814	palkovsky	922	/* If confdata in zone, mark as unavailable */
2122	decky	923	if (confframe >= start && confframe < start + count)
		924	for (i = confframe; i < confframe + confcount; i++) {
814	palkovsky	925	zone_mark_unavailable(z, i - z->base);
		926	}
822	palkovsky	927	return znum;
814	palkovsky	928	}
		929
		930	/***************************************/
		931	/* Frame functions */
		932
		933	/** Set parent of frame */
2122	decky	934	void frame_set_parent(pfn_t pfn, void *data, unsigned int hint)
814	palkovsky	935	{
		936	zone_t *zone = find_zone_and_lock(pfn, &hint);
		937
		938	ASSERT(zone);
		939
		940	zone_get_frame(zone, pfn-zone->base)->parent = data;
		941	spinlock_unlock(&zone->lock);
		942	}
		943
2133	jermar	944	void *frame_get_parent(pfn_t pfn, unsigned int hint)
814	palkovsky	945	{
		946	zone_t *zone = find_zone_and_lock(pfn, &hint);
		947	void *res;
		948
		949	ASSERT(zone);
		950	res = zone_get_frame(zone, pfn - zone->base)->parent;
		951
		952	spinlock_unlock(&zone->lock);
		953	return res;
		954	}
		955
		956	/** Allocate power-of-two frames of physical memory.
		957	*
1269	decky	958	* @param order Allocate exactly 2^order frames.
		959	* @param flags Flags for host zone selection and address processing.
		960	* @param pzone Preferred zone
814	palkovsky	961	*
1760	palkovsky	962	* @return Physical address of the allocated frame.
1269	decky	963	*
814	palkovsky	964	*/
2123	decky	965	void * frame_alloc_generic(uint8_t order, int flags, unsigned int *pzone)
814	palkovsky	966	{
		967	ipl_t ipl;
		968	int freed;
		969	pfn_t v;
		970	zone_t *zone;
		971
		972	loop:
		973	ipl = interrupts_disable();
1269	decky	974
814	palkovsky	975	/*
		976	* First, find suitable frame zone.
		977	*/
1981	jermar	978	zone = find_free_zone_and_lock(order, pzone);
1269	decky	979
814	palkovsky	980	/* If no memory, reclaim some slab memory,
		981	if it does not help, reclaim all */
		982	if (!zone && !(flags & FRAME_NO_RECLAIM)) {
		983	freed = slab_reclaim(0);
		984	if (freed)
1981	jermar	985	zone = find_free_zone_and_lock(order, pzone);
814	palkovsky	986	if (!zone) {
		987	freed = slab_reclaim(SLAB_RECLAIM_ALL);
		988	if (freed)
1981	jermar	989	zone = find_free_zone_and_lock(order, pzone);
814	palkovsky	990	}
		991	}
		992	if (!zone) {
		993	/*
		994	* TODO: Sleep until frames are available again.
		995	*/
		996	interrupts_restore(ipl);
		997
1766	palkovsky	998	if (flags & FRAME_ATOMIC)
1760	palkovsky	999	return 0;
814	palkovsky	1000
		1001	panic("Sleep not implemented.\n");
		1002	goto loop;
		1003	}
1269	decky	1004
		1005	v = zone_frame_alloc(zone, order);
814	palkovsky	1006	v += zone->base;
		1007
		1008	spinlock_unlock(&zone->lock);
		1009	interrupts_restore(ipl);
		1010
1760	palkovsky	1011	if (flags & FRAME_KA)
		1012	return (void *)PA2KA(PFN2ADDR(v));
		1013	return (void *)PFN2ADDR(v);
814	palkovsky	1014	}
		1015
		1016	/** Free a frame.
		1017	*
1854	jermar	1018	* Find respective frame structure for supplied physical frame address.
814	palkovsky	1019	* Decrement frame reference count.
		1020	* If it drops to zero, move the frame structure to free list.
		1021	*
1760	palkovsky	1022	* @param Frame Physical Address of of the frame to be freed.
814	palkovsky	1023	*/
1780	jermar	1024	void frame_free(uintptr_t frame)
814	palkovsky	1025	{
		1026	ipl_t ipl;
		1027	zone_t *zone;
1760	palkovsky	1028	pfn_t pfn = ADDR2PFN(frame);
814	palkovsky	1029
		1030	ipl = interrupts_disable();
		1031
		1032	/*
		1033	* First, find host frame zone for addr.
		1034	*/
		1035	zone = find_zone_and_lock(pfn,NULL);
		1036	ASSERT(zone);
		1037
		1038	zone_frame_free(zone, pfn-zone->base);
		1039
		1040	spinlock_unlock(&zone->lock);
		1041	interrupts_restore(ipl);
		1042	}
		1043
1236	jermar	1044	/** Add reference to frame.
		1045	*
		1046	* Find respective frame structure for supplied PFN and
		1047	* increment frame reference count.
		1048	*
1708	jermar	1049	* @param pfn Frame number of the frame to be freed.
1236	jermar	1050	*/
		1051	void frame_reference_add(pfn_t pfn)
		1052	{
		1053	ipl_t ipl;
		1054	zone_t *zone;
		1055	frame_t *frame;
814	palkovsky	1056
1236	jermar	1057	ipl = interrupts_disable();
		1058
		1059	/*
		1060	* First, find host frame zone for addr.
		1061	*/
		1062	zone = find_zone_and_lock(pfn,NULL);
		1063	ASSERT(zone);
		1064
		1065	frame = &zone->frames[pfn-zone->base];
		1066	frame->refcount++;
		1067
		1068	spinlock_unlock(&zone->lock);
		1069	interrupts_restore(ipl);
		1070	}
814	palkovsky	1071
		1072	/** Mark given range unavailable in frame zones */
820	jermar	1073	void frame_mark_unavailable(pfn_t start, count_t count)
814	palkovsky	1074	{
2122	decky	1075	unsigned int i;
814	palkovsky	1076	zone_t *zone;
2122	decky	1077	unsigned int prefzone = 0;
852	palkovsky	1078
2122	decky	1079	for (i = 0; i < count; i++) {
1981	jermar	1080	zone = find_zone_and_lock(start + i, &prefzone);
814	palkovsky	1081	if (!zone) /* PFN not found */
		1082	continue;
1981	jermar	1083	zone_mark_unavailable(zone, start + i - zone->base);
814	palkovsky	1084
		1085	spinlock_unlock(&zone->lock);
		1086	}
		1087	}
		1088
		1089	/** Initialize physical memory management
		1090	*
		1091	* Initialize physical memory managemnt.
		1092	*/
		1093	void frame_init(void)
		1094	{
		1095	if (config.cpu_active == 1) {
		1096	zones.count = 0;
1981	jermar	1097	spinlock_initialize(&zones.lock, "zones.lock");
814	palkovsky	1098	}
		1099	/* Tell the architecture to create some memory */
		1100	frame_arch_init();
		1101	if (config.cpu_active == 1) {
2133	jermar	1102	frame_mark_unavailable(ADDR2PFN(KA2PA(config.base)),
		1103	SIZE2FRAMES(config.kernel_size));
		1104	frame_mark_unavailable(ADDR2PFN(KA2PA(config.stack_base)),
		1105	SIZE2FRAMES(config.stack_size));
1037	decky	1106
		1107	count_t i;
2133	jermar	1108	for (i = 0; i < init.cnt; i++) {
		1109	pfn_t pfn = ADDR2PFN(KA2PA(init.tasks[i].addr));
		1110	frame_mark_unavailable(pfn,
		1111	SIZE2FRAMES(init.tasks[i].size));
		1112	}
1599	palkovsky	1113
1894	jermar	1114	if (ballocs.size)
2133	jermar	1115	frame_mark_unavailable(ADDR2PFN(KA2PA(ballocs.base)),
		1116	SIZE2FRAMES(ballocs.size));
1894	jermar	1117
1599	palkovsky	1118	/* Black list first frame, as allocating NULL would
1790	jermar	1119	* fail in some places */
1599	palkovsky	1120	frame_mark_unavailable(0, 1);
814	palkovsky	1121	}
		1122	}
		1123
		1124
2725	decky	1125	/** Return total size of all zones
		1126	*
		1127	*/
		1128	uint64_t zone_total_size(void) {
		1129	zone_t *zone = NULL;
		1130	unsigned int i;
		1131	ipl_t ipl;
		1132	uint64_t total = 0;
814	palkovsky	1133
2725	decky	1134	ipl = interrupts_disable();
		1135	spinlock_lock(&zones.lock);
		1136
		1137	for (i = 0; i < zones.count; i++) {
		1138	zone = zones.info[i];
		1139	spinlock_lock(&zone->lock);
		1140	total += (uint64_t) FRAMES2SIZE(zone->count);
		1141	spinlock_unlock(&zone->lock);
		1142	}
		1143
		1144	spinlock_unlock(&zones.lock);
		1145	interrupts_restore(ipl);
		1146
		1147	return total;
		1148	}
		1149
		1150
		1151
677	bondari	1152	/** Prints list of zones
		1153	*
		1154	*/
676	bondari	1155	void zone_print_list(void) {
		1156	zone_t *zone = NULL;
2122	decky	1157	unsigned int i;
701	jermar	1158	ipl_t ipl;
		1159
		1160	ipl = interrupts_disable();
814	palkovsky	1161	spinlock_lock(&zones.lock);
3149	svoboda	1162
		1163	#ifdef __32_BITS__
		1164	printf("# base address free frames busy frames\n");
		1165	printf("-- ------------ ------------ ------------\n");
		1166	#endif
		1167
		1168	#ifdef __64_BITS__
		1169	printf("# base address free frames busy frames\n");
		1170	printf("-- -------------------- ------------ ------------\n");
		1171	#endif
2712	decky	1172
1037	decky	1173	for (i = 0; i < zones.count; i++) {
814	palkovsky	1174	zone = zones.info[i];
683	bondari	1175	spinlock_lock(&zone->lock);
3149	svoboda	1176
		1177	#ifdef __32_BITS__
		1178	printf("%-2u %10p %12" PRIc " %12" PRIc "\n", i, PFN2ADDR(zone->base),
		1179	zone->free_count, zone->busy_count);
		1180	#endif
		1181
		1182	#ifdef __64_BITS__
		1183	printf("%-2u %18p %12" PRIc " %12" PRIc "\n", i, PFN2ADDR(zone->base),
		1184	zone->free_count, zone->busy_count);
		1185	#endif
2712	decky	1186
701	jermar	1187	spinlock_unlock(&zone->lock);
676	bondari	1188	}
2712	decky	1189
814	palkovsky	1190	spinlock_unlock(&zones.lock);
701	jermar	1191	interrupts_restore(ipl);
676	bondari	1192	}
		1193
1708	jermar	1194	/** Prints zone details.
677	bondari	1195	*
1708	jermar	1196	* @param num Zone base address or zone number.
677	bondari	1197	*/
2122	decky	1198	void zone_print_one(unsigned int num) {
814	palkovsky	1199	zone_t *zone = NULL;
701	jermar	1200	ipl_t ipl;
2122	decky	1201	unsigned int i;
701	jermar	1202
		1203	ipl = interrupts_disable();
814	palkovsky	1204	spinlock_lock(&zones.lock);
822	palkovsky	1205
1037	decky	1206	for (i = 0; i < zones.count; i++) {
2725	decky	1207	if ((i == num) \|\| (PFN2ADDR(zones.info[i]->base) == num)) {
822	palkovsky	1208	zone = zones.info[i];
		1209	break;
		1210	}
676	bondari	1211	}
822	palkovsky	1212	if (!zone) {
		1213	printf("Zone not found.\n");
		1214	goto out;
		1215	}
676	bondari	1216
683	bondari	1217	spinlock_lock(&zone->lock);
822	palkovsky	1218	printf("Memory zone information\n");
3149	svoboda	1219	printf("Zone base address: %p\n", PFN2ADDR(zone->base));
		1220	printf("Zone size: %" PRIc " frames (%" PRIs " KB)\n", zone->count,
2725	decky	1221	SIZE2KB(FRAMES2SIZE(zone->count)));
3149	svoboda	1222	printf("Allocated space: %" PRIc " frames (%" PRIs " KB)\n", zone->busy_count,
2725	decky	1223	SIZE2KB(FRAMES2SIZE(zone->busy_count)));
3149	svoboda	1224	printf("Available space: %" PRIc " frames (%" PRIs " KB)\n", zone->free_count,
2725	decky	1225	SIZE2KB(FRAMES2SIZE(zone->free_count)));
686	bondari	1226	buddy_system_structure_print(zone->buddy_system, FRAME_SIZE);
2725	decky	1227	spinlock_unlock(&zone->lock);
683	bondari	1228
822	palkovsky	1229	out:
814	palkovsky	1230	spinlock_unlock(&zones.lock);
701	jermar	1231	interrupts_restore(ipl);
676	bondari	1232	}
		1233
1757	jermar	1234	/** @}
1702	cejka	1235	*/
2133	jermar	1236

Subversion Repositories HelenOS

(root)/branches/dynload/kernel/generic/src/mm/frame.c – Rev 3149