sam/libqbe
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

implement export control

Browse source
This commit is contained in:
Quentin Carbonneaux 2016-03-28 10:30:55 -04:00
parent 54d734f6a4
commit 1b4943eb1f
27 changed files with 65 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/callgen.ml
View file

@ -439,7 +439,7 @@ module OutIL = struct
typedef oc (argname i) arg;
) args;
typedef oc "ret" ret;
fprintf oc "\nfunction w $main() {\n";
fprintf oc "\nexport function w $main() {\n";
fprintf oc "@start\n";
fprintf oc "\t%%failcode =l alloc4 4\n";
let targs = List.mapi (fun i arg ->
@ -466,7 +466,7 @@ module OutIL = struct
typedef oc (argname i) arg;
) args;
typedef oc "ret" ret;
fprintf oc "\nfunction %s $f(" (ttype "ret" ret);
fprintf oc "\nexport function %s $f(" (ttype "ret" ret);
List.iteri (fun i arg ->
let a = argname i in
fprintf oc "%s %%%s" (ttype a arg) a;