Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/ppc/c-calls/ppc-macosx.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/c-calls/ppc-macosx.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1565, Wed Jul 28 21:06:59 2004 UTC revision 1566, Wed Jul 28 21:11:56 2004 UTC
# Line 165  Line 165 
165     * The total size is padded to agree with the struct's alignment.     * The total size is padded to agree with the struct's alignment.
166     *)     *)
167      fun sizeOfStruct tys = let      fun sizeOfStruct tys = let
168            fun ssz [] = {sz = 0, align = 4}            fun ssz [] = {sz = 0, align = 1}
169              | ssz (first::rest) = let              | ssz (first::rest) = let
170                  fun f ([], maxAlign, offset) =                  fun f ([], maxAlign, offset) =
171                        {sz = alignAddr(offset, maxAlign), align = maxAlign}                        {sz = alignAddr(offset, maxAlign), align = maxAlign}
# Line 188  Line 188 
188     * members.  The final size is padded to agree with the alignment.     * members.  The final size is padded to agree with the alignment.
189     *)     *)
190      and sizeOfUnion tys = let      and sizeOfUnion tys = let
191            fun usz [] = {sz = 0, align = 4}            fun usz [] = {sz = 0, align = 1}
192              | usz (first::rest) = let              | usz (first::rest) = let
193                  fun f ([], maxAlign, maxSz) =                  fun f ([], maxAlign, maxSz) =
194                        {sz = alignAddr(maxSz, maxAlign), align = maxAlign}                        {sz = alignAddr(maxSz, maxAlign), align = maxAlign}

Legend:
Removed from v.1565  
changed lines
  Added in v.1566

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0