Artifact b2d5995a8a8a0e49b56ea3a29da1099831685a87:

• File ffcall/avcall/tests.output/hppa1.0-hp-hpux8.00-gcc263 — part of check-in [24d3bc4776] at 2011-01-30 17:11:43 on branch trunk — Adding ffcall (and built files) (user: matt, size: 256) [annotate] [blame] [check-ins using]

0000: 43 68 61 72 20 66 28 43 68 61 72 2c 64 6f 75 62  Char f(Char,doub
0010: 6c 65 2c 43 68 61 72 29 3a 28 7b 27 41 27 7d 2c  le,Char):({'A'},
0020: 30 2e 32 2c 7b 27 43 27 7d 29 2d 3e 7b 27 42 27  0.2,{'C'})->{'B'
0030: 7d 0a 43 68 61 72 20 66 28 43 68 61 72 2c 64 6f  }.Char f(Char,do
0040: 75 62 6c 65 2c 43 68 61 72 29 3a 28 7b 27 41 27  uble,Char):({'A'
0050: 7d 2c 30 2e 32 2c 7b 27 ff 27 7d 29 2d 3e 7b 27  },0.2,{'ÿ'})->{'
0060: 20 27 7d 0a 58 20 66 28 42 2c 63 68 61 72 2c 64   '}.X f(B,char,d
0070: 6f 75 62 6c 65 2c 42 29 3a 28 7b 30 2e 31 2c 7b  ouble,B):({0.1,{
0080: 31 2c 32 2c 33 7d 7d 2c 27 7f 27 2c 30 2e 33 2c  1,2,3}},'',0.3,
0090: 7b 30 2e 32 2c 7b 35 2c 34 2c 33 7d 7d 29 2d 3e  {0.2,{5,4,3}})->
00a0: 7b 22 72 65 74 75 72 6e 20 76 61 6c 22 2c 27 7f  {"return val",'
00b0: 27 7d 0a 58 20 66 28 42 2c 63 68 61 72 2c 64 6f  '}.X f(B,char,do
00c0: 75 62 6c 65 2c 42 29 3a 28 7b 30 2e 31 2c 7b 31  uble,B):({0.1,{1
00d0: 2c 32 2c 33 7d 7d 2c 27 7f 27 2c 30 2c 7b 30 2e  ,2,3}},'',0,{0.
00e0: 32 2c 7b 35 2c 34 2c 33 7d 7d 29 2d 3e 7b 22 72  2,{5,4,3}})->{"r
00f0: 65 74 75 72 6e 20 76 61 6c 22 2c 27 7f 27 7d 0a  eturn val",''}.