Changeset b4f04e in git for Singular/grammar.y

Timestamp:

Jun 26, 2002, 1:16:44 PM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

8f1a54462e9623a4d49a5de0371fb00491241fc7

Parents:

b1fc2b48f574fb3f5539e3318fb30a6446ddc58f

Message:

*hannes: killhdl(idhdl,package)


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

File:

• Singular/grammar.y (modified) (3 diffs)

Singular/grammar.y

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: grammar.y,v 1.98 2002-06-18 13:44:38 anne Exp $ */
+/* $Id: grammar.y,v 1.99 2002-06-26 11:16:43 Singular Exp $ */
 /*
 * ABSTRACT: SINGULAR shell grammatik
@@ -1123 +1123 @@
           {
 #ifdef HAVE_NS
+            package p=(package)$4.Data();
+            if (p!=$2.req_packhdl)
+            {
+              if(iiExport(&$2,0,(idhdl)$4.data)) YYERROR;
+            }
 #else
             Print("%s::%s;\n", (char *)$4.Name(),$2.Name());
@@ -1143 +1148 @@
             else
             {
+              #ifdef HAVE_NS
+              killhdl((idhdl)v->data,v->req_packhdl);
+              #else
               killhdl((idhdl)v->data);
+              #endif
             }
             v=v->next;