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

Jonathan jtcegh at gmail.com
Mon May 15 16:17:56 EDT 2023


On Friday, May 12, 2023 at 5:20:14 PM UTC-4, John Reagan wrote:
> 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.

I sent to the (I hope) guessable email account.

Jonathan



More information about the Info-vax mailing list