diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-21 15:16:32 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-21 15:16:32 +0000 |
| commit | a04a446805a1108cd19f633878ca367629c23f4b (patch) | |
| tree | d7b057f8b144184299ae72c0f91ad12e320a6157 /src/interp/compiler.boot | |
| parent | b136bc01f60d2baa53148919ee04828dbe9e53b1 (diff) | |
| download | open-axiom-a04a446805a1108cd19f633878ca367629c23f4b.tar.gz | |
Add support for byte values, and byte buffers.
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index f8f6ca01..877749d2 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -527,9 +527,9 @@ getFormModemaps(form is [op,:argl],e) == ++ the same arity and must take flag argument in the same position. ++ Returns a vector of length `nargs' with positive entries indicating ++ flag arguments, and negative entries for normal argument passing. -checkCallingConvention: (%List,%Short) -> %Vector +checkCallingConvention: (%List,%Short) -> %SimpleArray %Short checkCallingConvention(sigs,nargs) == - v := GETZEROVEC nargs + v := makeFilledSimpleArray(%Short,nargs,0) for sig in sigs repeat for t in rest sig for i in 0.. repeat |