Add a "-U" option to compile the script with the UNSAFE keyword.

[SCRIPTER]
* NEW: Add a "-U" option to compile the script with the UNSAFE keyword.

app/src/gbs3/.project

@@ -2,7 +2,7 @@
 Title=gbs3
 Startup=MMain
 Icon=icon.png
-Version=3.10.90
+Version=3.11.90
 VersionFile=1
 Component=gb.eval
 Description="Gambas Script"

app/src/gbs3/.settings

@@ -88,10 +88,10 @@ SearchComment=False
 SearchString=True
 
 [OpenFile]
-Active=1
-File[1]=".src/MMain.module:2.26"
+Active=3
+File[1]=".src/MMain.module:0.240"
 File[2]=".src/MServerPage.module:3.0"
-File[3]=".src/CComponent.class:19.4"
+File[3]=".src/CComponent.class:20.4"
 File[4]="usage-gbs:0.0"
 File[5]="license:0.4"
 File[6]="usage-gbw:0.0"

app/src/gbs3/.src/CComponent.class

@@ -2,7 +2,7 @@
 
 Static Public All As New Collection
 Static Public Libraries As New String[]
-Static Public Classes As Collection
+Static Public (Classes) As Collection
 Static Private $iKey As Integer
 
 Public Const STABLE As Integer = 0

app/src/gbs3/.src/MMain.module

@@ -17,6 +17,7 @@ Private $bVerbose As Boolean
 Private $aImplemented As New String[]
 Private $bExecuteFromArgs As Boolean
 Private $bFast As Boolean
+Private $bUnsafe As Boolean
 Private $sUse As String
 Private $bPrecompiler As Boolean
 Private $aVarsDecl As New String[]
@@ -178,6 +179,10 @@ Private Function ParseArgs() As String
       Case "-f", "--fast"
 
         $bFast = True
+        
+      Case "-U", "--unsafe"
+        
+        $bUnsafe = True
 
       Case "-u"
 
@@ -229,7 +234,11 @@ Private Sub MakeVirtualProject()
 
   $hOutFile = Open $sPrjPath &/ ".src/MMain.module" For Write Create
   Print #$hOutFile, "' Gambas module file\n"
-  If $bFast Then Print #$hOutFile, "Fast"
+  If $bFast Then 
+    Print #$hOutFile, "Fast";
+    If $bUnsafe Then Print #$hOutFile, " Unsafe";
+    Print #$hOutFile
+  Endif
 
   $iLevel = 0
   If $bExecuteFromArgs Then