Return to radmal.i CVS log

Up to [Witchaven II] / src

Annotation of src/radmal.i, revision 1.1.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.