URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [rep_clause5.adb] - Rev 708
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do compile } -- { dg-options "-O" } package body Rep_Clause5 is function To_LNumber(S : String) return LNumber_Type is V : VString; LV : Long_Type; LN : LNumber_Type; begin LV := To_Long(V, 10); LN := LNumber_Type(LV); return LN; end; procedure Merge_Numbered(LNodes : in out LNodes_Ptr) is T1 : Token_Type; LNO : LNumber_Type; begin for X in LNodes.all'Range loop T1 := LNodes(X).Line(0); if T1.Token /= LEX_LF then declare S : String := Element(T1.SID); begin begin LNO := To_LNumber(S); exception when Bad_Number => LNO := 0; when Too_Large => LNO := 0; end; end; end if; end loop; end; end Rep_Clause5;
Go to most recent revision | Compare with Previous | Blame | View Log