Changeset 13664


Ignore:
Timestamp:
Apr 23, 2010, 9:01:33 PM (10 years ago)
Author:
gb
Message:

The low-level system keeps changing.

Location:
branches/arm/lisp-kernel
Files:
1 added
4 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/lisp-kernel/arm-constants.s

    r13645 r13664  
    144144       
    145145misc_header_offset = -fulltag_misc
    146 misc_subtag_offset = misc_header_offset+3               /* low byte of header */
     146misc_subtag_offset = misc_header_offset         /* low byte of header */
    147147misc_data_offset = misc_header_offset+4         /* first word of data */
    148148misc_dfloat_offset = misc_header_offset+8               /* double-floats are doubleword-aligned */
    149149
    150 max_64_bit_constant_index = ((0x7fff + misc_dfloat_offset)>>3)
    151 max_32_bit_constant_index = ((0x7fff + misc_data_offset)>>2)
    152 max_16_bit_constant_index = ((0x7fff + misc_data_offset)>>1)
    153 max_8_bit_constant_index = (0x7fff + misc_data_offset)
    154 max_1_bit_constant_index = ((0x7fff + misc_data_offset)<<5)
     150max_64_bit_constant_index = ((0x0fff + misc_dfloat_offset)>>3)
     151max_32_bit_constant_index = ((0x0fff + misc_data_offset)>>2)
     152max_16_bit_constant_index = ((0x0fff + misc_data_offset)>>1)
     153max_8_bit_constant_index = (0x0fff + misc_data_offset)
     154max_1_bit_constant_index = ((0x0fff + misc_data_offset)<<5)
    155155
    156156/* T is almost adjacent to NIL: since NIL is a misaligned CONS, it spans */
     
    331331               
    332332        _struct(lisp_frame,0)
    333          _node(backlink)
    334          _node(savefn) 
     333         _node(savefn)
     334         _node(savevsp)
     335         _node(savesp) 
    335336         _node(savelr) 
    336          _node(savevsp)
    337337        _ends
    338338       
  • branches/arm/lisp-kernel/arm-macros.s

    r13645 r13664  
    142142')
    143143
    144 define(`set_global',`
    145         __(str($1,lisp_globals.$2(0)))
    146 ')
    147144
    148145define(`ref_nrs_value',`
     
    280277        __(cmpne imm0,#subtag_function)
    281278        __(ldreq pc,[nfn,#_function.entrypoint])
    282         __(uuo_error_cant_call(nfn,al))
     279        __(uuo_error_not_callable(ne,nfn))
    283280
    284281')     
     
    517514
    518515define(`suspend_now',`
    519         __(uuo_interr(error_propagate_suspend,rzero))
    520 ')
     516        __(uuo_suspend_now())
     517')
  • branches/arm/lisp-kernel/lisp.s

    r13337 r13664  
    6666         include(x86-uuo.s)
    6767        ')
     68        ifdef(`ARM',`
     69         include(arm-constants.s)
     70         include(arm-macros.s)
     71         include(arm-uuo.s)
     72        ')
    6873
  • branches/arm/lisp-kernel/platform-linuxarm.h

    r13630 r13664  
    3131#include "lisptypes.h"
    3232#include "arm-constants.h"
     33
     34/* xp accessors */
     35#define xpGPRvector(x) ((natural *)&((x)->uc_mcontext.arm_r0))
     36#define xpGPR(x,gprno) xpGPRvector[gprno]
     37#define xpPC(x) xpGPR(x,15)
     38#define xpPSR(x) xpGPR(x,16)
     39#define xpFaultAddress(x) xpGPR(x,17)
     40#define xpTRAP(x) xpGPR(x,-3)
     41#define xpERROR(x) xpGPR(x,-2)
     42
     43#define DarwinSigReturn(context)
     44#define SIGRETURN(context)
     45
     46#include "os-linux.h"
     47
Note: See TracChangeset for help on using the changeset viewer.