artem3213212/FasmOnDelphi
1
0
Fork 0
Code Releases Activity

Some Fix

Browse Source
This commit is contained in:
Artem3213212
2018-03-19 18:32:42 +03:00
parent e9c9205fae
commit 3f96eac235
3 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Source/FasmOnDelphi.pas
View File

@@ -104,10 +104,6 @@ type
OutStr:string;
Lines:array of TFasmLine;
end;
TErrorNamePair=record
Name:string;
Code:TFasmError;
end;
const
FasmPath='fasm';
@@ -364,12 +360,13 @@ end
else
begin
{$ENDIF}
s:=FasmTemp+GetTickCount64.ToString();
{$IFDEF MSWINDOWS}
s:=FasmTemp+GetTickCount.ToString();
FileHandle:=CreateFile(PChar(s+'.in'),GENERIC_WRITE,0,nil,CREATE_ALWAYS,128,0);
WriteFile(FileHandle,PAnsiChar(Source)^,length(Source),nr,nil);
CloseHandle(FileHandle);
{$ELSE}
s:=FasmTemp+GetTickCount64.ToString();
AssignFile(f,PChar(s+'.in'));
rewrite(f);
write(f,Source);
@@ -486,12 +483,13 @@ end
else
begin
{$ENDIF}
s:=FasmTemp+GetTickCount64.ToString();
{$IFDEF MSWINDOWS}
s:=FasmTemp+GetTickCount.ToString();
FileHandle:=CreateFile(PChar(s),GENERIC_WRITE,0,nil,CREATE_ALWAYS,128,0);
WriteFile(FileHandle,PAnsiChar(Source)^,length(Source),nr,nil);
CloseHandle(FileHandle);
{$ELSE}
s:=FasmTemp+GetTickCount64.ToString();
AssignFile(f,PChar(s));
rewrite(f);
write(f,Source);