diff options
author | Thomas Huth <thuth@redhat.com> | 2016-10-12 12:44:06 +0200 |
---|---|---|
committer | Alexey Kardashevskiy <aik@ozlabs.ru> | 2016-10-17 11:02:16 +1100 |
commit | f7eb3a5728042a659b66806f4654ef0da16d58b4 (patch) | |
tree | aabf4c927e54412afd033c93431bedd04de07589 /slof | |
parent | 725e9d28b783696261b9c35a9aeabad6990d8ef3 (diff) | |
download | SLOF-f7eb3a5728042a659b66806f4654ef0da16d58b4.zip SLOF-f7eb3a5728042a659b66806f4654ef0da16d58b4.tar.gz SLOF-f7eb3a5728042a659b66806f4654ef0da16d58b4.tar.bz2 |
libnet: Simplify the Forth-to-C wrapper of ping()
Now that we do not link libnet against net-snk anymore, we can
change the prototype of ping() and thus simplify the "net-ping"
Forth-to-C wrapper. There is no need to convert the parameters
to a temporary argv[] array anymore.
Signed-off-by: Thomas Huth <thuth@redhat.com>
Signed-off-by: Alexey Kardashevskiy <aik@ozlabs.ru>
Diffstat (limited to 'slof')
-rw-r--r-- | slof/fs/packages/obp-tftp.fs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/slof/fs/packages/obp-tftp.fs b/slof/fs/packages/obp-tftp.fs index 84ac439..30070a6 100644 --- a/slof/fs/packages/obp-tftp.fs +++ b/slof/fs/packages/obp-tftp.fs @@ -70,8 +70,5 @@ INSTANCE VARIABLE ciregs-buffer ; : ping ( -- ) - s" ping " my-args $cat - \ Zero-terminate string: - s" " $cat 2dup + 1 - 0 swap c! - net-ping + my-args net-ping ; |