[Win32forth-cvs] win32forth/src/lib ExtStruct.f,1.4,1.5

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16165/src/lib

Modified Files:
	ExtStruct.f 
Log Message:
Jos :aligned the memory structures.

Index: ExtStruct.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ExtStruct.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ExtStruct.f	29 Oct 2005 09:44:38 -0000	1.4
--- ExtStruct.f	19 Apr 2006 10:00:29 -0000	1.5
***************
*** 169,174 ****
  
  \ create a struct in the dictionary and fill it with zero's
  : mkstruct:     ( size-struct <-name-> -- )
!         create here over allot swap erase ;
  
  in-application
--- 169,175 ----
  
  \ create a struct in the dictionary and fill it with zero's
+ \ 19-4-2006 aligned the memory structures.
  : mkstruct:     ( size-struct <-name-> -- )
!        here dup aligned - allot    create here over allot swap erase ;
  
  in-application