X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FUpdates.h;h=ebc2e7301d9954bd2e33ec02d503730e1946651c;hb=a814590c794226b34c0c9aff4138b0e7722ddab5;hp=3b9b5c02f37f5d8de64cdbc8b65955ff8fda538b;hpb=eacd5715f52cf3294194ccaa0a072a5d196a46a7;p=ghc-hetmet.git diff --git a/ghc/includes/Updates.h b/ghc/includes/Updates.h index 3b9b5c0..ebc2e73 100644 --- a/ghc/includes/Updates.h +++ b/ghc/includes/Updates.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Updates.h,v 1.33 2003/07/28 16:05:38 simonmar Exp $ + * $Id: Updates.h,v 1.34 2003/11/12 17:27:06 sof Exp $ * * (c) The GHC Team, 1998-1999 * @@ -32,8 +32,9 @@ # define UPD_SPEC_IND(updclosure, ind_info, heapptr, and_then) \ UPD_PERM_IND(updclosure,heapptr); and_then #else +# define SEMI ; # define UPD_IND(updclosure, heapptr) \ - UPD_REAL_IND(updclosure,&stg_IND_info,heapptr,) + UPD_REAL_IND(updclosure,&stg_IND_info,heapptr,SEMI) # define UPD_SPEC_IND(updclosure, ind_info, heapptr, and_then) \ UPD_REAL_IND(updclosure,ind_info,heapptr,and_then) #endif