From: johnrreagan@earthlink.net

On 1/7/2025 8:58 PM, Arne Vajhøj wrote:
> During some troubleshooting over at VSI forum hb told me that
> running a shareable image will execute LIB$INITIALIZE
> functions.
>
> That made me write this:
>
> $ type lib.pas
> [inherit('sys$library:pascal$lib_routines', 'sys$library:starlet')]
> module lib(input, output);
>
> [global]
> procedure check;
>
> var
>     imgnam : varying [1024] of char;
>
> begin
>     lib$getjpi(item_code := jpi$_imagname, resultant_string :=
> imgnam.body, resultant_length := imgnam.length);
>     if index(imgnam, ']libshr.EXE') > 0 then begin
>        writeln('This is a shareable image to link against not run');
>        $exit(ss$_normal);
>     end;
> end;
>
> [global]
> procedure say;
>
> begin
>     writeln('Hi');
> end;
>
> end.
> $ type prg.pas
> program prg(input,output);
>
> [external]
> procedure say; external;
>
> begin
>     say;
> end.
> $ type trick.mar
>          .title  trick
>          .extrn  lib$initialize
>          .psect  lib$initialize long,nopic,con,gbl,noshr,noexe,nowrt
>          .address check
>          .end
> $ macro trick
> $ pas lib
> $ link/share=libshr lib + trick + sys$input/opt
> SYMBOL_VECTOR=(say=PROCEDURE)
> $
> $ define/nolog libshr sys$disk:[]libshr
> $ pas prg
> $ link prg + sys$input/opt
> libshr/share
> $
> $ run prg
> Hi
> $ run libshr
> This is a shareable image to link against not run
>
> :-)
>
> Arne
>
Pascal has an [INITIALIZE] attribute that you can put on the PROCEDURE
CHECK and the compiler should do the contribution to the LIB$INITIALIZE
PSECT.

And you should include LIB$INITIALIZE (the code module, not the data
PSECT) from STARLET when linking.  The x86 linker will do that for you,
but the Alpha and Itanium linkers do not.

--- SoupGate-DOS v1.05
 * Origin: you cannot sedate... all the things you hate (1:229/2)