Hi,
the following code:
-------------------------------
STATIC snCount := 0
PROC main()
LOCAL nI
nI := snCount
snCount := NEWCOUNT()
FOR nI := nI + 1 TO snCount
? nI, snCount
NEXT
RETURN
FUNC NEWCOUNT()
RETURN 10
-------------------------------
generates output:
-------------------------------
C:\cawi32\sample\test>c:\harboursvn\bin\hbrun test153.prg
1 10
1 11
1 12
1 13
1 14
1 15
1 16
1 17
1 18
1 19
1 20
1 21
1 22
1 23
-------------------------------
and so on to infinity. Wrong PCODE generated.
BTW, this sample GPF hbrun of 1.0.1 stable version. I have more GPF's on
1.0.1 but they are not stable, but no GPF on current SVN.
Regards,
Mindaugas
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
