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

[John Reagan]

On Friday, May 12, 2023 at 2:48:42 PM UTC-4, Jonathan wrote:
> 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.
Absolutely.  Back when I first saw the report, I tried to find the edit that caused the regression.  The only that could have been at fault
seemed fine (stupid, but fine) to me.  Maybe this one will trigger something.  Post here or email to me at some guessable email account.