In reply to ShadowWolf: It is compiled at the command line...
In reply to Z!re:
1) Any code in the included files?
Code: Select all
'
' qbinux/include/qbinux.ql0
'
' Copyright (C) 2005 Sebastian McClouth
'
'
'Modification history include/qbinux.ql0
'
'12 Sep 05 Seb McClouth
' Builded this file. Based upon novix.bi of Novix.
'Used through-out Qbinux (all)
'$INCLUDE: 'include/qbx.ql0'
'Setup (boot/setup.qs0)
TYPE screeninfo
CursorPos AS INTEGER
HaveVGA AS INTEGER
OrigX AS INTEGER
OrigY AS INTEGER
OrigVideoMode AS INTEGER
OrigVideoCols AS INTEGER
OrigVideoEGAbx AS INTEGER
OrigVideoLines AS INTEGER
OrigVideoIsVGA AS INTEGER
VideoMode AS INTEGER
VideoCols AS INTEGER
VideoEGAbx AS INTEGER
VideoLines AS INTEGER
END TYPE
DECLARE SUB BasicDetect ()
DECLARE SUB Setup ()
DECLARE SUB Video ()
'Init (init/main.qs0)
TYPE tm
sec AS INTEGER
min AS INTEGER
hour AS INTEGER
mday AS INTEGER
mon AS INTEGER
year AS INTEGER
wday AS INTEGER
yday AS INTEGER
isdst AS INTEGER
END TYPE
DECLARE FUNCTION CMOSRead! (addr!)
DECLARE SUB Init ()
DECLARE SUB Main ()
DECLARE SUB TimeInit ()
'FileSystem (fs/*.qs0)
DECLARE SUB AscendDir ()
DECLARE SUB BackupNVXFS ()
DECLARE FUNCTION Decrypt$ (in$, pass$)
DECLARE FUNCTION Encrypt$ (in$, pass$)
DECLARE SUB FAT2NVXFS (fatfile AS STRING, nvxfsfile AS STRING)
DECLARE SUB FATCopy (file1 AS STRING, file2 AS STRING)
DECLARE FUNCTION FindFatFile% (fil AS STRING)
DECLARE FUNCTION GetID% (filedir AS STRING, typ AS INTEGER)
DECLARE FUNCTION GetName$ (fd AS STRING, typ AS INTEGER)
DECLARE SUB KillDirEntry (search AS STRING)
DECLARE SUB MakDir (dir AS STRING)
DECLARE SUB PackNVXFS ()
DECLARE SUB RemDir (dir AS STRING)
DECLARE SUB RmFile (file AS STRING)
DECLARE SUB SetAttribute (file AS STRING, AttrName AS STRING, AttrData AS STRING)
DECLARE SUB SetDir (DirID AS LONG)
DECLARE SUB SetDrv (DrvID AS LONG)
DECLARE FUNCTION TBSEOF% (handle AS STRING)
DECLARE FUNCTION TBSGet$ (bytes AS INTEGER, offs AS LONG, handle AS STRING)
DECLARE FUNCTION TBSInput$ (handle AS STRING, ln AS INTEGER)
DECLARE FUNCTION TBSList$ (search$, typ%, output$)
DECLARE FUNCTION TBSOpen$ (file AS STRING, mode AS INTEGER)
DECLARE FUNCTION TBSPrint$ (dat AS STRING, extrachar AS INTEGER, handle AS STRING)
DECLARE FUNCTION TBSPut$ (dat AS STRING, offs AS LONG, handle AS STRING)
DECLARE SUB UnPackNVXFS ()
DECLARE FUNCTION WorkPath% (file AS STRING)
'Kernel (kernel/*.qs0)
DECLARE SUB Panic (s AS STRING)
'Libraries (lib/*.qs0)
DECLARE SUB Delay (Value!)
DECLARE FUNCTION STRIM$ (Value AS INTEGER)
DECLARE FUNCTION TRIM$ (Value AS STRING)
'Shared variables
COMMON SHARED AskVGA AS INTEGER
COMMON SHARED BaseMem, ExtMem AS INTEGER
COMMON SHARED Console AS STRING
COMMON SHARED CurDir AS STRING * 4, CurDrive AS STRING * 4, CurUser AS STRING * 1
COMMON SHARED RegsX AS RegTypeX
COMMON SHARED SVGAMode AS INTEGER
'Constants
CONST True = 1, False = NOT True
'Shared dim's
DIM SHARED time AS tm
DIM SHARED param AS screeninfo
Besides this one, there's QBX.BI and b4g.bi
2) What is your default variable type?
For Delay? Should be Value!
3) If default var type is integer, then: pt = TIMER will cause an overflow
I know that the variable cannot not be an integer. So it's not that.
The drawingtable:
- working qbinux
- new begin of working qbinux (2 diffrent directories)
When I compiled the working version before I started on the new one, everything was fine.
After I started at the new one, I gotten this overflow. When I returned to the working one, and I compiled it, it gave the overflow.
grtz