diff options
Diffstat (limited to 'utils/genapply/GenApply.hs')
| -rw-r--r-- | utils/genapply/GenApply.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/genapply/GenApply.hs b/utils/genapply/GenApply.hs index 9d0febb59f..eb29e2d4ef 100644 --- a/utils/genapply/GenApply.hs +++ b/utils/genapply/GenApply.hs @@ -426,12 +426,12 @@ formalParam V _ = empty formalParam arg n = formalParamType arg <> space <> text "arg" <> int n <> text ", " -formalParamType arg | isPtr arg = text "\"ptr\"" <> space <> argRep arg - | otherwise = argRep arg +formalParamType arg = argRep arg argRep F = text "F_" argRep D = text "D_" argRep L = text "L_" +argRep P = text "gcptr" argRep _ = text "W_" genApply regstatus args = |