paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 07:43:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

* better error info with -Co

Browse Source
This commit is contained in:
pierre 1999-01-18 16:02:20 +00:00
parent ea9f5e89b8
commit ddfe0eeecc
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/tgeni386.pas
View File

@ -276,6 +276,8 @@ implementation
function getregister32 : tregister;
begin
if usablereg32=0 then
internalerror(10);
dec(usablereg32);
if R_EAX in unused then
begin
@ -368,7 +370,10 @@ begin
end.
{
$Log$
Revision 1.17 1998-12-11 23:36:09 florian
Revision 1.18 1999-01-18 16:02:20 pierre
* better error info with -Co
Revision 1.17 1998/12/11 23:36:09 florian
+ again more stuff for int64/qword:
- comparision operators
- code generation for: str, read(ln), write(ln)