Changeset babf5d3 in git


Ignore:
Timestamp:
May 11, 1998, 12:01:56 PM (26 years ago)
Author:
Jens Schmidt <schmidt@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '45e267b9942dec9429fe249ce3e5e44ab80a6a3a')
Children:
c7e16e1b8b899cbf361c96061f2118cc4a4fb954
Parents:
c40119ecffa51b841f092c090d4c4a4e5be673d0
Message:
	* imm.cc (imm_mul): new file for MetroWerks


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

Legend:

Unmodified
Added
Removed
  • factory/imm.cc

    rc40119 rbabf5d3  
    1 #ifdef __MWERKS__
     1/* emacs edit mode for this file is -*- C++ -*- */
     2/* $Id: imm.cc,v 1.2 1998-05-11 10:01:56 schmidt Exp $ */
     3
     4//{{{ docu
     5//
     6// imm.cc - some special implementations of immediate functions
     7//   for some special platforms.
     8//
     9//}}}
     10
     11#include <config.h>
     12
     13#include <stuff_64.h>
    214
    315#include "imm.h"
    4 #include <stuff_64.h>
    516
    6 InternalCF * imm_mul (InternalCF * lhs, InternalCF * rhs )
     17//{{{ InternalCF * imm_mul (InternalCF * lhs, InternalCF * rhs )
     18//{{{ docu
     19//
     20// imm_mul() - multiplication of two immediates.
     21//
     22// Special implementation for MetroWerks.
     23//
     24//}}}
     25InternalCF *
     26imm_mul (InternalCF * lhs, InternalCF * rhs )
    727{
    828    int li = imm2int( lhs ), ri = imm2int( rhs );   
     
    1131    if (li<0)
    1232    {
    13       if (ri<0)
    14         mul_64(&pr, -li, -ri);
    15       else
    16         mul_64(&pr, -li, ri);
     33        if (ri<0)
     34            mul_64(&pr, -li, -ri);
     35        else
     36            mul_64(&pr, -li, ri);
    1737    }
    1838    else
    1939    {
    20       if (ri<0)
    21         mul_64(&pr, li, -ri);
    22       else
    23         mul_64(&pr, li, ri);
     40        if (ri<0)
     41            mul_64(&pr, li, -ri);
     42        else
     43            mul_64(&pr, li, ri);
    2444    }
     45
    2546    if (pr.hi || (pr.lo>MAXIMMEDIATE))
    2647    {
    27           InternalCF * res = CFFactory::basic( IntegerDomain, li, true );
    28           return res->mulcoeff( rhs );
     48        InternalCF * res = CFFactory::basic( IntegerDomain, li, true );
     49        return res->mulcoeff( rhs );
    2950    }
    3051    else
    3152    {
    32       int res = pr.lo;
    33       if ((li>0) == (ri>0))
    34         return int2imm(res);
    35       else
    36         return int2imm(-res);
    37         }
     53        int res = pr.lo;
     54        if ((li>0) == (ri>0))
     55            return int2imm(res);
     56        else
     57            return int2imm(-res);
     58    }
    3859}
    39 
    40 #endif
     60//}}}
Note: See TracChangeset for help on using the changeset viewer.