ftnlf

Check-in [ddd58d65b7]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Cleanup.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:ddd58d65b7e1f172c8b649b1f2366952c186dd8d
User & Date: vadim 2018-05-22 08:54:44
Context
2018-10-17
07:18
Build FX.Core module under different names to use in FX tree. check-in: df8b8eb14a user: vadim tags: trunk
2018-05-22
08:54
Cleanup. check-in: ddd58d65b7 user: vadim tags: trunk
08:53
Fix error in diagnostics. check-in: f5dfc99988 user: vadim tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ftnlf.f90.

610
611
612
613
614
615
616
617
618
619
620
621
622
623
624

        ! Stack is now:
        ! UM key val arg1 ... argn UI
        ! < DEBUG >
        call luaFE_check(L, lua_gettop(L) == na+4, 'stack inconsistency')

        ! classify value and call it
print *,'XX: ', typ
        if (typ == LUA_TNUMBER) then
            ! Constant
            if (ckarg(nv == 1 .and. oflag == 0, &
                & 'Too many output arguments for constant ') /= 0) return
            ! Pop input userdata and arguments
            call lua_pop(L, na+1)
            ! stack is now: UM key val







<







610
611
612
613
614
615
616

617
618
619
620
621
622
623

        ! Stack is now:
        ! UM key val arg1 ... argn UI
        ! < DEBUG >
        call luaFE_check(L, lua_gettop(L) == na+4, 'stack inconsistency')

        ! classify value and call it

        if (typ == LUA_TNUMBER) then
            ! Constant
            if (ckarg(nv == 1 .and. oflag == 0, &
                & 'Too many output arguments for constant ') /= 0) return
            ! Pop input userdata and arguments
            call lua_pop(L, na+1)
            ! stack is now: UM key val