[futurebasic] [FB^3] Bus Error on SETGWORLD

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : September 1999 : Group Archive : Group : All Groups

From: PierreSi@...
Date: Sun, 26 Sep 1999 08:03:36 EDT
When running this code , I get a bus error on the line CALL SETGWORLD

clear local mode
dim theRect;8 , offPort& , QDErr
local fn MyNewGWorld(rectPtr&)
  blockmove rectPtr&,@theRect,8
  QDErr = FN NEWGWORLD(offPort&,0,theRect,0,0,0)'offPort contains offScreen 
port
  LONG IF QDErr                                                        'check 
for error
    LONG IF offPort&
      CALL DISPOSEGWORLD(offPort&)                        'dump GWORLD block 
if necessary
      offPort&=0
    END IF
  XELSE
   CALL SETGWORLD(offPort&,0) '<-------------bus error
  END IF
END FN=offPort&

Any one knows why ?

Pierre