Click above to get retro games delivered to your door ever month!

 logicaltoptr()      Poke a logical value into a memory address
------------------------------------------------------------------------------
 Declaration
   memory.hdr

 Syntax
   proc logicaltoptr extern
   param value logical  lValue, ;
         value _POINTER pMem

 Arguments
   lValue is the value to place in memory.
   pMem is the target address.

 Return
   None.

 Description
   This procedure copies a logical value into the specified memory location.

   The procedure is included for compatibility with earlier Force versions.
   Use the ptr() data type in conjunction with the & and * operators for
   directly writing to explicit memory addresses.

 Example
   #define EXAMPLE_MEMORY
   #include example.hdr

   proc Test_logicaltoptr
   vardef
      ptr( logical ) pMem     // pointer
   enddef
   pMem := malloc( 1000 )     // allocate working space
   ? *pMem                    // prints accidental value
   logicaltoptr( .f., pMem )  // write a logical to memory via function call
   ? *pMem                    // prints .f.
   *pMem := .t.               // write a logical to memory via pointer
   ? *pMem                    // prints .t.
   free( pMem )               // free allocation
   endproc

   proc main
   Test_logicaltoptr()
   endproc