Revision 1172 branches/threaded2merge/src/linad99/sgradclc.cpp

sgradclc.cpp (revision 1172)
273 273
   }
274 274
   if (gradient_structure::save_var_file_flag==0)
275 275
   {
276
     ARRAY_MEMBLOCK_SAVE = temp_ptr;
276
     ARRAY_MEMBLOCK_SAVE = (char*)temp_ptr;
277 277
     #if defined(DOS386)
278 278
     //#if DOS386==1
279 279
       #ifndef USE_ASSEMBLER
......
300 300
  }
301 301
  else
302 302
  {
303
     humungous_pointer src = ARRAY_MEMBLOCK_BASE;
303
     char* src = ARRAY_MEMBLOCK_BASE;
304 304
     lseek(gradient_structure::GRAD_STACK1->_VARSSAV_PTR,0L,SEEK_SET);
305 305
     #if defined(DOS386)
306 306
     //#if DOS386==1
......
353 353
     }
354 354
     memcpy((char*)dest,(char*)src,left_to_move);
355 355
    #endif
356
    ARRAY_MEMBLOCK_SAVE.free();
356
    //ARRAY_MEMBLOCK_SAVE.free();
357
    free(ARRAY_MEMBLOCK_SAVE);
358
    ARRAY_MEMBLOCK_SAVE = 0;
357 359
  }
358 360
  else
359 361
  {
360
    humungous_pointer dest = ARRAY_MEMBLOCK_BASE;
362
    char* dest = ARRAY_MEMBLOCK_BASE;
361 363
    lseek(gradient_structure::GRAD_STACK1->_VARSSAV_PTR,0L,SEEK_SET);
362 364
    #if defined(DOS386)
363 365
    // #if DOS386==1
......
429 431
  lseek(_GRADFILE_PTR,0L,SEEK_SET);
430 432
}
431 433

  
432
static int inner_count=0;
434
static __thread int inner_count = 0;
433 435
//static grad_stack_entry * pgse = (grad_stack_entry*) (0x1498fffc);
434 436

  
435 437
/**

Also available in: Unified diff