version 1.4, 2005/12/31 15:46:09
|
version 1.5, 2007/10/03 17:03:10
|
Line 42 Variable legacy legacy off
|
Line 42 Variable legacy legacy off
|
cell+ tuck 2 cells + count rot cell+ @ |
cell+ tuck 2 cells + count rot cell+ @ |
lib-sym dup 0= abort" Proc not found!" swap cell+ ! ; |
lib-sym dup 0= abort" Proc not found!" swap cell+ ! ; |
|
|
-1 Constant (addr) |
-1 Constant <addr> |
0 Constant (int) |
0 Constant <int> |
1 Constant (float) |
1 Constant <float> |
2 Constant (void) |
2 Constant <void> |
4 Constant (int...) |
4 Constant <int...> |
5 Constant (float...) |
5 Constant <float...> |
6 Constant (void...) |
6 Constant <void...> |
|
|
: proc, ( pars type lib addr -- ) |
: proc, ( pars type lib addr -- ) |
\G allocates and initializes proc stub |
\G allocates and initializes proc stub |