Advertisement
Guest User

Untitled

a guest
Sep 21st, 2018
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Nim 0.38 KB | None | 0 0
  1. type JumpBuffer {.importc: "jmp_buf", header: "<setjmp.h>".} = object
  2.  
  3. proc setJump(env: JumpBuffer): cint
  4.    {.importc: "setjmp", header: "<setjmp.h>".}
  5.  
  6. proc longJump(env: JumpBuffer, value: cint)
  7.    {.importc: "longjmp", header: "<setjmp.h>".}
  8.  
  9. var
  10.    buf: JumpBuffer
  11.    a: cint = 0
  12.    b: cint = 1
  13.  
  14. echo setJump(buf)
  15. b = a+b
  16. a = b-a
  17. if a < 500: longJump(buf, a)
  18. echo "done"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement