[Info-vax] PATCH/ABSOLUTE does not PATCH/ABSOLUTE

[Hein RMS van den Heuvel]

On Saturday, August 18, 2012 11:47:24 AM UTC-4, (unknown) wrote:
> On Itanium:
:
> $ MACRO/OBJECT=X.OBJ SYS$INPUT
> .ENTRY GO,0 
> .END
:
> %PATCH-I-WRTFIL, updating image file DISK:[DIRECTORY]X.OBJ;2
:
> $ DIFF X.OBJ
> Fails miserably.
: 
> PATCH does not maintain this file's undefined format.

It does stay undefined.
It fails to maintain the EOF information properly
If so inclined one can fix it with:


$ set file tmp.obj;/att=(ffb='f$file("tmp.obj;-1","ffb"),ebk='f$file("tmp.obj;-1","eof"))

If you made no change, then diff will bless the file after that.

What I find more worrisome is that it appears NOT to listen to /ABSOLUTE.
It updated a timestamp in the data block with the patch time???

Check the bytes at 0C0...

PATCH>ex/as 0a0
000000A0:  '19-A'
PATCH>dep/as .="test"
old:    000000A0:  '19-A'
new:    000000A0:  'test'
PATCH>update
%PATCH-I-WRTFIL, updating image file TMP.OBJ;3
$ set file tmp.obj;/att=(ffb='f$file("tmp.obj;-1","ffb"),ebk='f$file("tmp.obj;-1","eof"))
$ dump/blo/wid=80 tmp.obj;2 /out=2.tmp
$ dump/blo/wid=80 tmp.obj;3 /out=3.tmp
$ diff 2.tmp,3
... Dump of file TMP.OBJ;3 on 19-AUG-2012 20:23:50.03...
:
   17    313A3032 20323130 322D4755 412D3931 19-AUG-2012 20:1 0000A0
   18    3A303220 32313032 2D475541 2D393131 119-AUG-2012 20: 0000B0
   19    00000000 00315600 2E4E4941 4D2E3131 11.MAIN..V1..... 0000C0
******
File 3.TMP;1
   17    313A3032 20323130 322D4755 74736574 testUG-2012 20:1 0000A0
   18    3A303220 32313032 2D475541 2D393131 119-AUG-2012 20: 0000B0
   19    00000000 00315600 2E4E4941 4D2E3232 22.MAIN..V1..... 0000C0
:
PATCH>dep/as 0a0="xxxx"
old:    000000A0:  'test'
new:    000000A0:  'xxxx'
PATCH>update
%PATCH-I-WRTFIL, updating image file TMP.OBJ;4
$ set file tmp.obj;/att=(ffb='f$file("tmp.obj;-1","ffb"),ebk='f$file("tmp.obj;-1","eof"))
$ dump/blo/wid=80 tmp.obj;4 /out=4.tmp
$ diff 3.TMP, 4
... Dump of file TMP.OBJ;4 on 19-AUG-2012 20:27:17.56...
:
File 3.TMP;1
   17    313A3032 20323130 322D4755 74736574 testUG-2012 20:1 0000A0
   18    3A303220 32313032 2D475541 2D393131 119-AUG-2012 20: 0000B0
   19    00000000 00315600 2E4E4941 4D2E3232 22.MAIN..V1..... 0000C0
******
File 4.TMP;1
   17    313A3032 20323130 322D4755 78787878 xxxxUG-2012 20:1 0000A0
   18    3A303220 32313032 2D475541 2D393131 119-AUG-2012 20: 0000B0
   19    00000000 00315600 2E4E4941 4D2E3632 26.MAIN..V1..... 0000C0

Hmmm.
Hein.