Advertisement
Guest User

Untitled

a guest
Nov 30th, 2021
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 1.25 KB | None | 0 0
  1. (defun builds (flag)
  2.   (declare (optimize (speed 3) (safety 0) (space 3) (debug 0)))
  3.   (lambda ()
  4.     (declare (optimize (speed 3) (safety 0) (space 3) (debug 0)))
  5.     (when flag
  6.       (print "smth"))
  7.     (+ 1 2)))
  8.  
  9. (disassemble (builds nil))
  10.  
  11. ; disassembly for (Λ () :IN BUILDS)
  12. ; Size: 59 bytes. Origin: #x53EA0F7A                          ; (Λ ()
  13.                                                                   :IN
  14.                                                                   BUILDS)
  15. ; 7A:       483D17011050     CMP RAX, #x50100117              ; NIL
  16. ; 80:       741C             JEQ L0
  17. ; 82:       4883EC10         SUB RSP, 16
  18. ; 86:       488B154BFFFFFF   MOV RDX, [RIP-181]               ; "smth"
  19. ; 8D:       B902000000       MOV ECX, 2
  20. ; 92:       48892C24         MOV [RSP], RBP
  21. ; 96:       488BEC           MOV RBP, RSP
  22. ; 99:       E8841E4FFC       CALL #x50392E22                  ; #<FDEFN PRINT>
  23. ; 9E: L0:   BA06000000       MOV EDX, 6
  24. ; A3:       488BE5           MOV RSP, RBP
  25. ; A6:       F8               CLC
  26. ; A7:       5D               POP RBP
  27. ; A8:       C3               RET
  28. ; A9:       6A21             PUSH 33
  29. ; AB:       E8D5F5B5FE       CALL #x52A00585                  ; CONS->R11
  30. ; B0:       E96BFFFFFF       JMP #x53EA0F20
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement