Questions tagged «freepascal»

背景： 在使用嵌入式汇编语言优化某些Pascal代码时，我注意到一个不必要的MOV指令，并将其删除。 令我惊讶的是，删除了不必要的指令使我的程序变慢了。 我发现添加任意，无用的MOV指令可以进一步提高性能。 效果是不稳定的，并且会根据执行顺序而变化：同一行垃圾指令在一行中上下移动会导致速度降低。 我知道CPU会进行各种优化和精简，但这似乎更像是黑魔法。 数据： 我的代码版本在运行时间的循环中间有条件地编译了三个垃圾操作2**20==1048576。（周围的程序只计算SHA-256哈希值）。 我的旧机器（Intel（R）Core（TM）2 CPU 6400 @ 2.13 GHz）上的结果： avg time (ms) with -dJUNKOPS: 1822.84 ms avg time (ms) without: 1836.44 ms 程序循环运行25次，每次运行顺序随机更改。 摘抄： {$asmmode intel} procedure example_junkop_in_sha256; var s1, t2 : uint32; begin // Here are parts of the SHA-256 algorithm, in Pascal: // …

222 performance  optimization  assembly  x86-64  freepascal 

我已经开始转换Webview接口以在Delphi中使用。我设法加载了Webkit库，并且调用的接口方法似乎正常工作，但是，我似乎无法在主窗体上显示Webview。 下面是我声明的接口 WebFrameClass = interface(NSObjectClass) ['{7BE750C8-DFEC-4870-851A-12DBCB0B78F6}'] end; WebFrame = interface(NSObject) ['{BCFA04BE-41AB-4B78-89C0-3330F12C7695}'] procedure loadRequest(request: NSURLRequest); cdecl; end; TWebFrame = class(TOCGenericImport<WebFrameClass, WebFrame>) end; WebViewClass = interface(NSViewClass) ['{0D9F44B7-09FD-4E35-B96E-8DB71B9A2537}'] {class} function canShowMIMEType(MIMEType: NSString): Boolean; cdecl; end; WebView = interface(NSView) ['{C36D8016-2FCB-49F0-BA1C-C9913A37F9AC}'] procedure clos; cdecl; procedure setHostWindow(hostWindow: NSWindow); cdecl; function initWithFrame(frame: NSRect; frameName: NSString; groupName: NSString): …

73 macos  delphi  webkit  delphi-xe2  freepascal