tweak readme

Author: slackydev

README.md

@@ -267,7 +267,7 @@ begin
     ScriptCode :=
       'print "SharedVar from FPC was " + SharedVar.ToStr();'+ LineEnding +
       'SharedVar := SharedVar + 5;'							+ LineEnding +
-      'var Result := "New value is " + SharedVar.ToStr();';
+      'var Result := 10000';
 
     // 4. Compile and run the script.
     ScriptResult := Script.RunCode(ScriptCode);

compiler/xpr.express.pas

@@ -315,24 +315,24 @@ function TExpress.GetVar(const AName: string): Variant;
       xtAnsiChar: Result := PAnsiChar(ptr)^;
       xtAnsiString: Result := PAnsiString(ptr)^;
     else
-      Result := Integer(ptr);
+      Result := PtrUInt(ptr);
     end;
   end;
 end;
 
 function TExpress.XprTypeFromVariant(const AValue: Variant): XType;
 begin
   case VarType(AValue) of
-    varByte: Result := Context.GetType(xtUInt8);
-    varWord: Result := Context.GetType(xtUInt16);
+    varByte:     Result := Context.GetType(xtUInt8);
+    varWord:     Result := Context.GetType(xtUInt16);
     varLongWord: Result := Context.GetType(xtUInt32);
-    varUInt64: Result := Context.GetType(xtUInt64);
+    varUInt64:   Result := Context.GetType(xtUInt64);
     varSmallint: Result := Context.GetType(xtInt16);
-    varInteger: Result := Context.GetType(xtInt32);
-    varInt64: Result := Context.GetType(xtInt64);
-    varSingle: Result := Context.GetType(xtSingle);
-    varDouble: Result := Context.GetType(xtDouble);
-    varBoolean: Result := Context.GetType(xtBoolean);
+    varInteger:  Result := Context.GetType(xtInt32);
+    varInt64:    Result := Context.GetType(xtInt64);
+    varSingle:   Result := Context.GetType(xtSingle);
+    varDouble:   Result := Context.GetType(xtDouble);
+    varBoolean:  Result := Context.GetType(xtBoolean);
     varOleStr, varString:
       begin
         if Length(AValue) = 1 then

examples/cluster.xpr

@@ -69,5 +69,4 @@ func Benchmark(): Int
   Result := Clusters.Len()
 end
 
-
 var Result := Benchmark()