Changeset 261735d in git


Ignore:
Timestamp:
Jun 8, 2005, 3:51:13 PM (19 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
a8bb72dd226250b4276aefb627165cae6b4f0ffb
Parents:
bfdab9335d35ef37b6b14b9aa9d1bcb7e08d20e4
Message:
*hannes: format


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

Legend:

Unmodified
Added
Removed
  • kernel/hutil.cc

    rbfdab9 r261735d  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: hutil.cc,v 1.6 2005-06-08 12:34:59 Singular Exp $ */
     4/* $Id: hutil.cc,v 1.7 2005-06-08 13:51:13 Singular Exp $ */
    55/*
    66* ABSTRACT: Utilities for staircase operations
     
    4141  if (hisModule < 0)
    4242    hisModule = 0;
    43   if (S)
     43  if (S!=NULL)
    4444  {
    4545    si = S->m;
     
    5151    sl = 0;
    5252  }
    53   if (Q)
     53  if (Q!=NULL)
    5454  {
    5555    qi = Q->m;
     
    6161    ql = 0;
    6262  }
    63   if (!(sl + ql))
     63  if ((sl + ql) > 0)
    6464  {
    6565    *Nexist = 0;
     
    6767  }
    6868  ss = si;
    69   for (i = sl; i; i--)
     69  for (i = sl; i>0; i--)
    7070  {
    7171    if (*ss!=0)
     
    7474  }
    7575  ss = qi;
    76   for (i = ql; i; i--)
     76  for (i = ql; i>0; i--)
    7777  {
    7878    if (*ss!=0)
     
    8989    if (*si!=NULL)
    9090    {
    91       *ek = (int*) omAlloc((pVariables+1)*sizeof(int));
     91      *ek = (scmon) omAlloc((pVariables+1)*sizeof(int));
    9292      pGetExpV(*si, *ek);
    9393      ek++;
     
    9595    si++;
    9696  }
    97   for (i = ql; i; i--)
     97  for (i = ql; i>0; i--)
    9898  {
    9999    if (*qi!=NULL)
    100100    {
    101       *ek = (int*) omAlloc((pVariables+1)*sizeof(int));
     101      *ek = (scmon) omAlloc((pVariables+1)*sizeof(int));
    102102      pGetExpV(*qi, *ek);
    103103      ek++;
     
    121121    if (i == 0) return;
    122122  }
    123   for (i=pVariables; i; i--)
     123  for (i=pVariables; i>0; i--)
    124124  {
    125125    x = pWeight(i);
     
    178178    loop
    179179    {
    180       if (stc[j][i])
     180      if (stc[j][i]>0)
    181181      {
    182182        i1++;
Note: See TracChangeset for help on using the changeset viewer.