6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-07-19 19:30:10 +00:00
Code Issues Projects Releases Wiki Activity

Test for handling of large bit offset from a

Browse Source 
variable field offset.


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45534 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Duncan Sands 2008-01-03 11:53:52 +00:00
parent 3d73bce2d0
commit 7cc5facfe5
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/FrontendAda/Support/var_offset.ads Normal file
View File

@ -0,0 +1,9 @@
package Var_Offset is
pragma Elaborate_Body;
type T (L : Natural) is record
Var_Len : String (1 .. L);
Space : Integer;
Small : Character;
Bad_Field : Character;
end record;
end;

7
test/FrontendAda/var_offset.adb Normal file
View File

@ -0,0 +1,7 @@
-- RUN: %llvmgcc -c %s -I%p/Support
package body Var_Offset is
function F (X : T) return Character is
begin
return X.Bad_Field;
end;
end;