This is bitop.c in view mode; [Download] [Up]
Changes file for /usr/local/src/kcl/./c/bitop.c
Created on Sun Sep 11 23:45:36 1988
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 (1 7 d))
@s[/*
(c) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved.
Copying of this file is authorized to users who have executed the true and
proper "License Agreement for Kyoto Common LISP" with SIGLISP.
@s,*/
/*
bitop.c
@s|
@s]
****Change:(orig (9 25 d))
@s[ Sets and/or tests bits in the mark table. The first 8 words of the
Lisp data area have their mark bits in the byte location pointed to
by MARK_TABLE, and the next 8 words in the next byte location,
and so on.
@s, mark bit was previously on. Returns 0 otherwise.
*/
@s|
@s]
****Change:(orig (26 26 a))
@s[#include "include.h"
@s|#include "include.h"
get_mark_bit()
{error("get_mark_bit called");}
set_mark_bit()
{error("set_mark_bit called");}
get_set_mark_bit()
{error("get_set_mark_bit called");}
@s]
****Change:(orig (28 28 d))
@s[
#ifdef VAX
@s|
@s]
****Change:(orig (30 41 c))
@s[get_mark_bit(x)
int *x;
{
asm(" ashl $-2,4(ap),r2");
@s, asm(" incl r0");
asm("1:");
}
@s|/*
These have all been replaced by macros
@s]
****Change:(orig (43 239 d))
@s[set_mark_bit(x)
int *x;
{
asm(" ashl $-2,4(ap),r2");
@s,
#endif
#ifdef S3000
@s|
@s]
****Change:(orig (271 387 c))
@s[#endif
#ifdef IBMRT
@s, asm(" and.l #1,d0");
}
#endif
@s|*/
@s]
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.