Ignore:
Timestamp:
Jul 12, 2008, 3:19:05 AM (12 years ago)
Author:
gb
Message:

Mostly cosmetic changes (to avoid some gcc warnings at -Wall).
gc-common.c : initialize the fields in a timeval struct, to avoid spurious

warning.

lisp-debug.c : fix typo when printing %rsi value, use %l for nargs.

lisp.h prototype for print_lisp_object()

macros.h : kinder, gentler ptr_to_lispobj(), ptr_from_lispobj(), deref()

macros. (GC seems to miscompile at -low- optimization settings, may
have to do with these macros.)

pmcl-kernel.c : make implicit comparison operands explicit in a few

cases. Use %l when printing paging info.

ppc-constants32.h, ppc-constants64.h, x86-constants64.h: define new

hash-table-vector-header fields, now that we're using them in the
trunk.

thread_manager.c : use signed_natural for futex pointers

x86-gc.c : in mark_root(), use a simpler construct to set a pool's

data to NIL. (This may have been losing under -low- optimization.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/macros.h

    r8547 r10010  
    2222#define __macros__
    2323
    24 #define ptr_to_lispobj(p) ((LispObj)((unsigned_of_pointer_size)(p)))
    25 #define ptr_from_lispobj(o) ((LispObj*)((unsigned_of_pointer_size)(o)))
     24#define ptr_to_lispobj(p) ((LispObj)(p))
     25#define ptr_from_lispobj(o) ((LispObj*)(o))
    2626#define lisp_reg_p(reg)  ((reg) >= fn)
    2727
     
    3232#define indirect_node(o) (*(LispObj *)(node_aligned(o)))
    3333
    34 #define deref(o,n) (*((LispObj*) (ptr_from_lispobj(untag((LispObj)o)))+(n)))
     34#define deref(o,n) ((((LispObj*) (untag((LispObj)o))))[(n)])
    3535#define header_of(o) deref(o,0)
    3636
Note: See TracChangeset for help on using the changeset viewer.