Changeset 280508 in git for modules

Timestamp:

Mar 28, 2000, 9:15:13 AM (24 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

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:

• modules/modgen/proc.cc (modified) (7 diffs)

modules/modgen/proc.cc

@@ -1 +1 @@
 /*
- * $Id: proc.cc,v 1.8 2000-03-22 10:23:57 krueger Exp $
+ * $Id: proc.cc,v 1.9 2000-03-28 07:15:13 krueger Exp $
  */
 
@@ -128 +128 @@
   int i;
   if(pi->paramcnt>0) {
+    fprintf(module->fmtfp, "#line %d \"%s\"\n", yylineno, module->filename);
     fprintf(module->fmtfp, "  leftv v = h, v_save;\n");
     fprintf(module->fmtfp, "  int tok = NONE, index = 0;\n");
@@ -134 +135 @@
               "  sleftv s%s; leftv %s = &s%s;\n", pi->param[i].varname,
               pi->param[i].varname, pi->param[i].varname);
+    fprintf(module->fmtfp, "#line %d \"%s\"\n", yylineno, module->filename);
     fprintf(module->fmtfp, "\n");
     pi->flags.declaration_done = 1;
@@ -146 +148 @@
   )
 {
+  fprintf(module->fmtfp, "#line %d \"%s\"\n", yylineno, module->filename);
   write_procedure_typecheck(module, pi, module->fmtfp);
+  fprintf(module->fmtfp, "#line %d \"%s\"\n", yylineno, module->filename);
   pi->flags.typecheck_done = 1;
 }
@@ -182 +186 @@
   else  printf("CMD: return()\n");
 
+  fprintf(module->fmtfp, "#line %d \"%s\"\n", yylineno, module->filename);
   write_procedure_return(module, pi, module->fmtfp);
 }
@@ -196 +201 @@
   fprintf(module->fmtfp, "/* code for running singular commands */\n");
   fprintf(module->fmtfp, "/*\n");
+  fprintf(module->fmtfp, " * #line %d \"%s\"\n", yylineno, module->filename);
   fprintf(module->fmtfp, " *\n");
   fprintf(module->fmtfp, " * get idhdl for '%s'\n", arg);
@@ -332 +338 @@
          pi->return_val.typname, pi->return_val.typ);
   if(pi->funcname == NULL) {
-    fprintf(fmtfp, "  res->rtyp = NONE;\n");
+    fprintf(fmtfp, "  res->rtyp = %s;\n", pi->return_val.typname);
     fprintf(fmtfp, "  res->data = NULL;\n");
-    fprintf(fmtfp, "  return TRUE;\n");
+    //fprintf(fmtfp, "  res->rtyp = NONE;\n");
+    //fprintf(fmtfp, "  res->data = NULL;\n");
+    fprintf(fmtfp, "  return FALSE;\n");
   }
   else