diff options
Diffstat (limited to 'mu.arc.t')
| -rw-r--r-- | mu.arc.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/mu.arc.t b/mu.arc.t index b5133572..c7c4a6c1 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -744,6 +744,15 @@ (if (~is 3 sizeof!integer-point-pair) (prn "F - 'sizeof' works on records with record fields")) +(if (~is 1 (sizeof '(34 integer))) + (prn "F - 'sizeof' works on primitive operands")) +(if (~is 1 (sizeof '(34 integer-address))) + (prn "F - 'sizeof' works on address operands")) +(if (~is 2 (sizeof '(34 integer-boolean-pair))) + (prn "F - 'sizeof' works on record operands")) +(if (~is 3 (sizeof '(34 integer-point-pair))) + (prn "F - 'sizeof' works on record operands with record fields")) + (reset) (new-trace "copy-record") (add-code |