!DEC$ 想问下以这个开头的语句是什么意思，十分感谢啊

warriorVIP

!DEC$ FREEFORM
!/*********************  Prototypes  ***********************/
interface
integer*4 function MainWndProc ( hwnd, mesg, wParam, lParam )
!DEC$ IF DEFINED(_X86_)
!DEC$ ATTRIBUTES STDCALL, ALIAS : '_MainWndProc@16' :: MainWndProc
!DEC$ ELSE
!DEC$ ATTRIBUTES STDCALL, ALIAS : 'MainWndProc' :: MainWndProc
!DEC$ ENDIF
integer*4 hwnd
integer*4 mesg  
integer*4 wParam
integer*4 lParam
end function
end interface


我的认知中这个！开头的语句应该是注释啊

fcode

这种叫做 “Compiler Directives”（编译指导）
用来告知编译器一些“语法之外的事情”

是不规范的用法。所以借用注释来实现，这样，当用别的编译器编译时，会当成注释处理。（而不至于报错）

它的具体用法你可以看编译器的说明书。

!DEC$ IF DEFINED(_X86_)    如果定义了 X86 宏
!DEC$ ATTRIBUTES STDCALL, ALIAS : '_MainWndProc@16' :: MainWndProc  告知编译器，MainWndProc 函数采用 stdcall 调用协定，符号名为 _MainWndProc@16
!DEC$ ELSE  否则
!DEC$ ATTRIBUTES STDCALL, ALIAS : 'MainWndProc' :: MainWndProc   与上文类似
!DEC$ ENDIF

这些用法是为了保证编译出来的二进制接口，与 Windows API 保持一致。这样，Windows上的运行时库（是C语言写的，且采用 stdcall 调用协定）可以正确识别。

warriorVIP

fcode 发表于 2018-12-11 18:26
这种叫做 “Compiler Directives”（编译指导）
用来告知编译器一些“语法之外的事情”

好嘞，多谢了