?? access2.adb
字號:
-- { dg-do compile }procedure access2 is Arr : array (1..10) of aliased Float; type Acc is access all Float; procedure Set (X : integer) is Buffer: String (1..8); for Buffer'address use Arr (4)'address; begin Arr (X) := 31.1415; end; function Get (C : Integer) return Acc is begin return Arr (C)'access; end;begin null;end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -