ytomino
/ c_sum.c
Created
March 31, 2015 12:32
http://cpplover.blogspot.jp/2015/03/blog-post_30.html C vs Fortran
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| __attribute__((noinline)) int c_sum(int *data, int n) | |
| { | |
| int result = 0; | |
| for(int i = 0; i < n; ++i){ | |
| result += data[i]; | |
| } | |
| return result; | |
| } |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- This file is translated by "headmaster" version 0.30-18d0286 (devel). | |
| -- The original C header's license should be applied to this file. | |
| -- All conditional-directives are expanded for the exclusive use of your | |
| -- environment, it is not recommended to commit this file to any repository. | |
| ------------------------------------------------------------------------------- | |
| with C.stddef; | |
| package C.alloca is | |
| pragma Preelaborate; | |
| function alloca (a1 : stddef.size_t) return void_ptr; | |
| pragma Import (C, alloca, "alloca"); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- This file is translated by "headmaster" version 0.30-611630a (devel). | |
| -- The original C header's license should be applied to this file. | |
| -- All conditional-directives are expanded for the exclusive use of your | |
| -- environment, it is not recommended to commit this file to any repository. | |
| ------------------------------------------------------------------------------- | |
| with C.stddef; | |
| package C.alloca is | |
| pragma Preelaborate; | |
| function alloca (a1 : stddef.size_t) return void_ptr; | |
| pragma Import (C, alloca, "alloca"); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- This file is translated by "headmaster" version 0.30-18d0286 (devel). | |
| -- The original C header's license should be applied to this file. | |
| -- All conditional-directives are expanded for the exclusive use of your | |
| -- environment, it is not recommended to commit this file to any repository. | |
| ------------------------------------------------------------------------------- | |
| with C.stddef; | |
| package C.alloca is | |
| pragma Preelaborate; | |
| function alloca (a1 : stddef.size_t) return void_ptr; | |
| pragma Import (C, alloca, "alloca"); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- This file is translated by "headmaster" version 0.27-2060155 (devel). | |
| -- The original C header's license should be applied to this file. | |
| -- All conditional-directives are expanded for the exclusive use of your | |
| -- environment, it is not recommended to commit this file to any repository. | |
| ------------------------------------------------------------------------------- | |
| with C.stddef; | |
| package C.alloca is | |
| pragma Preelaborate; | |
| function alloca (a1 : stddef.size_t) return void_ptr; | |
| pragma Import (C, alloca, "alloca"); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- This file is translated by "headmaster" version 0.30-886eb78 (devel). | |
| -- The original C header's license should be applied to this file. | |
| -- All conditional-directives are expanded for the exclusive use of your | |
| -- environment, it is not recommended to commit this file to any repository. | |
| ------------------------------------------------------------------------------- | |
| with C.stddef; | |
| package C.alloca is | |
| pragma Preelaborate; | |
| function alloca (size : stddef.size_t) return void_ptr; | |
| pragma Import (C, alloca, "alloca"); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- This file is translated by "headmaster" version 0.30-886eb78 (devel). | |
| -- The original C header's license should be applied to this file. | |
| -- All conditional-directives are expanded for the exclusive use of your | |
| -- environment, it is not recommended to commit this file to any repository. | |
| ------------------------------------------------------------------------------- | |
| with C.stddef; | |
| package C.alloca is | |
| pragma Preelaborate; | |
| function alloca (size : stddef.size_t) return void_ptr; | |
| pragma Import (C, alloca, "alloca"); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- This file is translated by "headmaster" version 0.27-2060155 (devel). | |
| -- The original C header's license should be applied to this file. | |
| -- All conditional-directives are expanded for the exclusive use of your | |
| -- environment, it is not recommended to commit this file to any repository. | |
| ------------------------------------------------------------------------------- | |
| package C.apisetcconv is | |
| pragma Preelaborate; | |
| -- CMAPI (attribute) | |
| -- CREDUIAPI (attribute) | |
| -- WINABLEAPI (attribute) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- This file is translated by "headmaster" version 0.27-2060155 (devel). | |
| -- The original C header's license should be applied to this file. | |
| -- All conditional-directives are expanded for the exclusive use of your | |
| -- environment, it is not recommended to commit this file to any repository. | |
| ------------------------------------------------------------------------------- | |
| package C.apisetcconv is | |
| pragma Preelaborate; | |
| -- CMAPI (attribute) | |
| -- CREDUIAPI (attribute) | |
| -- WINABLEAPI (attribute) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- This file is translated by "headmaster" version 0.30-18d0286 (devel). | |
| -- The original C header's license should be applied to this file. | |
| -- All conditional-directives are expanded for the exclusive use of your | |
| -- environment, it is not recommended to commit this file to any repository. | |
| ------------------------------------------------------------------------------- | |
| with C.sys.types; | |
| package C.bsm.audit is | |
| pragma Preelaborate; | |
| subtype au_id_t is sys.types.uid_t; | |
| subtype au_id_t_ptr is sys.types.uid_t_ptr; |