/[ascend]/trunk/base/generic/compiler/createinst.c
ViewVC logotype

Diff of /trunk/base/generic/compiler/createinst.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 730 by johnpye, Sat Jul 1 03:18:30 2006 UTC revision 731 by johnpye, Tue Jul 4 07:42:06 2006 UTC
# Line 359  struct Instance *CreateRealInstance(stru Line 359  struct Instance *CreateRealInstance(stru
359        );        );
360        AssertMemory(result);        AssertMemory(result);
361    
362        CONSOLE_DEBUG("CREATED REAL ATOM INSTANCE of type '%s' at %p",SCP(GetName(type)),result);        /*
363          CONSOLE_DEBUG("CREATED REAL ATOM INSTANCE of type '%s' at %p"
364            ,SCP(GetName(type)),result
365          );
366          */
367    
368        if (GetUniversalFlag(type)){        if (GetUniversalFlag(type)){
369          AddUniversalInstance(GetUniversalTable(),type,INST(result));          AddUniversalInstance(GetUniversalTable(),type,INST(result));
# Line 369  struct Instance *CreateRealInstance(stru Line 373  struct Instance *CreateRealInstance(stru
373        return INST(result);        return INST(result);
374      }else{ /* instance type has a prototype which can be copied */      }else{ /* instance type has a prototype which can be copied */
375        result = CopyInstance(INST(result));        result = CopyInstance(INST(result));
376        CONSOLE_DEBUG("CREATED (COPIED PROTOTYPE) REAL ATOM INSTANCE of type '%s' at %p",SCP(GetName(type)),result);        /*
377          CONSOLE_DEBUG("CREATED (COPIED PROTOTYPE) REAL ATOM INSTANCE "
378                "of type '%s' at %p" ,SCP(GetName(type)),result
379          );
380          */
381        return result;        return result;
382      }      }
383    } else {    } else {

Legend:
Removed from v.730  
changed lines
  Added in v.731

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22