diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-30 12:14:16 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-30 12:14:16 +0000 |
| commit | ba60c66472a4a63105c930d419641f75f4d70264 (patch) | |
| tree | 5c5f4d9b7d3d11a5669d647fa8b39f40b942e34b /gcc | |
| parent | d9bb334bd4c7b936ac788e3a1e172c343747b001 (diff) | |
| download | gcc-ba60c66472a4a63105c930d419641f75f4d70264.tar.gz | |
2011-08-30 Pierre Vittet <piervit@pvittet.com>
* melt/xtramelt-ana-base.melt (isnull_tree): Add primitive.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@178292 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog.MELT | 4 | ||||
| -rw-r--r-- | gcc/melt/xtramelt-ana-base.melt | 10 |
2 files changed, 11 insertions, 3 deletions
diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index 0a01d04eb0a..30e17a1bca7 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,5 +1,9 @@ 2011-08-30 Pierre Vittet <piervit@pvittet.com> + * melt/xtramelt-ana-base.melt (isnull_tree): Add primitive. + +2011-08-30 Pierre Vittet <piervit@pvittet.com> + * melt/warmelt-base.melt (read_strv): New primitive. 2011-08-30 Basile Starynkevitch <basile@starynkevitch.net> diff --git a/gcc/melt/xtramelt-ana-base.melt b/gcc/melt/xtramelt-ana-base.melt index af29fdea730..ef2f7bbcb25 100644 --- a/gcc/melt/xtramelt-ana-base.melt +++ b/gcc/melt/xtramelt-ana-base.melt @@ -1447,12 +1447,15 @@ (defprimitive gimpleseq_content (v) :gimple_seq #{(melt_gimpleseq_content((melt_ptr_t)($v)))}# ) - - +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defprimitive is_tree (v) :long #{(melt_magic_discr((melt_ptr_t)($v)) == MELTOBMAG_TREE)}# ) +(defprimitive isnull_tree (:tree tr) :long + #{$tr == (tree)0}# +) + (defprimitive make_tree (discr :tree g) :value #{(meltgc_new_tree((meltobject_ptr_t)($discr),($g)))}# ) @@ -3597,7 +3600,8 @@ and discriminant $DIS, usually $DISCR_MIXED_LOCATION.}# is_mapgimple is_maploop is_maptree - is_tree + is_tree + isnull_tree isnull_basicblock loop_body_tuple loop_can_be_parallel |