warriorVIP 发表于 2018-12-11 16:23:10

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

!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 发表于 2018-12-11 18:26:39

这种叫做 “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 发表于 2018-12-11 18:35:13

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



好嘞,多谢了
页: [1]
查看完整版本: !DEC$ 想问下以这个开头的语句是什么意思,十分感谢啊