Changeset 280508 in git


Ignore:
Timestamp:
Mar 28, 2000, 9:15:13 AM (24 years ago)
Author:
Kai Krüger <krueger@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
5f0f1960b9dc9e0ab74285a56dfb1f98c44422a6
Parents:
58933c7b39cf945f3d73d5e959ff796a1570cd3f
Message:
	* proc.cc:
	  - Added additional line numbers.


git-svn-id: file:///usr/local/Singular/svn/trunk@4224 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • modules/modgen/proc.cc

    r58933c r280508  
    11/*
    2  * $Id: proc.cc,v 1.8 2000-03-22 10:23:57 krueger Exp $
     2 * $Id: proc.cc,v 1.9 2000-03-28 07:15:13 krueger Exp $
    33 */
    44
     
    128128  int i;
    129129  if(pi->paramcnt>0) {
     130    fprintf(module->fmtfp, "#line %d \"%s\"\n", yylineno, module->filename);
    130131    fprintf(module->fmtfp, "  leftv v = h, v_save;\n");
    131132    fprintf(module->fmtfp, "  int tok = NONE, index = 0;\n");
     
    134135              "  sleftv s%s; leftv %s = &s%s;\n", pi->param[i].varname,
    135136              pi->param[i].varname, pi->param[i].varname);
     137    fprintf(module->fmtfp, "#line %d \"%s\"\n", yylineno, module->filename);
    136138    fprintf(module->fmtfp, "\n");
    137139    pi->flags.declaration_done = 1;
     
    146148  )
    147149{
     150  fprintf(module->fmtfp, "#line %d \"%s\"\n", yylineno, module->filename);
    148151  write_procedure_typecheck(module, pi, module->fmtfp);
     152  fprintf(module->fmtfp, "#line %d \"%s\"\n", yylineno, module->filename);
    149153  pi->flags.typecheck_done = 1;
    150154}
     
    182186  else  printf("CMD: return()\n");
    183187
     188  fprintf(module->fmtfp, "#line %d \"%s\"\n", yylineno, module->filename);
    184189  write_procedure_return(module, pi, module->fmtfp);
    185190}
     
    196201  fprintf(module->fmtfp, "/* code for running singular commands */\n");
    197202  fprintf(module->fmtfp, "/*\n");
     203  fprintf(module->fmtfp, " * #line %d \"%s\"\n", yylineno, module->filename);
    198204  fprintf(module->fmtfp, " *\n");
    199205  fprintf(module->fmtfp, " * get idhdl for '%s'\n", arg);
     
    332338         pi->return_val.typname, pi->return_val.typ);
    333339  if(pi->funcname == NULL) {
    334     fprintf(fmtfp, "  res->rtyp = NONE;\n");
     340    fprintf(fmtfp, "  res->rtyp = %s;\n", pi->return_val.typname);
    335341    fprintf(fmtfp, "  res->data = NULL;\n");
    336     fprintf(fmtfp, "  return TRUE;\n");
     342    //fprintf(fmtfp, "  res->rtyp = NONE;\n");
     343    //fprintf(fmtfp, "  res->data = NULL;\n");
     344    fprintf(fmtfp, "  return FALSE;\n");
    337345  }
    338346  else
Note: See TracChangeset for help on using the changeset viewer.