Fresh IDE . Check-in [aed56f1b2f]
Not logged in

This repository is a mirror!

The original is located on: https://fresh.flatassembler.net/fossil/repo/fresh
If you want to follow the project, please update your remote-url

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Commented out some debug output in uconfig.asm; Code cleanup in Linux/_process_native.asm; Small bugfix in network.asm;
Timelines: family | ancestors | descendants | both | FreshLibDev
Files: files | file ages | folders
SHA1:aed56f1b2fdb5d8e50489c3e8c985dc2ea7019a8
User & Date: johnfound 2018-07-04 12:22:57
Context
2018-07-28
12:57
Fixed a bug in StrCompSort2 procedure. (Compare for sorting purposes) check-in: 1ba2f95b42 user: johnfound tags: FreshLibDev
2018-07-04
12:25
Merge with the latest FreshLibDev. Minor changes. check-in: 02f422b8ee user: johnfound tags: trunk
12:22
Commented out some debug output in uconfig.asm; Code cleanup in Linux/_process_native.asm; Small bugfix in network.asm; check-in: aed56f1b2f user: johnfound tags: FreshLibDev
2018-06-18
11:18
The latest changes in markdown.asm; Small changes in strlib and buffergap. check-in: eb290fa734 user: johnfound tags: FreshLibDev
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to freshlib/data/uconfig.asm.

238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
begin
        push    ebx ecx edx

        mov     eax, [.cfgFile]         ; name or handle
        test    eax, $ffff0000
        jz      .file_ok

        if defined options.DebugMode & options.DebugMode
           pushad
           stdcall StrPtr, eax
           stdcall Output, "Config file path: "
           stdcall Output, eax
           stdcall Output, cDbgNewLine
           popad
        end if

        stdcall FileOpenAccess, eax, faReadOnly
        jc      .error

        OutputValue "CfgGetStr file open success. Handle = ", eax, 16, 8

.file_ok:
        mov     ebx, eax

        stdcall FileSeek, ebx, 0, fsFromBegin

        stdcall StrDup, [.section]







|
|
|
|
|
|
|
|




|







238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
begin
        push    ebx ecx edx

        mov     eax, [.cfgFile]         ; name or handle
        test    eax, $ffff0000
        jz      .file_ok

;        if defined options.DebugMode & options.DebugMode
;           pushad
;           stdcall StrPtr, eax
;           stdcall Output, "Config file path: "
;           stdcall Output, eax
;           stdcall Output, cDbgNewLine
;           popad
;        end if

        stdcall FileOpenAccess, eax, faReadOnly
        jc      .error

;        OutputValue "CfgGetStr file open success. Handle = ", eax, 16, 8

.file_ok:
        mov     ebx, eax

        stdcall FileSeek, ebx, 0, fsFromBegin

        stdcall StrDup, [.section]

Changes to freshlib/system/Linux/_process_native.asm.

160
161
162
163
164
165
166
167
168
169
170
171
172
173
174

.loop1:
        mov     dl, 1
        xchg    byte [ebx+TMutex.value], dl
        test    dl, dl
        jz      .lock_ok

        rep nop                         ; ???
        loop    .loop1

; Set up syscall details
        mov      edx, MUTEX_LOCK_CONTEND
        mov      ecx, FUTEX_WAIT or FUTEX_PRIVATE_FLAG
        xor      esi, esi        ; timeout
        jmp      .check







|







160
161
162
163
164
165
166
167
168
169
170
171
172
173
174

.loop1:
        mov     dl, 1
        xchg    byte [ebx+TMutex.value], dl
        test    dl, dl
        jz      .lock_ok

        pause   ; causes performance problems in the newest Intel Skylake CPU
        loop    .loop1

; Set up syscall details
        mov      edx, MUTEX_LOCK_CONTEND
        mov      ecx, FUTEX_WAIT or FUTEX_PRIVATE_FLAG
        xor      esi, esi        ; timeout
        jmp      .check

Changes to freshlib/system/network.asm.

146
147
148
149
150
151
152

153
154
155
156
157
158
159
;        OutputValue "SendAll time: ", eax, 10, -1

        clc
        popad
        return

.finish_err:

        mov     [esp+4*regEAX], eax
        popad
        return
endp










>







146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
;        OutputValue "SendAll time: ", eax, 10, -1

        clc
        popad
        return

.finish_err:
        stc
        mov     [esp+4*regEAX], eax
        popad
        return
endp