Mercurial > hg > CbC > CbC_gcc
comparison gcc/ada/libgnat/system-vxworks-ppc.ads @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
comparison
equal
deleted
inserted
replaced
131:84e7813d76e9 | 145:1830386684a0 |
---|---|
5 -- S Y S T E M -- | 5 -- S Y S T E M -- |
6 -- -- | 6 -- -- |
7 -- S p e c -- | 7 -- S p e c -- |
8 -- (VxWorks 5 Version PPC) -- | 8 -- (VxWorks 5 Version PPC) -- |
9 -- -- | 9 -- -- |
10 -- Copyright (C) 1992-2018, Free Software Foundation, Inc. -- | 10 -- Copyright (C) 1992-2019, Free Software Foundation, Inc. -- |
11 -- -- | 11 -- -- |
12 -- This specification is derived from the Ada Reference Manual for use with -- | 12 -- This specification is derived from the Ada Reference Manual for use with -- |
13 -- GNAT. The copyright notice above, and the license provisions that follow -- | 13 -- GNAT. The copyright notice above, and the license provisions that follow -- |
14 -- apply solely to the contents of the part following the private keyword. -- | 14 -- apply solely to the contents of the part following the private keyword. -- |
15 -- -- | 15 -- -- |
116 | 116 |
117 Default_Priority : constant Priority := 122; | 117 Default_Priority : constant Priority := 122; |
118 | 118 |
119 private | 119 private |
120 | 120 |
121 pragma Linker_Options ("--specs=vxworks-gnat-crtbe-link.spec"); | |
122 -- Pull in crtbegin/crtend objects and register exceptions for ZCX. | |
123 -- This is commented out by our Makefile for SJLJ runtimes. | |
124 | |
125 pragma Linker_Options ("--specs=vxworks-ppc-link.spec"); | 121 pragma Linker_Options ("--specs=vxworks-ppc-link.spec"); |
126 -- Setup proper set of -L's for this configuration | 122 -- Setup proper set of -L's for this configuration |
127 | 123 |
128 type Address is mod Memory_Size; | 124 type Address is mod Memory_Size; |
129 Null_Address : constant Address := 0; | 125 Null_Address : constant Address := 0; |