Smart pascal source code


function LoopStep: Integer;
begin
  Result := -1;
end;

var
i = 0;
for i := 0 to 100 step LoopStep do;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Errors >>>>
Runtime Error: FOR loop STEP should be strictly positive: -1 [line: 7, column: 1]
Result >>>>

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

var TObject={
	$ClassName: "TObject",
	$Parent: null,
	ClassName: function (s) { return s.$ClassName },
	ClassType: function (s) { return s },
	ClassParent: function (s) { return s.$Parent },
	$Init: function () {},
	Create: function (s) { return s },
	Destroy: function (s) { for (var prop in s) if (s.hasOwnProperty(prop)) delete s.prop },
	Destroy$: function(s) { return s.ClassType.Destroy(s) },
	Free: function (s) { if (s!==null) s.ClassType.Destroy(s) }
}
var Exception={
	$ClassName: "Exception",
	$Parent: TObject,
	$Init: function () { FMessage="" },
	Create: function (s,Msg) { s.FMessage=Msg; return s }
}
function $New(c) { var i={ClassType:c}; c.$Init(i); return i }
function $CheckStep(s,z) { if (s>0) return s; throw Exception.Create($New(Exception),"FOR loop STEP should be strictly positive: "+s.toString()+z); }
function LoopStep() {
   return -1;
};
var i = 0;

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

   i = 0;
   var $temp1;
   for(i=0,$temp1=$CheckStep(LoopStep(),"");i<=100;i+=$temp1) {
      /* null */
   }