From 2a2089ce995952ad87fb15bb668cf735e047ed6d Mon Sep 17 00:00:00 2001
From: carlokok <carlokok@5c9d2617-0215-0410-a2ee-e80e04d1c6d8>
Date: Mon, 4 May 2009 10:26:45 +0000
Subject: [PATCH] 19: Bug in integer assignemnt

git-svn-id: http://code.remobjects.com/svn/pascalscript@132 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
---
 Source/uPSRuntime.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/uPSRuntime.pas b/Source/uPSRuntime.pas
index acce168..d71efc8 100644
--- a/Source/uPSRuntime.pas
+++ b/Source/uPSRuntime.pas
@@ -8845,7 +8845,7 @@ begin
     38: Stack.SetAnsiString(-1, tbtString(AnsiLowercase(string(Stack.GetAnsiString(-2))))); // AnsiLowerCase
 {$IFNDEF PS_NOINT64}
     39: Stack.SetInt64(-1, StrToInt64(string(Stack.GetAnsiString(-2))));  // StrToInt64
-    40: Stack.SetAnsiString(-1, IntToStr(Stack.GetInt64(-2)));// Int64ToStr
+    40: Stack.SetAnsiString(-1, SysUtils.IntToStr(Stack.GetInt64(-2)));// Int64ToStr
 {$ENDIF}
     41:  // sizeof
       begin