FreeCalypso > hg > fc-tourmaline
comparison src/gpf/osl/os_mem_ir.c @ 0:4e78acac3d88
src/{condat,cs,gpf,nucleus}: import from Selenite
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Fri, 16 Oct 2020 06:23:26 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:4e78acac3d88 |
---|---|
1 /* | |
2 * This C module is a reconstruction based on the disassembly of | |
3 * os_mem.obj in frame_na7_db_ir.lib from the Leonardo package. | |
4 */ | |
5 | |
6 /* set of included headers from COFF symtab: */ | |
7 #include <stdio.h> | |
8 #include <string.h> | |
9 #include "nucleus.h" | |
10 #include "typedefs.h" | |
11 #include "os.h" | |
12 #include "gdi.h" | |
13 #include "os_types.h" | |
14 #include "os_glob.h" | |
15 | |
16 extern T_OS_PART_GRP_TABLE_ENTRY PartGrpTable[]; | |
17 extern T_OS_POOL_BORDER PoolBorder[]; | |
18 | |
19 GLOBAL LONG | |
20 os_is_valid_partition(T_VOID_STRUCT *Buffer) | |
21 { | |
22 int i; | |
23 | |
24 for (i = 0; i <= MaxPoolGroups; i++) { | |
25 if (PoolBorder[i].End == 0) | |
26 return(OS_ERROR); | |
27 if ((char *)Buffer < PoolBorder[i].Start) | |
28 continue; | |
29 if ((char *)Buffer >= PoolBorder[i].End) | |
30 continue; | |
31 return(OS_OK); | |
32 } | |
33 return(OS_ERROR); | |
34 } | |
35 | |
36 GLOBAL LONG | |
37 os_PartitionCheck(ULONG *ptr) | |
38 { | |
39 PM_HEADER *phdr; | |
40 PM_PCB *pool; | |
41 | |
42 phdr = (PM_HEADER *)(ptr - PPM_OFFSET - 2); | |
43 if (phdr->pm_next_available) | |
44 return(OS_PARTITION_FREE); | |
45 pool = phdr->pm_partition_pool; | |
46 if (ptr[((pool->pm_partition_size - 4) >> 2) - PPM_OFFSET] == | |
47 GUARD_PATTERN) | |
48 return(OS_OK); | |
49 else | |
50 return(OS_PARTITION_GUARD_PATTERN_DESTROYED); | |
51 } | |
52 | |
53 GLOBAL LONG | |
54 os_DeallocatePartition(OS_HANDLE TaskHandle, T_VOID_STRUCT *Buffer) | |
55 { | |
56 if (os_is_valid_partition(Buffer) != OS_OK) | |
57 return(OS_ERROR); | |
58 if (NU_Deallocate_Partition(Buffer) != NU_SUCCESS) | |
59 return(OS_ERROR); | |
60 return(OS_OK); | |
61 } | |
62 | |
63 GLOBAL LONG | |
64 os_AllocatePartition(OS_HANDLE TaskHandle, T_VOID_STRUCT **Buffer, ULONG Size, | |
65 ULONG Suspend, OS_HANDLE GroupHandle) | |
66 { | |
67 T_OS_PART_POOL *pool, *requested_pool; | |
68 ULONG nu_suspend; | |
69 STATUS sts; | |
70 int ret; | |
71 | |
72 for (pool = PartGrpTable[GroupHandle].grp_head; pool; | |
73 pool = pool->next) | |
74 if (Size <= pool->size) | |
75 break; | |
76 if (!pool) | |
77 return(OS_ERROR); | |
78 requested_pool = pool; | |
79 ret = OS_OK; | |
80 nu_suspend = NU_NO_SUSPEND; | |
81 try_alloc: | |
82 sts = NU_Allocate_Partition(&pool->pcb, (VOID **) Buffer, nu_suspend); | |
83 switch (sts) { | |
84 case NU_SUCCESS: | |
85 return(ret); | |
86 case NU_TIMEOUT: | |
87 case NU_INVALID_SUSPEND: | |
88 *Buffer = 0; | |
89 return(OS_TIMEOUT); | |
90 case NU_NO_PARTITION: | |
91 pool = pool->next; | |
92 if (pool) { | |
93 ret = OS_ALLOCATED_BIGGER; | |
94 goto try_alloc; | |
95 } | |
96 pool = requested_pool; | |
97 if (Suspend) { | |
98 nu_suspend = Suspend; | |
99 ret = OS_WAITED; | |
100 goto try_alloc; | |
101 } | |
102 return(OS_TIMEOUT); | |
103 default: | |
104 *Buffer = 0; | |
105 return(OS_ERROR); | |
106 } | |
107 } |