CVS: sml-dist/src/runtime/gc big-objects.c,1.4,1.5 build-literals.c,1.3,1.4 gc-util.c,1.3,1.4 heap-in-util.c,1.3,1.4 heap.h,1.4,1.5 init-gc.c,1.6,1.7 ml-objects.c,1.6,1.7
John Reppy <[email protected]>
| Newsgroups | gmane.comp.lang.sml.smlnj.commits |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/smlnj/sml-dist/src/runtime/gc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19077/src/runtime/gc
Modified Files:
big-objects.c build-literals.c gc-util.c heap-in-util.c heap.h
init-gc.c ml-objects.c
Log Message:
Cleanup of Linux signal handling plus port to x86-64.
Index: big-objects.c
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/runtime/gc/big-objects.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** big-objects.c 21 Nov 2001 21:03:16 -0000 1.4
--- big-objects.c 21 Feb 2006 21:33:23 -0000 1.5
***************
*** 282,286 ****
* Return the tag of the given code object.
*/
! char *BO_GetCodeObjTag (bigobj_desc_t *bdp)
{
Byte_t *lastByte;
--- 282,286 ----
* Return the tag of the given code object.
*/
! Byte_t *BO_GetCodeObjTag (bigobj_desc_t *bdp)
{
Byte_t *lastByte;
***************
*** 289,293 ****
--- 289,295 ----
lastByte = (Byte_t *)(bdp->obj) + bdp->sizeB - 1;
kx = *lastByte * WORD_SZB;
+
return lastByte - kx + 1;
+
} /* end of BO_GetCodeObjTag */
Index: build-literals.c
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/runtime/gc/build-literals.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** build-literals.c 20 May 2005 20:39:43 -0000 1.3
--- build-literals.c 21 Feb 2006 21:33:23 -0000 1.4
***************
*** 7,10 ****
--- 7,11 ----
#include "ml-objects.h"
#include "heap.h"
+ #include <string.h>
/* Codes for literal machine instructions (version 1):
Index: gc-util.c
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/runtime/gc/gc-util.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** gc-util.c 1 Jun 2000 18:33:50 -0000 1.3
--- gc-util.c 21 Feb 2006 21:33:23 -0000 1.4
***************
*** 8,11 ****
--- 8,12 ----
#include <stdarg.h>
+ #include <string.h>
#include "ml-base.h"
#include "ml-limits.h"
Index: heap-in-util.c
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/runtime/gc/heap-in-util.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** heap-in-util.c 14 Jan 2005 23:53:19 -0000 1.3
--- heap-in-util.c 21 Feb 2006 21:33:23 -0000 1.4
***************
*** 12,15 ****
--- 12,16 ----
#include "c-globals-tbl.h"
#include "heap-input.h"
+ #include <string.h>
#ifndef SEEK_SET
Index: heap.h
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/runtime/gc/heap.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** heap.h 22 May 2002 14:41:38 -0000 1.4
--- heap.h 21 Feb 2006 21:33:23 -0000 1.5
***************
*** 280,284 ****
extern void BO_Free (heap_t *heap, bigobj_desc_t *desc);
extern bigobj_desc_t *BO_GetDesc (ml_val_t addr);
! extern char *BO_GetCodeObjTag (bigobj_desc_t *bdp);
#ifdef BO_DEBUG
--- 280,284 ----
extern void BO_Free (heap_t *heap, bigobj_desc_t *desc);
extern bigobj_desc_t *BO_GetDesc (ml_val_t addr);
! extern Byte_t *BO_GetCodeObjTag (bigobj_desc_t *bdp);
#ifdef BO_DEBUG
Index: init-gc.c
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/runtime/gc/init-gc.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** init-gc.c 5 May 2005 16:25:11 -0000 1.6
--- init-gc.c 21 Feb 2006 21:33:23 -0000 1.7
***************
*** 12,15 ****
--- 12,16 ----
#include <stdarg.h>
+ #include <string.h>
#include "ml-base.h"
#include "ml-options.h"
Index: ml-objects.c
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/runtime/gc/ml-objects.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** ml-objects.c 17 Jun 2002 20:32:12 -0000 1.6
--- ml-objects.c 21 Feb 2006 21:33:23 -0000 1.7
***************
*** 14,17 ****
--- 14,18 ----
#include "ml-limits.h"
#include "ml-mp.h"
+ #include <string.h>
/* A macro to check for necessary GC; on MP systems, this needs to be
-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems? Stop! Download the new AJAX search engine that makes
searching your log files as easy as surfing the web. DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642