Changeset 8370


Ignore:
Timestamp:
Jan 30, 2008, 1:57:50 AM (13 years ago)
Author:
gb
Message:

Fix conditinalization.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/gc-common.c

    r8369 r8370  
    704704}
    705705
    706 weak_mark_fun dws_mark_weak_htabv = traditional_dws_mark_htabv;
    707 weak_mark_fun mark_weak_htabv = traditional_mark_weak_htabv;
    708 weak_process_fun markhtabvs = traditional_markhtabvs;
    709 
    710 void
    711 install_weak_mark_functions(int set) {
    712   switch(set) {
    713   case 0:
    714   default:
    715     dws_mark_weak_htabv = traditional_dws_mark_htabv;
    716     mark_weak_htabv = traditional_mark_weak_htabv;
    717     markhtabvs = traditional_markhtabvs;
    718     break;
    719   case 1:
    720     dws_mark_weak_htabv = ncircle_dws_mark_htabv;
    721     mark_weak_htabv = ncircle_mark_weak_htabv;
    722     markhtabvs = ncircle_markhtabvs;
    723     break;
    724   }
    725 }
    726 
    727706void
    728707gc_init()
     
    765744
    766745#endif
     746
     747
     748weak_mark_fun dws_mark_weak_htabv = traditional_dws_mark_htabv;
     749weak_mark_fun mark_weak_htabv = traditional_mark_weak_htabv;
     750weak_process_fun markhtabvs = traditional_markhtabvs;
     751
     752void
     753install_weak_mark_functions(int set) {
     754  switch(set) {
     755  case 0:
     756  default:
     757    dws_mark_weak_htabv = traditional_dws_mark_htabv;
     758    mark_weak_htabv = traditional_mark_weak_htabv;
     759    markhtabvs = traditional_markhtabvs;
     760    break;
     761  case 1:
     762    dws_mark_weak_htabv = ncircle_dws_mark_htabv;
     763    mark_weak_htabv = ncircle_mark_weak_htabv;
     764    markhtabvs = ncircle_markhtabvs;
     765    break;
     766  }
     767}
    767768
    768769LispObj
Note: See TracChangeset for help on using the changeset viewer.