[Info-vax] Native Pascal compiler for VMS x86-64 in test field test now

[Jonathan]

On Thursday, May 11, 2023 at 8:25:22 PM UTC-4, Arne Vajhøj wrote:
> On 5/11/2023 11:41 AM, John Reagan wrote: 
> > On Wednesday, May 10, 2023 at 4:38:39 PM UTC-4, Jonathan wrote: 
> >> Any chance we're going to get /noseparate compilation with the 
> >> Basic compiler? We're going to have to do some (a lot of?) work if 
> >> this isn't available. (It stopped working after HP v1.7 Basic 
> >> compiler.) 
> > 
> > /NOSEPERATE is the default. Do you mean /SEPARATE? Yes, I have a 
> > bug report that it stopped working on the latest BASIC on Itanium.
> I cannot recreate with a trivial example. There must be something 
> extra needed. 
> 
> Basic 1.8 on Alpha: 
> 
> $ type ex.bas 
> program ex 
> 
> external sub s1 
> 
> call s1 
> 
> end program 
> ! 
> sub s1 
> 
> external sub s2 
> 
> call s2 
> 
> end sub 
> ! 
> sub s2 
> 
> print "Hi from Basic!" 
> 
> end sub 
> $ bas ex 
> $ lin ex 
> $ run ex 
> Hi from Basic! 
> $ libr/obj/crea ex 
> $ libr/obj/ins ex ex 
> $ libr/obj/list/name ex 
> Directory of ALPHA OBJECT library DISK2:[ARNE]ex.OLB;2 on 11-MAY-2023 
> 20:14:08 
> Creation date: 11-MAY-2023 20:14:08 Creator: Librarian A09-32 
> Revision date: 11-MAY-2023 20:14:08 Library format: 3.0 
> Number of modules: 1 Max. key length: 128 
> Other entries: 3 Preallocated index blocks: 213 
> Recoverable deleted blocks: 0 Total index blocks used: 2 
> Max. Number history records: 20 Library history records: 1 
> 
> Module ex 
> EX 
> S1 
> S2 
> 
> $ bas/sep ex 
> $ lin ex 
> $ run ex 
> Hi from Basic! 
> $ libr/obj/crea ex 
> $ libr/obj/ins ex ex 
> $ libr/obj/list/name ex 
> Directory of ALPHA OBJECT library DISK2:[ARNE]ex.OLB;3 on 11-MAY-2023 
> 20:14:08 
> Creation date: 11-MAY-2023 20:14:08 Creator: Librarian A09-32 
> Revision date: 11-MAY-2023 20:14:08 Library format: 3.0 
> Number of modules: 3 Max. key length: 128 
> Other entries: 3 Preallocated index blocks: 213 
> Recoverable deleted blocks: 0 Total index blocks used: 2 
> Max. Number history records: 20 Library history records: 1 
> 
> Module EX 
> EX 
> 
> Module S1 
> S1 
> 
> Module S2 
> S2 
> 
> Basic 1.8 on Itanium: 
> 
> $ type ex.bas 
> program ex 
> 
> external sub s1 
> 
> call s1 
> 
> end program 
> ! 
> sub s1 
> 
> external sub s2 
> 
> call s2 
> 
> end sub 
> ! 
> sub s2 
> 
> print "Hi from Basic!" 
> 
> end sub 
> $ bas ex 
> $ lin ex 
> $ run ex 
> Hi from Basic! 
> $ libr/obj/crea ex 
> $ libr/obj/ins ex ex 
> $ libr/obj/list/name ex 
> Directory of ELF OBJECT library DISK1:[ARNE]ex.OLB;2 on 11-MAY-2023 20:18:05 
> Creation date: 11-MAY-2023 20:18:05 Creator: Librarian I01-42 
> Revision date: 11-MAY-2023 20:18:05 Library format: 6.0 
> Number of modules: 1 Max. key length: 1024 
> Other entries: 3 Preallocated index blocks: 213 
> Recoverable deleted blocks: 0 Total index blocks used: 2 
> Max. Number history records: 20 Library history records: 1 
> 
> Module ex 
> EX 
> S1 
> S2 
> 
> $ bas/sep ex 
> $ lin ex 
> $ run ex 
> Hi from Basic! 
> $ libr/obj/crea ex 
> $ libr/obj/ins ex ex 
> $ libr/obj/list/name ex 
> Directory of ELF OBJECT library DISK1:[ARNE]ex.OLB;3 on 11-MAY-2023 20:18:05 
> Creation date: 11-MAY-2023 20:18:05 Creator: Librarian I01-42 
> Revision date: 11-MAY-2023 20:18:05 Library format: 6.0 
> Number of modules: 3 Max. key length: 1024 
> Other entries: 3 Preallocated index blocks: 213 
> Recoverable deleted blocks: 0 Total index blocks used: 2 
> Max. Number history records: 20 Library history records: 1 
> 
> Module EX 
> EX 
> 
> Module S1 
> S1 
> 
> Module S2 
> S2 
> 
> Arne
It is, weirdly, triggered by the specific length of the source file path after logical evaluation.  I have a reproducer, if you're interested.