Rev 7107 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7107 | Rev 7110 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | (* |
1 | (* |
2 | Copyright 2016, 2017 Anton Krotov |
2 | Copyright 2016, 2017 Anton Krotov |
Line 3... | Line 3... | ||
3 | 3 | ||
4 | This program is free software: you can redistribute it and/or modify |
4 | This program is free software: you can redistribute it and/or modify |
5 | it under the terms of the GNU Lesser General Public License as published by |
5 | it under the terms of the GNU Lesser General Public License as published by |
Line 244... | Line 244... | ||
244 | StrAppend(0AX); |
244 | StrAppend(0AX); |
245 | StrAppend("code "); |
245 | StrAppend("code "); |
246 | Int(code, int); |
246 | Int(code, int); |
247 | StrAppend(int) |
247 | StrAppend(int) |
248 | END; |
248 | END; |
- | 249 | API.DebugMsg(sys.ADR(msg), SelfName); |
|
249 | IF API.GetCurrentThreadId() = main_thread_id THEN |
250 | IF API.GetCurrentThreadId() = main_thread_id THEN |
250 | API.ExitProcess(0) |
251 | API.ExitProcess(0) |
251 | ELSE |
252 | ELSE |
252 | API.ExitThread(0) |
253 | API.ExitThread(0) |
253 | END |
254 | END |