Update of /cvsroot/wisp/wisp/src
In directory usw-pr-cvs1:/tmp/cvs-serv6849/src
Modified Files:
essence.c
Log Message:
Started the string format transition.
Index: essence.c
===================================================================
RCS file: /cvsroot/wisp/wisp/src/essence.c,v
retrieving revision 1.195
retrieving revision 1.196
diff -u -d -r1.195 -r1.196
--- essence.c 7 Sep 2002 22:01:26 -0000 1.195
+++ essence.c 7 Sep 2002 22:02:40 -0000 1.196
@@ -373,7 +373,6 @@
NN_string_fill,
NN_string_huh,
NN_string_length,
- NN_string_move,
NN_symbol_huh,
NN_sys_exit,
NN_sys_for_dir_entries,
@@ -448,9 +447,9 @@
void*Y1[]={binc,&branch_EVM_invargc,mca,subc,V 2,binzc,&branch_EVM_invargca,dig,V 1,q,mha,l0,q,qi,W(class_of),t,&NN_dict_ref_2,tc,V 2,c,tc,V 1,c,q,dig,V 1,q,mha,l0,q,qi,W(subclass_huh),t,&NN_dict_ref_2,tc,V 2,c,tc,V 2,c,jinf,V 16,qi,W(instance_of_wrong_class),dig,V 2,q,mha,l,V 1,l,V 112,tc,V 2,c,ds,V 2,r,t,Z,ds,V 2,r};
void*Y2[]={hop,V 5,mlt,jinnc,V 10,notc,p,s,V 1,t,T,s,V 0,j,V 6,t,F,s,V 1,s,V 0,mca,subc,V 2,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 4,p,s,V 3,p,s,V 2,mla,l,V 0,jif,V 69,mla,l,V 4,xri,Q,jinz,V 21,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 1,q,mha,l,V 1,l,V 87,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 112,tc,V 2,c,r,mla,l,V 4,xri,Q,jinz,V 14,mla,l,V 2,q,mla,l,V 3,q,t,&dict_ref_2,tc,V 2,c,r,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l,V 1,xri,Q,jinz,V 26,mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,&NN_dict_ref_3,tc,V 3,c,r,qi,W(argcount),mla,l,V 2,q,mla,l,V 3,q,mla,l,V 4,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 80,tc,V 2,c,q,mha,l,V 1,l,V 112,tc,V 2,c,r};
void*Y3[]={binc,&branch_EVM_invargc,hop,V 6,mca,subc,V 1,binc,&branch_EVM_invargca,mlt,qi,Q,inc,dcc,jizc,V 15,t,rvec,sc,V 12,t,&NN_cons,tc,V 2,c,q,li,rvec+12,mac,j,V -18,p,mlt,s,V 1,p,s,V 0,mla,l,V 0,q,t,&NN_pr_make_record_type,tc,V 1,c,mlt,s,V 2,mla,l,V 2,q,li,rvec+10,tc,V 1,c,ct,l0,q,t,F,q,t,F,q,mla,l,V 1,xri,Q,jiz,V 114,mla,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 3,p,l,V 1,q,li,rvec+10,tc,V 1,c,ct,q,l0,mlt,s,V 4,p,l,V 1,mlt,s,V 5,mla,l,V 5,mlt,s,V 1,mla,l,V 3,q,dig,V 0,xri,W(ref),jinz,V 44,dig,V 1,jif,V 16,qi,W(duplicate_ref_hook),mla,l,V 4,q,mha,l,V 1,l,V 112,tc,V 2,c,j,V 22,t,T,bury,V 1,mla,l,V 4,q,mla,l,V 2,q,mha,l,V 1,l,V 12,tc,V 2,c,bury,V 2,j,V 14,qi,W(record_hook_name_huh),mla,l,V 3,q,mha,l,V 1,l,V 112,tc,V 2,c,ds,V 1,j,V -121,dig,V 0,jif,V 13,dig,V 2,q,dig,V 2,q,t,&NN_pr_record_type_ref_slot,tc,V -2,c,j,V 0,ds,V 1,ds,V 1,ds,V 1,mla,l,V 2,r};
[...1193 lines suppressed...]
struct cons conses [] = {
@@ -2069,13 +2070,13 @@
[328]{car:CH('C'),cdr:BC 327},
[329]{car:CH('A'),cdr:BC 328},
[330]{car:CH('e'),cdr:BC 329},
-[331]{car:B 677,cdr:Q},
-[332]{car:B 676,cdr:BC 331},
-[333]{car:B 678,cdr:Q},
+[331]{car:B 678,cdr:Q},
+[332]{car:B 677,cdr:BC 331},
+[333]{car:B 679,cdr:Q},
};
/* The root node of the compiled builtin library */
struct node *
-builtin_root = B 680;
+builtin_root = B 681;
/* essence.c ends here */
|
