mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

Remove now-unused string-length, string-ref

Browse source 
* libguile/vm-engine.c (string-length, string-ref): Remove
  instructions.
* module/system/vm/assembler.scm: Remove assembler exports as well.
This commit is contained in:
Andy Wingo 2018-04-09 10:20:54 +02:00
parent 7a109dddd7
commit 33b038bfa9
2 changed files with 4 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

34
libguile/vm-engine.c
View file

@ -2130,37 +2130,11 @@ VM_NAME (scm_i_thread *thread, struct scm_vm *vp,
* Strings, symbols, and keywords * Strings, symbols, and keywords
*/ */
/* string-length dst:12 src:12 VM_DEFINE_OP (76, unused_76, NULL, NOP)
* VM_DEFINE_OP (77, unused_77, NULL, NOP)
* Store the length of the string in SRC in DST.
*/
VM_DEFINE_OP (76, string_length, "string-length", OP1 (X8_S12_S12) | OP_DST)
{ {
ARGS1 (str); vm_error_bad_instruction (op);
VM_VALIDATE_STRING (str, "string-length"); abort (); /* never reached */
SP_SET_U64 (dst, scm_i_string_length (str));
NEXT (1);
}
/* string-ref dst:8 src:8 idx:8
*
* Fetch the character at position IDX in the string in SRC, and store
* it in DST.
*/
VM_DEFINE_OP (77, string_ref, "string-ref", OP1 (X8_S8_S8_S8) | OP_DST)
{
scm_t_uint8 dst, src, idx;
SCM str;
scm_t_uint64 c_idx;
UNPACK_8_8_8 (op, dst, src, idx);
str = SP_REF (src);
c_idx = SP_REF_U64 (idx);
VM_VALIDATE_STRING (str, "string-ref");
VM_VALIDATE_INDEX (c_idx, scm_i_string_length (str), "string-ref");
RETURN (SCM_MAKE_CHAR (scm_i_string_ref (str, c_idx)));
} }
/* string-set! instruction is currently number 192. Probably need to /* string-set! instruction is currently number 192. Probably need to

2
module/system/vm/assembler.scm
View file

@ -230,8 +230,6 @@
emit-current-thread emit-current-thread
emit-fluid-ref emit-fluid-ref
emit-fluid-set! emit-fluid-set!
emit-string-length
emit-string-ref
emit-string-set! emit-string-set!
emit-string->number emit-string->number
emit-string->symbol emit-string->symbol