Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!usc!rpi!zaphod.mps.ohio-state.edu!wuarchive!uunet!munnari.oz.au!ariel!ucsvc.ucs.unimelb.edu.au!wehi.dn.mu.oz!baxter_a
From: baxter_a@wehi.dn.mu.oz
Newsgroups: comp.sys.amiga.programmer
Subject: Does Execute() work the same on A3000?
Message-ID: <1991Jun25.224054.24632@wehi.dn.mu.oz>
Date: 25 Jun 91 22:40:54 GMT
Organization: Walter & Eliza Hall Institute
Lines: 41

I am having a little trouble debugging something for the A3000.
I don't have one, so identifying the crook code is dificult, but
I think I've found it. To prevent the Lattice window opening
if starting from WB, I do:

if (argc == 0)          /* running under workbench      */                 
        {                                                                  
        _ufbs[0].ufbfh = NULL;                                             
        _ufbs[1].ufbfh = _ufbs[0].ufbfh;                                   
        _ufbs[1].ufbflg = UFB_NC;                                          
        _ufbs[2].ufbfh = _ufbs[0].ufbfh;                                   
        _ufbs[2].ufbflg = UFB_NC;                                          
        handle = (struct FileHandle *)(_ufbs[0].ufbfh << 2);               
        process = (struct Process *)FindTask(0);                           
        process->pr_ConsoleTask = (APTR)handle->fh_Type;                   
        x = 0;                                                             
        }                                                                  
else                    /* running under CLI            */                 
        {                                                                  
        _ufbs[0].ufbfh = Input();                                          
        _ufbs[1].ufbfh = Output();                                         
        _ufbs[2].ufbfh = Open("*", MODE_OLDFILE);                          
        x = UFB_NC;                     /* do not close CLI defaults    */ 
        }                                                                  
                                                                           
_ufbs[0].ufbflg |= UFB_RA | O_RAW | x;                                     
_ufbs[1].ufbflg |= UFB_WA | O_RAW | x;                                     
_ufbs[2].ufbflg |= UFB_RA | UFB_WA | O_RAW;

Which replaces the similar code from Lattice umain.c.

This works fine on my A500, and has no problem when later I use:

   Execute("failat >Nil: <Nil: 20 \n mount >Nil: <Nil: plt:",0,0);

However, on the A3000, under 1.3 or 2.0, it crashes.

Is this expected behaviour? Do I have to go back to having the little
window?

Regards Alan