This is assignment.c in view mode; [Download] [Up]
Changes file for /usr/local/src/kcl/c/assignment.c
Created on Thu Jul 25 23:06:44 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 (36 37 d))
@s[object Svector;
object Slist;
@s|
@s]
****Change:(orig (38 38 a))
@s[
@s|
@s]
****Change:(orig (54 54 a))
@s[ type = (enum stype)sym->s.s_stype;
@s| type = (enum stype)sym->s.s_stype;
if(type == stp_special)
sym->s.s_dbind = val;
else
@s]
****Change:(orig (57 58 d))
@s[ else if(type == stp_special)
sym->s.s_dbind = val;
@s|
@s]
****Change:(orig (132 132 c))
@s[ clear_compiler_properties(vs_base[0]);
@s| vs_base[0] = clear_compiler_properties(vs_base[0],vs_base[1]);
@s]
****Change:(orig (141 141 c))
@s[ type_of(vs_base[1]) == t_cclosure) {
@s| type_of(vs_base[1]) == t_sfun ||
type_of(vs_base[1]) == t_vfun ||
type_of(vs_base[1]) == t_gfun ||
type_of(vs_base[1]) == t_cclosure
) {
@s]
****Change:(orig (188 188 c))
@s[ vs_base[0]->s.s_dbind = OBJNULL;
}
@s| vs_base[0]->s.s_dbind = OBJNULL;
}
object siLtraced;
@s]
****Change:(orig (202 202 c))
@s[ clear_compiler_properties(vs_base[0]);
@s| remf(&(vs_base[0]->s.s_plist),siLtraced);
clear_compiler_properties(vs_base[0],Cnil);
@s]
****Change:(orig (352 352 c))
@s[ stack_cons();
/***/
vs_push(Cnil);
@s| stack_cons();
/***/
#define VS_PUSH_ENV \
if(lex_env[1]){ \
vs_push(list(3,lex_env[0],lex_env[1],lex_env[2]));} \
else {vs_push(Cnil);}
VS_PUSH_ENV ;
@s]
****Change:(orig (383 383 c))
@s[ stack_cons();
/***/
vs_push(Cnil);
@s| stack_cons();
/***/
VS_PUSH_ENV ;
@s]
****Change:(orig (412 412 c))
@s[ stack_cons();
/***/
vs_push(Cnil);
@s| stack_cons();
/***/
VS_PUSH_ENV ;
@s]
****Change:(orig (450 450 c))
@s[ stack_cons();
/***/
vs_push(Cnil);
@s| stack_cons();
/***/
VS_PUSH_ENV ;
@s]
****Change:(orig (488 488 c))
@s[ stack_cons();
/***/
vs_push(Cnil);
@s| stack_cons();
/***/
VS_PUSH_ENV ;
@s]
****Change:(orig (496 496 c))
@s[clear_compiler_properties(sym)
@s|
object
clear_compiler_properties(sym,code)
@s]
****Change:(orig (498 500 c))
@s[{
if (symbol_value(siVinhibit_macro_special) != Cnil)
(void)ifuncall1(siSclear_compiler_properties, sym);
@s|object code;
{ object tem;
use_fast_links(2,Cnil,sym);
tem = getf(sym->s.s_plist,siLtraced,Cnil);
if (symbol_value(siVinhibit_macro_special) != Cnil)
(void)ifuncall2(siSclear_compiler_properties, sym,code);
if (tem != Cnil) return tem;
return sym;
@s]
****Change:(orig (505 505 c))
@s[siLclear_compiler_properties()
{
check_arg(1);
@s|siLclear_compiler_properties()
{
check_arg(2);
@s]
****Change:(orig (546 546 a))
@s[ siSstructure_access = make_si_ordinary("STRUCTURE-ACCESS");
@s| siSstructure_access = make_si_ordinary("STRUCTURE-ACCESS");
siLtraced = make_si_ordinary("TRACED");
@s]
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.