summaryrefslogtreecommitdiff
path: root/libguile/vm-i-loader.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/vm-i-loader.c')
-rw-r--r--libguile/vm-i-loader.c134
1 files changed, 0 insertions, 134 deletions
diff --git a/libguile/vm-i-loader.c b/libguile/vm-i-loader.c
deleted file mode 100644
index c3231568e..000000000
--- a/libguile/vm-i-loader.c
+++ /dev/null
@@ -1,134 +0,0 @@
-/* Copyright (C) 2001,2008,2009,2010,2011,2012 Free Software Foundation, Inc.
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public License
- * as published by the Free Software Foundation; either version 3 of
- * the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- * 02110-1301 USA
- */
-
-/* FIXME! Need to check that the fetch is within the current program */
-
-/* This file is included in vm_engine.c */
-
-VM_DEFINE_LOADER (101, load_number, "load-number")
-{
- size_t len;
-
- FETCH_LENGTH (len);
- SYNC_REGISTER ();
- PUSH (scm_string_to_number (scm_from_locale_stringn ((char *)ip, len),
- SCM_UNDEFINED /* radix = 10 */));
- /* Was: scm_istring2number (ip, len, 10)); */
- ip += len;
- NEXT;
-}
-
-VM_DEFINE_LOADER (102, load_string, "load-string")
-{
- size_t len;
- char *buf;
-
- FETCH_LENGTH (len);
- SYNC_REGISTER ();
- PUSH (scm_i_make_string (len, &buf, 1));
- memcpy (buf, (char *) ip, len);
- ip += len;
- NEXT;
-}
-
-VM_DEFINE_LOADER (103, load_symbol, "load-symbol")
-{
- size_t len;
- FETCH_LENGTH (len);
- SYNC_REGISTER ();
- /* FIXME: should be scm_from_latin1_symboln */
- PUSH (scm_from_latin1_symboln ((const char*)ip, len));
- ip += len;
- NEXT;
-}
-
-VM_DEFINE_LOADER (104, load_program, "load-program")
-{
- scm_t_uint32 len;
- SCM objs, objcode;
-
- POP (objs);
- SYNC_REGISTER ();
-
- if (scm_is_vector (objs) && scm_is_false (scm_c_vector_ref (objs, 0)))
- scm_c_vector_set_x (objs, 0, scm_current_module ());
-
- objcode = scm_c_make_objcode_slice (SCM_PROGRAM_OBJCODE (fp[-1]), ip);
- len = sizeof (struct scm_objcode) + SCM_OBJCODE_TOTAL_LEN (objcode);
-
- PUSH (scm_make_program (objcode, objs, SCM_BOOL_F));
-
- ip += len;
-
- NEXT;
-}
-
-VM_DEFINE_INSTRUCTION (105, link_now, "link-now", 0, 1, 1)
-{
- SCM what;
- POP (what);
- SYNC_REGISTER ();
- PUSH (resolve_variable (what, scm_current_module ()));
- NEXT;
-}
-
-VM_DEFINE_LOADER (106, load_array, "load-array")
-{
- SCM type, shape;
- size_t len;
- FETCH_LENGTH (len);
- POP2 (shape, type);
- SYNC_REGISTER ();
- PUSH (scm_from_contiguous_typed_array (type, shape, ip, len));
- ip += len;
- NEXT;
-}
-
-VM_DEFINE_LOADER (107, load_wide_string, "load-wide-string")
-{
- size_t len;
- scm_t_wchar *wbuf;
-
- FETCH_LENGTH (len);
- VM_ASSERT ((len % 4) == 0,
- vm_error_bad_wide_string_length (len));
-
- SYNC_REGISTER ();
- PUSH (scm_i_make_wide_string (len / 4, &wbuf, 1));
- memcpy ((char *) wbuf, (char *) ip, len);
- ip += len;
- NEXT;
-}
-
-/*
-(defun renumber-ops ()
- "start from top of buffer and renumber 'VM_DEFINE_FOO (\n' sequences"
- (interactive "")
- (save-excursion
- (let ((counter 100)) (goto-char (point-min))
- (while (re-search-forward "^VM_DEFINE_[^ ]+ (\\([^,]+\\)," (point-max) t)
- (replace-match
- (number-to-string (setq counter (1+ counter)))
- t t nil 1)))))
-*/
-
-/*
- Local Variables:
- c-file-style: "gnu"
- End:
-*/