Return to radmal.i CVS log

Up to [Witchaven II] / src

Annotation of src/radmal.i, revision 1.1

1.1     ! root        1: #ifndef RADMALI
        !             2: #define RADMALI
        !             3: 
        !             4: #ifdef __RAD32__
        !             5:   #include "malloc.h"
        !             6: 
        !             7:   #define radmalrad malloc
        !             8:   #define radfrrad free
        !             9: #else
        !            10:   #ifdef __RADWIN__
        !            11:     #ifdef RADStatus
        !            12:       #define radmalrad(num) GlobalAllocPtr(GMEM_MOVEABLE|GMEM_SHARE,num)
        !            13:       #define radfrrad GlobalFreePtr
        !            14:     #else
        !            15:       #define radmalloc(num) GlobalAllocPtr(GMEM_MOVEABLE|GMEM_SHARE,num)
        !            16:       #define radfree GlobalFreePtr
        !            17:     #endif
        !            18:   #else
        !            19:     #include "malloc.h"
        !            20:     #define radmalrad(num) _fmalloc((int)num)
        !            21:     #define radfrrad _ffree
        !            22:   #endif
        !            23: #endif
        !            24: 
        !            25: #ifndef radmalloc
        !            26: 
        !            27: #include "stdlib.h"
        !            28: 
        !            29: RCFUNC void PTR4* RADLINK radmalloc(u32 numbytes)
        !            30: {
        !            31:   void PTR4* temp;
        !            32:   if (numbytes==0)
        !            33:     return(0);
        !            34:   temp=(numbytes!=0xffffffff)?radmalrad(numbytes):0;
        !            35: 
        !            36: #ifdef RADStatus
        !            37:   if (!temp)
        !            38:     StatusMessage("Not enough memory.",1);
        !            39: #else
        !            40:   #ifndef __RADWIN__  
        !            41:     if (!temp) {
        !            42:       DOSOut("  Not enough memory.\r\n");
        !            43:       exit(16);
        !            44:     }
        !            45:   #endif
        !            46: #endif
        !            47:   return(temp);
        !            48: }
        !            49: 
        !            50: RCFUNC void RADLINK radfree(void PTR4* ptr)
        !            51: {
        !            52:   radfrrad(ptr);
        !            53: }
        !            54: 
        !            55: #endif
        !            56: 
        !            57: #endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.