bugnativarray.li

///////////////////////////////////////////////////////////////////////////////
//                          Isaac Operating System                           //
// 									     //
//   This program is free software; you can redistribute it and/or modify    //
//   it under the terms of the GNU General Public License as published by    //
//   the Free Software Foundation; version 3 of the License.  		     //
// 									     //
//   This program is distributed in the hope that it will be useful, 	     //
//   but WITHOUT ANY WARRANTY; without even the implied warranty of 	     //
//   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 	     //
//   GNU General Public License for more details. 			     //
// 									     //
// 			    http://www.lisaac.org			     //
///////////////////////////////////////////////////////////////////////////////

Section Header

  + name    := BUGNATIVARRAY;
      
  
 
  
Section Inherit  
  
  - parent_object:OBJECT := OBJECT;  
  
  
Section Public

  - main <-
  ( + truc,res : NATIVE_ARRAY_VOLATILE(UINTEGER_32);
      truc := NATIVE_ARRAY_VOLATILE(UINTEGER_32).create 2;
      truc.calloc_intern 2;
      truc.put 9 to 1;
      truc.put 8 to 2;
      //res := truc.copy_at 2000h;
      res.item 1.println;
      truc.item 1.print;
  );