Microsoft KB Archive/40553

From BetaArchive Wiki
< Microsoft KB Archive
Revision as of 09:19, 21 July 2020 by X010 (talk | contribs) (Text replacement - ">" to ">")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Knowledge Base


Bad Results with Recursion of STATIC Procedure in QB.EXE

Article ID: 40553

Article Last Modified on 11/21/2006

This article was previously published under Q40553

SYMPTOMS

The use of the STATIC clause in recursive functions or SUBprograms should be avoided. Using STATIC may cause you to overwrite values from a previous CALL. For example, recursively CALLing a STATIC SUBroutine and decrementing the passed parameter actually will change the value of the parameter when the procedure returns at the END SUB statement. However, the QuickBasic editor incorrectly allows the recursive use of a STATIC subroutine or function without any side effects of changing the passed parameters. This problem can lead to subtle programming errors because the incorrect results don't become apparent until compile time.

STATUS

Microsoft has confirmed this to be a bug in QuickBasic Versions 4.00, 4.00b, and 4.50 and in the QB.EXE program that is shipped with the Microsoft Basic Compiler Versions 6.00 and 6.00b for MS-DOS and MS OS/2. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.

MORE INFORMATION

More information on recursion in Version 4.00 or 4.00b can be found on Pages 81-82 of "Microsoft QuickBasic 4.0: Programming in Basic: Selected Topics." For QuickBasic Version 4.50, recursion is documented on Pages 71-72 of "Microsoft QuickBasic: Programming in Basic."

The following is a code example:

DECLARE SUB anysub (Param#)
CLS
 Param# = 10#
 CALL anysub(Param#)
END

SUB anysub (Param#) STATIC
  IF Param# > 1 THEN
     CALL anysub(Param# - 1)
  END IF
  PRINT Param#;
END SUB
                

You will get the following results when this code sample is run in the QB.EXE editor:

1  2  3  4  5  5  6  7  8  9  10
                

You will get the following results when it is run as an executable .EXE program:

1  1  1  1  1  1  1  1  1  1  10
                


Additional query words: QuickBas buglist4.00 buglist4.00b buglist4.50

Keywords: KB40553