v0.9.10 - A Volta dos Que não foram :)

Author: humbertotecnologia

Distro/Atual/hcbasic.dll

@@ -3,17 +3,22 @@ module OS
     Dim TryCode as UInt16
     Dim TryBase as UInt16
     Dim TryFatal as UInt16
-    Dim MinStackPtr as UInt16
 
     public sub Start
         ' Inicializa o compilador
         asm "cpu 8086"
         asm "bits 16"
         asm "org 0x100"
-        asm "mov word [_os_minstackptr], END"
         Start2
     end
 
+    Sub StackCheck
+        asm "cmp sp, END"
+        asm "ja .end"
+        Throw StackOverflowError
+        asm ".end"
+    End
+
     sub Start2
         ' Declara ponteiro para os argumentos
         dim args as ptrbytearray

Distro/Atual/hcbasic.pdb

@@ -3,17 +3,22 @@ module OS
     Dim TryCode as UInt16
     Dim TryBase as UInt16
     Dim TryFatal as UInt16
-    Dim MinStackPtr as UInt16
 
     public sub Start
         ' Inicializa o compilador
         asm "cpu 8086"
         asm "bits 16"
         asm "org 0x100"
-        asm "mov word [_os_minstackptr], END"
         Start2
     end
 
+    Sub StackCheck
+        asm "cmp sp, END"
+        asm "ja .end"
+        Throw StackOverflowError
+        asm ".end"
+    End
+
     sub Start2
         ' Declara ponteiro para os argumentos
         dim args as ptrbytearray

Distro/Linux64/Plataformas/8086-DOS/System.OS.hcb

@@ -3,17 +3,22 @@ module OS
     Dim TryCode as UInt16
     Dim TryBase as UInt16
     Dim TryFatal as UInt16
-    Dim MinStackPtr as UInt16
 
     public sub Start
         ' Inicializa o compilador
         asm "cpu 8086"
         asm "bits 16"
         asm "org 0x100"
-        asm "mov word [_os_minstackptr], END"
         Start2
     end
 
+    Sub StackCheck
+        asm "cmp sp, END"
+        asm "ja .end"
+        Throw StackOverflowError
+        asm ".end"
+    End
+
     sub Start2
         ' Declara ponteiro para os argumentos
         dim args as ptrbytearray

Distro/Linux64/Plataformas/8086-KERNEL/System.OS.hcb

@@ -3,17 +3,22 @@ module OS
     Dim TryCode as UInt16
     Dim TryBase as UInt16
     Dim TryFatal as UInt16
-    Dim MinStackPtr as UInt16
 
     public sub Start
         ' Inicializa o compilador
         asm "cpu 8086"
         asm "bits 16"
         asm "org 0x100"
-        asm "mov word [_os_minstackptr], END"
         Start2
     end
 
+    Sub StackCheck
+        asm "cmp sp, END"
+        asm "ja .end"
+        Throw StackOverflowError
+        asm ".end"
+    End
+
     sub Start2
         ' Declara ponteiro para os argumentos
         dim args as ptrbytearray