diff options
Diffstat (limited to 'ortho/gcc')
| -rw-r--r-- | ortho/gcc/ortho-lang.c | 15 | ||||
| -rw-r--r-- | ortho/gcc/ortho_gcc.ads | 4 |
2 files changed, 8 insertions, 11 deletions
diff --git a/ortho/gcc/ortho-lang.c b/ortho/gcc/ortho-lang.c index f5cb2bd..370bdd6 100644 --- a/ortho/gcc/ortho-lang.c +++ b/ortho/gcc/ortho-lang.c @@ -643,20 +643,21 @@ type_for_size (unsigned int precision, int unsignedp) && signed_and_unsigned_types[precision][unsignedp] != NULL_TREE) return signed_and_unsigned_types[precision][unsignedp]; - if (unsignedp) + if (unsignedp) t = make_unsigned_type (precision); else t = make_signed_type (precision); if (precision <= MAX_BITS_PER_WORD) signed_and_unsigned_types[precision][unsignedp] = t; - else - // Handle larger requests by returning a NULL tree and letting + else + // Handle larger requests by returning a NULL tree and letting // the back end default to another approach. - // the exact test is unknown : distinguishing between 32 and 64 bits may be enough - // for all likely platforms - if (MAX_BITS_PER_WORD >= 64) t = NULL_TREE; - + // the exact test is unknown : distinguishing between 32 and 64 bits + // may be enough for all likely platforms + if (MAX_BITS_PER_WORD >= 64) + t = NULL_TREE; + return t; } diff --git a/ortho/gcc/ortho_gcc.ads b/ortho/gcc/ortho_gcc.ads index 9ec38cd..9b53568 100644 --- a/ortho/gcc/ortho_gcc.ads +++ b/ortho/gcc/ortho_gcc.ads @@ -422,7 +422,6 @@ package Ortho_Gcc is procedure New_Default_Choice (Block : in out O_Case_Block); procedure Finish_Choice (Block : in out O_Case_Block); procedure Finish_Case_Stmt (Block : in out O_Case_Block); - procedure Debug_Tree_C(Expr : O_Cnode); private subtype Tree is System.Address; @@ -658,7 +657,4 @@ private pragma Import (C, New_Default_Choice); pragma Import (C, Finish_Choice); pragma Import (C, Finish_Case_Stmt); - - pragma Import (C, Debug_Tree_C); - end Ortho_Gcc; |