diff --git a/app/src/gbs3/.project b/app/src/gbs3/.project index 09f28512e..d9af22dbb 100644 --- a/app/src/gbs3/.project +++ b/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" diff --git a/app/src/gbs3/.settings b/app/src/gbs3/.settings index 61c4a55ab..55486cc20 100644 --- a/app/src/gbs3/.settings +++ b/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" diff --git a/app/src/gbs3/.src/CComponent.class b/app/src/gbs3/.src/CComponent.class index c3fc4f3f9..d2c7b4f9b 100644 --- a/app/src/gbs3/.src/CComponent.class +++ b/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 diff --git a/app/src/gbs3/.src/MMain.module b/app/src/gbs3/.src/MMain.module index 6838824b1..cf33a45dd 100644 --- a/app/src/gbs3/.src/MMain.module +++ b/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