hschumann2/TempleOS-Source-Code

1 2U0 BlkPoolAdd(CBlkPool *bp,CMemBlk *m,I64 pags)3{//Add mem to BlkPool.4  if (sys_mem_init_flag)5    MemSet(m,sys_mem_init_val,pags*MEM_PAG_SIZE);6  PUSHFD7  CLI8  while (LBts(&bp->locked_flags,BPlf_LOCKED))9    PAUSE10  m->next=bp->mem_free_lst;11  m->pags=pags;12  m->mb_signature=MBS_UNUSED_SIGNATURE_VAL;13  bp->alloced_u8s+=pags<<MEM_PAG_BITS;14  bp->mem_free_lst=m;15  LBtr(&bp->locked_flags,BPlf_LOCKED);16  POPFD17}18 19U0 BlkPoolInit(CBlkPool *bp,I64 pags)20{//Make mem chunk into a BlkPool.21  I64 num;22  CMemBlk *m;23  MemSet(bp,0,sizeof(CBlkPool));24  m=(bp(U8 *)+sizeof(CBlkPool)+MEM_PAG_SIZE-1)&~(MEM_PAG_SIZE-1);25  num=(bp(U8 *)+pags<<MEM_PAG_BITS-m(U8 *))>>MEM_PAG_BITS;26  bp->alloced_u8s=(pags-num)<<MEM_PAG_BITS; //Compensate before num added.27  BlkPoolAdd(bp,m,num);28}29 30U0 BlkPoolsInit()31{32  I64 i,total,lo,hi,code_heap_limit;33  CMemE820 *m20=MEM_E820;34  Bool first=TRUE;35 36  total=BIOSTotalMem;37 38  if (total<=0x80000000)39    code_heap_limit=total;40  else if (total<=0x100000000)41    code_heap_limit=total/4;42  else43    code_heap_limit=0x80000000;44 45  i=code_heap_limit-SYS_16MEG_AREA_LIMIT; //See RLf_16MEG_SYS_CODE_BP46  BlkPoolAdd(sys_code_bp,SYS_16MEG_AREA_LIMIT,i>>MEM_PAG_BITS);47  mem_heap_limit=i+SYS_16MEG_AREA_LIMIT-1;48 49  if (code_heap_limit<total) {50    while (m20->type) {51      if (m20->type==1) {52        lo=m20->base;53        hi=m20->base+m20->len;54        if (lo<code_heap_limit) {55          if (hi>code_heap_limit)56            lo=code_heap_limit;57          else58            hi=lo; //cancel59        }60        if (code_heap_limit<=lo<hi) {61          if (first) {62            BlkPoolInit(lo,(hi-lo)>>MEM_PAG_BITS);63            sys_data_bp=lo;64            Fs->data_heap=HeapCtrlInit(,Fs,sys_data_bp);65            first=FALSE;66          } else67            BlkPoolAdd(sys_data_bp,lo,(hi-lo)>>MEM_PAG_BITS);68        }69      }70      m20++;71    }72  }73  LBts(&sys_run_level,RLf_FULL_HEAPS);74}75