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

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

!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”（编译指导）
用来告知编译器一些“语法之外的事情”

好嘞，多谢了

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

评分

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章