Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rename instructions GET/SETSTRINGCHAR -> GET/SETBYTESCHAR

master
Hugo Heuzard 2018-02-17 10:50:38 +00:00 committed by Nicolás Ojeda Bär
parent 1c233b6b69
commit ad6304d7ec
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bytecomp/emitcode.ml
View File

@ -258,9 +258,9 @@ let emit_instr = function
| Kvectlength -> out opVECTLENGTH
| Kgetvectitem -> out opGETVECTITEM
| Ksetvectitem -> out opSETVECTITEM
| Kgetstringchar -> out opGETISTRINGCHAR
| Kgetbyteschar -> out opGETSTRINGCHAR
| Ksetbyteschar -> out opSETSTRINGCHAR
| Kgetstringchar -> out opGETSTRINGCHAR
| Kgetbyteschar -> out opGETBYTESCHAR
| Ksetbyteschar -> out opSETBYTESCHAR
| Kbranch lbl -> out opBRANCH; out_label lbl
| Kbranchif lbl -> out opBRANCHIF; out_label lbl
| Kbranchifnot lbl -> out opBRANCHIFNOT; out_label lbl

4
byterun/caml/instruct.h
View File

@ -41,7 +41,7 @@ enum instructions {
GETFIELD0, GETFIELD1, GETFIELD2, GETFIELD3, GETFIELD, GETFLOATFIELD,
SETFIELD0, SETFIELD1, SETFIELD2, SETFIELD3, SETFIELD, SETFLOATFIELD,
VECTLENGTH, GETVECTITEM, SETVECTITEM,
GETSTRINGCHAR, SETSTRINGCHAR,
GETBYTESCHAR, SETBYTESCHAR,
BRANCH, BRANCHIF, BRANCHIFNOT, SWITCH, BOOLNOT,
PUSHTRAP, POPTRAP, RAISE,
CHECK_SIGNALS,
@ -60,7 +60,7 @@ enum instructions {
STOP,
EVENT, BREAK,
RERAISE, RAISE_NOTRACE,
GETISTRINGCHAR,
GETSTRINGCHAR,
FIRST_UNIMPLEMENTED_OP};
#endif /* CAML_INTERNALS */

4
byterun/interp.c
View File

@ -779,12 +779,12 @@ value caml_interprete(code_t prog, asize_t prog_size)
Next;
/* Bytes/String operations */
Instruct(GETISTRINGCHAR):
Instruct(GETSTRINGCHAR):
Instruct(GETBYTESCHAR):
accu = Val_int(Byte_u(accu, Long_val(sp[0])));
sp += 1;
Next;
Instruct(SETSTRINGCHAR):
Instruct(SETBYTESCHAR):
Byte_u(accu, Long_val(sp[0])) = Int_val(sp[1]);
sp += 2;
accu = Val_unit;

4
tools/dumpobj.ml
View File

@ -333,9 +333,9 @@ let op_shapes = [
opVECTLENGTH, Nothing;
opGETVECTITEM, Nothing;
opSETVECTITEM, Nothing;
opGETISTRINGCHAR, Nothing;
opGETSTRINGCHAR, Nothing;
opSETSTRINGCHAR, Nothing;
opGETBYTESCHAR, Nothing;
opSETBYTESCHAR, Nothing;
opBRANCH, Disp;
opBRANCHIF, Disp;
opBRANCHIFNOT, Disp;