X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=src%2Flib%2F16_mm.c;h=5061b4d50fc8eab9d2850d4fa7b52097d929bd92;hb=dc02e71c9e6a133f3deba4c3315c2062070a10bf;hp=f2392b6acd26f61825c1abda6d776870cbbfbf1e;hpb=aa074e927a76160b8a861471713931db2b5968d0;p=16.git diff --git a/src/lib/16_mm.c b/src/lib/16_mm.c index f2392b6a..5061b4d5 100755 --- a/src/lib/16_mm.c +++ b/src/lib/16_mm.c @@ -58,7 +58,6 @@ Open Watcom port by sparky4 #pragma warn -pro #pragma warn -use - /* ============================================================================= @@ -67,10 +66,10 @@ Open Watcom port by sparky4 ============================================================================= */ -//#define LOCKBIT 0x80 // if set in attributes, block cannot be moved -//#define PURGEBITS 3 // 0-3 level, 0= unpurgable, 3= purge first -//#define PURGEMASK 0xfffc -//#define BASEATTRIBUTES 0 // unlocked, non purgable +#define LOCKBIT 0x80 // if set in attributes, block cannot be moved +#define PURGEBITS 3 // 0-3 level, 0= unpurgable, 3= purge first +#define PURGEMASK 0xfffc +#define BASEATTRIBUTES 0 // unlocked, non purgable //#define MAXUMBS 10 @@ -86,9 +85,9 @@ Open Watcom port by sparky4 //#define GETNEWBLOCK {if(!(mmnew=mmfree))Quit("MM_GETNEWBLOCK: No free blocks!") ;mmfree=mmfree->next;} // -//#define GETNEWBLOCK {if(!gvar->mm.mmfree)MML_ClearBlock(gvar);gvar->mm.mmnew=gvar->mm.mmfree;gvar->mm.mmfree=gvar->mm.mmfree->next;} +#define GETNEWBLOCK {if(!gvar->mm.mmfree)MML_ClearBlock(gvar);gvar->mm.mmnew=gvar->mm.mmfree;gvar->mm.mmfree=gvar->mm.mmfree->next;} -//#define FREEBLOCK(x) {*x->useptr=NULL;x->next=gvar->mm.mmfree;gvar->mm.mmfree=x;} +#define FREEBLOCK(x) {*x->useptr=NULL;x->next=gvar->mm.mmfree;gvar->mm.mmfree=x;} /* ============================================================================= @@ -621,7 +620,7 @@ getmemory: } #endif // printf("base=%u ", base); printf("size=%u\n", size); - MML_UseSpace (base,size, gvar); + MML_UseSpace(base,size, gvar); gvar->mmi.XMSmem += size*16; gvar->mm.UMBbase[gvar->mm.numUMBs] = base; gvar->mm.numUMBs++; @@ -680,7 +679,7 @@ void MML_ShutdownXMS(global_game_variables_t *gvar) { scan->blob=segm; - //MML_UseSpace (segstart, seglength, gvar); + //MML_UseSpace(segstart, seglength, gvar); printf("MML_UseSpace: Segment spans two blocks!\n"); //} @@ -695,10 +694,10 @@ void MML_ShutdownXMS(global_game_variables_t *gvar) } //++++todo: linked list of segment! */ -void MML_UseSpace (word segstart, word seglength, global_game_variables_t *gvar) +void MML_UseSpace (unsigned segstart, unsigned seglength, global_game_variables_t *gvar) { mmblocktype far *scan,far *last; - word oldend; + unsigned oldend; sdword extra; //word segm=1; @@ -744,7 +743,7 @@ void MML_UseSpace (word segstart, word seglength, global_game_variables_t *gvar) //return; } #else - Quit ("MML_UseSpace: Segment spans two blocks!"); + Quit (gvar, "MML_UseSpace: Segment spans two blocks!"); #endif if (segstart == scan->start) @@ -790,9 +789,9 @@ void MML_ClearBlock (global_game_variables_t *gvar) while(scan) { - if(!(scan->attributes&LOCKBIT) && (scan->attributes&PURGEBITS)) + if(!(scan->attributes&LOCKBIT) && (scan->attributes&PURGEBITS) ) { - MM_FreePtr(scan->useptr, gvar); + MM_FreePtr (scan->useptr, gvar); return; } scan = scan->next; @@ -820,14 +819,17 @@ void MM_Startup (global_game_variables_t *gvar) int i; dword length; void far *start; - word segstart,seglength;//,endfree; + unsigned segstart,seglength;//,endfree; if(gvar->mm.mmstarted) MM_Shutdown (gvar); + //has to be 16 + if(sizeof(mmblocktype)!=16) + return; + gvar->mm.mmstarted = true; gvar->mm.bombonerror = true; - // // set up the linked list (everything in the free list; // @@ -912,7 +914,7 @@ void MM_Startup (global_game_variables_t *gvar) { MML_SetupEMS(gvar); // allocate space //16_PM: EMS4! AND EMS 3.2 MASSIVE DATA HANDLMENT! - MML_UseSpace (gvar->mm.EMSPageFrame,(MAPPAGES)*0x4000lu, gvar); + MML_UseSpace(gvar->mm.EMSPageFrame,(MAPPAGES)*0x4000lu, gvar); //if(gvar->pm.emm.EMSVer<0x40) MM_MapEMS(gvar); // map in used pages //else @@ -1012,16 +1014,23 @@ void MM_GetPtr (memptr *baseptr,dword size, global_game_variables_t *gvar) gvar->mm.mmnew->attributes = BASEATTRIBUTES; //if(gvar->mm.mmnew->useptr==NULL){ #ifdef __DEBUG_MM__ - printf("MM_GetPtr\n"); if(dbg_debugmm>0){ + printf("===============================================================================\n"); + printf(" MM_GetPtr\n"); + printf("===============================================================================\n"); //%04x - printf(" baseptr=%Fp ", baseptr); printf("useptr=%Fp\n", gvar->mm.mmnew->useptr); - printf(" *baseptr=%Fp ", *baseptr); printf("*useptr=%Fp\n", *(gvar->mm.mmnew->useptr)); - printf(" &baseptr=%Fp ", &baseptr); printf("&useptr=%Fp\n", &(gvar->mm.mmnew->useptr)); +// printf(" baseptr=%Fp ", baseptr); printf("useptr=%Fp\n", gvar->mm.mmnew->useptr); +// //printf(" *baseptr=%Fp ", *baseptr); printf("*useptr=%Fp\n", *(gvar->mm.mmnew->useptr)); +// printf(" &baseptr=%Fp ", &baseptr); printf("&useptr=%Fp\n", &(gvar->mm.mmnew->useptr)); + + printf(" baseptr=%04x ", baseptr); printf("useptr=%04x\n", gvar->mm.mmnew->useptr); + //printf(" *baseptr=%04x ", *baseptr); printf("*useptr=%04x\n", *(gvar->mm.mmnew->useptr)); + printf(" &baseptr=%04u ", &baseptr); printf("&useptr=%04u\n", &(gvar->mm.mmnew->useptr)); + + printf(" size is %lu\n", size); } - printf(" size is %lu\n", size); #endif - //Quit(gvar, "gvar->mm.mmnew->useptr==NULL"); } + //Quit (gvar, "gvar->mm.mmnew->useptr==NULL"); } //tryagain: for (search = 0; search<3; search++) @@ -1099,7 +1108,7 @@ void MM_GetPtr (memptr *baseptr,dword size, global_game_variables_t *gvar) //heapdump(); #endif printf(OUT_OF_MEM_MSG,(size-gvar->mmi.nearheap)); - Quit(gvar, "for stability reasons the program will shut down! wwww\n"); + Quit (gvar, "for stability reasons the program will shut down! wwww\n"); } else gvar->mm.mmerror = true; @@ -1127,13 +1136,13 @@ void MM_FreePtr (memptr *baseptr, global_game_variables_t *gvar) if (baseptr == gvar->mm.mmrover->useptr) // removed the last allocated block gvar->mm.mmrover = gvar->mm.mmhead; - while(scan->useptr != baseptr && scan) + while (scan->useptr != baseptr && scan) { last = scan; scan = scan->next; } - if(!scan) + if (!scan) Quit (gvar, "MM_FreePtr: Block not found!"); last->next = scan->next; @@ -1170,7 +1179,7 @@ void MM_SetPurge (memptr *baseptr, int purge, global_game_variables_t *gvar) else if (gvar->mm.mmrover == start) Quit (gvar, "MM_SetPurge: Block not found!"); - } while(1); + } while (1); gvar->mm.mmrover->attributes &= ~PURGEBITS; gvar->mm.mmrover->attributes |= purge; @@ -1245,24 +1254,26 @@ void MM_SortMem (global_game_variables_t *gvar) playing += STARTADLIBSOUNDS; break; } - MM_SetLock((memptr *)&audiosegs[playing],true); + MM_SetLock(MEMPTRCONV audiosegs[playing],true); } SD_StopSound();*/ +#ifdef __WATCOMC__ oldborder = gvar->video.bordercolor; - gvar->video.bordercolor = modexPalOverscan(15); + gvar->video.bordercolor = VL_modexPalOverscan(gvar->video.palette, 4); +#endif - if(beforesort) + if (beforesort) beforesort(); scan = gvar->mm.mmhead; last = NULL; // shut up compiler warning - while(scan) + while (scan) { - if(scan->attributes & LOCKBIT) + if (scan->attributes & LOCKBIT) { // // block is locked, so try to pile later blocks right after it @@ -1271,7 +1282,7 @@ void MM_SortMem (global_game_variables_t *gvar) } else { - if(scan->attributes & PURGEBITS) + if (scan->attributes & PURGEBITS) { // // throw out the purgable block @@ -1287,12 +1298,12 @@ void MM_SortMem (global_game_variables_t *gvar) // // push the non purgable block on top of the last moved block // - if(scan->start != start) + if (scan->start != start) { length = scan->length; source = scan->start; dest = start; - while(length > 0xf00) + while (length > 0xf00) { movedata(source,0,dest,0,0xf00*16); length -= 0xf00; @@ -1314,7 +1325,7 @@ void MM_SortMem (global_game_variables_t *gvar) gvar->mm.mmrover = gvar->mm.mmhead; - if(aftersort) + if (aftersort) aftersort(); VL_ColorBorder (oldborder, &gvar->video); @@ -1500,6 +1511,17 @@ void MM_ShowMemory (global_game_variables_t *gvar) } #endif #ifdef MMSMSCANINFO + MM_ShowMemoryDetail (x, y, w, q, end, &scaninfo, gvar); +#endif + + + if(gvar->video.VL_Started) IN_Ack(gvar); + + gvar->video.BOFS = (byte __far *)temp; +} + +#ifdef MMSMSCANINFO +void MM_ShowMemoryDetail (unsigned x, unsigned y, unsigned w, unsigned q, sdword end, mmshowmemoryinfo_t *scaninfo, global_game_variables_t *gvar) { byte scratch1[4]; unsigned maxq = q; @@ -1535,15 +1557,16 @@ void MM_ShowMemory (global_game_variables_t *gvar) struct mmblockstruct far *next; } mmblocktype;*/ //modexprint(page, x, y, t, tlsw, color, bgcolor, vidsw, const byte *str); -#define MMSMPRINTMEMINFO modexprint(&(gvar->video.page[0]), xpos, ypos, 1, 0, ccolor, 8, gvar->video.VL_Started, global_temp_status_text); ypos+=8; - if(!gvar->video.VL_Started) clrscr(); else +#define MMSMPRINTMEMINFO modexprint(&(gvar->video.page[0]), xpos, ypos, 1, 1, ccolor, 8, gvar->video.VL_Started, global_temp_status_text); ypos+=8; + if(gvar->video.VL_Started) { VL_ShowPage(&gvar->video.page[0], 1, 0); modexClearRegion(&gvar->video.page[0], 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 8); - } + }else clrscr(); sprintf(global_temp_status_text, "block #%04u", qq); MMSMPRINTMEMINFO // sprintf(global_temp_status_text, "%Fp", scaninfo[qq].scan->useptr); MMSMPRINTMEMINFO - sprintf(global_temp_status_text, "%04x", (unsigned)scaninfo[qq].scan->useptr); MMSMPRINTMEMINFO + sprintf(global_temp_status_text, "start: %04x", (unsigned)scaninfo[qq].scan->start); MMSMPRINTMEMINFO + sprintf(global_temp_status_text, "useptr: %04x", (unsigned)scaninfo[qq].scan->useptr); MMSMPRINTMEMINFO sprintf(global_temp_status_text, "size: %05u", (unsigned)scaninfo[qq].scan->length); MMSMPRINTMEMINFO if (scaninfo[qq].scan->next && scaninfo[qq].scan->next->start > end+1) { @@ -1585,8 +1608,8 @@ void MM_ShowMemory (global_game_variables_t *gvar) if(gvar->video.VL_Started) { //if (scan->next && scan->next->start > end+1) free - xpos = 16; - ypos = 16;//(gvar->video.page[0].sh-(32));//8*4 + xpos = gvar->video.page[0].dx; + ypos = gvar->video.page[0].dy;//(gvar->video.page[0].sh-(32));//8*4 } else { @@ -1607,6 +1630,14 @@ void MM_ShowMemory (global_game_variables_t *gvar) if(qq0) qq-=100; + else qq = maxq; + break; + case sc_DownArrow: + if(qqvideo.VL_Started) IN_Ack(gvar); - - gvar->video.BOFS = (byte __far *)temp; -} - //========================================================================== /*