diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-30 14:27:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 14:27:31 +0000 |
| commit | bd5f5b0df93361d31592738fb18d77a275f04bc9 (patch) | |
| tree | e2b46b5d5ded0265990ef24f4bf2ddb9640e7fc4 /src/interp/fortcall.boot | |
| parent | 6661a9aa8e79dc934bde807293857f2dfc0eca6f (diff) | |
| download | open-axiom-bd5f5b0df93361d31592738fb18d77a275f04bc9.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp/fortcall.boot')
| -rw-r--r-- | src/interp/fortcall.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index 85d2eaa7..7a57359a 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -567,7 +567,7 @@ prepareResults(results,args,dummies,values,decls) == type := getFortranType(u,decls) data := [defaultValue(type,inFirstNotSecond(args,dummies),values),:data] where defaultValue(type,argNames,actual) == - LISTP(type) and first(type)="character" => MAKE_-STRING(1) + LISTP(type) and first(type)="character" => makeString 1 LISTP(type) and first(type) in ["complex","double complex"] => makeVector( makeList( 2*apply('_*,[getVal(tt,argNames,actual) for tt in rest(type)]),_ @@ -583,7 +583,7 @@ prepareResults(results,args,dummies,values,decls) == type = "double" => longZero type = "double precision" => longZero type = "logical" => 0 - type = "character" => MAKE_-STRING(1) + type = "character" => makeString 1 type = "complex" => makeVector([shortZero,shortZero],"%SingleFloat") type = "double complex" => makeVector([longZero,longZero],"%DoubleFloat") error ['"Unrecognised Fortran type: ",type] |