Smart pascal source code


procedure Test1(p: TClass);
begin
  if p <> nil then
    WriteLn('bug');
end;

Test1(nil);

procedure Test2(p: array of TClass);
begin
  if p[0] = nil then
    WriteLn('ok');
end;

Test2([nil]);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
ok

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function $DIdxR(a,i,z) {
	if (i<0) throw Exception.Create($New(Exception),"Lower bound exceeded! Index "+i.toString()+z);
	if (i>a.length) throw Exception.Create($New(Exception),"Upper bound exceeded! Index "+i.toString()+z);
	return a[i];
}

function Test2(p) {
   if (!$DIdxR(p,0,"")) {
      WriteLn("ok");
   }
};
function Test1(p$1) {
   if (p$1) {
      WriteLn("bug");
   }
};

/* <<< main JS >>> */

   Test1(null);
   Test2([null].slice());