Search found 87 matches

by luowy
Sat Nov 19, 2016 1:51 pm
Forum: Common questions
Topic: Server configuration 'Home' path
Replies: 21
Views: 25130

Re: Server configuration 'Home' path

It is probably worth to consider the export of the startup directory from HostFiles in 1.7.1. This would be a trivial change and it would not introduce any unwanted side effects on Locators. - Josef In my private HostFiles, I have exported three path variable: appPath(server),workPath(client),start...
by luowy
Sat Nov 19, 2016 5:20 am
Forum: Common questions
Topic: Server configuration 'Home' path
Replies: 21
Views: 25130

Re: Server configuration 'Home' path

we known file path has two mode:"absolute" and "relative", same as, BB's has "absolute" and "relative" Files.Locator also . when you new a Locator like: loc:=Files.dir.Locator("d:\dir\dir2"); the loc is a absolute Locator;when you do: loc:=Files.dir....
by luowy
Fri Nov 18, 2016 5:32 am
Forum: Common questions
Topic: Server configuration 'Home' path
Replies: 21
Views: 25130

Re: Server configuration 'Home' path

I might have directories such as D:\project\blackbox <--- server or startup directory. Contains BlackBox.exe and all the subdirectories from the distribution. Probably is read only. D:\project\MySplendedSoftware <--- client or user or work directory. The target of the /USE parameter. after your pat...
by luowy
Wed Aug 24, 2016 7:36 pm
Forum: Bug
Topic: Compile crashes on empty with
Replies: 4
Views: 14229

Re: Compile crashes on empty with

the fixup , DevCPP.StatSeq END; e := sym = else; pos := DevCPM.startpos; IF x = NIL THEN err(130);END; (* add this line*) IF e THEN DevCPS.Get(sym); StatSeq(s) ELSE s := NIL END ; DevCPB.Construct(Nwith, x, s); CheckSym(end); IF e THEN x.subcl := 1 END ELSIF sym = exit THEN ..... END END StatSeq; lu...
by luowy
Wed Aug 24, 2016 8:33 am
Forum: System
Topic: Implementation of SYSTEM.VAL()
Replies: 17
Views: 39963

Re: Implementation of SYSTEM.VAL()

DevCPB.StPar1 | valfn: ... IF (x.class = Nconst) & (x.typ = p.typ) THEN (* ok *) ELSIF (x.class >= Nconst) OR ((f IN realSet) # (p.typ.form IN realSet)) OR (DevCPM.options * {DevCPM.java, DevCPM.allSysVal} # {}) THEN IF (p.typ.comp=Basic)&(x.typ.comp=Basic)&(p.typ.size # x.typ.size) &...
by luowy
Tue Aug 23, 2016 8:36 am
Forum: System
Topic: Implementation of SYSTEM.VAL()
Replies: 17
Views: 39963

Re: Implementation of SYSTEM.VAL()

An even more important problem is the compiler TRAP when compiling the following module: MODULE Test; IMPORT SYSTEM; VAR x: LONGINT; y: INTEGER; BEGIN x := SYSTEM.VAL(LONGINT, y * 2); END Test. - Josef already done, DevCPC486.ConvMove ELSE (*y.form := f;*) IF m = Stk THEN y.form := f; IF ((f < Int3...
by luowy
Mon Aug 22, 2016 7:27 pm
Forum: System
Topic: Implementation of SYSTEM.VAL()
Replies: 17
Views: 39963

Re: Implementation of SYSTEM.VAL()

Therefore, I propose to produce warning, and not error. In the case of ignoring this warning, a programmer knows exactly what goes. Is there a possibility to show a warning in BlackBox? yes,you can do it at DevCPB.StPar1 | valfn: (*SYSTEM.VAL*) (* type is changed without considering the byte orderi...