Bläddra i källkod

[jvm] dodge 32-bit ocaml integer literal check

Dan Korostelev 6 år sedan
förälder
incheckning
0826bf6734
1 ändrade filer med 4 tillägg och 1 borttagningar
  1. 4 1
      src/generators/jvm/jvmWriter.ml

+ 4 - 1
src/generators/jvm/jvmWriter.ml

@@ -18,7 +18,10 @@ let write_jvm_field ch jvmf =
 	write_jvm_attributes ch jvmf.field_attributes
 
 let write_jvm_class ch jvmc =
-	write_ui32 ch 0xCAFEBABE;
+	write_byte ch 0xCA;
+	write_byte ch 0xFE;
+	write_byte ch 0xBA;
+	write_byte ch 0xBE;
 	write_ui16 ch jvmc.class_minor_version;
 	write_ui16 ch jvmc.class_major_version;
 	write_bytes ch jvmc.class_constant_pool;