Significant improvements to parser error handling

Author: penavon

.gitignore

@@ -27,6 +27,7 @@
 #
 
 # Delphi compiler-generated binaries (safe to delete)
+*.exe
 *.dll
 *.bpl
 *.bpi

Rhodus_Version_3/OldTests/funcCall.rh

@@ -3,6 +3,7 @@ assertTrue (True);
 
 // Tests to show that functions can return the different types
 
+
 function test
 end
 
@@ -70,6 +71,7 @@ end;
 assertTrue (test_4() == 1.2);
 
 
+
 function test_5()
    for i = 1 to 10 do
      if i == 5 then
@@ -293,3 +295,4 @@ end;
 assertTrue (repeatString(5, "ha") == "hahahahaha");
 
 println ()
+

Rhodus_Version_3/RhodusVersionThreeProject.res

@@ -43,7 +43,7 @@ end
 // Driver code to test above   
 numbers = {12, 7, 13, 5, 6}
 QSort(numbers, 0, lists.len (numbers) - 1) 
-res = assertTrueEx (numbers == {5, 6, 7, 12, 13}
+res = assertTrueEx (numbers == {5, 6, 7, 12, 13})
 if res == "." then
    println("----PASS----")
 else

Rhodus_Version_3/SampleScripts/qsort.rh

@@ -14,7 +14,7 @@ interface
 Uses SysUtils, Classes, uLibModule, System.Diagnostics;
 
 const
-   RHODUS_VERSION : string = '3.0';
+   RHODUS_VERSION : string = '3.0.0.3';
 
 type
   TBuiltInOS = class (TModuleLib)
@@ -73,7 +73,7 @@ procedure TBuiltInTime.getTimeSeconds (vm : TObject);
 var icount1 : Int64;
 begin
   QueryPerformanceCounter(icount1);
-  TVM (vm).push (trunc (1000*icount1/lFreq));//System.Classes.TThread.GetTickCount());
+  TVM (vm).push (trunc (1000*icount1/lFreq));
 end;