Paste: unsigned aliens
| Author: | rien |
|---|
| Mode: | factor |
|---|
| Date: | Thu, 22 Dec 2011 22:12:56 |
|---|
Plain Text |
IN: scratchpad (some-code-that-gives-an-allocated-alien)
--- Data stack:
ALIEN: 7fff0a00be40
IN: scratchpad { [ 0 alien-unsigned-1 ] [ 1 alien-unsigned-1 ] [ 2 alien-unsigned-1 ] [ 0 alien-unsigned-2 ] [ 1 alien-unsigned-2 ] } cleave
--- Data stack:
69
82
67
21061
17234
IN: scratchpad : add-2-bytes ( second first -- result ) 8 shift + ;
--- Data stack:
69
82
67
21061
17234
IN: scratchpad 82 67 add-2-bytes . .
17234
17234
--- Data stack:
69
82
67
21061
IN: scratchpad 69 82 add-2-bytes . .
21061
21061
--- Data stack:
69
82
67
IN: scratchpad
New Annotation