Changeset f2dff02 in git for Singular/iplib.cc

Timestamp:

Mar 26, 2001, 9:30:24 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

355f86ae1e09b962323c4d49da60c5aa3a7eb6c5

Parents:

1bd25e34e1c021af2213fdd6edb61b9aa82fa6ca

Message:

*hannes: CleanUp does a memset


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

File:

• Singular/iplib.cc (modified) (4 diffs)

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.81 2001-03-26 18:11:53 Singular Exp $ */
+/* $Id: iplib.cc,v 1.82 2001-03-26 19:30:22 Singular Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -57 +57 @@
 char * iiGetLibName(procinfov pi)
 {
-  char *res=NULL;
-
-  res = pi->libname;
-  return res;
-}
+  return pi->libname;
+}
+
 /*2
 * given a line 'proc[ ]+{name}[ \t]*'
@@ -102 +100 @@
   BOOLEAN args_found;
   char *s;
-  char *argstr=(char *)omAlloc(124);
-  int argstrlen=124;
+  char *argstr=(char *)omAlloc(127); // see ../omalloc/omTables.inc
+  int argstrlen=127;
   *argstr='\0';
   do
@@ -379 +377 @@
   if(pi->is_static)
   {
-    if(ns==NULL)
-    {
-      Werror("'%s::%s()' 1 is a local procedure and cannot be accessed by an user.",
-             plib, pi->procname);
-      omFree(plib);
-      return NULL;
-    }
-    if(strcmp(plib, namespaceroot->name)!= 0)
-    {
-      Werror("'%s::%s()' 2 is a local procedure and cannot be accessed by an user.",
+    if((ns==NULL)
+    || (strcmp(plib, namespaceroot->name)!= 0))
+    {
+      Werror("'%s::%s()' is a local procedure and cannot be accessed by an user.",
              plib, pi->procname);
       omFree(plib);