This is num_pred.c in view mode; [Download] [Up]
Changes file for /usr/local/src/kcl/./c/num_pred.c
Created on Mon Feb 4 23:30:21 1991
Usage \n@s[Original text\n@s|Replacement Text\n@s]
See the file rascal.ics.utexas.edu:/usr2/ftp/merge.c
for a program to merge change files. Anything not between
"\n@s[" and "\n@s]" is a simply a comment.
This file was constructed using emacs and merge.el
Enhancements Copyright (c) W. Schelter All rights reserved.
by (Bill Schelter) wfs@carl.ma.utexas.edu
****Change:(orig (11 11 a))
@s[#include "num_include.h"
@s|#include "num_include.h"
#include "mp.h"
@s]
****Change:(orig (61 61 c))
@s[ if (big_sign((struct bignum *)x) > 0)
@s| if (big_sign(x) > 0)
@s]
****Change:(orig (101 101 c))
@s[ if (big_sign((struct bignum *)x) < 0)
@s| if (big_sign(x) < 0)
@s]
****Change:(orig (137 137 c))
@s[ else if (type_of(x) == t_bignum)
i = x->big.big_car;
@s| else if (type_of(x) == t_bignum)
i = MP_LOW(MP(x),lgef(MP(x)));
@s]
****Change:(orig (151 151 c))
@s[ else if (type_of(x) == t_bignum)
i = x->big.big_car;
@s| else if (type_of(x) == t_bignum)
i = MP_LOW(MP(x),lgef(MP(x)));
@s]
****Change:(orig (208 208 a))
@s[ vs_base[0] = Cnil;
}
init_num_pred()
{
@s| vs_base[0] = Cnil;
}
init_num_pred()
{
big_register_1 = alloc_object(t_bignum);
ZERO_BIG(big_register_1);
enter_mark_origin(&big_register_1);
@s]
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.