@@ -305,6 +305,7 @@ sourceTypes (LStdErr) = []
305305sourceTypes (LAllocate) = [addressType]
306306sourceTypes (LAppendBuffer) =
307307 [bufferType, addressType, addressType, addressType, addressType, bufferType]
308+sourceTypes (LSystemInfo) = [integerType]
308309sourceTypes (LAppend nt _) = [bufferType, intTyToJType nt, addressType]
309310sourceTypes (LPeek _ _) = [bufferType, addressType]
310311sourceTypes (LFork) = [objectType]
@@ -319,7 +320,7 @@ sourceTypes (LNoOp) = repeat objectType
319320endiannessConstant :: Endianness -> Exp
320321endiannessConstant c =
321322 ExpName . Name . map Ident $ ["java", "nio", "ByteOrder", endiannessConstant' c]
322− where
323+ where
323324 endiannessConstant' BE = "BIG_ENDIAN"
324325 endiannessConstant' LE = "LITTLE_ENDIAN"
325326 endiannessConstant' (IRTS.Lang.Native) = endiannessConstant' BE