File: 202_bigrecord.sml

package info (click to toggle)
smlsharp 4.1.0-1.1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 123,724 kB
  • sloc: ansic: 16,725; sh: 4,347; makefile: 2,191; java: 742; haskell: 493; ruby: 305; cpp: 284; pascal: 256; ml: 255; lisp: 141; asm: 97; sql: 74
file content (33 lines) | stat: -rw-r--r-- 682 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
fun f (
  x01,x02,x03,x04,x05,x06,x07,x08,x09,x10,
  x11,x12,x13,x14,x15,x16,x17,x18,x19,x20,
  x21,x22,x23,x24,x25,x26,x27,x28,x29,x30,
  x31,x32,x33,x34,x35,x36,x37,x38,x39,x40
) =
(
  x01,x02,x03,x04,x05,x06,x07,x08,x09,x10,
  x11,x12,x13,x14,x15,x16,x17,x18,x19,x20,
  x21,x22,x23,x24,x25,x26,x27,x28,x29,x30,
  x31,x32,x33,x34,x35,x36,x37,x38,x39,x40
)

val x = #1 (f (
   1,  2,  3,  4,  5,  6,  7,  8,  9, 10,
  11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
  21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
  31, 32, 33, 34, 35, 36, 37, 38, 39, 40
))

(*
2011-05-18 katsu

This causes BUG.

[BUG] transformBitmapFree
*)

(*
2013-01-26 katsu

The above error was fixed in LLVM backend.
*)