dosemu, powerbasic program, centos 5 and Fedora 10

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]


I seem to have uncovered some sort of a bug, but I'm not sure in what.

I have a computer set up with Fedora 10/x86_64, and another with Centos 5/i386.
Both have dosemu 1.4.0 installed.

I have a program that's written in powerbasic that runs fine on the Centos box
but crashes dosemu on the Fedora box.  The dosemu window closes without
any error reported -- the window just disappears.

I have narrowed the problem down to some interaction between a "DEFINT A-Z"
compiler directive and a word wrap subroutine that's part of the program.  If I
either remove the DEFINT directive, comment-out the word wrap subroutine or
remove the parts of the program that actually call that subroutine, the program
doesn't crash on Fedora 10.

I'm sure this program worked fine up until at least fairly recently.  I see
that the last time I modified it was in October of 2008, so it apparently worked
fine on Fedora 9/x86_64, which is what I was running on this machine at that

I have included the word wrap routine here so you can see what it does.  It
runs fine as-is on Centos 5/i386 but crashes on Fedora 10/x86_64.  Removing the
DEFINT line makes it work fine on both machines.  It's just this routine alone
that's causing the problem because the crash occurs when attempting to run the
compiled version of exactly what you see here.  If anyone else would like to
try this, I have put the powerbasic-compiled version of the following program
on my website at

Again, it runs fine on Centos 5/i386 but crashes on Fedora 10/x86_64.

$cpu 80386
$float npx
$lib all off
DEFINT A-Z     ' -- If this line commented out it works.

WordWrap text$,1,76,5

' ********************************
' text$, column, wrap length, row
SUB WordWrap (text$, x1, x2, y1)
        shared wrapped.text$()
    savetext$ = text$
    s = x2 - x1
    y = y1
    ' LOCATE y, x1
    IF LEN(text$) > s THEN
         IF LEN(text$) = 0 THEN EXIT DO
         text$ = LTRIM$(text$)
         IF LEN(text$) >= s THEN
            tmp$ = LEFT$(text$, s)
            tmp$ = text$
         END IF
         stmp$ = tmp$
         GOSUB ReverseTmp
         IF MID$(text$, s + 1, 1) = " " THEN
            wrapped.text$(x)= stmp$
            incr x
            text$ = MID$(text$, s + 1)
         a = INSTR(tmp$, " ")
         IF a = 0 THEN
            wrapped.text$(x)= stmp$
            incr x
            text$ = MID$(text$, s + 1)
            wrapped.text$(x)= LEFT$(text$, s - a)
            incr x
            text$ = MID$(text$, s - a + 1)
         END IF
         END IF
         incr y
         ' LOCATE y, x1
    END IF
    text$ = savetext$

    t$ = ""
    FOR I = LEN(tmp$) TO 1 STEP -1
        t$ = t$ + MID$(tmp$, I, 1)
    NEXT I
    tmp$ = t$

MELVILLE THEATRE ~ Melville Sask ~
To unsubscribe from this list: send the line "unsubscribe linux-msdos" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at

[Index of Archives]     [Linux Console]     [Linux Audio]     [Linux for Hams]     [Kernel Newbies]     [Security]     [Netfilter]     [Bugtraq]     [Yosemite Camping]     [Yosemite Hiking]     [MIPS Linux]     [ARM Linux]     [Linux RAID]     [Samba]     [Linux Media]     [Fedora Users]

  Powered by Linux