Commit 7ad099a5 authored by Radford Neal's avatar Radford Neal

Merge branch '84-mods' into 85

parents 05f45b8d dcefd620
......@@ -122,7 +122,7 @@ contr.sum(2) # needed drop=FALSE at one point.
## Check correct serialize output, and correct unserialization.
a <- serialize(quote(0x12345678L+0.1),NULL)
a <- serialize(quote(0x12345678L+0.1-0.1i),NULL,nosharing=TRUE)
print(a[-(7:10)]) # eliminate R version number
print(unserialize(a))
print(0x12345678L)
......@@ -736,13 +736,15 @@ b . 1
>
> ## Check correct serialize output, and correct unserialization.
>
> a <- serialize(quote(0x12345678L+0.1),NULL)
> a <- serialize(quote(0x12345678L+0.1-0.1i),NULL,nosharing=TRUE)
> print(a[-(7:10)]) # eliminate R version number
[1] 58 0a 00 00 00 02 00 02 03 00 00 00 00 06 00 00 00 01 00 04 00 09 00 00 00
[26] 01 2b 00 00 00 02 00 00 00 0d 00 00 00 01 12 34 56 78 00 00 00 02 00 00 00
[51] 0e 00 00 00 01 3f b9 99 99 99 99 99 9a 00 00 00 fe
[1] 58 0a 00 00 00 02 00 02 03 00 00 00 00 06 00 00 00 01 00 04 00 09 00 00 00
[26] 01 2d 00 00 00 02 00 00 00 06 00 00 00 01 00 04 00 09 00 00 00 01 2b 00 00
[51] 00 02 00 00 00 0d 00 00 00 01 12 34 56 78 00 00 00 02 00 00 00 0e 00 00 00
[76] 01 3f b9 99 99 99 99 99 9a 00 00 00 fe 00 00 00 02 00 00 00 0f 00 00 00 01
[101] 00 00 00 00 00 00 00 00 3f b9 99 99 99 99 99 9a 00 00 00 fe
> print(unserialize(a))
305419896L + 0.1
305419896L + 0.1 - 0.1i
> print(0x12345678L)
[1] 305419896
>
>
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment