Changeset e3cab3 in git for Singular/fglmzero.cc

Timestamp:

Apr 8, 1998, 2:14:07 PM (26 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

41e149d29e021987bb189509b26919708bad6e45

Parents:

99cfcba795ebe458e864dea1374dafda993d2601

Message:

substitute macintosh by __MWERKS__


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

File:

• Singular/fglmzero.cc (modified) (12 diffs)

Singular/fglmzero.cc

@@ -1 +1 @@
 // emacs edit mode for this file is -*- C++ -*-
-// $Id: fglmzero.cc,v 1.12 1998-01-27 14:49:15 pohl Exp $
+// $Id: fglmzero.cc,v 1.13 1998-04-08 12:14:07 pohl Exp $
 
 /****************************************
@@ -36 +36 @@
 // assumes, that NOSTREAMIO is set in factoryconf.h, which is included
 // by templates/list.h. 
-#ifdef macintosh
-#include <:templates:ftmpl_list.h>
-#else
 #include <templates/ftmpl_list.h>
-#endif
 #define PROT(msg)
 #define STICKYPROT(msg) if (BTEST1(OPT_PROT)) Print(msg)
@@ -295 +291 @@
     borderElem( poly p, fglmVector n ) : monom( p ), nf( n ) {}
     ~borderElem() { pDelete1( &monom ); }
-#ifdef macintosh
+#ifdef __MWERKS__
     void insertElem( poly p, fglmVector n ) 
     {
@@ -374 +370 @@
     borderMax= borderBS;
     borderSize= 0;
-#ifdef macintosh
+#ifdef __MWERKS__
     border= new borderElem[ borderMax ];
 #else
@@ -388 +384 @@
         pDelete1( basis + k );  //. rem: basis runs from basis[1]..basis[basisSize]
     Free( (ADDRESS)basis, basisMax*sizeof( poly ) );
-#ifdef macintosh
+#ifdef __MWERKS__
     delete [] border;
 #else
@@ -424 +420 @@
     borderSize++;
     if ( borderSize == borderMax ) {
-#ifdef macintosh
+#ifdef __MWERKS__
         borderElem * tempborder = new borderElem[ borderMax+borderBS ];
         for ( int k = 0; k < borderMax; k++ ) {
@@ -437 +433 @@
         borderMax+= borderBS;
     }
-#ifdef macintosh
+#ifdef __MWERKS__
     border[borderSize].insertElem( m, v );
 #else
@@ -678 +674 @@
     number fac;
 
-#ifdef macintosh
+#ifdef __MWERKS__
     oldGaussElem() : v(), p(), pdenom( NULL ), fac( NULL ) {}
 #endif
@@ -687 +683 @@
     }
     ~oldGaussElem();
-#ifdef macintosh
+#ifdef __MWERKS__
     void insertElem( const fglmVector newv, const fglmVector newp, number & newpdenom, number & newfac ) 
     {
@@ -746 +742 @@
     basisSize= 0;
     //. All arrays run from [1]..[dimen], thus Alloc( dimen + 1 )!
-#ifdef macintosh
+#ifdef __MWERKS__
     gauss= new oldGaussElem[ dimen+1 ];
 #else
@@ -764 +760 @@
     fglmASSERT( dimen == basisSize, "Es wurden nicht alle BasisElemente gefunden!" );
     int k;
-#ifdef macintosh
+#ifdef __MWERKS__
     delete [] gauss;
 #else
@@ -817 +813 @@
     
     pivot= nCopy( v.getconstelem( pivotcol ) );
-#ifdef macintosh
+#ifdef __MWERKS__
     gauss[basisSize].insertElem( v, p, denom, pivot );
 #else