Search found 68 matches

by adimetrius
Mon Sep 14, 2020 9:33 pm
Forum: Bug
Topic: SYSTEM.VAL(INTEGER, NIL) won't compile
Replies: 1
Views: 7463

SYSTEM.VAL(INTEGER, NIL) won't compile

SYSTEM.VAL(INTEGER, NIL(*X*)) does not compile and produces error 111 at (*X*). Not that it is of any practical value, but the reported error seems to be violating the requirements of the Language Report. The fix would be to change the following line in DevCPB.StPar1, in the CASE section for valfn: ...
by adimetrius
Sun Sep 13, 2020 9:40 pm
Forum: Hershel
Topic: Hershel 64-bit compiler
Replies: 22
Views: 44158

Re: Hershel 64-bit compiler

Just actualized the repo. You can now compile Herschel in bare BB 1.8 in Linux. Try out the front-end (full language) of code gen (limited language), with shipped tests or your own. Running generated code requires A2 tester - not public yet, but coming soon.
by adimetrius
Sat Sep 05, 2020 9:16 am
Forum: Bug
Topic: CHAR range-checking breach
Replies: 1
Views: 7190

CHAR range-checking breach

When range-checking is enabled, the following should produce a run-time trap 'index out of range' at (*X*) and (*XX*), but it doesn't; instead, it produces a TRAP 0, displaying that i = 65536, r = 65536.0, c = 0X, d = 0X at (*XXX*). MODULE M; PROCEDURE P*; VAR c, d: CHAR; i: INTEGER; BEGIN i := 6553...
by adimetrius
Wed Aug 26, 2020 4:54 pm
Forum: Bug
Topic: MAX with two arguments
Replies: 10
Views: 15941

Re: MAX with two arguments

I like luowy's suggested fix better than my own, although they achieve the same result.

What about Zorko's post? He pointed out a situation when MAX/MIN is applied to two constants, which is fully evaluated at compile time, and that's done in a different procedure.
by adimetrius
Mon Aug 24, 2020 9:20 am
Forum: Bug
Topic: MAX with two arguments
Replies: 10
Views: 15941

Re: MAX with two arguments

Helmut, will all due respect, this is not how I read the Language report capitel 10.3. Also, for MAX(a, b) to be defined, '<' (less) has to be defined for a and b also (precisely speaking, '<' has to be defined for pairs a, b and b, a ), because IF a <= b THEN MAX(a, b) = a ELSE MAX(a, b) = b Can yo...
by adimetrius
Sat Aug 22, 2020 8:27 am
Forum: Bug
Topic: MAX with two arguments
Replies: 10
Views: 15941

Re: MAX with two arguments

Great finding, Ivan! Looks like a small omission in DevCPB.StFct, I think it can be fixed as follows: ELSIF (fctno = minfn) OR (fctno = maxfn) THEN IF (parno < 1) OR (parno = 1) & (p.hint # 1) THEN err(65) (* add this branch *) ELSIF (p.hint = 1) & (parno > 1) THEN err(64) END; p.hint is fil...
by adimetrius
Mon Aug 03, 2020 5:17 pm
Forum: Common questions
Topic: How to copy files in BlackBox under Linux via Wine?
Replies: 10
Views: 16013

Re: How to copy files in BlackBox under Linux via Wine?

Helmut, I do confirm that the timestamps won't change on remote (non-local) filesystems. I just ran into the same limitation today. I have posted a question at stackoverflow, we'll see what comes in. And, Hz was not intended to work on Wine/Windows. The module HzHostLin is for Linux as the host syst...
by adimetrius
Tue Jul 28, 2020 3:52 pm
Forum: Bug
Topic: Compiler trap in Real64 op ADR(x)
Replies: 13
Views: 21120

Re: Compiler trap in Real64 op ADR(x)

I'm pretty sure both DevCPL and DevCPC are in the backend.
by adimetrius
Tue Jul 28, 2020 10:55 am
Forum: Bug
Topic: Compiler trap in Real64 op ADR(x)
Replies: 13
Views: 21120

Re: Compiler trap in Real64 op ADR(x)

For a permanent correction, why not amend CheckForm? It would be the most 'straight' logic: CheckForm checks that the format of data is correct. It is correct to convert a Pointer to a Real64, and that't what CheckForm should return. Amending other procedures looks as a workaround to me. PROCEDURE C...
by adimetrius
Mon Jul 27, 2020 8:14 am
Forum: Common questions
Topic: How to copy files in BlackBox under Linux via Wine?
Replies: 10
Views: 16013

Re: How to copy files in BlackBox under Linux via Wine?

Helmut, I've sent you what i think you requested. As far as BB version - yes, blackbox.oberon.org/download is the right page, I work with 1.8 alpha. Althought I am on the team developing this version, I think Ivan Denisov is a better person to answer any download/installation questions - he's pretty...