mirror of
git://c9x.me/qbe.git
synced 2026-04-07 10:59:47 +00:00
fix bug in type definitions in abi.ml
This commit is contained in:
parent
665a45003a
commit
b8e3bc6aa0
@ -396,7 +396,11 @@ module OutIL = struct
|
|||||||
let typedef oc name =
|
let typedef oc name =
|
||||||
let rec f: type a. a sty -> unit = function
|
let rec f: type a. a sty -> unit = function
|
||||||
| Field (b, s) ->
|
| Field (b, s) ->
|
||||||
fprintf oc "%s" (btype b);
|
fprintf oc "%s" begin
|
||||||
|
if AB b = AB Char then "b" else
|
||||||
|
if AB b = AB Short then "h" else
|
||||||
|
btype b
|
||||||
|
end;
|
||||||
if not (styempty s) then
|
if not (styempty s) then
|
||||||
fprintf oc ", ";
|
fprintf oc ", ";
|
||||||
f s;
|
f s;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user