Changeset 37038 in project


Ignore:
Timestamp:
01/14/19 09:32:27 (7 months ago)
Author:
evhan
Message:

debugger-protocol: updates for changes in 5.0.1 snapshot

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/debugger-protocol/trunk/debugger-protocol.scm

    r35583 r37038  
    2222                           get-slots
    2323                           get-statistics
    24                            get-trace)
     24                           get-trace
     25                           protocol-version)
    2526
    2627(import-syntax (matchable))
     
    4647(define C_DEBUG_REPLY_GET_TRACE 12)
    4748
     49(define protocol-version 1)
    4850(define default-tcp-port 9999)
    4951(define default-listener #f)
     
    5355
    5456(define event-names
    55   '((call 0)
    56     (global-assign 1)
    57     (gc 2)
    58     (entry 3)
    59     (signal 4)
    60     (connect 5)
    61     (listen 6)
    62     (interrupted 7)))
     57  '((call 1)
     58    (global-assign 2)
     59    (gc 3)
     60    (entry 4)
     61    (signal 5)
     62    (connect 6)
     63    (listen 7)
     64    (interrupted 8)))
    6365
    6466(define-record-printer (dbg-info dinfo port)
     
    7880        ;; read initial event (connect)
    7981        (match (read in)
    80           ((5 . _)
     82          ((6 info . _)
    8183           (let-values (((us them) (tcp-addresses in)))
    8284             (fprintf (current-error-port) "; client connected from ~A~%" them)
    83              con))
     85             (values con info)))
    8486          (evt (error "unexpected connection event" evt)))))))
    8587
     
    104106    (((? number? e) loc val cloc)
    105107     (make-dbg-info
    106       (car (list-ref event-names e))
     108      (car (list-ref event-names (sub1 e)))
    107109      loc
    108110      val
     
    136138                                (arithmetic-shift 1 (cadr a))))
    137139                             (else
    138                               (print "bad event: " x)
    139                               0)))
     140                              (error "invalid event" x))))
    140141                     mask)))))
    141142
Note: See TracChangeset for help on using the changeset viewer.