BlackBox Component Builder Forums

luowy

The earlier is the better, the DevCPL is lower than DevCPC, it's better to correct it whithin the frontend instead of the backend. This is just my opinion, Not a rule; P.S. It seems I can't post at the other discussion page the center forum need a membership, You need to apply for one, you can ask I...

luowy

another choice: DevCPC486.ConvMove ELSE (* not sysval *) (* int -> float *) IF y.form =Pointer THEN y.form:=Int32 END;（*add this line*） IF y.mode = Reg THEN Push(y) END; or DevCPC486.GetAdr: x.form := Int32(*Pointer*); x.typ := DevCPT.int32typ(*anyptrtyp*); Assert(x, hint, stop); I prefer first one.

luowy

adimetrius wrote:Suggested temporary fix:

thanks your work!
yes, the bug is in the bakckend, your fixup worked well;
I created a discussion post on the center board https://forum.blackboxframework.org/vie ... f=40&t=790

luowy

This is an example that leads to a compiler trap:

Code: Select all

MODULE TestBugs;

   IMPORT SYSTEM;
   
   PROCEDURE Do();
      VAR
      r: REAL;
      x: INTEGER;
   BEGIN
      r := r+ SYSTEM.ADR(x);
   END Do;

END TestBugs.

luowy

I accidentally wrote the following code：

Code: Select all

name: ARRAY 256OF CHAR;

It passed the compiler！Although the formatter can formats it into a standard form

Code: Select all

name: ARRAY 256 OF CHAR;

I'm not sure it is a bug, What do you think?

luowy

Usually the documentation is outdated than the source code; If the documentation is incorrect and no bugs in the source code, it is better to modify the documentation rather than the source code. This is a basic interface, many modules depend on it, changing it without checking other modules will ca...

luowy

after play your code, MODULE ObxOldView; IMPORT Converters, Views, TextViews, Log := StdLog, Files; PROCEDURE OldView* (); VAR conv: Converters.Converter; name: ARRAY 256 OF CHAR; loc: Files.Locator; v: Views.View; BEGIN name :=(* 'picture';*)'picture.png'; loc := Files.dir.This(""); conv ...

luowy

this is a problem of precision loss in conversion from 80bit to 64bit; 1, the input: in your example, actually, v := M.Sqrt(n) + 0.5; (* 94906268.0 *) but if you make a comparison , you will get: v > M.Sqrt(n) + 0.5 is TRUE; it means M.Sqrt(n) + 0.5 in 80bit is less the 94906268.0; M.Sqrt(n) + 0.5 =...

luowy

Do you have an example to demonstrate your explanation?

luowy

[untagged] is P-S-I, implemented without careful document, if you understand this assignment is legal: s:=a; (* s: POINTER TO ARRAY [untagged] OF CHAR; a:ARRAY 32 OF CHAR; *) untagged pointer of array can be assigned by a tagged array, the value of the pointer will be the address of the first elemen...

BlackBox Component Builder Forums

Search found 87 matches

Re: Compiler trap in Real64 op ADR(x)

Re: Compiler trap in Real64 op ADR(x)

Re: Compiler trap in Real64 op ADR(x)

Compiler trap in Real64 op ADR(x)

About the identifier behind the number

Re: Views.Old doesn't impement documentation specs

Re: Views.Old doesn't impement documentation specs

Re: ENTIER / Math.Floor bug

Re: Views.Old doesn't impement documentation specs

Re: [untagged] magic