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

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

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

revision 372 by johnpye, Tue Mar 14 05:04:06 2006 UTC revision 373 by johnpye, Tue Mar 14 08:39:37 2006 UTC
# Line 3866  void MakeInstance(CONST struct Name *nam Line 3866  void MakeInstance(CONST struct Name *nam
3866    struct TypeDescription *arydef;    struct TypeDescription *arydef;
3867    struct gl_list_t *indices;    struct gl_list_t *indices;
3868    int tce;    int tce;
3869    char *nstr;    /*char *nstr;
3870    nstr = WriteNameString(name);    nstr = WriteNameString(name);
3871    CONSOLE_DEBUG(nstr);    CONSOLE_DEBUG(nstr);
3872    ascfree(nstr);    ascfree(nstr); */
3873    if ((childname = SimpleNameIdPtr(name))!=NULL){ /* simple 1 element name */    if ((childname = SimpleNameIdPtr(name))!=NULL){ /* simple 1 element name */
3874      if (StatInFOR(statement) && StatWrong(statement)==0) {      if (StatInFOR(statement) && StatWrong(statement)==0) {
3875        MarkStatContext(statement,context_WRONG);        MarkStatContext(statement,context_WRONG);

Legend:
Removed from v.372  
changed lines
  Added in v.373

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