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

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

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

revision 770 by johnpye, Fri Jul 14 03:35:16 2006 UTC revision 771 by johnpye, Fri Jul 14 04:31:54 2006 UTC
# Line 2135  struct relation *CreateBlackBoxRelation( Line 2135  struct relation *CreateBlackBoxRelation(
2135    unsigned long c,len,pos;    unsigned long c,len,pos;
2136    unsigned long n_inputs;    unsigned long n_inputs;
2137    
2138    CONSOLE_DEBUG("CREATING BLACK BOX RELATION");    /* CONSOLE_DEBUG("CREATING BLACK BOX RELATION"); */
2139    
2140    n_inputs = gl_length(inputs);    n_inputs = gl_length(inputs);
2141    len = n_inputs + 1; /* an extra for the output variable. */    len = n_inputs + 1; /* an extra for the output variable. */
# Line 2151  struct relation *CreateBlackBoxRelation( Line 2151  struct relation *CreateBlackBoxRelation(
2151    
2152    for (c=1;c<=n_inputs;c++) {    for (c=1;c<=n_inputs;c++) {
2153      var = (struct Instance *)gl_fetch(inputs,c);      var = (struct Instance *)gl_fetch(inputs,c);
2154      CONSOLE_DEBUG("ADDING INPUT '%p' TO INCIDENCE",var);      /* CONSOLE_DEBUG("ADDING INPUT '%p' TO INCIDENCE",var); */
2155    
2156      pos = gl_search(newlist,var,(CmpFunc)CmpP);      pos = gl_search(newlist,var,(CmpFunc)CmpP);
2157      if (pos) {      if (pos) {
# Line 2171  struct relation *CreateBlackBoxRelation( Line 2171  struct relation *CreateBlackBoxRelation(
2171      I think that this means the output  variable. -- JP      I think that this means the output  variable. -- JP
2172    */    */
2173    pos = gl_search(newlist,subject,(CmpFunc)CmpP);    pos = gl_search(newlist,subject,(CmpFunc)CmpP);
2174    CONSOLE_DEBUG("ADDING OUTPUT INSTANCE %p TO INCIDENCE",subject);    /* CONSOLE_DEBUG("ADDING OUTPUT INSTANCE %p TO INCIDENCE",subject); */
2175    if(pos){    if(pos){
2176      FPRINTF(ASCERR,"An input and output variable are the same !!\n");      FPRINTF(ASCERR,"An input and output variable are the same !!\n");
2177      *args++ = (int)pos;      *args++ = (int)pos;
Legend:
Removed from v.770  
changed lines
  Added in v.771
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22