diff options
Diffstat (limited to 'libguile/vm-i-loader.c')
-rw-r--r-- | libguile/vm-i-loader.c | 134 |
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: -*/ |