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
|
