[Info-vax] exact case transfer_vectors for VAX Macro?

[hb]

On 01/23/2013 05:57 PM, abrsvc wrote:
> I have a real VAX that can be used to verify whatever you'd like. Just post the code you'd like me to try.  I will post any results here.

Virtual - aka hopefully working - code for your real VAX:

$ cre m.c
#include <stdio.h>
extern int Foo;
extern int Bar();
int main() {
         printf("%d%d\n", Foo,Bar());
         return 1;
}
$ cre f.c
int Foo=47;
$ cre b.c
int Bar(){return 11;}
$ cc/decc/extern=strict/name=as m
$ cc/decc/extern=strict/name=as f
$ cc/decc/extern=strict/name=as b
$ link/map/full/cross m,f,b,sys$input/opt
sys$share:vaxcrtl/share
$ search m.map foo,bar
$ r m
$ link/share/map/full/cross f,sys$input/opt
case=yes
universal=Foo
$ search f.map foo
$ link/share/map/full/cross b,sys$input/opt
case=yes
universal=Bar
$ search b.map bar
$ link/map/full/cross m,sys$input/opt
sys$disk:[]f/share
sys$disk:[]b/share
sys$share:vaxcrtl/share
$ search m.map foo,bar
$ define /user f sys$disk:[]f
$ define /user b sys$disk:[]b
$ r m
$ cre t.mar
         .transfer Bar
         .mask  Bar
         jmp  l^Bar+2
         .end
$ macro t
$ write sys$output "use your favorite editor to replace each BAR with 
Bar in t.obj"
$



$ link/share/map/full/cross b,sys$input/opt
gsmatch=leq,1,999
cluster=first,,,t
$ search b.map bar
$
$ link/map/full/cross m,sys$input/opt
sys$disk:[]f/share
sys$disk:[]b/share
sys$share:vaxcrtl/share
$ search m.map foo,bar
$ define /user f sys$disk:[]f
$ define /user b sys$disk:[]b
$ r m
$