/[cmucl]/src/lisp/breakpoint.c
ViewVC logotype

Diff of /src/lisp/breakpoint.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by dtc, Fri Oct 27 19:25:54 2000 UTC revision 1.13 by rtoy, Wed Jul 7 15:03:11 2004 UTC
# Line 52  void breakpoint_remove(lispobj code_obj, Line 52  void breakpoint_remove(lispobj code_obj,
52      arch_remove_breakpoint(compute_pc(code_obj, pc_offset), orig_inst);      arch_remove_breakpoint(compute_pc(code_obj, pc_offset), orig_inst);
53  }  }
54    
55  void breakpoint_do_displaced_inst(struct sigcontext *scp,  void breakpoint_do_displaced_inst(os_context_t *scp,
56                                    unsigned long orig_inst)                                    unsigned long orig_inst)
57  {  {
58  #if !defined(hpux) && !defined(irix) && !defined(i386)  #if !defined(hpux) && !defined(irix) && !defined(i386)
# Line 83  static lispobj find_code(struct sigconte Line 83  static lispobj find_code(struct sigconte
83  #endif  #endif
84    
85  #ifdef i386  #ifdef i386
86  static lispobj find_code(struct sigcontext *scp)  static lispobj find_code(os_context_t *scp)
87  {  {
88    lispobj *codeptr = component_ptr_from_pc(SC_PC(scp));    lispobj *codeptr = component_ptr_from_pc(SC_PC(scp));
89    
# Line 94  static lispobj find_code(struct sigconte Line 94  static lispobj find_code(struct sigconte
94  }  }
95  #endif  #endif
96    
97  static int compute_offset(struct sigcontext *scp, lispobj code)  static int compute_offset(os_context_t *scp, lispobj code)
98  {  {
99      if (code == NIL)      if (code == NIL)
100          return 0;          return 0;
# Line 122  static int compute_offset(struct sigcont Line 122  static int compute_offset(struct sigcont
122  }  }
123    
124  #ifndef i386  #ifndef i386
125  void handle_breakpoint(int signal, int subcode, struct sigcontext *scp)  void handle_breakpoint(int signal, int subcode, os_context_t *scp)
126  {  {
127      lispobj code;      lispobj code;
128    
# Line 138  void handle_breakpoint(int signal, int s Line 138  void handle_breakpoint(int signal, int s
138      undo_fake_foreign_function_call(scp);      undo_fake_foreign_function_call(scp);
139  }  }
140  #else  #else
141  void handle_breakpoint(int signal, int subcode, struct sigcontext *scp)  void handle_breakpoint(int signal, int subcode, os_context_t *scp)
142  {  {
143      lispobj code, scp_sap=alloc_sap(scp);      lispobj code, scp_sap=alloc_sap(scp);
144    
# Line 152  void handle_breakpoint(int signal, int s Line 152  void handle_breakpoint(int signal, int s
152       */       */
153    
154  #if defined POSIX_SIGS  #if defined POSIX_SIGS
155      sigprocmask(SIG_SETMASK,&scp->sc_mask,NULL);      sigprocmask(SIG_SETMASK,&scp->uc_sigmask,NULL);
156  #else  #else
157      sigsetmask(scp->sc_mask);      sigsetmask(scp->sc_mask);
158  #endif  #endif
# Line 167  void handle_breakpoint(int signal, int s Line 167  void handle_breakpoint(int signal, int s
167    
168  #ifndef i386  #ifndef i386
169  void *handle_function_end_breakpoint(int signal, int subcode,  void *handle_function_end_breakpoint(int signal, int subcode,
170                                       struct sigcontext *scp)                                       os_context_t *scp)
171  {  {
172      lispobj code, lra;      lispobj code, lra;
173      struct code *codeptr;      struct code *codeptr;
# Line 192  void *handle_function_end_breakpoint(int Line 192  void *handle_function_end_breakpoint(int
192  }  }
193  #else  #else
194  void *handle_function_end_breakpoint(int signal, int subcode,  void *handle_function_end_breakpoint(int signal, int subcode,
195                                       struct sigcontext *scp)                                       os_context_t *scp)
196  {  {
197      lispobj code, scp_sap=alloc_sap(scp);      lispobj code, scp_sap=alloc_sap(scp);
198      struct code *codeptr;      struct code *codeptr;
# Line 208  void *handle_function_end_breakpoint(int Line 208  void *handle_function_end_breakpoint(int
208       */       */
209    
210  #if defined POSIX_SIGS  #if defined POSIX_SIGS
211      sigprocmask(SIG_SETMASK,&scp->sc_mask,NULL);      sigprocmask(SIG_SETMASK,&scp->uc_sigmask,NULL);
212  #else  #else
213      sigsetmask(scp->sc_mask);      sigsetmask(scp->sc_mask);
214  #endif  #endif

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5