administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix #1830

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2019-03-08 00:26:13 +03:00
parent cebaa93fa9
commit f275326032
4 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
PABCNetHelp/Common/PABCNETvsDelphi.html
View file

@ -60,7 +60,7 @@
<li>Òèï <code>exception</code> -
ñèíîíèì <code>System.Exception</code>.</li>
<li>Èíäåêñàöèÿ <code>string</code> ñ 1, äèðåêòèâà ïåðåêëþ÷åíèÿ íà èíäåêñàöèþ ñ 0.</li>
<li>Ïðîöåäóðà <code>write</code>
<li>Ïðîöåäóðà <code>Write</code>
âûâîäèò ëþáûå òèïû.</li>
<li>Ñòðóêòóðíàÿ ýêâèâàëåíòíîñòü òèïîâ äëÿ ïðîöåäóðíûõ ïåðåìåííûõ, äèíàìè÷åñêèõ ìàññèâîâ,
òèïèçèðîâàííûõ óêàçàòåëåé è
@ -73,8 +73,8 @@
<li>Ïðîöåäóðíûå ïåðåìåííûå (äåëåãàòû) âìåñòî <code><b>procedure of</b>
object</code>.</li>
<li>Ñ áåñòèïîâûìè ôàéëàìè <b><code>file</code></b>
ìîæíî ðàáîòàòü ñ ïîìîùüþ ïðîöåäóð <code>read</code>,
<code>write</code>.</li>
ìîæíî ðàáîòàòü ñ ïîìîùüþ ïðîöåäóð <code>Read</code>,
<code>Write</code>.</li>
<li>Ìàññèâû ìàññèâîâ îòëè÷àþòñÿ ïî òèïó îò äâóìåðíûõ ìàññèâîâ (â ÷àñòíîñòè,
çàïèñè <code>a[i][j]</code> è <code>a[i,j]</code> íåýêâèâàëåíòíû).</li>
<li>Ïåðåãðóçêà âûïîëíÿåòñÿ áåç êëþ÷åâîãî ñëîâà <b> <code>overload</code></b>.</li>
@ -84,8 +84,8 @@
</ol>
<h3>Îòñóòñòâóåò</h3>
<ol>
<li>Êëþ÷åâûå ñëîâà è äèðåêòèâû <code><b>packed threadvar inline asm exports library unsafe resourcestring dispinterface in out absolute dynamic
local platform requires abstract export message resident assembler safecall
<li>Êëþ÷åâûå ñëîâà è äèðåêòèâû <code><b>packed threadvar inline asm exports unsafe resourcestring dispinterface in out absolute dynamic
local platform requires export message resident assembler safecall
automated far near stdcall cdecl published stored contains implements
varargs default deprecated package register dispid pascal writeonly</b></code>
è ñâÿçàííûå ñ íèìè âîçìîæíîñòè.</li>
@ -100,9 +100,7 @@
const</b> b</code>).</li>
<li>Îòêðûòûå ìàññèâû (íå ïóòàòü ñ äèíàìè÷åñêèìè!).</li>
<li>Ìåòîäû, ñâÿçàííûå ñ ñîîáùåíèÿìè (<code><b>message</b></code>).</li>
<li>Êëàññîâûå ñâîéñòâà.</li>
<li>Âëîæåííûå îïðåäåëåíèÿ êëàññîâ.</li>
<li>Êîíñòàíòû-ïîëÿ êëàññîâ.</li>
</ol>
</body>

10
SyntaxVisitors/SugarVisitors/QuestionPointDesugarVisitor.cs
View file

@ -144,11 +144,13 @@ namespace SyntaxVisitors.SugarVisitors
{
addressed_value right = dqn.right;
var eq = new bin_expr(new ident(name), new nil_const(), Operators.Equal, dqn.left.source_context);
var eq = new bin_expr(new ident(name,dqn.source_context), new nil_const(), Operators.Equal, dqn.left.source_context);
var nr = Into(new ident(name), right);
var q = new question_colon_expression(eq, new nil_const(), nr, dqn.source_context);
nr.source_context = dqn.source_context;
var nc = new nil_const();
nc.source_context = dqn.source_context;
var q = new question_colon_expression(eq, nc, nr, dqn.source_context);
nr.Parent = q;
return q;
}
@ -161,7 +163,7 @@ namespace SyntaxVisitors.SugarVisitors
if (st == null)
throw new SyntaxVisitorError("?._CANNOT_BE_IN_THIS_CONTEXT", dqn.source_context);
var tname = "#dqn_temp" + UniqueNumStr();
var tt = new var_statement(new ident(tname), dqn.left);
var tt = new var_statement(new ident(tname), dqn.left, dqn.source_context);
tt.var_def.Parent = tt;
var l = new List<statement>();
l.Add(tt);

BIN
VisualPascalABCNET/Resources/Icons.16x16.UnitNamespace.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 472 B

After

Width:  |  Height:  |  Size: 469 B

3
bin/Lib/Graph3D.pas
View file

@ -757,7 +757,8 @@ type
Group3D = class(ObjectWithChildren3D)
protected
function CreateObject: Object3D; override := new Group3D(X, Y, Z);
public
//public
protected
constructor(x, y, z: real) := CreateBase0(new ModelVisual3D, x, y, z);
constructor(x, y, z: real; lst: sequence of Object3D);