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

[Arne Vajhøj]

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