Microsoft Windows* (XP, Vista, 7)

Changes to fastcall calling convention on x64

Hi,

I just ported mixed language code from VS 2012/IF 2013 SP1 to VS2015/IF 2016 and got strange "check-stack" errors. I'm having a static FORTRAN lib with modules which is linked into an MSVC dll. The FORTRAN lib is compiled with /iface:default in has the following interface

      module rgtafneu_module

      REAL*8 FUNCTION      RAUCHGASSCHNITTSTELLE_INTERNAL_INOUT
     F            (TYP,E1,E2,A1,A2,GAT_SPLIT,AA_,WDT_SWT,GASTYP,REAL_GAS_CORRECTION,FNCVMETHOD,TABLE_ID,
     F             IER1) 

      IMPLICIT      NONE

How to avoid debug HANG ?

About 1 out of every 4-5 times, when I start a debug session, it just sits there endlessly.

I thought the firewall had something to do with that, but turning it off does not fix the problem.

and then I noticed a message from the debugger - -

it sometimes mentions something about an "internal process."

 

Usually it starts right up again, but I have to restart the DEBUG session to do that.

 

It does not make any difference what I am trying to debug.

 

Its just a minor annoyance, but is there a way around this?

Simple FillRect

Hi All,

I have a "type (T_RECT) rectp" defined and I'm in a WM_PAINT section in an SDI window. I've created a brush as " hBrush = GetStockObject(WHITE_BRUSH)". I've populated the rect by "bret = GetClientRect(hWndMain, rectp)". All the values look good in the debug window but the program crashes at the statement "iret = FillRect ( hDC, rectp, hBrush)" with the message "Unhandled exception at 0x00007FF7DDFB1CD6 in Pearson.exe: 0xC000041D: An unhandled exception was encountered during a user callback.". I am running Intel Fortran 2016.1.146 in x64 mode on a Win 10 x64 OS.

ANSI.SYS is coming back! (Sort of)

Over the years, Visual Fortran users have asked how to get console applications to display color, bold and move the cursor around. "Back in the day", one could do this by loading the driver ANSI.SYS and sending ANSI escape sequences, but that went away after Windows 95. You can do all that stuff with calls to the Windows API console routines, but who wants to do that?

Get rid of goto jump

IF(ISW .eq. 1 )then
                ID=0
                M=0
                L=NDF

                !-------------------------------------------------------------------------------------------------------
                !
                !  
                !
                !------------------------------------------------------------------------------------------------------

903             JJ=J1-1
                IF(JJ .gt. 0) then
905                 DO 910 J=1,JJ
                        DO 910 K=1,6
910                 ID = ID + JTYPE(J,K)
S’abonner à Microsoft Windows* (XP, Vista, 7)