Advertisement
Guest User

Untitled

a guest
Jan 27th, 2018
179
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 10.21 KB | None | 0 0
  1. <1/2159> #<SYSTEM-FUNCTION SHOW-STACK> 3
  2. <2/2152> #<COMPILED-FUNCTION SYSTEM::PRINT-BACKTRACE>
  3. <3/2146> #<COMPILED-FUNCTION SYSTEM::DEBUG-BACKTRACE>
  4. <4/2137> #<SYSTEM-FUNCTION SYSTEM::READ-EVAL-PRINT> 2
  5. <5/2134> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP-2-3>
  6. <6/2130> #<SYSTEM-FUNCTION SYSTEM::SAME-ENV-AS> 2
  7. <7/2116> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP-2>
  8. <8/2114> #<SYSTEM-FUNCTION SYSTEM::DRIVER>
  9. <9/2074> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP>
  10. <10/2071> #<SYSTEM-FUNCTION INVOKE-DEBUGGER> 1
  11. <11/2061> #<SYSTEM-FUNCTION ERROR>
  12. <12/2048> #<COMPILED-FUNCTION SYSTEM::CHECK-VALUE>
  13. <13/2046> #<SYSTEM-FUNCTION SYSTEM::%PUT>
  14. [2043] «frame» EVAL pour la forme (SYSTEM::%PUT #:G17158 #:G17159 #:G17160)
  15. <14/2027> #<SPECIAL-OPERATOR LET*>
  16. [2025] «frame» EVAL pour la forme (LET* ((#:G17158 VM) (#:G17159 ADR) (#:G17160 RES)) (SYSTEM::%PUT #:G17158 #:G17159 #:G17160))
  17. <15/2025> #<SPECIAL-OPERATOR IF>
  18. <16/2009> #<SPECIAL-OPERATOR LET>
  19. [2007] «frame» EVAL pour la forme
  20. (LET ((ADR (GETDEST VM DST)) (RES (GETSOURCE VM SRC)))
  21.  (IF (NUMBERP ADR) (SETMEMOIRE VM ADR RES)
  22.   (LET* ((#:G17158 VM) (#:G17159 ADR) (#:G17160 RES)) (SYSTEM::%PUT #:G17158 #:G17159 #:G17160))))
  23. [1985] «frame» APPLY pour l'application (MOVE '
  24. #<VM :R0 0 :R1 0 :R2 0 :R3 0 :PC 9941 :LC 9929 :BP 100 :SP 100 :FP 0 :DPP 0 :DE 0 :DPG 0
  25.   :MEMTAB #(0 0 0 0 0 0 0 0 0 0 ...) :ETIQ #S(HASH-TABLE :TEST FASTHASH-EQL (FIBO . 9999))
  26.   :ETIQNR #S(HASH-TABLE :TEST FASTHASH-EQL (NB . 0))> '(:DIESE 5) ':R0)
  27. <17/1979>
  28. #<FUNCTION MOVE (VM SRC DST) (DECLARE (SYSTEM::IN-DEFUN MOVE))
  29.   (BLOCK MOVE
  30.    (LET ((ADR (GETDEST VM DST)) (RES (GETSOURCE VM SRC)))
  31.     (IF (NUMBERP ADR) (SETMEMOIRE VM ADR RES) (SETF (GET VM ADR) RES))))> 3
  32. [1978] «frame» EVAL pour la forme (MOVE VM PARAMETRE PARAMETRE2)
  33. <18/1976> #<SPECIAL-OPERATOR CASE>
  34. [1974] «frame» EVAL pour la forme
  35. (CASE INSTRUCT (MOVE (MOVE VM PARAMETRE PARAMETRE2)) (INCR (OPERATIONVM VM '+ '(:DIESE 1) PARAMETRE))
  36.  (DECR (OPERATIONVM VM '- '(:DIESE 1) PARAMETRE)) (ADD (OPERATIONVM VM '+ PARAMETRE PARAMETRE2))
  37.  (SUB (OPERATIONVM VM '- PARAMETRE PARAMETRE2)) (MULT (OPERATIONVM VM '* PARAMETRE PARAMETRE2))
  38.  (DIV (OPERATIONVM VM '/ PARAMETRE PARAMETRE2)) (JMP (JUMP VM PARAMETRE)) ...)
  39. <19/1974> #<SPECIAL-OPERATOR IF>
  40. <20/1955> #<SPECIAL-OPERATOR LET>
  41. [1953] «frame» EVAL pour la forme
  42. (LET ((INSTRUCT (PREMIERELEMENT EXPR)) (PARAMETRE (DEUXIEMEELEMENT EXPR)) (PARAMETRE2 (TROISIEMEELEMENT EXPR)))
  43.  (IF (NULL EXPR) (NOP)
  44.   (CASE INSTRUCT (MOVE (MOVE VM PARAMETRE PARAMETRE2)) (INCR (OPERATIONVM VM '+ '(:DIESE 1) PARAMETRE))
  45.    (DECR (OPERATIONVM VM '- '(:DIESE 1) PARAMETRE)) (ADD (OPERATIONVM VM '+ PARAMETRE PARAMETRE2))
  46.    (SUB (OPERATIONVM VM '- PARAMETRE PARAMETRE2)) (MULT (OPERATIONVM VM '* PARAMETRE PARAMETRE2))
  47.    (DIV (OPERATIONVM VM '/ PARAMETRE PARAMETRE2)) (JMP (JUMP VM PARAMETRE)) ...))
  48.  (IF (NOT (NULL AFF)) (FORMAT T "~S~%" (GETMEMOIRE VM (VM-PC VM))))
  49.  (LET* ((#:TEMP-17151 VM) (#:NEW-17150 (- (VM-PC VM) 1))) (FUNCALL #'(SETF VM-PC) #:NEW-17150 #:TEMP-17151)))
  50. [1931] «frame» APPLY pour l'application (EXEC '
  51. #<VM :R0 0 :R1 0 :R2 0 :R3 0 :PC 9941 :LC 9929 :BP 100 :SP 100 :FP 0 :DPP 0 :DE 0 :DPG 0
  52.   :MEMTAB #(0 0 0 0 0 0 0 0 0 0 ...) :ETIQ #S(HASH-TABLE :TEST FASTHASH-EQL (FIBO . 9999))
  53.   :ETIQNR #S(HASH-TABLE :TEST FASTHASH-EQL (NB . 0))> '(MOVE (:DIESE 5) :R0) 'NIL)
  54. <21/1925>
  55. #<FUNCTION EXEC (VM EXPR &OPTIONAL (AFF NIL)) (DECLARE (SYSTEM::IN-DEFUN EXEC))
  56.   (BLOCK EXEC
  57.    (LET ((INSTRUCT (PREMIERELEMENT EXPR)) (PARAMETRE (DEUXIEMEELEMENT EXPR)) (PARAMETRE2 (TROISIEMEELEMENT EXPR)))
  58.     (IF (NULL EXPR) (NOP)
  59.      (CASE INSTRUCT (MOVE (MOVE VM PARAMETRE PARAMETRE2)) (INCR (OPERATIONVM VM '+ '(:DIESE 1) PARAMETRE))
  60.       (DECR (OPERATIONVM VM '- '(:DIESE 1) PARAMETRE)) (ADD (OPERATIONVM VM '+ PARAMETRE PARAMETRE2))
  61.       (SUB (OPERATIONVM VM '- PARAMETRE PARAMETRE2)) (MULT (OPERATIONVM VM '* PARAMETRE PARAMETRE2))
  62.       (DIV (OPERATIONVM VM '/ PARAMETRE PARAMETRE2)) (JMP (JUMP VM PARAMETRE)) ...))
  63.     (IF (NOT (NULL AFF)) (FORMAT T "~S~%" (GETMEMOIRE VM (VM-PC VM)))) (SETF (VM-PC VM) (- (VM-PC VM) 1))))> 3
  64. [1924] «frame» EVAL pour la forme (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)
  65. <22/1924> #<SPECIAL-OPERATOR IF>
  66. <23/1918> #<SPECIAL-OPERATOR PROGN>
  67. [1917] «frame» EVAL pour la forme
  68. (PROGN
  69.  (UNLESS (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
  70.   (GO SYSTEM::END-LOOP))
  71.  (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
  72.   (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)))
  73. <24/1905> #<SPECIAL-OPERATOR TAGBODY>
  74. [1904] «frame» EVAL pour la forme
  75. (TAGBODY SYSTEM::BEGIN-LOOP
  76.  (PROGN
  77.   (UNLESS (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
  78.    (GO SYSTEM::END-LOOP))
  79.   (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
  80.    (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)))
  81.  (GO SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP)
  82. <25/1897> #<SPECIAL-OPERATOR LET>
  83. [1895] «frame» EVAL pour la forme
  84. (LET NIL
  85.  (TAGBODY SYSTEM::BEGIN-LOOP
  86.   (PROGN
  87.    (UNLESS (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
  88.     (GO SYSTEM::END-LOOP))
  89.    (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
  90.     (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)))
  91.   (GO SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP))
  92. <26/1885> #<SPECIAL-OPERATOR LET>
  93. [1883] «frame» EVAL pour la forme
  94. (LET ((NBFONCTION 0))
  95.  (LET NIL
  96.   (TAGBODY SYSTEM::BEGIN-LOOP
  97.    (PROGN
  98.     (UNLESS (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
  99.      (GO SYSTEM::END-LOOP))
  100.     (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
  101.      (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)))
  102.    (GO SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP)))
  103. <27/1880> #<SPECIAL-OPERATOR PROGN>
  104. [1879] «frame» EVAL pour la forme
  105. (PROGN (SETMEMOIRE VM (VM-LC VM) '(HALT))
  106.  (LET ((NBFONCTION 0))
  107.   (LET NIL
  108.    (TAGBODY SYSTEM::BEGIN-LOOP
  109.     (PROGN
  110.      (UNLESS (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
  111.       (GO SYSTEM::END-LOOP))
  112.      (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
  113.       (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)))
  114.     (GO SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP)))
  115.  (IF (>= (VM-SP VM) (VM-PC VM)) (ERROR "Débordement de pile") (VM-R0 VM)))
  116. [1860] «frame» APPLY pour l'application (RUN-VM '
  117. #<VM :R0 0 :R1 0 :R2 0 :R3 0 :PC 9941 :LC 9929 :BP 100 :SP 100 :FP 0 :DPP 0 :DE 0 :DPG 0
  118.   :MEMTAB #(0 0 0 0 0 0 0 0 0 0 ...) :ETIQ #S(HASH-TABLE :TEST FASTHASH-EQL (FIBO . 9999))
  119.   :ETIQNR #S(HASH-TABLE :TEST FASTHASH-EQL (NB . 0))>)
  120. <28/1856>
  121. #<FUNCTION RUN-VM (&OPTIONAL (VM 'VM) (AFF NIL)) (DECLARE (SYSTEM::IN-DEFUN RUN-VM))
  122.   (BLOCK RUN-VM (SETMEMOIRE VM (VM-LC VM) '(HALT))
  123.    (LET ((NBFONCTION 0))
  124.     (LOOP WHILE (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
  125.      DO
  126.      (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
  127.       (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF))))
  128.    (IF (>= (VM-SP VM) (VM-PC VM)) (ERROR "Débordement de pile") (VM-R0 VM)))> 1
  129. [1855] «frame» EVAL pour la forme (RUN-VM VM)
  130. <29/1839> #<SPECIAL-OPERATOR LET>
  131. [1837] «frame» EVAL pour la forme
  132. (LET ((VM (MAKE-VM 10000)) FIBO1 FIBO2)
  133.  (SETQ FIBO1
  134.   (READ-FROM-STRING
  135.    "((ENTREEFONCTION) (@ FIBO) (MOVE (LOC -1 0) :R0) (PUSH :R0) (MOVE (:DIESE 2) :R0) (PUSH :R0) (POP :R0) (POP :R1) (CMP :R1 :R0)
  136.   (MOVE (:DIESE T) :R0) (JL (@ finTest1)) (MOVE (:DIESE NIL) :R0) (@ finTest1) (CMP :R0 (:DIESE NIL))
  137.   (JEQ (@ sinon1)) (MOVE (LOC -1 0) :R0) (JMP (@ finSi1)) (@ sinon1) (MOVE (LOC -1 0) :R0)
  138.   (PUSH :R0) (MOVE (:DIESE 1) :R0) (PUSH :R0) (POP :R1) (POP :R0) (SUB :R1 :R0) (PUSH :R0) (PUSH (:DIESE 1))
  139.   (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2) (SUB (:DIESE 1) :R2) (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1)
  140.   (PUSH (:DIESE 0)) (JSR (@ FIBO)) (PUSH :R0) (MOVE (LOC -1 0) :R0) (PUSH :R0) (MOVE (:DIESE 2) :R0) (PUSH :R0)
  141.   (POP :R1) (POP :R0) (SUB :R1 :R0) (PUSH :R0) (PUSH (:DIESE 1)) (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2)
  142.   (SUB (:DIESE 1) :R2) (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1) (PUSH (:DIESE 0)) (JSR (@ FIBO)) (PUSH :R0) (POP :R1)
  143.   (POP :R0) (ADD :R1 :R0) (@ finSi1) (RTN) (SORTIEFONCTION))"))
  144.  (SETQ FIBO2
  145.   (READ-FROM-STRING
  146.    "((MOVE (:DIESE 5) :R0) (PUSH :R0) (PUSH (:DIESE 1)) (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2) (SUB (:DIESE 1) :R2)
  147.  (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1) (PUSH (:DIESE 0)) (JSR (@ FIBO)))"))
  148.  (LOAD-VM VM FIBO1) (LOAD-VM VM FIBO2) (RUN-VM VM))
  149. [1824] «frame» APPLY pour l'application (TEST)
  150. <30/1821>
  151. #<FUNCTION TEST NIL (DECLARE (SYSTEM::IN-DEFUN TEST))
  152.   (BLOCK TEST
  153.    (LET ((VM (MAKE-VM 10000)) FIBO1 FIBO2)
  154.     (SETF FIBO1
  155.      (READ-FROM-STRING
  156.       "((ENTREEFONCTION) (@ FIBO) (MOVE (LOC -1 0) :R0) (PUSH :R0) (MOVE (:DIESE 2) :R0) (PUSH :R0) (POP :R0) (POP :R1) (CMP :R1 :R0)
  157.   (MOVE (:DIESE T) :R0) (JL (@ finTest1)) (MOVE (:DIESE NIL) :R0) (@ finTest1) (CMP :R0 (:DIESE NIL))
  158.   (JEQ (@ sinon1)) (MOVE (LOC -1 0) :R0) (JMP (@ finSi1)) (@ sinon1) (MOVE (LOC -1 0) :R0)
  159.   (PUSH :R0) (MOVE (:DIESE 1) :R0) (PUSH :R0) (POP :R1) (POP :R0) (SUB :R1 :R0) (PUSH :R0) (PUSH (:DIESE 1))
  160.   (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2) (SUB (:DIESE 1) :R2) (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1)
  161.   (PUSH (:DIESE 0)) (JSR (@ FIBO)) (PUSH :R0) (MOVE (LOC -1 0) :R0) (PUSH :R0) (MOVE (:DIESE 2) :R0) (PUSH :R0)
  162.   (POP :R1) (POP :R0) (SUB :R1 :R0) (PUSH :R0) (PUSH (:DIESE 1)) (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2)
  163.   (SUB (:DIESE 1) :R2) (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1) (PUSH (:DIESE 0)) (JSR (@ FIBO)) (PUSH :R0) (POP :R1)
  164.   (POP :R0) (ADD :R1 :R0) (@ finSi1) (RTN) (SORTIEFONCTION))"))
  165.     (SETF FIBO2
  166.      (READ-FROM-STRING
  167.       "((MOVE (:DIESE 5) :R0) (PUSH :R0) (PUSH (:DIESE 1)) (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2) (SUB (:DIESE 1) :R2)
  168.  (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1) (PUSH (:DIESE 0)) (JSR (@ FIBO)))"))
  169.     (LOAD-VM VM FIBO1) (LOAD-VM VM FIBO2) (RUN-VM VM)))> 0
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement