Fix bugs created by shared_ptr

include/CrossLang.hpp

@@ -2023,6 +2023,7 @@ class GC {
             Tesses::Framework::Filesystem::VFSPath SystemToVFSPath(std::string path);
             void GetDate(Tesses::Framework::Filesystem::VFSPath path, Tesses::Framework::Date::DateTime& lastWrite, Tesses::Framework::Date::DateTime& lastAccess);
             void SetDate(Tesses::Framework::Filesystem::VFSPath path, Tesses::Framework::Date::DateTime lastWrite, Tesses::Framework::Date::DateTime lastAccess);
+            void Close();
             ~TObjectVFS();
     };
 
@@ -2043,6 +2044,7 @@ class GC {
             int64_t GetLength();
             void Flush();
             void Seek(int64_t pos, Tesses::Framework::Streams::SeekOrigin whence);
+            void Close();
             ~TObjectStream();
     };
 

src/runtime_methods/console.cpp

@@ -262,7 +262,7 @@ namespace Tesses::CrossLang {
             }
         }
 
-        std::cout << std::setw(3) << progress << "%" << std::flush;
+        std::cout << std::setw(3) << (int)(pdbl*100) << "%" << std::flush;
         return Undefined();
     }
     TObject Console_getSize(GCList& ls, std::vector<TObject> args)

src/runtime_methods/helpers.cpp

@@ -12,23 +12,24 @@ namespace Tesses::CrossLang {
             callable->Call(ls,{0.0});
             if(len > 0)
             {
-                std::shared_ptr<uint8_t> buff=std::make_shared<uint8_t>(1024);
+                std::vector<uint8_t> buff(1024);
                 int64_t pos=0;
                 int curPercent=0;
                 int lastPercent=0;
                 size_t read = 0;
                 do {
-                    read = src->ReadBlock(buff.get(),1024);
+                    read = src->ReadBlock(buff.data(),buff.size());
-                    dest->WriteBlock(buff.get(),read);
+                    dest->WriteBlock(buff.data(),read);
 
                     if(read == 0) break;
                     pos += (int64_t)read;
 
-                    double percent = (double)(pos / len);
+                    double percent = ((double)pos / len);
-                    percent *= 10000;
+                    percent *= 10000.0;
                     
                     curPercent = (int)percent;
 
+                    
                     if(curPercent > lastPercent)
                     {
                         lastPercent = curPercent;

src/types/streamheapobject.cpp

@@ -200,8 +200,17 @@ namespace Tesses::CrossLang
         }
         
     }
+    void TObjectStream::Close()
+    {
+        TDictionary* dict;
+        if(GetObjectHeap(this->obj, dict))
+        {
+            dict->CallMethod(*ls,"Close",{});
+        }
+    }
     TObjectStream::~TObjectStream()
     {
+        Close();
         delete this->ls;
     }
 

src/types/vfsheapobject.cpp

@@ -501,15 +501,19 @@ namespace Tesses::CrossLang {
             
         }
     }
-    TObjectVFS::~TObjectVFS()
+    void TObjectVFS::Close()
     {
-
         TDictionary* dict;
         if(GetObjectHeap(this->obj, dict))
         {
             GCList ls(this->ls->GetGC());
-            dict->CallMethod(ls,"Dispose",{});
+            dict->CallMethod(ls,"Close",{});
         }
+    }
+    TObjectVFS::~TObjectVFS()
+    {
+
+        Close();
         delete this->ls;
     }
     

src/vm/vm.cpp

@@ -3483,6 +3483,12 @@ namespace Tesses::CrossLang {
                         cse.back()->Push(gc, nullptr);
                         return false;
                     }
+                    if(key == "Close")
+                    {
+                        strm->Close();
+                        cse.back()->Push(gc, nullptr);
+                        return false;
+                    }
                     if(key == "Seek")
                     {
                         int64_t pos,whence;
@@ -3594,7 +3600,12 @@ namespace Tesses::CrossLang {
                             return false;
                         }
                     }
-
+                    if(key == "Close")
+                    {
+                        vfs->Close();
+                        cse.back()->Push(gc,nullptr);
+                        return false;
+                    }
                     if(key == "EnumeratePaths")
                     {
                         Tesses::Framework::Filesystem::VFSPath dir;