diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-02 15:04:32 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-02 15:04:32 +0000 |
| commit | a4a1cbc3f3dc2b5822733ebd1f54ba7d4e133c39 (patch) | |
| tree | 62fde97ec4b09266a9fb584f04f7a676b6f808d5 /src/interp/newfort.boot | |
| parent | c78c9f3c403b2154127f16dec9b1c95879601f5e (diff) | |
| download | open-axiom-a4a1cbc3f3dc2b5822733ebd1f54ba7d4e133c39.tar.gz | |
* interp/sys-globals.boot ($consistencyCheck): Remove.
($insideCanCoerceFrom): Define.
* interp/setq.lisp: Remove more unused variables.
* interp/patches.lisp (/RF-1): Tidy.
* interp/server.boot (parseAndInterpret): Likewise.
* interp/packtran.boot ($useNewParser): Remove.
* interp/ht-util.boot (parseAndEval): Tidy.
* interp/clam.boot ($failed): Define.
* interp/g-timer.boot ($printStorageIfTrue): Likewise.
* interp/hashcode.boot ($DomainsWithoutLisplibs): Likewise.
* interp/i-coerce.boot ($useCoerceOrCroak): Likewise.
* interp/i-analy.boot ($univariateDomains): Likewise.
($multivariateDomains): Likewise.
* interp/i-object.boot ($useIntegerSubdomain): Likewise.
* interp/i-syscmd.boot ($existingFiles): Likewise.
* interp/newfort.boot ($fortranArrayStartingIndex): Likewise.
* interp/setvars.boot (resetWorkspaceVariables): Don't reset
$dependeeClosureAlist.
Diffstat (limited to 'src/interp/newfort.boot')
| -rw-r--r-- | src/interp/newfort.boot | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot index 1ab40abe..618f4be0 100644 --- a/src/interp/newfort.boot +++ b/src/interp/newfort.boot @@ -1,5 +1,7 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. +-- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without -- modification, are permitted provided that the following conditions are @@ -33,6 +35,8 @@ import '"macros" )package "BOOT" +$fortranArrayStartingIndex := 0 + --% Translation of Expression to FORTRAN assignment2Fortran1(name,e) == $fortError : fluid := nil |