Search found 87 matches
- Sat Nov 19, 2016 1:51 pm
- Forum: Common questions
- Topic: Server configuration 'Home' path
- Replies: 21
- Views: 25251
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...
- Sat Nov 19, 2016 5:20 am
- Forum: Common questions
- Topic: Server configuration 'Home' path
- Replies: 21
- Views: 25251
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....
- Fri Nov 18, 2016 5:32 am
- Forum: Common questions
- Topic: Server configuration 'Home' path
- Replies: 21
- Views: 25251
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...
- Wed Aug 24, 2016 7:36 pm
- Forum: Bug
- Topic: Compile crashes on empty with
- Replies: 4
- Views: 14584
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...
- Wed Aug 24, 2016 8:33 am
- Forum: System
- Topic: Implementation of SYSTEM.VAL()
- Replies: 17
- Views: 40595
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) &...
- Tue Aug 23, 2016 8:36 am
- Forum: System
- Topic: Implementation of SYSTEM.VAL()
- Replies: 17
- Views: 40595
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...
- Mon Aug 22, 2016 7:27 pm
- Forum: System
- Topic: Implementation of SYSTEM.VAL()
- Replies: 17
- Views: 40595
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...